.V 


- . ^ r 

WILSON  JONES 


-j  Gray  Line.  |- 


NYLON  POST  BINDER 

^ 25-14-1 1 N ^ 

2 PURPOSE  BINDER 

This  binder  may  be  used  to  bind  both  marginal-punched  sheets  and  forms 
punched  with  2%",  4%",  6",  7",  8 /z",  13%"  and  14 %"  center-to-center  holes. 


1.  FOR  TOP-AND-BOTTOM  LOADING  OF  UNBURST  SHEETS 


Insert  posts  thru  end  holes 
of  bottom  cover  stub.  Al- 
low approximately  2 inches 
of  the  posts  to  extend  in- 
side the  metal  channel. 


Atthis  point  the  forms  will 
be  held  in  the  binder  in  this 
unburst  continuous  fash- 
ion so  that  they  can  be 
read  like  the  leaves  of  a 
stenographer's  note  book. 


Bend  these  sections  down  into 
the  channel,  toward  the  center. 
Move  the  plastic  slide  locks  over 
the  posts  and  toward  each  end  of 
the  stub  until  they  are  snug. 


Gather  forms  in  even  stack. 
Insert  posts  in  top  holes 
at  both  sides  of  forms. 


Hold  the  top  cover  over  the 
sheet  body  with  the  stub 
turned  under.  Insert  the 
upper  end  of  the  posts  thru 
the  end  holes  of  the  stub. 


Bend  the  exposed  lengths  of  the 
posts  down  into  the  top  cover 
channel.  Move  the  slide  locks  over 
the  posts  toward  the  outside  ends 
of  the  channel  until  snug. 


2.  FOR  CONVENTIONALLY  PUNCHED  LOOSE  LEAF  FORMS 
AND  STRIPPED  UNBURST  FORMS 

Follow  steps  (a)  thru  (f),  except  that  posts  should  be  inserted  thru 
holes  in  stub  that  correspond  to  holes  in  forms  to  be  bound. 


I H 25  u 1 
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R 0000  5 
R0001 

EC  ADR 

MNEMONIC 

00015 

REF 

l 

01501 

l 

=ECADR 

UPSVF  LAG 

A 000 1 6 
000  2 

REF 

1 

03606 

1 

=FC ADR 

XSMD 

0003 

REF 

1 

01731 

0 

=EC ADR 

REFSMMAT 

0006 

REF 

1 

03633 

0 

=EC ADR 

DEL VSLV 

OOO  5 

REF 

1 

02C20 

1 

=EC ADR 

RLS 

17:11  MAR. 


19, 1971 


(MAIM)  PAGE  1 

1 FO 


USER*  S PAGE  NO 


GAP:  ASSEMBLE  REVISION  2IC  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


17:11  MAR.  19,1971 


( MAIN  ) 


PAGE 


L 


ASSEMBLY  AND  OPERATION 


I NFORMAT I CN 


USER'S  PAGE  NO. 


EO 


R 000  0 1 
R00002 


THIS  LGC 
THE  DETA 


PROGRAM  IS  INTENDED  FOR  USE  IN  THE 
LS  OF  IMPLEMENTATION  ARE  SPECIFIED 


LM  DURING  THE  MANNED  LUNAR  LANDING  MISSION  OR  ANY  SUBSET  THEREOF. 
IN  REPORT  R-567,  AS  AMENDED. 


I 

R000025 
R 000 03 
R 000 035 


GUIDANCE  SYSTEM  OPERATIONS  PLAN 
FOP  MANNED  LM  EARTH  ORBITAL  AND  LUNAR  MISSIONS 
USING  PROGRAM  LUMINARY 


R000G4 
R 0000  5 
R 000  0 6 


*T H I S PROGRAM  AND  R-567  HAVE 
*UF  TECHNOLOGY  75  CAMBRIDGE 
#M ANNEO  SPACECRAFT  CENTER  OF 


BEEN  PREPARED  BY  THE  CHARLES  STARK  DRAPER  LABORATORY,  MASSACHUSETTS  INSTITUTE 
PARKWAY,  CAMBRIDGE,  MASSACHUSETTS  UNDER  PROJECT  55-238-90,  SPONSORED  BY  THE 
THE  NATIONAL  AERONAUTICS  ANO  SPACE  ADMINISTRATION,  CONTRACT  NAS  9-4065. 


K 000  0 7 
R0001 

_ IV 

PT000  1 5 

R0002 
R0003 
R0005 
R0006 
ROOD  7 
R0008 


* THIS  PROGRAM 

TABLE  OF  LOG  CARDS 


IS  REFERRED  TU  AS  LUMINARY  IE 


ABSOLUTE  ADDRESSES  FOR  UPDATE  PROGRAM 


ASSEMBLY  AND  OPERATION  INFORMATION 

TAGS  FOR  RELATIVE  SETLOC  AND  BLANK  BANK  CARDS 

CONTROLLED  CONSTANTS 

INPUT/CUTPUT  CHANNEL  BIT  DESCRIPTIONS 
FLAoWORD  ASSIGNMENTS 
SUBROUTINE  CALLS 


R0009 
R001  0 
R001  1 
R00112 
ROOT  2 
ROOT  3 
R0014 
R0015 
R001  6 
R0017 
R0018 
R0019 
R0020 
R002  l 
R0022 
R002  3 
R0024 
R002  5 
R0026 ' 
R0027 
R0028 
R0029 
R0030 
R003  1 


TABLE  OF  SUBROUTINE  LOG  SECTIONS 
LUMERASE 

ERASABLE  ASSIGNMENTS 
CHECK  EQUALS  LIST 
LEMON A I D 

INTERRUPT  LEAD  INS 
T4RUPT  PROGRAM 
RCS  FAILURE  MONITOR 
DOWNLINK  LISTS 
AGS  INITIALIZATION 
FRESH  START  AND  RESTART 
RESTART  TABLES 
AOTMARK 


EXTENDED  VERBS 
PINBALL  NOUN  TABLES 
LEM  GEOMETRY 

IMU  COMPENSATION  PACKAGE 
R63 

ATTITUDE  MANEUVER  ROUTINE 
GIMBAL  LOCK  AVOICANCE 
K ALCMANU  STEERING 
SYSTEM  TEST  STANDARD  LEAD  INS 
IMU  PERFORMANCE  TESTS  2 
IMU  PERFORMANCE  TESTS  4 


GAP 
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R003  2 
R 003  3 
R0034 
R0035 
R0036 
R0037 
R0038 
R0039 
R0040 
R004  2 
R0043 
R0044 
R0045 
R0046 
R 0 04  7 
R0049 
R0050 
R005  1 
R0052 
R005  3 
R0054 
R0055 
R0056 
R0057 
R0058 
R005  9 
R0060 
R0061 
R0062 
R006  3 
R0064 
R 006  5 
R0066 
R0067 
R0068 
R0069 
R0070 
R0071 
R0072 
R0073 
R0074 
R007  5 
R0076 
R0077 
R0078 
R0079 
R0080 
R0081 
R0082 
R0083 


PINBALL  GAMES  BUTTONS  ANO  LIGHTS 
R60 » R62 

S-BANO  ANTENNA  FOR  LM 

LEMP20S 

RADAR  LEADIN  ROUTINES 
P20-P25 

LEMP30S 

P30, P37 

P32-P35 1 P72-P75 

KISSING 

GROUND  TRACKING  DETERMINATION  PROGRAM  - P21 

P34-P35,  P74-P75 

R31 

P 76 

R30 

FLY 

BURN,  BABY,  BURN  — MASTER  IGNITION  ROUTINE 
P40-P47 

THE  LUNAR  LANDING 
THROTTLE  CONTROL  ROUTINES 
LUNAR  LANOING  GUIDANCE  EQUATIONS 
P 70- P 7 1 
P 1 2 

ASCENT  GUIDANCE 
SERVICER 

LANDING  ANALOG  DISPLAYS 
F INDCDUW  - GUIDAP  INTERFACE 

LEMP50S 

P51-P53 

LUNAR  AND  SOLAR  E PHEMER  IDES  SUBROUTINES 

SKIPPER 

DOWN-TELEMETRY  PROGRAM 
INTER-BANK  COMMUNICATION 
INTERPRETER 

FIXED-FIXED  CONSTANT  POOL 
INTERPRETIVE  CONSTANTS 
SINGLE  PRECISION  SUBROUTINES 
EXECUTIVE 
WAITLIST 

LATITUOE  LONGITUDE  SUBROUTINES 
PLANETARY  INERTIAL  ORIENTATION 
MEASUREMENT  INCORPORATION 
CONIC  SUBROUTINES 
INTEGRATION  INITIALIZATION 
ORBITAL  I NTEGRAT ICN 
INFLIGHT  ALIGNMENT  ROUTINES 
POWERED  FLIGHT  SUBROUTINES 
TIME  OF  FREE  FALL 
AGC  BLOCK  TWO  SELF-CHECK 
PHASE  TABLE  MAINTENANCE 
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PAGE  A 
EO 


R0084 
R0085 
R0086 
R0087 
R0088 
R0089 
R0090 
R 009  1 
R0092 
R0093 
R0094 
R 0095 
R0096 
R 009  7 
R0098 
R0099 
R0100 
R010  l 
R0102 


LMDAP 


RESTARTS  ROUTINE 

IMU  MODE  SWITCHING  ROUTINES 

KEYRUPT,  UPRUPT 

DISPLAY  INTERFACE  ROUTINES 

SERVICE  ROUTINES 

ALARM  AND  ABORT 

UPDATE  PROGRAM 

RTB  OP  COOES 


T6-RUPT  PROGRAMS 

DAP  INTERFACE  SUBROUTINES 

DAPIDLER  PROGRAM 

P-AXIS  PCS  AUTOPILOT 

Q.R-AXIS  RCS  AUTOPILOT 

T JET  LAW 

KALMAN  F ILTER 

TRIM  GIMBAL  CONTROL  SYSTEM 

AOSTASK  AND  AOSJOB 

SPS  BACK-UP  RCS  CONTROL 


R0103 
RO 104 
R0105 
R0106 
RO  10  7 


SYM80L  TABLE  LISTING 
UNREFERENCED  SYMBOL  LISTING 
_ERASABLE  £ EQUALS  CROSS-REFERENCE  TABLE 
SUMMARY  OF  SYMBOL  TABLE  LISTINGS 
MEMURY  TYPE  £ AVAILABLITY  DISPLAY 


RO  10  8 
RO  109 
R 0 1 1 0 
RO  1 1 1 

RO  1 1 2 


_£OUNT  TABLE 

PARAGRAPHS  GENERATED  FOR  THIS  ASSEMBLY 
OCTAL  LISTING 
OCCUPIED  LOCATIONS  TABLE 
SUBROS  CALLED  £ PROGRAM  STATUS 


GAP: 

L 

P011  3 

R0114 

R0115 
R0116 
R0117 
RO 1 1 8 
R0119 
R0120 
R012  1 
RO  12  2 
RO  12  3 
RO  12  4 
R0125 
R 0 12  6 
RO  12  7 
RO  12  8 
RO  129 
R0130 
RO  13  1 
R 0 1 3 2 
RO  13  3 
R0134 
R0135 
RO  136 
RO  13  7 
RO  13  8 
R0139 
RO  140 
RO  14  1 
R 0 14  2 
RO  14  3 
RO  14  4 
RO  14  5 
R0146 
RO  14  7 
RO  14  8 
RO  149 
RO  150 
RO  15  1 
RO  15  2 
RO  15  3 
RO  154 
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VER8  LIST  FOR  LUMINARY 


REGULAR  VERBS 


00 

01 

02 

03 

04 

05 

06 
C 7 
OB 

09 

10 

1 l 
12 

13 

14 

15 

16 
17 
1 8 

19 

20 
21 
22 

23 

24 

25 

26 

2 7 
28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 


NOT  IN  USE 

DISPLAY  OCTAL  COMP  1 IN  R1 

DISPLAY  OCTAL  COMP  2 IN  R1 

DISPLAY  OCTAL  COMP  3 IN  R1 

DISPLAY  OCTAL  COMP  1,2  IN  R1.R2 

DISPLAY  OCTAL  COMP  1,2,3  IN  R1,R2,R3 

DISPLAY  DECIMAL  IN  R1  OR  R1.R2  OR  R1,R2,R3 

DISPLAY  DP  DECIMAL  IN  R1,R2  (TEST  ONLY) 


MONITOR  OCTAL  COMP  1 IN  R1 

MONITOR  OCTAL  COMP  2 IN  R1 

MONITOR  OCTAL  COMP  3 IN  R1 

MONITOR  OCTAL  COMP  1,2  IN  RL,R2 

MONITUR  OCTAL  COMP  1,2,3  IN  R1,R2,R3 

MONITOR  OECIMAL  IN  R1  OR  Rl, R2  OR  Rl,R2,R3 

MONITOR  DP  DECIMAL  IN  R1,R2  (TEST  ONLY) 


LOAD  COMPONENT  1 INTO  Rl 
LOAD  COMPONENT  2 INTO  R2 
LOAD  COMPONENT  3 INTO  R3 
LOAD  COMPONENT  1,2  INTO  R1,R2 
LOAD  COMPONENT  1,2,3  INTO  Rl,R2,R3 

DISPLAY  FIXED  MEMORY 


REQUEST  EXECUTIVE 

RFQUEST  WAITLIST 

RECYCLE  PROGRAM 

PROCEED  WITHOUT  DSKY  INPUTS 

TERMINATE  FUNCTION 

TEST  LIGHTS 

REQUEST  FRESH  START 

CHANGE  PROGRAM  (MAJOR  MODE) 


1 61 
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L 

P0155 

R0156 
R0157 
R0158 
RO  169 
RO  160 
R0161 
R0162 
RO  16  3 
RO  169 
RO  16  5 
RO  166 
RO  167 
RO  16  8 
RO  169 
RO  170 
R0171 
R 0 17  2 
R 0 1 73 
KO  17  9 
RO  17  5 
RO  l 76 
R0177 
R0178 
RO  179 
R0180 
R0181 
R0182 
R0183 
R 0 1 8 9 
R0185 
RO  18  6 
RO  18  7 
RO  18  8 
R0189 
R 0 190 
RO  19  1 
RO  192 
R0193 
R 0 19  9 
RO  19  5 
RO  196 
R 0 19  7 
RO  19  8 
R 0 199 
R0200 
R0201 
R0202 
R0203 


(MAIN)  PAGE 

ASSEMBLY  AND  OPERATION  INFORMATION  USER'S  PAGE  NO.  5 EO 

EXTENDED  VERBS 

90  ZERC  CDU-S 

91  COARSE  ALIGN  CDU-S 

92  FINE  ALIGN  IMU 

93  LOAD  IMU  ATT  ERROR  METERS 

99  TERMINATE  RR  CONTINUOUS  DESIGNATE  (V91N72  OPTION  2) 

95 

96 

97  INITIALIZE  AGS  (R97) 

98  REQUEST  DAP  DATA  LOAD  ROUTINE  (R03) 

99  REQUEST  CREW  DEFINED  MANEUVER  ROUTINE  (R62) 

50  PLEASE  PERFORM 

51 

52  MARK  X-RETICLE 

53  MARK  Y-RETICLE 

59  MARK  X OR  Y-RETICLE 

55  INCREMENT  AGC  TIME  (DECIMAL) 

56  TERMINATE  TRACKING  ( P20  + P25) 

57  PERMIT  LANDING  RADAR  UPDATES 

58  INHIBIT  LANDING  RADAR  UPDATES 

59  COMMAND  LR  TO  POSITION  2. 

60  DISPLAY  VEHICLE  ATTITUDE  RATES  ON  FDAI  ERROR  NEEDLES. 

61  DISPLAY  DAP  FOLLOWING  ATTITUDE  ERRORS. 

62  DISPLAY  TOTAL  ATTITUDE  ERRORS  WITH  RESPECT  TO  NOUN  22. 

63  SAMPLE  RADAR  ONCE  PER  SECOND  (R09). 

69  REQUEST  S-BAND  ANTENNA  ROUTINE  (R05) 

65  DISABLE  U AND  V JET  FIRINGS  DURING  DPS  BURNS. 

66  VEHICLES  ARE  ATTACHED.  MOVE  THIS  VEHICLE  STATE  TO  OTHER  VEHICLE. 

67  DISPLAY  W MATRIX 

68  DISABLE  TERRAIN  MCDEL 

69  CALSE  RESTART 

70  UPCATE  LIFTOFF  TIME 

71  UNIVERSAL  UPDATE-BLOCK  ADR 

72  UNIVERSAL  UPDATE-SINGLE  ADR 

73  UPCATE  AGC  TIME  (OCTAL) 

79  INITIALIZE  ERASABLE  DUMP  VIA  DOWNLINK 

75  ENABLE  U AND  V JET  FIRINGS  DURING  DPS  BURNS. 

76  MINIMUM  IMPULSE  COMMAND  MODE 

77  RATE  COMMAND  AND  ATTITUOE  HOLD  MODE 

78  LR  SPURIOUS  RETURN  TEST  START  (R77) 

79  LR  SPURIOUS  RETURN  TEST  STOP 

80  UPCATE  LEM  STATE  VECTOR 

81  UPCATE  CSM  STATE  VECTOR 

82  RFCUEST  ORBIT  PARAM  DISPLAY  (R30) 

83  REQUEST  REND  PARAM  DISPLAY  (R31) 

89 

85  DISPLAY  RR  LOS  AZ  AND  ELEV 

86 
37 
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R0204 
R0205 
R0206 
R0207 
R0208 
R0209 
R0210 
R021  1 
R0212 
R0213 
R 0 2 1 A 
R021  5 


ASSEMBLY  AND  OPERATION  INFORMATION 

88 

89  REQUEST  RENDEZVOUS  FINAL  ATTITUDE  ROUTINE  (R63) 

90  REQUEST  RENDEZVOUS  OUT  OF  PLANE  DISPLAY  ROUTINE  (R36) 

91  DISPLAY  BANK  SUM 

92  OPERATE  IMU  PERFORMANCE  TEST  (P07I 

93  ENABLE  W MATRIX  INITIALIZATION 

94 

95  NO  UPDATE  OF  EITHER  STATE  VECTOR  ( P20  OR  P22) 

96  INTERRUPT  INTEGRATION  AND  GO  TC  POO 

97  PERFORM  ENGINE  FAIL  PROCEDURE 
58 

99  PLEASE  ENABLE  ENGINE 
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P0216  IN  THE  FOLLOWING  NOUN  LIST  THE  :N0  LOAO:  RESTRICTION  MEANS  THE  NOUN 
R02I7  CONTAINS  AT  LEAST  ONE  COMPONENT  WHICH  CANNOT  BE  LOADEO,  I.E.  OF 
R 02 1 d SCALE  TYPE  L (MIN/SEC),  PP  12  INTEGERS)  OR  TT  (LANDING  RADAR  POSITION). 

R0219  IN  THIS  CASE  VERBS  24  AND  25  ARE  NOT  ALLOWED,  BUT  VERBS  21,  22  OP  23 

R0220  MAY  BE  USED  TO  LOAD  ANY  OF  THE  NOUN:S  COMPONENTS  WHICH  ARE  NOT  OF  THE 
R0221  ABOVE  SCALE  TYPES. 

R0222  THE  :DEC  ONLY:  RESTRICTION  MEANS  ONLY  DECIMAL  OPERATION  IS  ALLOWED  ON 
R0223  EVERY  COMPONENT  IN  THE  NOUN.  (NOTE  THAT  : NO  LOAO:  IMPLIES  :DEC  ONLY:.) 

R0224  NORMAL  NOUNS  COMPONENTS  SCALE  AND  DECIMAL  POINT  RESTRICTIONS 


R0226 

00 

NOT  IN  USE 

R0227 

01 

SPECIFY  MACHINE  ADDRESS  (FRACTIONAL) 

3C0MP 

. XXXXX 

FOR 

EACH 

R022  8 

02 

SPECIFY  MACHINE  ADDRESS  (WHOLE) 

3C0MP 

XXXXX. 

FOR 

EACH 

R0229 

03 

SPECIFY  MACHINE  ADDRESS  (DEGREES) 

3C0MP 

XXX. XX 

DEG 

FOR 

EACH 

R0230 

04 

ANGULAR  ERROR/DIFFERENCE 

1C0MP 

XXX. XX 

DEG 

R0231 

05 

ANGULAR  ERROR/DIFFERENCE 

1 COMP 

XXX. XX 

DEG 

R0232 

06 

OPTION  CODE 

3C0MP 

OCTAL 

ONLY 

FOR 

EACH 

R0233 

LOADING  NOUN  07  WILL  SET  OR  RESET  SELECTED 

BITS  IN 

ANY  ERASABLE  REGISTER 

R0234 

C 7 

ECADR  OF  WORD  TO  BE  MODIFIED 

3C0MP 

OCTAL 

ONLY 

FOR 

EACH 

R0235 

ONES  FOR  BITS  TO  BE  MODIFIED 

R0236 

1 TO  SET  OR  0 TO  RESET  SELFC  TED  BITS 

R0237 

C 8 

ALARM  DATA 

3C0MP 

OCTAL 

ONLY 

FOR 

EACH 

R023C 

09 

ALARM  CODES 

3C0MP 

OCTAL 

ONLY 

FOR 

EACH 

R0239 

10 

CHANNEL  TO  BE  SPECIFIED 

1 COMP 

OCTAL 

ONLY 

R0240 

1 1 

TIG  OF  CSI 

3C0MP 

OOXXX. 

HRS 

DEC 

ONLY 

R0242 

OOOXX. 

MIN 

MUST 

LOAD 

R0244 

OXX  .XX 

SEC 

R0245 

12 

OPTION  CODE 

2C0MP 

OCTAL 

ONLY 

FOR 

EACH 

R0246 

(USED  BY  EXTENDED  VERBS  ONLY) 

R024  7 

13 

TIG  OF  CDH 

3C0MP 

OOXXX. 

HRS 

DEC 

ONLY 

R0249 

OOOXX. 

MIN 

MUST 

LOAD 

R0251 

OXX . XX 

SEC 

R0252 

14 

CHECKLIST 

3C0MP 

XXXXX. 

FOR 

EACH 

R0253 

(USED  BY  EXTENDED  VERBS  ONLY) 

R0254 

(NOUN  25  IS  PASTED  AFTER  DISPLAY) 

R0255 

15 

INCREMENT  MACHINE  ADDRESS 

1 COMP 

OCTAL 

ONLY 

R0256 

16 

TIME  OF  EVENT 

3C0MP 

OOXXX. 

HRS 

OEC 

ONLY 

R0258 

(USED  BY  EXTENDED  VERBS  ONLY) 

oooxx. 

MIN 

MUST 

LOAD 

R0260 

oxx. xx 

SEC 

R026  1 

1 7 

SPARE 

R0262 

13 

AUTO  MANEUVER  BALL  ANGLES 

3C0MP 

XXX . XX 

DEG 

FOR 

EACH 

R0263 

19 

SPARE 

R0264 

20 

I CDL  ANGLES 

3C0MP 

XXX  .XX 

DEG 

FOR 

EACH 

R0265 

21 

P IPAS 

3C0MP 

XXXXX. 

PULSES  FOR  EACH 

R0267 

22 

NEW  I CDU  ANGLES 

3C0MP 

XXX. XX 

DEG 

FOR 

EACH 

R0268 

23 

SPARE 

R0269 

24 

DELTA  TIME  FOR  AGC  CLOCK 

3C0MP 

OOXXX. 

HRS 

DEC 

ONLY 

R0271 

oooxx. 

MIN 

MUST 

LOAD 

R0273 

OXX. XX 

SEC 

PAGE 

EO 


COMPS 

COMPS 


COMPS 


COMPS 
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EO 


R0274 

25 

CHECKLIST 

3C0MP 

R0275 

R0276 

26 

USED  WITH  PLEASE  PERFORM  ONLY) 
PRIORITY/DELAY,  AORES,  BBCON 

3C0MP 

R0277 

27 

SELF  TEST  ON/OFF  SWITCH 

ICOMP 

R0278 

28 

SPARE 

R0279 

29 

SPARE 

K0280 

30 

SPARE 

R0281 

31 

SPARE 

R0282 

32 

TIME  FROM  PERIGEE 

3C0MP 

R0284 

R0286 

R0287 

33 

TIME  OF  IGNITION 

3C0MP 

R0289 

R0291 

R0292 

3A 

TIME  OF  EVENT 

3C0MP 

R029A 

R0296 

R0297 

35 

TIME  FROM  EVENT 

3C0MP 

R0299 

R0301 

R0302 

36 

TIME  OF  AGC  CLOCK 

3C0MP 

R0304 

R0306 

R0307 

37 

TIG  OF  TP  I 

3C0MP 

R0309 
R031  1 
R0312 

38 

TIME  OF  STATE  BEING  INTEGRATED 

3C0MP 

R0314 
R0316 
R031  7 

39 

SPARE 

XXXXX.  FOR  EACH 

OCTAL  ONLY  FOR  EACH 
XXXXX. 


OOXXX. 

HRS 

DEC  ONLY 

OOOXX. 

MIN 

MUST  LOAD 

3 

COM  P S 

OXX.XX 

SEC 

OOXXX. 

HRS 

DEC  ONLY 

oooxx. 

MIN 

MUST  LOAD 

3 

COMPS 

OXX.XX 

SEC 

ooxxx. 

HRS 

DEC  ONLY 

oooxx. 

MIN 

MUST  LOAD 

3 

COMPS 

oxx.xx 

SEC 

ooxxx. 

HRS 

DEC  ONLY 

oooxx. 

MIN 

MUST  LOAD 

3 

COMPS 

oxx.xx 

SEC 

ooxxx. 

HRS 

DEC  ONLY 

oooxx. 

MIN 

MUST  LOAD 

3 

COMPS 

oxx  .XX 

SEC 

OOXXX. 

HRS 

DEC  ONLY 

oooxx. 

MIN 

MUST  LOAD 

3 

COMPS 

oxx.xx 

SEC 

ooxxx. 

HRS 

DEC  ONLY 

oooxx. 

MIN 

MUST  LOAD 

3 

COMPS 

oxx.xx 

SEC 
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P0318 

MI XEO  NOUNS 

COMPONENTS 

SCALE 

AND  DECIMAL  POINT 

RESTRICTIONS 

R0320 

40 

TIME  FROM  IGNITION/CUTOFF 

3C0MP 

XX8XX 

MIN/SEC 

NO  LOAD,  DEC 

ONLY 

R032  2 

VG, 

XXXX.X 

FT/SEC 

P0323 

DELTA  V (ACCUMULATED) 

XXXX.X 

FT/SEC 

R0324 

41 

TARGET  AZIMUTH, 

2C0MP 

XXX. XX 

DEG 

(FOR  SYSTEM 

TEST) 

R0326 

FLEVATION 

XX. XXX 

DEG 

R0327 

42 

APCGEE , 

3C0MP 

XXXX.X 

NAUT  MI 

OEC  ONLY 

R0329 

PERIGEE, 

XXXX.X 

NAUT  MI 

R0330 

DELTA  V (REQUIRECI 

XXXX.X 

FT/SEC 

R033  1 

43 

LATITUDE, 

3C0MP 

XXX  .XX 

DEG 

DEC  ONLY 

R0333 

LCNGITUDE, 

XXX  .XX 

DEG 

R0334 

ALTITUDE 

XXXX.X 

NAUT  MI 

R0335 

44 

APOGEE, 

3C0MP 

XXXX.X 

NAUT  MI 

NO  LOAD,  DEC 

ONLY 

R0337 

PER  IGEE , 

XXXX.X 

NAUT  MI 

R0338 

TFF 

X X B XX 

MIN/SEC 

R0339 

45 

MARKS  , 

3C0MP 

xxxxx. 

NO  LOAD,  DEC 

ONLY 

R0341 

I F I OF  NEXT  BURN 

XXBXX 

MIN/SEC 

R 0342 

MG  A 

XXX  .XX 

DEG 

R034  3 

46 

AUTOPILOT  CONFIGURATION 

2C0MP 

OCTAL 

ONLY 

R0343 l 

CHANNEL  BIT  FAILURE  PROTECTION  WORD 

OCTAL 

UNLY 

R034  4 

4 7 

LEM  WEIGHT, 

2 COMP 

XXXXX. 

LBS 

DEC  ONLY 

R034  6 

CSM  WEIGHT 

xxxxx. 

LBS 

R0347 

48 

GIMBAL  PITCH  TRIM, 

2 COMP 

XXX  .XX 

DEG 

DEC  ONLY 

R0349 

GIMBAL  ROLL  TRIM 

XXX. XX 

DEG 

R0350 

49 

DELTA  R, 

3C0MP 

XXX  .XX 

NAUT  MI 

DEC  ONLY 

R0352 

DELTA  V, 

XXXX.X 

FT/SEC 

R03521 

RACAR  DATA  SOURCE  CODE 

XXXXX. 

R0353 

50 

SPARE 

R0354 

51 

S-BAND  ANTENNA  ANGLES  PITCH 

2 COMP 

XXX .XX 

DEG 

DEC  ONLY 

R0356 

YAW 

XXX .XX 

DEG 

RQ357 

52 

CENTRAL  ANGLE  OF  ACTIVE  VEHICLE 

l COMP 

XXX  .XX 

DEG 

R0358 

53 

SPARE 

R0359 

54 

RANGE , 

3C0MP 

XXX. XX 

NAUT  MI 

OEC  ONLY 

RO  36  l 

RANGE  RATE, 

XXXX.X 

FT/SEC 

R0362 

THETA 

XXX. XX 

DEG 

R0363 

55 

NO.  OF  APSIDAL  CROSSINGS 

3C0MP 

xxxxx. 

OEC  ONLY 

R0365 

ELEVATION  ANGLE 

XXX. XX 

DEG 

R0366 

CENTRAL  ANGLE  OF  PASSIVE  VEHICLE 

XXX. XX 

DEG 

R0367 

56 

RR  LOS  AZIMUTH 

2 COMP 

XXX .XX 

DEG 

R0368 

ELEVAT ION 

XXX. XX 

DEG 

R0369 

57 

SPARE 

R037  l 

58 

PERIGEE  ALT  (POST  TPI  ) 

3C0MP 

XXXX.X 

NAUT  MI 

DEC  ONLY 

R0373 

DELTA  V TPI 

XXXX.X 

FT/SEC 

R 0 3 7 4 

DELTA  V TPF 

XXXX.X 

FT/SEC 

R0375 

59 

DELTA  VELOCITY  LOS 

3C0MP 

XXXX.X 

FT/SEC  FOR  EA. 

DEC  ONLY 

R0377 

60 

FORWARD  VELOCITY 

3 COMP 

XXXX.X 

FT/SEC 

DEC  ONLY 

R0379 

ALTITUDE  RATE 

XXXX.X 

FT/SEC 

R0380 

COMPUTED  ALTITUDE 

xxxxx. 

FEET 

R0361 

61 

TIME  TO  GO  IN  BRAKING  PHASE 

3C0MP 

XXBXX 

MIN/SEC 

NO  LOAD,  DEC 

ONLY 
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R0383 

R0384 

R0385 

62 

TIME  FROM  IGNITION 
CPCSS  RANGE  DISTANCE 
ABSOLUTE  VALUE  OF  VELOCITY 

3C0MP 

R0387 

R0388 

R0389 

63 

TIME  FROM  IGNITION 
DELTA  V I ACCUMULATED) 

LR  ALTITUDE  MINUS  COMPUTED  ALTITUDE 

3C0MP 

R0391 
R0392 
R 039  3 

64 

ALTITUDE  RATE 
COMPUTED  ALTITUDE 

TIME  LEFT  FOR  RE DES I GNAT  I ON-  L PD  ANGLE 

3C0MP 

R0395 

R0396 

R0397 

65 

ALTITUDE  RATE 
COMPUTED  ALTITUDE 
SAMPLED  AGC  TIME 

3C0MP 

R0399 

R0401 

R0402 

66 

(FETCHED  IN  INTERRUPT) 
LK  RANGE 

2C0MP 

R0404 

R0405 

67 

POSI  HON 
LRVX 

3C0MP 

R0406 
R040  7 
R 040  8 

68 

LRVY 

LRVZ 

SM  Z-AXIS  RANGE  TO  LANDING  SITE 

3C0MP 

R0410 
R04 1 1 
R0412 

69 

TIME  TO  GO  IN  BRAKING  PHASE 

ABSOLUTE  VALUE  OF  VELOCITY 

LANDING  SITE  CORRECTION,  Z-COMPONENT 

3C0MP 

R0412  1 
R04122 
R0413 

70 

LANDING  SITE  CORRECTION,  Y— COMPONENT 
LANDING  SITE  CORRECTION,  X-CCMPONENT 
ACT  DETENT  CODE/STAR  CODE 

3C0MP 

R041  4 

71 

AO T DETENT  CODE/STAR  COOE 

3C0MP 

R041  5 

72 

RR  360  - TRUNNION  ANGLE 

2C0MP 

R0416 

R0417 

73 

SHAFT  ANGLE 

NEW  RR  360  - TRUNNION  ANGLE 

2C0MP 

R0418 

R0419 

74 

SHAFT  ANGLE 
TIME  FROM  IGNITION 

3C0MP 

R0421 

R0422 

R0423 

75 

YAW  AFTER  VEHICLE  RISE 
PITCH  AFTER  VEHICLE  RISE 
DELTA  ALTI TUDE  CDH 

3CGMP 

R0425 

R0426 

R0427 

76 

DELTA  TIME  (COH-LSI  OR  TPI-CDH) 
DELTA  TIME  (TPI-CDH  OR  TPI-NCMTPI) 
DESIRED  HORIZONTAL  VELOCITY 

3C0MP 

R0429 

R04291 

R0430 

7 7 

DESIRED  RADIAL  VELOCITY 
C RCSS-RANG  E DISTANCE 
TIME  TO  ENGINE  CUTOFF 

3C0MP 

R0432 

R04325 

R0433 

78 

V GY  (BODY) 

ABSOLUTE  VALUE  OF  VELOCITY 
RR  RANGE 

3CQMP 

R0434 
R0434 1 
R043  5 

79 

RANGE  RATE 
TIME  FRUM  IGNITION 
CURSOR  ANGLE 

3C0MP 

R0437 

R0438 

R0439 

80 

SPIRAL  ANGLE 
POSITION  CODE 
DATA  INDICATOR, 

2C0MP 

XXBXX 

MIN/SEC 

XXXX. X 

NAUT  MI 

XXXX  .X 

FT/SEC 

NO  LOAD, 

DEC 

ONLY 

XXBXX 

MIN/SEC 

XXXX.X 

FT/SEC 

XXXXX . 

FEET 

DEC  ONLY 

XXXX.X 

FT/SEC 

XXXXX . 

FEET 

XX8XX 

NO  LOAD, 

DEC 

ONLY 

XXXX.X 

FT/SEC 

XXXXX. 

FEET 

ooxxx. 

HRS 

DEC  ONLY 

oooxx. 

MIN 

MUST  LOAD  3 

COMPS 

oxx.xx 

SEC 

XXXXX. 

FEET 

NO  LOAO, 

DEC 

ONLY 

+0000X 

XXXXX. 

FT/SEC 

XXXXX. 

FT/SEC 

XXXXX. 

FT/SEC 

XXXX.X 

N AUT  MI 

NO  LOAD, 

DEC 

ONLY 

XXBXX 

MIN/SEC 

XXXX.X 

FT/SEC 

XXXXX. 

FEET 

DEC  ONLY 

XXXXX. 

FEET 

XXXXX. 

FEET 

OCTAL  1 

ONLY  FOR  EACH 

OCTAL  1 

ONLY  FOR  EACH 

XXX . XX 

DEG 

XXX. XX 

DEG 

XXX. XX 

DEG 

XXX. XX 

DEG 

XXBXX 

MIN/SEC 

NO  LOAD, 

DEC 

ONLY 

XXX. XX 

OEG 

XXX. XX 

DEG 

XXXX.X 

NAUT  MI 

NO  LOAD, 

DEC 

ONLY 

XXBXX 

MIN/SEC 

XXBXX 

MIN/SEC 

XXXX.X 

FT/SEC 

DEC  ONLY 

XXXX.X 

FT/SEC 

XXXX.X 

NAUT  MI 

XXBXX 

MIN/SEC 

NO  LOAD, 

DEC 

ONLY 

XXXX.X 

FT/SEC 

XXXX.X 

FT/SEC 

XXX .XX 

NAUT  MI 

NO  LOAD, 

DEC 

ONLY 

XXXX.X 

FT/SEC 

XXBXX 

MIN/SEC 

XXX. XX 

DEG 

DEC  ONLY 

XXX .XX 

DEG 

XXXXX. 

XXXXX. 
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DEC  ONLY 
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P 044  3 

82 

DELTA  V I L V ) 

3C0MP 

XXXX.X 

FT/SEC  FOR 

EACH 

DEC 

ONLY 

R 044  5 

83 

OELTA  V (BODY) 

3C0MP 

XXXX.X 

FT/SEC  FOR 

EACH 

DEC 

ONLY 

RO  44  7 

84 

DELTA  V (OTHER  VEHICLE) 

3 COMP 

XXXX.X 

FT/SEC  FOR 

EACH 

DEC 

ONLY 

R0449 

85 

VG  (BODY) 

3C0MP 

XXXX.X 

FT/SEC  FOR 

EACH 

DFC 

ONLY 

R0451 

86 

VG  (LV) 

3C0MP 

XXXX.X 

FT/SEC  FOR 

EACH 

DEC 

ONLY 

R0453 

87 

BACKUP  OPTICS  LOS  AZIMUTH 

2C0MP 

XXX  .XX 

DEG 

R0454 

ELEVATION 

XXX. XX 

DEG 

R0455 

88 

HALE  UNIT  SUN  OR  PLANET  VECTOR 

3 COMP 

. xxxxx 

FOR  EACH 

DEC 

ONLY 

R045  7 

89 

LANDMARK  LATITUDE 

3C0MP 

XX. XXX 

DEG 

DEC 

ONLY 

R0459 

LONG  ITUDE/2 

XX. XXX 

DEC 

R 0 46  0 

ALTITUDE 

XXX. XX 

NAUT  MI 

R0461 

90 

Y 

3 COMP 

XXX .XX 

NM 

DEC 

ONLY 

R0463 

Y DOT 

XXXX.X 

EPS 

R0464 

PSI 

XXX  .XX 

DEG 

R0465 

91 

ALTITUDE 

3C0MP 

XXXXXB 

. NAUT  MI 

R0465  l 

VELOCITY 

xxxxx. 

FT/SEC 

R 046 5 2 

FLIGHT  PATH  ANGLE 

XXX  .XX 

DEG 

R 046  6 

92 

PC T F TP ( 10 , 5KLB)  AT  PRESENT  THRUST 

3C0MP 

XXXXX. 

R04661 

ALTITUDE  RATE 

XXXX.X 

FT/SEC 

R04662 

COMPUTED  ALTITUDE 

XXXXX. 

FEET 

R0467 

93 

OELTA  GYRO  ANGLES 

3C0MP 

XX. XXX 

DEG  FOR  EACH 

R0468 

94 

VGX  (BODY) 

3C0MP 

XXXX.X 

FT/SEC 

NO  1 

LOAD,  DEC 

R 046  8 2 

ALTITUDE  RATE 

XXXX.X 

FT/SEC 

R046R3 

CCMPUTEO  ALTITUDE 

xxxxx. 

FEET 

R0469 

95 

SPARE 

R0470 

96 

SPARE 

R047  1 

97 

SYSTEM  TEST  INPUTS 

3C0MP 

xxxxx. 

FOR  EACH 

R0472 

98 

SYSTEM  TEST  RESULTS  AND  INPUTS 

3C0MP 

xxxxx. 

R 047  3 

. xxxxx 

R 0474 

xxxxx . 

R0475 

99 

RMS  IN  POSITION 

3 COMP 

XXXXX.  1 

FT 

DFC 

ONLY 

R0477 

RMS  IN  VELOCITY 

XXXX.X 

FT/SEC 

R04771 

RMS  IN  BIAS 

XX. XXX 

RADIANS 

PAGE  13 
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R 047  9 

NOUN 

REGISTER 

SCALE 

R 048  C 

00 

NOT  IN 

USE 

R048  1 

01 

SPECIFY  ADDRESS 

B 

R0482 

02 

SPECIFY  ADDRESS 

C 

R 048  3 

03 

SPECIFY  ADDRESS 

0 

R0484 

04 

DSPTEM1 

H 

R048  5 

C 5 

DSPTEM1 

H 

R0486 

06 

OPT  I ONI 

A 

R0487 

C7 

XREG 

A 

R048  8 

08 

ALMCADR 

A 

R0489 

09 

FAILREG 

A 

R0490 

10 

SPECIFY  CHANNEL 

A 

R0491 

11 

TCS  I 

K 

R0492 

12 

OPTIONX 

A 

R0493 

13 

TCDH 

K 

R0494 

14 

DSPTEMX 

C 

R0495 

15 

INCREMENT  ADDRESS 

A 

R0496 

16 

DSPTFMX 

K 

R 049  7 

17 

SPARE 

R 049  8 

18 

FDA  IX 

D 

R 0499 

19 

SPARE 

R0500 

20 

CDUX 

D 

R050  l 

21 

P IPAX 

C 

R0502 

22 

THETAD 

D 

R0503 

23 

SPARE 

R0504 

24 

DSPTEM2  +1 

K 

R0505 

25 

DSPTEM1 

C 

R0506 

26 

DSPTEM1 

A 

R0507 

2 r 

SMODE 

C 

R0508 

28 

SPARE 

R0509 

29 

SPARF 

R0510 

30 

SPARE 

R051  l 

31 

SPARE 

R0512 

32 

- TPFR 

K 

R0513 

33 

TIG 

K 

R0514 

34 

DSPTEM1 

K 

R051  5 

35 

TTOGO 

K 

R0516 

36 

T I ME  2 

K 

R051  7 

37 

TTP  I 

K 

R0518 

38 

TET 

K 

R0519 

39 

SPARE 
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P0520 

REGISTERS  AND 

SCALING  FOR  MIXED 

NOUNS 

R052  1 

NOUN 

COMP 

REGISTER 

SCALE 

R0522 

40 

l 

ttogo 

L 

R 052  3 

2 

VGDI SP 

S 

R0524 

3 

DVTOT  AL 

S 

R0525 

41 

1 

DSPTEM1 

D 

R0526 

2 

DSPTEM1  +1 

E 

R0527 

42 

1 

HAPO 

Q 

R0528 

2 

HPEP. 

0 

R0529 

3 

VGDI SP 

S 

R0530 

43 

1 

LAT 

H 

R0531 

2 

LONG 

H 

R0532 

3 

ALT 

Q 

R0533 

44 

1 

HAPOX 

0 

R0534 

2 

HPERX 

0 

R0535 

3 

TFF 

L 

R0536 

45 

1 

TRKMKCNT 

C 

R0537 

2 

TTOGO 

L 

R0538 

3 

+ MGA 

H 

R0539 

46 

1 

DAPDATR1 

A 

R05391 

2 

CHANBKUP 

A 

R0540 

47 

1 

LEMMASS 

KK 

R0541 

2 

CSMMASS 

KK 

R0542 

43 

1 

P ITT IME 

NN 

R0543 

2 

ROLLTIME 

NN 

R0  54  4 

49 

1 

R22DISP 

JJ 

R0545 

2 

R22DISP  +2 

S 

R0545  1 
R0546 

50 

3 

SPARE 

WHCHREAD 

c 

R0547 

51 

1 

ALPHASB 

H 

R0548 

2 

BET  ASB 

H 

R0549 

R0550 

52 

53 

1 

SPARE 

ACTCENT 

H 

R0551 

54 

1 

RANGE 

J J 

R0552 

2 

RRATE 

S 

R0553 

3 

RTHETA 

H 

R0  55  4 

55 

1 

NN 

C 

R0555 

2 

ELEV 

H 

R0556 

3 

CENTANG 

H 

R0557 

56 

1 

RR-A7 

H 

R0558 

R0559 

57 

2 

SPARE 

RR-ELEV 

H 

R0560 

58 

1 

POSTTPI 

C 

R056  1 

2 

DELVTPI 

s 

R0562 

3 

DELVTPF 

s 

R0563 

59 

1 

DVLOS 

s 

R0564 

2 

DVLOS  +2 

s 

R0565 

3 

DVLOS  +4 

s 

TYPF 


17:11  MAR. 

USE 


19,1971 

(MAIN 

R'S  PAGE  NO. 

14 

PAGE  15 
EO 


GAP: 

ASSEMBLE 
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R0566 

60 

l 

FOP VEL 

ZZ 

R0567 

2 

HOOTO ISP 

S 

R0568 

3 

HCALC1 

RR 

R0569 

61 

1 

TTFDISP 

L 

R0570 

2 

TTOGO 

L 

R0571 

3 

OUTOFPLN 

QQ 

R0572 

62 

1 

ABVEL 

S 

R057  3 

2 

TTOGC 

L 

R0574 

3 

DVTOTAL 

S 

R0575 

63 

1 

DELTAH 

RR 

R0576 

2 

HOOTOISP 

S 

R0577 

3 

HCALC  1 

RR 

R0578 

64 

1 

FUNNYDSP 

PP 

R0579 

2 

HOOTOISP 

S 

R0580 

3 

HCALC 

RR 

R058  1 

65 

1 

SAMPTIME 

K 

R0582 

2 

SAMPTIME 

K 

R0583 

3 

SAMPT  IME 

K 

R0584 

66 

1 

RSTACK  +6 

W 

R0585 

2 

CHANNEL  33 

TT 

R0586 

67 

1 

RSTACK 

X 

R0587 

2 

RSTACK  +2 

Y 

R0588 

3 

RSTACK  +4 

Z 

R0589 

68 

1 

RANGEDSP 

QQ 

R0590 

2 

TTFDISP 

L 

R0591 

3 

ABVEL 

s 

R0592 

69 

1 

DLANDZ 

RR 

R0592 1 

2 

DLANOY 

RR 

R05922 

3 

OLANDX 

RR 

R0593 

70 

1 

AOTCCDE 

A 

R0594 

2 

AOTCODE  +1 

A 

R0595 

3 

AOTCODE  +2 

A 

R0596 

71 

1 

AOTCODE 

A 

R0597 

2 

AOTCOOE  +1 

A 

R 059  8 

3 

AOTCODE  +2 

A 

R0599 

72 

l 

CDUT 

WW 

R0600 

2 

CDUS 

D 

R 060  1 

73 

1 

TANG 

WW 

R0602 

2 

TANG  +1 

D 

R0603 

74 

1 

TTOGO 

L 

R0604 

2 

YAW 

H 

R060  5 

3 

PITCH 

H 

R0606 

75 

1 

DIFFALT 

C 

R0607 

2 

T1T0T2 

L 

R0608 

3 

T2T0T3 

L 

R0609 

76 

1 

Z DOT  0 

S 

R0610 

2 

ROOT  D 

S 

R06101 

3 

XRANGE 

G 

R061  1 

77 

1 

TTOGO 

L 

R0612 

2 

VGBODY  +2 

S 
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R06125 

3 

ABVEL 

R0613 

78 

1 

DNRRANGE 

R0614 

2 

DNRRDOT 

R061  A 1 

3 

TTOT IG 

R061  5 

79 

1 

CURSOR 

R0616 

2 

SPIRAL 

R0617 

3 

POSCODE 

R0618 

80 

l 

DATAGOOD 

R0619 

2 

OMEGAD 

R0620 

81 

1 

DELVLVC 

R062  1 

2 

DELVLVC  +2 

R0622 

3 

DELVLVC  +4 

R0623 

82 

1 

DELVLVC 

R0624 

2 

DELVLVC  +2 

R0625 

3 

DELVLVC  +4 

R0626 

83 

1 

DEL  V I MU 

R062  7 

2 

DELVIMU  +2 

R0  62  8 

3 

DELVIMU  +4 

R0629 

84 

1 

OELVOV 

R0630 

2 

DELVOV  +2 

R0631 

3 

DELVOV  +4 

R0632 

85 

1 

VGBODY 

R0633 

2 

VGBODY  +2 

R0634 

3 

VGBODY  +4 

R0635 

86 

1 

DELVLVC 

R0636 

2 

DELVLVC  +2 

R063  7 

3 

DELVLVC  +4 

R0638 

87 

X 

AZ 

R0639 

2 

EL 

R0640 

88 

1 

STARAD 

R0641 

2 

STARAD  +2 

R0642 

3 

STARAD  +4 

R0643 

89 

1 

LANDLAT 

R0644 

2 

LANDLONG 

R0645 

3 

LANDALT 

R0646 

90 

1 

RANGE 

R0647 

2 

RR  ATE 

R064  8 

3 

RTHETA 

R0649 

91 

1 

P21ALT 

R0649  1 

2 

P21VEL 

R06492 

3 

P21GAM 

R0650 

92 

1 

THRD I SP 

R0650  l 

2 

HDOTDISP 

R06502 

3 

HCALC1 

R0651 

93 

1 

OGC 

R0652 

2 

OGC  +2 

R 065  3 

3 

OGC  +4 

R0654 

94 

1 

VGBODY 

R06542 

2 

HDOTDISP 

R06543 

3 

HCALC 

S 

U 

V 

L 

D 

D 

C 

C 

H 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

D 

D 

B 

B 

B 

G 

G 

JJ 

JJ 

S 

H 

0 ( MEMORY /100  TO  DIPLAY  TENS  N.M.) 
P 
H 
C 

s 

RR 

G 

G 

G 

S 

S 

RR 
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ASSEMBLY 

R0655 

95 

R 065  6 

S6 

R065  1 

57 

R0658 

R0659 

R0660 

98 

R0661 

R0662 

R0663 

99 

R0664 

R0664 1 

RATION  INFORMATION 


DSPTEM1 

C 

USPTEM1 

+ 1 

C 

DSPTEM1 

+ 2 

C 

0SPTEM2 

C 

DSPTEM2 

+ 1 

B 

DSPTEM2 

+ 2 

C 

WWPOS 

XX 

WWVEL 

YY 

WWBI AS 

AAA 

ANO  OPE 

SPARE 

SPARE 

1 

2 

3 

l 

2 

3 

1 

2 

3 
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PAGE  19 


P0665  NOUN  SCALES  AND  FORMATS 


R0666 

-SCALE  TYPE- 

PRECISION 

R 066  7 
R0668 

UNITS 

DECIMAL  FORMAT 

— 

AGC  FORMAT 

R066  9 

-A- 

R0670 

OCTAL 

XXXXX 

SP 

OCTAL 

R0671 

-13- 

-14 

R0672 

FRACTIONAL 

•XXXXX 

SP 

BIT  1 = 2 UNITS 

R0673 

(MAX  .99996) 

R0674 

-C- 

R0675 

WHCLE 

XXXXX. 

SP 

BIT  1 = 1 UNIT 

R0676 

(MAX  16383.) 

R0677 

-D- 

15 

R0678 

CDU  DEGREES 

XXX. XX  DEGREES 

SP 

BIT  1 = 360/2  DEGREES 

R0679 

(MAX  359.99) 

(USES  15  BITS  FOR  MAGNI 

R0680 

TUDE  AND  2— S COMP. ) 

R0681 

-E- 

14 

R0682 

ELEVATION  DEGREES 

XX. XXX  DEGREES 

SP 

BIT  1 = 90/2  DEGREES 

R0683 

(MAX  89.999) 

R0684 

-F- 

14 

R0685 

DEGREES  (180) 

XXX. XX  DEGREES 

SP 

BIT  1 = 180/2  OEGREES 

R0686 

(MAX  179.99) 

R0687 

-G- 

R0688 

DP  DEGREES ( 90 ) 

XX. XXX  DEGREES 

DP 

BIT  1 OF  LOW  REGISTER  = 

R0689 

28 

R0690 
R069  1 

-H- 

360/2  DEGREES 

R0692 

DP  DECREES  (360) 

XXX. XX  DEGREES 

OP 

BIT  1 OF  LOW  REGISTER  = 

R0693 

28 

R0694 

(MAX  359.99) 

360/2  DEGREES 

GAP:  ASSEMBLE  REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161 


17:11  MAR.  19,1971 


( MAIN  ) 


ASSEMBLY  AND  OPERATION  INFORMATION 


USFR' S PAGE  NO.  18 


GAP:  ASSEMBLE  REVISION  210  OF  AoC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L ASSEMBLY  AND  OPERATION  INFORMATION 


P0695 

-K- 

R 0696 

T I ME  (HR,  MIN,  SEC) 

OOXXX.  HR 

DP 

BIT  1 OF  LOW  REGISTER 

R0697 

OOOXX.  MIN 

-2 

R0698 

OXX.XX  SEC 

10  SEC 

R0699 

(DECIMAL  ONLY. 

R0700 

MAX  MIN  C0MP=59 

R0701 

MAX  SEC  C0MP=59 . 99 

R0702 

MAX  CAPAC  I TY=745  HRS 

R 0703 

39  MINS 

R0704 

14.55  SECS 

R0705 

WHEN  LOADING,  ALL  3 

R0706 

COMPONENTS  MUST  BE 

R0707 

SUPPL  IED  . ) 

R0708 

-L- 

R0709 

T I ME  (MIN/SEC) 

XXBXX  MIN/SEC 

DP 

BIT  1 OF  LOW  REGISTER 

R0710 

(8  IS  A BLANK 

-2 

R071  1 

POSITION,  OECIMAL 

10  SEC 

R0712 

ONLY,  DISPLAY  OR 

R0713 

MONITOR  ONLY.  CANNOT 

R071  A 

BE  LOADED. 

R0715 

MAX  MIN  COM P = 59 

R071  6 

MAX  SEC  C0MP=59 

R0717 

VALUES  GREATER  THAN 

R071  8 

59  MIN  59  SEC 

RO  71  9 

ARE  DISPLAYED  AS 

R0720 

59  MIN  59  SEC.  ) 

R072  1 

-M- 

-2 

R0722 

T I ME  (SEC) 

XXX. XX  SEC 

SP 

BIT  1 = 10  SEC 

R0723 

(MAX  163.83) 

RO  724 

—N— 

R0725 

T I ME ( SEC  ) DP 

XXX. XX  SEC 

DP 

BIT  1 OF  LOW  REGISTER 

R0726 

-2 

R0727 

10  SFC 

R0728 

-P- 

R0729 

VELOCITY  2 

XXXXX.  FEET/SEC 

DP 

BIT  1 OF  HIGH  REGISTER 

R0730 

(MAX  41994. ) 

-7 

RO  73  1 

2 METERS/CENTI-SEC 

RO  732 

-0- 

R0733 

POSI r ION  4 

XXXX.X  NAUTICAL  MILES 

DP 

BIT  1 OF  LOW  REGISTER 

RO  73  4 

2 METERS 

R0735 

-s- 

R0736 

VELOCITY  3 

XXXX.X  FT/SEC 

DP 

B IT  1 OF  HIGH  REGISTER 

R0737 

-7 

R0738 

2 METERS/CENTI-SEC 
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R0739 
R 074  0 
R0741 

-T- 

G 

XXX. XX  G 
(MAX  163.83) 

R0742 

R0743 

R07433 

R07436 

R07439 

R0744 

-u- 

RENDEZVOUS 
RAOAR  RANGE 

XXX. XX  NAUT  MI 
(DECIMAL  ONLY. 
DISPLAY  CR  MONITOR 
ONLY.  CANNOT  BE 
LOADED.  ) 

R0745 
R0746 
R07461 
RO  7462 
RO  7463 
RO  746  4 
R07465 
R07466 
R0747 

-V- 

RENDEZVOUS 
RADAR  RANGE  RATE 

XXXX.X  FEET/SEC 
(DECIMAL  ONLY. 
DISPLAY  CR  MONITOR 
ONLY.  CANNOT  BE 
LOADED. 

BIAS  OF  17000  COUNTS 
SUBTRACTED  BEFORE 
DISPLAY.  ) 

R0748 

R0749 

R0750 

-IS- 
LANDING RADAR 
ALTITUDE 

XXXXX.  FEET 

R0751 

R0752 

R0753 

-X- 

LANDING  RAOAR 
VELX 

XXXXX.  FEET/SEC 

RO  754 
R0755 
R0756 

-Y- 

L ANO I NG  RADAR 
VELY 

XXXXX.  FEET/SEC 

R0757 
R0758 
R 075  9 

-Z- 

LANDING  RADAR 
VELZ 

XXXXX.  FEET/SEC 

R0760 
R076  l 
R0762 

-AA- 

INITIAL/F  INAL 
ALTITUDE 

XXXXX.  FEET 

RO  763 
R0764 
R0765 

-BB- 

ALTITUDE  RATE 

XXXXX.  FEET/SEC 
(MAX  08191 . ) 

RO  766 
R0767 
R0768 

-CC- 

FORWARD/LATERAL 

VELOCITY 

XXXX.X  FEET/SEC 
( MAX  09126.  ) 

R0769 

-DO- 

-2 

SP  BIT  1 = 10  G 


SP  USFS  15  BITS  FOR  UNSIGNED 
MAGNITUDE. 

BIT  1 = 9.38  FEET 


SP  USES  15  BITS  FOR  UNSIGNED 
MAGNITUDE. 

BIT  1 = -.6278  FEET/SEC 


DP  LOW  ORDER  BIT  OF  LOW  ORDER 
WORD  = 1.079  FEET 


DP  LOW  ORDER  BIT  OF  LOW  ORDER 
WORD  = — .6440  FEFT/SEC 


DP  LOW  ORDER  BIT  OF  LOW  ORDER 
WORD  = 1.212  FEET/SEC 


UP  LOW  ORDER  BIT  OF  LOW  ORDER 
WORD  = .8668  FFET/SEC 


DP  LOW  ORDER  BIT  OF  LOW  ORDER 
WORD  = 2.345  FEET 


SP  LOW  ORDER  BIT  = .5 
FEET/SEC 


SP  LOW  ORDER  BIT  = .5571 
FEET/SEC 
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R0770 

ROTATIONAL  HAND 

XXXXX.  DEG/SEC 

R0771 

CCNTRCLLER  ANGULAR 

(MAX  OOOAA  . ) 

R0772 

RATES 

R0773 

-EE- 

R077A 

OPTICAL  TRACKER 

XXX. XX  DEG. 

R0775 

R0776 

AZIMUTH  ANGLE 

R0777 

-JJ- 

R0778 

R0779 

POSI T ICN5 

XXX. XX  NAUT  MI 

R0780 

-KK- 

R07BI 

WE  IGHT2 

XXXXX.  LBS 

R0782 

-NN- 

R0783 

TRIM  CEGREES  2 

XXX. XX  DEG 

R078A 

(MAX  032.76) 

R0705 

-PP- 

RO  786 

2 INTEGERS 

+XXBYY 

R0787 

(B  IS  A BLANK 

R0788 

POSITION.  DECIMAL 

RO  789 

ONLY , D I SPLAY  OR 

R0790 

MONITOR  ONLY.  CANNOT 

R079  1 

BE  LOADED.) 

R0792 

(MAX  99B99 ) 

R0793 

-DE- 

R079A 

POSIT  I0N7 

XXXX.X  NAUT  Ml 

R0795 

R0796 

(MAX  9058.9) 

R0797 

-RR- 

R0798 

R0799 

R0800 

COMPUTED  ALT  1 TUDE 

XXXXX.  FEET 

R0801 

-ss- 

R0802 
RO  80  3 

DP  DEGREES 

XXXX.X  DEGREES 

RO  80  A 

-TT- 

R0805 

L AND  I NG  RADAR 

+OOOOX 

R0806 

POSIT  ION 

(DECIMAL  ONLY. 

R0807 

DISPLAY  OR  MONITOR 

R0808 

ONLY.  CANNOT  BE 

R0809 

LOADED. ) 

R0810 

-Wh— 

USER*  S PAGE  NO.  21 

SP  FRACTIONAL  PART  OF  PI  RAD 
A SEC 


DP  LOW  ORDER  BIT  OF  LOW  ORDER 
15 

WORD  = 360/2  DEGREES 


DP  BIT  1 OF  LOW  REGISTER  = 

2 METERS 

16 

SP  FRACTIONAL  PART  OF  2 KG 


SP  BIT  1= .0 1 SEC ( T I MF  I 


DP  BIT  1 OF  HIGH  REGISTER  = 

1 UNIT  OF  XX 
BIT  1 OF  LOW  REGISTER  = 

1 UNIT  OF  YY 
(EACH  REGISTER  MUST 
CONTAIN  A POSITIVE  INTEGER 
LESS  THAN  100) 


DP  BIT  1 OF  LOW  REGISTER  = 
-A 

2 METERS 


DP  8 1 T 1 OF  LOW  REGISTER  = 
-A 

2 METERS 


DP  BIT  1 OF  HIGH  REGISTER  = 
1 DEGREE 


CHANNEL  33, BIT  6=N0T  POSIT.  1 
CHANNEL  33, BIT  7=N0T  POSIT.  2 
X = 1 FOR  LR  POSITION  l 
X = 2 FOR  LR  POSITION  2 


EO 
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RO  8 1 1 
R 031  2 
R0813 
R081  A 

360-CCU  DEGREES 

XXX. XX  DEGREES 
(MAX  359.99) 

SP 

R081  5 
R0816 
R081  7 
R0818 

-XX- 

POSITICN  9 

XXXXX.  FEET 

DP 

R0819 

R0820 

R08201 

-YY- 

VELOCITY  A 

XXXX.X  FEET/SEC 
(MAX  328.0) 

DP 

R 0 82  02 
R08203 
R08204 
R082C5 

-zz- 

VELOC  ITY5 

XXXX.X  FT/SEC 

DP 

R 082  1 
R0821 l 
R082 12 
R08213 

-A  AA- 
R AD  I A N S 

XX. XXX  RADIANS 
(MAX  31.999) 

DP 

R0822 

THAT-S  ALL  ON  THE 

NOUNS. 

BIT  1 = 360  - ( 360/2  ) 

DEGREES 

(USES  15  BITS  FOR  MAGNI 
TUDE  AND  2-S  COMP.) 


BIT  1 OF  LOW  REGISTER  = 
-9 

2 METERS 


FRACTIONAL  PART  OF 
MET ERS /CENT I-SEC 


BIT  1 OF  HIGH  REGISTER 
-9 

2 METERS/CENT I-SEC 


BIT  1 OF  HIGH  REGISTER 
-9 

2 RADIANS 
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USER'S  PAGE  NO.  23 

ED 

P0823 

ALARM  CODES  FOR  LUMINARY 

R0824 

*9 

* 18 

*60  COLUMN 

R0825 

CODE 

* 

TYPE 

SET  BY 

R0828 

00  1 L I 

MARK  MISSING 

AOTMARK 

R0829 

00112 

MARK  OR  MARK  REJECT  NOT  BEING  ACCEPTED 

AOTMARK 

R0830 

00113 

NO  INBITS 

AOTMARK 

R0832 

00115 

NO  MARKS  IN  LAST  PAIR  TO  REJECT 

AOTMARK 

R0833 

00206 

ZERO  ENCODE  NUT  ALLOWED  WITH  COARSE  ALIGN 

IMU  MODE  SWITCHING 

R0834 

002C6 

+■  GIMBAL  LDCK. 

R0835 

00207 

ISS  TURNON  REQUEST  NCT  PRESENT  FOR  90  SEC 

T4RUPT 

R0836 

00210 

IMU  NOT  OPERATING 

IMU  MODE  SWITCH,  IMU-2, 

RO  2 , P51,  P57 

R0838 

00211 

COARSE  ALIGN  ERROR 

IMU  MODE  SWITCH 

R0839 

00212 

PIPA  FAIL  BUT  PIPA  IS  NOT  BEING  USED 

IMU  MODE  SWITCH, T4RPT 

R0840 

00213 

IMU  NOT  OPERATING  WITH  TURN-ON  RFQUEST 

T4RUPT 

R084  1 

00214 

PROGRAM  USING  IMU  WHEN  TURNED  OFF 

T4RUPT 

R0842 

00217 

BAD  RETURN  FROM  IMUSTALL 

P5l,P52»P57 

R0843 

00220 

IMU  NOT  ALIGNED  - NO  REFSMMAT 

R02.R47 

R0844 

00401 

DESIRED  GIMBAL  ANGLE  YIELDS  GIMBAL  LOCK 

INF  AL IGN , IMU-2, 

R0845 

FINDCDUW 

R0846 

00402 

FINDCDUW  NOT  CONTROLLING  ATTITUDE 

FINDCDUW 

R0847 

00404 

TWO  STARS  NOT  AVAILABLE  IN  ANY  DETENT 

R 59 , LUNAR  SURFACE 

R 084  8 

00405 

TWO  STARS  NOT  AVAILABLE 

P 52 

R0849 

00421 

W-MATRIX  OVERFLOW 

INTFGRV 

R0850 

00501 

P 

RADAR  ANTENNA  OUT  OF  LIMITS 

R 23 

R0851 

00502 

BAD  RADAR  GIMBAL  ANGLE  INPUT 

V4IN72 

R0852 

00503 

P 

RADAR  ANTENNA  DESIGNATE  FAIL 

R21,  NON-P  IN  V41N72 

R0853 

00510 

RADAR  AUTO  DESCRETE  NOT  PRESENT 

R 2 5 

R0854 

0051  1 

LR  ANTENNA  MUVE U AND  NOT  REPOSITIONED 

SERVICER 

R0855 

00514 

P 

RR  GOES  OUT  OF  AUTO  MODE  WHILE  IN  USE 

P 20 

R0856 

00515 

RR  CDU  FAIL  DISCRETE  PRESENT 

R 2 5 

R0857 

00520 

RADAR  RUPT  NOT  EXPECTED  AT  THIS  TIME 

RADAR  READ 

R0859 

00522 

LANDING  RADAR  POSITION  CHANGE 

R 04 

R0860 

00523 

LR  ANTENNA  DIDN'T  ACHIEVE  POSITION  2 

V 59  IN 

V60 ) 

R0862 

00525 

P 

DELTA  THETA  GREATER  THAN  3 DEGREES 

R22 

R0863 

00526 

RANGE  GREATER  THAN  400  NAUTICAL  MILES 

P 20 

R0864 

00527 

P 

LOS  NOT  IN  MODE  II  COVERAGE  WHILE  ON 

R 2 1 , R24 

R0865 

LUNAR  SURFACE 

R086I 

OR  VEHICLE  MANEUVER  REQUIRED 

R 2 4 120) 

RO  866  5 

00530 

P 

LOS  NOT  IN  MODE 2 COVERAGE 

R 2 1 

R08666 

ON  LUNAR  SURFACE  AFTER  600  SECS. 

KO 86  7 

00600 

IMAGINARY  ROOTS  ON  FIRST  ITERATION 

P 32 , P 72 

R086  8 

00601 

PERIGEE  ALT  I TUOE  CSI  LT  PMIN1 

P32.P72, 

R0869 

00602 

PERIGEE  ALTITUDE  CDH  LT  PM  I N 2 

P 32 , P72 , 

R0870 

00603 

CSI  TO  CDH  TIME  LT  TMIN12 

P32»P72,P33,P73 

R087  1 

00604 

CDH  TO  TPI  TIME  LT  TMIN23 

P32.P72, 

R0872  OR  COMPUTED  CDH  TIME  GREATER  THAN  INPUT  TPI  TIME 

R0873  00605  NUMBER  OE  ITERATIONS  EXCEEDS  LOOP  MAXIMUM  P32,  P72 
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R0874 

00606 

DV  EXCEEDS  MAXIMUM 

P32.P72, 

R0875 

00611 

NO  TIG  FOR  GIVEN  ELEV  ANGLE 

P34.P74 

R0876 

00701 

ILLEGAL  OPTION  CODE  SELECTED 

P 5 7 

R0877 

00777 

PIPA  FAIL  CAUSED  THE  ISS  WARNING 

T4RUPT 

R0878 

01102 

AGC  SELF  TEST  ERROR 

SELF  CHECK 

R088  1 

01105 

DOWNLINK  TOO  FAST 

T4RUPT 

R0882 

01106 

UPLINK  TOO  FAST 

T4RUPT 

R0883 

1 l ! 

PHASE  TABLE  FAILURE.  ASSUME 

RESTART 

R0884 

ERASABLE  MEMORY  IS  SUSPECT. 

RESTART 

R0895 

01301 

ARCSIN-ARCCOS  ARGUMENT  TOO  LARGE 

INTERPRETER 

R0897 

01406 

BAD  RETURN  FROM  ROOTPSRS 

DESCENT  GUIDANCE  EQS 

RC898 

01407 

VG  INCREASING  (DELTA-V  ACCUMULATED 

S40.8 

R0899 

•GT.  90  DEGREES  AWAY  FRCM  DESIRED  THRUST 

S40.8 

R08995 

VECTOR  . ) 

S40.8 

R0900 

01410 

UNINTENTIONAL  OVERFLOW  IN  GUIDANCE 

DESCENT  GUIDANCE  EQS 

R0901 

01412 

DESCENT  IGNALG  NOT  CONVERGING 

P63 

R0903 

01466 

INSUF.  THROTTLINGS  BETWEEN  SKIPPED  THROTS 

P 66 

R0905 

01520 

V37  REQUEST  NOT  PERMITTED  AT  THIS  TIME 

V 3 7 

R0906 

01600 

OVERFLOW  IN  DRIFT  TEST 

IMU  4 

R0907 

01601 

BAD  I MU  TORQUE 

OPT  PRE  ALIGN  CALIB 

R0908 

01601 

IMU  4 (LEM) 

R0909 

01703 

IGNITION  TIME  SLIPPED 

MIDTOAVE 

R0910 

01706 

INCORRECT  PROGRAM  REQUESTED  FOR  VEHICLE 

R091  1 

CONFIGURATION 

P40 , P42 

R 0 9 1 3 

02001 

JET  FAILURES  HAVE  DISABLED  Y-Z  TRANS. 

DAP 

R0914 

02002 

JET  FAILURES  HAVE  DISABLED  X TRANSLATION 

DAP 

R0915 

02003 

JET  FAILURES  HAVE  DISABLED  P-ROTATION 

DAP 

R 091  6 

02  004 

JtT  FAILURES  HAVE  DISABLED  U-V  ROTATION 

DAP 

R091  7 

0377  7 

ICOU  FAIL  CAUSED  THE  ISS  WARNING 

T4RUPT 

R091  8 

04777 

I CDU  , PIPA  FAILS  CAUSED  THE  ISS  WARNING 

T4RUPT 

R0919 

07777 

IMU  FAIL  CAUSED  THE  ISS  WARNING 

T4RUPT 

R0920 

1 1777 

IMU  , PIPA  FAILS  CAUSED  THE  ISS  WARNING 

T4RUPT 

R092  1 

1 3777 

IMU  , I CDU  FAILS  CAUSED  THE  ISS  WARNING 

T4RUPT 

R0922 

14777 

IMU, ICDU, PIPA  FAILS  CAUSED  ISS  WARNING 

T4RUPT 

R0923 

THE  FELL  ’WING  COOES  INDICATE  THF  MORE  SERIOUS  POODOO  ABORTS  THAT  RESULT 

R0924 

IN  THE 

PROGRAM  GOING  TO  ROO. 

R0925 

201C5 

AOTMARK  SYSTEM  IN  USE 

AOTMARK 

R0926 

20430 

ACCELERATION  OVERFLOW  IN  INTEGRATION 

ORBITAL  INTEGRATION 

R0927 

20607 

NO  SOLN  FROM  TIME-THETA  CR  TIME-RADIUS 

TIMETHET,  TIMERAD 

R0928 

21103 

UNUSED  CCS  BRANCH  EXECUTED 

ABORT 

R0929 

R0930 

21204 

WAITLIST,  VARDELAY,  FIXDELAY,  OR  LONGCALL 
CALLED  WITH  ZERO  OR  NEGATIVE  DELTA-TIME 

WAITLIST  ROUTINES 

R0933 

21302 

SQRT  CALLED  WITH  NEGATIVE  ARGUMENT 

INTERPRETER 

R0934 

21406 

BAD  RETURN  FROM  ROOTPSRS 

IGNITION  ALGOR  I THMN 

R0935 

R0936 

21501 

KEYBOARD  AND  DISPLAY  ALARM  DURING 
INTERNAL  USE  I NV SUB ). ABORT 

PINBALL 

R0938 

R0939 

THE  FOLLOWING  CODES  INDICATE  A BAILOUT  ABORT  THAT  RESULTS  IN  A SOFTWARE 
RESTART 

GAP: 
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R0940 

31104 

R0941 

31201 

R0942 

31202 

R 094  3 

31203 

R09434 

31206 

R09436 

R0944 

31207 

R 094  5 

31210 

R0946 

31211 

R09464 

31502 

R0947 

32  COO 

DELAY  ROUTINE  BUSY 
EXECUTIVE  OVERFLOW-NO  VAC  AREAS 
EXECUTIVE  OVERFLOW-NC  CCRE  SETS 
WAITLIST  0 VERFL CW— TOC  MANY  TASKS 
SECOND  JOB  ATTEMPTS  TO  GO  TO  SLEEP  VIA 
KEYBOARD  AND  DISPLAY  PROGRAM 
NO  VAC  AREAS  FOR  MARKS 

TWO  PROGRAMS  USING  DEVICE  AT  SAME  TIME 

ILLEGAL  INTERRUPT  OF  EXTENDED  VERB 

TWO  PRIO  DISPLAYS  WAITING 

DAP  STILL  IN  PROGRESS  AT  NEXT  TIME5  RUPT 


EXEC 

EXEC 

EXEC 

WAITLIST 

PINBALL 

AOTMARK 

MODE  SWITCHING 
AOTMARK 
DSP  INTRFCE 
DAP 


17:11  MAR.  19,1971  (MAIN)  PAGE  26 


USER'S  PAGE  NO.  25 


EO 
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P0948 

CHECKLIST  COOES  FOR  LUMINARY 

R0949 

*9 

*17 

*26 

*9  COLUMN 

R0951 

R1C00E 

ACTION  TO  BE  EFFECTED 

PROGRAM 

R0953 

00C13 

KEY  IN 

NORMAL  OR  GYRO  TORQUE  COARSE  ALIGN 

P52 

R0955 

0 0 C 1 4 

PROCEED 

DO  IMU  FINE  ALIGN  ROUTINE 

R 5 1 , P 63 , P5  7 

R0957 

00014 

ENTER 

DO  LANDING  SITE  DET ERM I NAT  I ON  I N890 I SP ) 

P570PTI0N2 

R0960 

00C15 

PERFORM 

CELESTIAL  BODY  ACQUISITION 

R0960 1 

00016 

PROCEED 

DO  IMU  ALIGN  WITH  NON-REJECTED  DATA 

R53  R51.P51 

R0962 

00062 

SWITCH 

AGC  POWER  DOWN 

P06 

R0964 

00201 

SWITCH 

RR  MODE  TO  AUTOMATIC 

P20 , P 22 , R04 

R 096  6 

00203 

SWITCH 

GUID  CONTROL  TO  GNC , MODE  TO  AUTO... 

P12,P42,P7l 

R0968 

ALSO  THR  CONT  TO  AUTO 

P40,P63,P70 

R0970 

00205 

PERFORM 

MANUAL  ACQUISITION  OF  RR 

R 2 3 

R0972 

00500 

SWITCH 

LR  ANTENNA  TO  POSITION  1 

P63 

R0974 

R0975 

SWITCH  DENOTES  CHANGE  POSITION  OF  A CONSOLF  SWITCH 

R9976 

PERFORM  DENOTES  START  OR  END  OF  A TASK 

R 097  7 

KEY  IN  DENOTES  KEY  IN  OF  DATA  THRU  THE 

DSKY 

GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161  L7:ll  MAR.  19,1971  (MAIN) 
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GAP: 

L 

P 097  & 

R0979 
R0980 
R098  1 

R0982 

R0984 

R0985 

R 098  7 
R0989 
R0990 
R0992 
R0994 
R 0996 
R0998 
R 100  0 
RL002 
R 1 00  3 
R 100  5 


PAGE  28 
E0 

OPTION  CODES  FOR  LUMINARY 

THE  SPECIFIED  OPTION  CODES  WILL  BE  FLASHED  IN  COMPONENT  RL  IN 

CON  JUIVC I ION  WITH  V04N06  OR  V04N12  (FOR  EXTENDED  VERBS)  TO  REQOEST  THE 

ASTRONAUT  TO  LOAD  INTO  COMPONENT  R2  THE  OPTION  HE  DESIRES. 


ASSEMBLE  REVISION  210  CF  ADC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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*9 

*17 

*52 

*11 

*25  COLUMN 

OPTION 

CODE 

PURPOSE 

INPUT  FOR  COMPONENT  2 

PROGRAM ( S ) 

APPLICABILITY 

00C01 

SPECIFY 

IMU  ORIENTATION 

1 = PR EF  2=N0M  3 = REFSMMAT 

P52 

ALL 

4=LAND  SITE 

00C02 

SPECIFY 

VEHICLE 

1=TH  IS  2 = 0THER 

P21  , R30 

ALL 

00003 

SPECIFY 

TRACKING 

ATTITUDE 

L=PR£FERRED  2=0THEK 

R63 

ALL 

00C04 

SPECIFY 

RADAR 

1 =RR  2=LR 

R04 

SUNDANCE  + 

LUMINARY 

00005 

SPECIFY 

SOR  PHASE 

1 = F I RS  T 2 = SEC0ND 

P 38 

COLOSSUS  + 

LUMINARY 

00006 

SPECIFY 

RR  COARSE 

ALIGN  OPTION 

1 = LOCKON  2=C0NT INUOUS  DESIG. 

V41N72 

SUNDANCF  + 

LUMINARY 

00C10 

SPECIFY 

ALIGNMENT 

MODE 

0= AN Y TIME  l=REFSMMAT  +G 
2 = TWO  BODIES  3=0NE  BODY  + G 

P57 

LUMINARY 

00012 

SPECIFY 

CSM  ORBIT 

OPTION 

1 = N0  ORBIT  CHANGE  2=  CHANGE 
ORBIT  TO  PASS  OVER  LM 

P22 

LUMINARY 

GAP: 


ASSEMBLE  REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY 


NASA  2021112-161 


L 

TAGS 

FCR 

RELATIVE 

SETLOC  AND 

BLANK  BANK 

CARDS 

000  l 

REF 

1 

COUNT 

BANKSUM 

R0002 

MODULE  l 

CONTAINS  BANKS  0 THROUGH  5 

000  3 

4000 

BLOCK 

02 

000  4 

4000 

RADARFF 

EQUALS 

000  5 

4000 

FFTAG1 

EQUALS 

0006 

4000 

FFTAG2 

EQUALS 

0007 

4000 

FFTAG3 

EQUALS 

000  8 

4000 

FFTAG4 

EQUALS 

0009 

4000 

FFTAG7 

EQUALS 

0010 

4000 

FFTAG8 

EQUALS 

001  l 

4000 

FFTAG9 

EQUALS 

0012 

4000 

FFTAG10 

EQUALS 

0013 

4000 

FFTAG11 

EQUALS 

0014 

4000 

FFTAG12 

EQUALS 

001  5 

4000 

FFTAG13 

EQUALS 

0016 

6 

WORDS  LEFT 

5771 

05771 

0 

BNKSUM 

02 

0016 

5772 

05772 

0 

001  7 

6000 

BLOCK 

03 

001  8 

6000 

FFTAG5 

EQUALS 

0019 

6000 

FFTAG6 

EQUALS 

0020 

0 WOPOS  LEFT 

6000  NO  NEED 

BNKSUM 

03 

0021 

00,2000 

BANK 

00 

0022 

00,2000 

DL AY  JOB  EQUALS 

0023 

2 WORDS  LEFT 

00,3775 

C3775  1 

BNKSUM 

00 

0023 

00,3776 

03776  1 

002  4 

01  ,2000 

BANK 

01 

0025 

01,2000 

RESTART 

EQUALS 

0026 

01,2000 

LOADDAP  1 

EQUALS 

0027 

2 WORDS  LEFT 

01,3775 

03775  l 

BNKSUM 

01 

0027 

01,3776 

03776  1 

002  8 

04,2000 

BANK  04 

002  8 5 

04,2000 

0RBITAL3 

EQUALS 

0029 

04,2000 

R02 

EQUALS 

0030 

04,2000 

VERB37 

EQUALS 

00305 

04,2000 

EPHEM2 

EQUALS 

003  1 

04,2000 

PINBALL4 

EQUALS 

0032 

04,2000 

CCNICS1 

EQUALS 

0033 

04,2000 

KEYRUPT 

EQUALS 

0034 

04,2000 

R36LM 

EQUALS 

0035 

04,2000 

UPDATE2 

EQUALS 

0036 

04,2000 

E/PROG 

EQUALS 

29 
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00365 

C4.2000 

ACTMARK2  EQUALS 

0037 
003  7 

4 WORDS  LEFT 

04.3773 

04.3774 

03773  1 

03774  0 

BNK SUM  04 

003  8 

05,2000 

BANK  05 

0039 

05,2000 

FRANDRES 

EQUALS 

0040 

05,2000 

DOWNTELM 

EQUALS 

0041 

05,2000 

ARORTS1 

EQUALS 

0042 

05,2000 

EPHEM1 

EQUALS 

00425 

05,2000 

ASENT3 

EQUALS 

004  3 

1 WORDS  LEFT 

05,3776 

03776  1 

BNK  SUM  05 
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R0044 

MOOULE 

2 CONTAINS  BANKS  fc 

THROUGH  13 

004  5 

06,2000 

BANK 

06 

0046 

C6.2000 

I MUCDMP 

EQUALS 

004  7 

06,2000 

T4RUP 

EQUALS 

0048 

06,2000 

RCSMONT 

EQUALS 

004  8 6 

06,2000 

EARTHLOC 

EQUALS 

00487 

C6.2000 

ACTMARK3 

EQUALS 

0049 

1 WORDS  LEFT 

06,3776 

03776  L 

BNKSUM 

06 

0050 

07,2000 

BANK 

07 

005  1 

07,2000 

A0TMARK1 

EQUALS 

0052 

C 7 , 2000 

MODE  SW 

EQUALS 

00525 

C 7 , 2000 

ASENT2 

EQUALS 

0053 

8 WORDS  LEFT 

07,3767 

03767  1 

BNKSUM 

07 

0053 

07,3770 

03770  l 

0054 

10,2000 

BANK 

10 

0055 

10,2000 

RTBCODES 

EQUALS 

0056 

10,2000 

DISPLAYS 

EQUALS 

005  7 

10,2000 

PHASETAB 

EQUALS 

005  8 

10,2000 

FLESHLOC 

EQUALS 

00585 

10,2000 

SLCTMU 

EQUALS 

0059 

4 WORDS  LEFT 

10,3773 

03773  1 

BNKSUM 

10 

0059 

10,3774 

03774  0 

0060 

11,2000 

BANK 

l 1 

0061 

11,2000 

ORBITAL 

EQUALS 

0062 

11,2000 

F2DPS*1 1 

EQUALS 

0063 

11,2000 

INTVEL 

EQUALS 

0065 

1 WORDS  LEFT 

11,3776 

03776  1 

BNKSUM 

1 1 

PAGE  31 


0066 

12,2000 

BANK 

12 

006  7 

12,2000 

CONICS 

EQUALS 

00675 

12,2000 

ORB  I TALI 

EQUALS 

006  7 6 

12,2000 

INTPRET2 

EQUALS 

0068 

2 WORDS  LEFT 

12,3775 

C3775  1 

BNKSUM 

12 

006  8 

12,3776 

03776  1 

0069 

13,2000 

BANK 

13 

0070 

13,2000 

LATLONG 

EQUALS 

0071 

13,2000 

INTINIT 

EQUALS 

0072 

13,2000 

LEMGEOM 

EQUALS 

0073 

13,2000 

P76L0C 

EQUALS 

0076 

13,2000 

ORBI TAL2 

EQUALS 

00766 

13,2000 

P50S2 

EQUALS 

0075 

2 WORDS  LEFT 

13,3775 

C3775  1 

BNKSUM 

13 

0075 

13,3776 

03776  1 
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L TAGS  FOR  RELATIVE  SETLOC  ANO  BLANK  BANK  CAROS 

P0076  MOOULE  3 CONTAINS  BANKS  14  THROUGH  21 


0077 

14,2000 

BANK  14 

0078 

14,2000 

P50S1  EQUALS 

00785 

14,2000 

PHASTAB1  EQUALS 

0079 

14,2000 

STARTAB  EQUALS 

00795 

14,2000 

ASENT4  EQUALS 

00796 

14,2000 

RTBCODE 1 EQUALS 

0080 

0 WORDS  LEFT 

14,2000  NO  NEED 

BNKSUM  14 

0081 

15,2000 

BANK 

15 

0082 

15,2000 

P50S 

EQUALS 

00825 

15,2000 

R02RNK1 5 

EQUALS 

0083 

15,2000 

EPHEM 

EQUALS 

00835 

15,2000 

RRLEADIN 

EQUALS 

0084 

0 WORDS  LEFT 

15,2000  NO  NEED 

BNKSUM 

15 

0085 

16,2000 

BANK 

16 

0086 

16,2000 

DAPS  1 

EQUALS 

0087 

4 WTIRDS  LEFT 

16,3773 

03773  1 

BNKSUM 

16 

0087 

16, 37  74 

03774  0 

0088 

17,2000 

BANK 

17 

0089 

17,2000 

DAPS  2 

EQUALS 

00895 

17,2000 

C13BANK 

EQUALS 

0090 

0 WCRDS  LEFT 

17,2000  NC  NEED 

BNKSUM 

17 

0091 

0092 

0093 

20,2000 

20,2000 

20,2000 

DAPS3 

LOADDAP 

BANK 

EQUALS 

EQUALS 

20 

0094 

0094 

22  WORDS  LEFT 

20.3751 

20.3752 

03751  l 

03752  1 

BNKSUM 

20 

0095 

21,2000 

BANK 

21 

0096 

21,2000 

DAPS4 

EQUALS 

0097 

21,2000 

ABTFLGS 

EQUALS 

0098 

21 , 2000 

RIO 

EQUALS 

0099 

21,2000 

Rll 

EQUALS 

0099  1 

21,2000 

MANUR 

EQUALS 

00995 

21,2000 

P50S3 

EQUALS 

00996 

21,2000 

M IDDGIMI 

EQUALS 

00997 

21,2000 

0RBITAL5 

EQUALS 

0100 

39  WORDS  LEFT 

21,3730 

03730  0 

BNKSUM 

21 

0100 

21,3731 

03731  l 
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L TAGS  FOR  RELATIVE  SETLOC  AND  BLANK  BANK  CARDS 

P0101  MODULE  A CONTAINS  BANKS  22  THROUGH  27 


0102 

22,2000 

BANK 

22 

0103 

22,2000 

KALCM0N1 

EQUALS 

010A 

22,2000 

KALCM0N2 

EQUALS 

0105 

22,2000 

R30L nc 

EQUALS 

0106 

22,2000 

RENDEZ 

EQUALS 

01065 

22,2000 

SERV2 

EQUALS 

01066 

22,2000 

L ANOCNST 

EQUALS 

01067 

22,2000 

MIDDGIM 

EQUALS 

0107 

3 WORDS  LEFT 

22.377A 

0377A  0 

BNK  SUM 

22 

0107 

22,3775 

03775  L 

0108 

23,2000 

BANK 

23 

0109 

23,2000 

POWFL ITE 

EQUALS 

0 1 L 0 

23,2000 

POWFLITl 

EQUALS 

0111 

23,2000 

I NFL  I GHT 

EQUALS 

0112 

23,2000 

A POP  E R I 

EQUALS 

Oil  3 

23,2000 

R61 

EQUALS 

Oil  A 

23,2000 

R62 

EQUALS 

0115 

23,2000 

I NTPRET 1 

EQUALS 

0116 

23,2000 

MEASINC 

EQUALS 

0117 

23,2000 

MEAS  INC1 

EQUALS 

0118 

23,2000 

EXT Vbl 

EQUALS 

01185 

23,2000 

P 12A 

EQUALS 

01186 

23,2000 

NORML I Z 

EQUALS 

01187 

23,2000 

ASENT7 

EQUALS 

oiise 

23,2000 

RODTRAP 

EQUALS 

0119 

1A  WORDS  LEFT 

23,3761 

03761  1 

BNK SUM 

23 

0119 

23,3762 

03762  1 

0120 

2A.2000 

BANK 

2 A 

012  1 

2A , 2000 

PLANTIN 

EQUALS 

0122 

2A  ,2000 

P20S 

EQUALS 

01222 

2A  ,2000 

SAOBNK 

EQUALS 

01223 

2A.2000 

ORBI TALA 

EQUALS 

0123 

0 WORDS  LEFT 

2A , 2000  NC  NEED 

BNKSUM 

2 A 

USER'S  PAGE  NO.  5 


EO 


012  A 

0125 

0126 

0127 

0128 
01295 
0130 
0130 


25,2000 
25,2000 
25 ,2000 
25,2000 
25,2000 
25,2000 

25.3771 

25.3772 


03771  0 

03772  0 


P20S  1 
P20S2 
RADARUPT 
DRSAMP 
PLANT IN3 


BANK  25 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

BNK SUM  25 


6 WORDS  LEFT 
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0131 

26,2000 

BANK 

26 

0132 

26,2000 

P20S3 

EQUALS 

0133 

26,2000 

BAWLANGS 

EQUALS 

0134 

26,2000 

MANUVER 

EQUALS 

0135 

26,2000 

MANUVER 1 

EQUALS 

01355 

26,2000 

PLANT  INI 

EQUALS 

01356 

26,2000 

PLANTIN2 

EQUALS 

0136 

2 WORDS  LEFT 

26,37/5 

03775  1 

BNKSUM 

26 

0136 

26,3776 

03776  1 

0137 

27,2000 

BANK 

27 

0130 

27,2000 

TOF-FF 

EQUALS 

0139 

27,2000 

T0F-FF1 

EQUALS 

0140 

27,2000 

P40S1 

EQUALS 

0141 

27,2000 

VECPT 

EQUALS 

0142 

27,2000 

ASENT1 

EQUALS 

01425 

27,2000 

SERV3 

EQUALS 

0143 

2 WORDS  LEFT 

27, 3775 

C3775  l 

BNKSUM 

27 

0143 

2 7,3  776 

03776  1 
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L 

TAGS 

FOR  RELATIVE 

SETLOC  AND 

BLANK  BANK 

CARDS 

P0144 

MODULE  5 

CONTAINS  BANKS  30 

THROUGH  35 

014  5 

30,2000 

BANK 

30 

0146 

30,2000 

LOWSUPER 

EQUALS 

0147 

30,2000 

P 12 

EQUALS 

0148 

30,2000 

ASENT 

EQUALS 

0149 

30,2000 

FCDUW 

EQUALS 

01495 

30,2000 

FLOGSUB 

EQUALS 

01496 

30,2000 

VB67A 

EQUALS 

01497 

30,2000 

A SENT 5 

EQUALS 

0150 

14 

WORDS  LEFT 

30,3761 

03761 

1 

BNKSUM 

30 

0150 

30,3762 

03762 

1 

015  1 

31,2000 

BANK 

31 

0152 

31,2000 

FTHR.OT  EQUALS 

0153 

31,2000 

F20PS*31  EQUALS 

0154 

31,2000 

V B67  EQUALS 

0155 

4 WORDS  LEFT 

31,3773 

03773  1 

BNKSUM 

31 

0155 

31,3774 

03774  0 

0156 

32,2000 

BANK 

32 

0157 

32,2000 

P20S4 

EQUALS 

0158 

32,2000 

F2DPS*32 

EQUALS 

0159 

32,2000 

ABORTS 

EQUALS 

0160 

32,2000 

LRS22 

EQUALS 

016  1 

32,2000 

P66L0C 

EQUALS 

0163 

32,2000 

R47 

EQUALS 

01635 

32,2000 

SERV 

EQUALS 

01636 

32,2000 

P40S4 

EQUALS 

0164 

49  WORDS  LEFT 

32,3716 

03716  1 

BNKSUM 

32 

0164 

32,3717 

03717  0 

0165 

33,2000 

BANK 

33 

0166 

33,2000 

SERVICES 

EQUALS 

0167 

33,2000 

R29/SERV 

EQUALS 

01675 

33,2000 

ASENT  6 

EQUALS 

0168 

130  WORDS  LEFT 

33,3575 

03575 

0 

BNKSUM 

3 3 

0168 

33,3576 

03576 

0 

0169 

34,2000 

BANK  34 

0170 

34,2000 

A SENT 8 

EQUALS 

0171 

34,2000 

P30S1 

EQUALS 

0172 

34,2000 

CSI/CDH1 

EQUALS 

0173 

34,2000 

ASCFILT 

EQUALS 

01735 

34,2000 

R 12STUFF 

EQUALS 

01736 

34,2000 

SERV4 

EQUALS 

161 
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35 

USER' S PAGE 

NO.  7 

EO 

PAGE  36 


01737 

34,2000 

F 2DP  S*34  EQUALS 

0174 

0174 

74  WORDS  LEFT 

34.3665 

34. 3666 

C3665  1 
03666  L 

8NKSUM  34 

0175 

35,2000 

BANK 

35 

0176 

35,2000 

CSI /COH 

EQUALS 

017  7 

35,2000 

P30S 

EQUALS 

017b 

35,2000 

P40S3 

EQUALS 

0179 

35,2000 

P40S2 

EQUALS 

0180 

28  WORDS  LEFT 

35,3743 

03743  1 

BNKSUM 

35 

0180 

35,3744 

03744  0 
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L TAGS  FOR  RELATIVE  SETLOC  ANO  BLANK  BANK  CARDS 


P0181  MODULE  6 CONTAINS  BANKS  36  THROUGH  43 


0182 

36,2000 

BANK  36 

0183 

36,2000 

P40S 

EQUALS 

0184 

16  WORDS  LEFT 

36,3757 

03757  1 

BNKSUM  36 

0184 

36,3760 

03760  0 

0185 

37, 2000 

BANK 

37 

0186 

37,2000 

P05P06 

EQUALS 

0187 

37,2000 

I MU2 

EQUALS 

0188 

37,2000 

I MU4 

EQUALS 

0189 

37,2000 

R31 

EQUALS 

0190 

37,2000 

I MUSUPER 

EQUALS 

0191 

37,2000 

SERV1 

EQUALS 

0192 

4 WORDS  LEFT 

37,3773 

03773  l 

BNKSUM 

37 

0192 

37,3774 

03774  0 

0193 

0194 

0195 
01955 

0196 
01965 

0197  8 WORDS  LEFT 

019  7 


40,2000 

40,2000 

40,2000 

40,2000 

40,2000 

40,2000 

40,3767 

40,3770 


03767  1 
03/70  1 


P INBALL  1 
SELF  SUPR 
SBAND40 
P INSUPFR 
R31L0C 


BANK  40 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

BNKSUM  40 


0198 

0199 

0200  0 FORDS  LEFT 


41,2000 

BANK 

41 

41,2000 

P INBALL2  EQUALS 

41,2000  NC  NEED 

BNKSUM 

41 

0201 

0202 

0203 

0204  0 WORDS  LEFT 


42,2000 

BANK 

42 

42,2000 

S BAND 

EQUALS 

42,2000 

P I NB  ALL  3 

EQUALS 

42,2000  NO  NEED 

BNKSUM 

42 

0205 

0206 
0207 


43,2000 

43,2000 

43,2000 


BANK  43 
EXTVERBS  EQUALS 
S ELFCHEC  EQUALS 


0208  29  WORDS  LEFT 

0208 


43.3742  03742  0 

43.3743  03743  l 


BNKSUM  43 
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USER'S  PAGE  NO 


GAP: 

L 

0209 

0210 
021  l 
0212 
0213 
0 21 A 

0215 

0216 
021  7 
021 

0219 

0220 
R0221 


0222 

R0223 

0225 

0226 

0227 

0228 

0229 

0230 
023  1 

0232 

0233 
023  A 

0235 

0236 

0237 


ASSEMBLE  REVISION 

210 

OF  A GC  PROGRAM 

LUMINARY  BY  NASA  2021112-161 

TAGS 

FOR  RELATIVE  SETLOC  AND  BLANK 

BANK  CARDS- 

REF 

l 

23,2504 

HI6ZER0S 

EQUALS 

ZEROVECS 

REF 

1 

12,2006 

LC6ZER0S 

EQUALS 

ZEROVEC 

REF 

1 

23,2502 

HIDPHALF 

EQUALS 

UNITX 

REF 

1 

12,2004 

LODPHALF 

EQUALS 

X UN  I T 

REF 

1 

23,2474 

HI  DP  1/4 

EQUALS 

DP1/4TH 

REF 

1 

04,3037 

LOOP  1 /4 

EQUALS 

DL/4 

REF 

2 LAST 

38 

23,2502 

HIUNITX 

EQUALS 

UNITX 

REF 

1 

23,2500 

HIUNITY 

EQUALS 

UNITY 

REF 

1 

23,2476 

H I UN  I T Z 

EQUALS 

UNITZ 

REF 

2 LAST 

38 

12,2004 

LOUNITX 

EQUALS 

XUNIT 

REF 

1 

12,2002 

LOUNI TY 

EQUALS 

YUNIT 

REF 

1 

12,2000 

LOUNITZ 

EQUALS 

ZUNIT 

REF 

1 

22,3543 

DELRSPL 

EQUALS 

SPLRET 

ROPE 

-SPECIFIC 

ASSIGNS  OBVIATING  NEED 

TO  CHECK  COMPUTER  F 

LAG  IN 

REF 

1 

13,2772 

ATOPTHI S 

EQUALS 

ATOPLEM 

REF 

1 

13,2717 

ATOPDTH 

EQUALS 

ATOPCSM 

REF 

1 

13,3101 

OTHPREC 

EQUALS 

CSMPREC 

REF 

1 

0174 

MOONTHIS 

EQUALS 

LMOONFLG 

REF 

1 

0173 

MOONUTH 

EQUALS 

CMOONFLG 

REF 

1 

13,3005 

MOVATHI S 

EQUALS 

MOVEALEM 

REF 

1 

12,2017 

RMM 

= 

LODPMAX 

REF 

1 

12,2021 

RME 

= 

LODPMAX 1 

REF 

1 

13,3115 

THISPREC 

EQUALS 

LEMPREC 

REF 

2 LAST 

38  23,2476 

THISAXI S 

= 

UNITZ 

REF 

1 

23,2476 

NB1NB2 

EQUALS 

THISAXI S 

REF 

1 

5002 

ERAS  I D 

EQUALS 

B ITS2-10 

REF 

1 

4 74  3 

OELA  YNUM 

EQUALS 

TWO 

17:11 

MAR.  19, 

1971 

I MAIN) 

PAGE 

USER'S 

PAGE  NO. 

10 

EO 

ZE 

RD 

VECTOR 

ALWAYS  I 

N 

HIGH 

MEMORY 

ZE 

RO 

VECTOR 

ALWAYS  I 

N 

LOW  M 

FMORY 

2DEC  .25 


2DEC  .5 
20EC  0 
20EC  0 


COL  PGM,  ALSO  CALLED 
DETERMINING  INTEGRAT 


RY  R30  IN  LUMINARY 
ON  AREA  ENTRIES. 


FOR  R 3 1 

DOWNLINK  FRASABLE  DUMP  ID 


GAP:  ASSEM8LE  REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161 


17:11  MAR.  19,1971 


( MAIN  ) 


PAGF 


39 


L 

CONTROLLED  CONSTANTS 

USER'S  PAGF  NO.  1 EO 

* 

P0001 

DPS  ANC  APS  ENGINE  PARAMETERS 

0002 

REF  1 36,2000 

SETL0C 

PAOS 

0003 

36,2000 

BANK 

000  A 

REF  1 

COUNT* 

t $/PA0 

ROOD  5 

***  TEE  ORDER  OF  THE  FOLLOWING 

SIX  CONSTANTS  MUST 

NOT  BE  CHANGED  *** 

0006 

36,2000 

01056 

0 

F DP  S 

2DEC 

A. 3670  8-7 

9817.5  LBS  FORCE  IN  NEWTONS 

0006 

36,2001 

37  167 

0 

000  7 

36,2002 

00A57 

1 

MD0TDPS 

2DEC 

0.1A80  B— 3 

32.62  LBS/SEC  IN  KGS/CS. 

0007 

36,2003 

C3250 

0 

♦ 

000  8 

36,2  OOA 

77777 

0 

DTDECAY 

2DEC 

-30 

AO  PERCENT  FTP-OPS  TAILOFF  FOR  PAO 

■* 

0008 

36,2005 

77731 

1 

0009 

36,2006 

0C  307 

0 

F APS 

2DEC 

1.5569  8-7 

3500  LBS  FORCE  IN  NEWTONS 

0009 

36,2007 

1 1 0A0 

0 

• 

0010 

36,2010 

00151 

1 

MOOT  APS 

2DEC 

0.05135  B— 3 

11.32  LBS/SEC  IN  KGS/CS 

0010 

36,201  1 

052  1 A 

0 

* 

0011 

36,2012 

77777 

0 

AT  DE  C AY 

2DEC 

-18 

618  LB-SEC  TAILOFF  FOR  APS 

* 

001  1 

36,2013 

77755 

0 

R0012 

* # * * if  * * * * # * * # * * * * * * **  # **  * * * if  * * * * * 

• 

00122 

36, 201A 

00003 

l 

1 OOP  CT  TO 

2DEC 

2 A B-  17 

100  PERCENT  FTP-DPS  TAILOFF  FOR  P70 

00122 

36,2015 

00000 

l 

• 

R0012A 

£**#$**>!<###*  jM*  ##  £ 

0013 

36,2016 

00026 

0 

FRCSA 

2DEC 

0.17792  B-7 

A00  LBS  FORCE  IN  NEWTONS 

0013 

36,2017 

30605 

1 

• 

00 1 A 

36,2020 

00013 

0 

FRCS2 

2DEC 

0.08896  B-7 

200  LBS  FORCE  IN  NEWTONS 

001  A 

36,2021 

1 A 3 03 

1 

001  5 

REF  1 27,2000 

SETL0C 

P AOS  l 

• 

0016 

27,2000 

BANK 

0017 

REF  1 

COUNT* 

$ $/PA0 

- 

R0018 

APS  IMPULSE  DATA  FOR  P42  ♦♦♦♦^♦♦♦♦♦♦♦♦♦❖♦♦♦ll^*#****#*****#*****#*#* 

0019 

2 7, 2000 

00000 

1 

K1  VAL 

2DEC 

1 A0. 12  B-23 

3150  LB. SEC  APS  IMPULSE  IWET) 

- 

0019 

27,2001 

1C60A 

1 

0020 

27,2002 

00000 

l 

K2VAL 

2DEC 

31.138  B— 2 A 

700  LB-SFC 

• 

0020 

27,2003 

0C  762 

1 

m 

002  1 

2 7 , 200A 

00030 

1 

K3VAL 

2DEC 

1.5569  8-10 

FAPS  ( 3500  LBS  THRUST) 

002  1 

27,2005 

3510A 

1 

R0022 

- 

002  3' 

27,2006 

00016 

0 

SA0. 136 

2DEC 

. A67 1 B-9 

. A671  M NEWTONS  (DPS) 

0023 

27,2007 

36237 

1 

* 

002  A 

27,2010 

35711 

0 

SA0. 1 36_ 

2DEC 

. A67 1 B+l 

SA0.136  SHIFTED  LEFT  10. 

002  A 

27,2011 

35663 

1 

• 

0025 

REF  l 27,2000 

SETL0C 

ASENT1 

GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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AO 
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0026 

27,2012 

BANK 

0027 

REF 

l 

COUNT* 

$ $/P  70 

002  8 

27,2012 

03631 

0 

I 1/0 V ) A 

2DEC 

15.20  B— 7 2 SECONDS  WORTH  OF  INITIAL  ASCENT 

002  8 

27,2013 

23146 

0 

A0029 

STAGE  ACCELERATION  — INVFRTFD  (M/CS) 

A0030 

1)  PREDICATED  ON  A LIFTOFF  MASS  OF 

A0031 

4869.9  KG  (SNA-8-D-027  7/11/68) 

A0032 

2)  PREDICATED  ON  A CONTRIBUTION  TO  VEH- 

A0033 

ICLE  ACCELERATION  FROM  RCS  THRUSTERS 

A0034 

EQUIV.  TO  1 JET  ON  CONTINUOUSLY. 

0035 

27,2014 

33226 

1 

K ( 1 / 0 V ) 

2DEC 

436.70  B— 9 DPS  ENGINE  THRUST  IN  NEWTONS  / 100  CS. 

0035 

27,2015 

14632 

0 

0036 

27,2016 

05306 

1 

( AT)  A 

2DEC 

3.2883  E-4  B9  INITIAL  ASC.  STG.  ACCELERATION  **  M/CS. 

0036 

27,2017 

15503 

0 

A0037 

ASSUMPTIONS  SAMF  AS  FOR  (l/DVIA. 

0038 

27,2020 

26337 

1 

( T8UP ) A 

2DEC 

91902  B-17  E STIMATFD  BUPN-UP  TIME  OF  THE  ASCENT  STG 

003  8 

27,2021 

30000 

1 

A0039 

ASSUMPTIONS  SAME  AS  FOR  (l/DVIA  WITH  THE 

A0040 

ADDITIONAL  ASSUMPTION  THAT  NET  MASS-FLOW 

A004  I 

RATE  = 5.299  KG/SEC  = 5.135  (APS)  + 

A0042 

.164  (1  PCS  JET) . 

0043 

REF 

1 

30,2000 

SETLOC 

ASENT 

0044 

30,2000 

BANK 

0045 

REF 

1 

COUNT* 

$ $/A  SEN  T 

0046 

30,2000 

02445 

0 

AT/RCS 

2DEC 

.0000785  B+10  4 JETS  IN  A DRY  LEM 

0046 

30,2001 

00274 

0 

0047 

REF 

1 

33,2000 

SETLOC 

SERVICES 

004  8 

33,2000 

BANK 

0049 

REF 

1 

COUNT* 

$ $/S  ERV 

R0050 

**  * 

THE  ORDER  OF  THE 

FOLLOWING 

TWO  CONSTANTS  MUST 

NOT  BE 

CHANGED  ******* 

0051 

33,2000 

41545 

0 

APSVEX 

DEC 

-3030  E-2  B-5  9942  FT/SEC  IN  M/CS. 

\ 

0052 

33,2001 

42341 

1 

DPS V E X 

DEC* 

-2.95588868E+  IB-05*  VE  (DPS)  + 2 . 95 588 868F+  3 

R0053 

*****  ******* **  ******* 

*************************************************** 

0054 

REF 

1 

31,2000 

SETLOC 

F 2DPS*3 1 

0055 

31,2000 

BANK 

0056 

REF 

I 

COUNT* 

S 4/F20P  S 

005  7 

31,2000 

00222 

0 

TRIMACCL 

2DEC* 

+ 3.50132  70  8E-  5B+08*  A (T)  + 3 . 50  132 70 8E-  l 

005  7 

31, 2001 

33316 

0 

GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-L61 


L 

CONTROLLED 

CONSTANTS 

P005  8 

THROTTLING 

AND 

THRUST  DETECT 

ICN  PARAMETERS 

0059 

REF 

2 

LAST 

39 

36,2000 

SETLOC 

PAOS 

0060 

36,2022 

BANK 

006  1 

REF 

2 

LAST 

39  TO 

39: 

18 

18* 

COUNT* 

$ t/PAO 

0062 

36,2022 

00030 

1 

T HR  ES  HI 

DEC 

2 A 

006  3 

36,2023 

0001A 

1 

THRESH3 

DEC 

12 

006  A 

REF 

l 

A730 

HIRTHROT 

= 

B IT  1 3 

0065 

REF 

1 

6000 

SETLOC 

FFTAG5 

0066 

6000 

BANK 

0067 

REF 

1 

COUNT* 

$ $/PAO 

0068 

6000 

0CA6A 

1 

THRESH2 

DEC 

308 

0069 

REF 

1 

31,2000 

SETLOC 

FTHROT 

0070 

31,2002 

BANK 

007  1 

REF 

1 

COUNT* 

$$/THRnT 

0072 

31,2002 

07A01 

0 

FMAXOOD 

DEC 

+ 30A 1 

0073 

31,2003 

06613 

0 

FMAXPOS 

DEC 

+ 3A6  7 

007A 

31.200A 

00010 

0 

THRC1TLAG 

DEC 

+ 8 

007  A 5 

31,2005 

00307 

0 

SC  AL  E FAC 

2DEC* 

+ 7 . 979598  721 

007A5 

31,2006 

1753A 

0 

0075 

REF 

1 

32,2000 

SETLOC 

F 2DP  S*3  2 

0076 

32,2000 

BANK 

0077 

REF 

1 

COUNT* 

$ $/ F 2 DP  S 

0078 

32,2000 

OOOAA 

1 

DPSTHRSH 

DEC 

36 
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A 1 


FS  AT 

+ A . 

81A5AA1 3E+ 

FMAX 

+ A . 

3A5A6769E+ 

TAU  I TH  I 

+ 0 

.08  SECOND' 

2B-16* 

BI TPEPF 

+ 7. 

97959872E- 

(THRESH1  + THRESH3  FOR  P63) 
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L 

CCNTROLLEO  CONSTANTS 

P0082 

LM 

HARCRARE-RELATED 

PARAMETERS 

0083 

REF 

1 

25,2000 

SETLOC 

RADARUPT 

0084 

25,2000 

BANK 

0085 

REF 

l 

COUNT  * 

$ $/R  RUP  T 

0086 

25,2000 

47777 

0 

L VEL  BIAS 

DEC 

-12288 

0087 

25,2001 

00001 

0 

RODTBI AS 

2DEC 

1700  0 

0087 

25,2002 

01150 

1 

0088 

REF 

1 

32,2000 

SETLOC 

LRS22 

0089 

32,2001 

8ANK 

0090 

REF 

1 

COUNT  * 

$S/LRS22 

009  1 

32,2001 

7C123 

0 

RDOTCONV 

2DEC 

-.0019135344 

0091 

32,2002 

40702 

0 

0092 

32,2003 

13337 

1 

RANGCONV 

2DEC 

2.859024  B-3 

0092 

32, 2004 

1C776 

0 

0098 

REF 

2 LAST  40 

33,2000 

SETLOC 

SERVICES 

0099 

33,2002 

BANK 

0100 

REF 

2 LAST  40  TO 

40: 

2 

2* 

COUNT* 

$t/SERV 

0101 

33,2002 

51102 

0 

HBEAMNB 

2DEC 

-0.7147168647 

010  1 

33,2003 

42414 

0 

0102 

33,2004 

75522 

0 

2DEC 

-0.0731086602 

0102 

33,2005 

46002 

1 

0103 

33,2006 

51573 

L 

2DEC 

-0.6955824372 

0103 

33,2007 

62362 

1 

0104 

33,2010 

62770 

0 

VZBEAMNB 

2D  EC 

-0.4067366430 

0104 

33,2011 

40667 

1 

0105 

33,2012 

03034 

0 

2DEC 

+0.0954915028 

0105 

33,2013 

21031 

0 

0106 

33,2014 

35045 

0 

2DEC 

+0.9085409600 

0106 

33,2015 

21077 

1 

0107 

33,2016 

OCOOO 

1 

VYBE AMNB 

2DEC 

o 

o 

+ 

0107 

33,201 7 

COOOO 

1 

0108 

33,2020 

37646 

1 

2DEC 

+0.9945218954 

0108 

33,2021 

07712 

1 

0109 

33,2022 

74517 

1 

2DEC 

-0.1045284632 

0109 

33,2023 

54765 

1 

0110 

33,2024 

35167 

1 

VXBE AMNB 

2DEC 

+0.9135454576 

0110 

33,2025 

20727 

l 

0111 

33,2026 

01270 

0 

2DEC 

+ 0 .0425 15  5563 

Oil  1 

33,2027 

22313 

0 

0112 

33,2030 

14743 

1 

2DEC 

+0.4045084971 

0112 

33,2031 

16747 

l 
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LANDING  RADAR  BIAS  FOR  153.6  KC. 
BIAS  COUNT  FOR  RR  RANGE  RATE. 


-.0019135344  B7  CONVERTS  RR  ROOT  READING  TO  M/CS  AT  2(7) 
CONVERTS  RR  RANGE  RFADING  TO  M.  AT  2(-29 


POS  1 ALT  BEAM  IN  NAV  BASE  COORDINATES 


POS  1 VY  BEAM 


POS  1 VX  BEAM 


GAP: 

L 

0113 

0113 

0 1 1 A 

0114 

0115 

0115 

0116 

0116 

0117 

0117 

0118 

0118 

0119 

0119 

0120 

0120 

012  1 

0121 

0122 

0122 

0123 

0123 

0124 

0124 

0125 

0125 

R0126 

012  7 

0127 

0128 

0128 

0129 

0129 

RO 130 

0131 

0132 

0132 

0133 

0133 

0136 
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33,2032 

42001 

0 

20EC 

-0.9374036070 

POS  2 

ALT  BEAM 

33,2033 

62422 

1 

33,2034 

76653 

0 

2DEC 

-0.0364014993 

33,2035 

63102 

1 

33,2036 

64725 

0 

2DEC 

-0.3463371311 

33,2037 

63461 

1 

33,2040 

ocooo 

1 

2DEC 

+ 0.0 

POS  2 

VZ  BEAM 

33,2041 

00000 

1 

33,2042 

03260 

0 

2DEC 

+0.1045284632 

33,2043 

23012 

0 

33,2044 

37646 

l 

2DEC 

+0.9945218954 

33,2045 

C 7 7 12 

1 

33,2046 

00000 

l 

20EC 

+ 0.0 

POS  2 

V Y BEAM 

33,2047 

OCOOO 

1 

33,2050 

37646 

1 

2DEC 

+0.9945218954 

33,2051 

07712 

1 

33,2052 

74517 

1 

2DEC 

-0. 1045284632 

33,2053 

54765 

1 

33,2054 

37777 

1 

2DEC 

+0.9999999999 

POS  2 

VX  BEAM 

33,2055 

37777 

1 

33,2056 

00000 

1 

2DEC 

+ 0.0 

33,2057 

00000 

1 

33,2060 

00000 

L 

2DEC 

+ o.o 

33,2061 

00000 

1 

33, 2062 

65363 

1 HSCAl 

2DEC 

- .3288792 

SCALES 

1 .079  FT/BIT  TO  2 ( 22  ) M 

33,2063 

644  51 

0 

*****  THE  SEQUENCE  OF  THE  FOLLOWING  CONSTANTS  MUST  BE  PRESERVED  ******** 


33, 2064 

21241 

0 

V7SCAL 

2DEC 

+.5410829105 

SCALES  .8668 

FT/SEC/8  IT 

TO 

2(18  1 

M/CS 

33,2065 

03216 

1 

33,2066 

30153 

0 

vyscal 

2DEC 

+.7565672446 

SCALES  1.212 

FT/SEC/B I T 

TO 

2(18) 

M/CS 

33,2067 

23101 

0 

33,2070 

63105 

0 

VXSCAL 

2DEC 

- .4020043770 

SCALES  -.644 

FT/SEC/RIT 

TO 

2(18) 

M/CS 

33,2071 

61733 

1 

**********  ************************************************************** 


33 ,2072 

01507 

1 

KPIP 

DEC 

.0512 

SCALES 

DEL  V 

TO 

UNITS 

OF 

2(5) 

M/CS 

33,2073 

0C321 

1 

KPIP  1 

2DEC 

.0128 

SCALES 

DELV 

TO 

UNITS 

OF 

2(7) 

M/CS 

33,2074 

26706 

1 

33,2075 

0C150 

0 

KPIP2 

2DEC 

.0064 

SCALES 

DEL  V 

TO 

UNITS 

OF 

2(8) 

M/CS 

33,2076 

21,2000 

33343 

0 

SETLOC 

R 10 

( MAIN  ) 


PAGE  44 
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L CONTROLLED  CONSTANTS 


17:11  MAR.  19,1971 

USER'S  PAGE  NO.  6 


0137 

0138 

REF  1 

21,2000 

BANK 

COUNT* 

$$/R10 

0139 

21 ,2000 

01507 

1 

L ANAKPIP 

DEC 

.0512 

SCALES 

PIPAS  TO  UNITS 

OF 

0140 

21,2001 

0C466 

0 

MAXVEL 

OCT 

00466 

198.64 

5 F/S  IN  UNITS 

OF  2 

0141 

21,2002 

01034 

1 

MAXDBITS 

OCT 

01034 

ABOUT 

300  F/S 

0142 

21,2003 

01115 

0 

VELCQNV 

DEC 

. 03594 

SCALES 

VEL  AT  ONE  M/C 

S TO 

0143 

21 ,2004 

05101 

l 

ALTRCONV 

DEC 

. 16020 

SCALES 

ALTR  AT  2(2)  M 

/cs 

0144 

21,2005 

26305 

0 

ALTCONV 

DEC 

.69954 

SCALES 

ALTITUDE  AT  2( 

15  ) 

0145 

0146 

0147 

REF  1 

REF  l 

20,2000 

20,2000 

SETLOC 

BANK 

COUNT* 

DAPS3 
t S/DAPAO 

0148 

20,2000 

01150 

1 

TORK J ET  1 

DEC 

.03757 

550  / 

.2  SCALED  AT  (+ 

16) 

EO  S3 

2(5)  M/CS 
(5)  M/CS 

.5571  F/S/BIT 
TO  .5  F/S/BIT 
M TO  9.38  F/BIT 

64  / 180 


GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  2021L12-161 


L CCNT ROLLED  CONSTANTS 


PO 149 

PARAMETERS  RELATING 

TO  MASS, 

INERTIA 

, AND  VEHICLE  DIMENSIONS 

0150 

REF 

1 

05,2000 

SET  LCC 

FRANDRES 

0151 

C 5 , 2000 

BANK 

0152 

REF 

1 

COUNT  * 

$ $/ STAR  T 

0153 

05,2000 

02357 

1 

FULLAPS 

DEC 

5050  B- 16 

0154 

REF 

1 

01,2000 

SET  L CC 

LOADD AP 1 

0155 

01,2000 

BANK 

0156 

REF 

1 

COUNT* 

t $/R03 

0157 

01,2000 

75675 

1 

M INLMD 

DEC 

-4360  B-16 

AO  15  7 1 

0158 

01,2001 

76731 

0 

MINMINLM 

DEC 

-2200  B-16 

0159 

REF 

l 

4732 

M I NC  S M 

= 

BIT11 

0160 

REF 

2 LAST 

44 

20,2000 

SETLOC 

DAPS3 

0161 

20,2001 

BANK 

0162 

REF 

2 LAST 

44  TO 

45  : 

1 

1* 

COUNT* 

$ $/D APAO 

0163 

20,2001 

01046 

1 

LDASCENT 

DEC 

2200  B-16 

0164 

20,2002 

1C  117 

1 

HIDE  SCNT 

DEC 

16700  B-16 

0165 

20,2003 

01174 

1 

LODE  SCNT 

DEC 

2542  B-16 

17:11  MAR.  19,1971 
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45 


USER'S  PAGE  NO.  7 EO  S3 


NOMINAL  FULL  ASCENT  MASS  — 2<16)  KG. 


MIN.  UNSTAGED  MASS  (6560  KG)  - MINMINLM 
2(16)  KG. 

MIN  ASCENT  STAGE  MASS  — 2(16)  KG. 

MIN  CSM  MASS  (OK  FOR  l/ACCS)  = 9050  LRS 


MIN  ASCENT  LEM  MASS  — 2(16)  KG. 

MAX  DESCENT  LEM  MASS  — 2(16)  KG. 

MIN  DESCENT  STAGE  (ALONE)  — 2(16)  KG 


GAP:  ASSEMBLE  RFVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 


1 7 : 1 1 MAR.  19,1971 


( MAIN ) 


PAGE 
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L 

CGNTRCLLFD  CONSTANTS 

USER' S PAGE  NO. 

P0166 

PHYSICAL  CONSTANTS  ( 

TIME  - INVARIANT  ) 

0167 

REF 

1 

37,2000 

SETLOC 

I MU2 

0168 

37,2000 

BANK 

0169 

REF 

1 

COUNT* 

$ S/P07 

0170 

37,2000 

07623  1 

OMEG/MS  2DEC 

.24339048 

0170 

37,2001 

26552  1 

0171 

REF 

1 

22,2000 

SETLOC 

R30L0C 

0172 

22,2000 

BANK 

0173 

REF 

1 

COUNT* 

$ $/R30 

R0174 

*** 

THE  ORDER 

OF  THE 

FOLLOWING 

TWO  CONSTANTS  MUST  BE  PRE 

: S ER VED  ********* 

0175 

22,2000 

27533  1 

1/RTMUM  2DEC* 

.45162595  E-4  B14* 

0175 

22,2001 

07571  0 

0176 

22,2002 

25004  1 

1/RTMUE  2DEC* 

.50087529  E-5  B17* 

0176 

22, 2003 

06702  1 

R 0 1 7 7 

0178 

REF 

2 LAST 

39 

27, 2000 

SETLOC 

P40S1 

0179 

27,2022 

BANK 

0180 

REF 

l 

COUNT* 

t S/S40. 9 

018  1 

2 7, 2022 

55340  0 

EARTHMU  2DEC  * 

-3.986032  E10  R-36*  M(3)/CS(2 

018  1 

27,2023 

61710  0 

0182 

REF 

2 LAST 

39 

27,2000 

SETLOC 

A SENT  1 

0103 

27,2024 

BANK 

0134 

REF 

1 

COUNT* 

$ $/P  1 2 

0185 

27,2024 

00072  l 

MUM ( — 37 ) 2DEC* 

4.9027780  F8  B-37* 

0185 

27, 2025 

16206  1 

0186 

27,2026 

00344  l 

MOONRATE  2DEC* 

.26616994890062991  E-7  B+19*  RAO/CS. 

0186 

27,2027 

24331  0 

0 18  7 

REF 

3 LAST 

42 

33,2000 

SETLOC 

SERVICES 

0188 

33,2077 

BANK 

0189 

REF 

3 LAST 

42  TO 

44: 

61  63  * 

COUNT* 

i $/SERV 

R 0 1 90 

4$  * 

THE  ORDER 

OF  THE 

FOLLOWING 

TWC  CONSTANTS  MUST  BE  PRESERVED  ********* 

019  1 

33,2077 

61377  0 

-MUDT  2DEC* 

-7.9720645  E+12  B-44* 

0191 

33, 2100 

55754  1 

0192 

33,2101 

77644  1 

-MUD  T 1 2DEC* 

-9.8055560  E+10  B-44* 

0192 

33,2102 

65556  1 

R0193 

# $ ***  *$  4 $*$*#**$#$***£**###*#*:*#££  ajc  =flc  A <=  Jit*##** 

0194 

33,2103 

64453  l 

-MUOTMUN  20EC* 

-9.8055560  E+10  B-38* 

0194 

33,2104 

55670  0 

0195 

33,2105 

00002  0 

RESO  2DEC  * 

40.6809913  E 1 2 B-58* 

0195 

33,2106 

11777  0 

GAP: 

ASSEMBLE  REVISION  210 

OF  A GC  PROGRAM  LUMINARY  BY  NASA  202 

1112-161  17:11  MAR, 

. 19,1971 

L 

CCNTROLLEO  CONSTANTS 

USER'S  PAGE  NO. 

0196 

33,2107 

01023 

1 

20J 

2DEC 

3.29692010  E-2 

0196 

33,2  110 

37155 

1 

0197 

33,2111 

0C065 

1 

2 J 

2DEC 

3.29692010  E-3 

0197 

33,2112 

06299 

0 

0198 

REF  l 

19,2000 

SETLOC 

P SOS  1 

0199 

19,2000 

BANK 

0200 

REF  1 

COUNT* 

tS/LOSAM 

020  1 

19,2000 

26723 

0 

RSUBEM 

2DEC 

389902000  8-29 

0201 

19,2001 

0C950 

0 

0202 

19,2002 

0C065 

l 

RSUBM 

2DEC 

1738090  B— 29 

0202 

19,2003 

01265 

1 

0203 

19,2009 

00302 

0 

RSUBE 

2DEC 

6373166  8—29 

0203 

19,2005 

29533 

1 

0209 

19,2006 

0CC52 

0 

ROE 

2DEC 

.00257125 

020  9 

19,2007 

09097 

0 

0205 

REF  l 

09,2000 

SETLOC 

CON  I C SI 

0206 

C9, 2000 

BANK 

0207 

REF  1 

COUNT* 

$ J/LT-LG 

0208 

09,2000 

0C302 

0 

ERAD 

2DEC 

6373338  B-29  PAD  RADIUS 

0208 

09,2001 

17755 

0 

0209 

09,2002 

00C65 

1 

5 09RM 

2DEC 

1738090  B-29  METERS 

B-29  ( FQUATOR 

0209 

C9, 2003 

01265 

1 

0210 

REF  2 LAST  97 

09,2000 

SETLOC 

CON  I C SI 

021  1 

09,2009 

BANK 

0212 

REF  1 

COUNT* 

t$/CONIC 

R0213 

***  THE  ORDER  OF  THE 

FOLLOWING 

CONSTANTS 

MUST  BE 

PRESERVED  ****** ******* 

0219 

09,2009 

22937 

1 

MUTABLE 

2DEC* 

3.986032  E10  B-36*  MUE 

0219 

09,2005 

16067 

1 

0215 

09, 2006 

15625 

1 

2DEC* 

.25087606  E-10  B+39* 

1 /MUE 

0215 

09,2007 

21092 

1 

0216 

t , ) 1 0 

30276 

1 

2DEC* 

1.99650995  E5  B-18* 

SORT (MUE ) 

0216 

09,2011 

09773 

0 

021  7 

09, 2012 

25009 

1 

20EC* 

.50087529  E-5  B+17* 

1 / SORT  1 MUE ) 

021  7 

09,2013 

06702 

1 

0218 

09, 2019 

16971 

1 

2DEC* 

9.902778  E 8 B-30* 

MUM 

0210 

09,2015 

0 13  52 

1 

0219 

09,2016 

21912 

0 

2DEC* 

.203966  E-8  8+28* 

l/MUM 

0219 

09,2017 

20500 

0 

0220 

09,2020 

25977 

1 

2DEC* 

2.21922176  E9  8-15* 

SORT  I MUM ) 

0220 

09,202  1 

03367 

0 

022  1 

09,2022 

27533 

1 

2DEC* 

.95162595  E-9  B+19* 

l/SQRTI MUM) 

0221 

09,2023 

07571 

0 

R0222 

i#*###**###****##***#  ***  Jfc#  * * *$  ****  ** 

( MAIN  I 


PAGE 
FO  S3 


GAP: 

L 

0223 

0224 

0225 

0226 

0226 

0227 

0228 

022  9 

R0230 

0231 

0231 

0232 

0232 

0233 

0233 

0234 

0234 

0235 

0235 

0236 

0236 

023  7 

023  7 

0238 

0238 

0239 

0239 

0240 

0240 

R0241 

0242 

0243 

0244 

0245 

0245 

0246 

0247 

0248 

0249 

0249 
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CONTROLLED  CONSTANTS  USER'S  PAGE  NO.  10  EO  S3 


REE 

1 

13,2000 

SETLOC 

INTINIT 

o 

c 

o 

(\j 

CO 

BANK 

REF 

1 

COUNT* 

$$/ INTIN 

13,2000 

07112  1 

OMEGMOON  2DEC* 

2.66169947  E-8  B+23* 

13,2001 

06620  0 

REE 

1 

13,2000 

SETLOC 

ORB  I T AL  2 

13,2002 

BANK 

REF 

1 

COUNT* 

1 S/ORB  I T 

***  TEE  ORDER  OE  THE  FOLLOWING  CONSTANTS  MUST  NOT  BE  CHANGED  *********** 


13,2002 

27446 

1 

2DEC* 

1.32715445  F16  B-54* 

S 

13,2003 

14620 

0 

13,2004 

16471 

1 

MUM 

2DEC* 

4.9027780  E8  B-30* 

M 

13,2005 

01352 

1 

13,2006 

22437 

1 

MUEARTH 

2DEC* 

3.986032  E10  (3-36* 

13,2007 

16067 

1 

13,2010 

C0C00 

1 

2DEC 

0 

13,2011 

CCOOO 

1 

13,2012 

02302 

1 

J4REQ/J3 

2DEC* 

.4991607391  F7  8-26* 

13,2013 

24736 

0 

13,2014 

77651 

0 

2DEC 

-176236.02  B-25 

13,2015 

76237 

0 

13,2016 

77776 

l 

2J3RE/J2 

2DEC* 

-.1355426363  E5  B-27* 

13, 2017 

53032 

0 

13,2020 

1C407 

0 

2DEC* 

.3067493316  E18  B-60* 

13, 2021 

C 5 344 

1 

13,2022 

13710 

0 

J2REQS0 

2DEC* 

1.75501139  E21  B-72* 

13,2023 

35320 

0 

13,2024 

12  160 

0 

3 J22R2MU 

2DEC* 

9.20479048  E16  B-58* 

13,2025 

12124 

0 

******> fc***#**#  * $ * ****:$:  jjtjje 

**************** 

REF  1 

27,2000 

SETLOC 

T0F-FF1 

27,2030 

BANK 

REE  1 

COUNT* 

$ t/T  FF 

27,2030 

24775 

1 

1 /RTMU 

20EC* 

.5005750271  E-5  B 1 7* 

MODIFIED  EARTH 

MU 

27,2031 

30424 

0 

REF  l 

42,2000 

SETLOC 

S BAND 

42,2000 

BANK 

REE  1 

COUNT* 

J>$/R05 

42,2000 

26723 

0 

REMDIST 

2DEC 

384402000  B-29  MEAN 

DISTANCE  BETWEEN 

EARTH  AND  MOON 

42,2001 

00450 

0 

GAP: 

L 

P0250 

0251 

0252 

0253 

0254 

0254 

0255 

0255 

0256 

0256 

025  ? 

0257 

0258 

0258 

0250 

0259 

0260 

0260 

026  1 

0261 

0262 

0262 

0263 

0263 

0264 

0264 

0265 

0265 

0266 

0266 

0267 

0267 

026  8 

0268 

0269 

0269 

0270 

0270 

0271 

0271 

0272 

0272 

0273 

0273 

0274 

0274 

0275 

0275 

0276 

0276 
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CCNTRCLLED  CONSTANTS 


USER'S  PAGE  NO.  11 


PHYSICAL  CONSTANTS  (TIME  - VARIANT) 


REF 

1 14,2000 

14,2010 

REF 

1 

14, 2010 

15264 

0 

14,2011 

C7253 

1 

14,2012 

74133 

0 

14,2013 

45  130 

1 

14,2014 

7C034 

1 

14,2015 

53644 

1 

14,2016 

15015 

1 

14, 2017 

35262 

1 

14,2020 

67C72 

0 

14,2021 

57521 

0 

14,2022 

02552 

1 

14,2023 

27310 

0 

14,2024 

07210 

0 

14, 2025 

34714 

1 

14,2026 

67300 

0 

14,2027 

47414 

0 

14,2030 

13262 

0 

14,2031 

27671 

1 

14,2032 

C5  101 

1 

14,2033 

34  175 

0 

14,2034 

7C717 

1 

14,2035 

46031 

1 

14,2036 

6246? 

0 

14, 2037 

45023 

1 

14,2040 

1 C 655 

0 

14,2041 

16340 

1 

14,2042 

63  23  7 

1 

14,2043 

45012 

0 

14,2044 

73  71  1 

1 

14,2045 

62337 

1 

14,2046 

07207 

0 

14,2047 

34100 

1 

14,2050 

61751 

0 

14,2051 

6 C 3 1 l 

1 

14,2052 

02344 

0 

14,2053 

11437 

1 

14,2054 

C3243 

1 

14,2055 

10132 

0 

14,2056 

62031 

1 

14,2057 

55616 

0 

14,2060 

70716 

0 

14.2U61 

43617 

0 

14,2062 

01747 

1 

14,2063 

01335 

0 

14,2064 

63532 

0 

14,2065 

54217 

1 

SETLOC  STARTAB 
BANK 

COUNT*  t $/ S T AR  S 


2DEC 

+ .8345006310 

B-l 

STAR 

37 

X 

20FC 

-.2388718657 

B-l 

STAR 

37 

Y 

2DEC 

- .4965369357 

8-1 

STAR 

37 

Z 

2DEC 

+.8141988673 

B-l 

STAR 

36 

X 

2DEC 

- .5553601830 

B-l 

STAR 

36 

Y 

2DEC 

+.1692786800 

B-l 

STAR 

36 

Z 

2DEC 

+.4542117996 

B-l 

STAR 

35 

X 

2DEC 

-.5390337930 

B-l 

STAR 

35 

Y 

2DEC 

+.7093195408 

B-l 

STAR 

35 

z 

2DEC 

+ .3205423120 

B-l 

STAR 

34 

X 

2DEC 

-.4434583652 

8-1 

STAR 

34 

Y 

2DEC 

-.8370169081 

B-l 

STAR 

34 

z 

2DEC 

+ .5524232365 

B-l 

STAR 

33 

X 

2DFC 

- . 7930716636 

B-l 

STAR 

33 

Y 

2DEC 

-.2566435348 

B-l 

STAR 

33 

z 

2DEC 

+ .4540867784 

B-l 

STAR 

32 

X 

2DEC 

- .8777450759 

B-l 

STAR 

32 

Y 

2DEC 

+ .1528685033 

B-l 

STAR 

32 

Z 

2DEC 

+ .2074286490 

B-l 

STAR 

31 

X 

2DEC 

- .8718956797 

8-1 

STAR 

31 

Y 

2DEC 

- .4435890882 

B-l 

STAR 

31 

z 

2DEC 

+.1219537054 

B-l 

STAR 

30 

X 

2DEC 

-.7702168243 

B-l 

STAR 

30 

Y 

PAGE 
EO  S4 


GAP: 


ASSEMBLE  REVISION  210  GF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


17:  1 1 


L CONTROLLED  CONSTANTS 


027  7 

14,2066 

12010 

0 

2DEC 

+.6260138474 

B—  1 

0277 

14,2067 

1 1614 

1 

0278 

14,2070 

76152 

0 

2DEC 

-.1120382967 

B-l 

0278 

14,2071 

45651 

1 

0279 

14,2072 

60371 

1 

2DEC 

- .96954421 16 

8-1 

0279 

14,2073 

57632 

1 

0280 

14,2074 

C3370 

0 

2DEC 

+.2177876068 

B-l 

0280 

14,2075 

03556 

1 

0281 

14,2076 

76127 

l 

2DEC 

-.1142900725 

B-l 

028  1 

14,2077 

67425 

0 

0282 

14,2100 

72436 

0 

2DEC 

- .3400201762 

B-l 

0282 

14,2101 

61577 

0 

0283 

14,2102 

6 1041 

0 

2DEC 

- .9334474056 

B-l 

0283 

14,2103 

46271 

1 

028  A 

14,2104 

72303 

1 

2DEC 

- .351  1952476 

B-l 

0284 

14,2105 

4C213 

0 

0285 

14,2106 

62637 

1 

2DEC 

-.8242322268 

B-l 

0285 

14,2107 

74356 

1 

0286 

14,2110 

70711 

1 

2DEC 

-.4441881743 

B-l 

0286 

14,2111 

46567 

1 

0287 

14,2112 

67366 

0 

2DEC 

- . 5324545035 

B-l 

0287 

14,2113 

44  175 

1 

0288 

14,2  114 

64424 

1 

2DEC 

- .7163035719 

B-l 

0288 

14,2115 

41241 

0 

0289 

1 4 , 2 1 L 6 

07  156 

1 

2DEC 

+.4510004372 

B-l 

0289 

14,2117 

23036 

0 

0290 

14,2120 

63330 

1 

2DEC 

-.7860186221 

B-l 

0290 

14,2121 

75735 

1 

0291 

14,2122 

67512 

0 

2DEC 

- .5221457573 

B-l 

0291 

14,2123 

62476 

0 

0292 

14,2124 

05227 

0 

2DEC 

+.3309660611 

B-l 

0292 

14,2125 

10611 

0 

0293 

14,2126 

64757 

0 

2DEC 

-.6895375091 

B-l 

0293 

14,2127 

51701 

0 

0294 

14,2130 

7 1233 

0 

2DEC 

-.4185354938 

B-l 

0294 

14,2131 

53334 

0 

0295 

14,2  132 

66425 

1 

2DEC 

- .5910719617 

B-l 

0295 

14,2133 

76017 

0 

0296 

14,2134 

66546 

0 

2DEC 

-.5812217481 

B-l 

0296 

14,2135 

64  151 

0 

0297 

14,2136 

73256 

1 

2DEC 

- .2911759648 

3-1 

0297 

14,2137 

65757 

l 

0298 

14,2140 

14120 

1 

2DEC 

+.7593669864 

B-l 

0298 

14,2  141 

32444 

1 

0299 

14,2142 

61251 

0 

2DEC 

- .9168160791 

B-l 

0299 

14,2143 

56  124 

0 

0300 

14,2144 

72307 

0 

2DEC 

-.3506241694 

8-1 

0300 

14,2145 

65764 

1 

0301 

14, 2 146 

74742 

0 

2DEC 

-.1910784362 

B-l 

0301 

14,2147 

65735 

0 

MAR.  19,1971  (MAIN) 


USER 

• S 

PAGE  NO 

STAR 

30 

Z 

STAR 

29 

X 

STAR 

29 

Y 

STAR 

29 

Z 

STAR 

28 

X 

STAP 

28 

Y 

STAR 

28 

Z 

STAR 

27 

X 

STAP 

27 

Y 

STAR 

27 

Z 

STAR 

26 

X 

STAP. 

26 

Y 

STAR 

26 

Z 

STAR 

25 

X 

STAR 

25 

Y 

STAR 

25 

Z 

STAP 

24 

X 

STAR 

24 

Y 

STAR 

24 

Z 

STAR 

23 

X 

STAR 

23 

Y 

STAR 

23 

Z 

STAR 

22 

X 

STAR 

22 

Y 

STAR 

22 

Z 

PAGE  50 
E 0 S4 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


17:11 


L CONTROLLED  CONSTANTS 


0302 

14,2150 

7C607 

1 

2DEC 

-.4521486548 

8-1 

0302 

14,2151 

77742 

0 

030  3 

14,2152 

77151 

1 

2DEC 

- .0495728431 

8-1 

0303 

14,2153 

74615 

0 

030  4 

14,2154 

61600 

0 

2DEC 

- .89056  39377 

8-1 

0304 

14,2155 

60003 

1 

0305 

14,2156 

60605 

1 

2DEC 

- .9524366380 

B-l 

030  5 

14,2157 

64345 

1 

0306 

14,2160 

77026 

0 

2DEC 

-.0597677121 

8-1 

0306 

14,2161 

54200 

1 

0307 

14,2  162 

73160 

1 

2DEC 

-.2988181236 

8-1 

030  7 

14,2  163 

42475 

1 

0308 

14,2164 

60430 

0 

2DEC 

- .9657334280 

8-1 

0308 

14,2165 

666  14 

l 

0309 

14,2166 

0C653 

1 

2DEC 

+.0521664164 

8-1 

0309 

14,2167 

13072 

0 

0310 

14,2170 

C4C42 

0 

2DEC 

+ .2542392790 

8-1 

031  0 

14,2171 

27232 

l 

031  1 

14,2172 

62162 

0 

2DEC 

- .8610673209 

8-1 

031  1 

14,2173 

44274 

0 

0312 

14,2  174 

07322 

0 

2DEC 

+.4632386329 

B-L 

0312 

14,2 175 

33  165 

0 

0313 

14,2176 

03265 

0 

2DEC 

+.2096974909 

8-1 

0313 

14,2177 

32741 

1 

0314 

14,2200 

63467 

1 

2DEC 

- .7745052221 

8-1 

0314 

14,2201 

50C64 

0 

0315 

14,2202 

11655 

1 

2DEC 

+ .6149043688 

8-1 

0315 

14,2203 

11273 

0 

0316 

14,2204 

75477 

l 

2DEC 

- . 1484394758 

8-1 

0316 

14,2205 

77366 

1 

0317 

14,2206 

70425 

0 

2DEC 

- .4661511162 

B-l 

0317 

14,2207 

51217 

1 

0318 

14,2210 

07505 

0 

2DEC 

+ .4772744503 

8-1 

031  8 

14,221 1 

32504 

1 

0319 

14,2212 

13726 

0 

2DEC 

+ .7449243154 

B-l 

0319 

14, 2213 

15341 

0 

0320 

14,2214 

72157 

1 

2DEC 

- .3613649782 

B-l 

0320 

14,2215 

66255 

0 

032  1 

14,2216 

11142 

0 

2DEC 

+ • 5745656444 

3-1 

032  1 

14,2217 

32737 

0 

0322 

14,2220 

64200 

1 

2DEC 

- .7343634472 

8-1 

0322 

14,2221 

43016 

1 

0323 

14,2222 

71316 

0 

2DEC 

- .4122762536 

B-l 

0323 

14,2223 

64201 

0 

0324 

14,2224 

16400 

1 

2DEC 

+ .9063680102 

B-l 

0324 

14,2225 

36737 

1 

0325 

14,2226 

01364 

1 

2DEC 

+ .0923326629 

8-1 

0325 

14,2227 

14350 

1 

0326 

14, 2230 

75C51 

1 

2DEC 

- .1824340636 

B-l 

0326 

14,2231 

60001 

0 

MAR.  19,1971  (MAIN) 

USER' S PAGE  NO.  13 


STAR 

21 

X 

STAR 

21 

Y 

STAR 

21 

Z 

STAR 

20 

X 

STAP 

20 

Y 

STAR 

20 

z 

STAR 

19 

X 

STAR 

19 

Y 

STAR 

19 

Z 

STAP 

18 

X 

STAR 

18 

Y 

STAP 

18 

Z 

STAR 

17 

X 

S TAR 

17 

Y 

STAP 

17 

Z 

STAR 

16 

X 

STAP 

16 

Y 

STAR 

16 

Z 

STAR 

15 

X 

STAR 

15 

Y 

STAR 

15 

Z 

STAP 

14 

X 

STAR 

14 

Y 

STAR 

14 

Z 

STAR 

13 

X 

PAGE  51 
EO  S4 


GAP: 

L 

0327 

032  7 

0328 

0328 

032  9 

0329 

0330 

0330 

033  1 

0331 

0332 

0332 

0333 

0333 

033  A 

033  A 

0335 

033  5 

0336 

0336 

033  7 

0337 

0338 

0 33  8 

0339 

0339 

03A0 

03A0 

03A  1 

03A1 

0 3A2 

03A2 

03A3 

03A3 

0 3A  A 

03A  A 

0 3A5 

03A5 

03A6 

03A6 

03A  7 

03A  7 

03A  8 

03A  8 

03A9 

0 3A9 

0350 

0350 

035  1 

0351 


ASSEMBLE  REV 
CONTROLLED 


PAGE  52 
EO  SA 


1A,2232 

17027 

l 

2DEC 

+ . 9A0A0  62129 

B-l 

STAR 

13 

Y 

1 A , 22  33 

31661 

l 

1A.223A 

73321 

0 

2DEC 

- .2869738089 

B— 1 

STAR 

13 

Z 

1A.2235 

A3A22 

1 

1 A , 2 236 

77007 

0 

2DEC 

- .06160  90080 

B-l 

STAR 

12 

X 

1A.2237 

51AA2 

1 

1A.22A0 

1 151A 

1 

2DEC 

+.6031289258 

B-l 

STAR 

12 

Y 

1 A , 22A l 

32502 

1 

1 A , 2 2A2 

63215 

1 

2DEC 

- .7952608559 

B-l 

STAR 

12 

Z 

1A.22A3 

A 7 1 06 

0 

1 A , 2 2AA 

02  1 AO 

0 

2DEC 

+ .13672 8027A 

B-l 

STAR 

11 

X 

1A.22A5 

02335 

0 

1A.22A6 

12716 

1 

2DEC 

+ .68  1A36A0  33 

B-l 

STAR 

1 1 

Y 

l A , 22 A7 

12356 

1 

1A.2250 

1 3 AO  1 

0 

2DEC 

+ .7189922632 

B-l 

STAR 

1 1 

Z 

1A.2251 

37A0A 

0 

1A.2252 

C3  15A 

1 

2DEC 

+.20073A5A55 

B-t 

STAR 

10 

X 

1A, 2253 

15267 

0 

1 A » 225 A 

17A03 

0 

2DEC 

+.9691236271 

B-i 

STAR 

10 

Y 

1A, 2255 

C17A3 

0 

1 A, 2256 

75552 

1 

2DEC 

- . 1A3 19580 12 

B-l 

STAR 

10 

Z 

1 A , 22  5 7 

76C50 

0 

1A, 2260 

05A65 

0 

2DEC 

+ .35027695A6 

B-l 

STAR 

9 

X 

1A.2261 

17001 

0 

1A, 2262 

16221 

1 

2DEC 

+.8927907521 

B-l 

STAR 

9 

Y 

1 A , 2263 

27572 

1 

1 A , 226A 

0AA20 

0 

20EC 

+.2832502918 

B-l 

STAR 

9 

z 

1A, 2265 

1A273 

1 

1 A , 2266 

06AA0 

l 

2DEC 

+.A10 1921571 

B-l 

STAR 

8 

X 

1A , 2267 

11323 

0 

1 A , 2 2 70 

07767 

0 

2DEC 

+ .A9899A7555 

B-l 

STAR 

8 

Y 

1A.2271 

30366 

1 

1A, 2272 

1 A 1 55 

0 

2DEC 

+ . 763378A305 

B-l 

STAR 

8 

Z 

1 A , 2 2 73 

23CA7 

0 

1A.227A 

13176 

0 

2DEC 

+ .70289378A0 

B-l 

STAR 

7 

X 

1A, 2275 

03307 

0 

1A, 2276 

132A7 

1 

2DEC 

+.7078988678 

B-l 

STAR 

7 

Y 

1A, 2277 

033A2 

1 

1A.2300 

01070 

1 

2DEC 

+ .069A227718 

8-1 

STAR 

7 

z 

1 A , 2 30 1 

26607 

l 

1A, 2302 

10557 

1 

2DEC 

+ . 5AA8995598 

B-l 

STAR 

6 

X 

1 A , 2 303 

32115 

0 

1A.230A 

10A0A 

0 

2DEC 

+ .531 7339073 

B-l 

STAP 

6 

Y 

1A, 2305 

0012A 

0 

1A, 2306 

65500 

l 

2DEC 

- .6A833 A9A73 

8-1 

STAR 

6 

Z 

1 A , 2 30  7 

72703 

0 

1A.2310 

00151 

1 

2DEC 

+ .0128995818 

B-l 

STAR 

5 

X 

1A , 231 1 

25A31 

0 

1A, 2312 

0CC77 

1 

2DEC 

+ .0078096205 

B-l 

STAR 

5 

Y 

1 A , 23 1 3 37176  0 
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CONSTANTS  USER'S  PAGE  NO.  1A 


GAP: 

L 

0352 

0352 

0353 

0353 

035  A 

0354 

0355 

0355 

0356 

0356 

035  7 

0357 

0358 

0358 

0359 

0359 

0360 

0360 

036  l 

036  l 

0362 

036  2 

0363 

036  3 

0364 

0364 

0365 

R0366 

0367 

0368 

0369 

0370 

0370 

0371 

0371 

0372 

0372 

0373 

0373 

0374 

0374 

0375 

0375 

0376 

0376 

0377 

0377 


ASSEMBLE  REVISION  210  CE  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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I MAIN) 


PAGE 


53 


CONTROLLED  CONSTANTS 


REE 

REF 


> 

USER  ' 

S 

PAGE 

NO. 

14,2314 

17777 

0 

2DEC 

+.9998862988  8-1 

STAR 

5 

Z 

14,2315 

02143 

0 

14,2316 

07675 

1 

2DEC 

+.4918322686  B-l 

STAR 

4 

X 

14,2317 

C2702 

0 

14,2320 

03420 

1 

2DEC 

+.2207092653  8-1 

STAR 

4 

Y 

14,2321 

01470 

0 

14,2322 

62414 

1 

2DEC 

-.8422520048  B-l 

STAR 

4 

l 

14,2323 

5C541 

l 

14,2324 

07506 

0 

2DEC 

+.4773424940  B-l 

STAR 

3 

X 

14,2325 

14361 

0 

14,2326 

01674 

0 

2DEC 

+.1168141178  B-l 

STAR 

3 

Y 

14,2327 

36C75 

0 

14,2330 

15736 

1 

2DEC 

+.8709132540  B-l 

STAR 

3 

z 

14,2331 

21775 

1 

14,2332 

16745 

0 

2DEC 

+.9342466124  B-l 

STAR 

2 

X 

14,2333 

13112 

l 

14,2334 

02620 

l 

2DEC 

+.1739271769  8-1 

STAR 

2 

Y 

14,2335 

31757 

0 

14,2336 

73011 

0 

2DEC 

-.3113400137  B-l 

STAR 

2 

Z 

14,2337 

6CC52 

0 

14,2340 

15776 

0 

2DEC 

+.8747608555  B-l 

STAR 

1 

X 

14,2341 

01237 

0 

14,2342 

00330 

1 

2DEC 

+.0264803244  B-l 

STAR 

1 

Y 

14,2343 

35521 

1 

14,2344 

07573 

1 

2DEC 

+.4838307948  B-l 

STAR 

1 

z 

14,2345 

21256 

0 

14,2346 

16C04 

1 

CATLOG 

DEC 

7172 

sje  # # * ##  * ##  # # # * £ * 

05,2000 

SETLOC 

EPHEM1 

C5.2001 

BANK 

COUNT  * 

iS/E  PHEM 

05,2001 

20000 

0 

KONMAT 

2DEC 

1.0  B-l 

A##*####*#### 

05, 2002 

00000 

1 

05,2003 

00000 

1 

2DEC 

0 

£ 

05,2004 

00000 

l 

05,2005 

00000 

1 

2DEC 

0 

* 

05,2006 

00000 

1 

C5.2007 

oocoo 

1 

2DEC 

0 

* 

05,2010 

00000 

1 

05,2011 

16533 

0 

2DEC* 

.917456380  B-l* 

ki  = cns 

(OBL  ) 

05,2012 

31537 

1 

05,2013 

77333 

1 

2DEC* 

-.035679339  B-l* 

K2  = SIN 

(OBL) 

SIN  ( 

05,2014 

66677 

1 

05,2015 

00000 

l 

2DEC 

0 

05,2016 

00000 

l 

05,2017 

06  2 73 

1 

2DEC* 

.397836387  B-l* 

K3  = SIN 

1 OBL  ) 

05,2020 

02330 

0 

15 


E0  S4 


(-1) 


GAP: 

ASSEMBLE  REVISION  210 

OF  AGO  PR 

OGRAM  LUMINARY  BY 

NASA  2021112-161 

17:11 

MAR.  19,1971 

(MAIN)  PAGE 

L 

CCNTRCLL  ED  CONSTANTS 

USER'S  PAGE 

NO.  16  EO  S4 

0373 

05,2021 

01242 

1 

2DEC* 

• 082280652 

B-l* 

K4  = COS  ( nBL ) 

SIN  ( IM) 

0373 

05,2022 

01302 

l 

03785 

REF  1 

15,2000 

SETLOC 

EPHEM 

03736 

15,2000 

BANK 

0379 

15,2000 

00040 

0 

CSTODAY 

2DEC 

8640000  B— 3? 

* NOTF 

0379 

15,2001 

36540 

0 

0380 

15,2002 

00002 

0 

RCB-13 

OCT 

00002 

* TABLES  CONTAI 

0381 

15,2003 

00000 

1 

OCT 

00000 

* CONSTANTS  FnR 

03315 

REF  1 

04,2000 

SETLOC 

EPHEM2 

03816 

04,2024 

BANK 

0382 

04,2024 

22572 

1 

RATESP 

2DEC* 

• 036600997 

B + 4* 

LOMR 

038? 

04,2025 

27325 

0 

0383 

04,2026 

01315 

1 

2DEC* 

.002737803 

B<-4* 

LOS  R 

0383 

04,2027 

26266 

1 

0384 

04,2030 

77731 

1 

2DEC* 

-.00014720 

B + 4* 

LONR 

0384 

04, 2031 

5 5144 

0 

0385 

04,2032 

21056 

l 

2DEC 

. 534104635 

LOMO 

0385 

04,2033 

305  1 5 

0 

0386 

04,2034 

1 C 5 76 

1 

2DEC 

. 273331484 

LOSO 

0386 

04, 2035 

10326 

1 

0387 

04,2036 

34076 

1 

2DEC 

.878830860 

LONO 

0387 

04,2037 

30363 

1 

03872 

REF  2 LAST  53 

05,2000 

SETLOC 

EPHEM1 

038  7 3 

05,2023 

BANK 

0388 

05,2023 

01076 

1 

VAL67 

2DEC* 

.017519236 

B+l* 

AMOO 

0388 

05,2024 

02200 

1 

0389 

05,2025 

00621 

1 

2DEC 

.024523430 

AARG 

0389 

05,2026 

31256 

1 

0390 

05,2027 

02245 

0 

2DEC  * 

.036291713 

B + 1* 

1/27 

0390 

05,2030 

06475 

1 

039  1 

05,2031 

00161 

1 

2DEC* 

. 003473642 

B + l* 

BMOD 

0391 

05,2032 

32301 

1 

0392 

05,2033 

21230 

0 

2DEC 

. 540564756 

BARG 

0392 

05,2034 

23473 

0 

0393 

05,2035 

02000 

0 

2DEC* 

.031250000 

B+  l* 

1/32 

0393 

05,2036 

00000 

1 

0394 

05,2037 

0C256 

0 

2DEC* 

.005320572 

B+  14 

CMOO 

0394 

05,2040 

13014 

0 

0395 

05, 2041 

77500 

1 

20EC 

-.011706923 

CARG 

0395 

05,2042 

46146 

0 

0396 

05,2043 

00131 

1 

2DEC* 

.002737925 

B + l* 

1/365 

0396 

05,2044 

26730 

1 

R039  7 

4 *4*44444  44*44*444444444444*44444444*  ****** 

0398 
039  9 
0400 

REF  1 

REF  1 

26,2000 

26,2000 

SETLOC  PLANT  I N2 
BANK 

COUNT  * tS/LUROT 

040  1 
0401 

26,2000 

26,2001 

17775  l COSI 
02052  1 

2DEC*  9.996417320  E-l  B-l* 

COS  (5521.5  SEC 

GAP: 

L 

040  2 

0402 

040  3 

0403 

0404 

0404 

040  5 

040  5 

0406 

0406 

0407 

040  7 

040  8 

040  8 

040  9 

040  9 

04L  0 

0410 
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USER' S PAGE  NO.  17  EO  S4 


26,2002 

00333 

1 

S INI 

2DEC* 

2 .676579050 

E-2 

B—  1* 

SIN  ( 5521.5  SEC. 

26,2003 

10374 

0 

26,2004 

77665 

1 

NOODOT 

2DEC* 

-1.703706128 

E- 

11  B28  * 

REV/CSEC 

26,2005 

42175 

1 

26,2006 

222  1 1 

0 

F DOT 

2DEC* 

4.253263471 

E-9 

B27* 

REV/CSEC 

26, 2007 

0C636 

1 

26,2010 

77777 

0 

BOOT 

2DEC* 

-1.145531390 

E- 

16  B28* 

RFV/C  SEC 

26,2011 

77767 

1 

26, 2012 

34076 

1 

NODIO 

2DEC* 

8.788308600 

F-l 

B 0* 

REV 

26,2013 

30363 

1 

26,2014 

24760 

0 

FSUBO 

2DEC* 

6.552737750 

E—  1 

B 0* 

R FV 

26,2015 

OC  133 

0 

26,2016 

02052 

l 

BSUBD 

2DEC* 

6.511941688 

E-2 

B 0* 

REV 

26,2017 

35250 

0 

26,2020 

37116 

0 

W EARTH 

2DEC* 

1 .160576171 

E— 7 

B23* 

REV/CSEC 

26,2021 

32631 

1 

26,2022 

30576 

0 

AZO 

2DEC* 

7 . 733314844 

E—  1 

B 0* 

REVS 

26,2023 

10326 

1 

GAP: 
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t MAIN  ) 
USER'S  PAGE  NO.  1 


PAGE 
EO  S4 


A0000C1 

R0000C2 


R0000C5 

A0001 

R0002 

A0003 

R0004 

R0006 

A0008 

R0009 
R001  1 
R0013 
A0015 

K0016 
A 001  8 

R0019 

A0021 

R 002  2 
R0024 
A0026 

R0027 

R0029 

R0031 

A0033 


+**  CHANNEL  DESCRIPT IONSF  WORDS  ARE  ALLOCATED  IN  ERASABLE  ASSIGNMENTS  *** 

CHANNEL  1 IDENTICAL  TO  COMPUTER  REGISTER  L (0001) 

CHANNEL  2 IDENTICAL  TO  COMPUTER  REGISTER  Q (0002) 

CHANNEL  3 HISCALAR;  INPUT  CHANNEL;  MOST  SIGNIFICANT  LA  BITS  FROM  33  STAGF  BINARY  COUNTER.  SCALE 

FACTOR  IS  B23  IN  CSEC,  SO  MAX  VALUF  ABOUT  23.3  HOURS  AND  LEAST  SIGNIFICANT  BIT  5.12  SECS. 

CHANNEL  A LOSCALAR;  INPUT  CHANNEL;  NEXT  MOST  SIGNIFICANT  1A  BITS  FROM  THE  33  STAGE  BINARY  COUNTER 

ASSOCIATED  WITH  CHANNEL  3.  SCALE  FACTOR  IS  B9  IN  CSEC.  SO  MAX  VAL  IS  5.12  SEC  AND  LEAST 
SIGNIFICANT  BIT  IS  1/3200  SEC.  SCALE  FACTOR  OF  D.P.  WORD  WITH  CHANNEL  3 IS  B23  CSEC. 

CHANNEL  5 PYJETS;  OUTPUT  CHANNEL;  PITCH  RCS  JET  CONTROL.  I R F AC  T I ON  CONTROL  SYSTEM)  USES  BITS  1-8. 

CHANNEL  6 RULLJETS;  OUTPUT  CHANNFL ; ROLL  RCS  JET  CONTROL.  (REACTION  CONTROL  SYSTEM)  USES  BIT  1-8. 

CHANNEL  7 SUPERBNK;  OUTPUT  CHANNEL;  NCT  RESET  BY  RESTART;  FIXED  EXTENSION  BITS  USEO  TO  SELECT  THF 

APPROPRIATE  FIXED  MEMORY  BANK  IF  FBANK  IS  30  OCTAL  OR  MORE  . USES  BITS  5-7. 

CHANNEL  10  OUTO;  OUTPUT  CHANNEL;  REGISTER  USEO  TO  TRANSMIT  L ATCH  I NG-P FL A Y DRIVING  INFORMATION  FOR 

THE  DISPLAY  SYSTEM.  BITS  15-12  ARE  SET  TO  THE  ROW  NUMBER  (1-14  OCTAL)  OF  THE  RFLAY  TO  RE 

CHANGED  AND  BITS  11-1  CONTAIN  THE  REOUIRFD  SETTINGS  FOR  THE  RELAYS  IN  THE  ROW. 


R0034 

R0036 

AO038 

CHANNEL  11 

DSALMOUT ; OUTPUT  CHANNEL;  REG 
DRIVE  INDIVIDUAL  INDICATORS  Of 

R0039 

A0040 

BIT 

1 

ISS  WARNING 

R0041 

A0042 

BIT 

2 

LIGHT 

COMPUTER  ACTIVITY  LAMP 

R0043 
A 004  4 

BIT 

3 

LIGHT 

UPLINK  ACTIVITY  LAMP 

R0045 

A0046 

BIT 

4 

LIGHT 

TEMP  CAUTION  LAMP 

R0047 

A0048 

BIT 

5 

LIGHT 

KEYBOARD  RELEASE  LAMP 

R0049 

A0050 

BIT 

6 

FLASH 

VERB  AND  NOUN  LAMPS 

R005  1 

BIT 

7 

LIGHT 

OPERATOR  ERROR  LAMP 
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A0052 

R0053 

BIT  8 

SPARE 

A0054 

R0055 

BIT  9 

TEST  CONNECTOR  OUTBIT 

A0056 

R0057 

BIT  10 

CAUTION  RESET 

A0058 

R0059 

BIT  11 

SPARE 

A0060 

R0061 

BIT  12 

SPARE 

A0062 

R0063 

BIT  13 

ENGINE  CN 

A0064 

R0065 

BIT  14 

ENGINE  OFF 

A0066 

R0067 

BIT  15 

SPARE 

A0068 

R0069 

CHANNEL  12 

CHAN12;  OUTPUT  CHANNEL;  BITS  USED  TO  DRIVE 

NAVIGATION 

A0071 

R0072 

BIT  1 

ZERO  RR  CDU ; CDU'S  GIVE  RRADAR  INFORMATION 

FOR  LM 

A0073 

R0074 

BIT  2 

ENABLE  CDU  RADAR  ERROR  COUNTERS 

A0075 

R0076 

BIT  3 

NOT  USED 

A0077 

R0078 

BIT  4 

COARSE  ALIGN  ENABLE  OF  IMU 

A0079 

R0080 

BIT  5 

ZERO  IMU  CDU'S 

A0081 

R0082 

BIT  6 

ENABLE  IMU  ERROR  COUNTER,  CDU  ERROR  COUNTER 

A0083 

R0C84 

BIT  7 

SPARE 

A0085 

R0086 

BIT  8 

DISPLAY  INERTIAL  DATA 

A0007 


A009  7 
R0090 
A0099 
R0100 
AO  10  l 


1R.  19,1971  (MAIN) 

USER'S  PAGE  NO.  2 


R008B 

A0089 

B I 

T 

9 

-PITCH 

GIMBAL 

TRIM 

(BELL 

MOTION) 

DESCENT 

ENG 

INE 

R0090 

A0091 

B I 

T 

10 

♦PITCH 

GIMBAL 

TRIM 

(BELL 

MOTION) 

DESCENT 

ENG 

INE 

R0092 

A0093 

B I 

T 

11 

-ROLL 

GIMBAL 

TRIM 

(BELL 

MOTION) 

DESCENT 

ENG 

INE 

R0094 

A0095 

B I 

T 

12 

♦ ROLL 

GIMeAL 

TRIM 

(BELL 

MOTION) 

DESCENT 

ENG 

INE 

R0096 

B I 

T 

13 

LR  P0S1 

[ T I ON  2 

COMMAND 

BIT  14  ENABLE  RENDESVOUS  RADAR  LOCK-ON;AUTO  ANGLE  TRACK'G 

BIT  15  ISS  TURN  ON  DELAY  COMPLETE 
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R01U2 
A0L0  3 
R0104 
R0105 
R 0 10  6 
AO  10  7 
R0108 
AO  109 
R0110 
AO  11  1 
R0112 
A 01 1 3 
R 0 1 1 A 
AOll  5 
K0116 
AOll  7 
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CHANNEL  13  CHAN13;  OUTPUT  CHANNEL 


AO  1 3 1 

R0132 
A0134 
R0135 
A0136 
R0137 
AO  1 3 8 
R0139 
A 0 1 A 0 
R01A1 
A 0 1 A 2 
R01A3 
A01AA 
R0145 
AO  IA6 
R01A  7 
R01A8 
A01A9 
R0150 
AO  15  1 
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BIT  1 
BIT  2 
BIT  3 

BIT  A 

BIT  5 

BIT  6 

BIT  7 

BIT  8 


RADAR  C 
RAUAR  B 
RADAR  A 


PROPER  SETTING  OF  THE  A,B,C  MATRIX 
SELECTS  CERTAIN  RADAR 
PARAMETERS  TO  BE  READ. 


RAUAR  ACTIVITY 

NOT  USED  (CONNECTS  AN  ALTERNATE  INPUT  TO  UPLINK) 
SPARE 

OOWNL INK  TELEMETRY  WORD  ORDER  CODE  BIT 

RHC  COUNTER  ENABLE  (READ  HAND  CONTROLLER  ANGLES) 


R0118 

B 1 

I T 

9 

START  RHC  READ  INTO  COUNTERS  IF 

RIT 

8 

SET 

AO  1 1 9 

RO  12  0 

B 1 

1 1 

10 

TEST  ALARMS,  TEST 

DSKY  LIGHTS 

AO  12  l 
R 0 12  2 

Bl 

IT 

1 1 

ENABLE  STANDBY 

A0123 
RO  124 

81 

[T 

12 

RESET  TRAP  31-A 

ALWAYS 

APPEAR 

TO 

BE 

SET 

TO 

0 

AO  12  5 
RO  12  6 
AO  12  7 

Bl 

! T 

13 

RESET  TRAP  31-B 

ALWAYS 

APPEAR 

TO 

BE 

SET 

TO 

0 

R0128 

Bl 

: T 

14 

RESET  TRAP  32 

ALWAYS 

APPEAR 

TO 

BE 

SET 

TO 

0 

AO  12  9 
R0130 

Bl 

T 

15 

ENABLE  T6  RUPT 

CHANNEL  14 

BIT  1 

BIT  2 

BIT  3 

BIT  4 

BIT  5 

BIT  6 

BIT  7 
BIT  8 

BIT  9 


CHAN14 ; OUTPUT  CHANNEL;  USED  TO  CONTROL  COMPUTER  COUNTER  CELLS  ( COU , GY RO , S P A CEC R AF T FUNC  . 
OUTLINK  ACTIVITY  (NOT  USED) 

ALTITUDE  RATE  OR  ALTITIDE  SELECTOR 
ALTITUDE  METER  ACTIVUY 

THRUST  DRIVE  ACTIVITY  FOR  OESCENT  ENGINE 
SPARE 

GYRO  ENABLE  POWER  FOR  PULSES 


GYRO  SELECT  B 
GYRO  SELECT  A 


PAIR  OF  BITS  IDENTIFIES  AXIS  OF  - 
GYRO  SYSTEM  TO  BE  TORQUED. 


GYRO  TORQUING  COMMAND  IN  NEGATIVE  DIRECTION 
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GYRO  ACTIVITY 
DRIVE  C DU  S 
DRIVE  CDU  T 
DRIVE  CDU  Z 
DRIVE  CDU  Y 
DRIVE  CCU  X 
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R0152 
AO  1 5 3 

BIT  10 

RO  154 
AO  15  5 

BIT  ll 

R0156 
AO  1 5 7 

BIT  12 

RO  15  8 
AO  15  9 

BIT  13 

RO  1 60 
AO  161 

BIT  14 

RO  16  2 
A0163 

BIT  15 

RO  164 
R0166 
AO  16  7 

CHANNEL 

RO  16  8 
R0170 
AO  172 

CHANNEL 

RO  1 73 
AO  1 74 

BIT  1 

R0175 
AO  1 76 

BIT  2 

RO  17  7 
AO  17  8 

BIT  3 

R0179 

A0180 

BIT  4 

R018  l 
A0182 

BIT  5 

RO  18  3 
AO  1 8 4 

BIT  6 

R0185 
AO  1 8 6 

BIT  7 

R0187 

NOTE:  ALI 

RO  189 
AO  19  0 

THAT  THE 

RO  19  1 
AO  192 

CHANNEL  : 

RO  1 93 
AO  194 

BIT  1 

RO  19  5 
AO  19  6 

BIT  2 

RO  197 
AO  19  8 

BIT  3 

R0199 

A0200 

BIT  4 

R0201 

BIT  5 

MNKEYIN;  INPUT  CHANNEL;KEY  CODE  INPUT  FROM  KEYBOARD  OF  DSKY,  SFNSED  BY  PROGRAM  WHEN 
PROGRAM  INTERRUPT  « 5 IS  RECEIVED.  USFS  BITS  5-1 

NAVKEYIN;  INPUT  CHANNEL;  OPTICS  MARK  INFORMATION  AND  NAVIGA  ION  PANEL  DSKY  (CM)  OR  THRUST 
CONTROL  (LM)  SENSED  BY  PROGRAM  WHEN  PROGRAM  INTER-RUPT  #6  IS  RECEIVED.  USES  BITS  3-7  ONLY. 

NOT  ASSIGNED 

NOT  ASSIGNED 

OPTICS  X-AXIS  MARK  SIGNAL  FOR  ALIGN  OPTICAL  TSCOPE 
OPTICS  Y-AXIS  MARK  SIGNAL  FOR  AOT 
OPTICS  MARK  REJECT  SIGNAL 

DESCENT*  ; CREW  DESIRED  SLOWING  RATE  OF  DESCENT 
DESCENT-  ; CREW  DESIRED  SPEEDING  UP  RATE  OF  0 1 C ENT 


INPUT  CHANNEL 
ABORT  WITH  DESCENT  STAGE 
UNUSED 

ENGINE  ARMEC  SIGNAL 

ABORT  WITH  ASCENT  ENGINE  STAGE 

AUTO  THROTTLE;  COMPUTER  CONTROL  OF  DESCENT  ENGINE 


I" 
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A0202 

R0203 

BIT  6 

A0204 

R0205 

BIT  7 

A0206 

R0207 

BIT  8 

A0206 

R0209 

BIT  9 

A0210 
R021  1 

BIT  10 

A0212 

R0213 

BIT  11 

A0214 

R0215 

BIT  12 

A0216 

R0217 

BIT  13 

A021  8 
R0219 

BIT  14 

A0220 
R022  1 

BIT  15 

A0222 

R0223 

CHANNEL  31 

R0225 

A0226 

R0227 

BIT  1 

R0229 
A023  1 
R0232 

BIT  2 

A0233 

R0234 

BIT  3 

A0236 

RG237 

BIT  4 

A023B 

R0239 

BIT  5 

R0241 

A0243 

R0244 

BIT  6 

A0245 

R0246 

BIT  7 

A0247 

R0248 

BIT  8 

A0249 

R0250 

BIT  9 

A0251 

R0252 

BIT  10 

A0253 

R0254 

BIT  11 

A025  5 
R0256 

BIT  12 

DISPLAY  INERTIAL  DATA 

RR  CDU  FAIL 

SPARE 

IMU  OPERATE  WITH  NO  MALFUNCTION 

LM  COMPUTER  (NOT  AGS)  HAS  CONTROL  OF  LM 

IMU  CAGE  COMMAND  TO  DRIVE  IMU  GIMBAL  ANGLES  TO  0. 

IMU  CDU  FAIL  (MALFUNCTION  OF  IMU  CDU,S) 

IMU  FAIL  (MALFUNCTION  OF  IMU  STABILIZATION  LOOPS) 

ISS  TURN  ON  REQUESTED 

TEMPERATURE  OF  STABLE  MEMBER  WITHIN  DESIGN  LIMITS 

INPUT  CHANNEL;  BITS  ASSOCIATED  WITH  THE  ATTITUDE  CONTROLLER,  TRANSLATIONAL  CONTROLLER, 
AND  SPACECRAFT  ATTITUDE  CONTROL;  USED  BY  RC S DAP 

ROTATION  (BY  RHC ) COMMANDED  IN  POSITIVE  PITCH  DIRECTION;  MUST  RE  IN  MINIMUM  IMPULSE  MODE. 
ALSO  POSITIVE  ELEVATION  CHANGE  FOR  LANDING  POINT  DESIGNATOR 

AS  BIT  1 EXCEPT  NEGATIVE  PITCH  AND  ELEVATION 

ROTATION  (BY  RHC)  COMMANDED  IN  POSITIVE  YAW  DIRECTION;  MUST  BF  IN  MINUMUM  IMPULSE  MODE. 

AS  BIT  3 EXCEPT  NEGATIVE  YAW 

ROTATION  (BY  RHC)  COMMANDED  IN  POSITIVE  ROLL  DIRECTION;  MUST  RE  IN  MINIMUM  IMPULSF  MODE. 
ALSO  POSITIVE  AZIMUTH  CHANGE  FOR  LANDING  POINT  DESIGNATOR 

AS  BIT  5 EXCEPT  NEGATIVE  ROLL  AND  AZIMUTH 

TRANSLATION  IN  +X  DIRECTION  COMMANDED  BY  THC 

TRANSLATION  IN  -X  DIRECTION  COMMANDED  BY  THC 

TRANSLATION  IN  +Y  DIRECTION  COMMANDED  8Y  THC 

TRANSLATION  IN  -Y  DIRECTION  COMMANDED  BY  THC 

TRANSLATION  IN  +Z  DIRECTION  COMMANDED  BY  THC 

TRANSLATION  IN  -Z  DIRECTION  COMMANDED  BY  THC 
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A0257 

R0258 

A0259 

R0260 

A0261 

R0262 

A0263 


BIT 

13 

ATTITUDE 

HOLD  MODE 

ON 

SCS  MODE 

CONTROL  SWITCH 

BIT 

1 A 

AUTO  STABILIZATION 

OF 

ATTITUDE 

ON  SCS  MODE 

SWITCH 

BIT 

15 

ATT  ITUDE 

CONTROL  OUT 

OF  DETENT 

( RHC  NOT  IN 

NEUTRAL 

R026A  CHANNEL  32  INPUT  CHANNEL. 

A0265 


R0266 

BIT 

1 

THRUSTERS 

2 £ A DISABLEO  BY  CREW 

A0267 

R0268 

BIT 

2 

THRUSTERS 

5 £ 8 DISABLED  BY  CREW 

A026S 

R0270 

BIT 

3 

THRUSTERS 

1 £ 3 DISABLED  BY  CREW 

A0271 

R0272 

BIT 

A 

THRUSTERS 

6 £ 7 DISABLED  BY  CREW 

A0273 

R027A 

BIT 

5 

THRUSTERS 

1A  £ 16  DISABLED  BY  CREW 

A0275 

R0276 

BIT 

6 

THRUSTERS 

13  £ 15  DISABLED  BY  CREW 

A0277 

R0278 

BIT 

7 

THRUSTERS 

9 £ 12  DISABLED  BY  CREW 

A0279 
R 0 2 8 0 

BIT 

8 

THRUSTERS 

10  £ 11  DISABLED  BY  CREW 

A028  1 
RU282 

BIT 

9 

DESCENT  ENGINE  GIMBALS  DISABLED  BY  CREW 

A028A 

R0285 

BIT 

10 

APPARENT  1 

9ESCENT  ENGINE  GIMBAL  FAILURE 

A0286 

R0287 

BIT 

1A 

INDICATES  PROCEED  KEY  IS  DEPRESSED 

A0288 


R0289 

R0291 

A0293 

CHANNE 

L 33 

CHAN33;  INPUT  CHANNEL;  FOR  HARDWARE 
FLOP  BITS  RESET  BY  A CHANNEL  "WRITE 

STATUS  AND  COMMAND  INFORMATION.  BITS 
" COMMAND  THAT  ARE  RESET  BY  A RESTART 

R029A 

A0295 

BIT 

1 

SPARE 

R0296 
A029  7 

BIT 

2 

RR 

AUTO-POWER  ON 

R029  8 
A0299 

BIT 

3 

RR 

RANGE  LOW  SCALE 

R0300 

A0301 

BIT 

A 

RR 

DATA  GOOD 

R0302 

A0303 

BIT 

5 

LR 

RANGE  DATA  GOOD 

R030A 

A0305 

BIT 

6 

LR 

P0S1 

R0306 

A0307 

BIT 

7 

LR 

P0S2 

15-11  ARE  FL  I P- 
£ BY  TARUPT  LOOP. 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


17:11  MAR.  19,1971 


(MAIN) 


PAGE 


62 


L 

INPUT/OUTPUT  CHANNEL 

BIT  OESCR I PT IONS 

USER' S PAGE  NO.  7 EO 

R0308 

BIT 

8 

LR  VEL  OATA  GOOO 

A 030  9 
R0310 

BIT 

9 

LR  RANGE  LOW  SCALE 

A031  1 
R0312 
A0313 

BIT 

10 

BLOCK  UPLINK  INPUT 

R0314 

A0315 

BIT 

1 l 

UPLINK  TOO  FAST 

R0316 

BIT 

12 

DOWNLINK  TOO  FAST 

A031  7 
R0318 

BIT 

13 

PIPA  FAIL 

A0319 

R0320 

A0322 

BI  T 

14 

WARNING  OF  REPEATED  ALARMS:  R E S T ART  , COUNT ER 

FAIL, 

, VOLTAGE  FAIL, AND  SCALAR  DOUBLE. 

R0323 

A0324 

BIT 

15 

LGC  OSCILLATOR  STOPPED 

R0325 

CHANNEL  34 

DNT  Ml;  OUTPUT  CHANNEL;  DOWNLINK  1 FIRST  OF 

TWO 

WORDS  SERIALIZATION. 

R0328 

CHANNEL  35 

DNT  M2;  OUTPUT  CHANNEL  DOWNLINK  2 SOCOND  OF 

TWO 

WORDS  SERIALIZATION. 

A0330 
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R0002 

R0004 

R0006 

R0008 


FLAGWOROS  0-11  ARE  DOWNLINKED  AND  CAN  BE  SET  AND  CLEARED  BY  UP-FLAG  AND  DOWN-FLAG  INSTRUCTIONS  IN  THF 

INTERPRETER.  THESE  WERE  PREVIOUSLY  LISTED  UNDER  "INTERPRETIVE  SWITCH  BIT  ASSIGNMENTS"  IN 
THE  ERASABLE  LOG  SECTION.  FLAGWORDS  12  C 13  WEREPR EV I OUSLY  RADMODES  AND  DAP800LS  AND 
ARE  STILL  DOWNLINKED  UNDER  THOSE  NAMES. 


A 000  9 

R0010  ALPHABETICAL  LIST  OF  FLAGWORDS 


R00105 

9 

25 

4 

1 

61 

R001 1 

FLAGWORD 

DEC.  NUMBER 

8 

IT 

AND  FLAG 

BIT  NAME 

R001  1 1 

ABTTGFLG 

143 

B 

IT 

7 FLAG  9 

r 

ABTTGB IT 

R0012 

ACCOKFLG 

207 

B 

IT 

3 FLAG 

13 

ACCSOKAY 

R0013 

ACC4-2FL 

199 

B 

IT 

11  FLAG 

13 

ACC40R2  X 

R0014 

ACMODFLG 

032 

8 

I T 

13  FLAG 

2 

ACMODRIT 

R0015 

ALTSCALE 

186 

B 

IT 

9 FLAG 

12 

ALTSCBIT 

R0016 

ANTENFLG 

183 

B 

I T 

12  FLAG 

12 

ANTENBIT 

R001  7 

AORBSFLG 

085 

B 

IT 

5 FLAG  5 

AORBSYST 

R0018 

ami  1TFLG 

200 

B 

IT 

10  FLAG 

13 

ACRBTRAN 

R0019 

APSESW 

130 

e 

IT 

5 FLAG 

8 

APSESB IT 

R0020 

APSFLAG 

152 

B 

I T 

13  FLAG 

10 

APSFL8IT 

R002  1 

ASTNFLAG 

108 

B 

IT 

12  FLAG 

7 

ASTNB IT 

R0022 

ATTFLAG 

104 

B 

I T 

1 FLAG 

6 

ATTFLBIT 

R002  3 

AUTOMODE 

193 

B 

IT 

2 FLAG 

12 

AUTOMBIT 

R0024 

AUTR1FLG 

209 

B 

IT 

1 FLAG 

13 

AUTRATE1 

R0025 

AUTR2FLG 

208 

B 

I T 

2 FLAG 

13 

AUTRATE2 

R0026 

AUXFL AG 

L03 

8 

IT 

2 FLAG 

6 

AUXFL  B I T 

R002  7 

AVEGFLAG 

l 15 

B 

I T 

5 FLAG 

7 

AVEGFBIT 

R0028 

AVEMIDSW 

149 

B 

I I 

1 FLAG 

9 

AVEMDBIT 

R0029 

AVFLAG 

040 

B 

IT 

5 FLAG 

2 

AVFLB  IT 

R0030 

CALCMAN2 

043 

B 

IT 

2 FLAG 

2 

CALC2BIT 

R003  1 

C ALCMAN3 

042 

B 

I T 

3 FLAG 

2 

CALC3B IT 

R0032 

CDESFLAG 

180 

B 

IT 

15  FLAG 

12 

CDESB  IT 

R0033 

CMOONFLG 

123 

B 

IT 

12  FLAG 

8 

) N 8 1 1 

R0034 

COGAFLAG 

131 

B 

IT 

4 FL  AG 

8 

COGAFBIT 

R0035 

CONTRLFL 

163 

e 

I T 2 

FLAG  1 

0 

CONTRLBT 

R0037 

CSMDKFLG 

197 

B 

I T 

13  FLAG 

13 

C SMDOCKD 

R0038 

CULTFLAG 

053 

B 

IT 

7 FL  AG 

3 

CULTB IT 

R0040 

CAPBOCLS 

F 

LGWRD13 

no  04 1 

CBSELFLG 

206 

BIT 

4 FLAG 

13 

DBSELECT 

R0041  l 

DBSL2FLG 

205 

BIT 

5 FLAG  13 

DBSLECT2 

R0042 

CESIGFLG 

185 

BIT 

10  FLAG 

12 

OESIGBIT 

R0043 

D I DEL  AG 

016 

BIT 

14  FLAG 

1 

UIOFLBIT 

R0044 

DIMOFLAG 

059 

BIT 

l FLAG 

3 

0 IMOB  IT 

COLUMN  NO. 
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R0045 

DMENFLG 

081 

BIT 

9 

FLAG 

5 

R0046 

CR  IFTDFL 

202 

BIT 

3 

FLAG 

13 

R0047 

DRIFTFLG 

030 

BIT 

15 

FLAG 

2 

R0048 

OSKYFLAG 

075 

eiT 

15 

FLAG 

5 

R 004  9 

D60R9FLG 

058 

BIT 

2 

FLAG 

3 

R0050 

ENGONFLG 

083 

BIT 

7 

FLAG 

5 

R0051 

ER AUFLAG 

017 

BIT 

13 

FLAG 

l 

R0052 

E TP  I FLAG 

038 

BIT 

7 

FLAG 

2 

R0054 

F INALFLG 

039 

BIT 

6 

FLAG 

2 

R0056 

FLAGWRDO 

I 000—014 ) 

( STATE 

+ 0 ) 

R005  7 

FLAGWPDl 

I C15-029) 

( STATE 

+ 1 ) 

R005  8 

FLAGWRD2 

(030-044) 

(STATE 

+ 2 ) 

R0059 

FLAG WHO 3 

( 045-059) 

( STATE 

+ 3 ) 

R0060 

FL AGWR04 

I 060-074) 

( STATE 

+ 4 ) 

R0061 

FLAGWRD5 

(075-089) 

(STATE 

+ 5 ) 

R0062 

FLAJWRC6 

( 090-104) 

( STATE 

+6  ) 

R0063 

FLAGWR07 

( 105-119) 

( STATE 

+ 7 ) 

R0064 

FLAGWR08 

( 120-134) 

( STATE 

+ BD) 

R006  5 

FLAGWRDS 

( 135-149 ) 

( STATE 

+ 9D) 

R0066 

FLAP 

142 

BIT 

8 

FLAG 

9 

R0067 

FLGWRD10 

( 150-164) 

( STATE 

+ 10D) 

R0068 

FLGWRDll 

( 165-179) 

( STATE 

+ 110) 

R0069 

FLGWRD12 

( 180-194  ) 

( STATE 

P 1 2D ) 

R0070 

FLGNRD13 

( 195-209) 

(STATE 

* 1 3D ) 

R007  1 

FL  PC 

138 

BIT 

12 

FLAG 

9 

R 007  2 

FLPI 

139 

BIT 

11 

FLAG 

9 

R0073 

flrcs 

149 

B I T 

10 

FLAG 

9 

R00735 

FLT59FLG 

146 

BIT 

4 1 

-LAG  9 

R0074 

FLUND ISP 

125 

BIT 

10 

FLAG 

8 

R0075 

FL  VR 

136 

BIT 

14 

FLAG 

9 

R0077 

FREEFLAG 

012 

B I T 

3 

FLAG 

0 

R00773 

FR  ST  I ME 

026 

BIT 

4 1 

-LAG  1 

R00775 

FSPASFLG 

005 

BIT 

10 

FLAG 

0 

R0078 

GLCKFAIL 

046 

BIT 

14 

FLAG 

3 

R0079 

GMBDRVSW 

095 

BIT 

10 

FLAG 

6 

R0080 

GUESSW 

028 

BIT 

2 

FLAG 

1 

R0C805 

HFAILFLG 

167 

BIT 

13 

FLAG 

1 1 

R008  1 

HFLSHFLG 

179 

BIT 

1 

FLAG 

1 l 

R0082 

IDLEFLAG 

1 13 

BIT 

7 

FLAG 

7 

R0083 

IGNFLAG 

107 

BIT 

1 3 

FLAG 

7 

R0084 

IMPULSV. 

036 

BIT 

9 

FLAG 

2 

R0085 

IMLSE 

007 

BIT 

8 

FLAG 

0 

R0086 

INF  INFLG 

128 

BIT 

7 

FLAG 

8 

R0087 

INITALGN 

133 

BIT 

2 

FLAG 

8 

R0088 

INTFLAG 

151 

BIT 

14 

FLAG 

10 

R0089 

I NTYPFLG 

056 

BIT 

4 

FLAG 

3 

R0090 

ITSWICH 

105 

BIT 

15 

FLAG 

7 

R0091 

JSM  TCH 

001 

BIT 

14 

FLAG 

0 

R0092 

LETABORT 

141 

BIT 

9 

FLAG 

9 

R0093 

LMOONFLG 

124 

BIT 

1 1 

FLAG 

8 
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0MENF8 IT 
DR IFT  BIT 
ORFT  BIT 
DSKYFB  I T 
D60R9BIT 
ENGONBIT 
ERADF  BIT 
ETPIBIT 
F INAL  BIT 


FLAPBIT 


FLPCB IT 

FLPIBIT 

FLRCS8IT 

FLT59BIT 

FLUNDBIT 

FLVRB  IT 

FREEF  BIT 

FRSTMBIT 

F SPAS  8 I T 

GL0KF8IT 

GMBDRBIT 

GUESSBIT 

HFAILRIT 

HFLSHBIT 

IDLEFBIT 

IGNFLBIT 

IMPULBIT 

IMUSEBIT 

INFINBIT 

INITABIT 

INTFLBIT 

INTYPBIT 

1 TSWB  I T 

JSWCHBIT 

LETABB1T 

LMOONBIT 
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R 0 09  4 

LCKCNSW 

010 

BIT 

5 

FLAG 

0 

LOKONBIT 

R0095 

LOSCMFLG 

033 

BIT 

12 

FLAG 

2 

L QSCM  BIT 

R0096 

LRALTFLG 

190 

BIT 

5 

FLAG 

12 

LRALTBIT 

RC09  7 

LRBYPASS 

165 

BIT 

15 

FLAG 

1 l 

LRBYB  IT 

R0098 

LRINH 

172 

BIT 

3 

FLAG 

l 1 

LRINHBIT 

R0099 

LPPOSFLG 

189 

BIT 

6 

FLAG 

12 

LRPOSBIT 

R0100 

LRVELFLG 

187 

BIT 

8 

FLAG 

12 

LRVEL  BIT 

R0101 

LUNAFLAG 

048 

BIT 

12 

FLAG 

3 

LUNAB  IT 

R0102 

MANUFLAG 

106 

BIT 

14 

FLAG 

7 

MANUFBIT 

R0103 

MGLVFLAG 

088 

BIT 

2 

FLAG 

5 

MGLVFBIT 

RO 104 

MIDAVFLG 

148 

BIT 

2 

FLAG 

9 

MIDAVBIT 

R0105 

MI DFLAG 

002 

BIT 

13 

FLAG 

0 

MIDFLBIT 

RO  10  6 

MIDIFLAG 

147 

eiT 

3 

FLAG 

9 

MIDIBIT 

RO  10  7 

MKCVFL AG 

072 

BIT 

3 

FLAG 

4 

MKOVB I T 

R010B 

MCCNFLAG 

003 

BIT 

12 

FLAG 

0 

MOONB IT 

R0109 

MRKIDFLG 

060 

BIT 

15 

FLAG 

4 

MRKIDBIT 

RO  1 1 0 

MRKNVFLG 

066 

BIT 

9 

FLAG 

4 

MRKNVBIT 

RO  1 1 1 

MRUPTFLG 

070 

BIT 

5 1 

FLAG  4 

MRUPT  BIT 

RO  1 1 2 

MUNFLAG 

097 

BIT 

8 1 

FLAG  6 

MUNFLBIT 

R01 1 3 

MWAITFLG 

064 

BIT 

11 

FLAG 

4 

MWAITBIT 

R0114 

NtEDLFLG 

Oil 

BIT 

4 

FLAG 

0 

NEEDLBIT 

R011 4 1 

NEE02FLG 

000 

BIT 

15 

FLAG 

0 

NEED2BIT 

RO  1 1 5 

NEWIFLG 

122 

BIT 

13 

FLAG 

8 

NEW  1 8 I T 

R0116 

NJETSFLG 

015 

BIT 

15 

FLAG 

l 

NJETSBIT 

R0117 

NODOFLAG 

044 

BIT 

1 

FLAG 

2 

N0D08 I T 

R011 75 

N0D0PC7 

049 

BIT 

1 1 

FLAG 

3 

N0P07B  IT 

RO  1 1 8 

NOLRRE AD 

170 

e I T 

10 

FLAG 

1 1 

NOLRRBIT 

R011  9 

NORM  Six 

1 10 

BIT 

10 

FLAG 

7 

NORMSBIT 

RO  120 

NQRRMCN 

086 

BIT 

4 

FLAG 

5 

NORRMBIT 

RO 12 l 5 

NOTERFLG 

019 

BIT 

11 

FLAG 

1 

NOTERBIT 

R0122 

NOTHRCTL 

078 

BIT 

12 

FLAG 

5 

NOTHRBIT 

K0123 

NOUPFLAG 

024 

BIT 

6 

FLAG 

1 

NOUPF  BIT 

RO 12  3 5 

NPGNCSFL 

164 

BIT 

1 

FLAG 

10 

NPGNCSBT 

RO  12  4 

NRMNVFLG 

067 

BIT 

3 

FLAG 

4 

NRMNVBIT 

RO  12  5 

NRMIDFLG 

062 

B I T 

13 

FLAG 

4 

NRMIDBIT 

RO  12  6 

NRUPTFLG 

071 

BIT 

4 

FLAG 

4 

NRUPT  BIT 

RO  12  7 

NT  ARGFLG 

102 

B I T 

3 

FLAG 

6 

NT  ARG  BIT 

RO  12  8 

NW  A I TFLG 

065 

BIT 

10 

FLAG 

4 

NWAITBIT 

R0132 

0R6WFLAG 

054 

BIT 

6 

FLAG 

3 

ORBWFBIT 

RO  13  3 

ORDERSW 

129 

BIT 

6 

FLAG 

8 

OROERBIT 

R0134 

OURRCFLG 

198 

BIT 

12 

FLAG 

13 

OURRC  BIT 

RO  13  5 

PDSPFLAG 

076 

BIT 

14 

FLAG 

5 

PDSPFBIT 

RO  13  6 

PFRATFLG 

041 

BIT 

4 

FLAG 

2 

PFRATBIT 

R0137 

P I N8RFLG 

069 

BIT 

6 

FLAG 

4 

PINBRBIT 

RO  13  7 5 

POOHFLAG 

045 

BIT 

15 

FLAG 

3 

POOHBIT 

R0139 

PREC I FLG 

052 

B I T 

8 

FLAG 

3 

PRECI BIT 

RO  140 

PRIODFLG 

061 

BIT 

14 

FLAG 

4 

PR IOOBIT 

RO  14  1 

PRCNVFLG 

068 

B I T 

7 

FLAG 

4 

PRONV  BIT 

RO  142 

PSTHIGAT 

169 

BIT 

1 1 

FLAG 

l 1 

PSTHIBIT 

R0143 

PULSEFLG 

195 

8 l T 

15 

FLAG 

13 
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R01432 

P21FLAG 

004 

BIT 

11 

FLAG 

0 

R0144 

P25FL AG 

006 

BIT 

9 

FLAG 

0 

RO  144  5 

P66PR0F  L 

0 14D 

BIT 

1 

FLAG  C 

1 

R0145 

P 707 l F LG 

137 

BIT 

13 

FLAG 

9 

R0146 

QUITFLAG 

145 

BIT 

5 

FLAG 

9 

RO  14  7 

RACMDDES 

FLGWR012 

RO  14  8 

RASFLAG 

FLGWR010 

RO  149 

RCDUF  A I L 

188 

BIT 

7 

FLAG 

12 

R0150 

RCCUOFLG 

182 

BIT 

L 3 

FLAG 

12 

RO  15  5 

REDFL AG 

099 

BIT 

6 

FLAG 

6 

RO  156 

R EFSMFLG 

047 

BIT 

13 

FLAG 

3 

RO  15  7 

RE  INTFLG 

158 

BIT 

7 

FLAG 

10 

RO  15  8 

REMODFLG 

181 

BIT 

14 

FLAG 

12 

RO  15  9 

RENOWFLG 

089 

BIT 

1 

FLAG 

5 

RO  160 

REPOSMCN 

184 

BIT 

1 1 

FLAG 

12 

RO  16  1 

RHCSCFLG 

203 

BIT 

7 

FLAG 

13 

R0162 

RNDVZFLG 

008 

BIT 

7 

FLAG 

0 

R 0 163 

RNGEDAT  A 

176 

BIT 

4 

FLAG 

11 

RO  164 

RNGSCFLG 

0 80 

BIT 

10 

FLAG 

5 

R01642 

RODFLAG 

018 

BIT 

12 

FLAG 

1 

RO 164  4 

ROTFL AG 

144 

BIT 

6 

FLAG 

9 

RO  16  5 

RPGFLAG 

120 

BIT 

1 5 

FLAG 

8 

RO  166 

RRCATAFL 

191 

BIT 

4 

FLAG 

12 

RO  16  7 

RRN8SW 

009 

B I T 

6 1 

CLAG  C 

RO  16  8 

RRPSFLAG 

192 

BIT 

3 

FLAG 

12 

RO  16  9 

RVSW 

l 11 

BIT 

9 

FLAG 

7 

RO  170 

R04FLAG 

051 

BIT 

9 

FLAG 

3 

R0172 

R10FLAG 

013 

BIT 

2 

FLAG 

0 

RO  17  2 5 

R12R0FLG 

1 77D 

B I T 

3 

FLAG 

1 1 

R0173 

R61FLAG 

020 

B I T 

10 

FLAG 

1 

R0174 

R77FLAG 

079 

BIT 

11 

FLAG 

5 

RO  176 

SLOPE  SR 

027 

B I T 

3 

FLAG 

1 

R 0 1 7 7 

SNUFFER 

077 

BIT 

13 

FLAG 

5 

RO  17  0 

SOLNSW 

087 

BIT 

3 

FLAG 

5 

R0179 

SRCHCPTN 

031 

BIT 

14 

FLAG 

2 

R0180 

STATEFLG 

055 

BIT 

5 

FLAG 

3 

R018  1 

STEERSV* 

0 34 

BIT 

11 

FLAG 

2 

RO  18  2 

SURFFLAG 

127 

BIT 

8 

FLAG 

8 

RO  18  3 

SWANOISP 

109 

BIT 

11 

FLAG 

7 

RO  18  4 

S3  2 . IFl 

090 

BIT 

15 

FLAG 

6 

RO  18  5 

S 32 . IF2 

092 

BIT 

14 

FLAG 

6 

R91B6 

S32. 1F3A 

092 

BIT 

13 

FLAG 

6 

R 0 1 8 7 

S3  2 . 1 F 3 8 

093 

B I T 

12 

FLAG 

6 

R0188 

TFFSW 

1 19 

BIT 

1 

FLAG 

7 

R0189 

TRACK FLG 

025 

BIT 

5 

FLAG 

1 

RO  19  0 

TURNGNFL 

194 

BIT 

1 

FLAG 

12 

RO  19  1 

ULLAGFLG 

204 

BIT 

6 

FLAG 

13 

R0192 

UPDATFLG 

023 

B I T 

7 

FLAG 

1 

R0193 

UPLOCKFL 

1 16 

BIT 

4 

FLAG 

7 

RO  194 

USEORFLG 

196 

BIT 

14 

FLAG 

13 
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P21FLBIT 

P25FL8IT 

P66PR0BT 

P7071BIT 

QUITBIT 


RCDUFBIT 

RCDUO  BIT 

REDFLBIT 

REFSM8IT 

REINTBIT 

REMODBIT 

RENDW6I T 

R EPOS  B I T 

RHCSCALE 

RNDVZB  IT 

RNGEOBIT 

KNGSCBIT 

ROOFL  BIT 

ROTFLBIT 

RPQFLBIT 

RRDATABT 

RRNBBIT 

RRRSBIT 

RVSWB  IT 

R04FL  BIT 

R 10FLBIT 

R12RDBIT 

R61FLBIT 

R77FL8IT 

SLOPEBIT 

SNUFF  BIT 

SOLNSBIT 

SRCH08IT 

STATEBIT 

STEERBIT 

SURFFBIT 

SwANOBIT 

S32BI T1 

S32BIT2 

S32BI T3A 

S32BIT3B 

TFFSWBIT 

TRACKBIT 

TURNONBT 

ULLAGER 

UPOATBIT 

UPLOCB IT 

USEQRJTS 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA 

L FLAGWORD  ASSIGNMENTS 


R0195 

VEHUPFLG 

022 

BIT 

8 

FLAG 

1 

RO  196 

VELDATA 

173 

BIT 

7 

FLAG 

11 

R0197 

VER I FLAG 

117 

BIT 

3 

FLAG 

7 

RO  19  7 5 

VFAILFLG 

166 

BIT 

14 

FLAG 

1 1 

R0198 

VFLAG 

050 

BIT 

10 

FLAG 

3 

RO  1 99 

VFLSHFLG 

178 

BIT 

2 

FLAG 

11 

R0200 

VI  NT  FLAG 

057 

BIT 

3 

FLAG 

3 

R0201 

VX  INH 

168 

BIT 

12 

FLAG 

1 1 

R0202 

V37FLAG 

1 14 

BIT 

6 

FLAG 

7 

R0203 

V67FL AG 

112 

BIT 

8 

FLAG 

7 

R0204 

V 82EMFLG 

1 18 

BIT 

2 

FLAG 

7 

R0205 

XDELVFLG 

037 

BIT 

8 

FLAG 

2 

R0206 

XDSPFLAG 

0 74 

BIT 

1 

FLAG 

4 

R0207 

XORFLG 

171 

BIT 

9 

FLAG 

1 1 

R0208 

XOVINFLG 

201 

BIT 

9 

FLAG 

13 

R0209 

ZOCMFLAG 

082 

BIT 

8 

FLAG 

5 

R0210 

3AXI SFLG 

0 04 

eiT 

6 

FLAG  5 

R021  1 

36CSW 

134 

BIT 

l 

FLAG 

8 

A0212 

R021  3 

ASSIGNMENT  AND 

DESCRIPTION 

OF 

FL  AGWORDS 

0214  REF 


0074  FLAGWRDO  = 


A0215 


A02I6 

0217 

0218  REF 
A0219 


0000  NEED2FLG  = 

4726  NFE02BIT  = 


A0220 
022  1 

0222  REF 
A0223 


0001  JSWITCH  = 

4727  JSWCHBIT  = 


A0224 

0225 

A0226 

0002 

0227 

A0228 

REF 

2 LAST 

41 

4730 

MIDFLAG  = 
MIDFLBIT  = 


A0229 

0230 

0231  REF 
A0232 


0003  MOONFLAG  = 

4731  MOONBIT  = 


A0233 


2021112-161  17:11  MAR.  19,1971 

USER'S  PAGE  NO 
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VELDABIT 

VERIFBIT 

VFAILRIT 

VFLAGBIT 

VFLSHB  IT 

VINTFBIT 

VXINHBIT 

V37FLBIT 

V67FLBIT 

V82EMBIT 

XDELVBIT 

XDSPB  IT 

XORFLBIT 

XOVINHIB 

ZOOMBIT 

3AXISBIT 

360SW8  IT 


STATE  +0  (000-014) 

( S FT  ) 

BIT  15  FLAG  0 ( S ) 

OOOD  DISPLAY  DAP  RATES 

B IT l 5 ON  FDA  I NEEDLFS. 


B IT  14  FLAG  0 ( S ) 

00  ID  INTEGRATION  OF  W 

BIT14  MATRIX 


BIT  13  FLAG  0 1 S ) 

002D  INTEGRATION  WITH 

SECONDARY  BODY  AND 
BIT13  SOLAR  PERTURBATIONS 


BIT  12  FLAG  0 (L ) 

003D  MOON  IS  SPHERE  OF 

BIT12  INFLUENCE 
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5 EO  S4 


(RESFT) 


CHECK  BIT  4 OF  THIS 
WORD  FOR  DISPLAY 
MODES  (1  OR  2 ) . 


INTEGRATION  OF  STATF 
VECTOR 


INTEGRATION  WITHOUT 
SOLAR  PERTURBATIONS 


EARTH  IS  SPHERF  OF 
I NFLUENCF 


BIT  11  FLAG  0 
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L 

FLAGWORO 

ASSIGNMENTS 

0234 

0235 
A0236 

REF 

2 

LAST 

45 

0004 

4732 

P21FLAG 
P21FLB IT 

A0237 
023  8 
0239 
A0240 

REF 

1 

0005 

4733 

FSPASFLG 

FSPASBIT 

A0241 

0242 

0243 
A0244 

REF 

1 

0006 

4734 

P25FLAG 
P25FLBI T 

A 024  5 
0246 
024  7 
A0248 

REF 

1 

0007 

4735 

I MUSE 
IMUSEBIT 

A0249 
0250 
025  1 
A0252 

REF 

I 

0010 

4736 

RNDVZFLG 
RNDVZB IT 

A0253 

0254 

0255 
A0256 

REF 

1 

0011 

4737 

RRNBSW 

RRNBBIT 

A0257 

0258 

0259 
A0260 

REF 

1 

0012 

4740 

LOKONSW 

LOKONBIT 

A0261 

0262 

0263 

A0264 

REF 

1 

0013 

4 74  1 

NEEDLFLG 

NEEDLBIT 

A0265 

0266 

A0267 

0268 

A0269 

REF 

1 

0014 

4742 

FREEFLAG 
FREE  FB I T 

A0270 

0271 

0272 
A0273 
A0274 

REF 

1 

0015 

4743 

R 10FLAG 
R 10FL8I T 
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0040 
8 IT11 


BIT  1 

0050 

BITLO 


BIT  9 
0 06D 
B I T9 


BIT  8 
0070 
B I T 3 


BIT  7 
0080 
B IT7 


BIT  6 
0090 
B IT6 


BIT  5 
0100 
8 IT5 


B IT  4 
0110 
8 IT4 


BIT  3 
0120 

B IT3 


BIT  2 
0130 
B IT2 


USER' S PAGE  NO.  6 EO  S4 

USE  BASF  VECTORS  1ST  PASS  — CALC- 
ALREAOY  CALCULATED  ULATE  BASE  VECTORS 


FLAG  0 

FIRST  PASS  THROUGH  NOT  FIRST  PASS  THRU 
REPOSITION  ROUTINE  REPOSITION  ROUTINE 


FLAG  0 ( S ) 

P25  0 PER AT ING 


P 2 5 NOT  OPERATING 


FLAG  0 IS) 

I MU  IN  USE 


I MU  NOT  IN  USE 


FLAG  0 ( S ) 

P20  RUNNING  (RADAR  P20  NOT  PUNNING 
IN  USE) 


FLAG  0 ( S ) 

RADAR  TARGET  IN 
NB  COORD  IN  ATF  S 


RADAR  TARGET  IN 
SM  COORDINATES 


FLAG  0 

( S) 

RADAR  LOCK-ON 

DESIRED 

RADAR  LOCK-ON  NOT 
DESIRED 


FLAG  0 IS) 

TOTAL  AT  T I TUO  F 
FRROR  OISPLAYEO 


A/P  FOLLOWING 
ERROR  DISPLAYED 


FLAG  0 

(USED  BY  P51-53  TEMP  IN  MANY  D I FFFRFNT 
ROUTINES  6 BY  LUNAR  + SOLAR  EPHFMER  IDES ) 


FLAG  0 

RIO  OUTPUTS  DATA  TO  BESIDES  OUTPUT  WHEN 
ALTITUDE  £ ALII TUDE  SET,  RIO  ALSO  OUTPUT 
RATE  METERS  ONLY  TO  FORWARD  E LATERAL 
VFLOCITY  CROSSPOI NTR 
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L 

FLAGWORD 
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USER*  S PAGE  NO 

7 EO  S4 

A0275 

A0276 

0277 

0278 
A0279 
A02791 

REF 

l 

0016 
4 744 

P66PR0FL  = 
P66PR0BT  = 

0 14D 
BITl 

CONTINUE  P 66 
HORIZONTAL 
VELOCITV  NULLING 

STOP  P66 
HORIZONTAL  VE L 
NULLING 

0280 

REF 

2 

LAST 

67 

0075 

FLAGWRD1  = 

STATE  +1 

1015-029) 

A028  1 

(SET) 

(RESET) 

A0282 

0283 

0284 
A0285 

REE 

2 

LAST 

67 

0017 

4726 

NJETSFLG  = 
NJETSBIT  = 

BIT  15  FLAG 
0150 
B 1 T 1 5 

1 (S) 

TWO  JET  RCS  BURN 

FOUR  JET  RCS  BURN 

AO  28  6 

0287 

0288 
A0289 

REE 

2 

LAST 

67 

0020 

4727 

DIDFLAG  = 
D IDF  LB  I T = 

BIT  14  FLAG 
016D 
B I T14 

1 (L) 

INERTIAL  DATA  IS 
AVAILABLE 

PERFORM  DATA  DISPLAY 
INITIAL IZATION  FUNCS 

A0290 

0291 

0292 
A0293 

REF 

3 

LAST 

67 

0021 

4730 

ERADFLAG  = 
ERADFBIT  = 

BIT  13  FLAG 

0170 

BIT13 

1 (S  ) 

COMPUTE  REAP.TH 
FISCHER  ELLIPSOID 

USE  CONSTANT  REARTH 
PAD  P AD  I US 

A0294 

0295 

0296 
A0297 
A02975 

REF 

2 

LAST 

67 

0022 

4731 

RODFLAG  = 
RODFLB  IT  = 

BIT12  FLAG  1 
0 180 
B IT12 

IF  IN  P 66 , NORMAL 
OPERATION  CONTINUES 
RESTART  CLEARS  FLAG 

IF  IN  P66 , RE-INIT- 
. IALIZATION  IS  PER- 
FORMED AND  FLAG  IS 

A0298 

0299 

02995 

A02996 

REF 

3 

LAST 

68 

0023 

4732 

NOTERFLG  = 
NUTERBIT  = 

BIT  11  FLAG 

190 

BITli 

1 

TERRAIN  MODEL 
INHIB [TED 

TERRAIN  MODEL 
PERMITTED 

A 030  0 

0301 

0302 
A0303 

REF 

2 

LAST 

68 

0024 

4733 

R61FLAG  = 
R61FLBIT  = 

BIT  10  FLAG 
0200 
BITIO 

1 ID 

RUN  R 6 1 LEM 

RUN  R65  LEM 

A0304 

A0305 

A0306 

A0307 

= 

BIT  9 FLAG  1 
0210 
B I T9 

A0308 

BIT  8 FLAG  1 

IS) 
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L 

FLAGWOPD 
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USER'S  PAGE  NO 

. 8 EO  S4 

0309 

0026 

VEHUPFLG  = 

0220 

CSM  STATE  VECTOR 

LEM  STATE  VECTOR 

0310 
A031  1 

REF 

2 

LAST 

68 

A735 

VEHUPBIT  = 

B IT8 

BEING  UPDATED 

BEING  UPDATED 

A0312 

BIT  7 

FLAG  1 

(S) 

0313 

0027 

UPUATFLG  = 

0230 

UPDAT  INC,  BY  MARKS 

UPDATING  BY  MARKS 

03 1 A 
A031  5 

REF 

2 

LAST 

68 

A736 

UPDATBIT  = 

B IT7 

ALLOWED 

NOT  ALLOWED 

A0316 

BIT  6 

FLAG  1 

(S  ) 

031  7 

0030 

NOUPFLAG  = 

0240 

NEITHER  CSM 

FITHER  STATE 

A0318 

NOR  LM  STATE  VECTOR 

VFCTOR  MAY  BF 

0319 
A032  0 

REF 

2 

LAST 

68 

A737 

NOUPFBIT  = 

BIT6 

MAY  BE  UPDATFD 

UPDATED 

A032  1 

BIT  5 

FLAG  1 

(S  ) 

0322 

0031 

TRACKFLG  = 

0250 

TRACKING  ALLOWED 

TRACKING  NOT  ALLOWED 

032  3 
A0324 

REF 

2 

LAST 

68 

A 7A0 

TRACKS  I T = 

B IT5 

A0325 

BIT  4 

FLAG  1 

0326 

0032 

FPSTIME  = 

260 

FIRST  TIME  THRU 

NOT  FIRST  TIME  THRU 

032  7 
A0328 

REF 

2 

LAST 

68 

4 74  1 

FR  ST  MB  I T = 

BIT4 

PREPOSITION 

PREPOSITION 

A0329 

BIT  3 

FLAG  1 

(S) 

0330 

0033 

SLOPESW  = 

0270 

ITERATE  WITH  BIAS 

ITERATF  WITH  REGULAR 

A0331 

METHOD  IN  ITERATOR 

FALSI  METHOD  IN 

0332 
AO  33  3 

REF 

2 

LAST 

68 

A 742 

SLQPEBIT  = 

BIT3 

I TERATOR 

A0334 

BIT  2 

FLAG  1 

( S ) 

0335 

0034 

GUESSW 

0280 

NO  STARTING  VALUE 

STARTING  VALUE  FOR 

0336 

A0337 

REF 

2 

l AST 

68 

4743 

GUESSBIT  = 

BIT2 

FOR  ITERATION 

ITERATION  EXIST.S 

A0338 

BIT  1 

FLAG  1 

A0339 

A0340 

=- 

0290 

0341 

REF 

3 

LAST 

69 

0076 

FLAGWRD2  = 

STATE 

+ 2 

(030-044 ) 

A0342 

(SET) 

(RESET  I 

A034  3 

BIT  15 

FLAG  2 

(S  ) \ 

034  A 

0036 

URIFTFLG  = 

0 300 

T3RUPT  CALLS  GYRO  \ 

T3RUPT  DOES  NO  GYRO 

0 3A5 
A03A6 

REF 

3 

LAST 

69 

4726 

DRFTBIT  = 

B I T 1 5 

COMPENSATION  \ 

COMPENSATION 

A03A7 

BIT  14 

FLAG  2 

( S) 

i 

" 
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034  8 

0037 

SRCHOPTN  = 

034  9 
A 035  0 

REE  3 

LAST 

69 

4727 

SRCHOBIT  = 

A035  1 

0352 

0040 

ACMODFLG  = 

0353 

A0354 

REF  4 

LAST 

69 

4730 

ACMODBIT  = 

A0355 

0356 

0041 

LOSC MF LG  = 

A0357 

0358 

A0360 

REF  3 

LAST 

69 

4731 

L0SCM8IT  = 

A036  I 

0362 

0042 

STEERSW  = 

0363 

A0364 

REF  4 

LAST 

69 

4732 

STEER  B I T = 

A0365 

A0368 

A0369 
0370 
A037  1 

0044 

IMPULSW  = 

0372 

A0373 

REF  2 

LAST 

68 

4734 

IMPUL8IT  = 

A0374 

0375 

0045 

XDELVFLG  = 

0376 
A 0 3 7 7 

REF  3 

LAST 

70 

4735 

X DEL  VB I T = 

A0378 

0379 

A0380 

0046 

FTP  I FLAG  = 

0301 

A0382 

REF  3 

LAST 

70 

4736 

ETPI8IT  = 

A0387 

0380 

0047 

FINALFLG  = 

A0389 

0390 

A0391 

REF  3 

LAST 

70 

4737 

FINALB1T  = 

A0392 

0393 

0050 

AVFLAG 

0394 

A0395 

REF  3 

LAST 

70 

4 740 

AVFLBIT  = 

20211 12-161 


17:  11  MAR.  19,1971 


( MAIN  I 
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0310 
B I T 1 4 


BIT  1 
0320 
B I T 1 3 


BIT  1 
0 33D 

BIT12 


BIT  1 

0340 

BIT11 


BIT  1 


BIT  9 

0360 

B I T9 


BIT  B 
0370 
B IT8 


BIT  7 
0300 

B I T 7 


BIT  6 

039D 

BIT6 


BIT  5 

0400 

BITS 


USER'S  PAGE  NO.  9 FO  S4 


RADAR  IN  AUTOMATIC 
SEARCH  OPT I0NIR24) 

RADAR  NOT  IN  AUTO- 
MATIC SEARCH  OPTION 

3 FLAG  2 

IS) 

MANUAL  ACQUISITION 
BY  R ENDESVOUS  RADAR 

AUTO  ACQUISITION 
BY  RFNDE SVOUS  RADAR 

2 FLAG  2 

IS) 

LINE  OF  SIGHT  BEING 
COMPUTED  ( R 21 ) 

LINE  OF  SIGHT  NOT 
BEING  COMPUTED 

1 FLAG  2 

( S) 

SUFFICIENT  THRUST 
IS  PRESENT 

INSUFFICIENT  THRUST 
IS  PRESFNT 

0 FLAG  2 

( S) 

FLAG  2 

(S  ) 

MINIMUM  IMPULSE 
BURN  (CUTOFF  TIME 
SPECIFIED) 

STEERING  BURN  I NO 
CUTOFF  TIME  YET 
AVAILABLE) 

FLAG  2 

(S  ) 

EXTERNAL  DELTAV  VG 
COMPUTATION 

LAMRERT  (AIMPOTNT) 
VG  COMPUTATION 

FLAG  2 

( S ) 

ELEVATION  ANGLE 
SUPPLIED  FOR 
P34, 74 

TPI  TIME  SUPPLIED 
FOR  P 34 , 74  TO  COMPUT 
ELEVATION 

FLAG  2 

(S) 

LAST  PASS  THROUGH 
RENDEZVOUS  PROGRAM 
COMPUTATIONS 

INTERIM  PASS  THROUGH 
RENDEZVOUS  PROGRAM 
COMPUTATIONS 

FLAG  2 

(S) 

LEM  IS  ACTIVE 
VEHICLE 

CSM  IS  ACTIVE 
VEHICLE 
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( MAIN  I 


PAGF 
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L 

F LAGWCRD 

ASSIGNMENTS 

USFR ' S PAGE  NO 

. 10  EO  S4 

A0396 
039  7 
039  8 
A0399 

REF 

3 

LAST 

70 

0051 
4 741 

PFRATFLG  = 
PFRATBIT  = 

BIT  4 FLAG  2 
0410 
B IT4 

IS) 

PREFERRED  ATTITUDE 
COMPUTED 

PREFERRED  ATTITUDE 
NOT  COMPUTED 

A0400 
040  1 
0402 
A0403 

REF 

3 

LAST 

70 

0052 

4742 

CALCMAN3  = 
CALC3BIT  = 

BIT  3 FLAG  2 
042D 
B I T3 

(SI 

NO  FINAL  ROLL 

FINAL  ROLL  IS 
NECESSARY 

A0404 
040  5 
0406 
A 040  7 

REF 

3 

LAST 

70 

0053 
4 743 

C4LCMAN2  = 
CALC2BIT  = 

BIT  2 FLAG  2 

0430 

BIT2 

(S) 

PERFORM  MANEUVER 
STARTING  PROCEDURE 

BYPASS  STARTING 
PROCEDURE 

A0408 
040  9 
0410 
A041  1 

REF 

2 

LAST 

69 

0054 
4 744 

NODOFLAG  = 
NODOB  IT  = 

BIT  1 FLAG  2 
044D 
B I T 1 

IS) 

V37  NOT  PERMITTED 

V 37  PERMITTED 

0412 

REF 

4 

LAST 

70 

0077 

FLAGWRD3  = 

STATE  +3 

(045-059 ) 

A0413 

( SET) 

( RESFT) 

A0414 

0415 

0416 
A04165 

REF 

4 

LAST 

70 

0055 

4726 

POOHFLAG  = 
POOHBIT  = 

BIT  15  FLAG  3 
0450 
8 I T1  5 

INHIBIT  BACKWARDS 
INTEGRAT ION 

ALLOW  BACKWARDS 
I NTEGRAT ION 

A0417 
041  8 
0419 
A0420 

REF 

4 

LAST 

71 

0056 

4727 

GLOK  FAIL  = 
GLOKFBIT  = 

BIT  14  FLAG  3 
0460 
B I T 14 

(S) 

GIMBAL  LOCK  HAS 
OCCURRED 

NOT  IN  GIMBAL  LOCK 

A0421 

0422 

0423 
A 0 4 2 4 

REF 

5 

LAST 

71 

0057 

4730 

REFSMFLG  = 
REFSMBIT  = 

BIT  13  FLAG  3 
0470 
B I T 1 3 

***  PROTECTED  FROM 
REFSMMAT  GOOD 

FRESH  START  *** 
REFSMMAT  NO  GOOD 

A0425 
0426 
042  7 
A0428 

REF 

4 

LAST 

7 l 

0060 

4731 

LUNAFLAG  = 
LUNA8IT  = 

BIT  12  FLAG  3 
0480 
B IT12 

( S ) 

LUNAP  LAT-LONG 

EARTH  LAT-LONG 

A 042  9 
0430 
043  L 

REF 

5 

LAST 

71 

0061 

4732 

NOD0P07  = 
NOP07BIT  = 

BIT  11  FLAG  3 
0490 
B IT1  1 

(L  ) 

SYSTEM  TESTS 
NOT  ALLOWED 

SYSTEM  TESTS 
ALLOWED 

A0432 

A0*33  B IT  10  FLAG  3 ( S ) 
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0434 

0062 

VFLAG 

= 

0435 

A0436 

REF  3 

LAST 

69 

4733 

VFLAGBI T 

A043  7 

043  8 

0063 

R04F  LAG 

= 

044  0 
A044  1 

REF  3 

LAST 

7 1 

4734 

R04FLBIT 

A0446 
044  7 
A 044  8 

0064 

PREC IFLG 

= 

044  9 
A0450 

REF  4 

LAST 

71 

4735 

PRECIBIT 

= 

A045  L 

0452 

0065 

CULTFLAG 

= 

045  3 
A0454 

REF  4 

LAST 

71 

4 736 

CULTBIT 

= 

A0455 

0456 

0066 

ORBWFLAG 

= 

045  7 
A0458 

REF  4 

LAST 

71 

4737 

0RBWF8IT 

= 

A0459 

046  0 

0067 

STATEFLG 

= 

046  1 
A0462 

REF  4 

LAST 

71 

4740 

STATEBIT 

= 

A0463 

0464 

0070 

I NTYPFLG 

= 

0465 

A0466 

REF  4 

LAST 

72 

4 741 

INTYPBIT 

= 

A0467 

0468 

0071 

VINTFLAG 

= 

046  9 
A0470 

REF  4 

LAST 

72 

4742 

VINTFBIT 

= 

A0471 

0472 

0072 

060R9FLG 

= 

0473 

A0474 

REF  4 

LAST 

72 

4743 

D60R9BIT 

A0475 

0476 

0073 

0 IMOFLAG 

= 

047  7 
A047  8 

REF  3 

LAST 

72 

4744 

DIMOBIT 

= 

21112-161 

17:11  MAR.  19,1971 

(MAIN)  PAGE  73 

USFR'S  PAGE  NO, 

. 11  EO  S 4 

0500 

LESS  THAN  TWO  STARS 

TWO  STARS  IN  FIELD 

BIT10 

IN  FIELD  OF  VIEW 

OF  VIFW 

BIT  9 

FLAG 

3 

(S) 

051D 
B I T9 

R04  RUNNING 

R 04  NOT  RUNNING 

BIT  8 

FLAG 

3 

( S I 

0 52D 

NORMAL  INTEGRATION 

ENGAGES  4-TIME  STEP 

IN  POO 

(POO)  LOGIC  IN  INTE- 

B  I T 8 

GRATION 

BIT  7 

FLAG 

3 

IS) 

0530 

B I T 7 

STAR  OCCULTED 

STAR  NOT  OCCULTED 

B IT  6 

FLAG 

3 

(S) 

0 540 

W MATRIX  VALID  FOR 

W MATRIX  INVALID  FOR 

B IT6 

ORBITAL  NAVIGATION 

ORBITAL  NAVIGATION 

BIT  5 

FLAG 

3 

IS) 

0550 

PERMANENT  STATE 

PERMANENT  STATE 

B IT5 

VECTOR  UPDATED 

VECTOR  NOT  UPDATED 

BIT  4 

FLAG 

3 

( S ) 

0 560 
BIT4 

CONIC  INTEGRATION 

ENCKE  INTEGRATION 

B IT  3 

FLAG 

3 

IS) 

0 5 70 

CSM  STATE  VECTOR 

LEM  STATE  VECTOR 

B IT3 

BEING  INTEGRATED 

BEING  INTEGRATED- 

BIT  2 

FLAG 

3 

IS) 

058D 

DIMENSION  OF  W IS  9 

DIMENSION  OF  W IS  6 

8 IT2 

FOR  INTEGRATION 

FOR  INTEGRATION 

BIT  l 

FLAG 

3 

IS) 

0590 

W MATRIX  IS  TO  BE 

W MATRIX  IS  NOT  TO 

8 I T 1 

USED 

BE  USED 
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USER'S  PAGE  NO.  12  EO  S4 


047  9 

REF 

5 

LAST 

72 

0100 

FLAGWRD4  = 

STATE  +4 

(060-074 ) 

. A0480 

(SET) 

( RESET) 

A048  1 

BIT  15  FLAG  4 

(S) 

• 0482 

0074 

MRKIDFLG  = 

0 60D 

MARK  OISPLAY  IN 

NO  MARK  OISPLAY  IN 

0483 

A0484 

REF 

5 

LAST 

72 

4726 

MRKIDBIT  = 

BIT15 

ENOIDLE 

ENDIDLE 

A0485 

BIT  14  FLAG  4 

( S) 

0486 

0075 

PRIODFLG  = 

06 1 D 

PRIORITY  OISPLAY  IN 

NO  PRIORITY  DISPLAY 

048  7 
A0488 

REF 

5 

LAST 

72 

4727 

PRIOOBIT  = 

BIT14 

ENOIDLE 

IN  ENDIDLE 

• A0489 

BIT  13  FLAG  4 

IS) 

049  0 

0076 

NRMIOFLG  = 

062D 

NORMAL  DISPLAY  IN 

NO  NORMAL  DISPLAY 

0491 

A049? 

REF 

6 

LAST 

72 

4730 

NRMIUBIT  = 

B I T 1 3 

ENOIDLE 

IN  ENDIDLE 

A0493 

BIT  12  FLAG  4 

( S) 

A0494 

CODE  IN  = 

063D 

A0495 
A 049  8 

OISPLAY  AREA 

REFERS  TO  THIS 

BIT;  CHANGES  NEEDED 

IF  USED  IN  FUTURE. 

A0499 

BIT  11  FLAG  4 

(S) 

0500 

0100 

MWAITFLG  = 

064D 

HIGHER  PRIORITY 

NO  HIGHER  PRIORITY 

A0501 

OISPLAY  OPERATING 

DISPLAY  OPERATING 

0502 

REF 

6 

LAST 

72 

4732 

MWAITBIT  = 

B I T 1 L 

WHEN  MARK  OISPLAY 

WHEN  MARK  DISPLAY 

A0503 

INITIATED 

INITIATED 

A 050  4 

BIT  10  FLAG  4 

( S ) 

0505 

0101 

NWAITFLG  = 

065D 

HIGHER  PRIORITY 

NO  HIGHER  PRIORITY 

A0506 

OISPLAY  OPERATING 

DISPLAY  OPERATING 

050  7 

REF 

4 

LAST 

73 

4733 

NWAITBIT  = 

B I T 1 0 

WHEN  NORMAL 

WHEN  NORMAL  DISPLAY 

A0508 

DISPLAY  INITIATED 

INITIATED 

A050S 

BIT  9 FLAG  4 

( S ) 

0510 

0102 

MRKNVFLG  = 

0 660 

ASTRONAUT  USING 

ASTRONAUT  NOT  USING 

A051  l 

KEYBOARD  WHEN  MARK 

KEYBOARD  WHEN  MARK 

0512 

A0513 

REF 

4 

LAST 

73 

4734 

MRKNVRIT  = 

B IT9 

DISPLAY  INITIATED 

DISPLAY  INITIATED 

A0514 

BIT  8 FLAG  4 

( S) 

0515 

0103 

NRMNVFLG  = 

0 67D 

ASTRONAUT  USING 

ASTRONAUT  NOT  USING 

■ A0516 

KEYBOARD  WHEN 

KEYBOARD  WHEN 

0517 

REF 

5 

LAST 

73 

4 735 

NRMNV6IT  = 

B IT8 

NORMAL  DISPLAY 

NORMAL  OISPLAY 

A0518 

IN  IT  I ATED 

INITIATED 

A0519 

BIT  7 FLAG  4 

IS) 

, 0520 

0104 

PRONVFLG  = 

0680 

ASTRONAUT  USING 

ASTRONAUT  NOT  USING 

(MAIN) 


PAGF 


75 
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FLAGWORD 

ASSIGNMENTS 

USER'S  PAGE  NO 

U> 

m 

o 

A0521 

KEYBOARD  WHEN 

KFYBOARD  WHEN 

0522 

REF 

5 

LAST 

73 

4 736 

PRONVBIT  = 

B I T 7 

PRIOR  ITY  DISPLAY 

PRIORITY  DISPLAY 

A0523 

INITIATED 

INITIATED 

A0524 

BIT  6 

FLAG 

4 

(S) 

052  5 

0105 

P INBRFLG  = 

0690 

ASTRONAUT  HAS 

ASTRONAUT  HAS  NOT 

A0526 

INTERFERED  WITH 

INTERFERED  WITH 

0527 

A0528 

REF 

5 

LAST 

73 

4737 

PINBRBIT  = 

B IT6 

EX  1ST ING  DISPLAY 

EXIST ING  DISPLAY 

A 052  9 

BIT  5 

FLAG 

4 

IS) 

0530 

0106 

MRUPTFLG  = 

0 70D 

MARK  DISPLAY 

MARK  DISPLAY  NOT 

A0531 

INTERRUPTED  BY 

INTERRUPTED  BY 

0532 

A0533 

REF 

5 

LAST 

73 

4740 

MRUPTBIT  = 

B IT5 

PRIORITY  DISPLAY 

PRIORITY  DISPLAY 

A0534 

BIT  4 

FLAG 

4 

(S) 

0535 

0107 

NP.UPTFLG  = 

0 7 ID 

NORMAL  DISPLAY 

NORMAL  display  not 

A0536 

INTERRUPTED  BY 

INTERRUPTED  BY 

053  7 

REF 

5 

LAST 

73 

4741 

NRUPTBI T = 

B IT4 

PRIORITY  OR  MARK 

PRIORITY  OR  MARK 

A0538 

DI SPL  AY 

DISPLAY 

A0539 

BIT  3 

FLAG 

4 

(S) 

0540 

0110 

MKOVFLAG  = 

072D 

MARK  DISPLAY  OVER 

NO  MARK  DISPLAY  OVER 

054  1 
A0542 

REF 

5 

LAST 

73 

4742 

MKDVBIT  = 

BIT3 

NORMAL 

NORMAL 

A 054  3 

BIT  2 

FLAG 

4 

A 054  4 

= 

0 73D 

A0545 

A0546 

BIT  1 

FLAG 

4 

(S) 

0547 

0112 

XDSPFLAG  = 

0 74D 

MARK  DISPLAY  NOT 

NO  SPECIAL  MARK 

054  B 
A0549 

REF 

4 

LAST 

73 

4744 

X DSP  BIT  = 

B I T 1 

TO  BE  INTERRUPTED 

INFORMATION 

0550 

REF 

6 

LAST 

74 

0101 

FLAGWRD5  = 

STATE 

+ 5 

1075-089 ) 

A0551 

(SET) 

( P.FSET) 

A0552 

BIT  15 

FLAG 

5 

(S) 

0553 

0113 

USKY  FLAG  = 

075D 

DISPLAYS  SFNT  TO 

NO  DI SPLAYS  TO  OSKY 

0554 

A0555 

REF 

6 

LAST 

74 

4726 

DSKYFBIT  = 

BIT15 

DSKY 

A0556 

BIT  14 

FLAG 

5 

0557 

0114 

PDSPFLAG  = 

0760 

R60  DOES  PRIO  DSP. 

R60  DOES  NORMAL  DSP. 

0558 

REF 

6 

LAST 

74 

4727 

PDSPFBIT  = 

B IT14 

AND  IS  PFSTART 

AND  IS  NOT  RESTORTEO 

*05581  PROTECTED. 

A0559 
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FLAGWORD 

ASSIGNMENTS 

USER'S  PAGE  NO 

. 14  EO  S4 

A0560 

BIT  13  FLAG  5 

(S,LI 

0561 

0115 

SNUFFER 

= 

0770 

U,V  JETS  0 ISABLED 

U,V  JETS  FNABLFO 

A056  2 

DURING  DPS 

DURING  DPS 

0563 
A 056  6 

REF 

7 

LAST 

74 

4730 

SNUFF8  IT 

B IT13 

BURNS  ( V65 ) 

BURNS  ( V75  I 

A0565 

BIT  12  FLAG  5 

( S ) 

0566 

0116 

NOTHROTL 

= 

078D 

INHIBIT  FULL 

PERMIT  FULL  THROTTLE 

0567 
AO  56  8 

REF 

5 

LAST 

72 

4731 

NUTHKBI T 

B I T 12 

THROTTLE 

A 056  9 

RIT  11  FLAG  5 

C S , L I 

0570 

0117 

R77FLAG 

= 

079D 

R77  IS  ON, 

R77  IS  NOT  ON. 

A057  1 

SUPPRESS  ALL  RADAR 

A0572 

ALARMS  AND  TP  ACKER 

0573 

A0574 

REF 

7 

LAST 

74 

4732 

R77FLBIT 

B ITl  l 

FAILS 

A057  5 

BIT  10  FLAG  5 

(S) 

0576 

0120 

RNGSCFLG 

= 

0 SOD 

SCALE  CHANGE  HAS 

NO  SCALE  CHANGE  HAS 

A0577 

OCCURRED  DURING 

OCCURRED  DURING 

0578 

A0579 

REF 

5 

LAST 

74 

4733 

RNGSC8IT 

= 

BIT10 

RR  READING 

RR  RtADING 

A0580 

BIT  9 FLAG  5 

(S) 

0581 

0121 

DMENFLG 

= 

0 81D 

DIMENSION  OF  W IS  9 

DIMENSION  OF  W IS  6 

0582 

A0583 

REF 

5 

LAST 

74 

4734 

OMEN  F8 I T 

= 

B I T9 

FOR  INCORPORATION 

FOR  INCORPORATION 

A0584 

BIT  8 FLAG  5 

(S) 

0585 

0122 

ZGOMFLAG 

= 

0 820 

THROTTLE-UP  HAS 

THROTTLF-UP  HAS  NOT 

0586 

A0587 

REF 

6 

LAST 

74 

4735 

ZOOMBIT 

BITS 

OCCURRED  IN  P63. 

YET  OCCURRED  IN  P63. 

A0588 

BIT  7 FLAG  5 

(S) 

0589 

0123 

ENGONFLG 

= 

0 83D 

ENGINE  TURNED  ON 

ENGINE  TURNED  OFF 

0590 

A0591 

REF 

6 

LAST 

75 

4736 

FNG0N8I T 

R IT7 

A0592 

BIT  6 FLAG  5 

(SI 

0593 

0124 

3AXISFLG 

= 

084D 

MANEUVER  SPECIFIED 

MANEUVER  SPECIFIED 

A0594 

BY  THREE  AXES 

BY  ONE  AXIS;  R 60 

0595 

A0596 

KEF 

6 

LAST 

75 

4737 

3AXISBIT 

= 

B IT6 

CALLS  VECPOINT . 

A 059  7 

B IT  5 FLAG  5 

0598 

0125 

AORBSFLG 

= 

0850 

PREFER  PAXIS  JET 

PREFER  PAXIS  JET 

0599 

REF 

6 

LAST 

75 

4 740 

AORBSYST 

= 

B IT5 

PA  IRS  7,15  AND  8, 16 

PAIRS  4,12  AND  3,11 

A05995 
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210  OF 

AGO  PROGRAM 

LUMINARY  BY  NASA 

2021112-161  17: 

: 11  MAR.  19,1971 

(MAIN)  PAGE  77 

L 

FLAGWORD 

ASS IGNMENTS 

USER' S PAGE  NO. 

15  FO  S4 

A0600 

BIT  4 

FLAG  5 

(S) 

0601 

0126 

NORRMON  = 

0860 

BYPASS  RR  GIMBAL 

PERFORM 

0602 

REF 

6 

LAST 

75 

4 741 

N0RRM8IT  = 

B IT4 

MONITOR 

RR  GIMBAL  MONITOR 

A0603 

A0604 

R IT  3 

FLAG  5 

( S) 

060  5 

0127 

SOLNSW 

0870 

LAMBERT  DOES  NOT 

LAMBERT  CONVERGES  OR 

A0606 

CONVERGE, OR  T T ME-RADT I ME-RAD [US  NON 

0607 

REF 

6 

LAST 

75 

4 742 

SOLNSBIT  = 

B IT3 

NEARLY  CIRCULAR 

CIRCULAR 

A0608 

A0609 

BIT  2 

FLAG  5 

(S) 

0610 

0130 

MGLV  F LAG  = 

0880 

LOCAL  VERTICAL 

MIDDLE  GIMBAL  ANGLE 

A061  1 

COORDINATES 

COMPUTED 

0612 

REF 

5 

LAST 

73 

4743 

MGLVFB1T  = 

B IT2 

COMPUTED 

A0613 

A0614 

BIT  1 

FLAG  5 

(S) 

061  5 

0131 

R ENDWFLG  = 

0890 

W MATRIX  VALID 

W MATRIX  INVALID 

A0616 

FOP  RENDEZVOUS 

FOR  RENDEZVOUS 

0617 

KEF 

5 

LAST 

75 

4744 

RENDWBIT  = 

B 1 T 1 

NAVIGATION 

NAVIGATION 

A061  8 

0619 

REF 

7 

LAST 

75 

0102 

F LAGWR06  = 

STATE 

+ 6 

(090-104 ) 

A0620 

(SET) 

(RESET) 

A062  1 

BIT  15 

FLAG  6 

(S) 

0622 

0132 

S32.1F1  = 

090D 

DELTA  V AT  CS I TIME 

DVT1  LESS  THEN  MAX 

062  3 

REF 

7 

LAST 

75 

4726 

S328IT1  = 

B IT15 

ONE  EXCEFDS  MAX 

A0624 

A062  5 

BIT  14 

FLAG  6 

(S) 

0626 

0133 

S32.1F2  = 

0910 

FIRST  PASS  OF 

REITERATION  OF 

062  7 

REF 

7 

LAST 

75 

4727 

S32BIT2  = 

BIT14 

NFWTON  ITERATION 

NFWTON 

A0628 

A0629 

BIT  13 

FLAG  6 

(S) 

063  0 

0134 

S32.1F3A  = 

0920 

BIT  13  AND  BIT  12  FUNCTION  AS  AN  ORDERED 

063  1 

REF 

8 

LAST 

76 

4730 

S32BIT3A  = 

8 IT  1 3 

PAIR  (13,12)  INDICATING  THE  POSSIBLE  OC- 

A 063  2 

CURR  AN  CF  UF  2NFWT0N 

ITERATIONS  FOR  S32.1 

A0633 

IN  THE  PROGRAM  IN  THE  FOLLOWING  ORDER: 

A0634 

BIT  12 

FLAG  6 

(0,1)  (I.E.BIT  13  RESET, BIT  12  SET) 

0635 

0135 

S32. 1 F3B  = 

0930 

= FIRST  NEWTON 

ITERATION  BEING  DONE 

063  6 

REF 

6 

LAST 

76 

4731 

S32BIT38  = 

BIT12 

(0,01=  FIRST  PASS  OF 

SECOND  NEWT. ITERAT. 

A0637 

(1,1)=  50  FT/SEC  STAGE  OF  SEC.  NEWT. ITER 

A0638 

(1,01=  REMAINDER  OF 

SECOND  NEWTON  ITERA. 

A 063  9 

A0640 

BIT  11 

FLAG  6 

(S) 

GAP:  ASSEMBLE  REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY  NASA 

L FLAGWORD  ASSIGNMENTS 


A 064  3 

A0644 

0645 

0646  REF  6 LAST  76 
A0647 

A 064  8 
A 064  9 
A0650 
A0651 

A0654 

0655 

0656  REF  7 LAST  76 

A0657 

A0658 
065  9 

0660  REF  7 LAST  76 

A066  1 

A0662 

0663 

A0664 

0665  REF  7 LAST  76 

A 066  6 

A0667 
A0668 
A 066  9 

A0670 

A0671 

A0672 

0673 

A0674 

0675  REE  7 LAST  1 7 

A0676 

A0677 

0678 

0679  REF  6 LAST  77 

A0680 

A068  L 
A0682 
A0683 


0137 

GMBDRVSW 

4733 

GMBDRBIT 

0141 

MUNFL AG 

4735 

MUNFLBIT 

0142 

4736 

0143 

REDFLAG 

4737 

REOFLB IT 

0146 

NT  ARGFLG 

4742 

N TAR GBIT 

0147 

AUXFLAG 

4743 

AUXFLBIT 

A0684 


1112-161 


17:  11  MAR.  19,1971 


(MAIN  I 


PAGE 


78 


USER'S  PAGE  NO.  16  EO  S4 


BIT  10  FLAG  6 

(S) 

0 9 50 

TR  I MG  1 MR  OVER 

TR I MG  I MB  NOT  OVER 

B I T 1 0 

BIT  9 
0960 
B I T9 

FLAG  6 

BIT  8 

FLAG  6 

(S  ) 

097D 

SERVICER  CALLS 

SERVICER  CALLS 

B IT8 

MUNRVG 

CALCRVG 

BIT  7 
0 98D 
B IT7 

FLAG  6 

(L  ) 

B IT  6 

FLAG  6 

( L ) 

0990 

LANDING  SITE 

LANDING  SITE 

REDES  IGNAT  ION 

REDESIGNATION  NOT 

B IT6 

PERMITTED 

PERMITTED 

BIT  5 
100D 

FLAG 

6 

BIT  4 
1 0 ID 

FLAG 

6 

BIT  3 

FLAG 

6 

( S ) 

1 02D 

ASTRONAUT  DID 

ASTRONAUT  DID  NOT 

OVERWRITE  DELTA 

OVERWRITE  DELTA 

B IT3 

VELOCITY  AT  TPI 
OR  TPM  ( P34 , 3 5 ) 

VELOCITY 

8 IT  2 
1030 

FLAG 

6 

PROVIDING  IDLEFLAG 

SERVICER  WILL  SKIP 

BIT2 

IS  NOT  SET,  SERV- 

DVMON ON  ITS  NEXT 

ICER  WILL  EXERCISE 

PASS  EVEN  IF  THE 

DVMON  ON  ITS  NEXT 

f It  EFLAG  I S NOT  S E 

PASS. 

IT  WILL  THEN  SET 
AUXFLAG. 

BIT  1 

FLAG 

6 

( L ) 

GAP: 

ASSEMBLE  REVISION 

210  OF 

A GC  PROGRAM 

LUMINARY  BY  NASA 

2021112-161 

17 

: 1 1 MAR.  19,1971 

(MAIN)  PAGE  79 

L 

FLAGWORD 

ASSIGNMENTS 

USER' S PAGE  NO 

. 17  FO  S4 

0685 

0150 

ATTFLAG 

= 

1040 

LEM  ATTITUDE  EXISTS 

NO  LFM  ATTITUDE 

A0686 

I N MOON— F I XFD 

AVAILABLE  IN  MOON- 

0687 

A0688 

REE 

6 

LAST 

77 

4744 

ATTFLBIT 

= 

B ITl 

COORDINATES 

FIXED  COORDINATES 

0689 

REF 

8 

LAST 

77 

0103 

FLAGWR07 

= 

STATE  +7 

( 105-119) 

A0690 

(SET) 

(RESET) 

A0691 

BIT  15  FLAG 

7 

(S) 

0692 

0151 

I TSW  1CH 

= 

1050 

P34 ; T P I TIME  TO  RE 

TP  I HAS  BEEN 

0693 

A0694 

REF 

8 

LAST 

77 

4726 

ITSWBIT 

= 

B IT15 

COMPUTED 

COMPUTED 

A0695 

BIT  14  FLAG 

7 

(S) 

0696 

0152 

MANUFLAG 

= 

1 06D 

ATTITUDE  MANEUVER 

NO  ATTITUDE  MANEUVER 

A0697 

GOING  DURING  RR 

DURING  RR  SEARCH 

0698 

A0699 

REF 

8 

LAST 

77 

4 72  7 

MANUFBIT 

= 

B IT14 

SEARCH 

A070U 

BIT  13  FLAG 

7 

(S) 

0 70  1 

0153 

I GNF  LAG 

= 

1070 

TIG  HAS  ARRIVED 

TIG  HAS  NOT  ARRIVED 

0702 

A0703 

REF 

9 

LAST 

77 

4730 

I GNF  L B I T 

= 

BIT13 

AO  70  4 

BIT  12  FLAG 

7 

(S) 

0705 

0154 

ASTN  FLAG 

= 

1080 

ASTRONAUT  HAS 

ASTRONAUT  HAS  NOT 

0 70  6 
A0707 

REF 

7 

LAST 

77 

4731 

ASTNBIT 

= 

BIT12 

OKAYED  IGNITION 

OKAYED  IGNITION 

AO  70  8 

BIT  11  FLAG 

7 

(L  ) 

0709 

0155 

SWANDISP 

= 

1090 

LANDING  ANALOG 

LANDING  ANALOG 

0710 
A071  1 

REF 

8 

LAST 

76 

4732 

SWANDBIT 

= 

BIT11 

OISPLAYS  ENAbLED 

DISPLAYS  SUPPRESSED 

A0712 

BIT  10  FLAG 

7 

(SI 

071  3 

0156 

NORM  SW 

= 

1 100 

UNIT  NORMAL  INPUT 

LAMBERT  COMPUTES  ITS 

0714 

A0715 

REF 

7 

LAST 

78 

4733 

NORMSBIT 

= 

BIT10 

TO  LAMBERT 

OWN  UNIT  NORMAL 

A0716 

BIT  9 FLAG  7 

(S) 

0717 

0157 

RVSW 

= 

1 1 ID 

DO  NOT  COMPUTE 

COMPUTE  FINAL  STATE 

A071  8 

FINAL  STATE  VECTOR 

VECTOR  IN  TIME-THETA 

in 

A0720 

REF 

6 

LAST 

76 

4734 

RVSWBIT 

= 

B I T9 

IN  TIME-THFTA 

A0721 

BIT  8 FLAG  7 

(S) 

0722 

0160 

V67FLAG 

= 

1 120 

ASTRONAUT  OVERWRITE 

ASTRONAUT  DOES  NOT 

AO  72  3 

W-MATRIX  INITIAL 

OVERWRITE  W-MATRIX 

0724 

REF 

8 

LAST 

78 

4735 

V67FLBIT 

= 

8 I T8 

VALUE  S 

INITIAL  VALUES 

GAP:  ASSEMBLE  REVISIJN  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA 

L FLAG WORD  ASSIGNMENTS 

A0725 

A0726 


0727 

0161 

I ULEFLAG 

= 

0 72  8 
A0729 

REF 

8 

LAST 

78 

A 736 

IOLEFBIT 

= 

A0730 

0 731 

0162 

V37FLAG 

= 

0732 

A0733 

REF 

8 

LAST 

78 

A 7 37 

V37FLBI T 

= 

A 073  A 

0735 

0163 

AVEGFLAG 

= 

0736 

A0737 

REF 

7 

LAST 

76 

A 7A0 

AVEGFBIT 

A0738 

0739 

016A 

U PLOCKFL 

= 

07A0 

A07A1 

REF 

7 

LAST 

77 

A 7A  1 

UPLOCBI T 

A07A2 

07A  3 

0165 

VERI FLAG 

= 

07A  A 
A0  7A5 

REF 

8 

LAST 

78 

A7A2 

VERIFBIT 

A 0 7 A 6 

07A  7 

0166 

V82EMFLG 

= 

07A8 

A07A9 

REF 

7 

LAST 

78 

A 7A3 

V82EMBI  T 

A0750 

0751 

0167 

TFFSW 

= 

0752 
AO  75  3 

REF 

7 

LAST 

79 

A7AA 

TFFSWBIT 

= 

075  A 

REF 

9 

LAST 

79 

010A 

FLAGWRD8 

= 

AO  75  5 

A0756 

0757 

A0758 

0170 

RPOFL AG 

= 

0759 

REF 

9 

LAST 

79 

A 726 

RPQFLBI T 

= 

AO  760 
AO  76  1 


A 076  2 
AO  76  3 


20211  12-161 


BIT  7 FLAG  7 

L13D 

BIT7 


BIT  6 FLAG  7 
1 1 At) 

8IT6 


BIT  5 FLAG  7 
1 15D 
B I T 5 


BIT  A FLAG  7 

l 160 

BITA 


BIT  3 FLAG  7 
1 170 
B IT3 


BIT  2 FLAG  7 

1 18D 

BIT2 


BIT  1 FLAG  7 
I 190 
B IT  1 


STATE  +80 


BIT  15  FLAG 
1200 

BIT15 


17:11  MAR.  19,1971  (MAIN)  PAGE  80 


USFR'S  PAGE  NO.  18  EO  SA 


(S) 

NO  OV  MONITOR  CONNECT  OV  MONITOR 


(S) 

AVERAGEG  (SERVICER)  A VERAGEG  (SFRVICER) 
RUNNING  OFF 


(S  ) 

AVERAGEG  (SERVICER)  AVERAGEG  (SFRVICER) 
DESIRED  NOT  DESIRED 


( S) 

K-KBAR-K  FAIL  MO  K-KBAR-K  FAIL 


IS  ) 

CHANGED  WHEN  V33F  OCCURS  AT  ENO  OF  P27 


(L,C) 

MOON  VICINITY  EARTH  VICINITY 


(S) 

CALCULATE  TPERIGEF  CALCULATE  TFF 


( 120-13A) 

(SET)  (RESET) 

8 ( S ) 

RPQ  NOT  COMPUTED  RPQ  COMPUTED 
( RPQ  = VECTOR  BE- 
TWEEN SECONDARY  BODY 
AND  PRIMARY  BODY 


BIT  1A  FLAG  8 
1 2 ID 


GAP: 

ASSEMBLE  REVISION 

210  OF 

AGC  PROGRAM 

LUMINARY  BY  NASA 

L 

FLAGWORD 

ASSIGNMENTS 

A0764 
AO  76  5 

= 

A0766 

0767 

0172 

NEW  I FLG 

= 

076  8 
A0769 

REF  10 

LAST 

79 

4730 

NEWIBIT 

A0770 

0 771 

0173 

CMOONFLG 

= 

0772 
A077  3 

REF  8 

LAST 

79 

4 731 

CMOEINB  I T 

= 

A0774 

0775 

0174 

L MOONFLG 

= 

0776 

A0777 

REF  9 

LAST 

79 

4732 

LMOONBIT 

= 

A 077  8 

0779 

0175 

FLUNDISP 

= 

0780 
AO  78  1 

REF  8 

LAST 

79 

4733 

FLUNDBIT 

= 

A0782 
A 0 7 8 3 

A0784 

A0785 

= 

A0786 

0787 

0177 

SURFFLAG 

= 

0788 

A0789 

REF  9 

LAST 

79 

4735 

SURFFBIT 

= 

A0790 

079  t 

0200 

INF1NFLG 

= 

A0792 

0793 

A0794 

REF  9 

LAST 

80 

4736 

INFINBIT 

= 

A0795 

0 79  6 

0201 

ORDERSW 

= 

0797 

A0798 

REF  9 

LAST 

80 

4737 

ORDERB  IT 

= 

A 079  9 
0800 
A0801 

0202 

APSESW 

= 

0802 

A0803 

REF  8 

LAST 

80 

4740 

APSESBIT 

= 

I L 1 2-  1 61 


17: 11  MAR.  19,1971 


t MAIN  ) 


PAGE 


81 


USER'S  PAGE  NO.  19 


EO  S4 


B I T14 


BIT  13  FLAG  8 (S) 


1220  FIRST  PASS  THROUGH  SUCCEEDING  ITERATION 

BIT13  INTEGRATION  OF  INTFGRAT  ION 


BIT  12  FLAG  8 
1230 
B IT12 


***  PROTECTED  FROM  FRESH  START  *** 
PERMANENT  CSM  STATE  PERMANENT  CSM  STATE 
IN  LUNAR  SPHERE  IN  EARTH  SPHERE 


BIT  11  FLAG  8 ***  PROTECTED  FROM  FRESH  START  *** 


1240 
B IT1  1 


PERMANENT  LM  STATE  PERMANENT  LM  STATE 
IN  LUNAR  SPHERE  IN  EARTH  SPHERE 


BIT  10  FLAG  8 (L ) 


1250 
B I T 10 


CURRENT  GUIDANCE  CURRFNT  GUIDANCE 
DISPLAYS  INHIBITED  DISPLAYS  PERMITTED 


B IT  9 FLAG  8 (L ) 
1 2 60 
B [T9 


BIT  8 FLAG  8 

1270 

BITS 


***  PROTECTED  FROM  FRF  SH  START  *** 
LM  ON  LUNAR  SURFACE  LM  NOT  ON  LUNAR 
SURFACE 


BIT  7 FLAG  8 
1 28D 

BIT7 


IS) 

NO  CONIC  SOLUTION  CONIC  SOLUTION 

(CLOSURE  THROUGH  FXISTS 

INFINITY  REQUIRED) 


BIT  6 FLAG  8 
1 29D 
B IT6 


(S) 

ITERATOR  USES  2ND  ITERATOR  USES  1ST 
ORDER  MINIMUM  MODE  ORDER  STANDARD  MDOF 


BIT  5 FLAG  8 
1 30D 

B IT5 


(S) 

RDES I RED  OUTSIDE  RDES1 RED  INSIDE 

P ERIC  ENT ER-APOCENTERP ERIC  ENT ER-APOCFNTER 
RANGF  IN  TIME-RADI  PANGF  IN  TIME-RADIUS 


gap: 

ASSEMBLE  REVISION 

210  OF 

AGO  PROGRAM 

LUMINARY  BY  NASA 

L 

FLAGWORD 

ASSIGNMENTS 

A0804 
0805 
A 080  6 

0203 

COGAFLAG 

= 

080  7 
A 080  8 

REF 

8 

LAST 

80 

4 741 

C0GAF8  IT 

A0809 

A0810 

= 

A081  1 

0812 

0205 

I NITALGN 

= 

081  3 
A081  4 

REF 

8 

LAST 

80 

4 743 

INHABIT 

= 

A0815 

0816 

0206 

360SW 

= 

081  7 
A0818 

REF 

8 

LAST 

80 

4 744 

360SWBIT 

0819 

REF 

10 

LAST 

80 

0105 

FLAGWRD9 

= 

A0820 
A082  1 

A0822 

A0823 

AO  82  3 1 

= 

A0824 

0825 

0210 

FLVR 

= 

0826 

A0827 

REF 

9 

LAST 

79 

4 72  7 

FLVRBIT 

= 

A0828 

082  9 

0211 

P7071FLG 

= 

08295 

A0830 

REF 

11 

LAST 

8 1 

4 73  0 

P7071BIT 

= 

A0831 

0832 

0212 

FLPC 

= 

0833 
AO  83  4 

REF 

9 

LAST 

81 

4731 

FLPCBIT 

= 

A0835 

0836 

0213 

FLPI 

= 

083  7 

REF 

10 

LAST 

81 

4732 

FLPIBIT 

= 

AQ838 

A0839 

0840  0214 


FLRCS 


21112-161 


17: 11  MAR.  19,1971 


PAGE 


82 


(MAIN) 

USER' S PAGE  NO.  20  EO  S4 


BIT  4 FLAG  8 
1310 

B IT4 

(SI 

NO  CONIC  SOLUTION  - CONIC  SOLUTION 
TOO  CLOSE  TO  RECTI-  fcXISTSICOGA  OOES  NOT 
LINFARICOGA  OVRFLWS)  OVERFLOW) 

BIT  3 FLAG  8 
1320 

BIT  2 FLAG  8 
1330 
B IT2 

(L) 

INITIAL  PASS  THRU 
P57 

SECOND  PASS  THRU  P57 
(CHECK  RESET-MILLARO) 

BIT  1 FLAG  8 

1340 

BIT1 

(S) 

TRANSFER  ANGLF  NEAR 
360  DEGREFS 

TRANSFER  ANGLE  NOT 
NEAR  360  DEGREES 

STATE  +90 

(135  - 149) 

( SET) 

(RESET) 

BIT  15  FLAG  9 
1 35D 
B I T 1 5 

BIT  14  FLAG  9 
1360 
B I T 1 4 

(L  ) 

VERTICAL  RISE 
(ASCENT  GUIDANCE) 

NON-VERTICAL  RISE 

BIT  13  FLAG  9 
1370 
8 I T1  3 

P70  OR  P71  IS  USING 
ASCENT  GU 10.  EOS. 

P 12  IS  USING  THF 
ASCENT  GUIO.  EOS. 

BIT  12  FLAG  9 
1 380 
B I T12 

( L ) 

NO  POSITION  CONTROL 
(ASCENT  GUIDANCE) 

POSITION  CONTROL 

BIT  11  FLAG  9 

1390 

BIT11 

(L  ) 

PRE-IGNITION  PHASE 
(ASCENT  GUIDANCE) 

REGULAR  GUIDANCF 

BIT  10  FLAG  9 
1 40D 

(L  ) 

RCS  INJECTION  MOOF 

MAIN  ENGINE  MODE 

GAP: 

ASSEMBLE:  REVISION 

210  CF 

AGO  PROGRAM 

LUMINARY  BY  NASA 

2021112-161 

17: 11  MAR.  19,1971 

(MAIN)  PAGE  83 

L 

FLAGWCRD 

ASSIGNMENTS 

USER • S PAGE  NO 

. 21  FO  S4 

084  1 

REF 

9 

LAST 

81 

4733 

FLRCS8IT  = 

B IT10 

(ASCENT  GUIDANCE) 

A 084  2 

A 084  3 

BIT  9 

FLAG 

9 

(L) 

0844 

0215 

LETABORT  = 

1 4 ID 

ABORT  PROGRAMS 

ABORT  PROGRAMS 

0845 

REF 

7 

LAST 

79 

4 734 

LETABBIT  = 

B I T9 

ARE  ENABLED 

ARE  NOT  ENABLED 

A0846 

A0847 

BIT  8 

FLAG 

9 

(L  ) 

0848 

0216 

FLAP 

1420 

APS  CONTINUED  ABORT 

APS  ABORT  IS  NOT  A 

A 084  9 

AFTER  DPS  STAGING 

CONTINUATION 

0850 

REF 

10 

LAST 

81 

4735 

FLAPBIT  = 

B IT8 

(ASCENT  GUIDANCE) 

A085  1 

A0852 

B IT  7 

FLAG 

9 

( L ) 

0853 

0217 

ABTTGFLG  = 

1 43D 

J 2 , K2  PARAMETERS 

J 1 , K 1 PARAMETERS 

08535 

REF 

10 

LAST 

81 

4736 

ABTTGBIT  = 

B IT7 

USED  FOR  ABORT 

USFO  FOR  ABORT 

A08537 

TARGETING 

TARGETING 

A0854 

BIT  6 

FLAG 

9 

(L) 

0855 

0220 

ROTFLAG  = 

1440 

P70  AND  P71  WILL 

P 70  AND  P71  WILL  NOT 

0856 

REF 

10 

LAST 

81 

4737 

ROTFLBIT  = 

B IT6 

FORCE  VEHICLE 

FORCE  VEHICLE 

A0857 

ROTATION  IN  THE 

ROTATION  IN  THE 

A0858 

PREFERRED  DIRECTION 

. PREFERRED  DIRECTION 

A0859 

BIT  5 

FLAG 

9 

(S) 

0860 

0221 

QUITFLAG  = 

1 45D 

DISCONTINUE  INTEGR. 

CONTINUE  INTEGRATION 

0861 

REF 

9 

LAST 

8 1 

4740 

QUITBIT  = 

B IT5 

AO  86  2 

AO  863 

BIT  4 

FLAG 

9 

0864 

0222 

FLT59FLG  = 

1 46D 

LUNAR  SURFACE  MARK 

NORMAL  MARKING  TO  BE 

0865 

REF 

9 

LAST 

82 

4741 

FLT59BIT  = 

8IT4 

PROCEDURE  USED 

USED  DURING  INFLITF 

A0866 

DURING  INFLITF  ALGN 

ALIGNMENT 

A 0 86  7 

BIT  3 

FLAG 

9 

(L  ) 

0868 

0223 

MIDIFLAG  = 

147D 

INTEGRATE  TO  TDEC 

INTEGRATE  TO  THF 

0869 

REF 

9 

LAST 

80 

4742 

MID1FBIT  = 

B I T 3 

THEN-PRESENT  TIME 

A0870 

AC87  1 

BIT  2 

FLAG 

9 

(L  ) 

0872 

0224 

M IDAVFLG  = 

1 48D 

INTEGRATION  ENTERED 

INTEGRATION  WAS 

A0873 

FROM  ONE  OF  MIOTOAV 

NOT  ENTERED  VIA 

0874 

REF 

9 

LAST 

82 

4743 

M I DA VB  IT  = 

B T T2 

PORTALS 

MIDTOAV 

A 0 8 7 5 

A0876 

BIT  1 

FLAG 

9 

(S) 

0877 

0225 

AVEMIDSW  = 

1 49D 

AVETOMI D CALL ING 

NO  AVFTOMID  W INTEGR 

A0878 

FOR  W. MATRIX  INTEGR 

ALLOW  SET  UP  RN,VN, 

0079 

REF 

9 

LAST 

82 

4 744 

AVEMDBIT  = 

B I T 1 

DONT  WRITE  OVER  PN, 

PIPTIME 

A0880 

VN, PIPTIME 
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I MAIN  ) 


PAGE 


84 


L FLAGWORO  ASSIGNMENTS  USER'S  PAGF  NO.  22  FO  S4 


A0881 


0882 

A0883 

REF 

1 

0106 

RASFL AG 

EQUALS 

FLGWRD10 

WAS  ONLY  AN  INSTALL 

- ERASTALL  FLAG 

0884 

REF 

1 1 

LAST 

82 

0106 

FLGWRC10 

= 

STATE 

+ 100 

(150  - 164) 

A0885 

( SET) 

( RESET) 

A0886 

A0887 

A0830 

= 

BIT  15 

1 50D 

FL  AG 

10 

AO  88  9 

0890 

0891 
A 089  2 

REF 

10 

LAST 

82 

0227 

4727 

INTFLAG 
I NTFLB  IT 

= 

BIT  14 
1 51D 
BIT14 

FLAG 

10 

( L , C ) 

INTEGRATION  IN 
PROGRESS 

INTEGRATION  NOT  IN 
PROGRESS 

A0893 

0894 

0895 
A 0 89  6 

REF 

12 

LAST 

82 

0230 

4730 

APSFLAG 

APSFLBIT 

= 

BIT  13 
L520 
B IT  1 3 

FLAG 

10 

I S , L ) 

ASCENT  STAGE  DFSCFNT  STAGE 

***PROTECTED  FROM  FRESH  STAPT  *** 

A 089  7 
AO  89  3 
A 089  9 

= 

BIT  12 
1530 

FLAG 

10 

A 0900 
A 090  1 
A090? 

= 

BIT  11 
1540 

FLAG 

10 

A0903 
A0904 
A 090  5 

= 

BIT  10 
1550 

FLAG 

10 

A 090  6 
A0907 
A090  8 

= 

BIT  9 
1 56D 

FLAG 

10 

A 090  9 
A0910 
A091  1 

= 

BIT  8 
1 57D 

FLAG 

10 

A0912 

0913 

0914 
A091  5 

REF 

1 1 

LAST 

83 

0236 
4 736 

REINTFLG 
RF  INT8I T 

= 

SIT  7 1 
1 58D 

B IT7 

FLAG 

10 

(L  ,C) 

INTEGRATION  ROUTINE 
TO  BE  RESTARTED 

INTEGRATION  ROUTINE 
NOT  TO  BE  RESTARTED 

A0916 

A0917 

BIT  6 
1590 

FLAG 

10 

GAP: 

ASSEMBL  t REVISION 

210  OF 

AGO  PROGRAM 

LUMINARY  BY  NASA 

2021112-161 

17 

: 1 1 MAR.  19,1971 

(MAIN)  PAGE  85 

L 

ELAGWORD 

ASSIGNMENTS 

USER' S PAGE  NO 

. 23  EO  S4 

A091  8 

A0919 

A0920 

A0921 

= 

BIT  5 
1 60D 

FLAG 

10 

A0922 

A0923 

A0924 

= 

BIT  4 
1 6 ID 

FLAG 

10 

A 092  5 
A0926 
A092  7 

= 

BIT  3 
1 62D 

FLAG 

10 

A0928 
0929 
093  0 
A09301 

REF 

10 

LAST 

83 

0243 

4743 

CONTRLF  L = 
C0NTRL8T  = 

BIT  2 
163D 
B IT2 

FLAG 

10 

DAP  CONTROLLING 
VEHICLE  ATTITUDE 

DAP  NOT  CONTROLLING 
VEHICLE  ATTITUDE 

A093  1 
0932 
093  3 
A09331 
A0934 

REF 

10 

LAST 

83 

0244 

4744 

NPGNCSFL  = 
NPGNCSBT  = 

BIT  1 
1 64D 
B IT  1 

FLAG 

10 

LAST  ACTIVE  DAP 
PASS  DONE  WITH  AN 
AGS  INDICATION 

LAST  ACTIVE  DAP 
PASS  DONE  WITH  A 
PGNCS  INDICATION 

093  5 

REF 

L2 

LAST 

84 

0107 

FLGWRDL 1 = 

STATE  + l 1 D 

(165  - 179) 

A0936 

( SET) 

( RESET) 

A0937 

0938 

0939 
A 0940 

REF 

10 

LAST 

80 

0245 

4726 

LRBYPASS  = 
LR8Y  BIT  = 

BIT  15 
1 65D 
B I T 1 5 

FLAG 

11 

( L ) ( R 12  ) 

BYPASS  ALL  LANDING 
R A OAR  UPDATES 

DO  NOT  RYPASS  LR 
UPDATES 

A094  1 
094  2 
094  3 
A 094  4 

REF 

1 1 

LAST 

84 

0246 
4 72  7 

VFAILFLG  = 
VFA1LBIT  = 

BIT  14 

1 66D 
BIT14 

FLAG 

11 

LANDING  RADAR  VEL 
FAILED  REAS  TEST 

LANDING  RADAR  VEL 
PASS  REAS  TEST 

A0945 
094  6 
094  7 
A 094  8 

REF 

13 

LAST 

84 

0247 

4730 

HFAILFLG  = 
HFAILBIT  = 

BIT  13 
1 6 7D 
B IT13 

FLAG 

11 

LANDING  RADAR  ALT 
FAILED  REAS  TEST 

LANDING  RADAR  VEL 
PASS  PEAS  TEST 

A 094  9 
0950 
A095  l 
0 95  2 

REF 

10 

LAST 

82 

0250 

4731 

VXINH 

VXINH8IT  = 

BIT  12 
1 68D 

BIT12 

FLAG 

11 

( L ) (R  12) 

IF  L VELOCITY  DATA 
UNREASONABLE, 
BYPASS  X VELOCITY 

UPOATE  X AXIS 
VELOCITY 

A095 3 UPDATE  ON  NEXT  PASS 


GAP: 

ASSEMBLE  REVISION 

210  OF 

AGC  PROGRAM 

LUMINARY  BY  NASA 

L 

FLAGWORD 

ASSIGNMENTS 

A0959 

0955 

0251 

PSTHIGAT 

= 

0956 

A0957 

REF  1 1 

LAST 

82 

9732 

PSTHIBIT 

A095  8 
0959 
A 0960 

0252 

NOLRREAO 

096  1 
A0962 

REF  10 

LAST 

83 

9733 

NOLRR.BI  T 

A 096  3 
0969 
A0965 

0253 

XORFLG 

= 

0966 
A 096  7 

REF  8 

LAST 

83 

9739 

XORFLBIT 

A0968 

0969 

02  59 

LRINH 

= 

0970 
A097  1 
A0972 

REF  11 

LAST 

83 

9735 

LR  INH8IT 

A0973 

0979 

0255 

VELDATA 

= 

0975 

A0976 

REF  12 

LAST 

89 

9736 

VELDABIT 

= 

A097  7 
A097  8 

A0979 

A0980 

= 

A0981 

A0982 

A0983 

A0989 

= 

A0985 

0986 

0260 

RNGEDAT  A 

= 

0987 

A0988 

REF  10 

LAST 

83 

9791 

RNGEDBIT 

= 

A0989 

0990 

0261 

R 12RDFLG 

= 

0991 

A0992 

A0993 

REF  10 

LAST 

83 

9 792 

R12RD8IT 

A0999 


1112-161 
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PAGE 


86 


(MAIN) 

USER'S  PAGE  NO.  29  EO  S9 


BIT  11  FLAG  11  (L  ) (R 12) 


l 69D 
BITll 

PAST  HIGATE 

PREHI GATE 

BIT  10  FLAG 

1 1 

(L  ) t R 1 2 ) 

1 70D 

LANDING  RADAR 
REPOSITION  IMG; 

LR  NOT  REPOSI T I ON  I NG 

B I T 1 0 

BYPASS  UPDATE 

BIT  9 FLAG 

11 

(L ) (R 12) 

1710 

BELOW  LIMIT 

ABOVE  LIMIT  DO 

INHIBIT  X AXIS 

NOT  INHIBIT 

B I T9 

OVERR IDE 

BIT  8 FLAG 
1 72D 

11 

LANDING  RADAP  UP- 

LR UPDATFS  INHIBITED 

B I TO 

DATES  PERMITTED 
BY  ASTRONAUT 

BY  ASTRONAUT 

BIT  7 FLAG  11  (L  MR  12) 


1 73D 
BIT7 

LR  VELOCITY 
MEASUREMENT 

BIT  6 
1 790 
B I T6 

FLAG 

11 

BIT  5 
1 75D 
B IT5 

FLAG 

11 

t L ) (R 12) 

B IT  9 
1 760 
B IT9 

FLAG 

11 

{ L ) ( R 1 2 ) 

LR  ALTITUDE 
MEASUREMENT 

BIT  3 
1770 
B IT3 

FLAG 

11 

WAIT  UNTIL 
READS  DONE 
R 1 2 PROCESS 

B IT  2 

FLAG 

11 

( L ) (R  12) 

LR  VELOCITY  MFASURF 
MADE  NOT  MADE 


LR  ALTITUDE  MEASURE 
MADE  NOT  MADE 


ALL  VFL  ALLOW  R12  PROCESS- 

BEFORE  ING  OF  V6LDAT A ; 

ING  LR  VEL  READ  DONE 


GAP: 
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L FLAGWORO  ASSIGNMENTS 


0995 

0262 

VFLSHFLG 

= 

1 78D 

0996 

A0997 

A0998 

REF 

11 

LAST 

85 

4743 

VFLSHBIT 

8 IT2 

A0999 

BIT  1 FLAG  1 

1000 

0263 

HFLSHFLG 

= 

1 79D 

1001 
A 100  2 
A 100  3 

REF 

1 1 

LAST 

85 

4 744 

HFLSHBIT 

BITl 

1004 
A 100  5 

REF 

1 

0110 

RADMODES 

EQUALS 

FLGWRD12 

1006 

REF 

13 

LAST 

85 

0110 

FLGWRD12 

= 

STATE  +120 

A 100  7 

A 100  8 

BIT  L5  FLAG 

1009 

0264 

CDES  FLAG 

= 

1 80D 

1010 
A 101  1 
A 1 01  2 
A 1 0 1 3 

REF 

1 1 

LAST 

85 

4726 

CDESB  IT 

BIT15 

A 101 4 

BIT  14  FLAG 

1015 

0265 

REMODFLG 

= 

1810 

1016 
A 1 01  7 
A 10 1 8 

REF 

12 

LAST 

85 

4727 

REMODBIT 

B IT  14 

A 1 01  9 

BIT  13  FLAG 

1020 

0266 

RCDUOFLG 

= 

1 82D 

102  1 
A 1022 

REF 

14 

LAST 

85 

4730 

RCDUOB  IT 

= 

B IT  1 3 

A 102  3 

BIT  12  FLAG 

1024 

0267 

ANTENFLG 

= 

1830 

1025 
A 102  6 

REF 

1 l 

LAST 

85 

4 731 

ANTENBIT 

= 

BIT12 

A 102  7 

BIT  11  FLAG 

1028 

0270 

REPOSMON 

= 

1 84D 

1029 
A 1030 
A 1031 

REF 

12 

LAST 

86 

4732 

REPOSBIT 

B I T 1 1 

A 1032 

BIT  10  FLAG 

1033 

0271 

DESI GFLG 

- 

1850 

1034 

REF 

1 1 

LAST 

36 

4733 

DESIGBIT 

= 

B I T 10 
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(MAIN) 


PAGE 


87 


USER'S  PAGE  NO.  25 


FO  S4 


LR  VELOCITY  FAIL 
LAMP  SHOULD  BE 
FLASHING 


LR  VFL  FAIL  LAMP 
SHOULDN'T  FLASH 


(L  ) (R12) 

LR  ALTITUDE  FAIL 
LAMP  SHOULD  BE 
FLASHING 


LR  ALTITUOF  FAIL 
LAMP  SHOULD  NOT  BE 
FLASHING 


RADAR  FLAG  WORD 


(180  - 1 94 ) 
(SET) 


WAS  RADMODES 
(RESET) 


12 


12 


CONTINUOUS  DESIG-  LGC  CHECKS  FOR  LOCK- 
NATE.  LGC  COMMANDS  ON  WHEN  ANTENNA 
RR  REGARDLESS  OF  BEING  DESIGNATED 
LOCK-ON 


CHANGE  IN  ANTENNA  NO  REMODE  REQUESTED 
MODE  BEEN  REQUESTED  OR  OCCURRING 
I.E.,  RE  MODE 


12 


RR  CDU'S  BEING 
ZEROED 


RR  CDU'S  NOT  BE ING 
ZEROED 


12 


RR  ANTENNA  MODE  IS  RR  ANTENNA  IN  MODE  l 
MODE  2 


12 


REPOSITION  MONITOR.  NO  REPOSITION  TAKING 
RR  REPOS  IT  ION  IS  PLACE 
TAKING  PLACE 


RR  DESIGNATE 
REQUESTED  OR  IN 


RR  DESIGNATE  NOT 
REQUESTED  OR  IN 


GAP: 

L 

A 103  5 

A 1036 

A 103  7 

1038 

1039 

A 1040 

A 1 04  1 

1042 

1043 

A 1044 

A 1 04  5 

1046 

104  7 

A 104  8 

A 104  9 

1050 

105  l 

A 1 052 

A 1 05  3 

1054 

1055 

A 1 05  6 

A 1 05  7 

A 1 05  8 

1059 

1060 

A 1 06  1 

A 1 062 

A 106  3 

1064 

1065 

A 1 06  6 

A 1 06  7 

106  8 

106  9 

A 1 07  0 

A 107  1 

A1072 

1073 

1074 

A 107  5 
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(MAIN)  PAGE  88 

FLAGWORD 

ASSIGNMENTS 

USER'S  PAGE  NO. 

26  EO  S4 

PROGRESS 

PROGRESS 

REF 

9 

LAST 

86 

0272 

4734 

ALTSCALE  = 
ALTS  CB I T = 

BIT  9 
1 860 
B I T9 

FLAG 

12 

LR  ALTITUDE  READING 
IS  ON  HIGH  SCALE 

LR  ALTITUDE  READING 
IS  ON  LOW  SCALE 

REF 

12 

LAST 

86 

0273 

4735 

LRVELFLG  = 
LRVELBIT  = 

BIT  8 
1 87D 
B I T8 

FLAG 

12 

LR  VELOCITY  DATA 
FAIL 

NO  LR  VELOCITY  DATA 
FAIL 

REF 

13 

LAST 

86 

02  74 
4 736 

RCOUFAIL  = 
RCDUFBIT  = 

BIT  7 
1880 
B IT7 

FLAG 

12 

RR  COU  FAIL  HAS 
NOT  OCCURRED 

RR  CDU  FAIL  OCCURRED 

REF 

1 1 

LAST 

83 

0275 

4737 

LRPOSFLG  = 
LRP0S6IT  = 

BIT  6 
l 890 
B I T 6 

FLAG 

12 

LANDING  RADAR 
POSITION  2 

LR  POSITION  1 

REF 

10 

LAST 

83 

02  76 
4 740 

LRALTFLG  = 
LRALTBIT  = 

BIT  5 

1900 

BIT5 

FLAG 

12 

LR  ALTITUDE  DATA 
FAIL.  COULD  NOT  BE 
READ  SUCCESSFULLY. 

NO  LR  ALTITUDE  DATA 
FAIL 

REF 

1 1 

LAST 

86 

0277 
4 74  1 

RRDATAFL  = 
RRDATABT  = 

BIT  4 
1910 
8 IT4 

FLAG 

12 

RR  DATA  FAIL. 

DATA  COULD  NOT  BE 
READ  SUCCESSFULLY 

NO  RR  DATA  FAIL. 

REF 

1 1 

LAST 

86 

0300 

4742 

RRRSFLAG  = 
RRRSBIT  = 

' B IT  3 
1 92D 
B IT3 

FLAG 

12 

RR  RANGE  READING 
ON  THE  HIGH  SCALE 

RR  RANGE  REAOING  ON 
THE  LOW  SCALE 

REF 

12 

LAST 

87 

0301 
4 74  3 

AUTOMODE  = 
AUTOMBIT  = 

BIT  2 

1930 

BIT2 

FLAG 

12 

RR  NOT  IN  AUTO  MODE. 
AUTO  MODE  DISCRETE 
IS  NOT  PRESENT 

RR  IN  AUTO  MODE 

REF 

12 

LAST 

87 

0302 
4 744 

TURNONFL  = 
T URNONBT  = 

BIT  1 
1940 
B I T 1 

FLAG 

12 

RR  TORN-ON  SEQUENCE 
IN  PROGRESS.  (ZERO 

NO  RR  TURN-ON 
SEQUENCE  IN  PROGRESS 

CDU'S,  FIX  ANTENNA 
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( MAIN  ) 

PAGE 

89 

USER'S  PAGE 

NO.  27 

EO  S4 

A 1076  MOOE ) 

A1077 


1078 
A 1 07  9 

REF 

1 

0111 

DAP8D0LS  EQUALS 

FLGWRD1 3 

DIGITAL  AUTOPILOT  FLAGWORD 

1080 

REF 

14 

LAST 

87 

0111 

FLGWRD13  = 

STATE 

+ 130 

( 195  - 209 ) WAS 

DAPBOCLS 

A 1 08  1 

( SET) 

(RESET ) 

A1082 

1083 

1084 
A1085 
A 1 08  6 

REF 

12 

LAST 

87 

0303 

4726 

P ULSEFLG  = 
PULSES 

BIT  15 

1950 

BIT15 

FLAG 

13 

MINIMUM  IMPULSE 
COMMAND  MODE  IN 
"ATT  HOLD"  t V 76 ) 

NOT  IN  MINIMUM 
IMPULSE  COMMAND  MODE 
( V77  ) 

A 1 08  7 
1088 
1089 
A 1 090 

REF 

13 

LAST 

37 

0304 

4727 

USEQRFLG  = 
USEQRJTS  = 

BIT  14 
I960 
B IT14 

FLAG 

13 

GIMBAL  UNUSABLE. 
USE  JETS  ONLY. 

TRIM  GIMBAL  MAY  BE 
USED. 

A 1 09  1 

1092 

1093 
A 1 094 

REF 

15 

LAST 

87 

0305 

4730 

CSMDKFLG  = 
C SMDOCKD  = 

BIT  13 
1970 
B I T 1 3 

FLAG 

13 

GSM  DOCKED.  USE 
BACKUP  DAP 

CSM  NOT  DOCKED  TO  LM 

A 1 09  5 
109  6 
109  7 
A 109  8 

REF 

12 

LAST 

87 

0306 
4 731 

OURRCFLG  = 
OURRCBIT  = 

BIT  12 
l 98D 
B IT12 

FLAG 

13 

CURRENT  DAP  PASS 
IS  RATE  COMMAND 

CURRENT  DAP  PASS  IS 
NOT  PATE  COMMAND 

A 1099 

1 100 
1 10  1 
A 1 10  2 

REF 

13 

LAST 

87 

0307 

4732 

ACC4-2FL  = 
ACC40R2X  = 

BIT  11 
1990 
B IT1  1 

FLAG 

13 

4 JET  X-AXIS  TRANS- 
LATION REQUESTED 

2 JET  X-AXIS  TRANS- 
LATION REQUESTED 

A 1 10  3 
1 104 
1 105 
A 1 10  6 

REF 

12 

LAST 

87 

0310 

4733 

AORBTFLG  = 
AORBTRAN  = 

BIT  10 
2000 
B I T 10 

FLAG 

13 

B SYSTEM  FOR  X- 
TRANSLATION 

A SYSTFM  FOR  X- 
TRANSLATI ON  PRFFEP'D 

A 1 10  7 
1 108 
1109 
A 11 1 C 

REF 

10 

LAST 

88 

0311 

4734 

XOVINFLG  = 
XOVINHIB  = 



BIT  9 
20  ID 
B I T9 

FLAG 

13 

X—  AX  1 S OVERRIDE 
LOCKED  OUT 

X-AXIS  OVERRIDE  OKAY 

Aim 

1112 

1113 

REF 

13 

LAST 

88 

0312 

4735 

( DRIFTDFL  = 

if  rfl,T  = 

BIT  8 
2020 

FLAG 

13^ 

ASSUME  0 OFFSET 
DRIFTING  FLIGHT. 

USE  OFFSET  ACCELERA- 
TION ESTIMATE 

AUU 
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(MAIN)  PAGE  90 

L 

FLAGWORD 

ASSIGNMENTS 

USER' S PAGE  NO 

. 28  EO  S9 

Al  11  5 

B IT  7 

flag 

13 

1116 

0313 

RHCSCFLG 

= 

2030 

NORMAL  RHC  SCALING 

FINE  RHC  SCALING 

1117 
A 1 1 1 8 

REF 

19 

LAST 

88 

9 736 

RHCSCALE 

B IT7 

REQUESTED 

REQUESTED 

A 1 1 1 9 

B IT  6 

FLAG 

13 

1120 

0319 

ULLAGFLG 

= 

2 090 

ULLAGE  REQUEST  BY 

NO  INTERNAL  ULLAGE 

112  1 
A 1 12  2 

REF 

12 

LAST 

88 

9737 

ULLAGER 

8 IT6 

MISSION  PROGRAM 

REQUEST 

A 112  3 

BIT  5 

FLAG 

13 

1129 

0315 

0BSL2FLG 

= 

2050 

5 DEG  DEADBAND 

1 OR  .3  DEG  DEADBAND 

1125 

REF 

l 1 

LAST 

88 

9 790 

DBSLECT2 

= 

BITS 

SELECTED  BY  CREW 

SELECTED  BY  CREW 

A 1 12  5 1 
A 112  6 

( SEE  B I T9  DAPBOOLS ) 

Al  127 

B IT  9 

FLAG 

13 

1 120 

0316 

OBSELFLG 

= 

2 06D 

l DEG  DEADBAND 

MIN  DB  SELECTED  BY 

1129 
Al  130 

REF 

12 

LAST 

88 

9791 

OBSELECT 

= 

B I T9 

SELFCTED  BY  CREW 

CREW  (0.3  DEG) 

Al  13  l 

BIT  3 

FLAG 

13 

1 132 

0317 

ACCOKFLG 

= 

2070 

CONTROL  AUTHORITY 

RESTART  OR  FRESH  ST. 

l 13  3 

REF 

12 

LAST 

88 

9792 

ACCS  OKA Y 

= 

B IT3 

VALUES  FROM  1/ACCS 

SINCE  LAST  l/ACCS ; 

Al  139 
Al  135 

USABLE 

OUTPUTS  SUSPECT. 

Al  136 

B IT  2 

FLAG 

13 

1137 

0320 

AUTR2FLG 

= 

2080 

THESE  FLAGS  ARE  USED  TOGF THE R TO  INDICAT 

1138 

REF 

13 

LAST 

88 

9 793 

AUTR  ATE2 

- 

B IT2 

ASTRONAUT-CHOSEN  K AL C M AMU  MANEUVER  RATFS 

A 11  3 9 

(0»0!=(BIT2,BITl)= 

0.2  DEG/SEC 

Al  190 
A 1 19  1 

BIT  1 

FLAG 

13 

(0,1)=  0.5  DEG/SEC 

l 192 

0321 

AUTR1FLG 

= 

2090 

(1,0)=  2.0  DEG/SEC 

1 193 
Al  199 

REF 

13 

LAST 

88 

9 799 

AUTR  ATE  1 

= 

B IT1 

(1,11=  10.0  DEG/SEC 
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L SUBROUTINE  CALLS 


0001 

* 

0000 

SUBRO 

LUMERASE 

0002 

* 

0000 

SUBRO 

LEMONAID 

0003 

* 

0000 

SUBRO 

LEMP20S 

000  A 

* 

0000 

SUBRO 

LEMP30S 

000  5 

* 

0000 

SU8R0 

KISSING 

0006 

0000 

SUBRO 

FLY 

000  7 

* 

0000 

SUBRO 

LEMP50S 

0008 

* 

0000 

SUBRO 

SKIPPER 

000  9 

0000 

SUBRO 

LMOAP 

END 

i GF  MAIN  PROGRAM  *** 
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( MAIN  > 
USER'S  PAGE  NO.  1 


176 

156 

168 

105 

067 

197 

130 

131 
032 


PAGE 
FO  SA 


GAP: 


ASSEMBLE  REVISION  2 10  CE  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 


17:11  MAR.  19,1971  LUMERASE .176  PAGE 


92 


L 

ROOO  1 

R0002 
ROOO  3 
ROOO  4 

A0005 

A0006 

A0007 

ROOO  8 
R0009 
R0010 


R001  1 
R0012 

A001  3 


R0014 

R0015 

A0016 


R001  7 
R0010 

R0019 
R0020 
R002  l 
R0022 
R0023 
R0024 

R002  5 

R0026 
R002  7 
R002  8 
R0029 
R0030 
R003  1 
R0032 
R0033 
R 0 0 3 A 
R003  5 
R0036 


ERASABLE  ASSIGNMENTS 


CQIWENT IONS  AND  NOTATIONS  UTILIZEC  FOR  ERASABLE  ASSIGNMENTS. 


EQUALS  IS  USED  IN  TWO  WAYS.  IT 

OF  ASSIGNMENTS  SO  THAT  THE 
CHANGING  OF  ONLY  ONE  CARD. 

X 

Y 

Z 


IS  OFTEN  USED  TO  CHAIN  A GROUP 
GROUP  MAY  BE  MOVED  WITH  THE 
EXAMPLE . 

EQUALS  START 

EQUALS  X +SIZE.X 

EQUALS  Y +SIZE.Y 


(X,  Y,  AND  Z ARE  CONSECUTIVE  AND  BEGIN  AT  START.  ) 

(SIZE.X  AND  SIZF.Y  ARE  THE  RESPECTIVE  SIZES  OF  X AND  Y, 
USUALLY  NUMERIC,  IE.  1,  2,  6,  1 8D  ETC.  ) 


USER'S  PAGE  NO. 


EO  S4 


EQUALS  OFTEN  IMPLIES  TEE  SHARING  OF  REGISTERS  (DIFFERENT  NAMES 
AND  DIFFERENT  DATA).  EXAMPLE. 

X EQUALS  Y 


= MEANS  THAT  MULTIPLE  NAMES  HAVE  BEEN  GIVEN  TO  THE  SAME  DATA. 
(THIS  IS  LOGICAL  EQUIVALENCE,  NOT  SHARING)  EXAMPLE. 

X = Y 


THE  SIZE  AND  UTILIZATION  OF  AN  ERASABLE  ARE  OFTEN  INCLUDED  IN 
THE  COMMENTS  IN  THE  FOLLOWING  FORM.  M(SIZE)N. 

M REFERS  TO  THE  MOBILITY  OF  THE  ASSIGNMENT. 

8 MEANS  THAT  THE  SYMBOL  IS  REFERENCED  BY  BASIC 
INSTRUCTIONS  AND  THUS  IS  E-BANK  SENSITIVE. 

I MEANS  THAT  THE  SYMBOL  IS  REFERENCED  ONLY  BY 
INTERPRETIVE  INSTRUCTIONS,  AND  IS  THUS  E-BANK 
INSENSITIVE  AND  MAY  APPEAR  IN  ANY  E-BANK. 

SIZE  IS  THE  NUMBER  OF  REGISTERS  INCLUDED  BY  THE  SYMBOL. 

N INDICATES  THE  NATURE  UR  PERMANENCE  OF  THE  CONTENTS. 

PL  MEANS  THAT  THE  CONTENTS  ARE  PAD  LOADED. 

DSP  MEANS  THAT  THE  REGISTER  IS  USED  FOR  A DISPLAY. 

PRM  MEANS  THAT  THE  REGISTER  IS  PERMANENT,  IE.  IT 
IS  USED  DURING  THE  ENTIRE  MISSION  FOR  ONE 
PURPOSE  AND  CANNOT  BE  SHARED. 

TMP  MEANS  THAT  THE  REGISTER  IS  USEO  TEMPORARILY  OR 
IS  A SCRATCH  REGISTER  FOR  THE  ROUTINE  TO  WHICH 
IT  IS  ASSIGNED.  THAT  IS,  IT  NEED  NOT  BE  SET 
PRIOR  TO  INVOCATION  OF  THE  ROUTINE  NOR  DOES  IT 
CONTAIN  USEFUL  OUTPUT  TO  ANOTHER  ROUTINE.  THUS 


GAP: 
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LUMERASE. 176 

PAGF 

93 

L 

ERASABLE  ASSIGNMENTS 

USER'S  PAGE 

NO.  2 

EO  S4 

R003  7 

R003  8 

R0039 

IN 

R0040 

R0041 

OUT 

R0042 

IT  MAY  BE  SHARED  WITH  ANY  OTHER  ROUTINE  WHICH 
IS  NOT  ACTIVE  IN  PARALLEL. 

MEANS  INPUT  TO  THE  ROUTINE  AND  IT  IS  PROBABLY 
TEMPORARY  FOR  A HIGHER-LEVEL  ROUT INE /PROGRAM  . 
MEANS  OUTPUT  FROM  THE  ROUTINE,  PROBABLY 
TEMPORARY  FOR  A H I GHER-LFVE  L ROUT  I NE / PROG RAM . 


GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112 


L 

ERASABLE  ASSIGNMENTS 

P0043 

SPECIAL  REGISTERS. 

0044 

0000 

A 

EQUALS 

0 

004  5 

0001 

L 

EQUALS 

l 

0046 

0002 

0 

EQUALS 

2 

004  / 

0003 

EBANK 

EQUALS 

3 

0048 

0004 

FBANK 

EQUALS 

4 

004  9 

0005 

Z 

EQUALS 

5 

0050 

A0051 

0006 

BBANK 

EQUALS 

6 

0052 

0010 

ARUPT 

EQUALS 

10 

005  3 

001  1 

LRUPT 

EQUALS 

1 1 

0054 

0012 

ORUPT 

EQUALS 

12 

005  5 

0013 

SAMPTIME 

EQUALS 

13 

0056 

0015 

ZRUPT 

EQUALS 

15 

005  7 

0016 

BANKRUPT 

EQUALS 

16 

0058 

0017 

BRUPT 

EQUALS 

17 

0059 

0020 

C YR 

EQUALS 

20 

006  0 

0021 

SR 

EQUALS 

21 

006  l 

0022 

C YL 

EQUALS 

22 

0062 

0023 

EDOP 

EQUALS 

23 

0063 

0024 

T I ME  2 

EQUALS 

24 

0064 

0025 

T 1ME  1 

EQUALS 

25 

0065 

0026 

T I ME  3 

EQUALS 

26 

006  6 

0027 

T IME4 

EQUALS 

27 

006  7 

0030 

T I ME5 

EQUALS 

30 

006  B 

0031 

T I ME 6 

EQUALS 

3 l 

0069 

0032 

C DUX 

EQUALS 

32 

0070 

0033 

CDUY 

EQUALS 

33 

007  l 

0034 

CDUZ 

EQUALS 

34 

0072 

0035 

CUUT 

EQUALS 

35 

0073 

0036 

CDUS 

EQUALS 

36 

0074 

0037 

P IPAX 

EQUALS 

37 

0075 

0040 

P IPAY 

EQUALS 

.40 

00/6 

0041 

P IPAZ 

EQUALS 

4 1 

007  7 

0042 

Q-RHCCTR 

EQUALS 

42 

0078 

0043 

P-RHCCTR 

EQUALS 

43 

0079 

0044 

R-RHCCTR 

EQUALS 

44 

0080 

0045 

INLINK 

EQUALS 

45 

0081 

0046 

RNRAD 

EQUALS 

46 

0082 

0047 

GYROCMO 

EQUALS 

47 

0083 

0050 

CDUXCMD 

EQUALS 

50 

0084 

0051 

CDUYCMD 

EQUALS 

51 

0085 

0052 

COUZCMD 

EQUALS 

52 

0066 

0053 

CCUTCMD 

EQUALS 

53 

0087 

0054 

CDUSCMD 

EQUALS 

54 

LUMERASE .176 
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USER'S  PAGE  NO.  3 EO  S4 


L AND  Q ARE  BOTH  CHANNELS  AND  REGISTERS. 


ADJACENT  TO  FBANK  AND  BBANK  FOR  OXCH  Z 
l DTCB ) AND  DXCH  FBANK  (OTCF). 

REGISTFR  7 IS  A ZERO-SOURCE,  USED  BY  ZL. 

INTERRUPT  STORAGE. 


SAMPLED  TIME  l 6 2. 

I 13  AND  14  ARE  SPARES.  ) 
USUALLY  HOLDS  FBANK  OR  BBANK. 
RESUME  ADDRESS  AS  WELL. 


EDITS  INTERPRETIVE  OPERATION  CODE  PAIRS. 


REND  RADAR  TRUNNION  CDU 
REND  RADAR  SHAFT  CDU 


RHC  COUNTER  REGISTERS 


RADAR  TRUNNION  COMMAND 
RADAR  SHAFT  COMMAND 


GAP: 
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L 

ERASABLE  ASSIGNMENTS 

0088 

0055 

THRUST 

EQUALS 

55 

0089 

0056 

LEMONM 

EQUALS 

56 

0090 

0057 

OUTL INK 

EQUALS 

57 

0091 

0060 

A LTM 

EQUALS 

60 

R0092 

INTERPRETIVE  REGISTERS 

ADDRESSED  RELATIVE  TO  VAC  AR 

0093 

00A2 

L VSQUARE 

EQUALS 

3 AD 

009  A 

OOAA 

LV 

EQUALS 

36D 

0095 

00A6 

XI 

EQUALS 

38D 

0096 

00A7 

X2 

EQUALS 

39D 

0097 

0050 

S 1 

EQUALS 

AOD 

0098 

0051 

S2 

EQUALS 

AID 

0099 

0052 

QPRET 

EQUALS 

A2D 

R0100 

INPUT /CUTPUT  CHANNELS 

A0101 

***  CHANNEL  ZERO  I 

0102 

REF  1 0001 

L CHAN 

EQUALS 

L 

0103 

REF  1 0002 

QCHAN 

EQUALS 

Q 

010A 

0003 

HISCALAR 

EQUALS 

3 

0105 

OOOA 

LOSCALAR 

EQUALS 

A 

0106 

0005 

CHAN5 

EQUALS 

5 

0107 

0006 

CHAN6 

EQUALS 

6 

0108 

0007 

SUPERBNK 

EQUALS 

7 

0109 

0010 

OUTO 

EQUALS 

1 0 

0110 

0011 

DSALMOUT 

EQUALS 

1 1 

0111 

0012 

CHAN  1 2 

EQUALS 

12 

0112 

0013 

CHAN  1 3 

EQUALS 

13 

0113 

001 A 

CHAN  1 A 

EQUALS 

1A 

Oil  A 

0015 

MNKEY IN 

EQUALS 

15 

0115 

0016 

NAVKEYIN 

EQUALS 

16 

0116 

0030 

CHAN  30 

EQUALS 

30 

0117 

0031 

CHAN31 

EQUALS 

3 1 

0118 

0032 

CHAN  32 

EQUALS 

32 

0119 

0033 

CHAN33 

EQUALS 

33 

0120 

003A 

DNTM1 

EQUALS 

3 A 

012  1 

0035 

DNTM2 

EQUALS 

35 

0122 

0076 

CHAN  76 

EQUALS 

76 

0123 

0077 

CHAN77 

EQUALS 

77 

R012A 

END  OF  CHANNEL  ASSIGNMENTS 

17:11  MAR.  19,1971  LUMERASE .176  PAGE 
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SQUARE  OE  VECTOR  INPUT  TO  A8VAL  AND  UNIT 
LFNGTH  OF  VECTOR  INPUT  TO  UNIT. 
INTERPRETIVE  SPECIAL  REGISTERS  RELATIVE 
TO  THE  WORK  AREA. 


BE  USED  IN  AN  INDEXED  OPERATION  ONLY.  *** 


SUPER-BANK 


GAP : 
l 

P0125 
AO  12  6 

R0127 
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INTERPRETIVE  SWITCH  BIT  ASSIGNMENTS 

**  FLAGWORDS  AND  BITS  NOW  ASSIGNED  AND  DEFINED  IN  THEIR  OWN  LOG  SECTION.  ** 
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GAP: 

L 

P0129 

0130 

R0131 

R 0 1 3 3 

R0134 
R0 136 

0138 

0139 

0140 

0141 

0142 
014  3 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 
AO  1 5 3 

0154 

0155 


0156 
015  7 

0158 

0159 

0160 
0161 

R0162 

0164 
AO  16  5 

RO  166 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
ERASABLE  ASSIGNMENTS 
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USER'S  PAGE 


LUMERASE. 176 
NO.  6 


PAGE 
FO  S4 


GENERAL 


ERASABLE  ASSIGNMENTS. 

0061 

INTERRUPT  TEMPORARY  STORAGE  POOL. 
(ITEMP1  THROUGH  RUPTREG4 ) 


SETLOC  61 


(110) 


ANY  OF 

THESE 

MAY  BE  USED  AS 

TEMPORARIES 

OURING 

INTERRUPT  OR 

WITH  INTERRUPT  INHIBITED.  THE  ITEMP 

IS  1 

JSEU 

DURING 

CALLS 

TO  THE  EXECUTIVE 

AND  WA ITLIST  - THE 

: RUPTREGS  ARE 

NOT  . 

0061 

0061 

I TEMPI 

ERASE 

REF 

1 

0061 

WAITEXIT 

EQUALS 

ITEMP1 

REF 

2 

LAST 

97 

0061 

FXECTEM1 

EQUALS 

I TEMP  1 

0062 

0062 

I TEMP2 

ERASE 

REF 

1 

0062 

WAI TBANK 

EQUALS 

I TEMP2 

REF 

2 

LAST 

97 

0062 

EXECTEM2 

EQUALS 

I TEMP2 

0063 

C063 

I TEMP3 

ERASE 

REF 

1 

0063 

WAIT  ADR 

EQUALS 

I TEMP3 

REF 

2 

LAST 

97 

0063 

NEWPR  10 

EQUALS 

ITEMP3 

0064 

C064 

I TEMP4 

ERASE 

REF 

1 

0064 

LOCCTR 

EQUALS 

ITEMP4 

REF 

2 

LAST 

97 

0064 

WAITTEMP 

EQUALS 

ITEMP4 

0065 

0065 

ITEMP5 

ERASE 

REF 

l 

0065 

NEWLOC 

EQUALS 

I TEMP5 

0066 

C 066 

I TEMP6 

ERASE 

NEWLOC+1 

EQUALS 

I TEMP6 

DP  ADDRESS. 

0067 

SETLOC 

67 

0067 

0067 

NEWJOB 

ERASE 

MUST  BE  AT  LOC  67  DUE  TO  WIRING. 

0070 

0070 

RUPTREG1 

ERASE 

0071 

0071 

RUPTREG2 

ERASE 

0072 

0072 

RUPTREG3 

ERASE 

0073 

0073 

RUPTREG4 

ERASE 

REF 

l 

0073 

KEYTEMP1 

EQUALS 

RUPTREG4 

REF 

2 

LAST 

97 

0073 

DSRUPTEM 

EQUALS 

RUPTREG4 

FLAGWOPD  RESERVATIONS. 

( 16D) 

0074 

0113 

STATE 

ERASE 

+ 15D 

FLAGWORD  REGISTERS. 

P25  RAOAR  STORAGE.  (MAY  BE  UNSHARED  IN  E7 I (TEMP  OVFRLAY)  120)  OVERLAYS  FLGWRD  14  £ 15 


GAP: 
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0168 

REF 

15  LAST 

89 

0112 

LASTYCMD 

EQUALS 

STATE  + 

0169 
- A0170 

REF 

i 

0113 

LASTXCMD 

EQUALS 

LASTYCMD  + 

~“R  017  1 

EXEC 

TEMPORARIES  WHICH 

MAY  BE 

USED  BETWEEN  CCS 

N EW JOBS . 

0173 

01  L6 

0116 

I NTB 15+ 

ERASE 

017  6 

REF 

l 

0116 

DSEX IT 

= 

INTB15+ 

— 0175 

REF 

2 

l AST 

98 

0116 

EXITEM 

= 

INTB15+ 

0176 

0115 

0115 

I NTB I T 1 5 

ERASE 

0177 

REF 

1 

0115 

WCRET 

= 

INTBIT15 

— 0178 

REF 

2 

LAST 

98 

0115 

DECRET 

= 

INTBIT15 

0179 

REF 

3 

LAST 

98 

0115 

2 1/22REG 

= 

I NTB  I T 1 5 

— R0180 

THE  REGISTERS 

BETWEEN 

ADDRWD 

AND  PRIORITY  MUST 

STAY  IN  TH 

0182 

0116 

0116 

ADDRWD 

ERASE 

0183 

0117 

0117 

POLISH 

ERASE 

0186 

REF 

l 

0117 

UPDATRET 

= 

POLISH 

0185 

REF 

2 

LAST 

98 

0117 

CHAR 

= 

POLISH 

— 0186 

REF 

3 

LAST 

96 

0117 

ERCNT 

= 

POLISH 

0187 

REF 

6 

LAST 

98 

0117 

DECOUNT 

= 

POL  I SH 

— 0188 

0120 

0120 

F IXLOC 

ERASE 

0189 

0121 

0121 

OVFIND 

ERASE 

— • 0190 

0122 

0127 

VBUF 

ERASE 

+ 5 

0191 

REF 

1 

0122 

SGNON 

= 

VBUF 

0192 

REF 

2 

LAST 

98 

0122 

NOUNTEM 

= 

VBUF 

— ~ 0193 

REF 

3 

LAST 

98 

0122 

DISTEM 

= 

VBUF 

0196 

REF 

6 

LAST 

98 

0122 

DECTEM 

= 

VBUF 

— - 0195 

REF 

5 

LAST 

98 

0123 

SGNOFF 

= 

VBUF  +1 

0 19t> 

REF 

6 

LAST 

98 

0123 

NVTEMP 

= 

VBUF  +1 

0197 

REF 

7 

LAST 

98 

0123 

SFTEMP1 

= 

VBUF  +1 

— 0193 

REF 

8 

LAST 

98 

0123 

H ITEM  IN 

= 

VBUF  +1 

A0195 

0200 

REF 

9 

LAST 

98 

0126 

CODE 

= 

VBUF  +2 

— 0201 

REF 

10 

LAST 

98 

0126 

SFTEMP2 

= 

VBUF  +2 

0202 

REF 

1 l 

LAST 

98 

0126 

LOTEM  IN 

=’ 

VBUF  +2 

A0203 

' — • 0206 

REF 

12 

LAST 

98 

0125 

MIXTEMP 

= 

VBUF  +3 

R0205 

ALSO 

M IXTEMP+1 

= VBUF+6 

, M I XT  EMP  + 2 = VBUF+5 . 

0206 

0130 

0132 

BUF 

ERASE 

+ 2 

020  7 

0133 

C 136 

BUF2 

ERASE 

+ 1 

0208 

REF 

1 

0130 

INDEXLOC 

EQUALS 

BUF 

c,  0209 

REF 

2 

LAST 

98 

0130 

SWWORD 

EQUALS 

BUF 

0210 

REF 

3 

LAST 

98 

0131 

SWBIT 

EQUALS 

BUF  + 1 

021  1 

0135 

0135 

MPTEMP 

ERASE 

L7  : 1 1 MAR.  19,1971  LUMER ASE .176  PAGE 
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USER'S  PAGE  NO.  7 EO  S6 

LAO  BIDPRM  THESE  ARE  CALLED  BY  T6RUPT 

L BIDPRM  THEY  MUST  BE  CONTIGUOUS,  Y FIRST 


(32DI  (INTB15+  THROUGH  RUPTMXTM) 

REFLECTS  L5TH  BIT  OF  INDEXABLE  ADDRESSES 
RETURN  FOR  DSPIN 

RETURN  FOR  SCALE  FACTOR  ROUTINE  SELECT 

SIMILAR  TO  ABOVE. 

RETURN  FOR  DSPWU 

RETURN  FOR  PUTCOMIDEC  LOAD) 

TEMP  FOR  CHAR  IN 

; FOLLOWING  ORDER  FOR  INTERPRETIVE  TRACE. 

12  BIT  INTERPRETIVE  OPERAND  SUB-ADDRESS. 

HOLDS  CADR  MADE  FROM  POLISH  ADDRFSS. 

RETURN  FOR  UPDATNN,  UPOATVB 

TEMP  FOR  CHARIN 

COUNTER  FOR  ERROR  LIGHT  RESET 

COUNTER  FOR  SCALING  AND  DISPLAY  (DEC) 

WORK  AREA  ADDRESS. 

SET  NON-ZERO  ON  OVERFLOW. 

TEMPORARY  STORAGE  USED  FOR  VFCTOPS. 

TEMP  FOR  ON 

COUNTER  FOR  MIXNOUN  FETCH 
COUNTER  FOR  OCTAL  DISPLAY  VERBS 
COUNTER  FOR  FETCH  (DEC  DISPLAY  VFRBS) 

TEMP  FOR  +,-  ON 
TEMP  FOR  NVSUB 

STORAGE  FOR  SF  CONST  HI  P ART ( = S FT EMP2- 1 ) 
TEMP  FOR  LOAD  OF  HRS,  MIN,  SEC 
MUST  = LOTEMIN-1. 

FOR  DSPIN 

STORAGE  FOR  SF  CONST  LO  P AR T ( = SFT EMP 1+ 1 ) 
TEMP  FOR  LOAD  OF  HRS,  MIN,  SEC 
MUST  = HITEMIN+1. 

FOR  MIXNOUN  DATA 


TEMPORARY  SCALAR  STORAGE. 

CONTAINS  ADDRESS  OF  SPECIFIED  INDEX. 
ADDRESS  OF  SWITCH  WORD. 

SWITCH  BIT  WITHIN  SWITCH  WORD. 
TEMPORARY  USED  IN  MULTIPLY  AND  SHIFT. 


GAP: 
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L 

ERASABLE 

ASSIGNMENTS 

0212 

REF 

1 

0135 

DMPNTEMP 

= 

MPTEMP 

0213 

0136 

0136 

DOTINC 

ERASE 

0214 

REF 

1 

0136 

DVSIGN 

EQUALS 

DOTINC 

0215 

REF 

2 

LAST 

99 

0136 

ESCAPE 

EQUALS 

DOTINC 

0216 

REF 

3 

LAST 

99 

0136 

ENTRET 

= 

DOTINC 

021  7 

0137 

C 13  7 

DQTRET 

ERASE 

0218 

REF 

1 

0137 

0 VNORMCT 

EQUALS 

DOTRET 

0219 

REF 

2 

LAST 

99 

0137 

ESCAPE2 

EQUALS 

DOTRET 

0220 

REF 

3 

LAST 

99 

013  7 

WDCNT 

= 

DOTRET 

0221 

REF 

4 

LAST 

99 

0137 

INREL 

= 

DOTRET 

0222 

0140 

C 140 

MATINC 

ERASE 

0223 

REF 

1 

0140 

MAXDVSW 

EQUALS 

MATINC 

0224 

REF 

2 

LAST 

99 

0140 

POLYCNT 

EQUALS 

MATINC 

0225 

REF 

3 

LAST 

99 

0 140 

D SPMMTEM 

= 

MATINC 

0226 

REF 

4 

LAST 

99 

0140 

M I XBR 

= 

MATINC 

0227 

0141 

C 14 1 

T EM  1 

ERASE 

0228 

REF 

1 

0141 

POLYRET 

= 

T EMI 

022  9 

REF 

2 

LAST 

99 

0141 

DSREL 

= 

T EMI 

0230 

0142 

C 142 

T.EM2 

ERASE 

023  1 

REF 

1 

0142 

DSMAG 

= 

TEM2 

0232 

0 143 

C 143 

TEM3 

ERASE 

0233 

REF 

1 

0 143 

COUNT 

= 

TEM3 

0234 

0144 

0144 

TEM4 

ERASE 

0235 

REF 

l 

0144 

KELRET 

= 

TEM4 

0236 

REF 

2 

LAST 

99 

0144 

DSPWDRFT 

= 

TEM4 

023  7 

REF 

3 

LAST 

99 

0144 

SEPSCRET 

= 

TEM4 

0238 

REF 

4 

LAST 

99 

0144 

SFPMNRET 

= 

TEM4 

0239 

0145 

0145 

TEM5 

ERASE 

0240 

REF 

1 

0145 

NOUNADD 

= 

T EM5 

024  1 

0146 

0146 

NNADTEM 

ERASE 

0242 

0 147 

0147 

NNTYPTEM 

ERASE 

024  3 

0150 

C 150 

I DAO  ITEM 

ERASE 

A0244 

024  5 

0151 

0151 

I DAD2TEM' 

ERASE 

A0246 

024  7 

0152 

0152 

IDAD3TEM 

ERASE 

A0248 

0249 

0153 

0153 

RUTMXTEM 

ERASE 

R0250 

AX*SR#T 

STORAGE  . 

0252 

REF 

2 

LAST 

99 

0142 

DEXDEX 

EQUALS 

TEM2 

0253 

REF 

2 

LAST 

99 

0143 

DEX1 

EQUALS 

T E M3 
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DMPSUB  TEMPORARY 

COMPONENT  INCREMENT  FOR  DOT  SUBROUTINE. 
DETERMINES  SIGN  OF  DOV  RESULT. 

USED  IN  ARCSTN/ARCCOS. 

EXIT  FROM  ENTER 

RETURN  FROM  DOT  SUBROUTINE. 

DIVIDEND  NORMALIZATION  COUNT  IN  ODV. 
ALTERNATE  ARC S IN / ARCCOS  SWITCH. 

CHAR  COUNTER  FOR  OSPWO 

INPUT  BUFFER  SELECTOR  ( X,Y,Z,  REG  ) 

VECTOR  INCREMENT  IN  MXV  AND  VXM. 

+0  IF  DP  QUOTIENT  IS  NEAR  ONE  - ELSE  -1. 

POLYNOMIAL  LOOP  COUNT F R 

DSPCOUNT  SAVE  FOR  DSPMM 

INDICATOR  FOP  MIXED  OR  NORMAL  NOUN 

EXEC  TEMP 

REL  ADDRESS  FOR  DSPIN 
EXEC  TEMP 

MAGNITUDE  STORE  FOR  DSPIN 
EXEC  TEMP 
FOR  DSPIN 

EXEC  TEMP 
RETURN  FOR  RELDSP 
RETURN  FOR  DSPSIGN 
RETURN  FOR  SEPSEC 
RETURN  FOR  SEPMIN 

EXEC  TEMP 

TEMP  STORAGE  FOR  NOUN  ADDRESS 

TEMP  FOR  NOUN  AODRESS  TABLE  ENTRY 

TEMP  FOR  NOUN  TYPE  TABLE  ENTRY 

TEMP  FOR  INDIR  ADRESS  TABLF  ENTRYIMIXNN) 

MUST  = I DAD2TFM- 1 , = I DAD3TEM-2 . 

TEMP  FOR  INDIR  ADRESS  TABLE  FN  TRY ( M I XNN ) 
MUST  = IDAD1TEM+1 , = IDAD3TEM-1. 

TFMP  FOR  INDIR  ADR FS S TARLF  FNTRY ( M I XNN) 
MUST  = IDAD1TEM+2,  = I DAD2TFM+ 1 . 

TEMP  FOR  SF  ROUT  TABLE  ENTRYIMIXNN  ONLY) 

( 6D ) 

B ( l ) T MP 
B(  l)TMP 


GAP: 

L 

0254 

0255 

0256 

025  7 

R0258 

R0260 

R0262 

0263 

0264 

0265 

0266 

0267 

0260 

0269 

0270 

027  1 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 

A0281 
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ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


17:11  MAR.  19,1971 


ERASABLE 

ASSIGNMFNTS 

USFR'S  PAGE  NO. 

9 

EO  S4 

REF 

5 

LAST 

99 

0144 

0EX2 

EQUALS 

TEM4 

B ( 1 ) T MP 

REF 

2 

LAST 

99 

0145 

RTNS AVER 

EQUALS 

TEM5 

B ( 1 ) TMP 

REF 

1 

0157 

TFRM1 TMP 

EQUALS 

MPAC  +3 

BI2ITMP 

REF 

1 

0143 

OEXI 

= 

DEX1 

THE  1 

FOLLOWING 

10  REGISTERS 

ARE 

USED  FOR 

TEMPORARY  STORAGE  OF 

THE  DER IVATIVE 

COEFFICIENT  TABLE  OF 

SUBROUTINE  ROOTPSRS. 

THEY  MUST  REMAIN 

WITHOUT  1 

i NTERFERENCE  WITH 

1 ITS 

SUBROUTINES  WHICH 

ARE  POWRSERS  (POLY) 

DMPSUB, 

OMPNSUB , SHORTMP,  D0V/8DCV , 

ABS, 

, AMD  US PRC ADR  . 

REF 

2 

LAST 

100 

0142 

OERCOF-8 

= 

MPAC 

- 12 

POOTPSRS 

DER 

COF 

N-4 

HI 

ORDER 

REF 

3 

LAST 

100 

0143 

DERCOF-7 

= 

MPAC 

-11 

ROOTPSRS 

DER 

CUE 

N— 4 

LO 

ORDER 

REF 

4 

LAST 

100 

0144 

DERCOF— 6 

= 

MPAC 

-10 

ROOTPSRS 

DER 

COF 

N-3 

HI 

ORDER 

REF 

5 

LAST 

100 

0145 

DERCOF-5 

= 

MPAC 

-7 

ROOTPSRS 

DER 

COF 

N-3 

LO 

ORDER 

REF 

6 

LAST 

100 

0146 

DERCOF— 4 

= 

MPAC 

-6 

ROOTPSRS 

DER 

COF 

N-2 

HI 

ORDER 

REF 

7 

LAST 

100 

014  7 

DERCOF— 3 

= 

MPAC 

-5 

ROOTPSRS 

DER 

COF 

N-2 

LO 

ORDER 

REF 

8 

LAST 

100 

0150 

DERCOF— 2 

= 

MPAC 

-4 

ROOTPSRS 

DER 

COF 

N—  l 

HI 

ORDER 

REF 

9 

LAST 

100 

0151 

DERCOF-1 

= 

MPAC 

-3 

ROOTPSRS 

DER 

COF 

N—  1 

LO 

ORDER 

REF 

10 

LAST 

100 

0152 

DERCUFN 

= 

MPAC 

-2 

ROOTPSRS 

DER 

COF 

N HI 

ORDER 

REF 

11 

LAST 

100 

0153 

OERCOF+1 

= 

MPAC 

-1 

ROOTPSRS 

DER 

COF 

N LO 

ORDER 

REF 

5 

LAST 

90 

0117 

PWRPTR 

= 

POLISH 

ROOTPSRS 

POWER  TABLE 

POINTER 

REF 

13 

LAST 

98 

0124 

DXCR  I T 

= 

V 8UF 

+ 2 

ROOTPSRS 

CRITERION  FOR 

ENDING  TTERS 

REF 

14 

LAST 

100 

0125 

DXCP  IT  + 1 

= 

VBUF 

4-3 

ROOTPSRS 

CRITERION  FOR 

ENDING  ITERS 

REF 

15 

LAST 

100 

0126 

ROOTPS 

= 

VBUF 

+ 4 

ROOTPSRS 

ROOT 

HI 

ORDER 

REF 

16 

LAST 

100 

0127 

RGOTPS+1 

= 

VBUF 

+ 5 

ROOTPSRS 

ROOT 

LO 

ORDER 

REF 

4 

LAST 

98 

0132 

RETROOT 

= 

BUF 

+ 2 

ROQTP SRS 

RETURN 

AODp  r ss 

OF  USER 

REF 

5 

LAST 

99 

0140 

PWRCNT 

= 

MATINC 

ROOTPSRS 

DER 

TABLE  LOOP 

COUNTER 

REF 

3 

LAST 

99 

0141 

DERPTR 

= 

TEM1 

ROOTPSRS 

DER 

TABLE  POINTER 
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L 

ERASABLE 

: ASSIGNMENTS 

USER'S  PAGE  NO.  10 

EO  S4 

P0282 

DYNAMICALLY  ALLOCATED  CORE  SETS  FOR  JOBS. 

( 84D ) 

0284 

0285 

0286 

0287 

0288 
0289 

0154 
0163 
0 164 

0165 

0166 
0167 

0162 

0163 

0164 

0165 

0166 
0167 

M P AC 
MODE 
LOC 

BANKSET 

PUSHLOC 

PRIORITY 

ERASE 

ERASE 

ERASE 

ERASE 

ERASE 

ERASE 

+ 6 

MULTI-PURPOSE  ACCUMULATOR. 

+1  FOR  TP,  +0  FOR  DP,  OR  -1  FOR  VECTOR. 
LOCATION  ASSOCIATED  WITH  JOB. 

USUALLY  CONTAINS  BBANK  SETTING. 

WORD  OF  PACKED  INTERPRETIVE  PARAMETERS. 
PRIORITY  OF  PRESENT  JOB  AND  WORK  AREA. 

0290 

A0291 

0170 

0313 

ERASE 

+ 830 

EIGHT  SETS  OF  12  REGISTERS 

EACH 

R0292 

INCORP  STORAGE:  R22  IN29) 

(SHARES  Wl 

[TH  FOLLOW 

ING  SECTION) 

(40) 

0294 

A0295 

REF  1 

0314 

R22D  ISP 

EQUALS 

T IME2SAV 

1(4)  N49  DISPLAY  OF  DELTA  P 

AND  DELTA  V 

R0296 
029  8 
0299 
R0300 

ST  ANC  BY 

VERB  ERASABLFS 

0314 

0316 

0315 
C 3 1 7 

T IME2SAV 
SCALSAVE 

ERASE 

ERASE 

+ 1 
+ 1 

( 40) 

R0301 

HARDWARE  RESTART  COUNTER 

( ID) 

0302 

R0303 

0320 

C320 

REDOCTR 

ERASE 

CONTAINS  NUMBER  OF  RESTARTS 

R0304 

UNSHARED  STORAGE  FOR  DESIRED 

GIMBAL  ANGLES 

( 3D) 

0305 

0306 
030  7 
0308 

R0309 

REF  1 

REF  2 

REF  3 

0321 

0321 

LAST  101  0322 

LAST  101  0323 

0323 

THETAO 

CPU! 

CTHETA 

CPSI 

ERASE 

+ 2 

THETAD 
THETAO  +1 
THETAD  +2 

0 DESIRED  GIMBAL  ANGLES 

1 FOR 

M MANEUVER. 

R0310 

STORAGE 

FOR  DELTAV/S 

( 60) 

031  1 

0312 

0313 

0314 
A0315 

REF  1 

REF  2 

REF  3 

0324 

0324 

LAST  101  0326 

LAST  101  0330 

C33  1 

0 EL  V 
DEL  VX 
DEL  VY 
DELVZ 

ERASE 

+ 5 

DELV 
DELV  +2 
DELV  +4 

R0316 

WAIT!  1ST  REPEAT  FLAG 

( ID) 

0318 

0319 
A0320 

REF  1 

0332 

0332 

C332 

RUPT AGN 
KEYTEMP2 

ERASE 

RUPT  AGN 

TEMP  FOR  KEYRUPT,  UPRUPT 

R032  1 

DOWNLINK  STORAGE. 

( 27D ) 

GAP:  ASSEMBLE  REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L 

ERASABLE  ASSIGNMENTS 

0323 

A0324 

0333 

0325 

REF 

1 

0333 

A0326 
032  7 
A0328 

REF 

1 

0334 

0329 

REF 

1 

0335 

A0330 

0331 

A0332 

REF 

1 

0336 

0333 

REF 

l 

0336 

0334 
A0335 
A033  6 
A033  7 

REF 

2 LAST  102 

0336 

0338 

REF 

3 LAST  102 

0337 

0339 

REF 

I 

0340 

R0340 

UNSWITCHEU  FOR  OISPL 

0343 

0366 

0344 

0367 

0345 

0370 

0348 

0371 

0349 

0372 

0350 
A0350  1 

0373 

R03502 

CHANNEL  BIT  FAILURE 

03504 

0374 

R03505 

ALARM  CODE 

REGISTERS 

0351 

0375 

R0352 

VAC  AREAS. 

-BE  CAREF 

0354 

0400 

0355 

0401 

0356 

0454 

0357 

0455 

0358 

0530 

0359 

0531 

0360 

0604 

036  1 

0605 

0365 

DNTM  ERAS 

ERASE 

+ 260 

DNLST  COD 

EQUALS 

DNTMERAS 

CTLI ST 

EQUALS 

DNLSTCOD 

+ 1 

DNTMGOT  0 

EQUALS 

CTLIST 

+ 1 

DNECAOR 

EQUALS 

DNTMGOTO 

+ 1 

TMINDEX 

EQUALS 

D NEC  ADR 

DUMPLOC 

EQUALS 

DNECADR 

SUBL I ST 

EQUALS 

DNECADR 

+ 1 

DNTM  BUFF 

EQUALS 

SUBL I ST 

+ 1 

AY  INTERFACE  ROUTINES. 

C366 

NVWORO 

ERASE 

0367 

MARKNV 

ERASE 

0370 

NVSAVE 

ERASE 

0371 

CADRFLSH 

ERASE 

0372 

CADRMARK 

ERASE 

0373 

T EMPFLSH 

ERASE 

PROTECTION 

WORD  - PAD  LOADED  AS  ZERO 

0374 

CHANBKUP 

ERASE 

0377 

FAILREG 

ERASE 

+ 2 

UL  CF  PLACEMENT- 

0400 

V AC1 USE 

ERASE 

0453 

V AC  1 

ERASE 

+ 42D 

0454 

VAC2USE 

ERASE 

0527 

V AC2 

ERASE 

+ 42D 

0530 

VAC3USE 

ERASE 

0603 

VAC3 

ERASE 

+ 42D 

0604 

VAC4USE 

ERASE 

0657 

V AC4 

ERASE 

+ 42D 
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BI27DIPRM  ERASABLES  USED  BY  DOWN- 
TELEMETRY  PROGRAM  — CANNOT  8E  SHARED. 

BIllPRM  CODE  SPECIFYING  WHICH  DOWNLIST 
WILL  BE  SELECTED  FOR  TRANSMISSION 
BIllPRM  POINTER  TO  CURRENT  LOCATION  OF 
THE  CONTROL  LIST. 

BIllPRM  POINTER  TO  LOCATION  WHFPE  DNTM 
PROCESSING  WILL  RESUME  NEXT  DOWNRUPT. 
BIllPRM  HOLDS  CONTFNTS  OF  CURRENT 
CONTROL  LIST  LOCATION. 

Bill  INDEX  FOR  LOADING  SNAPSHOT  BUFFER. 
BID  BITS  1-11  CONTAIN  ECADR  OF  AGC  DP 
WORD  BFING  DUMPED  BY  V74  ERASABLE  DUMP. 

BITS  12-15  CONTAIN  COUNT  OF 
COMPLETE  DUMPS  ALREAOY  SENT. 

BIllPRM  POINTER  TO  CURRENT  SUBLIST  LOC. 
BI22IPRM  DOWNLINK  SNAPSHOT  BUFFER 


(60) 


PURPOSE^ ) 


I ID) 

B I 1 ) P RM 


I 3D) 

B I 3 ) P RM  3 ALARM  CODE  REGISTERS 


I 2200 ) 


GAP:  ASSEMBLE  RFVIS! 

ION  210  OF  AGC  PROGRAM  LUMINARY  BY 

NASA  2021 

LI  12—161  l 

L ERASABLE 

ASS1 

1GNMENTS 

0362 

0660  0660 

VAC5USE 

ERASE 

0363 

0661  0733 

V AC5 

ERASE 

+ 42D 

R0364 

TEMPORARIES  USED  BY  RESTARTS 

ROUTINE 

0366  REE  1 

0705 

GOLOC 

EQUALS 

V AC5  +20D 

R03652 

R59 

- STAR  ACQUISITION  ROUTI 

NE 

03654 

0734  0734 

POSCODE 

ERASE 

R0366 

CALCSMSC 

0370 

0735 

0750 

STARALGN 

ERASE 

+ 110 

0371 

REF 

1 

0735 

S INCDU 

= 

STARALGN 

0 37  2 

REF 

2 

LAST 

103 

0743 

COSCDU 

= 

STARALGN 

+ 6 

0373 

REF 

1 

0741 

SINCDUX 

= 

S INCDU 

+ 4 

0374 

REF 

2 

LAST 

103 

0735 

S INCDUY 

= 

S INCDU 

0375 

REF 

3 

LAST 

103 

0737 

SINCDUZ 

= 

S INCDU 

+ 2 

0376 

REF 

1 

0 74  7 

COSCDUX 

= 

COSCDU 

+ 4 

037  7 

REF 

2 

LAST 

103 

0743 

COSCOUY 

= 

COSCDU 

037B 

REF 

3 

LAST 

103 

0745 

COSCDUZ 

= 

COSCDU 

+ ? 

R0379 

PHASE  TABLE  AND  RESTART 

COUNTERS . 

0381 

0751 

0751 

-PHASE1 

ERASE 

0382 

0752 

C752 

PHAS  El 

tp  ase 

0383 

0 753 

0753 

-PHASE2 

ERASE 

0384 

0754 

0754 

PHASE? 

ERASE 

0385 

0755 

0755 

-PHASE3 

ERASE 

0386 

0756 

0756 

PHASE3 

ERASE 

0387 

0757 

0757 

-PHASE4 

ERASE 

0388 

0 760 

0760 

PHASE4 

ERASE 

0389 

0761 

0761 

-PHASE5 

ERASE 

0390 

0762 

0762 

PHAS  E 5 

ERASE 

0391 

0763 

0 Z63 

-PHASE6 

ERASE 

039  2 

0 764 

0764 

PHASE6 

ERASE 

R0393 

A**SR*T  STORAGE. 

0395 

0765 

C 772 

CDUSPOT  ERASE 

+ 5 

0396 

0397 

REF 

REF 

1 0765 

2 LAST  103  0767 

CDUSPOTY  = 
CDUSPOT  Z = 

CDUSPOT 

CDUSPOT 

1 03 


: 11  MAR.  19, 1971 

USER’S  PAGE 


LUMERASE 
NO.  12 


176 


B ( 4 ) 

( ID) 

B(l)TMP  DETENT  POSITION  CNTR 


1120) 


1 1 2D ) 


( 6D) 


PAGE 
EO  S4 


N R 69 


8(6) 
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L 

ERASABLE 

ASSIGNMENTS 

0398 

REF  3 

LAST  103 

0771 

C DUS  POT  X = 

CDUSPOT 

R0399 

VERB  37  STORAGE. 

040  1 

0773  0773 

M INDEX 

ERASE 

0402 

0774  0774 

MMNUMBER 

ERASE 

R0403 

PINBALL  INTERRUPT  ACTION. 

040  5 

0775  0775 

DSPCNT 

ERASE 

R040  6 

PINBALL  EXECUTIVE  ACTION 

040  8 

0 7 76 

0776 

DSPCOUNT 

ERASE 

0409 

0777 

0777 

DECBRNCH 

ERASE 

0410 

1000 

1000 

VERBREG 

ERASE 

041  1 

1001 

1001 

NOUNREG 

ERASE 

0412 

1002 

1002 

XPEG 

ERASE 

0413 

1003 

1003 

YREG 

ERASE 

041  4 

1004 

1004 

Z REG 

ERASE 

0415 

1005 

1005 

XREGLP 

ERASE 

0416 

1006 

1006 

YREGLP 

ERASE 

041  7 

REF 

1 1006 

HITEMOUT 

= 

YREGLP 

A0418 

0419 

1007 

1007 

ZREGLP 

ERASE 

0420 

REF 

l 1007 

LOTEMOUT 

= 

ZREGLP 

A042  1 

0422 

1010 

1010 

MODREG 

ERASE 

0423 

101 1 

1011 

OSPLOCK 

ERASE 

0424 

1012 

1012 

REQRET 

ERASE 

042  5 

1013 

1013 

LOAOSTAT 

ERASE 

0426 

1014 

1014 

CLPASS 

ERASE 

042  7 

1015 

1015 

NOUT 

ERASE 

0428 

1016 

1016 

NOUNCADR 

ERASE 

0429 

1017 

1017 

MONSAVE 

ERASE 

043  0 

1020 

1020 

MONSAVE  1 

ERASE 

0431 

1021 

1021 

M0NSAVE2 

ERASE 

0432 

1022 

1035 

DSPTAB 

ERASE 

FllO 

0433 

1036 

1036 

NVUTEM 

ERASE • 

A0434 

043  5 

1037 

103  7 

NVBNKTEM 

ERASE 

A0436 

0437 

1040 

1040 

VERBSAVE 

ERASE 

043  8 

1041 

1041 

CADRSTOR 

ERASE 

0439 

1042 

1042 

DSPL 1ST 

ERASE 

0 44  J 

1043 

1043 

EXTVBACT 

ERASE 

044  1 

1044 

1046 

DSPTEM1 

ERASE 

LUMER ASE .176 
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17:  11  MAR.  19, 1971 

USER'S  PAGE  NO.  13 


EO  S4 


120) 

Rtl)  TMP  INDEX  FOR  MAJOR  MODE 

Bill  TMP  MAJOR  MODE  R E QUE  STF  0 BY  V 37 

( ID) 

BIllPRM  COUNTER  FOR  DSPOUT. 


I 44D ) 


DISPLAY  POSIT 
+DEC , - DEC, 
VERB  CODE 
NOUN  CODE 
R 1 INPUT  RUFF 
R2  INPUT  BUFF 
R 3 INPUT  BUFF 
LO  PART  OF  XR 
LO  PART  OF  YR 
TEMP  FOR  DISP 
MUST 

LO  PART  OF  ZR 
TEMP  FOR  OISP 
MUST 


ION  INDICATOR. 
OCT  INDICATOR 


ER 

ER 

ER 


EG 

( FOP 

DEC 

CON  V 

ONLY) 

EG 

(FOR 

DEC 

CONV 

ONLY  ) 

LAY 

OF 

HRS, 

MIN, 

SEC 

= 

LOTFMOUT- 

1. 

EG 

( FOR 

DEC 

CONV 

ONLY) 

LAY 

OF 

HRS, 

MIN, 

SFC 

= 

HITEMOUTf 

1. 

MODE  CODE 

K F YBO ARD/ SUBROUT  I NE  CALL  INTERLOCK 

RETURN  REGISTER  FOR  LOAO 

STATUS  INDICATOR  FOR  LOADTST 

PASS  INDICATOR  CLEAR 

ACTIVITY  COUNTER  FOR  DSPTAB 

MACHINE  CADR  FOR  NOUN 

N/V  CODE  FOR  MONITOR.  (=  MONSAVFl-l) 

NOUNCADP,  FOR  MON  1 TOR  ( M ATB  S ) =MONSAVE  +1 

NVMONOPT  OPTIONS 

0-10D,  DISPLAY  PANEL  BUFF.  11D,  C/S  LTS. 

NVSUB  STORAGE  FOR  CALLING  ADDRESS 

MUST  = NVBNKTEM-1 

NVSUB  STORAGE  FOR  CALLING  RANK 

MUST  = NVQTEM+l 

NEEDED  FOR  RECYCLE 

ENDIOLE  STORAGE 

WAITING  REG  FOR  DSP  SYST  INTFRNAL  USE 
EXTENDED  VERB  ACTIVITY  INTERLOCK 
BUFFER  STORAGE  AREA  1 (MOSTLY  FOR  TIME) 


GAP: 

ASSEMBLE  REVIS1 

[ON  210  OF 

AGC  PROGRAM  LUMINARY 

BY  NASA  2021112-161 
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PAGE  105 

L 

ERASABLE  AS S 1 

IGNMENTS 

USER • S PAGE  NO.  14 

EO  S4 

044  2 

1047  1051  DSPT 

EM2  ERASE  +2 

BUFFFR  STORAGE  AREA  2 (MOSTLY 

FOR  DEG) 

044  3 

REF 

l 

1050 

DSPTEMX 

EQUALS 

DSPTEM2  +1 

B ( 2 ) 

i S-S  DISPLAY  8UFFFR  FOR  EXT.  VERBS 

0444 

A0445 

REF 

l 

1044 

N0RMTEM1 

EQUALS 

DSPTEM1 

B(  3] 

i DSP  NORMAL  DISPLAY  REGISTERS. 

R0446 

DISPLAY  FOR  EXTENDED 

VERBS  ( V82 , R041V62 

'),  V4KN72)  ) 

( 2D) 

044  8 

REF 

1 1050 

OPTIONX 

EQUALS  DSPTEMX 

(2)  EXTENDED  VERB  OPTION  CODE 

A0449 

R0450 

TBASES  AMD  PHSPRDT  S. 

( 12D) 

045  2 

1052 

1052 

T BAS  E 1 

ERASE 

0453 

1053 

1053 

PHSPRDT1 

ERASE 

0454 

1054 

1054 

TBASE2 

ERASE 

0455 

1055 

1055 

PHSPRDT2 

ERASE 

045  6 

1056 

1056 

TBASE3 

ERASE 

0457 

1057 

1057 

PHSPRQT3 

ERASE 

045  8 

1060 

1060 

TBASE4 

ERASE 

0459 

1061 

1061 

PHSPRDT4 

ERASE 

046  0 

1062 

1062 

TBASE5 

ERASE 

046  1 

106  3 

1063 

PHSPRDT5 

ERASE 

046  2 

1064 

1064 

TBASE6 

ERASE 

046  3 

1065 

1065 

PHSPRDT6 

ERASE 

0464 
A0465 
A 046  6 

REF 

1 

1055 

P IPCTR 

PHSPRDT2 

USED  TO  COUNT  DOWN  RIO  CYLCES.  USED  IN 
CONJUNCTION  WITH  TBASE2,  SO  THIS 
LOCATION  IS  FUNCTIONALLY  =.  SEE  R10.R11 

R0467 

UNSWITCHED 

FOR 

DISPLAY 

INTERFACE  ROUTINES. 

(5D) 

0469 

1066 

1066 

NVW0RD1 

ERASE 

BID  * USED 

DURING  POWERED  FLIGHT  ONLY  * 

0470 

0471 

0472 
047  3 
0474 

R0475 

REF 

1 

106  7 
1067 

1070 

1071 

1072 

1067 

10  70 

1071 

1072 

E BANKSAV 

OSPFLG 

MARKFLAG 

EBANKTEM 

MARK2PAC 

ERASE 

ERASE 

ERASE 

ERASE 

EBANKSAV 

R0476 

CODE  WORD 

FOR 

AGS  RENDEZVOUS 

DOWNLIST  XFEP.  OF 

RADAR  DATA 

( ID) 

047  7 

1073 

1073 

AGSCODE 

ERASE 

B(l)  DO  NOT 

SHARE. 
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R0478 

IMU  COMPENSATION  UNSWITCHED 

ERASABLF. 

o -< 

CO  CO 

O O 

< 

10  74 

1074 

1/PI PADT 

ERASE 

R 0482 

TEMPORARIES  FOR  SPCOS 

ANC  SPSIN 

0484 

1075 

1075 

TEMK 

ERASE 

0485 

A0486 

1076 

1076 

SO 

ERASE 

R0437 

**** 

RADAR  **** 

0489 

1077 

1077 

SAMPL  I M 

ERASE 

0490 

REF 

1 

1077 

RADUSE 

EQUALS 

SAMPLIM 

049  1 

1 100 

1103 

SAMPL  SUM 

ERASE 

+ 3 

049  2 

REF 

1 

1100 

RRTARGET 

EQUALS 

SAMPL  SUM 

049  3 

1 104 

1105 

TIMEHOLD 

ERASE 

+ 1 

0494 

l 106 

1107 

TANG 

ERASE 

+ 1 

0495 

REF 

1 

1 106 

MODE  A 

EQUALS 

TANG 

0496 

1110 

1111 

MODEB 

ERASE 

+ 1 

049  7 

REF 

1 

1110 

N SAM  P 

EQUALS 

MODEB 

049  8 

1112 

1112 

DESRET 

ERASE 

0499 

REF 

1 

1112 

OLDATAGD 

EQUALS 

DESRET 

0500 
A050  1 

1 113 

1113 

OESCOUNT 

ERASE 

R0502 

******  P22  ****** 

0504 

A0505 

REF 

1 

1 100 

RSUBC 

EQUALS 

RRTARGET 

17:11  MAR.  19,1971  LUMFRASE . 1 76  PAGE 


USER'S  PAGE  NO.  15 


EO  S4 


1 ID) 


( 20) 

( 1) 

( 1 ) 

( 130) 

B(l) 

LR 

B ( 1 ) P RM 

BOTH 

B I 2 ) , 1(2) 

BOTH 

I (6) 

RR  1 

B(  2) 

BOTH 

B( 2)  , I 

RR 

B( 2)  , I 

RR 

8( 2)  , I 

RR 

8(1) 

BOTH 

B ( 1 ) , I 

RR 

B<  1) 

BOTH 

B(  1) 

RR 

I 6D) 


R12,P60S,R04,R77 

P20,P22,R12,R04 

0,P22  ,RD4,V41 


106 


I ( 61S-S 


CSM  POSITION  VECTOR 
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L 

ERASABLE 

ASSIGNMENTS 

USER'S  PAGE  NO.  16 

EO 

S6 

P0506 

UNSWITCHFD  FOR  ORBIT 

INTEGRATION. 

( 21D) 

0508 

1 l 16 

1160 

T DEC 

ERASE 

+ 20D 

1(2) 

0509 

REF 

1 

1116 

COLREG 

EQUALS 

TDEC 

+ 2 

1(1) 

0510 

REF 

1 

1117 

LAT 

EQUALS 

COLREG 

+ 1 

1(2) 

051  1 

REF 

l 

1121 

LONG 

EQUALS 

LAT 

+ 2 

1(2) 

0512 

REF 

l 

1123 

ALT 

EQUALS 

LONG 

+ 2 

1(2) 

0513 

REF 

1 

1125 

YV 

EQUALS 

ALT 

+ 2 

1(6) 

0516 

REF 

1 

1133 

ZV 

EQUALS 

YV 

+ 6 

T ( 6) 

A0515 

R0516 

MISCELLANEOUS  UNSWITCHED. 

( 20D ) 

0518 

1161 

1161 

P60/RET 

ERASE 

(WILL  BE  PUT  IN  E6  WHEN  THERE  IS 

ROOM  ) 

0519 

1 162 

1162 

GENRET 

ERASE 

B ( 1 ) R61  RETURN  CADR . 

0520 

1163 

1163 

0PTI0N1 

ERASE 

B( 1)  NOUN  06  USES  THIS 

0521 

1 166 

1 166 

0PTI0N2 

ERASE 

B<  l)  NOUN  06  USES  THIS 

0522 

1 165 

1165 

0PTI0N3 

ERASE 

B(l)  NOUN  06  USES  THIS 

0523 

1 166 

1167 

LUNGCADR 

ERASE 

+ 1 

8(2)  LONGCALL  REGISTER 

0526 

1 150 

1151 

LONG-BASE 

ERASE 

+ 1 

0525 

1152 

1153 

LONGTIME 

ERASE 

+ 1 

B ( 2 ) LONGCALL  REGISTER 

0526 

l 156 

1156 

CDUTEMPX 

ERASE 

B ( 1 ) TMP 

0527 

1155 

1155 

CDUTEMPY 

ERASE 

B ( 1 ) T M P 

0528 

1156 

1156 

CDUTfcMPZ 

ERASE 

B ( 1 ) T MP 

0529 

1157 

1157 

P TPATMPX 

ERASE 

BID  TMP 

0530 

1 160 

1160 

P IPATMPY 

ERASE 

8 ( 1 ) T MP 

053  1 

1 161 

1161 

P I PATMPZ 

ERASE 

B(  DTMP 

0532 

l 162 

1162 

DISPDEX 

ERASE 

B(  1) 

0533 

l 163 

1163 

TEMPR60 

ERASE 

B(l) 

0536 

1 166 

1166 

PR  10  T I ME 

ERASE 

B ( 1) 

R0535 

P27 

l UPDATE  PROGRAM  ) STORAGE 

. 

( 26D ) 

0537 

1 165 

1165 

UPVERBSV 

ERASE 

B(l)  UPDATE  VERB  ATTEMPTED. 

053  8 

1166 

1216 

UPTEMP 

ERASE 

+ 26D 

B ( 1 ) T MP  SCRATCH 

R0539 

RETAIN  THE  ORDER  OF  CCMPNUMB  THRU  UPBUFF 

+19D  FOR 

DOWNLINK  PURPOSES. 

0560 

REF 

1 

l 167 

COMPNUMB 

EQUALS 

UPTEMP  +1 

B l 1 ) TMP  NUMBER  OF  ITEMS  TO 

BE  UPLINKED 

0561 

REF 

1 

1170 

UPOLOMOD 

EQUALS 

COMPNUMB 

+ 1 

B ( 1 ) TMP  INTERRUPTED  PROGRAM 

MM 

0562 

REF 

1 

1171 

UPVERB 

EQUALS 

UPOLOMOD 

+ 1 

B ( 1 ) T MP  VERB  NUMBER 

0563 

REF 

1 

1 172 

UPCOUNT 

EQUALS 

UPVERB 

+ 1 

B 1 DTMP  UPBUFF  INDEX 

0566 

REF 

1 

1173 

UPBUFF 

EQUALS 

UPCOUNT 

+ 1 

B ( 20D ) 

A0565 

R0566 

TEMPORARY  FOR  PESTART 

PROTECTION  IN  SERVICER 

(2D) 

0568 

REF 

1 

1 1 73 

DVTEMP 

EQUALS 

UPBUFF 

B ( 2 ) TEMP.  SAVE  DVTOTAL  FOR 

RESTARTS. 
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L 

ERASABLE 

ASSIGNMENTS 

USER' S PAGE  NO.  17  EO 

S4 

R0549 

SPECIAL  DEFINITION  FOR 

SYSTEM 

TEST  ERASABLE  PGMS . 

(2D) 

055  l 

REF  2 

LAST  107  1166 

EBUF2  EQUALS  UPTEMP 

B ( 2 ) FOR  EXCLUSIVE  USE  OF  SYSTEM 

TEST 

A0552 

R0553 

PERM  STATE  VECTORS  FOR 

ECOST 

AND  DOWNLINK-WHOLE  MISSION- 

(140) 

0555 

1217 

1224 

RN  ERASE  +5 

B l 6IPRM 

0556 

1225 

1232 

VN  ERASE  +5 

B ( 6 ) P RM 

0557 

1233 

1234 

PIPTIME  ERASE  +1 

R ( 2 ) P RM  (MUST  BE  FOLLOWED  BY  GDT/2) 

R0558 

SERVICER 

-MUST  FOLLOW 

PIPTIME- 

( 180) 

0560 

1235 

1256  GCT/2 

ERASE 

+ 170 

BI61TMP  **  MUST  FOLLOW  PIPTIME  ** 

056  1 

REF 

1 

1243 

MASS 

EQUALS 

GDT/2 

+6 

B(  2) 

0562 

REF 

1 

1243 

WEIGHT/G 

= 

MASS 

0563 

REF 

2 

LAST  108 

1245 

ABDELV 

EQUALS 

MASS 

+ 2 

( 1 ) 

0564 

REF 

1 

1246 

PGUI UE 

EQUALS 

ABDELV 

+ 1 

(2) 

0565 

REF 

1 

1250 

D VTHRUSH 

EQUALS 

PGUIDE 

+ 2 

(1) 

0566 

REF 

1 

1251 

AVEGEXI T 

EQUALS 

□VTHRUSH 

+ 1 

( 2) 

056  7 

REF 

l 

1251 

AVGEXIT 

= 

AVEGEXI T 

0568 

REF 

2 

LAST  108 

1253 

TEMX 

EQUALS 

AVEGEXI T 

+ 2 

( l) 

0569 

REF 

l 

1254 

TEMY 

EQUALS 

TEMX 

+ 1 

( 1) 

0570 

REF 

1 

1255 

TEM7- 

EQUALS 

TEMY 

+ 1 

(1) 

0571 

A0572 

REF 

1 

1256 

P IPAGE 

EQUALS 

TEMZ  +1 

8(11 

R0573 

ALIGNMENT 

( 70) 

0575 

REF 

2 

LAST 

108 

1235 

AOTCODE 

EQUALS 

GDT/2 

B ( 1)TMP 

OOWNl  INKED  — STAR  CODE 

05755 

REF 

l 

1235 

STARCOOE 

= 

AOTCODE 

B ( 1 ITMP 

DSP  N70.N71 

0576 

REF 

2 

LAST 

10  8 

1236 

XCGUNT 

= 

AOTCODE 

+ 1 

Bt 1 ) TMP 

DSP  N70.N71  X MARK  COUNTER 

05762 

REF 

3 

LAST 

108 

123  7 

YCOUNT 

= 

AOTCODE 

+ 2 

B ( 1 ) T M P 

DSP  N70.N71  Y MARK  COUNTER 

05765 

REF 

4 

LAST 

108 

1240 

CURSOR 

EQUALS 

AOTCODE 

+ 3 

B ( 1ITMP 

OOWNLNK  --  STAR  MEASUREMENT  QTY 

057  7 

REF 

1 

1241 

SPIRAL 

' EQUALS 

CURSOR 

+ 1 

B ( 1 ) TMP 

DOWNLNK  — STAR  MEASUREMENT  QTY 

05772 

REF 

1 

1241 

SITIME 

EQUALS 

SPIRAL 

R ( 2 ) TMP 

TIME  USED  IN  LANDING  SITE  COMP 

R0578 

S 34/ 

35.5 

TEMPORARY 

(2) 

0579 

REF 

3 

LAST 

108 

1235 

TMPO  V 

EQUALS 

GDT/2 

B(2)  TMP 

SAVE  FOR  OVLVC 

R0580 

USED 

FOR 

SUMMATION  OF 

UPRUPT 

OURING  PRELAUNCF 

8 SYS  TEST 

LFAOINI 30) 

0582 

REF 

2 

LAST 

108 

1245 

UPSUM 

EQUALS 

ABDELV 

(3) 

GAP: 

ASSEMBLE  REVISION  210  OF 

A GC  PROGRAM  LUMINARY  BY 

NASA  2021112-161 

17:11  MAR.  19,1971  L UMF P. A SE  . 1 76 

PAGE  109 

L 

ERASABLE  ASSIGNMENTS 

USER'S  PAGE  NO.  18 

EO  S4 

R0583 

P 76  DISPLAY 

N84 

( 6D ) 

0585 

REF  1 

1250 

DELVOV 

EQUALS 

UPSUM  +3 

1(6) 

R0585  1 

P76  - P77  STORAGE 

(ID) 

05853 

REF  4 LAST  108 

1235 

OPTFL AG 

EQUALS 

GDT/2 

R ( 1 ) T MP  FLAG  FOR  P76  OR  P77 

R0586 

PERMANENT  LEM 

DAP  STORAGE. 

( 50) 

0588 

1257  1257 

CH5MASK 

ERASE 

B ( 1 ) P RM 

0589 

1260  1260 

CH6M ASK 

ERASE 

B(1)PRM  JET  FAILURE  MASK. 

0590 

1261  1261 

S PND  X 

ERASE 

BID 

0603 

1262  1263 

T5ADR 

ERASE 

+ 1 

GENADR  OF  NEXT  LM  DAP  T5RUPT. 

* 2CADR  * 

A0604 


BBCON  OF  NEXT  LM  OAP  T5RUPT. 


2CADR 


R06043 

DISPLAY  INTERFACE  RESTART  PROTECTION  STORAGE 

( 1DI 

i 

06045 

1264 

1264 

RESTREG 

ERASE 

B(  11 

1 P RM 

R0605 

ERASABLES  FOR  RADAR  READ 

PROTECTION  ( C 1 3ST  ALL ) 

( 4D ) 

060  7 

1265 

1265 

C130SAV 

ERASE 

BUI 

i QSAVE  FOR  C13STALL  USERS. 

060  8 

1266 

1266 

C13FSAV 

ERASE 

Bill 

i FBANK  SAVE  FOR  C13STALL. 

0609 

1267 

1267 

RADT  IME 

ERASE 

B(  1) 

NEC.  TIME  OF  SCALAR  RFAD. 

0610 

1270 

1270 

RAODEL 

ERASE 

Bill 

1 DELTA  TIME  FROM  SCALAR  READ  TO  T5. 

A061  1 

R 061  2 

RADAREAD  STORAGE 

( 2D] 

i 

0614 

1271 

1272 

TT0T1G 

ERASE  +1 

B ( 2 ) 

LATEST  ESTIMATE  OF  TIME  TO  IGNITION 

A0615 

R0616 

RCS  FAILURE  MONITOR  STORAGE 

( 1 ) 

0618 

1273 

1273 

PVAL VEST 

ERASE 

Bill 

i PRM 

R0619 

K ALCMANU/DAP  INTERFACE. 

( 3D] 

062  1 

1274 

1274 

DELPEROR 

ERASE 

Bill 

1 P RM  COMMAND  LAGS. 

0622 

1275 

1275 

DELQEROR 

ERASE 

Bill 

1 P RM 

0623 

1276 

1276 

DELREROR 

ERASE 

Bill 

1 P RM 

R062  4 

MODE  SWITCHING  ERASABLE. 

( 9 D ] 

i 
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R0626 

RETAIN  THE  ORDER 

OF  I M0DES30 

AND  I M0DES33  FOR 

DOWNLINK  PURPOSES. 

062  7 

1277 

1277 

I MODE  S30 

ERASE 

062  8 

1300 

1300 

I MODES  33 

ERASE 

0629 

1301 

1303 

MOOECADR 

ERASE 

+ 2 

0630 

REF 

1 

1301 

I MUC ADR 

EQUALS 

MOOECADR 

063  1 

REF 

2 

LAST  110 

1302 

OPTCAOR 

EQUALS 

MOCECADR 

+ 1 

0632 

REF 

3 

LAST  110 

1303 

RADCADR 

EQUALS 

MOOECADR 

+ 2 

063  3 

1304 

1306 

ATTCADR 

ERASE 

+ 2 

0634 

REF 

1 

1306 

ATTPR  10 

= 

ATTCADR 

+ 2 

0635 

130  7 

1307 

MARKSTAT 

ERASE 

R0636 

T4RUPT  ERASABLE. 

0638 

1310 

1310 

DSRUPTSW 

ERASE 

0639 

1311 

1311 

LGYRO 

ERASE 

R0640 

RENDEZVOUS 

RAOAR  TASK 

STORAGE 

0642 

1312 

1314 

RRRET 

ERASE 

+ 20 

0643 

REF 

1 

1313 

RDES 

EQUALS 

RRRET 

+ 1 

0644 

REF 

1 

1314 

RRINDEX 

EQUALS 

RDES 

+ 1 

A0645 


R0646  MEASUREMENT  INCORPORATION 


0648 

1315 

1315 

W IXA 

ERASE 

0649 

1316 

1316 

WI  XR 

ERASE 

0650 

1317 

1317 

Z IXA 

ERASE 

065  1 

1320 

1320 

ZIXB 

ERASE 

R0652 

LANDING  RADAR  PADLOAD 

0654  REE 

A06545 

1 1315 

LRWH1 

EQUAL 

R0655 

AGS  DOWNLINK  ID  CODE 

FOR  RESTART  PURPOSES 

065  7 

1321 

1321  AG  SWORD  ERASE 

R0658 

SOME  MISCELLANEOUS  1 

UNSWITCHED. 

066  0 

1322 

1322 

RATE  I NDX 

ERASE 

066  1 

1323 

1325 

DELAYLOC 

ERASE 

066  2 

1326 

1326 

LEMMASS 

ERASE 

0663 

1327 

1327 

CSMMASS 

ERASE 

R0664  LESS  IS  MORE. 
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USER'S  PAGE  NO.  19  EO  S4 


B(l) 

B( 3IPRM 

B( 3IPRM 

( 2DI 

(1) 

(3D) 

B ( 1 ) TMP  P20 1 S , PERHAPS  R29  t R12 
R ( 1 ) T MP 
B(  1 )TMP 


(4D) 

B(l) 

B(  1) 

Bill 

B(l) 

( ID) 

B(l)  P.L.  P 64  LR  WEIGHTING  FUNCTION 


( ID) 


( 6D ) 

(1)  USED  BY  KALCMANU 


KEEP  CONTIGUOUS  W 


CSMMASS 


( l )E ACH 
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L ERASABLE  ASSIGNMENTS  USER'S  PAGE  NO.  20  EO  S4 


R0665 

RENDEZVOUS  AND  LANDING 

RADAR 

DOWNLINK  STORAGE. 

( 7D) 

R 066  7 

(NORMALLY  USED  DURING 

P20 , BUT  MAY  ALSOI 

R 066  8 

(BE  REQUIRED 

FOR 

THE 

V62  SPURIOUS  TEST.) 

R0669 

(PLEASE  KFEP  IN 

THIS  ORDER) 

0670 

1330 

1336 

DNRRANGE 

ERASE 

+ 6 

B ( 1 1 TMP 

0671 

REF 

l 

1331 

DNRR  DOT 

EQUALS 

DNRRANGE 

+ 1 

B ( 1 ) T MP 

0672 

REE 

1 

1332 

DNINDEX 

EQUALS 

DNRRDOT 

+ 1 

BI1ITMP 

0673 

REF 

1 

1333 

DNLRVELX 

EQUALS 

DNINDEX 

+ 1 

B ( DTMP 

0674 

REF 

1 

13  34 

DNLRVELY 

EQUALS 

DNLRVELX 

+ 1 

B 1 DTMP 

0676 

REF 

1 

1335 

DNLR VELZ 

EQUALS 

DNLRVELY 

+ 1 

B ( DTMP 

0676 

REF 

1 

1336 

DNLR ALT 

EQUALS 

DNLRVELZ 

+ 1 

BID  TMP 

R0677 

RADAR  — RR  AND  LR 

( ID) 

0679 

REF 

2 

LAST  111  1332 

RADBITS 

EQUALS 

DNINDEX 

B(  1)PRM 

SHOWS  TYPE 

OF  RADAR  READ 

R0680 

INCORPORATION  UNSWITCHED. 

(ID) 

0682 

A0683 

REF 

1 

1256 

W.  IND 

EQUALS 

PIPAGE 

B ( 1 > TMP 

— INDEX 

IN  CLOSED  LOOP 

R0684 

SUBROUTINE  BALLANGS 

OF 

R60  . 

( ID) 

0686 

1337 

1337 

BALLEX IT 

ERASE 

B ( 1 )S  AVE 

LOCATION  FOR  BALLINGS  SUBR 

R0687 

SOME  LEM  DAP  STORAGE 

. 

( 4D ) 

0689 

1340 

1340 

DAPDATR1 

ERASE 

B ( 1 I DSP 

DAP  CONFIG. 

0690 

1341 

1342 

TEVENT 

ERASE 

+ 1 

B ( 2) DSP 

0691 

1343 

1343 

DB 

ERASE 

Bll)  PRM 

DF AD  BAND 

0692 

A0693 

REF 

1 

1343 

DBVAL 1 

DB 

B ( 1 ) PRM 

R0694 

NC  UN 

87  USED  IN  R52  AUTO 

OPTICS 

( 2D) 

0696 

1344 

1345 

AZ 

ERASE 

+.1D 

B ( l ) AZ 

AND  EL  MUST 

BE  CONTIGUOUS 

0697 

A0698 

REF 

1 

1345 

EL 

EQUALS 

AZ  +1D 

B ( l) 

R0699 

P63,  P64  , P65 , P66 , 

AND 

P67. 

( ID) 

0701 
AO  70  2 

1346 

1346 

WCHPHASE 

ERASE 

(3(1) 

GAP 
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L ERASABLE  ASSIGNMENTS 


USER' S PAGE  NO.  21 


EO  S4 


R0703 

PADLOADS  FOR 

R2  LUNAR 

POTENTIAL  MODEL. 

( 2D) 

0/05 

l 3 A 7 

134  7 

E3J22R2M 

ERASE 

III) 

0706 
AO  70  7 

1350 

1350 

E32C31RM 

ERASE 

III) 

A0708 

R0709 

ERASABLES  FOR 

TRUNNION 

AND  SHAFT  COMMANDS 

(2D) 

071  1 

1351 

1351 

trunncmo 

ERASE 

***  THESE  TWO  ERASABLES  *** 

0712 

A0713 

1352 

1352 

SHAFTCMD 

ERASE 

***  MUST  BE  IN  ORDFR  *** 

R0714 

R22  OF  P2G 

I ID) 

0716 

A0717 

1353 

1353 

WFCHPEAD 

ERASE 

BIllTMP  MEASUREMENT  BEING  PROCESSED. 

R0718 

LANDING  PADLOAD 

1 ID) 

0720 

REF 

1 

1 353 

ELBI AS 

EQUALS  WHCHREAD 

BI1)  PL  LPD  ELEVATION  BIAS,  PI  RADIANS 

R072  1 

P66  PAOLOAD 

I ID) 

0723 

1354 

1354 

TOOFEW 

ERASE 

Bll)  TOO  FEW  THROTTLINGS  PFR  OMISSION: 

A0724 

ONE  LESS  THAN  NO.  THROTTLES  REQUIRED 

AO  72  5 

BETWEEN  SKIPPED  THROTTLES 

AO  72  6 

1466  ALARM  IF  THROTTLINGS  <=  TOOFFW 

R0727 

TLOSS  INDICATORS  FOR  DOWNLINK 

( 2D) 

A0729 

0730 

1355 

1355 

SERVDURN 

ERASE 

Bll)  AT  SERVOUT:  T I ME  1 - PIPTIME  +1 

073  1 

1356 

1356 

DUMLOOPS 

ERASE 

Bll)  LOOP  COUNTER  IN  DUMMY JOB  AT  ADVAN 

R0732 

SELF- 

■CHECK  ASSIGNMENTS. 

I 17D) 

R0734 

(DO  NOT 

MOVE,  S-C 

IS  ADDRESS  SENSITIVE) 

0735 

1357 

1377 

selferas 

ERASE 

1357  - 1377 

***  MUST  NOT  BE  MOVED  *** 

0736 

REF  1 

1357 

SFAIL 

EQUALS 

SELFFRAS 

B I 1) 

0737 

REF  1 

1360 

ERESTORE 

EQUALS 

SFAIL 

+ 1 

Bll) 

0738 

REF  1 

1361 

SELFRET 

EQUALS 

ERESTORE 

+ 1 

Bll) 

RETURN 

0739 

REF  1 

1362 

SMODE 

EQUALS 

SELFRET 

+ 1 

Bill 

0740 

REF  I 

1363 

ALMCADR 

EQUALS 

SMODE 

+ 1 

8(2) 

ALARM-ABORT  USER'S  2C ADR 

074  1 

REF  l 

1365 

ERCOUNT 

EQUALS 

ALMCADR 

+ 2 

Bll) 

0742 

REF  l 

1366 

SCOUNT 

EQUALS 

ERCOUNT 

+ 1 

B I 3 ) 

074  3 

REF  1 

1371 

SKEEP1 

EQUALS 

SCOUNT 

+3 

8(1) 

0744 

RFF  1 

1372 

SKEEP2 

EQUALS 

SKEEP1 

+ 1 

Bll) 

0745 

REF  l 

1373 

SKEEP3 

EQUALS 

SKEEP2 

+ 1 

Bill 

0746 

REF  1 

1374 

SKEEP4 

EQUALS 

SKEEP3 

+ 1 

Bll) 

" 
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USER'S  PAGE 

NO.  22 

EO  S4 

0747 

REF  1 

1375 

SKEEP5 

EQUALS 

SKEEP4 

+ 1 

B I 1) 

0748 

REF  1 

1376 

SKEEP6 

EQUALS 

SKEEP5 

+ 1 

B(l) 

0749 

REF  I 

1377 

SKEEP7 

EQUALS 

SKEEP6 

+ 1 

Btl) 

ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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P3000 

EBANK-3  ASSIGNMENTS 

3001 

E3 , 1400 

SETLOC 

1400 

R3002 

WAITLIST  TASK  LISTS. 

3004 

E3 , 1400 

E3 , 1407 

L ST  1 

ERASE 

+ 7 

3005 

E3 , 14  10 

E3 , 1431 

LST2 

ERASE 

+ 17D 

R 300  6 

RESTART  STORAGE. 

3008 

E3 , 1432 

E3 , 1433 

RSB8Q 

ERASE 

+ 1 

R3009 

MORE  LONGCALL  STORAGE 

. (MUST  BE 

IN  LST1 

S BANK. 

301  l 

E3, 1434 

E3,  1435 

LONG  EXIT 

ERASE 

+ t 

R3012 

PHASE-CHANGE  LISTS 

PART  II. 

3014 

E3, 1436 

E 3 , 1436 

PHSNAME  1 

ERASE 

301  5 

F3, 1437 

E3 , 1437 

PHSBB1 

ERASE 

3016 

E3 , L440 

E3 , 1440 

PHSN  AM  E2 

ERASE 

3017 

E 3 , 1441 

E 3 , 1441 

PHSBB2 

ERASE 

3018 

E3, 1442 

E3 , 1442 

PHSNAME3 

ERASE 

3019 

E3, 1443 

E3 , 1443 

PHSBB3 

ERASE 

3020 

E3, 1444 

E3 , 1444 

PHSNAME4 

ERASE 

3021 

E3 , 1 445 

E3 , 1445 

PHSBB4 

ERASE 

3022 

E3 , 1446 

E3 , 1446 

PHSN AME5 

ERASE 

302  3 

E3.1447 

E3 , 1447 

PHSBB5 

ERASE 

3024 

E3 , 1450 

E3 , 1450 

PHSNAME6 

ERASE 

302  5 

E3, 1451 

E 3 , 1451 

PHS8B6 

ERASE 

R 302  6 

IMU  COMPENSATION  PARAMETERS. 

3028 

E3 , 1452 

E3 , 1452 

PBIASX 

ERASE 

3029 

REF 

1 E3.1452 

P IPABI AS 

= 

•PBIASX 

3030 

E3, 1453 

E3, 1453 

PIPASCFX 

ERASE 

3031 

REF 

l E 3 , 14  53 

P IPASCF 

= 

P I PASCFX 

3032 

E3.1454 

E3 , 1454 

PBIASY 

ERASE 

303  3 

E3, 1455 

E3 , 1455 

P IPASCFY 

ERASE 

3034 

E3 , 1456 

E3 , 1456 

PBIASZ 

ERASE 

3035 

E3, 1457 

E3 , 1457 

PIPASCFZ 

ERASE 

3036 

E3, 1460 

E3 , 1460 

NPDX 

ERASE 

303  7 

E3, 1461 

E3, 1461 

NBDY 

ERASE 

3038 

E3 , 1462 

E3 , 1462 

NBOZ 

ERASE 

17: 11  MAR.  19,1971 
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EO  S4 


(260) 

B ( 80) PRM  DELTA  T S. 

BllBDIPP.M  TASK  2C  AOR  ADDRESSES. 


(2D) 

B ( 2 ) P RM  SAVE  BB  AND  Q FOR  RESTARTS. 


(20) 

B ( 2 ) TMP  MAY  BE  SELDOM  OVERLAYFD. 


( 120) 

B ( 1 ) PRM 
B(  1 ) PRM 
8 ( 1) PRM 
B(  1 ) PRM 
B ( l ) PRM 
B(  1 ) P RM 
B(  1 ) PRM 
B ( 1 ) P RM 
R ( 1 ) P RM 
B ( 1 ) P RM 
B ( 1 ) P RM 
B ( 1 ) PRM 


( 22D) 

B ( 1 ) PIPA  BIAS,  PIPA  SCALE  F ACT  R TFRMS 
INTFRMIXED. 


GYRO  BIAS  DRIFTS 
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L 

3039 

3040 
304  l 

3042 

3043 

3044 

3045 

3046 
304  7 


304  8 
A 304  9 


R3050 

R 305  2 
R3053 
R3054 
R 305  5 
R 305  6 
R3057 

3058 

R3059 

3060 

3061 
306  2 

3063 

3064 
306  5 

3066 

3067 

3068 

3069 

R3070 

3071 


R 307  2 
R3074 


ERASABLE  ASSIGNMENTS 


USER'S  PAGE  NO.  24  EO  S4 


REF 

REF 


E3 , 1463 
E3, 1464 
E3, 1465 

E3, 1463 
E3, 1464 
E3 , 1465 

ADI  AX 
ADI  AY 
ADIAZ 

ERASE 

ERASE 

ERASE 

ACCELERATION  SENSITIVE  DRIFT  ALONG 
INPUT  AXIS 

THE 

E3, 1466 
E3, 1467 
E3, 1470 

E3 , 1466 
E3 , 1467 
E3 , 1470 

ADSRAX 

ADSRAY 

ADSRAZ 

ERASE 

ERASE 

ERASE 

ACCELERATION  SENSITIVE  DRIFT  ALONG 
SPIN  REFERENCE  AXIS 

THE 

E 3 , 1471 

E3 , 1476 

GCOMP 

ERASE 

+ 5 

CONTAINS  COMPENSATING  TORQUES 

E3,  1471 
E3, 1474 

COMMAND 

CDUIND 

EQUALS 

EQUALS 

GCOMP 

GCOMP 

+ 3 

E3, 1477 

E3 , 1477 

GCOMPSW 

ERASE 

STATE  VECTORS  FOR  ORBIT  INTEGRATION.  (44D) 

(OIFEQCNT  THRU  XKEP  MUST  BE  IN  SAME 
EBANK  AS  RRECTCSM,  RRECTLEM  ETC 
BECAUSE  THE  COPY-CYCLES  IATOPCSM, 

PTOACSM  ETC)  ARE  EXECUTED  IN  BASIC. 

ALL  OTHER  REFERENCES  TO  THIS  GROUP 
ARE  BY  INTERPRETIVE  INSTRUCTIONS.) 


E3 , 1500  E3 

,1553  D IFEQCNT 

ERASE 

+ 43D 

B ( 1) 

(UPSVFLAG...XKEP 

MUST  BE  KEPT  IN 

ORDER) 

REF 

1 

E3, 1501 

UPSVFLAG 

EQUALS 

D IFEQCNT 

+ 1 

Bill 

REF 

2 

LAST  1 E 3 , 1502 

RRECT 

EQUALS 

UPSVFLAG 

+ 1 

B ( 6 ) 

REF 

1 

E3, 1510 

VRECT 

EQUALS 

RRECT 

+ 6 

B I 6 ) 

REF 

1 

E3, 1516 

TET 

EQUALS 

VRECT 

+ 6 

B<  2) 

REF 

I 

E3 , 1520 

TDELTAV 

EQUALS 

TET 

+ 2 

B I 6 ) 

REF 

1 

E3, 1 526 

TNUV 

EQUALS 

TDELTAV 

+ 6 

B ( 6 ) 

REF 

1 

E3, 1534 

RCV 

EQUALS 

TNUV 

+ 6 

B I 6 ) 

REF 

l 

E3, 1542 

VCV 

EQUALS 

RCV 

+ 6 

B(  6) 

REF 

1 

E3, 1550 

TC 

EQUALS 

VCV 

+ 6 

B ( 2) 

REF 

1 

E3, 1552 

XKEP 

EQUALS 

TC 

+ 2 

B<  2) 

CONIC  ROUTINES  STORAGE 

( 2D) 

REF 

1 

E3, 1552 

XPREV 

EQUALS 

XKEP 

I ( 2ITMP 

PERMANENT  STATE  VECTORS 

AND  TIMES. 

( 97D) 

(DO  NOT  OVERLAY  WITH  ANYTHING  AFTER  BOOST) 
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R3075 

(RRECTCSM  , 

. . .XKEPCSM 

MUST  BE 

KEPT  IN  THIS  ORDER) 

3076 

E3, 1554 

E3 , 1561 

RRECTCSM 

ERASE 

+ 5 

307  7 

REF 

1 

E3, 1554 

RRECTOTH 

= 

RRECTCSM 

3078 

E3, 1562 

E3 , 1567 

VRFCTCSM 

ERASE 

+ 5 

3079 

E3, 1570 

E3 , 1571 

TETCSM 

ERASE 

+ 1 

3080 

REF 

1 

E3 , 1570 

TETOTHER 

= 

TETCSM 

3081 

E 3 » 1572 

E 3 , 1577 

DELTACSM 

ERASE 

+ 5 

3082 

E3, 1600 

E3 , 1605 

NUVCSM 

ERASE 

+ 5 

3083 

E3 , 1606 

E3,  1613 

RCVCSM 

ERASE 

+ 5 

3084 

E3.1614 

E3 , 1621 

VCVCSM 

ERASE 

+ 5 

3085 

E3, 1622 

E3 , 1623 

TCCSM 

ERASE 

+ 1 

3086 

E 3 , 1624 

E3 , 1625 

XKEPCSM 

ERASE 

+ 1 

R3087 

(RRECTLEM  . 

, . . XKEPLEM 

MUST  BE 

KEPT  IN  THIS  ORDER) 

3088 

E3, 1626 

E3, 1633 

RRECTLEM 

ERASE 

+ 5 

3089 

REF 

1 

E 3 , 1626 

RRECTHIS 

= 

RRECTLEM 

3090 

E3, 1634 

E3 , 1641 

VRECTLEM 

ERASE 

+ 5 

309  1 

E3 , 1642 

E 3, 1643 

TETL  EM 

ERASE 

+ 1 

3092 

REF 

1 

E3 , 1642 

tetthis 

= 

TETLEM 

3093 

E3, 1644 

E 3 , 1651 

DELTALEM 

ERASE 

+ 5 

3094 

E3, 1652 

E3, 1657 

NUVLEM 

ERASE 

+ 5 

3095 

E3, 1660 

E3, 1665 

RCVL  EM 

ERASE 

+ 5 

3096 

E3 i 1666 

E3 , 1673 

VCVL  FM 

ERASE 

+ 5 

3097 

E3 » 1674 

E3 , 1675 

T CLEM 

ERASE 

♦ 1 

3098 

E3 , 1676 

E3 , 1677 

XKEPLEM 

ERASE 

+ 1 

3099 

E3 , 1700 

E 3 , 1705 

X 789 

ERASE 

+ 5 

) l( 

E3 , 1 706 

E3 , 1710 

TEPHEM 

ERASE 

+ 2 

3101 

E 3 , 1711 

E3 , 1712 

-AYO 

ERASE 

310  2 
A 3 10  3 

E3, 1 713 

E 3 , 1714 

AXO 

ERASE 

R3104 

STATE  VECTORS  FOR  DOWNLINK. 

3106 

E3.1715  E3.1722 

R-OTHER 

ERASE 

+ 5 

3107 

E3.1723  E3.1730 

V-OTHER 

ERASE 

+ 5 

3108 

REF 

2 

LAST  116  E 3 1 5 7 0 

T-OTHER 

= 

TETCSM 

R 3 10  9 

SERVICER  FOR  LUNAR  ASCENT  AND 

DESCENT 

3111 

REF 

1 

E3, 1 715 

R(CSM) 

EQUALS 

R- OTHER 

3112 

REF 

1 

E3, 1723 

V(CSM) 

EQUALS 

V-OTHER 

R 3 1 1 3 

REFSMMAT  . 

' 
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BI6IPRM  CSM  VARIABLES. 

B ( 6IPRM 
BI2IPRM 

B ( 6) PRM 
BI6IPRM 
B( 6) PRM 
BI6IPRM 
Bt  2IPRM 
81 2IPRM 


6I61PRM  LEM  VARIABLES 

B( 61PRM 
BI21PRM 

B( 6) PRM 
0I61PRM 
B161PRM 
BI61PRM 
B( 2IPRM 
B( 2) PRM 


I 120) 

BI61PRM  POS  VECT  (OTHER  VECH)  FOR  ONLINK 
B ( 6 ) PRM  VFL  VFCT  (OTHER  VECH)  FOR  ONLINK 

TIME  (OTHER  VECH)  FOR  ONLINK 


( 12D) 

1(6)  FOR  UPDATE  OF  CM  STATE  VECS  BY  LM. 
1(6) 


(180) 
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3115 

E3, 1731 

E3 , 1752 

REFSMM AT 

ERASE 

+ 17D 

I ( 180 ) PPM 

R3116 

ACTIVE 

VEHICLE  CENTANG.  MUST 

BE  DISPLAYED  ANYTIME  (ALMOST.) 

(2D) 

3110 

E3 , 1 753 

E3, 1754 

ACTCENT 

ERASE 

+ 1 

1(2) 

S-S  CENTRAL  ANGLE  BETWEEN  ACTIVE 

A 3 1 1 9 

VEHICLE  AT  TPI  TIG  AND  TARGET  VECTOR. 

R3120 

****  USED 

IN  CONICSEX 

(PLAN  INERT 

ORIENT) 

**** 

312  1 
A3122 

REF 

1 

E3.1706 

T IMSUBO 

EQUALS 

TEPHEM 

CSEC 

B— 42  (TRIPLE  PRECISION) 

R 3 12  3 

LPS20 . 1 

STORAGE 

-ALL  ARE  PRM  - 

( 9D) 

3125 

E3, 1755 

E3, 1755 

LS21X 

ERASE 

1(1) 

3126 

E 3 , 1 756 

E3, 1763 

LOSVEL 

ERASE 

+ 5 

I 16) 

3127 

A3128 

E3, 1764 

E3 , 1765 

MLOSV 

ERASE 

+ 1 

1(2) 

MAGNITUDE  OF  LOS,  METERS  B-29 

R3129 

*****  p22 

*****  (OVERLAYS  LPS  20 

. 1 STORAGE) 

( 6D) 

313  1 
A3 13  2 

REF 

i 

E3, 1 756 

VSUBC 

EQUALS 

LOSVEL 

I ( 6 ) S 

-S  CSM  VELOCITY  VECTOR 

R 3 1 3 3 

PADLOADED  ERASABLES 

FOR  P 20/ P 22 

( 6D ) 

3135 

E3 , 1 766 

E3, 1767 

RANGEVAR 

ERASE 

+ 1 

1(2) 

RR  RANGE  ERROR  VARIANCE 

3136 

E3, 1770 

E3, 1771 

RATEVAR 

ERASE 

+ 1 

1(2) 

RR  RANGE-RATE  ERROR  VARIANCE 

3137 

E3 , 1 772 

E3 ,1772 

RVARMIN 

ERASE 

1(1) 

MINIMUM  RANGE  ERROR  VARIANCE 

3138 
A 3 1 3 9 

E3, 1773 

E3, 1773 

WARM  IN 

ERASE 

1(1) 

MINIMUM  RANGE-RATE  ERROR  VARIANCE 

R 3 190 

P32-P33 

STORAGE 

( 2D) 

314  2 

E3 , 1774 

E3 , 1775 

TCDH 

ERASE 

+ 1 

1(2) 

T 2 CDH  TIME  IN  CS.  (ALSO  DOWNLINKED 

A 3 1 4 3 

R 3 144 

TIME  SAVE  FOR  P20  AGS  DCWNLIST 

(20) 

3146 

E3, 1776 

E3,  1777 

OLDAGS 

ERASE 

+ 1 

1(2) 
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P400  0 

E BANK-4  ASSIGNMENTS 

4001 

E4 , 1400 

SETLOC  2000 

R400  2 

E4  IS,  FOR  THF  MOST  PART  RESERVED  FOR 

PAD  LOADED 

AND  UNSHARABLE  ERASE. 

R4003 

P20  STORAGE.  -PAD  LOADED- 

( 6D) 

4005 

E4, 1400 

E4 , 1400 

WRENDPOS 

ERASE 

BIDPL 

KM*2( -7) 

4006 

E4, 1401 

E4 , 1401 

WRENDVEL 

ERASE 

B(  1 ) PL 

KM  I- 1/2 1*2(11) 

4007 

E4 , 1402 

E4 , 1402 

WSHAF  T 

ERASE 

BIDPL 

KM*  21  — 7) 

400  8 

E4, 1403 

E4 , 1403 

WTRUN 

ERASE 

BIDPL 

KM*  2 1 - 7 ) 

4009 

E4, 1404 

E4 , 1404 

RMAX 

ERASE 

BIDPL 

METERS*2 (-19) 

4010 

E4 , 1405 

E4 , 1405 

VMAX 

ERASE 

BIDPL 

M /C  SEC*  21-7) 

R4D1 1 

LUNAR  SURFACE  NAVIGATION  — 

PAD  LOADED  - 

— ' 

I 2D) 

4013 

E4.1406  E4.1406 

WSURFPOS 

ERASE 

BIDPL 

4014 

A4015 

E4 , 1407  E4.1407 

WSUKFVEL 

ERASE 

BIDPL 

R4016 

P22  STORAGE.  -PAD  LOADED- 

(2D) 

401  8 

E4, 1410  E4 , 1410 

SHAFTVAR 

ERASE 

BIDPL 

PAD 

SQ*2( 12) 

4019 

m 

m 

TPUNVAR 

ERASE 

BIDPL 

RAD 

SQ*2 1 10 ) 

R4020 

CONISEX  STORAGE. -PAD 

LOADED- 

I 6 D ) 

402  2 

E4,  1412 

E4, 1417 

5 04LM 

ERASE 

+ 5 

I I 6 ) MOON  LIBRATION  VECTOR 

A4023 

R4024 

STORAGE 

FOR  RLS  AND 

T LAND  - PAD  L C ADS 

- ORDER  IS 

RETAINED  FOR 

UPLINK. 

I 80) 

4026 

E4, 1420 

E4  y 142  5 

RLS 

ERASE 

+ 5 

I I 6) 

LANDING  SITE  VECTOR  - MOON  REF 

402  7 

E4, 1426 

E4 « 1427 

TLAND 

ERASE 

+ 1 

81  2) 

NOMINAL  LANDING  TIME. 

R402  8 

INTEGRAT  ION 

STORAGE . 

I 940) 

4030 

E4 , 1430 

E4 i 1565 

P BODY 

ERASE 

+ 93D 

III) 

403  1 

REF 

1 

E4, 1431 

ALPHAV 

EQUALS  P BODY 

+ 1 

1(6) 

4032 

REF 

l 

E4, 1437 

BETAV 

EQUALS  ALPHAV 

+6 

1(6) 

4033 

REF 

1 

E4, 1445 

PHI  V 

EQUALS  BETAV 

+ 6 

1(6) 

4034 

REF 

1 

E4 , 1453 

PSI  V 

EQUALS  PHIV 

+ 6 

1(6) 

403  5 

REF 

1 

E4 , l 46 1 

FV 

EQUALS  PSIV 

+ 6 

1(6) 

PERTURBING  ACC FLFRAT I ONS 

4036 

REF 

L 

E4, 1467 

ALPHAM 

EQUALS  FV 

+ 6 

1(2) 

4037 

REF 

l 

E4, 1471 

BETAM 

EQUALS  ALPHAM 

+ 2 

1(2) 

4038 

REF 

1 

E4, 1473 

T AU. 

EQUALS  BETAM 

+ 2 

1(2) 
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EO  S4 

4039 

REF 

1 

F4 , 1475 

DT/2 

EQUALS  TAU. 

+ 2 

1(2) 

4040 

REE 

1 

E4, 1477 

H 

EQUALS  DT/2 

+ 2 

1(2) 

4041 

REF 

1 

E4, 1501 

[RETURN 

EQUALS  H 

f2 

1(1) 

4042 

REF 

1 

E4, 1502 

NORMGAM 

EQUALS  IRETURN 

+ 1 

1(1) 

404  3 

REF 

1 

E4, 1503 

RPQV 

EQUALS  NORMGAM 

F 1 

4044 

REF 

1 

E4, 151 1 

ORIGEX 

EQUALS  RPQV 

+ 6 

III) 

404  5 

REF 

1 

E4,  151  1 

KEPRTN 

EQUALS  ORIGEX 

1(1) 

4046 

REF 

2 

LAST  119  E4 , 1512 

RPSV 

EQUALS  ORIGEX 

+ 1 

1(6) 

404  7 

REF 

1 

E4, 1520 

XKEPNEW 

EQUALS  RPSV 

+6 

1(2) 

404  8 
A404  9 

REF 

1 

E4, 1522 

VECTAB 

EQUALS  XKEPNEW 

+ 2 

I ( 36D  ) 

R4050 

R04  - R77  FAIL  COUNTER 

( ID) 

4052 

E4.1566  E4.1566 

RFAI LCNT 

ERASE 

B(  1) 

R4053 

SERVICER  STORAGE  (USED  BY  ALL 

POWEREO 

FLIGHT  PROGS. ) 

( 18D) 

4055 

REF 

1 

E4, 1536 

X N8P  I P 

EQUALS  VECTAB 

+ 120 

1(6) 

4056 

REF- 

l 

E4, 1544 

YN8PIP 

EQUALS  XNBPIP 

+ 6 

1(6) 

4057 

A4058 

REF 

1 

F4, 1552 

ZNBP  IP 

EQUALS  YNBPIP 

F 6 

I (6) 

R4059 

some  verb  82  storage 

( 4D ) 

4061 

REF 

2 

LAST  119  E4.1512 

HAPOX 

EQUALS  RPSV 

1(2) 

4062 

A4063 

REF 

1 

E4 , 1514 

HPERX 

EQUALS  HAPOX 

+ 2 

1(2) 

R4064 

V82  STORAGE 

(60) 

4066 
A 4 06  7 

REF 

2 

LAST  119  E4 , 1 560 

VONE  • 

EQUALS  VECTAB 

F 30D 

K61TMP 

NORMAL  VELOCITY 

VONE  /SORT 

R4068 

R3KV83)  STORAGE.  -SHARES  WITH 

INTEGRATION  STORAGE- 

( 26D) 

4070 

A4071 

REF 

2 

LAST  119  E4.1503 

BASETHV 

EQUALS  RPQV 

1(6) 

BASE  VEL  VECTOR 

THIS  VEH 

4072 

REF 

3 

LAST  119  E4.1512 

BASET IME 

EQUALS  RPSV 

1(2) 

TIME  ASSOC  WITH  RASE  VECTORS 

4073 

A4074 

REF 

1 

E4, 1571 

BASEOTV 

EQUALS  Y L EM 

I (6) 

BASE  VELOC  VECTOR 

OTHER  VEH 

4075 

A4076 

REF 

3 

LAST  119  E4 , 1530 

BASEOTP 

EQUALS  VECTAB 

+ 6 

1(6) 

BASE  POS  VECTOR 

OTHER  VFH 

407  7 

REF 

4 

LAST  119  E4.1560 

BASETHP 

EQUALS  VECTAB 

F30D 

1(6) 

BASE  POS  VECTOR 

THIS  VFH 

A4078 


GAP: 
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ERASABLE 
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R4079 

KEPLER  STORAGE.  (KEPLER  IS  CALLEO  BY  PRECISION 

INTEGRATION  AND 

(2D) 

RAO  b 1 

CONICS) 

4082 

A4083 

E4, 1567 

E4, 1570 

EPSILONT 

ERASE 

+ 1 

1(2) 

R 4084 
A40855 

R36  STORAGE  (N90) 

(60) 

4086 

E4, 1571 

E 4 , 1576 

YLEM 

ERASE 

+ 5 

1(2) 

4087 

REF 

2 

LAST  119  E4 i 1573 

YDOTLEM 

EQUALS 

YLEM 

+ 2 

I (2) 

4088 

REF 

1 

E4, 1575 

PHILEM 

EQUALS 

YDOTLEM 

+ 2 

1(2) 

R4089 

VERB  83  STORAGE. 

( 18D) 

4091 

E4, 1577 

E4, 1620 

RONE 

ERAS  E 

+ 17D 

1(6) 

409  2 

•REF 

l 

E4,  1605 

VONE 

EQUALS 

RONE 

+ 6 

I ( 6 ) T MP  VECTOR  STORAGE.  (SCRATCH) 

4093 

REF 

1 

E4, 1613 

R ANGE 

EQUALS 

VONE 

+ 6 

1(2) 

4094 

REF 

1 

E4, 1615 

RRATE 

EQUALS 

RANGE 

+ 2 

1(2) 

4095 

REF 

1 

E4,  1617 

RTHETA 

EQUALS 

RRATE 

+ 2 

1(2) 

R4096 

VERB  67  STORAGE 

( 6 D ) 

409  8 

REF 

3 

LAST  120  E4.1571 

WWPOS 

EQUALS 

YLEM 

B ( 2 ) 

NOUN  99  ( V67 ) 

4099 

REF 

l 

E4, 1573 

WWVEL 

EQUALS 

WWPOS 

+ 2 

B(  2) 

NOUN  99  ( V67 ) 

4100 

REF 

1 

E4, 1575 

WWBI AS 

EQUALS 

WWVEL 

+ 2 

B(  2) 

NOUN  99  ( V67 ! 

A410  1 

R4102 

V 32  STORAGE.  (CANNOT 

OVERLAY 

RONE  OR  VONE) 

( 5D ) 

4104 

REF 

5 

LAST  119  E4,1530 

V 82F  LAGS 

EQUALS 

VECTAB 

+ 6 

( 1) 

FOR  V 82  BITS. 

4105 

REF 

l 

E4 i 1 53  1 

T FF 

EQUALS 

V82FL AGS 

+ 1 

112) 

4106 
A4  10  7 

REF 

1 

E4, 1533 

— TPER 

EQUALS 

TFF 

+ 2 

1(2) 

R4  10  8 

MORE  V 82  STORAGE.  (CANNOT  OVERLAY  RONE 

OR  VONE) 

(60) 

A4110 

4111 

REF 

4 

LAST  120  14,1571 

HPERMIN 

EQUALS 

YLEM 

1(2) 

SET  TO  300K  FT  OR  35K  FT  SR30 

4112 

REF 

1 

E4, 1573 

RPADTEM 

EQUALS 

HPERM  IN 

+ 2 

1(2) 

PAD  OR  LANDING  RADIUS  FOR  SR30. 

4113 

A4114 

REF 

l 

E4, 1575 

T START82 

EQUALS 

RPADTEM 

+ 2 

1(2) 

TEMP  TIME  STORAGE  FOR  V82. 

R 4 1 1 5 

ALIGNMENT  PLANETARY- 

INERTIAL 

TRANSFORMATION  STORAGE. 

(180) 

GAP: 
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L ERASABLE  ASSIGNMENTS 


USER'S  PAGE  NO.  30 


EO  S4 


R4  1 1 7 

UNSHARED  WHILE  LM 

ON  LUNAR  SURFACE. 

4118 

£4,1621  E4 , 

1642  GSAV 

ERASE 

+ 17D 

1(6) 

4119 

REF  1 

E4, 1627 

YNBSAV 

EQUALS 

GSAV 

+ 6 

1(6) 

4120 
A412  1 

REF  1 

E4, 1635 

ZNBSAV 

EQUALS 

YNBSAV 

+ 6 

1(6) 

R4122 

K ALCMANU 

STORAGE.  CAN  OVERLAY 

GSAV. 

( 18D) 

4124 

REF 

2 

LAST  121 

E4,  1621 

MFS 

EQUALS 

GSAV 

1(18) 

4125 

REF 

1 

E4,  1621 

MFI 

EQUALS 

MFS 

I 

4126 

A4127 

REF 

2 

LAST  121 

E4 , 1621 

KtL 

EQUALS 

MFS 

1(18) 

R4128 

P32-P35, 

P72-P75  STORAGE. 

( 40D ) 

4130 

E4 , 1643 

E4, 1644 

T 1T0T2 

ERASE 

+ 1 

(2) 

T IME  FROM  CS I TO  CDH 

4131 

E4 , 1645 

E4 , 1646 

T2T0T3 

ERASE 

+ 1 

(2) 

4132 

E4 , 1647 

E4 , 1650 

ELEV 

ERASE 

+ 1 

(2) 

4133 

E4, 1651 

E 4 , 1656 

UP1 

ERASE 

+ 5 

(6) 

4134 

E4 , 1657 

E4 , 1664 

0ELVEET1 

ERASE 

+ 5 

1(6) 

DV  CSI  IN  REF 

4135 

E4, 1665 

E4, 1672 

UELVEET2 

ERASE 

+ 5 

I (6) 

OV  CSH  IN  REF 

4136 

E4 , 1673 

E4 , 1700 

R ACT  1 

ERASE 

+ 5 

(6) 

PUS  VEC  OF  ACTIVE  AT 

CSI 

T IMF 

4137 

E4 , 1701 

E4 , 1706 

R ACT  2 

ERASE 

+ 5 

(6) 

POS  VEC  OF  ACTIVE  AT 

CDH 

T IMF 

4138 

E4 , 1707 

E4 , 1710 

RTSR 1/MU 

ERASE 

+ 1 

(2) 

SQ  ROOT  1/MU  STORAGE 

4139 

R4140 

E4, 1 71  1 

E4, 1712 

RTMU 

ERASE 

+ 1 

(2) 

MU  STORAGE 

R 4 14  1 

( THE 

FOLLOWING  ERASABLES 

OVERLAY  PORTIONS 

OF  THE  PREVIOUS  SECTION) 

4143 

A4144 

REF 

1 

E4, 1643 

+ MGA 

EQUALS 

T 1T0T2 

(2) 

S-S 

+ MID 

GIM  ANGL  TO 

DEL VEET3 

4145 

A4146 

REF 

1 

E4, 1651 

UNRM 

EQUALS 

UP1 

1(6) 

S-S 

4147 

REF 

1 

E4 , 1673 

DVLOS 

EQUALS 

R ACT  1 

1(6) 

s-s 

DELTA 

VFLOCI TY,LOS 

Coord— displa 

414  8 
A4149 

REF 

1 

E4,  1701 

ULOS 

EQUA  LS 

RACT2 

1(6) 

S-S 

UNIT 

LINE  OF  SIGHT 

VECTOR 

4150 

REF 

1 

E4 , 1707 

NOMTPI 

EQUALS 

RTSR1/MU 

(2) 

S-S 

NOMINAL  TP  I TIME  FOR  RECYCLE 

R415  1 

SOME 

P30  STORAGE. 

( 4D) 

4153 

REF 

2 

LAST 

121  E4.1707 

HAPO 

EQUALS 

RTSR  1 /MU 

1(2) 

4154 

A4155 

REF 

1 

E4 , 1 711 

HPER 

EQUALS 

HAPO  +2 

I (2) 
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R A 156  THE  FOLLOWING  ARE  ERASABLE  LOADS  DURING  A PERFORMANCE  TEST. 


A 15  7 

REF 

1 

EA , l AOO 

TRANSM1 

EQUALS 

WRENDPOS 

F4,  1400 

A 15  8 

REF 

1 

EA, 1 A22 

ALFDK 

EQUALS 

TRANSM1  +18D 

R A 15  9 

THE  FOLLOWING  SECTIONS  OVERLAY  V83  AND  DISPLAY 

STORAGE  ******* 

R A 16  0 

VA7 ( RA7 ) AGS  INITIALIZATION  PROGRAM  STORAGE.  (OVERLAYS  V83  ) 

( 14D) 

A 16  2 

REF 

5 

LAST  120  FA, 1571 

AGSBUFF 

EQUALS 

Y LEM 

B(  14) 

A 16  3 

REF 

1 

EA, 1606 

AGSBUFF  E 

EQUALS 

AGSBUFF  +13D 

ENDMARK 

R A 16  A 

R36  OUT-OF-PLANE  RENDEZVOUS 

DISPLAY  STORAGE.  (OVERLAYS  V83) 

( 12D) 

A 16  6 

REE 

2 

LAST  120  EA, 1577 

RPASS36 

EQUALS 

RONE 

I (6) 

S-S 

A 16  7 

REF 

1 

EA,  1605 

UNP36 

EQUALS 

RPASS36  +6 

1(6) 

S-S 

RA168 

S-BAND  ANTENNA  GIMSAL  ANGLES 

. DISPLAYED 

BY  RO  5 ( V 6A ) . (OVERLAYS 

V 83  ) 

( 10D) 

R A 1 70 

A 17  l 

REF 

6 

LAST  122  EA, 1571 

ALPHASB 

EQUALS 

YLEM 

B ( 2 ) 

DSP  NOUN  51  PITCH  ANGLE 

A 17  2 

REF 

t 

EA, 1573 

BE  TA  SB 

EQUALS 

ALPHASB  +2 

R ( 2 ) 

DSP  NOUN  5).  YAW  ANGLE. 

A 17  3 

REF 

1 

EA, 1575 

KLM 

EQUALS 

BETASB  +2 

1(6) 

S S/C  POSITION  VECTOR. 

RA17A 

****  USED  IN  S-BAND  ANTENNA 

FOR  LM  **** 

( 4 D ) 

A 17  6 

REF 

2 

LAST  122  EA, 1 571 

P ITCHANG 

EQUALS 

ALPHASB 

1(2) 

PITCH/ANTENNA  GIMBAL  ANGLE  REQUIRED 

A 17  7 

REF 

2 

LAST  122  E A , 1573 

YAWANG 

EQUALS 

BETASB 

1(2) 

YAW  /TO  POINT  LM  STEERABLE  ANTENNA 

A A 17  8 

/TOWARD  CENTER  OF  EARTH 

RAW  9 

NOUN 

56 

DATA  - COMPUTED  AND  DISPLAYED 

BY  VERB  85. 

(4) 

A 1 8 1 

REF 

l 

EA, 1571 

RR-AZ 

EQUALS 

P ITCHANG 

1(2) 

ANGLE  BETWEEN  LOS  AND  X-Z  PLANE. 

A 182 

REF 

1 

EA, 1573 

RR-ELEV 

EQUALS 

RR-AZ  +2 

1(2) 

ANGLE  BETWEEN  LOS  AND  Y-Z  PLANF. 

R A 1 8 3 

R0AIV62)  RADAR  TEST  STORAGE. 

( 8D) 

RA  185 

A 1 86 

REE 

7 

LAST  122  E A , 1571 

RSTACK 

EQUALS 

YLEM 

B(  8) 

BUFFER  FOR  R04  NOUNS 

AAIU7 


RA188  INITVEL  STORAGE.  ALSO  USED  BY  P 3 1 , P 3 A , P 3 5 , P 7A, P 75 , P 10 , P 1 1 , M I DG I M , S AO . 1 AND  SA0.9.  (18D) 

R A 190  (POSSIBLY  RINIT  £ VINIT  CAN  OVERLAY  DELVEET1  £ 2 ABOVF) 

A 19 1 EA , 1713  EA , 1720  RINIT  ERASE  +5 

A 192  E4.W21  EA.  1 726  VINIT  ERASE  +5 


1(6)  ACTIVE  VFHICLF  POSITION 
1(6)  ACTIVE  VEHICLE  VFLOCITY 


GAP: 
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4193 

E4, 1 727 

E4, 1734 

VIPRIME 

ERASE 

+ 5 

1(6)  NEW 

VEL  REQUIRED  AT  INITIAL  RADIUS 

R4194 

BALLANGS— AUTOMAT IC  MANEUVER 

— R60,  ( N 18 

(3D) 

A4196 

4197 

E4, 1 735 

E4 , 1735 

FCAIX 

ERASE 

1(1) 

4198 

E4, 1736 

E4 , l 736 

FOAI  Y 

ERASE 

1(1) 

4199 

E4 . 1 737 

E4 , 1737 

FDA I Z 

ERASE 

1(1) 

A4200 

R420  1 

P34-P35  STORAGE.  DOWNLINKED 

• 

(2D) 

4203 

E4, 1 740 

E4 , 1741 

DEL VTPF 

ERASE 

+ 1 

1(2)  DELTA  V FOR  TPF 

A4204 

R4205 

LPS20.1  STORAGE.  CALLED  BY 

R65  . 

( 120) 

420  7 

E4, 1742 

E4, 1747 

LMPOS 

ERASE 

+ 5 

1(6)  TEMP.  STORAGE  FOR  LM  POS.  VECTOR. 

4208 

E4, 1750 

E4  , 1755 

LMVEL 

ERASE 

+ 5 

1(6)  TEMP.  STORAGE  FOR  LM  VEL.  VECTOR. 

A4209 

R4210 

INITVEL 

STORAGE.  ALSO  USED  BY  P21.34 

, 35, 74, 75, S40. 1 ANC 

1 DOWNLINKED. 

( 60) 

4212 

E4, 1 756 

E4 i 1763 

DELVEET3 

ERASE 

+ 5 

1(6)  DELTA  V IN  INERTIAL  COORDINATES. 

A4213 

R 4 2 1 4 

SOME  R04IV63I-R77  STORAGE. 

( 50) 

4216 

E4, 1 764 

E4  , 1 764 

RTSTDEX 

ERASE 

B<  1) 

4217 

E4  > 1 765 

E4, 1765 

RTSTMAX 

ERASE 

B(l) 

4218 

E4  i 1 766 

E4, 1766 

RT  ST  BAS  E 

ERASE 

B(  1) 

4219 

E4, 1767 

E4 , 1767 

RTSTLOC 

ERASE 

B(l) 

4220 

E4, 1 770 

E 4 , 1 7 7 0 

RSAMPDT 

ERASE 

B(l) 

A422  1 

R4222 

SECOND  DPS  GUIDANCE 

ILLNAR  1 

LANDING)  (OVERLAYS 

K ALCMANU 

E P57) 

(60 

4224 

REF 

3 

LAST  121  E4  * 1621 

ANGTERM 

= 

GSAV 

1(6) 

GUIDANCE 

A4225 

A4226 

R4227 

ASCENT  GUIDANCE  FOR 

LUNAR  LANDING 

( 540) 

4229 

REF 

2 

LAST  121  E4.1653 

AT 

EQUALS 

UP1 

+ 2 

I ( 2 ) T M P 

ENGINE  DATA  --  THRUST  ACC*2  (9) 

4230 

REF 

1 

E4, 1655 

VE 

EQUALS 

AT 

+ 2 

I ( 2) TMP 

EXHAUST  VELOCITY  * 2(7)M/CS. 

423  1 

REF 

1 

E4, 1657 

TTO 

EQUALS 

VE 

+ 2 

I ( 2 ) T MP 

T A I L OFF  TIME  * 2 ( 171CS. 

4232 

REF 

1 

E4 i 166  1 

TBUP 

EQUALS 

TTO 

+ 2 

I ( 2 ) T MP 

(M/MDOT)  * 2 ( 1 7 ) CS . 

423  3 

REF 

1 

E4  , 1 663 

ROOT  D 

EQUALS 

TBUP 

+ 2 

I ( 2) TMP 

TARGET  VELOCITY  COMPONENTS 

4234 

REF 

1 

E4, 1665 

Y DOT  0 

EQUALS 

R DOT  D 

+ 2 

I l 21TMP 

SCALING  IS  217IM/CS. 

4238 

REF 

1 

E 4, 1667 

ZDOTD 

EQUALS 

YOOTD 

+ 2 

I ( 2 ) T MP 

GAP: 

L 

4236 

4237 
A4238 
A4239 

4240 
424  1 
4242 

R4243 

424  5 
4246 
424  7 

424  8 

4249 

4250 

425  1 

4252 

4253 

4254 

4255 

4256 

4257 
A4258 

R4259 

426  1 
A4262 
A4263 

4264 

4265 
A4266 

R426  7 
R4270 

4272 

4273 
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REF  l 

E4, 1671 

/R/MAG 

equals  zdotd 

+ 2 

I I 2ITMP 

REF  l 

E4, 1673 

L AX  I S 

EQUALS  /R/MAG 

+ 2 

I ( 6ITMP 

REF 

1 

E4 , I 701 

YDOT 

= 

LAXIS 

+ 6 

I I 2) TMP 

VFL.  NORMAL  TO  REF.  PLANE*2<-7) 

REF 

1 

E4, 1703 

ZDOT 

EQUALS 

YDOT 

+ 2 

I I 2ITMP 

DOWN  RANGE  VEL  *21-7)  . 

REF 

1 

E4, 1 705 

GEFF 

EQUALS 

ZOOT 

+ 2 

I ( 2 ) T MP 

EFFFCTIVE  GRAVITY 

THESE 

TWO  GROUPS  OF  ASCENT 

GUIOANCE  ARE  SPLIT 

BY  THE 

ASCENT- 

DESCENT 

SERVICER 

SECTION  FOLLOWING  THIS  SECTION 

REF 

1 

E 4 , 1 725 

Y 

EQUALS 

/LAND/ 

+ 2 

I 1 2 ) T MP 

OUT-OF-PLANE  OIST  *2(24>M 

REF 

1 

E4, 1 727 

ORDOT 

EQUALS 

Y 

+ 2 

I ( 21TMP 

RDOTD  - ROOT 

REF 

1 

E4, 1731 

DYOOT 

EQUALS 

D ROOT 

+ 2 

I (2ITMP 

YOOTD  - YDOT 

REF 

1 

E4, 1733 

OZOOT 

EQUALS 

0 YDOT 

*2 

I ( 21TMP 

ZDOTD  - ZDOT 

REF 

1 

E4, 1735 

PCONS 

EQUALS 

OZOOT 

+ 2 

I l 2) TMP 

CONSTANT  IN  ATR  EQUATION 

REF 

1 

E 4 , 1 737 

Y CON  S 

EQUALS 

PCONS 

+ 2 

I ( 2 ) TMP 

CONSTANT  IN  ATY  EQUATION 

REF 

1 

E4 , 1 741 

PRATE 

EQUALS 

YCONS 

+ 2 

I I 2) TMP 

RATE  COEFF.  IN  ATR  EQUATION 

REF 

1 

E4, 1 743 

YPATE 

EQUALS 

PRATE 

+■  2 

I ( 2 ) T MP 

RATE  COEFF.  IN  ATY  EQUATION 

REF 

1 

E4 , l 745 

AT  Y 

EQUALS 

Y RAT  E 

+ 2 

I I 2) TMP 

OUT-OF-PLANE  THRUST  COMP. *2(9) 

REF 

1 

E4 , 1 747 

ATR 

EQUALS 

ATY 

+ 2 

I ( 2) TMP 

RADIAL  THRUST  COMP. *2(9) 

REF 

1 

E4, 1751 

ATP 

EQUA'LS 

ATR 

+ 2 

I 1 21TMP 

DOWN-RANGE  THRUST  COMP 

REF 

1 

64, 1753 

YAW 

EQUALS 

ATP 

+ 2 

I I 2)TMP 

REF 

1 

E4, 1 755 

PITCH 

EQUALS 

YAW 

+ 2 

I ( 2 ) R MP 

SERVICER  FOR  LUNAR  ASCENT 

ANO  DF SCENT 

( 14D ) 

REF 

1 

E4 , 1 707 

G ( CSM  ) 

EQUALS 

GEFF 

+ 2 

1(6) 

FOP  UPDATE  OF  COMMAND  MODULE  STATE 

R(CSM) 

EQUALS 

R-OTHER 

VECTORS  BY  LFM;  ANALOGS  OF  GDT/2, 

V (CSM) 

EQUALS 

V-OTHER 

R,  AND  V,  RESPECTIVELY  OF  THE  CSM 

REF 

1 

E4, 1715 

WM 

EQUALS 

G(CSM) 

+ 6 

1(6) 

TMP  - LUNAR  ROTATION  VECTOR  (SM) 

REF 

1 

E4, 1723 

/LAND/ 

EQUALS 

WM 

+ 6 

B ( 2 ) 

LUNAR  RADIUS  AT  LANDING  SITE 

NOTE: 

: R (CSM)  AND  V(CSM)  DEFINED  IN  E3. 

NOUN 

26  ERASABLES 

(UNSHARED) 

(30) 

REF 

1 

£4,1771 

N26/PRI 

EQUALS 

RSAMPDT 

+ 1 

B(l) 

PR  10 /OE  LAY 

REF 

1 

E4 , 1 7 72 

N26/2CAD 

EQUALS 

N26/PRI 

+ 1 

B ( 2 I 

JOB/TASK  2C ADR 

GAP: 


ASSEMBLE  REVISION  210  CE  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


LUMERASF.176 


PAGE  125 


• L ERASABLE  ASSIGNMENTS 

P5000  EBANK-5  ASSIGNMENTS 

5001  E 5 , 1400 

t 

R5002  W-MATRIX.  ESSENTIALLY  UNSHARABLE. 

-I 

__  500 A E 5 » 1400  E 5, 1641  W 

• 5005  REF  1 E5.1642  ENOW 

0 

A5006 


SFTLOC  2400 


ERASE 
EQUALS  W 


17:11  MAR.  19,1971 

USER' S PAGE  NO.  34 


FO  S4 


( 1620 ) 

+ 1610 
+ 162D 


R5007 

******* 

OVERLAY  NUMBER  1 IN 

EBANK  5 ******* 

R5008 

k-MATR I X OVERLAY:  PACLOAOS  — LANDING, 

ABORTS 

( 122D  ) 

5010 

REF 

2 

LAST  125 

E5 , 1400 

VELBI  AS 

EQUALS 

W 

1(2)  PL  BIAS  VALUE  FOR  VFLOCITY. 

A501  1 

R F ASONAB I L I TY  TEST,  2(6)  M/CS 

R5012 

PLEASE 

PRESERVE  THE 

ORDER  OF 

RBRFGX  THROUGH  TCGIAPPR. 

5013 

REF 

1 

E5 , 1402 

RBRFGX 

EQUALS 

VELBI AS 

+ 2 

1(2) 

POSI TION  TARGETS 

5014 

REF 

1 

E 5 , 1404 

RAPFGX 

EQUALS 

R BRFGX 

+ 2 

1(2) 

5015 

REF 

1 

E 5 , 1406 

RBRFGZ 

EQUALS 

RAPFGX 

+ 2 

1(2) 

5016 

REF 

1 

E 5 , 1410 

RAPFGZ 

EQUALS 

RBRFGZ 

+2 

1(2) 

5017 

REF 

l 

E5, 1412 

VBRFGX 

EQUALS 

RAPFGZ 

+ 2 

1(2) 

VELOCITY  TARGETS 

5018 

REF 

L 

E5, 1414 

VAPFGX 

EQUALS 

VBRFGX 

+ 2 

1(2) 

5019 

REF 

1 

E5, 1416 

VBRFGZ 

EQUALS 

VAPFGX 

+ 2 

I ( 2) 

5020 

REF 

1 

E5, 1420 

VAPFGZ 

EQUALS 

VBRFGZ 

+ 2 

1(2) 

502  1 

REF 

1 

E5, 1422 

ABRFGX 

EQUALS 

VAPFGZ 

+ 2 

1(2) 

ACCELERATION  TARGETS 

5022 

REF 

1 

E5, 1424 

AAPFGX 

EQUALS 

ABRFGX 

+ 2 

1(2) 

5023 

REF 

1 

E5 , 1426 

ABRFGZ 

EQUALS 

AAPFGX 

+ 2 

1(2) 

5024 

REF 

1 

E5 , 1430 

AAPFGZ 

EQUALS 

ABRFGZ 

+ 2 

I ( 2) 

5025 

REF 

1 

E5 , 1432 

VBRFG* 

EQUALS 

AAPFGZ 

+ 2 

I (2) 

SCALED  TARGETS  FOR  TTF/8CL 

5026 

REF 

1 

E5 , 1434 

VAPFG* 

EQUALS 

V8RFG* 

+ 2 

1(2) 

5027 

REF 

1 

E5 , 1436 

A BRFG* 

EQUALS 

VAPFG* 

+ 2 

I (2) 

5028 

REF 

1 

E5 , 1440 

AAPFG* 

EQUALS 

ABRFG* 

+ 2 

1(2) 

5029 

REF 

1 

E5, 1442 

JBRFG* 

EQUALS 

AAPFG* 

+ 2 

1(2) 

5030 

REF 

1 

E5 , 1444 

J APFG* 

EQUALS 

JBRFG* 

+ 2 

1(2) 

A 5 03  1 

* 

SEE  PARAMETER  TABLE 

IN  LUNAR 

LANDING  GUIDANCE  EQUATIONS  FOR 

A5032 

INDIRECT 

ADDRESS  I 

NG  INTO  ABOVE  AREA. 

5033 

REF 

1 

£5,1446 

GAINBRAK 

EQUALS 

J APFG* 

+ 2 

1(2) 

GAINS  FOR  GUIDANCE  FRAME  ERECTION 

5034 

REF 

1 

F 5 , 1450 

GAINAPPR 

EQUALS 

GAINBRAK 

+ 2 

1(2) 

5035 

REF 

1 

E5, 1452 

TCGFBRAK 

EQUALS 

GAINAPPR 

+ 2 

1(1) 

TIME  CRITERIA  FOR  GUIDANCE  FRAME 

5036 

REF 

1 

E5, 1453 

TCGI BRAK 

EQUALS 

TCGFBRAK 

+ 1 

1(1) 

5037 

REF 

1 

E5 , 1454 

TCGFAPPR 

EQUALS 

T CGI BRAK 

+ 1 

1(1) 

5038 

REF 

1 

£5,1455 

TCGIAPPR 

EQUALS 

TCGFAPPR 

+ 1 

1(1) 

5039 

REF 

1 

E5 , 1 456 

V IGN 

EQUALS 

TCGIAPPR 

+ 1 

1(2) 

DESIRED  SPEED  FOR  PDI 

5040 

REF 

1 

E 5 , 1460 

R IGNX 

EQUALS 

V IGN 

+ 2 

1(2) 

DESIRED  'ALTITUDE'  FOR  IGNITION 

5041 

REF 

1 

E5 , 1462 

RIGNZ 

EQUALS 

R IGNX 

+ 2 

1(2) 

DESIRED  GROUND  RANGE  FOR  IGNITION 

5042 

REF 

1 

F5 , 1464 

K IGNX/B4 

EQUALS 

RIGNZ 

+ 2 

1(2) 

GAP: 

L 

504  3 

5044 

5045 

5046 

504  7 

504  8 

5 04  9 

5050 

A5051 

5052 

A5053 

A5054 

505  5 

5056 

5057 

5058 

5059 

5060 

5061 

5062 

5063 

5064 

5065 

5066 

5067 

5068 

5069 

5070 

5071 

5072 

5073 

5074 

5075 

5076 

5077 

5078 

5079 

5080 

508  1 

5082 

5083 

5084 

5085 

5086 

5087 
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KEF 

1 

E5 , 1466 

K IGNY/B3 

EQUALS 

K IGNX/B4 

+ 2 

1(2) 

REF 

l 

E5 , 1470 

K IGNV/B4 

EQUALS 

K IGNY/R8 

+ 2 

1(2) 

REF 

l 

E5 , 1472 

LOWCRI T 

EQUALS 

KIGNV/R4 

+ 2 

BID  (HIGHCRIT  MUST  FOLLOW  LOWCRIT) 

REF 

l 

E5, 1473 

HIGHCRIT 

EQUALS 

LOWCRIT 

+ 1 

B(  1) 

REF 

1 

E 5 , 1474 

TAUHZ 

EQUALS 

HIGHCRIT 

+ 1 

P66  HORIZONTAL 

REF 

1 

E5, 1475 

QHZ 

EQUALS 

TAUHZ 

+ 1 

VELOCITY  NULLING 

REF 

L 

E5, 1476 

AHZL  I M 

EQUALS 

QHZ 

4-1 

CONSTANTS 

REF 

1 

E5 , 1477 

2LATE466 

EQUALS 

AHZL I M 

+ 1 

1(2)  MIN  ELAPSED  TIME  SINCE  PIPTIME  ERE 
A P6612  R/D)  WILL  BE  OMITTED 

REF 

1 

E5 , 1503 

DELQFIX 

EQUALS 

2LATE466 

+ 4 

1(2)  LP  ALT.  DATA  REASONABILITY  PARAM 

NOTE:  6 ERASABLES  HERE  IN  THIS  "L ANO 1 NG/ ABORT S"  OVERLAY  ARE  FREE 

THEY  SHARE  ONLY  WITH  W-MATRIX  ANO  SYSTEM  TEST  ERASABLFS  *4 


REF 

I 

E5, 1511 

LRVMAX 

EQUALS 

DELQFIX 

+ 6 

B ( 1) 

LR 

VEL 

WE  IGHTI NG 

FUNCTIONS 

REF 

1 

E5,  1512 

LR  VF 

EQUALS 

LRVMAX 

+ 1 

B(l) 

LR 

VEL 

WE  IGHTING 

FUNCTIONS 

REF 

1 

E5, 1513 

LRWVZ 

EQUALS 

L R VF 

+ 1 

B ( 1) 

LR 

VEL 

WE  IGH 

ING 

FUNCTIONS 

REF 

1 

E5, 1514 

LRWVY 

EQUALS 

LRWVZ 

Fl 

B(l) 

LP 

VEL 

WE  IGH 

ING 

FUNCTIONS 

REF 

1 

E5, 1515 

LRWVX 

EQUALS 

LRWVY 

+ 1 

B(  1) 

LR 

VEL 

WE  IGH 

ING 

FUNCTIONS 

REF 

1 

E5, 1516 

LRWVFZ 

EQUALS 

LRWVX 

+ 1 

BID 

LR 

VEL 

WE  IGH 

ING 

FUNCTIONS 

REF 

l 

E5, 1517 

LRWVF Y 

EQUALS 

LRWVFZ 

+ 1 

B(  1) 

LR 

VEL 

WE  IG 

ING 

FUNC  IONS 

PFF 

1 

E5,  1520 

LRWVFX 

EQUALS 

LRWVFY 

Fl 

B ( 1) 

LR 

VEL 

WEIG 

ING 

FUNC  IONS 

REF 

1 

E5, 1521 

LRWVFF 

EQUALS 

LRWVFX 

+ 1 

B(  1) 

LR 

VEL 

WE  IG 

ING 

FUNC  TONS 

REF 

1 

E 5 , 1522 

ABSCO 

EQUALS 

LRWVFF 

+ 1 

R(  1) 

ABSCISSAE  DEFINING  TERRAIN  MODEL 

REF 

1 

E 5 , 1523 

A BSC  1 

EQUALS 

ABSCO 

4-1 

BID 

REF 

1 

E5, 1524 

ABSC2 

EQUALS 

A BSC  1 

4-1 

B(l) 

REF 

1 

E5, 1525 

ABSC3 

EQUALS 

ABSC2 

4-1 

B ( 1) 

REF 

1 

E 5 , 1526 

ABSC4 

EQUALS 

ABSC3 

4-1 

B<  1) 

REF 

1 

E5, 1527 

SLOPFO 

EQUALS 

ABSC4 

4-1 

B ( 1) 

SLOPES 

DEFINING  TERRAIN  MnDEL 

REF 

1 

E5 , 1530 

SLOPE  1 

EQUALS 

SLOPEO 

4-1 

B(  1) 

REF 

1 

E5, 1531 

SLOPE  2 

EQUALS 

SLOPE  l 

+ 1 

Bll) 

REF 

1 

E5 » 1532 

SL0PE3 

EQUALS 

SLOPE  2 

4-1 

R(  1) 

REF 

1 

£5,1533 

SLUPE4 

EQUALS 

SL0PE3 

4-1 

Bill 

REF  5 LAST  100  0130 

REF  6 LAST  126  0131 


ABVEL*  EQUALS  BUF 
VSELECT*  EQUALS  BUF  +1 


B(l)  LR  TEMP 

BID  LR  TFMP 


REF  l 
REF  1 
REF  1 
REF  1 
REF  1 
REF  1 
RFF  1 
REF  1 
REF  1 
REF  1 
REF  1 
REF  1 


E 5 , 1534 

RODSCALE 

EQUALS 

SL0PE4 

4-1 

I ( 2) 

CLICK  SCALE  FACTOR  FOR  R.O 

• D. 

E5, 1 535 

T AURUD 

EQUALS 

RODSCALE 

4-1 

1(2) 

TIME  CONSTANT  FOR  R.O.D. 

£5,1537 

L AG/TAU 

EQUALS 

T AUROD 

4-2 

1(2) 

LAG  TIME  DIVIDED  BY  TAUROD 

( P66 ) 

E5 , 1541 

M INFORCE 

EQUALS 

LAG/TAU 

+ 2 

1(2) 

MINIMUM  FORCE  P66  WILL  COMMAND. 

E5.1543 

MAXFORCE 

EQUALS 

MINFORCE 

4-2 

1(2) 

MAXIMUM  FORCE  P66  WILL  COMMANO. 

£5,1545 

J 1PARM 

EQUALS 

MAXFORCE 

4-2 

1(2) 

PARAMETER  SET  # 1: 

E 5 , L 547 

K IPARM 

EQUALS 

J IPARM 

4-2 

1(2) 

ABORT  ORBIT  SEMI-MAJOR 

AXIS  COMP 

E5, 1551 

J 2P ARM 

EQUALS 

K IPARM 

4-2 

1(2) 

PARAMETER  SFT  # 2: 

E5, 1553 

K2PARM 

EQUALS 

J2PARM 

+ 2 

1(21 

ABORT  ORBIT  SEMI-MAJOR 

AXIS  COMP 

E5, 1555 

THETCRIT 

EQUALS 

K2PARM 

4-2 

1(2) 

CENTRAL  ANGLE  SWITCHING  CRITERION. 

E 5 , 1557 

RAMIN 

EQUALS 

THETCRIT 

+ 2 

1(2) 

MINIMUM  ALLOWABLE  APOLUNF. 

E5, 1561 

Y L I M 

EQUALS 

RAMIN 

4-2 

1(2) 

MAXIMUM  CROSS-RANGE  DIST. 

IN  ABORTS 
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5088 

REF 

1 

E5,  1563 

A BTR  DOT 

EQUALS  YLIM 

+ 2 

I I 2) 

DESIRED  RADIAL  VEL.  FOR  ABORTS. 

5089 

REF 

1 

E5, 1 565 

C0STHET1 

EQUALS  A8TRD0T 

+ 2 

I t 2) 

COS  OF  CONE  1 ANGLE  FOR  ABORTS 

5090 

A5091 

REF 

1 

E5, 1567 

COSTHET  2 

EQUALS  COSTHET l 

+2 

I (2) 

COS  OF  CONE  2 ANGLE  FOR  ABORTS. 

R5092 

SOME 

VARIABLES  FOR  SECOND  DPS 

GUIDANCE 

( 3 8D) 

509  A 

REF 

1 

E5, 1 571 

CG 

EQUALS  COST HET 2 

+ 2 

II18D)  GUIDANCE 

5095 

REF 

1 

E5, 1613 

R ANGEDSP 

EQUALS  CG 

+ 18D 

B(  2) 

DISPLAY 

5096 

REF 

l 

£5,1613 

OUTOFPLN 

EQUALS  R ANGEDSP 

OUTOFPLN  CAN  OVERLAY  RANGEDSP  *** 

5097 

REF 

1 

E5, 1615 

VBIAS 

EQUALS  OUTOFPLN 

+ 2 

1(6) 

PIPA  BIAS  EQUIV  VELOCITY  VECTOR 

5098 

REF 

1 

E5 , 1623 

RGU 

EQUALS  VBIAS 

+ 6 

1(6) 

UNSHARED  POSITION,  GUIDANCE  COORDS 

5099 

REF 

1 

E5, 1631 

DL  AND 

EQUALS  RGU 

+6 

B ( 6 ) 

PL  LANDING  SITE  CORR ECT I ON , S M FRAME 

5100 

REF 

1 

E 5 , 1631 

DLANDX 

EQUALS  DLAND 

5101 

REF 

2 

LAST 

127 

E5, 1633 

DLANUY 

EQUALS  DLAND 

+ 2 

5102 
A 5 10  3 

REF 

3 

LAST 

127 

E5, 1635 

DLANDZ 

EQUALS  DLAND 

+4 

A 5 10  A 

OVERLAYS  OF  THE 

BLOCK 

ABOVE 

(ASCENT  AND  DESCENT) 

5106 

REF 

2 

LAST 

127 

E5, 1571 

JPARM 

EQUALS  CG 

I (2) 

JPARM  WILL  EQUAL  JIPARM  OR  J2PARM 

5107 

REF 

1 

E5, 1573 

KPARM 

EQUALS  JPARM 

+ 2 

1(2) 

KPARM  WILL  EQUAL  K 1 P ARM  OR  K2PARM 

5108 

REF 

1 

E5, 1575 

RP 

EQUALS  KPARM 

+ 2 

1(2) 

PREDICTED  8URN0UT  RAD  I US-M*2 ( — 24 ) 

5109 

REF 

1 

E5, 1577 

QAXI  S 

EQUALS  RP 

+ 2 

I (6) 

ASCENT  CROSSRANGE  HALF-UNIT  VECTOR 

5 1 1 0 

REF 

1 

E5, 1605 

ZAXI SI 

EQUALS  QAXI S 

+ 6 

I ( 6) 

ASCFNT  DOWNRANGE  HALF-UNIT  VECTOR 

511  1 

REF 

7 

LAST 

126 

0130 

L*WCR*T 

= BUF 

5112 
A5 1 1 3 

REF 

8 

LAST 

127 

0131 

H*GHCR*T 

= BUF  +1 

R 5 1 1 4 

O-SAVE  REGISTER  FOR  ASCENT 

I ID) 

5115 

REF 

4 

LAST 

127 

E5, 1637 

ASCSAVE 

EQUALS  DLAND 

+ 6 

1(1) 

TMP  ASCENT  O-SAVE 

R5  116 

ALIGNMENT/SY 

STEST/CALCSMSC 

COMMON  STORAGE. 

( 36D ) 

5118 

REF 

l 

E5 , 1642 

XSM 

EQUALS  ENOW 

RI  6) 

5119 

REF 

1 

E5, 1650 

YSM 

EQUALS  XSM 

+ 6 

B ( 6) 

512'. 

REF 

1 

E5, 1656 

ZSM 

EQUALS  YSM 

+ 6 

B ( 6 ) 

512  l 

REF 

L 

E 5 , 1 664 

XDC 

EQUALS  ZSM 

+ 6 

B ( 6 ) 

5122 

REF 

1 

E5, 1672 

YDC 

EQUALS  XDC 

+ 6 

B(  6) 

5123 

REF 

1 

E5, 1700 

ZDC 

EQUALS  YDC 

+ 6 

B ( 6 ) 

5124 

REF 

2 

LAST 

127 

E 5 , 1 664 

XNB 

= XDC 

5125 

REF 

2 

LAST 

127 

E5, 1672 

YNB 

= YDC 

5126 

REF 

1 

E5, 1700 

ZNB 

= ZDC 

R5127 

MURE 

OVERLAYS  TO  ALIGNMENT 

/SYSTEST 

(THESE  ARE  P52) 

( 6D) 
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L ERASABLE  ASSIGNMENTS 


17:11  MAR.  19,1971  LUMERASF . 

USER*  S PAGE  NO.  37 


5129 

REF 

1 

E5, 1706 

L ANDLAT 

EQUALS 

STARAD 

(2)  LATITUDE,  LONGITUDE 

5130 

REE 

1 

E5 , 1 710 

LANDLONG 

EQUALS 

L ANDLAT 

+ 2 

( 2 ) AND  ALTITUOF 

5131 

KEF 

1 

E5, 1712 

L ANDALT 

EQUALS 

LANDLONG 

+ 2 

(2)  OF  LANDING  SITE 

A5132 

R5133 

AL IGNMEMT/SYSTEST  COMMON 

STORAGE. 

( 31D) 

5135 

REF 

2 

LAST  127 

E5 , 1 706 

STARAD 

EQUALS 

Z DC 

+ 6 

I ( 1801TMP 

5136 

REF 

2 

LAST  128 

E5, 1 730 

STAR 

EQUALS 

STARAD 

+ 180 

1(6) 

5137 

REF 

1 

E5.1736 

GCTR 

EQUALS 

STAR 

+ 6 

B(  1) 

5138 

REF 

1 

E5 , 1737 

OGC 

EQUALS 

GCTR 

+ 1 

1(2) 

5139 

REF 

1 

E5, 1741 

IGC 

EQUALS 

OGC 

+ 2 

1(2) 

514  0 

REF 

l 

E5 , 1743 

MGC 

EQUALS 

IGC 

+ 2 

1(2) 

R514  1 

P57  ALIGNMENT  (OVERLAY  OF 

AL  IGNMENT/SYSTEST  COMMON  STORAGE) 

( 12D) 

514  3 

REF 

3 

LAST  128 

E5 , 1706 

G ACC 

= 

STARAD 

(6  ) SS 

5144 

REF 

4 

LAST  128 

E5, 1714 

GOUT 

= 

STARAD 

+ 6 

(6)  SS 

A5145 

R5146 

OVERLAYS  WITHIN  AL I GNMEN T / S Y S TE S T COMMON 

1 STORAGE 

( 24D ) 

5148 

REF 

5 

LAST  128 

E5 , 1 706 

VEARTH 

EQUALS 

STARAD 

(61TMP 

5149 

REF 

1 

E5, 1714 

V SUN 

EQUALS 

VEARTH 

+ 6 

( 6)TMP 

5150 

REF 

l 

E5, 1722 

VMOON 

EQUALS 

V SUN 

+ 6 

( 6 ) T M P 

5151 

RFF 

1 

E5 , 1730 

SAX 

EQUALS 

VMOON 

+ 6 

(61TMP 

R5152 

P50 ' S , R50 1 S 

Q STORES. 

( 20) 

5154 

REF 

1 

E5 , t 7 45 

QM  IN 

EQUALS 

MGC 

+ 2 

B(  1) TMP 

5155 

R5156 

REF 

1 

E5 , 1746 

QMAJ 

EQUALS 

QM  IN 

+ 1 

D(  1 ) TMP 

R5157 

****  USED  IN 

P50S  **** 

( SCATTERED  OVERLAYS) 

( 18D) 

5159 
A 5 1 6 0 

REF 

2 LAST  128 

E5, l 706 

CULTR IX 

EQUALS 

VEARTH 

VEARTH,  VSUN , VMOON 

R5  lo  1 

ALIGNMENT  STORAGE. 

( 23D) 

5163 

REF 

1 

E 5, 1747 

OGCT 

EQUALS  QMAJ 

+ 1 

1(6) 

5164 

REF 

1 

£5,1755 

BFST  I 

EQUALS  OGCT 

+ 6 

1(1) 

51o5 

RFF 

1 

E5, 1756 

BEST  J 

EQUALS  BESTI  +1 

5166 

REF 

1 

E5 , 1757 

STAKING 

EQUALS  BESTJ  +1 

R 5 16  7 

RETAIN 

THE  ORDER  OF  STARSAV1 

TO  STARSAV2  +5  FOR  DOWNLINK  PURPOSES. 

5168 

KEF 

1 

E5 , 1 760 

STARS  AV  1 

EQUALS  STARIND 

+i 

1(6) 

5169 

REF 

1 

E5, 1 766 

STARS AV2 

EQUALS  STAR  SAV I 

+ 6 

1(6) 

5170 

A5171 

REF 

1 

E5, 1774 

T ALIGN 

EQUALS  STARSAV2 

+ 6 

B ( 2 ) TIMF  OF  IMU  AL 

176  PAGE  128 
EO  S4 
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R5172 

P32-35  + SERVICER 

5174 

REF 

l £5,1776 

RTXl 

EQUALS 

T ALIGN 

5175 

A5176 

REF 

I E5 , 1777 

RTX2 

EQUALS 

RTXl 

5177 

0026 

ZPRIME 

= 

220 

5178 

0020 

COST  H 

= 

160 

5179 

0022 

S INTH 

- 

1 80 

5180 

0024 

THETA 

= 

2 OD 
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USER'S  PAGE  NO.  38  EO  S4 


+ 2 
+ 1 


(201 

1(1)  XI  -2  EARTH,  -10  MOON 
III)  X 2 0 EARTH,  2 MOON 


GAP: 

L 

P5L81 

R5182 

5184 

5165 

5186 

5187 

R5188 

5189 

5190 

5191 

5192 

5193 

5194 

5195 

5196 

5197 

5198 

5199 

5200 

5 20  1 

5202 

5203 

520  4 

5205 

5206 

5207 

5208 

5209 

5210 

521  1 

5212 

5213 

5214 

5215 

5216 

5217 

5218 

5219 

5220 

5221 

5222 


ASSEMBLE  REVISION  210  GF  A GC  PROGRAM 

LUMINARY  BY 

NASA  2021112-161 

17:  11  MAR.  19,1971 

LUMERASE  . 176  PAGE 

ERASABLE 

ASSIGNMENTS 

USER' S PAGE 

NO. 

39  EO  S4 

##4 

OVERLAY  NUMBER 

2 IN  EBANK 

5 ******* 

CONICS  ROUTINE 

STORAGE. 

( 8 5D) 

REF  2 

LAST  127  E5 

, 1642 

DELX 

EQUALS 

ENDW 

I I 2) T MP 

REF  1 

E5 

,1644 

DELT 

EQUALS 

DELX 

+ 2 

I 1 2 > T MP 

REF  1 

E5 

, 1646 

URRECT 

EQUALS 

DELT 

+ 2 

I ( 61TMP 

0042 

RCNORM 

EQUALS 

34D 

1(2)  TMP 

NOTE:  RCNORM  (ABOVE)  IS  DEFINED  IN  VAC  AREA 


REF 

1 

E5, 1654 

R 1 VEC 

EQUALS 

URRECT  +6 

1(6)  TMP 

REF 

1 

E5, 1662 

R2VEC 

EQUALS 

R 1 VEC 

+ 6 

I (6) TMP 

REF 

1 

E5 , 1670 

TDES IRED 

EQUALS 

R2VEC 

+ 6 

I ( 21TMP 

REF 

1 

E5.1672 

GEOMSGN 

EQUALS 

TDES  IRED 

+ 2 

I ( 1 ) T MP 

REF 

1 

E5 , 1673 

UN 

EQUALS 

GEOMSGN 

+ 1 

I (61TMP 

REF 

l 

E5, 1701 

VTARGTAG 

EQUALS 

UN 

+ 6 

I ( 1) TMP 

REF 

1 

E5 , 1702 

VTARGET 

EQUALS 

VTARGTAG 

+ 1 

I ( 6 ) T MP 

REF 

1 

E5 , 1710 

RTNLAMB 

EQUALS 

VTARGET 

+6 

I ( 1 ) TMP 

REF 

1 

E5, 1711 

U 2 

EQUALS 

RTNLAMB 

Fl 

I ( 61TMP 

REF 

1 

E5, 1717 

MAGVEC2 

EQUALS 

U2 

+6 

I ( 2 ) T MP 

REF 

1 

E5, 1721 

UR  1 

EQUALS 

MAGVEC2 

+ 2 

I ( 61TMP 

REF 

1 

E5, 1727 

SNTH 

EQUALS 

UR1 

+ 6 

I ( 2 ) T MP 

REF 

1 

E5, 1731 

CSTH 

EQUALS 

SNTH 

+ 2 

I ( 21TMP 

REF 

1 

E 5 , 1733 

1-CSTH 

EQUALS 

CSTH 

F2 

I (2ITMP 

REF 

1 

E 5 , 1 735 

C STH-RHO 

EQUALS 

1-CSTH 

+ 2 

I ( 2) TMP 

REF 

1 

E5, 1737 

P 

EQUALS 

CSTH-RHO 

+ 2 

I ( 2ITMP 

REF 

1 

E5 , 1741 

R 1A 

EQUALS 

P 

+ 2 

I ( 21TMP 

REF 

2 

LAST 

130 

E5, 1654 

R VEC 

EQUALS 

R 1 VEC 

I ( 61TMP 

REF 

1 

E5 , 1743 

V VEC 

EQUALS 

R 1 A 

+ 2 

I ( 6 ) T MP 

REF 

2 

LAST 

130 

E5, 1 710 

RTNTT 

EQUALS 

RTNLAMB 

I ( 1ITMP 

REF 

1 

E5, 175  1 

ECC 

EQUALS 

V VEC 

+ 6 

I ( 21TMP 

REF 

3 

LAST 

130 

E5 , 1710 

RTNTR 

EQUALS 

RTNLAMB 

1 ( 1 ) TMP 

REF 

4 

LAST 

130 

E5, 1 710 

RTNAPSE 

EQUALS 

RTNLAMB 

I ( l ) TMP 

REF 

2 

LAST 

130 

E5, 1717 

R2 

EQUALS 

MAGVEC2 

I ( 2)TMP 

REF 

1 

E5, 1753 

RTNPRM 

EQUALS 

ECC 

+ 2 

I ( 1 ) T MP 

REF 

1 

E 5 , 1 754 

SGNRDOT 

EQUALS 

RTNPRM 

+ 1 

I ( 1 ) T MP 

REF 

1 

E 5 , 1 755 

RDESIRED 

EQUALS 

SGNRDOT 

+ 1 

I ( 21TMP 

REF 

1 

E5, 1757 

DELDEP 

EQUALS 

RDESIRED 

+ 2 

I ( 2 ) T MP 

REF 

1 

E5, 1 761 

DEPREV 

EQUALS 

DELDEP 

+ 2 

I ( 2ITMP 

REF 

2 

LAST 

130 

E 5 , 1757 

T ERR  L AM B 

EQUALS 

DELDEP 

I (2ITMP 

REF 

1 

E5, 1 761 

TPREV 

EQUALS 

DEPREV 

I ( 2 ) T MP 

REF 

2 

LAST 

130 

E5, 1 763 

EPSI LONL 

EQUALS 

DEPREV 

+ 2 

I ( 2 ) T MP 

REF 

1 

E 5 , 1 765 

COGA 

EQUALS 

E PS  I LONL 

+ 2 

1(2)  COTAN  OF  INITIAL  FLIGHT  PATH  ANGLE 

REF 

1 

E5.1765 

INDEP 

EQUALS 

COGA 

USED  BY  SUBROUTINE' I TERATOR' . 
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L 

ERASABLE 

ASSIGNMENTS 

USER'S  PAGE  NO.  40 

P5223 

******* 

OVERLAY  NUMBER  3 IN  EBANK 

5 ******* 

R5224 

INCORP  STORAGE. 

(180) 

5226 

REF 

3 

LAST  130  E5.1642 

Z I 

EQUALS 

ENOW 

1(18) TMP 

R5227 

INCORP/LSR22 .3  STORAGE. 

( 21D) 

5229 

REF 

1 

E5, 1664 

OELTAX 

EQUALS 

Zl 

+ 18D 

1(18) 

5230 

REF 

1 

E5 , 1 706 

VARIANCE 

EQUALS 

OELTAX 

+ 180 

1(3) 

R 523  1 

MEASUREMENT  INCORPORATION 

-R22-  STORAGE, 

(490) 

5233 

REF 

1 

E5, 1711 

GRP2SVQ 

EQUALS 

VARIANCE 

+ 3 

I l 1 ) TMP  QSAVE  FOR  RESTARTS 

5234 

KEF 

1 

E5 , 1 712 

0MEGAM1 

EQUALS 

GRP2S VQ 

+ 1 

1(6) 

5235 

REF 

1 

E 5 , 1 720 

0MEGAM2 

EQUALS 

0MEGAM1 

+6 

1(6) 

5236 

REF 

1 

E5 , 1 726 

0MEGAM3 

EQUALS 

0MEGAM2 

+ 6 

1(6) 

5 23  7 
A5238 

REF 

1 

E5, 1 734 

HOLDW 

EQUALS 

0MEGAM3 

+ 6 

1(18) 

5239 

REF 

2 

LAST  131  E 5 , 1 664 

TRIPA 

EQUALS 

OELTAX 

I ( 3) TMP 

5240 

REF 

i 

E5, 1667 

TEMP  VAR 

EQUALS 

TRIPA 

+3 

I ( 3) TMP 

A524  1 

R5242 

INCORPORATION/ IN TEGR AT IGN 

Q STORAGE. 

(10) 

5244 

REF 

2 

LAST  130  F5.1767 

EGRESS 

EQUALS 

COGA 

+ 2 

111) 

A 52 A 6 


EO  S4 


A 5 24  6 


GAP 
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L ERASABLE  ASSIGNMENTS 

P5247  SYSTEM  TEST  ERASA8LES.  CAN  OVERLAY  W MATRIX. 

R5249  *******  OVERLAY  NUMBER  0 IN  EBANK  5 ******* 


5250 

REF 

3 

LAST 

125 

E5,  1400 

AZIMUTH 

EQUALS 

W 

5251 

REF 

1 

E5,  1402 

LATITUDE 

EQUALS 

AZIMUTH  +2 

5252 

REF 

1 

E5 , 1404 

ERVFCTOR 

EQUALS 

LATITUDE  + 2 

5253 

REF 

1 

E5, 1412 

LENGTHOT 

EQUALS 

ERVECTOR  +6 

5254 

REF 

1 

E5, 1413 

LflSVEC 

EQUALS 

LENGTHOT  +1 

5255 

REF 

1 

E5 , 1414 

NDXCTR 

EQUALS 

LOSVEC  + 1 

5256 

REF 

1 

E 5 , 1 4 1 5 

P I P I NDEX 

EQUALS 

NDXCTR  +1 

525  7 

REF 

1 

E5, 1416 

POSI TON 

EQUALS 

PIPINDEX  +1 

5258 

REF 

1 

E 5 , 1 41 7 

QPLACE 

EQUALS 

POSITON  +1 

5259 

REF 

l 

E5 , 1420 

OPLACES 

EQUALS 

QPLACE  +1 

5260 

REF 

1 

E 5 , 1421 

SOUTHOR 

EQUALS 

QPLACES  +1 

526  1 

REF 

1 

E 5 , 1 430 

TEMPTIME 

EQUALS 

SOUTHOR  +7 

5262 

RET 

1 

E5, 1432 

T MAR  K 

EQUALS 

T EMPT  IMF  +2 

5263 

REF 

1 

E5, 1434 

GENPL 

EQUALS 

T MARK 

+ 2 

5270 

REF 

1 

E5 , 1440 

TEMPADD 

= 

GENPL 

+ 4 

5271 

REF 

2 

LAST 

132 

E5, 1441 

TEMP 

= 

GENPL 

+ 5 

5272 

REF 

3 

LAST 

132 

E5, 1442 

NOBITS 

= 

GENPL 

+ 6 

5273 

REF 

4 

LAST 

132 

E5, 1443 

CHAN 

= 

GENPL 

+7 

5274 

RFF 

5 

LAST 

132 

E5 , 1444 

L0S1 

= 

GENPL 

+ 8D 

5275 

REF 

6 

LAST 

132 

E5, 1452 

L0S2 

= 

GENPL 

+ 14D 

5283 

REF 

7 

LAST 

132 

F5, 1472 

DATAPL 

EQUALS 

GENPL 

+ 30D 

5287 

REF 

8 

LAST 

13? 

E5.1537 

R ESULTCT 

EQUALS 

GENPL 

+ 67D 

5290 

REF 

S 

LAST 

132 

E5 , 1434 

A I NLA 

= 

GENPL 

5291 

REF 

1 

E5 , 1434 

WANGO 

EQUALS 

A I NL  A 

5292 

REF 

2 

LAST 

132 

E5, 1436 

WANG  I 

EQUALS 

A I NLA 

+ 2D 

529  3 

REF 

3 

LAST 

132 

E 5 , 1440 

WANGT 

EQUALS 

A I NL  A 

+40 

5294 

REF 

1 

E5, 1440 

TORQNOX 

= 

WANGT 

5295 

REF 

4 

LAST 

132 

E5, 1442 

ORIFTT 

EQUALS 

A I NL  A 

+ 60 

5296 

REF 

5 

LAST 

132 

E 5 , 1 444 

ALXl  S 

EQUALS 

A I NL  A 

+ 80 

5297 

REF 

6 

LAST 

132 

E5 , 1445 

CMPX  l 

EQUALS 

A I NL  A 

+ 90 

5298 

REF 

7 

LAST 

132 

E5 , 1446 

ALK 

EQUALS 

AINLA 

+ 100 

5299 

REF 

8 

LAST 

132 

E5, 1462 

VLAUNS 

EQUALS 

AINLA 

+ 220 

5300 

REF 

9 

LAST 

132 

E 5 , 1 464 

WPLATO 

EQUALS 

AINLA 

+ 24  D 

5301 

REF 

10 

LAST 

132 

E 5 , 1470 

INTY 

EQUALS 

AINLA 

+ 28D 

5302 

REF 

l 1 

LAST 

132 

F5, 1472 

ANGZ 

EQUALS 

AINLA 

+ 30D 

5303 

REF 

12 

LAST 

132 

E5, 1474 

INTZ 

EQUALS 

AINLA 

+ 32D 

5304 

REF 

13 

LAST 

132 

E 5 , 1476 

ANGY 

EQUALS 

AINLA 

+ 34  D 

5305 

REF 

14 

LAST 

132 

E5, 1500 

ANGX 

EQUALS 

AINLA 

+ 36D 

5306 

REF 

15 

LAST 

132 

E5, 1502 

OR  I F TO 

EQUALS 

AINLA 

+ 38D 

5307 

REF 

16 

LAST 

132 

E5 , 1504 

DRIFTI 

EQUALS 

AINLA 

+ 400 

5308 

REF 

17 

LAST 

132 

E5,  1510 

VLAUN 

EQUALS 

AINLA 

+ 440 

5309 

REF 

18 

LAST 

132 

E5, 1512 

ACCwO 

EQUALS 

AINLA 

+ 460 
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USER'S  PAGE  NO.  41 
( 127D ) 


EO  S4 


2 

2 

6 

1 

6 

1 
1 
1 
1 
1 
7 

2 
2 


110  DE  OR  156  OCT  LOCATIONS 

VERT  E ATE 
HORIZO  TAL  ERATE 
T 


IND 
GA  INS 


SOUTH  IP  INTF 
EAST  A IS 
EAST  P P I 
SOUTH 
VE 

VERT 

SOU 
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L ERASABLE  ASSIGNMENTS 


5310 

REF 

19 

LAST 

132 

E5 , 1520 

POSNV 

EQUALS 

A I NLA 

+ 52D 

531  1 

REF 

20 

LAST 

133 

E5, 1522 

DPIP AY 

EQUALS 

AINLA 

+ 54D 

5312 

REF 

21 

LAST 

133 

E5, 1526 

DPIP AZ 

EQUALS 

A INL  A 

+ 58  D 

5313 

REF 

22 

LAST 

133 

E5, 1530 

ALTIM 

EQUALS 

AINLA 

+ 60D 

53 1 A 

REF 

23 

LAST 

133 

E5, 1531 

ALTIMS 

EQUALS 

AINLA 

+ 61  D 

5315 

REF 

24 

LAST 

133 

E5, 1532 

ALDK 

EQUALS 

A INL  A 

+ 62D 

5316 

REF 

25 

LAST 

133 

E5, 1550 

DELM 

EQUALS 

AINLA 

+ 76D 

531  7 

REF 

26 

LAST 

133 

E5, 1560 

WPLATI 

EQUALS 

AINLA 

+ B4D 

5318 

REF 

27 

LAST 

133 

E5, 1562 

GEOCOMPS 

EQUALS 

AINLA 

+ 860 

5319 

REF 

23 

LAST 

133 

E 5,  156  3 

ERCOMP 

EQUALS 

AINLA 

+ 87D 

5320 

REF 

29 

LAST 

133 

E5, 1571 

ZERONDX 

EQUALS 

AINLA 

+ 93D 

532  1 

REF 

1 

E5, 1452 

THETAN 

= 

ALK  +4 

5322 

REF 

1 

E5, 1460 

F ILDELV 

EQUALS 

THETAN  +6 

5323 

REF 

1 

E5, 1462 

INTVEC 

EQUALS 

F ILDELV  +2 

5324 

REF 

30 

LAST 

133 

E5, 1572 

ISECXT 

= 

AINLA  +94D 

532  5 

REF 

31 

LAST 

133 

E5, 1573 

4 SEC  XT 

= 

AINLA  +95D 

5326 

REF 

32 

LAST 

133 

E5, 1574 

PERFDLAY 

EQUALS 

AINLA  +96D 

532  7 

REF 

33 

LAST 

1 33 

E5 , 1576 

OVFLOWCK 

EQUALS 

AINLA  +98D 

A5328 

A5329 

5330  E5.1777  END-E5  EQUALS  2777 
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USER'S  PAGE  NO.  42  EO  S4 


SOUTH 

NORTH  IP  INCREMENT 
INDEX 

TIME  ONSTAN 


AGS  ALIGNMENT  STORAGE 


(3(2)  DELAY  TIME  BEF.  START  DRIFT  MEASURE 
(1)  SET  MEANS  OVERFLOW  IN  IMU  PEPF  TEST 
AND  CAUSES  TERMINATION 


END  OF  FRANK  5 
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L ERASABLE  ASSIGNMENTS  USER'S  PAGE  NO.  43  EO  S4 


P6000 

EBANK-6  ASSIGNMENTS. 

600  1 

E6 , 1400 

SETLOC 

3000 

R6002 

ITAP 

P AD— LOADED  DATA. 

( 10D  I 

R6004 

ALL  OF 

THE 

FOLLOWING  EXCEPT 

PITT IME 

AND  ROLLTIME  ARE 

INITIALIZED  IN 

FRESH  START 

TO  PERMIT  IMMEDIATE  USE 

OF  DAP 

600  6 

E6, 1400 

E6.1400 

HIASCENT 

ERASE 

( 1 ) MASS 

AFTER  STAGING,  SCALE  AT 

B 1 6 KG. 

6007 

E6, 1401 

E£ ,1401 

ROLLT  IME 

ERASE 

( 1 ) TIME 

TO  TRIM  Z GIMBAL  IN  R03, 

C SEC  . 

6008 

E6, 1402 

E 6 , 1402 

PITTIME 

ERASE 

( 1 ) T IME 

TO  TRIM  Y GIMBAL  IN  R03, 

C SEC . 

6009 

E6, 1403 

E6 , 1403 

DKTRAP 

ERASE 

(1)  DAP  STATE  (POSSIBLE  77001 

6010 

E6, 1404 

E 6 , 1404 

DKOMEGAN 

ERASE 

(1)  ESTIMATOR  PARA-  (VALUES  00012 

601  1 

E6, 1405 

E6, 1405 

DKKAOSN 

ERASE 

( 1 ) 

METERS  FOR  THE 

00074 

6012 

E6, 1406 

E6 , 1406 

LMTRAP 

ERASE 

( 1 ) 

DOCKED  AND 

77001 

6013 

E6, 1407 

E6, 1407 

LMOMEGAN 

ERASE 

( 1) 

LFM-ALONE  CASFS 

00000 

6014 

E6 , 1410 

E6,  1410 

LMKAOSN 

ERASE 

( 1 I 

RESPECTIVELY 

OO074 

6015 

E6, 1411 

E6 , 1411 

OKDB 

ERASE 

(1)  width 

OF  DEADBAND  FOP  DOCKED 

RCS 

A601  6 

AUTOPILOT  ( DB= 1 . 4DEG  IN  FRESH 

START) 

A601  7 

DEADBAND  = PI/DKDB  RAD. 

R6018 

PACLOAOS 

FOR 

INITIALIZATION  OF  DAP  BIAS  ACCELERATION  (AT  P12  IGNITION) 

(2D) 

6020 

E6, 1412 

E6 , 1412 

I GNAOSQ 

ERASE 

B ( 1 1 PL 

602  1 

E6, 1413 

E6 , 1413 

IGNAOSR 

ERASE 

B(1)PL 

A602  2 

R6023 

AXIS  TRANSFORMATION 

MATRIX  - i 

GIMRAL  TO 

PILOT  AXES 

( 5 D ) 

6025 

E6, 1414 

E 6 , 1414 

Mil 

ERASE 

SCALED  AT 

1 

6026 

E6.1415 

E6 , 1415 

M21 

ERASE 

SCALED  AT 

1 

602  7 

E6, 1416 

E6 , 1416 

M 3 1 

ERASE 

6028 

E6, 1417 

E6 , 1417 

M 22 

ERASE 

SCALEO  AT 

1. 

602  9 

E6, 1420 

E 6 , 1420 

M32 

ERASE 

SCALED  AT 

1 . 

R6030 

ANGLE  MEASUREMENTS. 

( 3 ID ) 

6032 

E6, 1421 

E 6 , 1425 

QMEGAP 

ERASE 

+4 

body-axis 

ROT.  RATES  SCALED  AT  Pl/4  ANO 

6033 

REF  l 

E6, 1422 

OMEGAQ 

EQUALS 

OMEGAP  +1 

BODY- AX  IS 

ACCELERATIONS  SCALED  AT 

PI/3 

6034 

REF  2 

LAST 

l 54 

E6, 1423 

OMEGAR 

EQUALS 

OMEGAP  +2 

R6035 

RETAIN 

1 THE 

ORDER 

OF  ALPHAQ 

AND  ALPHAR  FOR  DOWNLINK  PURPOSES. 

6036 

REF  5 

LAST 

134 

E6,  1424 

ALPHAQ 

EQUALS 

OMEGAP  +3 

6037 

REF  4 

LAST 

134 

E6, 1425 

ALPHAR 

EQUALS 

OMEGAP  +4 

6038 

E6 , 1426 

E6 , 1427 

OMEGAU 

ERASE 

+ 1 

6039 

REF  1 

E6, 1427 

OMEGAV 

= 

OMEGAU  +1 

604  0 

E6, 1430 

E 6 , 1435 

TRAP  EDP 

ERASE 

+ 5 

604  1 

REF  l 

E6, 1431 

TRAPEOO 

TRAPEDP  +1 

604  2 

REF  2 

LAST 

134 

E 6 , 1432 

TRAPEDR 

= 

T RAPE  DP  +2 

6043 

REF  3 

LAST 

134 

E6, 1433 

NPTR APS 

= 

TRAPEDP  +3 

GAP: 

L 

604  4 

604  5 

6046 

604  7 

6048 

6049 

6050 

6051 

6052 

6053 

6054 

6055 

K6056 

605  7 

6058 

6059 

6060 

6061 

606  2 

6063 

6064 

6065 

6066 

R6067 

6069 

6070 

607  l 

6072 

6073 

6074 

6075 

R6076 

R6078 

6079 

6080 

608  1 

6082 

6083 

6084 

6085 

6086 

6087 

R608  8 
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ERASABLE  ASSIGNMENTS 

USER' S PAGE  NO.  44 

EO  S4 

REF 

4 LAST  134 

E 6 , 1 4 34 

NOTRAPS  = 

TRAPEDP  +4 

REF 

5 LAST  135 

E6  1 1 435 

NRTRAPS  = 

TRAPEDP  +5 

REF 

1 

E6, 1427 

EDOTP 

EDOT 

E6, 1436 

Efc,  1437 

EDOTQ  ERASE 

+ 1 

REF 

1 

E6, 1437 

EDOTR 

EDOTQ  +1 

MANY  SHARING  NAMES 

REF 

2 LAST  135 

E6, 1436 

QR AT  ED I F EQUALS 

EDOTQ 

ALTERNATIVE  NAMES: 

REF 

1 

E6, 1437 

RRATEDIF  EQUALS 

EDOTR 

DELETE  WHEN  NO.  OF  REFERFNCFS  = 0 

REF 

2 LAST  134 

E6 i 1426 

URATEOIF  EQUALS 

OMEGAU 

REF 

1 

E6,  1427 

VRAT  ED  I F EQUALS 

OMEGAV 

E6, 1440 

E6, 1442 

OLDXFORP  ERASE 

+ 2 

STORED  COU  READINGS  FOR  S 

TATE 

REF 

1 

F6, 1441 

OLDYFORP  EQUALS 

OLDXFORP  +1 

DERIVATIONS:  SCALED  AT  PI 

RADIANS  ( 2 1 S ) 

REF 

2 LAST  135 

E6, 1442 

OLDZFORQ  EQUALS 

OLDXFORP  +2 

RATE- 

CC MM AND  AND  MINIMUM  IMPULSE  MODES 

E6 i 1 443 

E6 i 1443 

CH31TEMP  ERASE 

E6, 1444 

E6, 1444 

STIKSENS  ERASE 

E6, 1445 

E6 i 1445 

TCP  ERASE 

E6 i 1446 

E6 , 1453 

DXERROR  ERASE 

+ 5 

REF 

L 

E6, 1450 

DYERROR  EQUALS 

DXERROR  +2 

REF 

2 LAST  135 

E6, 1452 

OZERROR  EQUALS 

DXERROR  +4 

E6  » 1454 

E 6 i 1454 

PLAST  ERASE 

E6, 1455 

E6 , 1455 

QLAST  ERASE 

E6 » 1456 

E6  t 1456 

RLAST  ERASE 

E6 1 1457 

E6, 1457 

TCQR  ERASE 

OTHER 

VAR  I ABLES. 

( 5D) 

E6, 1460 

E 6 i 1460 

ULDPMIN  ERASE 

THESE  THREE  USED  IN  MIN  IMPULSF  MODE. 

E6, 1461 

E6»  1461 

OLDQRM  IN  ERASE 

REF 

1 

E6, 1 736 

TEMP  3 1 EQUALS 

DAPTEMP1 

E6, 1462 

E6 , 1463 

SAVEHAND  ERASE 

+ 1 

E6  , 1 464 

Efc i 1464 

PFKROR  ERASE 

REF 

1 

E6, 1450 

QERROR  EQUALS 

DYERROR 

REF 

1 

E 6 1 1452 

RERROR  EQUALS 

OZERROR 

JET  STATE  CHANGE  VAR 

IABLFS-  T 

IME  (TOFJTCHG) , JET  BITS  WR1 

T TEN  NOW 

I 100) 

(JTSCNNOW),  AND  JET  BITS  WR 

ITTEN  AT 

T 6 RUPT  (JTSATCHC) 

• 

E 6 i 146  5 

E6  , 1465 

NXT6ADR  ERASE 

b 6 , 1466 

E 6 i 1467 

T6NEXT  ERASE 

+ 1 

E6, 1470 

E6,  1471 

T 6FURTHA  ERASE 

+ 1 

E6 i 1472 

E6 , 1474 

NEXTP  ERASE 

+ 2 

REF 

1 

E6, 1473 

NFXTU 

NEXTP  +1 

REF 

2 LAST  135 

E6, 1474 

NEXT  V 

NEXTP  +2 

E6, 1475 

E6 , 1476 

-2JETLIM  ERASE 

+ 1 

RATE  COMMAND  4-JET  RATE  D 

IFFERFNCF  LIMIT 

REF 

1 

E6 » 1476 

-RAT  EOB  EQUALS 

-2JETLIM  +1 

AND  RATE  DEAD8AND  FOR  ASC 

ENT  OR  DESCENT 

REF 

1 

E6, 1476 

T ARGETOB  EQUALS 

-RATEDB 

MAN.  CONTROL  TARGET  DB  COMPLEMENT . 

***  Q,R  AXIS  ERASABLES  *** 

(3  I 

GAP:  ASSEMBLE  REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L ERASABLE  ASSIGNMENTS 


6090 

REF 

13 

LAST 

89 

4733 

PBIT 

EQUALS 

B IT10 

6091 

REF 

14 

LAST 

89 

4732 

QRBIT 

EQUALS 

BIT11 

6092 

REF 

1 

E6, 1750 

UERROR 

EQUALS 

0APTREG5 

6093 

REF 

1 

£6,1751 

VERROR 

= 

UERROR  +1 

6094 

£6,1477 

E6, 1477 

R E T J A OR 

ERASE 

6095 

REF 

1 

F6 , 1741 

TEMPNUM 

EQUALS 

0 APTEMP4 

6096 

REF 

1 

E6, 1742 

NUMBERT 

EQUALS 

0APTEMP5 

6097 

REF 

1 

E6 , 1 743 

ROTINOEX 

EQUALS 

D APT  EMP6 

6098 

KEF 

2 

LAST 

135 

E6, 1736 

ROTEMP 1 

EQUALS 

DAPTEMP1 

6099 

REF 

1 

E6, 1737 

R0TEMP2 

EQUALS 

DAPTEMP2 

6100 

REF 

1 

E6, 1740 

POLYTEMP 

EQUALS 

DAPTEMP3 

610  l 

E6, 1500 

E6 , 1500 

SENSE  TYP 

ERASE 

6102 

REF 

3 

LAST 

136 

E6, 1 736 

ABSTJ 

EQUALS 

DAPTEMP 1 

6103 

REF 

4 

LAST 

136 

£6,1 736 

ABSEDOTP 

EQUALS 

D APT  EMP 1 
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U.V-AXES  ATT  ERROR  FOR  RCS  CONTROL  LAWS 


ABS  VALUE  OF  JET-FIRING  TIME 


GAP:  ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-1  61 


L ERASABLE  ASSIGNMENTS 


P6104 

TR  IM 

GIMBAL  CONTROL 

LAW  ERASAeLES: 

6106 

REF 

5 

LAST 

136 

E6 , 1736 

GTSTEMPS 

EQUALS 

DAPTEMP 1 

6107 

REF 

1 

E6, 1740 

SHFTFLAG 

EQUALS 

GTSTFMPS 

♦ 2 

6108 

REF 

2 

LAST 

137 

E6 , 1743 

ININUEX 

EQUALS 

GTSTEMPS 

+ 5 

6109 

REF 

1 

£6,1505 

SAVESR 

EQUALS 

AXISCTR 

6110 

REF 

3 

LAST 

137 

E6, 1 745 

SCRATCH 

EQUALS 

GTSTEMPS 

+ 7 

6111 

REF 

4 

LAST 

137 

E6 , 1 746 

HALFARG 

EQUALS 

GTSTEMPS 

+ 8D 

6112 

REF 

5 

LAST 

137 

E6, 1 736 

K2THETA 

EQUALS 

GTSTEMPS 

6113 

REF 

6 

LAST 

137 

E6 , 1 740 

KCENTRAL 

EQUALS 

GTSTEMPS 

+ 2 

6 114 

REF 

7 

LAST 

137 

£6,1741 

K2CNTRAL 

EQUALS 

GTSTEMPS 

+ 3 

6115 

REF 

8 

LAST 

137 

E6 , 1742 

WCENTR AL 

tQUALS 

GTSTEMPS 

+4 

6116 

REF 

9 

LAST 

137 

E6 , 1 743 

ACENTRAL 

EQUAL  S 

GTSTEMPS 

+ 5 

6117 

REF 

10 

LAST 

137 

E6 , 1 744 

DEL 

EQUALS 

GTSTEMPS 

+6 

6118 

REF 

11 

LAST 

137 

E6 , 1745 

A2CNTRAL 

EQUALS 

GTSTEMPS 

+ 7 

6119 

REF 

12 

LAST 

137 

E6, 1747 

QRCNTR 

EQUALS 

GTSTEMPS 

+ 9D 

6120 

REF 

13 

LAST 

137 

E6, 1750 

FUNCT ION 

EQUALS 

GTSTEMPS 

+ 10D 

612  l 

E6, 1501 

E 6,  150  3 

NEGUQ 

ERASE 

+2 

A6122 

NEGUQ  +1 

6123 

REF 

l 

E6, 1503 

NEGUR 

EQUALS 

NEGUQ  +2 

6124 

F6 , 1504 

E6 , 1506 

KQ 

ERASE 

+ 2 

6125 

REF 

1 

£6,1505 

AXISCTR 

EQUALS 

KQ 

+ 1 

6126 

REF 

2 

LAST 

137 

£6,1506 

KRDAP 

EQUALS 

KQ 

+ 2 

6127 

£6,1507 

E6 , 1512 

ACCDOTQ 

ERASE 

+3 

6128 

REF 

1 

E6, 1510 

Q ACC  DOT 

EQUALS 

ACCDOTQ 

+ 1 

6129 

REF 

2 

LAST 

137 

E6, 1 51 1 

ACCDOTR 

EQUALS 

ACCDOTQ 

+ 2 

6130 

REF 

3 

LAST 

137 

E6, 1512 

R ACC  DOT 

EQUALS 

ACCDOTQ 

T3 

613  l 

REF 

1 

E6 , 1450 

QDIFF 

EQUALS 

QERROR 

613  2 

REF 

1 

E6 , 1452 

RDIFF 

EQUALS 

RERROR 

A6133 

R6134 

TORQUE 

VECTOR 

RECONSTRUCT  ION 

VARIABLES: 

6136 

REF 

l 

E6 , 1 744 

J ETR ATE 

EQUALS 

DAPTREG1 

6137 

REF 

1 

E6, 1745 

JETRATEQ 

EQUALS 

JETRATE  +1 

613  8 

REF 

2 

LAST 

137 

E6 , 1 746 

JETRATER 

EQUALS 

JETRATE  +2 

613  9 

E6, 1513 

£6,1520 

DOWNTORK 

ERASE 

+ 5 

6140 

REF 

1 

E6 , 1 5 13 

POSTORKP 

EQUALS 

DOWNTORK 

6141 

REF 

2 

LAST 

137 

E6 , 1 5 14 

NEGTORKP 

EQUALS 

DOWNTORK  +1 

6142 

REF 

3 

LAST 

137 

E6.1515 

POSTORKU 

EQUALS 

DOWNTORK  +2 
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( 1 ID ) 

GTS  IS  PART  OF  THE  JASK. 

COUNT  BITS  FOR  GTSORT  SHIFTING. 

INDEX  FOR  SHIFT  LOOP  IN  GTSORT. 

CANNOT  BE  A DAPTEMP  - GTS  USFS  THEM  ALL. 

ROOTCYCL  ERASABLE 
ROOTCYCL  ERASABLE. 

D.P.,  K*  ER  ROR , NEGUSUM 

S.P.,  K FROM  KQ  OR  KRDAP,  AT  PI/2I8) 

O.P.,  GTS  SCRATCH  CELLS. 

S.P.,  OMEGA,  AT  PI/4  RAD/SEC 
S.P.,  ALPHA,  AT  PI/4  RAD/SECI2) 

S.P.,  SGN  FUNCTION  VALUE. 

D. P. , GTS  SCRATCH  CELLS  . 

S.P.,  INDEX  FOR  GTS  LOOP  THROUGH  Q,R  AXES 
D.P. , ARGUMENT  FOR  GRSQRT , SCR AT CH  FOR  GTS 

NEGATIVE  OF  O-AXIS  GIMBAL  DRIVE 
DEFINED  AND  USED  ELSEWHERE 
NEGATIVE  OF  R-AXIS  GIMBAL  DRIVE 

S.P..JERK  TERM  FOR  GTS,  AT  PI/2I3) 

.3  ACCDOTR  SCALED  AT  PI/2I8) 

Q-JERK  SCALED  AT  PI/2I7)  UNSIGNED 
O-JFRK  SCALED  AT  PI/2I7)  SIGNED 
R-JERK  SCALED  AT  PI/2I7)  UNSIGNED 
R-JERK  SCALED  AT  PI/2I7)  SIGNED 

ATTITUDE  ERRORS: 

SCALED  AT  PI  RADIANS 


( 1 7D) 


THE  LAST  CONTROL  SAMPLE  PFRIOD  OF  IDO  MS 
SCALED  AT  PI/4  R AD I AN S /SE COND 

ACCUMULATED  JET  TORQUE  COMMANDED  ABOUT 
+ ,-P,  + , -U  , <-,-V  RESPECTIVELY. 


NOT  INITIALIZED;  PERMITTED  TO  OVERFLOW 


ASSEMBLE  REVISION  21G  OF  A GC  PROGRAM  LUMINARY  RY  NASA  2021112-lfal 


GAP: 


614  3 
6144 
614  5 

6146 

614  7 

6148 

6149 

6150 

615  1 

6152 

6153 

6154 

6155 

6156 
A6157 
R615e 

A6  16  ' 

616  1 
6162 

R6163 
R6  165 
R6167 

6160 

6169 

6170 
617  1 

6172 

6173 

K6174 

A6176 
6 177 
6170 

6179 

6180 
6181 
6102 
6183 
6104 

A6185 

6106 

6107 

R6188 


ERASABLfc  ASSIGNMENTS 


REF 

4 

LAST 

137 

E6, 1516 

NEGTORKU 

EQUALS 

DOWNTORK 

+ 3 

REF 

5 

LAST 

138 

E6, 1517 

P OSTORKV 

EQUALS 

DOWNTORK 

+4 

REF 

6 

LAST 

138 

E6, 1520 

NFGTORKV 

EQUALS 

DOWNTORK 

+ 5 

E6 , 1521 

E 6 , 1523 

NO. P JETS 

ERASE 

+ 2 

REF 

1 

E6 , 1522 

NO.UJETS 

= 

NO. P JETS 

+ 1 

REF 

1 

£6,1523 

NO.VJETS 

= 

NO.UJETS 

+ 1 

E6, 1524 

E6 , 1526 

TJP 

ERASE 

+ 2 

REF 

1 

E6, 1525 

T JU 

= 

TJP  +1 

REF 

2 

LAST 

138 

E6, 1526 

TJV 

= 

TJP  +2 

E6 , 1527 

E 6 , 1527 

L .PVT-CG 

ERASE 

E6, 1530 

E6 , 1533 

1 J ACC 

ERASE 

+ 3 

REF 

1 

E6, 1531 

1 JACCQ 

EQUALS 

1JACC  +1 

REF 

2 

LAST 

138 

E6, 1532 

1JACCR 

EQUALS 

1 J ACC  +2 

REF 

3 

LAST 

138 

E6, 1533 

1 JACCU 

EQUALS 

1 J ACC  +3 

ASCENT 

VARIABLES: 

E6 , 1534 

E6 , 1535 

SKIPU 

ERASE 

+ l 

REF 

1 

E6, 1535 

SK  I P V 

- 

SKIPU  +1 

THE 

FOLLOWING 

LM  DAP 

ERASABLES  ARE  ZEROED  IN  THE 

STARTDAP  SECTION  OF 

SECT ICN 

OF  THE  AOSTASK.  THE 

ORDER  MUST 

BE  PRESERVED  FOR  THE  INDEXING 

SECTIONS 

AND 

ELSEWHERE. 

E6,  1536 

E6, 1543 

AOSQ 

ERASE 

+ 5 

REF 

1 

E6, 1540 

AOSR 

EQUALS 

AOSQ  +2 

REF 

2 

LAST 

138 

E6, 1542 

AOSU 

EQUALS 

AOSQ  +4 

REF 

3 

LAST 

138 

E6 , 1543 

AOS  V 

EQUALS 

AOSQ  +5 

E6 , 1 544 

E6 , 1545 

AUSQTERM 

ERASE 

+ 1 

REF 

1 

E6, 1545 

AOSR T ERM 

EQUALS 

AOSQTERM  +1 

FOR 

T JET 

LAW 

SUBROUTINE : 

NUMBERT 

EQUALS 

DAPTEMP5 

REF 

6 

LAST 

137 

E 6 , 1736 

EDOTSQ 

EQUALS 

DAPTEMP1 

RFF 

2 

LAST 

136 

E6, l 737 

ROTSENSE 

EQUALS 

0APTEMP2 

RFF 

2 

LAST 

136 

E6, 1740 

FIREFCT 

EQUALS 

D APT  E MPT 

REF 

2 

LAST 

136 

E6 , 1 741 

TTOAXIS 

EQUALS 

DAPTEMP4 

REF 

2 

LAST 

136 

E6 , 1743 

ADRSDIF2 

EQUALS 

DAPTEMP6 

REF 

2 

LAST 

137 

E6, 1 744 

HOLUQ 

EQUALS 

DAPTREG1 

REF 

1 

E6 , L 745 

ADRSDIF 1 

EQUALS 

DAPTREG2 

REF 

L 

E6 , 1746 

HH 

EQUALS 

DAPTREG3 

HH  + 1 

EQUALS 

0 APTREG4 

REF 

1 

E6, 1751 

E 

EQUALS 

DAPTREG6 

REF 

2 

LAST 

135 

E6, 1427 

EDOT 

EQUALS 

OMEGAV 

INPUT  TO 

TJET 

LAW  (PERMANENT 

ERASABLES ) 
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SCALED  AT  32  JET-SEC,  OR  ABOUT  2.0  JET- 
MSEC  PER  BIT. 


SCALED  AT  PI/4  R AD  I AN S /SECOND 

FOR  U.V-AXES  THE  SCALE  FACTOR  IS  DIFE: 
SCALED  AT  PI/2  R AD  I AN S / SECONO  (FOR  ASC) 
( 10D) 


THE  DAPIDLER  PROGRAM  AND  THF  COASTASC 
METHODS  WHICH  ARE  EMPLOYED  IN  THOSE 


OFFSET  ACC.  ESTIMATES,  UPDATED  IN  D.P., 
AND  SCALED  AT  PI/2. 

UV-AXES  OFFSET  ACC.  FROMED  BY  VECTOR 
ADDITION  OF  Q,R.  AT  PI/2  R AD/SEC ( 2 ) . 

( . 1-.05K )AOS 

SCALED  AT  PI/4  R AO  I AN S /SECONO . 

(TEMPS  ONLY) 

DEFINED  IN  QRAXIS. 


LOOKED  AT  BY  PAXIS. 


DOUBLE  PRECISION 
TIME  SHARE  WITH  VERROR 


(48D) 
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6190 

REF 

1 

E6, 1525 

TJETU 

= 

TJU 

EQUATE  NAMES.  INDEXED  BY  -1,  0,  +1. 

6191 

E6 , 1 546 

E6, 1625 

BLOCK TOP 

ERASE 

+ 47D 

A6192 

SEE  AOSTASK  AND  AOSJOB 

LOG  SECTION  FOR  ERASABLE  DEFINITIONS 

A6193 

IN  THIS  AREA. 

6194 

REF 

1 

E6 , 1566 

1 /AN  ET 1 

= 

BLOCKTOP  +16D 

THESE  8 PARAMETERS  ARE  SET  UP  BY  1/ACCS 

6195 

REF 

1 

E6 , 1 567 

1/ANET2 

= 

1/ANET1  +1 

FOR  MINIMUM  JETS  ABOUT  THE  U-AXIS  WHEN 

6196 

REF 

2 

LAST 

139 

E6.1572 

1 / ACO AST 

- 

1/ANET1  +4 

EDOT  IS  POSITIVE.  TJETLAW  INDEXES  BY 

6197 

REF 

3 

LAST 

139 

E6.1574 

ACCFCTZ1 

= 

l/ANETl  +6 

ADRSDIFF  FROM  THESE  REGISTERS  TO  PICK  UP 

6198 

REF 

4 

LAST 

139 

E6, 1575 

ACCFCTZ5 

= 

1/ANET1  +7 

PARAMETERS  FOR  THE  PROPER  AXIS,  NUMBER 

6199 

REF 

5 

LAST 

139 

E6, 1600 

F IREDB 

= 

l/ANETl  +10D 

OF  JETS  AND  SIGN  OF  EDOT.  THERE  ARE  48 

6200 

REF 

6 

LAST 

139 

E6, 1602 

C0ASTD8 

= 

l/ANETl  +12D 

REGISTERS  IN  ALL  IN  THIS  BLOCK. 

6201 

REF 

7 

LAST 

139 

E6 , 1604 

AXI SOI  ST 

= 

l/ANETl  +14D 

FOUR  NOT  REFERENCED  (P-AXIS)  ARE  FILLED 

A6202 

IN  BY  THE  FOLLOWING: 

6203 

KEF 

2 

LAST 

139 

E6 , 1546 

ACCSWU 

= 

BLOCKTOP 

SET  BY  l/ACCS  TO  SHOW  WHETHER  MAXIMUM 

6204 

REF 

1 

E6, 1547 

ACCS  WV 

= 

ACCSWU  >1 

JETS  ARE  REQUIRED  BECAUSE  OF  AOS. 

6205 

REF 

3 

LAST 

139 

E6 , 1554 

FLAT 

= 

BLOCKTOP  +6 

WIDTH  OF  MINIMUM  IMPULSE  ZONE. 

6206 

REF 

4 

LAST 

139 

E6 , 1555 

Z0NF3LIM 

= 

BLOCKTOP  +7 

HEIGHT  OF  MINIMUM  IMPULSE  ZONE  I AT  4 SEC) 

6207 

E6, 1626 

E6 , 1627 

COEFFQ 

ERASE 

+ 1 

COEFFQ  AND  COEFFR  ARE  USED  IN  ROT-TOUV 

620  8 

REF 

1 

E6, 1627 

COEFFR 

EQUALS 

COEFFQ  +1 

TO  RESOLVE  Q , R COMPONENTS  INTO  U,V  COMP. 

A6209 

R6210 

VAR  I AB 

LES 

FOR 

GT  S-QR  AXIS  CONTROL  EXCHANGE. 

(4) 

6212 

REF 

2 

LAST 

137 

E6 , 1502 

ALLOWGTS 

EQUALS 

NEGUQ  +1 

INSERT  INTO  UNUSED  LOCATION 

6213 

E6, 1630 

E6 , 1630 

COTROLER 

ERASE 

INDICATES  WHICH  CONTROL  SYSTEM  TO  USE. 

6214 

E6, 1631 

E6, 1633 

QGIMTIMR 

EPASE 

+ 2 

Q-GIM8AL  DRIVE  ITMFR,  DECISECONDS. 

6215 

REF 

1 

E6, 1632 

INGTS 

EQUALS 

QGIMTIMR  +1 

INDICATOR  OF  CURRENT  GTS  CONTROL. 

6216 

REF 

2 

LAST 

139 

E6, 1633 

RGIMTIMR 

EQUALS 

QGIMTIMR  +2 

R-GIMBAL  DRIVE  TIMER,  DECISECONDS. 

R6217 

PLEASE 

RETAIN 

THE  ORDER  OF  CDUXD  THRU 

CDUZD  FOR  DOWNLINK  PURPOSES. 

R6218 

kalcmanu:dap  interface. 

( 9D) 

6220 

E6, 1634 

E 6 , 1636 

CDUXD 

ERASE 

+ 2 

CDU  DESIRFD  REGISTERS: 

622  1 

REF 

1 

E6, 1635 

CDUYD 

EQUALS 

CDUXD  +1 

SCALED  AT  PI  RADIANS  (180  DEGREES) 

6222 

REF 

2 

LAST 

139 

E6, 1636 

CDUZD 

EQUALS 

CDUXD  +2 

(STORE  IN  2S  COMPLEMENT) 

6223 

E6, 1637 

E6.1641 

DELCDUX 

ERASE 

+2 

NEGATIVE  OF  DESIRED  100MS  CDU  INCREMENT: 

6224 

REF 

1 

E6, 1640 

DELCDUY 

EQUALS 

DELCDUX  +1 

SCALED  AT  PI  RADIANS  (180  DEGREES) 

6225 

REF 

2 

LAST 

139 

E6, 1641 

DELCDUZ 

EQUALS 

DELCDUX  +2 

(STORE  IN  2S  COMPLEMENT) 

R6226 

RETAIN 

THE 

ORDER 

OF  OMEGAPO 

TO  OMEGARD  FOR  DOWNLINK 

PURPOSES. 

6227 

E6.1642 

E6, 1644 

OMEGAPD 

EPASE 

+ 2 

ATTITUDE  MANEUVER  DESIRED  RATES: 

6228 

REF 

1 

E6, 1643 

OMEGAQD 

EQUALS 

OMEGAPD  +1 

(NOT  EXPLICITLY  REFERENCED  IN  GTS  CNTRL ) 

6229 

REF 

2 

LAST 

139 

E6 , 1644 

OMEGARD 

EQUALS 

OMEGAPD  +2 

SCALED  AT  PI/4  R AD  I AN S /SE COND 

R6230 

K ALCMANU  STORAGE. 

( 24D ) 

GAP: 

ASSEMBLE  REVISION  210 

CF  ACC  PROGRAM  LUMINARY  BY 

NASA  20 21112- L61 
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PAGE 

L 

ERASABLE  ASSIGNMENTS 

USER'S  PAGE 

NO.  49 

FO  S4 

6232 

6233 

REF  1 

E6, 164-5  E6  j 1674 
E6 , 1 667 

MIS 

COF 

ERASE 

EQUALS  MIS 

<-230  I ( 18D  ) 

+18D  1(6) 

R6234 


KALCMANU  STORAGE. 


( 3 3D ) 


6236 

E6.1675  F6.1733 

BCDU 

ERASE 

+ 30D 

B(  3) 

6237 

REF  1 

E6, 1700 

KSPNDX 

EQUALS 

BCDU 

+ 3 

B(l) 

6238 

KEF  1 

E6, 1701 

KDPNDX 

EQUALS 

KSPNDX 

<-1 

B(  1) 

6239 

REF  1 

Efa , 1 702 

TMIS 

EQUALS 

KDPNDX 

+ 1 

1(18) 

MUST 

BE 

IN 

SAME 

BANK 

AS 

RCS 

DAP 

6240 

REF  l 

E6, 1724 

COFSKFW 

EQUALS 

TMIS 

+ 1 8D 

1(6) 

MUST 

BE 

IN 

SAME 

BANK 

AS 

RCS 

DAP 

6241 

REF  1 

E6 , 1 732 

CAM 

EQUALS 

COFSKEW 

+ 6 

1(2) 

MUST 

RE 

IN 

SAME 

BANK 

AS 

RCS 

DAP 

6242 

A6243 

F6 , 1734  E6 , 1 735 

AM 

ERASE 

+ 1 

1(2)  THIS  WAS  ONCE  IN  E5  OVERLAYING  OGC 

R6244 

FIRS! 

-ORDER  OVERLAYS 

IN  KALCMANU 

( 25D) 

624  6 

REF 

2 

LAST 

140 

E 6 , 1702 

MFISYM 

EQUALS 

TMIS 

I 

624  7 

REF 

3 

LAST 

140 

E6 , 1 702 

TMFI 

EQUALS 

TMIS 

I 

624  8 

REF 

4 

LAST 

140 

E6, 1702 

NCDU 

EQUALS 

TMIS 

b 

6249 

REF 

5 

LAST 

140 

E6 , 1 705 

NEXTIME 

EQUALS 

TMIS 

+ 3 

B 

6250 

REF 

6 

LAST 

140 

E6, 1 706 

TTEMP 

EQUALS 

TMIS 

+4 

B 

6251 

REF 

2 

LAST 

140 

E6, 1724 

BRATE 

EQUALS 

COFSKEW 

b 

6252 

REF 

1 

E6 , 1 732 

TM 

EQUAL  S 

CAM 

B 

R6253  SECOND-ORDER  OVERLAYS  IN  KALCMANU 


(?) 


6255 

REF 

3 

LAST 

140 

E6,  1724 

VECQTEMP  = 

COFSKEW 

6256 

REF 

3 

LAST 

139 

E6, 1634 

DCOU 

CDUXU 

625  7 

REF 

3 

LAST 

139 

E6, 1637 

DEL DC DU  = 

DELCDUX 

6258 

REF 

1 

E6 , 1 640 

DELDCDU1  = 

DELCDUY 

6259 

REF 

1 

E6 , 1 64  1 

UELUCDU2  = 

DELCDUZ 

R6260 

* * 

* 

* # * * 

* # * * 4 * 

* 4c  4c 

* 4"  4= 

4c  4c  4c 

4c  4c 

R6261 

STORAGE 

FOR  FINDCDUW 

R6262 

OVERLAY  I NG 

KALCMANU  STORAGE: 

( 26D) 

6264 

REF 

2 

LAST  140 

F6, 1645 

ECDUW 

equals 

MIS 

6265 

REF 

1 

E6, 1 645 

ECDUWUSR 

EQUALS 

ECDUW 

B ( 1 ) TMP 

6266 

REF 

1 

E6, 1646 

QCDUWUSR 

EQUALS 

ECDUWUSR 

+ 1 

I ( 1 ) T MP 

6267 

REF 

1 

E6, 1647 

NDXCDUW 

EQUALS 

QCDUWUSR 

+ 1 

B ( DTMP 

6268 

REF 

1 

E6 , 1650 

FLAGOOOW 

EQUALS 

NDXCDUW 

+ 1 

B(  DTMP 

6270 

REF 

1 

E6, 1651 

UNFC/2 

EQUALS 

FLAGOODW 

4-1 

I (6) IN 

GAP: 

L 

6271 

6272 

6273 

6274 

6275 

6276 

6277 

R627  8 

R6279 

6281 

6282 

6283 

R6284 

K6285 

R6286 

R62B7 

R6288 

R6289 

6291 

6292 

R6293 

R6294 

R6295 

R6296 

R6298 

6300 

6301 

6302 

6303 

6304 

6305 

6306 

6307 

6308 

6309 

6310 

6311 

6312 

6313 

6314 


PAGE 


141 


iSEMBL  E 

: Rl 

r V I S ION  210 

OF  , 

A GC  PROGRAM 

ERASA0 

; L t 

ASSIGNMENTS 

REF 

1 

E6 

, 1657 

REF 

1 

E6 

, 1665 

REF 

1 

E6 

, 1665 

REF 

2 

LAST  141 

E 6 

, 1667 

REF 

3 

LAST  141 

E6 

,1671 

RFF 

4 

LAST  141 

E6 

, 1673 

REF 

1 

E6 

, 1676 

DEFINED  IN 

THE 

WORK  AREA: 

0000 

0006 

0014 


END  OF  FINDCDUW  ERASABLES 


LUMINARY  BY  NASA  2021112-161  l 


UNWC/2 

EQUALS 

UNFC/2 

+ 6 

UNFV/2 

EQUALS 

UNWC/2 

+ 6 

UNFVX/2 

= 

UNFV/2 

UNFVY/2 

= 

UNFV/2 

+ 2 

UNFVZ/2 

= 

UNFV/2 

+4 

-DELGMB 

EQUALS 

UNFV/2 

+ 6 

OGAB IAS 

EQUALS 

-DELGMB 

+3 

UNX/2 

= 

0 

UNY/2 

= 

6 

UNZ/2 

= 

14 

* 

* * * 

* * * * 

* 

£ * 

***** 

* * * * * * 

* 

: 1 1 MAR.  19,1971  LUMERASF  . 176 

USER'S  PAGE  NO.  50  EO  S4 

I ( 6 > I N 
1 < 6 ) S — S 

B(  3ITMP 
B(  1 ) IN 

I 18D) 


STORAGE  FOR  P57 

0VER1AYING  KALCMANU  AND  FINDCDUW  STORAGE: 

REF  3 LAST  140  E6.1645  VEC1  EQUALS  MIS 

REF  1 E6.1653  VEC2  EQUALS  VEC1 

END  OF  P57  ERASABLES 


( 1 2D) 

I ( 6) TMP 
+ 6 K61TMP 


THE  FOLLOWING  ARE  THE  DAP  REPLACEMENTS  FOR  THE  ITEMPS  AND  RUP TR EG S , NE E DE D BECAUSE  DAP  IS  NOW  A TOB  , J AS K , J AB  , T OSK 
...ANYWAY,  THE  DAP  CAN  NUW  BE  INTERRUPTED.  (180) 


E6.1736  E6.1757 

DAPTEMP  1 

ERASE 

+ 17D 

REF 

7 

LAST 

138 

E6 , 1737 

D APT  EMP2 

EQUALS 

DAPTEMP 1 

+ 1 

REF 

8 

LAST 

141 

E 6 , 1 740 

0APTEMP3 

EQUALS 

DAPTEMP1 

+ 2 

REF 

9 

LAST 

141 

E 6 , 1 741 

DAPTEMP4 

EQUALS 

DAPTEMP1 

+ 3 

REF 

10 

LAST 

141 

E6, 1742 

UAPTEMP5 

EQUALS 

DAPTEMP1 

+4 

REF 

11 

LAST 

141 

E6 , 1743 

DAPTEMP6 

EQUALS 

D APT  EMP 1 

+ 5 

REF 

12 

LAST 

141 

E6, l 744 

DAPTREG1 

EQUALS 

DAPTEMP1 

+ 6 

REF 

3 

LAST 

138 

E6 , 1 744 

OLDSENSE 

EQUALS 

DAPTREG1 

REF 

13 

LAST 

141 

E6, 1745 

DAPTREG2 

EQUALS 

DAPTEMP1 

+ 7 

REF 

14 

LAST 

14  1 

E6 , 1746 

DAPTREG3 

EQUALS 

DAPTEMP 1 

+ 8D 

REF 

15 

LAST 

141 

E6 , l 747 

DAPTREG4 

EQUALS 

D APT  EMP 1 

+ 90 

REF 

16 

LAST 

141 

E6 , 1 750 

D APTREG5 

EQUALS 

DAPTEMP  1 

+ 10D 

REF 

17 

LAST 

14  1 

E6, 1751 

DAPTREG6 

EQUALS 

DAPTEMP  1 

+ 11D 

REF 

13 

LAST 

141 

E6 , 1752 

DAPARUPT 

EQUALS 

DAPTEMP  1 

+ 12D 

REF 

1 

E6 , 1 753 

DAPLRUPT 

EQUALS 

DAPARUPT 

+ 1 

BIIITMP  PCS  JET  CONTROL 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L ERASABLE  ASSIGNMENTS 


6315 

REF 

2 

LAST 

141 

E6, 1754 

DAPBQRPT 

EQUALS 

DAPARUPT  +2 

6316 

REF 

3 

LAST 

142 

E6 , 1756 

DAPZRUPT 

EQUALS 

DAPARUPT  +4 

A6317 

A6318 

P6319 

NEEDLEP.I  ATTITUDE  ERROR  EIGHT  BALL  DISPLAY)  STORAGE. 

632  1 

REF 

3 

LAST 

97 

006  l 

T5TEMP 

EQUALS 

I TEMPI 

6322 

REF 

3 

LAST 

97 

0063 

DINDX 

EQUALS 

I TEMP3 

6323 

E6, 1760 

E6.1762  AK 

ERASE 

+ 2 

6324 

REF 

1 

E6, 1761 

AK1 

EQUALS 

AK  +1 

6325 

REF 

2 

LAST 

142 

E6 , 1 762 

AK2 

EQUALS 

AK  +2 

6326 

E6 , 1763 

E 6 , l 765  EDRIVEX 

ERASE 

+ 2 

632  7 

REF 

1 

E6.1764 

EDRI VEY 

EQUALS 

EDRIVEX  +1 

6328 

REF 

2 

LAST 

142 

E6, 1 765 

EDRI VEZ 

EQUALS 

EDRIVEX  +2 

R6329 

DOCKED  JET 

INHIBITION  COUNTERS 

633  1 

E6, 1 766 

E6.1770  PJETCTR 

ERASE 

+ 2 

6332 

REF 

1 

E6,  1767 

UJETCTR 

EQUALS 

PJETCTR  +1 

6333 

REF 

2 

LAST 

142 

E6 , l 770 

V JET  CTR 

EQUALS 

PJETCTR  +2 

R6334 

V47 

( R 4 7 ) 

AGS 

INITIALIZA1 ION 

STORAGE  -PAD  LOADED. 

6336 

E6, 1771 

F6 , 1 772  AGSK 

ERASE 

+ 1 

R633T  WINDOW  BIAS  PADLOAD 

6339  E6 i 1 773  E6.1773  AZBIAS  ERASE 

R6340  DAP  PERMANENT  STORAGE 

6342  E6.1774  E6.1774  RCSFLAGS  ERASE 

A6343 
A6344 
A6345 
A6346 
A6347 
A 6 34  8 
A 634  9 
A6350 
A635  l 
A6352 
A6353 
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USER'S  PAGE  NO.  51  EO  S4 


(DAPZRUPT  IS  ALSO  J AS  K- 1 N-PRC1GR  ES  S FLAG) 


(60) 


NEEDIER  ATTITUDE  INPUTS,  SCALED  AT  180 
DEGREES.  P , 0 , R AXES  IN  AK,AK1,AK2. 


NEEDLER  DISPLAY  RFGS  AT  1800  DEGREES. 

SO  THAT  384  BITS  REPRESENT  42  3/16  DEG. 


I 3D) 


( 20) 

1(2)  PL 
t ID) 

BID  PL  L PD  AZIMUTH  BIAS,  UNITS  - PI  RAD 
I ID) 

AUTOP  I LOT  FLAG  WflRD 
BIT  ASSIGNMENTS: 

1)  ALTERYZ  SWITCH  (ZER0DR1) 

2)  NEEDLER  SWITCH 

3)  NEEDLER  SWITCH 

4)  NEEDLER  SWITCH 

5)  NEEDLER  SWITCH 

9)  JUST-IN-DETENT  SWITCH 

10)  PBIT  - MANUAL  CONTROL  SWITCH 

11)  ORBIT-  MANUAL  CONTROL  SWITCH 

12)  PSKIP  CONTROL  (PJUMPADR) 

13)  1 / ACC J OB  CONTROL  1ACCSET) 


GAP: 

L 

635  A 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
ERASABLE  ASSIGNMENTS 

REF  1 E6 1 1 775  END-E6  EQUALS  RCSFLAGS  +1 


1 7 : L L MAR.  19,1971  LUMERASF .176 
USER'S  PAGE  NO.  52 
NEXT  AVAILABLE  LOC  IN  E6. 


PAGE 
EO  SA 


1A3 


GAP: 


ASSEMBLE  REVISION  210  OE  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L ERASABLE  ASSIGNMENTS 


P 700  0 

EBANK-7  ASSIGNMENTS 

7001 

E7, 1400 

SETLOC 

3400 

R7002 

P35  CONSTANTS. 

-PAD  LOADED- 

7004 

E 7 , 1400 

E7,  1401 

ATIGINC 

ERASE 

+ 1 

700  5 

E7, 1402 

E7 , 1403 

PTIGINC 

ERASE 

+ 1 

R7006 

AOTMARK  STORAGE. 

-PAD  LOADED- 

7008 

E 7, 1404 

E7,  1411 

AOTAZ 

ERASE 

+ 5 

7009 

E 7, 1412 

E7,  1417 

AOTEL 

ERASE 

+ 5 

R 7 0 1 0 

LANDING  RADAR. 

-PAD  LOADED- 

7012 

E7.1420 

E7,  1420 

LRHMAX 

ERASE 

7013 
A 701  4 

E 7, 1421 

E 7 , 1421 

LRWH 

ERASE 

P 70 1 5 

THROTTLE  STORAGF. 

-PAD  LOADED- 

7017 

E7, 1422 

E7 , 1422 

ZOOMT IME 

ERASE 

R 701 8 

P63  AND  P64  CONSTANTS.  -PAD 

LOADED- 

7020 

E 7 » 1423 

E7,  1423 

TENDBRAK 

ERASE 

702  1 

E7, 1424 

E 7 , 1424 

T END APPR 

ERASE 

702  2 

E7, 1425 

E 7, 1425 

DELT  TFAP 

ERASE 

A 702  3 
7024 
A 702  5 
A7026 

E7 , 1426 

E 7 , 1426 

LEADTIME 

ERASE 

R702  7 

LANOING  RADAR 

PAD  LOAOED- 

7029 

E7, 1427 

E7, 1427 

RPCRT  IME 

ERASE 

7030 

A7031 

E7, 1430 

E7, 1430 

RPCRTQSW 

ERASE 

R7032 

ASTEER  -PAD  LOADED- 

7034 
A 703  5 

E7, 1431 

E7 , 1432 

TNEWA 

ERASE 

+ 1 

R 703  6 


P22  STORAGE 


OVERLAYS  LANDING  PADLOAOS 


17:11  MAR.  19,1971  LUMER ASE .176  PAGE 
USFR'S  PAGE  NO.  53  EO  S4 


1 44 


( 4D ) 

BI2IPL  *MUST  BE  AT  1400  FOR  SYSTEMSTEST 
R ( 2 ) P L 


( 12D) 

8( 6) PL 
B16IPL 

( 3D) 

Bill 

Bill 


( ID) 

BIDPL  TIME  OF  DPS  THROTTLE-UP  COMMAND 
( 4D ) 

BI1)  LANDING  PHASE  SWITCHING  CRITERION 
BID  LANDING  PHASE  SWITCHING  CRITERION 
B(l)  INCREMENT  ADDED  TO  TTF/8  WHEN 
SWITCHING  FROM  P63  TO  P64 
BID  TIME  INCREMENT  SPECIFYING  HOW  MUCH 
GUIDANCF  IS  PROJECTED  FORWARD. 


( 2D) 

Bill  REPOSITIONING  CRITERION  (TIMF) 
BID  REPOSITIONING  CRITERION  (ANGLE) 


(2D) 

I ( 2 ) P L LAMBERT  CYCLE  PERIOD 


( 5 D ) 


GAP: 


ASSEMBLE  REVISION  2LO  OF  AGC  PROGRAM  LUMINARY  BY  NASA  202L112-L61 
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L 

ERASABLE 

ASSIGNMENTS 

USER'S  PAGE  NO.  54  FO  S4 

7038 

REF  1 

E7, 1423 

REPOSCNT 

EQUALS  TENDBRAK 

B(1)TMP  COUNTS  NUMBFR  OF  PASSES  THROUGH 

A 7 03  9 

REPOSITION  ROUTINE. 

7040 

REF  L 

E 7 , 1424 

REPOSTM 

EQUALS  REPOSCNT 

+ 1 

I t 2 ) T M P PRESENT  TIME  PLUS  INCREMENTS  OF 

A 7 04  1 

TEN  SECONOS. 

7042 

REF  1 

E7, 1426 

OELT ATM 

EQUALS  REPOSTM 

+ 2 

I I 2 ) T MP  TIME  INTERVAL  FOR  RUNNING 

A 704  3 

DESIGNATE  TASK. 

A 7 04  4 

R7045 

***  RFTAIN  THE  ORDER  OF  DELVSLV , TIG, 

RTARG,  CELLT4  FOR  UPDATE. 

*** 

R7046 

P40S , P32-P35  P72-P75  STORAGE 

( 6D ) 

7048 

E7, 1433 

E7, 1440 

DEL VL  VC 

ERASE 

+ 5 

1(6)  DEI  TA  VELOCITY  - LOCAL  VFRTICAL  COO 

7049 

REF  1 

E7.1433 

DELVSLV 

= DELVLVC 

(TEMP  STORAGE  OF  SAME  VECTOR)  -RD IN  ATE 

A7050 

R 705  1 

P 30— P 40  INTERFACE  UNSHARED. 

(2D) 

R7053 

*******  NOTE:  TIG  IS  USED  BY 

ALL  POWERED  FLIGHT 

PROGRAMS 

R7054 

INCLUDING 

; P 12 , ABORTS,  AND 

LUNAR  LANDING. 

7055 

rr, 

E 7 , 1442 

TIG 

ERASE 

+ 1 

B ( 2 ) 

A7056 

R 705  7 

INITVEL  STORAGE:  USED  BY  P34 

,35,74,75, 

P40-42 

( 8D) 

7059 

E7 , 1443 

E7, 1450 

RTARG 

ERASE 

+ 5 

1(6)  TARGET  VECTOR 

7060 

E7 , 1451 

E 7 , 1452 

DELLT4 

ERASE 

+ 1 

1(2)  TIME  DIFFERENCE 

A 706  1 

R 706  2 

LANDING  RADAR  - R12 

(OVERLAY) 

(2D) 

7064 

REF  t 

E7, 1451 

HLROFF 

EQUALS  DELLT4 

B ( l ) , 1(2)  TMP  NO  LANDING  RADAR  UPDATES 

A 706  5 

BELOW  THIS  ALTITUDE. 

R 706  6 

CLOKTASK,  BURNBARY 

(3D) 

706  8 

E7 , 1453 

E7 , 1454 

TTOGO 

ERASE 

+ 1 

B(  2) 

7069 

E7, 1455 

E 7 , 1455 

WHICH 

ERASE 

B(l) 

A7070 

R7071 

***  R2 l #** 

( ID) 

7073 

E 7,  1456 

E 7 , 1456 

LOSCOUNT 

ERASE 

B(  1) 

A 7074 


R7075 


LSR22.3  (RNDEZVOUS  NAVIGATION)  AND 


GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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ft 


L ERASABLE  ASSIGNMENTS 


USER' S PAGE  NO.  55 


EO  S4 


R 7076 


LANDING  RADAR  — VELUPCAT  (SERVICER),  P63,  AND  R12. 


( 40) 


R 707  8 
R 7079 
R7080 
R 708  1 
R7082 
R 708  3 


*****  NOT E : 
***** 

* * **  * 

***** 

***** 

**  *** 


AOG , AMG,  AND  A I G ARE  USED  BY  LANDING  RADAR  AS  WELL  AS  RR. 
R12DL  STORES  CDUS  THERE  FOR  DOWNLINKING  ON  DE SCENT/ASCENT  DL 
MOREOVER,  TRKMKCNT  SHARES  WITH  VSELECT,  ALSO  SET  UP  RY  R12DL 
(DOWNLINKED  ON  THE  DE SCEN T / A SCENT  LIST  AS  THE 
LOW  ORDER  PART  OF  AOG  TELEMETRY  WORD) 

AND  USED  IN  SERVICER,  P63  RESTART,  AND  R12READ. 


7084 

RETAIN  THE  ORDER  OF  A I G TO 

TRKMKCNT 

FOR  DOWNLINK  PURPOSES. 

7085 

E 7 , 1457 

E 7 , 1457 

A I G 

ERASE 

B I 1 ) G UT 

G I MG AL  ANGLES 

7086 

E7 , 1460 

E7, 1460 

AMG 

ERASE 

B I DOUT 

( MUST  BE 

7087 

E7, 1461 

E7 , 1461 

AOG 

ERASE 

B(  1)0UT 

CONSECUTIVE ) 

7088 

7089 

E7 , 1462 

REF  1 £7,1462 

E 7 , 1462 

TRKMKCNT 

MARKCTR 

ERASE 

= TRKMKCNT 

B I 1 ) TMP 

TEMPORARY  MARK  STORAGE 

7090 

REF 

2 LAST  146  E7.1462 

VSELECT 

EQUALS  TRKMKCNT 

BID 

X , Y 

OR  Z 

LR 

BEAM  ASSOC  WITH  VMEAS 

7091 

P32-P35,  P72-P75  STORAGE.  - 

PERMANENT- 

( 6 ) 

7093 

E7 , 1463 

E7 , 1463 

NORMEX 

ERASE 

Bill 

PRM 

SAVE 

FOR 

Q 

7094 

L7, 1464 

E7, 1464 

OSAVED 

ERASE 

BID 

PRM 

SAVE 

FOR 

Q 

7095 

E7, 1465 

E 7 , 1465 

RTRN 

ERASE 

R(l) 

PRM 

SAVE 

FOR 

Q 

7096 

E7 , 1466 

E 7 , 1467 

NN 

ERASE  +1 

B(  2) 

7097 

E7, 1470 

E 7 , 1470 

SUBEXIT 

ERASE 

Btl) 

PRM 

SAVE 

Q 

7098 

E7, 1471 

E70VERLA 

EQUALS 

START  OF 

E 7 OVERLAYS. 

7099 

REF 

1 

E7, 1471 

WHOCARES 

EQUALS 

E70VERL  A 

DUMMY  FOR 

EBANK  INSENSITIVE  2CADRS 

7100 

LUNAR  LANDING  OVERLAYS 

( 6 D ) 

7102 

REF 

1 

E7, 1463 

/AFC/ 

EQUALS 

NORMEX 

B ( 2 ) T MP 

THROTTLE 

7103 

REF 

1 

E7, 1465 

FCODD 

EQUALS 

/AFC/ 

+ 2 

B ( 21TMP 

THROTTLE 

7104 

REF 

1 

E7 , 1467 

FP 

EQUALS 

FCODD 

+ 2 

B( 2ITMP 

THROTTLE 

A7105 


GAP: 

L 

P 7 10  fc 

A7107 

K7108 

7110 

7111 

7112 

7113 

7114 

711b 

7116 

7117 

7118 

7119 

7120 

712  1 

7122 

7123 

7 12  A 

7125 

7126 

7127 

7128 

7129 

7130 

7131 

7132 

7133 

7139 

7135 

7136 

7137 

7138 

7139 

7140 

714  1 

7142 

7143 

7144 

7145 

7146 

7147 

A7148 

R 7149 
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ERASABLE  ASSIGNMENTS  USER'S  PAGE  NO.  56  EO  S4 

*******  OVERLAY  NUMBER  0 IN  EBANK  7 ******* 


RENDEZVOUS  GUIDANCE  STORAGE  -P32....P35-  (89D) 


REF 

1 

E7, 1611 

TSTRT 

EQUALS 

DELDV 

M I DC  UURSE  START  TIME 

REF 

1 

E7 , L 57  3 

TDEC2 

EQUALS 

DELVCSI 

TEMP  STORAGE  FOR  INTEGRATION 

TIMF  INPUT 

REF 

1 

E7, 1575 

KT 

EQUALS 

DELVTPI 

TEMP  STORAGE  FOR  MIDCOURSE 

DEI TA  TIME 

E 7 , 1471 

E7 , 1476 

V ACT  1 

ERASE 

+ 5D 

VELOCITY  VECTOR  OF  ACTIVE 

AT 

CSI  TIME 

E 7, 1477 

E7, 1504 

RPASS1 

ERASE 

+ 50 

POSITION  VECTOR  OF  PASSIVE 

AT 

CSI  TIME 

F 7 , 1505 

E7, 1512 

VP ASS  1 

ERASE 

+ 5D 

VELOCITY  VECTOR  OF  PASSIVE 

AT 

CSI  TIME 

E7, 1513 

E7, 1520 

VACT2 

ERASE 

+ 5D 

VELOCITY  VECTOR  OF  ACTIVE 

AT 

CDH  TIME 

E7, 1521 

E7 , 1526 

RPASS2 

ERASE 

+ 5D 

POSITION  VECTOR  OF  PASSIVE 

AT 

CDH  TIME 

E 7, 1527 

E7 , 1534 

VPASS2 

ERASE 

+ 50 

VELOCITY  VECTOR  OF  PASSIVE 

AT 

CDH  T IME 

E7 , 1535 

E 7 , 1542 

RACT3 

ERASE 

+ 5D 

POSITION  VECTOR  OF  ACTIVE 

AT 

TP  I TIME 

E7, 1543 

E7 , 1550 

VACT3 

ERASE 

+ 5D 

VELOCITY  VECTOR  OF  ACTIVE 

AT 

TP  I TIME 

E7 , 1551 

E 7 , 1556 

RPASS3 

ERASE 

+ 5D 

POSITION  VECTOR  OF  PASSIVE 

AT 

TP  I TIME 

E7, 1557 

E7, 1564 

VPASS3 

ERASE 

+ 5D 

VELOCITY  VECTOR  OF  PASSIVE 

AT 

TP  I TIME 

E7, 1565 

E7, 1572 

VACT4 

ERASE 

+ 5D 

VELOCITY  VECTOR  OF  ACTIVE 

AT 

INTERCEPT 

REF 

1 

E 7, 1543 

UNVFC 

EQUALS 

V ACT  3 

CDHMVR  UNIT  VECTOR  TEMP  STORAGF. 

E 7 , 1573 

E7, 1574 

DELVCSI 

ERASE 

+ 1 D 

THRUST  VALUE  AT  CSI 

E7, 1575 

E7, 1576 

OELVTPI 

ERASE 

+ 1 D 

THRUST  VALUE  AT  T p I OR  MID 

E 7 , 1 577 

E7 , 1600 

DIFFALT 

ERASE 

+ ID 

ALT  DIFFERENCE  AT  CDH 

E7, 1601 

E 7 , 1602 

POST  C S I 

ERASE 

+ 1 

PERIGEE  ALTITUDE  AFTER  CSI 

MANEUVER 

E 7 , 1 603 

E7 , 1604 

POSTCDH 

ERASE 

+ 1 

PERIGEE  ALTITUDE  AFTER  CDH 

MANEUVER 

E 7, 1605 

E 7 , 1606 

POSTTPI 

ERASE 

+ 1 

PERIGEE  ALTITUDE  AFTER  TP  I 

MANEUVER 

REF 

1 

E 7 , 1605 

LOOPCT 

EQUALS 

POSTTPI 

CSI  NEWTON  ITERATION  COUNTER 

REF 

1 

E7, 1603 

H AFP  A 1 

EQUALS 

POSTCDH 

HALF  PERIOD 

E 7 , 1607 

E7, 1610 

GAMPREV 

ERASE 

+ 1 

PREVIOUS  GAMMA 

REF 

2 

LAST 

147 

E 7 , 1575 

DVPR  EV 

EQUALS 

DELVTPI 

PREVIOUS  DELVCSI 

E7 , 161 1 

E7 , 1612 

DELDV 

ERASE 

+ ID 

E7, 1613 

E7 , 1614 

CSI ALRM 

ERASE 

+ 1 

FIRST  SOLUTION  ALARM 

E7, 1615 

E7 , 1615 

VERBNOUN 

ERASE 

REF 

1 

E7, 1613 

TITER 

EQUALS 

CS  IALRM 

ITERATION  COUNTER 

E7,  1616 

E 7 , 1617 

ROOT  V 

ERASE 

+ 1 

REF 

l 

E7, 1505 

VAPREC 

EQUALS 

VPASS 1 

1(6)  S-S  PREC  VEC  FOR  NOM 

TP  I 

TIME1ACT  V 

REF 

1 

E7, 1477 

RAPREC 

EQUALS 

RPASS 1 

1(6)  S-S  PREC  VEC  FOR  NOM 

TP  I 

TIME (ACT  V 

REF 

1 

E7 , 1527 

VPPREC 

EQUALS 

VPASS2 

1(6)  S-S  PREC  VEC  FOR  NOM 

TP  I 

T IME ( PASS 

REF 

1 

E 7 , 1521 

RPPREC 

EQUALS 

RPASS2 

1(6)  S-S  PREC  VEC  FOR  NOM 

TP  I 

TIMEIPASS 

REF 

3 

LAST 

147 

E7, 1575 

DELEL 

EQUALS 

DELVTPI 

1(2)  S-S 

REF 

2 

LAST 

147 

E7, 1573 

SFCMAX 

EQUALS 

DELVCSI 

1(2)  S-S  MAX  STOP  SIZE  FOR 

ROUT INE 

REF 

2 

LAST 

14  7 

E 7 , 1605 

OELTEEO 

EQUALS 

POSTTPI 

1(2)  S-S  BACK  VALUES  OF  DELTA 

TIME 

E7 , 1620 

E7,  1621 

CENTANG 

ERASE 

+ 1 

1(2)  S-S  CENTRAL  ANGLE  COVERED ( TP  I-TPF ) 

SOME  P47  STORAGE 


( 6D) 
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L 

ERASABLE 

ASSIGNMENTS 

USER'S  PAGE  NO.  57  EO  S4 

715  1 
A 7 152 

E 7 , 1622 

E7, 1627 

DEL V IMU 

ERASE 

+ 5 

I ( 6 ) D SP  N83  FOR  P47  DELTA  V IN  BODY  COOR 

R 71 53 

P34— 3 5-40— 4 1—42  INTERFACE 

( 20) 

7155 
A 7 1 5 6 

E7 , 1630 

E7,  1631 

TPASS4 

ERASE 

+ 1 

INTERCEPT  TIME 

R 7 1 5 7 

P30— P40— 4 1-42  COMMON 

STORAGE 

( ID) 

7159 

E7, 1632 

E7 , 1632 

QTEMP 

ERASE 

I1DTMP  COMMON  RETURN  SAVE  REGISTER. 

A 7 16  0 
R 7 16  1 

P32,33,34  STORAGE. 

( 6D) 

7163 

E7, 1633 

E7, 1634 

TCS I 

ERASE 

+ 1 

B { 2 ) TMP  CSI  TIME  IN  CENTISECONDS 

7164 

E7 , 1635 

E7 , 1636 

TTPI 

ERASE 

+ 1 

B ( 2 ) TMP  TPI  TIME  IN  CENTISECONDS 

7165 

E7, 1637 

£7,1640 

r tp  i o 

ERASE 

+ 1 

8(21  TMP  TTPI  STORAGE  FOR  RECYCLE 

R 7 16  6 

P 30 , P 40  INTERFACE. 

( 2 OD ) 

7168 

E7, 1641 

E7 , 1664 

RTIG 

ERASE 

+ 19D 

I ( 6 ) TMP 

7169 

REF 

l 

E 7 , 1647 

VTIG 

EQUALS 

RTIG 

+ 6 

I (6ITMP 

7170 

REF 

1 

E 7 , 1655 

DELVS  IN 

EQUALS 

VTIG 

+6 

I (6ITMP 

717  1 

REF 

1 

E7, 1663 

DELVSAB 

EQUALS 

DELVS  IN 

+ 6 

I I 21TMP 

7172 

REF 

1 

E 7 , 1663 

VGDI SP 

= 

DELVSAB 

R 7 17  3 

P40-P42  TEMPORARY 

(ID) 

717  5 
A 7 1 7 6 

E 7 , 1665 

E 7 , 1665 

QTEMP1 

ERASE 

I ( 1 )TMP  HOLDS  RETURN. 

R 7 17  7 

R52  TEMPORARY 

(ID) 

7179 

REF 

L 

E7 , 1665 

SAVQR52 

EQUALS 

QTEMP  1 

R71 

INITVEL  STORAGE.  (IN 

OVERLAY 

0 AND  OVERLAY  1. 

( 2D) 

R 7 182 

(CALLS  LAMBERT 

, CONIC 

SUBROUT  INES ) 

711 

REF 

1 

E 7 , 1 565 

VTPR  IME 

EQUALS 

VACT4 

TOTAL  VFLOCITY  AT  DESIRED  RADIUS 

7184 

REF 

1 

E7 , 1616 

I TCTR 

EQUALS 

ROOT  V 

ITERATION  COUNTER 

7185 

E 7 , 1666 

E7 , 1667 

C0ZY4 

ERAS  E 

+ 1 

COS  OF  ANGLF  WHEN  ROTATION  STARTS 

7186 
A 7 18  7 

REF 

1 

E 7 , 1607 

INTIME 

EQUALS 

GAMPREV 

TIME  OF  RINIT 
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R 718  8 

PER1AP0  STORAGE.  (20) 

I 20) 

7190 

E 7 , 1670 

E7 , 1671 

XXXALT 

ERASE 

+ 1 

RADIUS  TO  LAUNCH  PAD  OR  LANDING  SIGHT 

R 7 19 1 

S90.1  STORAGE. 

(120) 

7193 

E7, 1672 

E7,  1705 

UT 

ERASE 

+ 110 

1(6)  THRUST  DIRECTION 

7199 

REF 

1 

E7, 1 700 

VGTIG 

EQUALS 

UT 

+ 6 

I ( 6I0UT 

7195 

REF 

1 

E7, 1700 

VGPREV 

= 

VGTIG 

R 7 196 

ASTEER 

STORAGE. 

( 220) 

7198 

E7, 1 706 

E 7 , 1733 

VG 

ERASE 

+ 21D 

1(6) 

7199 

REF 

1 

£7,1719 

RMAG 

EQUALS 

VG 

+ 6 

I ( 2) 

720  0 

REF 

1 

E 7 , 1716 

MUASTEER 

EQUALS 

RMAG 

+ 2 

1(2) 

7201 

REF 

1 

E 7 , 1720 

MU/A 

EQUALS 

MUASTEER 

+ 2 

1(2) 

7202 

REF 

1 

E7, 1 722 

RTMAG 

EQUALS 

MU/A 

+ 2 

1(2) 

7203 

REF 

1 

E7 , 1729 

R 1C 

EQUALS 

RTMAG 

+ 2 

1(6) 

7209 

REF 

1 

E7, 1732 

SS 

EQUALS 

R 1 C 

+ 6 

1(2) 

R7205 

ASTEER 

(110) 

7207 

REF 

2 

LAST  198 

E 7 , 1655 

IC 

= 

DELVSIN 

1(6)  CHORD  VECTOR:  RTARG  VEC  - POS  VEC 

7208 

REF 

1 

E7 , 1762 

TIGSAVE 

= 

P21TIME 

1(2)  US  EO  TO  DETERMINE  WHEN  YOU 

7209 

REF 

1 

E7 , 1769 

T IGSAVEP 

= 

SC AX  I S 

1(2)  WANT  TO  00  ASTEER  NEXT 

7210 

REF 

2 

LAST  199 

E 7 , 1766 

MUSCALE 

= 

SCAXIS  + 2 

1(1)  HOLDS  INDEX  VALUE 

R721  1 

R7212 

P90  STORAGE 

• 

( 80) 

R7219 

F .MOOT 

, AND  TOECAY  MUST  BE 

CONTIGUOUS  FOR  VLOAO. 

7215 

E7 , 1739 

E 7 , 179  L 

F 

ERASE 

+ 5 

I ( 2 ) T M P THRUST  MAG  10**9  NFWTONS  (B-7) 

7216 

REF 

1 

E7 , 1 736 

MOOT 

EQUALS 

F 

+ 2 

I ( 2 ) TMP  MASS  CHNG  RATE,  KG/CS  AT  2**3. 

7217 

REF 

1 

E7 , 1790 

TOECAY 

EQUALS 

MOOT 

+ 2 

I(2)IN  DELTA-T  TAILOFF,  (2**28)CS. 

7218 
A 7?  1 9 

E7, 1792 

E 7 , 1793 

VEX 

ERASE 

+ 1 

1(2)  EXHAUST  VELOCITY  FOR  T GO  COMPUTAT'N 

R7220 

MIDT0AV112)  STORAGE. 

(CALLED 

BY  P90  , P 9 1 , P92  ) 

(ID) 

7222 

A7223 

E 7,  1 799 

E 7, 1799 

I RETURN  1 ERASE 

8(1) 

RETURN  FROM  MIDT0AV1  AND  2 

GAP:  ASSEMBLE  REVISION  210  OH  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L ERASABLE  ASSIGNMENTS 

P7224  *******  OVERLAY  NUMBER  1 IN  E3ANK  7 ******* 

A 722  5 


R 722  6 

INITVEL 

(CALLED  BY  P34.35, 

. 38,39, 10, 11  . 

, S40 . 9 , S40 . 1 ) 

7228 
A 722  9 

REF 

1 

E 7, 1471 

RTARG1 

EQUALS  V ACT  1 

R7230 

P35-P40  INTERFACE. 

723  2 

REF 

2 LAST  147 

E7, 1505 

VPASS4 

EQUALS  VP  ASS  1 

R7233 

LAT  - 

LONG 

TEMPORARIES. 

CAN  OVERLAY  WITH 

S40 . 1 

7235 

REF 

2 LAST 

149 

E7, 1672 

ERAOM 

EQUALS 

UT 

723  6 

REF 

1 

E 7 , 1674 

INCORPEX 

EQUALS 

ERAOM 

+ 

R7237 

LRS24.1  STORAGE.  (CAN  SHARE 

WITH  P30'S) 

7239 

REF 

1 

E7, 1675 

RLMSRCH 

EQUALS 

INCORPEX 

-f 

7240 

REF 

1 

E 7 , 1703 

VXRCM 

EQUALS 

RLMSRCH 

+ 

7241 

REF 

1 

E7.1711 

LOSDESRD 

EQUALS 

VXRCM 

+ 

7242 

REF 

1 

E7 , 1717 

UXVECT 

EQUALS 

LOSOESRO 

+ 

7243 

REF 

1 

E7,  1725 

UYVECT 

EQUALS 

UXVECT 

+ 

7244 

REF 

1 

E7, 1733 

OATAGOOD 

EQUALS 

UYVECT 

+ 

724  5 

REF 

1 

E7 , l 734 

OMEGOISP 

EQUALS 

OATAGOOD 

+ 

7246 

REF 

1 

E7 , 1734 

OMEGAO 

= 

OMEGOISP 

7247 

REF 

2 

LAST  150  E7, 1 736 

NSRCHPNT 

EQUALS 

OMEGOISP 

+ 

7248 

REF 

1 

E7, l 737 

SAVLEMV 

EQUALS 

NSRCHPNT 

♦ 

A 724  V 


2 

l 

6 

6 

6 

6 

6 

1 

2 

1 
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(60) 

I ( 6 ) S TEMP  STORAGE  OF  RTARG 


(60) 

I ( 6 > T MP  VELOCITY  OF  PASSIVF  AT  INTERCEPT 


(30) 

I (2) 
1(1) 


(400) 

1(6)  TMP  LM  POSITION  VECTOR 
1(6)  CM  V X R VFCTOR 

1(6)  DE  SIREO  LOS  VECTOR 

1(6)  X-AXIS  SRCH  PATTFRN  COOROS 

1(6)  Y-AXIS  SRCH  PATTERN  COORDS 

B ( 1 ) DSP  FOR  R l — ALL  1-S  WHEN  LOCKON 
B ( 2 ) ANGLF  OMEGA  DISPLAYED  IN  R2 
PINBALL  DEFINITION. 

B(1)TMP  SEARCH  PATTERN  POINT  COUNTER. 
1(6)  S-S  SAVFS  LOSVEL 
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P7250  *******  OVERLAY  NUMBER  2 IN  EBANK  7 ******* 

A7251 


17:11  MAR.  19,1971 
USER'S  PAGE 


LUMEP  ASE .176 
NO.  60 


PAGE 
EO  S4 


151 


R7252 


INCORP  STORAGE  IN  E7. 


(470) 


7254 

REF 

2 

LAST 

146  E7.1471 

TX789 

EQUALS 

E70VERL A 

1(6) 

7255 

REF 

1 

E 7 , 1477 

GAMMA 

EQUALS 

T X789 

+ 6 

1(3) 

7256 

REF 

1 

E7, 1502 

OMEGA 

EQUALS 

GAMMA 

+ 3 

1(18) 

7257 

REF 

1 

E7, 1524 

BVECTOR 

EQUALS 

OMEGA 

+ 180 

1(18) 

7258 

REF 

1 

E7 , 1546 

OELTAQ 

EQUALS 

BVECTOR 

+ 180 

1(2) 

R7259 

AOTMARK  STORAGE 

( 3D) 

726  l 

REF 

1 

E7, 1550 

WHATMARK 

EQUALS 

DELTAQ 

+ 2 

B ( 1 ) T M P 

SIGHTING  TECHNIQUE  OE  TERM  I NA 

7262 

REF 

1 

E7, 1551 

X YMARK 

EQUALS 

WHATMARK 

+ 1 

B ( 1ITMP 

MARK  IDENTIFICATION  REGISTER 

7263 

REF 

1 

E7, 1552 

MKDEX 

EQUALS 

X YMARK 

+ 1 

B ( 1 ) T MP 

INDEX  FOR  AOTMARK 

A 7264 

R72643 

P50S, 

AOTMARK 

(140) 

72646 

REF 

2 

LAST 

151  F 7 , 1 524 

XPLANE 

EQUALS 

BVECTOR 

I ( 6 )T  MP 

MARK  PLANE 

72647 

REF 

l 

E7 , 1532 

YPLANE 

EQUALS 

XPLANE 

+ 6 

I (61TMP 

MARK  PLANE 

7264  £ 

REE 

2 

LAST 

149  E7.1762 

XMKCNTR 

EQUALS 

P 2 IT  I ME 

B ( l)  X 

SIGHTING  MK  CNTR 

72649 

REF 

3 

LAST 

151  E7 , 1763 

YMKCNTR 

EQUALS 

P 2 1 T I ME 

+ 1 

6(1)  Y 

SIGHTING  MK  CNTR 

R 726  5 

PLANET  STORAGE. 

( 80) 

7267 

REF 

1 E 7 , 1553 

PLANVEC 

EQUALS 

MKDEX 

+ 1 

(6) 

REFER  VECTOR 

OF 

PLANET 

7268 
A 726  9 

REF 

l E 7 , 156  1 

T SIGHT 

EQUALS 

PLANVEC 

+ 6 

(2  ) 

T IME  OF  MARK 

OR 

EST  T T 

R72691 

AOTMARK 

STORAGE 

( 15D) 

72693 

REF 

1 

E7, 1563 

THETEST 

EQUALS 

TSIGHT 

+ 2 

I ( 2 ) T MP 

STAR 

VECTOR 

COMPUTATION 

TMP 

72694 

REF 

1 

E7, 1565 

ESTER  1 

EQUALS 

THETEST 

+ 2 

I ( 2) TMP 

STAR 

VECTOR 

COMPUT  ATI  ON 

TMP 

72695 

REF 

1 

E 7,  1567 

ESTER2 

EQUALS 

ESTER1 

+ 2 

I ( 2) TMP 

STAR 

VECTOR 

COMPUTATION 

TMP 

72696 

REF 

1 

E 7 , 1571 

OELTHET 

EQUALS 

ESTER2 

+ 2 

I ( 2) TMP 

STAR 

VEC  TOR 

COMPUTATION 

TMP 

72697 

REF 

1 

E 7, 1573 

NOMKCNT 

EQUALS 

DELTHET 

+2 

B ( 1 ) T MP 

MARK 

SET  REJECT  CTR 

72698 

REF 

1 

E 7, 1574 

BODY 

EQUALS 

NOMKCNT 

+ 1 

I ( 6) TMP 

STAR 

VEC  IN 

NAV  BASE  COOR 

R7270 

LRS22 . 

.3 

STOR 

AGE.  (CAN  SHARE 

WITH  P30 ' S 

AND  OVERLAY  LRS24 

. 1 

( 30D ) . 

7272 

REF 

2 

LAST 

150 

E 7 , 1675 

LGRET 

EQUALS 

RLMSRCH 

1(1)  TMP 

7273 

REF 

1 

E 7,1675 

RDRET 

EQUALS 

LGRET 

BID  TEMP 

RETURN. 

7274 

REF 

2 

LAST 

15  1 

E7 , 1675 

IGRET 

EQUALS 

LGRET 

B ( 1 ) TEMP 

RFTURN . 

7275 

REF 

1 

E 7 , 1676 

MX 

EQUALS 

RDRET 

+ 1 

I (6) 

7276 

REF 

1 

E7 , 1704 

MY 

EQUALS 

MX  +6 

1(6) 

7277 

REF 

1 

E 7 , 1712 

MZ 

EQUALS 

MY  +6 

1(6) 

7278 

REF 

1 

E 7 , 1720 

SCALSHFT 

EQUALS 

MZ 

+ 6 

B(l)  SCALE 

SHIFT  FOR 

EARTH/MOON 

152 
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7279 

REF 

1 

E7, 1721 

RXZ 

EQUALS 

SCALSHFT 

+ 1 

1(2) 

7280 

RFF 

1 

E7, 1 723 

ULC 

EQUALS 

RXZ 

+ 2 

1(6) 

728  l 

REF 

1 

E7, 1 731 

S INTHETA 

EQUALS 

ULC 

+ 6 

1(2) 

R 728  2 

*****  in  OVERLAY  ONE  ***** 

R 7283 

R22  / NOUN  49  DISPLAY 

7 284 

REF 

1 

E7,  1746 

N49FLAG 

EQUALS 

RDOTMSAV 

BIDS 

FLAG  INDICATING  V0649  RESPON 

A 728  5 

R 728  6 

LRS22.1  STORAGE.  (MUST  NOT 

SHARE  WITH  P30'S) 

( 13D) 

R 728  8 

(OUTPUTS  ARE  TO  LRS22.3) 

7289 

REF 

1 

E7 i 1 733 

RRTRUN 

EQUALS 

S INTHETA 

*2 

8(  2) OUT 

RR  TRUNION  ANGLE 

7290 

REF 

1 

£7,1735 

RRSHAFT 

EQUALS 

RRTRUN 

+ 2 

B ( 2 ) OUT 

RRSHAFT  ANGLE 

729  l 

REF 

1 

E7, 1737 

LRS22.  IX 

EQUALS 

RRSHAFT 

+ 2 

B ( 1ITMP 

7292 

REF 

1 

E 7 » 1 740 

RRBORS  IT 

EQUALS 

LRS22 . IX 

+ 1 

1(6)  TMP 

RADAR  BORESIGHT  VFCTOR. 

7293 

REF 

1 

E7, 1 746 

RDOTMSAV 

EQUALS 

RRBORSIT 

+ 6 

B(  2)  S 

RR  RANGE-RATE ( FPS) 

A7294 

R 729  5 

LRS22.1  (SAME  AS  PREVIOUS 

SECTION)  ALSO 

I DOWNLINK  FOR  RR  (R291 

1 ( 100) 

CANNOT  SHARE  WITH  L.A.D. 

R 729  7 

NOTE:  MKTIME  IS  USED  BY  LANDING  AS  WELL 

AS  REND  RADAR. 

7298 

REF 

2 

LAST  152  E7.1750 

R DOT  M 

EQUALS 

RDOTMSAV 

+ 2 

B( 2IUUT 

RANGF-RATE  READING 

7299 

REF 

1 

E7, 1752 

TANGNB 

EQU4LS 

RDOTM 

+ 2 

B ( 2 ) T MP 

RR  GIMBAL  ANGLES 

R 730  0 

RETAIN  THE  ORDER  flF  MKTIME 

TO  RM  FOR  DOWNLINK  PURPOSES 

730  1 

REF 

1 

E 7 * 1 754 

MKTIME 

EQUALS 

T ANGNB 

+ 2 

B 1 2 ) TIMF  OF  RADAR  READING  (RR  AND  LR 

7302 

REF 

L 

F7, 1 756 

RM 

EQUALS 

MKTIME 

+ 2 

I ( 2 )OUT 

RANGE  READING 

7303 

REF 

1 

E7, 1 760 

R ANGR  DOT 

EQUALS 

RM 

+ 2 

B ( 2 ) DOWNLINKFD  RAW  RANGE  AND  RR  ATE 

A 730  A 

R 730  5 

LANDING  OVERLAY 

( ID) 

730  7 

REF 

2 

LAST  152  E7.1750 

THRO  I SP 

EQUALS 

RDOTM 

BIl)  PERCENT  OF  FTP  I 10,500  LBS. 

7308 

REF 

2 

LAST  152  E 7, 1752 

GTC  T 1 ME 

EQUALS 

TANGNB 

B l 2 ) STATE  VECTOR  TIME  CORRESPONDING 

A 7309 
R7310 

TO  FP  — GUIDANCF  THRUST  COMMAND 

R731  1 

R61LFM  - PREFERRED 

TRACKING  ATTITUDE  RUU  TINE 

** I N OVERLAY 

ONE* 

R 7 31  2 

(CALLED  BY 

P20,R22LEM,LSR22.3) 

(ID) 

7314 

REF 

2 

LAST  152  E7, 1 745 

R65CNTR 

EQUALS 

RRBORSIT  +5 

B ( 1 ) S S COUNT  NUMBER  OF  TIMES  PRFFERR 

A 7 3 1 5 
A 73 1 6 

TRACKING  ROUTINE  IS  TO  CYCLE 

R 73 1 7 

P21  STORAGE 

(2D) 
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7319 

A7320 

REF 

1 

E 7 , 1762 

P21T I ME 

EQUALS 

R ANGRDOT 

+ 2 

R 732  1 

INPUTS 

TO 

VECPO I NT . CALLED 

BY  R60-65  ( ATT ITUOE 

MANEUVERS 

) 

7323 

REF 

4 

LAST 

151 

E7 , 1 764 

SCAX  IS 

EQUALS 

P2 IT  I ME 

+ 2 

7324 
A 732  5 

REF 

3 

LAST 

149 

E7, 1772 

POINTVSM 

EQUALS 

SCAXI S 

+ 6 

L 7 : 1 1 MAR.  19,1971  LUMERASE . 176  PAGE 
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I ( 2ITMP 

( 120) 

1(6) 

1(6) 


153 
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P 7 32  6 

OVERLAY  NUMBER  3 IN 

EBANK 

7 ******* 

A7327 

R 7 32  6 

SERVICER  STORAGE 

7330 

REF 

3 

LAST  151  E 7 , 1471 

ABVEL 

EQUALS 

E70VERLA 

733  l 

REF 

I 

E7, 1473 

HOOT  D ISP 

EQUALS 

ABVEL 

+ 2 

7332 

REF 

1 

F7, 1475 

r TFD ISP 

EQUALS 

HOOTDISP 

+ 2 

A 7333 

R 733  A 

ASCENT  GUIDANCE  FOR 

LUNAR 

LANDING 

7336 

REF 

2 

LAST  154  E 7 , 1 473 

R DOT 

EQUALS 

HDOTD ISP 

R7337 

BURN  PROG  STORAGE. 

7339 

REF 

1 

E7, 1477 

SAVET-30 

EQUALS 

TTFDISP 

+ 2 

A 7340 

R734I 

SERVICER  STORAGE  . 

7343 

REF 

1 

F 7 , 1501 

VGBODY 

EQUALS 

S AVET-30 

+ 2 

7344 

REF 

1 

E 7, 1501 

DELVCTL 

= 

VGBODY 

7345 

REF 

2 

LAST  154 

E 7, 1 507 

DVTOTAL 

EQUALS 

VGBODY 

+ 6 

734  6 

REF 

1 

F7, l 51 1 

GOBL  TIME 

EQUALS 

DVTOTAL 

+ 2 

734  7 

REF 

1 

E7, 1513 

A BOVCONV 

EQUALS 

GOBLT IME 

+ 2 

7348 

REF 

1 

E 7,  1 515 

DVCN  TR 

EQUALS 

ABDVCONV 

+ 2 

7349 

REF 

1 

E 7 , 1516 

T GO 

EQUALS 

DVCNTR 

+ 1 

7350 

REF 

1 

E7, 1520 

R 

EQUALS 

T GO 

+ 2 

735  1 

REF 

1 

E 7 , 1520 

UNIT  GOBL 

EQUALS 

R 

7352 

REF 

2 

LAST  154 

E 7 , 1526 

V 

EQUALS 

R 

+ 6 

7353 

REF 

1 

E7, 1526 

DELVREF 

EQUALS 

V 

7354 

REF 

1 

E7, 1534 

HCALC 

EQUALS 

DELVREF 

+ 6 

7355 

REF 

1 

E 7 , 1536 

UNIT/R/ 

FQUALS 

HCALC 

+ 2 

R7356 

(THE 

FOLLOWING  SERVICER 

ERASABLES 

CAN  BE  SHARED 

WITH 

7358 

REF 

1 

E7, 1544 

RN1 

FQUALS 

UNIT/R/ 

+■  6 

7359 

REF 

1 

E 7 , 1552 

VN1 

EQUALS 

RN1 

+ 6 

7360 

REF 

1 

E7,  1 560 

P IPT IME  1 

EQUALS 

V N 1 

+ 6 

7 361 

REF 

1 

E7.1562 

GOT 1 / 2 

EQUALS 

PIPTIMF1 

+2 

7362 

REF 

1 

E7, 1570 

MASS  1 

EQUALS 

GOT  1/2 

+ 6 

7363 

REF 

l 

E 7 , 1570 

DVCN  TR 1 

EQUALS 

MASS  1 

7364 

REF 

2 

LAST  154 

£7,1572 

R1S 

EQUALS 

MASS  1 

+ 2 

7365 

REF 

1 

E 7 , 1600 

VIS 

EQUALS 

R1S 

+ 6 

R7366 

P71  RESTART 

PROTECTION 
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(60) 

B ( 2 ) DISPLAY 
B( 2)  DISPLAY 
B I 2 ) DISPLAY 

I 2D) 

1(2) 


I 2D) 

B ( 2 ) TMP  TIG-30  RESTART 


I 69D ) 


B I 6 ) 0 UT  SET. BY  S41.1  VG  LEM,  SC. COORDS 
B I 2 ) DISPLAY  NOUN 

B 1 2 ) NOMINAL  TIG  FOR  CALC.  OF  GOBLATE. 
1(2) 

8(1) 

B ( 2 ) 

1(6) 

1(6) 

1(6) 

B ( 2 ) LR 

I ( 6) 

SECOND  DPS  GUIDANCF  STORAGE) 


B(  6) 

1(6) 

( IN  ORDER 

8(2) 

( FOR 

1(6) 

( COPY 

1(2) 

( CYCLE 

B ( DTMP 

RESTART  REG  FOR  DVCNTR 

1(6) 

1(6) 

) 

) 

) 

) 


(2D) 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  202UL2-L61 

L ERASABLE  ASSIGNMENTS 


7368 

REF 

3 

LAST 

154 

E7, 1501 

T G01 

EQUALS 

VGBODY 

R 736  9 

ALIGNMENT/S40.2.3  COMMON 

STORAGE. 

7371 

REF 

1 

E7, 1606 

X SMO 

FOUALS 

VIS 

+ 6 

7372 

REF 

2 

LAST 

1 

E 7 , 1614 

YSMO 

EQUALS 

X SMD 

+ 6 

7373 

REF 

1 

E7, 1622 

ZSMD 

EQUALS 

YSMD 

+ 6 

7374 

REF 

3 

LAST 

155 

E 7 , 1606 

X SCR  EF 

= 

X SMD 

7375 

REF 

2 

LAST 

155 

E 7,  1614 

Y SCR  E F 

= 

YSMD 

7376 

REF 

1 

E 7 , 1622 

Z SCR  E F 

- 

ZSMD 

7377 

REF 

2 

LAST 

155 

E 7 , 1630 

END-AL  IG 

EQUALS 

ZSMD 

+ 6 

R737B 

P22  **** 

7380 

REF 

1 

E 7 , 1630 

RSUBL 

EQUALS 

END-ALIG 

7 30  l 

REF 

1 

E 7, 1636 

UCSM 

EQUALS 

RSUBL 

+6 

7382 

REF 

l 

E 7 , 1 644 

NEWVEL 

EQUALS 

UCSM 

+6 

738  3 

REF 

1 

E7, 1652 

NEWPOS 

EQUALS 

NEWVEL 

+ 6 

7384 

REF 

1 

E 7 , 1660 

LNCHTM 

EQUALS 

NEWPOS 

+ 6 

7385 

REF 

1 

E7 , 1662 

TRAN  STM 

EQUALS 

LNCHTM 

+ 2 

7386 
A 738  7 

REF 

1 

E7, 1664 

NCSMVEL 

EQUALS 

TRANSTM 

+ 2 

R 738  8 

P 2 1 

7390 

REF 

1 

1 162 

P210RIG 

= 

DISPDEX 

739  1 

REF 

3 

LAST 

151 

E 7 , 1675 

P21BASER 

EQUALS 

RLMSRCH 

7392 

REF 

1 

E 7, 1703 

P21BASEV 

EQUALS 

P2 1 BASER 

+ 6 

7393 

REF 

1 

E7, 1 71 1 

P21VEL 

EQUALS 

P21BASEV 

+ 6 

7394 

REF 

1 

E7, 1713 

P21GAM 

EQUALS 

P21VEL 

+ 2 

7395 
A 7396 

REF 

1 

E7, 1 715 

P21ALT 

EQUALS 

P21GAM 

+ 2 
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B ( 2 ) T MP 


( 18D) 

1(6) 

1(6) 

1(6) 


NEXT  AVAIL  ERASABLE  AFTER  AL  IGN /S 40 . 2 , 3 


( 34D ) 

I ( 6 ) S-S 
l ( 6 ) S-S 
I (61S-S 
I (6IS-S 
I ( 2) S-S 
I ( 21S-S 
I ( 6) S-S 

LM  POSITION  VECTOR 
VECTOR  U 

TERMINAL  VELOCITY  VECTOR 
TERMINAL  POSITION  VECTOR 
EST.  LAUNCH  TIME  FOR  LEM 
TRANSFER  TIMF 
NEW  CSM  VELOCITY 

( 18D) 

I ( 61TMP 
I ( 61TMP 
I ( 2 ) T MP 
I ( 2 ) T M P 
I ( 21TMP 

***  NOUN  91  *** 
***  NOUN  91  *4* 
***  NOUN  91  *** 

GAP: 

ASSEMBLE 

REVISION  210 

OF  A GC  PROGRAM 

LUMINARY  BY  NASA  2021112-161 

17:11  MAR. 

19,1971  LUMER ASE .176 

PAGE 

L 

ERASABLE  ASSIGNMENTS 

USER'S  PAGE  NO.  65 

EO  $4 

P 739  r 

*******  OVERLAY  NUMBER  4 IN  E8ANK 

7 * 

A 7398 

R7399 

VARIABLES  FOR  SECOND 

DPS  GUIDANCE 

(THE  LUNAR  LANDING) 

( 800) 

R7401 

THESE 

ERASABLF  S MAY 

BE  SHARED  WITH 

CARE 

7402 

REF 

2 LAST  154 

E 7 1 l 544 

ourtemps 

= 

RNl 

OVERLAY 

LAST  PART  OF  SERVICER 

7 AO  3 

REF 

1 

E 7 1 1544 

LANDTEMP 

= 

OURTEMPS 

B1  6) 

GUIDANCE 

7404 

REF 

1 

E7, 1552 

TTF/8TMP 

= 

LANDTEMP 

+ 6 

B ( 2 ) 

GUIDANCE 

740  5 

REF 

1 

E7,  1554 

FLINCR 

= 

TTF/8TMP 

+ 2 

B ( 2 ) 

GUIDANCE 

7406 

REF 

1 

E7, 1556 

AZINCR 

= 

ELINCR 

+ 2 

B(  2) 

GUIDANCE 

740  7 

REF 

1 

E7, 1560 

KEEP-2 

= 

AZINCR 

+ 2 

B(  2) 

TO  PREVENT  PIPTIME1  OVFRLAY 

7408 

REF 

1 

E7, 1562 

TABLTTF 

= 

KEEP-2 

+2 

B ( 2 ) 

GUIDANCE 

7409 

REF 

1 

E7, 1573 

TPIPOLD 

= 

TABLTTF 

+ 9D 

B ( 2 ) 

GUIDANCE 

7410 
R 741  1 

REF 

1 

E7, 1621 

E2DPS 

EQUALS 

OURPERMS 

R 741  2 
A7413 

THESE 

ERASABLES  MUST 

NOT  OVERLAY 

GOBLTIME  UR  SERVICER 

7414 

REF 

4 LAST  155 

E 7 , 1606 

PIFPSET  = 

X SMD 

Bill 

THROTTLE 

7415 

REF 

1 

E 7 , 1607 

RTNHOLD  = 

PIFPSET 

+ 1 

B(  1) 

THROTTLE 

7416 

REF 

1 

E 7 , 1 6 1 0 

FWEIGHT  = 

RTNHOLD 

+ 1 

81  2) 

THROTTLE 

7417 

REF 

1 

E 7,  1612 

P IF 

FWEIGHT 

+ 2 

B(  2) 

throttle 

7418 

REF 

1 

E 7 , 1614 

P SEUD055  = 

P IF 

+ 2 

B<  1) 

THROTTLE  DOWNL INK 

7419 

REF 

1 

E7, 1615 

FC 

P SEUD055 

+ 1 

B(  2) 

THROTTLE 

742  0 

REF 

1 

E7, 1617 

TTHROT 

FC 

+ 2 

B(  1) 

THROTTLE 

7421 

A7422 

REF 

1 

E7, 1620 

FCOLD 

TTHROT 

+ 1 

B(  1) 

THROTTLE 

R7423 

THESE 

ERASABLES  SHOULD  NOT  BE 

SHARED  DURING  P63, 

P64 , P65 , P66,  P67 

742  4 

REF 

1 

E7,  1621 

OURPERMS 

= FCOLD 

+ 1 

MUSTN 

•T  OVERLAY  OURTEMPS  OR  SERVICER 

742  5 

REF 

2 

LAST  156 

E7 , 1621 

WCHPHOLD 

= OURPERMS 

BID 

GUIDANCE 

7426 

REF 

1 

E7,  1622 

5 1 1CTR 

= WCHPHOLD 

+ 1 

B(  1) 

R 12  - CONTROLS  511  ALARM 

742  7 

REF 

1 

E7, 1623 

F L PA  S SO 

= 5 1 1CTR  +1 

B(  1) 

GUIDANCE 

742  8 

REE 

1 

E7,  1623 

CNTTHROT 

EQUALS  FLPASSO 

B(l) 

CNT  THROTS  BETWEEN  OMISSIONS  OF 

7429 

REF 

2 

LAST  156 

E 7 , 1624 

TPIP 

= FLPASSO 

+ 1 

B(  2) 

743  0 

REF 

1 

E7, 1626 

VGU 

= TPIP 

+ 2 

B ( 6 ) 

GU  I DANCE 

743  1 

REF 

1 

F7 , 1634 

LAND 

= VGU 

+ 6 

B 16) 

GUIDANCE  CONTIGUOUS 

743  2 

REF 

1 

E7, 1642 

TTF/8 

= LAND 

+ 6 

B ( 2 ) 

GUIDANCE  CONTIGUOUS 

743  3 

REF 

1 

E7 , 1644 

AZINCR1 

= TTF/8 

+ 2 

B<  1) 

REDESIGNATOR 

7434 

REF 

1 

E7 , 1645 

EL  INCR1 

= AZINCR1 

+ 1 

B ( 1 ) 

REDES  IGNATOR 

7435 

REF 

1 

E 7 , 1646 

ZERL INA 

= ELINCR1 

+ 1 

B(  l) 

PEDES IGNATOR 

7436 

REF 

1 

E7, 1647 

ELVIRA 

= ZERLINA 

+ 1 

BID 

REDESIGNATOR 

743  7 

REE 

1 

E 7 , 1650 

LRPOS 

= ELVIRA 

+ 1 

BID 

LAST  LR  ANTENNA  POSITION 

A 743  8 

A 743 

**  NOTE: 

GAP  OF  1 SP  LOCATION 

HERE  IN 

THIS  P63  THRU  P66  OVERLAY  ** 

GAP: 

► L 
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7440 

REF 

l 

E 7 > 1652 

VMEAS 

= 

LRPOS 

+ 2 

B t 2 ) 

LR  VELOCITY  READ  BY  REAM  X,  Y OR  Z. 

744  1 

REF 

1 

E7, 1654 

HMEAS 

= 

VMEAS 

+ 2 

B!  2) 

LR 

7442 

REF 

1 

E7, 1656 

VN2 

= 

HMEAS 

+ 2 

B(  6) 

LR 

7443 

REF 

1 

E7, 1656 

GNUR 

= 

VN2 

B ( 6 ) 

LR 

7444 

REF 

2 

LAST 

157 

E7 , 1656 

GNUV 

= 

VN2 

B ( 6 ) 

LR 

744  5 

REF 

3 

LAST 

157 

E7, 1664 

DELTAH 

= 

VN2 

+ 6 

B(  2) 

DISPLAY 

7446 

REF 

1 

E7, 1666 

FUNNYOSP 

= 

DELTAH 

+ 2 

B(  2) 

DI SPLAY 

744  7 

REF 

1 

E7, 1670 

EOURPERM 

EQUALS 

FUNNYOSP 

+ 2 

NEXT 

AVAILABLE  ERASABLE  AFTER  OURPERMS 

7448 

REF 

1 

E7, 1456 

OVFRET 

EQUALS 

LOSCOUNT 

8(1) 

RETURN  FROM  DESCENT  OVERFLOW  SURRO 

P 744  9 

R 7450 

(ERASA8LES  WHICH  OVERLAY  THE 

ABOVE  BLOCK) 

7451 

REF 

2 

LAST 

156 

E7, 1644 

VDGVERT 

= 

AZ  INCR1 

B(  2) 

DESIRED  VERTICAL  VELOCITY  - P66 

745  2 

RFF 

2 

LAST 

156 

E7, 1646 

NIGNLOOP 

= 

ZERLINA 

B ( 1 ) 

IGNALG 

7453 

REF 

2 

LAST 

156 

E7 i 1647 

NGUI DSUB 

= 

ELVIRA 

B(  1 1 

IGNALG 

7454 

REF 

2 

LAST 

157 

E 7,  1666 

TREDES 

= 

FUNNYOSP 

B ( 1 ) 

DISPLAY 

745  5 
A7456 

REF 

3 

LAST 

157 

E7, 1667 

LOCJKANGL 

FUNNYOSP 

+ 1 

B(l) 

DI SPLAY 

R 745  7 
A 745  8 

THE 

END 

OF  THE 

LUNAR 

LANDING 

ERASA8LES 

R 745  9 

R 12 

( FOR  LUNAR  LANDING) 

( 6 D ) 

7461 

REF 

1 

E7, 1670 

LRLCTR 

EQUALS 

EOURPERM 

B( 1 ) LR  DATA  TEST 

746  2 

REF 

1 

E 7, 1671 

LRRCTR 

EQUALS 

LRLCTR 

+ 1 

B(l) 

7463 

REF 

1 

E 7 1 1672 

LRMCTR 

EQUALS 

LRRCTR 

+ 1 

R(  1) 

7464 

REF 

1 

E7, 1673 

LRSCTR 

EQUALS 

LRMCTR 

+ 1 

B ( 1 ) 

7465 

REF 

1 

E7, 1674 

STILBADH 

EQUALS 

LRSCTR 

+ 1 

B(  1) 

7466 
A 746  7 

REF 

1 

E7, 1675 

STILBAOV 

EQUALS 

STILBADH 

+ 1 

B ( 1) 

R 7468 

LANDING  ANALOGS  DISPLAY 

STORAGE. 

( 32D) 

7470 

REF 

1 

E 7, 1676 

G-VBI ASX 

= 

STILBAOV 

+ 1 

B(  1) 

ACC  DUE  TO  GRAVITY  AND  PIPA  BIAS 

7471 

REF 

1 

F 7, 1677 

G-VBI ASY 

= 

G-VB I AS  X 

+ 1 

BID 

ACC  DUE  TO  GRAVITY  AND  PIPA  BIAS 

7472 

REF 

1 

E7, 1700 

G-VB I ASZ 

= 

G-VBI ASY 

+ L 

B<  l) 

ACC  DUE  TO  GRAVITY  AND  PIPA  BIAS 

7473 

REF 

1 

E 7 1 1701 

V SUR  FACE 

= 

G-VBI ASZ 

+ 1 

B ( 6 ) 

LUNAR  SURFACE  VELOCITY 

7474 

REF 

I 

E7, 1707 

HC AL  CLAD 

= 

VSURF ACE 

+ 6 

B1  2) 

ALTITUDE  IN  UNITS  OF  2(15)  M 

7475 

REF 

1 

E7, 1711 

HOOT  LAD 

= 

H CALC  LAD 

+ 2 

B1  2) 

ALTRATE  IN  UNITS  OF  2(5)  M/CS 

7476 

REF 

1 

E7,  1713 

DALTRATE 

= 

HOOT  LAD 

+ 2 

B ( 1) 

DALTRATE  UNITS  OF  2(-9)  M/CS/CS 

7477 

REF 

1 

E7,  1714 

RUNI TX 

= 

DALTRATE 

+ 1 

B ( 1 ) 

X—  COM PONF NT  OF  UNIT/P/  FULL-SIZE 

7478 

REF 

1 

F7,  1715 

RUN I TY 

= 

RUNITX 

+ 1 

BID 

Y-COMPONENT  OF  UNIT/R/  FULL-SIZE 

7479 

RFF 

1 

E7 i 1716 

RUNI TZ 

= 

RUNITY 

+ 1 

B(  1) 

Z-COMPONENT  OF  UNIT/R/  FULL-SIZE 

7480 

REF 

1 

E7, 1717 

DT 

= 

RUNITZ 

+ 1 

B(  1) 

TIME  SINCE  LAST  PIPTIMF 

7481 

REF 

1 

E7, 1720 

VVECTX 

= 

DT 

+ 1 

B<  2) 

X-COMPONENT  OF  SM  REL.  VELOCITY 
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7482 

REF 

l 

E 7 , 1722 

V VEC TY 

= 

V VEC  T X 

+ 2 

B I 2 ) 

Y-COMPONENT  OF  SM  REL.  VELOCITY 

7463 

REF 

1 

E7 , 1724 

VVECTZ 

= 

V VEC  TY 

+ 2 

B ( 2 ) 

Z-COMPONENT  OF  SM  PEL.  VELOCITY 

7484 

REF 

1 

E7 , 1726 

ALTR ATE 

= 

VVECTZ 

+ 2 

B(  2) 

ALTRATE  IN  UNITS  OF  2(5)  M/CS 

7485 

REF 

1 

E 7 , 1730 

ALTI TUDE 

= 

ALTRATE 

+ 2 

B(  2) 

ALTITUDE  IN  UNITS  OF  2(15)  M 

7486 

REF 

1 

E7, 1732 

L ATVMETR 

= 

ALTITUDE 

+ 2 

BI1) 

LATERAL  VELOCITY  METER  INDICATOR 

748  7 

REF 

1 

E7 i 1733 

FORVMETR 

= 

L ATVMETR 

+ 1 

BID 

FORWARD  VELOCITY  METER  INDICATOR 

1 

REF 

1 

E7, 1 734 

FORVEL 

= 

FORVMETR 

+ 1 

B ( 2) 

FORWARD  VELOCITY  FOR  DSKY  ( N60 ) 

748 

REF 

2 

LAST 

158 

E 7, 1722 

PIPCTR1 

= 

VVECTY 

B ( 1 ) 

TEMPORARY  FOR  PIPCTR 

A 7490 

749  1 

REF 

4 

LAST 

142 

0063 

ALTRTEMP 

= 

I TEMP3 

B ( 2) 

ALTITUDE-RATE  TEMPORARY 

749  2 

REF 

5 

LAST 

158 

0063 

ALTTEMP 

= 

I TEMP  3 

8(2) 

ALTITUDE  TFMPORAR Y 

7493 

REF 

6 

LAS  r 

158 

0063 

VHY 

= 

ITEMP3 

B(  2) 

VELOCITY  ALONG  UHYP  (I.E.  SM-Y ) 

7494 

REF 

2 

LAST 

97 

0065 

V HZ 

= 

I TEMP 5 

B<  2) 

VELOCITY  ALONG  UHZP 

749  6 

REF 

1 

0070 

FORV  TEMP 

= 

RUPTREG1 

B l 2 ) 

FORWARD  VELOCITY  TEMPORARY 

7496 

REF 

1 

0072 

L ATVEL 

= 

RUPTREG3 

B(  2) 

LATERAL  VELOCITY  TEMPORARY 

A 749  7 

R 7 49  7 l 

DOWNLINK  QTY 

— GOOO 

THROUGHOUT  LANDING 

— LOADED  IN  SERVICER 

(2D) 

74973 

REF 

1 

E 7 , 1736 

TRUOELH 

EQUALS 

FORVEL 

+ 2 

I ( 2 ) DNLK  TRUF  DELTA  H FOR  DOWNLINK, 

A 749  7 4 

LOADED  BEFORE  ENTERING  TTRRAIN  MODEL 

R 749  8 

P66 

ERASABLES 

(HORIZONTAL  VELOCITY  NULLING  GUIDANCE) 

749  9 

REF 

2 

LAST 

145 

E7, 1433 

VHZC 

EQUALS 

DELVLVC 

B ( 6 > 

VELOCITY  HORIZONTAL  COMMAND 

A 7499  5 

R 7500 

P66  ERASABLES  (R.O.D.) 

(ID) 

750  2 
A 750  3 

REf- 

1 

E 7 , 1746 

RODCOUNT 

EQUALS 

R65CNTR 

+ L 

B(l) 

ROD 

CLICK  COUNTER 

R7504 

P66  ERASABLES  (R.O.D.) 

( l 40 ) 

R7506 

$ # 

NOTE 

: OLDP I P AX , Y , Z AND  DELVROD 

MUST  BE  KEPT 

ADJACENT  AND  IN 

THAT 

ORDER  FOR 

P66 

INITIALIZATIONS  **** 

7508 

REF 

2 

LAST  152  E 7 , l 756 

RODSCAL  1 

EQUALS 

RM 

B(  1) 

7505 

REF 

1 

E 7 , 1757 

LASTTPIP 

EQUALS 

R0DSCAL1 

+ 1 

1(2) 

7510 

REF 

1 

E7,  1761 

THISTPIP 

EQUALS 

LASTTPIP 

+ 2 

B ( 2 ) 

751  1 

REF 

1 

E7, 1 763 

OLDP  IPAX 

EQUALS 

T H ISTP I P 

+ 2 

B ( 1 ) 

7512 

REF 

1 

E 7 , l 764 

OLDP I PAY 

EQUALS 

OLDP IPAX 

+ 1 

fill) 

7513 

REF 

1 

E7,  1765 

OLDP I PAZ 

EQUALS 

OLDP IPAY 

+ 1 

B(l) 

7514 

A7515 

REF 

1 

E7, 1766 

DELVROD 

EQUALS 

OLDP IPAZ 

+ 1 

B(  6) 

R75151 


TERRAIN  MOUEL  TEMPORARY  — LOAOED  IN  SERVICER 


( 20) 
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L ERASABLE  ASSIGNMENTS 


75153 

REF 

1 

E7, 1 766 

TEMOELH 

EQUALS 

OELVROO 

R7516 

NOUN 

63  COMPONENT 

7518 

A7519 

REF 

2 

LAST 

159  E 7, 1 7 74 

HCALC1 

EQUALS 

DELVROD 

R 7520 

LANO ING 

RADAR 

DOWNL I NK 

7522 
A 752  3 

REF 

1 

E 7 , 1776 

HMEASDL 

EQUALS 

HCALC1 
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I ( 2 ) T MP  STORES  TRUE  DELTAH  IN  TER. 

1 20) 

+6  1(2) 


( 20) 

+2  R ( 2 ) 


159 


MOO. 


GAP: 


P 752  4 
A 752  5 


R 752  6 

7528 

7529 

7530 

7531 

7532 

7533 

7534 

7535 

7536 
A 753  7 

7538 


R 753  9 

7540 
A 754  1 


ASSEMBL  fc  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
ERASABLE  ASSIGNMENTS 

*******  OVERLAY  NUMBER  5 IN  EBANK  7 ******* 


REF 

2 

ASCENT  GUIDANCE  ERASABLES . 
LAST  155  E 7 , 1 630 

R CO 

EQUALS 

END-ALIG 

REF 

1 

E7,  1632 

YCO 

EQUALS 

R CO 

+ 2 

REF 

l 

E 7 , 1634 

1/DV1 

EQUALS 

YCO 

+ 2 

REF 

1 

E7 , 1636 

1/DV2 

EQUALS 

l/DVl 

+ 2 

RFF 

1 

E7, 1640 

1/DV3 

EQUALS 

1/DV2 

*2 

REF 

1 

E7, 1642 

XRANGE 

EQUALS 

1 /DV3 

+ 2 

REF 

1 

E 7 , 1644 

ENGOFFDT 

EQUALS 

XRANGE 

+ 2 

REF 

1 

E 7 » 1 645 

VGVECT 

EQUALS 

ENGOFFDT 

+ 1 

REF 

1 

E7, 1653 

TXO 

EQUALS 

VGVECT 

■*■6 

REF 

3 

LAST  154 

m 

o 

1/DVO 

EQUALS 

MASS  1 

END  OF  THE  ASCENT  GUIDANCE  ERASABLES. 

E7.1777  END-E7  EQUALS  3777 
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( 2 ID) 

I 1 2ITMP 
I (2ITMP 
B ( 2 ) T MP 
B ( 21TMP 
B ( 2 ) T MP 
BI2ITHP 
B ( 1 ) T MP 
I { 6)  OUT 

TARGET  RADIUS  AND  OUT-OF-PLANE 

DISTANCE,  SCALED  AT  2124). 

ATMAG 

ATMAG 

ATMAG 

V ELOC I T Y— TO- BE— G A I N ED 

I ( 2 ) T MP  TIME  AT  WHICH  X-AXIS  OVERRIDE 
IS  ALLOWED. 

B121TMP  ATMAG  TEMPORARY 

LAS T LOCATION  USED  IN  E7  ** 


GAP: 
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17 


L CHECK  EQUALS  LIST 


R0002 

THIS 

LIST  IS  MAINTAINED  TO  ENSURE  THAT 

CERTAIN  ERASABLE  LOCATIONS 

R0003 

ARE 

LOCATED  AT 

A SPECIFIED  DISTANCE 

FROM  ANOTHER 

ERASABLE  LOCATION 

R0004 

AS  REQUIRED  BY 

THE  STRUCTURE 

OF  THE 

DOWNLINK  LISTS: 

R0005 

1. 

. IF  A 

LOCATION  IS  THE 

SECCNO 

PART  OF  A DOWNLINK  WORD,  IT  MUST 

R0006 

BE  CONTI GUUUS  TO  THE 

LOCATION 

THAT  IS  THE  FIRST  PART. 

R000  7 

2, 

, IF  A 

LOCATION  IS  NOT 

THE  FIRST 

WORD  OF 

AN  NDNADR  IT 

R0008 

MUST 

BE  AT 

A SPECIFIC  NUMBER  OF  LOCATIONS  FROM  THE  FIRST 

R0009 

LOCATION  IN 

THE  INSTRUCTION 

• 

R0010 

3. 

, OTHER 

NAMES 

MAY  BE  GIVEN  TO 

LOCATIONS  IN  THE  DOWNLIND  LISTS 

R001  1 

THAT 

ARE  NOT  REFERENCED  IN 

THE 

LISTS.  THESE  MUST  NOT  BE  MOVEI 

R0012 

THIS 

IS 

ACCOMPLISHED 

USING  THE  INSTRUCTION  CHECK= 

R0013 

THIS 

INSTRUCTION  GIVES  A CUSS 

IN  THE 

ASSEMBLY  IF 

THE  LOCATION  OF  THE 

R0014 

FIRST  TAG  FIELD  IS  NUT  EQUAL 

TO  THE 

LOCATION  OF 

THE  SECOND  TAG  FIELD. 

R001  5 

THE 

INSTRUCTION  HAS 

NO  OTHER 

EFFECT 

ON 

THE  ASSEMBLY  OR  CODE. 

R0016 

THIS 

LIST  SHOULD  BE 

UPDATED  FOR  ANY 

CHANGES  TO  THE  DOWNLINK  LISTS. 

R0017 

THIS 

LIST  IS  MAINTAINED  8Y  SUMNER  ROSENBERG 

0018 

REF 

1 

0025 

TIME  1 

CHEC  K=  TIME2  +1 

0019 

REF 

1 

0033 

CDUY 

CHECK=  C DUX  +1 

0020 

REF 

1 

0034 

CDUZ 

CHEC  K = CDUY  + L 

002  1 

REF 

1 

0035 

CDUT 

CHECK=  CDUZ  +1 

0022 

REF 

1 

0037 

P IPAX 

CHEC  K=  C DUS  +1 

0023 

REF 

1 

0040 

P IPAY 

CHECK=  PIPAX  +1 

0024 

REF 

1 

0041 

P IPAZ 

CHECK=  PIPAY  +1 

002  5 

REF 

I 

0111 

DAPBOOLS 

CHECK=  RADMODES  +1 

002  6 

REF 

2 

LAST 

98 

0113 

L AST  XCMD 

CHECK=  LASTYCMD  +1 

002  7 

REF 

1 

0321 

THETAD 

CHECK=  REDOCTR  +1 

0028 

REF 

l 

0375 

FAILREG 

CHEC  K=  CHANBKUP  +1 

0029 

REF 

2 

LAST 

10  7 

1 170 

UPOLDMOD 

CHECK=  COMPNUMB  +1 

0030 

REF 

2 

LAST 

107 

1171 

UPVERB 

CHECK=  UPOLDMOD  +1 

0031 

REF 

2 

LAST 

107 

1172 

UPCOUNT 

CHEC  K=  UPVERB  +1 

0032 

REF 

2 

LAST 

107 

1173 

UPBUFF 

CHEC  K=  UPCOUNT  +1 

0033 

REF 

2 

LAST 

108 

1241 

SPIRAL 

CHECK=  CURSOR  +1 

0034 

REF 

1 

L 300 

I MODES33 

CHECK=  I MODES30  +1 

0035 

RDF 

1 

1327 

CSMMASS 

CHECK=  LEMMASS  +1 

0036 

REF 

2 

LAST 

1 1 1 

1331 

DNRR  DOT 

CHEC  K=  DNRRANGE  +1 

0037 

REF 

2 

LAST 

111 

1334 

DNLR VELY 

CHECK=  DNLRVELX  +1 

003  8 

REF 

2 

LAST 

1 1 1 

1335 

DNLR VELZ 

CHEC  K=  DNLRVEL Y +1 

0039 

REF 

2 

LAST 

111 

1336 

DNLR ALT 

CHEC  K=  DNLRVEL  Z +1 

0040 

REF 

1 

1356 

DUMLOOPS 

CHE C K=  S ERVDURN  +1 

0041 

REF 

2 

LAST 

121 

E4, 1635 

ZNBS  A V 

CHECK=  YNBSAV  +6 

0042 

REF 

2 

LAST 

128 

E5, 1741 

IGC 

CHEC  K=  OGC  +2 

0043 

REF 

2 

LAST 

128 

E5, 1743 

MGC 

CHECK=  IGC  +2 

0044 

REF 

2 

LAST 

128 

E5 i I 756 

BEST  J 

CHECK=  BESTI  +1 

0045 

REF 

5 

LAST 

134 

E6, 1422 

OMEGAQ 

CHEC  K=  OMEGAP  +1 

004  6 

REF 

I 

E6, 1423 

OMEGAR 

CHECK=  OMEGAQ  +1 

004  7 

REF 

1 

E6, 1425 

ALPHAR 

CHEC  K=  ALPHAQ  +1 
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0046 

REF 

1 

F.6, 1514 

negtorkp 

CHE  C K=  POSTORKP  + l 

0049 

REF 

1 

E6,  1516 

NEGTORKU 

CHECK=  POSTORKU  +1 

0050 

REF 

1 

E6.1517 

POSTORKV 

CHEC  K=  NEGTORKU  +1 

005  1 

REF 

1 

E6.1520 

NEGTORKV 

CHECK=  POSTORKV  +1 

005  2 

REF 

4 

LAST 

140 

E6, 1635 

CDUYD 

CHECK=  CDUXD  +1 

0053 

REF 

l 

E6, 1636 

CDUZO 

CHECK=  CDUYD  +1 

0054 

REF 

3 

LAST 

139 

E 6 , 1643 

OMEGAQD 

CHECK=  OMEGAPD  +1 

005  5 

REF 

1 

E6, 1 644 

OMEGARD 

CHECK=  OMEGAQD  +1 

0056 

REF 

l 

E 7 , 1460 

AMG 

CHECK=  A I G +1 

005  7 

REF 

l 

E7 , 1462 

TRKMKCNT 

CHECK=  AOG  +1 

0058 

REF 

2 

LAST 

162 

67, 1462 

VSELECT 

CHECK=  AOG  +1 

0059 

REF 

2 

LAST 

158 

E7, 1733 

FORVMETR 

CHECK=  LATVMETR  +1 

0060 

REF 

16 

LAST 

98 

00  74 

F LAGWRDO 

CHECK=  STATE 

0061 

REF 

2 

LAST 

161 

0110 

FLGWRD12 

CHECK=  RADMODES 

0062 

REF 

1 

0111 

FLGWRD13 

CHECK=  DAPBOOLS 

0063 

REF 

4 

LAST 

10  1 

0321 

C PH  I 

CHECK=  THETAD 

0064 

REF 

5 

LAST 

162 

0322 

CTHETA 

CHECK=  THETAD  +1 

0065 

REF 

6 

LAST 

162 

0323 

CPSI 

CHECK=  THETAD  +2 

0066 

REF 

4 

LAST 

101 

0324 

DEL  VX 

CHECK=  DELV 

006  7 

REF 

5 

LAST 

lo2 

0326 

DELVY 

CHECK=  DELV  +2 

0068 

REF 

6 

LAST 

162 

0330 

DEL  VZ 

CHECK=  OELV  +4 

007  1 

REF 

2 

LAST 

102 

0334 

CTLI ST 

CHE  C K=  ONLSTCOD  +1 

0072 

REF 

1 

0 372 

C ADR MARK 

CHECK=  CAURFLSH  +1 

0073 

REF 

2 

LAST 

162 

0373 

TFMPFLSH 

CHECK=  CADRFLSH  +2 

0074 

REF 

5 

LAST 

108 

1235 

STARCQDE 

CHEC  K = AOTCODE 

0075 

REF 

1 

E3,  1570 

TETCSM 

CHEC  K=  T-OTHFR 

0076 

REF 

2 

LAST 

162 

E3, 1570 

TETOTHER 

CHECK=  T-OTHER 

0077 

REF 

2 

LAST 

116 

63,1715 

R ( CSM ) 

CHECK=  R-OTHER 

0078 

REF 

2 

LAST 

116 

E 3 , 1723 

V(CSM) 

CHECK=  V-OTHER 

0079 

REF 

2 

LAST 

162 

E 6 , 1 5 1 3 . 

DOWNTORK 

CHECK=  POSTORKP 

0080 

REF 

5 

LAST 

162 

E6, 1634 

DCDU 

CHE  CK=  CDUXD 

008  l 

REF 

2 

LAST 

l 

E7, 1433 

DEL VL VC 

CHECK=  DELVSLV 

0063 

KEF 

3 

LAST 

146 

E7, 1462 

MARKCTR 

CHECK=  TRKMKCNT 

0084 

REF 

2 

LAST 

149 

E 7 , 1700 

VGPREV 

CHECK=  VGTIG 

0085 

*REF 

l 

1260 

CH6MASK 

CHECK=  CH5MASK  +1 
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INTERRUPT  LEAD  INS 


USFP.'S  PAGE  NO. 


FO  S4 


0001 

4000 

SETLOC 

4000 

00015 

REF 

1 

COUNT* 

$$/RUPTS 

0002 

4000 

0 0004 

0 

INHINT 

0003 

REF 

1 

4001 

3 4054 

1 

CAF 

GOBB 

0004 

REF 

1 

4002 

56  006 

1 

XCH 

BSANK 

000  5 

REF 

L 

4003 

1 2671 

1 

TCF 

GOPROG 

0006 

REF 

1 

4004 

52  Oil 

0 

OXCH 

ARUPT 

0007 

4 005 

0 0006 

1 

EXTEND 

0008 

REF 

1 

4006 

3 4 0 56 

0 

DC  A 

T6ADR 

0009 

4007 

52  006 

0 

DTCB 

0010 

REF 

2 

LAST 

163 

4010 

52  Oil 

0 

DXCH 

ARUPT 

001  1 

401  1 

0 0006 

1 

EXTEND 

0012 

REF 

1 

4012 

3 1263 

1 

DC  A 

T 5 AD  R 

0013 

4013 

52  006 

0 

DTCB 

0014 

REF 

3 

LAST 

163 

4014 

52  Oil 

0 

DXCH 

ARUPT 

0015 

REF 

1 

4015 

3 405  ? 

l 

CAF 

T3RPTBB 

0016 

REF 

2 

LAST 

163 

4016 

56  C 06 

1 

XCH 

BBANK 

001  7 

REF 

1 

4017 

l 3412 

1 

TCF 

T3RUPT 

0010 

REF 

4 

LAST 

163 

4020 

52  Cll 

0 

DXCH 

ARUPT 

0019 

REF 

1 

402  1 

3 4064 

1 

CAF 

T4RPTBB 

00195 

REF 

3 

LAST 

163 

4022 

56  006 

l 

XCH 

BBANK 

0020 

REF 

1 

4023 

1 2000 

1 

TCF 

T4RUPT 

0023 

REF 

5 

LAST 

163 

4024 

52  Oil 

0 

DXCH 

ARUPT 

0024 

REF 

1 

4025 

3 4060 

0 

CAF 

KEYRPTBB 

0025 

REF 

4 

LAST 

163 

4026 

56  006 

1 

XCH 

BBANK 

0026 

REF 

1 

4027 

1 3257 

0 

TCF 

KEYRUPT1 

0027 

REF 

6 

LAST 

163 

4030 

52  Oil 

0 

DXCH 

ARUPT 

0028 

REF 

1 

4031 

3 4061 

1 

CAF 

MKRUPTBB 

002  9 

REF 

5 

LAST 

163 

4032 

56  006 

1 

XCH 

BBANK 

0030 

REF 

1 

4033 

1 2354 

0 

TCF 

MARKRUPT 

0031 

REF 

7 

LAST 

163 

4034 

52  Cll 

0 

OXCH 

ARUPT 

003  2 

REF 

1 

4035 

3 4060 

0 

CAF 

UPRPTBB 

0033 

REF 

6 

LAST 

163 

4036 

56  006 

1 

XCH 

BBANK 

0034 

REF 

1 

4037 

1 3302 

1 

TCF 

UPRUPT 

0035 

REF 

8 

LAST 

163 

4040 

52  Cll 

0 

DXCH 

ARUPT 

0036 

REF 

1 

4041 

3 4062 

1 

CAF 

DWNRPTBB 

003  7 

REF 

7 

LAST 

16  3 

4042 

56  006 

1 

XCH 

BBANK 

0038 

REF 

l 

4043 

1 3507 

1 

TCF 

DODOWNT  M 

0039 

REF 

9 

LAST 

163 

4 044 

52  Cll 

0 

DXCH 

ARUPT 

004  0 

REF 

1 

4045 

3 4063 

0 

CAF 

RDRPTBB 

FIX-FIX  LEAD  INS 
GO 


T6RUPT 


T5RUPT  - AUTOPILOT 


T3RUPT 


T4RUPT 


KEYRUPT1 


KE YRUPT? 


UPRUPT 


DOWNRUPT 


RADAR  RIJPT 
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0041 

REF 

e 

LAST 

163 

4 C46 

56  006 

1 

XCH 

BBANK 

0042 

REF 

1 

4047 

1 3157 

0 

TCF 

RADAREAD 

0043 

REF 

10 

LAST 

163 

4050 

52  C 1 1 

0 

DXCH 

ARUPT 

0044 

REF 

1 

4051 

3 4 065 

0 

O.A 

RUPTIOBB 

004  5 

RFF 

9 

LAST 

164 

4052 

56  006 

1 

XCH 

BBANK 

0046 

REF 

1 

4053 

1 2302 

0 

TCF 

PITFALL 

004  7 

REF 

1 

E3 , 1400 

EBANK= 

L ST  1 

0048 

REF 

2 

LAST 

163 

4054 

12103 

0 

GDBB 

BBCON 

GOPROG 

0049 

RFF 

1 

E6, 1464 

EBANK= 

PERROR 

0050 

REF 

1 

4055 

02117 

1 

T 6 ADR 

2CADR 

D0T6RUPT 

0050 

REF 

1 

4056 

36  106 

0 

0051 

REF 

2 

LAST 

164 

E3.1400 

EBANK= 

L ST  1 

0052 

REF 

2 

LAST 

163 

4057 

02103 

1 

T3RPTBB 

BBCON 

T3RUPT 

0053 

REF 

1 

0073 

EBANK= 

KEYTEMP1 

0054 

REF 

2 

LAST 

163 

4060 

10100 

1 

KEYRPTBB 

BBCON 

KEYRUPT1 

0055 

REF 

l 

C 7 , 1404 

EBANK= 

A0TA2 

0056 

REF 

2 

LAST 

163 

4 061 

16107 

0 

MKRUPTBB 

BBCON 

MARKRUPT 

005  7 

REF 

2 

LAST 

163 

4060 

UPRPTBB 

= 

KEYRPTBB 

0058 

REF 

1 

0340 

ERANK= 

DNTMBUFF 

0059 

RFF 

2 

LAST 

163 

4062 

12100 

0 

DWNRPTBB 

BBCON 

DODOWNTM 

0060 

REF 

1 

E7 , 1453 

E6ANK= 

TTOGO 

006  1 

REF 

2 

LAST 

164 

4063 

52  107 

0 

RDRPTBB 

BBCON 

RADAREAD 

0062 

REF 

1 

E6, 1414 

EBA  NK  = 

Mil 

0063 

REF 

2 

LAST 

163 

4064 

14  106 

0 

T4RPT8B 

BBCON 

T4RUPT 

0063  1 

REF 

3 

LAST 

157 

E 7 , 1647 

E B A N K = 

ELVIRA 

00632 

REF 

2 

LAST 

164 

4065 

22107 

1 

RUPT10BB 

BBCON 

PITFALL 
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,1971  LEM0NAID.156  PAGE  164 
S PAGE  NO.  2 FO  S4 


USED  ONLY  BY  LANDING  GU 


DANCE 


RESTART  USES  EO 


E3 


GAP:  ASSEMBLE 

REVISION  210 

CF  AGC  PROGRAM  LUMINARY  BY  NASA  202 

1112-161 

17: 11  MAR.  19, 

1971 

LEMON A TO  . 156 

L 

T4RUPT 

PROGRAM 

USER*  S 

PAGE 

NO. 

1 

0001 

12,2000 

BANK 

12 

0001  Cl 

REF 

1 

06,2000 

SETLOC 

T4RUP 

000102 

06,2000 

BANK 

0002 

REF 

2 

LAST  164 

E6 , 1414 

E8ANK= 

Mil 

0002  5 

REF 

1 

COUNT* 

$ S/T4RPT 

0003 

REF 

1 

06,2000 

54  016 

1 

T4RUPT 

TS 

BANKRUPT 

0004 

06,2001 

0 0006 

1 

EXTEND 

0005 

REF 

1 

06,2002 

22  012 

l 

OXCH 

QRUPT 

0007 

REF 

1 

C6.2003 

11*310 

0 

CCS 

OSRUPTSW 

GOES 

71-1)0 

AROUND  AND 

AROUND 

000  8 

REF 

1 

06,2004 

1 2010 

0 

TCF 

N0RMT4  +1 

0009 

REF 

2 

LAST  165 

06,2005 

1 2007 

0 

TCF 

N0RMT4 

0010 

REF 

1 

C6, 2006 

1 2 134 

1 

TCF 

QUIKDSP 

001  5 

REF 

1 

06,2007 

3 4 7 50 

1 

N0RMT4 

CAF 

SEVEN 

0016 

REF 

2 

LAST  158 

06,2010 

54  070 

1 

TS 

RUPTREG1 

0017 

REF 

2 

LAST  165 

06,2011 

55 ' 3 10 

0 

TS 

OSRUPTSW 

0019 

4066 

BLOCK 

02 

001 901 

REF 

1 

4000 

SETLOC 

FFTAG10 

001 902 

4066 

BANK 

0019C4 

REF 

1 

COUNT* 

$$/T4RPT 

0020 

REF 

1 

7750 

100MRUPT 

= 

0CT37766 

(DEC 

16374  ) 

R0023 

RELTAB 

IS  A PACKED  TABLE.  RE  LAYWCRD  CODE 

IN  UPPER  4 BITS,  RELAY  CODE 

R0024 

IN  LOWER  5 BITS. 

0025 

4066 

04025 

1 

RELTAB 

OCT 

04025 

002  6 

4067 

10003 

0 

OCT 

10003 

0027 

4070 

14031 

0 

OCT 

14031 

002  8 

4071 

20C33 

0 

OCT 

20033 

0029 

4072 

24017 

1 

OCT 

2401  7 

003  0 

4073 

30036 

1 

OCT 

30036 

003  1 

4074 

34034 

1 

OCT 

34034 

0032 

4075 

40023 

1 

OCT 

40023 

0033 

4076 

44C35 

1 

OCT 

44035 

0034 

4077 

50037 

0 

OCT 

50037 

0035 

4100 

54000 

0 

OCT 

54000 

0036 

4101 

60000 

1 

RELTAB11 

OCT 

60000 

165 
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166 


P003  7 

SW  I TCHED-BANK  portion. 

003  8 

12,2000 

BANK 

12 

003801 

REF 

2 

LAST 

165 

06,2000 

SETLOC 

T4RUP 

0038C2 

06,2012 

BANK 

0039 

REF 

2 

LAST 

165  TO 

165: 

10 

10* 

COUNT* 

$ $/ T 4RPT 

0042 

REF 

1 

06,2012 

11 ' 035 

1 CDRVE 

CCS 

DSPTAB 

+ 1 ID 

0043 

REF 

1 

06,2013 

0 2063 

0 

TC 

D SPOUT 

0044 

REF 

2 

LAST 

166 

06,2014 

0 2063 

0 

TC 

DSPOUT 

0045 

REF 

2 

LAST 

166 

06,2015 

57 ' C35 

0 

XCH 

DSPTAB 

+ 11D 

0046 

REF 

1 

06,2016 

7 4347 

1 

MASK 

L0W1  l 

004  1 

REF 

3 

LAST 

166 

06,2017 

55 1 C35 

1 

TS 

DSPTAB 

+ 1 ID 

004  8 

REF 

l 

06,2020 

6 4101 

0 

AD 

RELTAB1 l 

0049 

06,2021 

0 C C 06 

1 

EXTEND 

0049  1 

REF 

1 

06,2022 

01  010 

1 

WRITE 

OUTO 

00492 

REF 

1 

06,2023 

0 2071 

0 

TC 

HANG20 

GAP: 


ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  202U12-161 


L T4RUPT  PROGRAM 


P0050  DSPOUT  PROGRAM.  PUTS  OUT  DISPLAYS. 


0055 

REF 

1 

06,2024 

55*015 

0 

DSPOUTSB 

TS 

NOUT 

0056 

REF 

1 

06,2025 

4 4 746 

1 

CS 

ZERO 

0057 

REF 

1 

06,2026 

54  073 

1 

TS 

DSRUPTEM 

0058 

REF 

1 

06,2027 

56  775 

1 

XCH 

DSPCNT 

0059 

REF 

1 

06,2030 

6 4745 

0 

AD 

NEGO 

0060 

REF 

2 

LAST 

167 

C6.2031 

54  775 

0 

TS 

DSPCNT 

0061 

REF 

3 

LAST 

167 

06,2032 

50  775 

1 

USPSCAN 

INDEX 

D SPCNT 

0062 

REF 

4 

LAST 

166 

C6 ,2033 

11 1 022 

1 

CCS 

DSPTAB 

0063 

REF 

4 

LAST 

167 

06,2034 

10  775 

0 

CCS 

DSPCNT 

0064 

REF 

1 

06,2035 

l 2C30 

1 

TCF 

DSPSCAN  ■ 

006  5 

REF 

1 

06,2036 

1 2047 

1 

TCF 

DSPLAY 

0066 

06,2037 

00012 

1 

TABLNTH 

OCT 

12 

006  7 

REF 

2 

LAST 

167 

06,2040 

10  073 

1 

CCS 

DSRUPTEM 

0068 

06,2041 

37  764 

0 

120MRUPT 

DEC 

16372 

0069 

REF 

2 

LAST 

167 

06,2042 

5 5 ' 0 1 5 

0 

TS 

NOUT 

0070 

REF 

2 

LAST 

95 

06,2043 

0 0002 

0 

TC 

Q 

007  1 

REF 

3 

LAST 

167 

C 6 , 2 044 

54  073 

1 

TS 

DSRUPTEM 

007? 

REF 

1 

06,2045 

3 2037 

1 

CAF 

TABLNTH 

0073 

REF 

2 

LAST 

167 

06,2046 

1 2031 

0 

TCF 

DSPSCAN  - 

0074 

REF 

1 

06,2047 

6 4 744 

1 

DSPLAY 

AD 

ONE 

0075 

REF 

5 

LAST 

167 

06,2050 

50  775 

1 

INDEX 

DSPCNT 

0076 

REF 

5 

LAST 

167 

( i,2051 

55 ' 022 

1 

TS 

DSPTAB 

0077 

REF 

2 

LAST 

166 

06,2052 

7 4347 

1 

MASK 

L 0W1  1 

007  8 

REF 

4 

LAST 

167 

06,2053 

54  073 

1 

TS 

DSRUPTEM 

0079 

REF 

1 

06, 2054 

3 4341 

0 

CAF 

H I 5 

0080 

REF 

6 

LAST 

167 

U6.2055 

50  7 75 

1 

INDEX 

DSPCNT 

0081 

REF 

1 

06,2056 

7 4066 

1 

MASK 

RELTAB 

0082 

REF 

5 

LAST 

167 

C6.2057 

6 0073 

0 

AD 

DSRUPTEM 

0083 

C6, 2060 

0 0006 

1 

EXTEND 

0084 

REF 

2 

LAST 

166 

06,2061 

01  CIO 

l 

WRITE 

OUTO 

0084  1 

REF 

1 

06,2062 

1 6760 

1 

TCF 

Q + l 

00842 

REF 

1 

06,2063 

10  101 

0 

DSPOUT 

CCS 

FLAGWRD5 

00843 

REF 

2 

LAST 

167 

06,2064 

3 4 746 

0 

CAF 

ZERO 

00844 

REF 

l 

06,2065 

1 2 L 30 

0 

TCF 

NODSPOUT 

00345 

REF 

3 

LAST 

167 

06,2066 

1 1 ' 015 

0 

CCS 

NOUT 

00846 

REF 

1 

06,2067 

0 2024 

0 

TC 

DSPOUTSB 

00847 

REF 

2 

LAST 

167 

C6, 2070 

1 2130 

0 

TCF 

NODSPOUT 

0085 

REF 

1 

06,2071 

4 2171 

0 

HANG20 

CS 

14,11,9 

0086 

REF 

3 

LAST 

165 

06,2072 

27' 310 

0 

ADS 

DSRUPTSW 

0087 

REF 

1 

06,2073 

3 7 752 

0 

CAF 

20MRUPT 

0038 

REF 

1 

06, 2074 

54  C27 

0 

SETT  I ME4 

TS 

TIME4 

17: 1 1 MAR.  19 , 1971 


LE MONA  ID. 156 


PAGE  167 


USER'S  PAGE  NO.  3 E6  S4 


SET  TO  -0  FOR  1ST  PASS  THRU  DSPTAB 
TO  PREVFNT  +0 


IF  DSPTAB  ENTRY  + , SKIP 
2 IF  DSPCNT  +,  TRY  AGAIN 

IF  DSPTAB  ENTRY  DISPLAY 
DEC  10  LENGTH  OF  DSPTAB 
IF  DSRUPTEM=+0 ,2ND  PASS  THRU  DSPTAB 
(DSPCNT  =0).  +0  INTO  NOUT. 


IF  DSRUPTEM=-0 , 1ST  PASS  THRU  DSPTAB 
( DSPCNT  = 0 ) . +0  I NTn  DSRUPTEM.  PASS  AGAIN 

1 


RFPLACE  POSITIVELY 
REMOVF  BITS  12  TO  15 


PICK  UP  BITS  12  T0  15  OF  RELTA8  ENTRY 


IS  DSKY  FLAG  ON 

NO 

NO 

YES 


NO  DISPLAY  REQUESTS 


GAP:  ASSEMBLE 

REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161  17 

: 11  MAR.  19, 1971 

LFMONA ID . 156  PAGE 

L 

TARUPT 

PROGRAM 

USER*  S PAGE 

NO.  4 E6  S4 

P0088  1 

THE 

STATUS  OF 

THE 

PROCEED  PUSHBUTTON 

I S 

MONITORED  EVERY 

120  MILLISECONDS  VIA  THE  CHANNEL 

32  BIT  14  INBIT. 

R0088 12 

THE 

STATE  OF  THIS 

INBIT  IS  COMPARED 

WITH  ITS  STATE  DURING  THE  PREVIOUS 

T4RUPT  AND  IS  PROCESSED  AS  EOLLOWS  . 

R0088  14 

IF  PREV  ON 

AND 

NOW  ON 

BYPASS 

R008815 

IF  PREV  ON 

AND 

NOW  OFF 

UPDATE 

IMODE  S33 

RG088  16 

IF  PREV  OFF 

AND 

NOW  ON 

UPDATF 

I MODE  S 33  AND  PROCESS  VIA  PINBALL 

R008817 

IF  PREV  OFF 

AND 

NOW  OFF 

BYPASS 

R0088 18 

THE 

LCGIC  EMPLOYED 

REQUIRES 

ONLY  9 MCT 

(APPROX.  108  MICROSECONDS)  GF  COMPUTER  TIME  WHEN  NO  CHANGES  OCCUR. 

00882 

REE 

1 

06,2075 

3 1300 

0 

PROCEEDE  CA 

I MOD  E S33 

MON I T I OR  FOR  PROCEED  RUTTON 

008821 

06,2076 

0 C 0 06 

1 

EXTFND 

008822 

REF 

1 

06,2077 

06  032 

0 

RXOR 

CHAN32 

008823 

REF 

1A 

LAST 

89 

06,2100 

7 4727 

0 

MASK 

B I T 1 4 

008  8 2 A 

06,2101 

0 CC06 

1 

EXTEND 

008825 

REF 

1 

06,2102 

1 2116 

1 

BZF 

T4JUMP 

NO  CHANGE 

008826 

REF 

2 

LAST 

168 

06,2  103 

23*300 

0 

LXCH 

I M0DES33 

008827 

06 , 2 1 OA 

0 0006 

1 

EXTEND 

008828 

REF 

1 

06,2105 

06  001 

0 

RXOR 

L CHAN 

008829 

REF 

3 

LAST 

168 

06,2106 

55  * 300 

1 

TS 

I MODE  S33 

UPDATE  I MODES33 

00883 

REF 

15 

LAST 

168 

06,2107 

7 A 72  7 

0 

MASK 

B I T 1 4 

008831 

REF 

1 

( 6 , 2 1 10 

10  000 

0 

CCS 

A 

008832 

REF 

2 

LAST 

168 

06,2111 

1 2116 

1 

TCF 

T4JUMP 

WAS  ON  - NOW  OFF 

008833 

REF 

1 

06,2112 

3 A 346 

1 

CAF 

C HR  PR  1 0 

WAS  OFF  - NOW  ON 

008  8 3 A 

REF 

1 

06,2113 

0 5063 

1 

TC 

NOVAC 

008835 

REF 

1 

0776 

E8ANK= 

DSPCOUNT 

008836 

REF 

1 

06 , 2 1 1 A 

03501 

0 

2C  ADR 

PROCKEY 

008836 

REF 

1 

06,2115 

6C101 

1 

168 


GAP: 

L 

P0089 

0090 

0091 

009  2 

0093 

009  A 

0095 

0096 

0097 

0098 

0099 

0102 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161  17:11 

T4RUPT  PROGRAM 

JUMP  TO  APPROPRIATE  CNCE-PER  SECOND  (.96  SEC  ACTUALLY)  ACTIVITY 


MAR.  19,1571 
USER'S  PAGE 


LFMONAID. 156 
NO.  5 


PAGE 
E6  S A 


169 


REF 

3 

LAST 

165 

06,2116 

50  070 

0 

T 4 JUMP 

INDEX 

RUPTREG1 

06,2117 

1 

2120 

1 

TCF 

+ 1 

REF 

1 

06,2120 

0 

3213 

1 

TC 

RCSMONI T 

REF 

1 

06,2121 

1 

3035 

0 

TCF 

RRAUTCHK 

REF 

1 

06,2122 

1 

2172 

0 

TCF 

IMUMON 

REF 

1 

06,2123 

1 

3167 

0 

TCF 

DAPT4S 

REF 

2 

LAST 

169 

06,2124 

0 

3213 

1 

TC 

RCSMONI T 

REF 

2 

LAST 

169 

06,2125 

1 

3035 

0 

TCF 

RRAUTCHK 

REF 

2 

LAST 

169 

06,2126 

1 

2172 

0 

TCF 

IMUMON 

REF 

2 

LAST 

165 

06, 2 127 

1 

3167 

0 

TCF 

DAPT4S 

REF 

l 

7752 

20MRUPT 

= 

0CT37776 

GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161  17:11  MAR.  19,1971  LEMQNAID.156  PAGE  170 


L 

T4RUP  T 

PROGRAM 

USER'S  PAGE  NO.  6 

E 6 S4 

P0150 

ADDIT IONAL 

ROUT INES 

FOR  20MS. 

keyboard 

ACTIVITY 

0151 

06,2130 

0 0006 

1 

NCDSPOUT 

EXTEND 

0152 

REF 

3 

LAST 

167 

06,2131 

01  010 

1 

WRITE 

OUTO 

015  3 

REF 

1 

06,2132 

3 2041 

0 

CAF 

120MRUPT 

SET  FOR  NEXT  CDRIVE 

0154 

REF 

1 

06,2133 

1 2074 

1 

TCF 

SETT  I ME4 

0155 

REF 

16 

LAST 

168 

06,2134 

3 4727 

1 

quikdsp 

CAF 

B I T 1 4 

0155  1 

REF 

4 

LAST 

167 

06,2135 

7 1310 

0 

MASK 

DSRUPTSW 

01552 

06,2136 

0 C006 

1 

EXTENO 

01553 

REF 

1 

06,2137 

1 2165 

0 

BZF 

QUIKUFF 

WROTE  LAST  TIME,  NOW  TURN 

OFF  RELAYS. 

01555 

REF 

4 

LAST 

167 

06,2140 

1 1 • C 1 5 

0 

CCS 

NOUT 

0156 

REF 

2 

LAST 

167 

06,2141 

0 2 C24 

0 

TC 

D SPOUTS  8 

015  7 

REF 

1 

06,2142 

1 2152 

1 

TCF 

NODSPY 

NOUT  = 0 OR  BAD  RETURN  FROM 

DSPOUTSR 

01575 

REF 

17 

LAST 

170 

06,2  143 

4 4727 

0 

CS 

BIT14 

GOOD  RETURN  (WE  DISPLAYED 

SOMFTHI NG ) 

01577 

REF 

5 

LAST 

170 

06,2144 

27' 310 

0 

OUIKRUPT 

ADS 

DSRUPTSW 

0158 

REF 

2 

LAST 

167 

06,2145 

3 7752 

0 

CAF 

2 OMR  UPT 

0159 

REF 

2 

LAST 

167 

06,2146 

54  027 

0 

TS 

T I ME4 

0160 

REF 

L 1 

LAST 

89 

06, 2147 

3 4734 

0 

CAF 

B I T9 

0161 

REF 

6 

LAST 

170 

06,2150 

27' 310 

0 

ADS 

DSRUPTSW 

0162 

REF 

1 

06,2151 

0 5272 

0 

TC 

RESUME 

0163 

06,2152 

0 0006 

1 

NODSPY 

EXTENO 

0164 

REF 

4 

LAST 

170 

06,2153 

01  CIO 

1 

WRITE 

OUTO 

0165 

REF 

3 

LAST 

170 

06,2154 

3 7752 

0 

SYNC  T 4 

CAF 

2 OMR UPT 

0166 

REF 

3 

LAST 

170 

06,2155 

26  027 

0 

ADS 

T I ME4 

0167 

REF 

12 

LAST 

170 

06, 2156 

3 4734 

0 

CAF 

B I T9 

0168 

REF 

7 

LAST 

170 

06,2157 

2 7 1 3 10 

0 

ADS 

DSRUPTSW 

0169 

REF 

B 

LAST 

170 

06,2160 

11*310 

0 

CCS 

DSRUPTSW 

0 IT  < 

REF 

2 

LAST 

170 

06,2161 

0 5272 

0 

TC 

RESUME 

0171 

06,2  162 

17  737 

0 

OCT37737 

OCT 

37737 

0172 

REF 

1 

06,2163 

0 2154 

0 

TC 

SYNC  T 4 

0173 

REF 

3 

LAST 

170 

06,2164 

0 5272 

0 

TC 

RESUME 

0174 

06,2165 

0 0006 

1 

OUIKOFF 

EXTEND 

0175 

REF 

5 

LAST 

170 

06,2166 

01  010 

1 

WRITE 

OUTO 

0176 

REF 

18 

LAST 

170 

06,2167 

3 4727 

1 

CAF 

B l T 14 

RESET  DSRUPTSW  TO  SFND  DISPLAY  NEXT  PASS 

017  7 

REF 

1 

06, 2170 

l 2144 

0 

TCF 

OUIKRUPT 

0179 

06,2171 

22400 

c 

14,11,9 

OCT 

22400 
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L T4RUPT  PROGRAM  USER'S  PAGE  NO.  7 E6  S4 

P0300  PROGRAM  NAME:  IMUMON 

R0301  FUNCTIONAL  DESCRIPTION:  THIS  PROGRAM  IS  ENTERED  EVERY  480  MS.  IT  DETECTS  CHANGES  OF  THE  IMU  STATUS  BITS  IN 

R0303  CHANNEL  30  AND  CALLS  THE  APPROPRIATE  SUBROUTINES.  THE  BITS  PROCESSED  AND  THEIR  RELEVANT  SUBROUTINES  ARE: 


R0305 

R0306 

FUNCT ION 

BIT 

SUBROUTINE  CALLED 

TEMP  IN  LIMITS 

15 

TL  IM 

R030  7 

R0308 

ISS  TURN-ON  REQUEST 

14 

ITURNON 

R0309 

IMU  FAIL 

13 

IMUFAIL  (SETISSW) 

R0310 

IMU  CDU  FAIL 

12 

I C DUE  A I L (SETISSW) 

R031  1 

IMU  CAGE 

11 

IMUCAGE 

R0312 

IMU  OPERATE 

9 

IMUOP 

R0313  THE  LAST  SAMPLED  STATE  OF  THESE  BITS  IS  LEFT  IN  IM0DES30.  ALSO,  EACH  SUBROUTINE  CALLED  FINDS  THE  NEW 

R0315  VALUE  OF  THE  BIT  IN  A,  WITH  Q SET  TO  THE  PROPER  RETURN  LOCATION,  NXTIFAIL. 

R 03 1 7 CALLING  SEQUENCE:  T4RUPT  EVERY  480  MILLISECONDS. 

R0318  JOBS  OR  TASKS  INITIATED:  NONE. 


R0319  SUBROUTINES  CALLED:  TLIM,  I TURNON , SETISSW,  IMUCAGE,  IMUOP. 


R0320  ERASABLE  INITIALIZATION: 

R0321  FRESH  START  OR  RESTART  WITH  NO  GROUPS  ACTIVE:  CIIM0DES30)  = OCT  37411. 

R0323  RESTART  WITH  ACTIVE  GROUPS:  CIIM0DES30)  = ( B ( IM0DES30 ) AND ( OC T 00035))  PLUS  OCT  37400. 

R0325  THIS  LEAVES  IMU  FAIL  BITS  INTACT. 


R0326  ALARMS:  NONE. 


R0327  EXIT:  TNONTEST . 


.0328 

OUTPUT : 

UPOATED  I M0DES30  WITH  CHANGES 

PROCESSED 

0330 

REF 

2 

LAST 

161 

06,2172 

3 1277 

1 

IMUMON 

033  1 

06,2173 

0 0006 

1 

0332 

REF 

1 

06,2174 

06  030 

1 

0333 

REF 

l 

06,2175 

7 2761 

1 

0334 

06,21/6 

0 0006 

1 

0335 

REF 

1 

06,2177 

1 2227 

0 

0336 

REF 

4 

LAST 

169 

06,2200 

54  070 

1 

033  7 

REF 

3 

LAST 

171 

06,2201 

23 1 2 77 

l 

0338 

06,2202 

0 0006 

1 

0339 

REF 

2 

LAST 

168 

06,2203 

06  001 

0 

034  0 

REF 

4 

LAST 

171 

06,2204 

55*277 

0 

034  l 

REF 

2 

LAST 

167 

06,2205 

4 4744 

0 

0342 

REF 

5 

LAST 

17  1 

06,2206 

56  C70 

0 

0343 

06,2207 

0 0006 

1 

BY  APPROPRIATE  SUBROUTINE. 


CA 

I M0DES30 

SEE  IF  THERE  HAS 

BEEN 

A CHANGE 

EXTEND 

RXOR 

CHAN30 

RELFVANT  BITS  OF 

CHAN 

30. 

MASK 

EXTEND 

30RDMSK 

BZF 

TNONTEST 

NO  CHANGE  IN  STATUS. 

TS 

RUPTREG 1 

SAVE  BITS  WHICH 

HAVE 

CHANGED. 

LXCH 

EXTEND 

I MODE  S30 

UPDATE  I MODES  30. 

RXOR 

LCHAN 

TS 

I M0DES30 

CS 

ONE 

XCH 

EXTEND 

RUPTREG1 

IN  THE 
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L T4RUPT  PROGRAM 


0 344 

REF 

1 

06,2210 

6 

2514 

0 

B2MF 

TLIM 

0345 

REF 

l 

06,  221  L 

1 

2213 

1 

TCF 

NXTIFBIT 

0346 

REF 

3 

LAST 

171 

06,2212 

6 

4744 

1 

-1 

AD 

ONE 

034  7 

REF 

6 

LAST 

171 

06,2213 

24 

C70 

0 

NXTIFBIT 

INCR 

RUPTREG1 

0348 

06,2214 

6 

0000 

1 

+ 1 

D0U8LE 

0349 

REF 

2 

LAST 

168 

06,2215 

54 

COO 

0 

TS 

A 

0350 

REF 

2 

LAST 

172 

06, 2216 

1 

2213 

1 

TCF 

NXTIFBIT 

0351 

REF 

l 

06,2217 

56 

071 

1 

XCH 

RUPTREG2 

0352 

REF 

7 

LAST 

172 

06,2220 

50 

C70 

0 

INDEX 

RUPTREG 1 

0353 

REF 

19 

LAST 

170 

06,2221 

3 

4727 

1 

CAF 

B I T 1 4 

0354 

REF 

5 

LAST 

171 

06,2222 

7 

1277 

0 

MASK 

I M0DES30 

0355 

REF 

8 

LAST 

172 

06,2223 

50 

070 

0 

INDEX 

RUPTREG1 

0356 

REF 

1 

06,2224 

0 

2755 

1 

TC 

IFAILJMP 

0357 

REF 

2 

LAST 

172 

06,2225 

10 

C71 

0 

NXTI FAIL 

CCS 

RUPTREG2 

0358 

REF 

3 

LAST 

172 

06,2226 

1 

2212 

0 

TCF 

NXTIFBIT 
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USER'S  PAGE  NO.  8 F6  S4 

CHANGE  IN  IMU  TEMP. 

BEGIN  BIT  SCAN. 

(RE-ENTERS  HERE  FROM  NXTIFAIL.) 
ADVANCE  BIT  POSITION  NUMBER. 

SKIP  IF  OVERFLOW. 

LOOK  FOR  BIT. 

SAVE  OVERFLOW-CORRECTED  DATA. 

SELECT  NEW  VALUE  OF  THIS  BIT. 


1 


PROCESS  ANY  ADDITIONAL  CHANGFS 


GAP : 
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L 

P0359 

R0360 

R0362 

R0364 

R0366 

R0368 

R0370 

R0372 
R0374 
R037  6 
R0378 

R037  9 
R0381 

R0  38  3 
R038S 
R0387 
R0389 
R039  l 
R0393 
R0395 
R 0 39  7 
R0399 

R040  l 
R040  3 

R0405 

R0406 

R0408 

R0410 

R04L  1 

R0413 

R0414 

R0416 

R0418 

R0420 

R042  1 

0422 


T4RUPT  PROGRAM  USER'S  PAGE  NO.  9 E6  S4 

PROGRAM  NAME:  TNONTEST . 

FUNCTIONAL  DESCRIPTION:  THIS  PROGRAM  HONORS  REQUESTS  FOR  ISS  INITIALIZATION.  I SS  TURN-ON  (CHANNEL  30  BIT  14) 

AND  ISS  OPERATE  I CHANNEL  30  BIT  9)  REQUESTS  ARE  TREATED  AS  A PAIR  AND  PROCESSING  TAKES  PLACE  .480  SECONDS 
AFTER  EITHER  ONE  APPEARS.  THIS  INITIALIZATION  TAKES  ON  ONE  OF  THE  FOLLOWING  THREE  FORMS: 

1)  ISS  TURN-ON:  IN  THIS  SITUATION  THE  COMPUTER  IS  OPERATING  WHEN  THE  ISS  IS  TURNED  ON.  NOMINALLY, 

BOTH  ISS  TURN-ON  AND  ISS  OPERATE  APPEAR.  THE  PLATFORM  IS  CAGED  FOR  90  SECONDS  AND  THE  ICDU'S  ZEROED 
SO  THAT  AT  THE  END  OF  THE  PROCESS  THE  GIMBAL  LOCK  MONITOR  WILL  FUNCTION  PROPERLY. 

2)  I CDU  INITIALIZATION:  IN  THIS  CASE  THE  COMPUTER  WAS  PROBABLY  TURNED  ON  WITH  THE  ISS  IN  OPERATE  OR 

A FRESH  START  WAS  DONE  WITH  THE  ISS  IN  OPERATE.  IN  THIS  CASE  ONLY  ISS  OPERATE  IS  ON.  THE  ICDU'S  ARE 
ZEROED  SO  THE  GIMBAL  LOCK  MONITOR  WILL  FUNCTION.  AN  EXCEPTION  IS  IF  THE  ISS  IS  IN  GIMBAL  LOCK  AFTER 
A RESTART,  THE  ICDU'S  WILL  NOT  BE  ZEROED. 

3)  RESTART  WITH  RESTARTABLE  PROGRAM  USING  THE  IMU:  IN  THIS  CASE,  NO  INITIALIZATION  TAKES  PLACE  SINCE 

IT  IS  ASSUMED  THAT  THE  USING  PROGRAM  DID  THE  INITIALIZATION  AND  THEREFORE  T4RUPT  SHOULD  NOT  INTERFERE. 

I MODE  S30  BIT  7 IS  SET  = 1 BY  THE  FIRST  BIT  (CHANNEL  30  BIT  14  OR  9)  WHICH  ARRIVES.  FOLLOWING  THIS.  TNONTEST  IS 
ENTERED,  FINDS  BIT  7 = 1 BUT  BIT  8 = 0,  SO  IT  SETS  BIT  8 = 1 AND  EXITS.  THE  NEXT  TIME  IT  FINDS  BIT  8 = 1 AND 
PKOCFECS , SETTING  BITS  8 AND  7=0.  AT  PROCTNON,  IF  ISS  TURN-ON  REQUEST  IS  PRFSENT , THE  ISS  IS  CAGED  (ZERO  + 
COARSE).  IF  ISS  OPERATE  IS  NOT  PRESENT  PROGRAM  ALARM  00213  IS  ISSUED.  AT  THE  END  OF  A 90  SECOND  CAGE,  BIT  2 
OF  I MODE  S30  IS  TESTED.  IF  IT  IS  = 1,  ISS  TURN-ON  WAS  NOT  PRESENT  FOR  THE  ENTIRE  90  SECONDS.  IN  THAT  CASE,  IF 
THE  ISS  TURN-ON  REQUEST  IS  PRESENT  THE  90  SECOND  WAIT  IS  REPEATED,  OTHERWISE  NO  ACTION  OCCURS  UNLESS  A PROGRAM 
WAS  WAITING  FOR  THE  INITIALIZATION  IN  WHICH  CASE  THE  PROGRAM  IS  GIVEN  AN  IMUSTALL  ERROR  RETURN.  IF  THE  DELAY 
WENT  PROPERLY,  THE  ISS  DELAY  OUTBIT  IS  SENT  AND  THE  ICDU'S  ZEROED.  A TASK  IS  INITIATED  TO  REMOVE  THE  PIPA  FAIL 
INHIBIT  BIT  IN  10.24  SECONDS.  IF  A MISSION  PROGRAM  WAS  WAITING  IT  IS  INFORMED  VIA  ENDIMU. 

AT  PROCTNON,  IF  ONLY  ISS  OPERATE  IS  PRESENT  (OPONLY),  THE  CDU'S  ARE  ZEROED  UNLESS  THE  PLATFORM  IS  IN  COARSE 
ALIGN  (=  GIMBAL  LOCK  HERE)  OR  A MISSION  PROGRAM  IS  USING  THE  IMU  ( I MUSEFLG  = 1). 

CALLING  SEQUENCE:  T4RUPT  EVERY  480  MILLISECONDS  AFTER  IMUMON. 

JOBS  OR  TASKS  INITIATED:  1)  ENDTNON , 90  SECONDS  AFTER  CAGING  STARTED.  2)  ISSUP,  4 SECONDS  AFTER  CAGING  DONE. 

3)  PFAILOK,  10.24  SECONDS  AFTER  INITIALIZATION  COMPLETED.  4)  UNZ  2 , 320  MILLISECONDS  AFTER  ZEROING 
STARTED. 

SUBROUTINES  CALLED:  CAGESUB,  CAGESU82,  ZEROICDU,  ENDIMU,  IMUBAD,  NOATTOFF,  SETISSW,  VARDELAY. 

ERASABLE  INITIALIZATION:  SEE  IMUMON. 

ALARMS:  PROGRAM  ALARM  00213  IF  ISS  TURN-ON  REQUESTED  WITHOUT  ISS  OPERATE. 

EXIT:  ENDTNON  EXITS  TO  C33TEST.  TASKS  HAVING  TO  DO  WITH  INITIALIZATION  EXIT  AS  FOLLOWS:  MISSION  PROGRAM 

WAITING  AND  INITIALIZATION  COMPLETE,  EXIT  TO  ENDIMU,  MISSION  PROGRAM  WAITING  AND  INITIALIZATION  FAILED,  EXIT  TO 
IMUBAC,  IMU  NOT  IN  USE,  EXIT  TO  TASKUVER. 

OUTPUT:  ISS  INITIALIZED. 

REF  6 LAST  172  06,2227  4 1277  0 TNONTEST  CS  IM0DES30  AFTER  PROCESSING  ALL  CHANGES,  SEE  IF  IT 


GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L 14RUPT  PROGRAM 


042  3 

REF 

15 

LAST 

90 

06,2230 

7 4736 

0 

MASK 

B IT7 

0424 

REF 

3 

LAST 

172 

06,2231 

10  COO 

0 

CCS 

A 

0425 

REF 

1 

06,2232 

1 2374 

1 

TCF 

C33TEST 

0426 

REF 

14 

LAST 

89 

06, 2233 

3 4735 

1 

CAF 

BIT8 

042  7 

REF 

7 

LAST 

173 

06,2234 

7 1277 

0 

MASK 

I MODE  S30 

042  8 

REF 

4 

LAST 

174 

06,2235 

LO  OOO 

0 

CCS 

A 

0429 

REF 

1 

06,2236 

1 2242 

0 

TCF 

PROCTNON 

0430 

REE 

15 

LAST 

1 74 

06,2237 

3 4735 

1 

CAF 

B IT8 

043  1 

REF 

8 

LAST 

174 

06,2240 

27 1 277 

0 

ADS 

I MOD E S30 

0432 

REF 

2 

LAST 

174 

06,2241 

l 2 3 74 

1 

TCF 

C33TEST 

R0433 

PROCESS  IMU 

TURN-ON 

REQUESTS  i 

AFTER  WAITING  1 SAMPLE  FOR 

0435 

REF 

1 

06,2242 

4 2777 

0 

PROCTNON 

cs 

8 I TS  7 £8 

0436 

REF 

9 

LAST 

174 

06,2243 

7 1277 

0 

MASK 

I M0DES30 

043  7 

REF 

10 

LAST 

1 74 

06,2244 

55 ' 277 

0 

TS 

I M0DES30 

0438 

REF 

20 

LAST 

172 

06,2245 

7 4727 

0 

MASK 

BIT14 

043  9 

REF 

5 

LAST 

174 

06,2246 

10  000 

0 

CCS 

A 

044  0 

REF 

1 

06,2247 

1 2347 

1 

TCF 

OPONLY 

044  1 

REF 

1 1 

LAST 

174 

06, 2250 

4 1277 

0 

CS 

I MODE  S30 

0442 

REF 

13 

LAST 

170 

06,2251 

7 4734 

1 

MASK 

B I T9 

0443 

REF 

6 

LAST 

1 74 

06,2252 

10  COO 

0 

CCS 

A 

0444 

06,2253 

l 2256 

0 

TCF 

+ 3 

044  5 

REF 

1 

06,2254 

0 5571 

1 

TC 

ALARM 

044  6 

06,2255 

00213 

1 

OCT 

213 

044  7 

REF 

1 

06,2256 

0 2735 

1 

+3 

TC 

CAGESUB 

044  8 

REF 

1 

06,2257 

3 3005 

1 

CAF 

90SECS 

044  9 

RF-F 

1 

06,2260 

0 5205 

0 

TC 

WAITLIST 

0450 

REF 

3 

LAST 

165 

E6 , 1 414 

EBANK= 

Mil 

045  I 

REF 

1 

06,2261 

02266 

L 

2CADR 

ENDTNON 

045  1 

REF 

1 

06,2262 

14  106 

0 

0452 

REF 

3 

LAST 

174 

06,2263 

1 2374 

1 

TCF 

C33TEST 

045  3 

REF 

2 

LAST 

174 

06,2264 

3 3005 

l 

RETNON 

CAF 

90SECS 

0454 

REF 

1 

06, 2265 

0 5226 

1 

TC 

V ARDELAY 
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IS  TIME  TO  ACT  ON  A TURN-ON  SEQUENCE. 
NO  - EXAMINE  CHANNEL  33. 

SEE  IF  FIRST  SAMPLE  OR  SECOND. 

REACT  AFTER  SECONO  SAMPLE. 

IF  FIRST  SAMPLE,  SET  BIT  TO  REACT  NEXT 
TIME. 

ALL  SIGNALS  TO  ARRIVE. 


SEE  IF  TURN-ON  REQUEST. 

OPERATE  ON  ONLY. 

IF  TURN-ON  REQUEST,  WE  SHOULD  HAVE  IMU 
OPERATE. 

ALARM  IF  NOT. 


RESET  TURN-ON  REQUEST  FAIL  BIT. 

IF  IT  WAS  OFF,  SEND  ISS  DELAY  COMPLETE. 


IF  IT  WAS  ON  AND  TURN-ON  REQUEST  NOW 
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PRESENT,  RE-ENTER  90  SEC  DELAY  IN  WL. 

IF  IT  IS  NOT  ON  NOW,  SEE  IF  A PROG  WAS 
WAITING. 

UNSUCCESSFUL  TURN-ON. 

SEND  ISS  DELAY  COMPLETE. 

TURN  OFF  NO  ATT  LAMP. 


REMOVE  ZERO  AND  COARSE. 

WAIT  10  SECS  FOR  CTRS  TO  FIND  GIMBALS 

REMOVE  CAGING,  I MU  FAIL  INHIBIT,  AND 
ICDUFAIL  INHIBIT  FLAGS. 

ENABLE  DAP 


TFST  DRIFTFLG:  IF  ON,  DO  NOTHING  BECAUSE 
IMUCOMP  SHOULD  BF  ALL  SFT  UPIPESTART 
WITH  IMUSE  DOWN).  IF  OFF,  SET  DRIFTFLG 
AMD  1/PIPAOT  TO  GET  FREEFALL  IMUCOMP 
GOING  I FRF  SH  START  OR  ISS  TURN-ON). 

CANNOT  GFT  HERE  IF  RESTART  WITH  IMUSE  UP 

ISS  WARNING  MIGHT  HAVE  BEEN  INHIBITFD. 

REMOVE  IMU  DELAY  COMPLETE  DISCRETE. 


DONT  ENABLE  PROG  ALARM  ON  PIP  FAIL  FOR 


GAP 
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TC 

EBANK= 

2CADR 

WAITLIST 

CDUIND 

PFAILOK 

ANOTHER  4 SECS. 

TCF 

TASKOVER 

CAF 

EXTEND 

RAND 

CCS 

TCF 

BIT4 

CHAN12 

A 

C33TEST 

IF  OPERATE  ON  ONLY,  AND  WE  ARE  IN 
ALIGN,  DONT  ZERO  THE  CDUS  BECAUSE 
MIGHT  BF  IN  GIMBAL  LOCK 

COARSE 

WE 

CAF 

MASK 

CCS 

TCF 

IMUSEBIT 

FLAGWRDO 

A 

C33TEST 

OTHERWISE,  ZERO  THE  COUNTERS. 
UNLESS  SOMEONE  IS  USING  T HF  IMU. 

TC 

C AGESUB2 

SET  TURNON  FLAGS. 

TC 

CADR 

I BNKCALL 
NUATTOFF 

TURN  OFF  NO  ATT  LAMP 

IMU  CAGE  OFF  ENTRY 

CAF 

EXTEND 

WOR 

BITS 

CHAN12 

ISS  COU  ZERO 

TC 

CAF 

TC 
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WAITLIST 

Mil 

UNZ2 

WAIT  300  MS  FOR  AGS  TO  RECEIVE  SIGNAL. 

TCF 

C33TEST 
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P0520  PROGRAM  NAME:  C33TEST 

R0521  FUNCTIONAL  DESCRIPTION:  THIS  PROGRAM  MONITORS  THREE  FLIP-FLOP  INBITS  OF  CHANNEL  33  AND  CALLS  THF  APPROPRIATE 

R0523  SUBROUTINE  TO  PROCESS  A CHANGE.  IT  IS  ANALOGOUS  TO  IMUMON,  WHICH  MONITORS  CHANNEL  30,  EXCEPT  THAT  IT  READS 

R0525  CHANNEL  33  WITH  A WAND  INSTRUCTION  BECAUSE  A 'WRITE'  PULSE  IS  REQUIRED  TO  RESET  THE  FLIP-FLOPS.  THE  BITS 
R0527  PROCESSED  AND  THE  SUBROUTINES  CALLED  ARE: 


R0528 
R052  9 

BIT 

FUNCTION 

SUBROUTINE 

13 

PIPA  FAIL 

P I PF  A I L 

R0530 

R0531 

12 

DOWNLINK  TOO  FAST 

DNTMFAST 

R0532 

11 

UPLINK  TOO  FAST 

UPTMFAST 

R0533  UPCN  ENTRY  TO  THE  SUBROUTINE,  TFE  NEW  BIT  STATE  IS  IN  A. 

R0534  CALLING  SEQUENCE:  EVERY  480  MILLISECONDS  AFTER  T NONTEST. 

R0535  JOBS  OR  TASKS  INITIATED:  NONE. 

R0536  SUBROUTINES  CALLED:  PIPFAIL,  DNTMFAST  AND  UPTMFAST  ON  BIT  CHANGES. 

R0537  ERASABLE  INITIALIZATION:.  CIIM0DES33)  = OCT  16000  ON  A FRESH  START  OR  RESTART,  THEREFORE,  THESE  ALARMS  WILL 
R0539  REAPPEAR  IF  THE  CONDITIONS  PERSIST. 

R0540  ALARMS:  NONE. 

R0541  EXIT:  GLOCKMON. 


R0542  OUTPUT:  UPDATED  BITS  13,  12  ANO  11  OF  IMODES33  WITH  CHANGES  PROCESSED. 
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-1 

AD 

ONE 

0563 

REF 

11 

LAST 

177 

C6.2A20 

2 A C 70 

0 

NXTI BT 

INCR 

RUPTREG1 

056  A 

06, 2A21 

6 COOO 

l 

+ 1 

DOUBLE 

0565 

REF 

10 

LAST 

176 

06 , 2 A22 

5A  000 

0 

TS 

A 

0566 

REF 

2 

LAST 

178 

06, 2A23 

1 2 A20 

1 

TCF 

NXTI BT 

056  7 

REF 

3 

LAST 

172 

06.2A2A 

56  071 

1 

XCH 

RUPTREG2 

0568 

REF 

12 

LAST 

178 

06.2A25 

50  070 

0 

INDEX 

RUPTREG1 

0569 

REF 

16 

LAST 

89 

06, 2 A26 

3 A 730 

l 

CAF 

B I T 1 3 

0570 

REF 

9 

LAST 

177 

06.2A27 

7 13  00 

1 

MASK 

I MODE  S 3 3 

057  1 

REF 

13 

LAST 

178 

06 , 2 A3  0 

50  C 70 

0 

INDEX 

RUPTREG1 

0572 

REF 

1 

06, 2A31 

0 2 763 

1 

TC 

C33JMP 

0573 

REF 

A 

LAST 

178 

06 , 2 A32 

10  071 

0 

NXTFL33 

CCS 

RUPTREG2 

05  7 A 

REF 

3 

LAST 

178 

06, 2A33 

1 2 A 1 7 

0 

TCF 

N XT  I BT  -1 
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SCAN  FOR  BIT  CHANGES. 

(COOING  IDENTICAL  TO  CHAN  30). 

GET  NEW  VALUE  OF  BIT  WHICH  CHANGED. 

PROCESS  POSSIBLE  ADDITIONAL  CHANGES. 


GAP: 
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T4RUPT  PROGRAM 


USER'S  PAGE  NO.  IS  E6  S4 


P0575  PROGRAM  NAME:  GLOCKMON 


R0576  FUNCTICNAL  DESCRIPTION:  THIS  PROGRAM  MONITORS  THE  COUZ  COUNTER  TO  DETERMINE  WHETHER  THE  ISS  IS  IN  GIMBAL  LOCK 

R0578  AND  TAKES  ACTION  IF  IT  IS.  THREE  REGIONS  OF  MIDDLE  GIMBAL  ANGLE  ( MGA ) ARE  USED: 

R0580  1)  ABS(MCA)  LESS  THAN  OR  EQUAL  TO  70  DEGREES  - NORMAL  MODE. 

R0581  2)  ABS(MGA)  GREATER  THAN  70  DEGREES  AND  LESS  THAN  OR  EQUAL  TO  85  DEGREES  - GIMBAL  LOCK  LAMP  TURNED  ON. 

R0583  3)  ABS(MGA)  GREATER  THAN  85  DEGREES  - ISS  PUT  IN  COARSE  ALIGN  AND  NO  ATT  LAMP  TURNED  ON. 


R0585  CALLING  SEQUENCE:  EVFRY  480  MILLISECONDS  AFTER  C33TEST. 

R0586  JOBS  CR  TASKS  INITIATED:  NONE. 


R0587  SUBROUTINES  CALLED:  1)  SETCOARS  WHEN  ABS(MGA)  GREATER  THAN  85  DEGREES  AND  ISS  NOT  IN  COARSE  ALIGN. 

R0589  2)  LAMPTEST  BEFORE  TURNING  OFF  GIMBAL  LOCK  LAMP. 


R0590  ERASABLE  INITIALIZATION: 


R059  1 
R0593 
R0595 


1)  FRESH  START  OR  RESTART  WITH  NO  GROUPS  ACTIVE:  C(CDUZ)  = 0,  IMODES30  BIT  6=0,  IM0DES33  BIT  1 = 0. 

2)  RESTART  WITH  GROUPS  ACTIVE:  SAME  AS  FRESH  START  EXCEPT  C(CDUZ)  NOT  CHANGED  SO  GIMBAL  MONITOR 

PROCEEDS  AS  BEFORE. 


R0596  ALARMS:  l)  MGA  REGION  (2)  CAUSES  GIMBAL  LOCK  LAMP  TO  BE  LIT. 


R0597 

2)  MGA 

REGION  (3)  CAUSES  THE 

ISS  TO  8E 

PUT  IN 

COARSE  ALIGN 

AND  THE  NO  ATT  LAMP  TO  BE  LIT  IF  EITHER  NOT 

R0599 

SO 

ALREACY. 

0600 

REF 

2 

LAST 

161 

06,2434 

10  034 

1 

GLOCKMON 

CCS 

CDUZ 

060  1 

REF 

1 

06,2435 

1 2441 

0 

TCF 

GLOCKCHK 

SEE  IF  MAGNITUDE  OF  MGA  IS  GREATFR  THAN 

0602 

REF 

1 

06, 2436 

1 2465 

0 

TCF 

SETGLOCK 

70  DEGREFS. 

0603 

REF 

2 

LAST 

179 

06,2437 

1 2441 

0 

TCF 

GLOCKCHK 

0604 

REF 

2 

LAST 

179 

06,2440 

1 2465 

0 

TCF 

SETGLOCK 

0605 

REF 

1 

06,2441 

6 2512 

0 

GLOCKCHK 

AD 

-70DEGS 

060  6 

06,2442 

0 C006 

1 

EXTEND 

060  7 

REF 

3 

LAST 

179 

06,2443 

6 2464 

0 

BZMF 

SETGLOCK  -1 

NO  LOCK. 

0608 

REF 

1 

06,2444 

6 2513 

1 

AD 

-15DEGS 

SEE  IF  ABS(MGA)  GREATER  THAN  85  DEGREES 

0609 

06,2445 

0 C006 

1 

EXTEND 

0610 

REF 

1 

06,2446 

6 2462 

0 

BZMF 

NOGIMRUN 

061  1 

REF 

14 

LAST 

176 

06, 2447 

3 4741 

1 

CAF 

B IT4 

IF  SO,  SYSTFM  SHOULD  BE  IN  COARSE  ALIGN 

0612 

06,2450 

0 0006 

1 

EXTEND 

TO  PREVENT  GIMBAL  RUNAWAY. 

0613 

REF 

6 

LAST 

176 

06,2451 

02  C 12 

0 

RAND 

CHAN12 

0614 

REF 

11 

LAST 

178 

06,2452 

10  OOO 

0 

CCS 

A 

0615 

REF 

2 

LAST 

179 

06,2453 

1 2462 

1 

TCF 

NOGIMRUN 

0616 

REF 

3 

LAST 

176 

06 , 2454 

0 4665 

0 

TC 

I RNKCALL 

061  7 

REF 

l 

06,2455 

17131 

1 

CADR 

SETCOARS 

06173 

REF 

1 

06,2456 

3 6263 

0 

CAF 

S IX 

ENABLE  ISS  ERROR  COUNTERS  IN  60  MS 

06174 

REF 

4 

LAST 

176 

06,2457 

0 5205 

0 

TC 

WAITLIST 
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061  7 5 

REF 

2 

LAST 

176 

E3, 1474 

ebank= 

CCUINO 

061  76 

REF 

1 

06,2460 

03125 

1 

2C  ADR 

CA+ECE 

06176 

REF 

1 

06,2461 

16103 

1 

0618 

REF 

15 

LAST 

176 

06,2462 

3 

4737 

0 

NOGI MRUN 

CAF 

B IT6 

0619 

REF 

4 

LAST 

179 

06, 2463 

l 

2465 

0 

TCF 

SETGLOCK 

062  0 

REF 

4 

LAST 

177 

06,2464 

3 

4746 

0 

-1 

CAF 

ZERO 

0621 

REF 

6 

LAST 

167 

06,2465 

6 

1035 

0 

SETGLOCK 

AD 

DSPTAB  +1 

062  2 

REF 

16 

LAST 

180 

06 , 2466 

7 

4737 

1 

MASK 

BIT6 

062  3 

06,2467 

0 

0006 

1 

EXTEND 

0624 

REF 

1 

06,2470 

1 

3006 

0 

BZF 

GLOCKOK 

0625 

REF 

7 

LAST 

180 

06,2471 

7 

1035 

1 

MASK 

DSPTAB  +1 

0626 

REF 

12 

LAST 

179 

06,2472 

10 

i 000 

0 

CCS 

A 

062  7 

REF 

1 

06,2473 

L 

2507 

0 

TCF 

GLAMPTST 

062  8 

REF 

1 7 

LAST 

180 

06,2474 

3 

4737 

0 

CAF 

B IT6 

0629 

REF 

17 

LAST 

175 

06,2475 

7 

1277 

0 

MASK 

I M0DES30 

0630 

REF 

13 

LAST 

180 

06,2476 

10 

000 

0 

CCS 

A 

0631 

REF 

2 

LAST 

180 

06,2477 

1 

3C06 

0 

TCF 

GLOCKOK 

0632 

REF 

8 

LAST 

180 

06,2500 

4 

1035 

1 

GLINVERT 

CS 

DSPTAB  +1 

0633 

REF 

18 

LAST 

130 

06,2501 

7 

473  7 

1 

MASK 

B IT6 

0634 

REF 

15 

LAST 

175 

06,2502 

6 

4726 

0 

AD 

B I T 1 5 

0635 

REF 

9 

LAST 

180 

06,2503 

57 

' 035 

0 

XCH 

DSPTAB  +1 

0636 

REF 

l 

06,2504 

7 

2 162 

1 

MASK 

OCT37737 

063  7 

REF 

10 

LAST 

180 

06,2505 

27 

1 035 

1 

ADS 

DSPTAB  +1 

0638 

REF 

3 

LAST 

180 

06,2506 

1 

3006 

0 

TCF 

GLOCKOK 

0639 

REF 

1 

06,2507 

0 

2766 

l 

GL AM  P T ST 

TC 

L AMPTEST 

064  0 

REF 

4 

LAST 

180 

06,2510 

L 

3006 

0 

TCF 

GLOCKOK 

0641 

REF 

1 

06,2511 

1 

2500 

1 

TCF 

GLINVERT 

0642 

06,2512 

63434 

l 

-700EGS 

DEC 

- .38888 

064  3 

06,2513 

75252 

0 

-150EGS 

DEC 

- .08333 
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TURN  ON  GIMBAL  LOCK  LAMP. 


SEE  IF  PRESENT  STATE  OF  GIMBAL  LOCK  LAMP 
AGREES  WITH  DESIRED  STATF  BY  HALF  ADDING 
THE  TWO. 

OK  AS  IS. 

IF  OFF,  DONT  TURN  ON  IF  I MU  BF1NG  CAGED. 
TURN  OFF  UNLESS  LAMP  TEST  IN  PROGRESS. 


INVERT  GIMBAL  LUCK  LAMP. 

TO  INDICATE  CHANGE  IN  DSPTA8  +11D. 


TURN  OFF  UNLESS  LAMP  TEST  IN  PROGRESS. 


-70  DEGREES  SCALED  IN  HALF-REVOLUTIONS 


GAP: 

L 

P0644 

R0645 

R0647 

R0649 

R0650 

R 065  1 

R0652 

R0653 

R0655 

R0656 

R 065  7 

0659 

0660 

0661 

0662 

0663 

0664 

066  5 

0666 

066  7 

066  8 

0669 

0670 

0671 

0672 

0673 
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PROGRAM  NAME:  TLIM, 


17:11  MAR.  19,1971 

USER' S PAGE  NO. 


17 


E6  S4 


FUNCTIONAL  DESCRIPTION:  THIS  PROGRAM  MAINTAINS  THE  TEMP  LAMP  (BIT  4 OF  CHANNEL  11)  ON  THE  DSKY  TO  AGREE  WITH 
THE  TEMP  SIGNAL  FROM  THE  ISS  (BIT  15  OF  CHANNEL  30).  HOWEVER,  THE  LIGHT  WILL  NOT  BE  TURNED  OFF  IF  A LAMP  TEST 
IS  IN  PROGRESS. 

CALLING  SEQUENCE:  CALLED  BY  IMUMON  ON  A CHANGE  OF  BIT  15  OF  CHANNEL  30. 

JUBS  OR  TASKS  INITIATED:  NONE. 

SUBROUTINES  CALLED:  LAMPTEST. 


ERASABLE  INITIALIZATION:  FRESH  START  ANO  RESTART  TURN 


ALARMS: 

TEMP 

LAMP 

TURNED  ON 

WHEN  IMU 

TEMP  GOES 

OUT  OF 

EXIT; 

NXTIFAI L. 

OUTPUT  : 

SERVICE  OF 

TEMP  LAMP 

• 

REF 

1 

06,2514 

7 4724 

0 

TLIM 

MASK 

REF 

5 

LAST 

176 

06,2515 

54  071 

0 

TS 

REF 

18 

LAST 

180 

06,2516 

11 • 277 

0 

CCS 

REF 

1 

06,2517 

1 2525 

0 

TCF 

KEF 

2 

LAST 

181 

06,2520 

1 2525 

0 

TCF 

REF 

15 

LAST 

179 

06, 2521 

3 4741 

1 

CAF 

06,2522 

0 0006 

l 

EXTENt 

REF 

l 

06,2523 

05  Oil 

1 

WOR 

REF 

1 

06,2524 

1 2225 

1 

TCF 

REF 

2 

LAST 

180 

06,2525 

0 2766 

1 

TEMPOK 

TC 

REF 

2 

LAST 

181 

06,2526 

1 2225 

1 

TCF 

REF 

16 

LAST 

1BI 

06,2527 

4 4741 

0 

CS 

06,2530 

0 0006 

1 

EXTENC 

REF 

2 

LAST 

181 

06,2531 

03  Oil 

1 

WAND 

REF 

3 

LAST 

181 

06,2532 

1 2225 

1 

TCF 

THE  TEMP  LAMP 

OFF. 

LIMITS. 

IN  A,  EXCEPT  FOR  TLIM. 

POSMAX 

RUPTREG2 

REMOVE  BIT  FROM  WORD  OF  CHANGES  AND 
DSKY  TEMP  LAMP  ACCORDINGLY. 

SET 

I M00ES30 

TEMPOK 

TEMPOK 

B IT4 

TURN  ON  LAMP. 

DSALMOUT 
N XT  I FA  I L 

LAMPTEST 

NXTIFAIL 

IF  TEMP  NOW  OK,  DONT  TURN  OFF  LAMP 
LAMP  TEST  IN  PROGRESS. 

IF 

BIT4 

DSALMOUT 

NXTIFAIL 

TURN  OFF  LAMP 
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P0674  PROGRAM  NAME:  I TURNON. 

K0675  FUNCTIONAL  DESCRIPTION:  THIS  PROGRAM  IS  CALLED  BY  IMUMON  WHEN  A CHANGE  OF  BIT  14  OF  CHANNEL  30  (ISS  TURN-ON 

R0677  REQUEST)  IS  DETECTED.  UPUN  ENTRY,  I TURNON  CHECKS  IF  A TURN-ON  DELAY  SEQUENCE  HAS  FAILED,  AND  IF  SO,  IT  EXITS. 

R0679  IF  NOT,  IT  CHFCKS  WHETHER  THE  TURN-ON  REQUEST  CHANGE  IS  TO  ON  OR  OFF.  IF  ON,  IT  SETS  BIT  7 OF  IM0DES30  TO  1 SO 

R 068 1 THAT  TNONTEST  WILL  INITIATE  THE  ISS  INITIALIZATION  SEQUENCE.  IF  OFF,  THF  TURN-ON  DELAY  SIGNAL,  CHANNFL  12  BIT 

R0683  15,  IS  CHECKED  AND  IF  IT  IS  ON,  I TURNON  EXITS.  IF  THE  DELAY  SIGNAL  IS  OFF,  PROGRAM  ALARM  00207  IS  ISSUED,  BIT  2 

R0605  OF  1MCDES30  IS  SET  TO  1 AND  THE  PROGRAM  EXITS. 

R0686  THE  SETTING  OF  BIT  2 OF  IM0DES30  (ISS  DELAY  SEQUENCE  FAIL)  INHIBITS  THIS  ROUTINE  AND  IMUOP  FROM 

R0688  PROCESSING  ANY  CHANGES.  THIS  BIT  WILL  BE  RESET  BY  THE  ENDTNON  ROUTINE  WHEN  THE  CURRENT  90  SFCOND  DELAY  PERIOD 
R0690  ENDS. 

R0691  CALLING  SEQUENCE:  FRCM  IMUMOM  WHEN  ISS  TURN-ON  REQUEST  CHANGES  STATE. 

R0692  JOBS  OR  TASKS  INITIATED:  NONE. 

R0693  SUBROUTINES  CALLED:  ALARM,  IF  THE  ISS  TURN-ON  REQUEST  IS  NOT  PRESENT  FOR  90  SECONDS. 

R0695  ERASABLE  INITIALIZATION:  FRESH  START  AND  RESTART  SET  BIT  15  OF  CHANNEL  12  AND  BITS  2 AND  7 OF  IM0DES30  TO  0, 

R0697  AND  BIT  14  OF  IMODES30  TO  1. 

R0698  ALARMS:  PROGRAM  ALARM  00207  IS  ISSUED  IF  THF  ISS  TURN-ON  REQUEST  SIGNAL  IS  NOT  PRESENT  FOR  90  SECONDS. 

R0700  EXIT:  NXTIFAIL. 


R0701  UUTPUT:  BIT  7 OF  IM0DES30  TO  START  ISS  INITIALIZATION,  OR  BIT  2 OF  IM0DES30  AND  PROGRAM  ALARM  00207  TO  INDICATE 

R0703  A FAILED  TURN-ON  SEQUENCE. 


0 704 

REF 

16 

LAST 

174 

06,2533 

3 

4743 

0 

I TURNON  CAF 

B IT2 

IF  DELAY  REQUEST  HAS  GONE  OFF 

0705 

REF 

19 

LAST 

181 

06,2534 

7 

12  77 

0 

MASK 

I MODE  S3 0 

PREMATURELY,  DO  NOT  PROCFSS  ANY  CHANGES 

0706 

REF 

14 

LAST 

180 

06,2535 

1C 

l 000 

0 

CCS 

A 

UNTIL  THE  CURRENT  90  SEC  WAIT  EXPIRES. 

0707 

REF 

4 

LAST 

181 

06,2536 

l 

2225 

l 

TCF 

NXTIFAI L 

0 70  8 

REF 

22 

LAST 

174 

06,2537 

3 

4727 

1 

CAF 

B I T 1 4 

SEE  IF  JUST  ON  OR  OFF. 

0709 

REF 

20 

LAST 

182 

06,2540 

7 

12  77 

0 

MASK 

I M0DES30 

0710 

06,2541 

0 

0006 

1 

EXTEND 

071  l 

REF 

1 

06,2542 

1 

2556 

1 

BZF 

I TURN0N2 

IF  JUST  ON. 

0712 

REF 

16 

LAST 

180 

06,2543 

3 

4726 

0 

CAF 

BIT  15 

0713 

06,2544 

0 

0006 

1 

EXTEND 

SEE  IF  DELAY  PRESENT  DISCRETE  HAS  BEEN 

071*, 

REF 

7 

LAST 

179 

06,2545 

02 

: C 1 2 

0 

RANO 

C HAN  1 2 

SENT.  IF  SO,  ACTION  COMPLETE 

0715 

06,2546 

0 

0006 

1 

EXTEND 

0716 

06,2547 

1 

2551 

0 

BZF 

+ 2 

071  7 

REF 

5 

LAST 

182 

06,2550 

1 

2225 

1 

TCF 

NXTIFAIL 

0718 

REF 

l 7 

LAST 

182 

06,2551 

3 

4743 

0 

CAF 

BIT2 

IF  NOT,  SET  BIT  TO  INDICATE  REQUEST  NOT 

071  9 

REF 

21 

LAST 

182 

06,2552 

2 I 

•277 

0 

ADS 

I M0DES30 

PRESENT  FOR  FULL  DURATION. 

0 72  0 

REF 

2 

LAST 

174 

06,2553 

0 

5571 

1 

TC 

ALARM 

072  1 

06,2554 

00207 

1 

OCT 

207 

0722 

REF 

6 

LAST 

182 

06,2555 

1 

2225 

1 

TCF 

NXTIFAIL 
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0 72  3 

REF 

22 

LAST 

182 

06,2556 

4 1277 

0 

I TURN0N2  CS 

0724 

REF 

16 

LAST 

174 

06,2557 

7 4 736 

0 

MASK 

0725 

REF 

23 

LAST 

183 

06,2560 

27 ' 277 

0 

ADS 

0726 

REF 

1 

06,2561 

3 2564 

1 

CAF 

07261 

REF 

3 

LAST 

162 

06,2562 

54  110 

0 

TS 

0/2  7 

REF 

7 

LAST 

132 

06,2563 

1 2225 

1 

TCF 
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I MOD  E S3  0 SET  BIT7  TO  INDICATE  WAIT  OF  1 SAMPLE 

B IT7 

I M0DES30 
RRINIT 
R ADMODES 
NXTIFAIL 


OCT  00102 


0727  1 


06,2564 


00102  1 


RRINIT 
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L T4RUPT  PROGRAM  USER'S  PAGE  NO.  20  F6  S4 

P0728  PROGRAM  NAME:  IMUCAGE. 

R0729  FUNCTIONAL  DESCRIPTION:  THIS  PROGRAM  PROCESSES  CHANGES  OF  THE  IMUCAGE  INBIT,  CHANNEL  30  BIT  11.  IF  THE  BIT 

R073I  CHANGES  TO  0 (CAGE  BUTTON  PRESSED),  THE  ISS  IS  CAGED  ( ICDU  ZERO  + COARSE  ALIGN  + NO  ATT  LAMP)  UNTIL  THE 

R0733  ASTRONAUT  SELECTS  ANOTHER  PROGRAM  TO  ALIGN  THE  ISS.  ANY  PULSF  TRAINS  TO  THE  ICDU'S  AND  GYRO'S  ARE  TERMINATED, 

R0735  THE  ASSOCIATED  OUTCOUNTERS  ARE  ZEROED  AND  THE  GYRO'S  ARE  DE-SELECTED.  NO  ACTION  OCCURS  WHFN  THE  BUTTON  IS 

RO  73  7 RELEASED  (INBIT  CHANGES  TO  1). 

R0738  CALLING  SEQUENCE:  BY  [MUMON  WHEN  IMU  CAGE  BIT  CHANGES. 

R 0 73 9 JOBS  OR  TASKS  INITIATED:  NONE. 

R0740  SUBROUTINES  CALLED:  CAGESUB. 

R0741  ERASABLE  INITIALIZATION:  FRESH  START  AND  RESTART  SET  BIT  11  OF  IM0DES30  TO  1. 

R0743  ALARMS:  NONE. 


R0744  EXIT:  NXTIFAIL. 


RO  74  5 

OUTPUT : 

ISS 

CAGED, 

COUNTERS 

ZEROED, 

PULSE 

TRAINS  TERMINATED  AND  NO 

ATT  LAMP  LIT. 

0 74  7 

REF 

15 

LAST 

182 

06,2565 

10  000 

0 IMUCAGE  CCS 

A 

NO  ACTION  IF  GOING  OFF . 

074  8 

REF 

l 

C6.2566 

1 2361 

0 

TCF 

I SSZFRO 

0 74  9 

REF 

1 

06,2567 

4 3002 

1 

CS 

OCT  77000 

TERMINATE  ICDU.RCDU,  GYRO  PULSE  TRAINS 

0 75  0 

06,2570 

0 C 006 

1 

EXTEND 

0751 

REF 

1 

06,2571 

03  014 

1 

WAND 

C HAN  1 4 

0 75  2 

REF 

1 

06,2572 

A 2776 

1 

CS 

OCT272 

KNOCK  DOWN  DISPLAY  INERTIAL  DATA,  IMU 

0752  l 

06,2573 

0 0006 

1 

EXTEND 

ERROR  COUNTER  ENABLE,  ZERO  ICDU,  COARSE 

07522 

REF 

8 

LAST 

182 

06,2574 

03  012 

1 

WAND 

CHAN12 

ALIGN  ENABLE,  RR  ERROR  COUNTER  ENABLE. 

075221 

REF 

1 

06, 2575 

4 A 736 

0 

CS 

ENGONBIT 

INSURE  ENGONFLG  IS  CLEAR. 

075222 

REF 

2 

LAST 

167 

06,2576 

7 0101 

0 

MASK 

F LAGWR05 

075223 

REF 

3 

LAST 

18  A 

06,2577 

54  101 

0 

TS 

F LAGWRD5 

0 7523 

REF 

l 

06,2600 

4 4346 

0 

CS 

PRI 030 

TURN  ENGINE  OFF. 

0 752  A 

06,2601 

0 0006 

1 

EXTEND 

07525 

REF 

3 

LAST 

181 

06,2602 

02  Oil 

0 

RAND 

DSALMOUT 

07520 1 

REF 

23 

LAST 

182 

06,2603 

6 4727 

1 

AD 

BIT14 

075252 

06,2604 

0 0006 

l 

EXTEND 

0 75253 

REF 

4 

LAST 

18A 

C6.2605 

01  Oil 

0 

WRITE 

DSALMOUT 

FORCE  BIT14=1,  BIT13=0. 

07526 

REF 

l 

06,2606 

0 2743 

0 

TC 

C AGE  SUB  1 

07527 

REF 

4 

LAST 

179 

06,2607 

0 4665 

0 

TC 

IBNKCALL 

KNOCK  DOWN  TRACK,  REFSMMAT,  DRIFT  FLAGS 

07528 

REF 

l 

06, 2610 

17162 

1 

CADR 

RNDREFDR 

0753 

REF 

5 

LAST 

180 

06,2611 

4 4746 

1 

CS 

ZERO 

0754 

REF 

1 

06,2612 

54  050 

0 

TS 

CDUXCMD 

0755 

REF 

1 

06,2613 

54  051 

1 

TS 

CDUYCMD 
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0756 

REF 

1 

06, 261A 

5A  052 

1 

TS 

CDUZCMD 

075  7 

REF 

1 

06,2615 

5 A 0A7 

0 

TS 

GYROCMD 

075  8 

REF 

l 

06,2616 

A 3001 

1 

CS 

0CT7A0 

0759 

06,2617 

0 0006 

1 

EXTEND 

0760 

REF 

2 

LAST 

1 8 A 

06,2620 

03  0 1 A 

1 

WAND 

C HAN l A 

0761 

REF 

8 

LAST 

183 

06,2621 

1 2225 

1 

TCF 

NXTIFAI L 
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USER'S  PAGE  NO.  21 


HAVING  WAITED  AT  LEAST  27  MOT 
GYRO  PULSE  TRAIN  TERMINATION, 
DE-SELECT  THF  GYROS 


E6  S A 


FROM 
WE  CAN 
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L T4RUPT  PROGRAM  USER'S  PAGE  NO.  22  E6  S4 

P0762  PROGRAM  NAME:  IMUOP. 

R0763  FUNCTIONAL  DESCRIPTION:  THIS  PROGRAM  PROCESSES  CHANGES  IN  THE  ISS  OPERATE  DISCRETF,  BIT  9 OF  CHANNEL  30. 

R0765  IF  THF  INBIT  CHANGES  TO  0,  INDICATING  ISS  ON,  IMUOP  GENERALLY  SETS  BIT  7 UF  IMODES30  TO  1 TO  REQUEST  ISS 

R0767  INITIALIZATION  VIA  TNONTEST.  AN  EXCEPTION  IS  DURING  A FAILED  ISS  DELAY  DURING  WHICH  BIT  2 OF  IM0DES30  IS  SET 

R0769  TO  l AND  NO  FURTHER  INITIALIZATION  IS  REQUIRED.  WHEN  THE  INBIT  CHANGES  TO  1,  INDICATING  ISS  OFF,  I MUSEFLG  IS 

R0771  TESTED  TO  SEE  IF  ANY  PROGRAM  WAS  USING  THE  ISS.  IF  SO,  PROGRAM  ALARM  00214  IS  ISSUED. 

RO 77  3 CALLING  SEQUENCE:  BY  I MUMON  WHEN  BIT  9 OF  CHANNEL  30  CHANGES. 


R0774  JOBS  OR  TASKS  INITIATED:  NONE. 

R0775  SUBROUTINES  CALLED:  ALARM,  IF  ISS  IS  TURNED  OFF  WHILE  IN  USE. 


R0776 

ERASABLE 

INITIALIZATION:  on 

FRESH  START  AND  RESTART, 

BIT  9 OF  IM0DES30  IS  SET  TO  1 EXCEPT  WHEN  THE  G I M8AL  LOCK 

R0778 

LAMP 

IS 

on,  in 

WHICH 

CASE  IT 

IS  SET 

TO  0.  THIS 

PREVENTS  I CDU  ZERO  BY 

TNONTEST  WITH  THE  ISS  IN  GIMBAL  LOCK. 

R0780 

ALARMS : 

PROGRAM  ALARM  00214 

IF  THE 

ISS  IS  TURNED  OFF 

WHILE  IN  USE . 

R0781 

EXIT 

: NXTIFAIL 

R0782 

OUTPUT  : 

ISS  INITIALIZATION  1 

REQUEST 

I I M0DES30  BIT  7) 

OR 

PROGRAM  ALARM 

00214. 

0784 

06,2622 

0 0006 

1 IMUOP 

EXTEND 

0785 

REF 

1 

06,2623 

1 2643 

0 

BZF 

I MU0P2 

0786 

REF 

10 

LAST 

l 78 

06,2624 

4 1300 

1 

CS 

I MODE  S3  3 

DISABLE  DAP 

0 78  7 

REF 

19 

LAST 

180 

06,2625 

7 4737 

1 

MASK 

B IT6 

0788 

REF 

1 L 

LAST 

186 

06,2626 

27' 300 

1 

ADS 

I M0DES33 

) / 

REF 

5 

LAST 

184 

06,2627 

0 4665 

0 

TC 

I BNKC ALL 

KNOCK  DOWN  TRACK,  REFSMMAT,  DRIFT  FLAGS 

078 

REF 

2 

LAST 

184 

06,2630 

17162 

l 

CADR 

RNDREFDR 

0 7887 

REF 

2 

LAST 

174 

06,2631 

4 2777 

0 

CS 

B ITS768 

KNOCK  DOWN  RENDEZVOUS,  IMUUSE  FLAGS 

0 78  £ 8 

REF 

3 

LAST 

176 

06,2632 

7 CC74 

0 

MASK 

FLAGWRDO 

0789 

REF 

4 

LAST 

186 

06,2633 

56  074 

1 

XCH 

F LAGWRDO 

IF  GOING  OFF,  ALARM  IF  PROG  USING  IMU. 

0789  1 

06,2634 

4 0000 

0 

COM 

0790 

REF 

I 

06, 2635 

7 4735 

0 

MASK 

I MUSEFLG 

0 79  1 

REF 

16 

LAST 

184 

06,2636 

10  COO 

0 

CCS 

A 

0792 

REF 

9 

LAST 

135 

06,2637 

1 2225 

1 

TCF 

NXTIFAIL 

0793 

REF 

3 

LAST 

182 

06, 2640 

0 5571 

1 

TC 

ALARM 

0794 

06,2641 

0C214 

0 

OCT 

2 14 

0795 

REF 

10 

LAST 

136 

06,2642 

1 2225 

1 

TCF 

NXTIFAIL 

0796 

REF 

18 

LAST 

182 

06,2643 

3 4743 

0 IMUOP 2 

CAF 

R I T2 

SEE  IF  FAILED  ISS  TURN-ON  SFQ  IN  PROG. 

0797 

REF 

24 

LAST 

133 

06 ,2644 

7 1277 

0 

MASK 

I M0DES30 

0 79  8 

REF 

1 7 

LAST 

186 

06,2645 

10  000 

0 

CCS 

A 

0799 

REF 

1 1 

LAST 

186 

06,2646 

1 2225 

1 

TCF 

NXTIFAIL 

IF  SO,  DONT  PROCESS  UNTIL  PRESENT  90 

0800 

REF 

2 

LAST 

132 

06,2647 

1 2556 

1 

TCF 

I TURN0N2 

SECONDS  FXPIRES. 
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P0801  PROGRAM  NAME:  PIPFAIL 

R0802  FUNCTIONAL  DESCRIPTION:  THIS  PROGRAM  PROCESSES  CHANGES  OF  BIT  13  OF  CHANNEL  33,  PIPA  FAIL.  IT  SETS  BIT  10  OF 

R0804  I M0DES30  TO  AGREE.  IT  CALLS  SETISSW  IN  CASE  A PIPA  FAIL  NECESSITATES  AN  I SS  WARNING.  IF  NOT.I.E.,  IM0DES30 
R0806  BIT  1 = 1,  AND  A PIPA  FAIL  IS  PRESENT  AND  THE  ISS  IS  NOT  BEING  INITIALIZED,  PROGRAM  ALARM  00212  IS  ISSUED. 

R0808  CALLING  SEQUENCE:  BY  C33TEST  ON  CHANGES  OF  CHANNEL  33  BIT  13. 


R0809  JOBS  CR  TASKS  INITIATED:  NONE. 

R0810  SUBROUTINES  CALLED:  1)  SETISSW,  AND  2)  ALARM  (SEE  FUNCTIONAL  DESCRIPTION). 


R0812 

ERASABLE 

INITIALIZATION:  SEE 

IMUMON 

FOR 

INIT1ALIZATI ON 

OF  I MODE  S30 . 

THE  RFLAVANT  BITS  ARE  5,  7,  8, 

9, 

AND  10. 

R0814 

ALARMS: 

PROGRAM  ALARM  00212 

IF  PIPA 

FAIL 

IS  PRESENT  BUT 

' NEITHER  ISS 

WARNING  IS  TO  BE  ISSUED  NOR  THE 

I SS 

IS 

R0016 

BEING  INITIALIZED. 

R081  7 

EXIT: 

NXTFL33 

R0818 

OU  TPUT : 

PROGRAM  ALARM  00212 

AND  ISS 

WARNING  MAINTENANCE 

0819 

REF 

18 

LAST 

186 

06,2650 

10  000 

0 PIPFAIL  CCS 

A 

SET  B1T10  IN  I MODE S3  0 SO  ALL 

ISS 

WARNING 

0820 

REF 

14 

LAST 

136 

06,2651 

3 4733 

1 

CAF 

B IT  1 0 

INFO  IS  IN  ONE  REGISTFR. 

082  1 

REF 

25 

LAST 

186 

06,2652 

57' 277 

1 

XCH 

I M0DES30 

0822 

REF 

1 

06,2653 

7 3004 

1 

MASK 

— 8 I T 10 

0823 

REF 

26 

LAST 

187 

06,2654 

27' 277 

0 

ADS 

I M0DES30 

0824 

RFF 

2 

LAST 

175 

06,2655 

0 2703 

1 

TC 

SETI SSW 

0825 

REF 

27 

LAST 

187 

06,2656 

4 1277 

0 

CS 

I M0DES30 

IF  PIP  FAIL  DOESNT  LIGHT  ISS 

warning,  do 

0826 

REF 

14 

LAST 

90 

06,2657 

7 4 744 

0 

MASK 

B I T 1 

A PROGRAM  ALARM  IF  IMU  OPERATING 

BUT  NOT 

082  7 

REF 

19 

LAST 

187 

06,2660 

10  COO 

0 

CCS 

A 

CAGED  OR  BEING  TURNFD  ON. 

082  8 

REF 

1 

06,2661 

1 2432 

1 

TCF 

NXTFL33 

0829 

REF 

28 

LAST 

187 

06, 2662 

3 1277 

1 

CA 

I MODE  S3 0 

0830 

REF 

1 

06,2663 

7 3C00 

0 

MASK 

OCT  1720 

083  l 

REF 

20 

LAST 

187 

06,2664 

1C  000 

0 

CCS 

A 

0832 

REF 

2 

LAST 

137 

06,2665 

1 2432 

1 

TCF 

NXTFL33 

ABOVE  CONDITION  NOT  MET. 

0333 

REF 

4 

LAST 

186 

06,2666 

0 5571 

1 

TC 

ALARM 

0834 

06,2667 

00212 

0 

OCT 

212 

0835 

REF 

3 

LAST 

187 

06,2670 

1 2432 

1 

TCF 

NXTFL33 
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L 

T4RUPT  PROGRAM 

USER'S  PAGE  NO 

P0836 

PROGRAM  NAMES: 

ONTMFAST , UPTMFAST 

R0837 

R0839 

FUNCTIONAL  DESCRIPTION:  THESE 

0,  A PROGRAM  ALARM  IS  ISSUED. 

PROGRAMS  PROCESS  CHANGES  OF  BITS 
THE  ALARMS  ARE: 

12  AND  11  OF  CHANNEL  33.  I 

R0840 

R0841 

R0842 

R0843 

BIT 

ALARM 

CAUSE 

12 

1 1 

0110  5 
01106 

DOWNLINK  TOO  FAST 
UPLINK  TOO  FAST 

R0844  CALLING  SEQUENCE:  BY  C33  TEST  ON  A BIT  CHANGE. 


R0845  SUBROUTINES  CALLED:  ALARM,  IF  A BIT  CHANGES  TO  A 0. 

R 0 3 A 6 ERASABLE  INITIALIZATION:  FRESH  START  OR  RESTART,  BITS  L2  AND  11  OF  IMODES33  ARE  SET  TO  1. 

P0848  ALARMS:  SEE  FUNCTIONAL  DESCRIPTION. 

R0849  EXIT:  NXTFL33 . 


R0850  OUTPUT:  PROGRAM  ALARM  ON  A BIT  CHANGE  TO  0. 


0851 

REF 

21 

LAST 

187 

06,2671 

10  COO 

0 

DNTMFAST 

CCS 

A 

DO  PROG  ALARM  IF  TM 

085  2 

REF 

4 

LAST 

187 

06,2672 

l 2432 

l 

TCP 

NXTFL33 

0853 

REF 

5 

LAST 

187 

C6, 2673 

0 5571 

1 

TC 

ALARM 

0854 

06,2674 

01105 

1 

OCT 

L 105 

0855 

REF 

5 

LAST 

188 

C 6 , 2 6 75 

1 2432 

l 

TCF 

NXTFL33 

0856 

REF 

22 

LAST 

188 

06,2676 

10  000 

0 

UPTMFAST 

CCS 

A 

SAME  AS  DNLINK  TOO 

0857 

REF 

6 

LAST 

188 

06,2677 

l 2432 

1 

TCF 

NXTFL33 

ALARM  CODE. 

0858 

REF 

6 

LAST 

188 

06,2700 

0 5571 

1 

TC 

ALARM 

0859 

06, 2701 

01106 

1 

OCT 

1 106 

0860 

REF 

7 

LAST 

188 

C6.2702 

1 2432 

1 

TCF 

NXTFL33 

. 24  E6  S4 


F A BIT  CHANGES  TO  A 


TOO  FAST. 


FAST  WITH  DIFFERENT 
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L 

P 0 86  1 

R0862 
RO  864 
R0866 
R0868 

R0869 

R0871 

R0873 

R0875 

R0877 

R087  8 

R0879 

R0880 
R088  1 

R0802 

R0882  1 
R00022 
R08823 
R08824 
R08825 
R08826 
R0882 7 
R08826 

R0883 

R0884 

0885 

0886 

0887 

0888 

0889 

0890 
0 89  1 
089  2 

0893 

0894 

0895 

0896 

0897 


T4RUPT  PROGRAM  USER'S  PAGE  NO.  25  F6  S4 

PROGRAM  NAME:  SETISSW 

FUNCTIONAL  DESCRIPTION:  THIS  PROGRAM  TURNS  THE  ISS  WARNING  LAMP  ON  AND  OFF  (CHANNEL  1L  BIT  1 = 1 FOR  ON, 

0 FOR  OFF)  DEPENDING  ON  THE  STATUS  OF  IMODES30  BITS  13  (IMU  FAIL)  AND  4 (INHIBIT  I MU  FAIL),  12  (ICDU  FAIL)  AND 
3 (INFieiT  ICDU  FAIL),  AND  10  (PIPA  FAIL)  AND  1 (INHIBIT  PIPA  FAIL).  THE  LAMP  IS  LEFT  ON  IF  A LAMP  TEST  IS  IN 

PROGRESS. 

CALLING  SEQUENCE:  CALLED  BY  IMUMON  ON  CHANGES  TO  IMU  FAIL  AND  ICDU  FAIL.  CALLED  BY  IFAILOK  AND  PFAILOK  UPON 
REMOVAL  OF  THE  FAIL  INHIBITS.  CALLED  BY  PIPFAIL  WHEN  THE  PIPA  FAIL  DISCRETE  CHANGES.  IT  IS  CALLED  BY  PIPUSE 
SINCE  THE  PIPA  FAIL  PROGRAM  ALARM  MAY  NECESSITATE  AN  ISS  WARNING,  AND  LIKEWISE  BY  PIPFREE  WHEN  THE  ALARM  DEPARTS 
AND  IT  IS  CALLED  BY  IMUZER03  AND  ISSUP  AFTER  THE  FAIL  INHIBITS  HAVE  BEEN  REMOVED. 

JOBS  OR  TASKS  INITIATED:  NONE. 

SUBROUTINES  CALLED:  NONE. 

ERASABLE  INITIALIZATION: 

1)  I MODE  S30  - SEE  IMUMCN. 

2)  I MnDE  S33  BIT  1 = 0 (LAMP  TEST  NOT  IN  PROGRESS). 

ALARMS:  ISS  WARNING. 

THE  FOLLOWING  PROGRAM  ALARMS  WILL  SHOW  WHICH  FAILURE  CAUSED  THE  ISS  WARN 

PROGRAM  ALARM  00777  PIPA  FAIL 

PROGRAM  ALARM  03777  ICDU  FAIL 

PROGRAM  ALARM  04777  ICDU  , PIPA  FAILS 

PROGRAM  ALARM  07777  IMU  FAIL 

PROGRAM  ALARM  10777  IMU  , PIPA  FAILS 

PROGRAM  ALARM  13777  IMU  , ICDU  FAILS 

PROGRAM  ALARM  14777  IMU  , ICDU  , PIPA  FAILS 

EXIT:  VIA  Q. 


OUTPUT:  ISS  WARNING  LAMP  SET  PROPERLY. 


REF 

1 

06, 2703 

3 

4752 

0 

SETISSW 

CAF 

OCT  1 5 

SET  ISS  WARNING  USING  THE  FAIL  BITS 

IN 

REF 

29 

LAST 

187 

06,2704 

7 

1277 

0 

MASK 

I MODE  S3  0 

BITS  13,  12,  AND  10  OF  IM0DES30  AND 

THE 

06,2705 

0 

0006 

l 

EXTEND 

FAILURE  INHIBIT  BITS  IN  POSITIONS 

REF 

15 

LAST 

187 

06,2706 

7 

4733 

0 

MP 

BIT10 

4,  3,  AND  1. 

REF 

30 

LAST 

189 

06,2707 

3 

1277 

l 

CA 

I MODES30 

06,2710 

0 

0006 

1 

EXTEND 

REF 

5 

LAST 

177 

06,2711 

04 

001 

1 

ROR 

LCHAN 

0 INDICATES  FAILURE 

06,2712 

4 

COOO 

0 

COM 

REF 

1 

06,2713 

7 

5016 

1 

MASK 

OCT  1 5000 

RFF 

23 

LAST 

188 

06,2714 

1C 

i 000 

0 

CCS 

A 

REF 

I 

06,2715 

l 

2726 

1 

TCF 

I SSWON 

FAILURE. 

REF 

15 

LAST 

187 

C6, 2716 

3 

4 744 

1 

I SSWOFF 

CAF 

B I T 1 

DONT  TURN  OFF  ISS  WARNING  IF  LAMP  TEST 

REF 

12 

LAST 

186 

06,2717 

7 

1300 

1 

MASK 

I M0DES33 

IN  PROGRFSS. 
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0896 

REF 

24 

LAST 

189 

06,2  720 

10  000 

0 

CCS 

A 

0899 

REF 

3 

LAST 

167 

06,2721 

0 0002 

0 

TC 

0 

0900 

REF 

16 

LAST 

189 

06,2722 

4 4744 

0 

cs 

BIT1 

0901 

06,2723 

0 00  06 

1 

EXTEND 

0902 

REF 

5 

LAST 

184 

06,2724 

03  Oil 

1 

WAND 

DSALMOUT 

0903 

REF 

4 

LAST 

190 

06,2725 

0 0002 

0 

TC 

Q 

0904 

06,2726 

0 0006 

1 

1 SSWON 

EXTEND 

0904  C 2 

REF 

1 

06,2727 

22  066 

l 

QXCH 

ITEMP6 

090404 

REF 

1 

06,2730 

0 5 740 

l 

TC 

V ARALARM 

0904  1 

REF 

17 

LAST 

190 

06,  273  1 

3 4 744 

l 

CAF 

BIT1 

0905 

06,2732 

0 0006 

1 

EXTEND 

0906 

REF 

6 

LAST 

190 

06,2733 

05  Oil 

1 

WOR 

DSALMOUT 

090  7 

REF 

2 

LAST 

190 

06,2734 

0 0066 

1 

TC 

I TEMP6 

0 90  3 

REF 

1 

06,2735 

4 3003 

0 

CAGESUB 

CS 

B ITS6615 

0909 

06,2736 

0 C006 

1 

EXTEND 

0910 

REF 

9 

LAST 

134 

06,2737 

03  012 

1 

WAND 

CHAN  12 

091  1 

REF 

2 

LAST 

1 75 

06, 2740 

3 4 7 54 

0 

CAF 

BITS4&5 

0912 

06,2741 

0 0006 

1 

EXTEND 

0913 

REF 

10 

LAST 

190 

06,2742 

05  012 

1 

WOR 

C HAN  1 2 

0914 

RFF 

1 1 

LAST 

180 

06,2743 

4 1035 

1 

C AGE  SUB  1 

CS 

DSPTAB  + 

091  5 

REF 

1 

06,2744 

7 2773 

1 

MASK 

0C40010 

0916 

REF 

12 

LAST 

190 

06,2745 

27 ' 035 

l 

ADS 

DSPTAB  + 

0918 

RFF 

31 

LAST 

189 

06,2746 

4 1277 

0 

CAGESUB2 

CS 

I MODE  S30 

0919 

REF 

1 

06,2  747 

7 2775 

1 

MASK 

OCT75 

0920 

REF 

32 

LAST 

190 

C6 ,2750 

2 7 ' 2 7 7 

0 

ADS 

I M0DES30 

092  2 

REF 

13 

LAST 

189 

06,2751 

4 1300 

1 

CS 

I MODE  S33 

0923 

REF 

20 

LAST 

186 

06,2752 

7 4/37 

l 

MASK 

B IT6 

0924 

REF 

14 

LAST 

190 

06,2753 

27*300 

l 

ADS 

I MOD  E S3  3 

0925 

REF 

5 

LAST 

190 

06,2754 

0 C002 

0 

TC 

Q 

0926 

REF 

3 

LAST 

137 

06,2703 

imufail 

EQUALS 

SETISSW 

092  7 

REF 

4 

LAST 

190 

06,2703 

ICDUFAIL 

EQUALS 

SETISSW 

17:1.1  MAR.  19,1971  LEMONAID.156  PAGE 


190 


USER'S  PAGE  NO.  26 


F6  SA- 


TE LL  EVERYONE  WHAT  CAUSED  THF  ISSWARNING 


SET  OUTBITS  AND  INTERNAL  FLAGS  FDR 
SYSTFM  TURN-ON  OP  CAGE.  DISABLE  THE 
ERROR  COUNTER  AND  REMOVE  IMU  DELAY  COMP. 
SEND  ZERO  AND  COARSE. 


TURN  ON  NO  ATT  LAMP 


SET  FLAGS  TO  INDICATE  CAGING  OR  TURN-ON 
AND  INHIBIT  ALL  ISS  WARNING  INFO 

DISABLE  DAP  AUTO  AND  HOLD  MOOES 
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P0928 

JUMP 

TABLES 

AND  CONSTANTS. 

0929 

REF 

1 

06,2755 

1 2533 

1 

I FAILJMP 

TCF 

I TURNON 

0930 

REF 

1 

06,2756 

1 2703 

0 

TCF 

IMUFAIL 

0931 

REF 

1 

06,2757 

l 2703 

0 

TCF 

ICDUFAIL 

093  2 

REF 

1 

06,2760 

1 2565 

1 

TCF 

IMUCAGE 

0933 

06,2761 

76400 

1 

30RDMSK 

OCT 

76400 

0934 

REF 

1 

06,2762 

l 2622 

1 

TCF 

I MUGP 

0935 

REF 

1 

06,2763 

1 2650 

1 

C33JMP 

TCF 

P IPFAIL 

093  6 

REF 

1 

06,2764 

l 2671 

1 

TCF 

DNTMFAST 

093  7 

REF 

1 

06,2765 

1 2676 

0 

TCF 

UPTMFAST 

R093  8 

SUBROUTINE 

TD  SKIP 

IF  LAMP 

TEST  NOT  IN 

PROGRESS. 

0939 

REF 

15 

LAST 

190 

06, 2766 

4 1300 

1 

LAMPTEST 

CS 

I MOD E S3  3 

0940 

REF 

18 

LAST 

190 

06,2767 

7 4 744 

0 

MASK 

BIT1 

094  1 

REF 

25 

LAST 

190 

06,2770 

10  COO 

0 

CCS 

A 

094  2 

REF 

6 

LAST 

190 

06,2771 

24  002 

0 

TNCR 

Q 

0943 

REF 

7 

LAST 

19  1 

06,2772 

0 0002 

0 

TC 

Q 

0944 

REF 

l 

5017 

33RDMSK 

EQUALS 

PRI016 

0945 

06,2773 

' 40010 

1 

OC40010 

OCT 

40010 

094  7 

06,2774 

00054 

0 

0CT54 

OCT 

54 

0948 

06,2775 

C0C75 

0 

OCT75 

OCT 

75 

09485 

06,2776 

00272 

0 

0CT272 

OCT 

00272 

0949 

06,2777 

CC300 

1 

B ITS7C3 

OCT 

300 

0950 

06,3000 

01720 

0 

OCT1720 

OCT 

1720 

095  1 

06,3001 

00740 

1 

OCT740 

OCT 

00740 

0952 

REF 

1 

5016 

OCT  1 5000 

EQUALS 

PRI015 

0953 

06,3002 

77000 

1 

OCT77000 

OCT 

77000 

0954 

06,3003 

40040 

1 

BITS6G15 

OCT 

40040 

0955 

06, 3004 

76777 

1 

-BIT10 

OCT 

-1000 

0956 

06,3005 

21450 

0 

90SECS 

DEC 

9000 

0957 

REF 

l 

5745 

120MS 

= 

OCT  1 4 

095  8 

REF 

2 

LAST 

84 

06,3006 

4 0106 

1 

GLOCKOK 

CS 

FLGWRD1 0 

0959 

REF 

1 

06,3007 

7 4743 

l 

MASK 

CONTRLBT 

096  0 

REF 

13 

LAST 

190 

06,3010 

6 1035 

0 

AD 

DSPTAB  + 1 ID 

0961 

REF 

2 

LAST 

191 

06,3011 

7 4743 

1 

MASK 

CONTRLBT 

0962 

06,3012 

0 0006 

1 

EXTEND 

0963 

REF 

1 

06,3013 

1 3025 

l 

BZF 

L ITEOK 

0964 

REF 

14 

LAST 

191 

06,3014 

7 1035 

1 

MASK 

DSPTAB  HID 

0965 

REF 

26 

LAST 

191 

06,3015 

10  000 

0 

CCS 

A 

096  6 

REF 

1 

06,3016 

1 3032 

1 

TCF 

LAMPBTST 

096  7 

REF 

15 

LAST 

191 

06,3017 

4 1035 

l 

LITESWCH 

CS 

OSPTAB  +11D 

0968 

REF 

3 

LAST 

191 

06,3020 

7 4743 

1 

MASK 

CONTRLBT 

0969 

REF 

17 

LAST 

182 

06,3021 

6 4726 

0 

AD 

B IT15 

0970 

REF 

16 

LAST 

191 

06,3022 

57' 035 

0 

XCH 

DSPTAB  +11D 
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CHANNEL  30  DISPATCH. 

(BIT  10  NOT  SAMPLED  HERE). 
CHANNEL  33  DISPATCH. 

BIT  1 OF  I MOD  ES3  3 = 1 IF  LAMP 
PROGP  FSS  . 


( DEC1 2 I 


NO  CHANGE 


WAS  ON 


E6  S4 


TEST  IN 


WAS  OFF 
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0971 

REF 

1 

06,3023 

7 3031 

1 

mask 

OCT  3 7775 

0972 

REF 

17 

LAST 

191 

06,3024 

27*035 

1 

AOS 

OSPTAB  +1 

0973 

REF 

3 

LAST 

19  1 

06,3025 

4 0106 

1 

L I TEDK 

cs 

FLGWRD10 

097  A 

REF 

4 

LAST 

191 

06,3026 

7 4 743 

1 

MASK 

CONTRLBT 

0975 

REF 

4 

LAST 

192 

06,3027 

26  106 

1 

ADS 

FLGWRD10 

0976 

REF 

4 

LAST 

170 

06,3030 

1 5272 

1 

TCF 

RESUME 

0977 

06,3031 

3 7775 

0 

OCT37 775 

OCT 

37775 

0976 

REF 

3 

LAST 

181 

06,3032 

0 2766 

1 

lampbtst 

TC 

LAMPTEST 

0979 

REF 

2 

LAST 

19  1 

06,3033 

1 3025 

1 

TCF 

LITEOK 

098  0 

REF 

1 

06,3034 

1 3017 

0 

TCF 

L ITESWCH 
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P0981  PROGRAM  N AME_  RRAUTCHK 


R0982  FUNCTIONAL  DESCRIPTION, 

R0983  RRAUTCHK  IS  THE  RENDEZVOUS  RADAR  INBIT  MONITOR.  INITIALLY  THE  RR 

K0984  PUWER  ON  AUTO  (CHAN  33  BIT  2)  INBIT  IS  CHECKED.  IF  NO  CHANGE,  THE 

R0985  PROGRAM  EXITS  TO  RRCDUCHK . IF  A CHANGE,  RADMOOES  IS  UPDATED 
R0906  AND  A CHECK  MADE  IF  RR  POWER  HAS  JUST  COME  ON.  IF  JUST  OFF,  A CHECK 

R0987  IS  MADE  TO  SEE  IF  A PROGRAM  WAS  USING  THE  RR  (STATE  BIT  7).  IF  NO, 

R0988  THE  PROGRAM  EXITS  TO  RRCDUCHK.  IF  YES,  PROGRAM  ALARM  00514 

R0989  IS  RECUESTED  BEFORE  EXITING  TO  RRCDUCHK.  IF  RR  POWER  HAS  JUST  COME 

R0990  ON,  A CHECK  IS  MADE  TO  SEE  IF  A PROGRAM  WAS  USING  THE  RR  (STATE  BIT  7). 

R0991  IF  YES,  THE  PROGRAM  EXITS  TO  RRCDUCHK  WITHOUT  REQUESTING  THE  TURN-ON 

R0992  SEQUENCE.  IF  NO,  RADMODES  IS  UPOATED  TO  INDICATE  RR  CDU  ZERO  AND 

R0993  RR  TURN-ON  SEQUENCE  (BITS  13,  1).  A 10  MILLISECOND  WAITLIST  CALL 

R0994  IS  THEN  SET  FOR  RRTURNON  BEFORE  THE  PROGRAM  FXITS  TO  NORRGMON. 


R0995  CALLING  SEQUENCE, 

R0996  T4RUPT  EVERY  480  MILLISECONDS 


R0997  ERASABLE  INITIALIZATION  REQUIRED. 
R0998  RADMODES,  STATE 

R 099 9 SUBROLTINES  CALLED, 

R1000  WAITLIST 


R1001  JOBS  OR  TASKS  INITIATED. 
R 100  2 RRTURNON 


R 1003  ALARMS,  PROGRAM  ALARM  00514  - RADAR  GOES  OUT  OF  AUTO  MODE  WHILE  BEING 
R 1004  USED 

R1005  EXIT,  RRCDUCHK,  NORRGMON 


1006 

REF 

4 

LAST 

183 

06,3035 

3 0110 

1 RRAUTCHK 

100  7 

06,3036 

0 0006 

1 

1008 

REF 

2 

LAST 

177 

06,3037 

06  C33 

L 

100  9 

REF 

1 

06,3040 

7 4743 

1 

1010 

06,3041 

0 0006 

1 

101  1 

REF 

1 

06,3042 

1 3066 

0 

1012 

REF 

5 

LAST 

193 

06,3043 

22  110 

1 

1013 

06,3044 

0 C006 

1 

1014 

REF 

6 

LAST 

189 

06,3045 

06  001 

0 

101  5 

REF 

1 

06,3046 

7 3062 

1 

1016 

REF 

6 

LAST 

193 

06,3047 

54  110 

0 

101  7 

REF 

19 

LAST 

186 

06,3050 

7 4743 

1 

1018 

REF 

27 

LAST 

191 

06,3051 

10  COO 

0 

1019 

REF 

2 

LAST 

193 

06,3052 

1 3063 

0 

1020 

REF 

1 

06,3053 

3 7704 

0 

1021 

REF 

7 

LAST 

193 

06,3054 

26  no 

0 

CA 

R ADMODES 

SEE  IF  CHANGE  IN  RR  AUTO  MODE 

EXTEND 

RXOR 

CHAN33 

MASK 

AUTOMBIT 

EXTEND 

6ZF 

RRCDUCHK 

LXCH 

RADMODES 

UPDATE  RADMODES. 

EXTEND 

RXOR 

LCHAN 

MASK 

0CT05776 

CLR  CONT.  DES . , REMODE, 

REPOS 

TS 

RADMODES 

AND  TURNON  BITS. 

MASK 

R IT2 

SEE  IF  JUST  ON. 

CCS 

A 

TCF 

RRCDUCHK  -3 

OFF.  GO  DISABLE  RR  CDU 

ERROR 

CA 

OCT  1000 1 

SET  R RCDUZRO  AND  TURNON 

BITS. 

ADS 

RADMODES 

E 6 S4 


BIT. 


CDUZERO, 


COUNTERS. 


GAP 
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L 

T4RUPT 

PROGRAM 

1022 

REF 

5 

LAST 

178 

06,3055 

1023 

REF 

5 

LAST 

179 

06 , 3056 

1024 

REF 

2 

LAST 

157 

E7, 1456 

1025 

REF 

1 

06,3057 

102  5 

REF 

1 

06,3060 

1026 

REF 

1 

06,3061 

1027 

06,3062 

3 4744 

i 

CAF 

ONE 

0 5205 

0 

TC 

WAITLIST 

EBANK= 

LOSCOUNT 

0 2 C 53 

0 

2CA0R 

R RTURNON 

52107 

0 

1 3155 

1 

TC  F 

NORRGMON 

05776 

1 

OCT05776  OCT 

5 7 76 
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L 

T4RUPT 

PROGRAM 

USER’S 

PAGE 

NO.  31 

F 6 S4 

PI  02  8 

PROGRAM 

NAME.  RRCDUCHK 

R 1 02  9 FUNCTIONAL  DFSCRIPTICN_ 

R 1030  RRCDUCHK  CHECKS  FOR  RR  COU  FAIL  (CHAN  30  BIT  7).  INITIALLY  THE 

R 103 1 RR  COU  FAIL  BIT  IS  SAMPLED  (CHAN  30  BIT  7).  IF  NO  CHANGE,  THE 

R 103 2 PROGRAM  EXITS  TO  RRGIMON.  IF  A CHANGE,  THE  RR  AUTO  MODE 

R 103 3 (RADMODES  RIT  2)  BIT  IS  CHECKED.  IF  NOT  IN  RR  AUTO  MODE,  THE 

R1034  PROGRAM  FXITS  TO  NORRGMON.  IF  IN  AUTO  MODE,  PAOMODES  BIT  7 

R1035  (RR  CDU  OKI  IS  UPDATED  AND  IF  P-20  IS  OPERATING  PROGRAM  ALARM  00515  IS 

R 1 03 6 REQUESTED.  CONTRUL  IS  TRANSFERRED  TO  SETTRKF  TO  UPDATE 

R1037  IHE  TRACKER  FAIL  LAMP  (DSPTAB+11D  BIT  8).  CONTROL  RETURNS  TO 

R103B  RRGIMCN. 

R1039  CALLING  SEQUENCE_ 

R 1 040  EVERY  480  MILLISECONDS  FROM  RRAUTCHK  (VIA  T4RUPTI  UNLESS  A 

R1041  TURN-ON  SEQUENCE  HAS  JUST  BEEN  INITIATED. 

R 1042  ERASABLE  INITIALIZATION  REQUIRED. 

R 1 04 3 RADMCDE  S 

R 1 044  SUBROUTINES  CALLED. 

R 104  5 SETTRKF 

R 1 04 6 JOBS  OR  TASKS  INITIATED. 

R 1 04  7 NONE 

R 1 04  8 ALARMS. 

R1049  TRACKER  FAIL 


1050 

PROGRAM 

ALARM 

00515 

- RR  CDU  1 

FAIL  DUR 1 

ING 

P-20 

in 

o 

EXIT. 

1052 

RRGIMON, 

, NORRGMON 

105  3 

REF 

20 

LAST 

193 

06,3063 

4 4743 

1 

-3 

CS 

B IT2 

1054 

06,3064 

0 0006 

1 

EXTEND 

1055 

REF 

11 

LAST 

r 

06,3065 

03  012 

1 

WAND 

CHAN  1 2 

AT  TURNON,  DISABLE  COU  ERROR  COUNTERS. 

1056 

REF 

8 

LAST 

193 

06,3066 

3 CllO 

1 

RRCDUCHK 

CA 

RADMODES 

LAST  SAMPLED  BIT  IN  RADMODFS. 

1057 

06,3067 

0 0006 

1 

EXTEND 

1053 

REF 

2 

LAST 

171 

06,3070 

06  C 30 

1 

RXQR 

CHAN30 

1059 

REF 

l 

06,3071 

7 4736 

0 

MASK 

RCDUF  BIT 

1060 

06,3072 

0 0006 

1 

EXTEND 

106  1 

REF 

1 

06,3073 

1 3120 

0 

BZF 

RRGIMON 

1062 

REF 

2 

LAST 

193 

06,3074 

3 4743 

0 

CAF 

AUTOMBI T 

IF  RR  NOT  IN  AUTO  MODE,  DON'T  CHANGF  BIT 

1063 

REF 

9 

LAST 

195 

06,3075 

7 0110 

0 

MASK 

RADMODES 

7 OF  RADMODES.  IF  THIS  WERE  NOT  DONE, 

1064 

REF 

28 

LAST 

193 

06,3076 

10  000 

0 

CCS 

A 

THE  TRACKER  FAIL  MIGHT  COMF  ON  WHEN 

1065 

REF 

2 

LAST 

194 

06,3077 

1 3155 

1 

TCF 

NORRGMON 

JUST  READING  LR  DATA. 

1066 

REF 

2 

LAST 

195 

C6, 3100 

3 4736 

1 

CAF 

RCDUF  B I T 

SET  BIT  7 OF  RADMODES  FOR  SFTTPKF. 

GAP 
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106  7 

REF 

10 

LAST 

195 

06,3 

106  8 

06,3 

106  9 

REF 

3 

LAST 

177 

06,3 

1070 

REF 

11 

LAST 

196 

06,3 

1071 

REF 

12 

LAST 

196 

06,3 

1072 

REF 

1 

06,3 

1073 

REF 

29 

LAST 

L95 

06,3 

1074 

REF 

1 

06,3 

1075 

REF 

5 

LAST 

186 

06,3 

1076 

REF 

1 

06,3 

1077 

REF 

30 

LAST 

196 

06,3 

1078 

REF 

2 

LAST 

196 

06,3 

1079 

REF 

7 

I AS1 

188 

06,3 

1080 

06,3 

108  1 

REF 

1 

06,3 

22  110 

1 

LXCH 

R ADMODES 

0 C C 06 

1 

EXTEND 

06  C01 

0 

RXOR 

L 

54  no 

0 

TS 

R ADMODES 

3 C110 

1 

CA 

R ADMODES 

7 4606 

1 

MASK 

13,7,2 

10  000 

0 

CCS 

A 

1 3117 

1 

TCF 

TRKFLCDU 

4 00  74 

0 

CS 

FL  AGWROO 

7 4736 

0 

MASK 

RNDVZBIT 

10  000 

0 

CCS 

A 

1 3117 

1 

TCF 

TRKFLCDU 

0 5571 

1 

TC 

ALARM 

0C515 

0 

OCT 

00515 

0 4555 

0 

TPKFLCDU  TC 

SETTRKF 

.101 

102 

103 

104 

105 

106 

107 

110 

111 

112 

113 

1 14 

115 

116 

117 
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DID  RR  CDU  FAIL 

CDU  Z ERO+  CDU  FA  I L + RR  AUTO 

NO 

RNDVFLG  P 20  OR  P22  OPERATING 


NO 

YES 

UPDATE  TRACKER  FAIL  LAMP  ON  OSKY. 
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L T4RUPT  PROGRAM 

P 1082  PROGRAM  NAME_  RRGIMCN 

R 1 084  FUNCTIONAL  DESCRIPTICN_ 

R 1006  RRGIMCN  IS  THE  RP  GIMBAL  LIMIT  MONITOR.  INITIALLY  THE  FOLLOWING  IS 

R 1088  CHECKED.  REMODE,  RR  CDU:S  BEING  ZFROED,  REPOSITION,  AND  RR 

R 1089  NOT  IN  AUTO  MODE  ! F.  ADMODE  S BITS  14 , 13,  11  2).  IF  ANY  OF  THESE 

R 1090  EXIST  THE  PROGRAM  EXITS  TO  GPMATR IX.  IF  NONE  ARE  PRESENT  RRLIMCHK 

R1091  IS  CALLED  TO  SEE  IF  THE  PRESFNT  RR  CDU  ANGLES  (OPTY,  OPTX)  ARE  WITHIN 
R 1092  THE  LIMITS  OF  THE  CURRENT  MODE.  IF  WITHIN  LIMITS,  THE  PROGRAM  EXITS 

P 1 093  TO  NORRGMON . IF  NOT  WITHIN  LIMITS,  THE  REPOSITION  FLAG  (RADMODES 

R 1 094  BIT  11)  IS  SET,  THE  PR  AUTO  TRACKER  AND  RR  ERROR  COUNTER 

R1095  (CHAN  12  BITS  14,  2)  ARE  DISABLED,  AND  A 20  MILLISECOND  WAITLIST 

R 1096  CALL  IS  SET  EOR  DORREPOS  AFTER  WHICH  THE  PROGRAM  EXITS  TO  NORRGMON. 

R 1 09  7 CALLING  SEQUENCE. 

R 109  8 EVERY  480  MILLISECONDS  FROM  R RCDUCHK  (VIA  T4RUPT)  UNLESS  TURN-ON 

R 1099  HAS  JUST  BEEN  INITIATED  VIA  RRAUTCHK  OR  IF  THERE  HAS  BEEN  A CHANGE  IN 

R 1 100  THE  RR  CDU  FAIL  BIT  (CHAN  30  BIT  7)  AND  THE  RR  IS  NOT  IN  THE  AUTO  MODE 

R1101  (RADMODES  BIT  2). 

R 1 102  ERASABLE  INITIALIZATION.  RADMODES 

K 1 103  SUBROUTINES  CALLED. 

R 1 10  4 RRLIMCHK,  WAITLIST 

K1105  JOBS  OR  TASKS  INITIATED. 

R 1 10  6 OORREPCS 

R 1 10  7 ALARMS. 

R 1 10  8 NONE 


R 1 109  EXIT. 
RlllO  NORRGMON 


1111 

REF 

4 

LAST 

184 

06,3120 

30 

101 

L 

RRGI MON 

CAE 

FLAGWRD5 

1112 

REF 

1 

06,3121 

7 

4741 

0 

MASK 

NORRMBI T 

1113 

REF 

31 

LAST 

196 

06,3122 

10 

COO 

0 

CCS 

A 

1114 

REF 

3 

LAST 

195 

C 6 , 3 1 2 3 

1 

3155 

1 

TCF 

NORRGMON 

1115 

REF 

1 

06,3124 

4 

C 103 

1 

CS 

F LAGWRD7 

1116 

REF 

1 

06,3125 

7 

4740 

1 

MASK 

AVEGFBIT 

1117 

REF 

32 

LAST 

197 

06,3126 

1C 

COO 

0 

CCS 

A 

1118 

06,3127 

1 

3134 

0 

TCF 

+ 5 

1119 

REF 

1 

06,3 130 

3 

0 102 

l 

CA 

FLAGWRD6 

1 120 

REF 

1 

06,3131 

7 

4735 

0 

MASK 

MUNFL8I T 

1121 

REF 

33 

LAST 

197 

06,3132 

10 

000 

0 

CCS 

A 

1122 

REF 

4 

LAST 

197 

06,3133 

1 

3 155 

1 

TCF 

NORRGMON 

1 123 

REF 

1 

06,3134 

3 

3164 

1 

+ 5 

CAF 

0CT32002 

1124 

REF 

13 

LAST 

196 

06,3135 

7 

QUO 

0 

MASK 

R ADMODES 

1125 

REF 

34 

LAST 

197 

06,3136 

10 

COO 

0 

CCS 

A 

1126 

REF 

5 

LAST 

197 

06,3137 

1 

3155 

1 

TCF 

NORRGMON 

USER • S PAGE  NO.  33  E6  S4 

E AUTO  MODE  EXCEPT  WHEN  THE  RP  CDUS  ARE 

TTER  IS  INITIATED  BY  THIS  MONITOR  WHEN 
ED  TO  DRIVE  THE  GIMBALS  TO  T = 0 AND 


IS  NO  ANGLE  MONITOR  FLAG  SET 


YES  - SKIP  LIMIT  CHFCK 
IS  SERVICER  RUNNING? 


NO.  DO  R25 

YES.  IS  MUNFLAG  SET? 


YES.  DON'T  DO  R25 

INHIBIT  BY  RFMODE,  ZEROING, MONITOR. 
OR  RR  NOT  IN  AUTO. 
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1127 

REF 

1 

06,3190 

0 9519 

0 

TC 

RRLIMCHK 

1128 

REF 

l 

06,3191 

00035 

1 

ADRES 

C OUT 

1129 

REF 

1 

06,3192 

1 3199 

l 

TC  F 

MONREPOS 

1 130 

REF 

6 

LAST 

197 

06,3193 

1 3155 

1 

TC  F 

NORRGMON 

1131 

REF 

l 

06,3199 

3 9 732 

0 

MONREPOS 

CAF 

REPOSBIT 

1132 

REF 

19 

LAST 

197 

06, 3195 

26  no 

0 

ADS 

R AOMODES 

113  3 

REF 

I 

06,3196 

9 3 165 

1 

CS 

0CT20002 

1 139 

06,3197 

0 0006 

1 

EXTFND 

1135 

RFF 

1? 

LAST 

195 

06,3150 

03  C 12 

1 

WAND 

CHAN12 

1136 

REF 

2 

LAST 

38 

06,3151 

3 9793 

0 

CAF 

TWO 

1137 

REF 

6 

LAST 

199 

06,3152 

C 5205 

0 

TC 

WAITLIST 

1 138 

REF 

3 

LAST 

199 

E7, 1956 

EBANK= 

LOSCOUNT 

1139 

REF 

1 

06,3153 

02120 

0 

2CADR 

DORREPOS 

1 13  9 

REF 

L 

06,3159 

52107 

0 

1 190 

REF 

15 

LAST 

198 

06,3155’ 

3 0110 

1 

NORRGMON 

CA 

R ADMODES 

119  1 

REF 

3 

LAST 

195 

06,3156 

7 9 793s- 

MASK 

AUTOMBIT 

1 192 

REF 

35 

LAST 

19  7 

06,3157 

10  000 

0" 

CCS 

A 

1193 

06,3160 

13  161 

0^ 

NOOP 

1 199 

06,3161 

0 0006 

1 

EXTEND 

1195 

REF 

13 

LAST 

198 

06,3162 

05  012 

l> 

WOR 

C HAN  1 2 

1196 

REF 

1 

06,3163 

l 3167 

TCF 

ENORRMON 

119  7 

REF 

3 

LAST 

169 

06,3167 

ENDRRMON 

EQUALS 

DAPT9S 

1 198 

06,3  169 

32002 

l 

OCT32002 

OCT 

32002 

1199 

06,3  165 

20002 

1 

DCT20002 

OCT 

20002 

1150 

06,3166 

02100 

l 

0CT02100 

OCT 

02100 
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SEE  IF  ANGLES  IN  LIMITS. 


(ADDITIONAL  CODING  MAY  GO  HFRF ) . 

SET  FLAG  TO  SHOW  REPOSITION  IN  PROGRESS. 

DISABLE  TRACKER  AND  ERROR  COUNTER. 


IF  SELECT  SWITCH  IS  NOT  IN  LGC , SEND  RR 
CDU  ZFRO  BIT  TO  PREVENT  mTmtSrY  CYCLE 
SNATCHING  BY  MANIC  RR  CDUS.  BIT2  OF 
RADMODFS  AGREES  WITH  BIT2  OF  CHANNEL 
33.  TOR  THIS  CODING,  WHICH  ASSUMES 
AUTOMBIT  = BIT2,  THANKS  TO  HUGH  B-S. 


P20 , P 22  MASK  BITS 


GAP: 


ASSEMBLE  REVISION  210  OE  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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TARUPT  PROGRAM 


USER'S  PAGE  NO.  35  F6  SA 


I P1151  PROGRAM  NAME:  GPMATRIX  I DAPTAS ) MOO.  NO.  2 DATE:  OCTOBER  27,  1966 
R 1 15 2 AUTHOR:  JONATHAN  D.  AOOELSTON  (ACAMS  ASSOCIATES) 

R 1 153  MODIFIED:  7FEB.  1968  BY  P.  S.  WEISSMAN  TO  DELETE  COMPUTATION  OF  MR12  AND  MR13,  WHICH  ARE  NO  LONGFR  REQIURED. 

R l 155  THIS  PROGRAM  CALCULATES  ALL  TEE  SINGLE-PRECISION  MATRIX  ELEMENTS  WHICH  ARE  USED  BY  LEM  DAP  TO  TRANSFORM  VECTORS 

R 1 1 5 7 ERCM  GIMBAL  TO  PILOT  (BODY)  AXES  AND  BACK  AGAIN.  THESE  ELEMENTS  ARF  USED  EXCLUSIVELY  BY  BASIC  LANGUAGE  ROUTINES 

R 1159  AND  TEEREFORE  ARE  NOT  ARRAYED  FOR  USE  BY  INTERPRETIVE  PROGRAMS. 

R 1 160  CALLING  SEQUENCE:  GPMATRIX  IS  TRANSFERRED  TO  FROM  DAPTAS  AND  IS  THUS  EXECUTED  A TIMES  A SECOND  BY  TARUPT. 

R 1 16 2 DAPTAS  IS  LISTED  IN  TAJUMP  TABLE  TWICE  EXPLICITLY  AND  ALSO  OCCURS  AFTER  RRAUTCHK  (WHICH  IS  ALSO  LISTED  TWICE). 

R l 16 A SUBROUTINES  CALLED:  SPSIN,  SPCOS. 

R 1 16 5 NORMAL  EXIT  MODE:  TCF  RESUME 

R 1 16 6 ALARM  AND  ABORT  MODES:  NONE. 

R 1 16  7 INPUT:  CDUX,  CDUY,  CDUZ  . 


R 1 16 8 OUTPUT:  Mil,  M21,  M31,  M22,  M32. 

R 1 169  AOG  = CDUX,  A I G = CDUY,  AMG  = CDUZ:  MNEMUNIC  IS:  OIM  = XY Z 


R 1 1 7 0 

* 

* 

SIN(MG) 

0 

1 

❖ 

R 1 17  1 

M 

* 

COS ( MG) COS (OG ) 

SIN(OG) 

0 

* 

Rl  172 

GP 

* 

COS ( MG  1 S I N( OG ) 

COS (OG) 

0 

❖ 

R 1 173 

* 

* 

0 

COS(OG)/COS(MGI 

-S  I N ( OG  ) /COS  ( MG  ) 

* 

Rl  17A 

M 

* 

0 

S INJOG ) 

COS (OG ) 

* 

R 1 175 

PG 

* 

l 

— SIN(MG)COS( OG ) /COS ( MG ) 

S I N ( MG ) S IN(OG) /COS ( MG ) 

* 

1 176 

REF 

5 

LAST 

176 

E6 , 1 A l A 

EBANK= 

Mil 

1177 

REE 

1 

06,3167 

DAPTAS 

EQUALS 

GPMATRI X 

R 117  8 

TARUPT 

DAP  LOGIC: 

1 179 

REF 

3 

LAST 

179 

06,3167 

30  03A 

0 

GPMATRIX 

CAE 

CDUZ 

SINGLE  ENTRY 

POINT 

1 180 

REF 

1 

06,3170 

0 502A 

1 

TC 

SPSIN 

SIN(CDUZ) 

= 

S INI  MG) 

1181 

REF 

6 

LAST 

199 

06,3171 

55'AIA 

0 

TS 

Mil 

SCALED  AT 

1 

1182 

REF 

A 

LAST 

199 

06,3172 

30  03A 

0 

CAE 

CDUZ 

1183 

REF 

1 

06,3173 

0 5023 

0 

TC 

SPCOS 

COStCDUZ ) 

= 

COS ( MG ) 

1 18  A 

REF 

1 

06 , 3 1 7 A 

5A  061 

1 

TS 

COSMG 

SCALED  AT 

1 

(ONLY  A FACTOR) 

1185 

REF 

2 

LAST 

16  1 

06,3175 

30  032 

0 

CAE 

CDUX 

1186 

REF 

2 

LAST 

199 

06,3176 

0 502A 

1 

TC 

SPSIN 

SIN(CDUX) 

= 

S IN(OG) 

1187 

REF 

1 

06,3177 

55  1 A 1 7 

0 

TS 

M22 

SCALED  AT 

1 

(ALSO  IS  MR22 ) 

1 188 

KEF 

2 

LAST 

199 

C 6 , 3200 

A 1 A 1 7 

0 

CS 

M22 

GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L T4RUPT  PROGRAM 


1189 

06,3201 

0 0006 

1 

EXTEND 

1 190 

REF 

2 

LAST 

199 

06,3202 

7 0061 

1 

MP 

COSMG 

1 191 

REF 

1 

06,3203 

55 '416 

1 

TS 

M31 

1 192 

REF 

3 

LAST 

199 

06,3204 

30  C32 

0 

CAE 

C DUX 

1 193 

REF 

2 

LAST 

199 

06,3205 

0 5C23 

0 

TC 

SPCOS 

1 194 

REF 

1 

06,3206 

55*420 

1 

TS 

M 32 

1195 

06,3207 

0 OC 06 

1 

EXTEND 

1196 

REF 

3 

LAST 

200 

06,3210 

7 0061 

1 

MP 

COSMG 

1 197 

REF 

1 

06,3211 

55*415 

1 

TS 

M 2 1 

1198 

REF 

5 

LAST 

192 

06,3212 

0 5272 

0 

TC 

RESUME 

REF  6 LAST  200  5272 


1 199 


E NOD APT 4 EQUALS  RESUME 
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-S IN ( OG ) CO S ( M G I 
SCALEO  AT  1 


COS ( C DUX  ) = COS  I OG ) 

SCALED  AT  l (ALSO  IS  MR23  ) 


COS ( OG ) COS (MG  ) 
SCALED  AT  1 


GAP: 
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L 

R0001 

R0002 

R00025 

R0003 
R000  5 
R0007 
R0009 
R001  l 
R0013 
R0015 
R001  7 

R0018 
R0020 
R0022 
R 002  A 
R0026 
R0028 
R0030 
R0032 
R0034 

R0036 

R003  7 

R0038 

0039 

R 004.0 

R004  1 
R0042 

R0043 

R0045 

R00465 

R0047 

R0048 

0052 

0059 

0060 
0061 


RCS  FAILURE  MONITOR  USER'S  PAGE  NO.  1 EO  S4 

PROGRAM  DESCRIPTION 
AUTHOR:  J S MILLER 

MODIFIED  6 MARCH  1968  BY  P S WEISSMAN  TO  SET  UP  JOB  FOR  1/ACCS  WHEN  THE  MASKS  ARE  CHANGED. 

THIS  ROUTINE  IS  ATTACHED  TC  T4RUPT,  AND  IS  ENTERED  EVERY  A80  MS.  ITS  FUNCTION  IS  TO  EXAMINE  THE  LOW  8 BITS 
OF  CHANNEL  32  TO  SEE  IF  ANY  I SOLAT I ON-VALVE  CLOSURE  BITS  HAVE  APPEARED  OR  DISAPPEARED  (THE  CREW  IS  WARNEO  OF  JET 
FAILURES  BY  LAMPS  LIT  BY  THE  GRUMMAN  FAILURE-DETECTION  CIRCUITRY;  THEY  MAY  RESPOND  BY  OPERATING  SWITCHES  WHICH 
ISOLATE  PAIRS  OF  JETS  FROM  THE  PROPELLANT  TANKS  AND  SET  8ITS  IN  CHANNEL  32).  IN  THE  EVENT  THAT  CHANNEL  3?  BITS 
DIFFER  FROM  'PVALVEST',  THE  RECORD  OF  ACTIONS  TAKEN  BY  THIS  ROUTINE,  THE  APPROPRIATE  BITS  IN  ' CH5MASK 1 8 
1 CH6MASK ' , USED  BY  THE  DAP  JET-SELECTION  LOGIC,  ARE  UPDATED,  AS  IS  'PVALVEST'.  TO  SPEED  UP  8 SHORTEN  THE 
ROUTINE,  NO  MORE  THAN  ONE  CHANGE  IS  ACCEPTED  PER  ENTRY.  THE  HIGHEST-NUMBERED  BIT  IN  CHANNEL  32  WHICH  REQUIRES 
ACTION  IS  THE  ONE  PROCESSED. 

THE  CODING  IN  THE  FAILURE  MONITOR  HAS  BEEN  WRITTEN  SO  AS  TO  HAVE  ALMOST  COMPLETE  RESTART  PROTECTION.  FOR 

EXAMPLE,  NO  ASSUMPTION  IS  MADE  WHEN  SETTING  A ' CH5MA  SK  * BIT  TO  1 THAT  THE  PREVIOUS  STATE  IS  0,  ALTHOUGH  IT  OF 

COURSE  SHOULD  BE.  CNE  CASE  WHICH  MAY  BE  SEEN  TO  EVADE  PROTECTION  IS  THE  OCCURRENCE  OF  A RESTART  AFTER  UPDATING 
ONE  OR  BOTH  DAP  MASK-WORDS  BUT  BEFORE  UPDATING  'PVALVEST',  COUPLED  WITH  A CHANGF  IN  THE  VALVE-BIT  BACK  TO  ITS 
FORMER  STATE.  THE  CONSEQUENCE  OF  THIS  IS  THAT  THE  NEXT  ENTRY  WOULD  NOT  SEE  THE  CHANGE  INCOMPLETELY  INCORP- 
ORATED BY  THE  LAST  PASS  (BECAUSE  IT  WENT  AWAY  AT  JUST  THE  RIGHT  TIME),  BUT  THE  DAP  MASK-WORDS  WILL  BE  INCORRECT. 
THIS  COMBINATION  OF  EVENTS  SEEMS  QUITE  REMOTE,  BUT  NOT  IMPOSSIBLE  UNLESS  THE  CREW  OPERATES  THE  SWITCHES  AT  HALF- 
SECOND  INTERVALS  OR  LONGER.  IN  ANY  EVENT,  A DISAGREEMENT  BETWEEN  REALITY  AND  THE  DAP  MASKS  WILL  BE  CURED  IF 
THE  MISINTERPRETED  SWITCH  IS  REVERSED  AND  THEN  RESTORED  TO  ITS  CORRECT  POSITION  (SLOWLY). 

CALLING  SEQUENCE: 

TCF  RCSMCNIT  (IN  INTERRUPT  MODE,  EVERY  480  MS.) 

EXIT:  TCF  RCSMONEX  (ALL  PATHS  EXIT  VIA  SUCH  AN  INSTRUCTION) 

REF  7 LAST  200  5272  RCSMONEX  EQUALS  RESUME 

ERASABLE  INITIALIZATION  REQUIRED: 

VIA  FRESH  START:  PVALVEST  = +0  (ALL  JETS  ENABLED) 

CH5MASK , CH6MASK  = +0  (ALL  JETS  OK) 

OUTPUT:  CH5MASK  £ CH6MASK  UPDATED  (l'S  WHERE  JETS  NOT  TO  BE  USED,  IN  CHANNEL  586  FORMAT) 

PVALTEST  UPDATED  ( 1 , S WHEN  VALVE  CLOSURES  HAVE  BEEN  TRANSLATED  INTO  CH5MASK  8 CH6MASK;  CHAN  32  FORMAT) 
JOB  TO  00  1/ACCS . 


DEBRIS: 

A,  L,  Q AND 

DEBRIS  OF  NOVAC. 

SUBROUT 

INE  CALLED: 

NOVAC  . 

REF  2 

LAST  162 

1257 

EBANK= 

CH5MASK 

23,2000 

BANK 

23 

REF  1 

06,2000 

SETLOC 

RCSMONT 

06,3213 

BANK 

GAP:  ASSfcMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L RCS  FAILURE  MONITOR 

0062  REF  1 COUNT*  $t/TARCS 


00625 

REF 

1 

06,3213 

0063 

REF 

6 

LAST 

13A 

06, 3213 

006  A 

06 , 3 2 1 A 

0065 

REF 

2 

LAST 

168 

06,3215 

0066 

REF 

l 

06,3216 

0067 

REF 

8 

LAST 

191 

06,3217 

006  8 

REF 

1 

06,3220 

006  9 

REF 

9 

LAST 

202 

06,3221 

0070 

REF 

A 

LAST 

196 

06,3222 

0071 

REF 

1C 

LAST 

202 

06,3223 

007? 

REF 

2 

LAST 

202 

06, 322A 

0073 

REF 

5 

LAST 

202 

06,3225 

007A 

06,3226 

0075 

REF 

1 

06,3227 

0076 

06,3230 

0077 

REF 

17 

LAST 

183 

06,3231 

0078 

REF 

6 

LAST 

202 

06,3232 

007  9 

REF 

7 

LAST 

202 

06,3233 

008C 

06.323A 

0081 

06, 3235 

0082 

06,3236 

0083 

REF 

8 

LAST 

202 

06,3237 

008A 

REF 

16 

LAST 

1 7 A 

06, 32A0 

0085 

REF 

1 1 

LAST 

202 

06.32A1 

0086 

REF 

3 

LAST 

202 

06,  3 2 A2 

0087 

REF 

36 

LAST 

198 

06, 32A3 

0088 

REF 

1 

06, 32AA 

0089 

REF 

3 

LAST 

201 

06, 32A5 

0090 

REF 

9 

LAST 

202 

06.32A6 

009  1 

REF 

l 

06, 32A7 

0092 

REF 

A 

LAST 

202 

06, 3250 

0093 

REF 

1 

06,3251 

009  A 

REF 

10 

LAST 

202 

06,3252 

0095 

REF 

1 

06,3253 

0096 

REF 

2 

LAST 

202 

06 , 32  5A 

009  7 

REF 

12 

LAST 

202 

06,3255 

0098 

REF 

A 

LAST 

202 

06,3256 

0099 

REF 

l 

06,3257 

RCSMONIF  EQUALS  RCSMON 


A A 7A6 

1 RCSMON 

cs 

ZERO 

0 CC06 

1 

EXTEND 

06  032 

0 

RXOR 

CHAN32 

7 A3  50 

1 

MASK 

L0W8 

5 A 002 

1 

TS 

Q 

A 1273 

1 

CS 

PVALVEST 

7 0002 

1 

MASK 

Q 

5A  001 

l 

TS 

L 

A 0002 

1 

CS 

Q 

7 1273 

1 

MASK 

PVALVEST 

26  C01 

1 

ADS 

L 

0 0006 

1 

EXTEND 

1 5272 

1 

BZF 

RCSMONEX 

0 0006 

1 

EXTEND 

7 A 7 36 

0 

MP 

B IT7 

56  C01 

0 

XCH 

L 

2 A C01 

0 -3 

INC  R 

L 

6 CCOO 

1 

DOUBLE 

5 A 000 

0 

OVSK 

1 3233 

1 

TCF 

-3 

5C  001 

0 

INDEX 

L 

3 A 73A 

0 

CA 

BIT8  -1 

5 A 002 

1 

TS 

Q 

7 1273 

1 

MASK 

PVALVEST 

10  COO 

0 

CCS 

A 

1 3260 

1 

TCF 

VOPENFD 

A 1257 

1 

CS 

CH5MASK 

U1 

o 

o 

O 

0 

INDEX 

L 

7 3277 

1 

MASK 

5FAI LTAB 

27 ' 257 

1 

ADS 

CH5MASK 

A 1260 

0 

CS 

CH6MASK 

50  C01 

0 

INDEX 

L 

7 3307 

1 

MASK 

6FAILTA8 

2 7 ' 260 

0 

ADS 

CH6MASK 

3 0002 

0 

CA 

Q 

27' 2 73 

1 

ADS 

PVALVEST 

1 3273 

0 

TCF 

1/ACCFI X 
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PICK  UP  + INVERT  INVERTED  CHANNEL  32 
KEEP  JET-FAIL  BITS  ONLY. 


FORM  PC  + PC. 

(P  = PREVIOUS  ISOLATION  VALVE  STATE, 
C = CURPENT  VALVE  STATE  (CH  321). 

RESULT  NZ  INDICATES  ACTION  REQUIRED. 


QUIT  IF  NO  ACTION  REQUIRFD. 


MOVE  BITS  8 - l OF  A TO  1 A - 7 OF  L . 
ZERO  TO  L IN  THE  PROCESS. 


BOUND  TO  GET  OVERFLOW  IN  THIS  LOOP, 
SINCE  WE  ASSURED  INITIAL  NZ  IN  A. 


SAVE  THF  RELEVANT  BIT  (8  - 1). 

LOOK  AT  PREVIOUS  VALVE  STATE  BIT. 
THE  VALVE  HAS  JUST  BEEN  OPENED. 

THE  VALVE  HAS  JUST  BEEN  CLOSEO. 

SET  INHIBIT  BIT  FOR  CHANNEL  5 JET. 


SET  INGIBIT  BIT  FOR  CHANNEL  6 JET. 


RECORD  ACTION  TAKEN. 


SET  UP  I / ACC JOB  AND  EXIT 


GAP:  ASSEMBLE  REVISION  210  CF  ACC  PROGRAM  LUMINARY  BY  NASA  202L112-L61 


L RCS  FAILURE  MONITOR 


0100 

REF 

1 1 

LAST 

202 

06,3260 

50  C01 

0 

VOPENED 

INDEX 

L 

010  1 

REF 

2 

LAST 

202 

C 6 , 3261 

A 3277 

1 

CS 

5FAILTAB 

0102 

REF 

5 

LAST 

202 

06,3262 

7 1257 

1 

MASK 

CH5MASK 

0103 

REF 

6 

LAST 

203 

06,3263 

55*257 

1 

TS 

CH5MASK 

010A 

REF 

12 

LAST 

203 

06, 326A 

50  001 

0 

INDEX 

L 

0105 

RFF 

2 

LAST 

20  2 

06,3265 

A 3307 

1 

CS 

6FAI LTAB 

0106 

REF 

3 

LAST 

202 

06 ,3266 

7 1260 

0 

MASK 

CH6MASK 

0107 

REF 

A 

LAST 

203 

06, 3267 

55*260 

0 

TS 

CH6MASK 

0108 

REF 

13 

LAST 

202 

06,3270 

A CC02 

1 

CS 

Q 

0109 

REF 

5 

LAST 

202 

06,3271 

7 1273 

1 

MASK 

PVAL VEST 

0110 

REF 

6 

LAST 

203 

06,3272 

55*273 

1 

TS 

PVALVEST 

0111 

REF 

1 

06,3273 

3 7736 

1 

1/ACCFIX 

CAF 

P R 1027 

0112 

REF 

2 

LAST 

168 

06.327A 

0 5063 

1 

TC 

NOVAC 

0113 

REF 

A 

LAST 

138 

E6 , 1536 

EBANK= 

AOSQ 

Oil  A 

REF 

1 

06,3275 

03603 

1 

2CADR 

1 /ACC  JO  B 

Oil  A 

REF 

1 

06,3276 

A2106 

0 

0115 

REF 

2 

LAST 

202 

06,3277 

1 5272 

1 

TCF 

RCSMONEX 

0117 

06,3276 

5 FA  1 L TAB  EQUALS 

-1 

0110 

06,3300 

OCCAO 

0 

OCT 

OOOAO 

0119 

C 6 , 3301 

0CC20 

0 

OCT 

00020 

0120 

06,3302 

CC100 

0 

oct 

00100 

012  1 

06,3303 

C0200 

0 

OCT 

00200 

0122 

06.330A 

C0010 

0 

OCT 

00010 

0123 

06,3305 

00001 

0 

OCT 

00001 

0 12  A 

06,3306 

OCCOA 

0 

OCT 

OOOOA 

0125 

06,3307 

00002 

0 

OCT 

00002 

0126 

06,3306 

6FAILTAB  EQUALS 

-1 

0127 

06,3310 

00010 

0 

OCT 

00010 

0128 

06,331 1 

00020 

0 

OCT 

00020 

0129 

06,3312 

OOCOA 

0 

OCT 

OOOOA 

0130 

06,3313 

00200 

0 

OCT 

00200 

0131 

06 , 3 3 1 A 

00001 

0 

OCT 

00001 

0132 

06,3315 

00CO2 

0 

OCT 

00002 

0133 

06,3316 

OCCAO 

0 

OCT 

OOOAO 

0 13A 

06,3317 

C0100 

0 

OCT 

00100 
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A VALVE  HAS  JUST  BFEN  OPENED. 

REMOVE  INHIBIT  BIT  FOR  CHANNEL  5 JET. 


REMOVE  INHIBIT  BIT  FOR  CHANNEL  6 JET. 


RECORD  ACTION  TAKEN. 

SET  UP  I/ACCS  SO  THAT  THE  SWITCH  CURVES 
FOR  TJETLAW  CAN  BE  MODIFIED  IF  CH5MASK 
HAS  BEEN  ALTERED. 


EX  IT. 


CH  5 JET  BIT  CORRESPONDING  TO  CH  32  BIT: 
8 

7 
6 

5 
A 
3 
2 
1 

CH  6 JET  BIT  CORRESPONDING  TO  CH  32  BIT: 

8 
7 

6 
5 
A 
3 
2 
1 


GAP:  ASSEMBL  fc  REVISION  210  OF  AGO  PROGRAM  LUMINARY  SY  NASA  2021112-161 

L DOWNLINK  LISTS 


0001 

22,2004 

BANK 

22 

0002 

REF 

1 

05,2000 

SET  L CC 

DOWNTELM 

0003 

05,2045 

BANK 

0004 

REF 

2 LAST  164 

3340 

EB ANK= 

DNTMBUF  F 
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R0005 
A 000  6 
A 000  7 
A0008 
A 000  9 


SPECIAL  DOWNLINK  OP  CODES 


OP  CODE  ADDRESSIFX AMPLE)  SENDS.. 


SIT  15 


BITS  14-12  BITS  11 
-0 


A0010 

1DNADR 

T IMF 2 

(2  AGC  WDS) 

0 

0 

ECADR 

A001  1 

2DNADR 
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. . . + 3 


X 789  + 0 


COMMON  DATA 


GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L 

DOWNLINK  LISTS 

0186 
AO  18  7 

REF 

A LAST 

208 

05,2214 

77665 

l 

1DNADR 

lastycmd 

0188 

REF 

3 LAST 

1 6 1 

05,22  15 

12737 

1 

LMCSTA07 

3DNADR 

OGC 

0189 

REF 

3 LAST 

161 

05,2216 

02755 

l 

1DNADR 

BEST  I 

0190 

REF 

2 LAST 

128 

05,2217 

12760 

0 

3DNADR 

STARSAVl 

0191 

REF 

2 LAST 

128 

05,2220 

65011 

1 

- 

3DNADR 

STARSAV2 

019  1 1 
R0192 

REF 

1 

05,2144 

LMCST A10 

EQUALS 

LM0RB10 

R0193 

*** 

UNREFERENCED  LOCATIONS  USED  IN  L 

1ST 

2 

R0194 

*** 

UPDATE  THIS 

LIST 

WHFN  ANY 

CHANGE 

S ARE  MADE  TO 

DOWNLINK  LISTS 

AO  19  5 

LOCAT ION 

0196 

REF 

3 

LAST 

206 

E6, 1516 

DL201 

= 

NEGTORKU 

0197 

REF 

3 

LAST 

206 

E6,  1517 

0L202 

= 

POSTORKV 

0198 

REF 

2 

LAST 

206 

E6 , 1520 

DL203 

= 

NEGTORKV 

0199 

REF 

3 

LAST 

206 

1331 

DL204 

= 

DNRRDOT 

0200 

REF 

4 

LAST 

206 

1334 

DL205 

= 

DNLRVELY 

020  1 

REF 

5 

LAST 

207 

1335 

DL206 

= 

DNLRVELZ 

0202 

REF 

3 

LAST 

207 

1336 

DL207 

= 

DNLRALT 

0203 

REF 

3 

LAST 

206 

0025 

DL208 

= 

T I ME  1 

0204 

REF 

2 

LAST 

206 

1356 

DL209 

= 

DUMLOOPS 

0205 

REF 

2 

LAST 

161 

0037 

DL210 

= 

P IPAX 

0206 

REF 

2 

LAST 

161 

0040 

DL21  1 

= 

P IPAY 

0207 

REF 

1 

0041 

DL212 

= 

P IPAZ 

0208 

REF 

1 

0113 

DL213 

= 

LAST  XCMD 

321  9 

REF 

2 

LAST 

207 

1327 

DL214 

- 

CSMMASS 

0210 

REF 

17 

LAST 

207 

1300 

DL215 

= 

I MUDES33 

021  I 

■ REF 

2 

LAST 

209 

0113 

DL216 

= 

L A ST  XCMD 

0212 

REF 

3 

LAST 

161 

E5 , 1741 

DL217 

= 

IGC 

0213 

REF 

2 

LAST 

128 

E 5 , 1 743 

0L218 

= 

MGC 

0214 

REF 

2 

LAST 

128 

E5 , 1 756 

DL21S 

= 

BESTJ 

0214  1 

REF 

5 

LAST 

203 

1260 

DL220 

= 

CH6MASK 
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LASTYCMD.LASTXCMO 

0GC,+  1,IGC,  + 1 ,MGC,  + 1 COMMON  DATA 

BESTI  , BFST  J 
ST ARSAV1+0. . .+5 
ST ARSAV2+0 ... +5 

COMMON  DOWNL 1ST  DATA 


LIST  NAME 
COSTAL  IN 


LMCST  A06 
LMCST  A07 


GAP: 


P0215 

R0216 

0217 

0210 

0219 

0220 
022  l 
0222 

0223 

0224 

0225 

0226 

022  7 
0228 

0229 

0230 

023  l 

0232 

0233 

0234 

0235 

0236 

0237 

023  0 

0239 

0240 

0241 

0242 

0243 

0244 
0245. 
0246 
0246  1 

024  7 
024  0 

0249 

0250 

0251 

0252 

R0253 

0254 

0255 

0256 


)LE  REVISION  210  CF  AGC.  PROGRAM  I ' I IARY  BY  NASA  20211  12-161 


DOWNLINK  LISTS 

LM  RENDEZVOUS  AND  PRE-THRUST  DOWNLIST 
CONTROL  LIST 


05,2221 

R ENDEZVU 

EQUALS 

REF 

1 

05,2221 

32107 

0 

DNPTR 

LMREND01 

REF 

7 

LAST 

208 

05,2222 

24340 

0 

6DNADR 

DNTMBUFF 

REF 

1 

05,2223 

32265 

1 

DNPTR 

L MREND07 

REF 

1 

05,2224 

32275 

0 

DNPTR 

L MREND08 

REF 

3 

LAST 

205 

05,2225 

03451 

l 

1DNADR 

DELLT4 

REF 

3 

LAST 

162 

05,2226 

13433 

1 

3DNADR 

DELVSLV 

REF 

2 

LAST 

205 

C5.2227 

03633 

1 

1DNADR 

TCSI 

REF 

2 

LAST 

205 

05,2230 

12257 

1 

3DNADR 

DELVEET1 

REF 

4 

LAS1 

208 

05,2231 

01355 

0 

1DNADR 

SERVDURN 

REF 

2 

LAST 

20  5 

05,2232 

03630 

1 

1DNADR 

TPASS4 

REF 

1 

05,2233 

32213 

0 

DNPTR 

L MREND06 

REF 

1 

05,2234 

32116 

0 

DNPTR 

LMREND02 

RFF 

4 

LAST 

20  8 

05,2235 

0C024 

1 

1DNADR 

T I ME2 

REF 

1 

05,2236 

32  125 

0 

DNPTR 

LMREND03 

REF 

8 

LAST 

210 

05,2237 

24340 

0 

6DNADR 

DNTMBUFF 

REF 

1 

05,2240 

. 32  134 

0 

DNPTR 

L MREND04 

REF 

4 

LAST 

208 

05,2241 

07  115 

0 

2DNADR 

POSTDRKU 

REF 

3 

LAST 

205 

05,2242 

01363 

0 

1DNADR 

ALMCADR 

PE  F 

2 

LAST 

205 

05,2243 

017  74 

1 

1DNADR 

TCDH 

REF 

2 

LAST 

205 

05,2244 

12265 

0 

3DNADR 

DELVEET2 

REF 

2 

LAST 

205 

05,2245 

03635 

1 

1DNADR 

TTPI 

REF 

2 

LAST 

205 

05,2246 

L 2 356 

1 

3DNADR 

DELVEET3 

RFF 

2 

LAST 

205 

05,2247 

02247 

l 

1DNADR 

ELEV 

REF 

3 

LAST 

208 

05,2250 

04036 

0 

2DNACR 

CDUS 

REF 

5 

LAST 

209 

05,2251 

00112 

0 

10NADR 

L AST  YCMD 

REF 

4 

LAST 

208 

05,2252 

01326 

1 

IDNADR 

LEMMASS 

REF 

35 

LAST 

208 

05,2253 

01277 

1 

1DNADR 

I MODF  S30 

REF 

3 

LAST 

208 

05,2254 

0 3 441 

0 

IDNADR 

TIG 

RFF 

1 

05,2255 

32207 

0 

DNPTR 

L MREND05 

REF 

1 

05,2256 

32  144 

1 

DNPTR 

LMREND10 

REF 

3 

LAST 

208 

05,2257 

01516 

1 

IDNADR 

TET 

REF 

l 

05,2260 

03620 

0 

IDNADR 

CENTANG 

REF 

1 

05,2261 

03466 

0 

IDNADR 

NN 

KEF 

2 

LAST 

205 

05,2262 

03577 

1 

IDNADR 

D IFFALT 

REF 

l 

05,2263 

C2340 

1 

IDNADR 

DELVTPF 

REF 

1 

05,2264 

7 17  70 

1 

■IDNADR 

SPARE 

REF 

3 

LAST 

208 

05,2107 

LMREND01 

EQUALS 

LM0RBM01 

REF 

3 

LAST 

208 

05,2116 

LMREND02 

EQUALS 

LM0RBM02 

REF 

3 

LAST 

208 

05,2125 

LMREND03 

EQUALS 

LMORBM03 
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SEND  ID  BY  SPECIAL  CODING 

COLL F CT  SNAPSHOT 

SEND  SNAPSHOT 

COLLECT  SNAPSHOT 

SEND  SNAPSHOT 

DELLT  4 , + 1 

DELVSLV+O. . .+5 

TCSI , +L 

DELVEET+O. . .+5 
SERVDURN, DU ML  OOPS 
TPASS4.+ 1 
COMMON  DATA 
COMMON  DATA 
TIME2/L 

COLLFCT  SNAPSHOT 
SEND  SNAPSHOT 
COMMON  DATA 

P0ST0RK1I  ,NEGTORKU ,POSTORK V.NFGTORKV 

ALMCADR.+l 

TCDH, +L 

DELVEET2+0. . .+5 
TTPI , +1 

DELVE  ET3+0 ... +5 
ELEV.+l 

CDUS , P I PAX ,PI PAY, P I PAZ 
LASTYCMD,L ASTXCMD 
LEMMASS.CSMMASS 
I MODE  S 30 , T MOD  E S 33 

TIG.+l 


COMMON 

DATA 

COMMON 

DATA 

TE  T , + 1 

CENTANG 

,+l 

NN  , + l 

DIFFALT 

, + l 

DFLVTPF 

, + 1 

COMMON 

DOWNLIST 

DATA 

COMMON 

DOWNLIST 

data 

COMMON 

DOWNLIST 

DATA 

GAP: 


ASSfcMBL  E REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161 


OOWNL INK 

LISTS 

025  7 

REF 

3 

LAST 

208 

05,2134 

LMREN004 

EQUALS 

LMORBM04 

0258 

REF 

2 

LAST 

20  8 

05,2207 

L MREND05 

EQUALS 

LMCSTA05 

0259 

REF 

1 

05,2213 

LMREND06 

EQUALS 

LMCSTA06 

0260 

REF 

2 

LAST 

162 

05,2265 

74320 

0 

LMREND07- 

•1DN  ADR 

A IG 

0261 

REF 

3 

LAST 

162 

05,2266 

03461 

1 

1DNADR 

AGG 

026  2 

REF 

3 

LAST 

152 

05,2267 

03752 

1 

1DNADR 

T ANGNB 

0263 

REF 

4 

LAST 

211 

05,2270 

03753 

0 

1DNADR 

TANGNB  + 

0264 

REF 

2 

LAST 

153 

05,2271 

C 3 7 60 

0 

1DNADR 

R ANGRDOT 

0265 

REF 

3 

LAST 

211 

05,2272 

03761 

,1 

1DNADR 

R ANGR  DOT 

0266 

REF 

1 

05,2273 

01073 

1 

1DNADR 

AGSCODE 

0267 

REF 

2 

LAST 

152 

05,2274 

74023 

0 

■ 1DN ADR 

MKT  I ME 

0268 

REF 

9 

LAST 

2 1 C 

05,2275 

24340 

0 

LMREND08 

6DNADR 

DNTMBUFF 

0269 

REF 

10 

LAST 

211 

05,2276 

77423 

1 

1DNADR 

DNTMBUFF 

0269  1 

REF 

2 

LAST 

209 

05,2144 

LMREND10 

EQUALS 

LMORBIO 

R0270  

R0271  ***  UNREFERENCED  LOCATIONS  USED  IN  LIST  3 

A0272  LOCATION 


R0273 

*** 

UPCATE  THIS  LIST 

WHEN  ANY 

CHANGES  ARE  MADE 

TO 

DOWNLINK  LISTS 

0274 

REF 

3 

LAST 

209 

1356 

DL301 

_ 

DUMLOOPS 

0275 

REF 

4 

LAST 

209 

0025 

DL302 

= 

T I ME  1 

0276 

REF 

4 

LAST 

209 

E6, 1516 

DL303 

= 

NEGTORKU 

0277 

REF 

4 

LAST 

209 

E6, 1517 

DL304 

= 

POSTORKV 

0278 

REF 

3 

LAST 

209 

E6 , 1520 

DL305 

= 

NEGTORKV 

0279 

REF 

3 

LAST 

209 

1037 

0L306 

= 

P IPAX 

0280 

REF 

3 

LAST 

209 

0040 

0 L 3 0 7 

= 

P IPAY 

0281 

REF 

2 

LAST 

209 

0041 

DL308 

= 

P IPAZ 

0282 

REF 

3 

LAST 

209 

0113 

DL309 

= 

LAST  X CMD 

0283 

REF 

3 

LAST 

209 

1327 

DL310 

= 

CSMMASS 

0284 

REF 

18 

LAST 

209 

1 300 

DL31  1 

= 

I MODE  S3  3 

0285 

REF 

1 

E7 , 1460 

DL312 

= 

A MG 

0286 

REF 

4 

LAST 

162 

E7 , 1462 

DL313 

= 

TRKMKCNT 

0287 

REF 

4 

LAST 

209 

1331 

DL314 

= 

DNRRDGT 

+ 1 


+ 120 


: 1 1 MAR.  19,1971  LEMGNAID.156 

USER1 S PAGE  NO.  8 

COMMON  DOWNL 1ST  DATA 

COMMON  DOWNL I ST  DATA 

COMMON  DOWNL 1ST  DATA 

AIG.AMG  SNAPSHOT 

AOG, TRKMKCNT 

T ANGN  R » + 1 

TANGNB+1 , GARBAGE 

R ANGR  DOT  , +1 

RANGERDOT  +1,  GARBAGE 

AGSCODE, GARBAGE 

MK  T I M E » + 1 

SEND  SNAPSHOT 

SFND  SNAPSHOT 

COMMON  DATA 


LIST  NAME 


RENDEZVU 


PAGE  211 
EO  S4 


LMREND07 


GAP:  ASS  EMBL E RFVISIUN  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 

L DOWNLINK  LISTS 


P0288 

LM  1 

DESCENT  AND 

ASCENT  DOWNLIST 

R0289 

LIST 

~ LUNI  MJL 

0290 

05,2277 

OESC/ASC 

EQUALS 

0291 

REF 

4 

LAST 

210 

05,2277 

01363 

0 

1DNADR 

ALMCADR 

0294 

REF 

i 

05,2300 

32347 

0 

DNPTR 

L MDSAS08 

0295 

REF 

1 1 

LAST 

211 

05,2301 

10340 

1 

3DNADR 

DNTMBUFF 

0296 

RfcF 

i 

05, 2302 

32340 

1 

DNPTR 

LMDSAS07 

029  7 

REF 

12 

LAST 

212 

05,2303 

24340 

0 

6DNADR 

DNTMBUFF 

0298 

REF 

3 

LAST 

208 

05,2304 

01341 

0 

1DNADR 

TEVENT 

0299 

REF 

2 

LAST 

14  1 

05,2305 

13251 

0 

3DNADR 

UNFC/2 

0300 

REF 

2 

LAST 

160 

05,2306 

13645 

l 

3DNADR 

VGVECT 

0301 

RFF 

2 

LAST 

156 

05,2307 

03642 

1 

IDNADR 

TTF/8 

0302 

REF 

2 

LAST 

210 

05,2310 

0CCO7 

0 

1DNADR 

SPARE 

0303 

REF 

3 

LAST 

208 

05,2311 

12C20 

0 

3DNADR 

RLS 

0304 

REF 

2 

LAST 

124 

05,2312 

02267 

0 

IDNADR 

ZDC1TD 

0305 

REF 

1 

05,2313 

32213 

0 

DNPTR 

LMDSAS09 

0306 

REF 

1 

05,2314 

32  116 

0 

DNPTR 

LMDSAS02 

030  7 

REF 

5 

LAST 

210 

05,2315 

00024 

1 

IDNADR 

T IME2 

0308 

REF 

l 

05, 2316 

32  125 

0 

DNPTR 

LMDSAS03 

0309 

REF 

13 

LAST 

212 

05,2317 

24340 

0 

6DNADR 

DNTMBUFF 

0310 

REF 

l 

05,2320 

32134 

0 

DNPTR 

LMDSAS04 

031  l 

REF 

5 

LAST 

210 

05,2321 

07115 

0 

2DNADR 

POSTORKU 

0312 

REF 

2 

LAST 

127 

05,2322 

12623 

0 

3DNADR 

RGU 

0313 

REF 

2 

LAST 

156 

05,2323 

13626 

1 

3DNADR 

VGU 

0314 

REF 

2 

LAST 

156 

05,2324 

13634 

1 

3DNADR 

LAND 

0315 

REF 

2 

LAST 

123 

05,2325 

02253 

1 

IDNADR 

AT 

0316 

REF 

1 

05,2326 

02026 

1 

IDNADR 

T LAND 

031  7 

REF 

2 

LAST 

154 

05,2327 

03507 

0 

IDNADR 

DVTOTAL 

0318 

REF 

6 

LAST 

210 

05,2330 

00112 

0 

IDNADR 

LASTYCMO 

0319 

REF 

5 

LAST 

210 

05,233  1 

01326 

1 

IDNADR 

LEMMASS 

0320 

REF 

36 

LAST 

210 

05,2332 

01277 

l 

IDNADR 

I MODE  S30 

032  1 

REF 

4 

LAST 

210 

05,2333 

03441 

0 

IDNADR 

T IG 

0322 

REF 

1 

05,2334 

32  140 

0 

1 

[DNPTR 

LMDSAS05 

0323 

REF 

1 

05,2335 

32151 

0 

Idnptr 

LMDSAS06 

0324 

REF 

2 

LAST 

156 

05,2336 

03614 

l 

IDNADR 

P SEUD055 

0325 

REF 

2 

LAST 

164 

05,2337 

74324 

1 

• IDNADR 

TTOGO 

R0326 

o Uu  L.  1 j 1 j 

0 32  7 

RFF 

4 

LAST 

210 

05,2116 

LMDSAS02 

EQUALS 

LM0RBM02 

0328 

REF 

4 

LAST 

210 

05,2125 

LMDSAS03 

EQUALS 

L MDRBM03 

0329 

REF 

4 

LAST 

21  l 

05,2134 

LM0SAS04 

EQUALS 

LM0RBM04 

0330 

REF 

2 

LAST 

205 

05,2140 

LMDSAS05 

EQUALS 

LM0RBM05 

033  l 

REF 

2 

LAST 

205 

05,2151 

LMDSAS06 

EQUALS 

L MORBM06 
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SEND  ID  BY  SPFCIAL  CODING 

ALMCADR, +1 

COLLECT  SNAPSHOT 

SNED  SNAPSHOT 

COLLECT  SNAPSHOT 

SEND  SNAPSHOT 

T EVEN T , + 1 

UNFC/2+0.. .+5 

VGVECT+O . . . +5 

TTF/8  , + l 

RLS+O.  ..+5 
ZDOTD , + 1 
COMMON  DATA 
COMMON  DATA 
TIME2/  1 

COLLECT  SNAPSHOT 
SEND  SNAPSHOT 
COMMON  DATA 

POSTORKU.NEGTORKU .POSTORK V, NFGTORK V 

RGU+O . . . +5 

VGU+O ... +5 

L AND+O . . . + 5 

AT  , + l 

TLANO.+l 

DVTOT  AL , + 1 

LASTYCMD.LASTXCMD 

LFMMASStCSMMASS 

IMODES30,IMODES33 

TIG.  + 1 

COMMON  DATA 

COMMON  DATA 

PSEU0055 .GARBAGE 

TTOGO , + 1 


COMMON  DOWNLIST  DATA 
COMMON  DOWNLIST  DATA 
COMMON  DOWNLIST  DATA 
COMMON  DOWNLIST  DATA 
COMMON  DOWNLIST  DATA 


GAP: 


ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 


L 

DCWNL  INK 

LISTS 

0332 

REF 

1 

0 5,2  3A0 

7 A 00  1 

,0 

LMDS AS07-1DNADR 

HMEASDL 

0333 

REF 

2 

LAST 

157 

05.23A1 

03652 

0 

1DNADR 

VMEAS 

033  A 

REF 

3 

LAST 

211 

05.23A2 

03A57 

1 

ION  ADR 

A IG 

0335 

REF 

A 

LAST 

21  1 

05.23A3 

03A61 

l 

1DNADR 

AOG 

0336 

REF 

3 

LAST 

162 

05.23AA 

03732 

1 

1DNADR 

L ATVMETR 

033  7 

REF 

5 

LAST 

210 

C5.23A5 

01355 

0 

1DNADR 

SERVDURN 

0338 

KEF 

3 

LAST 

211 

05,2  3A6 

7A023 

0 

-1DNADR 

MKT  I ME 

0339 

REF 

2 

LAST 

157 

05.23A7 

7A1  13 

l 

LM0SAS08— 1DNADR 

DELTAH 

0339  1 

REF 

2 

LAST 

156 

05,2350 

03615 

0 

1DNADR 

FC 

03392 

REF 

l 

05,2351 

03752 

l 

1DNADR 

GTCTIME 

03A0 

REF 

1 

05,2352 

7A0A1 

1 

- 1DN ADR 

TRUDELH 

03A  1 
R03A2 

REF 

2 

LAST 

211 

05,2213 

LM0SAS09  EQUALS 

LMCSTA06 

R03A3 

*** 

UNREFERENCED  LOCATIONS  USED  IN  LIST 

A 

R03AA 

UPDATE  THIS 

LIST 

WHFN  ANY 

CHANGES 

ARE  MADE  TO  DOWNLINK  LISTS 

A03A5 

LOCATION 

03A  6 

REF 

5 

LAST 

21  1 

0025 

DLA01 

= 

T I ME  1 

03A  7 

REF 

5 

LAST 

211 

E6, 1516 

DLA02 

= 

NEGTORKU 

03A8 

REF 

5 

LAST 

211 

E6, 1517 

DLA03 

- 

POSTORKV 

03A  9 

REF 

A 

LAST 

211 

E6, 1520 

DLAOA 

= 

NEGTORKV 

0350 

REF 

A 

LAST 

2 1 1 

0113 

DLA05 

= 

LAST  XCMD 

035  1 

REF 

A 

LAST 

211 

1327 

DLA06 

= 

CSMMASS 

0352 

REF 

19 

LAST 

211 

1300 

DLA07 

= 

I MODE  S33 

0353 

REF 

2 

LAST 

21  1 

F7, 1 A60 

DLA08 

= 

AMG 

035  A 

REF 

1 

E 7, 1 A62 

DLA09 

= 

VSELECT 

0355 

REF 

2 

LAST 

158 

E 7 , 1733 

DLA10 

= 

FORVMETR 

0356 

REF 

A 

LAST 

211 

1356 

DLA1  1 

= 

DUMLOOPS 
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HMEASDL ,+l 
VMEAS.+l 
A I G, AMG 
AOG.VSELECT 
LATVMETR .FORVMETP 
S E RVOURN , DU ML  OOPS 
MKT  I ME , + l 

DELTAH.+l 
FC,  + 1 

GTCTIME.+l 
TR  UOE  LH , + 1 

COMMON  DOWNL 1ST  DATA 


LIST  NAME 
OESC/ASC 


PAGE  213 
EO  SA 


LMDSAS07 


GAP 


ASStMBL  E RFVISION  210  HP  A GC  PROGRAM  LUMINARY  9Y  NASA  20211  12-161 


L DOWNLINK  LISTS 

P0357  LM  LUNAR  SURFACE  ALIGN  DOWNLIST 


R0358  CONTROL  LIST 


0359 

05,2353 

SURFAL IN 

EQUALS 

0360 

REF 

1 

05,2353 

32107 

0 

DNPTR 

LMLSAL01 

0361 

REF 

14 

LAST 

212 

05,2354 

24340 

0 

6DNADR 

DNTMBUFF 

0362 

REF 

l 

05,2355 

32407 

0 

DNPTR 

L MLSAL07 

0363 

REF 

15 

LAST 

214 

05,2356 

14340 

0 

4DNADR 

DNTMBUFF 

0364 

REF 

3 

LAST 

20  8 

05,2357 

02774 

1 

1DNADR 

TALIGN 

0365 

REF 

4 

LAST 

208 

05,2360 

25731 

0 

6DNADR 

REFSMMAT 

0366 

REF 

3 

LAST 

161 

05,2361 

26227 

1 

6DNADR 

YNBSAV 

0367 

REF 

2 

LAST 

208 

05,2362 

Cl  700 

l 

1 DN  ADR 

X 789 

0368 

REF 

4 

LAST 

210 

05,2363 

01516 

1 

1DNADR 

TET 

0369 

REF 

7 

LAST 

212 

05,2364 

00112 

0 

ION ADR 

L AST  YCMD 

0370 

REF 

1 

05,2365 

32116 

0 

DNPTR 

LMLSAL02 

0371 

REF 

6 

LAST 

2 12 

05,2366 

00024 

1 

1DNADR 

T I ME  2 

0372 

REF 

1 

05,2367 

32125 

0 

DNPTR 

LMLSAL03 

0373 

REF 

16 

LAST 

214 

05,2370 

24340 

0 

6DNADR 

DNTMBUFF 

0374 

REF 

1 

05,2371 

32134 

0 

DNPTR 

LMLSAL04 

0375 

REF 

1 

05,2372 

32215 

0 

DNPTR 

LMLSAL08 

0376 

REF 

4 

LAST 

123 

05,2373 

12221 

0 

3DN ADR 

GSAV 

037  7 

REF 

2 

LAST 

208 

05,2374 

03371 

l 

1DN ADR 

AGSK 

0378 

REF 

8 

LAST 

214 

05,2375 

00112 

0 

1 DN  ADR 

lastycmd 

0379 

REF 

6 

LAST 

212 

05,2376 

01326 

1 

1 DN ADR 

LEMMASS 

0380 

REF 

37 

LAST 

212 

05,2377 

01277 

1 

1DNADR 

I MODE  S30 

038  l 

REF 

5 

LAST 

212 

05,2400 

03441 

0 

1DNADR 

TIG 

0385 

REF 

L 

05,2401 

32207 

0 

DNPTR 

LMSAL05 

0386 

REF 

7 

LAST 

20  8 

05,2402 

01235 

1 

1DNADR 

AOTCODE 

038  7 

REF 

L 

05,2403 

32145 

0 

DNPTR 

LMLSAL09 

0388 

REF 

1 

05,2404 

32151 

0 

DNPTR 

L MLSAL06 

0389 

RFF 

2 

LAST 

15  1 

05,2405 

03561 

0 

1DNADR 

T SIGHT 

0390 

REF 

3 

LAST 

16  1 

05,2406 

76537 

1 

- 1UNADR 

CURSOR 

R039  l 

o U IJ  L 1 o 1 j 

0392 

REF 

4 

LAST 

210 

05,2107 

LMLSAL01 

EQUALS 

L MORBMO l 

0393 

REF 

5 

LAST 

212 

05,2116 

LMLSAL02 

EQUALS 

LM0RBM02 

039  4 

REF 

5 

LAST 

212 

05,2125 

LMLSAL03 

EQUALS 

L M0RBM03 

0395 

REF 

5 

LAST 

212 

05,2134 

LMLSAL04 

EQUALS 

L MORBM04 

0396 

REF 

3 

LAST 

211 

05,2207 

L MSA  L 05 

EQUALS 

LMCSTA05 

0397 

REF 

3 

LAST 

212 

05,2151 

LMLSAL06 

EQUALS 

LM0RBM06 

0398 

REF 

4 

LAST 

213 

05,2407 

74320 

0 

LMLSAL07- 

•1DN  AOR 

A IG 

0398  1 

REF 

5 

LAST 

213 

05,2410 

03461 

1 

ION ADR 

AOG 

03982 

REF 

5 

LAST 

21  1 

05,2411 

03752 

l 

1DNADR 

TANGN8 

17:11  MAR.  19,1071  LEM0NAID.156  PAGE  214 


USER' S PAGE  NO.  11  EO  S4 


SFND  ID  BY  SPECIAL  CODING 

COLLECT  SNAPSHOT 

SEND  SNAPSHOT 

COLLECT  SNAPSHOT 

SEND  SNAPSHOT 

TALIGN.+l 

REFSMMAT+O. ..+11D 

YN8SAV+0 . . .+5 , ZNBSAV+O. . . *5 

X 7 89 , + 1 

TET.+l 

LASTYCMD.L ASTXCMD 
COMMON  DATA 
TIME/  l 

COLLECT  SNAPSHOT 
SFND  SNAPSHOT 
COMMON  DATA 
COMMON  DATA 
GSAV+O. . .*5 
AGSK , +1 

LASTYCMDjLASTXCMD 
LEMMASS,CSMMASS 
I MODE  S30 , 1 M00ES3  3 
T I G,  + 1 
COMMON  DATA 
AOTCODE, GARBAGE 
COMMON  OATA 
COMMON  DATA 
TS  IGHT.TSIGHT  +1 
AOT  CURSOR ,SP IRAL 


COMMON 

DOWN!  I ST 

DATA 

COMMON 

DOWNLIST 

DATA 

COMMON 

DOWNLI ST 

DATA 

COMMON 

DOWNLIST 

DATA 

COMMON 

DOWNLIST 

DATA 

COMMON 

DOWNL I ST 

DATA 

SNAPSHOT 


aig.amg 

AOG , T R KMKC  NT 
TANGNB.+l 


GAP: 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L DOWNLINK  LISTS 


03983 

03984 

REF 

REF 

4 LAST 
4 LAST 

213 

211 

05,2412  03754  1 

C5.2413  74017  1 

1DNADR 

1DNADR 

MKT  I ME 
R ANGRDOT 

0399 

0400 
R0401 
R0402 
R0403 

REF 

REF 

2 LAST 
1 

208 

05,2215 

05,2145 

LMLSAL08 

LMLSAL09 

EQUALS 

EQUALS 

LMCSTA07 
L M0RBM09 

*** 

UNREFERENCED  LOCATIONS  USED  IN  LIST  5 
UPCATE  THIS  LIST  WHEN  ANY  CHANGES  ARE  MADE  TO 

DOWNLINK  LISTS 

A0404 

0405 

0406 

REF 

REF 

1 

5 

LAST 

213 

E4 , 1635 
0 113 

DL  50  1 
DL502 

= 

LOCATION 

ZNBSAV 
L ASTXCMD 

0407 

REF 

6 

LAST 

213 

0025 

DL503 

= 

T I ME  1 

040  8 

REF 

6 

LAST 

215 

0113 

DL504 

= 

L ASTXCMD 

040  9 

REF 

5 

LAST 

213 

1327 

DL505 

= 

C SMMASS 

0410 

REF 

20 

LAST 

213 

1300 

DL506 

= 

I MODE  S33 

041  1 

REF 

4 

LAST 

207 

E6 , 1422 

DL507 

= 

QMEGAQ 

0412 

RFF 

3 

LAST 

207 

E6, 1423 

DL508 

= 

OMEGAR 

0413 

REF 

4 

LAST 

207 

E6 , 1635 

DL509 

= 

CDUYD 

0414 

REF 

3 

LAST 

207 

E6 , 163,6 

DL510 

= 

CDUZD 

0415 

REF 

4 

LAST 

207 

0033 

DL51  l 

= 

CDUY 

0416 

REF 

7 

LAST 

207 

0034 

DL512 

1 

CDUZ 

041  7 

REF 

4 

LAST 

207 

0035 

DL513 

= 

CDUT  — 

0418 

REF 

2 

LAST 

207 

E6 , 1425 

DL514 

= 

ALPHAk 

0419 

REF 

2 

LAST 

108 

1241 

DL515 

= 

SPIRAL 

04191 

*REF 

3 

LAST 

213 

E 7 , 1460 

DL516 

= 

AMG 

041  92 

*REF 

5 

LAST 

211 

E7 , 1462 

DL517 

= 

TRKMKCNT 

04193 

*REF 

5 

LAST 

211 

1331 

DL  51  8 

= 

DNRRDOT 

17:11  MAR.  19,1971  LEM0NAID.156 

USER'S  PAGE  NO.  12 

MKT IM  E , + l 

DN RP  ANGE  , DNRP- DOT 

COMMON  DOWN L I ST  DATA 
COMMON  DOWN! 1ST  DATA 


LIST  NAMF 
SURFAL IN 


PAGE  215 
EO  S4 


LMSAL07 


GAP:  ASSfcMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  202L112-16L 


L DOWNLINK  LISTS 


P0420 

LM  . 

AGS 

INITIALIZATION  AND  UPDATE  DOWNLIST 

R042  1 

LIST 

042  2 

05,2414 

AGSI /UPD 

EQUALS 

042  3 

REF 

2 

LAST 

122 

05,2414 

12  171 

0 

3DNADR 

AGSBUFF  +0 

042  4 

REF 

3 

LAST 

216 

05,2415 

02205 

1 

1DNADR 

AGSBUFF  +120 

042  5 

REF 

4 

LAST 

216 

05,2416 

12172 

0 

3DNADR 

AGSBUFF  +1 

042  6 

REF 

5 

LAST 

216 

05,2417 

C2206 

1 

1DNADR 

AGSBUFF  + l 3D 

042  7 

REF 

6 

LAST 

216 

05,2420 

12177 

0 

3DNADR 

AGSBUFF  +6 

042  8 

REF 

7 

LAST 

216 

05,2421 

02205 

1 

1DNADR 

AGSBUFF  +12D 

0429 

REF 

8 

l AST 

216 

05,2422 

12200 

0 

3DNADR 

AGSBUFF  +7 

0430 

REF 

9 

LAST 

216 

05,2423 

02206 

1 

1DNADR 

AGSBUFF  + 1 3D 

0431 

REF 

3 

LAST 

161 

05,2424 

25167 

0 

6DNADR 

COMPNUMB 

A0432 

0433 

REF 

2 

LAST 

107 

05,2425 

25203 

l 

6DNADR 

UPBUFF  +80 

0434 

RFF 

1 

05,2426 

32116 

0 

ONPTR 

LMAGS 102 

0435 

REF 

7 

LAST 

214 

05,2427 

00024 

1 

1DNADR 

T I ME  2 

0436 

RFF 

1 

05,2430. 

32125 

0 

DNPTR 

LMAGS 103 

043  7 

REF 

17 

LAST 

214 

( >,2431 

24340 

0 

6DNADR 

DNTMBUFF 

043  B 

REF 

1 

05,2432 

32  L 34 

0 

DNPTR 

LMAGS 104 

043  9 

REF 

6 

LAST 

212 

05,2433 

C 7 1 1 5 

0 

2DNA0R 

POSTORKU 

044  0 

REF 

6 

LAST 

213 

05,2434 

01355 

0 

1DNADR 

SERVLHJRN  ‘ 

044  1 

RFF 

5 

LAST 

212 

05,2435 

C 1363 

0 

1DNADR 

ALMCAOR 

044  2 

REF 

3 

LAST 

214 

05,2436 

033  71 

1 

1DNA0R 

AGSK 

044  3 

RFF 

3 

LAST 

216 

05,2437 

25  173 

0 

6DNADR 

UPBUFF 

044  4 

KEF 

4 

LAST 

216 

05,2440 

15207 

0 

4DNADR 

UPBUFF  +L2D 

0445 

RFF 

7 

LAST 

214 

05,2441 

01326 

1 

10NAOR 

LEMMASS 

044  6 

REF 

38 

LAST 

214 

05,2442 

01277 

l 

1DNADR 

I MODE  S30 

044  7 

REF 

3 

LAST 

212 

05,2443 

00007 

0 

1DNA0R 

SPARE 

044  8 

REF 

1 

05,2444 

32  140 

0 

DNPTR 

L MAG S 10 5 

0449 

REF 

20 

LAST 

208 

05,2445 

52755 

1 

•6DN  ADR 

OSPTAB 

R0450 

u U Li  L 1 j 1 j 

045  l 

REF 

6 

LAST 

214 

05,2116 

LMAGS 102 

EQUALS 

L M0RBM02 

0452 

REF 

6 

LAST 

214 

05,2125 

L MAG  S 1 03 

EQUALS 

LM0RBM03 

045  3 

REF 

6 

LAST 

214 

05,2134 

LMAGS I 04 

EQUALS 

L MORBM04 

0454 

REF 

3 

LAST 

212 

05,2140 

LMAGS 105 

EQUALS 

LM0RBM05 

R0456 

*** 

UNREFERENCED  LCCAI IONS  USFC 

i IN  LIST 

6 

R045  7 

*** 

UPCATE  THIS  LIST 

WHEN  ANY  CHANGES 

ARE  MADE  TO 

: DOWNLINK  LISTS. 

A0458 

LOCATION 
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SEND  ID  BY  SPECIAL  CODING 

AGS8UFF+0. . .+5 

AGSRUFF+12D, GARBAGE 

AGS8UFF+ 1 . . .+6 

AGSBUFF+ 130, GARB AGE 

AG  SBUFF+6 • . . + 11 

AGSBOFF+12, GARBAGE 

AGSBUFF+7. . .+120 

AGSBUFF+13D, GARBAGE 

COMPNUMB ,UPOLDMOD,UPVERB, UPCOUNT, 

UPBUFF+O . . .+7 

UPBUFF  +8D...+19D 

COMMON  DATA 

TIME2/1 

COLLECT  SNAPSHOT 
SFND  SNAPSHOT 
COMMON  DATA 

PUSTORKUjNEGTORKU .POSTORK  V, NEGTORKV 
SERVOURN .OUMLOOPS 
ALMCADR, +1 
AGSK , +1 

UPBUFF+O ... +1 10 
UPBUFF  + 1 2D . . . +19D 
L E MMA  SS.CSMMASS 
IM0DFS3P, I MOD E S 3 3 

COMMON  DATA 
DSPTAB+O.. .+110 


COMMON  OOWNLIST  OATA 
COMMON  OOWNLIST  DATA 
COMMON  DOWNLIST  DATA 
COMMON  DOWNLIST  DATA 


LIST  NAME 


GAP:  ASSEMBLE  REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L DOWNLINK  LISTS 


0459 

REF 

3 

LAST 

161 

1170 

DL60  1 

= 

UPOLDMOD 

046  0 

REF 

3 

LAST 

161 

1171 

DL602 

= 

UPVERB 

046  1 

REF 

3 

LAST 

161 

1172 

DL603 

= 

UPCOUNT 

046  2 

REF 

5 

LAST 

216 

1173 

DL604 

= 

UPBUFF 

046  3 

REF 

7 

LAST 

215 

0025 

DL605 

= 

T IME  1 

0464 

REF 

6 

LAST 

213 

E6, 1516 

DL606 

= 

NEGTORKU 

0465 

REF 

6 

LAST 

213 

E6, 1 517 

0L607 

= 

PDSTORKV 

0466 

REF 

5 

LAST 

213 

E6 , 1 520 

DL608 

= 

NEGTORK V 

0467 

REF 

5 

LAST 

213 

1356 

DL609 

= 

DUMLOOPS 

0468 

REF 

6 

LAST 

215 

132  7 

DL610 

= 

CSMMASS 

0469 

R0470 

REF 

21 

LAST 

215 

1300 

DL61 1 

= 

I MODES33 

0471 

REF 

2 

LAST 

204 

05,2446 

02  153 

1 

DNTABLE 

GENADR 

COSTALIN 

047  2 

REF 

3 

LAST 

204 

05,2447 

02414 

1 

GENADR 

AGSI/UPD 

0473 

REF 

1 

05,2450 

02221 

1 

GENADR 

RENDEZVU 

0474 

RFF 

1 

05,245  1 

02046 

1 

GENADR 

QRBMANU V 

0475 

REF 

1 

05,2452 

02277 

1 

GENADR 

DESC/ASC 

0476 
R047  7 

REF 

1 

05,2453 

02353 

0 

GENADR 

SURFALIN 

17: ll  MAR.  19,1971 
USER' S PAGE 
AGSI/UPD 


LEMONAID. 156 
NO.  14 


PAGE 
EO  S4 
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LM  CUAST  AND  ALIGN  DOWNLIST 
LM  AGS  INITIALIZATIDN/UPDATF  DOWNLIST 
LM  RENDEZVOUS  AND  PRETHRUST  DOWNLIST 
LM  ORBITAL  MANEUVERS  DOWNLIST 
LM  DESCENT  AND  ASCENT  DOWNLIST 
LM  LUNAR  SURFACE  ALIGN  DOWNLIST 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAB  LUMINARY  BY  NASA  2021112-161 

L AGS  INITIALIZATION 


R0001 

PROGR  AM 

NAME 

R0002 

WRITTEN 

BY 

R0003 

MOD  NO. 

ROOOA 

CATE 

R0005 

MOD  BY 

R0006 

MOD  NO. 

R0007 

CATE 

R0008 

MOD  BY 

AGS  INITIALIZATION  (RA7) 
RHOOt  / KILROY  / FOLLFTT 
0 

23  MARCH  1967 
KILROY 

1 

28  OCTOBER  1967 
FOLLETT 
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R0009  FUNCT.  DESC.: 
ROOl  1 


(1)  TO  PROVIDE  THE  AGS  ABORT  ELECTRONICS  ASS EMR L Y I AE A ) WITH  THE  LEM  AND  CSM  STATE  VECTORS 
( POSIT  ION, VELOCI TY,T IME)  IN  LEM  IMU  COORDINATES  BY  MEANS  OF  THE  LGC  DIGITAL  DOWNLINK. 


ROOl  3 
ROOl  5 
ROOl  9 
R 002  1 


(2)  TO  ZERO  THE  ICDU,  LGC  AND  AE A GIMBAL  ANGLE  COUNTFRS  SIMULTANEOUSLY  IN  ORDER  TO  ESTABLISH  A 
COMMON  ZERO  REFERENCE  FUR  THE  MEASUREMENT  OF  G I MB A l ( F UL ER ) ANGLES  WHICH  DEFINE  LEM  ATTITUDE 

(3)  TO  ESTABLISH  THE  GROUND  ELAPSED  TIME  OF  AFA  CLOCK  ZERO. (IF  AN  AEA  CLOCK  ZFRO  IS 
REQUESTED  DURING  THIS  PROGRAM 


R0022  LOG  SECTION 


AGS  INITIALIZATION 


R0023  CALLING  SEQ 
R002  A 

R0026  SUBROUTINES 
R0027  CALLED 

R0028  NORMAL  EXIT 


PROGRAM  IS  ENTERED  WHEN  ASTRONAUT  KEYS  VA7E  ON  DSKY. 

R A 7 MAY  BE  CALLED  AT  ANY  TIME  EXCEPT  WHEN  ANOTHER  EXTENDED  VERB  IS  IN  PROGRFSS 


FNDEXT 


R0029  ALARM/ABORT 
R0030 


ALARM  - BAD  REFSMMAT  - C0DE:220 

OPERATOR  ERROR  IF  V A 7 SELECTED  DURING  ANOTHER  EXTENDED  VERB. 


R003?  ERASAHLES 


R0033 

USED 

SAMPT IME 

(2) 

TIME  OF 

: ENTER : KEYSTROKE 

R003A 

AGSK 

(2) 

GROUND  ELAPSED  TIME  OF 

THE  AEA  CLOCK  : 

: ZERO: 

R 003  6 

AGSBUFF  ( 1 AD ) 

CONTAINS 

AGS  INITIALIZATION  DATA  (SEE 

.'OUTPUT 

: BELOW) 

R 003  8 

AGSWCRD 

( 1) 

PREVIOUS 

DOW NL  1ST  SAVEO 

HERE 

0039 

REF 

A 

LAST 

216 

E6, 1 771 

EB ANK= 

AGSK 

OOAO 

AO, 2000 

BANK 

AO 

OOA  1 

REF 

1 

32,2000 

SETLOC 

RA7 

00A2 

32,2005 

BANK 

OOA  3 

REF 

1 

COUNT  * 

FS/RA7 

OOA  A 

REF 

I 

32, 2005 

3 

A 7 30  1 

AGSINIT  CAF 

REFSMBI T 

OOA  5 

REF 

1 

32,2006 

7 

0C77  0 

MASK 

FLAGWRD3 

CHECK 

RFFSMFLG 

OOA  6 

REE 

37 

LAST 

202 

32,2007 

1C 

1 000  0 

CCS 

A 

OOA  7 

REF 

1 

32,2010 

0 

2017  0 

TC 

REDSPTEM 

REFSMMAT  IS  OK 

GAP: 
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L AGS  INITIALIZATION 


004  8 

REF 

8 

LAST 

196 

32,2011 

0 5571 

1 

TC 

ALARM 

0049 

32,2012 

0C220 

1 

OCT 

220 

0050 

REF 

1 

32,2013 

0 5474 

0 

TC 

ENDEXT 

006  1 

32,2014 

0 0006 

1 

NEWAGS 

EXTEND 

0062 

REF 

I 

32,2015 

3 0014 

1 

OCA 

SAMPT IME 

0063 

REF 

5 

LAST 

2 L 8 

32,2016 

53' 772 

0 

DXCH 

AGSK 

0064 

32,2017 

0 0CO6 

1 

REDSPTEM 

EXTEND 

0065 

REF 

6 

LAST 

219 

32,2020 

3 1772 

1 

DC  A 

AGSK 

0066 

REF 

2 

LAST 

105 

32,2021 

53 • 051 

0 

DXCH 

DSPTEMX 

006  7 

REF 

1 

32,2022 

3 2166 

l 

AGSDI SPK 

CAF 

V06N16 

006  8 

REF 

1 

32,2023 

0 4607 

1 

TC 

BANKCALL 

0069 

REF 

1 

32,2024 

20323 

1 

CADR 

GOMARKF 

0070 

REF 

2 

LAST 

219 

32,2025 

0 5474 

0 

TC 

ENDEXT 

0071 

REF 

1 

32,2026 

0 2 C 36 

0 

TC 

AGSVCALC 

0071  l 

REF 

21 

LAST 

190 

32,2027 

4 4737 

1 

CS 

BIT6 

00712 

REF 

12 

LAST 

100 

32,2030 

6 Cl  54 

1 

AD 

M P AC 

00713 

32,2031 

0 C006 

1 

EXTFND 

00714 

REF 

1 

32,2032 

1 2014 

1 

BZF 

NEWAGS 

0072 

32,2033' 

0 0006 

1 

EXTEND 

0073 

REF 

3 

LAST 

219 

32,2034 

3 1C  51 

1 

DC  A 

DSPTEMX 

0074 

REF 

2 

LAST 

218 

32,2035 

0 2016 

1 

TC 

REDSPTEM  -1 

A007  5 

0076 

REF 

1 

32,2036 

0 6060 

1 

AGSVCALC 

TC 

INTPRET 

0077 

32,2037 

77414 

0 

SET 

EXIT 

007  8 

REF 

1 

32,2040 

02076 

1 

XDSPF  LAG 

0079 

REF 

2 

LAST 

219 

32,2041 

3 2166 

1 

CAF 

V06N16 

00795 

REF 

2 

LAST 

219 

32, 2042 

0 4607 

l 

TC 

BANKCALL 

00796 

REF 

1 

32,2043 

20632 

1 

CADR 

EXOSPRET 

0082 

REF 

2 

LAST 

219 

32,2044 

0 6060 

1 

TC 

INTPRET 

0083 

32,2045 

77634 

0 

RTB 

0084 

REF 

1 

32,2046 

21603 

1 

LOADTIME 

0085 

REF 

1 

32,2047 

34041 

0 

STCALL 

T DEC  1 

0086 

REF 

2 

LAST 

38 

32, 2050 

27115 

1 

LEMPREC 

008  7 

32,2051 

77624 

1 

CALL 

0088 

REF 

1 

32,2052 

64126 

0 

SCALEVEC 

0089 

REF 

10 

LAST 

216 

32,2053 

16  172 

1 

STOOL 

AGSBUFF 

009  ( 

REF 

1 

32,2054 

00015 

0 

TAT 

0091 

REF 

2 

LAST 

219 

32,2055 

34041 

0 

'STCALL 

T DEC  1 

0092 

REF 

2 

LAST 

38 

32,2056 

27  101 

1 

CSMPREC 

0093 

32,2057 

77624 

1 

CALL 

009  4 

REF 

2 

LAST 

219 

32,2060 

64  126 

0 

SCALEVEC 

0095 

REF 

1 1 

LAST 

219 

32,2061 

16200 

1 

STOOL 

AGSBUFF  +6 

0096 

REF 

2 

LAST 

219 

32,2062 

0CC15 

0 

TAT 

0097 

32,2063 

56225 

1 

DSU 

DO  V 
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TIME  OF  THE  : ENTER : KEYSTROKE 
BECOMES  NEW  AEA  CLOCK  :ZERO: 


R 1 = OOXXX.  HRS.,  R2  = OOOXX  MIN., 
R3  = OXX.XX  SFC. 

TERMINATE  RETURN 
PROCEED  RETURN 
IS  ENTER  VIA  A V32 


YES,  USE  KEYSTROKE  TIME  FOR  NEW  AGSK 

NO,  NEW  AGSK  LOADED  VTA  V25 
LOADED  INTO  DSPTFMX  BY  KEYING 
V25E  FOLLOWED  BY  HR S . , M I N S . , S EC S . 
DISPLAY  THE  NEW  K 


EXTRAPOLATE  LEM  AND  C SM  STATE  VECTORS 
TO  THE  PRESENT  TIME 
LOAD  MP AC  WITH  T I ME2, T IMF  1 
CALCULATE  LEM  STATE  VECTOR 

CALL  ROUTINE  TO  CONVERT  TO  SM  COORDS  AND 
PROVIDE  PROPFR  SCALING 

(LEMPREC  AND  CSMPREC  LEAVE  TDEC1  IN  TAT) 
TAT  = TIME  TO  WHICH  PATTI  AND  V AT T 1 ARE 
COMPUTED (CSEC  SINCE  CLOCK  START  R-2R). 
CALCULATE  CSM  STATE  VECTOR  FOR  SAME  TIME 


CALCULATE  AND  STORE  THE  TIMF 


GAP:  ASSEMBLE  REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L AGS  INITIALIZATION 


0098 

REF 

7 

LAST 

219 

32 , 206 A 

03372 

1 

AGSK 

0099 

REF 

I 

32,2065 

2 A 1 7 1 

0 

T SCALE 

0100 

REF 

12 

LAST 

219 

32,2066 

02206 

1 

STORE 

AGSBUFF 

0101 

32,2067 

77  776 

l 

EXIT 

0102 

REF 

1 

32,2070 

3 A 7 AA 

1 

CAE 

LAGSLIST 

010  3 

REF 

3 

LAST 

162 

32,2071 

54  333 

0 

TS 

DNLSTCOD 

0 10  A 

REF 

l 

32,2072 

3 2172 

1 

CAE 

20SEC 

0105 

REF 

3 

LAST 

219 

32,2073 

0 4607 

1 

TC 

B ANKCALL 

0106 

REF 

1 

32.207A 

0 1736 

1 

CADR 

OELAY JOB 

0107 

REF 

1 

32,2075 

3 1321 

0 

CA 

AGSWORD 

0106 

REF 

A 

LAST 

220 

32,2076 

54  333 

0 

TS 

DNLSTCOD 

0109 

REF 

3 

LAST 

176 

32, 2077 

3 4735 

1 

CAF 

IMUSERIT 

0110 

REF 

6 

LAST 

196 

32,2100 

7 0074 

0 

MASK 

FLAGWRDO 

0111 

REF 

38 

LAST 

218 

32,2101 

10  000 

0 

CCS 

A 

0112 

REF 

1 

32,2 102 

0 2120 

0 

TC 

AGSEND 

0112  1 

REF 

1 

32,2103 

1 1 ' 301 

0 

CKST  ALL 

CCS 

IMUCAOR 

01122 

32 , 2 10 A 

1 2 107 

1 

TCF 

+ 3 

01123 

32,2  105 

1 2113 

1 

TCF 

F6 

0 1 1 2 A 

32,2106 

1 2107 

1 

TCF 

+ 1 

01125 

REF 

l 

32, 2107 

3 4' 3 54 

1 

+ 3 

CAF 

TEN 

01126 

REF 

A 

LAST 

220 

32,2110 

0 4607 

1 

TC 

BANKCALL 

0112  7 

REF 

2 

LAST 

220 

32,2111 

0 1 736 

1 

CADR 

0 E LAY  JOB 

01128 

REF 

1 

32,2112 

l 2103 

0 

TCF 

CKSTALL 

0113 

REF 

5 

LAST 

220 

32,2113 

0 4607 

1 

+ 6 

TC 

BANKCALL 

Oil  A 

REF 

1 

32,2 11A 

16701 

0 

CADR 

IMUZERO 

0115 

REF 

6 

LAST 

220 

32, 2115 

0 4607 

1 

TC 

BANKCALL 

0 l L 6 

REF 

1 

32,2  1 16 

1 7 735 

0 

CADR 

IMUSTALL 

0117 

REF 

2 

LAST 

220 

32,2117 

0 2120 

0 

TC 

AGSEND 

0120 

REF 

l 

32,2120 

3 2167 

0 

AGSEND 

CAF 

V50N16 

012  1 

REF 

7 

LAST 

220 

32,2121 

0 4607 

1 

TC 

BANKCALL 

012  1 1 

REF 

1 

32,2  122 

20334 

1 

CADR 

G0MARK3 

01212 

REF 

3 

LAST 

2 19 

32, 2123 

l 54  74 

1 

TCF 

ENDEXT 

01213 

REF 

A 

LAST 

220 

32, 212A 

l 5474 

1 

TCF 

ENDEXT 

0122 

REF 

5 

LAST 

220 

32,2125 

0 5474 

0 

TC 

ENDtXT 

0127 

32,2126 

64375 

1 

SCALEVEC 

VLOAD 

MXV 

0128 

REF 

1 

32,2127 

00025 

0 

VATT  1 

0129 

REF 

5 

LAST 

2 1 A 

32,2130 

01732 

0 

REFSMMAT 

0130 

32,2131 

72561 

0 

VX  SC 

V SL2 

0131 

REF 

l 

32,2132 

24  176 

1 

VSCALE'- 

013  1 l 

32,2133 

53255 

0 

VAD 

VAD 

01312 

REF 

1 

32,2134 

24200 

0 

AGSRND1 

013  13 

REF 

1 

32,2135 

24206 

0 

AGSRND2 

0131  A 

32,2136 

77634 

0 

RTB 

01315 

REF 

1 

32,2137 

21770 

1 

V ECSGNAG 

0132 

REF 

2 

LAST 

220 

32,2140 

24025 

0 

STOVL 

V ATT  1 
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120 


DELAY  FOR  20  SEC  WHILE  THE  AGS 
DOWNLIST  IS  TRANSMITTED 


RETURN  TO  THE  OLD  DOWNLIST 

CHECK  IMUSE  FLAG. 

IMU  IS  BEING  USED  - DO  NOT  ZFPO 
CHECK  FOR  IMU  USAGE  WHICH  AVOIDS  THF 
IMUSE  BIT:  I.E.t  IMU  COMPENSATION. 

FREE.  GO  AHEAD  WITH  THE  IMU  ZERO. 

WAIT  .1  SEC  AND  TRY  AGAIN. 


IMU  I S NOT  IN  USE 

SET  IMU  ZFRO  DISCRETE  FOR  320MSECS 
WAIT  3SEC  FOR  COUNTERS  TO  INCREMENT 


THIS  SECTION  ROUNDS  THE  VECTOR,  AND 
CORRECTS  FOR  THE  FACT  THAT  THE  AGS 
IS  A 2 s COMPLIMENT  MACHINE  WHILE  THF 
LGC  IS  A I S COMPLIMENT  MACHINE. 


GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-1  61 

L AGS  INITIAL IZAT ION 


013  3 

REF 

1 

32 

,2141 

0134 

32 

,2142 

0135 

REF 

6 

LAST 

220 

32 

,2  143 

0136 

REF 

1 

32 

,2144 

0137 

32 

,2145 

01371 

REF 

2 

LAST 

220 

32 

,2146 

01372 

32 

,2  147 

01373 

REF 

2 

LAST 

220 

32 

,2150 

01374 

REE 

2 

LAST 

220 

32 

,2151 

01375 

32, 

,2152 

0138 

REF 

3 

LAST 

220 

32, 

,2153 

0139 

32, 

,2  154 

0140 

REF 

13 

LAST 

219 

32, 

,2155 

0141 

REF 

4 

LAST 

22  1 

32, 

,2156 

0142 

32, 

,2157 

0143 

REF 

14 

LAST 

221 

32, 

,2160 

0144 

REF 

5 

LAST 

221 

32, 

,2161 

0145 

32, 

,2162 

0146 

REE 

15 

LAST 

221 

32, 

,2163 

0147 

REF 

6 

LAST 

194 

4744 

0148 

32, 

,2164 

01485 

32, 

i 2165 

0149 

REF 

1 

6010 

01495 

32, 

2166 

0149  6 

REF 

1 

4233 

01497 

32, 

216  7 

0150 

32, 

2170 

0150 

32, 

2171 

0151 

32, 

2 172 

0152 

32, 

2173 

0152 

32, 

2174 

0153 

32, 

2175 

0153 

32, 

2176 

0153  1 

32, 

2177 

0153  1 

32, 

2 2*00 

01532 

32, 

2201 

01532 

32, 

2202 

01533 

32, 

2203 

0153  3 

32, 

2204 

01534 

32, 

2205 

01534 

32, 

2206 

01535 

32, 

2207 

01535 

32, 

2210 

01536 

32  , 

i 221 1 

01536 

32, 

2212 

0154 

REF 

1 

30, 

2000 

00017 

1 

R ATT  1 

74321 

1 

MX  V 

VXSC 

01732 

0 

REFSMMAT 

24174 

0 

RSCALE 

532  12 

0 

VSL  8 

VAD 

24200 

0 

AGSRND1 

47055 

1 

VAD 

RTB 

24206 

0 

AGSRND2 

21770 

1 

V ECSGNAG 

77750 

0 

LXA  , 1 

OC024 

1 

V ATT  1 

72  130 

0 

SXA  , 1 

LXA  , 1 

CO  1 55 

0 

MPAC  +1 

00026 

0 

V ATT  1 +2 

72130 

0 

SX  A , 1 

LXA,  1 

00160 

0 

MPAC  +4 

00030 

1 

V ATT  1 +4 

43530 

0 

SXA  , 1 

RVQ 

00  162 

1 

MPAC  +6 

LAGSL 1ST 

= 

ONE 

0C216 

1 

V C IN  1 4 

VN 

0114 

14  400 

0 

V50N00A 

VN 

5000 

V00N25 

EQUALS 

0CT31 

01420 

0 

V06N16 

VN 

0616 

V00N34 

EQUALS 

34DEC 

14420 

1 

V 5 ON  1 6 

VN 

5016 

03100 

0 

TSCALE 

2DEC 

1008-10 

00000 

1 

C3720 

1 

20SEC 

DEC 

2000 

15077 

0 

RSCALE 

2DEC 

3.280839  B-3 

05041 

1 

24402 

1 

VSCALE 

2DEC 

3.280839  E 2 B- 

25724 

1 

cocoo 

1 

AGSRND1 

2QCT 

0000060000 

60000 

1 

00000 

1 

20CT 

0000060000 

60000 

1 

ooooo 

1 

20CT 

0000060000 

60  COO 

1 

OOOOO 

1 

AGSRND2 

20CT 

0000037777 

3 77  77 

1 

OOOOO 

1 

20CT 

0000037777 

37777 

1 

OOOOO 

1 

20CT 

0000037777 

37777 

1 

SB A NK=  LOWSUPER 
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AGAIN  THIS  SECTION  ROUNDS.  TWO  VECTORS 
ARE  ADDED  TO  DEFEAT  ALSIGNAG  IN  THE 
CASE  OF  A HIGH-ORDER  ZERO  COUPLED  WITH 
A LOW  ORDER  NEGATIVE  PART. 


CSEC  TO  SEC  SCALE  FACTOR  1 

METERS  TO  FEET  SCALE  FACTOR 
9 METERS/CS  TO  FEET/SEC  SCALE  FACTOR 


FOR  SUBSEQUENT  LOW  2CADRS 


GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L FRESH  START  ANO  RESTART 


P00793 

0075 

10,2000 

0076 

REF 

2 

LAST 

95 

05,2000 

0077 

05,2959 

0070 

REF 

3 

LAST 

169 

E3, 1900 

00  79 

REF 

2 

LAST 

95  TO 

95: 

0080 

05,2959 

008  1 

REF 

1 

C5, 2955 

0082 

REF 

I 

05,2956 

0083 

REF 

29 

LAST 

189 

05,2957 

0089 

REF 

1 

05,2960 

0085 

05,2961 

0086 

05,2962 

0087 

REF 

21 

LAST 

216 

05,2963 

0087  l 

REF 

1 

05,2969 

00872 

REF 

18 

LAST 

191 

05,2965 

0088 

REF 

22 

LAST 

222 

05,2966 

009  3 

REF 

7 

LAST 

202 

05,2967 

0093  1 

REF 

2 

LAST 

112 

05,2970 

009315 

REE 

2 

LAST 

207 

05,2971 

0 09  2 

REF 

3 

LAST 

222 

05,2972 

009325 

REF 

9 

LAST 

222 

05,2973 

00933 

REF 

3 

LAST 

205 

05,2979 

009333 

05,2975 

009339 

REF 

1 

05,2976 

009335 

REF 

1 

05,2977 

00939 

REF 

9 

LAST 

170 

05,2500 

0099 

REF 

25 

LAST 

222 

05, 2501 

0095 

05,2502 

0096 

REF 

7 

LAST 

190 

05,2503 

0097 

REE 

8 

LAST 

222 

05,2509 

0098 

REE 

1 

05,2505 

0101 

REF 

2 

LAST 

189 

05,2506 

0102 

REF 

1 

05,2507 

0103 

REE 

9 

L A S 1 

222 

05, 2510 

0109 

REE 

3 

LAST 

108 

05,2511 

0105 

REF 

1 

05,2512 

H 

REF 

1 

05,2513 

0107 

REF 

8 

LAST 

208 

05,2519 

0108 

REF 

6 

LAST 

209 

05,2515 

BANK  10 

SET  L CC  FRANDRES 

BANK 

EBANK=  L ST  1 


1 

COUNTY 

S S/ST  ART 

0 0009 

0 

SLAP  l 

INH 1 NT 

0 3107 

l 

TC 

STARTSUB 

l 2963 

0 

STAR  TSW 

TCF 

SKIPSIM 

3 9727 

1 

STARTSIM 

CAF 

8 I T 1 9 

0 5 C 76 

0 

TC 

F INDVAC 

77  777 

0 

S I M2  C ADR 

OCT 

77777 

777  77 

0 

OCT 

77777 

3 1035 

0 

SKIPS  IM 

CA 

DSPTAB  +1 

7 9762 

1 

MASK 

BITS9S6 

6 9726 

0 

AD 

B I T 1 5 

55 '035 

1 

TS 

DSPTAB  +1 

3 9 796 

0 

CA 

ZERO 

55 '365 

1 

TS 

ERCOUNT 

59  375 

1 

TS 

FA  ILREG 

59  3 76 

1 

TS 

FAILREG  + 

59  377 

0 

TS 

FA  ILREG  + 

59  320 

1 

TS 

REDOCTR 

0 0C06 

1 

EXTENO 

01  077 

0 

WR  ITE 

C HAN  77 

9 9635 

1 

cs 

PRI012 

5 5 • 3 1 0 

0 

TS 

DSRUPTSW 

3 9727 

1 

DOFSTART 

CAF 

BIT19 

0 0006 

1 

EXTEND 

01  Oil 

0 

WR  I TE 

D SALMOUT 

9 9 796 

1 

CS 

ZERO 

59  055 

0 

TS 

THRUST 

3 9 396 

1 

D0FSTRT1 

CA 

P R 1 030 

55*269 

l 

TS 

RESTREG 

3 9 796 

0 

CA 

ZERO 

55' 295 

1 

TS 

ABDELV 

59  370 

1 

TS 

NVSAVE 

5 5 ' 0 7 1 

1 

TS 

EBANKTEM 

55' 257 

1 

TS 

CH5MASK 

55*260 

0 

TS 

CH6MASK 
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FRESH  AND  RESTART 

FRESH  STAPT.  COMES  HERE  FROM  PINBALL. 
SUBROUTINE  OOFS  MOST  OF  THE  WORK. 

PATCH. ...TCF  STARTSIM. . .FOR  SIMULATION 


PATCH  2CA0R  (AND  EBANK  DESIGNATION)  OF 
SIMULATION  START  ADDRESS. 


D 

TURN  OFF  ALL  DSP T AB  +110  LAMPS 
EXCEPT  THE  GIMBAL  LOCK  £ NO  ATT  ONLY  ON 
D REQUESTED  FRESH  START. 


ZERO  CHANNEL  77 


INSURE  FNGINE  IS  OFF. 


SUPER  BANK  PRIORITY  FOR  DISPLAYS. 


DAP  INITIALIZATION 


GAP: 


ASSEMBLE  REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY 


L FRESH  START  AND  RESTART 


0109 

REF 

7 

LAST 

203 

05,2516 

55*273 

1 

0110 

REF 

2 

LAST 

112 

05,2517 

5 5 ' 360 

1 

Oil  1 

REF 

2 

LAST 

112 

05,2520 

55' 362 

0 

0112 

REF 

5 

LAST 

220 

05,2521 

54  333 

0 

0113 

REF 

2 

LAST 

220 

05,2522 

55 • 321 

1 

0114 

REF 

3 

LAST 

115 

05,2523 

55' 501 

0 

0115 

05,2524 

0 0006 

1 

0116 

REF 

1 

05,2525 

01  005 

0 

0117 

05,2526 

0 0006 

1 

0118 

REF 

l 

05,2527 

01  C 0 6 

0 

0119 

05,2530 

0 0006 

1 

0120 

REF 

14 

LAST 

198 

05,2531 

01  012 

0 

012  1 

05,2532 

0 0006 

1 

0122 

REF 

l 

05,2533 

01  013 

1 

0123 

05,2534 

0 C 006 

1 

0124 

REF 

3 

LAST 

185 

05,2535 

01  014 

0 

0125 

REF 

23 

LAST 

222 

05,2536 

4 1035 

1 

0126 

REF 

2 

LAST 

222 

05,2537 

7 4762 

1 

012  7 

REF 

39 

LAST 

220 

05,2540 

10  000 

0 

0128 

05,2541 

0 2545 

1 

0129 

RFF 

3 

LAST 

223 

05, 2542- 

3 4762 

0 

0130 

OS, 2543 

0 0006 

1 

013  1 

REF 

15 

LAST 

223 

05,2  544 

05  012 

1 

0132 

REF 

1 

05,2545 

0 2645 

1 

013  3 

REF 

10 

LAST 

222 

05,2546 

4 4746 

1 

0134 

REF 

1 

05,2547 

55*010 

0 

0135 

REF 

1 

05,2550 

3 3377 

1 

0136 

REF 

39 

LAST 

216 

05,2551 

55 ' 2 77 

0 

0137 

REF 

1 

05,2552 

3 3067 

0 

0138 

REF 

2 

LAST 

1 1 l 

05,2553 

55*343 

0 

0139 

REF 

1 

05,2554 

3 4742 

1 

0140 

REF 

1 

05,2555 

55 ' 322 

1 

0141 

REF 

1 

05,2556 

3 3064 

0 

0142 

REF 

3 

LAST 

20  7 

05,2557 

54  111 

1 

0143 

REF 

1 

05,2560 

3 5006 

l 

0144 

REF 

1 

05,2561 

54  003 

0 

014  5 

REF 

1 

E6, 1400 

0145  1 

REF 

1 

05,2562 

3 3062 

0 

01452 

REF 

1 

05,2563 

55 ' 444 

0 

01453 

REF 

l 

05,2564 

3 3063 

1 

01454 

REF 

2 

LAST 

135 

05,2565 

55' 476 

1 

0146 

REF 

1 

05,2566 

3 2000 

0 

014  7 

REF 

2 

LAST 

223 

05,2567 

55*400 

0 

0148 

REF 

1 

05,2570 

4 4775 

1 

0149 

REF 

1 

05,2571 

55 ' 403 

0 

0150 

REF 

1 

05,2572 

5 5 ' 406 

0 
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TS 

PVALVEST 

FOR  RCS  FAILURE  MONITOR 

TS 

ERESTORE 

*****  MUST  Not  BE  REMOVED  FROM  DOFSTART 

TS 

SMODE 

*****  MUST  mot  flE  REMOVED  FROM  DOFSTART 

TS 

DNLSTCOD 

SELECT  POO  DOWNL 1ST 

TS 

AGSWGRD 

ALLOW  AGS  INITIALIZATION 

TS 

EXTEND 

UPSVFLAG 

ZERO  UPDATE  STATE  VECTOR  REQUEST  FLAGWRD 

HR  ITE 
EXTEND 

C HAN  5 

TURN  OFF  RCS  JETS. 

WRITE 

EXTEND 

CHAN6 

TURN  OFF  RCS  JETS. 

WRITE 

EXTEND 

CHAN12 

WRITE 

EXTEND 

CHAN  13 

WRITE 

CHAN  1 4 

CS 

DSPTAB  +11D 

MASK 

B ITS486 

CCS 

A 

TC 

+4 

CA 

B ITS486 

EXTEND 

THE  IMU  WAS  IN  COARSE  ALIGN  IN  GIMBAL 

WOR 

CHAN  1 2 

LOCK,  SO  PUT  IT  BACK  INTO  COARSE  ALIGN. 

TC 

MR.KLEAN 

CS 

ZERO 

TS 

MODREG 

CAF 

IM30INIF 

FRESH  START  IMU  INITIALIZATION. 

TS 

I MODE  S30 

CAF 

MAXDB 

TS 

DB 

CAF 

FOUR 

TS 

RATEINDX 

INITIALIZE  K ALCMANU  RATE 

CA 

BOOLSTRT 

TS 

0 AP  BOOLS 

CAF 

EBANK6 

TS 

E BANK 

EBANK= 

H I ASCENT 

CA 

STIKSTRT 

TS 

STIKSENS 

CA 

R ATESTRT 

TS 

-RATEDB 

CAF 

FULL  APS 

INITIALIZE  MAXIMUM  ASCENT  MASS  FOR  USF 

TS 

H I A SCENT 

BY  1ZACCS  UNTIL  THE  PAD  LOAD  IS  DONE. 

CS 

L0W9 

LOAD  DAP  FILTER  GAINS  (PAD  LOAD) 

TS 

DKTRAP 

TO  BEST  PRESENT  ESTIMATE  OF  GOODIES 

TS 

LMTRAP 

. 14  DEG 

GAP 
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1 

05,2573 

0152 

REF 

1 

05,2574 

0153 

REF 

1 

05,2575 

0154 

REF 

11 
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223 

05,2576 

0155 

REF 

l 

05,2577 

0156 

KEF 

2 

LAST 

220 

05, 2600 

0157 

REF 

1 

05,2601 

0158 

REF 

17 

LAST 

202 

05, 2602 

0159 

REF 

1 

05,2603 

0160 

REF 

1 

05,2604 

0161 

REF 

22 

LAST 

219 

05,2605 

0162 

REF 

22 

LAST 

217 

05, 2606 

0163 

05,2607 

0164 

REF 

1 

05,2610 

0165 

REF 

18 

LAST 

206 

05,2611 

0166 

REF 

2 

LAST 

224 

05,2612 

0167 

REF 

19 

LAST 

224 

05,2613 

0168 

REF 

2 

LAST 

218 

05,2614 

01665 

REF 

l 

05,2615 

0169 

REF 

20 

LAST 

224 

05, 2616 

0170 

REF 

3 

LAST 

224 

05,2617 

0171 

REF 

21 

LAST 

224 

05,2620 

0172 

05,2621 

0173 

REF 

4 

LAST 

224 

05,2622 

0174 

REF 

22 

LAST 

224 

05,2623 

0175 

05,2624 

0176 

REF 

5 

LAST 

224 

05,2625 

0177 

REF 

23 

LAST 

224 

05,2626 

0178 

REF 

1 

05,2627 

0181 

REF 

24 

LAST 

224 

05,2630 

0182 

REF 

6 

LAST 

224 

05,2631 

0183 

REF 

25 

LAST 

224 

05,2632 

0184 

REF 

7 

LAST 

224 

05,2633 

0185 

REF 

26 

LAST 

224 

05,2634 

0186 

REF 

1 

05,2635 

0187 

REE 

27 

LAST 

224 

05,2636 

0188 

REF 

8 

LAST 

224 

05,2637 

0189 

REF 

28 

LAST 

224 

05,2640 

0190 

REF 

9 

LAST 

224 

05,2641 

019  1 

REF 

29 

LAST 

224 

05,2642 

0192 

REF 

2 

LAST 

175 

05,2643 

0193 

REF 

1 

05,2644 

0194 

05,2645 

0195 

05,2646 

0196 

REF 

2 LAST  167 

05,2647 

0197 

REF 

1 

05,2650 

1 

CA 

600EC 

0 

TS 

DKKAOSN 

1 

TS 

LMKAOSN 

0 

CA 

ZERO 

1 

TS 

L MOM EGAN 

1 

CA 

TEN 

1 

TS 

DKOMEGAN 

1 

CAF 

B IT8 

0 

TS 

DKDB 

1 

CAF 

IM33INIT 

0 

AD 

B IT6 

1 

TS 

I MODE  S33 

1 

EXTEND 

1 

DC  A 

S W I N I T 

1 

DXCH 

STATE 

0 

CA 

SWINIT  +2 

1 

TS 

STATE  +2 

1 

CA 

REFSMBIT 

0 

AD 

N0P07BI T 

0 

MASK 

STATF  +3 

0 

AD 

SWINIT  +3 

0 

TS 

STATE  +3 

1 

FXT  END 

1 

DC  A 

SWINIT  +4 

0 

DXCH 

STATE  +4 

1 

EXTEND 

0 

DC  A 

SWINIT  +6 

1 

DXCH 

STATE  + 6 

0 

CA 

OCT6200 

0 

MASK 

STATE  + 3D 

1 

AD 

SWINIT  +80 

0 

TS 

STATE  +8D 

0 

CA 

SWINIT  +9D 

1 

TS 

STATE  +9D 

1 

CA 

APSFLBI T 

1 

MASK 

STATE  +10D 

1 

AD 

SWINIT  +10D 

1 

TS 

STATE  +10D 

1 

CAF 

SWINIT  +1  ID 

0 

TS 

STATE  + 1 1 D 

1 

ENDRSTRT  TC 

POSTJUMP 

0 

CADR 

DUMMYJOB  + 2 

0 

MR.KLEAN  INHINT 

1 

EXTEND 

0 

OCA 

NEGO 

0 

DXCH 

-PHASE2 

3 3065 

55 ' 405 

5 5 1 4 1 0 

3 4746 

55*407 

3 4 3 54 

55 ' 404 

3 4735 

55*411 

3 5017 

6 4737 

55*300 

0 0C06 

3 3404 

52  075 

3 3405 

54  076 

3 4730 

6 4732 

7 CC77 

6 -3406 

54  077 

0 0006 

3 3410 

52  101 

0 0006 

3 3412 

52  103 

3 3061 

7 0104 

6 3413 

54  104 

3 3414 

54  105 

3 4730 

7 0106 

6 3415 

54  106 

3 3416 

54  107 

0 4626 

03212 

0 0004 

0 0006 

3 4746 

52  754 
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6 SEC  GAIN 
UNITY  GAIN 

FOR  ALPHA 

1 SEC  GAIN 
SET  DOCKED 
WITH  PAD 

FOR  OMEGA 

DB  TO  1.4  DEG.  MAY  OVERWRITE 
LOAD. 

KEEP  BOTH  DAP  AMD  FRR OR-N EEOL F S DISPLAY 
OFF  UNTIL  I CDU  ZERO  IS  FINISHED. 

INITIALIZE  SWITCHES  ONLY  ON  FRESH  START 

DO  NOT  ALTER  REFSMFLG  ON  FRESH  START. 
NODOP07 


C MOON  F LG , LMOONFLG,  SURFFLAG 

DO  NOT  ALTER  APSFLAG  ON  FRFSH  START. 


NOW  IN  ANOTHER  BANK 
PICKS  UP  AT  RELINT. 


(OONT  ZERO  NEWJOB ) 


GAP: 

L 

0198 

0199 

0200 

0201 

0202 

0203 

020  A 

0205 

0206 

0207 

0208 

0209 

0210 

021  1 

0212 

0213 


LEMONA ID . 156  PAGE 
NO.  A E6  S3 


05,2651 

0 0006 

1 

POOKL E AN 

EXTEND 

REF 

3 

LAST 

22A 

05, 2652 

3 A7A6 

0 

DC A NEGO 

REF 

1 

05,2653 

52  760 

1 

DXCH  -PHASEA 

C 5 , 265A 

0 0006 

1 

V37KLEAN 

EXTEND 

REF 

A 

LAST 

225 

05,2655 

3 A 7A6 

0 

DC A NEGO 

REF 

1 

05,2656 

52  762 

0 

DXCH  -PHASE5 

05,2657 

0 0006 

1 

ABTKLEAN 

EXTEND 

REF 

5 

LAST 

225 

05,2660 

3 A 7 A6 

0 

DC A NEGO 

REF 

1 

05,2661 

52  756 

1 

DXCH  -PHASE3 

05,2662 

0 0006 

1 

EXTEND 

REF 

6 

LAST 

225 

C 5 , 2 663 

3 A 7A6 

0 

DC A NEGO 

REF 

1 

0 5,2  66A 

52  752 

0 

DXCH  -PHASE1 

05,2665 

0 0C06 

1 

EXTEND 

REF 

7 

LAST 

225 

05,2666 

3 A 7A6 

0 

OCA  NEGO 

REF 

1 

05,2667 

52  7 6A 

0 

DXCH  -PHASE6 

REF 

1A 

LAST 

20  3 

05,2670 

0 0002 

0 

TC  Q 
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L FRESH  START  AND  RESTART  USER'S  PAGE  NO.  5 E6  S3 


P021  A 

COMES 

HERE 

FROM  LOCATION  AOOO, 

GO JAM . RESTART 

ANY  PROGRAMS 

WHICH  MAY  HAVE  BEEN  RUNNING  AT  THE  TIME 

0215 

REF 

A 

LAST 

222 

E3 , IAOO 

EBANK= 

LST1 

0217 

REF 

A 

LAST 

222 

05,2671 

2 A 320 

0 

GOPROG  INCR 

REDOCTR 

ADVANCE  RESTART  COUNTER. 

0218 

REF 

15 

LAST 

225 

05,2672 

22  002 

0 

LXCH 

Q 

0219 

05,2673 

0 0006 

1 

EXTEND 

0220 

REF 

1 

C 5 , 26  7A 

CA  007 

1 

ROR 

SUPERBNK 

0221 

REF 

2 

LAST 

206 

f 5,2675 

53 ' A33 

0 

DXCIH 

RS8BQ 

0222 

REF 

2 A 

LAST 

223 

05,2676 

3 1035 

0 

CA 

DSPTAB  +L1D 

0223 

REF 

17 

LAST 

181 

05,2677 

7 A 7A  1 

0 

MASK 

BITA 

022  A 

05,2700 

0 0006 

1 

EXTEND 

0225 

05,2701 

1 2 70  5 

0 

BZF 

+ A 

0226 

REF 

23 

LAST 

22  A 

05,2702 

6 A 73  7 

0 

AD 

R IT6 

SET  ERROR  COUNTER  ENABLE 

022  7 

C5.2703 

0 0006 

1 

EXTEND 

0228 

REF 

16 

LAST 

223 

05.270A 

05  012 

1 

WOR 

CHAN12 

ISS  WAS  IN  COARS  ALIGN  SO  GO  BACK  TO 

022  9 

REF 

1 

05,2705 

0 3070 

0 

BUTTONS  TC 

L IGHTSET 

R0230 

ERASCHK  TEMPORARILY  STORES 

THE  CONTENTS  OF  TWO  ERASABLE  LOCATIONS,  X 

R0232 

AND  X+l  INTO 

SKEEP5  AND  SKEEP6.  IT  ALSO  STORES  X INTO  SKEEP7  AND 

R023A 

ERESTORE.  IF 

ERASCHK  IS  INTERRUPTED  BY  A RESTART,  C ( ERE  STORE ) SHOULD 

R0236 

EQUAL  CISKEEP7) ,ANO  BE  A + 

NUMBER  LESS  THAN  2000  OCT.  OTHERWISE 

R0238 

C( ERESTORE)  SHOULD  EQUAL  +0. 

0239 

REF 

2 

LAST 

167 

05,2706 

3 A3A1 

0 

CAF 

H I 5 

02A0 

REF 

3 

LAST 

223 

05,2707 

7 1360 

1 

MASK 

ERESTORE 

02A  1 

C5, 2710 

0 0006 

1 

EXTEND 

0 2A2 

05,2711 

1 2713 

l 

8ZF 

+ 2 

IF  ERESTORE  NOT  = -t-0  OR  +N  LESS  THAN  2K 

02A  3 

REF 

l 

05,2712 

1 3105 

1 

TCF 

NONAVKE Y +3 

DO  FRESH  START  - E MEMORY  MIGHT  BE  RAD 

02AA 

REF 

A 

LAST 

226 

05,2713 

A 1360 

1 

CS 

ERESTORE 

02A5 

05.271A 

0 0006 

1 

FXTEND 

02A6 

REF 

1 

05,2715 

l 2732 

1 

BZF 

DORSTART 

= +0  CONTINUE  WITH  RE  ST APT. 

02A  7 

REF 

1 

05,2716 

fc  1377 

0 

AD 

SKEEP7 

02A  8 

05,2717 

0 0006 

1 

EXTEND 

02A9 

05,2720 

1 2722 

0 

BZF 

+ 2 

= SKFEP7,  RESTORE  E MEMORY. 

0250 

REF 

2 

LAST 

226 

05,2721 

1 3105 

1 

TCF 

NONAVKE  Y +3 

DO  FRESH  START  - E MEMORY  MIGHT  BE  BAD 

025  1 

REF 

2 

LAST 

113 

05,2722 

3 137A 

0 

CA 

SKEEPA 

0252 

REF 

2 

LAST 

223 

05,2  723 

5A  003 

0 

TS 

EBANK 

EBANK  OF  E MEMORY  THAT  WAS  UNDER  TEST. 

0253 

05 , 2 72  A 

0 0006 

1 

EXTEND 

(NOT  DXCH  SINCE  THIS  MIGHT  HAPPEN  AGAIN 

025  A 

REF 

2 

LAST 

113 

05,2725 

3 1376 

I 

DC  A 

SKEEP5 

0255 

REF 

2 

LAST 

226 

05,2726 

51 • 377 

0 

INDEX 

SKEEP7 

0256 

05,2727 

52  001 

1 

DXCH 

0000 

E MEMORY  RESTORED. 

0257 

REF 

12 

LAST 

22A 

05,2730 

3 A7A6 

0 

CA 

ZERO 

0258 

REF 

5 

LAST 

226 

05,2731 

55*360 

1 

TS 

ERESTORE 

0259 

REF 

2 

LAST 

222 

05,2732 

0 3107 

1 

OORSTART  TC 

STARTSUB 

DO  INITIALIZATION  AFTER  ERASE  RFSTORE. 

0271 

REF 

1 

05,2733 

A A 727 

0 

SETINFL  CS 

I NTFLBI T 

0272 

REF 

5 

LAST 

192 

0 5,2  73A 

7 0106 

1 

MASK 

FLGWRD10 

0273 

REF 

6 

LAST 

226 

05,2735 

5 A 106 

l 

TS 

FLGWRD10 

GAP: 

L 

0274 

0275 

0276 

0277 

0278 

0279 

0280 

0281 

0262 

0283 

0284 

0288 

0286 

0287 

0288 

0289 

0290 

029  1 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0 30  4 

0305 

030  6 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

031  7 

0318 
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FRESH  S 

TART  AND  RESTART 

REF 

1 

05,2736 

3 

3401 

REF 

25 

LAST 

226 

05,2737 

7 

1035 

REF 

19 

LAST 

222 

05,2740 

6 

4726 

REF 

26 

LAST 

227 

05,2741 

57 ' 035 

REF 

1 

05,2742 

3 

3365 

REF 

40 

LAST 

223 

05,2743 

7 

1277 

REF 

1 

05,2744 

6 

3400 

REF 

41 

LAST 

227 

05,2745 

55 '277 

REF 

3 

LAST 

223 

05,2746 

3 

1321 

REF 

6 

LAST 

223 

05,2747 

54  333 

REF 

18 

LAST 

226 

05,2750 

3 

4741 

05, 2751 

0 

0006 

REF 

4 

LAST 

223 

05,2752 

05 

i 014 

REF 

5 

LAST 

197 

05,2753 

4 

0101 

REF 

2 

LAST 

184 

05,2754 

7 

4736 

REF 

40 

LAST 

223 

05,2755 

1C 

1 000 

05,2756 

1 

2763 

REF 

17 

LAST 

178 

05, 2757 

3 

4730 

05,2760 

0 

0006 

REF 

8 

LAST 

222 

05,2761 

05 

■ Oil 

REF 

1 

05,2  762 

1 

2777 

REF 

26 

LAST 

222 

05,2763 

3 

4727 

05,2764 

0 

0006 

REF 

9 

LAST 

227 

05,2765 

05 

Oil 

REF 

2 

LAST 

227 

05,2766 

1 

2777 

05,2767 

0 

0004 

REF 

1 

05,2770 

0 

3 116 

REF 

1 

05,2771 

1 

2773 

REF 

1 

05,2772 

0 

3 156 

REF 

2 

LAST 

226 

05,2773 

0 

3070 

REF 

2 

LAST 

226 

05,2774 

4 

4727 

REF 

7 

LAST 

226 

05,2775 

7 

0106 

REF 

8 

LAST 

227 

05,2776 

54 

106 

REF 

1 

05,2777 

3 

4747 

REF 

16 

LAST 

221 

05,3000 

d4 

161 

05,3001 

6 

0000 

05,3002 

0 

0006 

REF 

41 

LAST 

227 

05, 3003 

5 

0000 

REF 

2 

LAST 

225 

05,3004 

3 

0752 

05,3005 

0 

0006 

REF 

7 

LAST 

193 

05,3006 

06 

001 

REF 

42 

LAST 

227 

05,3007 

10 

000 

REF 

1 

05,3010 

1 

3 056 

REF 

2 

LAST 

227 

05,3011 

1 

3056 

REF 

3 

LAST 

227 

C5, 3012 

l 

3055 

1 

CA 

9,6,4 

1 

MASK 

DSPTA8  +1  ID 

0 

AD 

B IT1  5 

0 

XCH 

DSPTAB  +110 

1 

CAF 

I FAI  L INH 

0 

MASK 

I MODE  S30 

0 

AD 

I M30INIR 

0 

TS 

I MODE  S30 

0 

CA 

AGSWORD 

0 

TS 

DNLSTCOD 

1 

CA 

BIT4 

1 

EXTEND 

1 

WOR 

CHAN  14 

0 

CS 

FLAGWRD5 

0 

MASK 

ENGONBIT 

0 

CCS 

A 

0 

TCF 

+ 5 

1 

CAF 

BIT13 

1 

EXTEND 

1 

WOR 

OSALMOUT 

0 

TCF 

GOPROG3 

1 

+ 5 

CAF 

BIT14 

1 

EXTEND 

1 

WOR 

D SALMOUT 

0 

TCF 

G0PR0G3 

0 

ENEMA 

INHINT 

1 

TC 

STAR  T SB  1 

1 

TCF 

G0PR0G2 A 

0 

GOPROG2 

TC 

STARTSB2 

0 

G0PRDG2 A 

TC 

L I GHT  SET 

0 

CS 

INTFLBIT 

1 

MASK 

FLGWRDIO 

1 

IS 

FLGWRD10 

1 

G0PR0G3 

CAF 

NUMGRPS 

0 

PCLOOP 

TS 

MPAC  +5 

1 

DOUBLE 

1 

EXTEND 

1 

INDEX 

A 

1 

DC  A 

-PHASE1 

1 

EXTEND 

0 

RXOR 

LCHAN 

0 

CCS 

A 

0 

TCF 

PTBAD 

0 

TCF 

PTBAD 

0 

TCF 

PTBAD 

USER'S  PAGE  NO.  6 E3  S3 

LEAVE  PROG  ALARM, GIMBAL  LOCK,  NO  ATT 
LAMPS  INTACT  ON  HARDWARE  RESTART 

LEAVE  IMU  FAILURE  INHIBITS  INTACT  ON 
HARDWARE  RESTART.  RESET  ALL  FAILURE 
COOES . 

RE  SURE  OF  CORRECT  DOWNLIST 

TURN  ON  THROTTLE  COUNTER 
TURN  ON  THRUST  DRIVE 


TURN  ENGINE  ON 
TURN  ENGINE  OFF. 


CLEAR  INTEGR  IN  PROGRESS  BIT 
VERIFY  PHASE  TABLE  AGREEMENTS 

COMPLEMENT  INTO  A,  DIRECT  INTO  L. 
RESULT  MUST  BF  -0  FOR  AGREEMENT. 
RESTART  FAILURE. 
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0319 

REF 

17 

LAST 

227 

05,3013 

10  161 

0 

CCS 

M P AC  +5 

PROCESS  ALL  RESTART  GROUPS. 

0320 

REF 

l 

05,3019 

1 3000 

0 

TCF 

PCLOOP 

0321 

REF 

18 

LAST 

228 

C5.30L5 

59  162 

0 

TS 

MPAC  +6 

SET  TO  +0. 

0 322 

REF 

1 

05,3016 

0 5317 

1 

TC 

MMDSPLAY 

DISPLAY  MAJOR  MODE 

0323 

05,3017 

0 0009 

0 

INHINT 

RELINT  DONE  IN  MMDSPLAY 

0329 

REF 

1 

05,3020 

9 9727 

0 

CS 

DIDFLBIT 

CLEAR  DIOFLAG  IN  ORDER  TO  FORCE  RIO  TO 

0325 

REF 

1 

05,3021 

7 0075 

l 

MASK 

FLAGWRD1 

RE-1NITIALIZF  ITSELF  IF  IT  HAD  BEEN 

0326 

REF 

2 

LAST 

228 

05,3022 

59  075 

l 

TS 

FLAGWRD1 

OPFRATING  AT  THE  TIME  OF  THE  RESTART. 

03262 

REF 

1 

05,3023 

9 9 731 

1 

CS 

RODFLRIT 

CLEAR  RODFLAG.  IF  P66  IS  IN  OPERATION 

03269 

REF 

3 

LAST 

228 

05,3029 

7 0075 

1 

MASK 

F LAGWRD1 

IT  WILL  RE-INITI ALIZE  ITSELF  AND 

03266 

REF 

9 

LAST 

228 

05,3025 

59  075 

1 

TS 

FLAGWRDl 

CONTINUE  . 

032  6 7 

REF 

I 

05,3026 

9 9732 

l 

CS 

P21FLBIT 

CLEAR  P21FLAG  SO  THAT  P21  WILL  COMPUTE 

032  6 E 

REF 

7 

LAST 

220 

05,3027 

7 0079 

0 

MASK 

FLAGWRDO 

NFW  BASE  STATE  VECTORS. 

03265 

REF 

8 

LAST 

228 

05,3030 

59  C 79 

0 

TS 

F LAGWRDO 

032  7 

REF 

2 

LAST 

227 

05, 3031 

3 9797 

1 

CAF 

NUMGRPS 

SEF  IF  ANY  GROUPS  RUNNING. 

0328 

REF 

19 

LAST 

228 

05,3032 

59  161 

0 

NXTRST 

TS 

MPAC  +5 

0329 

05,3033 

6 0000 

1 

DOUBLE 

0330 

REF 

93 

LAST 

227 

05,3039 

50  COO 

1 

INDEX 

A 

0331 

REF 

1 

(.5,3035 

10  752 

0 

CCS 

PHASE1 

0332 

REF 

1 

05,3036 

1 3 C90 

1 

TCF 

PACTIVE 

PNZ  - GROUP  ACTIVE. 

0333 

REF 

1 

05,3037 

1 3095 

1 

TCF 

PINACT 

+0  - GROUP  NOT  RUNNING. 

0339 

REF 

20 

LAST 

228 

05,3090 

59  159 

0 

PACTIVE 

TS 

MPAC 

0335 

REF 

21 

LAST 

228 

>,3091 

29  159 

1 

INC  R 

MPAC 

ABS  OF  PHASE. 
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TS 

DELAYLOC 

0496 

REF 

3 

LAST 

233 

05,3312 

55' 325 

0 

TS 

DELAYLOC 

049  8 

REF 

1 

05,3313 

54  045 

1 

TS 

INLINK 

049  9 

REF 

7 

LAST 

167 

05,3314 

54  7 75 

0 

TS 

DSPCNT 

0500 

REF 

1 

05,3315 

55*041 

1 

TS 

CADRSTOR 

0501 

REF 

1 

05,3316 

55' 012 

1 

TS 

REQRET 

0502 

REF 

1 

05,3317 

55 ' C 14 

1 

TS 

CLPASS 

050  3 

REF 

1 

05,3320 

55*011 

1 

TS 

DSPLOCK 

0 50  4 

REF 

1 

05,3321 

55*017 

1 

TS 

MONSAVE 

0505 

REF 

1 

05,3322 

55' 020 

0 

TS 

MONSAVE  1 

0506 

REF 

1 

05,3323 

55 ' 000 

1 

TS 

VERBREG 

0507 

REF 

1 

i 5, 3324 

55' 001 

0 

TS 

NOUNREG 

0508 

REF 

1 

05,3325 

55*042 

1 

TS 

DSPL 1ST 

0509 

REF 

1 

05,3326 

55 • 307 

0 

TS 

MARKSTAT 

0510 

REF 

1 

05,3327 

55*043 

0 

TS 

E XTVBACT 

051  1 

REF 

2 

LAST 

220 

05,3330 

55 ' 30 1 

0 

TS 

IMUCADR 

0512 

REF 

1 

05,3331 

55*302 

0 

TS 

OPTCADR 

0513 

REF 

1 

05,3332 

55 ' 303 

1 

TS 

R ADCADR 

0514 

REF 

2 

LAST 

1 10 

05,3333 

5 5 ' 304 

0 

TS 

ATTCADR 

0515 

REF 

1 

05,3334 

55*311 

1 

TS 

LGYRO 

05151  ' 

REF 

1 

05,3335 

55*  776 

1 

TS 

OLDAGS 

05152 

REF 

2 

LAST 

233 

05,3336 

55*777 

0 

TS 

OLDAGS  +1 

0516 

REF 

1 

05,3337 

54  100 

1 

TS 

FLAGWRD4 

051  7 

REF 

1 

05, 3340 

3 4751 

0 

CAF 

NOUTCON 

0518 

REF 

5 

LAST 

1 70 

05,3341 

55*015 

0 

TS 

NOUT 

0519 

REF 

27 

LAST 

227 

05,3342 

3 4727 

1 

CAF 

B I T 1 4 

0520 

REF 

2 

LAST 

211 

05,3343 

55' 073 

0 

TS 

AGSCODE 

052  1 

REF 

25 

LAST 

230 

05, 3344 

3 4737 

0 

CAF 

BIT6 

0522 

REF 

23 

LAST 

224 

05,3345 

7 1300 

1 

MASK 

I MODE  S3  3 

0523 

REF 

2 

LAST 

224 

05,3346 

6 5017 

1 

AD 

IM33INIT 

0524 

REF 

24 

LAST 

233 

05,3347 

55 ' 3 00 

1 

TS 

I MODE  S3  3 

0525 

REF 

1 

05,3350 

3 3367 

0 

CAF 

LESCHK 

0526 

REF 

2 

LAST 

112 

05,3351 

55*361 

0 

TS 

SELFRET 
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R 1 »R?  , R3  ) . 


+ 1 
+ 2 


KILL  MONITOR 


MAKE  EXTENDED  VERBS  AVAILABLE 


ZFRO  OUT  LAST  MARKTIME  SENT  TO  AGS 
BY  P20 

KILL  INTERFACE  DISPLAYS 


AGSCODE  DOWNL 1ST  CODE  = RESET  CONFIG 
LEAVE  BIT  6 UNCHANGED 

NO  PIP  OR  TM  FAILS. BIT6=0  IN  THIS  WORD. 
SELF  CHECK  GO-TO  REGISTER. 
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L FRESH  START  AND  RESTART 


052  7 

REF 

1 

05,3352 

4 4351 

0 

CS 

V D 1 

0523 

REF 

2 

LAST 

168 

C5, 3353 

54  7 76 

0 

TS 

DSPCOUNT 

05281 

05,3354 

C 0C06 

1 

EXTEND 

05282 

REF 

14 

LAST 

178 

05,3355 

22  070 

0 

OXCH 

RUPTREG1 

05283 

REF 

2 

LAST 

203 

05,3356 

3 7736 

1 

CAF 

PR  1027 

05234 

REF 

3 

LAST 

203 

05,3357 

0 5063 

I 

TC 

NOVAC 

05285 

REF 

6 

LAST 

230 

E6, 1536 

EBANK= 

AOSQ 

0 5286 

REF 

1 

05,3360 

C3576 

0 

2CADR 

1 /ACCSET 

05286 

REF 

l 

05,3361 

42066 

1 

0529 

REF 

15 

LAST 

234 

05,3362 

0 CC70 

0 

TC 

RUPTREG1 

0530 

REF 

7 

LAST 

234 

E6, 1536 

EBANK= 

AOSQ 

053  1 

REF 

1 

05,3363 

.02037 

1 

I CLEADR 

2CADR 

DAPIDLER 

053  1 

REF 

1 

05,3364 

34066 

0 

0532 

05,3365 

0C435 

0 

I FAIL  INH 

OCT 

435 

0533 

REF 

1 

05,3366 

03524 

1 

LDNPHflS 1 

GENADR 

DNPHASEl 

0534 

REF 

l 

05,3367 

03341 

1 

L ESC  HK 

GENADR 

SELFCHK 

0535 

REF 

2 

LAST 

232 

05,3370 

0 4 10 

0 

VAC1ADRC 

ADRES 

V AC  1 USE 

0536 

05,3371 

32001 

1 

0CT32001 

OCT 

32001 

053  7 

05,3372 

0CC54 

0 

LTHVACA 

DEC 

44 

0538 

05,3373 

27470 

1 

UCT2  7470 

OCT 

2 7470 

0539 

05,3374 

74160 

0 

0CT74160 

OCT 

74160 

0540  ■ 

C5.3375 

30001 

0 

DCT3000 1 

DCT 

30001 

0541 

REF 

1 

5000 

STARTEB 

EQUALS 

EBANK3 

0542 

REF 

1 

4747 

NUMGRPS 

EQUALS 

FIVE 

0 54  3 

05,3376 

77755 

0 

-ELR 

OCT 

-22 

0544 

05,3377 

3741  1 

l 

IM30INIF 

OCT 

3741  1 

0545 

05, 3400 

37000 

0 

IM30INIR 

OCT 

37000 

0546 

REF 

2 

LAST 

191 

5017 

IM33INIT 

= 

PRI016 

054  7 

05,3401 

00450 

0 

9,6,4 

OCT 

450 

0548 

05,3402 

00102 

1 

RMQD INI T 

OCT 

00102 

0549 

05,3403 

00000 

1 

SWINIT 

OCT 

0 

0550 

05,3404 

00000 

l 

OCT 

0 

0551 

05,3405 

00000 

1 

OCT 

0 

0552 

05,3406 

00000 

1 

OCT 

0 

0553 

05,3407 

cocoo 

1 

OCT 

0 

0554 

05,3410 

oocoo 

1 

OCT 

0 

0555 

05,3411 

accoo 

1 

OCT 

0 

0556 

05,3412 

1100 

0 

OCT 

00100 

0557 

05,3413 

00000 

1 

OCT 

0 

0558 

05,3414 

ocooo 

1 

OCT 

0 

0559 

05,3415 

coooo 

1 

OCT 

0 

0560 

05,3416 

40000 

0 

OCT 

40000 
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SET  UP  A JOB  TO  DO  1/ACCS  AND  TO  ZERO 
THE  OFFSET  ACCELERATION  ESTIMATE. 


RETURN  TO  CALLER. 


-ERROR  L IGHT 
INHIBITS  IMU 

NO  PIP  OR  TM 


RES  FT  KEY  CODE 
FAIL  FOR  5 SEC 

FAIL  SIGNALS. 


AND  PIP  ISSW 


8IT  15 


LRBYPASS 
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• L 

P0561 

R0562 

R0563 

R0564 

R0565 

R0566 

R0567 

R0568 


FRESH  START  AND  RESTART 

PROGRAM  NAME  GOTOPOOH  ASSEMBLY 

LOG  SECTION  FRESH  START  AND  RESTART 

FUNCTIONAL  DESCRIPTION 

FLASH  V 37  ON  DSKY  3MM  CHANGE  REQUEST  '• 

INPUT/OUTPUT  INFORMATION 

A.  CALLING  SEQUENCE  TC  GOTOPOOH 

B.  ERASABLE  INITIALIZATION  NONE 

C.  OUTPUT  FLASH  V 37  ON  DSKY 


SUNDANCE 


R0569  D.  DEBRIS  L 

R0570  PROGRAM  ANALYSIS 

R0571  A.  SUBROUTINES  CALLED  PRIODSPR,  LINUS 

R0572  B.  NORMAL  EXIT  TC  F ENDOFJOB 


R0573 

C. 

ALARM 

AND 

ABORT  EX  I 

0574 

6001 

0575 

REF 

2 

LAST 

41 

6000 

0576 

6001 

0577 

REF 

1 

0578 

REF 

1 

6001 

0579 

REF 

13 

LAST 

203 

6002 

0580 

6003 

0581 

REF 

. 2 

LAST 

225 

6004 

0582 

REF 

3 

LAST 

224 

6005 

0533 

REF 

1 

6006' 

0584 

. 6007 

0585 

6010 

A0585  1 

05852 

REF 

4 

LAST 

229 

6011 

05853 

REF 

4 

LAST 

234 

6012 

05854 

REF 

1 

E7, 1471 

05855 

REF 

1 

6013 

05855 

REF 

1 

6014 

05856 

REF 

4 

LAST 

235 

6015 

05857 

REF 

2 

LAST 

224 

6016 

NONE 

BLOCK  03 
SETLOC  FFTAG5 
BANK 


COUNT  * *$/P00 


3 4755 

1 

GOTOPOOH 

CAF 

0CT33 

54  001 

1 

TS 

L 

4 0000 

0 

COM 

52  760 

1 

DXCH 

-PHASE4 

0 4626 

1 

TC 

POST  JUMP 

10040 

1 

CADR 

GOPOOFIX 

00024 

1 

0CT24 

MM 

20 

00031 

0 

0CT31 

MM 

25 

3 4346 

1 

CALGOPOO  CAF 

PR  1030 

0 5063 

1 

TC 

NOVAC 

FB ANK= 

WHOCARES 

06001 

0 

2CADR 

GOTOPOOH 

06067 

0 

0 4626 

1 

TC 

POST  JUMP 

03212 

0 

CADR 

DUMMYJ08 

17:11  MAR.  19 
USER  ' 
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235 


4.33SP0T  FOR  GOPOOFIX 
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L FRESH  START  ANO  RESTART 


0586 

20,2004 

0507 

REF 

1 

04,2000 

0588 

04,2040 

0589 

REF 

1 

0590 

REF 

1 

04,2040 

0591 

REF 

1 

04,2041 

0592 

REF 

2 

LAST 

236 

04, 2042 

0593 

REF 

1 

04,2043 

05935 

REF 

l 

04,2044 

0 594 

REF 

1 

04,2045 

0595 

REF 

5 

LAST 

228 

04,2046 

0596 

REF 

1 

04,2047 

0597 

04,2050 

0598 

04,2051 

0599 

04,2052 

0600 

04,2053 

BANK  20 
SETLOC  VER837 
BANK 


0 5520 

0 

GOPOOFIX 

COUNT* 

TC 

$$/P00 

DOWNFLAG 

0C311 

1 

ADRES 

Xnv I NFLG 

0 5520 

0 

TC 

DOWNFLAG 

00314 

1 

ADRES 

ULLAGFLG 

0 5500 

1 

TC 

CLEARMRK 

3 2053 

0 

CAF 

V37N99 

0 4607 

1 

TC 

BANKCALL 

2C471 

1 

CAOR 

GOFLASH 

1 2045 

0 

TCF 

-3 

1 2045 

0 

TCF 

-4 

1 2045 

0 

TCF 

-5 

11343 

0 

V37N99 

VN 

3799 
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VERB  37  ANO  POO  IN  BANK  4. 
ALLOW  X-AXIS  OVERRIDE 


INSURE  THAT  ULLAGE  IS  OFF 


+2  RELEASE  MARK  DISPLAY  SYSTEM. 
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P0601 

R0602 

R0603 

R0604 
R0606 
R0608 
R0609 
R0610 
R061  1 
R0612 
R0613 
R0614 
R0615 
R0616 
R06 1 7 
R0618 
R0619 
R0620 
R 062  1 
R0623 
R0625 
R0626 
R0627 
R0629 
R 063  1 
R0633 
R063  4 
R 063  5 
R0636 
R063  7 
R063  8 
R0639 
R0641 
R0643 

R 0644 

R 0 64  5 

R0646 
R 064  7 
R0648 

R0649 

R 065  0 
R065  1 


FRESH  START  AND 
PROGRAM  NAME 
LOG  SECTION 


RESTART 
V 37 

FRESH  START  AND  RESTART 


ASSEMBLY 


SUNDANCE 


USER'S  PAGE  NO.  16  E3  S3 


FUNCTIONAL  DESCRIPTION 


1.  CHECK  IF  NEW  PROGRAM  ALLOWED.  IF  BIT  1 OF  F L AGWR02 f NODOF L AG ) IS  SET,  AN  ALARM  1520  IS  CALLED. 

2.  CHECK  FOR  VALIDITY  OF  PROGRAM  SELECTED.  IF  AN  INVALID  PROGRAM  IS  SELECTED,  THE  OPERATOR  ERROR  LIGHT  IS 
SET  AND  CURRENT  ACTIVITY,  IF  ANY,  CONTINUES. 

3.  SERVICER  IS  TERMINATED  IF  IT  HAS  BEEN  RUNNING. 

4.  INSTALL  IS  EXECUTED  TO  AVOID  INTERRUPTING  INTEGRATION. 

5.  THE  ENGINE  IS  TURNED  OFF  AND  THE  DAP  IS  INITIALIZED  FOR  COAST. 

6.  TRACK  AND  UPDATE  FLAGS  ARE  SET  TO  ZERO. 

7.  DISPLAY  SYSTEM  IS  RELEASED. 

8.  THE  FOLLOWING  ARE  PERFORMED  FOR  EACH  OF  THE  THREE  CASES. 

A.  PROGRAM  SELECTED  IS  POO. 

1.  RENDEZVOUS  AND  P25  FLAGS  ARE  RESET. (KILL  P20  AND  P25) 

2.  ST  AT  I NT  1 IS  SCHEDULED  BY  SETTING  RESTART  GROUP  2. 

3.  MAJOR  MODE  00  IS  STORED  IN  THE  MODE  REG  ISTERt MODREG ) . 

4.  SUPERBANK  3 IS  SELECTED. 

5.  NODOFLAG  IS  RESET. 

6.  ALL  RESTART  GROUPS  EXCEPT  GROUP  2 ARE  CLEARED.  CONTROL  I S TR ANS FER RE D TO  RESTART  PROGRAM  ( G0PROG2 ) 
WHICH  CAUSES  ALL  CURRENT  ACTIVITY  TO  BE  DISCONTINUED  AND  A 9 MINUTE  INTEGRATION  CYCLE  TO  BE 
INITIATED. 

B.  PROGRAM  SELECTED  IS  P20  OR  P25. 

1.  IF  THE  CURRENT  MAJOR  MODE  IS  THE  SAME  AS  THE  SELECTED  NEWPROGR  AM , THE  PROGRAM  IS  R E- 1 N I T I AL I ZED 
VIA  V37XEQ , ALL  RESTART  GROUPS,  EXCEPT  GROUP  4 ARE  CLEARED. 

2.  IF  THE  CURRENT  MAJOR  MODE  IS  NOT  EQUAL  TO  THE  NEW  REQUEST,  A CHECK  IS  MADE  TO  SEE  IF  THE  REQUEST- 
ED MAJOR  MODE  HAS  BEEN  RUNNING  IN  THE  BACKGROUND, 

AND  IF  IT  HAS,  NC  NEW  PROGRAM  IS  SCHEDULED,  THE  EXISTING 
P 20  OR  P25  IS  RESTARTED  TO  CONTINUE,  AND  ITS  M M IS  SET. 

3.  CONTROL  IS  TRANSFERRED  TO  G0PR0G2 . 

C.  PROGRAM  SELECTED  IS  NEITHER  P00,P20,  NOR  P25 

1.  V37XEQ  IS  SCHEDULED  (AS  A JOB)  BY  SETTING  RESTART  GROUP  4 

2.  ALL  CURRENT  ACTIVITY  EXCEPT  RENDEZVOUS  AND  TRACKING  IS  DISCONTINUED  BY  CLEARING  ALL  RESTART 
GROUPS.  IF  THE  RENDEZVOUS  OR  THE  P25  FLAG  IS  ON,  GROUP  2 IS  NOT  CLEARED,  ALLOWING  THFSE  PROGRAMS 
TO  CONTINUE. 

INPUT/OUTPUT  INFORMATION 


A.  CALLING  SEQUENCE 


CONTROL  IS  DIRECTED  TO  V37  BY  THE  VERBFAN  ROUTINE. 

VER8FAN  GOES  TO  C ( V E R BT A B+C ( V ER BRE G ) ) . VERB  37  = MMCHANG. 


MMCHANG  EXFCUTES  A 


TC  POSTJUMP,  CADR  V37. 


B.  ERASABLE  INITIALIZATION 


NONE 


C.  OUTPUT 


GAP:  ASSEMBLE  RFVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161  17:11  MAR.  19,1971  LEM0NAID.156  PAGE  238 

L FRESH  START  AND  RESTART  USER'S  PAGE  NO.  17  E3  S3 

R 065 2 MAJOR  MODE  CHANGE 

R0653  D.  DEBRIS 

R065 A MMNUMBER , MPAC  +1,  MINDEX,  BASETEMP  +CIMINDEX)  , FLAGWRDO,  FLAGWRDl , FLAGWRD2,  MOOREG,  GOLOC  -I, 

R0656  GOLOC,  GULOC  +1,  GOLOC  +2,  BASETEMP,  -PHASE2,  PHASE2 , -PHASE4 


R0657  PROGRAM  ANALYSIS 


R065B 
R0659 
R066  1 


SUBROUTINES  CALLED 

ALARM,  RELDSP,  PINBRNCH,  INTSTALL,  ENGIN0F2,  ALLCOAST,  V37KLEAN , GOPROG2 , F Al TON,  FINDVAC,  SIJPERSW, 
DSP  MM 


R0662 

B. 

NORMAL  EXIT 

TC  FNDOF  JOB 

R0663 

C. 

ALARMS 

1520  (MAJOR  MODE  CHANGE  NOT 

PERMITTED) 

066  A 

REF 

1 

OA, 205A 

5 A 7 7A 

l 

V 37 

TS 

MMNUMBER 

SAVE  MAJOR  MODE 

0665 

REF 

5 

LAST 

235 

CA, 2055 

3 A 3 A6 

1 

CAF 

P R 1030 

RESTART  AT  PINBALL  PRIORITY 

0666 

REF 

2 

LAST 

222 

OA, 2056 

55' 26A 

1 

TS 

RESTREG 

0667 

REF 

A2 

LAST 

227 

C A , 2 05  7 

3 1277 

1 

CA 

I M0DES30 

IS  IMU  BFINB  INITIALIZED 

066  8 

REF 

26 

LAST 

233 

OA, 2060 

7 A 7 3 7 

1 

MASK 

B IT6 

0669 

REF 

AA 

LAST 

228 

0 A , 206  1 

10  COO 

0 

CCS 

A 

0670 

REF 

1 

OA, 2062 

l 2105 

0 

TC  F 

CANTROO 

06705 

REF 

1A 

LAST 

229 

OA, 2063 

3 A 7A0 

0 

CA 

B I T5 

IS  IMUZERO  IN  PROGRESS 

06706 

REF 

25 

LAST 

233 

OA, 206A 

7 1300 

1 

MASK 

I M0DES33 

06707 

REF 

A5 

LAST 

238 

OA ,2065 

10  000 

0 

CCS 

A 

IF  SO  DAP  IS  OFF 

06708 

REF 

2 

LAST 

238 

OA , 2066 

1 2105 

0 

TC  F 

CANTROO 

0671 

REF 

2 

LAST 

238 

OA, 2067 

A C77A 

1 

CS 

MMNUMBER 

IS  P70  REQUFSTED? 

0672 

REF 

1 

OA, 2070 

6 2A35 

1 

AD 

DEC70 

0673 

OA ,2071 

0 OC 06 

1 

EXTEND 

06  7 A 

REF 

1 

OA, 2072 

1 2A30 

0 

BZF 

SETUP70 

YES 

0675 

REF 

7 

LAST 

221 

OA, 2073 

6 A7AA 

1 

AD 

ONF 

IS  P71  REQUESTED? 

0676 

OA, 207A 

0 0006 

1 

EXTEND 

0677 

REF 

1 

0 A , 20  75 

1 2A27 

0 

BZF 

SFTUP71 

YES 

0678 

REF 

3 

LAST 

238 

OA, 2076 

3 077A 

0 

CA 

MMNUMBER 

IS  NEW  REQUEST  PUO 

0679 

C A , 2 0 77 

0 0006 

1 

EXTEND 

0680 

REF 

1 

OA , 2 1 00 

1 2127 

0 

BZF 

I SSERVON 

YES,  CHECK  SERVICER  STATUS 

0681 

REF 

3 

LAST 

1 75 

OA , 2 10 1 

A 0076 

1 

CS 

FLAGWRD2 

NO,  IS  NODO  V 37  FLAG  SET 

0682 

REF 

l 

OA, 2 102 

7 A 7 AA 

0 

MASK 

N0D08 IT 

0683 

REF 

A6 

LAST 

238 

0 A , 2 1 03 

10  COO 

0 

CCS 

A 

068A 

REF 

1 

0A.210A 

1 2112 

0 

TC  F 

CHECKTAB 

NO 

0685 

REF 

10 

LAST 

228 

OA, 2105 

0 5571 

1 

CANTROO 

TC 

A LARM 

0686 

OA, 2106 

01520 

l 

OCT 

l 520 

068  7 

REF 

l 

OA, 2107 

0 AA50 

1 

V37B AD 

TC 

RELDSP 

RELEASES  DISPLAY  FROM  ASTRON 
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068  8 

REF 

5 

LAST 

235 

04,2110 

0 4626 

1 

TC 

POST JUMP 

0689 

REF 

1 

04,2111 

21062 

0 

CADR 

P INBRNCH 

0690 

REF 

1 

04,2112 

3 2524 

0 

CHECKTAB 

CA 

N0V37MM 

0691 

REF 

28 

LAST 

233 

04,2113 

54  155 

1 

AGAINMM 

TS 

MPAC  +1 

0692 

REF 

29 

LAST 

239 

04, 2114 

50  155 

0 

NDX 

M P AC  +1 

0693 

REF 

1 

04,2115 

3 2472 

1 

CA 

PREMM1 

0694 

REF 

l 

04,2116 

7 6115 

0 

MASK 

L0W7 

0695 

04,2117 

4 0000 

0 

COM 

0696 

REF 

4 

LAST 

238 

04,2120 

6 C 774 

0 

AD 

MMNUMBER 

069  7 

REF 

47 

LAST 

238 

04,2121 

10  000 

0 

CCS 

A 

0698 

REF- 

30 

LAST 

239 

04,2122 

10  155 

1 

CCS 

MPAC  +1 

0699 

REF 

1 

04,2123 

1 2113 

1 

TC  F 

AGAINMM 

0700 

KEF 

1 

04,2124 

1 2360 

1 

TCF 

V37N0N0 

0701 

REF 

31 

LAST 

239 

04,2125 

3 0155 

0 

CA 

MPAC  +1 

0 70  2 

REF 

1 

04,2126 

54  773 

0 

TS 

M INDEX 

0703 

REF 

2 

LAST 

197 

04,2127 

4>> 

O 

O 

w 

1 

I SSERVON 

CS 

FLAGWRD7 

0 704 

REF 

1 

04,2130 

7 4737 

1 

MASK 

V37FLBI T 

0705 

REF 

48 

LAST 

239 

04,2131 

10  000 

0 

CCS 

A 

0706 

REF 

1 

04,2132 

l 2 160 

0 

TCF 

CANV37 

0706  l 

REF 

I 

04, 2133 

0 4720 

0 

TC 

SUPERSW 

07062 

04,2134 

0 0004 

0 

INHINT 

07063 

REF 

6 

LAST 

186 

04,2135 

0 4665 

0 

TC 

I RNKCALL 

07064 

REF 

1 

04, 2136 

75556 

0 

CADR 

ENGINOF 1 

0707 

REF 

3 

LAST 

236 

04,2137 

0 5520 

0 

TC 

DOWNFLAG 

070  8 

REF 

1 

04,2140 

00163 

0 

ADRES 

AVEGFLAG 

0709 

*REF 

1 

04,2141 

0 6050 

1 

TC 

KILLTASK 

0710 

*REF 

1 

04, 2142 

74350 

1 

CADR 

ULLGT  ASK 

071  1 

REF 

1 

04, 2143 

1 5146 

0 

TCF 

ENDOF JOB 

0712 

REF 

9 

LAST 

228 

04,2144 

4 0074 

0 

V37RET 

CS 

FLAGWROO 

0713 

REF 

2 

LAST 

196 

04,2145 

7 4736 

0 

MASK 

RNDVZBIT 

0714 

REF 

49 

LAST 

239 

04,2 146 

10  COO 

0 

CCS 

A 

0715 

04,2147 

1 2 15  L 

1 

TCF 

+ 2 

0716 

REF 

1 

04,2150 

l 2156 

0 

TCF 

2 . 7SP  T 

0717 

REF 

10 

LAST 

239 

04,2  L5  1 

4 0074 

0 

CS 

FLAGWROO 

071  0 

REF 

1 

04,2152 

7 4734 

1 

MASK 

P25FLBI T 

0719 

REF 

50 

LAST 

239 

04,2153 

10  000 

0 

CCS 

A 

0720 

REF 

1 

04,2  154 

3 2424 

1 

2.0SPT 

CA 

0CT37667 

072  1 

REF 

15 

LAST 

238 

04,2155 

6 4740 

0 

2 . USPT 

AD 

B IT5 

0722 

REF 

1 

04,2156 

6 2425 

0 

2.7SPT 

AD 

OCT40072 

0723 

REF 

1 

04,2157 

0 5361 

0 

TC 

PHSCHNGA 

0724 

REF 

15 

LAST 

232 

04,2160 

3 4746 

0 

C ANV37 

CAF 

ZERO 

0725 

04,2161 

0 0006 

1 

EXTFND 
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INDEX  FOR  MM  TABLES. 

OBTAIN  WHICH  MM  THIS  IS  FOR 


IF  GR,  SEE  IF  ANYMORE  IN  LIST 
YES,  GET  NEXT  ONE 
LAST  TIME  OR  PASSED  MM 


SAVE  INDEX  FOR  LATER 

V 3 7 FLAG  SET  - I.E.  IS  SERVICFR  GOING 


NO 


YES,  TURN  ENGINE  OFF 

NOW  TURN  OFF  THE  AVERAGE  G FLAG  AND 
WAIT  FOR  SERVICER  TO  RETURN  TO  V37RFT. 


IS  P2 0 OR  P22  RUNNING? 


NO.  CHECK  FOR  P25. 
YES.  DO  2.7SPOT 
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0 72  6 

0727 

0728 

0729 

0730 

0731 

073  2 

0733 

0734 

0735 

0736 

07362 

07364 

07367 

07368 

073  7 
0738 

07382 

07384 

073845 
0 7385 

0 73  86 
07388 

0738e 1 
073882 

0 73  9 
0 740 
0 74  1 
074? 

0 74  3 

0744 

0745 


FRESH  START  AND  RESTART 


REF 

2 

LAST 

226 

04,2162 

01  007 

1 

WRITE 

REF 

l 

04,2163 

3 2423 

0 

CAF 

REF 

1 

04,2164 

54  373 

1 

TS 

REF 

1 

04,2165 

0 5355 

1 

TC 

04,2166 

00014 

1 

OCT 

REE 

3 

LAST 

219 

04,2167 

0 6060 

1 

ROD 

TC 

04,2170 

77624 

1 

CALL 

REF 

1 

04,2171 

27447 

0 

04,2172 

77776 

1 

DUMMYAD 

EXIT 

REF 

4 

LAST 

239 

04, 2173 

0 5520 

0 

TC 

REF 

1 

04,2 174 

00124 

0 

ADRES 

REF 

5 

LAST 

240 

04,2175 

0 5520 

0 

TC 

REF 

1 

04,2176 

00055 

1 

ADRES 

REF 

6 

LAST 

240 

04,2177 

0 5520 

0 

TC 

REF 

l 

04,2200 

00222 

0 

ADRES 

REF 

2 

LAST 

230 

04,2201 

3 4726 

0 

CAF 

REF 

4 

LAST 

231 

04,2202 

54  107 

0 

TS 

REF 

7 

LAST 

240 

04,2203 

0 5520 

0 

TC 

REE 

1 

04,2204 

00063 

1 

ADRES 

REF 

8 

LAST 

240 

04, 2205 

0 5520 

0 

TC 

REF 

1 

04,2206 

00056 

1 

ADRES 

REF 

9 

LAST 

240 

04,2207 

0 5520 

0 

TC 

REF 

1 

0^,2210 

00141 

0 

ADRES 

REF 

10 

LAST 

240 

04,2211 

0 5520 

0 

TC 

REF 

l 

04, 2212 

00217 

0 

ADRES 

REF 

1 1 

LAST 

240 

04,2213 

0 5520 

0 

TC 

REF 

2 

LAST 

236 

04, 2214 

CC31 1 

l 

ADRES 

REF 

5 

LAST 

239 

04, 2215 

1C  774 

1 

CCS 

REF 

1 

04, 2216 

1 2346 

0 

TCF 

REF 

2 

LAST 

238 

04,2217 

0 4450 

I 

POOH 

TC 

REF 

1 

04,2220 

3 5C10 

0 

CAF 

REF 

2 

LAST 

105 

04,2221 

55*055 

1 

TS 

REF 

l 

04,2222 

0 6C27 

1 

TC 

SUPER8NK 

ROOAD 

TEMPFLSH 

PHASCHNG 

14 

I NTPRET 


T NT S T ALL 


DOWNFLAG 

3AXISFLG 

DOWNFLAG 

POOHFLAG 

DOWNFLAG 

FLT59FLG 

LRBYBIT 
FLGWRDl l 

DOWNFLAG 

R04FLAG 

DOWNFLAG 

GLOKFAIL 

DOWNFLAG 
M UNFLAG 

DOWNFLAG 
A BTTGFLG 

DUWNFLAG 

XOVINFLG 

MMNUMBER 

NOUVFAU 

RELDSP 

PRI05 

PHSPRDT2 


0746 


CLRADMOD 
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WAIT  FOR  INTEGRATION  TO  FINISH 


RESET  3-AXIS  FLAG 


CLEAR  FOR  NORMAL  INFLIGHT  MARKING 
CLEAN  UP  THE  R12  FLAGWORO. 

INSURE  THAT  THE  R04FLAG  IS  CLFAR. 

FLAGWORD  3 BIT  14 
INSURE  MUNFLAG  IS  CLEAR. 

RESET  ABORT  TARGETING  FLAG  (USE 
PARAMETERS  J1  AND  KU) 

ALLOW  X-AXIS  OVERRIDE. 

IS  THIS  A POOH  REQUEST 
NO,  PICK  UP  NEW  PROGRAM 

RELEASE  DISPLAY  SYSTEM 

SET  VARIABLE  RESTART  PRIORITY  FOR 
POO  I NTF  GR  AT  ION. 


CLRADMOD  DOES  AN  INHINT 
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L FRESH  START  -AND  RESTART 


0747 
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238 

04,2223 
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0 

CS 

NODDBIT 

074  B 

REF 

4 

LAST 

238 

04,2224 

7 C076 

1 

MASK 

FLAGWRD2 

0 74  9 

REF 

5 

LAST 

241 

04,2225 

54  076 

1 

TS 

FLAGWRD2 

0750 

REF 

2 

LAST 

234 

04, 2226 

3 4747 

1 

CA 

FIVE 

0751 

REF 

14 

LAST 

235 

04,2227 

54  001 

1 

TS 

L 

0752 

04,2230 

4 CCOO 

0 

COM 

0753 

REF 

2 

LAST 

224 

04, 2231 

52  754 

0 

DXCH 

-PHASE2 

0754 

REF 

1 

04, 2232 

4 2426 

1 

CS 

OCT700 

0755 

REF 

11 

LAST 

239 

04,2233 

7 OC  74 

0 

MASK 

F LAGWRDO 

0756 

REF 

12 

LAST 

241 

04,2234 

54  C 74 

0 

TS 

FLAGWRDO 

0757 

REF 

1 

04,2235 

3 4 746 

0 

CAF 

DNLADPOO 

0758 

REF 

7 

LAST 

227 

04, 2236 

54  333 

0 

SEUOOPOO 

TS 

DNLSTCOD 

0759 

REF 

4 

LAST 

22  7 

04,2237 

55' 321 

1 

TS 

AGSWORD 

A0760 

0 761 

REF 

2 

LAST 

224 

04,2240 

4 4732 

1 

CS 

N0P07RI T 

0 7615 

REF 

2 

LAST 

218 

04,2241 

7 0077 

0 

MASK 

FLAGWRD3 

0761  7 

REF 

3 

LAST 

241 

C4 , 2242 

6 4732 

0 

AD 

N0P07BI T 

076? 

REF 

3 

LAST 

241 

04,2243 

54  077 

0 

TS 

FLAGWRD3 

0763 

REF 

7 

LAST 

239 

04,2244  ' 

0 4665 

0 

TC 

I BNKCALL 

0764 

REF 

1 

04,2245 

40205 

1 

CADR 

ALLCOAST 

0765 

REF 

1 

04,2246 

4 4 766 

0 

CS 

0CT120 

0766 

REF 

2 

LAST 

222 

04,2247 

55' 071 

1 

TS 

EBANKTEM 

0767 

REF 

5 

LAST 

228 

04,2250 

7 0075 

1 

MASK 

FLAGWRD1 

0768 

REF 

6 

LAST 

241 

04,2251 

54  075 

1 

TS 

FLAGWRD1 

0769 

REF 

8 

LAST 

241 

04,2252 

0 4665 

0 

TC 

I BNKCALL 

0770 

REF 

1 

04,2253 

12654 

0 

CADR 

V37KLEAN 

0 771 

REF 

6 

LAST 

240 

04,2254 

10  774 

1 

CCS 

MMNUMBER 

0772 

REF 

l 

04,2255 

1 2264 

1 

TCF 

RENDVOO 

0773 

REF 

9 

LAST 

241 

04, 2256 

0 4665 

0 

GOMOD 

TC 

I BNKCALL 

0774 

REF 

1 

04,2257 

12651 

0 ' 

CADR 

POOKLEAN 

0775 

REF 

7 

LAST 

241 

04,2260 

3 C 774 

0 

CA 

MMNUMBER 

0776 

REF 

3 

LAST 

228 

04,2261 

55*  CIO 

0 

TS 

MODREG 

0777 

REF 

6 

LAST 

239 

04,2262 

0 4626 

l 

GOGOPROG 

TC 

POST  JUMP 

0778 

REF 

1 

04,2263 

12772 

0 

CADR 

G0PR0G2 

0779 

REF 

4 

LAST 

241 

04,2264 

4 1010 

0 

RENDVDO 

CS 

MODREG 

0780 

REF 

1 

04, 2265 

6 2364 

1 

AD 

0CT2  6 

078  1 

04,2266 

0 0006 

1 

EXTEND 

0782 

REF 

1 

04, 2267 

1 2306 

1 

BZF 

R E SET  22 
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TURN  OFF  NOOOFLAG. 

SET  RESTART  FOR  STATFINT1 


TURN  OFF  P 20 , P25 , IMU  IN  USF  FLAG 
RENDFLG 


SET  UP  APPROPRIATE  DOWNLIST  CODE 
(CURRENT  LIST  WILL  RE  COMPLETED  BEFORE 
NEW  ONE  IS  STARTED) 


INSURE  ALLCOAST. 

DOES  A RESTORDB. 

TURN  OFF  TRACK,  UPDATE  FLAGS 


KILL  GROUPS  1 ,3,5,6 


IS  IT  POOH 
NO 

REDUNDANT  EXCEPT  FOR  GROUP  A 


IS  CURRENT  PROGRAM  22 

YES  - CLEAR  RENDEZVOUS  FLAG 
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L FRESH  START  AND  RFST ART 


0783 

REF 

8 

LAST 

241 

04,2270 

4 

C 7 74 

l 

cs 

MMNUMBER 

0784 

REF 

2 

LAST 

24  1 

04,2271 

6 

2364 

1 

AD 

0CT26 

0705 

04,2272 

0 

0006 

1 

EXTEND 

0706 

REF 

2 

LAST 

241 

04,2273 

1 

2306 

1 

BZF 

RESET  22 

0787 

REF 

1 

04,2274 

6 

7 767 

0 

AD 

NEG2 

0708 

04,2275 

0 

0006 

l 

EXTEND 

0789 

REF 

1 

04,2276 

1 

2320 

0 

BZF 

RENDNOO 

0790 

REF 

3 

LAST 

241 

04,2277 

6 

4 747 

1 

AD 

E I VE 

0 791 

04,2300 

0 

0006 

1 

EXTEND 

0792 

REF 

2 

LAST 

242 

04,2301 

1 

2320 

0 

BZF 

RENONOO 

0793 

REF 

1 

04,2302 

3 

2362 

1 

CA 

0CT500 

0794 

REF 

13 

LAST 

241 

04,2303 

7 

C C 74 

0 

MASK 

F LAGWRDO 

0795 

REF 

51 

LAST 

239 

04,2304 

10  000 

0 

CCS 

A 

0796 

REF 

1 

04,2305 

L 

2315 

0 

TCF 

POOFIZZ 

079  7 

REF 

2 

LAST 

241 

04,2306 

4 

2426 

1 

RESET22 

CS 

OCT7O0 

0 79  8 

REF 

14 

LAST 

242 

04,2307 

7 

0074 

0 

MASK 

E LAGWRDO 

0 79  9 

REF 

15 

LAST 

242 

04,2310 

54 

• •0  74 

0 

TS 

F LAGWRDO 

0800 

REF 

2 

LAST 

240 

04,2311 

0 

6027 

1 

TC 

CLRAOMOD 

080  1 

04,2312 

0 

C006 

l 

KILL  2 

EXTEND 

080  2 

REF 

8 

LAST 

225 

04,2313 

3 

4 746 

0 

DC  A 

NEGO 

0803 

REF 

3 

LAST 

24  1 

04,2314 

52 

! 754 

0 

DXCH 

-PHASE2 

0804 

REF 

1 

04,2315 

3 

2422 

1 

POOF  I ZZ 

CAF 

V370CAD 

0805 

REF 

2 

LAST 

240 

04,2316 

54 

■ 373 

1 

TS 

TEMPFLSH 

0806 

REF 

1 

04,2317 

1 

2262 

l 

TCF 

GOGOPROG 

080  7 

• KEF 

5 

LAST 

241 

04, 2320 

4 

1010 

0 

RENDNOO 

CS 

MODREG 

0808 

REF 

1 

04,2321 

6 

6007 

0 

AD 

0CT24 

0809 

0.4,2  322 

0 

0006 

1 

EXTEND 

0810 

REF 

l 

04,2323 

1 

2312 

1 

BZF 

K 1 1 L 2 

081  1 

REF 

4 

LAST 

242 

04,2324 

6 

4747 

1 

AD 

F IVE 

0812 

04,2325 

0 

0006 

1 

EXTEND 

0813 

REF 

2 

LAST 

242 

04,2326 

1 

2312 

1 

BZF 

K I L L 2 

0814 

REF 

2 

LAST 

242 

04,2327 

3 

2362 

1 

CA 

OCT  500 

0815 

REF 

16 

LAST 

242 

04,2330 

7 

0074 

0 

MASK 

F LAGWRDO 

0816 

REF 

9 

LAST 

242 

04,233  l 

6 

0774 

0 

AD 

MMNUMBER 

0817 

04,2332 

4 

COOO 

0 

COM 

0818 

REF 

1 

04,2333 

6 

2365 

0 

AD 

P20REG 

0819 

04,2334 

0 

0006 

1 

EXTEND 

0820 

REF 

1 

04,2335 

1 

2342 

1 

BZF 

STATQUO 

082  1 

REF 

l 

04,2336 

6 

2 3 63 

0 

AD 

0CT305 

0322 

04,2337 

0 

0006 

1 

EXTEND 
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IS  NEW  PROGRAM  P22 


IS  NEW  PROGRAM  = P20  OR  P25 

YFS 

25 

YFS 

NO,  IS  EITHER  P20  OR  P25  RUNNING 

YES,  LEAVE  GROUP  2 TO  PICK  UP  P20  OR  P25 

CLEAR  RENDEZVOUS  ,P25 
AND  IMU  IN  USE  FLAGS 

NO,  KILL  2 

RESTART  POINT  FOR  V37XEQ 


P20  OR  P 2 5 ON  TOP  OF  P20  OR  P25  - 


IS  IT 

20 

AND 

IS 

RENDEZVOUS  FLAG  ON 

YES 
IS  IT 

25 

AND 

IS 

P25  BIT  ON 
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L FRESH  START  AND  RESTART 


0823 

REF 

2 

LAST 

242 

04,2340 

1 2342 

1 

BZF 

STATQUO 

0824 

REF 

3 

LAST 

242 

04,2341 

1 2312 

1 

TCF 

K I LL  2 

0825 

REF 

7 

LAST 

24  1 

04, 2342 

4 0075 

1 

STATQUO 

CS 

F LAGWRD1 

0026 

REF 

2 

LAST 

241 

04,2343 

7 4 766 

0 

MASK 

0CT120 

082  7 

REF 

8 

LAST 

243 

04,2344 

26  075 

1 

ADS 

FLAGWRD1 

0 82  8 

REF 

1 

04, 2345 

1 2256 

0 

TCF 

GOMOO 

0829 

REF 

3 

LAST 

242 

04,2346 

3 2362 

1 

NOUVEAU 

CAF 

0CT500 

0830 

REF 

17 

LAST 

242 

04,2347 

7 0074 

0 

MASK 

FLAGWRDO 

0831 

REF 

52 

LAST 

242 

04,2350 

1C  COO 

0 

CCS 

A 

083  2 

04,2351 

1 2354 

0 

TCF 

+ 3 

0833 

REF 

12 

LAST 

240 

04,2352 

0 5520 

0 

TC 

DOWNFLAG 

0834 

REF 

1 

04,2353 

00007 

0 

ADRES 

I MUSE 

0835 

REF 

2 

LAST 

239 

04,2354 

50  773 

1 

INDEX 

M I NOE  X 

0836 

RFF 

1 

04,2355 

3 2525 

1 

CAF 

DNLADMMl 

0 83  7 

04,2356 

0 0004 

0 

INHINT 

0838 

REF 

1 

04,2357 

1 2236 

0 

TCF 

SEUDOPOO 

0839 

REF 

1 

04,2360 

0 43  55 

0 

V37N0N0 

TC 

FALTON 

084  0 

REF 

1 

04,2361 

l 2107 

l 

TCF 

V37BAD 

084  1 

REF 

19 

LAST 

227 

4741 

0CT00010 

EQUALS 

B IT4 

0842 

04,2362 

00500 

1 

OC  1500 

OCT 

500 

0843 

04,2363 

00305 

l 

OCT305 

OCT 

305 

0844 

04,2364 

00026 

0 

0CT26 

OCT 

26 

0845 

04,2365 

00124 

0 

P20REG 

OCT 

124 

0846 

04,2366 

0 CC04 

0 

V37XEQ 

INHINT 

084  7 

REF 

3 

LAST 

243 

04,2367 

50  773 

1 

INDEX 

M INDEX 

004  8 

'REF 

2 

LAST 

239 

04,2370 

3 2472 

1 

CAF 

PREMM1 

0849 

REF 

1 

04,2371 

55*057 

0 

TS 

MMTEMP 

0850 

REF 

1 

04,2372 

5 4 020 

1 

TS 

CYR 

085  1 

KEF 

2 

LAST 

243 

04, 2373 

3 CC  20 

0 

CA 

C YR 

0852 

REF 

1 

04,2374 

7 7746 

1 

MASK 

PR  103  7 

0853 

REF 

1 

04,2375 

55' 061 

0 

TS 

PHSPRDT4 

0854 

REF 

1 

04,2376 

54  063 

0 

TS 

NEWPR 10 

0855 

REE 

2 

LAST 

243 

04,2377 

3 1057 

1 

CA 

MMTEMP 

0856 

04,2400 

0 0006 

1 

EXTEND 

0857 

REF 

18 

LAST 

224 

04, 2401 

7 4735 

0 

MP 

BIT8 

085  8 

REF 

1 

04,2402 

7 4750 

0 

MASK 

L0W3 

0859 

REF 

15 

LAST 

241 

04,2403 

54  001 

1 

TS 

L 

0860 

REF 

4 

LAST 

243 

04,2404 

50  773 

1 

INDEX 

M INDEX 
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YES,  LEAVE  AS  IS 

SET  TRACKFLAG 
UPDATE  ELAG 

IS  P20  OR  P25  FLAG  SET 
YES 

NO, RESET  IMUINUSE  FLAG 

OBTAIN  APPROPRIATE  DOWNLIST  ADDRESS 

COME  HERE  IF  MM  REQUESTED  DOFSNT  EXIST 


BITS  7 AND  9 


OBTAIN  PRIO,  EBANK,  AND  MM 
SHIFT  RIGHT  TO  BITS  14  - 10 


PRESET  GROUP  4 RFST ART  PRIORITY 
STORE  PRIO  FOR  SPVAC 


OBTAIN  EBANK 


BITS  8 


9,  10  OF  MMTEMP 
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L 

FRESH  START  AND  RESTART 

0 86  1 

REF 

1 

OA, 2 A05 

3 2AA0 

0 

CAE 

F CADR  MM l 

0062 

REF 

l 

0 A , 2 A06 

55 ' 0 60 

1 

TS 

BASETEMP 

0863 

REE 

3 

LAST 

226 

OA, 2 AO  7 

7 A3A1 

1 

MASK 

H I 5 

0 86  A 

REE 

16 

LAST 

2A3 

OA , 2 A 1 0 

26  001 

1 

ADS 

L 

0 86  5 

REF 

2 

LAST 

2AA 

OA, 2A1  1 

3 1060 

0 

CA 

BASETEMP 

0866 

REF 

1 

OA, 2AL2 

7 5003 

0 

MASK 

LOWIO 

0867 

REF 

16 

LAST 

175 

OA, 2A13 

6 A 732 

0 

AD 

B I T 1 1 

0868 

REF 

1 

C A , 2A 1 A 

0 5107 

1 

TC 

SPVAC 

0869 

REF 

3 

LAST 

2 A3 

OA, 2A15 

3 1057 

1 

V37XEQC 

CA 

MMTEMP 

0070 

REF 

2 

LAST 

239 

CA.2A16 

7 6115 

0 

MASK 

LOW  7 

0871 

REF 

l 

OA, 2A17 

0 5316 

0 

TC 

NEWMODEA 

0 87  2 

REF 

3 

LAST 

2A0 

0A.2A2O 

0 A A50 

1 

TC 

RELDSP 

0873 

REF 

2 

LAST 

239 

OA, 2A21 

0 51A6 

1 

TC 

ENDOE JOB 

087  A 

REF 

1 

5652 

NEG7 

EQUALS 

OCT  7777  0 

0875 

REF 

1 

1057 

MMTEMP 

EQUALS 

PHSPRDT  3 

087  6 

REF 

1 

1060 

BASETEMP 

EQUALS 

TBASE4 

0877 

REF 

l 

OA, 2 A22 

10371 

0 

V37QCA0 

CADR 

V37XEQ  +3 

0878 

REF 

1 

0A.2A23 

10172 

1 

ROOAD 

CADR 

OUMMYAD 

0080 

OA, 2A2A 

37667 

1 

OCT 3 7667 

OCT 

37667 

0881 

04,2425 

A0072 

0 

0CTA0072 

OCT 

40072 

0882 

OA , 2 A26 

00  700 

0 

0CT700 

OCT 

700 

R0883 

088A 

REF 

1 

OA, 2A27 

3 6266 

0 

SETUP71 

CAF 

THREE 

0085 

REF 

17 

LAST 

229 

0A.2A30 

5 A 002 

1 

SETUP70 

TS 

Q 

0806 

0A.2A31 

0 0006 

1 

EXTEND 

0887 

REF 

1 

OA , 2A32 

3 2 A 3 7 

0 

DC  A 

P70CADR 

088  8 

REF 

18 

LAST 

2AA 

CA.2A33 

6 0002 

0 

AD 

Q 

0809 

0 A , 2 A3 A 

52  006 

0 

DTCB 

0890 

0 A , 2 A3  5 

CC106 

0 

DEC70 

DEC 

70 

039  1 

REE 

3 

LAST 

1 5 A 

E 7 , 1520 

EBANK= 

R 

0892 

REF 

1 

0A.2A36 

02132 

0 

P70CADR 

2CA0R 

P 70 

0892 

REF 

t 

0A.2A37 

A2067 

0 

R0893 

FOR  V 

ERB 

37  TWO 

TABLES  are  maintained. 

EACH  TABLE 

HAS  AN  ENTRY  FO 

R089A 

MA  JUR 

MODE  THAT 

CAN 

BE  STARTED 

FROM  THE 

KEYBOARD. 

THE  ENTRIES  ARE 

R0895 

INTO 

THE 

TABLE 

WITH 

the  entry 

FOR  THE 

HIGHEST  MAJOR  MODE  COMING  F 

R 0896 

TO  THE  LOWEST  MAJOR 

MODE  WHICH 

1 IS  THE 

LAST  ENTRY 

IN  EACH  TABLE. 

R0897 

THE  FCAOKMM 

table  contains  the 

FCADR  OF 

THE  STARTING  JOB 

R0898 

THE  MAJOR  MODE. 

FOR  EXAMPLE, 

A0899 

FCADRMM1 

FCADR 

P 79 

A0900 

FCADR 

PROG  1 8 
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UPON  RETURN  FROM  FINdVAC  PLAGE  THE 
NEW  MM  IN  MODREG  (THE  LOW  7 BITS  OF 
PHSPRDT 1 ) 


RELEASE  DISPLAY 
AND  FX  IT 


START  OF  P 79 
START  OF  P 18 
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245 


A0901 


FCADR  P01 


START  OF  P 01 


R0902  NOTE,  THE  FIRST  ENTRY  MUST  BE  LABLED  FCADRMM 1 . 
R0903  


0905 

04,2440 

FCADRMM 1 EQUALS 

0906 

REF 

1 

04,2440 

26207 

0 

FCADR 

P76ER77 

09065 

REF 

2 LAST  245 

04,2441 

26207 

0 

FCADR 

P76ER77 

0907 

REF 

1 

C4, 2442 

72647 

1 

FCADR 

P 75 

0903 

REF 

1 

04,2443 

72457 

1 

FCADR 

P 74 

0909 

REF 

l 

04,2444 

72225 

1 

FCADR 

P73 

0910 

REF 

1 

04,2445 

72036 

1 

FCADR 

P72 

091  1 

REF 

1 

04, 2446 

71271 

0 

FCADR 

LAND JUNK 

0912 

REF 

1 

04,2447 

64602 

1 

FCADR 

P63LM 

0913 

REF 

1 

04,2450 

332  74 

0 

FCADR 

P 57 

0914 

REF 

1 

04,2451 

32201 

0 

FCADR 

PRDG52 

0915 

REF 

1 

04,2452 

3 1 A 04 

0 

FCADR 

P51 

0916 

REF 

1 

04,2453 

7 5 4 3 7 

0 

FCADR 

P47LM 

091  7 

REF 

1 

04,2454 

75411 

1 

FCADR 

P42LM 

0918 

REF 

1 

04 , 2455 

75271 

1 

FCADR 

P4LLM 

0919 

REF 

1 

04, 2456 

75146 

0 

FCADR 

P40LM 

0922 

REF 

1 

04,2457 

72643 

0 

FCADR 

P 35 

092  3 

REF 

1 

04,2460 

72455 

0 

FCADR 

P 34 

0924 

REF 

1 

04,2461 

72223 

1 

FCADR 

P 33 

0925 

REF 

1 

04,2462 

72034 

0 

FCADR 

P32 

0927 

REF 

1 

04,2463 

72000 

1 

FCADR 

P30 

0928 

REF 

1 

04,2464 

50462 

1 

FCADR 

PROG 2 5 

0929 

REF 

1 

04,2465 

50000 

1 

FCADR 

PR0G22 

0930 

REF 

1 

04,2466 

51441 

1 

FCADR 

PR0G2 1 

0931 

REF 

1 

04,2467 

5COOO 

1 

FCADR 

PR0G20 

0932 

REF 

1 

04,2470 

60061 

0 

FCADR 

P 12LM 

093  3 

REF 

1 

04,2471 

77654 

0 

FCADR 

P06 

R0934  THE  PREMM  TABLE  CONTAINS  THE  E-BANK, MAJOR  MODE,  AND  PRIORITY 

R0935  • INFORMATION,  IT  IS  IN  THE  FOLLOWING  FORM, 


R 093  6 


PPP  PPE  EEM  MMM  MMM 


R0937  WHERE 'THE  7 M BITS  CONTAIN  THE  MAJOR  MODE  NUMBER 

R0938  3 E BITS  CONTAIN  THE  E-BANK  NUMBER 

R0939  5 P BITS  CONTAIN  THE  PRIORITv  AT  WHICH  THE  JOB  IS 

R0940  TO  BE  STARTED 


R0941  FOR  EXAMPLE, 


A0942 

PREMM 1 

OCT 

67213 

PRIORITY 

33 

A 094  3 

F-BANK 

5 

A0944 

MAJOR  MODE 

11 

A 0 94  5 

OCT 

25437 

PRIOR ITY 

i; 

A 094  6 

E-BANK 

6 

A 094  7 

MAJOR  MODE 

31 

GAP 
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R0948 

NOTE, 

THE 

FIRST 

ENTRY  MUST 

BE  LABELED  PREMMl 

0950 

04,2472 

PREMMl 

EQUALS 

09505 

04,2472 

27715 

1 

OCT 

27715 

0951 

04,2473 

2 77  14 

0 

OCT 

27714 

0952 

04,2474 

27713 

l 

OCT 

27713 

0953 

04,2475 

277  12 

0 

OCT 

27712 

0954 

04,2476 

2 7 7 1 1 

0 

OCT 

2771 1 

095  5 

04,2477 

27710 

1 

OCT 

27710 

0956 

04,2500 

27704 

l 

OCT 

27704 

095  7 

04,2501 

27677 

1 

OCT 

27677 

095  8 

04,2502 

27271 

0 

OCT 

27271 

0959 

04,2503 

27264 

1 

OCT 

2 7264 

0960 

04,2504 

27263 

0 

OCT 

27263 

0961 

04,2505 

27657 

0 

OCT 

27657 

096  2 

04,2506 

27652 

0 

OCT 

27652 

096  3 

04,2507 

27651 

0 

OCT 

27651 

0964 

04,2510 

27650 

1 

OCT 

27650 

0967 

04,2511 

2 7 643 

0 

OCT 

27643 

0968 

04,2512 

27642 

1 

OCT 

2 7642 

0969 

04,2513 

27641 

1 

OCT 

2 7641 

0970 

04,2514 

27640 

0 

OCT 

2 7640 

0972 

04,2515 

27636 

1 

OCT 

27636 

0973 

04,2516 

27631 

0 

OCT 

2 7631 

0974 

04, 2517 

27626 

0 

OCT 

27626 

0975 

04,2520 

27625 

0 

OCT 

27625 

0976 

04,2521 

27624 

1 

OCT 

27624 

0977 

04,2522 

27614 

1 

OCT 

27614 

0978 

04,2523 

27006 

1 

OCT 

27006 

R0979 

NJTC  , 

THE 

FOLLOWING  CONSTANT  IS  THE 

NUMBER  OF 

ENTRIES  IN  EACH 

R0980 

— 

THE 

ABOVE 

L I STS- l ( IE, 

THE  NUMBER  OF  MAJUR  MODES! EXCEPT  I 

R0981 

THAT 

CAN  1 

BE  CALLED  FROM  THE 

KEYBOARD  MINUS  ONE) 

0982 

04,2524 

00031 

0 

N0V37MM 

DEC 

2 5 

0984 

04,2525 

DNLADMM1  EQUALS 

09845 

REF 

l 

04,2525 

00002 

0 

ADRES 

RENDEZVL 

0985 

REF 

2 

LAST 

246 

04,2526 

00002 

0 

ADRES 

RENDEZVL 

0986 

REF 

3 

LAST 

246 

04,2527 

00002 

0 

ADRES 

RENDEZVL 

0987 

REF 

4 

LAST 

246 

04,2530 

OCC02 

0 

ADRES 

RENDEZVL 

0988 

REF 

5 

LAST 

246 

04,2531 

00002 

0 

ADRES 

RENDEZVL 

098  9 

REF 

6 

LAST 

246 

04,2532 

00002 

0 

ADRES 

RENDEZVL 

0990 

REF 

l 

04,2533 

0C004 

0 

ADRES 

DESASCNT 

0991 

REF 

2 

LAST 

246 

04,2534 

0C004 

0 

ADRES 

DESASCNT 

0992 

REF 

1 

04,2535 

CCC05 

1 

ADRES 

LUNRSALN 

099  3 

REF 

1 

04,2536 

00000 

1 

ADRES 

COSTALIL 

0994 

REF 

2 

LAST 

246 

04,2537 

ocooo 

l 

ADRES 

COSTAL  I L 

0995 

REF 

l 

04,2540 

00C03 

1 

ADRES 

ORBMANUL 

0996 

REF 

2 

LAST 

246 

04,2541 

00003 

1 

ADRES 

ORBMANUL 

099  7 

REF 

3 

LAST 

246 

04,2542 

00003 

1 

ADRES 

ORBMANUL 
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MM 

77 

EBANK  7 

’ PR 

: I 0 13 

MM 

76 

EBANK 

7 

PRIO 

13 

MM 

75 

EBANK 

7 

pr  in 

13 

MM 

74 

EBANK 

7 

PRIO 

13 

MM 

73 

EBANK 

7 

PRIO 

13 

MM 

72 

EBANK 

7 

PRIO 

13 

MM 

68 

EBANK 

7 

PRIO 

13 

MM 

63 

EBANK 

7 

PRIO 

13 

MM 

57 

EBANK 

5 

PRIO 

13 

MM 

52 

EBANK 

5 

PRIO 

13 

MM 

51 

EBANK 

5 

PRIO 

13 

MM 

47 

EBANK 

7 

PRIO 

1 3 

MM 

42 

EBANK 

7 

PR  10 

13 

MM 

41 

EBANK 

7 

PRIO 

13 

MM 

40 

EBANK 

7 

PRIO 

13 

MM 

35 

EBANK 

7 

PRIO 

13 

MM 

34 

EBANK 

7 

PRIO 

13 

MM 

33 

EBANK 

7 

PRIO 

13 

MM 

32 

F BANK 

7 

PRIO 

13 

MM 

30 

EBANK 

7 

PRIO 

1 3 

MM 

25 

EBANK 

7 

PRIO 

13 

MM 

22 

EBANK 

7 

PRIO 

13 

"■ 

21 

EBANK 

7 

PRIO 

13 

MM 

20 

EBANK 

7 

PRIO 

13 

MM 

12 

F BANK 

7 

PRIO 

13 

MM 

06 

FBANK 

4 

PRIO 

13 

MM'S  - 1 


P 7 7 
P76 
P75 
P74 
P 7 3 
P72 
P60 
P63 
P57 
P52 
P5  1 
P47 
P42 
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0998 

REF 

4 

LAST 

246 

04,2543 

00003 

1 

ADRES 

ORBMANUL 

1001 

REF 

7 

LAST 

246 

04,2544 

00002 

0 

ADRES 

R ENDEZVL 

1002 

REF 

8 

LAST 

247 

04,2545 

00002 

0 

ADRES 

RENDEZVL 

1003 

REF 

9 

LAST 

247 

04,2546 

00002 

0 

ADRES 

R ENDEZVL 

1004 

REF 

10 

LAST 

247 

04, 2547 

0CC02 

0 

ADRES 

RENDEZVL 

1006 

REF 

11 

LAST 

247 

04,2550 

00002 

0 

ADRES 

RENDEZVL 

1007 

REF 

12 

LAST 

247 

C4.2551 

OCC02 

0 

ADRES 

RENDEZVL 

1008 

REF 

2 

LAST 

246 

04,2552 

00005 

I 

ADRES 

LUNRSALN 

1009 

REF 

13 

LAST 

247 

04,2553 

CCC02 

0 

ADRES 

RENDEZVL 

1010 

REF 

14 

LAST 

247 

04,2554 

00002 

0 

ADRES 

RENDEZVL 

101  1 

REF 

3 

LAST 

246 

04,2555 

00004 

0 

ADR  ES 

DESASCNT 

1012 

REF 

3 

LAST 

246 

04,2556 

00000 

1 

ADRES 

COSTAL IL 

1013 

REF 

16 

LAST 

239 

4 746 

DNLADPOO 

= 

ZERO 

1014 

0000 

COST AL IL 

= 

0 

1015 

0001 

AGSUP  DAT 

= 

1 

1016 

0002 

RFNDEZVL 

= 

2 

101  7 

0003 

DRBMANUL 

= 

3 

1018 

0004 

DESASCNT 

= 

4 

1019 

0005 

LUNRS ALN 

= 

5 

1020 

13,2026 

BANK 

13 

102  1 

RFF 

2 

LAST 

48 

13,2000 

SETLOC 

INTINIT 

1022 

13,2026 

BANK 

1023 

REF 

2 

LAST 

48  TO 

48: 

2 

2* 

COUNT* 

t$/INTIN 

1024 

REF 

2 

LAST 

1 16 

E3, 1554 

EBANK= 

R RECTCSM 

P 1 02  5 

THIS 

RCUTINE  DOES  THE 

POO  INTEGRATION 

1026 

13,2026 

43014 

0 

STATEUP 

SET 

BOF 

1027 

REF 

1 

13,2027 

C 1 4 74 

l 

V INTFLAG 

1028 

REF 

1 

13,2030 

04347 

0 

SURFFLAG 

1029 

REF 

1 

13,2031 

26036 

0 

DOINT 

1030 

13,2032 

43014 

0 

BOF 

SET 

103  1 

REF 

l 

13,2033 

02  756 

1 

RENDWFLG 

1032 

REF 

2 

LAST 

247 

13,2034 

26036 

0 

DOINT 

1033 

REF 

1 

13,2035 

01476 

0 

DIMOFLAG 

1034 

13,2036 

45014 

0 

DOINT 

CLEAR 

CALL 

103  5 

REF 

1 

13,2037 

01667 

1 

PRECIFLG 

1036 

REF 

1 

13,2040 

27172 

0 

INTEGRV 

1037 

13,2041 

71214 

0 

BON 

DLOAD 

103  8 

REF 

2 

LAST 

247 

13,2042 

04307 

1 

SURFFLAG 

1039 

REF 

1 

13,2043 

26063 

0 

NO-INT 

1040 

REF 

3 

LAST 

116 

13,2044 

C 1 5 7 1 

0 

TETCSM 

1041 

REF 

3 

LAST 

2 19 

13,2045 

34041 

0 

STCALL 

TDEC  1 

L042 

REF 

2 

LAST 

240 

13,2046 

2 7447 

0 

I NTST ALL 

1043 

13,2047 

45014 

0 

CLEAR 

CALL 

1044 

REF 

2 

LAST 

247 

13,2050 

01674 

0 

V INTFLAG 

1045 

REF 

1 

13,2051 

26702 

0 

SET  I FLGS 
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P40 
P35 
P 3 4 
P33 
P32 
P30 
P25 
P22 
P21 
P20 
P12 
P06 


EXTRAPOLATE  CM  STATE  VECTOR 

ALSO  6X6  W-MATRIX  IF  LM  ON  LUNAR 
SURFACE  AND  W-MATRIX  VALID 
FOR  RENDEZVOUS  NAVIGATION. 


ENGAGES  4-TIME  STEP  LOGIC  IN  INTEGRATION 
WHEN  MODREG  = 0 


EXTRAPOLATE  LM  STATE  VECTOR 
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1046 

13,2052 

77614 

l 

BOF 

104  7 

REF 

2 

LAST 

247 

13,2053 

C2756 

l 

RENDWFLG 

104  8 

REF 

1 

13,2054 

26060 

0 

D0INT2 

1049 

13,2055 

43014 

0 

SET 

SET 

1050 

REF 

2 

LAST 

24  7 

13,2056 

01476 

0 

DIMOFLAG 

1051 

REF 

1 

13,2057 

01475 

0 

D6DR9FLG 

105? 

13,2060 

4 5)14 

0 

D0INT2 

SET 

CALL 

1053 

REF 

2 

LAST 

247 

13,2061 

01467 

0 

PRECIFLG 

1054 

REF 

2 

LAST 

247 

13,2062 

27172 

0 

INTEGRV 

1055 

13,2063 

77614 

1 

NO- 1 NT 

CLRGO 

1056 

REF 

l 

13,2064 

01236 

1 

NODOFLAG 

1057 

REF 

1 

13,2065 

26670 

1 

ENOINT 

R 105  8 

THISVINT  IS  CALLED 

BY  MI0TQAV1 

AND2 

1059 

13,2066 

43414  l 

THISVINT  CLEAR  RVQ 

1060 

REF  3 LAST  247 

13,2067 

01674  0 

VINTFL. 
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RESTART  TABLES  USER'S  PAGE  NO.  1 EO  S3 

POOO  1 
R0002 

RESTART  TABLES 

R0003 
R0005 
R000  7 
R0009 
R0010 
R0012 
R 0 0 1 4 

THERE  ARE  TWO  FORMS  OF  RESTART  TABLES  FOR  EACH  GROUP.  THEY  ARE  KNOWN  AS  THE  EVEN  RESTART  TABLES  AND  THE  ODD 
RESTART  TABLES.  THE  ODD  TABLES  HAVE  ONLY  ONE  ENTRY  OF  THREE  LOCATIONS  WHILE  THE  EVEN  TABLES  HAVE  TWO  ENTRIES 
EACH  USING  THREE  LOCATIONS.  THE  INFORMATION  AS  TO  WHETHER  IT  IS  A JOB,  WAITLIST,  OR  A LONGCALL  IS  GIVEN  BY  THE 
WAY  THINGS  ARE  PUT  INTO  THE  TABLES. 

A JOB  HAS  ITS  PRIORITY  STORED  IN  PRDTTAB  OF  THE  CORRECT  PHASE  SPOT  - A POSITIVE  PRIORITY  INDICATES  A 
FINOVAC  JOB,  A NEGATIVE  PRIORITY  A NOVAC.  THE  2C ADR  OF  THE  JOB  IS  STORED  IN  THF  C ADR  TAB • 

FOR  EXAMPLE, 

A0015 

A0016 

5.7SP0T  OCT  23000 

2C ADR  SOMEJOB 

R001  7 

A RESTART  OF  GROUP  5 WITH  PHASE  SEVEN  WOULD  THFN  CAUSE  SOMEJOB  TO  BE  RESTARTED  AS  A FINDVAC  WITH  PRIORITY  23. 

A0019 

A0020 

5.5SP0T  OCT  -23000 

2C ADR  ANYJOB 

R002  1 
R0023 
R0025 
R0027 

HERE  A RESTART  OF  GROUP  5 WITH  PHASE  7 WOULD  CAUSE  ANYJOB  TO  BE  RESTARTED  AS  A NOVAC  WITH  PRIORITY  23. 

A LONGCALL  HAS  ITS  GENADR  OF  ITS  2CADR  STORED  NEGATIVELY  AND  ITS  BBCON  STORED  POSITIVELY.  IN  ITS  PRDTTAB  IS 
PLACED  THE  LOCATION  CF  A DP  REGISTER  THAT  CONTAINS  THE  DELTA  TIME  THAT  LONGCALL  HAD  BEEN  ORIGINALLY  STARTED 
WITH.  EXAMPLE, 

A0028 

A0029 

A0030 

3.6SP0T  GENADR  DELTAT 

-GENADR  LONGTASK 
BBCON  LONGTASK 

A003  1 
A0032 

OCT  31000 

2CADR  JOBAGAIN 

R0033 
R0035 
R003  7 

THIS  WOULD  START  UP  LONGTASK  AT  THE  APPROPRIATE  TIME,  OR  IMMEDIATELY  IF  THE  T I MF  HAD  ALREADY  PASSED.  IT  SHOULD 
BE  NUTED  THAT  IF  DELTAT  IS  IN  A SWITCHED  E BANK,  THIS  INFORMATQIN  SHOULD  BE  IN  THF  BBCON  OFTHE  2CADR  OF  THE 
TASK.  FROM  ABOVE,  WE  SEE  THAT  THE  SECOND  PART  OF  THIS  PHASE  WOULD  BE  STARTED  AS  A JOB  WITH  A PRIORITY  OF  31. 

R0039 

R0041 

R0043 

R0045 

R0047 

R0049 

WAITLIST  CALLS  ARE  IDENTIFIED  BY  THE  FACT  THAT  THEIR  2CADR  IS  STORED  NEGATIVELY.  IF  PRDTTAB  OF  THF  PHASE  SPOT 
IS  POSITIVE,  THEN  IT  CONTAINS  THE  DELTA  TIME,  IF  PRDTTAB  IS  NEGATIVE  THEN  IT  IS  THE  -GENADR  OF  AN  ERASABLE 
LOCATICN  CONTAINING  THE  DELTA  TIME,  THAT  IS,  THE  TIME  IS  STORED  INDIRECTLY.  IT  SHOULD  BE  NOTED  AS  ABOVE,  THAT 
IF  THE  TIME  IS  STORED  INDIRECTLY,  THE ■ BBCON  MUST  CONTAIN  THE  NECESSARY  E BANK  INFORMATION  IF  APPLICABLE.  WITH 
WAITLIST  WE  HAVE  ONE  FURTHER  OPTION,  IF  -0  IS  STORED  IN  PRDTTAB,  IT  WILL  CAUSE  AN  IMMEDIATE  RESTART  OF  THE 
TASK.  EXAMPLES, 

A005  0 
A0051 

OCT  77777  THIS  WILL  CAUSE  AN  IMMEDIATF  RESTART 

-2CADR  ATASK  OF  THE  TASK  : AT  ASK : 

A0052 

A0053 

A0054 

A0055 

DEC  200  IF  THE  TIME  OF  THE  2 SECONDS  SINCE  DUMMY 

-2CADR  DUMMY  WAS  PUT  ON  WAITLIST  IS  UP,  IT  WILL  BEGIN 

IN  10  MS,  OTHERWISE  IT  WILL  BEGIN  WHEN 
IT  NORMALLY  WOULD  HAVE  BEGUN. 

GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021U2-161 

L RESTART  TABLES 


A0056 

-GENADR 

DTIME 

A0057 

-2CADR 

TASKTASK 

R0058 

NOW  THE  TABLES  THEMSELVES  ***** 

0059 

01,2002 

BANK 

01 

0060 

REF 

l 

01,2000 

SETLCC 

RESTART 

006  1 

01,2002 

BANK 

006  2 

01,2000 

PRDTTAB 

EQUALS 

12000 

006  3 
A 006  4 

01,2001 

C ADR  TAB 

EQUALS 

12001 

0065 

REF 

1 

COUNT* 

$$/RSTAB 

0066 

REF 

l 

01,2002 

0 0010 

0 

SIZETAB 

TC 

1.2SP0T 

006  7 

REF 

1 

01,2003 

0 0020 

0 

TC 

1 .3SP0T 

006  8 

REF 

1 

0 L , 2 004 

0 0010 

0 

TC 

2.2SP0T 

0069 

REF 

l 

01,2005 

0 0026 

0 

TC 

2.3SPOT 

0070 

REF 

1 

01,2006 

0 CC10 

0 

TC 

3.2SP0T 

0071 

REF 

1 

01,2007 

0 0C56 

1 

TC 

3.3SP0T 

0072 

REF 

1 

01,2010 

0 0062 

0 

TC 

4.2SP0T 

0073 

REF 

1 

01,2011 

0 0072 

1 

TC 

4.3SP0T 

0074 

REF 

1 

0 L , 20  1 2 

0 C 145 

1 

TC 

5.2SPOT  • 

0075 

REF 

1 

OL, 2013 

0 C J.  63 

0 

TC 

5.3SP0T 

0076 

REF 

1 

01,2014 

0 CC10 

0 

TC 

6.2SP0T 

0077 

REF 

1 

01,2015 

0 Cl  74 

0 

TC 

6.3SP0T 

0078 

01,2016 

21000 

1 

1 . 2 SPOT 

OCT 

21000 

007  9 

REF 

30 

LAST 

224 

0074 

EBANK= 

STATE 

0080 

REF 

3 

LAST 

244 

01,2017 

05146 

l 

2CADR 

ENDUE  JOB 

0080 

01,2020 

04060 

0 

008  1 

01,2021 

00144 

0 

DEC 

100 

0082 

REF 

31 

LAST 

250 

0074 

EBANK= 

STATE 

0083 

REF 

3 

LAST 

176 

01 , 2022 

05263 

0 

2C  ADR 

TASKOVER 

0083 

01,2023 

04060 

0 

R0084 

ANY 

MORE 

GROUP 

l.FVEN  RESTART 

VALUES 

SHOULD  GO  1 

HERE 

0085 

REF 

2 

LAST 

154 

01,2024 

76300 

0 

1 . 3S  POT 

-GENADR 

SAVET-30 

0086 

REF 

2 

LAST 

154 

E7,  1515 

EB ANK= 

DVCNTR 

0087 

REF 

2 

LAST 

239 

01, 2025 

75427 

1 

-2CADR 

ULLGT  ASK 

0087 

01,2026 

03710 

1 

00872 

01,2027 

32000 

0 

1 . 5SP0T 

OCT 

32000 

008  7 4 

REF 

2 

LAST 

157 

E 7 , 1654 

EBANK= 

HMEAS 

00876 

REF 

l 

01,2030 

03555 

l 

2C  ADR 

REREPOS 

00876 

REF 

l 

01,2031 

66067 

0 

R0088 

ANY 

MURE 

GROUP 

1 .ODD 

RESTART 

VALUES  SHOULD  GO  HERE 

0089 

REF 

2 

LAST 

250 

0 L , 2 0 1 6 

2.2SPOT 

EQUALS 

l .2SP0T 

R0090 

ANY 

MCRE 

GROUP 

2. EVEN  RESTART 

VALUES 

SHOULD  GO  1 

HERE 

0091 

REF 

l 

01,2032 

02666 

0 

2.3SP0T 

GENADR 

600SECS 
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WHERE  OTIME  CONTAINS  THE  DEI TA  TIME 
OTHERWISE  THIS  IS  AS  ABOVE 


USED  TO  FIND  THE  PRIORITY  OR  DELTATIME 
THIS  AND  THE  NEXT  RELATIVE  LOC  CONTAIN 
RESTART  2C ADR 

TABLES  IN  BANK  1. 

12006 
12004 
12006 
12004 
12006 
1 200  A 
12006 
12004 
12006 
12004 
12006 
12004 

A DUMMY  EXAMPLE  TO  BE  REPLACED  AS  SOON 


AS  THERE  IS  A LEGITIMATE  1.2SP0T 


GAP: 
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L RESTART  TABLES 


0092 

REF 

1 

01,2033 

75136 

1 

-GENADR 

STATEINT 

0093 

KEF 

3 

LAST 

247 

E3, 1554 

EBANK= 

RRECTCSM 

0094 

REF 

2 

LAST 

251 

01,2034 

26063 

0 

BBCON 

STATEINT 

0095 

01,2035 

05000 

1 

2.5SP0T 

OCT 

05000 

0096 

REF 

4 

LAST 

251 

E3, 1554 

EBANK= 

RRECTCSM 

009  7 

REF 

1 

01,2036 

02650 

0 

2C  ADR 

S TAT  1 NT  1 

0097 

REF 

1 

01,2037 

26063 

0 

009  8 

01, 2040 

02734 

0 

2.7SP0T 

DEC 

1500 

0099 

REF 

4 

LAST 

198 

E7, 1456 

EBANK= 

LOSCOUNT 

0100 

REF 

1 

01,2041 

75455 

1 

■2CADR 

P20LEMC1 

0100 

REF 

1 

01,2042 

27710 

1 

010  1 

01,2043 

14000 

1 

2 . 11  SPOT 

OCT 

14000 

0102 

REF 

5 

LAST 

153 

E 7 , 1762 

EB ANK= 

P21TIME 

0103 

REF 

1 

01,2044 

02476 

0 

2CA0R 

P25LEM1 

0103 

REF 

1 

01,2045 

50C67 

0 

0104 

01, 2046 

1COOO 

0 

2 . 13  S POT 

OCT 

10000 

010  5 

REF 

5 

LAST 

251 

E 7 , 1456 

EBAN  K = 

LOSCOUNT 

0106 

REF 

1 

01,2047 

02231 

0 

2C  ADR 

RELINUS 

0106 

REF 

1 

01,2050 

54067 

1 

0107 

01,2051 

26000 

0 

2 . 15SPGT 

OCT 

26000 

0108 

REF 

6 

LAST 

25  1 

F7, 1456 

EBANK= 

LOSCOUNT 

0109 

REF 

1 

01,2052 

02735 

1 

2C  ADR 

R22RSTRT 

0109 

REF 

1 

01,2053 

50067 

0 

OHO 

01,2054 

77777 

0 

2. 17SP0T 

OCT 

77777 

0111 

REF 

1 

E7, 1700 

EBANK= 

VGPREV 

0112 

REF 

1 

01,2055 

75436 

1 

■2CADR 

RED02 .17 

0112 

REF 

1 

01,2056 

03710 

1 

0113 

01,2057 

0CC31 

0 

2 .21  SPOT 

DEC 

25 

0114 

REF 

3 

LAST 

250 

E7,  1515 

EBANK= 

DVCNTR 

0115 

REF 

1 

01 , 2060 

75735 

1 

■2CADR 

R 10 , R 1 1 

0115 

REF 

1 

01 , 2061 

35710 

1 

R0116 

ANY 

MORE 

GROUP 

2.  ODD 

RESTART 

VALUES  SHOULD  GO  HERE. 

Oil  7 

REF 

3 

LAST 

250 

01,2016 

3 .2SP0T 

EQUALS 

1 . 2S  POT 

ROll  8 

ANY 

MORE 

GROUP 

3. EVEN 

1 RESTART 

VALUES 

SHOULD  GO  HERE 

0119 

REF 

1 

01,2062 

76355 

0 

3.3SP0T  - 

•GENADR 

ZOOMT IME 

l 

REF 

4 

LAST 

251 

E7, 1515 

EB ANK= 

DVCNTR 

012  1 

REF 

1 

01 , 2063 

74107 

1 

■2CADR 

ZOOM 

012  1 

REF 

1 

01 ,2064 

05710 

1 

01212 

01,2065 

20000 

0 

3.5SP0T 

OCT 

20000 

01214 

REF 

3 

LAST 

212 

E7 , 1453 

EBANK= 

TTOGO 

012  16 

REF 

1 

01 ,2066 

02536 

0 

2C  ADR 

S40. 13 

012  16 

REF 

1 

01,2067 

56067 

0 

R0122 

ANY 

MORE 

GROUP 

3. ODD 

RESTART 

VALUES  SHOULD  GO  HERE 

0123 

01,2070 

04704 

0 

4.2SP0T 

DEC 

2500 

0124 

REF 

4 

LAST 

25  1 

E 7 , 1453 

E8ANK= 

TTOGO 

17:  1 1 MAR.  19 
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L 

0125 

0125 

0126 

012  7 

0128 

0128 

R012  9 

013  0 

013  1 

0132 

0132 

0133 

0 13  A 

0135 

0135 

0136 

0137 

01 

0138 

0139 

0140 

0141 

014  1 

0142 

0143 

0144 

0144 

0145 

0146 

0147 

014  7 

0148 

0149 

0150 

0150 

015  1 

0152 

1153 

0153 

1154 

0155 

0156 

0156 

015  7 

0158 

015 

0160 
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REF 

1 

01,2071 

75423 

0 

-2CADR 

T I G— 5 

REF 

1 

01,2072 

03710 

1 

01,2073 

77777 

0 

OCT 

77777 

REF 

5 

LAST 

251 

E7, 1453 

EBANK= 

TTOGO 

RFF 

1 

01,2074 

75433 

1 

-2CADR 

RED04.2 

REF 

1 

01,2075 

037  10 

1 

ANY 

MORE 

GROUP 

4. EVEN  RESTART 

VALUES 

SHOULD  GO  HERE 

01,2076 

2 5 000 

0 

4.3SP0T 

OCT 

2 5000 

REF 

5 

LAST 

251 

E 7 , 1 5 1 5 

EBANK= 

DVCNTR 

REF 

1 

01,2077 

C3443 

1 

2CADR 

GOABORT 

REF 

1 

01 ,2100 

64067 

1 

01,2101 

00062 

0 

4.5SP0T 

DEC 

50 

REF 

6 

LAST 

252 

E7, 1453 

EBANK= 

TTOGO 

REF 

1 

01,2102 

75216 

0 

-2CADR 

ULLAGOFF 

REF 

1 

01,2103 

03710 

1 

01,2104 

00764 

1 

4.7SP0T 

DEC 

500 

REF 

6 

LAST 

252 

E7, 1515 

EBANK= 

DVCNTR 

REF 

1 

01, 2105 

75370 

1 

-2CADR 

T IG-0 

REF 

1 

01,2106 

03710 

1 

REF 

3 

LAST 

205 

01,2107 

76260 

1 

4. 11SP0T 

-GENADR 

T GO  +1 

REF 

7 

LAST 

252 

E 7, 1515 

EBANK= 

DVCNTR 

REF 

1 

01,2110 

74234 

1 

-2CADR 

ENGOFTSK 

REF 

1 

01,2111 

03710 

1 

01,2112 

12000 

1 

4 . 13  SPOT 

OCT 

12000 

REF 

6 

LAST 

215 

E7, 1462 

EBANK= 

TRKMKCNT 

REF 

1 

01,2113 

03222 

0 

2C  ADR 

POSTBURN 

REF 

1 

01 , 2114 

74067 

0 

01,2115 

0 C 764 

1 

4. 15  SPOT 

DEC 

500 

REF 

7 

LAST 

252 

E7, 1453 

EBANK= 

TTOGO 

REF 

1 

01,2116 

75477 

1 

-2CADR 

TIG-30 

REF 

1 

1,2117 

03710 

1 

01,2  120 

77777 

0 

4 . 1 7 S POT 

OCT 

77777 

REF 

8 

LAST 

252 

E7, 1515 

EB ANK= 

DVCNTR 

REF 

2 

LAST 

252 

01,2121 

75423 

0 

-2CADR 

TIG-5 

01,2122 

03710 

1 

01,2123 

13000 

0 

4 . 2 1 SPOT 

OCT 

13000 

REF 

2 

LAST 

128 

E5 , 1730 

EB ANK= 

STAR 

REF 

1 

01,2124 

03026 

0 

2CADR 

R 5 1 . 1 +1 

REF 

1 

01,2125 

30065 

1 

01,2126 

77777 

0 

4 . 23  SPOT 

OCT 

77777 

REF 

9 

LAST 

252 

E7,  1515 

EBANK= 

DVCNTR 

REF 

1 

01, 2127 

75344 

0 

-2CADR 

IGNITION 

REF 

1 

01,2130 

03710 

1 

RFF 

3 

LAST 

250 

01,2  131 

01477 

1 

4 . 25  S POT 

GENADR 

S AVET-30 

REF 

l 

01,2132 

75535 

0 

-GENADR 

T IG-35 

REF 

4 

LAST 

252 

E 7 , 1477 

EBANK= 

S A VET— 30 

REF 

2 

LAST 

252 

01,2133 

74067 

0 

BBCON 

TIG-35 

GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  202UI2-161 

L RESTART  TABLES 


Olfa  l 

01,2134 

52777 

1 

4.27SP0T 

OCT 

52777 

0162 

REF 

10 

LAST 

252 

E7, 1515 

EBANK= 

DVCNTR 

0163 

REF 

1 

01,2135 

02133 

1 

2CADR 

P70A 

0163 

REF 

1 

0 l, 2136 

42C67 

0 

0164 

01,2137 

52777 

1 

4.31SP0T 

OCT 

52777 

0165 

REF 

11 

LAST 

253 

E 7 , 1 5 1 5 

EBANK= 

DVCNTR 

0166 

REF 

1 

01,2140 

02136 

1 

2C  ADR 

P71A 

0166 

REF 

1 

01,2141 

42067 

0 

0167 

01,2142 

46777 

1 

4. 33  SPOT 

OCT 

46777 

0168 

REF 

12 

LAST 

253 

E7, 1515 

EBANK= 

DVCNTR 

0169 

REF 

2 

LAST 

235 

01,2143 

02040 

1 

2CADR 

GOPOOFI X 

0169 

01, 2144 

10067 

1 

0170 

01,2145 

46777 

1 

4.35SP0T 

OCT 

46777 

017  1 

REF 

13 

LAST 

253 

E7, 1515 

EBANK= 

DVCNTR 

0172 

REF 

1 

01,2146 

05661 

0 

2CADR 

GOPOODOO 

0172 

REF 

1 

01,2147 

04067 

1 

0173 

01,2150 

52777 

1 

4.37SP0T 

OCT 

52777 

0174 

REF 

1 

E7, 1455 

FBANK= 

WHICH 

0175 

REF 

1 

01,2151 

02570 

1 

2C  ADR 

COMF A I L 

0175 

REF 

1 

01,2152 

74067 

0 

R0176 

ANY 

MORE 

4. ODD 

RESTART  VALUES 

SHOULD 

GO 

HERE  . 

0177 

01 ,2  153 

22000 

1 

5 .2SP0T 

OCT 

22000 

0178 

REF 

14 

LAST 

253 

E7, 1515 

EBANK= 

DVCNTR 

0179 

REF 

1 

01,2154 

03661 

0 

2CADR 

NORMLIZE 

0179 

REF 

1 

01,2155 

64067 

1 

0180 

01,2156 

0C310 

0 

DEC 

200 

0181 

REF 

15 

LAST 

253 

E7, 1515 

EBANK= 

DVCNTR 

0 1C  2 

REF 

1 

01 ,2157 

74164 

1 

-2CADR 

REREAOAC 

0182 

REF 

1 

01,2160 

C 1 7 1 0 

0 

0183 

01,2161 

00310 

0 

5 .4SP0T 

DEC 

200 

0184 

REF 

16 

LAST 

253 

E7, 1515 

EBANK= 

DVCNTR 

0185 

REF 

2 

LAST 

253 

01,2162 

74  16* 

1 

-2CADR 

REREAOAC 

0185 

01,2163 

01710 

0 

0186 

01,2164 

20000 

0 

OCT 

20000 

0187 

REF 

17 

LAST 

253 

E7, 1 515 

EBANK= 

DVCNTR 

0188 

REF 

l 

01,2165 

02121 

1 

2CADR 

SERVICER 

018  8 

REF 

1 

01,2166 

6 6 C 6 7 

0 

R0189 

ANY 

MORE 

GROUP 

5. EVEN  RESTART 

VALUES 

SHOULD  GO  HERE 

0190 

01,2167 

CC310 

0 

5 . 3S  POT 

DEC 

200 

019  l 

REF 

18 

LAST 

253 

E7, 1515 

EBANK= 

DVCNTR 

0192 

REF 

3 

LAST 

253 

01,2170 

74  164 

1 

-2CADR 

REREAOAC 

0192 

01,2171 

01710 

0 

0193 

01,2172 

77777 

0 

5.5SP0T 

OCT 

77777 

0194 

REF 

19 

LAST 

253 

E7, 1515 

ERANK= 

DVCNTR 

0195 

REF 

1 

01,2173 

74335 

1 

■ 2C ADR 

RED05 .5 

0195 

REF 

1 

01,2174 

01710 

0 
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0196 

01,2175 

77777 

0 

5.7SP0T 

OCT 

77777 

0197 

REF 

20 

LAST 

253 

E7,  1515 

EBANK= 

DVCNTR 

0198 

REF 

1 

01,2176 

74370 

0 

-2CADR 

BIBIBIAS 

0198 

REF 

1 

01,2177 

C 1 7 1 0 

0 

R 0 1 9 9 

ANY 

MCRE 

GROUP 

5.0CD 

RESTART 

VALUES 

SHOULO  GO  HERE 

0200 

REF 

4 

LAST 

25  1 

01,2016 

6.2SP0T 

EQUALS 

l . 2 S POT 

0201 

01,2200 

00144 

0 

6.3SP0T 

DEC 

100 

020  2 

REF 

6 

LAST 

214 

E7, 1441 

EBANK= 

TIG 

0203 

REF 

1 

01,2201 

75061 

1 

-2CADR 

CLOKTASK 

0203 

REF 

1 

01,2202 

03710 

1 

0204 

01,2203 

30000 

1 

6.5SP0T 

OCT 

30000 

0205 

REF 

2 

LAST 

117 

E3 , 1 706 

EBANK= 

TEPHEM 

0206 

REF 

1 

01,2204 

03603 

l 

2C  ADR 

T IMEDIDR 

0206 

REF 

1 

01,2205 

10063 

0 

0207 

01,2206 

17000 

1 

6.7SP0T 

OCT 

17000 

0208 

REF 

2 

LAST 

251 

E7, 1700 

EBANK= 

VGPREV 

0209 

REF 

l 

01 ,2207 

03355 

1 

2C  ADR 

RED06.7 

0209 

REF 

1 

01,2210 

74067 

0 

0210 

01,2211 

17000 

1 

6 . 1 l SPOT 

OCT 

17000 

021  1 

REF 

3 

LAST 

254 

E 7 , 1700 

EBA  NK  = 

VGPREV 

0212 

REF 

1 

01,2212 

03364 

0 

2CAUR 

FKP5RST 

0212 

REF 

1 

01,2213 

74067 

.0 
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FO  S3 


PROTECT  INCREMENTING  OF  TIME?,TIME1  BY 
P27IUPDATE  PROGRAM)  VIA  V70  OR  V73. 
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L AOTMARK 


0002 

REF 

1 

07,2000 

SETLOC 

AOTMARK! 

0003 

07,2000 

BANK 

0004 

REF 

2 

LAST 

151 

F7, 1551 

EBANK= 

XYMARK 

0005 

REF 

1 

COUNT* 

$t/M ARK 

0006 

07,2000 

0 0004 

0 

AOTMARK 

INHINT 

0013 

REF 

2 

LAST 

179 

C 7,  2001 

3 6263 

0 

CAF 

SIX 

0014 

REF 

2 

LAST 

233 

C7, 2002 

7 1043 

0 

MASK 

E XTVbACT 

0015 

REF 

53 

LAST 

243 

C7 , 2003 

10  000 

0 

CCS 

A 

0016 

REF 

1 

07,2004 

1 2037 

0 

TCF 

MKABORT 

001  7 

KEF 

21 

LAST 

195 

07,2005 

3 4743 

0 

CAF 

B IT2 

0018 

REF 

3 

LAST 

255 

C7, 2006 

27 1 043 

0 

ADS 

E XT VB ACT 

001  9 

REF 

3 

LAST 

234 

C7.2007 

10  400 

1 

MKVAC 

CCS 

VAC1USE 

0020 

REF 

1 

C7.2010 

1 2024 

1 

TCF 

MKVACFND 

002  1 

REF 

2 

LAST 

232 

07,2011 

10  454 

0 

CCS 

VAC2USE 

002  2 

REF 

2 

LAST 

255 

07,2012 

1 2024 

1 

TCF 

MKVACFND 

0023 

REF 

2 

LAST 

232 

07,2013 

10  530 

0 

CCS 

VAC3USE 

0024 

REF 

3 

LAST 

255 

07,2014 

1 2024 

1 

TCF 

MKVACFND 

002  5 

REF 

2 

LAST 

233 

07,2015 

.10  604 

1 

CCS 

V AC4USE 

0026 

REF 

4 

LAST 

255 

07,2016 

1 2C24 

1 

TCF 

MKVACFND 

002  7 

REF 

2 

LAST 

233 

07,2017 

10  660 

0 

CCS 

VAC5USE 

0028 

REF 

5 

LAST 

255 

C7 , 2020 

1 2024 

1 

TCF 

MKVACFND 

0029 

REF 

1 

07,202  1 

52  134 

0 

DXCH 

BUF2 

00292 

REF 

1 

07,2022 

0 57  12 

0 

TC 

B A I LOUT  1 

0030 

07,2023 

31207 

0 

OCT 

31207 

003  1 

REF 

3 

LAST 

198 

07,2024 

6 4743 

0 

MKVACFND 

AD 

TWO 

0032 

REF 

2 

LAST 

233 

07,2025 

55' 307 

0 

TS 

MARKSTAT 

003  3 

REF 

17 

LAST 

247 

07,2026 

3 4746 

0 

CAF 

ZERO 

0034 

REF 

3 

LAST 

255 

07, 2027 

51  ■ 307 

1 

INDEX 

MARKSTAT 

0035 

07,2030 

53 ' 777 

0 

TS 

0 -1 

0036 

REF 

2 

LAST 

191 

07, 2031 

3 5016 

0 

CAF 

PRI015 

003  7 

REF 

2 

LAST 

222 

07,2032 

0 5076 

0 

TC 

F INDVAC 

003  8 

REF 

3 

LAST 

255 

£7,1551 

EBANK= 

XYMARK 

0039 

REF 

1 

07,2033 

02056 

0 

2CA0R 

GETDAT 

0039 

REF 

1 

07,2034 

16067 

1 

0040 

07,2035 

0 0003 

1 

RELINT 

0041 

REF 

1 

07,2036 

1 4622 

1 

TCF 

SWRE  TURN 

0042 

REF 

2 

LAST 

255 

07,2037 

52  134 

0 

MKABORT 

DXCH 

BUF2 

004  2 2 

RFF 

2 

LAST 

255 

07,2040 

0 5712 

0 

TC 

B A I LOUT  1 

004  3 

07,2041 

31211 

1 

OCT 

31211 

0044 

REF 

18 

LAST 

255 

07,2042 

3 4 746 

0 

MKRELEAS 

CAF 

ZERO 

0045 

REF 

4 

LAST 

255 

07,2043 

57 1 307 

1 

XCH 

MARKSTAT 
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SEE  IF  EXT.  VERB  WORKING 


YES-ABORT 

NO-OI SALLOW  SOME  EXTENDED  VERB  ACTION 
BIT2  RESET  IN  ENDMARK 
LOOK  FOR  A VAC  AREA-DO  ABORT  IF 
NONE  AVAILABLE 


ALL  VAC  AREAS  OCCUPIED  - ABORT. 

STORE  VAC  ADR  IN  LOW  9 OF  MARKSTAT 

ZERO  IN  VACUSE  REG  TO  SHOW  VAC  OCCUPIED 
SET  UP  JOB  FOR  GETDAT 


CONFLICT  WITH  EXTENDED  VFRB 


SET  MARKSTAT  TO  ZERO 


G4P : ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L AOTMARK 


004  6 

PEE 

2 

LAST 

223 

07, 2044 

7 4775 

l 

MASK 

L0W9 

004  7 

REF 

54 

LAST 

255 

07,2045 

10  000 

0 

CCS 

A 

004  0 

REF 

55 

LAST 

256 

07,2046 

50  000 

1 

INDEX 

A 

0049 

07,2047 

54  000 

0 

TS 

0 

0050 

REF 

8 

LAST 

238 

07,2050 

3 4 744 

1 

CAF 

ONE 

0051 

REF 

IC 

LAST 

241 

07,2051 

0 4665 

0 

TC 

I 8NKCALL 

0052 

RFF 

1 

07,2052 

17704 

1 

CADR 

GOODEND 

0052  1 

REF 

19 

LAST 

255 

07, 2053 

3 4746 

0 KILLAOT 

CAF 

ZERO 

00522 

REF 

4 

LAST 

255 

07, 2054 

55' 043 

0 

TS 

EXTVBACT 

00523 

REF 

2 

LAST 

235 

07,2055 

0 6001 

0 

TC 

GOTOPOOH 
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PICK  UP  VAC  AREA  AOR 

SHOW  MKVAC  AREA  AVAILABLE 

GO  WAKE  UP  CALLING  JOB 

TERMINATE  AOTM ARK- AL L OW  EXT  VFRB 


GAP:  ASSEMBLE  REVISION  2L0  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L 

ACTMARK 

P00524 

GETDAT 

ROUTINE 

0053 

REF 

5 

LAST 

255 

07,2056 

4 1307 

0 

GETDAT 

CS 

MARKSTAT 

0053  1 

REF 

15 

LAST 

233 

07,2057 

7 4731 

1 

MASK 

BIT12 

00532 

REF 

6 

LAST 

257 

C7 , 2060 

27' 307 

0 

ADS 

MARKSTAT 

005  A 

REF 

l 

07,2061 

3 2352 

1 

N 7 ID  I SP 

CAF 

V01N71 

0055 

REF 

10 

LAST 

236 

07,2062 

0 4607 

1 

TC 

BANKCALL 

0055  1 

REF 

2 

LAST 

219 

C7, 2063 

20323 

l 

CADR 

GOMARKF 

0056 

REF 

1 

07, 2064 

1 2053 

1 

TC  F 

K ILLAOT 

0057 

REF 

1 

C 7 , 2 065 

1 2067 

0 

TC  E 

DODAT 

0058 

REF 

2 

LAST 

255 

07,2066 

1 2056 

1 

FNTERDAT 

TCF 

GETDAT 

0069 

REF 

1 

07,2067 

3 7765 

1 

DODAT 

CAF 

H IGH9 

0070 

REF 

8 

LAST 

2 14 

07,2070 

7 1235 

0 

MASK 

AOTCODE 

0071 

C7 , 2071 

0 0006 

1 

EXTEND 

0072 

REF 

14 

LAST 

174 

07,2072 

7 4734 

1 

MP 

B IT9 

0073 

REF 

4 

LAST 

255 

07,2073 

55 ' 55 1 

0 

TS 

XYMARK 

0074 

07,2074 

0 0006 

1 

EXTEND 

0075 

REF 

3 

LAST 

257 

07,2075 

6 2056 

0 

BZMF 

GETDAT 

0076 

REF 

1 

07,2076 

6 5652 

0 

AD 

NEG7 

0077 

07,2077 

0 0006 

1 

EXTEND 

0078 

REF 

1 

07,2  100 

1 2102 

1 

BZF 

C0DE7 

00785 

REF 

1 

07,2101 

1 2116 

1 

TCF 

CODE 1T06 

0079 

REF 

1 

07, 2102 

3 2353 

0 

C0DE7 

CAF 

V06N87* 

0080 

REF 

1 1 

LAST 

257 

07, 2103 

0 4607 

1 

TC 

BANKCALL 

0081 

REF 

3 

LAST 

257 

C 7, 2 104 

20323 

1 

CADR 

GOMARKF 

0082 

REF 

2 

LAST 

257 

07,2105 

1 2053 

1 

TCF 

K I LL AOT 

0083 

07,2  106 

1 2110 

1 

TCF 

+ 2 

0004 

REF 

2 

LAST 

257 

07,2  107 

l 2102 

1 

TCF 

CODE  7 

0084  1 

07,2110 

0 0006 

1 

EXTEND 

0085 

REF 

2 

LAST 

1 1 1 

07,2111 

3 1345 

1 

OCA 

AZ 

0086 

REF 

1 

07,2112 

50  120 

1 

INDEX 

FIXLOC 

008  7 

07,2113 

52  Oil 

0 

DXCH 

8D 

0095 

REF 

20 

LAST 

256 

07,2114 

3 4 746 

0 

CAF 

ZERO 

0096 

REF 

1 

07,2115 

1 2132 

1 

TCF 

COASCODE 

009  7 

REF 

5 

LAST 

257 

07,2116 

51 • 551 

l 

CODE 1T06 

INDEX 

XYMARK 

009  8 

REF 

1 

07,2117 

3 1411 

1 

CA 

AOTEL  -1 

0099 

REF 

2 

LAST 

257 

07, 2120 

50  120 

1 

INDEX 

F I XLOC 

0100 

07,2121 

54  Oil 

0 

TS 

9D 

0101 

REF 

6 

LAST 

257 

07,2122 

51  • 551 

1 

INDEX 

XYMARK 

0102 

REF 

2 

LAST 

164 

07,2123 

3 1403 

1 

CA 

AOTAZ  -1 
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SET  BIT12  TO  DISCOURAGE  MARKRUPT 
RIT12  RESET  AT  GET MARK 


DISPLAY  DETENT  AND  STARCODE 


V34-D0ES  GOTOPOOH 

V33-P  ROCEED-U  SE  THIS  STAR  FOR  MARKS 
ENTER-RFDISPLAY  STAR  CODE 

PICK  DETENT  CODE  FROM  BITS7-9  OF  AOTCODE 
AND  SEE  IF  CODE  l TO  6 


STORE  DETENT 


COAS  CALIBRATION  COOF-NO  GOOD  HERE 
SEE  IF  DETENT  7 FOR  COAS 


CODE  /,  COAS  SIGHTING,  GET  OPTIC  AXIS 
AZ  AND  FL  OF  SIGHTING  DEVICE  FROM  ASTRO 


V34-D0ES  GOTOPOOH 
PROCEED 

ON  ENTER,  RFCYCLF 

PICK  UP  AZ  AND  EL  IN  SP  2S  COMP 

STORF  IN  8D  AND  9D  OF  LOCAL  VAC 
BACKUP  SYSTEM  TO  BE  USED 
ZERO  APPARENT  ROTATION 

INDEX  AOT  POSITION  BY  DET  CODE 


STORE  ELEVATION  IN  VAC+9D 


INDEX  DET  CODE  1,2  OR  3 


GAP:  ASSEMBLE  REVISION  210  OE  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 


L AOTMAPK 


0103 

REF 

3 

LAST 

257 

C7.212A 

50  120 

1 

INDEX 

F IXLOC 

010A 

07,2125 

5 A 010 

1 

TS 

3D 

010  5 

REF 

3 

LAST 

257 

07,2126 

3 IA05 

1 

CA 

AOT  A Z + 1 

0106 

07,2127 

0 0006 

1 

EXTEND 

0107 

REF 

A 

LAST 

258 

07,2130 

5 0120 

1 

INDEX 

F IXLOC 

0108 

07,2131 

20  010 

1 

MSU 

8 D 

0109 

REF 

5 

LAST 

258 

07,2132 

50  120 

1 

CCASCDDE  INDEX 

F IXLOC 

0110 

07,2133 

5A  012 

0 

TS 

10D 

0111 

REF 

A 

LAST 

2AC 

07.213A 

0 6060 

l 

TC 

INTPRET 

Oil  1 05* 

07,2135 

5201A 

0 

CLEAR 

GOTO 

01111 

*REF 

2 

LAST 

219 

07,2136 

02276 

0 

XDSPFLAG 

01112 

REF 

1 

07,2137 

3 03  A 7 

1 

OPTAXIS 
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STORE  AZIMUTH  IN  VAC+80 

COMPENSATION  FOR  APPARENT  ROTATION  OF 
AOT  FIELD  OF  VIEW  IN  LEFT  AND  RIGTHT 
DETENTS  IS  STORED  IN  VAC  +10D  IN  SP 
PRECISION  ONES  COMPLEMENT 

ROT  ANGLE 

COMPUTE  X AND  Y PLANE  VECTORS 


GAP: 
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L AOTMARK  USFP'S  PAGE  NO.  5 E7  S3 

P011 2 THE  OPTAXIS  SUBROUTINE  COMPUTES  THE  X AND  Y MARK  PLANE  VECS  AND 

RO  U 3 AND  ROTATES  THEM  THRU  THE  APPARENT  FIELD  OF  VIEW  ROTATION  UNIQUE  TO  AOT 


R0114 

OPTAXIS 

USES 

OANB  TO 

COMPUTE 

01202 

REF 

2 

LAST 

47 

14,2000 

01203 

14,2347 

0121 

14,2347 

012  2 

REF 

1 

14,2350 

0123 

14,2351 

0124 

14,2352 

012  5 

14,2  353 

0126 

14,2354 

0127 

14,2355 

0128 

14,2356 

0129 

14,2357 

0130 

14,2360 

0131 

14,2361 

0132 

14,2362 

0133 

REF 

1 

14,2363 

0134 

14, 2364 

0135 

14,2365 

0137 

14,2366 

i 1 ) 

14,2367 

0138  1 

14,2370 

0139 

REF 

2 

LAST 

15  1 

14,2371 

1140 

REF 

1 

14,2372 

0141 

REF 

3 

LAST 

209 

14,2373 

0141  l 

14,2374 

01412 

REF 

2 

LAST 

240 

14,2375 

014  1 3 

REF 

1 

14,2376 

01414 

REF 

2 

LAST 

127 

E5 , 1642 

014  1 5 

REF 

1 

14,2377 

0 14  16 

REF 

5 

LAST 

23  1 

14,2400 

014  17 

REF 

5 

LAST 

258 

14,2401 

01418 

14,2402 

0142 

REF 

2 

LAST 

219 

14,2403 

0142  7 

REF 

1 

14,2404 

014  2 8 

REF 

1 

14,2405 

01429 

14,2406 

0143 

REF 

7 

LAST 

257 

E7, 1 551 

0143  1 

REF 

1 

14,2407 

01432 

REF 

6 

LAST 

259 

14,2410 

01433 

REF 

12 

LAST 

257 

14,241  1 

014  3 4 

REF 

1 

14,2412 

OPTIC  AXIS 

SETLOC  P50S1 
RANK 


77624 

1 

OPTAXIS 

CALL 

10557 

1 

OANB 

70535 

0 

SLOAD 

SRI 

00013 

0 

10D 

73406 

1 

PUSH 

SIN 

71525 

0 

PDDL 

COS 

74206 

0 

PUSH 

VXSC 

00023 

0 

18D 

74325 

0 

PDDL 

VXSC 

C0C01 

0 

0 

00031 

0 

2 4D 

45445 

0 

BVSU 

STADR 

60244 

0 

STUDL 

Y PL AN  E 

65361 

0 

VXSC 

PDDL 

C0031 

0 

2 40 

53361 

0 

VXSC 

VAD 

00023 

0 

18D 

77626 

0 

STADR 

50252 

1 

STOVL 

XPLANE 

24007 

0 

L06ZFP0S 

02767 

0 

STORE 

STARSAV2 

77414 

0 

BflFF 

EXIT 

04753 

1 

F LT59FLG 

30406 

0 

ENDAXIS 

EBANK= 

XSM 

3 5005 

1 

CA 

EBANK5 

54  003 

0 

TS 

EBANK 

0 6060 

1 

TC 

I NTPRET 

45034 

1 

RTB 

CALL 

21603 

1 

LOADTIME 

16607 

1 

PLANET 

03575 

0 

STORE 

BODY 

77776 

1 

ENDAXIS 

EXIT 

EBANK= 

X YMARK 

3 5007 

0 

CA 

EBANK7 

54  003 

0 

TS 

EBANK 

0 4607 

1 

TC 

BANKCALL 

16140 

0 

CADR 

GETMKS 

GO  COMPUTE  OA  AND  X AND  Y PLANE  VECS 

LOAD  APP  ROTATION  IN  ONES  COMP 
RESCALE  BY  2P I 
1/2SINIR0T)  0-1 

1 / 2C0S I ROT  I 2-3 

1/4C0SIR0T  IUYP  4-9 

1/4SINIR0T )UXP 
UP  4-9 

YPNB=  1/4  I COS  I ROT IUYP- S INI  ROT )UXP) 

UP  2-3  UP  0-1  FOR  EXCHANGE 
1 / 4C0  S I ROT ) UX  P PUSH  0-5 
1 / 4S I N ( ROT ) UY  P 
UP  0-5 


INITIALIZE  AVE  STAR  VEC  ACCUMULATOR 

IF  INFLIGHT  EKM  MARKING  GET  SIGHTING 
BODY  VECTOR  FOR  THET  EST  IN  ITERATION 
LOOP 


PLANET  ROUTINE  USES  EBANK5 


RESTORE  EBANK  IN  CASF  OF  PLANET  BRANCH 


GAP 


ASSEMBLE  RFVISION  21G  CF  A GO  PROGRAM  LUMINARY  BY  NASA  2021112-161 


PO  14  A 
R01A5 
01502 

0 1 50  A 

01506 

0151 

0152 

0153 
0 1 5 A 

0155 

0156 

015  7 

0158 
0150  1 

0159 
' I 

016  1 
0162 
0163 

016  A 

0165 

0166 
0167 

0160 

0169 

0170 

0171 

0172 

0173 

0 1 7 A 

0175 

0176 

0177 

0178 

0179 

0180 
0181 


ACTMARK 


THE  CANB  ROUTINE  COMPUTES  THE  OPTIC  AXIS  OF  THE  SIGHTING  INSTRUMENT 
FRCM  AZIMUTH  ANO  ELEVATION  INPUT  FROM  THE  ASTRONAUT. 

REF  1 OA * 2 000  SETLOC  A0TMARK2 

0 A » 2 55  7 BANK 


REF  I 


RFF  2 LAST 

REF  1 

REF  A LAST 

REF  2 LAST 

REF  2 LAST 

REF  5 LAST 

REF  6 LAST 

REF  7 LAST 

REF  3 LAST 


OA 

,2557 

OA 

,2560 

128 

OA. 

,2561 

OA 

,2562 

OA, 

,2563 

OA, 

, 2 56A 

OA, 

,2565 

OA, 

,2566 

OA, 

,2567 

153 

OA, 

, 2 5'70 

OA, 

,2571 

OA, 

,2572 

260 

OA, 

i 2573 

OA, 

, 2 5 7A 

OA, 

,2575 

OA, 

,2576 

OA, 

,2577 

OA, 

, 2600 

259 

OA, 

2601 

OA, 

,2602 

OA, 

2603 

OA, 

2 60A 

260 

OA, 

2605 

OA, 

2606 

CA, 

2607 

260 

OA, 

2610 

OA, 

2611 

OA, 

2612 

260 

OA, 

2613 

OA, 

26 1 A 

OA, 

2615 

260 

OA, 

26  16 

AA001  0 0 ANB 

00001  0 
02736  1 
A7135  0 
0C012  1 
21606  1 
71A06  0 
73525  l 
77626  0 
6CC12  1 
00011  l 
7763A  0 
21606  1 
71A06  0 
00025  0 
73525  1 
57A06  l 
1A027  l 
2A007  0 
1A023  0 
72A05  0 
00001  0 
17767  l 
72A05  0 
77626  0 
50006  1 
00023  0 
53A35  0 
03765  0 
00031  0 
77650  1 
02736  1 


COUNT  * 

$ t/M ARK 

SETPO 

STQ 

0 

GCTR 

SLGAD 

RT  B 
90 

CDULOGIC 

PUSH 

COS 

PDOL 

STADR 

SIN 

STOOL 

SC  AX  I S 
80 

RT  8 

CDULOGIC 

PUSH 

COS 

STORE 

200 

POOL 

SIN 

PUSH 

OCOMP 

STOOL 

220 

L06ZER0S 

STOOL 

180 

OMP 

SLl 

0 

STOOL 

SC AX  I S +2 

OMP 

SLl 

STAOR 

STOVL 

SC AX  IS  +A 
180 

VXV 

UNIT 

SCAXIS 

STORE 

GOTO 

2 AO 

GCTR 
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STORE  RETURN 
PICK  UP  SP  ELV 

1/2C0SIFLV  ) PO  0-1 

0AX=1/2SIN(ELV) 

PICK  UP  AZ  SP 


STORE  UYP(Y)  20-21 
1/2C0SIAZ)  PO  2-3 
PUSH  1/2SINIAZ)  A- 5 
STORE  UYP(Z)  22-23 

STORE  UVP(X)  18-19  UP  A-5 


OA  Y= 1 / 2C  OS t EL VISINI AZ  ) 
UP  2-3 
UP  0-  1 

0AZ  = 1/  2C0S( ELV1C  OSIAZ ) 
LOAD  UYP  VEC 

UXP  V EC=UY P X OA 
STORE  UXP 


GAP: 
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L AOTMARK 

P0182  SURFSTAR  COMPUTES  A STAR  VECTOR  IN  SM  COORDINATES  FOR  LUNAR 


10183 

SURF 

ACE  ALIGNMENT 

AND  EXITS 

TO  AVEIT  TO  AVERAGE  STAR 

VECTORS . 

0190 

REF 

1 

15,2000 

SETLOC 

P50S 

0191 

15,2004 

BANK 

0192 

REF 

1 

COUNT* 

$$/R59 

0193 

15,2004 

77131 

1 SURFSTAR 

SSP 

A XT  , 2 

0194 

REF 

1 

15,2005 

00052 

0 

S2 

0195 

15,2006 

00001 

0 

1 

0196 

15,2007 

00034 

0 

2 80 

0197 

15,2010 

71214 

0 

CLEAR 

DLOAD 

0198 

REF 

l 

15,2011 

00274 

0 

FREEFLAG 

019  9 

REF 

1 

15,2012 

32161 

0 

GNEDEG 

0200 

REF 

2 

LAST 

15  1 

15,2013 

33572 

1 

STOVL* 

DELTHET 

0201 

15,2014 

00001 

0 

0,1 

0202 

REF 

4 

LAST 

104 

15,2015 

20766 

1 

STOOL* 

CDUS POT 

0203 

15,2016 

0CC10 

0 

7,1 

0204 

15,2017 

77634 

0 

RTB 

0205 

REF 

3 

LAST 

260 

15,2020 

21606 

1 

CDULOGIC 

0206 

15,2021 

34011 

.0 

STCALL 

80 

0207 

REF 

1 

15,2022 

32  141 

1 

ROTCQMP 

020  8 

REF 

1 

15,2023 

23773 

0 

STOOL* 

POINTVSM 

0209 

15,2024 

C0007 

0 

6,1 

0210 

15,2025 

77634 

0 

RTB 

021  1 

REF 

4 

LAST 

261 

15,2026 

21606 

1 

CDULOGIC 

0212 

15,2027 

34013 

1 

STCALL 

1 00 

0213 

REF 

2 

LAST 

261 

15,2030 

32  141 

1 

ROTCOMP 

0214 

15,2031 

77624 

1 

CALL 

0215 

REF 

1 

15,2032 

47656 

1 

TRG*NBSM 

0216 

REF 

6 

LAST 

128 

15,2033 

32715 

0 

STOVL* 

STARAD  +< 

021  7 

15,2034 

0CC02 

0 

1,1 

0218 

REF 

5 

LAST 

261 

15, 2035 

34766 

1 . 

STCALL 

COUSPOT 

0218  1 

REF 

1 

15,2036 

47526 

0 

CD*TR*G 

0219 

15,2037 

71214 

0 

BON 

DLOAD 

0220 

REF 

3 

LAST 

259 

15,2040 

04713 

0 

F LT59FLG 

022  1 

REF 

1 

L 5 , 204 1 

15320 

1 

FLTTHET 

0222 

15,2042 

OCOll 

1 

8D 

0223 

15,2043 

43225 

0 

DSU 

DAD 

0224 

15,2044 

0CC13 

0 

100 

0225 

REF 

l 

15,2045 

32157 

0 

ABOUTONE 

0226 

REF- 

2 

LAST 

15  1 

15,2046 

03564 

0 THETRET 

STORE 

THETEST 

0227 

15,2047 

51025 

1 

DSU 

B PL 

0228 

REF 

1 

15,2050 

32151 

0 

DEG342 

0229 

REF 

1 

15,2051 

32135 

1 

COOL  IT 

0230 

15, 2052 

45345 

1 

DLOAD 

DSU 

0231 

REF 

3 

LAST 

261 

15,2053 

03564 

0 

THETEST 

0232 

REF 

1 

15,2054 

32153 

1 

0EG24 

0233 

15,2055 

45040 

1 

BMN 

CALL 

0234 

REF 

2 

LAST 

26  1 

15,2056 

32  135 

1 

COOL  IT 

0235 

REF 

1 

15,2057 

30413 

1 

SNBCOMP 
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INITIALIZE  LOOP  COUNTER  (XI) 


PICK  UP  CURSOR  MARK  COUS 
PICK  UP  SPIRAL  FROM  MK  VAC 

SPIRAL  IN  REVS 

YPRIME  VEC  FOR  SROT  MF AS.  COOROS. 
PICK  UP  CURSOR 

CURSOR  IN  REVS 
COMPUTE  YP  VEC(NB) 

TRANSFORM  YP  VEC  TO  SM  AT  YROT  MARK 

PICK  UP  SPIRAL  COUS 

GCT  SINES  AND  COSINES  OF  CDUS 

COMPUTE  INITIAL  THETA  EST 

INITIAL  THET  EST  MUST  BE  BETWEEN 
24  AND  342  DFGREES 


POMPUTE  2ST  EST  OF  STAR(SM) 


GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L AOTMARK 


0236 

15,2060 

72441 

0 

DOT 

SL1 

023  61 

REF 

7 

LAST 

261 

15,2061 

02715 

0 

STARAD  +6 

0237 

REF 

2 

LAST 

15  l 

15,2062 

C3566 

1 

SNBTEST 

STORE 

ESTER  1 

0238 

15,2063 

45246 

0 

ABS 

DSU 

0239 

REF 

1 

15,2064 

32155 

l 

COS. 01 

0240 

15,2065 

71240 

1 

BMN 

DLOAD 

0241 

REF 

l 

15,2066 

16275 

0 

AVEIT 

0242 

REF 

3 

LAST 

26  1 

15,2067 

C 3 5 72 

1 

DELTHET 

0243 

15,2070 

77615 

0 

DAO 

0244 

REF 

4 

LAST 

26  1 

15,2071 

03564 

0 

THETEST 

024  5 

REF 

5 

LAST 

262 

15,2072 

37564 

1 

STCALL 

THETEST 

0246 

REF 

2 

LAST 

26  1 

15,2073 

304 1 3 

1 

SN8C0MP 

024  7 

15,2074 

72441 

0 

DOT 

SL1 

0247  1 

REF 

8 

LAST 

262 

15,2075 

02715 

0 

STARAD  +6 

0248 

REF 

2 

LAST 

151 

15,2076 

03570 

0 

STORE 

ESTER2 

0249 

15,2077 

71240 

1 

BMN 

DLOAD 

0250 

REF 

1 

15,2100 

32  105 

l 

NEGEST2 

025  1 

REF 

3 

LAST 

2 62 

15,2101 

03566 

1 

ESTERl 

0252 

15,2102 

52044 

0 

BPL 

GOTO 

0253 

REF 

1 

15,2103 

32120 

0 

WHICHWAY 

0254 

REF 

1 

15, 2104 

32110 

0 

HOME  I N 

0255 

15,2105 

50145 

1 

NEGEST2 

DLOAD 

BMN 

0256 

REF 

4 

LAST 

262 

15,2106 

03566 

l 

ESTERl 

0257 

REF 

2 

LAST 

262 

15,2107 

32120 

0 

WHICHWAY 

0258 

1 -,2110 

65225 

1 

HOME  IN 

DSU 

PDDL 

0259 

REF 

3 

LAST 

262 

15,2111 

03570 

0 

FSTER2 

0260 

RFF 

4 

LAST 

262 

15,2112 

03570 

0 

FSTER2 

026  1 

15,2113 

77671 

1 

DDV 

0262 

15,2114 

77605 

1 

DM  P 

0263 

REF 

4 

LAST 

262 

15,2115 

03572 

1 

DELTHET 

0264 

REF 

5 

LAST 

262 

15,2116 

37572 

0 

STCALL 

DELTHET 

0265 

REF 

1 

15,2117 

32  132 

0 

NEXT  I T 

0266 

15,2120 

65246 

1 

WHICHWAY 

ABS 

PDDL 

0267 

REF 

5 

LAST 

262 

15,2121 

03570 

0 

ESTER2 

026  8 

15,2122 

44246 

l 

ABS 

BDSU 

0269 

15,2123 

43C44 

0 

BPL 

BONSET 

0270 

REF 

2 

LAST 

262 

15,  2124 

32132 

0 

NEXTIT 

0271 

REF 

2 

LAST 

26  1 

15,2125 

00014 

1 

FREEFLAG 

0272 

REF 

3 

LAST 

261 

15,2126 

32135 

1 

COOLIT 

0273 

15,2127 

57545 

l 

DLOAD 

DCOMP 

0274 

REF 

6 

LAST 

262 

15,2130 

03572 

1 

DELTHET 

0275 

REF 

7 

LAST 

262 

15,2131 

03572 

1 

STORE 

DELTHET 

0276 

15,2132 

61145 

0 

NEXT  I T 

DLOAO 

T IX,  2 

027  7 

REF- 

6 

LAST 

262 

15,2133 

03570 

0 

ESTER2 

0278 

REF 

I 

15,2134 

32062 

1 

SNBTEST 

0279 

15,2135 

77776 

1 

COOL  IT 

EX  I T 

0280 

REF 

2 

LAST 

15  1 

15,2136 

25*573 

1 

INCR 

NOMKCNT 

0280  1 

REF 

13 

LAST 

259 

15,2137 

0 4607 

1 

TC 

BANKCALL 

02802 

REF 

1 

15,2140 

16320 

1 

CAOR 

COOLOUT 
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SEE  IF  STAR  IN  YROT  PLANE 

LESS  THAN  EPSILON,  GOT  STAR(SM)  IN  240 

INCREMENT  THETA  EST  BY  1 OEG 
COMPUTE  2ND  EST  OF  STAR  VEC 

SEE  IF  SOLUTION  BETWFEN  ESTERl,  ESTER2 


NO  SnLU,  ARE  WE  GOING  IN  RIGHT  DIRECTION 
SOLUTION  BRACKETED,  GET  FINE  CORRECTION 


FINE  SOLUTION,  THIS  SHOULD  GFT  SNB 

ABS(ESTERl)  0-1 
ABSIESTERl ) -A B S ( E STFR 2 I 


REVERSE  DIRECTION  OF  ESTIMATION 


SEE  IF  10  ITERATIONS  HAVE  BEEN  MADE 


GAP: 
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0231 

15,2141 

71406 

0 

rotcomp 

PUSH 

COS 

0282 

15,2142 

73525 

1 

PDDL 

S IN 

0283 

L5, 2143 

65361 

0 

VXSC 

PDDL 

0284 

REF 

3 

LAST 

259 

15,2144 

03525 

0 

XPLANE 

0285 

15,2145 

52361 

1 

vxsr. 

VSU 

0286 

REF 

2 

LAST 

259 

15,2146 

03533 

1 

YPLANE 

0287 

15,2  147 

43456 

1 

UNIT 

R VO 

0288 

15,2150 

36314 

1 

DEG342 

2DEC 

. 94999999 

0288 

15,2151 

31461 

0 

0289 

15,2152 

02  104 

0 

DEG24 

2DEC 

• 06666666 

0289 

15,2153 

10417 

1 

0290 

15,2154 

00002 

0 

COS. 01 

2DEC 

.0001745 

0290 

15,2155 

33372 

1 

0290  l 

15,2156 

37777 

1 

ABOUTONE 

2DEC 

. 99999999 

02901 

15,2157 

37775 

0 

02902 

15,2160 

OCC55 

l 

UNEDEG 

2DEC 

.00277777 

0290  2 

15,2161 

2 C 264 

0 

02904 

*REF 

1 

06,2000 

SETLOC 

A0TMARK3 

029  U 5 

06, 3320 

BANK 

02906 

06,3320 

64375 

l 

FLTTHET 

VL0  4D 

M XV 

02907 

REF 

2 

LAST 

259 

06,3321 

03575 

0 

BODY 

02908 

REF 

7 

LAST 

221 

06, 3322 

01732 

0 

REFSMMAT 

029  0 5 

06,3323 

45056 

0 

UNIT 

CALL 

0291 

REF 

1 

06,3324 

47663 

1 

*SMNB* 

0291  1 

06,3325 

72441 

0 

DOT 

SL1 

029  12 

REF 

8 

LAST 

260 

06,3326 

3765 

0 

SCAX I S 

02913 

06,3327 

41326 

0 

ARCCOS 

DMP 

02914 

REF 

l 

06,3330 

23773 

0 

3/4 

02915 

06,3331 

52012 

0 

SL4 

GOTO 

02916 

REF 

1 

06,3332 

32046 

L 

THETRET 
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COSIROT)  0-1 

1 / 8S I N I ROT ) XP  0-5  1/2C0SIR0T)  MPAC 


1/2UNIKVEC)  IN  MPAC 


FOR  INFLIGHT  P57  MARKING  COMPUTE  INITIAL 
THET  EST  BY  1 2 1 STAR  X OPT  AXIS) 


12  SCALED  BY  16 
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P0292 

SUBROUTINE  TO 

COMPUTE  STAR  VEC 

IN  NB 

COORDINATES 

0294 

REF 

3 

LAST 

259 

14,2000 

SETLOC 

P50S1 

0295 

14,2413 

BANK 

0295  1 

14,2413 

77620 

0 

SN8C0MP 

STO 

02952 

REF 

2 

LAST 

128 

14,2414 

02  745 

0 

QMIN 

0296 

14,2415 

41345 

0 

□LOAD 

OMP 

029  7 

REF 

6 

LAST 

262 

14,2416 

03564 

0 

THETEST 

0298 

REF 

1 

14,2417 

30454 

1 

DP  1 / 1 2 

0299 

14,2420 

71406 

0 

PUSH 

COS 

0300 

14,2421 

73525 

1 

POOL 

SIN 

030  1 

14,2422 

41525 

0 

POOL 

PUSH 

030  2 

RFF 

7 

LAST 

264 

14,2423 

03564 

0 

THETEST 

0303 

14,2424 

65356 

1 

SIN 

POOL 

0304 

14,2425 

41346 

0 

COS 

DMP 

0305 

14,2426 

00003 

I 

2 

0 30  6 

14,2427 

47315 

0 

POVL 

vxv 

0307 

REF 

2 

LAST 

26  1 

14, 2430 

C 3 7 7 3 

1 

POINTVSM 

03U8 

REF 

9 

LAST 

26  3 

14,2431 

03765 

0 

SCAXIS 

0309 

14,2432 

74372 

1 

VSL  1 

VXSC 

0309  1 

14,2433 

77626 

0 

STAOR 

0310 

14,2434 

63746 

1 

STODL 

2 4D 

0311 

14,2435 

77605 

1 

DMP 

0312 

14,2436 

51361 

1 

VXSC 

B VSU 

0313 

REF 

3 

LAST 

264 

14,2437 

03773 

1 

POINTVSM 

0314 

14, 2440 

00031 

0 

2 4D 

0315 

14,2441 

14031 

0 

STOOL 

24D 

0316 

14,2442 

745ol 

0 

VXSC 

V SR  1 

0317 

REF 

10 

LAST 

264 

14, 2443 

03765 

0 

SC AX  I S 

0318 

14,2444 

53455 

0 

VAO 

UNIT 

0319 

14,2445 

00031 

0 

24D 

032  1 1 

14,2446 

34031 

1 

STCALL 

24D 

03212 

REF 

l 

14,2447 

47665 

1 

*NBSM* 

03213 

14,2450 

0C031 

0 

STORE 

240 

032  1 4 

14,2451 

77650 

1 

GOTO 

03215 

REF 

3 

LAST 

264 

14,2452 

02745 

0 

QMIN 

0323 

14,2453 

C2525 

1 

DPI/ 1 2 

2DEC 

.083333333 

0323 

14,2454 

12525 

0 

17:11  MAR.  19,1971  L E MONA  I 0 . 1 56  PAGE 
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USFR'S  PAGE  NO.  10  E7  S3 


COS ( T / 1 2 ) 0-1 
SINIT/12)  2-3 
SIN(T)  4-5 
C0S(T)SINIT/12)  6-7 

UP  6-7 

COSI r ) SINI T/12)  ( YP  X OA) 
UP  4-5  UP  2-3 

SIN(T)SIN(T/12)YP 
UP  0-1 

STAR! NB) 


STAR! SM) 
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P0324  GETMKS  ROUTINE 


0326 

REF 

2 

LAST 

255 

07,2000 

SETLOC 

A0TMARK1 

032  7 

07,2140 

BANK 

032  8 

REF 

2 

LAST 

255  TO 

260: 

132  132* 

COUNT  * 

$ $/M ARK 

032  9 

REF 

21 

LAST 

257 

07,2140 

3 4 746 

0 

GETMKS 

CAF 

ZERO 

INITIALIZE  MARK  ID  REGISTFR  AND  MARK  CNT 

0329  1 

REF 

3 

LAST 

262 

07,2141 

55 ' 573 

0 

TS 

NOMKCNT 

0330 

REF 

1 

07,2142 

55' 236 

0 

TS 

X COUNT 

033  1 

REF 

1 

07,2143 

5 5 ' 2 3 7 

1 

TS 

YCOUNT 

0332 

REF 

8 

LAST 

259 

07,2144 

55 ' 551 

0 

TS 

XYMARK 

0333 

REF 

1 

07,2145 

55' 762 

1 

TS 

XMKCNTR 

033  A 

REF 

1 

07,2146 

55 ' 763 

0 

TS 

YMKCNTR 

0335 

REF 

1 

07,2147 

4 0104 

0 

CS 

FLAGWRD3 

0336 

REF 

19 

LAST 

243 

07,2150 

7 4735 

0 

MASK 

B IT8 

0337 

07,2151 

0 0006 

1 

EXTEND 

0338 

REF 

1 

07,2152 

1 2156 

0 

BZF 

SETSURF 

SURFFLAG  FLAG  SET,  JAM  ONE  IN  WHATMARK 

033  8 l 

REF 

1 

07,2153 

3 0105 

0 

CA 

F L AGWR09 

03382 

REF 

20 

LAST 

243 

07,2154 

7 4741 

0 

MASK 

B I T4 

SFE  IF  CURSOR-SPIRAL  MARKING 

03383 

REF 

56 

LAST 

256 

07,2155 

10  ooo 

0 

CCS 

A 

033  8 A 

REF 

9 

LAST 

256 

07,2156 

3 4 744 

1 

SETSURF 

CA 

ONE 

0339 

REF 

2 

LAST 

151 

07,2157 

55 • 550 

1 

TS 

WHATMARK 

03A0 

REF 

3 

LAST 

256 

07,2160 

3 4775 

0 

PASTI  T 

CAF 

L0W9 

FREE  UP  MARKPUPT  RETAINING  MKVAC  ADR 

03A  1 

REF 

7 

LAST 

257 

07,2161 

7 1307 

0 

MASK 

MARKSTAT 

03A2 

REF 

8 

LAST 

265 

07,2162 

55' 307 

0 

TS 

MARKSTAT 

03A  3 

REF 

3 

LAST 

265 

07, 2 163 

51 ' 550 

0 

INDEX 

WHATMARK 

03A  A 

REF 

1 

07,2164 

3 2 566 

0 

CAF 

MKVB54 

DISPLAY  MARK  REQUEST 

0 3A5 

REF 

1A 

LAST 

262 

07,2165 

0 4607 

1 

TC 

BANKCALL 

03A6 

REF 

1 

07,2  166 

20331 

1 

CADR 

G0MARK2 

03A  7 

REF 

3 

LAST 

257 

07,2167 

1 2053 

1 

TCF 

KILLAOT 

V34-D0ES  GOTOPOOH 

03A  8 

REF 

1 

07, 2 170 

1 2212 

0 

TCF 

M ARKCHEX 

VB33-PROCEED,  GOT  MARKS,  COMPUTE  LOS 

03A9 

REF 

27 

LAST 

238 

07, 2171 

4 4737 

1 

CS 

B IT6 

0350 

REF 

32 

LAST 

239 

07,2172 

7 0154 

0 

MASK 

M P AC 

0351 

07,2173 

0 0006 

1 

■EXTEND 

0352 

REF 

A 

LAST 

257 

07,2174 

1 2056 

•1 

BZF 

GETDAT 

VB32  RECYCLE  TO  V01N71 

0353 

REF 

A 

LAST 

265 

07,2175 

4 1550 

l 

CS 

WHATMARK 

ENTER-RF VERS  E CURSOR  OR  SPIRAL  REQUEST 

035A 

REF 

5 

LAST 

265 

07,2176 

55*550 

1 

TS 

WHATMARK 

0355 

REF 

9 

LAST 

265 

07,2177 

1 1 ■ 55 1 

0 

CCS 

XYMARK 

0356 

07,2200 

1 2202 

l 

TCF 

+ 2 

IF  ONE,  SET  ZERO 

0357 

REF 

10 

LAST 

2 65 

07,2201 

3 4744 

1 

CAF 

ONE 

IF  ZERO,  SET  ONE 

0358 

REF 

10 

LAST 

265 

07,2202 

55' 551 

0 

TS 

XYMARK 

0359 

07,2203 

0 0006 

1 

PRFPAST 

EXTEND 

0360 

REF 

2 

LAST 

265 

07,2204 

3 1763 

1 

DCA 

XMKCNTR 

0361 

REF 

2 

LAST 

265 

07,2205 

53 ' 237 

1 

DXCH 

XCOUNT 

UPDATE  DISPLAY  COUNTERS 

0362 

REF 

19 

LAST 

229 

07, 2206 

3 4730 

l 

CAF 

BIT13 

0363 

REF 

11 

LAST 

265 

07,2207 

51*551 

1 

INDEX 

XYMARK 

036  A 

REF 

3 

LAST 

265 

07,2210 

2 7 ' 23  6 

0 

ADS 

XCOUNT 

0365 

REF 

1 

07,2211 

1 2160 

0 

TCF 

PASTIT 
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0366 

KEF 

9 

LAST 

265 

C7, 2212 

6 1307 

0 

MARKCHEX  CS 

M ARKSTAT 

036  7 

REF 

16 

LAST 

257 

C 7,  22  1 3 

7 6731 

1 

MASK 

B I T 1 2 

0368 

REF 

10 

LAST 

266 

07,2216 

27*307 

0 

ADS 

MARKSTAT 

0369 

REF 

6 

LAST 

265 

C 7 , 2215 

7 6775 

1 

MASK 

L QW9 

>3  7 

REF 

12 

LAST 

265 

07,2216 

55*551 

0 

TS 

XYMARK 

0371 

REF 

22 

LAST 

265 

C7, 2217 

3 6766 

0 

CAF 

ZERO 

0372 

REF 

2 

LAST 

151 

07,2220 

55*  552 

0 

TS 

MKDEX 

0373 

REF 

3 

LAST 

265 

07,2221 

11*762 

1 

CCS 

XMKCNTR 

0376 

07,2222 

1 2226 

0 

TCF 

+ 2 

0375 

REF 

1 

07,2223 

1 2331 

0 

TCF 

MKAL ARM 

0376 

REF 

6 

LAST 

266 

07,2226 

55' 762 

1 

TS 

XMKCNTR 

0377 

REF 

2 

LAST 

265 

07, 2225 

11*763 

0 

CCS 

YMKCNTR 

0378 

07,2226 

1 2230 

0 

TCF 

+ 2 

0379 

REF 

2 

LAST 

266 

07,2227 

l 2331 

0 

TCF 

MKAL  ARM 

0380 

REF 

3 

LAST 

266 

07, 2230 

55*  763 

0 

TS 

YMKCNTR 

0381 

07,2231 

6 0000 

0 

COM 

0382 

REF 

5 

LAST 

266 

07,2232 

6 1 762 

0 

AD 

XMKCNTR 

038  3 

07,2233 

0 0006 

1 

EXTEND 

0386 

REF 

1 

07,2236 

6 2237 

0 

BZMF 

AVESTAR 

0385 

KEF 

6 

LAST 

266 

07,2235 

3 1763 

1 

CA 

YMKCNTR 

0386 

REF 

6 

LAST 

266 

07,2236 

55 ' 762 

1 

TS 

XMKCNTR 

0389 

REF 

7 

LAST 

266 

07,2237 

6 1762 

1 

AVESTAR  CS 

XMKCNTR 

0390 

07,2260 

0 0006 

1 

EXTEND 

0391 

REF 

1 

07,2261 

7 6761 

0 

MP 

E IGHT 

0392 

REF 

13 

LAST 

266 

07,2262 

6 1551 

0 

CS 

XYMARK 

0393 

REF 

17 

LAST 

266 

07,2263 

6 OOOl 

0 

AD 

L 

0396 

REF 

6 

LAST 

258 

07,2266 

50  120 

l 

INDEX 

F IXLOC 

0395 

REF 

1 

07,2265 

56  066 

1 

TS 

XI 

0396 

REF 

7 

LAST 

266 

07,2266 

3 0120 

l 

CA 

F IXLOC 

0397 

REF 

1 

07,2267 

56  166 

1 

TS 

PUSHLOC 

0390 

REF 

6 

LAST 

259 

07, 2250 

0 6060 

1 

TC 

I NTPRFT 

0399 

7,2251 

63C16 

0 

BON 

BON 

060  0 

REF 

3 

LAST 

267 

07,2252 

06307 

1 

SURFFLAG 

0601 

REF 

1 

07,2253 

32006 

1 

SURFSTAR 

060  2 

REF 

6 

LAST 

26  1 

07,2256 

06713 

0 

FLT59FLG 

0602  1 

REF 

2 

LAST 

266 

07,2255 

32006 

l 

SURFSTAR 

060  2 2 

07,2256 

77773 

1 

VLOAD* 

06023 

07,2257 

00002 

0 

1,1 

0603 

REF 

6 

LAST 

261 

07,2260 

26766 

0 

STOVL 

CDUSPOT 

0606 

REF 

3 

LAST 

263 

0 7,2261 

03533 

1 

Y PLANE 

0605 

07,2262 

77626 

l 

CALL 

0606 

REF 

2 

LAST 

261 

07,2263 

67656 

1 

TRG*NBSM 

0607 

07,2266 

76606 

0 

PUSH 

VLOAD* 

060  8 

07,2265 

00001 

0 

0,  l 

0609 

REF 

7 

LAST 

266 

07, 2266 

26766 

0 

STOVL 

CDUSPOT 

0610 

REF 

6 

LAST 

263 

07,2267 

03525 

0 

XPLANE 

061  1 

07,2270 

77626 

I 

CALL 
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SFT  R I T 1 2 TO  0 1 SCOUR A GE  MARKRUPT 

JAM  MARK  VAC  AOR  IN  XYMARK  FOR  AVESTAR 
SFT  MKOEX  ZERO  FOR  LOS  VFC  CNTR 


GET  C I L ) =—  8 MARKCNTR 
ADO  - MARK  VAC  ADR  SET  IN  MARKCHEX 
JAM  - CDU  ADR  OF  X-MARK  IN  XI 
SET  PD  POINTFR  TO  ZERO 


CONVERT  IT  TO  STABLE  MEMBER 


PUT  X-MARK  CDUS  IN  CDUSPOT  FOR  TRG*NBSM 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L AOTMARK 


0412 

REF 

3 

LAST 

266 

07,2271 

47656 

1 

TRG*NRSM 

0413 

07, 2272 

53435 

0 

VX  V 

UNIT 

0414 

07,2273 

77626 

0 

STADR 

0415 

07,2274 

77746 

1 

STORE 

240 

0415  1 

07,2275 

77776 

1 

A VF  I T 

FX  IT 

0415  2 

REF 

17 

LAST 

266 

07, 2276 

3 4731 

0 

CAF 

B IT  1 2 

04153 

REF 

3 

LAST 

266 

07,2277 

27' 552 

0 

ADS 

MKDEX 

04154 

REF 

7 

LAST 

266 

07,2300 

0 6060 

1 

TC 

INTPRET 

0416 

07,2301 

63335 

1 

SLOAD 

PDVL 

0417 

REF 

4 

LAST 

267 

07,2302 

03553 

1 

MKDEX 

041  8 

07,2303 

00031 

0 

24D 

0419 

07,2304 

70322 

0 

VSR3 

V/SC 

042  0 

07,2305 

00001 

0 

0 

0421 

07,2306 

14031 

0 

STODL 

24D 

042  2 

07,2307 

00001 

0 

0 

042  3 

07,2310 

56225 

1 

DSU 

DDV 

042  4 

REF 

1 

07,2311 

16571 

0 

DPI/8 

0425 

07,2312 

53361 

0 

VXSC 

VAD 

0426 

REF 

4 

LAST 

259 

07,2313 

02767 

0 

STARSAV2 

042  7 

07,2314- 

00031 

0 

24D 

042  71 

07,2315 

77656 

1 

UNIT 

042  8 

REF 

5 

LAST 

267 

07,2316 

02767 

0 

STORE 

STARSAV2 

0429 

07,2317 

77776 

1 

EXIT 

0430 

REF 

8 

LAST 

266 

0.7,2320 

11*762 

1 

COOLOUT 

CCS 

XMKCNTR 

0431 

REF 

2 

LAST 

266 

07,2321 

1 2236 

0 

TC  F 

AVESTAR  -1 

043  2 

REF 

4 

LAST 

265 

07, 2322 

11 • 573 

0 

CCS 

NOMKCNT 

0432  l 

REF 

1 

07,2323 

1 2334 

0 

TC  F 

ASKASTR 

04322 

REF 

5 

LAST 

242 

07, 2324 

3 4747 

1 

ENDMARKS 

CAF 

FIVE 

0434 

REF 

7 

LAST 

198 

C 7 , 2325 

0 5205 

0 

TC 

WAITLIST 

043  5 

REF 

14 

LAST 

266 

E7, 1551 

EBANK= 

X YMARK 

0436 

REF 

1 

07,2326 

02042 

0 

2CADR 

MKRELEAS 

043  6 

REF 

1 

07,2327 

16067 

1 

0437 

REF 

1 

07,2330 

0 5474 

0 

TC 

ENDMARK 

043  8 

REF 

11 

LAST 

238 

07,2331 

0 5571 

l 

MKALARM 

TC 

ALARM 

043  9 

07,2332 

0C111 

0 

OCT 

1 1 1 

044  0 

REF 

2 

LAST 

259 

07, 2333 

1 2140 

1 

TCF 

GETMKS 

0440  l 

REF 

1 

C 7 , 2334 

3 4310 

1 

ASKASTR 

CAF 

OCT  1 6 

0440  2 

REF 

2 

LAST 

105 

07,2335 

55 '044 

1 

TS 

DSPTEM1 

04403 

REF 

5 

LAST 

267 

07,2336 

3 1573 

1 

CA 

NOMKCNT 

044  04 

REF 

3 

LAST 

267 

07,2337 

55 ' 045 

0 

TS 

DSPTEM1  +1 

044  0 5 

REF 

1 

07,2340 

3 2351 

1 

CAF 

V50N25 

044  0 6 

REF 

15 

LAST 

26  5 

07,  234  1 

0 4607 

1 

TC 

BANKCALL 

044  0 7 

REF 

1 

07,2342 

20350 

0 

CADR 

G0MARK2R 

044  0 8 

REF 

4 

LAST 

265 

07,2343 

1 2053 

1 

TCP 

K ILLAOT 

044  OS 

REF 

1 

07,2344 

1 2324 

1 

TCF 

ENDMARKS 
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INCREMENT  STAR  VEC  COUNTER 

MKDEX  WAS  INITIALIZED  ZERO  IN  MARKCHEX 


LOAD  CURPENT  VECTOR 
VEC/N 
( N—  1 ) / N 

ADD  VEC  TO  PREVIOUSLY  AVERAGED  VEC 
(N-ll/N  AV  EST VEC  + VEC/N 


SEE  IF  MARK  PAIR  IN  MK VAC 
THERE  IS-GO  GET  TT-DECREMENT  COUNTER 
IF  ANY  MK S NOT  USED  DISPLAY  V50N25 
AND  THE  NUMBER  MK S NOT  USED 


NOT  A PAIR  TO  PROCESS-DO  GETMKS 


V34  TERMINATE 

PRO  - PROCEED  ANYWAY 
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AOTMAPK 

044  1 

REF 

5 

LAST 

265 

07, 

,2345 

044  1 1 

REF 

13 

LAST 

90 

07, 

,2346 

04412 

REF 

l 

07, 

,2347 

04414 

REF 

4 

LAST 

250 

07, 

, 2350 

044  15 

07, 

,2351 

044  1 fc 

07, 

,2352 

0442 

C 7 , 

,2353 

1 2056 

1 

TCF 

GETDAT 

3 4742 

1 

CAF 

B IT3 

0 5466 

0 

TC 

BLANKET 

0 5146 

1 

TC 

ENDOF JOB 

14431 

1 

V50N25 

VN 

5025 

0C307 

0 

VC IN  7 l 

VN 

171 

01527 

0 

VC6N87* 

VN 

687 
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P0443 

MARKRLPT 

IS  ENTERED 

FROM  INTERUPT  LEAD- 

INS  AND  PROCESSES  CHANNEL  16 

R 0444 

CAUSED  BY  X , Y 

MARK 

OR  MARK  REJECT  OR 

BY 

THE  RATE  OF  DESCENT  SWITCH 

044  5 

REF 

2 

LAST 

165 

07,2354 

54  016 

1 

MARKKUPT  TS 

BANKRUPT 

0446 

REF 

5 

LAST 

215 

07,2355 

3 0033 

1 

CA 

CDUY 

STORE  CDUS  AND  TIME  NOW-THEN  SFE  IF 

044  7 

REF 

7 

LAST 

158 

07, 2356 

54  063 

0 

TS 

ITEMP3 

WE  NEED  THEM 

0448 

REF 

8 

LAST 

215 

C 7 , 2357 

3 0034 

0 

CA 

CDUZ 

044  9 

REF 

3 

LAST 

97 

C 7, 2360 

54  064 

1 

TS 

ITEMP4 

0450 

REF 

7 

LAST 

208 

07,  236  l 

3 0032 

0 

CA 

C DUX 

0451 

REF 

3 

LAST 

158 

07,2362 

54  065 

0 

TS 

I TEMP5 

045  2 

07,2363 

0 0006 

1 

EXTEND 

045  3 

REF 

8 

LAST 

216 

07,2364 

3 0025 

0 

DC  A 

TIME  2 

0454 

REF 

4 

LAST 

142 

07,2365 

52  062 

1 

DXCH 

ITEMP1 

045  5 

REF 

19 

LAST 

244 

07,2366 

56  002 

0 

XCH 

Q 

0456 

REF 

2 

LAST 

165 

07,2367 

54  012 

0 

TS 

QRUPT 

0470 

REF 

1 

07,2370 

3 4 767 

0 

CAF 

0CT140 

SEE  IF  ROD  INPUT 

0471 

07,2371 

0 0006 

1 

EXTEND 

0472 

REF 

2 

LAST 

229 

07,2372 

02  016 

1 

RAND 

NAVKEYIN 

0473 

07,2373 

0 0006 

1 

EXTEND 

0474 

REF 

1 

07,2374 

6 2376 

1 

BZMF 

FINDKEY 

0474  1 

REF 

1 

07,2375 

0 2441 

1 

TC 

DESCBITS 

ROD  INPUT 

0475 

REF 

1 

07,2376 

0 2451 

0 

FINDKEY  TC 

VALIDCHK 

NO  ROD  INPUT-SEE  IF  VALID  MARKPUPT 

0476 

REF 

16 

LAST 

239 

07,2377 

3 4 740 

0 

CAF 

BIT5 

GOOD  RUPT-SEE  IF  MARK  REJECT 

047  7 

07, 2400 

0 0006 

1 

EXTEND 

0478 

REF 

3 

LAST 

269 

07,2401 

02  016 

1 

RAND 

NAVKEYIN 

0479 

REF 

57 

LAST 

265 

07,2402- 

10  000 

0 

CCS 

A 

0480 

REF 

1 

07,2403 

1 2572 

1 

TCF 

MKRE  J 

ITS  A MARK  REJECT 

0481 

REF 

6 

LAST 

265 

07,2404 

11 ' 550 

1 

CHKWHAT  CCS 

WHATMARK 

REF 

1 

07,2405 

1 2425 

1 

TCF 

XMKRUPT 

+1  FOR  CURSOR  MARK 

0483 

REF 

L 

07,2406 

1 2410 

1 

TCF 

FINDMARK 

0 FOR  INFLIGHT  MARK 

0484 

REF 

l 

07,2407 

1 2427 

0 

TCF 

YMKRUPT 

-1  FOR  SPIRAL 

04  85 

REF 

21 

LAST 

265 

07,2410 

3 4 741 

1 

FINDMARK  CAF 

RIT4 

SEE  IF  Y MARK 

0486 

07,2411 

0 0006 

1 

EXTEND 

0487 

REF 

4 

LAST 

269 

07,2412 

02  016 

1 

RAND 

NAVKEYIN 

0488 

REF 

58 

LAST 

269 

07, 2413 

10  000 

0 

CCS 

A 

0489 

REF 

2 

LAST 

26  9 

07,2414 

1 2427 

0 

TCF 

YMKRUPT 

ITS  Y MARK  OR  SPIRAL  MARK 

0490 

REF 

14 

LAST 

268 

07,2415 

3 4742 

1 

CAF 

BIT3 

SEE  IF  X MARK 

0491 

07,2416 

0 C006 

1 

EXTEND 

049  2 

REF 

5 

LAST 

269 

07,2417 

02  016 

1 

RAND 

NAVKEYIN 

0493 

REF 

59 

LAST 

269 

07,2420 

10  000 

0 

CCS 

A 

0494 

REF 

2 

LAST 

26  9 

07,2421 

1 2425 

1 

TCF 

XMKRUPT 

ITS  A X MARK 

0495 

REF 

12 

LAST 

267 

07,2422 

0 5571 

1 

U3ALRM  TC 

ALARM 

NO  INBITS  IN  CHANNEL  16 

0496 

07,2423 

00113 

1 

OCT 

113 

269 
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049  7 

REF 

a 

LAST 

201 

07,2424 

0 5272 

0 

TC 

RESUMF 

0498 

REF 

23 

LAST 

266 

07,2425 

3 4 746 

0 

XMKRUPT 

CAF 

ZERO 

0499 

07,2426 

1 2430 

0 

TC  F 

+ 2 

0500 

REF 

11 

LAST 

265 

07,2427 

3 4 744 

1 

YRKRUPT 

CAF 

ONE 

0501 

REF 

15 

LAST 

26  7 

07,2430 

55*551 

0 

TS 

XYMARK 

0503 

REF 

60 

LAST 

269 

07,2431 

50  000 

1 

INDEX 

A 

0504 

REF 

9 

LAST 

267 

07, 2432 

4 1762 

1 

CS 

XMKCNTR 

0505 

REF 

6 

LAST 

267 

07,2433 

6 4747 

l 

AD 

FIVE 

0506 

07,2434 

0 OC 06 

1 

EXTEND 

050  7 

REF 

1 

07, 2435 

6 2467 

0 

BZMF 

VACSTOR 

050  8 

REF 

16 

LAST 

270 

07,2436 

5 1 ’ 55 1 

1 

INDEX 

XYMARK 

0509 

REF 

10 

LAST 

270 

07,2437 

25’ 762 

0 

INCR 

XMKCNTR 

0510 

REF 

2 

LAST 

270 

07,2440 

1 2467 

1 

TC  F 

VACSTOR 

051001 

REF 

18 

LAST 

202 

07,2441 

7 4736 

0 

DESCBITS 

MASK 

B I T 7 

051(>C2*REF 

18 

LAST 

266 

07, 2442 

54  001 

1 

TS 

L 

0510C6 

REF 

2 

LAST 

197 

07,2443 

3 4740 

0 

CAF 

AVEGFBI T 

051OC7 

REF 

3 

LAST 

239 

07,2444 

7 0103 

1 

MASK 

FLAGWRD7 

0 5 1 0 C 8 

REF 

61 

LAST 

270 

07, 2445 

' 10  ooo 

0 

CCS 

A 

0510C9*RFF 

1 

07, 2446 

1 2462 

1 

TCF 

RODIN 

0510  1 

REF 

2 

LAST 

2b  9 

07,2447 

0 2451 

0 

TC 

VALIDCHK 

0510  1 1 

RFF 

1 

07,2450 

1 2404 

1 

TCF 

CHKWHAT 

051012 

REF 

1 1 

LAST 

266 

07,2451 

11 ’307 

0 

VALIDCHK 

CCS 

MARKSTAT 

051014 

REF 

1 

07,2452 

1 2456 

0 

TCF 

CHK12 

051015 

REF 

13 

LAST 

269 

07, 2453 

0 5571 

1 

ALMl  12 

TC 

ALARM 

051016 

07,2454 

00112 

0 

dct 

112 

0510  17 

REF 

9 

LAST 

270 

07,2455 

0 5272 

0 

TC 

R ESUME 

051018 

REF 

18 

LAST 

267 

07,2456 

7 4731 

1 

CHK12 

MASK 

BIT12 

051019 

REF 

62 

LAST 

270 

07,2457 

1C  000 

0 

CCS 

A 

051C2 

REF 

1 

07,2460 

1 2453 

0 

TCF 

ALMl  12 

051021 

REF 

20 

LAST 

269 

07,2461 

0 0002 

0 

TC 

Q 

05103 

♦ REF 

19 

LAST 

270 

07, 2462 

io  coi 

1 

RODIN 

CCS 

L 

05104 

♦ REF 

4 

LAST 

255 

07,2463 

4 4743 

1 

CS 

TWO 

05105 

♦ REF 

12 

LAST 

270' 

07,2464 

6 4 744 

l 

AD 

ONE 

05106 

♦ REF 

1 

07,2465 

27*746 

1 

ADS 

RODCOUNT 

05107 

♦ REF 

10 

LAST 

270 

07,2466 

0 5272 

0 

TC 

RESUME 
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SET  STORE  INDEX  ZERO 
SET  MARK  ID  REG 


IF  7TH  MARK,  STORE  DATA  AS  6TH  MARK 


THIS  IS  BACK  UP  MARK 


MARKRUPT  NOT  ALLOWED 
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0512 

0 7,2  A6  7 

0 0006 

1 

VACSTOR 

EXTEND 

0513 

REE 

5 

LAST 

269 

0 7, 2 A70 

3 0062 

0 

DCA 

ITEMP1 

05 1 A 

REF 

3 

LAST 

2 1 A 

C7.2A71 

53' 562 

0 

DXCH 

TSIGHT 

0515 

REF 

5 

LAST 

266 

07, 2A72 

3 A775 

0 

CAF 

L0W9 

0516 

RCE 

12 

LAST 

270 

07, 2A73 

7 1307 

0 

MASK 

MARKSTAT 

051  7 

REF 

5 

LAST 

267 

07 , 2A7A 

55' 552 

0 

TS 

MKDEX 

0510 

REF 

17 

LAST 

270 

C 7 , 2A75 

51 ' 551 

X 

INDEX 

X YMARK 

051  9 

REF 

11 

LAST 

270 

07,2476 

11*762 

1 

CCS 

XMKCNTR 

0520 

07 , 2 A 77 

0 0006 

1 

EXTEND 

052  1 

REF 

2 

LAST 

266 

07,2500 

7 A 7 A 1 

0 

MP 

E IGHT 

0522 

REF 

20 

LAST 

270 

07,2501 

56  001 

0 

XCH 

L 

0523 

REF 

18 

LAST 

271 

C 7 , 2502 

6 1551 

1 

AD 

X YMARK 

052  A 

REF 

6 

LAST 

271 

07,2503 

27' 552 

0 

ADS 

MKDEX 

0525 

REF 

8 

LAST 

269 

C7.250A 

3 0063 

1 

CA 

ITEMP3 

0526 

REF 

7 

LAST 

27  1 

07,2505 

51 ' 552 

1 

INDEX 

MKDEX 

052  7 

07,2506 

5 A 000 

0 

TS 

0 

0520 

REF 

A 

LAST 

269 

07,2507 

3 0C6A 

0 

CA 

I TEMPA 

0529 

REF 

8 

LAST 

271 

07,2510 

51 ' 552 

1 

INOEX 

MKDEX 

0530 

07,2511 

5 A 002 

1 

TS 

2 

0531 

REF 

A 

LAST 

269 

07,2512 

3 0065 

1 

CA 

l TEMP5 

0532 

REF 

9 

LAST 

271 

07,2513 

51' 552 

1 

INDEX 

MKDEX 

0533 

07,2514 

5 A 00 A 
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01334 

0134 
0134  l 

01343 

01344 


EXTENEIEC 

VERBS 

USER'S 

PAGE 

NO.  4 E 5 S4 

VBZERO 

VERB  40 

DESCRIPTION 

1.  REQUIRE  NOUN 

20  I I CDU 

ANGLES)  OR  NOUN  72  (RCDU  ANGLES). 

2.  FOR 

N20 , CHECK 

IMUCAOR 

IN  AN  EFFORT  TO  AVOID  A 1210  RF START . 

FOR 

N72 , CHECK 

IF  EITHER  RADAR  IS  IN  USE, 

3.  EXECUTE  THE  CCU  ZERO. 

4.  STALL  UNTILL 

THE  ZERO 

IS  DONE. 

5.  DON 

, ' T DIFFERS  MATE  BETWEEN  A BAD  OR  GCOD  RETURN. 

6.  EXIT,  RE-ESTABLISHING 

THE  INTERRUPTED  DISPLAY  (IF  ANY). 

REF 

1 

43,2126 

0 2202 

0 

VEZERO  TC 

OP/INERT 

REF 

1 

43,2127 

0 2131 

0 

TC 

I MUZEROK 

RETURN  HERE 

IF  NOUN  = ICDUI20) 

REF 

l 

43,2130 

0 2140 

0 

TC 

RRZEROK 

RETURN  HERE 

IF  NOUN  = RCDU 172) 

REF 

1 

43,2131 

0 2411 

1 

IMUZEROK  TC 

CKMODCAD 

REF 

18 

LAST  272 

43,2132 

0 4607 

1 

TC 

BANKCALL 

KEYBOARD  REQ 

FDR 

ISS  CDUZERO 

REF 

2 

LAST  220 

43,2133 

16701 

0 

CADR 

1 MUZERO 

REF 

19 

LAST  278 

43,2134 

0 4607 

i 

TC 

BANKCALL 

STALL 

REF 

2 

LAST  220 

43,2  135 

17735 

0 

CADR 

I MUSTALL 

43,2136 

0 2137 

0 

TC 

+ 1 

REF 

1 

43,2.137 

0 2117 

1 

TC 

GOPIN 

I MUZERO 

REF 

1 

43,2  140 

0 2653 

0 

RRZEROK  TC 

RDRUSECK 

REF 

20 

LAST  278 

43,2141 

0 4607 

l 

TC 

BANKCALL 

REF 

l 

43,2142 

52334 

1 

CADR 

RRZERO 

REF 

21 

LAST  278 

43,2143 

0 4607 

1 

RWAITK  TC 

BANKCALL 

REF 

1 

43,2  144 

17733 

0 

CADR 

R ADSTALL 

43,2145 

l 2146 

1 

TCF 

+ 1 

REF 

2 

LAST  278 

43,2146 

0 2117 

1 

TC 

GOPIN 

RRZERO 

LRP0S2K 

VERB  59 

DESCRIPTION 

COMMAND  LANDING 

RADAR  TO 

POSITION  2 

1 . EXIT 

WITH  OP  ERROR  IF 

SOMEONE  IS  USING  EITHER  RADAR. 

2.  ALARM  WITH  CODE  523  IF 

POS  2 IS  NOT  INDICATED  WITHIN 

THE 

PRESCRIBED  TIME. 

3.  RE- 

ESTABLISH 

THE  DISPLAYS. 

REE 

4 

LAST  270 

43,2147 

3 0103 

0 

LRP0S2K  CA 

FLAGWRD7 

REF 

3 

LAST  270 

43,2150 

7 4 740 

1 

MASK 

AVEGFBIT 

43,2151 

0 C006 

1 

EXTEND 

REF 

1 

43,2152 

l 2161 

1 

BZF 

LRP0S2K1 

AVERAGE  G NOT  ON 

REF 

5 

LAST  240 

43,2153 

4 0107 

0 

CS 

FLGWRDl l 

REF 

3 

LAST  240 

43,2154 

7 4 726 

1 

MASK 

LRBYBIT 

43,2155 

0 0006 

1 

EXTEND 

REF 

13 

LAST  277 

43,2156 

l 2116 

1 

BZF 

ALM/END 

IF  AVE  G ON 

AND  NOT  R 12—  OPERATOR  F RROR 

REF 

8 

LAST  277 

43,2157 

0 4626 

l 

TC 

POST  JUMP 

REF 

1 

43,2160 

53577 

l 

CADR 

V59GP63 

REF 

2 

LAST  278 

43,2161 

0 2653 

0 

LRP0S2K1  TC 

RDRUSECK 
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279 


01346 

REF 

22 

LAST 

278 

43,2162 

0 4607 

1 

TC 

BANKCALL 

01347 

REF 

1 

43, 2163 

53566 

1 

CADR 

LRP2C0MM 

COMMAND 

R0135 

V61 

VERB 

61, 

DISPLAY  DAP 

ATTITUDE 

ERRORS  ON 

FDA  I ATTITUDE  ERROR 

NEEDLES. 

0137 

REF 

13 

LAST 

24  3 

43,2164 

0 5520 

0 

DAPATTER 

TC 

DOWNFLAG 

0138 

REF 

1 

43,2165 

00C13 

0 

ADRES 

NEEDLFLG 

0139 

REF 

2 

LAST 

275 

43,2166 

1 2171 

0 

TCF 

TOTATTER 

+ 2 

R 0 140 

V62 

VERB 

62, 

DISPLAY  TOTAL  ATTITUDE  ERRORS 

ON  FDA  I 

ATTITUDE 

ERROR  NEEDLES. 

0142 

REF 

1 

43, 2167 

0 5506 

I 

TOTATTER 

TC 

UPFLAG 

014  3 

REF 

2 

LAST 

279 

43,2170 

OOC  13 

0 

ADRES 

NEEDLFLG 

014  3 1 

REF 

14 

LAST 

279 

43,2171 

0 5520 

0 

+ 2 

TC 

DOWNFLAG 

01432 

REF 

1 

43,2172 

CCOOO 

1 

ADRES 

NEED2FLG 

0144 

REF 

3 

LAST 

278 

43,2173 

0 2117 

1 

TC 

GOPIN 

RO 144  1 

V60 

VERB 

60, 

DISPLAY  DAP 

ESTIMATED 

RATES  ON 

FDA  I ATTITUDE  ERROR 

NEEDLES. 

01443 

REF 

2 

LAST 

279 

43,2174 

0 5506 

1 

RATEDISP 

TC 

UPFLAG 

0144  4 

REF 

2 

LAST 

279 

43,2175 

00000 

1 

ADRES 

NFED2FLG 

01445 

REF 

4 

LAST 

279 

43,2176 

0 2117 

1 

TC 

GOPIN 

R0145 
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PO  146 
R0147 
R0148 
R0149 
R0151 
RO  152 
R0153 
RO  154 
R0155 
R0156 
R0157 
RO  15  8 
RO  168 
RO  169 
RO  170 
R017I 
R0172 
R0173 
R 0 1 74 
RO  17  5 
RO  17  55 
RO  1 76 
R0178 
RO  179 
RO  180 
ROIOI 
R0182 
RO  184 
R 0 1 8 5 
RO  186 


VBCOARK  VERB  41  DESCRIPTION 

COARSE  ALIGN  IMU  OR  RADAR 

1.  REQUIRE  NOUN  20  OR  NOUN  72  OR  TURN  ON  OPERATOR  ERROR. 

2.  REQUIRE  EXT  VERB  DISPLAY  SYS  AVAILABLE  OR  TURN  ON  OPFRATOR  ERROR  LIGHT  AND  GO  TO  PINBRNCH. 

CASE  1 NOUN  20  (ICDU  ANGLES) 

3.  SET  EXT  VERB  DISPLAY  ACTIVE  FLAG. 

4.  DISPLAY  FLASHING  V25.N22  (LOAD  NEW  ICDU  ANGLES). 

RESPONSES 

A.  TERMINATE 

1.  RELEASE  EXT  VERB  DISPLAY  SYSTEM 

B.  PROCEED 

1.  COARSE  ALIGN  TO  THE  EXISTING  THETAD'S  (1C0RK2). 

C.  ENTER 

1.  COARSE  ALIGN  TO  THE  LOADED  THETAD'S  (IC0RK2). 

IC0RK2 

1 . RE-DISPLAY  VERB  41 . 

2.  EXECUTE  IMUCOARS  (IMU  COARSE  ALIGN). 

3.  EXECUTE  IMUSTALL  (ALLOW  TIME  FOR  DATA  TRANSFER). 

4.  RELEASE  EXT  VERB  DISPLAY  SYSTEM. 

CASE  2 NOUN  72  (RCOU  ANGLES) 

EXIT  WITH  OP  ERROR  IF  SOMEONE  IS  USING  EITHER  RADAD. 

5.  DISPLAY  FLASHING  V24.N73  (LOAD  NEW  RR  TRUNION  ANGLE  AND  NEW  SHAFT  ANGLE). 

RESPONSES 

A.  TERMINATE 

1.  RELEASE  EXT  VERB  DISPLAY  SYS. 

B.  PRUCEEO  OR  ENTER 

L.  EXECUTE  AURLOKON  (ASK  OPERATOR  FOR  LOCK-ON  REQUIREMENTS). 

2.  RE-DISPLAY  VERB  41. 

3.  SCHEDULE  RRDESK2  WITH  PRIORITY  20. 

4.  RELEASE  EXT  VERB  DISPLAY  SYS. 


RO  10  7 


AURLOKON 


RO  188 
R 0 18  9 
RO  190 
R 0 1 9 4 
R 0 1 9 5 
RO  195  1 
RO 19  5 2 
R 0196 
R0197 


1.  FLASH  V04  N 12  R1  = 00006  R2  = 00002 
RESPONSES 
A.  TERMINATE 
'().  PROCEED 

1.  RESET  LOCK-ON  SWITCH 

2.  SET  CONTINUOUS  DESIGNATE  FLAG 

3.  DISABLE  R25 

C.  V22  E l E,  R1  = 00001,  PROCEED 
1.  SET  LOCK-ON  SWITCH 


0198 

REF 

2 

LAST 

278 

43,2177 

0 

2202 

0 

VBCOARK 

TC 

OP/ INERT 

0199 

REF 

1 

43,2200 

0 

2213 

0 

TC 

IMUCOARK 

0200 

REF 

1 

43,2201 

0 

2235 

l 

TC 

RRDESNBK 

R020  1 

RETURNS  TO 

L+l  IF  IMU  OR  LF2 

IF  RR. 

0 20  2 

REF 

2 

LAST 

24  2 

43,2202 

4 

6007 

1 

OP/INERT 

CS 

0CT24 

0203 

REF 

2 

LAST 

233 

4 ' , ^ 203 

6 

1001 

l 

AD 

NOUNREG 

0204 

43,2204 

0 

0006 

1 

EXTEND 

RETURN  HERE  IF 
RETURN  HERE  IF 


NOUN  = I COU ( 20 ) 
NOUN  - RCDUI72) 


GAP:  ASStM8LE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L EXTENDED  VERBS 


0205 

REF 

2 

LAST 

277 

43,2205 

l 6763 

1 

BZF 

TCQ 

020  7 

REF 

J. 

43,2206 

6 2212 

1 

AD 

RRIMUDIF 

0208 

43,2207 

0 0006 

1 

EXTEND 

0209 

REF 

2 

LAST 

167 

43,2210 

1 6760 

1 

BZF 

Q + l 

0210 

REF 

14 

LAST 

278 

43,2211 

0 2116 

0 

TC 

ALM/END 

0211 

43,2212 

77713 

1 

RRIMUDIF 

DEC 

-52 

0213 

REF 

2 

LAST 

278 

43,2213 

0 2411 

1 

IMUCOARK 

TC 

CKMODCAD 

0214 

REF 

1 

43,2214 

0 2076 

1 

TC 

TESTXACT 

0215 

REF 

1 

43,2215 

3 2233 

1 

CAF 

V NLODCDU 

0216 

REF 

23 

LAST 

279 

43,2216 

0 4607 

1 

TC 

BANKCALL 

021  7 

REF 

1 

43,2217 

20323 

1 

CADR 

GOXDSPF 

0218 

REF 

1 

43,2220 

0 5474 

0 

TC 

TERMEXTV 

0219 

43,2221 

1 2222 

0 

TCF 

+ 1 

0220 

REF 

1 

43,2222 

3 2234 

0 

ICQRK2 

CAF 

I MUCOARV 

022  1 

REF 

24 

LAST 

28  1 

43,2223 

0 4607 

1 

TC 

BANKCALL 

0222 

REF 

2 

LAST 

219 

43,2224 

20632 

1 

CAOR 

EXDSPRET 

0223 

REF 

25 

LAST 

28  1 

43,2225 

0 4607 

1 

TC 

BANKCALL 

0224 

REF 

1 

43, 2226 

16765 

1 

CADR 

I MUCOARS 

0225 

REF 

26 

LAST 

28  1 

43,2227 

0 4607 

1 

TC 

BANKCALL 

0226 

REF 

3 

LAST 

278 

43,2230 

17  735 

0 

CADR 

I MUSTALL 

0227 

REF 

1 

43,2231 

0 5474 

0 

TC 

ENDEXTVB 

0228 

REF 

2 

LAST 

28  1 

43,2232 

0 5474 

0 

TC 

ENDEXTVB 

0229 

43,2233 

C6226 

1 

VNLUDCDU 

VN 

2522 

0230 

43,2234 

12200 

0 

I MUCOAR V 

VN 

4100 
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ILLEGAL. 

THE  I MU 

COARSE  ALIGN  FROM  KEYBOARD. 
CALL  FOR  THFTAD  LOAD 


RE-DISPLAY  COARSE  ALIGN  VERB. 

CALL  MODE  SWITCHING  PROG 
STALL 


GAP 


ASSEMBLE  RE  V I S I ON  210  CE  AGC  PP.OGRAM  LUMINARY  BY  NASA  2021112-161 


L EXTENDEO  VERBS 


P0231 

DESIGNATE 

TO  DESIRED 

GIMBAL 

ANGLES. 

0232 

REF 

3 

LAST 

27e 

43,2235 

0 2653 

0 

RRDESN8K 

TC 

RDRUSECK 

0234 

REF 

2 

LAST 

281 

43, 2236 

0 2076 

1 

TC 

TESTXACT 

0239 

REF 

20 

LAST 

231 

43,2237 

3 C 1 10 

1 

RRWA I T 

CA 

R ADMODES 

02391 

REF 

l 

43,2240 

7 7731 

1 

MASK 

B I T 1 461 1 

02392 

REF 

1 

4727 

REFTAG9 

= 

REMODBI T 

02393 

REF 

2 

LAST 

198 

4732 

R EFT  AG  10 

= 

REPOSBIT 

02394 

43,2241 

0 0006 

1 

EXTEND 

023  9 5 

REF 

1 

43,2242 

l 2246 

l 

BZF 

OKTOGO 

02396 

REF 

27 

LAST 

281 

43,2243 

0 4607 

1 

TC 

BANKCALL 

02397 

REF 

l 

43,2244 

01735 

l 

CADR 

2SECDELY 

02398 

REF 

1 

43,2245 

1 2237 

1 

TC  F 

RRWA1T 

02399 

REF 

3 

LAST 

24  2 

43,2246 

0 6027 

1 

OKTOGO 

TC 

CLRADMOD 

0243 

REF 

1 

43,2247 

3 2266 

l 

CAF 

VNLDRCOU 

0 24  4 

REF 

28 

LAST 

282 

43,2250 

0 4607 

1 

TC 

BANKCALL 

0245 

REF 

2 

LAST 

281 

43, 2251 

20323 

1 

CADR 

GOXDSPF 

0246 

REF 

2 

LAST 

281 

43,2252 

0 54  74 

0 

TC 

TERMEXTV 

024  7 

43,2253 

1 2247 

0 

TCF 

-4 

024  8 

REF 

29 

LAST 

282 

43,2254 

0 4607 

1 

TC 

BANKCALL 

0249 

REF 

1 

43,2255 

46000 

0 

CADR 

AURLOKON 

0250 

REF 

1 

43,2256 

3 2234 

0 

CAF 

OPTCOARV 

025  1 

REF 

30 

LAST 

282 

43,2257 

0 4607 

1 

TC 

BANKCALL 

0252 

REF 

3 

LAST 

28  1 

43,2260 

2C632 

1 

CADR 

EXDSPRET 

0253 

REF 

1 

43,2261 

3 4727 

1 

CAF 

PR  1020 

0254 

REF 

3 

LAST 

255 

43,2262 

0 5076 

0 

TC 

F INDVAC 

0255 

REF 

7 

LAST 

25  1 

E7 , 1456 

EBANK= 

LOSCOUNT 

0256 

REF 

1 

43,2263 

02267 

0 

2CADR 

RRDESK2 

0256 

REF 

1 

43,2264 

66107 

1 

025  7 

REF 

3 

LAST 

282 

43,2265 

1 5474 

1 

TCF 

TERMEXTV 

0258 

' 43,2266 

06111 

0 

VNLDRCOU 

VN 

2 4 73 

0259 

REF 

2 

LAST 

28  1 

43,2234 

OPTCOARV 

EQUALS 

I MUCOARV 

0260 

REF 

31 

LAST 

282 

43,2267 

0 4607 

1 

RRDESK2 

TC 

BANKCALL 

0261 

REF 

1 

43,2270 

52466 

1 

CADR 

PRDESNB 

0262 

43,2271 

0 2272 

1 

TC 

+ 1 

0262  1 

REF 

9 

LAST 

232 

43,2272 

3 0167 

1 

CA 

PRIORITY 

02622 

REF 

6 

LAST 

27  1 

43, 2273 

7 4775 

l 

MASK 

L0W9 

02623 

REF 

64 

LAST 

276 

43,2274 

10  COO 

0 

CCS 

A 

02624 

REF 

65 

LAST 

282 

43,2275 

50  000 

1 

INDEX 

A 

02625 

REF 

66 

LAST 

2 8 2 

43,2276 

54  000 

0 

TS 

A 

02626 

43,2277 

4 0000 

0 

COM 
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IS  A REMOOE  OR  REPOSITION  IN  PROGRESS 


NO  - CONTINUE 

YES  - WAIT  UNTIL  FINISHED  TO  PREVENT 
CONFLICTS  IN  RR  DESIGNATE 


ASK  FOR  GIMBAL  ANGLES. 

V 33 

ASK  OP  FOR  LOCK  ON  REQUIREMENTS. 
RE-DISPLAY  OUR  OWN  VERB 


FREES  01  SPLAY . 
DIFFERENT  NOUNS. 


DUMMY  NEEDED  SINCE  DESRETRN  DOES  INCR 


RELEASE  THIS  JOBS  VAC  AREA. 

INSURE  ENDOFJCB  DOES  A NOVAC  END  (BZMF) 


GAP: 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L 

EXTENDED 

VERBS 

02627 

REE 

10 

LAST 

282 

43,2300 

26  167 

0 

ADS 

PRIORITY 

0263 

REF 

32 

LAST 

282 

43,2301 

0 4607 

1 

TC 

BANKCALL 

0264 

REF 

2 

LAST 

278 

43,2302 

17733 

0 

CAUR 

R ADSTALL 

0265 

43,2303 

0 2305 

0 

TC 

+ 2 

0266 

REF 

7 

LAST 

272 

43,2304 

0 5146 

1 

TC 

ENDOF JOB 

0267 

REF 

15 

LAST 

274 

43, 2305 

0 5571 

1 

TC 

ALARM 

0268 

43,2306 

00503 

1 

OCT 

503 

0269 

REF 

8 

LAST 

283 

43,2307 

0 5 146 

1 

TC 

ENDOF JOB 

0270 

REF 

21 

LAST 

282 

43,2310 

10  110 

0 

RRDE  S END 

CCS 

R ADMODES 

027  1 

REF 

5 

LAST 

279 

43,2311 

1 

2117 

0 

TCF 

GQPIN 

0272 

REF 

6 

LAST 

283 

43,2312 

L 

2117 

0 

TC  F 

GOP  IN 

0273 

43,2  3 13 

1 

2314 

1 

TCF 

+ L 

0273  1 

REF 

22 

LAST 

283 

43,2314 

3 

CUO 

1 

REMODCHK 

CA 

RADMODES 

02732 

REF 

2 

LAST 

282 

43,2315 

7 

7 731 

1 

MASK 

BIT14&11 

027325 

REF 

2 

LAST 

282 

4727 

REFTAG1 

= 

REMODBI T 

027326 

REF 

3 

LAST 

282 

4732 

REFTAG2 

= 

REPOSBIT 

02733 

43,2316 

0 

C 006 

1 

EXTEND 

02734 

REF 

L 

43,2317 

1 

2324 

1 

8ZF 

NOREMODE 

02735 

REF 

1 

43, 2320 

3 

4770 

0 

CAF 

1SEC 

02736 

REF 

33 

LAST 

283 

43,2321 

0 

4607 

1 

TC 

BANKCALL 

02737 

REF 

3 

LAST 

220 

43,2322 

01736 

1 

CADR 

DELAY JOB 

0273  £ 

REF 

1 

43,2323 

0 

2314 

0 

TC 

REMODCHK 

0277  1 

REF 

4 

LAST 

282 

43,2324 

0 

6027 

1 

NCREMODE 

TC 

CLRADMOD 

02773 

REF 

2 

LAST 

283 

43,2325 

3 

4770 

0 

CAF 

1 SEC 

02774 

REF 

34 

LAST 

283 

43,2326 

0 

4607 

1 

TC 

BANKCALL 

02775 

REF 

4 

LAST 

283 

43,2327 

01736 

1 

CADR 

DELAYJOB 

0278 

REF 

15 

LAST 

279 

43,2330 

0 

5520 

0 

TC 

DOWNFLAG 

0279 

REF 

1 

43, 2331 

00126 

1 

ADRE  S 

NORRMON 

02795 

REF 

7 

LAST 

283 

43,2332 

l 

2117 

0 

TCF 

GOPIN 

0280 
028  1 2 

REF 

l 

7731 

BIT14&11 

= 

PRI022 

02814 

REF 

1 

23,2000 

SETLOC 

EXTVB1 

02816 

23,2000 

BANK 

02818 

REF 

1 

COUNT  * 

$ $/E  XTV8 

0282 

REF 

1 

23,2000 

0 4636 

0 

AURLOKON  TC 

MAKECADR 

0283 

REF 

2 

LAST 

106 

23,2001 

55'  112 

0 

TS 

DESRET 

0284 

REF 

6 

LAST 

276 

23,2002 

3 4743 

0 

CAF 

TWO 

0235 

REF 

1 

23,2003 

55' 051 

0 

TS 

UPTIONX 

0286 

REF 

4 

LAST 

272 

23,2004 

3 6263 

0 

CAF 

SIX 

02862 

REF 

2 

LAST 

283 

23,2005 

55 ' 050 

1 

TS 

OPTIONX 

02864 

REF 

1 

23,2006 

3 2037 

1 

-5  CAF 

V04N1272 

02866 

REF 

35 

LAST 

283 

23,2007 

0 4607 

1 

TC 

BANKCALL 
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WAIT  FOR  COMPLETION  OF  DESIGNATE 

8 ADEN  D-NO  LOCKON  OR  OUT  OF  LIMITS 
GOODEND-LOCKON  ACHIEVED 

TURN  ON  ALARM  LIGHT  -503  DESIGNATE  FAIL 
TFRMINATE  CONTINUOUS  DESIGNATE  ONLY 
CHECK  FOR  REMODE  OR  RFPOSITION 


NO 

YES-  WAIT  1 SECOND  AND  CHECK  AGAIN 


ENABLE  R 25  GIMBAL  MONITOR 


OPTION  CODE  FOR  V04N12 


R2 


00001  LOCK-ON 
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0286E 

REF 

3 

LAST 

272 

23,2010 

20345 

1 

CADR 

GOMARKFR 

02869 

REF 

0 

LAST 

277 

23,2011 

l 5474 

1 

TCF 

ENDEXT 

0287 

23,2012 

1 2017 

l 

TCF 

+ 5 

0288 

23,2013 

1 2006 

l 

TCF 

-5 

0289 

REF 

15 

LAST 

269 

23,2014 

3 4742 

1 

CAF 

B IT3 

0290 

REF 

4 

LAST 

272 

23, 2015 

0 5466 

0 

TC 

BLANKET 

0291 

REF 

9 

LAST 

283 

23,2016 

0 5 146 

1 

TC 

ENDOFJOB 

0292 

REF 

3 

LAST 

283 

23,2017 

3 1051 

1 

+ 5 

CA 

OPTIONX  + 

0293 

REF 

22 

LAST 

255 

23,2020 

7 4743 

l 

MASK 

BIT2 

0294 

REF 

67 

LAST 

282 

23,2021 

10  000 

0 

CCS 

A 

0295 

REF 

1 

23,2022 

l 2026 

0 

TCF 

NOLOKON 

0296 

REF 

3 

LAST 

279 

23, 2023 

0 5506 

1 

TC 

UPFLAG 

029  7 

REF 

1 

23,2024 

00012 

l 

ADRES 

LOKONSW 

0298 

REF 

1 

23,2025 

1 2034 

0 

TCF 

AURLK0N1 

0299 

REF 

16 

LAST 

283 

23,2026 

0 5520 

0 

NOLOKQN 

TC 

DOWNFLAG 

0299  l 

REF 

2 

LAST 

284 

23,2027 

00012 

1 

ADRES 

LOKONSW 

02992 

REF 

4 

LAST 

284 

23, 2030 

0 5506 

l 

TC 

UPFLAG 

0299  3 

REF 

1 

23,2031 

00264 

1 

ADRES 

CDESFLAG 

0302 

REF 

5 

LAST 

2 84 

23,2032 

0 5506 

1 

TC 

UPFLAG 

030  3 

REF 

2 

LAST 

283 

23,2033 

0C126 

1 

ADRES 

NORRMON 

0304 

23,2034 

0 0003 

1 

AURLK0N1 

REL INT 

0305 

REF 

3 

LAST 

283 

23,2035 

3 1112 

1 

CA 

DESRET 

030  6 

REF 

1 

23,2036 

1 4631 

0 

TCF 

BANK JUMP 

03064 

23,2037 

01014 

0 

V04N1272 

VN 

412 

03065 

23,2040 

77757 

1 

-LOKONFG 

OCT 

-20 

03066 

43,2333 

BANK 

43 

03067 

REF 

2 

LAST 

275 

43,2000 

SET  L CC 

EXTVERBS 

03068 

43,2333 

BANK 

03065 

REF 

2 

LAST 

275  TC) 

283  : 

219  219* 

COUNT* 

t */EXTVfl 

0307 

REF 

6 

LAST 

284 

43,2333 

0 5506 

1 

L RON 

TC 

UPFLAG 

030  8 

REF 

l 

43,2334 

00254 

1 

ADRES 

LR  INH 

0309 

REF 

8 

LAST 

283 

43,2335 

0 2117 

1 

TC 

GOPIN 

0342 

REF 

17 

LAST 

284 

43, 2336 

0 5520 

0 

LROFF 

TC 

DOWNFLAG 

0343 

REF 

2 

LAST 

284 

43,2337 

00254 

1 

ADRES 

LRINH 

034  3 C 5 

REF 

9 

LAST 

284 

43,2340 

0 2117 

1 

TC 

GOPIN 

03431 

REF 

7 

LAST 

284 

43,2341 

0 5506 

1 

TEROFF 

TC 

UPFLAG 

03432 

REF 

1 

43,2342 

00023 

0 

ALIKE  S 

NOTERFLG 

0344 

REF 

10 

LAST 

284 

43,2343 

1 2117 

0 

TCF 

GOPIN 

0345 

REF 

5 

LAST 

275 

E5, 1737 

EB ANK= 

OGC 

17:11  MAR.  19,1971  LEM0NA10.156  PAGE  284 
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V34 
V 33 
V32 


IF  NO  LOCK-ON,  SET  BIU5  OF  RADMODES  TO 
INDICATE  THAT  CONTINUOUS  DESIGNATION  IS 
WANTED  (TO  BE  TERMINATED  BY  V44.) 

SET  NO  RR  ANGLE  MONITOR  FLAG. 

(DISABLE  R25  PR  GIMBAL  MONITOR  IN  T4RUPT 


PERMIT  INCORPORATION  OF  LR  DATA  V 57 


INHIBIT  INCORPORATION  OF  LR  DATA  V58 


BYPASS  TERRAIN  MODEL 


GAP: 

L 

P0346 

R0347 

R0348 

R0350 

R035  1 

R0352 

R0353 

R0354 

R0355 

R0356 

R0357 

R0358 

R0359 

R0360 

R0361 

R0362 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

037  2 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

038  1 

0382 

0383 

0334 

0385 

0386 

0387 

0388 

R0389 

R0390 
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EXTENDEC  VERBS  USER'S  PAGE  NO.  11  E?  S4 

I MUF I NEK  VERB  42  DESCRIPTION 

FINE  ALIGN  l MU 

1.  REQUIRE  EXT  VERB  DISPLAY  AVAILABLE  AND  SET  BUSY  FLAG  OR  TURN  ON  OPER  ERROR  AND  GO  TO  PINBRNCH. 

2.  DISPLAY  FLASHING  V25 , N93 . . . . LOAD  DELTA  GYRO  ANGLES.... 

RESPONSES 

A.  TERMINATE 

1.  RELEASE  EXT  VERB  DISPLAY  SYSTEM. 

B.  PROCEED  OR  ENTER 

1.  RE-DISPLAY  VERB  42 

2.  EXECUTE  IMUFINE  (IMU  FIVE  ALIGN  MODE  SWITCHING). 

3.  EXECUTE  IMUSTALL  (ALLOW  FOR  DATA  TRANSFER) 

A.  FAILED 

1.  RELEASE  EXT  VERB  DISPLAY  SYSTEM. 

8.  GOOD 

1.  EXECUTE  IMUPULSE  (TORQUE  IRIGS). 

2.  EXECUTE  IMUSTALL  AND  RELEASE  EXT  VERB  DISPLAY  SYSTEM. 


REF 

3 

LAST 

28  1 

43,2344 

0 2 4 11 

1 

IMUFINEK  TC 

CKMODC AO 

REF 

3 

LAST 

282 

43,2345 

0 2076 

1 

TC 

TEST  XAC  T 

FINE  ALIGN  WITH  GYRO  TQRQUING. 

REF 

1 

43,2346 

3 2373 

1 

CAF 

VNLODGYR 

CALL  FOR  LOAD  OF  GYRO  COMMANDS 

REF 

36 

LAST 

283 

43,2347 

0 4607 

1 

TC 

BANKCALL 

KEF 

3 

LAST 

282 

43,2350 

20323 

1 

CADR 

GOXDSPF 

REF 

4 

LAST 

282 

43,2351 

0 5474 

0 

TC 

T ERMEXTV 

43,2352 

0 2353 

0 

TC 

+ 1 

PROCEED  WITHOUT  A LOAD 

REF 

1 

43,2353 

3 2374 

0 

CAF 

IMUFINEV 

RE-DISPLAY  OUR  OWN  VERB 

REF 

37 

LAST 

285 

43,2354 

0 4607 

1 

TC 

BANKCALL 

REF 

4 

LAST 

282 

43,2355 

20632 

1 

CADR 

EXDSPRET 

REF 

38 

LAST 

285 

43,2356 

0 4607 

1 

TC 

BANKCALL 

CALL  MODE  SWITCH  PROG 

REF 

1 

43,2357 

17  175 

1 

CADR 

IMUFINE 

REF 

39 

LAST 

285 

43,2360 

0 4607 

1 

TC 

BANKCALL 

HI8ERNAT ION 

REF 

4 

LAST 

281 

43, 2361 

17735 

0 

CADR 

IMUSTALL 

REF 

3 

LAST 

281 

43,2362 

0 5474 

0 

TC 

ENDEXTVB 

REF 

1 

43,2363 

3 2372 

0 

F I NEK2  CAF 

LGYROBIN 

PINBALL  LEFT  COMMANDS  IN  OGC  REGIST5PS 

REF 

40 

LAST 

285 

43,2364 

0 4607 

1 

TC 

BANKCALL 

REF 

L 

43,2365 

17310 

0 

CADR 

IMUPULSE 

REF 

41 

LAST 

285 

43, 2366 

0 4607 

1 

TC 

BANKCALL 

WAIT  FOR  PULSES  TO  GF T OUT. 

REF 

5 

LAST 

285 

• 43,2367 

1 7735 

0 

CADR 

I MUSTALL 

REF 

4 

LAST 

235 

43,2370 

0 5474 

0 

TC 

ENDEXTVB 

REF 

5 

LAST 

285 

43,2371 

0 5 4 74 

0 

TC 

ENDEXTVB 

REF 

6 

LAST 

284 

43,2372 

02737 

0 

lgyrobin  ecadr 

OGC 

43,2373 

C6335 

l 

VNLODGYR  VN 

2593 

43,2374 

12400 

0 

IMUFINEV  VN 

4200 

GOLOADLV 

VERB  50 

DESCRIPT  ION 

AND  OTHER  PLEASE 


GAP: 

L 

R039  1 

R0392 

R0393 

R0395 

R0396 

0398 

0399 

0400 

040  1 

040  2 

0403 

040  4 

R0405 

R0406 

040  7 

0408 

040  9 

0410 

041  1 

041  1 

0412 

0413 

0414 

041  5 

0416 
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EXTENDED  VERBS  USER'S  PAGE  NO.  12  E5  S4 

DO  SOMETHING  VERBS 

PLEASE  PEREORM,  MARK,  CALIBRATE,  ETC. 

1.  PRESSING  ENTER  ON  DSKY  INDICATES  REQUESTED  ACTION  HAS  BEEN  PERFORMED,  AND  THE  PROGRAM  DOES  THE 
SAME  RECALL  AS  A COMPLETED  LOAD. 

2.  THE  EXECUTION  OF  A VERB  33  (PROCEED  WITHOUT  DATA)  INDICATES  THE  REQUESTFD  ACTION  IS  NOT  DESIRED. 


REF 

1 

40,2000 

SBANK= 

PINSUPER  FOR  L0ADLV1 

AND  SHOWSUM  CADR ' S. 

REF 

I 

43,2375 

0 4424 

l 

GOLOAOL V 

TC 

FLASHOFF 

REF 

1 

43,2376 

3 4172 

1 

CAF 

P INSUPBT 

43,2377 

0 0006 

1 

EXTEND 

REF 

3 

LAST 

240 

43,2400 

01  007 

1 

WRITE 

SUPERBNK 

REF 

9 

LAST 

278 

43,2401 

0 4626 

L 

TC 

POSTJUMP 

REF 

1 

43,2402 

62021 

0 

CADR 

L0ADLV1 

VERB 

47 

- AGS 

INITIAL IZAT ION 

- R47. 

SEE  1 

LOG  SECTION  AGS 

INITIAL! 

[ Z A T I DN  FOR  i 

OTHER  PERTINENT  REMARKS. 

REF 

4 

LAST 

285 

43,2403 

0 2 0 76 

1 

V47TXACT 

TC 

TESTXACT  NO  OTHER 

FXTVERB. 

REF 

1 

43,  2404 

3 4731 

0 

CAF 

PRI04 

REF 

4 

LAST 

282 

43, 2405 

0 5076 

0 

TC 

F INDVAC 

REF 

8 

LAST 

220 

E6, 1771 

EBANK= 

AGSK 

REF 

l 

43,2406 

02005 

0 

2C  ADR 

AGS  I N IT 

REF 

1 

43,2407 

64066 

0 

REF 

10 

LAST 

284 

43,2410 

0 5146 

1 

TC 

ENDOF JOB 

REF 

4 

LAST 

110 

43,2411 

3 1301 

l 

CKMODCAD 

CA 

MOOECADR 

43,2412 

0 0006 

1 

EXTEND 

REF 

3 

LAST 

28  1 

43,2413 

1 6763 

1 

BZF 

TCQ 

REF 

15 

LAST 

28  1 

43,2414 

0 2116 

0 

TC 

ALM/END  SOMEBODY 

IS 

USING  MOOECADR  SO  EXIT 

GAP:  ASSEMBLE  REVISION  210  OE  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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P041  7 

ALINTIME 

VERB  55 

DESCRIPT  ION 

R0418 

REQUIRE  POO  OR  POO-. 

R0419 

1 

. SET 

EXT  VERB 

DISPLAY 

BUSY  FLAG. 

R0420 

2 

. DISPLAY  FLASHING  V25 

, N24  (LOAD  DELTA  TIME  FOR  AGC  CLOCK. 

R042  l 

3 

. REQUIRE  EXECUTION  OF 

VERB  23. 

R0422 

4 

. ADD 

DELTA  TIME,  RECEIVED  FROM  INPUT  REGISTER,  TO  THE 

COMPUTER  TIME. 

R0424 

5, 

. RELEASE  EXT  VERB  DISPLAY  SYSTEM 

042  5 

REF 

5 

LAST 

286 

43,2415 

0 2076 

1 

ALINTIME  TC 

TESTXACT 

0426 

REF 

10 

LAST 

286 

43,2416 

0 4626 

1 

TC 

POST  JUMP 

NO  ROOM  IN 

43 

042  7 

REF 

l 

43,2417 

64002 

1 

CADR 

R 33 

042  8 

42,2002 

BANK 

42 

0429 

REF 

2 

LAST 

48 

42,2000 

SETLOC 

S BAND 

0430 

42,2002 

BANK 

043  1 

REF 

1 

COUNT* 

$ $/R33 

0432 

REF 

1 

42,2002 

3 5012 

l 

R 33  CAF 

PRI07 

043  3 

REF 

1 

42,2003 

0 5137 

1 

TC 

PRIOCHNG 

0434 

REF 

1 

42, 2004 

3 2034 

1 

CAF 

VNLODDT 

043  5 

REF 

42 

LAST 

285 

42, 2005 

0 4607 

1 

TC 

BANKC ALL 

0436 

REE 

4 

LAST 

285 

42,2006 

20323 

1 

CADR 

GOXDSPF 

043  7 

REF 

9 

LAST 

284 

42,2007 

0 5474 

0 

TC 

ENOEXT 

TERMINATE 

043  8 

REF 

10 

LAST 

287 

42,2010 

0 54  74 

0 

TC 

ENDEXT 

PROCEED 

0439 

REF 

1 

42,2011  • 

4 2 C 33 

1 

CS 

DEC23 

DATA  IN  OR 

RESEQUENCE ( UNLIKELY) 

044  0 

REF 

36 

LAST 

276 

42,2012 

6 0154 

1 

AD 

MPAC 

RECALL  LEFT 

VERB  IN  MPAC 

0441 

42,2013 

C 0006 

1 

EXTEND 

044  2 

REF 

1 

42,20  14 

1 2016 

0 

BZF 

UPDATIME 

GO  AHEAD  WITH  UPDATE  ONLY  IF  RECALL 

044  3 

REF 

u 

LAST 

287 

42,2015 

0 54  74 

0 

TC 

ENDEXT 

WITH  V23 

(DATA  IN). 

0444 

42,2016 

0 0004 

0 

UPDATIME  INHINT 

DELTA  TIME 

IS  IN  DSPTEM1,  +1. 

044  5 

REF 

24 

LAST 

270 

42,2017 

3 4 746 

0 

CAF 

ZERO 

0446 

REF 

37 

LAST 

287 

42,2020 

54  156 

1 

TS 

MPAC  +2 

NEEDED  FOR 

TP  AGREE 

044  7 

REF 

21 

LAST 

27  1 

42,2021 

54  001 

1 

TS 

L 

ZERO  T 1 + 2 

WHILE  ALIGNING. 

044  8 

REF 

9 

LAST 

269 

42,2022 

52  025 

1 

DXCH 

T I ME  2 

044  9 

REF 

33 

LAST 

287 

42,2023 

52  155 

1 

DXCH 

MPAC 

0450 

REF 

2 

LAST 

105 

42,2024 

53' 051 

0 

DXCH 

D S PTE  M2  +1 

INCREMENT 

045  1 

REF 

39 

LAST 

287 

42,2025 

20  155 

1 

DAS 

MPAC 

0452 

REF 

1 

42,2026 

C 7300 

0 

TC 

T P AGREE 

FORCE  SIGN 

AGREEMENT. 

0453 

REF 

40 

LAST 

287 

42,2027 

52  155 

1 

DXCH 

MPAC 

NEW  CLOCK. 

0454 

REF 

10 

LAST 

287 

42,2030 

20  025 

1 

DAS 

TIME2 

0455 

42,2031 

0 0003 

1 

RELINT 

0456 

REF 

12 

LAST 

28  7. 

42,2032 

0 5474 

0 

UPDTMEND  TC 

ENDEXT 

045  7 

42,2033 

0CC27 

1 

DEC23  DEC 

23 

V 23 

045  8 

42,2034 

06230 

0 

VNLODDT  VN 

2524 

V25N24  FOR 

LOAD  DELTA  TIME 

287 
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P0459  SET  UP  FOR  RADAR  SAMPLING. 


046C 

42,2035 

BANK 

42 

0461 

REF 

3 

LAST 

284 

43,2000 

SET  L CC 

E XTVERBS 

0462 

43,2420 

BANK 

046  3 

REF 

1 

E4, 1571 

EBANK= 

rstack 

0464 

REF 

1 

COUNT* 

$$/R0477 

0465 

REF 

4 

LAST 

282 

43,2420 

0 2653 

0 

R77 

TC 

RDRUSECK 

0466 

REF 

4 

LAST 

24  1 

43,2421 

3 0077 

1 

CA 

FLAGWRD3 

046  7 

REF 

l 

43,2422 

7 4734 

1 

MASK 

R04FLBI T 

046  8 

REF 

68 

LAST 

284 

43,2423 

10  000 

0 

CCS 

A 

0469 

REE 

16 

LAST 

286 

43,2424 

0 2116 

0 

TC 

ALM/END 

0470 

REF 

8 

LAST 

284 

43,2425 

0 5506 

1 

TC 

UPFLAG 

0471 

REF 

1 

43,2426 

00117 

0 

ADRES 

R77FL AG 

0472 

REF 

1 

43,2427 

1 2434 

l 

TC  F 

R04Z 

0473 

REF 

5 

LAST 

288 

43,2430 

0 2653 

0 

R 04 

TC 

RDRUSECK 

0474 

REF 

6 

LAST 

287 

43,2431 

0 2076 

1 

TC 

TE  ST  X AC  T 

0475 

REF 

9 

LAST 

288 

43, 2432 

0 5506 

1 

TC 

UPFLAG 

0476 

REF 

2 

LAST 

240 

43,2433 

00063 

1 

ADRES 

R04FLAG 

0477 

REF 

1 

43, 2434 

3 4732 

0 

R04Z 

CAF 

EBANK4 

0478 

REF 

7 

LAST 

259 

43,2435 

54  003 

0 

TS 

EBANK 

0479 

REF 

1 

43,2436 

3 2651 

1 

CAF 

LSEC+1 

0480 

REF 

2 

LAST 

L 24 

43, 2437 

55*710 

1 

TS 

RSAMPOT 

0431 

REF 

25 

LAST 

287 

43,2440 

3 4746 

0 

CAF 

ZERO 

0482 

REF 

1 

43,2441 

55 ' 767 

1 

TS 

RTSTLOC 

0483 

REF 

I 

43, 2442 

55' 566 

l 

TS 

RFAILCNT 

0484 

43,2443 

0 0004 

0 

INHINT 

0485 

REF 

1 

43, 2444 

4 2652 

0 

CS 

L RPOSCAL 

0486 

REF 

23 

LAST 

283 

43, 2445 

7 CllO 

0 

MASK 

RADMODES 

0487 

REF 

24 

LAST 

288 

43 , 2 446 

54  110 

0 

TS 

R ADMODES 

0488 

REF 

2 

LAST 

288 

43,2447 

3 2652 

l 

CAF 

LRPOSCAL 

0489 

43,2450 

0 0006 

1 

EXTEND 

0490 

REE 

4 

LAST 

230 

43,2451 

C2  033 

0 

RAND 

CHAN33 

049  1 

REF 

25 

LAST 

288 

43,2452 

26  110 

0 

ADS 

RADMODES 

0492 

43,2453 

0 0003 

1 

RELINT 

049  3 

REF 

5 

LAST 

288 

43,2454 

4 u 0 7 7 

0 

CS 

FLAGWRD3 

0494 

REF 

2 

LAST 

288 

43,2455 

7 4734 

1 

MASK 

R04FLRI T 

049  5 

REF 

69 

LAST 

288 

43,2456 

10  000 

0 

CCS 

A 

0496 

REF 

1 

43,2457 

l 2606 

1 

TC  F 

R04K 

0497 

REF 

13 

LAST 

270 

43,2460 

3 4 744 

1 

CAF 

ONE 

0498 

REF 

4 

LAST 

2 84 

43,2461 

55*051 

0 

TS 

OPTIONX  ■ 

0499 

REF 

16 

LAST 

284 

43, 2462 

3 4742 

1 

R04A 

CAF 

R I T3 
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288 


TRY  TO  AVOID  THE  1210. 
IS  R04  RUNNING? 

YES. 

TRY  TO  AVOID  THF  1210. 
SET  R04FLAG  FOR  ALARMS 


SAMPLE  ONCE  PER  SECOND 


ZERO  BAD  S 

AMPLE  COUNTER 

INITIALIZE 

B I T9 

LR 

RANGE 

LOW 

SCAt  E =0 

BIT6 

LR 

POS  1 

= 0 

B IT3 

RR 

RANGE 

LOW 

SCALE  =0 

CHECK  R04FLAG  R04  =1  R77  =0 


INDICATES  RENDEZVOUS  OFSIRFD 


OPTION  CODE  FOR  V04N12 


GAP: 


ASSEMBLE  REVISION  2 10  OF  A GC  PROGRAM  LUMINARY  BY 


L EXTENDED  VERBS 


0500 

REF 

5 

LAST 

2e8 

43,2463 

55' 050 

1 

0501 

REF 

1 

43,2464 

3 2646 

1 

0502 

REF 

43 

LAST 

287 

43,2465 

0 4607 

1 

050  3 

REF 

4 

LAST 

284 

43, 2466 

20345 

1 

0504 

REF 

1 

43,2467 

1 2614 

1 

0505 

43,2470 

1 2475 

1 

0506 

REF 

1 

43,2471 

1 2464 

I 

0507 

REF 

17 

LAST 

288 

43,2472 

3 4742 

1 

0508 

REF 

5 

LAST 

284 

43, 2473 

0 5466 

0 

0509 

REF 

11 

LAST 

286 

43,2474 

0 5146 

1 

0510 

REF 

6 

LAST 

289 

43,2475 

3 1051 

1 

0511 

REF 

1 

43,2476 

55' 764 

1 

0512 

REF 

5 

LAST 

283 

43,2477 

3 6263 

0 

RC4X 

0513 

REF 

2 

LAST 

289 

43,2500 

7 1764 

1 

0514 

REF 

70 

LAST 

288 

43,2501 

10  GOO 

0 

051  5 

REF 

1 

43,2502 

1 2610 

0 

0516 

REF 

1 

43, 2503 

55' 766 

0 

0517 

REF 

23 

LAST 

284 

43,2504 

3 4743 

0 

RC4B 

0518 

43,2505 

0 0006 

1 

0519 

REF 

5 

LAST 

288 

43,2506 

02  033 

0 

0520 

43,2507 

0 0006 

1 

0521 

REF 

1 

43,2510 

T 2 521 

1 

0522 

REF 

1 

43,2511 

3 2650 

0 

0523 

REF 

4 

LAST 

267 

43,2512 

55 '044 

1 

0524 

REF 

1 

43,2513 

3 2647 

0 

0525 

RFF 

44 

LAST 

289 

43,2514 

0 460  7 

1 

0526 

REF 

1 

43,2515 

2C337 

1 

0527 

REF 

2 

LAST 

289 

43,2516 

1 2614 

1 

052  8 

REF 

1 

43,2517 

1 2504 

0 

0529 

43,2520 

1 2511 

1 

0530 

REF 

28 

LAST 

233 

43,2521 

3 4727 

1 

R04C 

0531 

43,2522 

0 0006 

1 

0532 

REF 

18 

LAST 

231 

43,2523 

05  012 

1 

053  3 

REF 

7 

LAST 

283 

43,2524 

3 4 743 

0 

0534 

REF 

1 

43,2525 

55' 765 

0 

0535 

REF 

e 

LAST 

267 

43, 2526 

0 5205 

0 

0536 

REF 

2 

LAST 

288 

' E4 , 1571 

0537 

REF 

1 

43,2527 

02162 

0 

0537 

REF 

1 

43,2530 

32  104 

0 

0538 

43,2531 

0 0003 

1 

053  9 

REF 

6 

LAST 

238 

43,2532 

4 0077 

0 

0540 

REF 

3 

LAST 

288 

43,2533 

7 4734 

1 

NASA  20211 12-L61 
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USEP' S PAGE  NO.  15  E4  S4 


TS 

OPTIONX 

CAF 

V04N12X 

TC 

BANKCALL 

R 2 00001  RENDEZVOUS  RADAR 

CADR 

GOMARKFR 

00002  LANDING  RADAR 

TCF 

R04END 

V34 

TCF 

+ 5 

V33 

TCF 

R04A  +2 

R2 

CAF 

B IT3 

TC 

BLANKET 

TC 

ENDOF JOB 

CA 

OPTIONX  +1 

SAVE  DESIRED  OPTION  RR  =1 

TS 

RTSTDEX 

CAF 

SIX 

RR  OR  LR  DESIRED 

MASK 

RTSTDEX 

CCS 

A 

TCF 

R04L 

LANDING  RADAR 

TS 

RT  ST  B AS  E 

FOR  RR  BASE  = 0,  MAX  = l 

CAF 

EXTEND 

BIT2 

IS  RR  AUTO  MODE  DISCRETE  PRESENT 

RAND 

EXTEND 

CHAN33 

BZF 

R04C 

YES 

CAF 

2 0 1 R 04 

REQUEST  SELECTION  OF  RR  AUTO  MODE 

TS 

DSPTEM1 

CAF 

V50N25X 

TC 

BANKCALL 

CADR 

G0MARK4 

TCF 

R04END 

V 34 

TCF 

R04B 

V 3 3 

TCF 

-7 

E 

CAF 

EXTEND 

BIT14 

ENABLE  RR  AUTO  TRACKER 

WGR 

C HAN  12 

CAF 

TWO 

TS 

RTSTMAX 

FOR  SEQUENTIAL  STORAGE 

TC 

WAITLIST 

EBANK= 

RSTACK 

2CADR 
REL INT 

RADSAMP 

CS 

FLAGWRD3 

CHECK  R04F  LAG  R04  =1  R 77 

MASK 

R04FLBIT 

GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  20211L2-161 

L EXTENDED  VERBS 


05A  1 

REF 

71 

LAST 

289 

43,2534 

1C  000 

0 

CCS 

A 

0542 

REE 

1 1 

LAST 

284 

43,2535 

1 2117 

0 

TCF 

GOPIN 

05A3 

REE 

6 

LAST 

289 

43,2536 

3 6263 

0 

CAE 

SIX 

0544 

REF 

3 

LAST 

289 

43, 2537 

7 l 764 

L 

MASK 

RTSTDEX 

05A  5 

REF 

72 

LAST 

290 

43,2540 

10  000 

0 

CCS 

A 

0546 

REF 

1 

43,2541 

1 2556 

1 

TCF 

R04LR 

05A  7 

REE 

1 

43,2542 

3 2642 

0 

RC4RR 

CAF 

V 16N72 

0548 

REF 

A 5 

LAST 

289 

43,2543 

0 460  7 

1 

TC 

RANKCALL 

05A9 

REF 

A 

LAST 

257 

43, 2544 

20323 

1 

CADR 

GOMARKF 

0550 

RFF 

3 

LAST 

289 

43,2545 

1 2614 

l 

TCF 

R04END 

0551 

43, 2546 

1 2550 

1 

TCF 

+ ? 

0552 

REF 

1 

43,2547 

1 2542 

1 

TCF 

R04RR 

0553 

REF 

1 

43,2550 

3 2643 

1 

CAF 

V16N78 

055  A 

RFF 

A6 

LAST 

290 

43,2551 

0 4607 

1 

TC 

8ANKCALL 

0555 

REF 

5 

LAST 

290 

43,2552 

20323 

1 

CADR 

GOMARKF 

0556 

REF 

A 

LAST 

290 

43,2553 

l 2614 

1 

TCF 

R04END 

0557 

REF 

l 

43,2554 

1 2572 

1 

TCF 

R04Y 

0558 

REF 

2 

LAST 

290 

43,2555 

1 2542 

1 

TCF 

R04RR 

0559 

REE 

l 

43,2556 

3 2644 

0 

R04LR 

CAF 

V 16N66 

0560 

REF 

A 7 

LAST 

290 

43,2557 

0 4607 

1 

TC 

BANKCALL 

0561 

REE 

6 

LAST 

290 

43,2560 

20323 

1 

CADR 

GOMARKF 

0562 

REF 

5 

LAST 

290 

43,2561 

1 2614 

1 

TCF 

R04END 

0563 

43,2562 

1 2564 

0 

TCF 

+ 2 

056  A 

REF 

2 

LAST 

290 

43,2563 

1 2556 

1 

TCF 

R04LR 

0565 

REF 

l 

43, 2564 

3 2645 

L 

CAF 

V16N67 

0566 

REF 

A 8 

LAST 

290 

43,2565 

0 4607 

1 

TC 

BANKCALL 

056  7 

REF 

7 

LAST 

290 

43,2566 

20323 

1 

CADR 

GOMARKF 

0568 

REF 

6 

LAST 

290 

43,2567 

1 2614 

1 

TCF 

R04END 

0569 

REF 

2 

LAST 

290 

43,2570 

1 25  72 

l 

TCF 

R04Y 

0570 

REF 

3 

LAST 

290 

43,2571 

1 2556 

1 

TCF 

R04LR 

0571 

REF 

26 

LAST 

288 

43,2572 

3 4746 

0 

R04Y 

CAF 

ZERO 

0572 

REF 

3 

LAST 

288 

43,2573 

55' 770 

1 

TS 

RSAMPOT 

0573 

REF 

A9 

LAST 

290 

43,2574 

0 4607 

1 

TC 

BANKCALL 

057A 

REF 

2 

LAST 

282 

43,2575 

01735 

1 

CADR 

2 SECDELY 

0575 

REE 

2 

LAST 

288 

43,2576 

3 2651 

1 

CAF 

1 SEC  + 1 

0576 

REF 

A 

LAST 

290 

43,2577 

55' 770 

1 

TS 

RSAMPDT 

0577 

REF 

27 

LAST 

290 

43,2600 

3 4 746 

0 

CAF 

ZERO 

0578 

REF 

2 

LAST 

288 

43,2601 

55' 767 

1 

TS 

RTSTLOC 

0579 

REF 

2 

LAST 

289 

43,2602 

11* 766 

0 

CCS 

RTSTBASE 

0582 

REE 

1A 

LAST 

288 

43,2603 

4 4 744 

0 

cs 

ONE 

0583 

REF 

8 

LAST 

289 

43,2604 

6 4743 

0 

AD 

TWO 

058  A 

REF 

1 

43,2605 

1 2476 

1 

TCF 

R04X  -1 

0585 

REF 

1 

43,2606 

3 4757 

0 

R04K 

CAF 

250MS+1 
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USER'S  PAGE  NO.  16 


FA  S4 


R 77 

RR  OR  LR 


LR 

01  SPLAY 

RR  COU  ANGLES  (1/SEC ) 

Rl 

+ XXX. XX  OEG 

TRUNNION 

R2 

+ XXX. XX  DEG 

SHAFT 

V34 

R 3 

BLANK 

V 33 

V 3 2 

DISPLAY 

RR  RA 

,NGE  AND  RANGE 

PATE  ( l/SEC ) 

Rl 

+-  XXX. XX  NM 

RANGE 

R2 

+-  XXXX. X FPS 

RANGE  RATE 

V34 

R 3 

BLANK 

V33 

V 32 

D I SPL  AY 

LR  RANGE  AND  POSITION  (l/SEC) 

Rl 

+-  XXXXX.  FT 

LR  RANGE 

R 2 

+ OOOOX. 

POS.  NO. 

V 34 

R 3 

BLANK 

V 33 

V 32 

DI SPL AY 

LR  VELX,  VELY,  VELZ 

I l/SEC) 

Rl 

+-  XXXXX.  FPS 

LR  V ( X ) 

R 2 

+-  XXXXX.  FPS 

LR  V ( Y ) 

V34 

R 3 

+-  XXXXX.  FPS 

LR  VIZ) 

V33 

V 32 

TO  TERM! 

[ NATE 

SAMPLING 

WAIT  FOR  LAST  RADARUPT 
SAMPLE  ONCE  PER  SECOND 

FOR  STORING  RESULTS 

CHECK  WHICH  RADAR  HAD  HF EN  SAMPLED 
WAS  LR 
WAS  RR 


SAMPLE  A LR  COMPONENTS  PER  SECOND. 


GAP: 


ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  202U12-16L 


L EXTENOED  VERBS 


0586 

REF 

5 

LAST 

290 

43,2607 

55 ' 770 

1 

TS 

RSAMPDT 

0587 

REF 

9 

LAST 

290 

43, 2610 

3 4743 

0 

RC4L 

CAF 

TWO 

0588 

REF 

3 

LAST 

290 

43,2611 

55*  766 

0 

TS 

RTSTBASE 

0589 

KEF 

7 

LAST 

290 

43,2612 

3 6263 

0 

CAF 

six 

0590 

REF 

2 

LAST 

289 

43, 2613 

1 2525 

0 

TCF 

R04C  +4 

0591 

REF 

28 

LAST 

290 

43,2614 

3 4746 

0 

R04END 

CAF 

ZERO 

0592 

REF 

6 

LAST 

291 

43,2615 

55' 770 

1 

TS 

RSAMPDT 

0593 

REF 

20 

LAST 

265 

43, 2616 

3 4735 

1 

CAF 

B I T 8 

0594 

REF 

50 

LAST 

290 

43,2617 

0 4607 

1 

TC 

8 ANKC ALL 

0595 

REF 

5 

LAST 

283 

43,2620 

01736 

L 

CADR 

DELAYJOB 

0596 

43,2621 

0 0004 

0 

INHINT 

0597 

REF 

29 

LAST 

289 

43,2622 

4 4727 

0 

CS 

8 I T 1 4 

0598 

43,2623 

0 0006 

1 

EXTEND 

0599 

REF 

19 

LAST 

289 

43,2624 

03  C 12 

1 

WAND 

C HAN  1 2 

0600 

REF 

18 

LAST 

284 

43,2625 

0 5520 

0 

TC 

DOWNFLAG 

0601 

REF 

3 

LAST 

288 

43,2626 

00063 

1 

ADRES 

R04FL AG 

0602 

REF 

13 

LAST 

287 

43,2627 

0 5474 

0 

TC 

ENDEXT 

060  3 

REF 

2 

LAST 

288 

43, 2630 

3 4732 

0 

R77END 

CAF 

EBANK4 

0604 

REF 

8 

LAST 

288 

43,2631 

54  003 

0 

TS 

EBANK 

060  5 

REF 

29 

LAST 

29  1 

43,2632 

3 4746 

0 

CAF 

ZERO 

0606 

REF 

7 

LAST 

29  1 

43,2633 

55 ' 770 

1 

TS 

RSAMPDT 

060  7 

REF 

28 

LAST 

265 

43, 2634 

3 4737 

0 

CAF 

B IT6 

0608 

REF 

51 

LAST 

29  1 

43,2635 

0 4607 

1 

TC 

BANKCALL 

0609 

REF 

6 

LAST 

29  1 

43,2636 

01736 

1 

CADR 

DELAYJOB 

0610 

REF 

19 

LAST 

291 

43,2637 

0 5520 

0 

TC 

DOWNFLAG 

061  l 

REF 

2 

LAST 

288 

43, 2640 

00117 

0 

ADRES 

R77FLAG 

0612 

REF 

12 

LAST 

290 

43,2641 

1 2117 

0 

TCF 

GOPIN 

0613 

43, 2642 

C4  1 10 

0 

V16N72 

VN 

1672 

0614 

43,2643 

C4116 

a 

V16N78 

VN 

1678 

0615 

43,2644 

04102 

0 

V16N66 

VN 

1666 

0616 

43,2645 

04  103 

l 

V16N67 

VN 

1667 

061  7 

43,2646 

01014 

0 

V04N12X 

VN 

412 

0618 

43,2647 

14431 

1 

V50N25X 

VN 

5025 

0619 

43,2650 

00201 

1 

201R04 

OCT 

00201 

062  0 

43,2651 

00145 

1 

1SEC+1 

DEC 

101 

0621 

REF 

1 

4757 

250MS+1 

EQUALS 

CALLCODE 

0622 

43,2652 

00444 

0 

LRP0SCA1 

OCT 

444 
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USER' S PAGE  NO.  17  E4  S4 


FOR  LR  BASE  = 2,  MAX  = 3 


ZERO  RSAMPOT 
TO  TERMINATE  SAMPLING 
WAIT  1.28  SECONDS  FOR  POSSIBLE 
PENDING  RUPT. 


DISABLE  RR  AUTO  TRACKER 


SIGNAL  END  OF  R04  . 


TO  TERMINATE  SAMPLING 


WAIT  320  MS  FOR  POSSIBLE 
PENDING  RUPT. 


GAP:  ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L EXTENDED  VERBS 


062  7 

REF 

10 

LAST 

231 

43,2653 

3 C101 

1 

RDRUSECK 

CA 

FLAGWRD5 

062  8 

REF 

2 

LAST 

23  1 

43,2654 

7 4732 

1 

MASK 

R77FLBIT 

062  9 

REF 

73 

LAST 

290 

43,2655 

10  000 

0 

CCS 

A 

063  0 

REF 

17 

LAST 

288 

43,2656 

0 2116 

0 

TC 

ALM/END 

063  1 

REF 

5 

LAST 

278 

43,2657 

4 C 103 

1 

CS 

F LAGWRD7 

0632 

REF 

2 

LAST 

239 

43,2660 

7 4737 

1 

MASK 

V37FLBIT 

0633 

REF 

74 

LAST 

29  2 

43,2661 

10  000 

0 

CCS 

A 

0634 

REF 

1 

43,2662 

1 2667 

0 

TCF 

CHECKRR 

063  5 

REF 

6 

LAST 

278 

43,2663 

3 0107 

1 

CA 

FLGWRD1 1 

0636 

REF 

4 

LAST 

278 

43,2664 

7 4726 

1 

MASK 

LRBYBIT 

063  7 

43,2665 

0 0006 

1 

EXTEND 

0638 

REF 

18 

LAST 

292 

43,2666 

l 2116 

l 

BZF 

ALM/END 

0639 

REF 

9 

LAST 

243 

43,2667 

4 0075 

1 

CHECKRR 

CS 

FLAGWRD1 

0640 

REF 

l 

43,2670 

7 4740 

1 

MASK 

TRACKBI T 

064  1 

REF 

75 

LAST 

292 

43,2671 

10  COO 

0 

CCS 

A 

064? 

REF 

22 

LAST 

276 

43,2672 

0 0002 

0 

TC 

0 

064  3 

REF 

19 

LAST 

292 

43,2673 

0 2116 

0 

TC 

ALM/END 

065  3 

REF 

3 

LAST 

284  TO 

287: 

53  272* 

COUNT* 

$$/EXTVB 

0655 

REF 

7 

LAST 

288 

43,2674 

0 2076' 

1 

V B64 

TC 

T E ST  X AC  T 

065  6 

REF 

2 

LAST 

286 

43, 2675 

3 4731 

0 

CAF 

PR  104 

0657 

REF 

5 

LAST 

286 

43,2676 

0 5076 

0 

TC 

F INDVAC 

0658 

REF 

3 

LAST 

122 

E4, 1571 

EBANK= 

ALPHASB 

0659 

REF 

1 

43,2677 

03617 

1 

2CADR 

S BANDANT 

0659 

REF 

1 

43, 2700 

64104 

0 

066  0 

REF 

12 

LAST 

289 

43, 2701 

0 5146 

l 

TC 

ENDOF JOB 
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USER' S PAGE  NO.  18  E4  S4 

IS  R77  RUNNING? 


YES. 

IS  SERVICER  RUNNING  AND  HENCE  POSSIBLY 
R 1 2 USING  THF  LR? 

NO 

YES,  IS  R l 2 ON? 

BIT  15 

YES 

IS  THE  TRACK  FLAG  SET  AND  HENCE  POSSIBLY 
P20  USING  THE  RR? 

NOT  ALLOWED  DURING  P20 
P22  OR  P 25 , (R65) 


IF  DISPLAY  SYS.  MOT  BUSY, MAKE  IT  BUSY. 


CALC.  .DISPLAY  S-BAND  ANTFNNA  ANGLES 


GAP: 

L 

P0661 

R0662 

R0663 

R0664 

R0665 

R 0666 

R0667 

066  8 

066  9 

0670 

0671 

067  2 

0673 

0679 

0675 

0676 

0677 

0678 

0679 

0680 

0681 

0682 

0633 

I 

0685 

16  3 6 

0687 

0688 

0689 

0690 

0691 

0692 

069  3 

0694 

0695 

0696 

0696 

069  7 

0698 

0699 

0 70  0 

0701 
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EXTENDED  VERBS  USER'S  PAGE  NO.  19  E4  S4 

IMUATTCK  VERB  43  DESCRIPTION 

LOAD  IMU  ATTITUDE  ERROR  METERS 

1.  REQUIRE  POO  OR  FRESH  START. 

2.  REQUIRE  COARSE  ALIGN  ENABLE  AND  ZERO  I CDU  BITS  OFF. 

3.  REQUIRE  THAT  NEEDLES  BE  OFF. 

4.  REQUEST  LOAD  OF  N22  (VAUES  TO  BE  DISPLAYED). 

5.  ON  PROCEED  OR  ENTER  RE-DISPLAY  V43  AND  SEND  PULSFS. 


REF 

1 

43,2702 

0 2121 

L 

IMUATTCK  TC 

CHKPDOH 

VB  76  - LOAD  IMU  ATT.  ERROR  METERS 

REF 

3 

LAST 

190 

43,2703 

3 4754 

0 

CAF 

BITS465 

SEE  IF  COARSE  ALIGN  ENABLE  AND  ZERO  IMU 

43,2704 

0 0006 

1 

EXTEND 

CD US  BITS  ARE  ON 

REF 

2C 

LAST 

29  1 

43,2705 

02  012 

0 

RAND 

CHAN12 

REF 

76 

LAST 

292 

43,2706 

10  COO 

0 

CCS 

A 

REF 

20 

LAST 

292 

43,2707 

1 2116 

1 

TCF 

ALM/END 

NOT  ALLOWED  IF  IMU  COARSE  OR  IMU  ZERO  ON 

REF 

l 

43,2710 

3 4346 

1 

CAF 

BIT13-14 

BOTH  BITS  13  AND  14  MUST  BE  1 

43,2711 

0 0006 

l 

EXTEND 

INDICATING  THE  MODE  SELECTED  IS  OFF. 

REF 

1 

43,2712 

06  C31 

0 

RXOR 

CHAN31 

REF 

2 

LAST 

293 

43, 2713 

7 4346 

0 

MASK 

B I T 13-1 4 

43,2714 

0 0006 

1 

EXTEND 

43,2715 

l 2717 

0 

BZF 

+ 2 

NEEDLES  IS  OFF. 

REF 

21 

LAST 

293 

43, 2716 

1 2116 

1 

TCF 

ALM/END 

EXIT.  NEEDLES  IS  ON. 

REF 

8 

LAST 

292 

43,2717 

0 2076 

L 

TC 

T E ST  X AC  T 

REF 

2 

LAST 

281 

43,2720 

3 2233 

1 

CAF 

V NLODCDU 

REF 

52 

LAST 

29  1 

43,2721 

0 4607 

1 

TC 

BANKCALL 

REF 

5 

LAST 

287 

43,2722 

20323 

1 

CADR 

GOXOSPF 

REF 

14 

LAST 

29  1 

43,2723 

0 5474 

0 

TC 

ENDEXT 

V34 

43,2  724 

0 2725 

0 

TC 

+ 1 

REF 

1 

43,2725 

3 2 740 

0 

CAF 

V 43K 

REDISPLAY  OUR  VERR. 

REF 

53 

LAST 

293 

43, 2726 

0 4607 

1 

TC 

BANKCALL 

REF 

5 

LAST 

285 

43,2727 

20632 

1 

CADR 

EXDSPRET 

REF 

29 

LAST 

291 

43,2730 

3 4737 

0 

CAF 

B IT6 

43,2731 

0 0006 

1 

EXTEND 

REF 

21 

LAST 

293 

43,2732 

05  012 

1 

WOR 

CHAN12 

ENABLE  ERROR  COUNTERS. 

REF 

10 

LAST 

291 

43, 2733 

3 4743 

0 

CAF 

TWO 

REF 

9 

LAST 

289 

43, 2734 

0 5205 

0 

TC 

WAITLIST 

PUT  OUT  COMMANDS  IN  .32  SECONDS. 

REF 

8 

LAST 

207 

0321 

EBANK= 

THETAD 

REF 

1 

43,2735 

02035 

0 

2C  ADR 

ATTCK? 

REF 

1 

43,2736 

64  100 

1 

REF 

15 

LAST 

293 

43,2737 

1 5474 

1 

TCF 

ENDEXT 

42,2035 

BANK 

42 

REF 

1 

42,2000 

SETLOC 

P INBALL3 

SOMETHING  IN  B42 . 

42,2035 

BANK 

REF 

1 

COUNT  * 

t $/E  XTVB 

GAP : 

l 

0702 

0703 

0704 

070  5 

0706 

0707 

0708 

0709 

0710 

071  1 

0712 

0713 

0714 

0715 

0716 

071  7 

0718 

0719 

0720 

0721 

R0722 

R0723 

R0724 

R0725 

R0726 

R 0 7 2 7 

R0728 

R0729 

R0730 

R073  1 

R0732 

R0733 

R0734 

R0735 

R0736 

R0737 

R0738 

R073  9 

R0  740 

R0741 

R0742 

R0743 

R0744 

R0745 
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REF 

11 

LAST 

293 

42,2035 

3 4 743 

0 

ATTCK2 

CAF 

TWO 

REF 

23 

LAST 

292 

42,2036 

54  002 

l 

+ 1 

TS 

Q 

REF 

77 

LAST 

293 

42,2037 

50  000 

1 

INDEX 

A 

REF 

9 

LAST 

293 

42,2040 

3 C 32  1 

1 

CA 

THETAD 

42 ,2041 

0 0006 

1 

EXTEND 

REF 

1 

42,2042 

7 2053 

1 

MP 

ATTSCALE 

REF 

24 

LAST 

294 

42,2043 

50  002 

0 

INDEX 

Q 

REF 

2 

LAST 

104 

42,2044 

56  050 

1 

XCH 

CDUXCMD 

REF 

25 

LAST 

294 

42,2045 

10  002 

1 

CCS 

Q 

REF 

2 

LAST 

29  3 

42,2046 

1 2036 

1 

TCF 

ATTCK2  +1 

REF 

l 

42,2047 

3 7761 

0 

CAF 

13,14,15 

42,2050 

0 0006 

1 

EXTEND 

REF 

6 

LAST 

231  ’ 

42,2051 

05  014 

1 

WOR 

CHAN  14 

RFF 

4 

LAST 

250 

42, 2052 

1 5263 

1 

TCF 

T ASKUVER 

42,2053 

03146 

1 

attscale 

DEC 

0.1 

C7, 2607 

BANK 

7 

REF 

4 

LAST 

288 

43,2000 

SETLCC 

E XTVERBS 

43,2740 

BANK 

REF 

4 

LAST 

292  TO 

293: 

36  308* 

COUNT* 

*$/EXTVB 

43,2740 

12600 

1 

V 43K 

VN 

4300 

V82PERF  VERB  82  DESCRIPTION 


REQUEST  ORBIT  PARAMETERS  DISPLAY  (R30) 

1.  IF  AVERAGE  G IS  OFF: 

FLASH  DISPLAY  V04N06 . R2  INDICATES  WHICH  SHIP'S  STATE  VECTOR  IS 
TO  BE  UPDATED.  INITIAL  CHOICE  IS  THIS  SHIP  (R2=l).  ASTRONAUT 
CAN  CHANGE  TO  OTHER  SHIP  BY  V22EXE,  WHERE  X NOT  EQ  1. 

SELECTED  STATE  VECTOR  UPDATED  BY  THISPREC  (OTHPREC). 

CALLS  SR 30 . 1 (WHICH  CALLS  TFFCONMU  + TFFRP/RA ) TO  CALCULATE 
RPER  (PERIGEE  RADIUS),  RAPO  (APOGEE  RADIUS),  HP ER  (PERIGEE 
HEIGHT  ABOVE  LAUNCH  PAD  OR  LUNAR  LANDING  SITE),  HAPO  (APOGEE 
HEIGHT  AS  ABOVE),  TPER  (TIME  TO  PERIGEE),  TFF  (TIME  TO 
INTERSECT  300  KFT  ABOVE  PAD  OK  35K FT  ABOVE  LANDING  SITE). 

FLASH  MONITOR  V16N44  (HAPO,  HPER , TFF). TFF  IS  -59M59S  IF  IT  WAS 
NOT  COMPUTABLE,  OTHERWISE  IT  INCREMENTS  ONCE  PER  SECOND. 
ASTRONAUT  HAS  OPTION  TO  MONITOR  TP F R BY  KEYING  IN  N 32  E. 
DISPLAY  IS  IN  HMS,  IS  NEGATIVE  (AS  WAS  TFF),  AND  INCREMENTS 
ONCE  PER  SECOND  ONLY  IF  TEE  DISPLAY  WAS  -59M59S. 


PUT  OUT  COMMANDS. 

C DU  WILL  LIMIT  EXCESS  DATA. 


LEAVE  ERROR  COUNTERS  ENABLED. 


2.  IF  AVERAGE  G IS  ON: 

CALLS  SR30.1  APPROX  EVERY  TWO  SECS.  STATE  VECTOR  IS  ALWAYS 
FOR  THIS  VEHICLE.  V82  DOES  NOT  DISTURB  STATE  VECTOR.  RESULTS 
OF  SR30.1  ARE  RAPO,  RPER,  HAPO,  HPER,  TPER,  TFF. 

FLASH  MONITOR  V16N44  (HAPO,  HPER,  TFF). 

IF  MODE  IS  Pll,  THEN  CALL  DELRSPL  SO  ASTRONAUT  CAN  MONITOR 
RESULTS  BY  N50E.  SPLASH  COMPUTATION  OONE  ONCE  PER  TWO  SECS. 
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0746 

REF 

9 

LAST 

293 

43,2741 

0 

2C76 

1 

V82PERF 

TC 

TESTXACT 

0747 

REF 

2 

LAST 

287 

43,2742 

3 

5012 

1 

CAF 

P R 107 

074  8 

REF 

2 

LAST 

237 

43, 2743 

0 

5 137 

1 

TC 

PRIOCHNG 

0749 

43,2744 

0 

0006 

1 

EXTEND 

0750 

REF 

1 

43,2745 

3 

2750 

1 

DC  A 

V82C0N 

0 75  1 

REF 

1 

43, 2746 

0 

5 167 

1 

TC 

SUPDXCHZ 

0752 

REF 

2 

LAST 

121 

E4,  1707 

EBANK= 

HAPO 

0753 

REF 

1 

43,2747 

03244 

0 

V82C0N 

2C  ADR 

V 82C ALL 

0753 

REF 

1 

43,2750 

44  104 

1 

R0754 

VB83PERF 

VERB  83 

DESCRIPT  ION 

R0755 

REQUEST  RENDEZVOUS  PARAMETER  DISPLAY 

( R31  ) 

R0756 

l . SET 

EXT  VERB  DISPLAY 

BUSY  FLAG. 

R0757 

2.  SCHEDULE  R31CALL  WITH 

1 PRIORITY  5. 

R0758 

A. 

DISPLAY 

R0759 

R 1 RANGE 

R0760 

R2  RANGE  RATE 

R076  1 

R3  THETA 

0762 

REF 

10 

LAST  295 

43,2751  0 2076 

1 V83PERF 

TC 

TESTXACT 

0763 

REF 

24 

LAST  289 

43, 2752  3 4743 

0 

CAF 

BIT2 

1764 

REF 

10 

LAST  293 

43,2753  0 5205 

0 

TC 

WAITLIST 

0765 

REF 

1 

E7,  161  1 

EB ANK= 

TSTRT 

0766 

REF 

1 

43,2754  03741 

0 

2C  ADR 

R31CALL 

0766 

REF 

1 

43,2755  60107 

1 

0767 

REF 

13 

LAST  292 

43,2756  0 5146 

1 

TC 

ENDOFJOB 

R0768 

VERB 

89 

DESCRIPTION 

RENDEZVOUS  FINAL  ATTITUDE 

ROUTINE  ( R 63 ) 

LESS  THAN  LAMBERT.  R30,V82 


V82CALL  IN  DIFF  SIJPERBANK  FROM  V82PERF 


R0769  CALLED  8Y  VERB  89  ENTER  DURING  POO.  PRIO  10  USED.  CALCULATES  AND 

R0770  DISPLAYS  FINAL  FOAI  BALL  ANGLES  TO  POINT  LM  + X OR  +Z  AXIS  AT  CSM. 

R0771  1.  KEY  IN  V 89  E ONLY  IE  IN  PROG  00.  IF  NOT  IN  POO,  OPERATOR  ERROR  AND 

R0772  EXIT  Rt 3 , OTHERWISE  CONTINUE. 


R0773  2.  IF  IN  POO,  00  IMU  STATUS  CHECK  ROUTINE  ( R02BOTH ) . IF  I MU  ON  AND  ITS 

R0774  ORIENTATION  KNOWN  .TO  LGC  , CONTINUE. 

R0775  3.  FLASH  DISPLAY  V 04  N 06.  R2  INDICATES  WHICH  SPACECRAFT  AXIS  IS  TO 

R0776  BE  POINTED  AT  CSM.  INITIAL  CHOICE  IS  PREFERRED  1 +Z ) AXIS  (R2=l>. 

R0777  ASTRONAUT  CAN  CHANGE  TO  (+X)  AXIS  IR2  NOT  =1)  BY  V 22  E 2 E.  CONTINUE 
R0778  AFTER  KEYING  IN  PROCEED. 

R0779  4.  BOTE  VEHICLE  STATE  VECTORS  UPDATED  BY  CONIC  EQS . 

R0780  5.  HALF  MAGNITUDE  UNIT  LOS  VECTOR  (IN  STABLE  MEMBER  COORDINATES)  AND 
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R0781  HALF  MAGNITUDE  UNIT  SPACECRAFT  AXIS  VECTOR  (IN  BODY  COORDINATES) 
R0782  PREPARED  FOR  VECPOINT. 

R0783  6.  GIMBAL  ANGLES  FROM  VECPOINT  TRANSFORMED  INTO  F DA  I BALL  ANGLES  BY 

R0784  BALLANGS.  FLASH  DISPLAY  V 06  N 18  AND  AWAIT  RESPONSE. 

R0785  7.  RECYCLE  - RETURN  TO  STEP  4. 

R0786  TERMINATE  - EXIT  R63. 

R0787  PHCCEED  - RESET  3AXISFLG  AND  CALL  R60LEM  FOR  ATTITUDE  MANEUVER. 


0788 

REF 

2 

LAST 

293 

43,2757 

0 2121 

1 V89PERF 

TC 

CHKPOOH 

0789 

REF 

1 1 

LAST 

295 

'43,2760 

0 2076 

l 

TC 

T E ST  X AC  T 

0790 

REF 

1 

43, 2761 

3 4730 

1 

CAF 

PRI010 

0 791 

REF 

6 

LAST 

29  2 

43,2762 

0 5076 

0 

TC 

F INDVAC 

0792 

REF 

3 

LAST 

122 

E4, 1577 

EBANK= 

RONE 

0793 

REF 

1 

43,2763 

C2024 

0 

2C  ADR 

V 89C  ALL 

0793 

REF 

1 

43,2764 

54104 

0 

0794 

REF 

14 

LAST 

295 

43,2765 

0 5146 

1 

TC 

ENDOF JOB 

R0795 
R 0796 
R 079  7 
R 079  8 
R0799 
R0800 
R08O  1 
R0802 
R0803 
R0804 


V90PERF  VERB  90  DESCRIPTION 

REQUEST  RENDEZVOUS  CUT-OF-PLANE  DISPLAY  (R36) 

1.  SET  EXT  VERB  OISPLAY  BUSY  FLAG. 

2.  SCHEDULE  R36  CALL  WITH  PRIORITY  10 
A.  DISPLAY 

TIME  OF  EVENT  - HOURS  , MINUTES  , SECONDS 
Y OUT-OF-PLANE  POSITION  - NAUTICAL  MILFS 
YDOT  OUT-OF-PLANE  VELOCITY  - FEET/SFCOND 
PSI  ANGLE  BTW  LINE  OF  SIGHT  AND  FORWARD 

DIRECTION  VECTOR  IN  HORIZONTAL  PLANE  - DEGREES 


080  5 

REF 

6 

LAST 

292 

43,2766 

4 

C 103 

l 

VSOPERF  CS 

FLAGWRD7 

0805  1 

REF 

3 

LAST 

292 

43,2767 

7 

4737 

1 

MASK 

V37FLBIT 

08052 

43,2770 

0 

0006 

1 

EXTEND 

08053 

REF 

22 

LAST 

29  3 

43,2771 

l 

2116 

1 

BZF 

ALM/END 

AVERAGE  G 

ON:  ILL  EAGLE 

0 8055 

REF 

12 

LAST 

296 

43,2772 

0 

2076 

1 

TC 

TESTXACT 

0806 

REF 

3 

LAST 

295 

43, 2773 

3 

5012 

1 

CAF 

P R 107 

R36 , V 90 

0807 

REF 

7 

LAST 

296 

43,2  774 

0 

5C76 

0 

TC 

F INDVAC 

0808 

REF 

7 

LAST 

254 

E 7, 1441 

EBANK= 

T IG 

0809 

REF 

l 

43,2  775 

02677 

0 

2C  ADR 

R 36 

0809 

REF 

1 

43,2776 

10107 

0 

0810 

REF 

15 

LAST 

296 

43, 2777 

1 

5146 

0 

TCF 

ENDOF JOB 

R081  1 

MINIMP 

VERB  76 

DESCRIPTION 

R0812 

MINIMUM 

IMPULSE 

MOOE 

R0813 

l . 

SET 

MINIMUM 

IMPULSE  RHC 

MUDE  FLAG  TO  1. 

0814 

REF 

10 

LAST 

288 

43,3000 

0 

5506 

1 

MINIMP  TC 

UPFLAG 

SET  PULSES 

= 1 (M  IN.  IMPULSE  MODE ) 

081  5 

REF 

I 

43,3001 

00303 

1 

ADRES 

PULSEFLG 

0816 

REF 

13 

LAST 

291 

43, 3002 

1 

2117 

0 

TCF 

GOPI  N 

RETURN  VIA 

PINBRNCH 
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R0817 
R0818 
R0819 
R082  1 

0822 
082  3 
08235 

0824 

0825 
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NOM I N IMP  VERB  77  DESCRIPTION 

RATE  COMMAND  MODE 

1.  SET  MINIMUM  IMPULSE  RHC  MODE  FLAG  TO  0.  (ZERO  INDICATES  NOT  MINIMUM  IMPULSE  MODE.). 

2.  MOVE  CDUX ,CDUY , CDUZ  INTO  CDUX D , CDUYD , CDUZD . 


REF 

20 

LAST 

291 

43 , 3003 

0 5520 

0 

NOMINIMP  TC 

DOWNFLAG 

REF 

2 

LAST 

296 

43,3004 

0C3  03 

X 

ADRES 

PULSEFLG 

43,3005 

0 0004 

0 

INHINT 

REF 

11 

LAST 

256 

43,3006 

0 4665 

0 

TC 

I BNKCALL 

REF 

L 

43,3007 

4 G 1 54 

0 

CADR 

ZATTFROR 

REF 

14 

LAST 

296 

43,3010 

0 2117 

1 

TC 

GOPIN 

SET  PULSES  = 0 (NOT  MINIMUM  IMPULSE  MODE 
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P082  7 
R082  8 
R0829 
R0830 
R0831 
R0832 


CREWMANU  VERB  49  DESCRIPTION 

START  AUTOMATIC  ATTITUDE  MANEUVER 

1.  REQUIRE  PROGRAM  00  ACTIVE. 

2.  SET  EXT  VERB  DISPLAY  BUSY  FLAG. 

3.  SCHEOULE  R62DISP  WITH  PRIORITY  10. 

4.  RELEASE  EXT  VERB  DISPLAY. 


R0833 

R0834 

R0835 

R0836 

R0837 

R0838 

R0839 


R62DISP 

1.  DISPLAY  FLASHING  V06.N22. 

RESPONSES 

A.  TERMINATE 

1.  GO  TO  GCTOPOOH . 

B.  PROCEED 

1.  SFT  3AXISFLG  TO  INDICATE  MANEUVER  IS  SPECIFIED  BY  3 AXIS. 


DEMAND  POO 


R084  1 

2.  EXECUTE 

R60LEM 

(ATTITUDE 

MANEUVER ) 

. 

R0842 

C. 

ENTER 

R0843 

1.  REPEAT 

FLASHING 

V06.N22. 

0844 

REF 

3 

LAST 

296 

43,3011 

0 2121 

1 CREWMANU  TC 

CHKPOOH 

0845 

REF 

13 

LAST 

296 

43,3012 

0 2076 

1 

TC 

TE  ST  X ACT 

0846 

REF 

2 

LAST 

296 

43, 3013 

3 4730 

1 

CAF 

PRI010 

084  7 

REF 

8 

LAST 

296 

43,3014 

0 5076 

0 

TC 

F INDVAC 

0843 

REF 

2 

LAST 

140 

E 6 , 1675 

EBANK= 

BCDU 

084  9 

REF 

1 

43,3015 

02103 

1 

2C  ADR 

R62DISP 

0849 

REF 

l 

43,3016 

46  106 

l 

0850 

REF 

16 

LAST 

296 

43,3017 

0 5146 

1 

TC 

ENDOFJOB 
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P0851  TRMTR ACK 

R0852 

R0853 

R0854 

R0856 


VERB  56  DESCRIPTION 

TERMINATE  TRACKING  ( P20  AND  P25). 

1.  KNOCK  DOWN  RENDEZVOUS,  TRACK,  AND  UPDATE  FLAGS. 

2.  REQUIRE  P20  OR  P25  NOT  RUNNING  ALONE  OR  GO  TO  GOTOPOOH  (REQUEST  PROGRAM  00). 

3.  SCHEDULE  V56TCVAC  WITH  PRIORITY  30. 


R0857 


V56T0VAC 


R0858 

R0860 

R0861 


1.  EXECUTE  INTSTALL  (IF  INTEGRATION  IS  RUNNING,  STALL  UNTIL  IT  IS  FINISHED.). 

2.  ZERO  GROUP  2 TO  HALT  P20. 

3.  TRANSFER  CONTROL  TO  G0PR0G2  (SOFTWARE  RESTART). 


0862 

REF 

1 

43,3020 

3 601  7 

1 

TRMTRACK 

CA 

B ITS9  + 7 

IS  REND  OR  P25  FLAG 

ON 

0863 

REF 

18 

LAST 

243 

43,302  1 

7 CC74 

0 

MASK 

F LAGWRDO 

0864 

43,3022 

0 0006 

1 

EXTEND 

0865 

REF 

15 

LAST 

29  7 

43,3023 

1 2117 

0 

BZF 

GOPIN 

NO 

0870 

RFF 

21 

LAST 

297 

43,3024 

0 5520 

0 

TC 

DOWNF LAG 

ENSURE  SEARCH  FLAG 

IS  OFF 

0871 

REF 

1 

43,3025 

00037 

0 

ADRES 

SRCHOPTN 

0872 

REF 

2 

LAST 

292 

43,3026 

3 4 740 

0 

CA 

T RAC  KB  I T 

IS  TRACK  FLAG  ON? 

0873 

REF 

10 

LAST 

292 

43,3027 

7 0075 

1 

MASK 

FLAGWRD1 

0874 

43,3030' 

0 0006 

1 

EXTEND 

0875 

REF 

l 

43,3031 

1 3034 

1 

BZF 

CLRRND 

0876 

REF 

1 1 

LAST 

287 

43,3032 

0 4626 

1 

TC 

POST  JUMP 

0877 

REF 

l 

43,3033 

64054 

1 

CADR 

TRMTRAK1 

087  7 3 

REF 

2 

LAST 

299 

43,3034 

4 6017 

0 

CLRRND 

CS 

B ITS9  + 7 

TURN  OFF  RENDVZFLG 

AND  P25FLAG 

087  7 A 

REF 

3 

LAST 

239 

4736 

REFTAG5 

= 

RNDVZBIT 

08775 

REF 

2 

LAST 

239 

4734 

REFTAG6 

= 

P25FLRIT 

08776 

REF 

19 

LAST 

299 

43,3035 

7 C 074 

0 

MASK 

F LAGWRDO 

087  77 

REF 

20 

LAST 

299 

43,3036 

54  074 

0 

TS 

FLAGWRDO 

08778 

REF 

16 

LAST 

299 

43,3037 

1 2117 

0 

TCF 

GOPIN 

087  8 

RFF 

3 

LAST 

235 

6000 

setlqc 

FFTAG5 

08782 

6017 

BANK 

08785 

6017 

OC500 

l 

B ITS9+7 

OCT 

500 

0379 

REF 

3 

LAST 

287 

42,2000 

SETLOC 

S BAND 

BANK 

42 

0880 

42,2054 

BANK 

088  l 

REF 

2 

LAST 

293  TO 

294: 

15 

15* 

COUNT  * 

$ $ /E  X T V B 

08814 

REF 

30 

LAST 

291 

42,2054 

3 4727 

1 TRMTRAK1 

CAF 

B I T 1 4 

0 8815 

REF 

3 

LAST 

233 

42,2055 

55*073 

0 

TS 

AGSCDDE 

0382 

REF 

8 

LAST 

267 

42,2056 

0 6060 

1 

TC 

INTPRET 

0883 

42,2057 

43C14 

0 

CLFAR 

CLEAR 

TURN 

OFF  UPDATFLG  AND  IMUSE 

0884 

REF 

2 

LAST 

243 

42,2060 

0C267 

1 

I MUSE 
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EXTEND! 
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0885 

REF 

I 

42,2061 

C0670 

0 

UPOATFLG 

0889 

42, 2062 

77624 

l 

CALL 

0890 

REF 

3 

LAST 

247 

42,2063 

27447 

0 

I NTSTALL 

0891 

42,2064 

77  7 76 

1 

EX  I T 

0892 

REF 

2 

LAST 

240 

42,2065 

0 5355 

1 

TC 

PHASCHNG 

0893 

42,2066 

00002 

0 

OCT 

2 

0894 

42,2067 

0 0004 

0 

INHINT 

0895 

P.EF 

12 

LAST 

297 

42,2070 

0 4665 

0 

TC 

I BNKCALL 

0896 

REF 

1 

42,2071 

40166 

1 

CADR 

STOPRATE 

0897 

REF 

13 

LAST 

300 

42,2072 

0 4665 

0 

TC 

I BNKCALL 

0898 

REF 

1 

42,2073 

4C115 

0 

CADR 

R ESTORDB 

0899 

REF 

5 

LAST 

283 

42,2074 

0 6027 

1 

TC 

clradmod 

0900 

REF 

31 

LAST 

299 

42,2075 

4 4727 

0 

CS 

BIT14 
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EXTEND 

1083 

20,2  07A 

1 2101 

l 

BZF 

+ 5 

108  A 

REF 

22 

LAST 

231 

20,2075 

A A 120 

1 

CS 

BIT15 

1005 

REF 

13 

LAST 

300 

20,2076 

7 0J75 

l 

MASK 

FLAGWRD1 

1086 

REF 

1A 

LAST 

306 

20,2077 

5A  075 

1 

TS 

FLAGWRD1 

108/ 

20,2100 

1 2 10A 

1 

TCF 

+ A 

1088 

REF 

15 

LAST 

30  6 

20,2101 

A 0075 

1 

CS 

FLAGWRD1 

1089 

REF 

23 

LAST 

306 

• 20,2102 

7 A 726 

l 

MASK 

B I T 1 5 

1090 

REF 

16 

LAST 

306 

20,2103 

26  C 75 

1 

ADS 

FLAGWRD1 

1091 

REF 

10 

LAST 

306 

20,2 10A 

3 0111 

0 

CA 

DAPBOOLS 

1092 

REF 

2 

LAST 

2AA 

20,2  105 

7 6266 

l 

MASK 

THREE 

1093 

20,2106 

6 0000 

l 

DOUBLE 

109  A 

REF 

2 

LAST 

223 

20,2 107 

55' 322 

1 

TS 

RATEINOX 

1095 

REF 

IA 

LAST 

30A 

20,2110 

0 A626 

1 

TC 

POST  JUMP 

1096 

REF 

1 

20,2111 

022 1 A 

l 

CADR 

STIKLOAD 

109  7 

20,2  112 

01056 

0 

V0ANA6  VN 

0 AA6 

1098 

20,2113 

33  133 

0 

OSPLYMSK  OCT 

33133 

1099 

20.211A 

13133 

1 

BOOLSMSK  OCT 

13133 

1100 

01.221A 

BANK 

01 

110  1 

REF 

2 

1 AS1 

A5 

01,2000 

SFTLCC 

LDADDAPl 

1102 

01.221A 

BANK 

1 10  3 

REF 

2 

LAST 

A 5 TU 

A5 : 

2 

2* 

COUNT* 

*t/R03 

1 10  A 

REF 

3 

LAST 

230 

0 1 , 22 1 A 

3 5006 

1 

STIKLOAD  CAF 

E BANK  6 

1 105 

REF 

9 

LAST 

291 

01,2215 

5 A C03 

0 

TS 

EBANK 

1 106 

REF 

2 

LAST 

223 

E6, 1 AA A 

EBANK= 

STIKSENS 

1 107 

REF 

1 

01, 2216 

3 A 736 

l 

CA 

RHCSCALE 

110  0 

REF 

11 

LAST 

306 

01,2217 

7 0111 

1 

MASK 

DAPBODLS 

l 109 

REF 

82 

LAST 

305 

01,2220 

10  000 

0 

CCS 

A 

1110 

REF 

1 

01,2221 

3 23A3 

1 

CA 

NORMAL 

mi 

REF 

1 

01,2222 

6 2 JAA 

0 

AD 

F INE 

1112 

REF 

3 

LAST 

306  • 

01,2223 

55 ■ AAA 

0 

TS 

STIKSENS 

1113 

REF 

1 

01.222A 

3 2 3A6 

1 

CA 

-0.6D/S 

U1A 

REF 

3 

LAST 

223 

01,2225 

55* A76 

1 

TS 

-RATEDB 

1115 

REF 

3 

LAST 

305 

01,2226 

3 A730 

1 

CA 

C SMOOCKO 

1116 

REF 

12 

LAST 

306 

01,2227 

7 0111 

l 

MASK 

DAPBOOLS 

1117 

01,2230 

0 0006 

1 

EXTEND 

1118 

01,2231 

1 22A0 

1 

BZF 

+ 7 

1119 

REF 

A 

LAST 

306 

01,2232 

3 l AAA 

1 

CA 

STIKSENS 

1120 

01,2233 

0 0006 

l 

EXTEND 

1 12  l 

REF 

1 

01 ,223A 

7 23A5 

0 

MP 

1/10 

1122 

REF 

5 

LAST 

306 

01,2235 

55  'AAA 

0 

TS 

STIKSENS 

1 123 

REF 

1 

01,2236 

3 2 3A7 

0 

CA 

-0.3D/S 

1 12  A 

REF 

A 

LAST 

306 

01,2237 

55' A76 

1 

TS 

-RATEDB 
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2 OR  A JET  X-TRANSLAT ION 
(BIT  ACCA0R2X  = 1 FOR  A J FTS I 


CLEAR  NJTSFLAG  TO  0 FOR  A JETS 


SET  NJTSFLAG  TQ  I FOR  2 JETS 


SELECT  DESIRFD  KALCMANU  AUTOMATIC 
MANEUVER  RATE 

RATEINOX  HAS  TO  BE  0,2, A, 6 SINCF  RATES 
ARE  DP 


SET  STICK  SENSITIVITY  TO  CORRESPOND  TO  A 
MAXIMUM  COMMANDED  RATE  (AT  A2  COUNTS)  OF 
20  D/S(NORMAL)  DR  A D/S(FINF),  SCALED 
AT  A 5 D/S. 


LM-ONLY  BREAKOUT  LEVFL  IS  .6  D/S. 

IF  CS  M— DOCKED , DIVIDF  STICK  SFNSITIVITY 
BY  10.  NORMAL  SCALING  IS  THEN  2 D/S  AND 
FINE  SCALING  IS  O.A  0/S 
BRANCH  IF  CSM  IS  NOT  OOCKED. 


C SM— DOCK  ED  BREAKOUT  LEVFL  IS  .3  D/S 


GAP: 


ASSEMBLE  REVISION  210  CF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L EXTENDED  VERBS 


1125 

01,2240 

0 

CC03 

1 

RELINT 

1126 

REF 

1 

01,2241 

3 

2341 

0 

DAPDATA2 

CAF 

V 064  7 

112  7 

REF 

56 

LAST 

305 

01, 2242 

0 

4607 

1 

TC 

BANKCALL 

1120 

REF 

2 

LAST 

305 

01,2243 

20345 

1 

CADR 

GOXDSPFR 

1129 

REF 

1 

01,2244 

1 

2252 

1 

TCF 

ENDR03 

1130 

REF 

1 

01,2245 

1 

2256 

0 

TC  F 

DAPDAT2 

113  1 

REF 

1 

01,2246 

1 

2241 

0 

TCF 

DAPDATA2 

1132 

REF 

19 

LAST 

305 

01,2247 

3 

4742 

1 

CAF 

B IT3 

1 13  3 

REF 

7 

LAST 

305 

01 , 2250 

0 

5466 

0 

TC 

BLANKET 

1134 

REF 

19 

LAST 

305 

01 , 2251 

1 

5146 

0 

TCF 

ENDOF JOB 

1135 

01,2252 

0 

0004 

0 

ENDR03 

INHINT 

1136 

REF 

14 

LAST 

300 

01,2253 

0 

4665 

0 

TC 

I BNKC ALL 

1137 

REF 

2 

LAST 

300 

01,2254 

40115 

0 

CADR 

RESTORDB 

113  8 

REF 

18 

LAST 

305 

. 01,2255 

1 

5474 

1 

TCF 

ENDEXT 

1 139 

REF 

12 

LAST 

305 

01,2256 

4 

C 106 

1 

DAPDAT2 

CS 

FLGWRD10 

1140 

REF 

5 

LAST 

305 

01, 2257 

7 

4 730 

0 

MASK 

APSFLBIT 

1 141 

REF 

83 

LAST 

306 

01,2260 

b' 

1 000 

0 

CCS 

A 

1142 

REF 

1 

01,2261 

3 

2000 

0 

CA 

MINLMD 

1 143 

REF 

1 

01,2262 

6 

2001 

1 

AD 

MINMINLM 

1144 

RFF 

9 

LAST 

306 

01 , 2263 

6 

1326 

1 

AD 

LEMMASS 

114  5 

01,2264 

0 

0006 

1 

EXTEND 

114  6 

REF 

2 

LAST 

307 

01,2265 

6 

2241 

1 

BZMF 

DAPDATA2 

1 147 

REF 

13 

LAST 

306 

01 , 2266 

30 

111 

0 

CAE 

DAPBOOLS 

1140 

REF 

4 

LAST 

306 

01 , 2267 

7 

4730 

0 

MASK 

CSMDOCKD 

1149 

01,2270 

0 

0006 

1 

EXTEND 

1150 

REF 

1 

01,2271 

1 

22  77 

0 

BZF 

LEMALONE 

1151 

REF 

1 

01,2272 

4 

4732 

1 

CS 

MINCSM 

1152 

REF 

8 

LAST 

305 

01 , 2273 

6 

132  7 

0 

AD 

CSMMASS 

1153 

01,2274 

0 

0 C06 

1 

EXTEND 

1154 

REF 

3 

LAST 

307 

01,2275 

6 

2241 

1 

BZMF 

DAPDATA2 

1155 

REF 

9 

LAST 

30  7 

01,2276 

31 

• 327 

0 

CAE 

CSMMASS 

1156 

REF 

10 

LAST 

307 

01,2277 

6 

13  26 

1 

LEMA1 ONE 

AD 

LEMMASS 

1157 

01,2300 

22 

CO  7 

0 

ZL 

1158 

REF 

4 

LAST 

306 

01,2301 

53 

• 244 

0 

DXCH 

MASS 

1159 

01,2302 

. 0 

0 C04 

0 

INHINT 

1 160 

REF 

15 

LAST 

307 

01,2303 

0 

4665 

0 

TC 

I BNKCALL 

1161 

REF 

3 

LAST 

307 

01,2304 

4 C 11 5 

0 

CADR 

RESTORDB 

1162 

01,2305 

0 

0003 

1 

RELINT 

1163 

REF 

13 

LAST 

307 

01,2306 

4 

C 106 

1 

DAPDATA3 

CS 

FLGWRD10 

1 164 

REF 

6 

LAST 

307 

01,2307 

7 

4730 

0 

MASK 

APSFLBI T 

1 165 

01,2310 

0 

0006 

1 

EXTEND 

1166 

REF 

19 

LAST 

307 

01,2311 

1 

54  74 

1 

BZF 

ENDEXT 

116  7 

REF 

l 

01,2312 

2342 

0 

CAF 

V06N48 

1 168 

REF 

57 

LAST 

307 

01,2313 

0 

4607 

1 

TC 

BANKCALL 

1169 

REF 

3 

LAST 

307 

01,2314 

20345 

1 

CADR 

GOXDSPFR 

1170 

REF 

20 

LAST 

30  7 

01,2315 

0 

5474 

0 

TC 

ENDEXT 

1171 

REF 

1 

01,2316 

1 

2323 

0 

TCF 

DPDAT3 
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USER' S PAGE  NO.  33  E6  S3 

PROCEED  TO  NOUN  47,  MASS  LOAD, 


V34E  TERMINATE.  FIRST  SET  DR,  DO  1/ACCS 
V33E  PROCEED 

LOAD  NEW  DATA  AND  RECYCLF 
BLANKS  R3 

LM 


DOES  RELINT 

DETERMINE  STAGE  FROM  APSELAG 


LEMMASS  MUST  BE  GREATER  THAN  EMPTY  LFM 
ASK  FOR  NEW  MASSES 


SKIP  TEST  ON  CSMMASS  IF  NOT  OOCKED. 
TEST  CSM  MASS 

CSMMASS  MUST  BE  GREATER  THAN  EMPTY  CSM 

ASK  FOR  NEW  MASSES 

DOCKED:  MASS  = CSMMASS  + LFMMASS 

LEM  ALONE:  MASS  = LEMMASS 


SET  OEADRANK  AND  COMPUTE  MOMFNTS  OF 
INERT  I A. 

PROCEED  TO  NOUN  49  (OR  FND ) . 


END  ROUTINE  IF  LEM  HAS  STAGED, 

DISPLAY  TRIM  ANGLES  AND  REQUEST  RESPONSE 


V33E  GO  DO  TRIM  (WAITLIST  TO  TRIMGIMB) 


GAP : ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  202II12-I61 

L EXTENDED  VERBS 


1172 

01,2317 

1 2312 

1 

TCF 

-5 

1173 

REF 

20 

LAST 

307 

01,2320 

3 4742 

l 

CAF 

B IT3 

1174 

REF 

8 

LAST 

30  7 

01, 2321 

0 5466 

0 

TC 

BLANKET 

1175 

REF 

20 

LAST 

307 

01,2322 

1 5146 

0 

TCF 

ENDOF JOB 

1 170 

REF 

19 

LAST 

191 

01,2323 

3 4744 

l 

DPDAT3 

CAF 

BITl 

1177 

REF 

11 

LAST 

295 

01,2324 

0 5205 

0 

TC 

WAITLIST 

1178 

REF 

1 

E6, 1401 

EBANK= 

ROLLTIME 

1179 

REF 

1 

01,2325 

03221 

0 

2CADR 

TR I MG I MB 

1179 

REF 

1 

01,2326 

56066 

1 

1180 

REF 

21 

LAST 

308 

01,2327 

1 5146 

0 

TCF 

ENDOF JOB 

1 181 

REF 

l 

01,2330 

3 2342 

0 

TRIMDONE 

CAF 

V50N48 

1182 

REF 

58 

LAST 

307 

01,2331 

0 4607 

1 

TC 

BANKCALL 

1183 

REF 

L 

01,2332 

20353 

0 

CADR 

G0MARK3R 

1184 

REF 

21 

LAST 

307 

01,2333 

0 54  74 

0 

TC 

ENDEXT 

1 185 

REF 

22 

LAST 

308 

01,2334 

0 5474 

0 

TC 

ENDEXT 

1186 

REF 

23 

LAST 

308 

01,2335 

0 54  74 

0 

TC 

ENDEXT 

l 187 

REF 

3 

LAST 

280 

01,2336 

3 6C0  7 

0 

CAF 

0CT24 

118! 

REF 

9 

LAST 

308 

01,2337  ■ 

0 5466 

0 

TC 

BLANKET 

1189 

REF 

22 

LAST 

308 

01,2340 

1 5146 

0 

TCF 

ENDOF JOB 

1 190 

01,2341 

01457 

0 

V0647 

VN 

0647 

1191 

01,2342 

C 1460 

1 

V06N48 

VN 

0643 

l 192 

REF 

2 

LAST 

307 

01,2342 

V50N48 

= 

V06N48 

1193 

01,2343 

25101 

0 

NORMAL 

DEC 

.660214 

A1  194 

1195 

01,2344 

C5220 

1 

FINE 

DEC 

. 165054 

1 196 

01,2345 

C3146 

l 

1/10 

DEC 

. 1 

1197 

01,2346 

77445 

1 

-0.6D/S 

DEC 

-218 

1 1 

01,2347 

77622 

l 

-0.30/S 

DEC 

-109 
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LOAD  NEW  DATA  AND  RECYCLE 
BLANK  R3 


DOES 

A RELINT 

TRIM 

IS  FINISHFD; 

PLF ASE 

TERMINATE  R03 

V34E 

TERMINATE 

BIT5 

TO  CHANGE  TO 

PERFORM 

, 3 TO  BLANK 

NORMAL  SCALING  IS  20  D/S 
FINE  STICK  SCALING  [4  D/S). 
FACTOR  FOR  CSM-DOCKED  SCALING 


GAP: 


ASSEMBLE  REVISION  210  OE  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L EXTENDED  VERBS 

P1199  VERB  66.  VEHICLES  ARE  ATTACHED.  MOVE  THIS  VEHICLE  STATE  VECTOR 
R 1 200  OTHER  VEHICLE  STATE  VECTOR. 

R1201  USE  SUBROUTINE  GENTRAN. 


1202 

07,2607 

8ANK 

7 

1203 

REF 

6 

LAST 

300 

A3, 2000 

SETLOC 

EXTVERBS 

120  A 

A3 , 3 1 A 1 

BANK 

120  5 

REF 

6 

LAST 

300  TO 

30A : 

65  438# 

COUNT# 

$ $/E  X TVB 

1206 

REF 

1 

E 3 , 1626 

EB AN  K = 

RRECTHI S 

1207 

REF 

2 

LAST 

265 

A3 , 3 1 A 1 

A C 104 

0 

ATTACHED 

CS 

FLAGWRD8 

120  8 

REF 

1 

A3, 3 1A2 

7 4735 

0 

MASK 

SURFFBIT 

1209 

A3 ,3143 

0 CC06 

1 

EXTEND 

1210 

REF 

2A 

LAST 

302 

A3.31AA 

1 2116 

1 

BZF 

ALM/END 

121  1 

REF 

3 

LAST 

298 

A3, 3 1A5 

3 4730 

1 

CAF 

PRI010 

1212 

REF 

10 

LAST 

302 

A 3 , 3 1 A 6 

0 5076 

0 

TC 

F INDVAC 

1213 

REF 

2 

LAST 

309 

E3 , L 626 

EBANK= 

RRECTHIS 

121 A 

REF 

l 

43 , 3 1A  7 

03152 

1 

2CADR 

ATTACHIT 

121  A 

REF 

1 

43,3150 

66103 

0 

1215 

REF 

23 

LAST 

308 

43,3151- 

0 5 146 

1 

TC 

ENDOF JOB 

1216 

REF 

9 

LAST 

299 

43,3152 

0 6060 

1 

ATTACHIT 

TC 

INTPRET 

1217 

43,3153 

77624 

1 

CALL 

1218 

REF 

A 

LAST 

300 

43,3154 

27A47 

0 

I NTSTALL 

1219 

43,3155 

43014 

0 

SET 

BON 

1220 

REF 

1 

43,3156 

04063 

0 

MOONOTH 

122  1 

REF 

1 

43,3157 

04  304 

1 

MOONTHI S 

1222 

43,3160 

67163 

1 

+ 3 

1223 

43,3161 

77614 

1 

CLEAR 

1 22  A 

REF 

2 

LAST 

309 

43,3162 

04263 

1 

MOONOTH 

1225 

43,3163 

7 17  76 

1 

EX  I T 

1226 

REF 

1 

43,3164 

3 3207 

1 

CAF 

0CT51 

1227 

REF 

1 

43,3165 

0 5546 

0 

TC 

GENTRAN 

1228 

REF 

3 

LAST 

309 

43,3166 

01626, 

1 

ADRES 

RRECTHIS 

1229 

REF 

l 

43,3167 

01554 

1 

ADRES 

RR EC  TOTH 

1230 

43,3170 

0 0003 

1 

REL INT 

1231 

REF 

10 

LAST 

309 

43,3171 

0 6060 

1 

TC 

I NTPRET 

1232 

43,3172 

77624 

1 

CALL 

123  3 

REF 

1 

43,3173 

27016 

0 

PTOALEM 

123  A 

43,3174 

45  154 

0 

LXA  , 2 

CALL 

1235 

REF 

2 

LAST 

118 

43,3175 

02030 

0 

P BOD  Y 

1236 

REF 

1 

43,3176 

26114 

1 

SVDWN1 

1237 

43,3177 

77776 

1 

EXI  r 

1238 

REF 

1 

43,3200 

3 3210 

1 

CAF 

TCP  I NAD 
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LEMONAID. 156 
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USER'S  PAGE  NO.  35  E6  S3 


TURN  ON  OE  AND  FX  IT  IF  SURFFLAG  SET. 


OUR  STATE  VECTOR  INTO  OTHER  VTA  GENTRAN 


UPDATE  R-OTHER,  V-OTHER 


GAP 


ASSEMBLF  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  202L112-L61 


17:11  MAR.  19,1971 


LFMON A 1 D • 1 56  PAGE  310 


L 

EXTENDED 

VERBS 

1239 

REF 

8 

LAST 

266 

43,3201 

50  120 

1 

INDEX 

F IXLOC 

1240 

REF 

l 

43,3202 

54  052 

1 

TS 

QPRET 

124  1 

REF 

15 

LAST 

306 

43,3203 

0 4626 

l 

TC 

POST JUMP 

1242 

REF 

1 

43,3204 

27460 

0 

CADR 

INTWAKE 

1243 

43,3205 

77634 

0 

TCP  I N 

RTB 

1244 

REF 

3 

LAST 

277 

43,3206 

21C62 

0 

PINBRNCH 

1245 

43,3207 

00C51 

0 

0CT51 

OCT 

51 

1246 

REF 

1 

43,3210 

67205 

1 

TCPI NAD 

CADR 

TCPIN 

R1247 

VERB 

96 

SET  QUITFLAG  TO  STOP 

INTEGRAT ION . 

R 1248 

GO  TO 

V37  WITH  ZERO 

TO  CAUSE 

POO. 

l 

STATEINT  will  check 

CUITFLAG 

AND  SK  IP  1ST  PASS, 

1 

R 1 2 5 0 

THUS 

ALLOWING 

A 10  MINUTE  PERIOD 

WITHOOT  INTEGRATION 

1251 

REF 

13 

LAST 

301 

43,3211 

0-5506 

1 

VERB96 

TC 

UPFLAG 

126  2 

REF 

l 

4 J , 32 1 2 

0C221 

0 

ADRES 

QUITFLAG 

1253 

REF 

30 

LAST 

29  1 

43,3213 

3 4746 

0 

CAF 

ZERO 

1254 

REF 

16 

LAST 

310 

43,3214 

0 4626 

l 

TC 

POSTJUMP 

1255 

REF 

1 

43,3215 

10054 

1 

CADR 

V 3 7 

R 1256 

R 1 25  7 

VERB 

67  : 

DISPLAY 

CF  W MATRIX 

1258 

REF 

17 

LAST 

304 

43,3216 

0 2C76 

1 

V 67 

TC 

TESTXACT 

1259 

REF 

2 

LAST 

240 

43,3217 

3 5010 

0 

CAF 

PRI05 

1260 

REF 

11 

LAST 

309 

43,3220 

0 5C76 

0 

TC 

F INDVAC 

126  1 

REF 

2 

LAST 

120 

E4, 1571 

EBANK= 

WWPOS 

1262 

REF 

l 

43,3221 

C2007 

1 

2CA0R 

V67CALL 

1262 

REF 

1 

43,3222 

62064 

1 

1263 

REF 

24 

LAST 

309 

43,3223 

0 5146 

1 

TC 

ENDOF JOB 

R 1 264 

VERB 

65 

DISABLE  U,V  JETS  DURING  DPS  BURNS 

1265 

REF 

14 

LAST 

310 

43,3224 

0 5506 

1 

SNUFFOUT 

TC 

UPFLAG 

1266 

REF 

l 

43,3225 

00115 

1 

ADRES 

SNUFFER 

1267 

REF 

2 l 

LAST 

30  2 

43,3226 

0 2117 

l 

TC 

GOPI  N 

R 1 26  8 

VERB 

75 

ENABLE  U,V  JETS  DURING 

DPS  BURNS 

126  9 

REF 

24 

LAST 

301 

43,3227 

0 5520 

0 

outsnuff 

TC 

DOWNFLAG 

1270 

REF 

2 

LAST 

310 

43,3230 

0C115 

1 

ADRES 

SNUFFER 

1271 

REF 

22 

LAST 

310 

43,3231 

0 2 117 

1 

TC 

GOP  IN 

R1272 

VERB 

85 

DISPLAY  RR  LOS  AZIMUTH 

A-ND  ELEVATION. 

R1273 

AZIMUTH  IS 

THE  ANGLE 

BETWEEN 

THE  LOS  AND  THE  X- 

-Z  NB  PLANE,  i 

R 127  5 

36C  - 

270  DEG 

IN  THE 

-Y  HEMISPHERE. 

USER'S  PAGE  NO.  36  E3  S4 


FREE  INTEGRATION  AND  EXIT. 


QUITFLAG  WILL  CAUSE  INTEGRATION  TO  EXIT 
AT  NFXT  TIMESTEP 


GO  TO  POO 


- 90  DEG  IN  THE  +Y  HEMISPHERE, 
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L EXTENDED  VERBS 


R 1276 

ELEVATION 

IS  THE  ANGLE 

8ETWEEN 

+ ZNB  AND 

THE  PROJECTION  OF 

127b 

REF 

2 

LAST 

122 

E4, 1571 

EBANK= 

RR-AZ 

1279 

REF 

18 

LAST 

310 

43,3232 

0 

2076 

1 

VERB85 

TC 

TESTX  ACT 

1280 

REF 

17 

LAST 

310 

43,3233 

0 

4626 

1 

TC 

POST  JUMP 

1281 

REF 

1 

43,3234 

62C00 

0 

CADR 

DSPRRLOS 

1282 

REF 

1 

41,2000 

SETLOC 

P INBALL2 

1233 

41,2000 

BANK 

1284 

REF 

1 

COUNT  * 

$ $/E  XTVB 

1285 

REF 

3 

LAST 

310 

41,2000 

3 

5010 

0 

DSPRRLOS 

CAF 

P R 105 

1286 

REF 

12 

LAST 

310 

41,2001 

0 

5076 

0 

TC 

F INDVAC 

1287 

REF 

3 

LAST 

311 

E4 , 1571 

EB ANK= 

RR-AZ 

1288 

REF 

1 

41,2002 

C2000 

0 

2C  ADR 

RRLOSDSP 

1288 

REF 

1 

41,2003 

6 C 104 

1 

1289 

REF 

3 

LAST 

292 

41,2004 

3 

4731 

0 

CAF 

PR  104 

1290 

REF 

5 

LAST 

304 

41,2005 

0 

5 137 

1 

TC 

PRIOCHNG 

1291 

REF 

l 

41,2006 

3 

2C  17 

0 

CAF 

V16N56 

1292 

REF 

59 

LAST 

308 

41,2007 

0 

4607 

1 

TC 

BANKCALL 

1293 

REF 

5 

LAST 

289 

41,2010 

20345 

1 

CADR 

GOMARKFR 

1294 

REF 

1 

41,2011 

0 

5565 

1 

TC 

B50FF 

1295 

REF 

2 

LAST 

31  1 

41,2012 

0 

5565 

1 

TC 

B5UFF 

1296 

REF 

3 

LAST 

31  1 

41, 2013 

0 

5565 

1 

TC 

B50FF 

1297 

REF 

21 

LAST 

308 

41,2014 

3 

4742 

1 

CAF 

B I T 3 

129  8 

REF 

10 

LAST 

308 

41,2015 

0 

54  66 

0 

TC 

BLANKET 

1299 

REF 

25 

LAST 

310 

41,2016 

0 

5146 

1 

TC 

ENDOF JOB 

12992 

41,2017 

C 4 0 7 0 

1 

V16N56 

VN 

1656 

1299  5 

REF 

l 

40,2000 

SETLOC 

P I NB ALL  1 

12996 

40,2000 

BANK 

1300 

40,2000 

0 0006 

1 

RRLOSDSP  EXTEND 

1301 

REF 

5 

LAST 

215 

40,2001 

3 0036 

1 

DC  A 

CDUT 

1302 

REF 

42 

LAST 

302 

40,2002 

52  155 

1 

DXCH 

MPAC 

1303 

REF 

11 

LAST 

309 

40,2003 

0 6060 

1 

TC 

INTPRET 

1304 

40,2004 

77624 

1 

CALL 

1305 

REF 

l 

40,2005 

46C65 

0 

RRNBMPAC 

1306 

40,2006 

0C001 

0 

STORE 

OD 

1307 

40,2007 

14007 

0 

STOOL 

6 D 

1308 

REF 

1 

40,2010 

06505 

1 

HI6ZFR0S 

1309 

40,2011 

24011 

1 

STOVL 

8D 

1310 

40,2012 

0C007 

0 

60 

131  1 

40,2013 

77656 

1 

UNIT 

1312 

40,2014 

0CCO7 

0 

STORE 

60 

1313 

40,2015 

77641 

1 

DOT 
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USER'S  PAGE  NO.  37 
THE  LOS  INTO  THE  X-Z  PLANE,  0 


E3  S4 

360  ABOUT  +Y. 


GET  RR  LOS  IN  BODY  AXIS. 
UNIT  LOS 


UNIT  OF  LOS  PROJ  IN  X-Z  PLANE 


GAP 
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L 

EXTENDED 

VERBS 

USER'S  PAGE  NO. 

38 

E 4 S4 

1319 

REF 

3 

LAST 

38 

40,2016 

06477 

0 

UNITZ 

1315 

REF 

1 

40, 2017 

24021 

1 

STOVL 

COSTH 

160 

1316 

REF 

3 

LAST 

38 

40,2020 

06503 

1 

UN  IT  X 

1317 

40,2021 

77641 

1 

DOT 

I 11 

40,2022 

00007 

0 

6D 

1319 

REF 

l 

40,2023 

34023 

l 

stcall 

S INTH 

18D 

132( 

REF 

1 

40,2024 

47303 

1 

ARCTRIG 

1321 

40,2025 

43244 

1 

BP  L 

DAD 

INSURE  DISPLAY  OF  0 

- 

360 

DEG. 

l 12  i 

40,2026 

60030 

1 

+ 2 

132  3 

REF 

l 

40,2027 

06513 

0 

D PROS  MAX 

INTRODUCES  AN  ERROR 

OF 

8- 

28  RFVS. 

132  4 

REF 

l 

40,2030 

26174 

1 

STOVL 

RR-ELEV 

132  5 

40,2031 

0CC01 

0 

OD 

1326 

40,2032 

77641 

l 

DOT 

1327 

REF 

2 

LAST 

38 

40,2033 

06501 

0 

UNITY 

1328 

REF 

2 

LAST 

312 

40,2034 

24C23 

0 

STOVL 

SINTH 

132  9 

40,2035 

00001 

0 

OD 

1330 

40,2036 

77641 

1 

DOT 

1331 

40,2037 

00007 

0 

6D 

1332 

REF 

2 

LAST 

312 

40,2040 

34021 

0 

STCALL 

COSTH 

1 

REF 

2 

LAST 

312 

40,2041 

47303 

1 

ARCTRIG 

1334 

40,2042 

43244 

1 

BPL 

DAD 

INSURE  DISPLAY  OF  0 

- 

360 

DEG. 

133  5 

40,2043 

6CC45 

0 

+ 2 

1336 

REF 

2 

LAST 

312 

40,2044 

C6513 

0 

D PPOSMAX 

INTROOUCFS  AN  ERROR 

OF 

B- 

28  REVS. 

133  7 

REF 

4 

LAST 

31  1 

40,2045 

02172 

1 

STORE 

RR-AZ 

1331 

40,2046 

7 7 7 76 

1 

EXIT 

1339 

REF 

3 

LAST 

283 

40,2047 

3 4770 

0 

CA 

1 SEC 

134  0 

REF 

60 

LAST 

31  1 

40,2050 

0 4607 

1 

TC 

BANKC ALL 

134  1 

REF 

7 

LAST 

291 

40,2051 

01736 

1 

CADR 

DELAYJOB 

1342 

REF 

17 

LAST 

269 

40,2052 

3 4740 

0 

CA 

BIT5 

L343 

REF 

7 

LAST 

276 

40,2053 

7 1043 

0 

MASK 

EXTVBACT 

1 1 , . 

REF 

84 

LAST 

30  7 

40,2054 

10  000 

0 

CCS 

A 

1345 

REF 

2 

LAST 

311 

40,2055 

0 2000 

0 

TC 

RRLOSDSP 

l 34  6 

REF 

24 

LAST 

308 

40,2056 

0 5474 

0 

TC 

ENDEXT 
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R 1 00  1 

COMPON 

R 1 002 

00000 

R 100  3 

ooooi 

R1004 

00010 

R 100  5 

XI  XXX 

R 1006 

1XXXX 

R1007 

END  OF 

R 100  8 

SF  ROU 

R1009 

00000 

RIOIO 

0CC01 

R101  1 

00010 

R1012 

0001 1 

R101  3 

00100 

R 1 0 1 4 

00101 

R 1 01  5 

00110 

R 10 1 6 

00111 

R 101  7 

01000 

R 1 01  8 

R 1019 

01001 

R1020 

R 102  1 

R 1 02  2 

01010 

R 102?  1 

01011 

R 102  2 2 

01100 

R 1 02  2 3 

R 102  2 4 

011C1 

R 102  2 5 

01  no 

R 102  2 6 

01111 

R 102  3 

END  OF 

R1024 

SF  CON 

R 1 02  5 

00000 

R 1026 

00000 

R 10265 

00000 

R 1 02  7 

00001 

R 102  8 

00010 

R 1 02  9 

0 1010 

R 1030 

00011 

R 1 03  1 

00100 

R1032 

00101 

R 103  2 1 

00101 

COMPONENT  CODE  NUMBER 


INTERPRETATION 

1 COMPONENT 

2 COMPONENT 

3 COMPONENT 

BIT4  = 1 . DECIMAL  ONLY 
BIT5  = 1.  NO  LOAO 


INTERPRETATION 


OCTAL  ONLY 
STRAIGHT  FRACTIONAL 
CDU  DEGREES  (XXX. XX) 
ARITHMETIC  SF 
ARITH  DPI  OUT (MULT 
AR1TH  DP 2 OUTISTRA 
LANDING  RADAR  POSITI 
ARITH  DP3  OUT  ( SL 
WHOLE  HOURS  IN  Rl,  W 
SECONDS  (MOD  60) 
MINUTES  (MOD  60)  IN 
LIMIT 
ALARM 

ARITH  DP4  OUT  ( STR 
ARITH1  SF  OUTtMULT 
2 INTEGE.RS  IN  D102, 
ALARM 

360— CDU  DEGREES  (XXX 
RR  RANGE  15  81 

RR  RANGE  RATE  15  BI 
SF  ROUTINE  CODE  NUMBER 


BY  2 
IGHT  ) 
CN  l + 
7 AT 
HOLE 
OXX.X 
D1D2, 
S TO 
S IF 
AIGHT 
BY  2 
D4D5  , 
S IF 
• XX  ) 

T MAG 
T MAG 
S 


EX P 1 A AT  END) 


INI  STRAIGHT) 
INISL  7 AT  END) 


OOOOX) 
END  ) 
MINUTES 
X IN  R3 . 


IN  ( STRAIGHT) 

(MOD  60)  IN  R2, 

***  ALARMS  IF  USED  WITH  OCTAL 
D3  BLANK,  SECONDS  (MOD  60)  IN  D4D5 
59859  IF  MAG  EXCEEDS  THIS  VALUE. 

USED  WITH  OCTAL  ********  IN  (ALARM) 

) IN  ( SL  3 AT  END) 

EXP14  AT  END)  INI  STR A IGHT ) 

03  BLANK. 

USED  WITH  OCTAL  ********  IN  (ALARM) 

TO  DP,  THEN  SCALE  *******  IN  (ALARM) 
TO  DP,  THEN  SCALE  *******  IN  (ALARM) 


SF  CONSTANT  CODE  NUMBER. 


INTERPRETATION 

WHOLE  USE  ARITH 

DP  TIME  SEC  (XXX. XX  SEC)  USE  ARITHDPl 
LR  POSITION  (+0000X)  USE  LR  POSITION 

SPARE 

CDU  DEGREES  USE  CDU  DEGREES 

360-CDU  DEGREES  USE  360-CDU  DEGREES 

OP  DEGREES  (90  XX. XXX  DEG  USE  ARITH0P3 
DP  DEGREES  (360)  XXX. XX  DEG  USE  ARITH0P4 
OEGREES  (180)  XXX. XX  DEG  USE  ARITH 
OPTICAL  TRACKER  AZIMUTH  ANGLE ( XXX . XXDEG ) 
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L 

PINHALL  NOUN  TABLES 

R 103  22 

USE  ARITHDP1 

R 1034 

00110 

WEIGHT2  (XXXXX.  LBS) 

USE  ARITH1 

R 103  5 

0011  l 

POSITION 5 (XXX. XX  NAUTICAL 

MILES) 

R 103  5 1 

USE  ARITHDP1 

R 1 03  7 

01000 

P0SITI0N4  (XXXX.X  NAUTICAL 

MILES) 

R 103  7 1 

USE  ARITHUP3 

R 1 03  8 

01001 

VEL0CITY2  (XXXXX.  ET/SECI 

USE  ARITH0P4 

R 1 03  9 

01010 

VEL0CITY3  (XXXX.X  FT/SEC) 

USE  ARITHDP3 

R 1040 

0101 1 

ELEVATION  DEGREE S ( 89 . 999M AX ) USE  ARITH 

R 104  l 

01100 

RENDEZVOUS  RADAR  RANGE  (XXX 

.XX  NAUT  M I ) 

R 1042 

USE  RR  RANGE 

R 104  3 

01  101 

RENDEZVOUS  RADAR  RANGE  RATE ( X XX X . X FT/ S EC 

R 1044 

USE 

RR  RANGE  RATE 

R1045 

01  1 10 

LANDING  RADAR  AL T I TUOE ( XX XXX . FE ET ) 

R 1046 

USE  ARITH0P1 

R 104  7 

0 1 1 1 1 

INITIAL/FINAL  ALTITUDE (XX XXX. FEET) 

R 1 04  8 

USE  AR1THDP1 

R 1 049 

10000 

ALTITUDE  RATFfXXXXX. FT/SEC) 

USE  ARITH 

R 1 050 

10001 

FORWARD/L ATEPAL  VELOCITY! XXX X X . FE E T/S EC ) 

R 105  1 

USE  ARITH 

R 105  2 

10010 

ROTATIONAL  HAND  CONTROLLER 

ANGLE  RATES 

R 105  3 

XXXXX. DEG/SEC 

USE  ARITH 

R 105  4 

10011 

LANDING  RADAR  V EL X ( X X X XX . FEET /S EC ) 

R 1055 

USE  ARITHDP1 

R 1 05  6 

10100 

LANDING  RADAR  VE L Y ( XX X XX . FEE T /S EC ) 

R 105  7 

USF  ARITHDP1 

R 105  8 

10101 

LANDING  RADAR  VFL Z 1 XX X XX . FEE T/SFC ) 

R 1 059 

USE  ARITHDP1 

R 106  0 

10110 

P0SITI0N7  (XXXX.X  NAUT  MI) 

USE  ARITH0P4 

R 1060  1 

10111 

TRIM  DEGREES 2 (XXX. XX  DEG) 

USE  ARITH 

R 1 06  1 

11000 

COMPUTED  ALTITUDE  (XXXXX.  FEET) 

R 106  l C 1 

USE  ARITHDP1 

R 1 06  1 C 2 

11001 

DP  DEGREES  (XXXX.X  DEG) 

USE  ARITH DP3 

R 106 1 03 

11010 

P0SITI0N9  (XXXXX.  FT) 

USE  ARITHDP3 

R 106 104 

11011 

VELOC  I TY4  (XXXX.X  FT/SEC) 

USE  ARITHDP2 

R 106  It  5 

1 1 100 

RADIANS  (XX. XXX  RADIANS) 

USE  ARITHDP4 

R 1 06 1 C6 

11101 

VELOC I TY5  (XXXX.X  FT/SEC) 

USE  ARITHDP3 

R 1 062 

END  OF  SF  CONSTANT  CODE 

NUMBERS 

R 106 3 FOR  GREATER  THAN  SINGLE  PRECISION  SCALES,  PUT  ADDRESS  OF  MAJOR  PART  INTO 

R 1 06 A NOUN  TABLES. 

R 1066  OCTAL  LCAUS  PLACE  + 0 INTO  MAJOR  PART,  DATA  INTO  MINOR  PART. 

R 106  6 OCTAL  DISPLAYS  SHOW  MINOR  PART  ONLY. 

R 106 7 TO  GET  AT  BOTH  MAJOR  AND  MINOR  PARTS!  IN  OCTAL),  USE  NOUN  01. 


R 106  6 A NOUN  MAY  BE  DECLARED  : DEC  I MAL  CNLY:  BY  MAKING  BIT4=1  OF  ITS  COMPONENT 
R106S  CODE  NUMBER.  IF  THIS  NOUN  IS  USFD  WITH  ANY  OCTAL  DISPLAY  VERB,  OR  IF 
R1070  DATA  IS  LOAOED  IN  OCTAL,  IT  ALARMS. 
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R 107 1 IN  LOADING  AN  :HOURS,  MINUTES,  SECONDS:  NGUN,  ALL  3 WORDS  MUST  BE 

R 1 072  LOADEO,  OR  ALARM. 

R 1 073  ALARM  IE  AN  ATTEMPT  IS  MADE  TO  LOAD  :SPLIT  M I NUT ES/ S ECONO S : (MMBSS). 

R1074  THIS  IS  USED  FOR  DISPLAY  ONLY. 


PAGE 
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L PINBALL  NOUN  TABLES  USER'S  PAGE  NO.  4 EO  S4 

P 1 07  5 THE  FOLLOWING  ROUTINES  ARE  FOR  READING  THE  NOUN  TABLES  AND  THE  SF  TABLES 

R 1076  I WHICH  ARE  IN  A SEPARATE  BANK  FROM  THE  REST  OF  PINBALL).  THESE  READING 

R 1 07 7 RUUTINFS  ARE  IN  THE  SAME  BANK  AS  THE  TABLFS.  THEY  ARE  CALLED  BY  DXCH  Z. 


R107B  LODNNTAB  LOADS  NNADTEM  WITH  THE  NNADTAB  ENTRY,  NNTYPTEM  WITH  THE 

R 1079  NNTYPTA8  ENTRY.  IF  THE  NOUN  IS  MIXED,  [DAD1TEM  IS  LOADED  WITH  THE  FIRST 

R1080  I DADD  T AB  ENTRY,  I DAD2TEM  THE  SECOND  I DADDTAB  ENTRY,  I0AD3TEM  THE  THIRD 
K 108 1 (DADDTAB  ENTRY,  RUTMXTEM  WITH  THE  RUTMXTAB  ENTRY.  MIXBR  IS  SET  FOR 
R 108 2 MIXED  OR  NORMAL  NOUN. 


1200 

06,3333 

BANK 

6 

1 20  "2 

REF 

2 

LAST 

293 

42,2000 

SETLCC 

P I NB  ALL  3 

12003 

42,2110 

BANK 

12005 

REF 

1 

COUNT  4 

$ J/NOUNS 

1201 

REF 

1 

42,2110 

52  152 

0 

LODNNTAB 

DXCH 

IDA02TEM 

SAVE  RETURN  INFO  IN  IDAD2TEM,  IDAD3TEM . 

1202 

REF 

3 

LAST 

280 

42,2111 

51*001 

1 

INDEX 

NOUNRFG 

1 

REF 

1 

42,2112 

3 2161 

0 

CAF 

NNADTAB 

120  4 

REF 

1 

42,2113 

54  146 

0 

TS 

NNADTEM 

1205 

REF 

4 

LAST 

316 

42,2114 

51*001 

1 

INDEX 

NOUNREG 

1206 

REF 

1 

42,2  1 15 

3 2325 

1 

CAF 

NNTYPTAB 

1207 

REF 

1 

42,2116 

54  147 

1 

TS 

NNTYPTEM 

1208 

REF 

5 

LAST 

316 

42,2117 

4 1001 

0 

CS 

NOUNRFG 

1209 

REF 

1 

42,2120 

6 4762 

0 

AD 

M IXCON 

1210 

42,2121 

C C006 

1 

EXTEND 

121  1 

REF 

1 

42,2122 

6 2126 

0 

BZMF 

LODMIXNN 

NOUN  NUMBER  G/E  FIRST  MIXED  NOUN 

1212 

REF 

15 

LAST 

290 

42,2123 

3 4744 

1 

CAF 

ONE 

NOUN  NUMBER  L/  FIRST  MIXED  NOUN 

1213 

REF 

l 

42,2124 

54  140 

0 

TS 

MIXBR 

NORMAL.  +1  INTO  MIXBR. 

1214 

REF 

I 

42,2125 

0 2 144 

L 

TC 

LODNLV 

1215 

REF 

12 

LAST 

294 

42,2126 

3 4743 

0 

LOOM  I XNN 

CAF 

TWO 

MIXED  . +2  INTO  MIXBR  . 

1216 

REF 

2 

LAST 

316 

42,2127 

54  140 

0 

TS 

MIXBR 

1211 

REF 

6 

LAST 

316 

42,2130 

5 1 ' 001 

1 

INDEX 

NOUNREG 

1218 

REF 

I 

42,2131 

3 3075 

0 

CAF 

RUTMXTAB  -40D 

FIRST  MIXED  NOUN  = 40. 

1219 

REF 

1 

42,2132 

54  153 

1 

TS 

RUTMXTEM 

1220 

REF 

2 

LAST 

244 

.42,2133 

3 5003 

1 

CAF 

LOW  10 

1221 

RFF 

2 

LAST 

316 

42,2134 

7 0146 

0 

MASK 

NNADTEM 

1222 

REF 

26 

LAST 

294 

42,2135 

54  002 

1 

TS 

0 

TEMP 

122  3 

REF 

E 5 

LAST 

312 

42,2136 

50  000 

1 

INDEX 

A 

1224 

REF 

1 

42, 2137 

3 2661 

1 

CAF 

I DADDTAB 

1225 

REF 

1 

42,2140 

54  150 

1 

TS 

I DAD1TEM 

LOAD  IDAD1TEM  WITH  FIRST  IOADDTAB  ENTRY 

1226 

42,2141 

0 0006 

1 

EXTEND 

1227 

REF 

27 

LAST 

316 

42,2142 

5 0002 

0 

INDEX 

Q 

LOAD  IDAD2TEM  WITH  2ND  I0AD0TA6  ENTRY 

1228 

REF 

2 

LAST 

316 

42,2143 

3 2663 

0 

DC  A 

I DADDTAB  +1 

LOAD  I DA  03  TE  M WITH  3RD  IDADDTAB  ENTRY. 

1229 

REF 

2 

LAST 

316 

42,2  144 

52  152 

0 

LODNLV 

DXCH 

I DAD2TEM 

PUT  RETURN  INFO  INTO  A,  L. 

1230 

REF 

1 

42,2145 

52  006 

0 

DXCH 

Z 

123  1 

REF 

2 

LAST 

231 

4762 

MIXCON 

= 

OCT50 

(DEC  40) 

R1232 

GTSFOUT 

LOADS 

SFTEMP1,  SF  TEMP  2 WITH  THE 

DP  SFOUTAB  ENTRIES. 

123  3 

REF 

1 

42,2146 

52  124 

1 

GTSFOUT 

DXCH 

SFTEMP1 

2 X I SF  CONUM ) ARRIVES  IN  SF  TEMP  1 . 
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1234 

42,2147 

0 

0006 

1 

EXTEND 

1235 

REF 

86 

LAST 

316 

42,2150 

5 

0000 

1 

INDEX 

A 

1236 

REF 

1 

42,2151 

3 

2 5 66 

0 

DC  A 

SFOUTAB 

1237 

REF 

2 

LAST 

316 

42,2152 

52 

124 

1 SFCOM 

DXCH 

SFTEMPl 

1238 

REF 

2 

LAST 

316 

42,2153 

52 

0 06 

0 

DXCH 

Z 

R1239 

GTSFIN 

LOADS 

SFTEMPl,  SFTEMP2 

WITH  THE 

DP  SFINTAB  ENTRIES. 

1240 

REF 

3 

LAST 

317  42,3154 

52  124 

1 

GTSFIN  DXCH 

SFTEMPl 

2 X ( SFCONUM ) ARRIVES  IN  SFTEMPl. 

124  l 

42, 2 155 

0 0006 

1 

EXTEND 

1242 

REF 

E 7 

LAST 

317  42,2156 

5 COCO 

1 

INDEX 

A 

1243 

REF 

1 

42,2157 

3 2472 

1 

DC  A 

SFINTAB 

1244 

REF 

1 

42,2160 

l 2152 

1 

TCF 

SFCOM 

A 1400 

NN 

NORMAL  NOUNS 

1401 

42,2161 

00000 

1 

NNADTAB  OCT 

00000 

00 

NOT  IN  USE 

1402 

42,2162 

40000 

0 

OCT 

40000 

01 

SPECIFY  MACHINE  ADDRFSS  (FRACTIONAL) 

1403 

42,2163 

40C00 

0 

OCT 

40000 

02 

SPECIFY  MACHINE  ADDRESS  (WHOLE) 

140  4 

42,2164 

40000 

0 

OCT 

40000 

03 

SPECIFY  MACHINE  ADDRESS  (DEGREES) 

140  5 

REF 

5 

LAST 

289 

42,2165 

01044 

0 

ECADR 

DSPTEM1 

04 

ANGULAR  ERR OR /DIFFERENCE 

1406 

REF 

6 

LAST 

317 

42,2166 

01044 

0 

FC  ADR 

DSPTEM1 

05 

ANGULAR  ERROR/DIFFERENCE 

1407 

REF 

1 

42,2167 

C 1 143 

0 

ECADR 

OPT  I ONI 

06 

OPTION  CODE 

1408 

REF 

1 

42,2170  ' 

01002 

1 

ECADR 

X REG 

07 

ECADR  OF  WORD  TO  BE  MODIFIED 

A 1 40  3 l 

ONES  FOR  BITS  TO  BF  MODIFIED 

A 140  8 2 

1 TO  SET  OR  0 TO  RESET  SELECTED  BITS 

1409 

REF 

6 

LAST 

216 

42,2171 

01363 

0 

ECADR 

ALMCADR 

08 

ALARM  DATA 

1410 

REF 

5 

LAST 

222 

42,2172 

00375 

0 

ECAOR 

FAILREG 

09 

ALARM  CODES 

141  1 

42,21 73 

77776 

1 

OCT 

77776 

10 

CHANNEL  TO  BE  SPECIFIED 

1412 

REF 

3 

LAST 

210 

.42,2174 

03633 

1 

ECADR 

TCS  I 

11 

TIG  OF  CSI  ( HR S»MIN,SFC) 

1413 

REF 

7 

LAST 

289 

42,2175 

01050 

0 

ECADR 

OPTIUNX 

12 

OPTION  CODE 

A 141 3 1 

(USED  BY  EXTENDED  VERBS  ONI  Y ) 

1414 

REF- 

3 

LAST 

210 

42,2176 

01774 

1 

ECADR 

TCOFI 

13 

TIG  OF  CDH  (HRS, MIN, SEC) 

1415 

REF 

4 

LAST 

219 

42,2177 

01C50 

0 

ECADR 

DSPTEMX 

14 

CHECKLIST 

A 141 5 1 

(USED  BY  EXTENDED  VERBS  ONLY) 

1416 

42,2200 

77777 

0 

OCT 

77777 

15 

INCREMENT  MACHINE  ADDRESS 

141  7 

REF 

5 

LAST 

317 

42,2201 

01050 

0 

ECADR 

DSPTEMX 

16 

TIME  OF  EVENT  ( HR S , M I N , S EC ) 

1418 

42,2202 

00000 

1 

OCT 

00000 

17 

SP  ARE 

1419 

REF 

1 

42,2203 

02335 

0 

ECADR 

FDAIX 

18 

AUTO  MANEUVER  BALL  ANGIES 

1420 

42,2204 

00000 

1 

OCT 

00000 

19 

SPARE 

1421 

REF 

8 

LAST 

269 

42,2205 

00C32 

0 

ECAOR 

C DUX 

20 

ICOU  ANGLES 

1422 

REF 

4 

LAST 

211 

42,2206 

0CC37 

0 

ECADR 

P IPAX 

21 

PIPAS 

1423 

REF 

10 

LAST 

294' 

42,2207 

OC321 

1 

ECADR 

THETAD 

22 

NEW  I CDU  ANGLES 

1424 

42,2210 

OCOOO 

1 

OCT 

00000 

23 

SP  ARE 

1425 

REF 

3 

LAST 

287 

42,2211 

01050 

0 

ECAOR 

DSPTEM2  +1 

24 

DELTA  TIME  FOR  AGC  CLO CK ( HR S , M I N , S EC  1 

1426 

REF 

7 

LAST 

317 

42 ,22  12 

0 1 044 

0 

ECADR 

DSPTFM1 

25 

CHECKLIST 

A 142  6 1 

(USED  WITH  PLEASE  PERFORM  ONLY) 

1427 

REF 

2 

LAST 

124 

42,2213 

02371 

0 

ECADR 

N26/PRI 

26 

PRIO/DELAY,  ADRES,  BRCON 

142  8 

REF 

4 

LAST 

302 

42,2214 

01362 

1 

ECADR 

SMODE 

27 

SELF  TEST  ON/OFF  SWITCH 
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1429 

42, 2215 

CCOOO 

1 

OCT 

00000 

I < 

42,2216 

00000 

1 

OCT 

00000 

143  1 

42,2217 

00000 

1 

OCT 

0 

143  2 

42,2220 

00000 

l 

OCT 

0 

1433 

REF 

1 

42,2221 

02133 

1 

ECADR 

-TPER 

1434 

REF 

8 

LAST 

296 

42,2222 

0344 1 

0 

ECADR 

T IG 

1435 

REF 

8 

LAST 

317 

42,2223 

01044 

0 

ECADR 

DSPTEM1 

1436 

REF 

8 

LAST 

252 

42,2224 

03453 

0 

ECADR 

T TOGO 

1437 

REF 

11 

LAST 

287 

42,2225 

00024 

1 

ECADR 

T I ME  2 

143  8 

REF 

3 

LAST 

210 

42,2226 

03635 

1 

ECADR 

T TP  I 

1439 

REF 

5 

LAST 

214 

• 42,2227 

01516 

1 

ECADR 

TET 

144  0 

42,2230 

00000 

l 

OCT 

00000 

R 1440  1 

END 

OF 

NNADTAB 

FOR 

NORMAL  NOUNS 

A 144  0 2 
1441 

42,2231 

64  000 

0 

OCT 

64000 

A 1 44  1 1 
A 144  1 2 
1442 

42,2232 

02C03 

0 

OCT 

02003 

A 144  2 1 
1443 

42,2233 

24006 

1 

OCT 

24006 

A 1443  1 
A 144  3 2 
1444 

42,2234 

24011 

1 

oct 

2401 1 

A 144  4 1 
A 1444  2 
144  5 

42,2235 

64  C 14 

0 

OCT 

64014 

A 144 51 
A 1 44  5 2 
1446 

42,2236 

64017 

0 

OCT 

64017 

A 144  6 1 
A 1446  2 
1447 

42,2237 

02022 

0 

OCT 

02022 

A 144 r 1 

144  8 

42,2240 

22025 

0 

OCT 

22025 

A 144  8 1 
1449 

42,2241 

22030 

1 

OCT 

22030 

A 144  9 l 
1450 

42,2242 

24033 

l 

OCT 

24033 

A 1450  1 
A14502 
1451 

42,2243 

CCOOO 

1 

OCT 

0 

1452 

42,2244 

22041 

1 

OCT 

22041 

A 145  2 1 
1453 

42,2245 

CC044 

l 

OCT 

00044 

145  4 

42,2246 

00000 

1- 

OCT 

00000 

1455 

42,2247 

24052 

0 

OCT 

24052 

A 145  5 l 
A 14552 


1 1 

MAR.  19 

, 1971 

LEMONA 

ID. 156  PAGE  3 

USFR' 

S PAGE 

NO. 

6 EO  S4 

28 

SPARE 

29 

SPARE 

30 

SPARE 

31 

SPARE 

32 

TIME  TO 

PERIGFE  (HRS 

, MIN, SEC) 

33 

TIME  OF 

IGNIT 1 

ION  (HR 

S, MINI  SEC) 

34 

TIME  OF 

EVENT 

(HRS  , M 

IN , SEC) 

35 

TIME  TO 

GO  TO 

EVENT 

(HRS, MIN, SEC) 

36 

TIMF  OF 

AGC  CLOCK  ( HRS , M I N , SEC  I 

37 

TIG  OF 

TP  I (HRS, MIN, 

SEC) 

38 

TIME  OF 

STATE 

BEING 

IN  TEGRA  TFD 

39 

SPARE 

NN 

M I XED 

NOUNS 

40 

TIME  TO 

IGN I T I ON /CUTOFF 

V G 

DELTA  V 

(ACCUMULATED) 

41 

TARGET 

AZ  IMUTH 

ELEVATION 

42 

APOGEE 

PERIGEE 

DELTA  V 

(RFOUIRED) 

43 

LA  T I TOD 

E 

LONGITU 

DE 

AL  T ITUD 

E 

44 

APOGEE 

PER  IGEF 

TFF 

45 

MARKS 

TT  I OF 

NEXT  BURN 

MG  A 

46 

AUTOP IL 

OT  CONFIGURATION 

CHANNEL 

BIT  FAILURE  PROTECTION  WORD 

47 

LFM  WEI 

GHT 

CSM  WEI 

GHT 

48 

G I MB Al 

PITCH  TRIM 

G I MBA l 

ROLL  TRIM 

49 

DELTA  R 

DELTA  V 

RADAR  DATA  SOURCE  CODE 

50 

SPARE 

51 

S-BAND 

ANTENNA  PITCH 

YAW 

52 

CENTRAL 

ANGLE  OF  ACTIVE  VEHICLE 

53 

SPARE 

54 

RANGE 

RANGE  RATE 
THETA 
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* 

# 


1450 
A 1458  l 
A 145  8 2 

42,2250 

24055 

1 

OCT 

24055 

55 

1459 
A 1459  1 

42,2251 

02060 

0 

OCT 

02060 

56 

1460 

42,2252 

00000 

1 

OCT 

00000 

57 

1461 
A 146  1 1 
A 146 12 

42,2253 

24066 

1 

OCT 

24066 

58 

1462 

42,2254 

24071 

1 

OCT 

24071 

59 

1463 
A 1463  1 
A 1463  2 

42,2255 

24074 

1 

OCT 

24074 

60 

1464 
A 146  4 l 
A 1464 2 

42,2256 

64C77 

0 

OCT 

64077 

61 

146  5 
A 146  5 1 
A 146  5 2 

42,2257 

64102 

0 

OCT 

64102 

62 

146  6 
A 1466  1 
A 1466 2 

42,2260 

24  105 

0 

OCT 

24105 

63 

1467 
A 146  7 1 
A 146  7 2 

42,2261 

64110 

0 

OCT 

64110 

64 

1468 
A 146 B 1 

42,2262 

24113 

1 

OCT 

24113 

65 

1470 
A 1470  1 

42,2263 

62116 

0 

OCT 

62116 

66 

1471 
A 1 47  1 1 
A 147 1 2 

42, 2264 

C4  121 

1 

OCT 

04121 

67 

1472 
A 1 47  2 1 
A 1472  2 

42,2265 

64124 

1 

OCT 

64124 

68 

1473 
A 1473  1 
A 14  7 3 2 

42,2266 

24127 

0 

OCT 

24127 

69 

1474 

42,2267 

C4  132 

0 

OCT 

04132 

70 

1475 

42,2270 

04  135 

1 

OCT 

04135 

71 

1476 
A 147  6 1 

42,2271 

02140 

0 

OCT 

02140 

72 

147  7 
A 1 4 7 7 1 

42,2272 

02  143 

0 

OCT 

02143 

73 

1478 
A 147 8 1 
A 147  8 2 

42,2273 

64 146 

0 

OCT 

64146 

74 

1479 
A 1479  1 
A 1479  2 

42,22/4 

64151 

0 

OCT 

64151 

75 

NO.  OF  APSIOAL  CROSSINGS 
ELEVATION  ANGLE 
CENTRAL  ANGLE 
RR  LOS  AZIMUTH 

ELEVATION 

SPARE 

PERIGEE  ALT 

DFLTA  V TP  I 

DELTA  V TP F 

DELTA  VELOCITY  LOS 

FORWARD  VELOCITY 

ALTITUDE  PATE 

COMPUTED  ALTITUDE 

TIME  TO  GO  IN  BRAKING  PHASE 

TIME  TO  IGNITION 

CROSS  RANGE  DISTANCE 

ABSOLUTE  VALUE  OF  VELOCITY 

TIME  TO  IGNITION 

DELTA  V (ACCUMULATED) 

LP  ALTITUDE  MINUS  COMPUTED  ALTITUDE 
ALTITUDE  RATE 
COMPUTED  ALTITUDE 

TIME  LEFT  FOR  R E DE S I GN AT  I ON-LP D ANGLE 

ALTITUDE  RATE 

COMPUTED  ALTITUDE 

SAMPLED  AGC  TIME  ( HR S , M I N , S EC ) 

(FETCHED  IN  INTERRUPT) 

LR  RANGE 
POSITION 
LR  VX 
LR  VY 
LR  VZ 

SM  Z-AXIS  RANGE  TO  LANDING  SITE 
TIME  TO  GO  IN  BRAKING  PHASE 
ABSOLUTE  VALUE  OF  VELOCITY 
LANDING  SITE  CORRECTION,  Z-COMPONENT 
LANDING  SITE  CORRECTION,  Y-COMPONENT 
LANDING  SITE  CORRECTION,  X-COMPONFNT 
AO T OETFNT  CODE/STAR  CODE 
AO T DETENT  CODE/STAR  CODE 
RR  360  - TRUNNION  ANGLE 
SHAFT  ANGLE 

NEW  RR  360  - TRUNNION  ANGLE 
SHAFT  ANGLE 
TIME  TO  IGNITION 
YAWAFTER  VEHICLE  R ISE 
PITCH  AFTER  VEHICLE  RISE 
DELTA  ALTITUDE  CDH 
DELTA  TIME  (CDH-CSI  OR  TPI-CDH) 

DELTA  TIME  (TPI-CDH  OR  TPI-NOMTPI) 


GAP:  ASSEMBLE  RFVISIUN  210  0E  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L PINBALL  NOUN  TABLES 


1480 
A 1480  1 
A 14802 

42,2275 

24  154 

1 

OCT 

24154 

1481 
A 148  1 1 
A 148  1 2 

42,2276 

64157 

0 

OCT 

64157 

1482 
A 1482  1 
A 1482  2 

42,2277 

64  162 

0 

OCT 

64162 

1483 
A 1483  1 
A 1 48 3 2 

42,2300 

24165 

0 

OCT 

24165 

1484 
A 1484  1 

42,2301 

02170 

0 

OCT 

02170 

1435 

42,2302 

24  173 

l 

OCT 

24173 

1486 

42,2303 

24  176 

1 

OCT 

24176 

1487 

42,2304 

24201 

1 

OCT 

24201 

1488 

42,2305 

24204 

1 

OCT 

24204 

148  9 

42,2306 

24207 

1 

OCT 

24207 

1490 

42,2307 

24212 

0 

OCT 

24212 

1491 
A 149  1 l 

42,2310 

02215 

0 

OCT 

02215 

1492 

42,2311 

24220 

1 

OCT 

24220 

149  3 
A 149 3 1 
A 14932 

42,2312 

24223 

1 

OCT 

24223 

1494 
A 1494  1 
A 14942 

42,2313 

24226 

1 

OCT 

24226 

1495 
A 149  5 1 
A 14952 

42,2314 

C4231 

0 

OCT 

04231 

1496 
A 1496  1 
A 14962 

42,2315 

04234 

0 

OCT 

04234 

149  7 

42,2316 

04237 

0 

OCT 

04237 

149  8 
A 1498 1 
A 14982 

42,2317 

64242 

l 

OCT 

64242 

1499 

42,2320 

00000 

1 

OCT 

0 

1 5( ) 

42,2321 

oocoo 

l 

OCT 

0 

1501 

42,2322 

C4253 

1 

OCT 

04253 

1502 

42,2323 

04256 

l 

OCT 

04256 

1 50  3 

A15<  l 
A 1 503 2 
R 1504 

42,2324 

END  OF  MNADTAB  FOR  MIXED  NOUNS 

24261 

1 

OCT 

24261 

A l BOO 
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76 


77 


70 


79 


80 

81 

82 

83 

84 

85 

86 

87 

88 
89 


90 


91 


92 


93 
9 A 


95 

96 

97 

98 

99 


DESIRED  HORIZONTAL  VELOCITY 
DESIRED  RADIAL  VELOCITY 
CROSS-RANGE  DISTANCE 
TIME  TO  ENGINE  CUTOFF 
V GY  (BODY) 

ABSOLUTE  VALUE  OF  VELOCITY 
RR  RANGE 

RANGE  RATE 
TIME  FROM  IGNITION 
CURSOP  ANGLE 
SPIRAL  ANGLE 
POSITION  CODE 
DATA  INDICATOR 
OMEGA 

DELTA  V (IV) 

DELTA  V (LV) 

DELTA  V (BODY) 

DELTA  V (OTHER  VEHICLE) 

V G (BODY) 

VG  (LV) 

BACKUP  OPTICS  LOS  AZIMUTH 

ELEVATION 

HALF  UNIT  SUN  OR  PLANET  VECTOR 
LANDMARK  LATITUOE 

LONG  I TUDE/2 
ALTITUDE 

Y 

Y DOT 
PS  I 

ALT  ITUDE 
VELOCITY 

EL  I GHT  PATH  ANGLE 

PC T FTP ( 10 .5KLB)  AT  PRESENT  THRUST 

ALTITUDE  RATE 

COMPUTED  ALTITUDE 

DELTA  GYRO  ANGLES 

VG  X ( BODY  I 

ALTITUDE  PATE 

COMPUTED  ALTITUDE 

SPARE 

SPARE 

SYSTEM  TEST  INPUTS 
SYSTEM  TEST  RESULTS 
RMS  IN  POSITION 
RMS  IN  VELOCITY 
RMS  IN  BIAS 


NN 


NORMAL  NOUNS 
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1801 

42,2325 

COOOO 

1 

NNTYPTAB  OCT 

00000 

00 

NOT  IN 

USE 

1802 

42,2326 

04040 

1 

OCT 

04040 

01 

3C0MP 

FRACTIONAL 

180  3 

42,232  7 

C4  140 

0 

OCT 

04140 

02 

3C0MP 

WHOLE 

180  4 

42,2330 

04102 

0 

OCT 

04102 

03 

3C0MP 

COU  OEGREES 

1805 

42,2331 

0C5O4 

0 

OCT 

00504 

04 

1 COMP 

DPOEGl 360 ) 

1806 

42,2332 

OC  504 

0 

OCT 

00504 

05 

1C0MP 

DPDEGt  360 ) 

180  7 

42,2333 

04C00 

0 

OCT 

04000 

06 

3C0MP 

OCTAL  ONLY 

1808 

42, 2334 

04000 

0 

OCT 

04000 

07 

3C0MP 

OCTAL  ONLY 

1809 

42,2335 

04000 

0 

OCT 

04000 

08 

3C0MP 

OCTAL  ONLY 

1810 

42,2336 

04000 

0 

OCT 

04000 

09 

3C0MP 

OCTAL  ONLY 

181  1 

42,2337 

COOOO 

1 

OCT 

00000 

10 

ICOMP 

OCTAL  ONLY 

1812 

42,2340 

24400 

0 

OCT 

24400 

11 

3C0MP 

HMS  (DEC  ONLY) 

1813 

42,2341 

02C00 

0 

OCT 

02000 

12 

2C0MP 

OCTAL  ONLY 

1814 

42,2342 

24400 

0 

OCT 

24400 

13 

3C0MP 

HMS  (DEC  ONLY) 

1815 

42,2343 

04  140 

0 

OCT 

04140 

14 

3C0MP 

WHOLE 

1816 

42,2344 

COCOO 

1 

OCT 

00000 

15 

ICOMP 

OCTAL  ONLY 

1817 

42,2345 

24400 

0 

OCT 

24400 

16 

3C0MP 

HMS  (DEC  ONLY) 

1818 

42,2346 

occoo 

1 

OCT 

0 

17 

SPARE 

1819 

42,2347 

04102 

0 

OCT 

04102 

18 

3C0MP 

CDU  DEG 

1820 

42,2350 

00000 

1 

OCT 

00000 

19 

SPARE 

182  1 

42,2351 

04102 

0 

OCT 

04102 

20 

3C0MP 

CDU  DEGREFS 

1822 

42,2352 

04140 

0 

OCT 

04140 

21 

3C0MP 

WHOLE 

1823 

42,2353 

04102 

0 

OCT 

04102 

22 

3C0MP 

COU  DEGREES 

1824 

42,2354 

COOOO 

1 

OCT 

00000 

23 

SPARE 

182  5 

42,2355 

24400 

0 

OCT 

24400 

24 

3C0MP 

HMS  (DEC  ONLY) 

182  6 

42,2356 

04140 

0 

OCT 

04140 

25 

3C0MP 

WHOLE 

1827 

42,2357 

04000 

0 

OCT 

04000 

26 

3C0MP 

OCTAL  ONLY 

182  3 

42,2360 

00140 

1 

OCT 

00140 

27 

ICOMP 

WHOLE 

1829 

42,2361 

00000 

1 

OCT 

00000 

28 

SPARE 

1830 

42,2362 

COOOO 

1 

OCT 

00000 

29 

SPARE 

183  1 

42,2363 

00000 

1 

OCT 

0 

30 

SPARE 

1832 

42,2364 

COCOO 

1 

OCT 

0 

31 

SPARE 

183  3 

42 , 2365 

24400 

0 

OCT 

24400 

32 

3C0MP 

HMS  (DEC  ONLYI 

183  4 

42,2366 

24400 

0 

OCT 

2 4400 

33 

3C0MP 

HMS  (DEC  ONLY) 

1835 

42,2367 

24400 

0 

OCT 

24400 

34 

3C0MP 

HMS  (DEC  ONLY) 

1836 

42,2370 

24400 

0 

OCT 

24400 

35 

3C0MP 

HMS  (DEC  ONLY) 

183  7 

42,2371 

24400 

0 

OCT 

24400 

36 

3C0MP 

HMS  (DEC  ONLY) 

1838 

42,2372 

24400 

0 

OCT 

24400 

37 

3C0MP 

HMS  (DEC  ONLY) 

183  9 

42,23  73 

24400 

0 

OCT 

24400 

38 

3C0MP 

HMS  (DEC  ONLY) 

1840 
R 1 840  1 

42,2374  00000 

END  OF  NNTYPTAB  FOR  NORMAL  NOUNS 

1 

OCT 

00000 

39 

SPARE 

A 18402 
1841 

42,2375 

24500 

1 

OCT 

24500 

NN 

40 

MIXED 

3C0MP 

NOUNS 

MIN/SEC,  VEL3 , VEL  3 

A 1 84 1 1 
184  2 

42,2376 

00542 

1 

OCT 

00542 

41 

2C0MP 

(NO  LOAD,  DEC  ONLY) 
CDU  DEG,  FLEV  DEG 

1043 

42,2377 

24410 

1 

OCT 

24410 

42 

3C0MP 

P0S4 , P0S4 , VFL3 

A 1843  1 
1844 

42, 2400 

20204 

0 

OCT 

20204 

43 

3C0MP 

(DEC  ONLY) 

DPDEGt  360 ) , DPOEG ( 3 

ASSEMBLE  REVISION  2LO  CF  A GC  PROGRAM  LUMINARY  BY  NASA  202H 12-161 


GAP: 

L PINBALL  NOUN  TABLES 


A 1 BA  A 1 

l BA  5 

A 2 , 2 AO 1 

A18A5  1 

18A6 

A2.2A02 

A 1 BA  6 1 

18A7 

42,2403 

18A8 

A 2 , 2 ADA 

A18AB1 

1 BA  9 

A2.2A05 

A 1 3 A 9 1 

1850 

A2 , 2 A06 

A 1 850  I 

1851 

A2 ,2407 

1852 

42 ,2A10 

A1U521 

185  3 

42,2411 

L85A 

42,2412 

1855 

42,2413 

A 1 85  5 1 

1858 

42,2414 

A 1858  1 

1859 

42,2415 

186  0 

42,2416 

A 1 860  1 

1861 

42,2417 

A 186  1 1 

1862 

42,2420 

A 1862  1 

186  3 

42,2421 

A 1 863  1 

1 36  A 

42,2422 

A l 86 A 1 

1865 

42,2423 

A L 865  1 

186  6 

42,2424 

A 1866  1 

186  7 

42,2425 

A 186 7 l 

1868 

42,2426 

1869 

42,2427 

A 1869  1 

1870 

42,2430 

1871 

42,2431 

A 187  l 1 

1872 

42,2432 

A 1372  1 

1873 

42,2433 

187a 

42,2434 

1875 

42,2435 

1876 

42,2436 

CC410 

1 

OCT 

00410 

IOCOO 

0 

OCT 

10000 

00000 

1 

OCT 

00000 

00306 

1 

OCT 

00306 

C 1 36  7 

1 

OCT 

01367 

00507 

0 

OCT 

00507 

00000 

1 

OCT 

0 

0C204 

1 

OCT 

00204 

OCCOA 

0 

OCT 

00004 

00000 

L 

OCT 

00000 

10507 

1 

OCT 

10507 

10200 

1 

OCT 

10200 

0C204 

1 

OCT 

00204 

OCOOO 

1 

OCT 

00000 

24510 

0 

OCT 

24510 

24512 

1 

OCT 

24512 

6C535 

1 

OCT 

60535 

54000 

0 

OCT 

54000 

24012 

1 

OCT 

24012 

60530 

l 

OCT 

60530 

6C500 

1 

OCT 

60500 

OCCOO 

1 

OCT 

00000 

00016 

0 

OCT 

00016 

53223 

L 

OCT 

53223 

24026 

0 

OCT 

24026 

61430 

l 

OCT 

61430 

OCCOO 

1 

OCT 

0 

00000 

1 

OCT 

0 

00102 

l 

OCT 

00102 

00102 

1 

OCT 

00102 
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USER' S PAGE  NO.  10 


EO  S4 


44 

3C0MP 

45 

3C0MP 

46 

2C0MP 

47 

2C0MP 

48 

2C0MP 

49 

3C0MP 

50 

51 

2C0MP 

52 

1C0MP 

53 

54 

3C0MP 

55 

3C0MP 

56 

2C0MP 

57 

58 

3C0MP 

59 

3C0MP 

60 

3C0MP 

61 

3C0MP 

62 

3C0MP 

63 

3C0MP 

64 

3C0MP 

65 

3C0MP 

66 

2C0MP 

67 

3C0MP 

68 

3C0MP 

69 

3C0MP 

70 

3C0MP 

71 

3C0MP 

72 

2C0MP 

73 

2C0MP 

(DEC  ONLY) 

P0S4,  P0S4,  M IN /SEC 
(NO  LOAO,  DEC  ONLY) 

WHOLE,  MIN/SEC,  DPDEG(360) 

(NO  LOAO,  DEC  ONLY) 

OCTAL  ONLY 
WFIGHT2  FOR  EACH 
(DEC  ONLY) 

TRIM  DEG2  FOR  EACH 
(DEC  ONLY) 

POS  5 , VEL3 , WHOLF 
(DEC  ONLY) 

SPARE 

DPDEG(360I,  DPOEG ( 360 ) 

(DEC  ONLY ) 

DPD  EG ( 360 ) 

SPARE 

POS  5 , V EL3 , OPDEG ( 360 ) 

(DEC  ONLY) 

WHOLE,  DPOE  G ( 360 ) , DP0EGI360) 
(DEC  ONLY) 

OPO  EG ( 360 ) , OPDEG (360 ) 

SPARE 
(DEC  ONLY) 

POSA,  VEL  3 , VEL  3 
(DEC  ONLY) 

VEL 3 FOR  EACH 
(DEC  ONLY) 

VEL  5 , VEL3 , COMP  ALT 
(DEC  ONLY) 

MIN/SEC,  MIN/SEC,  P0S7 
(NO  LOAD,  DEC  ONLY) 

VEL  3 , MIN/SEC,  VEL  3 
(NO  LOAD,  DEC  ONLY) 

COMP  ALT,  VEL3 , COMP  ALT 
(DEC  ONLY) 

2 I NT , VEL3,  COMP  ALT 
(NO  LOAD,  DFC  ONLY) 

HMS  (DEC  ONLY) 

LANDING  RADAR  ALT,  POSITION 
(NO  LOAD,  OEC  ONLY) 

LANDING  RADAR  VELX,  Y,  Z 
POS  7 , MIN/SEC,  VEL3 
(NO  LOAO,  DEC  ONLY) 

COMP  ALT,  COMP  ALT,  COMP  ALT 
(DEC  ONLY) 

OCTAL  ONLY  FOR  EACH 
OCTAL  ONLY  FOR  EACH 
360-CDU  DEG,  CDU 
360— COU  OEG,  CDU  DEG 


GAP:  ASSEMBLE  REVISION  210  OF  AGO  PROGRAM  LUMINARY  8Y  NASA  20 


L PINBALL  NOUN  TABLES 


1077 

42,2437 

10200 

l 

OCT 

A l 87  7 1 

1878 

42,2440 

00010 

0 

OCT 

A 187 8 1 

1879 

42,2441 

20512 

0 

OCT 

A 1079  1 

1880 

42,2442 

24500 

1 

OCT 

A 1 88  0 1 

1881 

42,2443 

00654 

0 

OCT 

A 188  1 1 

1082 

42,2444 

OC  102 

1 

OCT 

A 1 802  1 

1883 

42,2445 

CC200 

0 

OCT 

1884 

42 , 2446 

24512 

1 

OCT 

A 1 8 8 4 1 

1885 

42,2447 

24512 

1 

OCT 

A 1 88  5 l 

1836 

42, 2450 

24512 

1 

OCT 

A 1 886  1 

1807 

42,2451 

24512 

1 

OCT 

A 1 88  7 1 

1888 

42,2452 

24512 

1 

OCT 

A 108  8 1 

1889 

42,2453 

24512 

1 

OCT 

A 1889  1 
1890 

42 , 24  §4 

00102 

1 

OCT 

1891 

42,2455 

roooo 

1 

OCT 

A 189 1 2 

1892 

42,2456 

16143 

0 

OCT 

A 189 2 1 

189  3 

42,2457 

1 C 507 

1 

OCT 

A 189  3 1 

1894 

42,2460 

10450 

1 

OCT 

1895 

42,2461 

6C500 

1 

OCT 

1896 

42,2462 

06143 

1 

OCT 

1897 

42,2463 

6C512 

1 

OCT 

A 1 89  7 1 

1898 

42,2464 

00000 

1 

OCT 

189  9 

42,2465 

00000 

1 

oc  r 

1900 

42,2466 

00000 

1 

OCT 

190  1 

42,2467 

00000 

1 

OCT 

190  2 

42,2470 

71572 

1 

OCT 

A 1902  1 

R 1 90  3 
2200 

ENO  OF  NNTYPTAB  FOR  MIXED  NOUNS 
42,2471 

00006 

1 SFINTAB 

OCT 

220  1 

42,2472 

03240 

1 

OCT 

2202 

42,2473 

00000 

1 

OCT 

2203 

42,2474 

00000 

1 

OCT 

LU2-161 

17:11 

MAR.  19,1971  L EMON A ID.  156  PAGE 

USER' 

1 S PAGE  NO.  11  EO  S4 

10200 

74 

3C0MP 

M IN/ SEC , DPDEG1360) ,DPDEG 
(NO  LOAD,  DEC  ONLY) 

00010 

75 

3C0MP 

P0S4 , MIN/SEC,  MIN/SEC 
(NO  LOAD,  DEC  ONLY) 

20512 

76 

3C0MP 

VEL  3 , VFL  3 , P0S4 
(DEC  ONLY) 

24500 

77 

3C0MP 

MIN/SEC,  VEL  3 , VEL3 
(NO  LOAD,  DEC  ONLY) 

00654 

78 

3C0MP 

RR  RANGE,  RR  RANGE  RATE, 
(NO  LOAD,  DEC  ONLY) 

00102 

79 

3C0MP 

CDU  DEG,  CDU  DEG,  WHOLE 
(DEC  ONLY) 

00200 

80 

2C0MP 

WHOLE,  DPDEG (360 ) 

24512 

81 

3C0MP 

VEL  3 FOR  EACH 
(DEC  ONLY ) 

24512 

82 

3C0MP 

VEL3  FOR  EACH 
(DEC  ONLY) 

24512 

83 

3C0MP 

VFL3  FOR  EACH 
(DEC  ONLY) 

24512 

84 

3C0MP 

VEL3  FOR  EACH 
(DEC  ONLY) 

24512 

85 

3C0MP 

VEL3  FOR  EACH 
(DEC  ONLY) 

24512 

86 

3C0MP 

VEL3  FOR  EACH 
(DEC  ONLY) 

00102 

87 

2C0MP 

CDU  DEG  FOR  EACH 

0 

88 

3C0MP 

FRAC  FOR  EACH 
(DEC  ONLY) 

16143 

89 

3C0MP 

DPDFGI 90  ) , DPDFG190),  POS 
( DFC  ONLY) 

10507 

90 

3C0MP 

P0S5 , VEL  3 , DPDEG ( 360 ) 
(DEC  ONLY) 

10450 

91 

3C0MP 

P0S4 , V EL  2 , DPD  EG ( 360 ) 

60500 

92 

3C0MP 

WHOLE,  VEL3 , COMP  ALT 

06143 

93 

3C0MP 

DPDEG ( 90 ) FOR  EACH 

60512 

94 

3C0MP 

VEL  3 , VEL3,  COMP  ALT 
(NO  LOAD,  DEC  ONLY) 

0 

95 

SPARE 

0 

96 

SPARE 

00000 

97 

3C0MP 

WHOLE  FOR  EACH 

00000 

98 

3C0MP 

WHOLE,  FRAC,  WHOLE 

71572 

99 

3C0MP 

P0S9,  VEL4,  RADIANS 
(DEC  ONLY) 

00006 

03240 

WHOLE,  DP 

TIME  (SEC) 

00000 

00000 

SPARE 

GAP : 

ASSEMBLE 

REVISION  210 

CF  AGC  PROGRAM  LUMINARY 

BY  NASA  20211 12-161 

17:11  MAR.  19,1971  LFM0NAID.156  PAGE 

L 

P INBALL 

NOUN  TABLES 

USER'S  PAGE  NO.  12  EO  S4 

2204 

42,2475 

COOOO 

l 

OCT 

00000 

CDU  DEGREES,  360-CDU  DEGREES 

2205 

42,2476 

OCOOO 

1 

OCT 

00000 

( SFCONS  IN  DEGINSF  ) 

2206 

42,2477 

1C  707 

0 

OCT 

10707 

DP  DEGREES  (90) 

2207 

42,2500 

03435 

0 

OCT 

03435 

UPPED  BY  1 

2208 

42,2501 

13070 

1 

OCT 

13070 

DP  DEGREES  (360MPOINT  RETWN  BITS  1 

2209 

42,2502 

34345 

1 

OCT 

34345 

UPPED  BY  1 

2210 

42,2503 

00CO5 

1 

OCT 

00005 

DEGREES  (180) 

221  1 

42,2504 

21616 

0 

OCT 

2 1616 

2212 

42,2505 

26113 

0 

OCT 

26113 

WE  IGHT2 

2215 

42,2506 

31713 

0 

OCT 

31713 

2214 

42,2507 

0CC70 

0 

OCT 

00070 

POSIT I0N5 

2215 

42,2510 

20460 

l 

OCT 

20460 

2216 

42,2511 

01065 

0 

OCT 

01065 

POSIT I0N4 

221  7 

42,2512 

05740 

1 

OCT 

05740 

2218 

42,2513 

11414 

0 

OCT 

11414 

VFL0CITY2  (POINT  BETWN  BITS  1 

2219 

42,2514 

31463 

1 

OCT 

31463 

2220 

42,2515 

C 7.4  75 

0 

OCT 

07475 

VELOC I TY3 

2221 

42,2516 

16051 

1 

OCT 

16051 

2222 

42,2517 

OCOOl 

0 

OCT 

00001 

ELEVATION  DEGREES 

2223 

42,2520 

03434 

1 

OCT 

03434 

2224 

42,2521 

00047 

1 

OCT 

00047 

RENDEZVOUS  RADAR  RANGE 

2225 

42,2522 

21135 

0 

OCT 

2 1135 

2226 

42,2523 

7 7 766 

0 

OCT 

77766 

RENDEZVOUS  RADAR  RANGE  RATE 

2227 

42,2524 

50711 

0 

OCT 

50711 

2228 

42,2525 

00005 

l 

2DEC* 

.9267840599  E5  B-28  * LANDING  RADAR  ALTITUDF 

42 ,2526 

25006 

0 

2230 

42,2527 

CCC02 

0 

OCT 

00002 

INITIAL/FINAL  ALTITUDE 

2231 

42,2530 

23224 

1 

OCT 

23224 

2232 

42,2531 

0 C 0 1 4 

1 

OCT 

00014 

ALTITUDE  RATE 

2233 

42,2532 

C6500 

l 

OCT 

06500 

2235 

42,2533 

OOCOl 

0 

2DEC* 

1 . 79500987  E4 

B-28  * FORWARD/LATERAL  VELOCITY 

2235 

42,2534 

03036 

1 

2236 

42, 2535 

C4256 

1 

OCT 

04256 

ROT  HAND  CONT  ANGLE  RATE 

2 23  7 

42,2536 

07071 

0 

OCT 

07071 

2238 

42,2537 

77766 

0 

2DEC* 

-1.552795030 

E 5 B-28  * LANDING  RADAR  VELX 

2230 

4.2,2  540 

6C557 

0 

2240 

42,2541 

00005 

l 

2DEC* 

.8250825087 

E 5 B-28  * LANDING  RADAR  VELY 

2240 

42,2542 

01114 

1 

2242 

42,2543 

0 C 00  7 

0 

2DEC* 

1.153668673 

E 5 B-28  * LANDING  RADAR  VELZ 

2242 

42,2544 

01247 

1 

224  4 

42,2545 

04  324 

0 

OCT 

04324 

POSIT  I ON 7 

2 24  5 

.',2546 

27600 

1 

OCT 

27600 

2246 

42,2547 

00036 

1 

OCT 

00036 

TRIM  DEGREES2 

2 24  7 

42,2550 

20440 

0 

OCT 

2 0440 

2248 

42,2551 

00035 

1 

OCT 

00035 

COMPUTED  ALTITUDE 

2249 

42,2552 

30400 

0 

OCT 

30400 

2 250 

42,2553 

23420 

0 

OCT 

2 342  0 

DP  DEGREES 

2251 

42,2554 

00000 

1 

OCT 

00000 

2252 

42,2555 

Cl  670 

l 

2DEC 

30480  B— 1 9 

POSITION  9 

2252 

42,2556 

2 0 3)0 

0 

GAP: 

L 

2253 

2253 

2254 

2254 

2255 

2255 

A2290 

2300 

230  1 

2 30  2 

2303 

2304 

2305 

230  6 

2307 

2308 

2309 

2310 

231  l 

2312 

2313 

2314 

2315 

2316 

231  7 

2318 

2319 

2320 

232  1 

2322 

2323 

2324 

!325 

2326 

232  7 

2328 

2328 

2330 

233  1 

23  3 2 

2333 

2334 

2334 

2336 

233  7 

2338 

233  8 

2340 

2 .>40 
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PINBALL  NOUN  TABLES 


USER' S PAGE  NO.  13  EO  S4 


42,2557 

C7475 

0 

2DEC 

30.48 

B-7 

VELOC  I TY4 

42,2560 

16051 

1 

42,2561 

14400 

0 

2DEC 

100  B- 

8 

RADIANS 

42,2562 

COOOO 

1 

42,2563 

36365 

1 

20EC 

.3048 

E 2 B-5 

VELDC ITY5 

42,2564 

30244 

0 

END  OF  SFINTAB 

42,2565 

05174 

0 

SFOUTAB  OCT 

05174 

WHOLE,  DP  TIME  (SEC) 

42,2566 

13261 

0 

OCT 

13261 

42,2567 

00000 

1 

OCT 

00000 

SPARE 

42,2570 

00000 

1 

OCT 

00000 

42,2571 

ocooo 

1 

OCT 

00000 

C DU  DEGREES,  360-CDU  DEGREES 

42 ,2572 

00000 

1 

OCT 

00000 

( SFCONS  IN  DEGOUT  SF 

, 360- 

42,2573 

00714 

0 

OCT 

00714 

DP  DEGREFS  (90)  (POINT 

BETWN 

42,2574 

31463 

l 

OCT 

31463 

42,2575 

13412 

1 

OCT 

13412 

DP  DEGREFS  (360) 

42,2576 

07534 

1 

OCT 

07534 

42,2577 

05605 

1 

OCT 

05605 

DEGREES  (180) 

42,2600 

03656 

1 

OCT 

03656 

42,2601 

00001 

0 

OCT 

00001 

WE  IGHT2 

42,2602 

16  170 

0 

OCT 

16170 

42,2603 

0C441 

0 

OCT 

0 0441 

POSIT  I ON 5 

42,2604 

34306 

0 

OCT 

34306 

42,2605 

C7  176 

0 

OCT 

07176 

P0SITI0N4  (POINT 

BETWN 

42,2606 

21603 

1 

OCT 

21603 

42, 2607 

15  340 

1 

OCT 

1 5340 

VELOC ITY2 

42,2610 

15340 

1 

OCT 

15340 

42,2611 

0 1 C 3 1 

1 

OCT 

01031 

VEL0CITY3  (POINT 

BETWN 

42,2612 

21032 

0 

OCT 

21032 

42,2613 

34631 

1 

OCT 

34631 

ELEVATION  DEGREES 

42,2614 

23146 

0 

OCT 

23146 

42,2615 

OC  636 

1 

OCT 

00636 

RENDEZVOUS  RADAR  RANGE 

42,2616 

14552 

0 

OCT 

14552 

42, 2617 

74552 

0 

OCT 

74552 

RENDEZVOUS  RADAR  RANGE 

RATE 

42 ,2620 

70307 

1 

OCT 

70307 

42,2621 

•05520 

0 

2DEC 

1.079 

E-5  B14 

LANDING  RADAR  ALTITUDE 

42,2622 

15312 

0 

42,2623 

14226 

1 

OCT 

14226 

INITIAL/FINAL  ALTITUDE 

42,2624 

31757 

0 

OCT 

31757 

42,2625 

02476 

0 

OCT 

02476 

ALTITUDE  RATE 

42,2626 

05531 

0 

OCT 

05531 

42, 2627 

35152 

1 

2DEC 

5.571 

E-5  B14 

FORWARD/! ATERAL  VELOCITY 

42,2630 

21203 

0 

42,2631 

OCC07 

0 

OCT 

00007 

ROT  HAND  CONT  ANGLE  RATE 

42,2632 

13  734 

0 

OCT 

13734 

42,2633 

74477 

0 

2DEC 

- .6440 

CD 

LO 

1 

LU 

LANDING  RADAR  VELX 

42,2634 

5C643 

0 

42,2635 

06265 

0 

2DEC 

1.212 

E-5  B14 

LANDING  RADAR  VELY 

42,2636 

16004 

1 

GAP: 

l 

2342 

2342 

2344 

234  5 

2346 

2347 

2348 

2349 

2350 

235  1 

2352 

2352 

2353 

2353 

2 35  4 

2354 

2355 

2355 

A 2 390 

A 2 400 

2401 

2402 

2403 

2404 

2405 

2406 

240  7 

240  8 

240  9 

2410 

241  l 

2412 

2413 

2414 

2415 

2416 

241  7 

2418 

2419 

2420 

242  1 

2422 

2423 

2424 

2425 

2426 

242  7 
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42,2637 

04426 

0 

2DEC 

.8668  E-5  B14 

LANDING  RADAR  VELZ 

42,2640 

31433 

1 

42,2641 

34  772 

1 

OCT 

34772 

POSIT  I ON 7 

42,2642 

07016 

1 

OCT 

07016 

42,2643 

01030 

0 

OCT 

01030 

TRIM  DFGREES2 

42,2644 

33675 

0 

OCT 

33675 

42,2645 

01046 

1 

OCT 

01046 

COMPUTED  ALTITUDE 

42, 2646 

15700 

1 

OCT 

15700 

42,2647 

00321 

l 

OCT 

00321 

DP  DEGREES 

42,2650 

26706 

1 

OCT 

26706 

42,2651 

04231 

0 

2DEC 

1 7.2010499  B—  7 

POSITION  9 

42,2652 

27400 

0 

42,2653 

01031 

l 

2DEC 

.032808399 

VELOC  ITY4 

42,2654 

21032 

0 

42,2655 

12172 

0 

2DEC 

.32 

RADIANS 

42,2656 

34122 

l 

42,2657 

00206 

0 

2DEC* 

3.280839896  E-2 

B-2  * VELOC I T Y5 

42,2660 

14206 

0 

END  OF  SFOUTAB 

NN 

SF  CONSTANT 

SF  ROUTINE 

REF 

9 

LAST 

318 

42,2661 

03453 

0 

I DADDTAB  ECADR 

TTOGO 

40 

MIN/SEC 

M/S 

REF 

1 

42 ,2662 

03663 

1 

ECADR 

V GO ISP 

40 

VEL3 

DP3 

REF 

3 

LAST 

212 

42,2663 

03507. 

0 

EC  ADR 

DVTOTAL 

40 

VFL3 

DP  3 

REF 

9 
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HDOTDISP 

92 

VEL3 

DP3 

2559 

REF 

4 

LAST 

327 

42,3117 

03774 

0 

ECADR 

HCALC1 

92 

COMP  ALT 

DPI 

2560 

REF 

7 

LAST 

285 

42,3120 

02737 

0 

ECADR 

OGC 

93 

DP  DEG ( 90  1 

DP  3 

2561 

REF 

8 

LAST 

329 

42,3121 

02741 

l . 

ECADR 

OGC 

+ 2 

93 

DP  DEG ( 90 ) 

DP  3 

2562 

REF 

9 

LAST 

329 

42,3122 

02743 

0 

ECADR 

OGC 

+ 4 

93 

DPDEG (90 ) 

DP3 

2563 

REF 

8 

LAST 

329 

42,3123 

03501 

0 

ECADR 

VGBODY 

94 

VFL3 

DP  3 

2564 

REF 

7 

LAST 

329 

42,3  124 

03473 

1 

ECADR 

HDOTD IS 

P 

94 

VEL3 

DP3 

2565 

REF 

3 

LAST 

327 

42,3125 

03534 

0 

ECADR 

HCALC 

94 

COMP  ALT 

DPI 

2566 

42,3126 

ocooo 

X 

OCT 

0 

95 

SPARE 

2567 

42,3127 

00000 

X 

OCT 

0 

95 

SPARE 

2568 

42,3130 

00000 

1 

OCT 

0 

95 

SPARE 

2569 

42, 3 13  1 

00000 

1 

OCT 

0 

96 

SPARE 

2570 

42,3132 

00000 

1 

OCT 

0 

96 

SPARE 

2571 

42,3133 

00000 

1 

OCT 

0 

96 

SPARF 

2572 

REF 

LI 

LAST 

326 

42,3134 

01044 

0 

ECADR 

DSPTEM1 

97 

WHOLE 

ARTH 

2573 

REF 

12 

LAST 

329 

42,3135 

01045 

1 

ECADR 

DSPTEM1 

+ 1 

97 

WHOLF 

ARTH 

2574 

REF 

13 

LAST 

329 

42,3136 

01046 

1 

ECADR 

DSPTEM1 

+ 2 

97 

WHOLE 

ARTH 

2575 

REF 

4 

LAST 

317 

42,3137 

01047 

0 

ECADR 

DSPTEM2 

98 

WHOLF 

ARTH 

2576 

REF 

5 

LAST 

32  9 

42,3140 

01050 

O' 

ECADR 

DSPTEM2 

+ 1 

98 

FRAC 

FRAC 

2577 

REF 

6 

LAST 

329 

42,3141 

01051 

1 

ECADR 

DSPTEM2 

+ 2 

98 

WHOLE 

ARTH 
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2578 

2579 

2580 
R2600 


REE  3 LAST  310  42,3142 
REE  2 LAST  120  42,3143 
REE  1 42,3144 
END  OF  IDAOOTAB 


02171  l 
02173  0 
02175  0 


ECADR  WWPOS 
ECADR  WWVEL 
ECADR  WWBIAS 


A 2 800 


280  1 

42,3145 

16351 

1 

RUTMXTAB  OCT 

16351 

2802 

42,3146 

00142 

0 

OCT 

00142 

2 80  3 

42,3147 

16347 

0 

OCT 

16347 

2804 

42,3150 

16512 

0 

OCT 

16512 

2805 

42,3  151 

22347 

1 

OCT 

22347 

2 80  6 

42,3152 

24443 

1 

OCT 

24443 

2 80  7 

42,3153 

00000 

1 

OCT 

00000 

2808 

42,3154 

00553 

1 

OCT 

00553 

2809 

42,3155 

DO  143 

1 

OCT 

00143 

2810 

42, 3156 

06344 

l 

OCT 

06344 

281  1 

42,3157 

00000 

1 

OCT 

0 

2812 

42,3160 

00512 

1 

OCT 

00512 

281  3 

42,3161 

0 C 0 1 2 

l 

OCT 

00012 

2814 

42,3162 

00000 

1 

OCT 

00000 

2815 

42,3163 

24344 

l 

OCT 

24344 

2816 

42,3164 

24503 

1 

OCT 

24503 

2817 

42,3165 

0C512 

1 

OCT 

00512 

2818 

42,3166 

OCOOO 

1 

OCT 

0 

2819 

42,3167 

16347 

0 

OCT 

16347 

2820 

42,31 70 

16347 

0 

OCT 

16347 

282  1 

42,3171 

10347 

0 

OCT 

10347 

2 82  2 

42,3172 

24451 

1 

OCT 

24451 

2823 

42,3173 

16447 

1 

OCT 

16447 

2 82  4 

42,3  174 

10344 

0 

OCT 

10344 

2825 

42,3175 

10354 

1 

OCT 

10354 

2826 

42,3176 

20410 

0 

OCT 

20410 

2827 

42,3177 

00304 

0 

OCT 

00304 

2828 

42,3200 

10204 

0 

OCT 

10204 

2 82  9 

42,3201 

16452 

0 

OCT 

16452 

2 83  0 

42,3202 

10204 

0 

OCT 

10204 

2 831 

42,3203 

00000 

1 

OCT 

0 

2832 

42,3204 

00000 

1 

OCT 

0 

2833 

42,3205 

00115 

1 

OCT 

00115 

2834 

42,3206 

00115 

1 

OCT 

00115 

2 83  5 

42,3207 

24511 

1 

OCT 

24511 

2 83  6 

42,3210 

2244  7 

0 

OCT 

2 244  7 

283  7 

42,3211 

16347 

0 

OCT 

1634  7 

2 83  8 

42, 3212 

16351 

1 

OCT 

16351 

2839 

42,3213 

22756 

0 

OCT 

22756 

2340 

42,3214 

06102 

1 

OCT 

06102 

2841 

42,3215 

00503 

1 

OCT 

00503 

2842 

42,3216 

16347 

0 

OCT 

16347 

♦ 
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99 

P0S9 

DP3 

99 

VEL4 

DP  2 

99 

RADIANS 

DP4 

NN  SF  ROUTINES 


40 

M/S, 

DP  3 , 

DP3 

41 

CDU, 

ARTH 

42 

DP  3, 

DP  3 , 

DP  3 

43 

DP  4 , 

DP4, 

DP3 

44 

DP  3 , 

DP  3, 

M/S 

45 

AR  TH, 

M/S, 

DP4 

46 

OCT, 

OCT 

47 

AP.  ITH1,  AP 

I TH  1 

48 

ARTH, 

ARTH 

49 

0P1, 

DP3, 

ARTH 

50 

SPARE 

51 

DP  4 , 

DP  4 

52 

DP  4 

53 

SP  ARF 

54 

OP  1, 

DP  3, 

DP4 

55 

ARTH, 

DP4 

, 0P4 

56 

DP  4, 

DP4 

57 

SPARE 

58 

DP  3, 

OP  3 , 

DP3 

59 

DP  3, 

DP  3, 

DP3 

60 

DP3 , 

DP  3 , 

DPI 

61 

M/S, 

M/S, 

DP4 

62 

DP  3 , 

M/S, 

DP3 

63 

DP  l , 

DP  3 , 

DPI 

64 

2 I NT , 

DP  3 , 

0P1 

65 

HMS, 

HMS, 

HMS 

66 

DP  1 , 

LRPOS 

67 

DPI, 

DP  1 , 

DPI 

68 

OP  4 , 

M/S, 

DP3 

69 

DPI, 

DPI, 

DPI 

70 

OCT, 

OCT  , 

OCT 

71 

OCT, 

OCT, 

OCT 

72 

360— C 

DU,  C 

DU 

73 

36  0-C 

DU,  C 

DU 

74M/S , DP4.DP4 

75  DP  3 , M/S,  M/S 

76  DP  3 , DP  3 , DP3 

77  M/S,  DP  3 , 0P3 

78  RR  RANGE,  RR  RANGE  RATE,  M/S 

79  CD U , CDU,  ARTH 

80  ARTH,  DP4 

81  DP  3 , DPT,  DP3 
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2843 

42,3217 

16347 

0 

OCT 

16347 

2844 

42, 3220 

16347 

0 

OCT 

16347 

2 84  b 

42, 3221 

16347 

0 

OCT 

16347 

2046 

42,3222 

16347 

0 

OCT 

16347 

2 84  7 

42, 3223 

16347 

0 

OCT 

16347 

2 84  8 

42,3224 

00102 

1 

OCT 

00102 

2849 

42,3225 

02C41 

0 

OCT 

02041 

2850 

42,3226 

10347 

0 

OCT 

10347 

2051 

42,3227 

24344 

1 

OCT 

24344 

2852 

42,3230 

24507 

0 

OCT 

24507 

2853 

42,3231 

10343 

1 

OCT 

10343 

2854 

42,3232 

16347 

0 

OCT 

16347 

2855 

42,3233 

10347 

0 

OCT 

10347 

2856 

42,3234 

00000 

1 

OCT 

0 

285  / 

42,3235 

00000 

1 

OCT 

0 

2858 

42,3236 

06  143 

1 

OCT 

06143 

2859 

42,3237 

06043 

0 

OCT 

06043 

2060 

42,3240 

24247 

0 

OCT 

24247 

R287C  END  OF  RUTMXTA8 

2871  REF  3 LAST  304  30,2000  S8ANK=  LOWSUPER 
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82 

DP  3 , 

DP  3, 

DP3 

83 

DP  3 , 

DP3 , 

DP3 

84 

DP  3, 

OP  3 , 

DP3 

85 

DP  3 , 

DP  3, 

DP3 

86 

DP  3, 

DP3 , 

DP3 

87 

CDU, 

C.DU 

88 

FRAC 

FOR  EACH 

89 

DP  3 , 

DP  3 , 

0P1 

90 

DP  1 , 

DP  3, 

DP4 

91 

DP  3, 

DP  4, 

DP4 

92 

ARTH, 

DP3 , 

DPI 

93 

DP  3, 

DP  3 , 

DP3 

94 

DP  3 , 

DP3  , 

DPI 

95 

SPARE 

96 

SPARE 

97 

ARTH, 

ARTH 

, ARTH 

98 

ARTH, 

FRAC 

, ARTH 

99 

DP  3 , 

DP 2 , 

DP4 

GAP 
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USER' S PAGE  NO.  1 EO  S? 


000  1 

0001C1  REF 
0001C2 


23,2041 

13,2000 

13,2070 


BANK  23 
SETLOC  LEMGEOM 
BANK 


00015 

REF 

4 LAST 

33  1 

30,2000 

SBANK= 

LOWSUPER 

0002 

REF 

3 LAST 

2 59 

E5, 1642 

EBANK= 

XSM 

R0500 

THESE  TWO  ROUTINES 

COMPUTE 

THE  ACTUAL  STATE 

VECTOR 

FOR 

LM,CSM  BY  ADDING 

R0501 

THE  CONIC  r,v  AND 

THE  OEV  IAT  ICNSR, V, 

. THE  STATE  VECTORS 

AR  F CONVERTED  TO 

R0502 

METERS  B— 29  AND  MFTERS/CSEC 

B-7  AND 

STORED 

APPROPRIATELY  IN  RN , VN  OR 

R0503 

R-OTHEP  , V-OTHER 

FOR  DOWNLINK.  THE 

ROUTINES  NAMES 

ARE 

SWITCHED  IN  THE 

R0504 

OTHER  VEHICLES  COMPUTER. 

R0505 

INPUT 

R0506 

STATE  VECTOR  IN 

TEMPORARY 

STORAGE 

AR  FA 

R05061 

IF  STATE  VECTOR 

IS  SCALED 

POS  B27 

AND  VEL 

B 5 

R05062 

SET  X 2 TO  +2 

R 0 50  6 3 

IF  STATE  VECTOR 

IS  SCALED 

POS  829 

AND  VFL 

B 7 

R05064 

SET  X2  TO  0 

R0507 

OUTPUT 

R0508 

RIT)  IN  RN,  V { T ) 

IN  VN,  T 

IN  PIPTIME 

R0509 

OR 

R0510 

RIT)  IN  R-OTHER, 

V 1 T ) IN 

V-OTHER 

( r i s 

DEFINED 

BY  T 

-OTHER) 

05106 

REF 

1 

COUNT* 

$ $/GEOM 

051  1 

13,2070 

43414 

1 SVDWN2 

BOF 

RVQ 

SW=1= AVETOMID  DOING  W-MATRIX  INTFG 

05112 

REF 

1 

13,2071 

04756 

1 

AVEMIDSW 

051  1 3 

13,2072 

26073 

1 

+ 1 

05114 

13,2073 

53775 

1 

VLOAD 

VSL* 

0512 

REF 

2 

LAST 

115 

13,2074 

01521 

0 

TDELTAV 

0513 

13,2075 

57605 

0 

0 -7,2 

0514 

13,2076 

53655 

1 

VAD 

VSL* 

0515 

REF 

2 

LAST 

115 

13,2077 

01535 

0 

RCV 

0516 

13,2100 

57576 

1 

0,2 

0517 

REF 

4 

LAST 

206 

13,2101 

25220 

0 

STOVL 

RN 

0518 

REF 

2 

LAST 

115 

13,2102 

01527 

0 

TNUV 

0519 

13,2103 

53257 

1 

VSL* 

VAD 

0520 

13,2104 

5 7 502 

l 

0 -4,2 

052  1 

REF 

2 

LAST 

115 

13,2105 

•7 1 5 4 3 

1 

VCV 

0522 

13,2106 

77657 

0 

VSL  * 

0523 

13,2107 

57576 

l 

0,2 

0524 

REF 

4 

LAST 

206 

13,2110 

15226 

0 

STOOL 

VN 

0525 

REF 

6 

LAST 

318 

13,2111 

11517 

0 

TET 

0526 

REF 

2 

LAST 

206 

13,2112 

01234 

0 

STORE 

P IPT I ME 

052  7 

13,2113 

776  16 

0 

RVQ 

GAP: 
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0528 

13,2114 

53775 

1 SVDWN1 

VLOAD 

VSL* 

0529 

REF 

3 

LAST 

332 

13,2115 

01521 

0 

TDELTAV 

0530 

13,2116 

57605 

0 

0 -7,2 

0531 

13,2117 

53655 

1 

VAD 

VSL* 

0532 

REF 

3 

LAST 

332 

13,2120 

01535 

0 

RCV 

0533 

13,2121 

57576 

1 

0,2 

0534 

REF 

6 

LAST 

205 

13,2122 

25716 

0 

STOVL 

R-OTHER 

0535 

REF 

3 

LAST 

332 

13,2123 

01527 

0 

TNUV 

0536 

13,2124 

53257 

1 

VSL  * 

VAD 

0537 

13,2125 

57602 

1 

0-4,2 

0538 

REF 

3 

LAST 

332 

13,2126 

01543 

1 

VCV 

0539 

13,2127 

77657 

0 

VSL* 

0540 

13,2130 

57576 

1 

0,2 

054  1 

REF 

6 

LAST 

205 

13,2131 

01724 

1 

STORE 

V-OTHER 

0542 

13,2132 

77616 

0 

RVQ 
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P0649 

THE 

FOLLOWING  ROUTINE 

TAKES 

A 

HALF  UNIT  TARGET 

VECTOR  REFERRED 

TO  NAV  BASE  COORDINATES  AND  FINDS  BOTH 

K0651 

GIMBAL 

ORIENTATIONS 

AT  WHICH 

THE  RR 

MIGHT  SIGHT  THE  TARGE  T . THE  GIMRAL 

ANGLES  CORRESPONDING  TO  THE  PRESENT  MODE 

R0653 

ARE  LEFT  IN  MOOEA  AND  THOSE 

WHICH  WOULD  BE  USED  AFTER  A 

REMOO E IN 

MOOEB 

. THIS  ROUTINE  ASSUMES  MODE  l IS  TRUNNION 

R0655 

ANGLE  LESS  THAN  90 

DEGS  IN  A8S 

VALUE 

WITH  ARBITRARY  SHAFT,  WITH  A 

CORRESPONDING  DEFINITION  FOR  MODE  2.  MODF 

R0657 

SELECTION  AND 

LIMIT 

CHECKING 

ARE  DONE 

ELSEWHERE. 

R0658 

THE 

MOOE  1 

CONFIGURATION  IS 

CALCULATED  FROM  THE  VECTOR  AND  THEN  MODF  2 IS  FOUND  USING  THE  RELATIONS 

R0660 

S I 2 ) 

= 180 

+ SIl) 

R0661 

T I 2 > 

= 180 

- Till 

R0661C1 

THF 

VECTOR  ARRIVES  IN  MPAC 

WHERE 

TRG*SMN8  OR  *SMN8* 

WILL  HAVE 

LEFT 

IT. 

066  2 

13,2133 

00041 

1 

RRANGLES  STORE 

3 2D 

06625 

13,2134 

57545 

1 

DLOAD 

DCOMP 

SINCE  WE  WILL  FIND  THF  MODE  1 SHAFT 

0663 

13,2135 

00043 

0 

34D 

ANGLE  LATER,  WE  CAN  FIND  THE  MOOE  1 

066  A 

13,2136 

67401 

0 

SETPD 

AS  IN 

TRUNNION  BY  SIMPLY  TAKING  THE  ARCSIN  OF 

066  5 

13,2137 

0C001 

0 

0 

THE  Y COMPONENT,  THE  ASIN  GIVING  AN 

0666 

13,2140 

44206 

0 

PUSH 

BDSU 

ANSWER  WHOSE  ABS  VAL  IS  LESS  THAN  90  DEG 

066  7 

REF  l 

13,2141 

24005 

1 

LODPHALF 

066  8 

13,2142 

14005 

1 

STODL 

4 

MODE  2 TRUNNION  TO  4. 

0669 

RFF  3 

LAST 

260 

13,2143 

24007 

0 

L06ZER0S 

0670 

13,2144 

24043 

0 

STOVL 

3 4D 

UNIT  THE  PROJFCTION  OF  THE  VECTOR 

0671 

13,2145 

0C041 

1 

3 2D 

IN  THE  X-Z  PLANE 

0672 

13,2146 

4 1 C 56 

1 

UNIT 

B0V8 

IF  OVERFLOW, TARGFT  VECTOR  IS  ALONG  Y 

0673 

REF  l 

13,2147 

52412 

1 

LUNDESCH 

CALL  FOR  MANEUVER  UNLESS  ON  LUNAR  SURF 

0674 

13,2150 

14041 

1 

STOOL 

32D 

PROJECTION  VECTOR. 

0675 

13,2151 

00041 

1 

3 2D 

0676 

13,2152 

44  142 

0 

SRI 

STO 

0677 

REF  2 

LAST 

261 

13,2153 

00051 

0 

S 2 

0678 

REF  3 

LAST 

3 12 

13, 2154 

14023 

0 

STODL 

S INTH 

USE  ARCTRIG  SINCE  SHAFT  COULD  BE  ARB. 

0679 

13,2155 

00045 

0 

36D 

0680 

13,2156 

77742 

0 

SRI 

068  1 

REF  3 

LAST 

312 

13,2157 

34021 

0 

STCALL 

COSTH 

0682 

REF  3 

LAST 

312 

13,2160 

47303 

1 

ARCTRIG 
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068  3 

13,2161 

43206 

1 

PUSH 

DAD 

0684 

REF 

2 

LAST 

334 

13,2162 

24005 

1 

LODPHALF 

0685 

13, 2163 

24007 

0 

STOVL 

6 

0686 

13,2164 

00005 

1 

4 

0687 

13,2165 

77634 

0 

RTB 

0688 

REF 

1 

13,2166 

21645 

0 

2 V1ST02S 

0689 

REF 

2 

LAST 

106 

13,2167 

25111 

1 

STOVL 

MODEB 

0690 

13,2170 

0C001 

0 

0 

0691 

13,2171 

77634 

0 

RTB 

0692 

REF 

2 

LAST 

335 

13,2172 

21645 

0 

2 V 1ST02S 

0693 

REF 

1 

13, 2173 

01107 

0 

STORE 

MODEA 

0694 

13,2174 

77776 

1 

EXIT 

0695 

REF 

26 

LAST 

288 

13,2175 

4 0110 

0 

CS 

RADMODES 

0696 

REF 

1 

13,2176 

7 4731 

1 

MASK 

ANTENBIT 

0697 

REF 

88 

LAST 

317 

13,2177 

10  000 

0 

CCS 

A 

0698 

13,2200 

1 2204 

1 

TCF 

+ 4 

0699 

REF 

2 

LAST 

335 

13,2201 

53 ' 107 

1 

DXCH 

MODEA 

0700 

REF 

3 

LAST 

335 

13,2202 

53'  111 

0 

DXCH 

MODEB 

070  1 

REF 

3 

LAST 

335 

13,2203 

53'  107 

■1 

DXCH 

MODEA 

0702 

REF 

12 

LAST 

3 1 1 

13,2204 

0 6060 

1 

TC 

I NTPRET 

0703 

13,2205 

77650 

1 

GOTO 

0704 

REF 

3 

LAST 

334 

13,2206 

00C51 

0 

S 2 
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MODE  1 SHAFT  TO  2. 

FIND  MODE  2 CDU  ANGLES. 

MODE  1 ANGLES  TO  MODE  A. 

SWAP  MOD FA  AND  MODEB  IF  RR  IN  MODE  2. 
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P0705  GIVEN  RR  TRUNNION  AND  SHAFT  IT, SI  IN  T ANGNB,  + 1 , F 1 ND  THE  ASSOCIATED 
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CAF 

ZERO 

0219 

REF 

19 

LAST 

343 

06,3521 

50  130 

0 

INDEX 

BUF 

022  0 

REF 

4 

LAST 

343 

06,3522 

21 ' 472 

0 

DAS 

GCOMP 

022  1 

REF 

30 

LAST 

338 

06,3523 

0 0002 

0 

TC 

Q 
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USER'S  PAGE  NO.  6 E3  S3 

ADIA  OR  ADSR A COEFFICIENT  ARRIVES  IN  A 
C(MPAC)  = (PIPA  PULSES)  X 21+14) 

(GYRO  PULSES) /(PIPA  PULSE)  X 2(-6)  * 

NOW  = (GYRO  PULSES)  X 2(+8)  4 

MINOR  PART  PIPA  PULSES 

ADIA  OR  ADSR A 


NOW  = (GYRO  PULSES)  X 2(+8)  * 

PARTIAL  RESULT  - MAJOR 

SCALE  2 ( +6 ) SHIFT  RIGHT  6 * 

RESULT  = (GYRO  PULSES)  X 21+14) 

HI  ( AD  I A)  ( P IPA  I ) OR  HI  (ADSRA)  (PIPAI  ) 

PARTIAL  RESULT  - MINOR 

SCALE  2 ( +6  ) SHIFT  RIGHT  6 * 

RESULT  = (GYRO  PULSES)  X 2(+14) 

(ADIA  ) (PIPAI  ) OR  (AOSRA)IPIPAI) 


GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  202U12-161 

L IMU  COMPENSATION  PACKAGE 


0222 

06,3524 

C 0006 

1 

ORIF  TSUB 

EXTFND 

0223 

KEF 

20 

LAST 

343 

06,3525 

22  131 

l 

QXCH 

BUF  +1 

0224 

06,3526 

0 0006 

1 

EXTEND 

0225 

REF 

3 

LAST 

338 

06,3527 

7 1074 

1 

MP 

1/PIPADT 

0226 

REF 

60 

LAST 

343 

06,3530 

22  155 

0 

LXCH 

MPAC  +1 

022  7 

06,3531 

0 0006 

1 

EXTEND 

022  8 

REF 

22 

LAST 

269 

06,3532 

7 4 741 

0 

MP 

BIT4 

0229 

REF 

21 

LAST 

344 

06,3533 

5.;  130 

0 

INDEX 

BUF 

0230 

REF 

5 

LAST 

343 

06,3534 

2 l ' 4 72 

0 

DAS 

GCOMP 

023  1 

REF 

6 l 

LAST 

344 

06,3535 

3 C 1 55 

0 

CA 

MPAC  +1 

0232 

06,3536 

0 0006 

1 

EXTEND 

0233 

REF 

23 

LAST 

344 

06,3537 

7 4 741 

0 

MP 

BIT4 

0234 

REF 

29 

LAST 

343 

06,3540 

54  001 

1 

TS 

L 

0235 

REF 

33 

LAST 

343 

C6, 3541 

3 4746 

0 

CAF 

ZERO 

0236 

REF 

22 

LAST 

344 

06,3542 

50  130 

0 

INDEX 

BUF 

0237 

REF 

6 

L AST 

344 

06,3543 

2 1 ' 472 

0 

DAS 

GCOMP 

023  B 

REF 

13 

LAST 

316 

06,3544 

3 4743 

0 

DRFTSUB2 

CAF 

TWO 

0239 

REF 

23 

LAST 

344 

06,3545 

6 0130 

0 

AD 

BUF 

0240 

REF 

24 

LAST 

344 

06,3546 

56  130 

0 

XCH 

BUF 

0241 

REF 

89 

LAST 

335 

06,3547 

50  000 

1 

INDEX 

A 

0242 

REF 

7 

LAST 

344 

06,3550 

1 1 ' 471 

0 

CCS 

GCOMP 

024  3 

06,3551 

l 3553 

0 

TCF 

+ 2 

0244 

REF 

25 

LAST 

344 

C6.3552 

0 0131 

1 

TC 

BUF  +1 

0245 

REF 

1 

06,3553 

7 3623 

1 

MASK 

COMPCHK 

0246 

REF 

90 

LAST 

344 

06,3554 

10  000 

0 

CCS 

A 

024  7 

REF 

4 

LAST 

340 

06,3555 

55 ' 477 

0 

TS 

GCOMPSW 

0248 

REF 

26 

LAST 

344 

06,3556 

0 0131 

1 

TC 

BUF  +1 

17:11  MAR.  19,1971  LEM0NAID.156  PAGE  344 
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CIA)  = NBO  (GYRO  PULSESl/ICS)  X 21-5) 

ICS)  X 21+8)  NOW  (GYRO  PULSES)  X 21+3) 

SAVE  FOR  FRACTIONAL  COMPENSATION 

SCALE  21+11)  SHIFT  RIGHT  11 

HI (NBO) I DELTAT ) (GYRO  PULSFS)  X 2(+14) 

NOW  M INOP  PART 

SCALE  2 ( +1 1 ) SHIFT  RIGHT  11 


ADO  IN  FRACTIONAL  COMPENSATION 
( N80 ) ( OFLT  AT ) (GYRO  PULSES)  X 2<  + l4) 

PIPAX,  PIPAY,  PIPAZ 


ARE  GYRO  COMMANDS  1 PULSE  OR  GREATFR 

YES 

NO 

DEC  -1 

ARE  GYRO  COMMANDS  GREATER  THAN  2 PULSES 
YES  - SET  GCOMPSW  POSITIVE 
NO 


GAP: 

L 

0249 

0250 

0251 

0252 

0251 

025  4 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 

0281 

0282 

0283 

0284 

0285 

0286 


ASStMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


17:  11  MAR.  19,1971  LEM0NAID.156  PAGE  345 


IMU  CCMPENSATION  PACKAGE  USFR'S  PAGE  NO.  8 E3  S3 


REF 

3 

LAST 

338 

06,3557 

3 4 742 

1 

l /GYRO 

CAF 

FOUR 

PIPAZ,  PIPAY,  PIPAX 

REF 

27 

LAST 

344 

06,3560 

54  130 

1 

TS 

BUF 

REF 

28 

LAST 

345 

06,3561 

50  130 

0 

INDFX 

BUF 

SCALE  GYRO  COMMANDS  FOR  IMUPULSE 

REF 

8 

LAST 

344 

06,3562 

3 1472 

1 

CA 

GCOMP  +1 

FRACTIONAL  PULSFS 

06,3563 

0 0006 

1 

EXTEND 

REF 

21 

LAST 

291 

06,3564 

7 4735 

0 

MP 

B IT8 

SHIFT  RIGHT  7 

REF 

29 

LAST 

345 

06,3565 

50  130 

0 

INDEX 

BUF 

REF 

9 

LAST 

345 

06,3566 

55 ' 472 

0 

TS 

GCOMP  +1 

FRACTIONAL  PULSES  SCALED 

REF 

34 

LAST 

344 

06,3567 

3 4746 

0 

CAF 

ZERO 

SET  GCOMP  = 0 FOR  DAS  INSTRUCTION 

REF 

30 

LAST 

345 

C6, 3570 

50  130 

0 

INDEX 

BUF 

REF 

10 

LAST 

345 

06,3571 

57*471 

1 

XCH 

GCOMP 

GYRO  PULSES 

06, 3572 

C 0006 

l 

EXTEND 

REF 

22 

LAST 

345 

06,3573 

7 4735 

0 

MP 

B I T 8 

SHIFT  RIGHT  7 

REF 

31 

LAST 

345 

06,3574 

50  130 

0 

INDEX 

BUF 

RFF 

11 

LAST 

345 

06, 3575 

21*472 

0 

DAS 

GCOMP 

ADD  THESE  TO  FRACTIONAL  PULSES  ABOVE 

REF 

32 

LAST 

34  5 

C6, 3576 

10  130 

1 

CCS 

BUF 

PIPAZ,  PIPAY,  PIPAX 

REF 

2 

LAST 

338 

06,3577 

6 7770 

0 

AD 

NEG1 

REF 

2 

LAST 

340 

06,3600 

1 3 5 60 

0 

TCF 

1/GYRO  +1 

REF 

12 

LAST 

345 

06,3601 

01471 

1 

LGCOMP 

ECADR 

GCOMP 

LESS  THAN  ZERO  IMPOSSIBLE 

REF 

2 

LAST 

338 

06, 3602 

3 3601 

0 

CAF 

LGCOMP 

REF 

e i 

LAST 

312 

06,3603 

0 4607 

1 

TC 

B ANKCALL 

REF 

2 

LAST 

285 

06,3604 

17310 

0 

CADR 

I MUPULSE 

CALL  GYRO  TORQUTNG  ROUTINE 

REF 

62 

LAST 

345 

06 ,3605 

0 4607 

1 

TC 

BANKC ALL 

REF 

6 

LAST 

285 

06,3606 

17735 

0 

CADR 

1 MUST  ALL 

WAIT  FOR  PULSES  TO  GET  OUT 

06,3607 

1 3610 

1 

TCF 

+ 1 

REF 

4 

LAST 

345 

06,3610 

3 4742 

1 

GC0MP1 

CAF 

FOUR 

PIPAZ,  PIPAY,  PIPAX 

REF 

33 

LAST 

345 

06,3611 

54  130 

l 

TS 

BUF 

REF 

34 

LAST 

345 

06,3612 

50  130 

0 

INDEX 

BUF 

RESCALE 

REF 

13 

LAST 

345 

06,3613 

3 1472 

1 

CA 

GCOMP  +1 

06,3614 

0 0006 

l 

EXTEND 

REF 

23 

LAST 

345 

06,3615 

7 4735 

0 

MP 

BITS 

SHIFT  MINOR  PART  LEFT  7 - MAJOR  PART 

REF 

35 

LAST 

345 

06,3616 

50  130 

0 

INDEX 

BUF 

REF 

14 

LAST 

345 

06,3617 

23 ' 472 

1 

LXCH 

GCOMP  +1 

BITS  8-14  OF  MINOR  PART  WERE  = 0 

REF 

36 

LAST 

345 

06,3620 

10  130 

1 

CCS 

BUF 

PIPAZ,  PIPAY,  PIPAX 

REF 

3 

LAST  ' 

345 

06,3621 

6 7770 

0 

AD 

NEG1 

REF 

1 

06,3622 

1 3611 

0 

TCF 

GCOMP 1 +1 

06,3623 

77776 

1 

COMPCHK 

DEC 

-1 

LESS  THAN  ZERO  IMPOSSIBLE 

REF 

26 

LAST 

311 

06,3624 

1 5146 

0 

TCF 

ENDOF JOB 

ASSEMBLE  REVISION  210  OE  AGC  PROGRAM  LUMINARY  BY  NASA  202 L 1 12- 1 61 


GAP: 


L 

IMU 

COMPCNSAT 

ION  P. 

ACKAGE 

0287 

REF 

5 

LAST 

344 

06,3625 

1 1 '477 

0 

NBDONLY 

CCS 

GCOMPSW 

0288 

06,3626 

l 3631 

1 

TCF 

+ 3 

0289 

06,3627 

1 3631 

l 

TCF 

+ 2 

0290 

REF 

27 

LAST 

345 

06,3630 

1 5146 

0 

TCF 

ENDOF JOB 

0290  C 5 

06,3631 

0 0004 

0 

INHINT 

02901 

REF 

6 

LAST 

241 

06,3632 

10  076 

1 

CCS 

FLAGWRD2 

02902 

REF 

28 

LAST 

346 

06,3633 

1 5146 

0 

TCF 

ENDOF JOB 

02903 

REF 

29 

LAST 

346 

06,3634 

1 5146 

0 

TCF 

ENDOF JOB 

02904 

06,3635 

l 3636 

0 

TCF 

+ 1 

02905 

REF 

3 

LAST 

309 

06,3636 

3 C 104 

1 

CA 

FLAGWRD8 

02906 

REF 

24 

LAST 

345 

06,3637 

7 4735 

0 

MASK 

6IT8 

02907 

REF 

4 

LAST 

100 

06,3640 

54  141 

1 

TS 

T EM  1 

02908 

06,3641 

0 C006 

1 

EXTEND 

0291 

06,3642 

1 3645 

1 

BZF 

+ 3 

0292 

REF 

16 

LAST 

307 

06, J643 

0 4665 

0 

TC 

I BNKC ALL 

02925 

REF 

l 

06,3644 

77.543 

0 

CADR 

PIPASR  + 

029  3 

REF 

8 

LAST 

217 

06,3645 

3 0025 

0 

CA 

T IME  1 

0294 

REF 

4 

LAST 

344 

06, 3646 

57 ' C74 

0 

XCH 

1/PIPADT 

0 29  5 

06,3647 

0 0003 

l 

REL INT 

0296 

06,3650 

4 0000 

0 

COM 

0297 

REF 

5 

LAST 

346 

06,365  1 

6 10  74 

0 

AD 

l/PIPAOT 

0298 

REF 

1 

06,3652 

6 4727 

1 

NBD2 

AD 

HALF 

0299 

REF 

2 

LAST 

346 

06,3653 

6 4 72  7 

1 

AD 

HALF 

0300 

REF 

30 

LAST 

344 

06,3654 

56  C01 

0 

XCH 

L 

0301 

RFF 

31 

LAST 

346 

06,3655 

56  001 

0 

XCH 

L 

0302 

06,3656 

C 0006 

1 

NBD3 

EXTEND 

030  3 

REF 

16 

LAST 

189 

06,3657 

7 4733 

0 

MP 

8 I T 1 0 

0304 

REF 

21 

LAST 

343 

Oti  ,3660 

52  125 

0 

DXCH 

VRUF  +2 

0304  1 

REF 

35 

LAST 

345 

06,3661 

3 4746 

0 

CA 

ZERO 

0304  2 

REF 

6 

LAST 

346 

06, 3662 

55 ' 4 77 

0 

TS 

GCOMPSW 

0304  3 

REF 

37 

LAST 

345 

06,3663 

54  130 

1 

TS 

BUF 

03044 

REF 

5 

LAST 

346 

06, 3664 

10  141 

1 

CCS 

TEM1 

03045 

REF 

2 

LAST 

340 

06,3665 

0 3426 

l 

TC 

IRIGX 

0305 

06, 3666 

0 0006 

1 

EXTEND 

0306 

REF 

22 

LAST 

346 

06,3667 

3 0125 

1 

DC  A 

VBUF  +2 

030  7 

REF 

62 

LAST 

344 

06,3670 

52  155 

1 

DXCH 

MP  AC 

0311 

REF 

4 

LAST 

34  0 

06,3671 

4 1460 

0 

CS 

NBDX 

0312 

REF 

1 

06, 3672 

0 3714 

0 

TC 

F B I AS  SUB 

03121 

REF 

6 

LAST 

346 

06,3673 

10  141 

1 

CCS 

TEM1 

03122 

REF 

2 

LAST 

340 

06, 3674 

0 3443 

l 

TC 

IRIGY 
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USER'S  PAGE  NO.  9 E3  S3 

BYPASS  IF  GCOMPSW  NEGATIVE 


PREREAD  T3RUPT  MAY  COINCIDE 


IF  SURFACE  FLAG  IS  SET,  SET  TFM 1 
POSITIVE  SO  THAT  THE  ACCELERATION  TERMS 
WILL  BE  COMPENSATED. 

ARE  WE  ON  THE  SURFACF 

ON  THE  SURFACE 

READ  PIPAS,  BUT  DO  NOT  SCALE  THEM 

(CS)  X 2 ( + L4 ) 

PREVIOUS  TIME 


PRESENT  TIME  - PREVIOUS  TIME 
CORRECT  FOR  POSSIBLE  T I ME  1 TICK 

IF  T I ME  1 DID  NOT  TICK,  REMOVE  RFSULTING 
OVERFLOW . 

CIA)  = DELTAT  (CS)  X 21+14) 

SHIFT  RIGHT  5 


INDICATE  COMMANDS  2 PULSFS  OR  LFSS. 
INDEX  X,  Y,  7. 

IF  SURFACE  FLAG  IS  SET, 

COMPENSATE  ACCELERATION  TERMS. 


DELTAT  NOW  SCALED  (CS)  X 2<+19) 

(GYRO  PULSES ) / (CS ) X 2(-5) 

-( NBDX )( DELTAT ) (GYRO  PULSES)  X 2(+l4) 

IF  SURFACE  FLAG  IS  SET, 

COMPENSATE  ACCELERATION  TERMS. 


GAP: 


ASSEMBLE  RFVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L IMU  CCMPFNSAT 1 ON  PACKAGE 


0313 

06,3675 

C 

C 006 

1 

EXTEND 

0314 

REF 

23 

LAST 

346 

06,3676 

4 

0125 

0 

DCS 

VBUF  +2 

0315 

REF 

63 

LAST 

346 

06,3677 

52 

155 

1 

DXCH 

MP  AC 

0316 

REF 

2 

LAST 

340 

06, 3700 

3 

1461 

0 

CA 

NBDY 

031  7 

REF 

2 

LAST 

346 

06,3701 

0 

3714 

0 

TC 

FBI ASSUB 

03171 

REF 

7 

LAST 

34  6 

06,3702 

10 

141 

1 

CCS 

TEM1 

03172 

REF 

2 

LAST 

340 

06,3703 

0 

3460 

0 

TC 

I RIGZ 

0318 

06,3704 

0 

0006 

1 

EXTEND 

0319 

REF 

24 

LAST 

347 

06,3705 

4 

0125 

0 

DCS 

V8UF  +2 

0320 

REF 

64 

LAST 

34  7 

06,3706 

52 

155 

1 

DXCH 

M P AC 

0321 

REF 

2 

LAST 

340 

C6.3707 

4 

1462 

1 

CS 

NBDZ 

0322 

REF- 

3 

LAST 

347 

06,3710 

0 

3714 

0 

TC 

FBI ASSUB 

0323 

REF 

7 

LAST 

346 

06,3711 

11 

' 477 

0 

CCS 

GCOMPSW 

0324 

REF 

3 

LAST 

345 

06,3712 

1 

3557 

1 

TC  F 

1 /GYRO 

0325 

REF 

30 

LAST 

346 

06,3713 

1 

5146 

0 

TC  F 

ENDOF JOB 
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USER'S  PAGE  NO.  10  F3 


DELTAT  SCALED  (CS)  X 21+19) 
(GYRO  PULS  ES ) / ( CS ) X 21-5) 
-(NBDY) (DELTAT)  (GYRO  PULSES) 

IF  SURFACE  FLAG  IS  SET, 
COMPENSATE  ACCELERATION  TFRMS 


DELTAT  SCALED  (CS)  X 2(+19) 

(GYRO  PULSES)/(CS)  X 2<-5) 

+ 1NBDZ)  (DELTATI  (GYRO  PULSFS) 

ARE  GYRO  COMMANDS  GREATER  THAN  2 

YES 

NO 


S3 


21+14) 


2 (+14) 
PULSES 


ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMlNAPY  BY  NASA  2021112-161 


GAP: 


L IMU  CCMPENS AT  I ON  PACKAGE 


0326 

REF 

31 

LAST 

343 

06,3714 

56  002 

0 

FBI ASSUB  XCH 

0 

032  7 

REF 

38 

LAST 

346 

06,3715 

54  131 

0 

TS 

BUF  +1 

0328 

REF 

32 

LAST 

348 

06,3716 

3 0002 

0 

CA 

Q 

032  9 

06,3717 

0 0006 

1 

EXTEND 

0330 

REF 

65 

LAST 

347 

06,3720 

7 0154 

0 

MP 

MPAC 

0331 

REF 

39 

LAST 

348 

06, 3721 

50  130 

0 

INDE  X 

BUF 

0332 

REF 

15 

LAST 

34  5 

06,3722 

21' 472 

0 

DAS 

GCOMP 

0333 

REF 

33 

LAST 

348 

06,3723 

3 0002 

0 

CA 

Q 

0334 

06,3724 

0 0006 

1 

EXTEND 

0335 

REF 

66 

LAST 

348 

06,3725 

7 C 1 55 

1 

MP 

MPAC  +1 

0336 

REF 

32 

LAST 

346 

06,3726 

54  001 

1 

TS 

L 

0337 

REF 

36 

LAST 

346 

06,3727 

3 4 746 

0 

CAF 

ZERO 

0338 

REF 

40 

LAST 

348 

06,3730 

5 7 13  0 

0 

INDEX 

BUF 

0339 

REF 

16 

LAST 

348 

06,3731 

21 '4 72 

0 

DAS 

GCOMP 

0340 

REF 

1 

06,3732 

l 3544 

0 

TCF 

DRFTSUB2 

0341 

REF 

63 

LAST 

345 

06,3733 

0 

4607 

1 

LASTBIAS  TC 

B ANKCALL 

0341  1 

RFF 

1 

06,3734 

17264 

1 

CADR 

P IPUSE1 

034  12 

REF 

8 

LAST 

347 

06, 3735 

1 1 

•477 

0 

CCS 

GCOMPSW 

0342 

06,3736 

1 

3741 

1 

TCF 

+ 3 

0343 

06,3737 

1 

3741 

1 

TCF 

+ 2 

0344 

REF 

31 

LAST 

347 

06,3740 

1 

5146 

0 

TCF 

ENDOF JOB 

0344  1 

REF 

4 

LAST 

346 

06,3741 

3 

0104 

1 

CA 

F L AGWRD  8 

034  4 2 

REF 

2 

LAST 

309 

06,3742 

7 

4735 

0 

MASK 

SURFFBI T 

03443 

REF 

8 

LAST 

347 

06,3743 

54 

141 

1 

TS 

TEM1 

034  5 

REF 

l 

06,3744 

3 

7737 

0 

CAF 

PR  103 1 

0346 

REF 

6 

LAST 

346 

06,3745 

57 

• C74 

0 

XCH 

1/PIPADT 

034  7 

06,3746 

4 

COCO 

0 

COM 

034  8 

REF 

3 

LAST 

332 

06, 3747 

6 

1234 

0 

AD 

PIPTIME  +1 

0349 

REF 

1 

06,3750 

1 

3652 

1 

TCF 

NBD2 

0350 

REF 

3 

LAST 

345 

06,3751 

3 3601 

0 

GCOMP Z ER  CAF 

L GCOMP 

035  l 

REF 

12 

LAST 

340 

06,3752 

56  003 

1 

XCH 

EBANK 

0352 

REF 

3 

LAST 

340 

06,3753 

54  163 

1 

TS 

MODE 

0353 

REF 

37 

LAST 

34  8 

06,3754 

3 4 746 

0 

CAF 

ZERO 

0354 

REF 

9 

LAST 

348 

Oo, 3755 

55 ' 4 77 

0 

TS 

GCOMPSW 

0355 

REF 

17 

LAST 

348 

06, 3756 

55 ' 4 7 1 

0 

TS 

GCOMP 

0356 

REF 

13 

LAST 

348 

06,3757 

5 5 ' 4 72 

0 

TS 

GCOMP  +1 

0357 

REF 

19 

LAST 

34  8 

06, 3760 

5 5 ' 4 73 

1 

TS 

GCOMP  +2 

0358 

REF 

20 

LAST 

348 

06,3761 

55 ' 474 

0 

TS 

GCOMP  +3 

0359 

REF 

21 

LAST 

348 

06,3762 

5 5 ' 4 75 

l 

TS 

GCOMP  +4 
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NBD  SCALED  (GYRO  PULSESI/(CS>  X 21-5) 
OELTAT  SCALED  (CS)  X 2(+19) 

HI (NBD) (DELTAT)  (GYRO  PULSES)  X 21+14) 
NOW  FRACTIONAL  PART 


(NBD) (DELTAT)  (GYRO  PULSES)  X 2(+l4) 

CHECK  MAGNITUDE  OF  COMPENSATION 


IF  SURFACE  FLAG  IS  SET,  SFT  TEM1 
POSITIVE  SO  THAT  THE  ACCELERATION  TERMS 
WILL  BE  COMPENSATED. 

2 SECONDS  SCALED  (CS)  X ?(+8) 


ROUTINE  TO  ZERO  GCOMP  BEFORE  FIRST 
CALL  TO  l/PIPA 
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0360 

REF 

22 

LAST 

34  8 

06,3763 

5 5 ' 476  1 

TS 

GCOMP  +5 

0361 

REF 

3 

LAST 

340 

06,3764 

1 3423  0 

TCF 

I RIG1 

RESTORE  EBANK  AND  RETURN 

F3  S3 
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QAP: 


L 

R63  USER'S  PAGE  NO.  1 EO  S3 

P001  0 
R001  1 
R0012 

SUBROUTINE  NAME:  V39CALL 

MOD  NO:  0 CATE:  9 JAN  1968 

MUD  BY:  DIGITAL  OEVEL  GROUP  LOG  SECTION:  R63 

R0013 

FUNCTIONAL  DESCRIPTION: 

R0019 
ROOl  5 

CALLED  BY  VERB  89  ENTER  DURING  POO.  PRIO  10  USED.  CALCULATES  AND 
DISPLAYS  FINAL  FDA1  BALL  ANGLES  TO  POINT  LM  +X  OR  +1  AXIS  AT  CSM. 

R0016 
ROOl  7 

1.  KEY  IN  V 89  E ONLY  IF  IN  PROG  00.  IF  NOT  IN  POO,  OPERATOR  ERROR  AND 
EXIT  R63 , OTHERWISE  CONTINUE. 

ROOl  8 
ROOl  9 

2.  IF  IN  POO,  DO  IMU  STATUS  CHECK  ROUTINE  ( R02  BOTH ) . IF  I MU  ON  AND  ITS 
ORIENTATION  KNOWN  TO  LGC , CONTINUE. 

R002  0 
R0021 
R0022 
R0023 

3.  FLASH  DISPLAY  V 04  N 06.  R2  INDICATES  WHICH  SPACECRAFT  AXIS  IS  TO 
BE  POINTED  AT  CSM.  INITIAL  CHOICE  IS  PREFERRED  l+Z>  AXIS  (R2  = l ) . 
ASTRONAUT  CAN  CHANGE  TO  (+XI  AXIS  (R2  NOT  =11  BY  V 22  E 2 E.  CONTINUE 
AFTER  KEYING  IN  PROCEED. 

R0029 

9.  BOTH  VEHICLE  S 1 ATE  VECTORS  UPCATED  BY  CONIC  EQS . 

R0025 
R0026 
R 002  7 

5.  HALF  MAGNITUDE  UNIT  LOS  VECTOR  (IN  STABLE  MEMBER  COORDINATES)  AND 
HALF  MAGNITUDF  UNIT  SPACECRAFT  AXIS  VECTOR  (IN  BODY  COORDINATES) 
PREPARED  FOR  VECPOINT. 

R0028 

R0029 

6.  GIMBAL  ANGLES  FROM  VECPOINT  TRANSFORMED  INTO  F DA  I BALL  ANGLES  BY 
BALLANGS.  FLASH  DISPLAY  V 06  N 13  AND  AWAIT  RESPONSE. 

R0030 

R0031 

R0032 

7.  RECYCLF  - RETURN  TO  STEP  9. 

TERMINATE  - EX  IT  R63. 

PROCEED  - RESET  3AXISFLG  AND  CALL  R60LFM  FOR  ATTITUDE  MANEUVER. 

R0033 

CALLING  SEQUENCE:  V 89  F . 

R0039 

R0035 

SUBROUTINES  CALLED:  CHKPOOH,  R02 BOTH , GOXDSPF,  CSMCONIC,  LEMCONIC, 

VECPOINT,  BALLANGS,  R60LEM. 

R 003  6 

NORMAL  EXIT  MOOES:  TC  ENDEXT 

R0037 
R003  8 
R0039 

ALARMS:  1.  OPERATOR  ERROR  IF  NOT  IN  POO. 

2.  PROGRAM  ALARM  IF  IMU  IS  OFF. 

3.  PROGRAM  ALARM  IF  IMU  ORIENTATION  IS  UNKNOWN. 

R0090 

OUTPUT:  NONE 

R009I 

ERASABLE  INITIALIZATION  REQUIRED:  NONE 

R0092 

DEBRIS:  0PTI0N1,  +1,  TDEC1,  POINTVSM,  SCAXIS,  CPHI , CTHETA,  CPSI, 

R0092 


GAP 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY 


L R6  3 


R0043 

3AXISFLG. 

004  A 

REF 

4 LAST  296 

E4, 1577 

0045 

32,2213 

0046 

REF 

1 

26,2000 

0047 

26,2024 

004  8 

REF 

1 

004  9 

REF 

64 

LAST 

348 

26,2024 

0 4 60  7 

1 

0050 

REF 

1 

26,2025 

33757 

1 

0051 

REF 

3 

LAST 

306 

26,2026 

3 6266 

0 

0052 

REF 

8 

LAST 

317 

26,2027 

55'050 

1 

0053 

REF 

16 

LAST 

316 

26,2030 

3 4 744 

1 

0054 

REF 

9 

LAST 

35  1 

26,2031 

55*051 

0 

005  5 

REF 

1 

26,2032 

3 2121 

1 

0056 

REF 

65 

LAST 

351 

26,2033 

0 4607 

1 

0057 

REF 

2 

LAST 

236 

26,2034 

20471 

1 

0058 

REF 

25 

LAST 

312 

26, 2035 

0 5474 

0 

005  9 

26,2036 

0 2040 

1 

0060 

26,2037 

Q 2032 

1 

0061 

REF 

13 

LAST 

335 

26,2040 

0 6060 

1 

0062 

26,2041 

43234 

0 

0063 

REF 

3 

LAST 

259 

26,2042 

21603 

1 

0063  5 

REF 

1 

26,2043 

14124 

0 

0064 

REF 

1 

26,2044 

02176 

0 

0065 

REF 

4 

LAST 

247 

26,2045 

34041 

0 

0066 

REF 

1 

26,2046 

27124 

0 

0067 

26,2047 

77775 

1 

0068 

REF 

1 

26,2050 

00001 

0 

0069 

REF 

5 

LAST 

35  I 

26,2051 

16200 

1 

0070 

REF 

2 

LAST 

35  1 

26,2052 

02176 

0 

0071 

REF 

5 

LAST 

35  1 

26,2053 

34041 

0 

0072 

REF 

1 

26,2054 

27136 

0 

0073 

26,2055 

52375 

1 

0074 

REF 

6 

LAST 

35  1 

26,2056. 

02200 

1 

0075 

REF 

2 

LAST 

35  1 

26,2057 

00001 

0 

0076 

26,2060 

47121 

0 

0077 

REF 

8 

LAST 

263 

26,2061 

01732 

0 

0077  1 

REF 

1 

26,2062 

2 1724 

0 

0078 

REF 

4 

LAST 

264 

26,2063 

03773 

1 

0079 

26,2064 

77776 

1 

0080 

REF 

10 

LAST 

35  1 

26, 2065 

4 1051 

0 

0081 

REF 

17 

LAST 

351 

26,2066 

6 4 744 

1 

0082 

26,2067 

0 CC06 

1 

0083 

REF 

1 

26,2070 

1 2115 

1 

0084 

RFF 

14 

LAST 

351 

26, 2071 

0 6060 

1 

0085 

26,2072 

77775 

1 

0086 

REF 

4 

LAST 

312 

26,2073 

06503 

1 

V 89C ALL 


V89RECL 


\ 


ALINEX 
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EBANK= 

RONE 

BANK 

32 

SETLOC 

BAWLANGS 

BANK 

COUNT  * 

$ $/R63 

TC 

BANKCALL 

IMU  STATUS  CHECK.  RETURNS  IF  ORIENTATION 

CADR 

R02B0TH 

KNOWN.  ALARMS  IF  NOT. 

CAF 

THREE 

ALLOW  ASTRONAUT  TO  SELECT  DESIRED 

TS 

optionx 

TRACKING  ATTITUDE  AXIS. 

CAF 

ONE 

TS 

OPTIONX  +1 

CAF 

VB04N12 

V 04  N 12 

TC 

BANKCALL 

CAOR 

GOFLASH 

TC 

ENDEXT 

TERMINATE 

TC 

+ 2 

PROCEED 

TC 

-5 

DATA  IN.  0PT I ONI  + 1 = 1 FOR  Z AXIS 

TC 

I NTPRET 

= 2 FOR  X AX  IS 

RT8 

DAD 

LOADTIME 

READ  PRESENT  TIME 

STORE 

DP1MIN 

TSTART82 

SAVE  TIME  FOR  LEMCONIC  CALL 

STC ALL 

TDEC1 

STORE  TIME  FOR  CSMCONIC  CALL 

CSMCONIC 

CSM  STATF  VECTOR  UPDATE 

VLOAD 

CSMCONIC  LEFT  R VECTOR  IN  RATT 

STOOL 

RATT 

RONE 

SAVE  FOR  LINE  OF  STGHT  (LOS)  COMPUTATION 

STCALL 

T START82 
TDEC  1 

STORE  TIME  FOR  LEMCONIC  CALL 

LEMCONIC 

LEM  STATE  VECTOR  UPDATE 

VLOAD 

VSU 

CSM  POSITION  - LEM  POSITION  = LOS 

RONE 

LOS  VECTOR  LEFT  IN  MPAC 

MX  V 

RATT 

RTB 

(REFSMMAT  X LOS).  TRANSFORMS  LOS  FROM 

R EFSMMAT 

REFERENCE  COORD  TO  STAB  MFMB  COORD. 

STORE 

NORMUNI T 
POINTVSM 

STORE  LOS  FOR  VECPOINT  CALL 

EXIT 

CS 

OPTIONX  +1 

1 FOR  Z AXIS.  2 FOR  X AXIS. 

AO 

ONE 

EXTEND 

BZF 

ALINEZ 

TC 

I NTPRFT 

X AXIS  ALIGNMENT 

VLOAO 

UN  I T X 

READ  (.5,  0,  0) 
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0087 

REF 

11 

LAST 

264 

26,2074 

37765 

1 

V 89CALL 1 STCALL 

SC AX  I S 

0088 

REF 

1 

26,2075 

56040 

0 

VECPOINT 

0089 

REF 

l 

26,2076 

00322 

1 

STORE 

C PH  I 

0090 

26,2077 

77776 

1 

EXIT 

00905 

REF 

66 

LAST 

351 

26,2100 

0 4607 

1 

TC 

BANKCALL 

009  1 

REF 

l 

26,2101 

54300 

0 

CADR 

BALLANGS 

0092 

REF 

1 

26,2102 

3 2122 

l 

CAF 

VB06N18 

0093 

REF 

67 

LAST 

352 

26,2103 

0 4607 

1 

TC 

BANKCALL 

0094 

REF 

3 

l AST 

351 

26,2104 

20471 

1 

CAOR 

GOFLASH 

0095 

REF 

26 

LAST 

351 

26,2105 

0 5474 

0 

TC 

ENDEXT 

0096 

26,2106 

0 2110 

0 

TC 

+ 2 

0097 

REF 

1 

26,2107 

0 2C40 

1 

TC 

V89RECL 

0098 

REF 

25 

LAST 

310 

26,2110 

0 5520 

0 

TC 

DOWNFLAG 

009  9 

REF 

2 

LAST 

240 

26,2111 

0C124 

0 

ADRES 

3 AX  I S FL  G 

0100 

REF 

68 

LAST 

352 

26,2112 

0 4607 

1 

TC 

BANKCALL 

0101 

REF 

1 

26,2113 

54  125 

0 

CADR 

R60LEM 

0102 

REF 

27 

LAST 

352 

26,2114 

l 5474 

L 

TCF 

ENDEXT 

0103 

REF 

15 

LAST 

351 

26,2115 

0 6060 

1 ALINEZ 

TC 

INTPRET 

010  4 

26,2116 

52175 

0 

VLOAD 

GOTO 

0105 

REF 

4 

LAST 

312 

26,2117 

C6477 

0 

UNITZ 

0106 

REF 

1 

26,2120 

54C74 

0 

V89CALL1 

0107 

26,2121 

01C14  0 

VB04N12 

VN 

412 

0108 

26,2122 

01422  l 

VB06N18 

VN 

0618 

« 
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STORE  SELECTED  ALIGNMENT  AXIS 

PUTS  DESIRED  GIM  ANG  IOG,IG,MG)  IN  TMPAC 

STORE  GIMBAL  ANGLES  FOR  BAILANGS  CALL. 


PUTS  DESIRED  PALL  ANGLES  IN  FDAIX,Y,Z 
V 06  N 18 

NOUN  18  REFERS  TO  FDAIX,Y,Z 

TERMINATE 

PROCEED 

RECYCLE 

RESET  3 AXIS  FLAG 
RESET  BIT6  FLAG  WORD  5 

PERFORMS  LFM  MANEUVER  TO  ALIGN  SELECTED 
SPACECRAFT  AXIS  TO  CSM. 

TERMINATE  R63 


Z AXIS  A L I GNMFNT 


READ  (0,  0 


5) 


GAP: 
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L 

01085 

01085 


R 63 
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26.2123  00000  1 DP1MIN  2DEC  6000 

26.2124  13560  0 
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L ATTITUDE  MANEUVER  ROUTINE  USFR'S  PAGE  NO.  I EO  S3 

POOOI  BLOCK  2 LGC  ATTITUDE  MANEUVER  ROUT  I NE-KAL CMANU 


R0002  MOO  2 DATE  S/I/67  BY  DON  KFENE 

R0003  PROGRAM  DESCRIPTION 

R0004  KALCMANU  IS  A ROUTINE  WHICH  GENERATES  COMMANDS  FOR  THE  LM  DAP  TO  CHANGE  THE  ATTITUDE  OF  THE  SPACECRAFT 

R0006  DURING  FREE  FALL.  IT  IS  DESIGNEO  TO  MANEUVER  THE  SPACECRAFT  FROM  ITS  INITIAL  ORIENTATION  TO  SOME  DESIRED 

ROOOb  CRIEMATION  SPECIFIED  BY  THE  PROGRAM  WHICH  CALLS  KALCMANU,  AVOIDING  GIMBAL  LOCK  IN  THE  PROCFSS.  IN  THF 

R0010  MOD  2 VFRSION,  THIS  DESIRED  ATTITUDE  IS  SPECIFIED  BY  A SET  OF  THRFF  COMMANDED  CDU  ANGLES  STORED  AS  2S  COMPLEMENT 

ROOl 2 SINGLE  PRECISION  ANGLES  IN  THE  THREE  CONSECUTIVE  LOCATIONS,  CPHI,  CTHE  T A , CPS  I , WHERE 

R0014  CPHI  = COMMANDED  OUTER  GIMBAL  ANGLE 

ROOT  5 CTHETA  = COMMANDED  INNER  GIMBAL  ANGLE 

ROOl 6 CPSI  = COMMANDED  MIOOLE  GIMBAL  A.NGLE 

ROOl  7 WHEN  POINTING  A SPACECRAFT  AXIS  (E.I.  X,  Y,  2,  THE  AOT,  THRUST  AXIS,  ETC)  THE  SUBROUTINE  VECPOINT  MAY  BE 

R0019  USED  TO  GENERATE  THIS  SET  OF  DESIRED  CDU  ANGLES  (SEE  DESCRIPTION  IN  R60) 

R0021  WITH  THIS  INFORMATICN  KALCMANU  DETERMINES  THE  DIRFCTION  OF  THE  SINGLE  EQUIVALENT  ROTATION  (COF  ALSO  U)  AND  THE 
R0023  MAGNITUDE  OF  THE  ROTATION  (AM)  TO  BRING  THE  S/C  FROM  ITS  INITIAL  ORIENTATION  TO  ITS  FINAL  ORIENTATION. 

R0025  THIS  DIRFCTION  REMAINS  FIXED  BOTH  IN  INERTIAL  COORDINATES  AND  IN  COMMANDED  S/C  AXES  THROUGHOUT  THE 

R0027 

R0028  MANEUVER.  ONCE  COF  AND  AM  HAVE  BEEN  DETERMINED,  KALCMANU  THEN  EXAMINES  THE  MANEUVER  TO  SEE  IF  IT  WILL  BRING 
R 003  0 

R0031  THE  S/C  THROUGH  GIMBAL  LOCK.  IF  SO,  COF  AND  AM  ARE  READJUSTED  SO  THAT  THE  S/C  WILL  JUST  SKIM  THE  GIMBAL 
R 003 3 LOCK  ZCNE  AND  ALIGN  THE  X-AXIS.  IN  GENERAL  A FINAL  YAW  ABOUT  X WILL  BE  NECESSARY  TO  COMPLETE  THE  MANEUVER. 

R0036  NEEDLESS  TO  SAY,  NEITHER  THE  INITIAL  NUR  THE  FINAL  ORIENTATION  CAN  BE  IN  GIMBAL  LOCK. 

R0037 

R0038  FOR  PROPER  A1TITU0E  CONTROL  THE  DIGITAL  AUTOPILOT  MUST  BE  GIVEN  AN  ATTITUDE  REFERENCE  WHICH  IT  CAN  TRACK. 

ROOAO  KALCMANU  DOES  THIS  BY  GENERATING  A REFERENCE  OF  DESIRED  GIMBAL  ANGLES  ICDUXD,  CDUYD,  COUZO)  WHICH  ARE  UPDATED 

R0042  EVERY  EM  SECOND  DURING  THE  MANEUVER.  TO  ACHIEVE  A SMOOTHER  SEQUENCE  OF  COMMANDS  BETWEEN  SUCCESSIVE  UPDATES, 

R0044  THF  PROGRAM  ALSO  GENERATES  A SET  OF  INCREMENTAL  CDU  ANGLES  I DELDCDU ) TO  BE  ADDED  TO  CDU  DESIRED  BY  THE  DIGITAL 

R0046  AUTOPILOT.  KALCMANU  ALSU  CALCULATES  THE  COMPONENT  MANEUVER  RATES  I OMEGA PD , OMEGAQD,  OMEGARD),  WHICH  CAN 
R0048 

R0049  BE  DETERMINED  SIMPLY  BY  MULTIPLYING  COF  BY  SOME  SCALAR  (ARATE)  CORRESPONDING  TO  THF  DESIRED  ROTATIONAL  RATE. 
R0051 

R0052  AUTOMATIC  MANEUVERS  ARE  TIMED  WITH  THE  HELP  OF  WAITLIST  SO  THAT  AFTER  A SPECIFIED  INTERVAL  THE  Y AND  Z 

R0054  DESIRED  RATES  ARE  SET  TO  ZERO  AND  THE  DESIRED  CDU  ANGLES  (CDUYD,  CDUZD)  ARE  SET  EQUAL  TO  THE  FINAL  DFSIRFD  CDU 
R005&  ANGLES  (CTHETA,  CPSI).  IF  ANY  YAW  REMAINS  DUE  TO  GIMBAL  LOCK  AVOIDANCE,  THE  FINAL  YAW  MANEUVER  IS 

R0058  CALCULATED  AND  THE  DESIRED  YAW  RATE  SET  TO  SOME  FIXED  VALUE  (ROLLRATE  = + OR  - 2 DEGREES  PER  SEC). 

R006''  IN  THIS  CASE  ONLY  AN  INCREMENTAL  CDUX  ANGLE  (DELFROLL)  IS  SUPPLIED  TO  THE  DAP.  AT  THE  ENO  OF  THE  YAW 

R0062  MANEUVER  OR  IN  THF  EVENT  THAT  TFERF  WAS  NO  FINAL  YAW,  CDUXO  IS  SET  EQUAL  TO  CPHI  AND  THE  X-AXIS  DESIRED 

R0064  RATE  SET  10  ZERO.  THUS,  UPON  COMPLETION  OF  THE  MANEUVER  THE  S/C  WILL  FINISH  UP  IN  A LIMIT  CYCL  F ABOUT  THE 

R0066  DESIRED  FINAL  GIMBAL  ANGLES. 


R0067  PROGRAM  LOGIC  FLOW 

RJObB  KALCMANU  IS  CALLED  AS  A HIGH  PRIORITY  JOB  WITH  ENTRY  POINTS  AT  KALCMAN3  AND  VECPOINT.  IT  FIRST  PICKS 

R0070  UP  THF  CURRENT  CDU  ANGLES  TO  BE  USED  AS  THE  BASIS  FOR  ALL  COMPUTATIONS  INVOLVING  THE  INITIAL  S/C  ORIENTATION. 


GAP: 


ASSEMBLE  REVISION  2 10  CF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


17:11  MAR.  19,1971  LEM0NAI0.156 


PAGE  355 


L 

R007  2 
R0074 
R0076 
R0078 
R0080 
R0081 
R0082 

R0083 

R0085 

R0087 

R0083 

R0090 

R0091 

R0093 

R0095 

R0096 

R0097 
R0099 
R0101 
R0103 
RO 10  5 

RO  106 
R0108 
RO  1 1 0 
RO  1 1 2 

RO  1 1 3 
RO  114 
RO  1 1 5 

R0116 
ROll  7 
ROll  9 
RO  120 

RO  12  l 
RO  12  3 
R0125 
RO  12  7 
RO  12  9 
RO  13  1 
R0133 
RO  134 
RO  136 
RO  13  8 


ATTITUDE  MANEUVER  ROUTINE  USER'S  PAGE  NO.  2 FO  S3 

IT  THEN  DETERMINES  THE  DIRECTION  COSINE  MATRICES  RELATING  BOTH  THE  INITIAL  ANO  FINAL  S/C  ORIENTATION  TO  STABLE 
* * * 

MEMBER  AXES  (MIS,  MFS ) . IT  ALSO  COMPUTES  THE  MATRIX  RELATING  FINAL  S/C  AXES  TO  INITIAL  S/C  AXES  (MFD.  THE 
ANGLE  OF  ROTATION  (AM)  IS  THEN  EXTRACTED  FROM  THIS  MATRIX,  ANO  TESTS  ARE  MADE  TO  DETERMINE  IF 

A)  AM  LESS  THAN  .25  DEGREES  (MINANG) 

P)  AM  GREATER  THAN  170  DEGREES  (MAXANG) 

IF  AM  LESS  THAN  .25  DEGREES,  NO  COMPLICATED  AUTOMATIC  MANEUVERING  IS  NECESSARY.  THEREFORE  WE  CAN  SIMPLY 
SET  C DU  DESIRFD  EQUAL  TO  THE  FINAL  CDU  DESIRED  ANGLES  AND  TERMINATE  THE  JOB. 

IF  AM  IS  GREATER  THAN  .25  DEGREES  BUT  LESS  THAN  170  DEGREES,  THE  AXES  OF  THE  SINGLE  EQUIVALENT  ROTATION 
- * 

(COF)  IS  EXTRACTED  FRCM  THE  SKEW  SYMMETRIC  COMPONENTS  OF  MFI.  * * 

IF  AM  GRFATER  THAN  170  DEGREES  AN  ALTERNATE  METHOD  EMPLOYING  THE  SYMMETRIC  PART  OF  MFI  (MFISYM)  IS  USED 

TO  DETERMINE  COF. 

THE  PROGRAM  THEN  CHECKS  TO  SEE  IF  THE  MANEUVER  AS  COMPUTFD  WILL  BRING  THE  S/C  THROUGH  GIMRAL  LOCK.  IF 
SO,  A NEW  MANEUVER  IS  CALCULATED  WHICH  WILL  JUST  SKIM  THE  GIMBAL  LOCK  ZONE  AND  ALIGN  THE  S/C  X-AXIS.  THIS 
METHOC  ASSURES  THAT  THE  ADDITIONAL  MANEUVERING  TO  AVOID  GIMBAL  LOCK  WILL  BE  KEPT  TO  A MINIMUM.  SINCE  A FINAL 
P AXIS  YAW  WILL  BE  NECESSARY,  A SWITCH  IS  RESET  (STATE  SWITCH  31)  TO  ALLOW  FOR  THE  COMPUTATION  OF  THIS  FINAL 
YAW. 


AS  STATED  PREVIOUSLY  KALCMANU  GENERATES  A SEQUENCE  OF  DESIRED  GIMBAL  ANGLES  WHICH  ARE  UPDATED  EVERY 


SECOND.  THIS  IS  ACCCMPL I SHED  BY  A SMALL  ROTATION  OF  THE  DESIRED  S/C  FRAME  ABOUT  THE  VECTOR  COF.  THE  NEW 
DESIREO  REFERENCF  MATRIX  IS  THEN, 

* * * 

MIS  = MIS  DEL 

N+l  N 

* 

WHERE  DEL  IS  THE  MATRIX  CORRESPONDING  TO  THIS  SMALL  ROTATION.  THE  NEW  CDU  ANGLFS  CAN  THEN  BE  EXTRACTED 
* 

FRCM  MIS. 


AT  THE  BEGINNING  OF  THE  MANEUVER  THE  AUTOPILOT  DESIRED  RATES  ( OMEGAPD , OMEGAQD , OMEGARD)  AND  THE 
MANEUVER  TIMINGS  ARE  ESTABLISHED.  ON  THE  FIRST  PASS  AND  ON  ALL  SUBSEQUENT  UPDATES  THE  CDU  DESIRFD 
ANGLES  ARE  LOADED  WITH  THE  APPROPRIATE  VALUES  AND  THE  INCREMENTAL  CDU  ANGLES  ARE  COMPUTED.  THE  AGC  CLOCKS 
(TIME1  AND  TIME2)  ARE  THAN  CHECKED  TO  SEE  IF  THE  MANEUVER  WILL  TERMINATE  BEFORE  THE  NEXT  UPDATE.  IF 
NOT,  KALCMANU  CALLS  FOR  ANOTHER  UPDATE  (RUN  AS  A JOB  WITH  PRIORITY  TBD)  IN  ONE  SECOND.  ANY  DELAYS  IN  THIS 
CALLING  SEQUENCE  ARE  AUTOMATICALLY  COMPENSATED  IN  CALLING  FOR  THE  NEXT  UPDATE. 


IF  IT  IS  FOUND  THAT  THE  MANEUVER  IS  TO  TERMINATE  BEFORE  THE  NEXT  UPDATE  A ROUTINE  IS  CALLED  (AS  A WAIT- 
LIST TASK)  TO  STOP  THE  MANEUVER  AT  THE  APPROPRIATE  TIME  AS  EXPLAINED  ABOVE. 


GAP: 

L 

R0139 

R0140 
R0142 
R0144 
RO  146 

R0147 
R0148 
RO  14  9 
RO  15  0 
R0151 
R0152 
R0153 

RO  154 
RO  15  6 

R0157 
RO  15  8 
RO  159 
RO  160 

RO  16  1 
RO  16  3 
RO  16  5 

RO  166 
R0168 
R 0 1 6 9 
RO  17  1 
R0173 
R0175 

R01  76 
RO  178 
RO  180 
RO  18  1 
RO  182 

RO  18  3 
R 0 1 8 5 

RO  186 
RO  18  7 
RO  18  8 
R0189 
R 0 1 9 0 
RO  19  1 
RO  19  2 


1 
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CALLING  SEQUENCE 

IN  ORDER  TO  PERFORM  A K ALCMANU  SUPERVISED  MANEUVER,  THE  COMMANDED  GIMBAL  ANGLES  MUST  8E  PRECOMPUTED  AND 
STORED  IN  LOCATIONS  CPHI  , CTHETA,  CPSI.  THE  USER:S  PROGRAM  MUST  THEN  CLEAR  STATE  SWITCH  NO  33  TO  ALLOW  THE 
ATTITUDE  MANEUVER  ROUTINE  TO  PERFORM  ANY  FINAL  P-AXIS  YAW  INCURRED  BY  AVOIDING  GIMBAL  LOCK.  THE  MANEUVER  IS 
THEN  INITIATED  BY  ESTABLISHING  THE  FOLLOWING  EXECUTIVE  JOB 


* 

CAF 

PRIO  XX 

INHINT 

TC 

F INDVAC 

2CA0R 

K ALCMAN3 

RELINT 

THE  C SER : S PROGRAM  MAY  EITHER  CONTINUE  OR  WAIT  FOR  THE  TERMINATION  OF  THE  MANEUVER.  IF  THE  USER  WISHFS  TO 
WAIT,  HE  MAY  PUT  HIS  JOB  TO  SLEEP  WITH  THE  FOLLOWING  INSTRUCTIONS 


L 

TC 

BANKCALL 

L+  1 

CADR 

ATTSTALL 

L+2 

I BAD 

RETURN) 

L + 3 

(GOOD 

RETURN) 

UPON  COMPLETION  OF  THE  MANEUVER,  THE  PROGRAM  WILL  BE  AWAKENED  AT  L+3  IF  THE  MANEUVER  WAS  COMPLETED 
SUCCESSFULLY,  OR  AT  L + 2 IF  THE  MANEUVER  WAS  ABORTED.  THIS  ABORT  WOULO  OCCUR  IF  THE  INITIAL  OR  FINAL  ATTITUDE 
WAS  IN  GIMBAL  LOCK. 

***NOTA  BENE***  IT  IS  ASSUMED  THAT  THE  DESIRED  MANEUVERING  RATE  (0.5,  2,  5,  10,  DEG/SECI  HAS  BFEN  SELECTED  BY 
KEYBOARD  ENTRY  PRIOR  TO  THE  EXECUTION  OF  KALCMANU. 

IT  IS  ALSO  ASSUMED  THAT  THE  AUTOPILOT  IS  IN  THE  AUTO  MODE.  IF  THE  MODE  SWITCH  IS  CHANGED  DURING  THE 
MANEUVER,  KALCMANU  WILL  TERMINATE  VIA  GOODEND  WITHIN  1 SECOND  SO  THAT  R60  MAY  REQUEST  A TRIM  OF  THE  S/C  ATTITUDE 
THIS  IS  THE  ONLY  MEANS  FOR  MANUALLY  TERMINATING  A KALCMANU  SUPERVISED  MAN  EUVF  R . 

SUBROUTINES 

KALCMANU  USES  A NUMBER  OF  INTERPRETIVE  SUBROUTINES  WHICH  MAY  BE  OF  GENERAL  INTEREST.  SINCE  THESE  ROUTINES 
WERE  PROGRAMMED  EXCLUSIVELY  FOR  KALCMANU,  THEY  ARE  NOT,  AS  YET,  GENERALLY  AVAILABLE  FOR  USE  BY  OTHER  PROGRAMS. 

MXM3 


THIS  SUBROUTINE  MULTIPLIES  TWO  3X3  MATRICES  AND  LEAVES  THE  RESULT  IN  THE  FIRST  18  LOCATIONS  OF  THE  PUSH 
DOWN  LIST,  I . E . , 


(M 

M 

M ) 

( 0 
( 

1 

2) 

(M 

M 

) 

M ) 

( 3 

I 

4 

5) 

(M 

M 

) 

M ) 
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RO 193  (6  7 8) 

R0194  * 

R0196  INDEX  REGISTER  XI  MUST  BE  LEADED  WITH  THE  COMPLEMENT  OF  THE  STARTING  ADDRESS  FOR  Ml,  AND  X2  MUST  BE 

RO  198  * 

RO  199  LOADED  WITH  THE  COMPLEMENT  OF  THE  STARTING  ADDRESS  FOR  M2.  THE  ROUTINE  USES  THE  FIRST  20  LOCATIONS  OF  THE  PUSH 

R0201  DOWN  LIST.  THE  FIRST  ELEMENT  OF  THE  MATRIX  APPEARS  IN  PDO.  PUSH  UP  FOR  M . 

R0203  8 

R0205 

R0206  TRANSPOS 

R0207  

R0208  THIS  ROUTINE  TRANSPOSES  A 3X3  MATRIX  AND  LEAVES  THE  RESULT  IN  THE  PUSH  DOWN  LIST,  I.E., 

R0210 

R021 L * AT 

R0212  M = Ml 

R0213  INOEX  REGISTER  XI  MUST  CONTAIN  THE  COMPLEMENT  OF  THE  STARTING  ADDRESS  FOR  Ml.  PUSH  UP  FOR  THE  FIRST  AND  SUB- 
R0215  A 

R0216  SEQUENT  COMPONENTS  OF  M.  THIS  SUBROUTINE  ALSO  USES  THE  FIRST  20  LOCATIONS  OF  THE  PUSH  DOWN  LIST. 

R021  8 

R0219  CUU  TO  DCM 

R0220  

R0221  THIS  SUBROUTINE  CONVERTS  THREE  CDU  ANGLES  IN  T(MPAC)  TO  A DIRECTION  COSINF  MATRIX  (SCALED  BY  2)  RELATING 

R0223  THE  CCRRE SPOND ING  S/C  ORIENTATIONS  TO  THE  STABLE  MEMBER  FRAME.  THE  FORMULAS  FOR  THIS  CONVERSION  ARE 
R022  5 


R0226 

M 

= 

COSY 

COSZ 

R022  7 

0 

R0228 

M 

= 

-COSY 

SINZ 

COSX 

+ SINY 

SINX 

R0229 

1 

R0230 

M 

= 

COSY 

SINZ 

S I NX 

+ S INY 

COSX 

R023  1 

2 

R0232 

M 

= 

SINZ 

R0233 

3 

R0234 

M 

= 

COSZ 

COSX 

R0235 

4 

R0236 

M 

= 

-COSZ 

SINX 

R0237 

5 

R0238 

M 

= 

-SINY 

COSZ 

R0239 

6 

R0240 

M 

= 

S1NY 

SINZ 

cosx 

+ COSY 

SINX 

R0241  7 
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R0242 

R0243 

R0244 

R0245 

R0246 

R024  7 

R0248 

R0250 


R0264 

R0266 

R0268 

R0269 

R0271 
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-SINY  SINZ  SINX 


COSY  COSX 


WHERE 


OUTER  GIM8AL  ANGLE 
INNER  GIM8AL  ANGLE 
MIDDLE  GIMBAL  ANGLE 


TEE  INTERPRETATION  OF  THIS  MATRIX  IS  AS  FOLLOWS 

IF  A , A , A REPRESENT  THE  COMPONENTS  OF  A VFCTOR  IN  S/C  AXES  THEN  THE  COMPONENTS  OF  THE  SAME  VECTOR  IN 
X Y Z 


R0251 

STABLE  MEMBER  AXES 

( B , 

e , B ) ARE 

R0252 

X 

Y Z 

R0253 

(B  ) 

(A  ) 

R0254 

( X) 

( X) 

R0255 

( ) 

( ) 

R0256 

( ) 

* I ) 

R0257 

(B  ) 

= 

M (A  ) 

R0258 

( Y) 

( Y ) 

R0259 

I ) 

I ) 

R0260 

IB  I 

(A  ) 

R0261 

( Z) 

I Z) 

R0262 

THE  SUBROUTINE 

W I LL 

STORE  THIS 

PROGRAM. 


TU  00  THIS  THE  CALLING  PROGRAM  MUST  FIRST  LOAD  X2  WITH  THE  COMPLEMENT  OF  THE  STARTING  ADDRESS  FOR  M. 


•INTERNALLY,  THE  ROUTINE  USES  THE  FIRST  16  LOCATIONS  OF  THE  PUSH  DOWN  LIST,  ALSO  STEP  REGISTER  SI  AND  INDEX 
REGISTER  X2. 


R0272 

R0273 

R0274 

R0276 

R0278 

R0280 

R0282 

R0284 


DCM  TO  COU 

* 

THIS  ROUTINE  EXTRACTS  THE  CDU  ANGLES  FROM  A DIRECTION  COSINE  MATRIX  (M  SCALED  BY  21  RELATING  S/C  AXIS  TO 

* 

STABLE  MEMBER  AXES.  XI  MUST  CONTAIN  THE  COMPLEMENT  OF  THE  STARTING  ADDRESS  FOR  M.  THE  SUBROUTINE  LEAVES  THF 
CORRESPONDING  GIMBAL  ANGLES  IN  VIMPAC)  AS  DOUBLE  PRECISION  L:S  COMPLEMENT  ANGLES  SCALED  BY  2P I . THE  FORMULAS 
FOR  THIS  CONVERSION  ARE 


R0285 

R0286 


R0287 

R0288 


R0289 

R0290 


ARCSIN  (M  ) 
3 


ARCSIN  ( — M /CCS Z) 
6 


IF  M IS  NEGATIVE,  Y IS  REPLACED  BY  PI  SGN  Y - Y 

0 
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R0291  X = ARCSIN  (-M  /CCSZ) 

R0292  5 


R0293  IF  M IS  NEGATIVE  X IS  REPLACED  BY  PI  SGN  X - X 
R0294  4 


R0295 

R0297 

R0299 


THIS  ROUTINE  DOES  NOT  SET  TEE  PUSH  DOWN  POINTER,  BUT  USES  THE  NEXT  8 LOCATIONS  OF  THE  PUSH  DOWN  LIST  AND 
RETURNS  THE  POINTER  TO  ITS  ORIGINAL  SETTING.  THIS  PROCEDURE  ALLOWS  THE  CALLER  TO  STORE  THF  MATRIX  AT  THE  TOP  OF 
THE  PL  SH  DOWN  LIST. 


R0300  CELCOMP 

R0301  


R0302  * 

R0303  THIS  ROUTINE  COMPUTES  THE  DIRECTION  COSINE  MATRIX  (DELI  RELATING  ON 

R0304 

R0306  IS  ROTATED  WITH  RESPECT  TO  THE  FIRST  BY  AN  ANGLE,  A,  ABOUT  A UNIT  VECTOR,  U.  THE  FORMULA  FOR  THIS  MATRIX  IS 
R0308 

R0309  * * — T * 


R0310 
R031  1 

DEL  = 

I COSA 

+ 

UU  ( 1— COS A I + V SINA 
X 

R0312 

WHERE  * 

( 1 

0 

0) 

R0313 

I 

= 1 0 

1 

0) 

R0314 

(0 

0 

1 ) 

R0315 

R0316 

R0317 

R0318 

R0319  — T 

R0320  UU 

R032  1 
R032? 

R0323 
R0324 
R032  5 


2 


(U 

u u 

U U ) 

( X 

l 

X Y 

X Z) 

( 

2 

I 

) 

(U  u 

U 

U U ) 

( Y X 
( 

Y 

Y Z) 

i 

( 

1 

2 1 

(U  u 

U U 

U I 

( z x 

Z Y 

Z ) 

R0326 

( 0 

-u 

U I 

R0327 

( 

z 

Y ) 

R032  8 

* 

( 

) 

R0329 

V 

= 

(U 

0 

-u  I 

R0330 

X 

( z 

X ) 

R033  1 

( 

) 

R0332 

I-U 

u 

0 ) 

R0333 

( Y 

X 

) 
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R0334 

R0335 

R0336 

u = UNIT  ROTATION  VECTOR  RESOLVED  INTO  S/C  AXES 

A = ROTATION  ANGLE 

R0337 

R033e 

* 

THE  INTERPRETATION  OF  DEL  IS  AS  FOLLOWS 

R0339 

R0341 

R0342 

R0343 

IF  A , A , A REPRESENT  THE  COMPONENT  OF  A VECTOR  IN  THE  ROTATED  FRAME,  THEN  THE  COMPONENTS  OF  THE  SAME 
X Y Z 

VECTOR  IN  THE  ORIGINAL  S/C  AXES  ( E , B , B ) ARE 

X Y Z 

R0344 

R0345 

R0346 

R0347 

R0348 

R0349 

(B  ) IA  ) 

(X)  (X) 

( ) * ( ) 
IB  ) = DEL  (A  ) 

( Y)  ( Yl 

(I  11 

R0350 
R035  1 

(B  ) (A  ) 

I Z)  l Z) 

R0352 

R0354 

THE  ROUTINE  WILL  STORE  THIS  MATRIX  (SCALED  UNITY)  IN  SEQUENTIAL  LOCATIONS  OF  FRASARIE  MEMORY  BFGINNING  WITH 

R0356 

R0358 

R0360 

THF  LOCATION  CALLtC  DEL.  IN  ORDER  TO  USE  THE  ROUTINE,  THE  CALLING  PROGRAM  MUST  FIRST  STORE  U (A  HALF  UNIT 

DOUBLE  PRECISION  VECTOR)  IN  THE  SET  OF  ERASABLE  LOCATIONS  BEGINNING  WITH  THE  ADDRESS  CALLED  COF.  THE  ANGLE,  A, 
MUST  THEN  BE  LOADED  INTO  DIMPAC). 

R0361 

R0363 

INTERNALLY,  THE  PROGRAM  ALSO  USES  THE  FIRST  10  LOCATIONS  OF  THE  PUSH  DOWN  LIST. 

R0364 

R0365 

READCDUK 

R0366 

R0368 

IHIS  BASIC  LANGUAGE  SUBROUTINE  LOADS  TIMPAC)  WITH  THE  THREE  CDU  ANGLES. 

R0369 

R0370 

SIGNMPAC 

R0371 

R0373 

THIS  IS  A BASIC  LANGUAGE  SUBROUTINE  WHICH  LIMITS  THE  MAGNITUDE  OF  DIMPAC)  TO  + OR  - DPOSMAX  ON  OVERFLOW. 

R0374 

PROGRAM  STORAGE  ALLOCATION 

R0375 

R0376 

R0377 

1)  FIXED  MEMORY  1059  WORDS 

21  ERASABLE  MEMORY  98 

3)  STATE  SWITCHES  3 
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R0379 

JOB  PRIORITIES 

R0380 

1)  KALCMANU 

TBD 

R0381 

21  ONE 

SECONO  UPDATE 

T8D 

R0382 

SUMMARY  OF  STATE  SWITCHES 

AND 

FLAGWORDS 

USED  BY  KALCMANU. 

R0383 

STATE 

FLAGWRD  2 

SETTING 

MEANING 

R0384 

SWITCH  NO. 

BIT  NO. 

R0385 

* 

R0386 

31 

14 

0 

MANEUVER  WENT  THROUGH  GIMBAL 

LOCK 

R0388 

1 

MANEUVER  DID  NOT  GO  THROUGH 

GIMBAL  LOCK 

R0390 

R0391 

♦ 

R039  2 

32 

13 

0 

CONTINUE  UPDATE  PROCESS 

R0393 

1 

START  UPDATE  PROCESS 

R039A 

33 

12 

0 

PERFORM  FINAL  P-AXIS  YAW  IF 

REQUIRED 

R0396 

1 

IGNORE  ANY  FINAL  P-AXIS  YAW 

R0398 

R0399 

34 

1 1 

0 

SIGNAL  END  OF  KALCMANU 

R0400 

1 

KALCMANU  IN  PROCESS  USER  MUST  SET 

R0402 

* INTERNAL 

TO  KALCMANU 

R0403 

SUGGESTIONS  ECk 

PROGRAM  INTEGRATION 

R0404 

TEE  FOLLOWING  VARIABLES  SHOULD 

BE  ASSIGNED  TO  UNSWITCH  ERASABLF 

R0405 

CPHI 

R04O6 

CTHETA 

R040  7 

CPSI 

R040  8 

POINTVSM 

+ 5 

ROA09 

SCAXIS 

+ 5 

R0A10 

DELDCDU 

R041 1 

DELDCOUl 

R0A12 

DEL0C0U2 

R041  i 

RATE  INDX 

R0A14 

TEE  FOLLOWING  SUBROUTINES 

MAY 

BE  PUT  IN 

A DIFFERENT  BANK 

R0415 

MXM3 
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R0416 

TRANSPOS 

R0417 

S IGNMPAC 

R0418 

READCOUK 

R0419 

CDUTOOCM 
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042  0 

15,2162 

BANK 

15 

0421 

REF 

1 

22,2000 

SETLOC 

KALCM0N1 

042  2 

22,2004 

BANK 

042  3 

REF 

3 

LAST 

298 

E6, 1675 

EB ANK= 

BCDU 

R0424 

THE 

THREE  DESIRED  i 

CDU  ANGLES 

MUST  BE 

STORED  AS 

SINGLE  PRECISION  T 

R0426 

LOCATIONS,  CPH I , CTHETA , CPSI 

• 

042  7 

REF 

1 

COUNT  * 

$ 1/K ALC 

042  8 

REF 

16 

LAST 

352 

22,2004 

0 6060 

1 

K ALCMAN3  TC 

INTPRET 

)4? 

22,2005 

77634 

0 

RTB 

043  0 

REF 

l 

22,2006 

44403 

0 

R EADCDUK 

0431 

REF 

4 

LAST 

363 

22,2007 

03276 

1 

STORE 

BCDU 

043  7 

22,2010 

51535 

0 

SLOAD 

ABS 

0438 

REF 

1 

22,2011 

0C324 

1 

CPSI 

0439 

22,2012 

51025 

1 

DSU 

B PL 

0440 

REF 

1 

22,2013 

04403 

1 

LOCKANGL 

0441 

REF 

1 

22 , 2014 

44724 

0 

T008ADF 

044  2 

22,2015 

72364 

0 

AXC  ,2 

T LOAD 

044  3 

REF 

4 

LAST 

141 

22,2016 

03245 

1 

MIS 

044  4 

REF 

5 

LAST 

363 

22,2017 

03276 

1 

BCDU 

044  5 

22,2020 

77624 

1 

CALL 

0446 

REF 

1 

22,2021 

444  10 

1 

CDUTODCM 

044  7 

22,2022 

72364 

0 

AXC  ,2 

T LOAD 

044  8 

REF 

3 

LAST 

12  1 

22,2023 

02221 

1 

MFS 

044  9 

REF 

2 

LAST 

352 

22,2024 

00322 

1 

C PH  I 

0450 

22, 2025 

77624 

1 

CALL 

0451 

REF 

2 

LAST 

363 

22,2026 

44410 

1 

CDUTODCM 

0452 

22,2027 

45  160 

1 

SECAD 

AXC  , 1 

CALL 

0453 

REF 

5 

LAST 

363 

22,2030 

03245 

1 

MIS 

0454 

REF 

1 

22,2031 

44326 

0 

TRANSPOS 

0455 

22,2032 

45575 

1 

VLOAD 

STADR 

0456 

REF 

7 

LAST 

140 

22,2033 

50460 

0 

STOVL 

TMIS  +1 2D 

045  7 

22,2034 

77626 

0 

STADR 

0458 

REF 

8 

LAST 

363 

22,2035 

5C466 

0 

STOVL 

TMIS  +6 

045  9 

22,2036 

77626 

0 

STADR 

0460 

REF 

9 

LAST 

363 

22,2037 

74  4 74 

0 

STORE 

TMIS 

046  1 

22,2040 

75  160 

1 

AXC,  1 

AXC,  2 

0462 

REF 

10 

LAST 

363 

22,2041 

03302 

0 

TMIS 

0463 

REF 

4 

LAST 

363 

22,2042 

02221 

1 

MFS 

0464 

22,2043 

77624 

1 

CALL 

046  5 

REF 

1 

22,2044 

44312 

1 

MXM3 

046  6 

22,2045 

45575 

1 

VLOAD 

STADR 

046  7 

REF 

1 

22,2046 

51541 

0 

STOVL 

MFI  +12D 

0468 

22,2047 

77626 

0 

STADR 

0469 

REF 

2 

LAST 

363 

22,2050 

51547 

0 

STOVL 

MFI  +6 

0470 

22,2051 

77626 

0 

STAOR 

0471 

REF 

3 

LAST 

363 

22,2052 

75555 

0 

STORE 

MFI 

047  2 

22 , 2053 

45001 

1 

SET  PD 

CALL 
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COMPLEMENT  ANGLES  IN  THE  THREE  SUCCESSIVE 


PICK  UP  THE  CURRENT  CDU  ANGLES  AND 
COMPUTE  THE  MATRIX  FROM  INITIAL  S/C 
AXES  TO  FINAL  S/C  AXES 
STORF  INITIAL  S/C  ANGLES 
CHECK  THE  MAGNITUDE  OF  THE  DESIRED 
MIDDLE  GIMBAL  ANGLF 

IF  GREATER  THAN  70  DEG  ABORT  MANEUVER 


COMPUTE  THE  TRANSFORMATION  FROM  INITIAL 
S/C  AXES  TO  STABLE  MEMBER  AXES 

PREPARE  TO  CALCULATE  ARRAY  MFS 


MIS  ANO  MFS  ARRAYS  CALCULATED  «2 


TM  IS  = TRANSPOSEIMIS)  SCALED  BY  2 


MFI  = TM  I S MFS  (SCALED  BY  4) 
TRANSPOSE  MFI  IN  PD  LIST 


GAP:  ASSEMBLE  REVISION  210  OF  ACC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L ATTITUDE  MANEUVER  ROUTINE 


0473 

22,2054 

00C23 

0 

18D 

0474 

REF 

1 

22,2055 

44335 

1 

TRNSPSPD 

0475 

22,2056 

45575 

1 

VLOAO 

STADR 

0476 

REF 

1 

2 2,2057 

50460 

0 

STOVL 

TMFI  +1 2D 

0477 

22,2060 

77626 

0 

STADR 

0478 

REF 

2 

LAST 

364 

22,2061 

5C466 

0 

STOVL 

TMFI  +6 

0479 

22,2062 

77626 

0 

STADR 

0480 

REF 

3 

LAST 

364 

22,2063 

744  74 

0 

STORE 

TMFI 

R048  l 

R0482 

CALCULATE 

: COFSKEW  AND  MFISYM 

R0483 

0484 

22,2064 

45345 

1 

DLOAD 

DSU 

0485 

REF 

4 

LAST 

364 

22,2065 

03305 

1 

TMFI  +2 

0486 

REF 

4 

LAST 

363 

22,2066 

02224 

1 

MF!  +2 

048  7 

22, 2067 

45325 

1 

PDDL 

DSU 

0488 

REF 

5 

LAST 

364 

22,2070 

02226 

0 

MFI  +4 

0489 

REF 

5 

LAST 

364 

22,2071 

03307 

0 

TMFI  +4 

0490 

22,2072 

45325 

l 

PDDL 

DSU 

0491 

REF 

6 

LAST 

364 

22,2073. 

03315 

0 

TMFI  +100 

049  2 

REF 

6 

LAST 

364 

22, 2074 

02234 

0 

MFI  +10D 

049  3 

22,2075 

77666 

1 

VDEF 

0494 

REF 

4 

LAST 

140 

22,2076 

03325 

0 

STORE 

COFSKFW 

R0495 

R0496 

CALCU1 ATF 

AM  AND  PROCEED  ACCORDING  TO 

ITS  MAGNITUDE 

R049  7 

049  8 

22,2077 

43345 

1 

DLOAD 

DAD 

0499 

REF 

7 

L AST 

364 

22,2100 

02222 

1 

MFI 

0500 

REF 

8 

LAST 

364 

22, 210  l 

02242 

1 

MFI  +16D 

0501 

22,2102 

43225 

0 

DSU 

DAO 

0502 

REF 

2 

LAST 

38 

22,2103 

06475 

1 

DPI /4TH 

0503 

REF 

9 

LAST 

364 

22, 2104 

02232 

0 

MFI  +80 

0504 

REF 

2 

LAST 

140 

22,2105 

03333 

1 

STORE 

CAM 

050  5 

22,2106 

77726 

l 

ARCCOS 

0506 

REF 

l 

22,2107 

03335 

i 

STORE 

AM 

0507 

22,2110 

51025 

1 

DSU 

BPL 

0508 

REF 

1 

22, 211  L 

04  363 

0 

M I NANG 

0509 

REF 

l 

22,2112 

44  117 

0 

CHECKMAX 

0510 

22,2113 

7/751 

1 

TLOAO 

051  1 

REF 

3 

LAST 

363 

22,2114 

0C322 

l 

C PH  I 

0512 

REF 

9 

LAST 

208 

22,2115 

37235 

l 

STC ALL 

CDUXD 

0513 

REF 

1 

22,2116 

44  742 

0 

TOOBADI 

0514 

22,2117 

45345 

1 

CHECKMAX  DLOAD 

DSU 

0515 

REF 

2 

LAST 

364 

22,2120 

03335 

1 

AM 

0516 

REF 

1 

22,2121 

04365 

0 

MAXANG 

0517 

22,2122 

77244 

0 

BPL 

VLOAO 

0518 

REF 

l 

22,2123 

44131 

1 

ALTCALC 

0519 

REF 

5 

LAST 

364 

22,2124 

03325 

0 

COFSKEW 

0520 

22,2125 

77656 

1 

UNIT 

0521 

REF 

1 

22,2126 

03270 

l 

STORE 

COF 

17:11  MAR.  19,1971  LFM0NAID.156  PAGE 
USER' S PAGE  NO.  11  E6  S3 


TMF I = TRANSPOSE  (MFI)  SCALED  BY  A 


CALCULATE  COF  SCALED  BY  2/SINUM) 


EQUALS  MEISKEW 


CAM  = (MFI0+MFI4+MF 18-1 1/2  HALF  SCALE 
AM=ARCCOS( CAM ) (AM  SCALED  BY  2) 


MANEUVER  LESS  THAN  .25  DFGREFS 
GO  OIRFCTLY  INTO  ATTITUDE  HOLD 
ABOUT  COMMANDED  ANGLES 
STOP  RATE  AND  EXIT 


UNIT 

COFSKEW 


COF  IS  THF  MANEUVER  AXIS 


GAP : 


ASSEMBLE  REVISION  210'OF  A C-C  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L ATTITUOt  MANEUVER  ROUTINE 


0522 

22,2127 

77650 

1 

GOTO 

0523 

REF 

l 

22,2130 

44744 

0 

LOCSKIRT 

0524 

22,2131 

53375 

0 

ALTCALC 

VLOAD 

VAD 

0525 

REF 

10 

LAST 

364 

22,2132 

02222 

1 

MFI 

0526 

REF 

7 

LAST 

364 

22,2133 

03303 

1 

TMF I 

052  7 

22,2134 

77762 

1 

VSR  1 

052  0 

REF 

1 

22,2135 

27303 

l 

STOVL 

MFI  SYM 

0529 

REF 

1 1 

LAST 

365 

22,2136 

02230 

1 

MFI  +6 

0530 

22,2137 

74455 

0 

VAD 

V SR  1 

0531 

REF 

8 

LAST 

365 

22,2140 

03  3 1 L 

1 

TMF I +6 

0532 

REF 

2 

LAST 

365 

22,2  141 

2731  1 

1 

STOVL 

ME  I SYM  +6 

053  3 

REF 

12 

LAST 

365 

22,2142 

02236 

1 

MFI  +12D 

0534 

22, 2143 

74455 

0 

VAD 

V SR  1 

0535 

REF 

9 

LAST 

365 

22,2144 

03317 

1 

TMFI  +12D 

0536 

REF 

3 

LAST 

365 

22,2145 

03317 

1 

STORE 

MF I SYM  +12D 

R0537 

R0530 

R0539 

CALCULATE 

: COF 

R0540 

054  l 

22,2146 

7C545 

1 

DLOAD 

SRI 

0542 

REF 

3 

LAST 

364 

22,2147 

03333 

l 

CAM 

0543 

22, 2150 

45325 

1 

PDDL 

DSU 

0544 

REF 

1 

22,2151 

06503 

1 

DP HALF 

0545 

REF 

4 

LAST 

365 

22,2152 

03333 

1 

CAM 

0546 

22,2153 

65204 

1 

BO  V B 

PDDL 

0547 

REF 

L 

22,2154 

31765 

1 

S IGNMPAC 

0 54  0 

REF 

4 

LAST 

365 

22,2155 

03323 

0 

MF  I SYM  t-160 

0549 

22,2156 

56225 

1 

DSU 

DDV 

0550 

22,2157 

CCC01 

0 

0 

0551 

22,2160 

00003 

1 

2 

055  2 

22, 2161 

65366 

1 

SORT 

PDDL 

0553 

REF 

5 

LAST 

365 

22,2162 

03313 

0 

MFISYM  +8D 

0554 

22,2163 

56225 

1 

DSU 

DDV 

0555 

22,2164 

00001 

0 

0 

0556 

22,2165. 

00003 

1 

2 

0557 

22, 2166 

65366 

1 

SORT 

PDDL 

0558 

REF 

6 

LAST 

365 

22,2167 

03303 

1 

MFISYM 

055  9 

22,2170 

56225 

1 

DSU 

DDV 

0560 

22,2171 

OCOOl 

0 

0 

056  l 

22,2172 

00003 

1 

2 

0562 

22,2173 

55566 

1 

SORT 

VDEF 

0563 

22,2174 

77656 

l 

UNI  T 

0564 

REF 

2 

LAST 

364 

22,2175 

03270 

1 

STORE 

COF 

R0565 

R0  56  6 

DETERMINE 

LARGEST 

COF  AND  ADJUST  ACCORDINGLY 

R0567 

056  8 

22,2176 

45345 

1 

COFMAXGO 

DLOAD 

DSU 

0569 

REF 

3 

LAST 

365 

22,2177 

03270 

1 

COF 

0570 

REF 

4 

LAST 

365 

22,2200 

03272 

0 

COF  +2 

0571 

22,2201 

71240 

1 

BMN 

DLOAD 

17:11  MAR.  19,1971  LEMONAID.156  PAGE  365 
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SEE  IF  MANEUVER  GnES  THRU  GIMBAL  LOCK 
IF  AM  GREATER  THAN  170  DEGREES 


MFISYM=(MFI+TMFI )/2  SCALED  BY  4 


PDO  CAM 

$4 

PD2  1 - CAM 

$2 

COFZ  = SORT(MFISYMB-CAM)/ 1-CAM) 

S 

ROOT  2 

COFY  = SORT (MFISYM4-CAM)/ ( 1-CAM) 

SR00T2 

COFX  = SORT(MFTSYM-CAM)/( 1-CAM) 

tROOT  2 

COFY  G COF X 


GAP: 

L 

0572 

0573 

0574 

0575 

0576 

0577 

0570 

0579 

0580 

0581 

0582 

0583 

0584 

0585 

0586 

0587 

0588 

0589 

0590 

0591 

0592 

0593 

0594 

0595 

0596 

0597 

0598 

0599 

0600 

0601 

0602 

0603 

0604 

0605 

0606 

0607 

0608 

0609 

0610 

061  1 

0612 

0613 

061  4 

0615 

0616 

061  7 

0618 

0619 

0620 


ASSEMBLE  REVISI  IN  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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a 


ATTITUCE  MANEUVER  ROUTINE 


REF 

1 

22,2202 

44211 

0 

C0MP12 

REF 

5 

LAST 

365 

22,2203 

03270 

1 

COF 

22,2204 

50025 

0 

nsu 

BMN 

REF 

6 

LAST 

366 

22,2205 

03274 

0 

COF  +4 

REF 

1 

22,2206 

44  266 

0 

METH0D3 

22,2207 

77650 

1 

GOTO 

REF 

1 

22,2210 

44242 

0 

METHODl 

22,2211 

45345 

l 

COMP  12 

DLOAD 

DSU 

REF 

7 

LAST 

366 

22,2212 

03272 

0 

COF  +2 

REF 

8 

LAST 

366 

22,2213 

03274 

0 

COF  +4 

22,2214 

77640 

0 

BMN 

REF 

2 

LAST 

366 

22,2215 

44266 

0 

METH0D3 

22, 2216 

51145 

0 

METH0D2 

DLOAD 

BPL 

REE 

6 

LAST 

364 

22,2217 

03327 

1 

COFSKEW  +2 

REF 

1 

22,2220 

44224 

0 

U2P0S 

22,2221 

57575 

l 

VLOAD 

V COMP 

REF 

9 

LAST 

366 

22,2222 

03270 

1 

COF 

REF 

10 

LAST 

366 

22,2223 

03270 

1 

STORE 

COF 

22,2224 

51145 

0 

U2P0S 

DLOAD 

BPL 

REF 

7 

LAST 

365 

22,2225 

03305 

1 

MFISYM  +2 

REF 

1 

22, 2226 

44232 

1 

0KU21 

22,2227 

57545 

1 

DLOAD 

DCOMP 

REF 

1 1 

LAST 

366 

22,2230 

03  2 70 

1 

COF 

REF 

12 

LAST 

366 

22,2231 

03270 

1 

STORE 

COF 

22,2232 

51145 

0 

0KU21 

DLOAD 

BPL 

REF 

8 

LAST 

366 

22,2233 

03315 

0 

MFISYM  + l OD 

REF 

2 

LAST 

365 

22,2234 

44  744 

0 

LOCSKIRT 

22,2235 

57545 

1 

DLOAD 

DCOMP 

REF 

13 

LAST 

366 

22,2236 

03  2 74 

0 

COF  +4 

REF 

14 

LAST 

366 

22,2237 

03274 

0 

STORE 

COF  +4 

22,2240 

77650 

1 

GOTO 

REF 

3 

LAST 

366 

22,224  1 

44744 

0 

LOCSKIRT 

22,2242 

5114b 

0 

METH0C1 

DLOAD 

BPL 

REF 

7 

LAST 

366 

22,2243 

03325 

0 

COFSKEW 

RFF 

1 

22,2244 

44250 

0 

U1P0S 

22,2245 

57575 

1 

VLOAD 

V COMP 

REF 

15 

LAST 

366 

22,2246 

03270 

1 

COF 

REF 

16 

LAST 

366 

22,2247 

03270 

1 

STORE 

COF 

22,2250 

5 1 145 

0 

U1P0S 

DLOAD 

BPL 

REF 

9 

LAST 

366 

22,2251 

03305 

1 

MFISYM  +2 

REF 

1 

22,2252 

4 4 2 b 6 

0 

OKU  12 

22,2253 

57545 

1 

DLOAD 

DCOMP 

REF 

17 

LAST 

366 

22,2254 

C 3 2 72 

0 

COF  +2 

REF 

18 

LAST 

366 

22,2255 

03272 

0 

STORE 

COF  +2 

22,2256 

51145 

0 

0KU12 

DLOAD 

BPL 

REF 

10 

LAST 

366 

22,2257 

03307 

0 

MFISYM  +4 

REF 

4 

LAST 

366 

22,2260 

44  744 

0 

LOCSKIRT 

22,2261 

57545 

1 

DLOAD 

DCOMP 

REF 

19 

LAST 

366 

22,2262 

03274 

0 

COF  +4 

USER'S  PAGE  NO.  13  E6  S3 

COFZ  G COF X OR  COFY 

COFX  G COFY  OR  CPFZ 

COFZ  G COFY  OP  COFX 

COFY  MAX 
UY 

UX  UY 

SIGN  OF  UX  OPPOSITE  TO  UY 
UY  UZ 

SIGN  OF  UZ  OPPOSITE  TO  UY 

COFX  MAX 
UX 

UX  UY 

SIGN  OF  UY  OPPOSITE  TO  UX 
UX  UZ 

SIGN  OF  UZ  OPPOSITE  TO  UY 


GAP:  ASSESS  Lfc  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 

L ATTITUDE  MANEUVER  ROUTINE 


0621 

REF 

20 

LAST 

366 

22 ,2263 

03274 

0 

STORE 

COF  +4 

0622 

22,2264 

77650 

1 

GOTO 

0623 

REF 

5 

LAST 

366 

22,2265 

44  744 

0 

LOCSKIRT 

0624 

22,2266 

51145 

0 

METH0D3 

DLOAD 

B PL 

062  5 

REF 

8 

LAST 

366 

22,2267 

03331 

0 

COFSKEW  +4 

0626 

REF 

1 

22,2270 

44  2 74 

0 

U3P0S 

062  7 

22,2271 

57575 

1 

VLOAD 

VCOMP 

0628 

REF 

21 

LAST 

367 

22,2272 

03270 

1 

COF 

062  9 

REF 

22 

LAST 

367 

22,2273 

03270 

1 

STORE 

COF 

0630 

22,2274 

51145 

0 

U3P0S 

DLOAD 

B PL 

063  1 

REF 

11 

LAST 

366 

22,2275 

03307 

0 

MFISYM  +4 

0632 

REF 

1 

22,2276 

44302 

0 

0 KU3  1 

0633 

22,2277 

57545 

1 

DLOAD 

DCOMP 

0634 

REF 

23 

LAST 

367 

22,2300 

C3270 

1 

COF 

063  5 

REF 

24 

LAST 

367 

22,2301 

03270 

1 

STORE 

COF 

063  6 

22,2302 

51145 

0 

0KU31 

DLOAD 

BPL 

063  7 

REF 

12 

LAST 

367 

22,2303 

0 7 315 

0 

MFISYM  +10D 

063  8 

REF 

6 

LAST 

367 

22,2304 

44744 

0 

LOCSK IRT 

0639 

22,2305 

57545 

1 

DLOAD 

DCOMP 

0640 

REF 

25 

LAST 

367 

22,2306 

03272 

0 

COF  +2 

064  1 

REF 

26 

LAST 

367 

22,2307 

03272 

0 

STORE 

COF  +2 

0642 

22,2310 

77650 

1 

GOTO 

0643 

REF 

7 

LAST 

367 

22,2311 

.44744 

0 

LOCSKIRT 

17:11  MAR . 19, 1971 
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LEMONAID. 156 
NO.  16 
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367 


COFZ  MAX 
UZ 


UX  UZ 

SIGN  OF  UX  OPPOSITE  TO  UZ 
UY  UZ 

SIGN  OF  UY  OPPOSITE  TO  UZ 


GAP:  ASSEMBLE  REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY  NASA  20 2 1 1 12- 1 61 

L ATTITUDE  MANEUVER  ROUTINE 


R0644  MATRIX  OPERATIONS 


0646 

13,2207 

BANK 

13 

0646 

REF 

l 

22,2000 

SETLOC 

KALCMDN2 

064  7 

22,2312 

BANK 

0648 

REF 

6 LAST  363 

E6, 1675 

E BANK= 

BCDU 

064  9 

22,2312 

76601 

1 MXM3 

SETPD 

V LOAD# 

0650 

22,2313 

00001 

0 

0 

0651 

22,2314 

OCCOl 

0 

0,1 

0652 

22,2315 

62703 

1 

VXM* 

PDVL  * 

0653 

22,2316 

7 1 1 76 

1 

0,2 

0654 

22,2317 

00007 

0 

6,1 

0655 

22,2320 

62703 

1 

VXM* 

PDVL* 

0656 

22,2321 

77776 

1 

0,2 

0657 

22,2322 

00015 

0 

1 2D,  1 

065  B 

22,2323 

4.1503 

1 

VXM* 

PUSH 

0659 

22,2324 

77776 

1 

0,2 

066  0 

22,2325 

77616 

0 

RVO 

R0661  RETURN  WITH  M1XM2  IN  PD  LIST 

R0662 


0663 

22,2326 

76601 

1 

TRANSPOS 

SETPD 

V LOAD* 

0664 

22,2327 

00001 

0 

0 

0665 

22,2330 

OCCOl 

0 

0,1 

0666 

22,2331 

62713 

0 

PDVL* 

PDVL* 

066  7 

22, 2332 

00C07 

0 

6,1 

066  B 

22,2333 

00015 

0 

1 2D , 1 

066  9 

22,2334 

77606 

1 

PUSH 

0670 

22,2335 

77776 

1 

TRNSPSPD 

EXIT 

0671 

REF 

9 

LAST 

310 

22,2336 

50 

120 

1 

INDEX 

F IXLOC 

0672 

22,2337 

52 

C 1 3 

1 

DXCH 

12 

0673 

REF 

10 

LAST 

368 

22,2340 

50 

120 

1 

INDEX 

F IXLOC 

0674 

22,2341 

52 

C 1 7 

0 

DXCH 

16 

0675 

REF 

11 

LAST 

368 

22,2342 

50 

120 

1 

INDEX 

F IXLOC 

0676 

22,2343 

52 

013 

1 

DXCH 

12 

067  7 

REF 

12 

LAST 

368 

22,2344 

50 

120 

1 

INDEX 

F IXLOC 

0678 

22,2345 

52 

015 

1 

DXCH 

14 

0679 

REF 

13 

LAST 

36  8 

22,2346 

50 

120 

1 

INDEX 

F IXLOC 

0680 

22,2347 

52 

005 

0 

DXCH 

4 

0681 

REF 

14 

LAST 

36  8 

22,2350 

50 

120 

1 

INDEX 

F IXLOC 

0682 

22,2351 

52 

015 

l 

DXCH 

14 

0o83 

REF 

15 

LAST 

368 

22,2352 

5C 

120 

1 

INDEX 

F IXLOC 

0684 

22,2353 

52 

003 

0 

DXCH 

2 

0685 

REF 

16 

LAST 

368 

22,2354 

50 

120 

1 

INDEX 

F IXLOC 

0686 

22,2355 

52 

007 

1 

DXCH 

6 

0687 

REF 

17 

LAST 

368 

22,2356 

50 

120 

1 

INDEX 

F IXLOC 

0688 

22,2357 

52 

C03 

0 

DXCH 

2 
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MX  M3  MULTIPLIES  2 3X3  MATRICFS 
AND  LEAVES  RESULT  IN  PD  LIST 
AND  M P AC 


TRANSPOS  TRANSPOSES  A 3X3  MATRIX 
AND  LEAVES  RESULT  IN  PD  LIST 
MATRIX  ADDRESS  IN  XR1 


MATRIX  IN  PD 

ENTER  WITH  MATRIX  AT  0 IN  PD  LIST 


GAP: 

L 

0689 

0690 

0691 

0692 

0693 

0694 

0695 

0695 

0696 

0696 

R 069  7 

R0698 

R0699 

0700 

0700 

0701 

070  1 

0702 

0702 

0703 

0703 

0704 

0704 

0705 

0705 

0706 

R0707 

0708 

0709 

0710 

071  1 

0712 

0713 

0714 

0715 

0716 

0717 

0718 

0719 

0720 

0721 

0722 
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REF 

17 

LAST 

363 

22,2360 

0 6C60 

1 

TC 

I NTPRET 

22,2361 

77616 

0 

RVQ 

15,2162 

BANK 

15 

REF 

2 

LAST 

363 

22,2000 

SETLOC 

KALCM0N1 

22,2362 

BANK 

REF 

7 

LAST 

368 

E6 , 1675 

EBANK= 

BCDU 

22,2362 

00013 

0 

MINANG 

2DEC 

0.00069375 

22,2363 

13563 

0 

22,2364 

17070 

0 

MAXANG 

2DEC 

0 .472222222 

22,2365 

34343 

1 

GIMBAL  LOCK 

CONSTANTS 

D = 

MGA 

C ORRFS PON C I NG  TO  GIMBAL  LOCK 

- 

60  OEGREES 

NGL  = 

BUFFER  ANGLE 

(TO  AVOID  DIVISIONS 

BY  ZERO 

) = 2 DEGREES 

22, 2366 

15666 

0 

SO 

2DEC 

.433015 

= SIN(D) 

$2 

22,2367 

2C443 

0 

22,2370 

33555 

1 

K3S1 

2DEC 

. 86603 

= SIN(D) 

$1 

22,2371 

01  106 

1 

22,2372 

67777 

1 

K 4 

2DEC 

- .25 

= -CO  SID) 

$2 

22,2373 

77777 

0 

22,2374 

C4C00 

0 

K4SQ 

2DEC 

. 125 

= COSID)COS(D) 

$2 

22,2375 

COOOO 

1 

22,2376 

00216 

1 

S NGL CD 

2DEC 

.008725 

= SI N ( NGL ) COS ( D ) 

$2 

22,2377 

36323 

0 

22,2400 

17773 

1 

CNGL 

2DEC 

.499695 

COS (NGL) 

$2 

22,2401 

00057 

0 

22,2402 

14344 

1 

LOCKANGL 

DEC 

.388889 

= 70  DEGREES 

INTERPRETIVE  SUBROUTINE  TO  READ  TFE  CDU 

ANGLES 

REF 

9 

LAST 

269 

22,2403 

3 0034 

0 

READCDUK 

CA 

CDUZ 

LOAD  T (MPAC)  WITH  CDU  ANGLES 

REF 

67 

LAST 

348 

22,2404 

54  156 

1 

TS 

MPAC  +2 

22,2405 

0 0006 

1 

EXTEND 

REF 

9 

LAST 

317 

22, 240.6 

3 0033 

1 

OCA 

CDUX 

AND  CHANGE  MODE  TO  TRIPLE  PRECISION 

REF 

1 

22,2407 

1 6517 

0 

TC  F 

T LOAD  +6 

22,2410 

66370 

0 

C CUT  ODCM 

AXT  , 1 

SSP 

22,2411 

0C003 

l 

OCT 

3 

REF 

1 22,2412 

00051 

0 

S 1 

22,2413 

00001 

0 

OCT 

1 

SET  X R 1 , SI,  AND  PD  FOR  LOOP 

22,2414 

00010 

0 

STORE 

7 

22,2415 

77601 

0 

SFTPD 

22,2416 

00001 

0 

0 

22,2417 

47133 

0 

LOOP  SIN 

SLOAD* 

RTB 

22,2420 

00013 

0 

i on , l 

REF 

9 LAST  336  22,2421 

21606 

1 

CDULOGIC 

GAP: 

L 

0723 

072  A 

0 72  5 

0 72  6 

0727 

0728 

0729 

0 73  0 

0 731 

0732 

0733 

i / , 

0735 

0736 

0737 

0738 

0739 

0740 

0 74  1 

0742 

0743 

0 744 

0 74  5 

0 74  f 

0 74  7 

0748 

0749 

0750 

075  l 

0752 

0753 

0754 

0 75  5 

0756 

0757 

0758 

0759 

0760 

076  1 

0762 

0 76  3 

0764 

0 76  5 

0766 

0 76  7 

0768 

0 769 

0770 

0771 

0772 
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22,2422 

00013  0 

STORE 

10D 

22,2423 

65356  1 

SIN 

PDDL 

22,2424 

COO  13  0 

10D 

22,2425 

41546  0 

COS 

PUSH 

22,2426 

71300  1 

TI  X,  1 

DLOAD 

22,2427 

44417  0 

LOOPS  IN 

22,2430 

00007  0 

6 

22,2431 

72405  0 

DMP 

SL1 

22,2432 

00013  0 

10D 

22,2433 

10001  1 

STORE 

0,2 

22,2434 

41345  0 

DLOAD 

DMP 

22, 2435 

C0005  1 

4 

22,2436 

00001  0 

0 

22,2437 

41325  0 

PDDL 

DMP 

22,2440 

00007  0 

6 

22,2441 

00011  1 

8D 

22,2442 

72405  0 

DMP 

SL1 

22,2443 

00003  l 

2 

22,2444 

72421  0 

BDSU 

SL1 

22,2445 

00015  0 

1 2D 

22,2446 

10003  0 

STORE 

2,2 

22,2447 

41345  0 

DLOAD 

DMP 

22,2450 

00003  l 

2 

22,2451 

00005  1 

4 

22,2452 

41325  0 

PDDL 

DMP 

22,2453 

00C07  0 

6 

22,2454 

00011  1 

8 D 

22,2455 

72405  0 

DMP 

SL1 

22,2456 

00001  0 

0 

22,2457 

72415  1 

DAD 

SL1 

22,2460 

00017  1 

1 40 

22,2461 

10005  0 

STORE 

4,2 

22,2462 

77745  1 

DLOAD 

22,2463 

00011  1 

8D 

22,2464 

10007  1 

STORE 

6,2 

22,2465 

77745  1 

DLOAD 

22,2466 

00013  0 

10D 

22,2467 

72405  0 

DMP 

SL1 

22,2470 

00003  1 

2 

22,2471 

10011  0 

STORE 

30,2 

22,2472 

41345  0 

DLOAD 

DMP 

22,2473 

00  C 1 3 0 

10D 

22,2474 

00001  0 

0 

22, 2475 

72476  1 

DCOMP 

SL1 

22,2476 

10013  1 

STORE 

l OD , 2 

22,2477 

41345  0 

DLOAD 

DMP 

22,2500 

00005  1 

4 

22,2501 

00013  0 

100 

22,2502 

72476  1 

DCOMP 

SL1 

22,2503 

10015  1 

STORE 

120,2 

: l 1 MAR.  19,1971  LEM0NAID.156  PAGE 

USER'S  PAGE  NO.  17  E6  S3 

LOAO  PD  WITH  0 SINtPHI  ) 

2 COS( PH  I ) 

4 SIN(THFTA) 

6 CnS(THFTA) 

8 SINIPSI ) 

10  COStPS! ) 


C0=CflS  (THETA)  COS(  PS  I ) 


(PD6  SIN(THETA)SIN(PHI ) I 


Cl=— COS (THFTA ) SI  NIPS  I (COS (PHI ) 


(PD7  COS (PHI ) S I N ( THFTA ) ) SCALEO  4 


C2=C0S (THETA) SIN (PS  I) SIN( PHI ) 


C3=SIN(PSt ) 


C4=C0S (PS  I )COS ( PHI ) 


C5=-C0S (PS  I IS  INI  PHI ) 


C 6 = -S IN (THETA ICDS (PS  I ) 


GAP: 

L 

0773 

0 774 

0775 

0776 

0777 

0778 

0779 

0780 

0 781 

0782 

0783 

0784 

0785 

0 78  6 

0787 

0788 

0789 

0790 

0791 

R0792 

R0793 

R0794 

R'0  79  5 

R 0 796 

R0798 

R0799 

R0800 

080  l 

0802 

0803 

0804 

0805 

0806 

0807 

0808 

0809 

R 0 8 1 0 

081  1 

0812 

0813 

0814 

0815 

0816 

0817 
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22,2504 

77745 

1 

cload 

22,2505 

72405 

0 

DMP 

22,2506 

00011 

1 

22,2507 

41325 

0 

PDDL 

22,2510 

0CC07 

0 

22,2511 

00C01 

0 

22, 2512 

724  15 

1 

DAD 

22,2513 

77626 

0 

STADR 

22,2514 

67760 

1 

STORE 

22,2515 

77745 

1 

DL0AD 

22,2516 

72405 

0 

DMP 

22,2517 

00011 

1 

22,2520 

41325 

0 

PDDL 

22,2521 

00007 

0 ■ 

22,2522 

00003 

1 

22,2523 

72425 

1 

DSU 

22,2524 

77626 

0 

STADR 

22,2525 

67756 

1 

STORE 

22,2526 

77616 

0 

RVQ 

USER*  S PAGE  NO.  18  E6  S3 


SL1  (PUSH  UP  7) 

80 

DMP  ( PD7  COSIPHI  )SIN(THETA)SIN(PSI ) ) SCALE4 

6 

0 

SL1  ( PUSH  UP  7) 

C7=C0  S (PHI  )SIN(THETA)SIN(PSI ) 

140.2  +C0S (THETA)STN(PHI  ) 

SL1  (PUSH  UP  6) 

8D 

DMP  (P06  STM THFTA) S I N ( PHI  IS INIPSI ) ) SCALF4 

6 
2 

SL1  ( PUSH  UP  6) 

160.2  C8  = -S INI  THETA ) S IN ( PHI  ) S IN ( PS  T ) 

+COS (THFTA)COS(PHI ) 


CALCULATION  OF  THE  MATRIX  DEL 

* * — — T * 

DEL  = ( I DM  ATR  I X ) COS  ( A ) -t-UU  ( 1-COS ( A ) ) +UX  SIN(A)  SCALED  1 


WHERE  U IS  A UNIT  VECTOR  (DP  SCALED  2)  ALONG  THE  AXIS  OF  ROTATION. 
A IS  THE  ANGLE  OF  ROTATION  (DP  SCALED  2) 

UPON  ENTRY  THE  STARTING  ADDRESS  OF  U IS  COF , AND  A IS  IN  MPAC 


22,2527 

41401 

l DELCOMP 

SETPD 

PUSH 

MPAC 

CONTAINS  THE  ANGLE  A 

22,2530 

0C001 

0 

0 

22,2531 

65356 

1 

SIN 

PDDL 

PDO  = 

SIN(A) 

22,2532 

41546 

C 

COS 

PUSH 

PD2  = 

COS! A) 

22,2533 

65302 

0 

SR2 

PDDL 

PD2  = 

CDS! A ) 

22,2534 

41021 

1 

BDSU 

BOVB 

REF  2 

LAST  365 

22,2535 

06.503 

1 

DPHALF 

REF  2 

LAST  365 

22,2536 

31765 

1 

S IGNMPAC 

22,2537 

7 7 725 

1 

PDDL 

PD4  = 

1-COS ( A ) 

COMPUTE 

THE  DIAGONAL 

COMPONENTS 

, OF  DEL 

REF  27 

LAST  367 

22,2540 

03270 

l 

COF 

22,2541 

4 1316 

0 

DSQ 

DMP 

22,2542 

00005 

1 

4 

22,2543 

524  15 

0 

DAD 

SL3 

22,2544 

00003 

1 

2 

22,2545 

77604 

0 

BOVB 

REF  3 

LAST  371 

22,2546 

31765 

1 

S IGNMPAC 

GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY 

L ATTITUDE  MANEUVER  ROUTINE 


0810 

REE 

l 

22,2547 

16222 

1 

0819 

REF 

28 

LAST 

371 

22,2550 

03272 

0 

0820 

22,2551 

41316 

0 

082  1 

22,2552 

00005 

l 

0822 

22,2553 

52415 

0 

0823 

22,2554 

00003 

l 

0824 

22,2555 

77604 

0 

0825 

REF 

4 

LAST 

371 

22,2556 

31765 

1 

0826 

REF 

2 

LAST 

372 

22,2557 

16232 

0 

082  7 

REF 

29 

LAST 

372 

22,2560 

03274 

0 

0828 

22,2561 

41316 

0 

0829 

22,2562 

00005 

1 

0830 

22,2563 

524  15 

0 

0831 

22 ,2564 

00003 

1 

083  2 

22,2565 

? 7604 

0 

0833 

REF 

5 

LAST 

37  2 

22,2566 

31765 

1 

0834 

REF 

3 

LAST 

372 

22,2567 

02242 

l 

R083  5 

COMPUTE 

THE  OFF 

DIAGONAL  TERMS 

OF  DEL 

083  6 

22,2570 

41345 

0 

0837 

REF 

30 

LAST 

372 

22,2571 

03270 

1 

083  B 

REF 

31 

LAST 

372 

22,2572 

03272 

0 

0839 

22,2573 

72405 

0 

0840 

22,2574 

00005 

1 

084  l 

22,2575 

41325 

0 

084  2 

REF 

32 

LAST 

372 

22,2576 

03274 

0 

0843 

22,2577 

00001 

0 

0844 

22,2600 

43206 

1 

0845 

22,2601 

00007 

0 

0846 

22,2602 

4 1112 

0 

0 84  7 

REF 

6 

LAST 

372 

22,2603 

31765 

l 

0848 

REF 

4 

LAST 

372 

22,2604 

16230 

1 

0849 

22,2605 

62421 

1 

0850 

22,2606 

77604 

0 

0851 

REF 

7 

LAST 

372 

22,2607 

31765 

1 

0852 

REF 

5 

LAST 

372 

22,2610 

16224 

1 

085  3 

REF 

33 

LAST 

372 

22,2611 

03270 

1 

0854 

22,2612 

41205 

0 

0855 

RFF 

34 

LAST 

372 

22,2613 

03274 

0 

0856 

22,2614 

0CC05 

1 

0 85  7 

22,2615 

65352 

0 

0858 

REF 

35 

LAST 

372 

22,2616 

03272 

0 

0859 

22,2617 

41405 

0 

0860 

22,2620 

00001 

0 

0 861 

22,2621 

62415 

0 

0862 

22,2622 

00007 

0 

0863 

22,2623 

77604 

0 

0864 

REF 

8 

LAST 

372 

22,2624 

31765 

1 

0865 

REF 

6 

LAST 

372 

22,2625 

16226 

0 

NASA  2021112-161 
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STOOL 

KEL 

COF  +2 

UX 

UX  ( 1— CO  S ( A ) ) 

+C0S1 A ) 

$1 

DSQ 

DMP 

4 

OAD 

SL3 

2 

BOV  3 

S IGNMPAC 

STOOL 

KEL  +8D 
COF  +4 

UY 

UY ( 1-COS (A  ) 1 

+COS ( A ) 

J1 

DSQ 

DMP 

4 

OAD 

SL3 

2 

BOVB 

SIGNMPAC 

STORE 

KEL  +16D 

UZ 

U7.  1 1-COS  (A  ) ) 

+COSI A) 

SI 

OLOAD 

DMP 

COF 

COF  +2 

DMP 

SL1 

4 

PDDL 

DMP 

COF  +4 
0 

06 

UX 

UY  (1-COS  A) 

$ 

4 

PUSH 

DAD 

D8 

UZ 

SIN  A 

$ 

4 

6 

SL  2 

BOVB 

SIGNMPAC 

STOOL 

KEL  +6 

BDSU 

SL2 

BOVB 

SIGNMPAC 

STODL 

KEL  +2 
COF 

DMP 

DMP 

COF  +4 
4 

St  1 

PDDL 
COF  +2 

06 

UX 

UZ  ( l-COS  A ) 

t 

4 

DMP 

PUSH 

0 

08 

UY 

STN(A) 

DAD 

SL2 

6 

BOVB 

S IGNMPAC 

STODL 

KEL  +4 

UX 

UZ 

( 1-COS ( A ) ) +UY  S INCA ) 

GAP: 
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0 86  6 

22,2626 

62421 

1 

BDSU 

SL2 

0867 

22,2627 

77604 

0 

BD  VB 

0868 

REF 

9 

LAST 

372 

22,2630 

3 1765 

1 

S IGNMPAC 

0869 

REF 

7 

LAST 

372 

22,2631 

16236 

1 

STOOL 

KEL  +12D 

UX 

UZ 

1 1-COS ( A ) ) — U Y 

S IN( A ) 

0870 

REF 

36 

LAST 

372 

22,2632 

03272 

0 

COF  +2 

0871 

22,2633 

41205 

0 

DMP 

DMP 

0872 

REF 

37 

LAST 

373 

22,2634 

03274 

0 

COF  +4 

0873 

22,2635 

00005 

1 

4 

0874 

22,2636 

65352 

0 

SL1 

POOL 

06 

UY 

UZ  ( 1-COS (All 

0875 

REF 

38 

LAST 

373 

22,2637 

03270 

1 

COF 

0876 

22,2640 

41405 

0 

DMP 

PUSH 

D8 

UX 

S IN ( A) 

0877 

22,2641 

oeooi 

0 

0 

0878 

22,2642 

62415 

0 

DAD 

SL2 

0879 

22,2643 

00007 

0 

6 

0880 

22,2644 

77604 

0 

BO  VB 

088  1 

REF 

1C 

LAST 

373 

22,2645 

31765 

1 

S IGNMPAC 

0882 

REF 

8 

LAST 

373 

22,2646 

16240 

0 

STOOL 

KEL  +140 

UY 

UZ  ( L-COS ( A ) ) +UX 

S IN ( A ) 

0883 

22,2647 

62421 

1 

BDSU 

SL2 

0884 

22,2650 

77604 

0 

BO  V B 

0885 

REF 

1 1 

LAST 

373 

22,2651 

31765 

1 

S IGNMPAC 

0886 

REF 

9 

LAST 

373 

22,2652 

02234 

0 

STORE 

KEL  +10D 

UY 

UZ 

(1 -COS( A) I -UX 

S I N ( A) 

0887 

22,2653 

77616 

0 

R VO 

R088B  DIRECTION  COSINE  MATRIX  TO  CDU  ANGLE  ROUTINE 

R0889  XI  CONTAINS  THE  COMPLEMENT  OF  THE  STARTING  ADDRESS  FOR  MATRIX  (SCALED  2) 
R0890  LEAVES  CDU  ANGLES  SCALED  2PI  IN  V(MPAC) 

R0891  COS(MGA)  WILL  BE  LEFT  IN  SI  (SCALED  1) 


RQ892  THE  DIRECTION  COSINE  MATRIX  RELATING  S/C  AXES  TO  STABLE  MEMBER  AXES  CAN  BE  WRITTEN  AS*** 


R0894 
R0895 
R0896 
R0897 
R0098 
RU899 
R0900 
R090  1 
R0902 
R090  3 
R0904 
R090  5 
R0906 
R090  7 
R0908 
R0909 
R0910 
R091  1 


C =C0  S(THETA)COS(PSI ) 

0 

C =-COS(THETA)SIN(PSI)COS(PHI > + SI  ( T HET A ) S I N ( PH l I 
1 

C =COS(THETA)SIN(PSI  ISINIPHI  ) <■  S N ( THET  A ) COS  ( PH  I ) 
2 

C =S INI  PS  II 

3 

C =COS( PSI ) COS ( PHI ) 

4 

C =-COS( PSI ) S I N ( PHI ) 

5 

C =-S  IN( THETA )COS( PS  I ) 

6 

C =SIN1THETA)SIN(PSI  )COS(PHI  I+COS  THETA) S I N ( PHI ) 

7 

C =—  SIN(THETA)SIN(PSI)SIN(PHI  ) + C 0 ( THETA  ) COS ( PH  I ) 

8 


GAP: 

L 

R0912 

R091  3 

R091  A 

0915 

0916 

0917 

0918 

0919 

092  0 

0971 

0922 

092  3 

092  A 

092  5 

0926 

0927 

0928 

0929 

093  0 

093  1 

093  2 

0933 

093  A 

0935 

093  6 

093  7 

093  8 

0939 

09A  0 

09A1 

09A  2 

09A  3 

09AA 

09A  5 

09A6 

09A  7 

09A8 

09A9 

095  0 

0951 

0952 

0953 

095  A 


iSEMBLE  REVISION  210 

CF  A GC  PROGRAM  LUM 

INARY  flY  NASA  2021112-161 

17:11  MAR.  19,1971 

LFMONA ID . 1 56  PAGE 

ATT! 

TIDE 

MANEUVER  ROUTINE 

USER'S  PAGE 

NO.  21  E 6 S3 

WHERE 

PHI  = 

OGA 

THETA 

= IGA 

PSI  = 

MGA 

22.265A 

675A3 

1 

DCMTUCDU 

DLOAD* 

ARCS  IN 

22,2655 

00007 

0 

6,1 

22,2656 

7 1 A 06 

0 

PUSH 

COS 

PD  +0  PSI 

22,2657 

A1 152 

1 

SL1 

BOVB 

REF 

12 

LAST 

373 

22,2660 

31  765 

1 

S IGNMPAC 

REF 

2 

LAST 

369 

22,2661 

00051 

0 

STORE 

SI 

22,2662 

575A3 

1 

DLOAO* 

OCOMP 

22 ,2663 

0 l 5 

0 

1 2D , 1 

22.266A 

6 7 A 7 l 

1 

DDV 

ARCSIN 

REF 

3 

LAST 

3 7 A 

22,2665 

00051 

0 

S 1 

22,2666 

51123 

0 

POOL  * 

BPL 

PD  +2  THETA 

22,2667 

00001 

0 

0 , 1 

MUST  CHFCK  THE  SIGN  OF  COS (THETA) 

REF 

1 

22,2670 

AA702 

1 

OKTHETA 

TO  DETERMINF  THE 

PROPER  QUADRANT 

22,2671 

5 7 5A5 

1 

OLOAD 

DCOM  P 

22,2672 

A32AA 

1 

BPL 

DAD 

REF 

l 

22,2673 

AA677 

1 

SUHALFA 

REF 

3 

LAST 

37  1 

22.267A 

06503 

1 

DPHALF 

22,2675 

77650 

1 

GOTO 

REF 

l 

22,2676 

AA701 

1 

CALC  PH  I 

22,2677 

77625 

0 

SUHALFA 

DSU 

REF 

A 

LAST 

3 7 A 

22,2700 

06503 

1 

DPHALF 

22, 2701 

77606 

1 

CALC  PH  I 

PUSH 

22,2702 

575A3 

l 

OKTHETA 

DLOAD* 

DCOMP 

22,2703 

00013 

0 

100,1 

22 , 2 70 A 

6 7 A 7 1 

1 

DDV 

ARCSIN 

REF 

A 

LAST 

37  A 

22,2705 

00051 

0 

S l 

22,2706 

5 1 123 

0 

PDDL  * 

BPL 

PUSH  DOWN  PHI 

22,2707 

00011 

1 

80,1 

REF 

1 

22,2710 

AA  722 

0 

OKPHI 

22 , 27  l L 

575A5 

L 

OLOAD 

DCOMP 

PUSH  UP  PHI 

22,2712 

A32AA 

1 

BPL 

DAD 

REF 

1 

22,2713 

A A 7 1 7 

0 

SUHALFAP 

REF 

5 

LAST 

3 7 A 

22, 271A 

06503 

1 

DPHALF 

22,2715 

77650 

1 

GOTO 

REF 

1 

22,2716 

A A 7 23 

1 

VECOFANG 

22,2717 

52025 

1 

SUHALFAP 

DSU 

GOTO 

REF 

6 

LAST 

3 7 A 

22,2720 

06503 

1 

DPHALF 

REF 

2 

LAST 

3 7 A 

22,2721 

A A 7 23 

1 

VECOFANG 

22,2722 

7 7 7 A 5 

1 

OKPHI 

DLOAD 

PUSH  UP  PHI 

22,2723 

A3A66 

1 

VECOFANG 

VDEF 

R VO 

37A 
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L ATTITUDE  MANEUVER  ROUTI'NE 


USER’ S PAGE  NO.  22  E6  S3 


P0955  ROLTINES  FOR  TERMINATING  THE  AUTOMATIC  MANEUVER  AND  RETURNING  TO  USER 


0956 

22,2724 

77776 

1 

TOOBAOF 

EXIT 

0957 

REF 

16 

LAST 

283 

22,2725 

0 5571 

1 

TC 

0958 

22,2726 

0C401 

1 

OCT 

095  9 

REF 

1 

22,2727 

1 2732 

1 

TCF 

0960 

REF 

69 

LAST 

352 

22,2730 

0 4607 

1 

TC 

0961 

REF 

2 

LAST 

297 

22,2731 

4 C 1 54 

0 

CAOR 

0962 

REF 

70 

LAST 

375 

22,2732 

0 4607 

1 

NCGO 

TC 

0963 

REF 

2 

LAST 

300 

22,2733 

4C166 

1 

CADR 

0964 

REF 

14 

LAST 

344 

22,2734 

3 4743 

0 

CAF 

096  5 

22,2735 

0 0 004 

0 

INHINT 

0966 

REF 

12 

LAST 

308 

22,2736 

0 5205 

0 

TC 

0967 

REF 

8 

LAST 

369 

E6 , 1675 

EB A NK  = 

096  8 

REF 

1 

22,2737 

03234 

1 

2CADR 

096  8 

REF 

1 

22, 2740 

44066 

1 

0969 

REF 

32 

LAST 

348 

22,2741 

1 5146 

0 

TCF 

0970 

22,2742 

7 7776 

1 

TOOBADI 

EXIT 

0971 

REF 

2 

LAST 

375 

22,2743 

1 2732 

1 

TCF 

ALARM 
004-0 1 

NOGO 

BANKCALL 

ZATTEROR 

BANKCALL 

STOPRATE 

TWO 

WAITLIST 

BCDU 

GOODMANU 

ENDOFJOB 


DO  NOT  ZERO  ATTITUDF  ERRORS 
ZERO  ATTITUOE  ERRORS 
STOP  RATES 

ALL  RETURNS  ARE  NOW  MADE  VIA  GOODEND 


NOGO 


GAP: 

L 

0001 

0002 

0003 

R0004 

R0005 

000  6 

0007 

0008 

0000 

0010 

001  1 

0012 

0013 

A0014 

0016 

0016 

0017 

0018 

0019 

0020 

002  1 

0022 

0023 

002  A 

0025 

002  6 

0027 

0028 

R0029 

R0030 

0031 

0031 

0032 

0032 

0033 

003  3 

0034 

0034 

003  5 

0035 

A0036 


ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
GIMBAL  LOCK  AVOIDANCE 


17:11  MAR.  19,1971  LEM0NAID.156  PAGE 
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376 


15,2162 

BANK 

15 

REE 

3 LAST  36S 

22,2000 

SETLOC 

KALCM0N1 

22,2744 

BANK 

DETECTING  GIMBAL  LOCK 

REF 

1 

22,2744 

LOCSKIRT  EQUALS 

NOGIMLOC 

22,2744 

77614 

1 

NOGIMLOC  SET 

REE 

1 

22,2745 

01074 

0 

C ALCMAN3 

22,2746 

70740 

0 

WCALC  LXC , 1 

DLOAD* 

REE 

3 

LAST 

306 

22,2747 

01322 

0 

RATE  I NDX 

CHOOSE  THE  DESIRED  MANEUVER  RATE 

REE 

1 

22,2750 

04772 

1 

ARATE , 1 

TPOM  A LIST  OF  FOUR 

22,2751 

45002 

1 

SR  4 

CALL 

COMPUTE  THE  INCREMENTAL  ROTATION  MATRIX 

REF 

1 

22,2752 

44527 

1 

DELCOMP 

DEL  CORRESPONDING  TO  A 1 SEC  ROTATION 

ABOUT  COF 

22,2753 

74343 

0 

DLOAD* 

VXSC 

REF 

2 

LAST 

376 

22,2754 

04772 

1 

ARATE, l 

REF 

39 

LAST 

373 

22,2755 

03270 

1 

COF 

REF 

1 

22,2756 

17325 

0 

STODL 

BRATE 

COMPONENT  MANEUVER  RATES  45  DEG/SEC 

REF 

3 

LAST 

364 

22,2757 

03335 

1 

AM 

22,2760 

55605 

1 

DMP 

DDV* 

REE 

1 

22,2761 

05002 

0 

A NGL  TIME 

REF 

3 

LAST 

376 

22,2762 

04772 

1 

ARATE , 1 

22,2763 

77661 

0 

SR 

22,2764 

20606 

0 

5 

REF 

1 

22, 2765 

03333 

1 

STORE 

TM 

MANEUVER  EXECUTION  TIME  SCALED  AS  T2 

22,2766 

77614 

1 

SETGO 

REF 

1 

22,2767 

01035 

0 

CALCMAN2 

0 I OF  F ) = CONTINUE  MANEUVER 

REF 

1 

22, 2770 

45010 

1 

NEWANGL  +1 

1 t ON ) = START  MANEUVER 

THE 

FOUR  : 

SELFCTABLE 

FREE  FALL 

MANEUVER  RATES  SELECTED  BY 

LOADING  RAT  E l NDX  WITH  0,2,4, 

i 6 

, RESPECTIVELY 

22,2771 

0C221 

0 

ARATE 

2DEC 

.0088888888 

= 0.2  DEG/SEC  * 

22.5 

DEG/SEC 

22,2772 

24255 

0 

22,2773 

CC554 

0 

2DEC 

. 0222222222 

= 0.5  DEG/SEC  t 

22.5 

OEG/SEC 

22,2774 

02660 

0 

22,2775 

02660 

0 

2DEC 

. 0888888888 

= 2.0  DEG/SEC  * 

22.  5 

DEG/SEC 

22,2776 

13301 

1 

22,2777 

16161 

0 

2DEC 

. 4444444444 

= 10.0  OEG/SEC  $ 

22.  5 

DEG/SEC 

22,3000 

30707 

1 

22,3001 

0 0 0 0 3 

1 

A NGL  T IME 

2DEC 

.0001907349 

= 100  R— 1 9 FUDGE  FACTOR 

TO  CONVERT 

22,3002 

C4000 

0 

MANEUVER  ANGLE  TO  MANEUVER  TIME 


GAP: 

L 

ROOOl 

R0003 

000  4 

0005 

0006 

0007 

0008 

0009 

0010 

JOi  1 

0012 

0013 

0014 

0015 

0016 

0017 

0010 

0019 

0020 

002  1 

002  2 

002  3 

0024 

0025 

0026 

002  7 

0028 

002  9 

0030 

003  l 

003  2 

0033 

0034 

003  5 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

004  5 

0046 

004  7 
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KALCMANU  STEERING  USER'S  PAGE  NO.  1 FO  S3 

GENERATION  OF  STEERING  COMMANDS  FOR  DIGITAL  AUTOPILOT  FREE  FALL  MANEUVERS 


NEW 

COMMANDS 

WILL  BE 

GENERATED  EVERY 

ONE 

SECOND 

DUR IMG 

THE  MANEUVER 

REF 

1 

E6 , 1706 

EBANK= 

ttemp 

REF 

71 

LAST 

375 

22,3003 

0 4607 

1 

NEWDELHI 

TC 

BANKCALL 

CHECK  FOR  AUTO  STABILIZATION 

REF 

1 

22,3004 

54274 

1 

CADR 

I S ITAUTO 

ONLY 

REF 

5 1 

LAST 

344 

22,3005 

10  COO 

0 

CCS 

A 

REF 

3 

LAST 

375 

22,3006 

1 2730 

0 

TCF 

NOGO  -2 

REF 

18 

LAST 

369 

22,3007 

0 6060 

1 

NEWANGL 

TC 

I NTPRET 

22,3010 

75160 

1 

AXC  , 1 

AXC,  2 

REF 

6 

LAST 

363 

22,3011 

03245 

1 

M I S 

COMPUTE  THE  NEW  MATRIX  FROM  S/C  TO 

REF 

10 

LAST 

373 

22,3012 

02221 

l 

KEL 

STABLE  MFMBER  AXES 

22,3013 

77624 

1 

CALL 

REF 

2 

LAST 

363 

22,3014 

44312 

1 

MXM3 

22,3015 

45575 

1 

VLOAD 

STADR 

REF 

7 

LAST 

37  7 

22,3016 

5C515 

0 

STOVL 

MIS  +120 

CALCULATE  NFW  DFSIRED  COU  ANGLES 

22,3017 

77626 

0 

STADR 

REF 

8 

LAST 

377 

22,3020 

5C523 

0 

STOVL 

MIS  +6D 

22,3021 

77626 

0 

STADR 

RF.F 

9 

LAST 

377 

22,3022 

74531 

0 

STORE 

MIS 

22,3023 

45160 

1 

AXC  , 1 

CALL 

REF 

10 

LAST 

377 

22,3024 

03245 

1 

MIS 

REF 

1 

22,3025 

44654 

0 

DCMTOCDU 

PICK  UP  THE  NEW  CDU  ANGLES  FROM  MATRIX 

22,3026 

77634 

0 

RTB 

REF 

1 

22,3027 

21630 

1 

V 1ST02S 

REF 

1 

22,3030 

’ 03303 

1 

STORE 

NCDU 

NEW  CDU  ANGLES 

22,3031 

77414 

0 

BONCLR 

EXIT 

REF 

2 

LAST 

376 

22,3032 

01215 

0 

C ALCMAN2 

REF 

1 

22,3033 

45122 

1 

MANUSTAT 

TO  START  M ANFUVER 

REF 

15 

LAST 

375 

22,3034 

3 4743 

0 

CAF 

TWO 

+0  OTHERWISE 

REF 

1 

22,3035 

55 ' 2 6 1 

1 

INCRDCOU 

TS 

SPNDX 

REF 

2 

LAST 

377 

22,3036 

51 ' 261 

0 

INDEX 

SPNDX 

REF 

9 

LAST 

375 

22,3037 

3 1675 

1 

CA 

BCUU 

INITIAL  CDU  ANGLES 

22,3040 

C C 006 

1 

EXTEND 

OR  PREVIOUS  OESIRFO  CDU  ANGLFS 

REF 

3 

LAST 

377 

22,3041 

5 1261 

0 

INDEX 

SPNDX 

REF 

2 

LAST 

377 

22,3042 

21 1 702 

1 

MSU 

NCDU 

22,3043 

C C006 

1 

EXTEND 

REF 

4 

LAST 

376 

22,2000 

SETLOC 

KALCM0N1 

22,3044 

BANK 

REF 

l 

22,3044 

7 3121 

1 

MP 

DT/TAU 

REF 

92 

LAST 

377 

22,3045 

10  000 

0 

CCS 

A 

CONVERT  TO  2S  COMPLEMENT 

REF 

18 

LAST 

35  l 

22,3046 

6 4744 

1 

AO 

ONE 

22,3047 

1 3051 

1 

TCF 

+ 2 

22,3050 

4 CCOO 

0 

COM 

REF 

4 

LAST 

377 

22, 3051 

51*261 

0 

INDEX 

SPNDX 

REF 

1 

22,3052 

55 1 63  7 

0 

TS 

DELOCDU 

ANGLE  INCREMENTS  TO  BE  ADDED  TO 

REF 

5 

LAST 

377 

22,3053 

51*261 

0 

INDEX 

SPNDX 

CDUXD,  CDUYD,  CDUZD  EVERY  TENTH  SECOND 
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L 

KALCMANU 

STEERING 

0048 

REF 

3 

LAST 

377 

22,3054 

3 1702 

0 

CA 

NCDU 

0049 

RFF 

6 

LAST 

377 

22,3055 

51 '261 

0 

INDEX 

S PND  X 

0050 

REF 

10 

LAST 

377 

22,3056 

5 7 ' 675 

1 

XCH 

BCDU 

0051 

REF 

7 

LAST 

378 

22,3057 

51 ' 261 

0 

INDEX 

SPNDX 

0052 

REF 

10 

LAST 

364 

22,3060 

55 ' 634 

0 

TS 

CDUXD 

005? 

REF 

8 

LAST 

378 

22,3061 

1 1 ' 2 61 

1 

CCS 

SPNDX 

0054 

REF 

1 

22,3062 

1 3035 

0 

TCF 

I NCRDCDU 

0055 

22,3063 

0 0003 

1 

RELINT 

R0056 

COMPARE 

PRESENT 

T IMF 

WITH  TIME 

TO  TERMINATE  MANEUVER 

005  7 

REF 

1 

22,3064 

0 3075 

0 

TMANUCHK 

TC 

T IMECHK 

005  8 

REF 

1 

22,3065 

1 3 170 

0 

TCF 

CONTMANU 

0059 

REF 

19 

LAST 

377 

22,3066 

3 4744 

1 

CAF 

ONE 

0060 

22,3067 

0 0004 

0 

MANUSTAL 

INHINT 

006  l 

REF 

13 

LAST 

375 

22,3070 

C 5205 

0 

TC 

WAITLIST 

006? 

REF 

2 

LAST 

377 

E6 , 1 706 

EBANK= 

TTEMP 

0063 

REF 

l 

22,3071 

03213 

1 

2CADR 

MANUSTGP 

006  3 

REF 

1 

22,3072 

44066 

1 

0064 

22,3073 

C 0003 

1 

RFL INT 

0065 

REF 

33 

LAST 

375 

22,3074 

1 5146 

0 

TCF 

ENDOF JOB 

0066 

22,3075 

C 0006 

1 

T IMECHK 

EXTEND 

006  7 

REF 

12 

LAST 

318 

22,3076 

4 0025 

1 

OCS 

T I ME2 

0068 

REF 

3 

LAST 

378 

22,3077 

53' 707 

1 

DXCH 

TTEMP 

0069 

22,3100 

C C006 

1 

EXTEND 

0070 

REF 

2 

LAST 

376 

22,3101 

3 1733 

1 

DC  A 

TM 

0071 

REF 

4 

LAST 

378 

22,3102 

21 1 707 

L 

DAS 

TTEMP 

0072 

REF 

. 5 

LAST 

378 

22,3103 

1 1 1 706 

0 

CCS 

TTEMP 

0073 

REF 

34 

LAST 

348 

22,3104 

C 0002 

0 

TC 

Q 

0074 

22,3105 

1 3107 

0 

TCF 

+ 2 

0075 

REF 

1 

22,3106 

l 3117 

1 

TCF 

2NDRETRN 

0076 

REF 

6 

LAST 

378 

22,3107 

11' 707 

1 

CCS 

TTEMP  +1 

007  7 

REF 

35 

LAST 

378 

22,3110 

C 0002 

0 

TC 

0 

0078 

RFF 

1 

22,3111 

1 3113 

0 

TCF 

MANUOFF 

0079 

22,3112 

4 0000 

0 

COM 

0080 

REE 

1 

22,3113 

6 3166 

0 

MANUOFF 

AD 

ONESEK  +1 

008  1 

22,3114 

C 0006 

1 

EXTEND 

0082 

REF 

2 

LAST 

378 

22,3115 

6 3117 

0 

BZMF 

2NDRETRN 

0083 

REF 

36 

LAST 

378 

22,3116 

24  002 

0 

INCR 

Q 

0084 

REF 

37 

LAST 

378 

22,3117 

24  002 

0 

2 NDRETRN 

I NCR 

Q 

0085 

REF 

38 

LAST 

378 

22,3120 

C C002 

0 

TC 

0 

0086 

22,3121 

03  146 

1 

OT/TAU 

DEC 

. 1 

0087 

22,3122 

77776 

1 

MANUSTAT 

EXIT 

0088 

22,3123 

0 0006 

1 

EXTEND 

0089 

REF 

13 

LAST 

378 

22,3124 

3 0025 

0 

DC  A 

T IME2 
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BY  LEM  DAP 


LOOP  FOR  THREF  AXES 


END  MAJOR  PART  OF  MANEUVER  WITHIN  1 SEC 
UNDER  WAITLIST  CALL  TO  MANUSTOP 


INITIALIZATION  ROUTINE 
FOR  AUTOMATIC  MANEUVERS 


GAP: 
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L K ALCMANU  STEERING 


0090 

REF 

3 

LAST 

378 

22,3125 

21 • 733 

0 

DAS 

TM 

0091 

22,3126 

C 0006 

1 

EXTEND 

0092 

REF 

2 

LAST 

378 

22,3  127 

4 3 166 

1 

DCS 

ONESEK 

0093 

REF 

4 

LAST 

379 

22,3  130 

21 ' 733 

0 

DAS 

TM 

0094 

22,3131 

C 0004 

0 

INHINT 

0095 

REF 

16 

LAST 

377 

22,3  132 

3 4743 

0 

CAF 

TWO 

0096 

REF 

2 

LAST 

140 

22,3133 

55' 700 

0 

RATES  IAS 

TS 

KSPNDX 

0097 

22,3134 

6 0000 

1 

DOUBLE 

009  8 

REF 

2 

LAST 

140 

22,3135 

55 • 701 

1 

TS 

KDPNDX 

0099 

REF 

93 

LAST 

377 

22,3136 

50  000 

1 

INDEX 

A 

0100 

REF 

2 

LAST 

376 

22,3137 

3 1724 

1 

CA 

BRATE 

0101 

REF 

3 

LAST 

379 

22,3140 

51  • 700 

1 

INDEX 

KSPNDX 

0102 

REF 

5 

LAST 

206 

22,3141 

55' 642 

1 

TS 

OMEGAPD 

0103 

22,3142 

C 0006 

1 

EXTEND 

0104 

22,3  143 

6 3145 

1 

BZMF 

+ 2 

0105 

22,3144 

4 0000 

0 

COM 

0106 

22,3145 

0 0006 

1 

EXTEND 

0107 

REF 

1 

22,3146 

7 3167 

0 

MP 

BIASCALE 

0108 

22,3147 

0 C C 06 

1 

EXTEND 

0109 

REF 

3 

LAST 

379 

22,3150 

5 1701 

0 

INDEX 

KDPNDX 

0110 

REF 

3 

LAST 

379 

22,3151 

7 1724 

0 

MP 

BRATE 

OIL! 

22,3152 

C 0 006 

1 

EXTEND 

D 1 1 2 

REF 

4 

LAST 

379 

22,3153 

5 1700 

1 

INDEX 

KSPNDX 

0113 

REF 

4 

LAST 

138 

22,3154 

1 1 • 530 

1 

DV 

1 JACC 

0114 

REF 

5 

LAST 

379 

22,3155 

51 ' 700 

1 

INDEX 

KSPNDX 

0115 

REF 

1 

22,3156 

55 1 274 

0 

TS 

DELPEROR 

0116 

REF 

6 

LAST 

379 

22,3157 

11 ' 700 

0 

CCS 

KSPNDX 

0117 

REF 

1 

22,3160 

1 3133 

1 

TCF 

RATEBIAS 

0120 

REF 

5 

LAST 

346 

22,3161 

3 0025 

0 

CA 

T I ME  1 

012  1 

REF 

3 

LAST 

379 

22.3L62 

6 3166 

0 

AD 

ONESEK  4-1 

0122 

REF 

1 

22,3163 

57' 705 

1 

XCH 

NEXT  I ME 

0123 

REF 

2 

LAST 

378 

22,3164 

l 3034 

1 

TCF 

I NCRDCDU 

0124 

22,3165 

00000 

1 

ONESEK 

DEC 

0 

0125 

22,3166 

00144 

0 

DEC 

100 

0126 

22,3167 

75777 

1 

BI ASCALE 

OCT 

75777 

0127 

REF 

10 

LAST 

379 

22,31  10 

4 0025 

1 

CONTMANU 

CS 

T IME  1 

0128 

REF 

2 

LAST 

379 

22,3171 

6 1 705 

1 

AD 

NEXT IME 

0129 

REF 

54 

LAST 

379 

22,3172 

10  000 

0 

CCS 

A 

0130 

REF 

20 

LAST 

378 

22,3173 

6 4 7 44 

1 

AD 

ONE 

0131 

REF 

1 

22,3174 

1 3177 

1 

TCF 

MANUCALL 

0132 

REF 

1 

22,3175 

6 4726 

0 

AD 

NEGMAX 

013  3 

22,31 76 

4 0000 

0 

COM 

0134 

22,3 l 77 

C 0004 

0 

MANUCALL 

INHINT 

0135 

REF 

14 

LAST 

378 

22,3200 

C 5205 

0 

TC 

WAITLIST 

0136 

REF 

7 

LAST 

378 

E6 , 1 706 

E8ANK= 

TTEMP 

0137 

REF 

1 

22,3201 

03206 

0 

2C  ADR 

U PDT  CALL 

0137 

REF 

1 

22,3202 

44  066 

1 
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USER’S  PAGE  NO.  3 E6  S3 

TM+TO  MANEUVER  COMPLETION  TIME 


(TM+TOI-l 


STORE  MANEUVER  RATE  IN 
OMEGA  PD , OMEGAQD,  OMEGARD 

COMPUTF  ATTITUDE  ERROR 
OFFSET  = (WX)A8S(WX)/24JX 
WHERE  A JX=  2-JFT  ACCELERATION 
= -1/16 


=A JX  9 90  OEG/SEC-SFC 
$ 180  DEG 


l 


= -1/16 

RESET  FOR  NEXT  DCOU  UPDATE 


CALL  FOR  NEXT  UPDATE  VIA  WAITLIST 


GAP 


ASSEMBLE  REVISION  21G  OE  A GC  . PR OGRA '1  LUMINARY  BY  NASA  20211  12-161 


L KALCMANU  STEER ING 


0138 

REF 

4 

LAST 

379 

22,3203 

3 3166 

0 

CAF 

ONESEK  +1 

0139 

REF 

3 

LAST 

379 

22,3204 

27' 705 

0 

ADS 

NEXT  I ME 

0140 

REF 

34 

LAST 

378 

22,3205 

1 5146 

0 

TCF 

ENOOF JOB 

0141 

REF 

I 

22,3206 

3 7735 

1 

UPDT CALL  CAF 

PR  102  6 

0142 

REF 

13 

LAST 

31  1 

22,3207 

0 5076 

0 

TC 

F INDVAC 

0143 

REF 

8 

LAST 

379 

E6, l 706 

EBANK= 

TTEMP 

0144 

REF 

1 

22,3210 

03003 

1 

2CA0R 

NEWDELHI 

0144 

REF 

1 

22,3211 

44066 

1 

0145 

REF 

5 

LAST 

294 

22,3212 

0 5263 

0 

TC 

T ASKOVFR 
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USER'S  PAGE  NO.  A E6  S3 

INCREMENT  TIME  FOR  NEXT  UPDATE 


SATELLITE  PROGRAM  TO  CALL  FOR  UPDATE 
OF  STEERING  COMMANDS 


GAP: 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINAPY  BY  NASA  2021112-161 


L KALCMANU  STEERING 

PO 146  ROUTINE  FOR  TERMINATING  AUTOMATIC  MANEUVERS 


014  7 

REF 

38 

LAST 

348 

22,3213 

3 4746 

0 

MANUSTOP  CAF 

ZERO 

0148 

REF 

1 

22,3214 

55 '641 

1 

TS 

DELDCDU2 

0149 

REF 

2 

LAST 

207 

22, 3215 

55 1 644 

1 

TS 

OMEGARD 

0150 

REF 

1 

22,3216 

55 • 276 

1 

TS 

DELREROR 

0151 

REF 

1 

22,3217 

55 ' 640 

0 

TS 

DELDCDU1 

0152 

REF 

3 

LAST 

207 

22,3220 

55*643 

0 

TS 

OMEGAQD 

0153 

REF 

1 

22, 3221 

55*275 

1 

TS 

DELQEROR 

0154 

REF 

2 

LAST 

363 

22,3222 

3 0323 

0 

CA 

CPS  I 

0155 

REF 

4 

LAST 

2 15 

22,3223 

55*636 

1 

TS 

CDUZD 

0156 

REF 

1 

22,3224 

3 0322 

1 

CA 

CTHETA 

0157 

REF 

5 

LAST 

215 

22,3225 

55 ' 635 

1 

TS 

CDUYD 

0158 

REF 

4 

LAST 

364 

22,3226 

3 0321 

1 

ENDROLL  CA 

C PH  I 

0159 

REF 

11 

LAST 

378 

22,3227 

55 ' 6 34 

0 

TS 

CDUXD 

0160 

REF 

39 

LAST 

38  l 

22,3230 

3 4746 

0 

CAF 

ZERO 

0161 

REF 

6 

LAST 

379 

22,323  1 

55*642 

1 

TS 

OMEGAPD 

0162 

REF 

2 

LAST 

377 

22,3232 

55*637 

0 

TS 

DELDCDU 

0163 

REF 

2 

LAST 

379 

22,3233 

55' 274 

0 

TS 

DELPEROR 

0164 

REF 

1 

22,3234 

3 1306 

0 

GOODMANU  CA 

ATTPR 10 

0 lo5 

REF 

2 

LAST 

243 

22,3235 

54  C63 

0 

TS 

NEWPR 10 

0166 

REF 

40 

LAST 

38  1 

22,3236 

3 4 746 

0 

CA 

ZERO 

0167 

REF 

3 

LAST 

233 

22,3237 

53 ' 305 

1 

DXCH 

ATTCADR 

0168 

REF 

2 

LAST 

244 

22,3240 

0 5107 

1 

TC 

S P VAC 

0169 

REF 

6 

LAST 

380 

22,3241 

0 5263 

0 

TC 

TASKOVER 
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USER*  S PAGE  NO.  5 


ZERO  MANEUVER  RATES 


SET  OESIRED  GIMBAL  ANGLES  TO 
DESIREO  FINAL  GIMBAL  ANGLES 

NO  FINAt  YAW 

I.E.  MANEUVER  DID  NOT  GO  THRU 
GIMBAL  LOCK  ORIGINALLY 

RESTORE  USFRS  PRIO 
ZERO  ATTCADR 


E6  S3 


RETURN  TO  USER 


GAP: 
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PAGE  382 


L 

000  1 

000  2 

0003 

0004 

U005 

R0006 

R0007 

ROOD  8 
R0010 

R001  1 

A0012 

A0013 

A0014 

A0015 

A0016 

A0017 

R0018 

R0020 

R0021 

0022 

0023 

0024 
002  5 
0026 

002  7 
002  8 
0029 

003  0 
A 003  1 

0032 

0033 

0034 

0035 

0036 

0037 


SYSTEM  TEST  STANDARO  LEAD  INS  USER'S  PAGE  NO.  I FO  S3 


REF 

4 LAST  332 

E5, 1642 

E8 A NK  = 

XSM 

33,2113 

BANK 

33 

REF 

1 

04,2000 

SETLOC 

E/PROG 

04,2617 

BANK 

REF 

1 

COUNT  * 

$ $/P07 

SPECIAL  PROGRAMS  TO  EASE  THE  PANGS  OF  ERASABLE  MEMORY  PROGRAMS. 

E/BKCALL  FOR  DOING  8ANKC ALL  S FROM  AND  RETURNING  TO  ERASABLE. 

THIS  ROUTINE  IS  CALLABLE  FROM  ERASABLE  OR  FIXED.  LIKE  BANKCALL,  HOWEVER,  SWITCHING  BETWEEN  S3  AND  S4 
I S NOT  POSSIBLE. 

THE  CALLING  SEQUENCE  IS: 

TC  BANKCALL 

CADR  E/BKCALL 

CADR  ROUTINE  WHERE  YOU  WANT  TO  GO  IN  FIXED. 

RETURN  HERE  FROM  DISPLAY  TFRMINATE,  BAD  STALL  OR  TC  Q. 

RETURN  HERE  FROM  DISPLAY  PROCEED  OR  GOOD  RETURN  FROM  STALL. 
RETURN  HERE  FROM  DISPLAY  ENTER  OR  RECYCLE. 


THIS  ROUTINE  RFUUIRES  TWO  ERASABLFS  (EBUF2,  +1)  IN  UNSWITCHED  WHICH  ARE  UNSHARED  BY  INTFRRUPTS  AND 
OTHER  EMEMORY  PROGRAMS. 

A + L ARF  PRESERVED  THROUGH  BANKCALL  AND  E/BKCALL. 


REF 

3 

LAST 

255 

04,2617 

52  134 

0 

E/BKCALL 

DXCH 

BUF2 

SAVE  A , L AND  GET  OP  RETURN. 

REF 

1 

04,2620 

53' 167 

1 

DXCH 

EBUF2 

SAVE  DP  RETURN. 

REE 

2 

LAST 

382 

04,2621 

25' 166 

1 

INC  R 

EBUF2 

RETURN  +1  BECAUSE  DOUBLE  CADR. 

REF 

1 1 

LAST 

230 

04,2622 

3 0006 

1 

CA 

BBANK 

REF 

3 

LAST 

316 

04,2623 

7 5003 

0 

MASK 

L0W10 

GET  CURRENT  EBANK.  ( SBANK  SOMEDAY) 

REF 

3 

LAST 

382 

04,2624 

27' 167 

1 

ADS 

EBUF2  +1 

FORM  BBCON.  (WAS  FBANK ) 

REF 

4 

LAST 

382 

04,2625 

51* 166 

1 

NDX 

EBUF2 

04,2626 

2' 7777 

0 

CA 

0 -1 

GET  CADR  OF  ROUTINE. 

REF 

1 

04,2627 

0 4613 

1 

TC 

SWCALL 

GO  TO  ROUTINE,  SETTING  Q TO  SWRETURN 

AND  RESTORING  A + L. 

04,2630 

0 2634 

1 

TC 

+ 4 

TX  Q,  V34 , OR  BAD  STALL  RETURN. 

04,2631 

0 2633 

0 

TC 

L2 

PROCEED  OR  GOOD  STALL  RETURN. 

REF 

5 

LAST 

382 

04,2632 

25'  166 

1 

INCR 

EBUF2 

ENTER  OR  RECYCLE  RETURN. 

REF 

6 

LAST 

382 

04,2633 

25'  166 

1 

INCR 

EBUF2 

REF 

7 

LAST 

382 

04,2634 

53'  167 

1 

E/SWI TCH 

DXCH 

EBUF2 

04,2635 

52  006 

0 

DTCB 

GAP: 
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PAGE  3 83 


L 

SYSTEM 

TEST  STANDARD 

LEAD  INS 

USF R ' S PAGE  NO.  2 E5  S3 

P003  8 

E/CALL 

FOR 

CALL ING  A 

FIXED 

MEMORY  INTERPRETIVE 

SUBROUTINE 

FROM  ERASABLE  AND  RETURNING  TO  ERASABLE. 

R0040 

THE 

CALL ING 

SEQUENCE 

IS.  . . 

A0041 

RTB 

A 004  2 

E/CALL 

A0043 

CADR 

ROUTINE 

THE  INTERPRETIVE  SUBROUTINE  YOU  WANT 

A0044 

RETURNS  HERE  IN  INTERPRETIVE. 

004  5 

REF 

1 

04,2636 

22  164 

1 

E/CALL 

LXCH 

LOC 

AURES  -1  OF  CADR. 

0046 

REF 

33 

LAST 

348 

04,2637 

50  001 

0 

INDEX 

L 

004  7 

REF 

34 

LAST 

383 

04,2640 

3 0001 

0 

CA 

L 

CADR  IN  A. 

004  8 

REF 

35 

LAST 

383 

04,2641 

24  001 

0 

I NCR 

L 

0049 

REF 

36 

LAST 

383 

04,2642 

24  001 

0 

INCR 

L 

RETURN  ADRES  IN  L. 

005  0 

REF 

8 

LAST 

332 

04,2643 

53'  167 

1 

DXCH 

EBUF2 

STORE  CADR  AND  RETURN. 

0051 

REF 

19 

LAST 

377 

04,2644 

0 6060 

1 

TC 

I NTPRET 

0052 

04,2645 

77624 

1 

CALL 

0053 

REF 

9 

LAST 

383 

04, 2646 

01166 

1 

E3UF2 

INDIRECTLY  EXFCUTE  ROUTINE.  IT  MUST 

0054 

04,2647 

77776 

1 

EXIT 

LEAVE  VIA  PVQ  OR  EQUIVALENT. 

0055 

REF 

1C 

LAST 

383 

04,2650 

23' 167 

0 

LXCH 

EBUF2  +1 

PICK  UP  RFTURN. 

0056 

REF 

20 

LAST 

383 

04,2651 

1 6062 

l 

TCF 

INTPRET  +2 

SET  LOC  AND  RETURN  TO  CALLER. 

GAP:  ASSEMBLE  REVISION  210  CF  -AGC  PROGRAM  LUMINARY  8Y  NASA  2021112-L6L 

L SYSTEM  TEST  STANDARD  LEAD  INS 

P0057  F/JOBWAK  FOR  WAKING  UP  ERASABLE  MEMORY  JOBS. 
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LEMONA ID . 1 56  PAGE 
NO.  3 F5  S3 
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R0058  THIS  ROUTINE  MUST  BE  CALLED  IN  INTERRUPT  OR  WITH  INTERRUPTS  INHIBITED. 

R0060  THE  CALLING  SEQUENCE  IS: 


A 006  1 
A0062 
A0063 
A0064 
A0065 
A0066 
A0067 
A0068 
A0069 
A0070 


INHINT 


CA  WAKEAOR  ADDRESS  OF  SLEEPING  JOB 

TC  I BNKC ALL 

CAOR  E/JOBWAK 

. RETURNS  HERE 


RFL INT 


IF  YOU  DID  AN  INHINT. 


0071 

33,2113 

BANK 

33 

0072 

REF 

2 

LAST 

382 

04,2000 

SETLOC 

E/PROG 

0073 

04, 2652 

BANK 

0074 

REF 

2 

LAST 

382  TO 

384: 

27  27* 

COUNT* 

tt/PO 7 

0075 

REF 

1 

04,2652 

0 5130  0 

F/JDBWAK  TC 

JOBWAKE 

ARRIVE  IWTH 

ADRES  IN  A. 

0076 

REF 

17 

LAST 

244 

04,2653 

4 4732  1 

CS 

BITU 

0077 

REF 

l 

04,2654 

50  C64  0 

NDX 

LOCCTR 

0078 

REF 

2 

LAST 

383 

04,2655 

26  164  0 

ADS 

LOC 

KNOCK  FIXED 

MEMORY  BI T OUT 

0079 

REF 

2 

LAST 

158 

04,2656 

0 C072  1 

TC 

RUPTREG3 

RETUR  N 

GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161  17:11  MAR.  19,1971  LEM0NAID.156 

L IMU  PERFORMANCE  TESTS  2 USER'S  PAGE  NO.  1 

R0001  NAME-  IMU  PERFORMANCE  TESTS  2 

R0002  CATE-  MARCH  20,1967 

R0003  BY-  SYSTEM  TEST  GROUP  864-6900  EXT.  1274 

R0004  MOONO.-  ZERO 

R0005  FUNCTIONAL  DESCRIPTION 

R0006  POSITIONING  ROUTINES  FOR  THE  IMU  PERFORMANCE  TESTS  AS  HELL  AS  SOME  OF 
R0007  THE  TESTS  THEMSELVES.  FOR  A DESCRIPTION  OF  THESE  SUBROUTINES  AND  THE 
R0008  OPERATING  PROCEDURES  (TYPICALLY)  SEE  STG  MEMO  685 .THE ORET  I CAL  REF.E-1973 


0009 

33,2113 

BANK 

33 

0010 

REF 

2 

LAST 

46 

37,2000 

SETLOC 

I MU2 

001 1 

37,2002 

BANK 

0012 

REF 

2 

LAST 

132 

E5, 1416 

EBANK= 

POSITON 

0012  1 

REF 

2 

LAST 

46  TO 

46: 

2 

2* 

COUNT* 

$ $ / PO  7 

00122 

REF 

1 

37,  2002 

0 5313 

0 

REDO 

TC 

NEWMODEX 

00124 

3 7,2  003 

00007 

0 

MM 

07 

0021 

REF 

1 

37,2004 

0 2325 

1 

GEOI MUTT 

TC 

I MUZERR 

002  2 

REF 

41 

LAST 

381 

31,2005 

3 4746 

0 

I MUBACK 

CA 

ZERO 

0023 

REF 

2 

LAST 

132 

37,2006 

55 ' 414 

0 

TS 

NDXCTR 

0024 

REF 

1 

37,2007 

55 ' 440 

1 

TS 

TORQNDX 

002  5 

REF 

2 

LAST 

385 

37,2010 

5 5 ' 44 1 

0 

TS 

TORONDX  +1 

0025  1 

REF 

1 

37,2011 

55' 576 

0 

TS 

0 VFLOWCK 

0026 

REF 

1 

37,2012 

3 4352 

1 

NBPOSPL 

CA 

DEC  1 7 

002  7 

REF 

1 

37,2013 

55' 571 

1 

TS 

ZERONDX 

002  8 

REF 

1 

37,2014 

3 2476 

0 

CA 

XNBADR 

0029 

REF 

1 

37,2015 

0 2367 

1 

TC 

ZEROING 

0030 

REF 

3 

LAST 

346 

37,2016 

3 4727 

1 

CA 

HALF 

0031 

REF 

1 

37,2017 

55 '664 

0 

TS 

XNB 

003  2 

REF 

21 

LAST 

383 

37,2,020 

0 6060 

1 

GUESS 

TC 

INTPRET 

003  3 

37,2021 

62545 

1 

LATAZCHK 

DLOAD 

SL2 

0034 

REF 

2 

LAST 

132 

37,2022 

02403 

1 

LATITUDE 

0035 

REF 

14 

LAST 

329 

37, 2023 

15046 

1 

STODL 

DSPTEM1  <-1 

003  6 

REF 

2 

LAST 

132 

37,2024 

02401 

0 

AZIMUTH 

0037 

37,2025 

77434 

1 

RTB 

EXIT 

003  8 

REF 

1 

37,2026 

21624 

1 

l ST02S 

0039 

REF 

68 

LAST 

369 

37,2027 

56  154 

1 

XCH 

MPAC 

0040 

REF 

15 

LAST 

385 

3 1,2030 

55 '044 

1 

TS 

DSPTEM1 

0041 

REF 

l 

37,2031 

3 2473 

0 

CAF 

VN0641 

0042 

REF 

72 

LAST 

377 

37,2032 

0 4607 

1 

TC 

BANKCALL 

0043 

REF 

4 

LAST 

352 

37,2033 

2C471 

1 

CADR 

GOFLASH 

0044 

REF 

1 

37,2034 

0 2270 

0 

TC 

E NOTE  ST  1 

0045 

37,2035 

0 2037 

1 

TC 

+ 2 

0046 

37,2036 

0 2031 

1 

TC 

-5 

PAGE 
FO  S3 
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009  7 

REF 

22 

LAST 

385 

37,2037 

0 6060 

1 

TC 

I NTPRET 

004  8 

37,2040 

47  135 

0 

SLOAD 

RT8 

004  9 

REF 

16 

LAST 

385 

37,2041 

01045 

1 

DSPTEM1 

0050 

REF 

10 

LAST 

369 

37,2042 

21606 

1 

CDULOGIC 

0051 

REF 

3 

LAST 

385 

37,2043 

02401 

0 

STORE 

AZIMUTH 

0052 

37,2044 

6C535 

1 

SLOAO 

SR2 

0053 

REF 

17 

LAST 

386 

37,2045 

01046 

1 

DSPTEM1  U 

0054 

REF 

3 

LAST 

385 

37,2046 

02403 

1 

STORE 

LATITUDE 

0055 

37,2047 

57546 

1 

COS 

DCOMP 

0056 

37,2050 

77  752 

l 

SL1 

005  7 

REF 

1 

37,2051 

16437 

0 

STODL 

WANGI 

0058 

REF 

4 

LAST 

386 

37,2052 

02403 

l 

LATITUDE 

0059 

37,2053 

72556 

1 

SIN 

SL1 

0060 

RFF 

1 

37,2054 

16435 

1 

STODL 

WANGO 

0061 

REF 

4 

LAST 

386 

37,2055 

02401 

0 

AZIMUTH 

006  2 

37,2056 

73406 

1 

PUSH 

SIN 

0063 

REF 

1 

37,2057 

02675 

l 

STORE 

YNB  +2 

0064 

REF 

I 

37,2060 

16705 

1 

STOOL 

ZNB  +4 

0065 

37,2061 

77746 

1 

COS 

0066 

REF 

2 

LAST 

386 

37,2062 

02677 

0 

STORE 

YNB  +4 

006  7 

37,2063 

77676 

0 

DCOMP 

0068 

REF 

2 

LAST 

386 

37,2064 

36703 

0 

POSGMBL 

STCALL 

ZNB  +2 

0069 

REF 

1 

37,2065 

47336 

1 

C ALCGA 

0070 

37,2066 

77776 

1 

EXIT 

007  l 

REF 

73 

LAST 

385 

37,2067 

0 4607 

1 

TC 

BANKCALL 

0072 

REF 

2 

LAST 

281 

37, 2070 

16765 

1 

CAOR 

IMUCOARS 

0073 

REF 

34 

LAST 

305 

37, 2071 

3 4727 

1 

CAF 

BIT14 

0074 

REF 

8 

LAST 

30  2 

37,2072 

7 0077 

0 

MASK 

FLAGWRD3 

0075 

37,2073 

0 0006 

1 

EXTEND 

0076 

37,2074 

1 2076 

0 

BZF 

+ 2 

0077 

KEF 

3 

LAST 

385 

37,2075 

25' 414 

1 

INCR 

NDXCTR 

0078 

RFF 

26 

1 A .1 

352 

37, 2076 

0 5520 

0 

TC 

DOWNFLAG 

0079 

REF 

2 

LAST 

240 

37,2077 

00056 

1 

AURES 

GLOKFAI L 

0080 

REF 

1 

37, 2100 

•0  2315 

1 

TC 

I MUSLLLG 

0081 

REF 

4 

LAST 

386 

37,2101 

11 '414 

0 

CCS 

NDXCTR 

0082 

REF 

t 

37,2102 

0 2126 

0 

TC 

P IPACHK 

0084 

REF 

L 

37,2103 

0 2320 

1 

TC 

F INIMUDD 

0085 

37,2104 

0 0006 

1 

EXTEND 

0085  l 

REF 

1 

37,2105 

3 1575 

1 

OCA 

PERFDLAY 

00852 

REF 

l 

37,2106 

0 5301 

0 

TC 

LONGCALL 

008525 

REF 

3 

LAST 

385 

E5, 1416 

EBANK= 

POSITON 

00853 

REF 

1 

37,2107 

02113 

0 

2CADR 

GOEST IMS 

0085  3 

REF 

1 

37,2110 

76065 

0 

00854 

REF 

1 

37,2111 

3 2116 

0 

CA 

ESTICADR 

00855 

RFF 

1 

37,2112 

0 5 124 

0 

TC 

JOBSLEEP 

00856 

RFF 

2 

LAST 

386 

37,2113 

3 21  16 

0 

GOESTIMS 

CA 

ESTICADR 

00857 

REF 

2 

LAST 

384 

37,2114 

0 5130 

0 

TC 

JOBWAKE 

00858 

REF 

7 

LAST 

38  1 

37, 2115 

0 5263 

0 

TC 

TASKOVER 

00859 

REF 

l 

37,2116 

76500 

0 

ESTICAOR 

CADR 

E ST  I MS 

0086 

REF 

42 

LAST 

385 

37, 21  L7 

3 4746 

0 

TORQUE 

CA 

ZERO 

17:11  MAR.  19,1971 


LEMONAID « 156  PAGE  386 
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IF  BIT14  SET,  GIMBAL  LOCK 

+1  IF  IN  GIMBAL  L OCK , OTHE R W I S E 0 
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0087 

REF 

7 

LAST 

329 

37,2120 

55' 047 

l 

TS 

0SPTEM2 

0088 

REF 

1 

37,2121 

3 1504 

1 

CA 

DRIFTI 

0089 

REF 

8 

LAST 

387 

37,2122 

55 ' 050 

1 

TS 

DSPTEM2  + 

0090 

REF 

4 

LAST 

386 

37,2123 

51 ' 4 16 

0 

INDEX 

POSI TON 

0091 

REF 

2 

LAST 

132 

37,  2124 

55 ' 420 

1 

TS 

SOUTHDR  - 

0092 

REF 

1 

37,2125 

0 2457 

0 

TC 

SHOW 

0093 

REF 

5 

LAST 

386 

37,2126 

5 1 1 4 1 4 

1 

PIPACHK  INDEX 

NDXCTR 

0094 

3 7,2127 

0 2130 

1 

TC 

+ 1 

0095 

REF 

1 

37,2130 

0 2447 

1 

TC 

EARTHR* 

0096 

REF 

2 

LAST 

385 

37,2131 

3 4352 

1 

CA 

DEC17 

0097 

REF 

1 

37,2132 

55' 476 

1 

TS 

DATAPL  +4 

0098 

REF 

1 

37,2133 

3 2474 

1 

CA 

DEC58 

0099 

REF 

2 

LAST 

132 

37, 2134 

55 ' 4 12 

0 

TS 

LENGTHOT 

0100 

REF 

21 

LAST 

379 

37,2135 

3 4744 

1 

CA 

ONE 

0101 

REF 

1 

37,2136 

55' 537 

0 

TS 

RESULTCT 

0102 

REF 

43 

LAST 

386 

37,2137 

3 4746 

0 

CA 

l FRO 

0103 

RFF 

2 

LAST 

132 

37,2140 

51 1 415 

0 

INDEX 

PIPINDEX 

0104 

REF 

5 

LAST 

317 

37,2141 

54  037 

1 

TS 

P IPAX 

0105 

REF 

2 

LAST 

387 

37,2142 

55*472 

0 

TS 

DATAPL 

0106 

REF 

1 

37,2143 

0 2332 

1 

TC 

CHECKG 

0107 

37,2144 

-0  0004 

0 

INHINT 

0108 

REF 

17 

LAST 

379 

37,2145 

3 4743 

0 

CAF 

TWO 

0109 

REF 

1 

37, 2146 

0 5175 

1 

TC 

TWIDDLE 

U110 

REF 

5 

LAST 

382 

E5 , 1642 

EBANK= 

XSM 

0111 

REF 

1 

37,2147 

02151 

0 

ADRES 

P IPATASK 

0112 

REF 

35 

LAST 

380 

37,2150 

0 5146 

1 

TC 

FNDOFJO0 

0113 

37,2151 

0 

0 006 

1 

P IPATASK 

EXTEND 

0114 

REF 

3 

LAST 

387 

37,2152 

27' 412 

0 

DIM 

L ENGTHQT 

0 L l 5 

REF 

4 

LAST 

387 

37,2153 

3 

1412 

1 

CA 

LENGTHOT 

0116 

37,2154 

0 

0006 

1 

EXTEND 

0117 

REF 

1 

37,2155 

6 

2161 

0 

BZMF 

STARTPIP 

0118 

REF 

17 

LAST 

346 

37,2156 

3 

4733 

1 

CAF 

3 I T1 0 

0119 

RFF 

2 

LAST 

337 

3 1,2157. 

0 

5175 

1 • 

TC 

TWIDDLE 

0120 

REF 

6 

LAST 

387 

E5, 1642 

EBANK= 

XSM 

012  1 

REF 

2 

LAST 

387 

37,2160 

02151 

0 

ADRES 

P IPATASK 

0122 

REF 

2 

LAST 

282 

37,2161 

3 

4727 

1 

STARTPIP 

CAF 

P R 1020 

0123 

REF 

14 

LAST 

330 

37, 2162 

0 

5076 

0 

TC 

F INDVAC 

0124 

REF 

7 

LAST 

387 

E5 , 1642 

E B A N K = 

XSM 

0125 

REF 

1 

37,2163 

02166 

1 

2C  ADR 

P IPJOBB 

0125 

REF 

1 

37,2164 

76065 

0 

0126 

REF 

8 

LAST 

386 

37,2165 

0 

5263 

0 

TC 

TASKOVER 

012  7 

REF 

6 

LAST 

387 

37, 2 166 

51 

'414 

1 

PIPJOBB  INDEX 

NDXC TR 

0128 

37,2167 

0 

2170 

0 

TC 

+ 1 

0129 

REF 

2 

LAST 

387 

37,2170 

0 

2447 

1 

TC 

EARTHR* 

0130 

REF 

5 

LAST 

387 

37,2171 

3 

1412 

1 

CA 

LENGTHOT 
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0131 

37,2172 

0 0006 

1 

EXTEND 

0132 

37,2173 

6 2175 

0 

BZMF 

+ 2 

0133 

REF 

36 

LAST 

387 

37,2174 

0 5 146 

l 

TC 

ENDOF JOB 

013  A 

KEF 

7 

LAST 

270 

37,2175 

3 4747 

1 

CA 

F IVE 

0135 

REF 

2 

LAST 

387 

37,2176 

55 ' 537 

0 

TS 

R ESULTCT 

0136 

REF 

2 

LAST 

387 

37,2177 

0 2332 

1 

TC 

CHECKG 

0137 

REF 

3 

LAST 

387 

37,2200 

1 1 ' 4 73 

1 

CCS 

DATAPL  +1 

0138 

37,2201 

0 2205 

l 

TC 

+4 

0139 

REF 

1 

37,2202 

0 5701 

1 

TC 

CCSHOLE 

OlAO 

REF 

A 

LAST 

388 

37,2203 

4 14  76 

1 

CS 

DATAPL  +4 

0 1 A 1 

REF 

5 

LAST 

388 

37,2204 

55*476 

1 

TS 

DATAPL  <-4 

01A2 

37,2205 

0 0006 

1 

EXTEND 

01A3 

REF 

6 

LAST 

388 

37,2206 

4 1473 

1 

DCS 

DATAPL 

OlAA 

REF 

7 

LAST 

388 

37,2207 

21. '4  77 

0 

DAS 

DATAPL  +4 

0 1 A 5 

REF 

23 

LAST 

386 

37, 2210 

0 6060 

1 

TC 

I NTPRET 

01A6 

37,2211 

45345 

1 

DLOAD 

DSU 

0 1A  7 

REF 

8 

LAST 

388 

37,2212 

02501 

1 

DATAPL  +6 

0 1 A 8 

REF 

9 

LAST 

388 

37,2213 

02475 

0 

DATAPL  +2 

0 1A  9 

37,2214 

4 5044 

0 

BPL 

CALL 

0150 

REF 

L 

37,2215 

76217 

1 

A INGOTN 

0151 

REF 

1 

37,2216 

76275 

0 

OVERFFIX 

0152 

37,2217 

56325 

0 

A INGOTN 

PDDL 

DO  V 

0153 

REF 

10 

LAST 

388 

37,2220 

02477 

l 

DATAPL  +4 

015A 

37,2221 

47C75 

0 

DMPR 

RTB 

0155 

REF 

1 

37,2222 

37056 

0 

DEC585 

0156 

RFF 

1 

37,2223 

21622 

1 

SGNAGREE 

0157 

REF 

9 

LAST 

387 

37,2224 

01050 

0 

STORE 

DSPTEM2 

0158 

37, 2225 

77  776 

l 

EXIT 

0159 

REF 

7 

LAST 

387 

37,2226 

1 l ' 4 14 

0 

CCS 

NDXCTR 

0160 

REF 

1 

37,2227 

0 2301 

1 

TC 

COAAL IGN 

0161 

REF 

2 

LAST 

387 

37, 2230 

0 2457 

0 

TC 

SHOW 

0162 

REF 

l 

37,2231 

3 2471 

1 

V ERTDRFT 

CA 

3990DEC 

0163 

REF 

6 

LAST 

387 

37,2232 

55' 412 

0 

TS 

L ENGTHOT 

0 16  A 

REF 

5 

LAST 

387 

37,2233 

51 ' 416 

0 

INDEX 

POSITON 

0165 

REF 

3 

LAST 

387 

37,2234 

4 1417 

0 

CS 

SOUTHDR  -2 

0166 

REF 

1 

37,2235 

55 ' 442 

0 

TS 

DRIFTT 

0166  l 

REF 

3 

LAST 

387 

37,2236 

11 '415 

l 

CCS 

PIP  INDEX 

01662 

REF 

1 

37,2237 

1 2245 

1 

TC  F 

P0N4 

01663 

REF 

18 

LAST 

312 

37,2240 

4 4740 

1 

P0N2 

CS 

B IT5 

0166A 

REF 

1 

37,2241 

27' 565 

1 

ADS 

FRCOMP  F2 

01665 

REF 

19 

LAST 

388 

37,2242 

3 4740 

0 

CA 

BIT5 

01666 

REF 

2 

LAST 

388 

37,2243 

27  • 567 

0 

ADS 

ERCOMP  +4 

0 lo6  7 

REF 

1 

37,2244 

1 2251 

1 

TC  F 

PON 

01668 

REF 

20 

LAST 

388 

37,2245 

4 4740 

l 

PCN4 

CS 

BIT5 

01669 

REF 

3 

LAST 

388 

37,2246 

27' 565 

1 

ADS 

ERCOMP  +2 

016651 

REF 

21 

LAST 

388 

37,2247 

3 4 740 

0 

CA 

B IT5 

016652 

REF 

A 

LAST 

388 

37,2250 

27' 563 

1 

ADS 

ERCOMP 

0167 

REF 

3 

LAST 

387 

37,2251 

0 2447 

1 

PON 

TC 

EARTHR* 
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0168 

REF 

44 

LAST 

387 

37, 2252 

3 4746 

0 

CA 

ZERO 

0169 

REF 

2 

LAST 

132 

37, 2253 

55 ' 4 04 

1 

TS 

ERVECTOR 

017u 

REF 

3 

LAST 

389 

37,2254 

55' 405 

0 

TS 

ERVECTOR  + 

0171 

REF 

4 

LAST 

230 

37, 2255 

3 4724 

1 

GLESSl 

CAF 

POSMAX 

0172 

REF 

3 

LAST 

385 

37,2256 

55*440 

1 

TS 

TORQNDX 

0173 

REF 

4 

LAST 

389 

37,2257 

55*441 

0 

TS 

TORQNDX  +1 

0174 

REF 

10 

LAST 

369 

37,2260 

3 0032 

0 

CA 

C DUX 

0175 

REF 

2 

LAST 

132 

37,2261 

55*413 

1 

TS 

LOSVEC 

0176 

REF 

2 

LAST 

386 

37,2262 

0 2500 

0 

TC 

ESTIMS 

0177 

REF 

1 

37,2263 

3 1502 

1 

VALM  IS 

CA 

DRIFTO 

0178 

REF 

1C 

LAST 

388 

37,2264 

55*050 

1 

TS 

0SPTEM2  +1 

0179 

REF 

45 

LAST 

389 

37,2265 

3 4 746 

0 

CA 

ZERO 

0180 

REF 

11 

LAST 

389 

37,2266 

55' 047 

1 

TS 

DSPTEM2 

0181 

REF 

3 

LAST 

388 

37, 2267 

0 2457 

0 

TC 

SHOW 

0182 

REF 

27 

LAST 

386 

37,2270 

0 

5520 

0 

ENDTEST 1 TC 

DOWNFLAG 

0183 

REF 

3 

LAST 

299 

37,2271 

CCC07 

0 

ADRES 

IMUSE 

0184 

REF 

46 

LAST 

389 

37,2272 

4 

4 7 46 

1 

cs 

Z FRO 

0185 

REF 

2 

LAST 

244 

37,2273 

0 

5316 

0 

TC 

NEWMOOEA 

0186 

REF 

28 

LAST 

352 

37, 2274 

0 

5474 

0 

TC 

ENDEXT 
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0187 

37,2275 

43215 

0 

OVERFFIX  OAO 

DAD 

0188 

REF 

3 LAST  312 

37,2276 

06513 

0 

OPPOSMAX 

0189 

0190 

REF 

1 

37,2277 

37,2300 

37064 

77616 

1 

0 

RVO 

ONEDPP 

0191 

37,2301 

0 0006 

1 

COAALIGN  EXTEND 

0192 

REF 

2 

LAST 

385 

37,2302 

23*571 

0 

OXCH 

ZERONDX 

0193 

REF 

47 

LAST 

389 

37,2303 

3 4 746 

0 

CA 

ZERO 

0194 

REF 

11 

LAST 

317 

37,2304 

54  321 

0 

TS 

THETAD 

0195 

REF 

12 

LAS! 

390 

37,2305 

54  322 

0 

TS 

THETAD  +1 

0196 

REF 

13 

LAST 

390 

37,2306 

54  323 

1 

TS 

THETAD  +2 

0197 

REF 

74 

LAST 

336 

37,2307 

0 460  7 

1 

TC 

BANKCALL 

0198 

RFF 

3 

LAST 

386 

37,2310 

16765 

1 

CADR 

IMUCOARS 

0199 

REF 

75 

LAST 

390 

37,2311 

0 4607 

1 

ALIGNCOA  TC 

BANKCALL 

0200 

REF 

7 

LAST 

345 

37,2312 

1 7 735 

0 

CADR 

IMUSTALL 

0201 

REF 

l 

37,2313 

0 3047 

1 

TC 

S0MERR2 

0202 

REF 

3 

LAST 

390 

37,2314 

0 1571 

0 

TC 

ZERONDX 

0203 

37,2315 

0 C 006 

1 

I MUSLLLG 

EXTEND 

0204 

REF 

4 

LAST 

390 

37,2316 

23' 571 

0 

QXCH 

ZERONDX 

020  5 

REF 

l 

37,2317 

0 2311 

0 

TC 

ALIGNCOA 

0206 

37,2320 

0 0006 

1 

F INIMUDO 

EXTEND 

0207 

REF 

5 

LAST 

390 

37,2321 

23 ' 571 

0 

OXCH 

ZERONDX 

0208 

REF 

76 

LAST 

390 

37,2322 

0 4607 

1 

TC 

BANKCALL 

0209 

REF 

2 

LAST 

285 

37,2323 

17175 

1 

CADR 

I MUF INE 

0210 

REF 

2. 

LAST 

390 

37,2324 

0 2311 

0 

TC 

ALIGNCOA 

021 1 

37,2325 

C OC06 

1 

I MUZERR 

EXTEND 

0212 

REF 

6 

LAST 

390 

37,2326 

2 3 ' 5 7 1 

0 

QXCH 

Z ERONDX 

0213 

REF 

77 

LAST 

390 

37,2327 

0 4607 

1 

TC 

BANKCALL 

0214 

REF 

3 

LAST 

278 

37,2330 

16  701 

0 

CADR 

I MUZERO 

0215 

REF 

3 

LAST 

390 

37,2331 

0 2311 

0 

TC 

ALIGNCOA 

0216 

37, 2332 

0 

0006 

1 

CHECKG 

EXTEND 

0217 

REF 

4 

LAST 

302 

37,2333 

2 3 

•417 

1 

QXCH 

QPLACF 

0218 

37,2334 

0 

2342 

0 

TC 

+ 6 

0219 

37,2335 

0 

0003 

1 

CHECKG1 

RFL I NT 

0220 

REF 

3 

LAST 

276 

37,2336 

3 

0067 

0 

CA 

NEW JOB 

0221 

37,2337 

0 

0006 

1 

EXTEND 

0222 

37,2340 

6 

2346 

1 

BZMF 

+ 6 

0223 

REF 

2 

LAST 

27b 

37,2341 

0 

5 l 13 

1 

TC 

C HANG  1 

0224 

37,2342 

0 

0004 

0 

INHINT 

0225 

REF 

4 

LAST 

388 

37,2343 

51 

•415 

0 

INDEX 

PIPINDEX 

0226 

REF 

6 

LAST 

387 

37,2344 

4 

OC  37 

1 

CS 

P IPAX 

0227 

REF 

7 

LAST 

390 

37,2345 

55 

•571 

1 

TS 

ZERONDX 

0228 

37,2346 

0 

0004 

0 

INHINT 
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0229 

REF 

5 

LAST 

390 

37,2347 

51  • 415 

0 

INDEX 

PIPINDEX 

0230 

REF 

7 

LAST 

390 

37,2350 

3 0037 

0 

CA 

P I PAX 

0231 

REF 

8 

LAST 

390 

37,2351 

6 1571 

0 

AD 

ZERONDX 

0232 

37,2352 

0 OC06 

1 

EXTEND 

023  3 

REF 

1 

37,2353 

1 2335 

1 

BZF 

CHECKG1 

0234 

REF 

6 

LAST 

391 

37,2354 

51 ' 4 15 

0 

INDEX 

PIPINDEX 

0235 

REF 

8 

LAST 

39  1 

37,2355 

3 CC37 

0 

CA 

PIPAX 

0236 

REF 

3 

LAST 

388 

37,2356 

51 ' 537 

1 

INDEX 

RESULTC  T 

023  7 

REF 

1 1 

LAST 

388 

37,2357 

55 ' 472 

0 

TS 

DATAPL 

0238 

REF 

1 

37,2360 

0 4102 

0 

TC 

F INET IMF 

0235 

REF 

4 

LAST 

391 

37,2361 

51 ' 537 

1 

INDEX 

RESULTCT 

0240 

REF 

12 

LAST 

391 

37,2362 

5 5 ' 473 

1 

TS 

DATAPL  +1 

024  1 

REF 

5 

LAST 

391 

37,2363 

5 1 • 537 

1 

INDEX 

RESULTCT 

0242 

REF 

13 

LAST 

391 

37,2364 

23*474 

1 

LXCH 

DATAPL  +2 

0243 

37,2365 

0 0003 

1 

RELINT 

0244 

REF 

5 

LAST 

390 

37,2366 

0 1417 

1 

ENDCHKG  TC 

QPLACE 

0245 

REF 

37 

LAST 

333 

37,2367 

54  001 

1 

ZEROING 

TS 

L 

0246 

37,2370 

1 2372 

1 

TC  F 

+ 2 

0247 

REF 

9 

LAST 

391 

37,2371 

55*571 

1 

ZERO  I NG 1 

TS 

ZERONDX 

0248 

REF 

48 

LAST 

390 

37,2372 

, 3 4746 

0 

CAF 

ZERO 

0249 

REF 

38 

LAST 

391 

37, 2373 

50  001 

0 

INDEX 

L 

0250 

37,2374 

54  COO 

0 

TS 

0 

0251 

REF 

39 

LAST 

39  1 

37,2375 

24  001 

0 

I NCR 

L 

0252 

REF 

10 

LAST 

39  l 

37,2376 

11' 571 

1 

CCS 

ZERONDX 

0253 

REF 

1 

3 7,2377 

1 2371 

1 

TCF 

ZERO  I NG 1 

0254 

REF 

39 

LAST 

378 

37,2400 

0 0002 

0 

TC 

0 
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0258 

37, 2401 

65345 

0 

ERTHR VSE 

OLD  A C 

POOL 

0259 

REF 

1 

37,2402 

37057 

1 

SCHZEROS 

0260 

REF 

5 

LAST 

386 

37,2403 

C2403 

1 

LATITUDE 

0261 

37,2404 

57546 

1 

COS 

OCOMP 

0262 

37,2405 

73525 

1 

PDDL 

S IN 

0263 

REF 

6 

LAST 

392 

37, 2406 

02403 

1 

LATITUDE 

0264 

3 7,2407 

74266 

0 

VDEF 

VXSC 

026  5 

REF 

1 

37,2410 

36001 

0 

OMEG/MS 

0266 

REF 

4 

LAST 

389 

37, 2411 

02405 

1 

STORE 

ERVECTOR 

0267 

37,2412 

77634 

0 

RTB 

0268 

REF 

4 

LAST 

351 

37, 2413 

21603 

1 

LOADTIME 

0269 

REF 

2 

LAST 

132 

37,2414 

26433 

l 

STOVL 

TMARK 

0270 

REF 

2 

LAST 

392 

37,2415 

37057 

1 

SCHZEROS 

0271 

REF 

5 

LAST 

388 

37, 2416 

02564 

1 

STORE 

ER  COM  P 

0272 

37,2417 

77616 

0 

RVQ 

0276 

37,2420 

47C20 

0 

E ART  HR 

ITA 

RTB 

0277 

REF 

4 

LAST 

335 

37,2421 

00051 

0 

S 2 

0278 

REF 

5 

LAST 

39  2 

37,2422 

21603 
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12  501 

0 

STORE 

INTY  +8D, 2 

0141 

37,2707 

42743 

1 

DLOAD* 

DAD* 

0142 

REF 

5 

LAST 

398 

37,2710 

753  14 

0 

ALK  +120,2 

0143 

REF 

3 

LAST 

398 

37,271  L 

75230 

1 

ALDK  +120,2 

0144 

. REF 

6 

LAST 

398 

37, 2712 

1 2463 

0 

STORE 

ALK  + 1 2D , 2 

0145 

37,2713 

42673 

0 

DMPR* 

DAO* 

0146 

REF 

4 

LAST 

39  8 

37,2714 

75216 

0 

DELM  +80,2 

0147 

REF 

5 

LAST 

398 

37, 2715 

75266 

1 

INTY  + 1 6D , 2 

0148 

REF 

6 

LAST 

398 

37,2716 

12511 

1 

STORE 

INTY  +160,2 

0149 

37,2717 

40  743 

0 

DLUAD* 

DMP* 

0150 

REF 

1 

37,2720 

37105 

l 

ALSK  +1,1 

0151 

REF 

5 

LAST 

398 

37,2721 

75216 

0 

DELM  +80,2 

0152 

37,2722 

42772 

0 

SL1R 

DAD* 

0153 

REF 

2 

LAST 

398 

37,2723 

75256 

1 

VLAUN  +80,2 

0154 

REF 

3 

LAST 

398 

3 7,2724 

12521 

1 

STORE 

VLAUN  +8D , 2 

0155 

37,2725 

76104 

0 

T I X , 2 

A XT  , 1 

0156 

REF 

1 

37,2726 

76676 

1 

ALKLP 

0157 

37,2  727 

OCOIO 

0 

8D 

0158 

37,2730 

64743 

0 LOOSE 

DLOAD* 

PDDL* 

0159 

REF 

1 

37,2731 

02523 

1 

ACCWD  +8D , 1 

0160 

REF 

4 

LAST 

398 

37,2732 

02521 

0 

VLAUN  +8D, 1 

0161 

37,2733 

55523 

0 

POOL* 

VDEF 

0162 

REF 

1 

37,2734 

02531 

l 

POSNV  +80,1 

0163 

37,2735 

76521 

0 

MX  V 

VSLl 

0164 

REF 

2 

LAST 

122 

37,2736 

02001 

1 

TRANSMl 
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0165 

37,2737 

77745 

l 

DLOAD 

0166 

REF 

71 

LAST 

397 

37,2740 

00155 

0 

MPAC 

0167 

REF 

2 

LAST 

398 

37,2741 

06531 

0 

STORE 

POSNV  +80 

0168 

37,2742 

77745 

i 

DLOAD 

0169 

REF 

72 

LAST 

399 

37,2743 

00160 

0 

MPAC  +3 

01  TO 

REF 

5 

LAST 

398 

37,2744 

C 6 52 1 

l 

STORE 

VLAUN  +8D 

0171 

37,2745 

77745 

l 

DLOAD 

0172 

REF 

73 

LAST 

399 

37,2746 

00162 

l 

MPAC  +5 

0173 

REF 

2 

LAST 

398 

37,2747 

06523 

0 

STORE 

ACCWD  +80 

0174 

37,2750 

7 7700 

0 

T I X , 1 

0175 

REF 

1 

37,2751 

76730 

1 

LOOSE 

0176 

37,2752 

76  174 

1 

AXT  , 2 

AXT,  1 

0177 

37,2753 

00006 

1 

6 

0178 

37,2754 

OOC02 

0 

2 

0179 

37,2755 

57343 

1 BOOP 

DLOAD* 

DMPR 

0180 

REF 

1 

37,2756 

02503 

0 

ANGX  +2,1 

0181 

REF 

1 

37,2757 

37110 

0 

GEORGEJ 

0182 

37,2760. 

77722 

0 

SR2R 

018  3 

37,2761 

73406 

1 

PUSH 

S IN 

0184 

37,2762 

56072 

1 

SL3R 

XAD,  1 

0185 

REF 

2 LAST  266 

37, 2763 

00046 

0 

X 1 

0186 

37,2764 

10021 

0 

STORE 

160,2 

0187 

37,2765 

77745 

1 

DLOAD 

0188 

37,2766 

77740 

1 

COS 

0189 

37,2767 

10027 

0 

STORE 

22D , 2 

0190 

37,2770 

77704 

1 

T [ X , 2 

0191 

REF 

1 

37,2771 

76755 

1 

BOOP 

0192 

37,2772 

77776 

1 

PERFERAS 

EXIT 

0193 

REF 

2 

LAST 

259 

37,2773 

3 5007 

0 

CA 

EBANK7 

0194 

REF 

L3 

LAST 

34  8 

37,2774 

54  003 

0 

TS 

EBANK 

0195 

REF 

1 

E 7 , 1400 

EBANK 

= A TIG  INC 

0196 

REF 

2 

LAST 

399 

37,2775 

o 

o 

o 

1 

TC 

ATIGINC 

R 0 1 9 7 

CAUT ION 

R0198 

TFE 

erasable 

PROGRAM  THAT  DOES  THE  1 

CALCULATIONS 

MUST 

BE  LOADED 

R0199 

BEFORE 

ANY  ATTEMPT 

IS  MADE 

TO  RUN  THE 

IMU  P t RFURMANC  E 

TEST 

01995 

REF 

5 

LAST 

386 

m 

o 

o 

EBANK 

= AZIMUTH 

0290 

REF 

8 

LAST 

396 

37,2776 

11*412 

0 

CCS 

LENGTHOT 

0291 

RFF 

2 

LAST 

39  5 

37,2777 

0 3034 

0 

TC 

S LEE  P IE 

0292 

REF 

6 

LAST 

395 

37,3000 

11 '440 

1 

CCS 

TORQNDX 

0293 

37,3001 

1 3003 

0 

TC  F 

+ 2 

0294 

REF 

1 

37,3002 

0 3005 

1 

TC 

SETUPER1 

0295 

REF 

1 1 

LAST 

389 

37,3003 

3 0032 

0 

CA 

C DUX 

0296 

REF 

3 

LAST 

389 

37,3004 

55 1 4 14 

0 

TS 

LOSVEC  + 
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, 4 

029  7 

REF 

27 

LAST 

397 

37,3005 

0 6060 

1 

SETUPERl  TC 

I NTPRET 

0290 

37,3006 

65345 

0 

DLOAD 

PDDL 

0299 

REF 

1 

37,3007 

02473 

0 

ANGZ 

0300 

REF 

1 

37,3010 

02477 

1 

ANGY 

0301 

37, 301 1 

55525 

0 

PDDL 

VOEF 

0302 

REF 

2 

LAST 

399 

37,301? 

02501 

1 

A NGX 

0303 

37,3013 

74276 

l 

VCOMP 

VX  SC 

0304 

REF 

2 

LAST 

399 

37,3014 

37110 

0 

GEORGEJ 

0305 

37,3015 

74521 

1 

MX  V 

VSR1 

0306 

REF 

15 

LAST 

39  7 

37,3016 

02643 

1 

XSM 

0307 

REF 

11 

LAST 

393 

37,3017 

C2740 

0 

store 

OGC 

0308 

37,3020 

77776 

1 

EXIT 

0309 

REF 

1 

37,3021 

3 2475 

0 

CA 

OGCPL 

0310 

REF 

80 

LAST 

39  7 

37,3022 

0 4607 

I 

TC 

B ANKCALL 

031  1 

REF 

3 

LAST 

34  5 

37,3023 

17310 

0 

CADR 

IMUPULSE 

0312 

REF 

3 

LAST 

39  2 

37,3024 

0 2315 

1 

TC 

I MUSLLLG 

0313 

REF 

7 

LAST 

399 

37,3025 

T1 '440 

1 

GE0STRT4  CCS 

TORQNDX 

0314 

REF 

1 

37,3026 

0 2263 

1 

TC 

VALMIS 

0315 

RFF 

28 

LAST 

400 

37,3027 

0 6060 

1 

TC 

I NTPRET 

03151 

37,3030 

77624 

1 

CALL 

03152 

REF 

2 

LAST 

395 

37,3031 

76401 

0 

ERTHRVSE 

03153 

37,3032 

77776 

1 

EXIT 

0316 

REF 

1 

37,3033 

0 2117 

1 

TC 

TORQUE 

031  7 

REF 

9 

LAST 

399 

37,3034 

55' 412 

0 SLEEPIE 

TS 

LENGTHOT 

0310 

REF 

8 

LAST 

400 

37,3035 

11 '440 

l 

CCS 

TORQNDX 

0319 

REF 

4 

LAST 

388 

37,3036 

0 2447 

1 

TC 

EARTHR* 

0320 

REF 

37 

LAST 

388 

37,3037 

0 5146 

1 

TC 

ENDOF JOB 

0321 

REF 

2 

LAST 

2 59 

37,3040  ‘ 

3 5005 

1 

SCMEERRR 

CA 

E BANK  5 

0321  1 

REF 

14 

LAST 

399 

37,3041 

54  003 

0 

TS 

EBANK 

03212 

REF 

23 

LAST 

396 

37,3042 

3 4744 

l 

CA 

ONE 

032  13 

REF 

3 

LAST 

396 

37,3043 

55' 576 

0 

TS 

OVFLOWCK 

032  14 

REF 

17 

LAST 

375 

37,3044 

0 5571 

1 

TC 

ALARM 

0322 

37,3045 

01600 

0 

OCT 

1600 

0323 

REF 

3 

LAST 

393 

37, 3046 

0 2270 

0 

TC 

ENDTESTl 

0324 

REF 

l 

37,3047 

3 3054 

0 

SCMERR2 

CAF 

OCT  1 6 0 1 

0325 

REF 

2 

LAST 

190 

37,3050 

0 5740 

1 

TC 

V ARALARM 

0330 

REF 

28 

LAST 

389 

37,3051 

0 5520 

0 

TC 

DOWNFLAG 

033  1 

REF 

4 

LAST 

389 

37,3052 

00007 

0 

ADRES 

I MUSE 

0332 

REF 

38 

LAST 

400 

37,3053 

0 5146 

1 

TC 

ENDOF JOB 

0333 

37,3054 

01601 

1 

OCT1601 

OCT 

01601 

0334 

37,3055 

06200 

0 

DEC585 

OCT 

06200 

0335 

37,3056 

00000 

1 

SCHZEROS 

2DEC 

. 00000000 

0335 

37,3057 

00000 

1 
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0336 

0336 

033  7 

0338 

033  9 

0340 

0341 

0342 

0343 

0344 

0344 

0345 

0345 

0346 

034  7 

0348 

0348 

0349 

0349 

0350 

0350 

035  1 

0351 

0352 

035  2 

0353 

0353 
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37,3060 

00000 

l 

20  EC 

.00000000 

37,3061 

ocooo 

1 

37,3062 

ocooo 

1 

OCT 

00000 

37, 3063 

occoo 

1 ONEDPP 

OCT 

00000 

ORDER  IS  IMPORTANT 

37,3064 

oocoi 

0 

OCT 

00001 

37,3065 

00004 

0 

INTVAL 

OCT 

4 

37,3066 

00002 

0 

OCT 

2 

37,3067 

00220 

1 

DEC 

144 

37,3070 

77776 

1 

DEC 

-1 

37,3071 

35730 

0 

SOUPLY 

2DEC 

. 93505870 

INITIAL 

GAINS  FOR  PIP  OUTPUTS 

37,3072 

00035 

1 

37, 3073 

10317 

0 

2DEC 

. 26266423 

I N I T IAL 

GAINS/4  FOR  ERFCTION  ANGLES 

37,3074 

17550 

1 

37,3075 

0C115 

1 

77DECML 

DEC 

77 

4 LAST  397  37,3076 

01443 

0 

ALXXXZ 

GENAOR 

ALX1S  -1 

37,3077 

04  133 

1 

P IPASC 

2DEC 

. 13055869 

37,3100 

02265 

1 

37,3101 

57223 

0 

VELSC 

2DEC 

-.52223476 

512/980.402 

37,3102  ' 

66451 

1 

37,3103 

05427 

0 

ALSK 

2DEC 

. 17329931 

SSWAY  VFL  GAIN  X 

980.402/4096 

37, 3104 

12577 

1 

37,3105 

77567 

0 

2DEC 

- .00835370 

S S WAY  ACCEL  GAIN 

X 980.402/4096 

37,3106 

44202 

1 

37, 

,3107 

24276 

1 

GEORGEJ 

2DEC 

.63661977 

37, 

,3110 

14066 

1 

37, 

,3111 

23073 

1 

GEC1RGEK 

2DEC 

.59737013 

37, 

,3112 

11773 

1 

GAP: 

L 

ROOO  1 
ROOO  2 
K0003 
R0004 

R0009 

ROOIO 
ROOl  1 
ROOl  2 
ROOl  3 
ROOl  A 
ROOl  5 
ROOl  6 
ROOl  7 
R 0 0 1 8 

R0020 
R0021 
R0022 
R0023 
R002  4 
R0025 


R 002  6 

R0027 

R0028 

R0029 

R0030 

R0031 

R0032 
R0033 
R003  4 
R0035 

R0036 
R003  7 
R0038 
R0039 
R0040 


R0045 

R0046 
R0046C 
R0046 1 
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PINBALL  GAME  BUTTONS  AND  LIGHTS  USER'S  PAGE  NO.  1 EO  S3 

PROGRAM  NAME  - KEYBOARD  AND  DISPLAY  PROGRAM 

MOO  NO  - A DATE  - 27  APRIL  1967  ASSEMBLY  - PINDANCE  REV  18 

MOD  BY  - F1LENE 

LOG  SECTION  - PINBALL  GAME  BUTTONS  AND  LIGHTS 
FUNCTIONAL  DESCK IPT I ON- 

THE  KEYBOARD  AND  DISPLAY  SYSTEM  PROGRAM  OPERATES  UNDER  EXECUTIVE 
CONTROL  AND  PROCESSES  INFORMATION  FXCHANGED  BETWEEN  THE  AGC  AND  THE 
COMPUTER  OPERATOR.  THE  INPUTS  TO  THE  PROGRAM  ARE  FROM  THE  KEYBOARD, 

FROM  INTERNAL  PROGRAMS,  AND  FROM  THE  UPLINK. 

THE  LANGUAGE  OF  COMMUNICATION  WITH  THE  PROGRAM  IS  A PAIR  OF  WORDS 
KNOWN  AS  VERB  AND  NOUN.  EACH  OF  THESE  IS  REPRESENTED  BY  A 2 CHARACTER 
DECIMAL  NUMBER.  THE  VERB  CODE  INDICATES  WHAT  ACTION  IS  TO  BE  TAKEN,  THE 
NOUN  CODE  INDICATES  TO  WHAT  THIS  ACTION  IS  APPLIED.  NOUNS  USUALLY 
REFER  TO  A GROUP  OF  ERASABLE  REGISTERS. 

VERBS  ARE  GROUPED  INTO  DISPLAYS,  LOADS,  MONITORS  (DISPLAYS  THAT  ARE 
UPDATED  ONCE  PER  SECOND),  SPFCIAL  FUNCTIONS,  AND  EXTENDED  VERBS ( THESE 
ARE  OUTSIDE  OF  THE  DOMAIN  OF  PINBALL  AND  CAN  BE  FOUND  UNDER  LOG  SECTION 
: EXTENDED  VERBS: ) . 

A LIST  OF  VERBS  AND  NOUNS  IS  GIVEN  IN  LOG  SECTION  : A S S E M B L Y AND 
OPERATION  INFORMATION:. 


CALLING  SEQUENCES- 
KEYBOARD : 

EACH  DEPRESSION  OF  A KEYBOARD  BUTTON  ACTIVATES  INTERRUPT  KEYRUPT1 
AND  PLACES  THE  5 BIT  KEY  CODE  INTO  CHANNEL  15.  KEYRUPT1  PLACES  THE  KEY 
CODE  INTO  MP AC , ENTERS  AN  EXECUTIVE  REQUEST  FOR  THE  KEYBOARD  AND  DISPLAY 
PROGRAM  (AT  :CHARIN:|,  AND  EXECUTES  A RESUME. 

UPLINK: 

EACH  WORD  RECEIVED  BY  THE  UPLINK  ACTIVATES  INTERRUPT  UPRUPT  WHICH 
PLACES  THE  5 BIT  KEY  CODE  INTO  MPAC,  ENTERS  AN  EXECUTIVE  REQUEST  FOR  THE 
KEYBOARD  AND  DISPLAY  PROGRAM  (AT:CHARIN:>  AND  EXECUTES  A RESUME. 

INTERNAL  PROGRAMS: 

INTERNAL  PROGRAMS  CALL  PINBALL  AT  :NVSUB:  WITH  THE  DESIRED  VERB/NOUN 
C ODE  IN  A (LOW  7 BITS  FOR  NOUN,  NEXT  7 BITS  FOR  VERB).  DETAILS 
DESCRIBED  ON  REMARKS  CARDS  JUST  BEFORE  :NVSUB:  AND  :NVSBWAIT:  (SEE 
SYMBOL  TABLE  FOR  PAGE  NUMBERS). 


NORMAL  EXIT  MODES- 

IF  PINBALL  WAS  CALLED  BY  EXTFRNAL  ACTION,  THFRE  ARE  FOUR  EXITS: 

5 II  ALL  BUT  (2),  (3),  ANO  (A)  EXIT  DIRECTLY  TO  ENDOF JOB . 

2)  EXTENDED  VERBS  GO  TO  THE  EXTENDED  VERB  FAN  AS  PART  OF  THE 


GAP: 
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L 

R004615 

R00462 

R 004 6 3 

R0046  35 

R00464 

R00465 

R00466 

R00467 

R00468 

R0046S 

R0047 
R004  8 
R0049 


R0050 

R0051 

R0052 

R0053 

R0054 

R0055 

R0056 

R0056  1 

R00562 

R00563 

R00564 

R0057 

R0058 


R0059 

R0060 

R0061 

R0062 

R0063 


R0064 

R006  5 
R0066 
R 0 06  7 
R0068 


PINBALL  GAME  BUTTONS  AND  LIGHTS  USFP'S  PAGE  NO.  2 EO  S3 

PINBALL  EXECUTIVE  JOB  WITH  PRIORITY  30000.  IT  IS  THF 
RESPONSIBILITY  OF  THE  EXTENDED  VERB  CALLED  TO  EVENTUALLY 
CHANGE  PRIORITY  (IF  NECESSARY)  AND  DO  AN  ENDOFJOB . 

ALSO  PINBALL  IS  A NOVAC  JOB.  EBANK  SET  FOR  COMMON. 

3)  VERB  37.  CHANGE  OF  PROGRAM  (MAJOR  MODE)  CALLS  :V 37:  IN  THE 
SERVICE  ROUTINES  AS  PART  OF  THE  PINBALL  EXFC  JOB  WITH  PRIO 
30000.  THE  NFW  PROGRAM  CODE  (MAJOR  MODE)  IS  LEFT  IN  A. 

4)  KEY  RELEASE  BUTTON  CALLS  : P I NBRNCH : IN  THE  DISPLAY  INTERFACE 
ROUTINES  AS  PART  OF  THE  PINBALL  EXEC  JOB  WITH  PRIO  30000  IF 
THE  KEY  RELEASE  LIGHT  IS  OFF  AND  : CADRSTOR : IS  NOT  +0. 

IF  PINBALL  WAS  CALLED  BY  INTERNAL  PROGRAMS,  EXIT  FROM  PINBALL  IS  BACK 
TO  CALLING  ROUTINE.  DETAILS  DESCRIBED  IN  REMARKS  CARDS  JUST  BEFORE 
: NVSUB  : AND  :NVSBWAIT:  (SEE  SYMBOL  TABLE  FOR  PAGE  NUMBERS). 


ALARM  OR  ABORT  EXIT  MODES- 
EXTERNAL  INITIATION: 

IF  SOME  IMPROPFK  SEQUENCE  CF  KEY  CODES  IS  DETECTED,  THE  OPERATOR 
ERROR  LIGHT  IS  TURNED  ON  AND  EXIT  IS  TO  : ENDO F JOB : . 

INTERNAL  PROGRAM  INITIATION: 

IF  AN  ILLEGAL  V/N  COMBINATION  IS  ATTEMPTED,  AN  ABORT  IS  CAUSED 
(WITH  OCTAL  01501  ) . 

IF  A SECOND  ATTEMPT  IS  MADE  TO  GO  TO  SLEEP  IN  PINBALL,  AN  ABORT  IS 
CAUSED  (WITH  OCTAL  01206).  THERE  ARE  TWO  WAYS  TO  GO  TO  SLEEP  IN  PINBALL: 

1 ) ENDIDLF  OR  DAT  AW A IT, 

2)  NVSBWAIT  , PRENVBSY,  OR  NVSU8USY. 

CONDITIONS  LEADING  TO  THE  ABOVE  ARE  DESCRIBED  IN  FORTHCOMING  MIT/IL 
E-REPORT  DESCRIBING  KEYBOARD  AND  DISPLAY  OPERATION  FOR  278. 


OUTPUT- 

I NFORMAT I ON  TO  BE  SENT  TO  THE  DISPLAY  PANEL  IS  LEFT  IN  THE  : DSP  TAB  : 
BUFFERS  REGISTERS  (UNDER  EXEC  CONTROL ) . :DSPOUT:  (A  PART  OF  T4RUPD 
HANDLES  THE  PLACING  OF  THE  : DSPTAB : INFORMATION  INTO  OUTPUT  CHANNEL  10 
IN  INTERRUPT. 


ERASABLE  INITIALIZATION- 

FRESH  START  AND  RESTART  INITIALIZE  THE  NECESSARY  E REGISTERS  FOR 
PINBALL  IN  : ST AR T SUB : . REGISTERS  ARE:  DSPTAB  BUFFER,  CADRSTOR, 

REQRFT , CLP  AS  S , DSPLOCK,  MONSAVF,  M0NSAVE1,  VERBREG,  NOUNREG,  DSPLIST, 

OS PC CUNT , NOUT. 

A COMPLETE  LIST  OF  ALL  THE  ERASA6LES  (BOTH  RESERVED  AND  TEMPORARIES)  FOR 


R0069 
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R0070 

PINBALL  IS  GIVEN  BELCH. 

R0071 

THE  FOLLOWING  ARE  OF  GENERAL  INTEREST- 

R007? 

R0073 

REMARKS  CAROS  PRECEDE  THE  REFERENCED  SYMBOL  DEFINITION.  SEE  SYMBOL 
TABLE  TO  FIND  APPROPRIATE  PAGE  NUMBERS. 

R0074 
R0075 
R 0076 
R0077 

NVSUB  CALLING  PCINT  FOR  INTERNAL  USE  OF  PINBALL. 

OF  RELATED  INTEREST  NVSBWAIT 

NVSUBUSY 
PRENVBSY 

R0083 

R0084 

END I DLE  ROUTINE  FOR  INTERNAL  PROGRAMS  WISHING  TO  GO  TO  SLEEP  WHILE 

AWAITING  OPERATORS  RESPONSE. 

R00851 

R00852 

R008525 

R008527 

DSFMM  ROUTINE  BY  WHICH  AN  INTERNAL  PROGRAM  MAY  DISPLAY  A DECIMAL 

PROGRAM  CODE  (MAJOR  MODE)  IN  THE  PROGRAM  (MAJOR  MODE)  LIGHTS. 
(OSPMM  DOES  NOT  DISPLAY  DIRECTLY  BUT  ENTERS  EXEC  REQUEST 
FOR  DSPMMJB  WITH  PRIO  30000  AND  RETURNS  TO  CALLER.) 

R00853 

R00854 

BLANKSUB  ROUTINE  BY  WHICH  AN  INTERNAL  PROGRAM  MAY  BLANK  ANY 

COMBINATION  OF  THE  DISPLAY  REGISTERS  Rl,  R2 , R3. 

R00855 

R00856 

JAMTERM  ROUTINES  BY  WHICH  AN  INTERNAL  PROGRAM  MAY  PERFORM  THE 

JAMPROC  TERMINATE  (V  34)  OR  PROCEED  (V  33)  FUNCTION. 

R0086 

MONITOR  VERBS  FOR  PERIODIC  ( 1 PER  SEC)  DISPLAY. 

R0086 1 
R00862 
R00863 
R00864 

PLEASE  PERFORM,  PLEASE  MARK  SITUATIONS 

REMARKS  DESCRIBING  HOW  AN  INTERNAL  ROUTINE  SHOULD  HANDLE 
THESE  SITUATIONS  CAN  BE  FOUND  JUST  BEFORE  :NVSUB:  (SEE 

SYMBOL  TABLE  FOR  PAGE  NUMBER). 

R0087 

R0088 

THE  NOUN  TABLE  FORMAT  IS  DESCRIBED  ON  A PAGE  OF  REMARKS  CAROS  JUST 
BEFORE  : DSP  ABC : (SEE  SYMBOL  TABLE  FOR  PAGE  NUMBER). 

R0U89 

R00891 

THE  NOUN  TABLES  THEMSELVES  ARE  FOUND  IN  LOG  SECTION  : P l NB ALL  NOUN 
TABLES: . 

R0090 

R0091 

R0092 

FOP  FURTHER  DETAILS  ABOUT  OPERATION  OF  THE  KEYBOARD  AND  DISPLAY  SYSTEM 
PROGRAM,  SEE  THE  MISSION  PLAN  AND/OR  MIT/IL  F-2129 
DESCRIBING  KEYBOARD  AND  DISPLAY  OPERATION  FOR  278. 

RO  150 

THE  FOLLOWING  QUOTATION  IS  PROVIDED  THROUGH  THE  COURTESY  OF  THE  AUTHORS. 

R0151 
RO  15  2 

::IT  WILL  BE  PROVFD  TO  THY  FACE  THAT  THOU  HAST  MEN  ABOUT  THEE  THAT 
USUALLY  TALK  OF  A NOUN  AND  A VERB,  AND  SUCH  ABOMINABLE  WORDS  AS  NO 
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R0155  THE  FCLLOWI NG  ASSIGNMENTS  FOR  PINBALL  ARE  MADE  ELSEWHERE 


R0156 

RESERVED 

FOR  PINBALL  EXECUTIVE 

ACTION 

R0157 

DSPCOUNT 

ERASE 

DISPLAY  POSITION  INDICATOR 

R0158 

CECBRNCH 

ERASE 

+DEC , - DEC,  OCT  INDICATOR 

R0159 

VERBREG 

ERASE 

VER8  CODE 

R0160 

NOUNREG 

ERASE 

NCUN  CODE 

R0161 

XREG 

ERASE 

R 1 INPUT  BUFFER 

R0162 

YREG 

ERASE 

R 2 INPUT  BUFFER 

RO 163 

ZREG 

ERASE 

R3  INPUT  BUFFER 

RO 164 

XREGLP 

ERASE 

LO  PART  OF  XREG  (FOR  DEC  CONV  ONLY) 

RO  16  5 

YREGLP 

ERASE 

LC  PART  OF  YREG  (FOR  DEC  CONV  ONLY) 

RO  16  6 

HI  TEMOUT 

= 

YREGLP 

TEMP  FOR  DISPLAY  OF  HRS,  MIN,  SEC 

RO  16  7 

MUST  = LOTEMOUT- 1. 

R0168 

ZREGLP 

ERASE 

LC  PART  OF  ZREG  (FOR  DEC  CONV  ONLY) 

RO  16  9 

LOTEMOUT 

- 

ZREGLP 

TEMP  FOR  DISPLAY  OF  HRS,  MIN,  SEC 

R0170 

MUST  = HITEMOUT+1. 

RO  17  1 

MODREG 

ERASE 

MODE  CODE 

RO  172 

DSPLOCK 

ERASE 

KEYBOARD/SUBROUTINE  CALL  INTERLOCK 

R0173 

REQRET 

ERASE 

RETURN  REGISTER  FOR  LOAD 

RO  17  4 

LOADSTAT 

ERASE 

STATUS  INDICATOR  FOR  LOADTST 

R0175 

CLPASc 

ERASE 

PASS  INDICATOR  CLEAR 

R 0 1 76 

NOUT 

ERASE 

ACTIVITY  COUNTER  FOR  OSPTAB 

R0177 

NOUNCADR 

ERASE 

MACHINE  CADR  FOR  NOUN 

R0178 

MCNSAVE 

ERASE 

N/V  CODE  FOR  MONITOR.  (=  M0NSAVF1-1) 

RO  17  9 

MONSAVE  1 

ERASE 

NOUNCADR  FOR  MON I TOR  I M AT B S ) =MONSAVE  +1 

RO 1 79  5 

M0NSAVE2 

ERASE 

NVMONOPT  OPTIONS 

R0180 

OSPTAE 

ERASE 

+ 1 3D 

0-10, DISPLAY  PANEL  BUF FER  . 1 1 - 1 3 , C RELAY 

R0181 

CADRSTOR 

ERASE 

ENDIDLE  STORAGE 

R0182 

NVQTEM 

ERASE 

NVSUB  STORAGE  FOR  CALLING  ADDRESS 

R0183 

MUST  = NVBNKTEM-1 

R 0 1 8 4 

NVBNKTEM 

ERASE 

NVSUB  STORAGE  FOR  CALLING  BANK 

RO  18  5 

MUSI  = NVQTEM+1 

R0186 

VERBSAVE 

ERASE 

NEEDED  FOR  RECYCLE 

RO  18  7 

DSPLI ST 

ERASE 

WAITING  RFG  FOR  DSP  SYST  INTERNAL  USE 

R0188 

F XTVB ACT 

REASF 

EXTENDED  VERB  ACTIVITY  INTERLOCK 

RO  189 

DSPTEM1 

ERASE 

+ 2 

BUFFER  STORAGE  AREA  1 (MOSTLY  FOR  TIME) 

RO  190 

DSPTEM2 

ERASE 

+ 2 

BUFFER  STORAGE  AREA  2 (MOSTLY  FOR  DEG) 

RO  19  1 

END  OF  ERASABLES 

RESERVED  FOR 

PINBALL  EXECUTIVE  ACTION 

R0192 

TEMPORARIES  FOR 

P INBALL 

EXECUTIVE  ACTION 

495 
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PIN3ALL 

GAME 

BUTTONS  AND 

LIGHTS 

R0193 

OSEXI  T 

= 

INTB15+ 

RETURN  FOR  DSPIN 

R0 194 

EXITEM 

= 

INTB15+ 

RETURN  FOR  SCALE  FACTOR  ROUTINE  SELECT 

R0195 

BLANK  RE  T 

= 

I NTB15+ 

RETURN  FOR  2 BLANK 

RO 196 

WRCRET 

= 

INTBIT15 

RETURN  FOR  5 BLANK 

R 0 197 

WDRET 

= 

INTBIT15 

RETURN  FOR  OSPWD 

R 0 19  8 

UECKET 

= 

INTBI T15 

RETURN  FOR  PUTCOMIUEC  LOAD) 

R0199 

2 1/22REG 

= 

INTBIT15 

TEMP  FOR  CHARIN 

R0200 

UPDATRET 

= 

POLISH 

RETURN  FOR  UPDATNN,  UPDATVB 

R020  1 

CHAR 

= 

POL  I SH 

TEMP  FOR  CHARIN 

R0202 

ERCNT 

= 

POLISH 

COUNTER  FOR  ERROR  LIGHT  RESET 

R0203 

DECOUNT 

= 

POLISH 

COUNTER  FOR  SCALING  AND  DISPLAY  (DEC) 

R0204 

SGNON 

= 

VBUF 

TEMP  FOR  + ,-  ON 

R0205 

NOUNTEM 

= 

VBUF 

COUNTER  FOR  MIXNOUN  FETCH 

R0206 

01  STEM 

= 

VBUF 

COUNTER  FOR  OCTAL  DISPLAY  VERBS 

R020  7 

OECTEM 

= 

VBUF 

COUNTER  FOR  FETCH  (DEC  DISPLAY  VERBS) 

R0208 

SGNOFF 

VBUF  +L 

TEMP  FOR  + ,-  ON 

R0209 

NVTEMP 

= 

VBUF  +1 

TEMP  FOR  NVSUB 

R0210 

SETEMP1 

= 

VRUF  + L 

STORAGE  FOR  SF  CONST  H!  P ART ( =S FT E MP2- 1 ) 

R021  1 
R0212 

H ITEM  IN 

= 

VBUF  +1 

TEMP  FGR  LOAD  OF  HRS,  MIN,  SEC 
MUST  = LOTEM IN-1 . 

R0213 

CODE 

= 

VBUF  +2 

FOR  DSPIN 

R0214 

SFTEMP2 

= 

VBUF  +2 

STORAGE  FOR  SF  CONST  LO  P ART ( =S FT E MP 1 + 1 ) 

R0215 

R0216 

LOTEM  IN 

VBUF  +2 

TEMP  FOR  LOAD  OF  HRS,  MIN,  SEC 
MUST  = HITEMIN  + 1 . 

R0217 

M I XTEMP 

= 

VBUF  +3 

FOR  MIXNOUN  DATA 

R0218 

SIGNRET 

= 

VBUF  +3 

RETURN  FOR  +,-  ON 

R0219 

ALSO  MIXTEMP+1 

= VBUF +4 , M I XT  EMP  + 2 = VBUF+5. 

R0220 

Entret 

= 

DOT  INC 

EXIT  FROM  ENTER 

R0221 

WDCNT 

= 

DOTRFT 

CHAR  COUNTER  FOR  DSPWD 

R0222 

INREL 

= 

DOTRET 

INPUT  BUFFER  SELECTOR  ( X,Y,Z,  REG  ) 

R0223 

DSPMMTEM 

= 

MATINC 

C SPCOUNT  SAVE  FOR  DSPMM 

R0224 

MI  XBR 

= 

MAT  INC 

INDICATOR  FOR  MIXED  OR  NORMAL  NOUN 

R0225 

TEM1 

ERASE 

EXEC  TEMP 

R0226 

DSREL 

= 

TEM1 

REL  ADDRESS  FOR  DSPIN 

R022  7 

TEM2 

ERASE 

EXEC  TEMP 

R0228 

DSNAG 

= . 

TEM2 

MAGNITUDE  STORE  FOR  DSPIN 

R0229 

IOADDTEM 

= 

TEM2 

MIXNOUN  INDIRECT  ADDRESS  STORAGE 

R0230 

TEM3 

ERASE 

EXEC  TEMP 

R0231 

COUNT 

= 

TEM3 

FOR  DSPIN 

USER' S PAGE  NO.  5 
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PINBALL 

GAME  BUTTONS 

AND  LIGHTS 

R0232 

TEM4 

ERASE 

EXEC  TEMP 

R023  3 

LSTPTR 

= TEM4 

LIST  POINTER  FOR  GRABUSY 

R0234 

RELRET 

= TEM4 

RETURN  FOR  RELDSP 

R0235 

FREERET 

= TFM4 

RF  TURN  FOR  FREEDSP 

R0236 

DSPWDRET 

= TEM4 

RETURN  FOR  DSPSIGN 

R0237 

SEPSCRET 

= TEM4 

RETURN  FOR  SEPSEC 

R0238 

SEPMNRET 

= TEM4 

RETURN  FOR  SEPMIN 

R0239 

TEM5 

ERASE 

EXEC  TEMP 

R0240 

NOUNADD 

= TEM5 

TEMP  STORAGE  FOR  NOUN  ADDRESS 

R0241 

NNADTEM 

ERASF 

TEMP  FOR  NOUN  ADDRESS  TABLE  ENTRY 

R0242 

NNTYPIEM 

ERASE 

TEMP  FOR  NOUN  TYPE  TABLE  FNTRY 

R0243 

I CAD  ITEM 

ERASE 

TEMP  FOR  INDIR  ADRESS  TABLE  ENTRY! MIXNN) 

R 0 24  4 
R0245 

I DA02TEM 

ERASE 

MUST  = IDAD2TEM-1,  = I DAD  3TEM-2 . 

TEMP  FOR  INDIR  ADRESS  TABLE  ENTRY ( M IXNN) 

R0246 

R0247 

IDAD3TEM 

ERASE 

MUST  = ID AD1TEM  + 1 , = I DAD3TEM-1 . 

TEMP  FOR  INDIR  ADRESS  TABLE  ENTRY ( MIXNN) 

R0248 

R0249 

RUTMXTEM 

ERASE 

MUST  = IDAD1TEM+2,  = I DAD2TEM+1 . 

TEMP  FOR  SF  ROUT  TABLE  ENTRYIMIXNN  ONLY) 

R0250 

END  OF  TEMPORARIES  FOR 

PINBALL  EXECUTIVE  ACTION 

R0250  1 

AODITICNAL  TEMPORARIES 

FUR  PINBALL  EXECUTIVE  ACTION 

R02502 

MPAC,  THRU  MP AC  +6 

R02503 
R02504 
R025C  fc 
R02507 
R0250S 

BUF,  +1, 
BUF2,  +1, 
MPTEMP 
ADORWD 
END  OF 

+2 
r +2 

ADDITIONAL  TEMPS  FOR  PINBALL  EXEC  ACTION 

R0251 

RESERVED 

FOR  PINBALL  INTERRUPT  ACTION 

R0252 

DSPCNT 

ERASE 

COUNTER  FOR  DSPOUT 

R0253 

UPLOCK 

ERASE 

RIT1  = UPLINK  INTERLOCK  ( ACT IVATFD  BY 

A0254 

R0255 

END  OF  ERASABLES  RESERVED  FOR  PINBALL  INTERRUPT  ACTION 

17:11  MAR.  19,1971  LEM0NAID.156 
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RECEPTION  OF  A BAD  MESSAGE  IN 


R0256 

TEMPORARIES  FOR 

P INBALL 

R0257 

KEYTEMP1  = 

WAITEXIT 

R0258 

DSRUPTEM  = 

WAITEXIT 

R0259 

KEYTEMP2  = 

PUPTAGN 

R0260 

END  OF  TEMPORAR 

IES  FOR  P 

NTERRUP  T ACTION 

TEMP  FOR 

KEYRUPT, 

UPRUPT 

TEMP  FOR 

DSPOUT 

TEMP  FOR 

KEYRUPT, 

UPRUPT 

NBALL  INTERRUPT 

ACT  ION 

PAGE 
EO  S3 


UPL  INK ) 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161  17:11  MAR.  19,1971  LEM0NAID.156 


L PINBALL  GAME  BUTTONS  AND  LIGHTS 


USER' S PAGE  NO.  7 


P0261 

THE  INPUT  CODES  ASSUMED  FOR  THE  KEYBOARD  ARE 

R0262 

0 

10000 

R0263 

1 

00001 

R0264 

9 

01001 

R0265 

VERB 

10001 

R0266 

ERROR  R F S 1 00 10 

R026  7 

KEY  RLSE 

1 1001 

R0268 

+ 

11010 

R0269 

- 

11011 

R0270 

ENTER 

11100 

R0271 

CLEAR 

11110 

R027  2 

NOUN 

11111 

R0273 

OUTPUT  FORMAT  FUR 

01  SPLAY 

PANEL. 

SET  OUTO  TO  AAAABCCCCCDDODD. 

R0274 

A-S 

SELECT 

A RELAYWORO.  THIS  DETERMINES  WHICH  PAIR  OF  CHARACTERS  ARE 

R0275 

ENERG  IZED. 

R0276 

B FOR  SPECIAL  RELAYS  SUCH 

AS  SIGNS  ETC. 

R0277 

C-S 

5 BIT 

RELAY  CODE  FOR 

LEFT  CHAR  OF  PAIR  SELECTED  BY 

RELAYWORO 

R0278 

D-S 

5 BIT 

RELAY  CODE  FUR 

RIGHTCFAR  OF  PAIR  SELECTED  BY 

RELAYWORD. 

R 027  9 

THE 

PANEL  APPEARS 

AS  FOLLOWS, 

R0280 

MD1 

MD2 

(MAJOR  MODE) 

R028  l 

VD1 

VD2 

I VERB) 

ND1 

ND2 

(NOUN) 

R0282 

R1D1 

R1D2 

R 1 03 

R1D4 

R1D5 

(Rl  ) 

R0283 

R2D1 

R2D2 

R2D3 

R204 

R2D5 

( R 2 ) 

R0284 

R 3D  1 

R3D2 

R3U3 

R3D4 

R 305 

( R3  ) 

R028  5 

EACH 

OF  THESE  IS  GIVEN  A 

DSPCOUNT 

NUMBER  FOR  USE  WITHIN 

COMPUTATION  ONLY 

R0286 

MDl 

25 

R 2D  1 

1 1 

ALL 

ARE  OCTAL 

R0287 

MD2 

24 

R2D2 

10 

R028B 

VD1 

23 

R2D3 

7 

R0289 

VO  2 

22 

R2D4 

6 

R0290 

ND1 

2 1 

R 2D  5 

5 

R0291 

N02 

20 

R3D1 

4 

R0292 

R ID1 

16 

R 30  2 

3 

R0293 

R1D2 

15 

R3D3 

2 

R0294 

R1C3 

14 

R3D4 

1 

R0295 

R 104 

13 

R3D5 

C 

R0296 

R 1 05 

12 

R0297 

THERE 

IS  AN  11 

REGISTER  TABLE 

(DSPTAB)  FOR 

THE  DISPLAY  PANEL 

R0298 

DSPTAB 

REL  AYWD 

BIT  1 1 

BITS 

10-6 

BITS 

5-1 

R0299 

RELADD 

R0300 

10 

1011 

MDl 

(25) 

MD2 

(24) 

R0301 

9 

1010 

VC  1 

(23) 

VD2 

(22  ) 

R0302 

8 

1001 

ND1 

(21) 

ND2 

(20) 

R0303 

7 

1000 

R1D1 

(16) 

PAGE 
FO  S3 
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R0304 

6 

0111 

+ R1 

R1D2 

(15) 

R 1 03 

(14) 

R030  5 

5 

0110 

-R  1 

R 1D4 

( 13) 

R1D5 

( 12  ) 

R0306 

4 

0101 

+ R2 

R201 

( 11) 

R202 

(10) 

R030  7 

3 

0100 

-R2 

R2D3 

(7) 

R2D4 

(6) 

R0308 

2 

0011 

R 205 

(5) 

R3D1 

(4) 

R0309 

1 

0010 

+R3 

R3D2 

(3) 

R3D3 

(2) 

R0310 

0 

0001 

-R3 

R3D4 

( 1 ) 

R305 

(0) 

R0311 

0000 

NO  RELAYHORD 

R0312 

THF  5 

BIT  OUTPUT  RELAY  CODES  ARE 

R0313 

BLANK 

00000 

R0314 

0 

10101 

R0315 

1 

00011 

R0316 

2 

1 1001 

R03 1 7 

3 

11011 

R0318 

4 

01111 

R0319 

5 

11110 

R0320 

6 

11100 

R0321 

7 

10011 

R0322 

8 

11101 

R0323 

9 

11111 

R0323  1 

OUTPUT  BITS  USED  BY  PINBALL: 

P 032  3 2 

KEY  RELEASE  LIGHT 

BIT 

5 

OF 

CHANNEL 

1 1 

R03233 

VERB/NOUN  FLASH 

BIT 

6 

OF 

CHANNEL 

11 

R03234 

OPERATOR  ERROR  LIGHT  - 

BIT 

7 

OF 

CHANNEL 

11 
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P0324  START  OF  EXECUTIVE  SECTION  OF  PINBALL 


ft 


032  5 

0325C1 

REF 

2 

LAST 

0325C2 

032  5 E 

REF 

1 

0330 

REF 

24 

LAST 

0331 

REF 

2 

LAST 

0332 

REF 

1 

0332  1 

REF 

2 

LAST 

03322 

03323 

REF 

1 

03324 

REF 

1 

03325 

REF 

74 

LAST 

03326 

03327 

REF 

2 

LAST 

03328 

REF 

1 

0333 

REF 

75 

LAST 

0334 

REF 

1 

0335 

REF 

97 

LAST 

0336 

033  7 

REF 

1 

0338 

REF 

1 

0339 

REF 

2 

LAST 

0340 

REF 

3 

LAST 

0341 

REF 

4 

LAST 

0342 

REF 

5 

LAST 

0343 

REF 

6 

LAST 

0344 

REF 

7 

LAST 

0345 

REF 

1 

0346 

REF 

2 

LAST 

034  7 

REF 

2 

LAST 

0346 

REF 

3 

LAST 

0349 

RFF 

4 

LAST 

0350 

REF 

5 

LAST 

0351 

REF 

6 

LAST 

0352 

REF 

7 

LAST 

0353 

REF 

8 

LAST 

0354 

REF 

1 

0355 

REF 

1 

0356 

RFF 

8 

LAST 

0357 

REF 

9 

LAST 

0358 

REF 

10 

L as  r 

0359 

REF 

1 1 

LAST 

0360 

REF 

12 

LAST 

0361 

REF 

13 

LAST 

0362 

REF 

1 

0363 

REF 

1 

311 

40,2057 

40,2000 

40,2057 

400 

40,2057 

3 

4744 

1 

233 

40,2060 

57 1 01 1 

0 

40,2061 

54  115 

0 

233 

40,2062 

11 

' C41 

1 

40,2063 

0 

2065 

0 

40,2064 

0 

2072 

0 

40,2065 

4 

2136 

0 

399 

40,2066 

6 

0154 

1 

40,2067 

0 

0006 

1 

410 

40,2070 

1 

2072 

1 

40,2071 

0 

4365 

0 

410 

40,2072 

56 

i 154 

1 

40,2073 

54 

i 117 

1 

396 

40,2074 

5C 

l COO 

l 

40,2075 

0 

2076 

1 

40,2076 

0 

3463 

0 

40,2077 

0 

2155 

1 

410 

40,2  100 

0 

2155 

1 

410 

40,2101 

0 

2155 

1 

410 

40, 2 102 

0 

2 155 

l 

410 

40,2103 

0 

2155 

1 

410 

40,2104 

0 

2 155 

1 

410 

40,2105 

0 

2155 

1 

40,2106 

0 

2141 

1 

410 

40,2107 

0 

2 141 

1 

410 

40,2110 

0 

3463 

0 

410 

40,2111 

0 

3463 

0 

410 

40,2112 

0 

3463 

0 

410 

40,2113 

0 

3463 

0 

410 

40,2114 

0 

3463 

0 

410 

40,2  115 

0 

3463 

0 

410 

40,2116 

0 

2153 

1 

40,2117 

0 

2343 

1 

40,2120 

0 

3 646 

0 

410 

40,2 121 

0 

3463 

0 

410 

40,2122 

0 

3463 

0 

4 10 

40,2  123 

0 

3463 

0 

410 

40,2124 

0 

3463 

0 

410 

40,2125 

0 

3463 

0 

410 

40,2126 

0 

3463 

0 

40,2127 

0 

3517 

1 

40,2130 

0 

2376 

1 
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BANK 

40 

SFTLOC 

BANK 

P INBALL  1 

count# 

$ S/PIN 

CAF 

ONE 

BLOCK  DISPLAY  SYST 

XCH 

DSPLOCK 

MAKF  DSP  SYST  BUSY,  BUT  SAVE  OLD 

TS 

2 1/22REG 

C ( DSP  LOCK ) FOR  ERROR  LIGHT  RESET. 

CCS 

C ADRSTOR 

ALL  KEYS  EXCEPT  ER  TURN  ON  KR  LITE  IF 

TC 

+ 2 

CADRSTOR  IS  FULL.  THIS  REMINDS  OPE  RAT 1 

TC 

CHARI N2 

TO  RE-ESTABLISH  A FLASHING  DISPLAY 

CS 

FLRC0DE1 

WHICH  HF  HAS  OBSCURED  WITH  DISPLAYS  OF 

AD 

MPAC 

HIS  OWN  (SEE  REMARKS  PRECEDING  ROUTINE 

EXTEND 

VBRELDSP ) . 

BZF 

CHAR IN2 

TC 

RELDSPON 

XCH 

MPAC 

TS 

CHAR 

INDEX 

A 

TC 

+ 1 

INPUT  CODE  FUNCTION 

TC 

CHARALRM 

0 

TC 

NUM 

l 

TC 

NUM 

2 

TC 

NUM 

3 

TC 

NUM 

4 

TC 

NUM 

5 

TC 

NUM 

6 

TC 

NUM 

7 

TC 

89TEST 

10  8 

TC 

89TEST 

11  9 

TC 

CHARALRM 

12 

TC 

CHARALRM 

13 

TC 

CHARALRM 

14 

TC 

CHARALRM 

15 

TC 

CHARALRM 

16 

TC 

CHARALRM 

1 7 

TC 

NUM  -2 

20  0 

TC 

VERB 

21  VERB 

TC 

ERROR 

22  ERROR  LIGHT  RE S FT 

TC 

CHARALRM 

23 

TC 

CHARALRM 

24 

TC 

CHARALRM 

25 

TC 

CHARALRM 

26 

TC 

CHARALRM 

27 

TC 

CHARALRM 

30 

TC 

VBRELDSP 

31  KEY  RELEASE 

TC 

POSGN 

32  + 
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0364 

REF 

1 

40,2131 

0 

2363 

0 

TC 

NEGSGN 

0365 

REF 

I 

40,2132 

0 

2137 

0 

TC 

ENTER JMP 

0366 

REF 

14  LAST  410 

40,2133 

0 

3463 

0 

TC 

CHAR ALRM 

0367 

REF 

L 

40,2134 

0 

2456 

1 

TC 

C LEAR 

0368 

REF 

1 

40,2135 

0 

2357 

1 

TC 

NOUN 

036  8 5 

40,2136 

00022 

1 

ELRC0DE1 

OCT 

22 

0369 

REF 

18 

LAST 

311 

40,2137 

0 4626 

1 

ENTER JMP 

TC 

POST  JUMP 

0370 

REF 

1 

40,2140 

62022 

0 

CADR 

ENTER 

037  1 

REF 

3 

LAST 

234 

40,2141 

10  776 

0 

89TEST 

CCS 

DSPCOUNT 

0372 

40,2142 

0 2146 

0 

TC 

+ 4 

0373 

40,2143 

0 2146 

0 

TC 

+ 3 

0374 

REF 

39 

LAST 

400 

40, 2144 

0 5146 

1 

TC 

ENDOFJOB 

0375 

REF 

40 

LAST 

41  1 

40,2145 

0 5146 

1 

TC 

ENDOF JOB 

0376 

REF 

4 

LAST 

35  l 

40,2146 

3 6266 

0 

CAF 

THREE 

0377 

REF 

1 

40,2147 

7 0777 

1 

MASK 

DECBRNCH 

0378 

REF 

98 

LAST 

410 

40,2  150 

10  COO 

0 

CCS 

A 

03  79 

REF 

9 

LAST 

410 

40,2151 

0 2155 

1 

TC 

NUM 

0380 

REF 

15 

LAST 

411 

40,2152 

0 3463 

0 

TC 

C HAR  ALRM 

R038  1 

NUM  ASSEMBLES 

OCTAL 

3 BITS  AT 

A TIME 

. FOR  DECIMAL 

IT  CONVERTS  INCOMING 

R0382 

WORD 

AS 

A FRACTION, 

KEEPING  RESULTS 

TO  DP. 

R0383 

OCTAL 

RESULTS 

ARE  LEFT  IN  XREG , YRFG 

, OR  ZREG 

. HI 

PART 

OF  DEC  IN  XREG, 

R0384 

YREG  , 

ZREG.  THE  LCJW 

PARTS  IN 

XREGLP , 

YREGLP , 

CR  ZREGLP) 

R0385 

DECBRNCH 

IS  LF  FT  AT 

+0  FOR  OCT,  +1  FOR  + DEC, 

+ 2 

FOR  - 

DEC. 

R0386 

IF  DSPCOUNT  WAS  LEFT 

-,  NO  MORE  CATA 

IS  ACCEPTED. 

0387 

REF 

53 

LAST 

396 

40,2153 

3 4746 

0 

CAF 

ZERO 

0388 

REF 

2 

LAST 

4 10 

40,2154 

54  117 

1 

TS 

CHAR 

0389 

REF 

4 

LAST 

411 

40,2155 

10  776 

0 NUM 

CCS 

DSPCOUNT 

0390 

40,2156 

0 2162 

0 

TC 

F4 

0391 

40,2157 

0 2 162 

0 

TC 

+ 3 

0392 

40,2160 

0 2161 

0 

TC 

+ 1 

0393 

REF 

41 

LAST 

41  l 

40,2161 

0 5 146 

1 

TC 

ENDOFJOB 

0394 

REF 

1 

40,2162 

0 2313 

1 

TC 

GETINREL 

0395 

REF 

2 

LAST 

233 

40, 2163- 

1 1 1 0 14 

1 

CCS 

CLPASS 

0396 

REF 

54 

LAST 

411 

40,2164 

3 4 746 

0 

CAF 

ZERO 

039  7 

REF 

3 

LAST 

411 

40,2165 

55  ’ 014 

1 

TS 

CLPASS 

0398 

40,2166 

0 2167 

0 

TC 

+ 1 

0399 

REF 

3 

LAST 

411 

40,2167 

50  117 

0 

INDEX 

CHAR 

040  0 

REF 

2 

LAST 

167 

40,2170 

3 4C66 

0 

CAF 

RELTAB 

0401 

REF 

1 

40,2171 

7 4337 

0 

MASK 

L0W5 

040  2 

REF 

1 

40,2172 

54  124 

1 

TS 

CODE 

040  3 

REF 

5 

LAST 

411 

40,2173 

3 C 776 

1 

CA 

DSPCOUNT 

0404 

REF 

1 

40,2174 

54  143 

0 

TS 

COUNT 

040  5 

REF 

1 

40,2175 

0 3351 

0 

TC 

DSPIN 

0406 

REF 

5 

LAST 

411 

40,2176 

3 6266 

0 

CAF 

THREE 

33 

- g 

34 

ENTER 

35 

36 

CLEAR 

37 

NOUN 

+ 0 

- BLOCK  DATA  IN  IF  DSPCOUNT  IS  - OR  -0 
-0 


IF  DECBRNCH  IS  +,  8 OR  9 OK 
IF  DECBRNCH  IS  +0,  RFJECT  8 OR  9 


+0 

-BLOCK  DATA  IN  IF  DSPCOUNT  IS  - 
-0 

IF  CL  PASS  IS  + OR  +0,  MAKE  IT  +0. 


V 
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040  7 

REF 

2 

LAST 

411 

40,2177 

7 C 7 77 

1 

MASK 

DECBRNCH 

040  8 

REF 

99 

LAST 

411 

40,2200 

10  000 

0 

CCS 

A 

0409 

REF 

1 

40,2201 

0 2212 

1 

TC 

DECTOB I N 

0410 

REF 

1 

40,2202 

50  137 

1 

INDEX 

INREL 

041  1 

REF 

2 

LAST 

233 

40,2203 

57 1 000 

0 

XCH 

VERBREG 

0412 

REF 

1 

40,2204 

54  022 

0 

TS 

CYL 

0413 

RFF 

2 

LAST 

412 

40,2205 

4 0C22 

0 

CS 

CYL 

0414 

REF 

3 

LAST 

412 

40,2206 

4 0022 

0 

CS 

CYL 

0415 

REF 

4 

LAST 

412 

40,2207 

56  C 22 

1 

XCH 

CYL 

0416 

REF 

4 

LAST 

411 

40,2210 

6 0117 

0 

AO 

CHAR 

041  1 

REF 

1 

40,2211 

0 2227 

1 

TC 

ENDNMTST 

041  8 

REF 

2 

LAST 

412 

40,2212 

50  137 

1 

DECTOB IN 

INDEX 

I NREL 

041  9 

REF 

3 

LAST 

412 

40,2213 

57' COO 

0 

XCH 

VERBREG 

042  0 

REF 

76 

LAST 

410 

40,2214 

54  154 

0 

TS 

MPAC 

042  l 

REF 

55 

LAST 

41  1 

40,2215 

3 4746 

0 

CAF 

ZERO 

0422 

REF 

77 

LAST 

412 

40,2216 

54  155 

1 

TS 

MPAC 

042  3 

REF 

4 

LAST 

233 

40,2217 

3 4354 

1 

CAF 

TEN 

0424 

REF 

1 

40,2220 

0 7330 

0 

TC 

SHORTMP 

0425 

REF 

78 

LAST 

412 

40,2221 

56  155 

0 

XCH 

MPAC 

0426 

KEF 

5 

LAST 

412 

40,2222 

6 C 1 1 7 

0 

AU 

CHAR 

042  7 

REF 

79 

LAST 

412 

40,2223 

54  155 

1. 

TS 

MPAC 

042  8 

REF 

2 

LAST 

412 

40,2224 

0 222  7 

1 

TC 

ENDNMTST 

. 0429 

REF 

80 

LAST 

4 L 2 

40,2225 

26  154 

0 

ADS 

MPAC 

0430 

REF 

1 

40,2226 

0 2245 

0 

TC 

DECCEND 

0431 

REF 

3 

LAST 

412 

40,2227 

50  137 

1 

ENDNMTST 

INDEX 

INREL 

043  2 

REF 

4 

LAST 

412 

40,2230 

55 '000 

1 

TS 

VERBREG 

0433 

RFF 

6 

LAST 

411 

40,2231 

4 C 7 76 

0 

CS 

DSPCOUNT 

0434 

REF 

4 

LAST 

412 

40,2232 

50  137 

1 

INDEX 

INREL 

043  5 

REF 

1 

40,2233 

6 2304 

1 

AD 

CRITCON 

0436 

40,2234 

0 0006 

1 

EXTEND 

043  7 

REF 

1 

40,2235 

l 2237 

1 

BZF 

ENDNUM 

043  8 

REF 

1 

40,2236 

0 2301 

1 

TC 

MORNUM 

0439 

REF 

6 

LAST 

41  1 

40,2237 

3 6266 

0 

ENONUM 

CAF 

THREE 

044  0 

REF 

3 

LAST 

412 

40,2240 

7 0777 

1 

MASK 

DECBRNCH 

044  1 

REF 

LOO 

LAST 

412 

40,2241 

10  000 

0 

CCS 

A 

044  2 

REF 

2 

LAST 

412 

40,2242 

0 2245 

0 

TC 

DECCEND 

044  3 

REF 

7 

LAST 

412 

40,2243 

4 C 7 76 

0 

ENOALL 

CS 

DSPCOUNT 

0444 

REF 

2 

LAST 

412 

40,2244 

0 2302 

1 

TC 

MORNUM  h 

044  4 2 

REF 

81 

LAST 

40  0 

40, 2245 

0 4607 

1 

DECCEND 

TC 

BANKCALL 

0444  3 

REF 

1 

40,2246 

60250 

0 

CADR 

DECEND 

044  4 4 

REF 

1 

40,2247 

0 2243 

0 

TC 

ENOALL 

044  5 

REF 

25 

LAST 

4 10 

40,2250 

4 4744 

0 

DECFNO 

CS 

ONF 

0446 

RFF 

5 

LAST 

412 

40,2251 

6 C 13  7 

1 

AD 

INREL 

044  7 

40, 2252 

0 0006 

1 

EXTEND 

044  8 

REF 

2 

LAST 

412 

40,2253 

6 2243 

0 

BZMF 

ENOALL 

044  8 1 

REF 

2 

LAST 

4 l 1 

40,2254 

0 2313 

1 

TC 

GET  INREL 

044  3 2 

REF 

6 

LAST 

4 12 

40, 2255 

5C  137 

1 

INDEX 

I NREL 

04483 

REF 

5 

LAST 

412 

40,2256 

3 1000 

0 

CA 

VERBREG 

044  8 4 

REF 

81 

LAST 

412 

40,2257 

54  155 

1 

TS 

MPAC  +1 

0449 

REF 

1 

40,2260 

0 7124 

1 

TC 

DMP 
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+0,  OCTAL.  +1,  + DEC.  +2 , - DEC. 

+ 

+0  OCTAL 


SUM  X 2EXP-14  IN  MPAC 


10  X 2FXP-14 

1 0 SUM  X 2EXP-28  IN  MPAC,  MPAC+1 


NO  OF 

OF  MUST  BE  5TH  CHAR 


-0,  DSPCOUNT  = CRITCON 
- , DSPCOUNT  G/  CRITCON 


BLOCK  NUMIN  BY  PLACING  DSPCOUNT 
NEGATIVELY 


IF  INREL=0,1(VBREG,NNREG) , LEAVE  WHOLF 


IF  INREL =2,3, 4(Rl ,R2, R3) , CONVERT  TO  FRAC 
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A0450 

MULT  SUM  X 2EXP-28  IN  MPAC,  MPAC+L  BY 

045  1 

REF 

1 

40,2261 

02311 

0 

ADRES 

DECON 

2EXP14/10EXP5.  GIVES! SUM/10EXD5 IX2EXP 

0452 

REF 

7 

LAST 

412 

40,2262 

3 6266 

0 

CAF 

THREE 

IN  MPAC,  +1,  +2. 

0453 

REF 

4 

LAST 

4 12 

40,2263 

7 C 7 7 7 

1 

MASK 

D ECBRNCH 

0454 

REF 

101 

LAST 

412 

40,2264 

50  000 

1 

INDEX 

A 

0455 

40,2265 

0 2265 

1 

TC 

+ 0 

045  6 

REF 

1 

40,2266 

0 2272 

1 

TC 

+DECSGN 

045  7 

40,2267 

0 0006 

1 

EXTEND 

- CASE 

0458 

REF 

82 

LAST 

412 

40,2270 

4 0156 

1 

DCS 

M P AC  +1 

0459 

REF 

83 

LAST 

413 

40,2271 

52  156 

1 

DXCH 

MPAC  +1 

0460 

REF 

84 

LAST 

413 

40,2272 

56  156 

0 

+OECSGN 

XCH 

MPAC  + 2 

0461 

REF 

7 

LAST 

412 

40,2273 

50  137 

1 

INOEX 

I NREL 

046  2 

REF 

1 

40,2274 

55 • 003 

1 

TS 

XREGLP  -2 

0463 

REF 

85 

LAST 

413 

40,2275 

56  155 

0 

XCH 

MPAC  +1 

0464 

REF 

8 

LAST 

413 

40, 2276 

50  137 

1 

INDEX 

I NREL 

0465 

REF 

6 

LAST 

412 

40,2277 

55 ' 000 

1 

TS 

VERBREG 

046  6 

REF 

3 

LAST 

340 

40, 2300 

0 4622 

0 

TC 

SWRETURN 

046  7 

REF 

8 

LAST 

412 

40,2301 

10  776 

0 

MGRNUM 

CCS 

DSPCOUNT 

DECRFMENT  OSPCOUNT 

046  8 

REF 

9 

LAST 

413 

40,2302 

54  776 

0 

TS 

DSPCOUNT 

0469 

REF 

42 

LAST 

411 

40,2303 

0 5 146 

1 

TC 

ENDOF  JOB 

0470 

40,2304 

C0022 

1 

CRITCON 

OCT 

22 

(DEC  18) 

0471 

40,2305 

00020 

0 

OCT 

20 

(DEC  16) 

0472 

40,2306 

0C012 

1 

OCT 

12 

(DEC  10) 

0473 

40,2307 

00005 

1 

OCT 

5 

0474 

40,2310 

00000 

1 

OCT 

0 

0475 

40,2311 

05174 

0 

DECON 

2DEC 

E-5  B 14 

2EXPI 4/10EXP5  = .16384  DEC 

0475 

40,2312 

L3261 

0 

R0476 

GETINREL 

GETS 

PROPER 

DATA  REG 

REL  ADDRESS  FOR  CURRENT 

C(DSPCOUNT)  AND 

R0477 

PUTS 

IN  1 

( NT 0 

I NREL  . 

+0  VERBREG 

1,  1 NOUNREG,  2 XR EG , 3 

YREG , 4 ZR EG . 

0478 

REF 

10 

LAST 

413 

40,2313 

50  776 

l 

GETINREL  INDEX  DSPCOUNT 

0479 

REF 

1 

40,2314 

3 231  7 

0 

CAF 

I NRELTAB 

0480 

REF 

9 

LAST 

413 

40,2315 

54  13  7 

0 

TS 

I NREL 

(A  TEMP,  REG) 

048  l 

REF 

41 

LAST 

393 

40, 2316 

0 CC02 

0 

TC 

Q 

0482 

40,2317 

0CC04 

0 

INRF.LTAB  OCT 

4 

R3D5  (DSPCOUNT 

= 0) 

0483 

40,2320 

00C04 

0 

OCT 

4 

R 3 04 

= ( 1) 

048  4 

40,2321 

00  C 04 

0 

OCT 

4 

R3D3 

= ( 2 ) 

0485 

40,2322 

00004 

0 

OCT 

4 

R3D2 

= ( 3) 

048  6 

40,2323 

00C04 

0 

OCT 

4 

R3DI 

= ( 4 ) 

048  7 

40,2324 

00003 

1 

OCT 

3 

R2D5 

= ( 5) 

048  8 

40,2325 

00003 

1 

OCT 

3 

R2D4 

= ( 6 ) 

0489 

40,2326 

0CC03 

1 

OCT 

3 

R2D3 

= ( 7) 

0490 

40,2327 

00003 

1 

OCT 

3 

R2D2 

= ( 80 ) 

0491 

40,2330 

0CC03 

1 

OCT 

3 

R2D1 

= < 9D) 

049  2 

40,2331 

00002 

0 

OCT 

2 

R1D5 

= ( 10D 
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0493 

40,2332 

0CC02 

0 

OCT 

2 

0494 

40,2333 

0CC02 

0 

OCT 

2 

0495 

40,2334 

00002 

0 

OCT 

2 

0496 

40,2335 

CCC02 

0 

OCT 

2 

049  7 

REF 

2 LAST  388 

40, 2336 

0 5701 

l 

TC 

CCSHOLF 

049  8 

40,2337 

00C01 

0 

OCT 

1 

0499 

40,2340 

OOCOl 

0 

OCT 

1 

0500 

40,2341 

OOCOO 

l 

OCT 

0 

0501 

40,2342 

COCOO 

1 

OCT 

0 

0502 

RFF 

56 

LAST 

412 

40, 2343 

3 4 746 

0 

VERB 

CAF 

ZERO 

0503 

REF 

7 

LAST 

413 

40,2344 

55 ' 000 

1 

TS 

VERBREG 

0504 

REF 

2 

LAST 

234 

40, 2345 

3 4351 

1 

CAF 

V01 

0505 

REF 

1 1 

LAST 

413 

40,2346 

54  776 

0 

NVCOM 

TS 

DSPCUUNT 

0506 

REF 

1 

40,2347 

0 2570 

1 

TC 

2 BLANK 

0507 

REF 

26 

LAST 

412 

40,2350 

3 4 744 

1 

CAF 

ONE 

0508 

KEF 

5 

LAST 

413 

40,2351 

54  777 

1 

TS 

OECBRNCH 

0509 

REF 

57 

LAST 

4 14 

40,2352 

3 4746 

0 

CAF 

ZERO 

0510 

REF 

2 

LAST 

233 

40,2353 

55 ' 012 

1 

TS 

REQRET 

051  l 

REF 

l 

40, 2354 

3 4210 

0 

CAF 

ENDINST 

0512 
A051  3 

REF 

l 

40,2355 

54  136 

l 

TS 

ENTRET 

0514 

REF 

43 

LAST 

413 

40,2356 

0 5146 

1 

TC 

ENDOF JOB 

0515 

REF 

58 

LAST 

414 

40,2357 

3 4746 

0 

NOUN 

CAF 

ZERO 

0516 

REF 

7 

LAST 

316 

40,2360 

55 ' 001 

0 

TS 

NOUNREG 

0517 

REF 

2 

LAST 

393 

40, 2361 

■3  4352 

1 

CAF 

NO  1 

0518 

REF 

l 

40,2362 

0 2346 

l 

TC 

NVCOM 

0519 

REF 

1 

40,2363 

0 

2435 

1 

NEGSGN 

TC 

S IGNTEST 

0520 

REF 

1 

40,2364 

0 

2422 

1 

TC 

-ON 

0521 

REF 

18 

LAST 

387 

40,2365 

3 

4743 

0 

CAF 

TWO 

0522 

REF 

10 

LAST 

413 

40,2366 

50 

137 

1 

BOTHSGN 

INDEX 

I NREL 

0523 

REF 

19 

LAST 

270 

40,2367 

6 

4736 

1 

AD 

B IT7 

0524 

REF 

6 

LAST 

414 

40,2370 

26 

777 

1 

ADS 

OECBRNCH 

0525 

REF  . 

4 

LAST 

41  1 

40,2371 

l 1 

' 014 

1 

F IXCLPAS 

CCS 

CLPASS 

0526 

REF 

59 

LAST 

414 

40,2372 

3 

4 746 

0 

CAF 

ZERO 

052  7 

REF 

5 

LAST 

414 

40,2373 

55 

■014 

1 

TS 

CLPASS 

0528 

40,2374 

0 

2375 

1 

TC 

+ l 

0529 

REF 

44 

LAST 

414 

40,2375 

0 

5 146 

1 

TC 

E NOOF  JOB 

0530 

REF 

2 

LAST 

414 

40,2376 

0 

2435 

1 

POSGN 

TC 

S IGNTEST 

0531 

REF 

1 

40,2377 

0 

2402 

0 

TC 

+ 0N 

053  2 

REF 

27 

LAST 

414 

40,2400 

3 

4744 

1 

CAF 

ONE 

0533 

REF 

1 

40,2401 

0 

2366 

0 

TC 

BOTHSGN 

0534 

REF 

42 

LAST 

413 

40,2402 

22 

002 

0 

+ CJN 

LXCH 

Q 

0535 

REF 

3 

LAST 

412 

40,2403 

0 

2313 

1 

TC 

GETINREL 

0536 

REF 

1 l 

LAST 

414 

40,2404 

50 

137 

1 

INDEX 

I NRFL 
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R1D4 
R1  03 
R 102 
R101 

NO  DSPCOUNT 

N02 

NO  1 

VD2 

VD1 


=(110) 

=(120) 

=( 130) 
=(140) 

NUMBER  = 150 
=(160) 

= ( 170) 
=(180) 
=(190) 


SET  FOR  OEC  V/N  CODE 
SET  FOR  ENTPASO 

IF  OSPAL  ARM  OC.CURS  BEFORE  FIRST  ENTPASO 
OR  NVSUR,  ENTPET  MUST  ALREADY  BE  SET 
TO  TC  ENDOF  JOB 


ND1,  OCT  21  (OEC  17) 


SET  OEC  COMP  BIT  TO  1 (IN  OECBRNCH) 
BIT  5 FOR  Rl,  BIT  4 FOR  R2, 

BIT  3 FOR  R3. 

IF  CLPASS  IS  + OR  +0,  MAKE  IT  +0. 
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053  7 

REF 

1 

40,2405 

3 2430 

l 

CAF 

SGNTAB 

0538 

REF 

l 

40,2406 

54  123 

0 

TS 

SGNOFF 

053  9 

REF 

28 

LAST 

414 

40,2407 

6 4 744 

L 

AO 

UNE 

0540 

REF 

1 

40,2410 

54  122 

1 

TS 

SGNON 

0 541 

REF 

60 

LAST 

414 

40,2411 

3 4 746 

0 

SGNCOM 

CAF 

ZERO 

0542 

REF 

2 

LAST 

41  1 

40,2412 

54  124 

1 

TS 

CODE 

0543 

REF 

2 

LAST 

415 

40,2413 

56  123 

1 

XCH 

SGNOFF 

0544 

REF 

1 

40,2414 

0 3433 

0 

TC 

11DSPIN 

0545 

REF 

18 

LAST 

384 

40,2415 

3 4732 

0 

CAF 

B IT  1 1 

0546 

REF 

3 

LAST 

415 

40,2416 

54  124 

1 

TS 

CODE 

0547 

REF 

2 

LAST 

415 

40,2417 

56  122 

0 

XCH 

SGNON 

0 54  8 

REF 

2 

LAST 

415 

40,2420 

0 3433 

0 

TC 

l 1DSPIN 

0549 

REF 

43 

LAST 

393 

40,2421 

0 OCOl 

0 

TC 

L 

0550 

REF 

43 

LAST 

414 

40,2422 

22  002 

0 

-ON 

LXCH 

Q 

0551 

REF 

4 

LAST 

414 

40,2423 

0 2313 

1 

TC 

GET INREL 

0552 

REF 

12 

LAST 

414 

40,2424 

50  137 

1 

INDEX 

I NREL 

0553 

REF 

2 

LAST 

415 

40,2425 

3 2430 

1 

CAF 

SGNTAB 

0554 

REF 

3 

LAST 

415 

40,2426 

54  122 

1 

TS 

SGNON 

0555 

REF 

29 

LAST 

415 

40,2427 

6 4744 

1 

AD 

ONE 

0556 

REF 

3 

LAST 

415 

40,2430 

54  123 

0 

TS  . 

SGNOFF 

055  7 

REF 

1 

40,2431 

0 2411 

1 

TC 

SGNCOM 

USER' S PAGE  NO.  14 


EO  S4 


055  8 

40,2432 

00005 

1 

SGNTAB 

OCT 

5 

-Rl 

0559 

40,2433 

00003 

1 

OCT 

3 

-R2 

0560 

40,2434 

00000 

1 

OCT 

0 

— R 3 

056  1 

REF 

44 

LAST 

415 

40,2435 

22  002 

0 

S IGNTEST 

LXCH 

Q 

ALLOWS  +,-  ONLY 

WHEN  DSPCOUNT  = R ID l , 

0562 

REF 

8 

LAST 

413 

40, 2436 

3 

6266 

0 

CAF 

THRFF 

R2D1,  OR  R3D1  . 

ALLOWS  ONLY  FIRST 

OF 

0563 

REF 

7 

LAST 

414 

40,2437 

7 

C 777 

1 

MASK 

DECBRNCH 

CONSECUTIVE  +/- 

CHARACTER  S. 

0564 

REF 

102 

LAST 

413 

40,2440 

10  000 

0 

CCS 

A 

IF  L0W2  BITS  OF 

DECBRNCH  NO T=  0, 

S IGN 

0565 

REF 

45 

LAST 

414 

40,2441 

0 

5 146 

1 

TC 

ENOOF JOB 

FOR  THIS  WORD  ALREADY  IN.  RFJEC.T, 

0566 

REF 

1 

40,2442 

4 

4310 

0 

CS 

R1D1 

0567 

REF 

1 

40,2443 

0 

2451 

0 

TC 

SGNTST1 

0568 

REF 

1 

40,2444 

4 

4311 

1 

CS 

R2D1 

0569 

REF 

2 

LAST 

415 

40,2445 

0 

2451 

0 

TC 

SGNTST1 

0570 

REF 

1 

40, 2446 

4 

4312 

1 

CS 

R 3D  1 

0571 

REF 

3 

LAST 

415 

40,2447 

0 

2451 

0 

TC 

SGNTST1 

0572 

REF 

46 

LAST 

415 

40,2450 

0 

5 146 

1 

TC 

ENDOF JOB 

NO  MATCH  FOUND. 

SIGN  ILLEGAL 

0573 

REF 

12 

LAST 

414 

40,2451 

6 

C 7 76 

1 

SGNTST1 

AD 

DSPCOUNT 

0574 

40,2452 

0 

0006 

1 

EXTEND 

0575 

40,2453 

1 

2455 

0 

BZF 

+ 2 

MATCH  FOUND 

0576 

REF 

45 

LAST 

415 

40,2454 

0 

0002 

0 

TC 

Q 

0577 

REF 

44 

LAST 

415 

40,2455 

0 

0001 

0 

TC 

L 

SIGN  LEGAL 

R0578 

CLEAR  BLANKS 

WHICH 

Rl,  R 2 , R3 

IS  CURRENT 

OR  LAST 

TO  BE 

DISPLAYED! PERT 

INE 

R0579 

NT  : 

XREG, 

' YREG , 

ZREG 

IS  CLEAREDI 

SUCCESSIVE  CLEARS 

TAKE 

CARE  OF  EACH  RX 

R05B0 
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R0581 

THE 

SINGLE  COMPONENT 

LOAD  VERBS  ALLOW 

1 ONLY  THE 

SINGLE  RC  THAT  IS 

R0582 

APPROPRIATE  TO 

1 BE  CLEARED. 

R0583 

CLPASS 

+0  PASSO, 

CAN  BE  BACKED  UP 

R0584 

+ NZ 

HIPASS 

, CAN  BE 

BACKED  UP 

R0585 

-NZ 

PASSO, 

CANNOT  8E  BACKED 

l UP 

0586 

REF 

13 

LAST 

415 

40,2456 

10  776 

0 

CLEAR 

CCS 

DSPCOUNT 

0587 

REF 

30 

LAST 

415 

40,2457 

6 4 744 

1 

AD 

ONE 

0588 

40,2460 

0 2462 

0 

TC 

+ 2 

0589 

REF 

31 

LAST 

416 

40,2461 

6 4 744 

1 

AD 

ONE 

0590 

REF 

103 

LAST 

4 15 

40,2462 

50  000 

1 

INDEX 

A 

DO  NOT  CHANGE  DSPCOUNT  RECAUSF  MAY  LATER 

0591 

RFF 

2 

LAST 

413 

40,2463 

3 231  7 

0 

CAF 

INRELTAB 

FAIL  LEGALTST. 

0592 

REF 

13 

LAST 

415 

40,2464 

54  137 

0 

TS 

I NREL 

MUST  SET  INREL,  FVFN  FOR  HIPASS. 

0593 

REF 

6 

LAST 

414 

40,2465 

1 1 ' 0 1 4 

1 

CCS 

CLPASS 

0594 

REF 

l 

40,2466 

0 2474 

1 

TC 

CLPASHI 

+ 

0595 

40,2467 

0 2471 

1 

TC 

+ 2 

+0  IF  CLPASS  IS  +0  OR  -,  IT  IS  PASSO 

0596 

40,2470 

0 2471 

1 

TC 

+ 1 

- 

0597 

REF 

14 

LAST 

416 

40,2471 

3 0137 

1 

CA 

INREL 

059  8 

REF 

1 

40, 2472 

0 2516 

1 

TC 

LEGALTST 

0599 

REF 

1 

40,2473 

0 2511 

0 

TC 

C LEAR  1 

0600 

REF 

15 

LAST 

416 

40,2474 

10  137 

0 

CLPASHI 

CCS 

INREL 

060  1 

REF 

16 

LAST 

416 

40, 2475 

54  137 

0 

TS 

INREL 

0602 

REF 

2 

LAST 

416 

40,2476 

0 2516 

1 

TC 

LEGALTST 

060  3 

REF 

l 

40, 2477 

3 2566 

0 

CAF 

DOUBLK  + 2 

+3  TO  - NUMBFR.  BACKS  DATA  REQUESTS. 

0604 

REF 

3 

LAST 

414 

40,2500 

27 1 012 

1 

ADS 

REORET 

060  5 

REF 

17 

LAST 

416 

40,2501 

3 0137 

1 

CA 

INREL 

0606 

REF 

1 

40, 2502 

54  125 

0 

TS 

M I XTEMP 

TEMP  STORAGE  FOR  INREL 

060  7 

40,2503 

0 0006 

1 

EXTEND 

060  8 

REF 

8 

LAST 

414 

40,2504 

27'000 

1 

DIM 

VERBREG 

DECREMENT  VERB  AMD  RE-DISPLAY 

0609 

REF 

82 

LAST 

412 

40,2505 

0 4607 

1 

TC 

BANKCALL 

0610 

REF 

1 

40,2506 

62367 

1 

CADR 

UPDATVB 

061  l 

REF 

2 

LAST 

416 

40,2507 

3 C 125 

1 

CA 

MIXTEMP 

0612 

REF 

18 

LAST 

416 

40,2510 

54  137 

0 

TS 

I NREL 

RESTORE  INREL 

0613 

REF 

1 

40,2511 

6 2514 

0 

CLEAR  1 

TC 

CLR5 

0614 

REF 

7 

LAST 

416 

40,2512 

25 ' 014 

0 

I NCR 

CLPASS 

ONLY  IF  CLPASS  IS  + OR  +0, 

061  5 

REF 

47 

LAST 

415 

40,2513 

0 5146 

1 

TC 

ENDOE JOB 

SET  FOR  HIGHFR  PASS. 

0616 

REF 

46 

LAST 

415 

40,2514 

22  002 

0 

CLR5 

LXCH 

Q 

USES  5BLANK  BUT  AVOIDS  ITS  TC  GETINREL 

061  7 

REF 

l 

40,2515 

0 2527 

0 

TC 

5BLANK  +2 

061  8 

REF 

2 

LAST 

242 

40,2516 

6 7767 

0 

LFGALTST  AD 

NEG2 

0619 

REF 

1C4 

LAST 

416 

40,2517 

10  000 

0 

CCS 

A 

0620 

REF 

47 

LAST 

416 

40,2520 

0 0002 

0 

TC 

0 

LEGAL  INREL  G/  2 

0621 

REF 

3 

LAST 

414 

40,2521 

0 5701 

1 

TC 

CCSHOLE 

062  2 

REF 

48 

LAST 

416 

40,2522 

0 5146 

1 

TC 

ENDOE JOB 

ILLEGAL  INREL=  0,1 

062  3 

RFF 

48 

LAST 

416 

40,2523 

0 0002 

0 

TC 

0 

LEGAL  INREL  = 2 

R0624 

5HIANK  BLANKS 

5 CHAR 

DISPLAY 

WURD  IN 

Rl, 

R2 , OR 

R 3 . IT 

ALSO  ZEROES  XR EG , 

R0625 

YR  EG 

, CR 

ZREG. 

PLACE 

ANY  + DSPCOUNT  NUMBER  FOR  PERTINENT 

RC  INTO  DSPCOUNT 

R062  6 

DSPCCINT 

IS  LEFT  SET 

TO  LEFT 

MOST  DSP 

NUMB  FOR 

RC  JUST 

BL  ANKED. 
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062  7 

REF 

14 

LAST 

416 

40,2524 

54  776 

0 

TS 

DSPCOUNT 

062  0 

REF 

49 

LAST 

416 

40,2525 

22  002 

0 

5 BLANK 

LXCH 

0 

062  9 

REF 

5 

LAST 

415 

40,2526 

0 2313 

1 

TC 

GETINREL 

063  0 

REF 

61 

LAST 

415 

40,2527 

3 4746 

0 

CAF 

ZERO 

063  1 

REF 

19 

LAST 

416 

40,2530 

50  137 

1 

INDEX 

I NREL 

0632 

REF 

9 

LAST 

416 

40,2531 

55 ' 000 

1 

TS 

VER8REG 

063  3 

REF 

20 

LAST 

417 

40,2532 

50  137 

1 

INDEX 

I NREL 

0634 

REF 

2 

LAST 

413 

40,2533 

55*003 

1 

TS 

XREGLP 

0635 

REF 

4 

LAST 

415 

40,2534 

54  124 

i 

TS 

CODE 

0636 

REF 

21 

LAST 

417 

40,2535 

50  137 

1 

INDEX 

I NREL 

063  7 

REF 

20 

LAST 

414 

40,2536 

4 4736 

0 

CS 

B I T7 

063  8 

REF 

8 

LAST 

415 

40,2537 

7 C777 

1 

MASK 

DECBRNCH 

0639 

REF 

1 

40,2540 

7 2567 

0 

MASK 

BRNCHCON 

064  0 

REF 

9 

LAST 

417 

40,2541 

54  777 

l 

TS 

DECBRNCH 

064  1 

REF 

22 

LAST 

417 

40,2542 

50  137 

1 

INDEX 

I NREL 

0642 

REF 

1 

40,2543 

3 2557 

1 

CAF 

S I NBL ANK 

064  3 

REF 

2 

LAST 

411 

40,2544 

54  143 

0 

TS 

COUNT 

0644 

REF 

2 

LAST 

41  1 

40,2545 

0 3351 

0 

TC 

DSPIN 

0645 

REF 

23 

LAST 

417 

40,2  546 

50  137 

1 

5BLANK1 

INDEX 

INREL 

0646 

REF 

2 

LAST 

416 

40,2547 

3 2562 

1 

CAF 

DOUBLK  • 

064  7 

REF 

15 

LAST 

417 

40,2550 

54  776 

0 

TS 

DSPCOUNT 

0648 

REF 

2 

LAST 

414 

40,2551 

0 2570 

1 

TC 

2 BLANK 

0649 

REF 

19 

LAST 

414 

40,2552 

4 4743 

1 

CS 

TWO 

0650 

REF 

16 

LAST 

417 

40,2553 

26  776 

0 

ADS 

DSPCOUNT 

065  l 

REF 

3 

LAST 

417 

40,2554 

0 2570 

1 

TC 

2 BLANK 

0652 

REF 

24 

LAST 

417 

40,2555 

50  137 

1 

INDEX 

I NREL 

065  3 

REF 

2 

LAST 

415 

40, 2556 

3 4306 

0 

CAF 

R ID  1 

0654 

REF 

17 

LAST 

417 

40,2557 

54  776 

0 

TS 

DSPCOUNT 

0655 

REF 

45 

LAST 

415 

40,2560 

0 0001 

0 

TC 

L 

0656 

40,2561 

00016 

0 

S INBLANK 

OCT 

16 

065  7 

40,2562 

00005 

1 

OCT 

5 

065  8 

40,2563 

00004 

0 

OCT 

4 

0659 

40,2564 

00015 

0 

OOUBLK 

OCT 

1 5 

0660 

40,2565 

00011 

1 

OCT 

11 

0661 

40,2566 

00003 

1 

OCT 

3 

0662 

40,2567 

77774 

0 

BRNCHCON 

OCT 

77774 

R0663 

2BLANK  BLANKS 

TWO  CHAR.  PLACE 

DSP  NUMBER 

OF  LEF1 

CHAR 

OF  THE  PA1 

R0664 

DSPCOUNT 

. THIS 

NUMBER  IS  LEFT 

IN  DSPCOUNT 

0665 

KEF 

18 

LAST 

417 

40,2570 

3 0776 

1 

2BLANK 

CA 

DSPCOUNT 

0666 

REF 

1 

40,257  1 

54  021 

0 

TS 

SR 

066  7 

REF 

t 

40,2572 

4 2603 

l 

CS 

BLANKCON 

066  8 

40,2573 

0 0004 

0 

INHINT 

0669 

REF 

2 

LAST 

417 

40,2574 

50  C21 

1 

INDEX 

SR 

0670 

REF 

30 

LAST 

233 

40,2575 

57 1 022 

0 

XCH 

DSPTAB 

0671 

40,2576 

0 0006 

1 

EXTEND 

0672 

40,2577 

6 2601 

1 

BZMF 

+ 2 
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NEEDED  FOR  BLANKSUB 


ZERO  X,  Y,  Z REG. 

ZERO  PERTINENT  DEC  COMP  BIT. 
PROTECT  OTHERS 

ZERO  LOW  2 BITS. 

BLANK  ISOLATED  CHAP  SEPARATELY 


SET  D SPCOUNT  TO  LEFT  MOST  DSP  NUMBER 
OF  REG.  JUST  BLANKED 

DEC  14 


DEC  1 3 
DEC  9 


INTO 


IF  ULD  CONTENTS 


NOUT  OK 


1 
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L 

PINBALL 

GAME 

BUTTONS 

ANO  LIGHTS 

USER*  S PAGE  NO. 

17 

0673 

REF 

6 

LAST 

233 

40,2600 

25*015 

l 

INCR  NOUT 

IF 

old  contents  +,  *-1 

TO  NOUT 

0674 

40,2601 

0 0003 

1 

RELINT 

IF 

— , NOUT  OK 

067  6 

REF 

50 

LAST 

417 

0 0002 

0 

TC  Q 

0676 

40,2603 

04000 

0 

BLANKCON  OCT  4000 

r 


t 

c 

c 

c 

c 


c 


3" 


c 


A 1 8 
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P0677  ENTER  PASS  0 IS  THE  EXECUTE  FUNCTION.  HIGHER  ORDER  ENTERS  ARE  TO  LOAD 
R0678  DATA.  THE  SIGN  OF  REQRET  DETERMINES  THE  PASS,  + FOR  PASS  0,-  FOR  HIGHER 
R0679  PASSES. 


R0680  MACHINE  CAOR  TO  BF  SPECIFIED  (MCTBS)  NCUNS  DESIRF  AN  ECADR  TO  BE  LOADED 
R0681  WHEN  LSED  WITH  LOAD  VERBS,  MONITOR  VERBS,  OR  DISPLAY  VERBS  IEXCEPT 

K0682  VERB  = FIXED  MEMORY  DISPLAY,  WHICH  REQUIRES  AN  FCADR ) . 


0683 

41,2020 

BANK 

41 

068301 

REF 

2 LAST  311 

41,2000 

SETLOC 

P INBALL2 

068  3 C 2 

41,2020 

BANK 

06835 

REF 

1 

COUNT  * 

$ $/P  I N 

0684 

REF 

l 

41,2020 

0 

3613 

0 

NVSUBB 

TC 

NVSUBI 

STANDARD  LEAD  INS.  DONT  MOVE. 

0685 

A0686 

REF 

1 

41,2021 

0 

3045 

0 

LOADL VI 

TC 

LOADLV 

END  OF  STANDARD  LEAD  INS. 

0687 

REF 

62 

LAST 

417 

41,2022 

3 

4746 

0 

ENTER 

CAF 

ZERO 

0688 

RFF 

8 

LAST 

416 

41,2023  • 

55 

•014 

1 

TS 

CLPASS 

0689 

REF 

2 

LAST 

414 

41, 2024 

3 

4210 

0 

CAF 

ENDINST 

0690 

REF 

2 

LAST 

414 

41,2025 

54 

136 

1 

TS 

ENTRFT 

0691 

REF 

4 

LAST 

416 

41,2026 

1 1 

'012 

1 

CCS 

REQRET 

0692 

REF 

l 

41,2027 

0 

2062 

1 

TC 

ENTPASO 

IF  +,  PASS  0 

069  3 

REF 

2 

LAST 

419 

41,2030 

0 

2062 

1 

TC 

ENTPASO 

IF  +,  PASS  0 

0694 

41,2031 

0 

2032 

1 

TC 

+ 1 

IF  -,  NOT  PASS  0 

0695 

REF 

1 

41,2032 

3 

2060 

0 

ENTPASHI 

CAF 

MMADREF 

0696 

REF 

5 

LAST 

419 

41,2033 

6 

1012 

0 

AD 

REQRET 

IF  L/  2 CHAR  IN  FOR  MM  CODE,  ALARM 

0697 

41,2034 

0 

0006 

1 

EXTEND 

AND  RECYCLEIDECIDE  AT  MMCHANG+1). 

0698 

REF 

1 

41,2035 

1 

2047 

1 

BZF 

ACCEPTWD 

0699 

REF 

9 

LAST 

415 

41,2036 

3 

6266 

0 

CAF 

THREE 

IF  DEC,  L/5  CHAR  IN  FOR  DATA  MUST  BE 

0 70  0 

REF 

10 

LAST 

417 

41, 2037 

7 

C 777 

1 

MASK 

DECBRNCH 

SCALED  (DECEND);  IF  5 CHAR  IN,  DATA 

0701 

REF 

1C  5 

LAST 

416 

41,2040 

10 

000 

0 

CCS 

A 

HAS  ALREADY  BEEN  SCALED.  ANY  NUMBER 

0702 

41,2041 

0 

2043 

1 

TC 

+ 2 

OF  DECIMAL  CHARACTERS  ARE  ACCEPTABL E . SCR 

0703 

REF 

2 

LAST 

419 

41,2042 

0 

2047 

0 

TC 

ACCEPTWD 

OCTAL.  ANY  NUMBER  OF  CHAR  OK. 

0704 

REF 

19 

LAST 

417 

41,2043 

10 

776 

0 

CCS 

DSPCOUNT 

0705 

REF 

1 

41,2044 

0 

2053 

0 

TC 

LT5 

0706 

REF 

2 

LAST 

419 

41,2045 

0 

2053 

0 

TC 

LT5 

0707 

41,2046 

0 

2047 

0 

TC 

+ 1 

5 CHAR  IN  (DSPCOUNT  IS  -) 

0708 

REF 

6 

LAST 

419 

41,2047 

4 

1012 

1 

ACCEPT  WD 

CS 

REQRET 

5 CHAR  IN  (DSPCOUNT  IS  -) 

0709 

REF 

7 

LAST 

4 19 

41,2050 

55 

'012 

1 

TS 

REQRET 

SET  REQRET  +. 

0710 

REF 

2 

LAST 

286 

41,2051 

0 

4424 

1 

TC 

F LASHOFF 

071  1 

REF 

8 

LAST 

419 

41,2052 

0 

1012 

0 

TC 

REQRET 

071 1C8 

REF 

63 

LAST 

419 

41,2053 

3 

4 746 

0 

LT5 

CAF 

ZERO 

071 LC9 

REF 

86 

LAST 

413 

41,2054 

54 

154 

0 

TS 

MPAC 

071  1 1 

REF 

£3 

LAST 

416 

41,2055 

0 

4607 

1 

TC 

BANKCALL 

071  1 2 

REF 

2 

LAST 

412 

41,2056 

6 C 2 54 

1 

CADR 

DECEND  +4 
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071  13 

REF 

3 

LAST 

419 

41,2057 

0 2047 

0 

TC 

ACCEPTWD 

0712 

REF 

3 

LAST 

4 19 

0136 

ENTEXIT 

= 

ENTRET 

071  3 

REF 

1 

41,2060 

03471 

0 

MMADREF 

AORES 

MMCHANG  +1 

ASSUMES  TC  REQMM  AT  MMCHANG. 

0714 

41,2061 

00034 

0 

LOWVERB 

DEC 

28 

LOWER  VERB  THAT  AVOIDS  NOUN  TEST. 

0715 

REF 

64 

LAST 

419 

41, 2062 

3 4746 

0 

ENTPASO 

CAF 

ZERO 

NOUN  VERB  SUB  ENTERS  HERF 

0716 

REF 

1 1 

LAST 

419 

41,2063 

54  777 

1 

TS 

DECBRNCH 

071  7 

REF 

3 

LAST 

414 

41, 2064 

4 4351 

0 

CS 

VDl 

BLOCK  FURTHER  NUM  CHAR,  SO  THAT  STRAY 

0718 

REF 

20 

LAST 

419 

41,2065 

54  776 

0 

TS 

D SPCOUNT 

CHAR  00  NOT  GET  INTO  VERB  OR  NOUN  LTS. 

0719 

REF 

10 

LAST 

417 

41,2066 

4 1000 

1 

TEST V8 

CS 

VERBREG 

IF  VERB  IS  G/E  LOWVB,  SKIP  NOUN  TEST. 

0720 

REF 

1 

41,2067 

55 ' 040 

0 

TS 

VERBSAVE 

SAVE  VERB  FOR  POSSIBLE  RECYCLE. 

072  1 

REF 

1 

41,2070 

6 2061 

1 

AD 

L0WVER8 

LOWVERB  - VB 

0722 

41,2071 

0 C 006 

1 

EXTEND 

072  3 

RFF 

1 

41,2072 

6 2160 

1 

BZMF 

VERBFAN 

VERB  G/E  LOWVERB 

0724 

41,2073 

0 0006 

1 

TESTNN 

EXTEND 

VERB  L/  LOWVERB 

0725 

REF 

l 

41,2074 

3 2141 

1 

DC  A 

L ODNNLOC 

SWITCH  BANKS  TO  NOUN  TABLE  READING 

0 72  6 

REF 

3 

LAST 

317 

41,2075 

52  006 

0 

DXCH 

Z 

ROUTI NE. 

072  7 

REF 

3 

LAST 

316 

4 L , 2076 

50  140 

1 

INDEX 

MIXBR 

0728 

41 ,2077 

0 2C77 

0 

TC 

+ 0 

0 72  9 

41,2100 

0 2102 

0 

TC 

+ 2 

NORMAL 

0730 

REF 

l 

41,2101 

0 2246 

0 

TC 

M IXNGUN 

MIXED 

073  l 

REF 

3 

LAST 

316 

41, 2 102 

10  146 

0 

CCS 

NNADTEM 

NORMAL 

0 73  2 

REF 

2 

LAST 

420 

41,2103 

0 2156 

1 

TC 

VERBFAN  -2 

NORMAL  IF  + 

0733 

RFF 

1 

41 , 2 104 

0 2400 

1 

TC 

GODSPALM 

NOT  IN  USE  IF  +0 

0734 

RFF 

1 

41,2105 

0 2111 

1 

TC 

REQADD 

SPECIFY  MACHINE  CADR  IF  - 

0735 

REF 

1 

41,2106 

25 1 0 16 

1 

INCR 

NOUNCADR 

AUGMENT  MACHINE  CADR  IF  -0 

0 736 

REF 

1 

41,2107 

0 4302 

1 

TC 

SETNADD 

ECADR  FROM  NOUNCADR.  SFTS  EB,  NOUNADD. 

0737 

REF 

1 

41,2110 

0 2145 

0 

TC 

INTMCTBS  +2 

073  8 

REF 

24 

LAST 

306 

41,2111 

3 4726 

0 

REOADD 

CAF 

BIT15 

SET  CLPASS  FOR  PASSO  ONLY 

0739 

REF 

9 

LAST 

419 

41,2112 

55 ' 0 1 4 

1 

TS 

CLPASS 

0740 

REF 

3 

LAST 

419 

41, 21 13 

4 4210 

1 

CS 

FND1NST 

TEST  IF  REACHED  HERE  FROM  INTERNAL  OR 

0741 

REF 

1 

41,2114 

6 0136 

0 

AD 

FNTEXIT 

FROM  EXTERNAL 

0742 

41,2115 

0 C006 

1 

EXTEND 

0 743 

41,2116 

1 2120 

1 

BZF 

+ 2 

EXTFPNAL  MACH  CADR  TO  BE  SPECIFIED 

0744 

REF 

2 

LAST 

420 

41,2117 

0 2143 

0 

TC 

INTMCTBS 

0745 

REF 

1 

41,2120 

0 2336 

0 

TC 

REQDATZ 

EXTERNAL  MACH  CADR  TO  BE  SPECIFIED 

0746 

REF 

12 

LAST 

42  0 

41,2121 

10  777 

1 

CCS 

DECBRNCH 

ALARM  AND  RECYCLE  IF  DECIMAL  USED 

074  7 

REF 

1 

41,2122 

0 6020 

0 

TC 

ALMCYCLF 

FOR  MCTBS. 

074  8 

REF 

4 

LAST 

420 

41,2123 

4 4351 

0 

CS 

VDl 

OCTAL  USED  OK 

074  9 

REF 

21 

LAST 

420 

41,2124 

54  776 

0 

TS 

DSPCOUNT 

BLOCK  NUM  CHAR  IN 

0750 

REF 

3 

LAST 

410 

41,2125 

11 '041 

1 

CCS 

CADRSTOR 

0 751 

41 ,2126 

0 2131 

0 

TC 

+ 3 

EXTERNAL  MCTBS  DISPLAY  WILL  LFAVE  FLASH 

0752 

REF 

1 

41,2127 

0 2132 

0 

TC 

USEADO 

ON  IF  ENDIDLE  NOT  = +0. 

0753 

41,2130 

0 2131 

0 

TC 

+ 1 

0754 

REF 

1 

41,2131 

0 4420 

0 

TC 

FLASHON 

0755 

REF 

1 

41,2132 

57*004 

1 

USFADD 

XCH 

ZREG 

0756 

REF 

1 

41,2133 

0 4274 

1 

TC 

SETNCADR 

ECADR  INTO  NOUNCADR.  SET  EB,  NOUNAOD. 

0757 

41,2134 

0 0006 

l 

FXTENO 
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0 75  a 

REF 

2 

LAST 

420 

41,2135 

3 2141 

1 

DC  A 

LODNNLOC 

0759 

REF 

4 

LAST 

420 

41,2136 

52  C06 

0 

DXCH 

l 

0760 

REF 

3 

LAST 

420 

41,2137 

0 2160 

1 

TC 

VERBFAN 

076  1 

REF 

22 

LAST 

420 

0776 

EBANK= 

DSPCOUNT 

0762 

REF 

1 

41, 2140 

02110 

0 

LODNNLOC 

2C  ADR 

LODNNTAB 

0762 

REF 

1 

41,2141 

64101 

0 

0763 

41,2142 

77772 

0 

NEG5 

OCT 

77772 

0764 

REF 

07 

LAST 

419 

41,2143 

3 0156 

0 

I NTMCTBS 

CA 

MPAC 

0765 

REF 

2 

LAST 

420 

4 1, 2144 

0 4274 

1 

TC 

SETNC ADR 

0766 

REF 

8 

LAST 

388 

41, 2145 

4 4747 

0 

CS 

FIVE 

0 76  7 

REF 

11 

LAST 

420 

41,2146 

6 1000 

0 

AD 

VERBREG 

0 76  8 

41,2147 

0 C006 

1 

EXTEND 

0769 

REF 

4 

LAST 

421 

41,2150 

1 2160 

0 

BZF 

VERBFAN 

0770 

REF 

2 

LAST 

415 

41,2151 

3 4312 

0 

CAF 

R 3D  1 

0771 

REF 

23 

LAST 

42  1 

41,2152 

54  776 

0 

TS 

DSPCOUNT 

0772 

REF 

2 

LAST 

420 

41,2153 

3 1016 

1 

CA 

NOUNCADR 

0773 

REF 

1 

41 ,2  154 

0 3435 

0 

TC 

0 SPOCTWD 

0774 

REF 

5 

LAST 

42  1 

41, 2155 

0 2 160 

1 

TC 

VERBFAN 

0775 

REF 

32 

LAST 

416 

41,2156 

6 4744 

1 

AD 

ONE 

0776 

REF 

3 

LAST 

42  1 

41,2157 

' 0 4274 

1 

TC 

SETNC  ADR 

0 77  7 

REF 

1 

41, 2160 

4 2172 

0 

VERBFAN 

CS 

LST2C0N 

0778 

REF 

12 

LAST 

421 

41,2161 

6 1000 

0 

AD 

VERBREG 

0779 

REF 

106 

LAST 

419 

41, 2162 

1C  000 

0 

CCS 

A 

0780 

REF 

33 

LAST 

42  1 

41,2163 

6 4744 

1 

AD 

ONE 

0781 

41, 2164 

0 2 166 

1 

TC 

+ 2 

0782 

REF 

1 

41, 2 165 

0 2173 

0 

TC 

VBFANDIR 

0783 

REF 

88 

LAST 

421 

41,2  166 

54  154 

0 

TS 

MPAC 

0784 

REF 

4 

LAST 

244 

41,2167 

0 4450 

1 

TC 

RELDSP 

0785 

REF 

19 

LAST 

41  1 

41,2170 

0 4626 

1 

TC 

POSTJUMP 

0786 

REF  ' 

1 

41,2171 

66000 

1 

CADR 

GOEXTVB 

0788 

41,2172 

00050 

1 

LST2C0N 

DEC 

40 

0790 

REF 

13 

LAST 

42  1 

41 ,2 173 

51 ' 000 

0 

VBFAND1R 

INDEX 

VERBREG 

0791 

REF 

1 

41,2174 

3 2176 

0 

CAF 

VERBTAB 

0792 

REF 

2 

LAST 

284 

41,2175 

0 4631 

1 

TC 

BANK JUMP 

0793 

REF 

2 

LAST 

420 

41,2176 

62400 

1 

VERBTA8 

CADR 

GOOSPALM 

0794 

REF 

1 

41,2177 

62414 

1 

CADR 

OSPA 

0795 

REF 

1 

41,2200 

62422 

1 

CADR 

DSPB 

0 796 

REF 

1 

41,2201 

62427 

1 

CADR 

DSPC 

0797 

REF 

1 

41,2202 

62407 

0 

CADR 

DSPAB 

0798 

REF 

1 

41,2203 

62402 

0 

CADR 

D SP ABC 

0799 

REF 

1 

41,2204 

62552 

1 

CAOR 

DECDSP 

0800 

REF 

1 

41,2205 

61020 

1 

CADR 

DSPDPDEC 

0801 

REF 

3 

LAST 

42  1 

41 , 2206 

62400 

1 

CADR 

GODSPALM 

0 80  2 

REF 

4 

LAST 

42  1 

41,2207 

62400 

1 

CADR 

GODSPALM 
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SWITCH  RANKS  TO  NOUN  TABLE  READING 
ROUTINE. 


INTERNAL  MACH  CADR  TO  BE  SPECIFIED. 
ECADR  INTO  NOUNCADR.  SET  EB,  NOUNADD. 
NVSUB  CALL  LEFT  CADR  IN  MPAC+2  FOR  MACH 
CADR  TO  8F  SPECIFIED. 

DONT  DISPLAY  CADR  IF  VB  = 05. 

VB  NOT  = 05.  DISPLAY  CADR. 


ECADR  INTO  NOUNCADR.  SETS  EB,  NOUNADD. 

VERB- LST  2C0N 

VERB  G/  LST2C0N 

VERB  L/  LST2C0N 

RELFASE  DISPLAY  SYST 

GO  TO  GQEXTVR  WITH  VB-40  IN  MPAC. 

FIRST  L I ST  2 VERB  (EXTENDED  VERB) 


V BOO 

ILLEGAL 

VBOl 

DISPLAY 

OCT 

COMP 

1 

( R 1 ) 

VB02 

DISPLAY 

OCT 

COMP 

2 

(R1  ) 

VB03 

DISPLAY 

OCT 

COMP 

3 

(Rl) 

VB04 

DISPLAY 

OCT 

COMP 

1, 

,2  ( R 1 , R2 ) 

VB05 

DISPLAY 

OCT 

COMP 

1, 

,2,3  (R1,R 

VB06 

DECIMAL 

DISPLAY 

VR07 

DP  DECIMAL 

DISPLAY 

I Rl ,P2 ) 

VB08 

SPARE 

VR09 

SPARE 

GAP:  ASSEMBLE  RFV1SI0N  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  L2-161 
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0803 

REF 

I 

41,2210 

61447 

1 

CAOR 

DSPAL ARM 

0804 

RtF 

l 

41,2211 

63302 

0 

CADR 

MONITOR 

0805 

REF 

2 

LAST 

422 

41,2212 

63302 

0 

CADR 

MONITOR 

0806 

REF 

3 

LAST 

422 

41,2213 

63302 

0 

CADR 

MONITOR 

080  r 

REF 

4 

LAST 

422 

41, 2214 

63302 

0 

CADR 

MONITOR 

0808 

REF 

5 

LAST 

422 

41,2215 

63302 

0 

CADR 

MONITOR 

0809 

REF 

6 

LAST 

422 

41,2216 

63302 

0 

CADR 

MONITOR 

0810 

REF 

7 

LAST 

422 

41,2217 

63302 

0 

CADR 

MONITOR 

081  1 

REF 

5 

LAST 

42  1 

41,2220 

62400 

1 

CADR 

GODSPALM 

0812 

REF 

6 

LAST 

422 

41, 2221 

62400 

1 

CADR 

GODSPALM 

081  3 

REF 

7 

LAST 

422 

41,2222 

62400 

1 

CADR 

GODSPALM 

0814 

REF 

1 

41,2223 

63002 

0 

CADR 

ALOAD 

0815 

REF 

l 

41,2224 

6 3 C 1 3 

0 

CADR 

BLOAD 

0816 

REF 

1 

41,2225 

63030 

1 

CADR 

CLOAD 

081  1 

REF 

1 

41, 2226 

62753 

l 

CADR 

ABLOAD 

0818 

REF 

l 

41,2227 

62647 

0 

CADR 

ABCLOAD 

0819 

REF 

8 

LAST 

422 

41,2230 

62400 

1 

CADR 

GODSPALM 

0820 

RFF 

l 

41,2231 

63425 

1 

CADR 

DSPFMEM 

A0821 

0 82  2 

REF 

9 

LAST 

422 

41,2232 

62400 

1 

CADR 

GODSPALM 

0823 

REF 

10 

LAST 

422 

41,2233 

• 62400 

1 

CAOR 

GODSPALM 

082  4 

REF 

1 

41,2234 

63526 

0 REQEXLOC 

CADR 

V RRQEXEC 

0825 

REF 

1 

41,2235 

63557 

0 

CADR 

VBRQWAIT 

0826 

REF 

1 

41 ,2236 

61514 

0 

CADR 

VBRESEQ 

0 82  7 

REF 

1 

41,2237 

61471 

l 

CADR 

VBPROC 

0828 

REF 

1 

41,2240 

61477 

1 

CADR 

VBTERM 

0829 

REF 

1 

41,2241 

63662 

0 

CADR 

VBTSTLTS 

0830 

REF 

1 

41,2242 

12454 

1 

CADR 

S LAP  1 

0831 

REF 

2 

LAST 

420 

41,2243 

63470 

1 

CADR 

MMCHANG 

0832 

REF 

1 1 

LAST 

422 

41,2244 

62400 

1 

CADR 

GODSPALM 

0833 

RFF 

12 

LAST 

422 

41,2245 

62400 

1 

CADR 

GODSPALM 

R0834 

THE 

L I ST2 

VERBFAN  IS 

LOCATED 

IN  THE  EXTENDED  VERB 

i BANK. 
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V B 10 
VB11 
VB  12 
VB  13 
VB  14 
VB  15 
VB  16 

V B 1 7 
VB  18 
VB  19 
VB20 
VB  2 1 

V B22 
VB23 

V B 24 
VB25 

V B26 
VB27 
THE  F 
VB  28 

V B29 
VB30 
VB  3 1 
VB32 
VB  33 
VB34 
VB35 
VB36 
VB37 
VB  38 
VB39 


1 ( R 1 ) 

2 ( R 1 ) 

3 ( R 1 ) 

1,2  (R1.R2) 

1,2,3  (R1,R2,R3) 

I R 1 , R2 ) 


SPARE 

MONITOR  OCT  COMP 
MONITOR  OCT  COMP 
MONITOR  CCT  COMP 
MONITOR  OCT  COMP 
MONITOR  OCT  COMP 
MONITOR  DECIMAL 
MONITOR  DP  DEC 
SPARE 
SPARE 
SPARE 

LOAD  COMP  1 (Rl) 

LOAD  COMP  2 t R2 ) 

LOAD  COMP  3 ( R 3 ) 

LOAD  COMP  1,2  ( P.  I , R 2 ) 

LOAD  COMP  1,2,3  (R1,R2,R3) 

SPARE 

FIXED  MEMORY  DISPLAY 

OLIOWING  VERBS  MAKE  NO  NOUN  TEST 

SPARE 

SPARE 

REQUEST  EXECUTIVE 
REQUEST  WAITLIST 
RFSEQUENCE 

PROCEED  WITHOUT  DATA 

TERMINATE  CURRENT  TEST  OR  LOAD  REQ 

TEST  LIGHTS 

FRESH  START 

CHANGE  MAJOR  MODE 

SPARE 

SPARE 
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P0835 

NNAUTAB 

CONTAINS  A 

RELATIVE 

ADDRESS, 

I DADDREL ( IN 

LOW  10 

BITS),  REFERRING 

R0836 

TO 

WHERE 

3 CONSECUTIVE  ADDRESSES  ARE 

STORED  (IN 

IDADDTAB) . 

R0837 

MIXNOUN 

GETS 

DATA 

AND  STORES 

IN  MIXTEMP 

, + l,  + 2.  IT  SETS 

NOUNADD  FOR 

R0838 

MIXTEMP 

• 

0839 

REF 

4 

LAST 

420 

41,2246 

10  146 

0 

MIXNOUN 

CCS 

NNADTEM 

0840 

41,2247 

0 2253 

1 

TC 

+4 

+ IN  USE 

0 841 

REF 

13 

LAST 

422 

41,2250 

0 2400 

1 

TC 

GODSPALM 

+0  NOT  IN  USE 

0842 

41,2251 

0 2253 

1 

TC 

+ 2 

- IN  USE 

0843 

41,2252 

0 2253 

1 

TC 

+ 1 

-0  IN  USE 

0844 

REF 

8 

LAST 

291 

41 , 2253 

4 6263 

1 

CS 

SIX 

0845 

REF 

14 

LAST 

421 

41 , 2254 

6 1000 

0 

AD 

VERBREG 

0846 

41, 2255 

0 0006 

1 

EXTEND 

084  7 

41 , 2256 

6 2260 

1 

BZMF 

+ 2 

VERB  L/E  6 

0848 

REF 

6 

LAST 

42  1 

41,2257 

0 2160 

1 

TC 

VERBFAN 

AVOID  MIXNOUN  SWAP  IF  VB  NOT  = 

DISPLAY 

0349 

REF 

20 

LAST 

417 

41,2260 

3 4743 

0 

CAF 

TWO 

0850 

REF 

1 

41,2261 

54  117 

1 

MIXNN1 

TS 

DECOUNT 

0851 

REF 

1 

41,2262 

6 2305 

0 

AD 

MIXAD 

0852 

REF 

1 

41,2263 

54  145 

0 

TS 

NOUNADD 

SET  NOUNADD  TO  MIXTEMP  + K 

0853 

REF 

2 

LAST 

423 

41,2264 

50  117 

0 

INDEX 

DECOUNT 

GFT  IDADDTAB  ENTRY  FOR  COMPONENT  K 

0 85  4 

REF 

2 

LAST 

316 

41,2265 

3 0150 

0 

CA 

I DAD  ITEM 

OF  NOUN. 

0855 

REF 

1 

41,2266 

54  122 

1 

TS, 

NOUNTEM 

A0856 

TEST  FOR  DPtFOR  OCT  DISPLAY). 

IF  SO,  GET 

A0857 

MINOR  PART  ONLY. 

0858 

REF 

1 

41,2267 

0 3104 

1 

TC 

SFRUTMIX 

GET  SF  ROUT  NUMBER  IN  A 

0859 

REF 

1 

41,2270 

0 2306 

0 

TC 

DPTEST 

0860 

REF 

1 

41,2271 

0 2273 

0 

TC 

MIXNN2 

NO  DP 

0861 

REF 

2 

LAST 

423 

41,2272 

24  122 

0 

I NCR 

NOUNTEM 

DP  GET  MINOR  PART 

0862 

REF 

3 

LAST 

423 

41 , 2273 

3 0122 

0 

MIXNN2 

CA 

NOUNTEM 

0863 

REF 

3 

LAST 

167 

41,2274 

7 4347 

1 

MASK 

L0W1 1 

ESUBK  (NO  DP)  OR  (ESUBKI+1 

FOR  DP 

0864 

REF 

1 

41,2275 

0 4304 

1 

TC 

SETEBANK 

SET  EBANK,  LEAVE  EADRES  IN  A. 

0865 

REF 

1 C 7 

LAST 

42  1 

41,2276 

50  000 

1 

INDEX 

A 

PICK  UP  C(ESUBK)  NOT  DP 

0866 

41,2277 

3 COOO 

1 

CA 

0 

OR  C ( l ESUBK  ) + 1 ) FOR  DP  MINOR 

PART 

0867 

RE  F 

2 

LAST 

423 

41,2300 

50  145 

1 

INDEX 

NOUNADD 

0 86  8 

41,2301 

56  000 

1 

XCH 

0 

STORE  IN  MIXTEM  + K 

0869 

REF 

3 

LAST 

423 

41,2302 

10  117 

1 

CCS 

DECOUNT 

0870 

REF 

1 

41,2303 

0 2261 

0 

TC 

MIXNN1 

0871 

REF 

7 

LAST 

423 

41,2304 

0 2160 

1 

TC 

VERBFAN 

0872 

REF 

3 

LAST 

416 

41, 2305 

0 C 125 

1 

MIXAD 

TC 

MIXTEMP 

R0873 

DPTEST 

ENTER 

WI  TH 

SF  ROUT  NUMBER  IN 

1 A. 

R0874 

RETURNS  TO 

L+l  IF  NO 

DP. 

R0875 

RETURNS  TO 

L+2  IF  OP, 

0876 

REF 

1C8 

LAST 

423 

41,2306 

50  000 

1 DPTEST 

INDEX 

A 

0877 

41,2307 

1 2310 

0 

TCF 

+ 1 

0878 

REF 

51 

LAST 

418 

41,2310 

0 C002 

0 

TC 

Q 

OCTAL 

ONLY  NO  OP 

0879 

REF 

52 

LAST 

423 

41,2311 

0 0002 

0 

TC 

Q 

FRACT 

NO  DP 
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L 
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GAME 
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0880 

REF 

53 

LAST 

A23 

A 1 , 2312 

0 

0002 

0 

TC. 

Q 

0881 

REF 

5A 

LAST 

A2A 

A 1 , 23 1 3 

0 

CC02 

0 

TC 

0 

0882 

REF 

1 

A 1 , 2 3 1 A 

1 

2330 

1 

TC  F 

DPTEST1 

0883 

REF 

2 

LAST 

A2A 

A 1 , 2 3 1 5 

1 

2330 

l 

TC  F 

DPTEST1 

088A 

REF 

55 

LAST 

A2A 

A 1 , 2 3 1 6 

0 

CC02 

0 

TC 

0 

0885 

REF 

3 

LAST 

A2A 

A l , 2 3 1 7 

1 

2330 

1 

TCP 

DPTEST1 

0886 

REF 

56 

LAST 

A2A 

A 1 , 2 320 

0 

CC02 

0 

TC 

Q 

0887 

REF 

57 

LAST 

A2A 

A l , 232  1 

0 

0002 

0 

TC 

0 

0888 

KEF 

A 

LAST 

A2A 

A 1 , 2 322 

1 

2330 

1 

TC  F 

0PTEST1 

0888  1 

REF 

58 

LAST 

A2A 

A 1 , 2 323, 

0 

0002 

0 

TC 

Q 

08882 

REF 

59 

LAST 

A2A 

A 1 , 2 32 A 

0 

0002 

0 

TC 

0 

08883 

REF 

60 

LAST 

A2A 

A1 ,2325 

0 

0002 

0 

TC 

0 

088  8 A 

REF 

61 

LAST 

A2A 

A 1 , 2 32  6 

0 

CC02 

0 

TC 

Q 

08885 

REF 

6 2 

LAST 

A2A 

A1 ,2327 

0 

0002 

0 

TC 

0 

0889 

REF 

63 

LAST 

A2A 

A 1 , 2330 

50 

002 

0 DPTEST1 

INDEX 

Q 

0890 

A 1 , 2 3 31 

0 

C001 

0 

TC 

1 

0 891 

REF 

3 

LAST 

A17 

A 1 , 23  32 

3 A 3 10 

1 

REQDATX 

CAF 

R1D1 

0892 

REF 

1 

A 1,2333 

l 2337 

0 

TC  F 

REQCOM 

0893 

REF 

2 

LAST 

A1  5 

A 1 , 2 3 3A 

3 A 3 1 1 

0 

REODATY 

CAF 

R2D1 

089  A 

REF 

2 

LAST 

A2A 

A 1 , 2 335 

l 2337 

0 

TC  F 

REQCOM 

0895 

REF 

3 

LAST 

A21 

Al, 2336 

3 A 3 1 2 

0 

REQDATZ 

CAF 

R3D1 

0896 

REF 

2 A 

LAST 

A21 

A1 , 233  7 

5A  7 76 

0 

REQCOM 

TS 

D SPCOUNT 

0897 

REF 

6 A 

LAST 

A2A 

A 1 , 2 3 AO 

A C002 

1 

CS 

Q 

0898 

REF 

9 

LAST 

A 1 9 

Al, 23A1 

55*012 

1 

TS 

REQRET 

0899 

REF 

8A 

LAST 

A 1 9 

Al, 23A2 

0 A60 7 

1 

TC 

BANKCALL 

0900 

REF 

2 

LAST 

A 1 6 

A 1 , 2 3A3 

6C525 

0 

CAOR 

5BLANK 

0901 

REF 

2 

LAST 

A20 

Al, 23AA 

0 A A20 

0 

TC 

FLASHON 

090  2 

REF 

2 

LAST 

A20 

A 1 , 2 3A5 

0 C 136 

0 

ENDRQOAT 

TC 

ENTEX IT 

0903 

REF 

8 

LAST 

A 1 A 

Al, 23A6 

55 ' 001 

0 

TS 

NOUNREG 

090A 

REF 

65 

LAST 

A2A 

Al ,23A7 

56  002 

0 

UPDATNN 

XCH 

Q 

0905 

REF 

l 

A 1 , 2 350 

5 A 117 

1 

TS 

UPDATRET 

0906 

Al, 2351 

0 0006 

1 

EXTENO 

0907 

REF 

3 

LAST 

A 2 1 

A 1 , 235  2 

3 2 1A 1 

1 

DC  A 

L ODNNLOC 

0908 

REF 

5 

LAST 

A21 

Al ,2353 

52  C06 

0 

DXCH 

Z 

0909 

REF 

5 

LAST 

A23 

A1.235A 

1C  IA6 

0 

CCS 

NNADTEM 

0910 

REF 

3A 

LAST 

A 2 1 

A 1 , 2 35  5 

6 A 7AA 

1 

AD 

ONE 

091  l 

REF 

1 

A 1 , 2 356 

1 2361 

0 

TCF 

PUTADD 

0912 

REF 

2 

LAST 

A2A 

A 1 , 2 35  7 

1 2362 

0 

TC  F 

PUTADD 

0913 

REF 

3 

LAST 

A2A 

Al , 2360 

l 2362 

0 

TCF 

PUTADD 

091 A 

REF 

A 

LAST 

A 2 1 

Al, 2361 

0 A2  7A 

1 

PUTADD 

TC 

SETNC ADR 

0915 

REF 

3 

LAST 

A 1 A 

A 1,  236  2 

3 A 3 52 

1 

CAF 

ND1 

0916 

REF 

25 

LAST 

A2A 

A 1 , 2 363 

5 A 776 

0 

TS 

DSPCOUNT 

091  7 

REF 

9 

LAST 

A2A 

A1.236A 

3 1001 

1 

CA 

NOUNREG 

0918 

REF 

1 

A 1 , 2365 

1 237A 

1 

TCF 

UPDAT 1 

0919 

REF 

15 

LAST 

A23 

Al , 2366 

55*000 

1 

TS 

VER8REG 

092  0 

REF 

66 

LAST 

A2A 

Al ,2367 

56  002 

0 

UPDATVB 

XCH 

Q 
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DP20UT 

LRPOSOUT  NO  OP  (DATA  IN  CHANNFL  33) 

0P30UT 

HMS  NO  DP 

M/S  NO  DP 

OPAOUT 

ARITHl  NO  DP 

2INT0UT  NO  DP  TO  GET  HI  PART  IN  MPAC 
360-CDIJ  NO  DP 
RRANGOUT  NO  DP 
RRDOT OUT  NO  DP 

RETURN  TO  L+2 


SWITCH  BANKS  TO  NOUN  TABLE  READING 
ROUTINE. 

NORMAL 

MCTBS  DONT  CHANGE  NOUNADO 
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ECADR  INTO  NOUNCADR.  SETS  EB,  NOUNADD. 
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• 

L 

PINBALL 

GAME 

BUTTONS  AND  LIGHTS 

0921 

REF 

2 

LAST 

424 

41,2370 

54  117 

1 

TS 

UPDATRET 

• 

092  2 

REF 

5 

LAST 

420 

41,2371 

3 4351 

1 

CAE 

VD1 

0923 

REF 

26 

LAST 

424 

41,2372 

54  776 

0 

TS 

DSPCOUNT 

0924 

REF 

16 

LAST 

424 

41,2373 

3 1000 

0 

CA 

VERBREG 

092  5 

REF 

20 

LAST 

421 

41,2374 

0 4626 

1 

UPDAT1 

TC 

POSTJUMP 

- 1 

0926 

REF 

1 

41 ,2375 

61346 

1 

CADR 

GOVNUPDT 

r-0 

0927 

REF 

3 

LAST 

425 

41,2376 

0 0117 

0 

TC 

UPDATRET 

00 

& 

0928 

REF 

2 

LAST 

420 

41  ,2377 

0 6020 

0 

GOALMCYC 

TC 

A LMCYCLE 

0929 

REF 

21 

LAST 

425 

41,2400 

0 4626 

1 

GODSPALM 

TC 

POST  JUMP 

0 

0930 

REF 

2 

LAST 

422 

41,2401 

61447 

1 

CADR 

DSPALARM 
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USER'S  PAGE  NO. 

25 

EO  S4 

P0931 

R0932 

R0933 

NOUN  TABLES 

NOUN  CODE  L/40,  NORMAL  NOUN  CASE. 
FOR  NORMAL  CASE,  NNADTAB  CONTAINS 

NOUN 

ONE 

CODE  G/E  40, 
ECADR 

MIXED  NOUN  CASE. 
FOR  EACH  NOUN. 

R0934  +0  I NO  I CATES  NOUN  NOT  USED.  - ENTRY  INDICATES  MACHINE  CADRIE  OR  F)  TO 

R0935  BE  SPECIFIED.  -1  INDICATES  CHANNEL  TO  BE  SPECIFIED.  -0  INDICATES  AUGMENT 

R0936  OF  LAST  MACHINE  CADR  SUPPLIED. 


R0937  FOR  MIXED  CASE,  NNADTAB  CONTAINS  ONE  INDIRECT  ADORE S S I IDADDRE L ) IN  LOW 
R0938  10  BITS,  AND  THE  COMPONENT  CODE  NUMBER  IN  THE  HIGH  5 BITS. 

R0939  NNTYPTAB  IS  A PACKED  TABLE  OF  THE  FORM  MMMMMNNNNNPPPPP . 


R0940 

FOR  THE  NORMAL 

CASE 

, M- 

S 

ARE  THE  COMPONENT  CODE  NUMBER. 

R0941 

N- 

■S 

ARE  THE  SF 

ROUTINE  CODE 

NUMBER . 

R0942 

P- 

•s 

ARE  THE  SF 

CONSTANT  CODE 

NUMBER. 

R094  3 

MIXED  CASE.M-S 

ARE 

THE 

SF 

CONST  ANT3 

CODE 

NUMBER 

3 COMPONENT  CASE 

R0944 

N-S 

ARE 

THE 

SF 

CONST  ANT2 

CODE 

NUMBER 

R0945 

P-S 

ARE 

THE 

SF 

CONST  ANTI 

CODE 

NUMBER 

R0946 

N-S 

ARE 

THE 

SF 

CONST  ANT2 

CODE 

NUMBER 

2 COMPONENT  CASE 

R094  7 

P-S 

ARE 

THE 

SF 

C0NSTANT1 

CODE 

NUMBER 

R0948 

P-S 

ARE 

THE 

SF 

CONSTANT  1 

CODE 

NUMBER 

1 COMPONENT  C ASF 

R0949  THERE  IS  ALSO  AN  INDIRECT  ADDRESS  TASL E ( 1 D AD DT AB ) FOR  MIXED  CASE  ONLY. 

R0950  EACH  ENTRY  CONTAINS  ONE  ECADR.  IDAODREL  IS  THE  RELATIVE  ADDRESS  OF 

R0951  THE  FIRST  OF  THESE  ENTRIES. 

R0952  THERE  IS  ONE  ENTRY  IN  THIS  TABLE  FOR  EACH  COMPONENT  OF  A MIXED  NOUN 

R0953  THEY  ARE  LISTED  IN  ORDER  OF  ASCENDING  K. 

R0954  THERE  IS  ALSO  A SCALE  FACTOR  ROUTINE  NUMBER  TABLE!  RUTMXTAB  ) FOR  MIXFO 
R0955  CASE  ONLY.  THERE  IS  ONE  ENTRY  PER  MIXED  NOUN.  THE  FORM  IS, 

R095  6 CGQQQRRRRRSSSSS 

R0957  Q-S  ARE  THE  SF  ROUTINE  3 CODE  NUMBER  3 COMPONENT  CASE 

R0958  R-S  ARE  THE  SF  ROUTINE  2 CODE  NUMBER 

R0959  S-S  ARE  THE  SF  ROUTINE  1 CODE  NUMBER 

R0960  R-S  A R F THE  SF  ROUTINE  2 CODE  NUMBER  2 COMPONENT  CASE 

R0961  S-S  APE  THE  SF  ROUTINE  1 CODE  NUMBER 


R0962  IN  OCTAL  DISPLAY  AND  LOAD  (OCT  OR  DEC)  VERBS,  EXCLUDE  USE  OF  VERBS  WHOSE 

R0963  COMPONENT  NUMBER  IS  GREATER  THAN  THE  NUMBER  OF  COMPONENTS  IN  NOUN. 

R0964  (ALL  MACHINE  ADDRESS  TO  BE  SPECIFIED  NOUNS  ARE  3 COMPONENT.) 


RU967  IN  MLLT I -COMPONENT  LCAD  VERBS,  NO  MIXING  OF  OCTAL  ANO  DECIMAL  DATA 

R0968  COMPONENT  WORDS  IS  ALLOWED.  ALARM  IF  VIOLATION. 

R0969  IN  DECIMAL  LOADS  OF  DATA,  5 NUMERICAL  CHARACTERS  MUST  BE  KEYED  IN 
R0970  BEFORE  EACH  ENTER.  IF  NOT,  ALARM. 
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P0971 

DISPLAY 

VERBS  • 

0972 

REF 

21 

LAST 

423 

41 , 2402 

4 4743 

1 

DSPABC 

CS 

TWO 

1973 

KEF 

1 

41,2403 

0 2453 

1 

TC 

COMPTEST 

0974 

REF 

3 

LAST 

423 

41,2404 

50  145 

1 

INDEX 

NOUNADD 

0975 

41,2405 

4 C002 

1 

CS 

2 

0976 

REF 

41 

LAST 

348 

41,2406 

56  132 

1 

XCH 

BUF  +2 

0977 

REF 

35 

LAST 

424 

41,2407 

4 4744 

0 

DSPAB 

CS 

ONE 

0978 

REF 

2 

LAST 

427 

41,2410 

0 2453 

1 

TC 

COMPTEST 

0979 

REF 

4 

LAST 

427 

41,2411 

50  145 

1 

INDEX 

NOUNADD 

0980 

41, 2412 

4> 

O 

O 

o 

1 

CS 

L 

0981 

REF 

42 

LAST 

427 

41,2413 

56  131 

1 

XCH 

BUF  +1 

0982 

REF 

1 

41,2414 

0 2472 

1 

DSPA 

TC 

DECTEST 

0983 

REF 

1 

41,2415 

0 2515 

1 

TC 

TSTFORDP 

0984 

REF 

5 

LAST 

427 

41 , 2416 

50  145 

1 

INDEX 

NOUNADD 

0985 

41,2417 

4 C000 

0 

CS 

0 

0986 

REF 

43 

LAST 

427 

41,2420 

56  130 

0 

DSPC0M1 

XCH 

BUF 

0987 

REF 

1 

41,2421 

0 2434 

0 

TC 

DSPC0M2 

0988 

REF 

36 

LAST 

427 

41,2422 

4 4744 

0 

DSPB 

CS 

ONE 

0989 

REF 

l 

41,2423 

0 2466 

1 

TC 

DCOM  P TS  T 

0990 

REF 

6 

LAST 

427 

41,2424 

50  145 

1 

INDEX 

NOUNADD 

0991 

41,2425 

4 C001 

1 

CS 

1 

0992 

REF 

1 

41,2426 

0 2420 

0 

TC 

DSPC0M1 

0993 

REF 

22 

LAST 

427 

41,2427 

4 4743 

1 

OS  PC 

CS 

TWO 

0994 

REF 

2 

LAST 

427 

41,2430 

0 2466 

1 

TC 

DCOMPTST 

0995 

REF 

7 

LAST 

427 

41,2431 

50  145 

1 

INDEX 

NOUNADD 

P996 

41,2432 

4 0002 

1 

CS 

2 

099  7 

REF 

2 

LAST 

427 

41,2433 

0 2420 

0 

TC 

DSPC0M1 

0998 

REF 

23 

LAST 

427 

41 , 2434 

4 4743 

1 

DSPCOM2 

CS 

TWO 

0999 

REF 

17 

LAST 

425 

41, 2435 

6 1000 

0 

AD 

VERBREG 

1000 

REF 

109 

LAST 

423 

41 , 2436 

10  000 

0 

CCS 

A 

1001 

REF 

1 

41,2437 

0 2442 

1 

TC 

DSPC0M3 

100  2 

REF 

3 

LAST 

424 

41,2440 

0 0136 

0 

TC 

ENTEX IT 

100  3 

41,2441 

0 2442 

1 

TC 

+ 1 

1004 

REF 

1 

41,2442 

54  122 

1 

DSPCQM3 

TS 

DISTEM 

100  5 

REF 

1 10 

LAST 

427 

41,2443 

50  000 

1 

INDEX 

A 

1006 

REF 

4 

LAST 

424 

41,2444 

3 4310 

l 

CAF 

R1D1 

1007 

REF 

27 

LAST 

425 

41,2445 

54  776 

0 

TS 

D SPCOUNT 

1008 

REF 

2 

LAST 

427 

41,2446 

50  122 

0 

INDEX 

DISTEM 

1009 

REF 

44 

LAST 

427 

41,2447 

4 C 1 30 

1 

CS 

BUF 

1010 

REF 

2 

LAST 

42  1 

41,2450 

0 3435 

0 

TC 

D SPOCTWD 

101  1 

REF 

3 

LAST 

427 

41,2451 

56  122 

0 

XCH 

DISTEM 

1012 

REF 

2 

LAST 

427 

41,2452 

0 2436 

1 

TC 

DSPC0M2  +2 

(1013 

CCMPTEST 

ALARMS 

. I F 

COMPONENT 

NUMBER  OF 

VERB! LOAD 

OR  OCT 

DISPLAY)  I 

R1014 

1016 

1017 

1022 

1023 

1024 


GREATER  THAN  THE  HIGHEST  COMPONENT  NUMBER  OF  NOUN. 


REF 

REF 

REF 

REF 

REF 


4 

67 

1 

1 

10 


LAST 

LAST 


317 

424 


41.2453 

41.2454 

41.2455 

41.2456 

41.2457 


54  123  0 
22  002  0 
0 2544  0 
0 4322  0 
7 6266  1 


COMPTEST  TS 

LXCH 

C0MPTST1  TC 
TC 

MASK 


SFTEMP1 

Q 

GETCOMP 
LEFT  5 
THREE 


LAST 


419 
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A 

B 

c 

AB 

ABC 

-1 

-0 

+1 

+ 2 

+3 

IN  A 

+ 0 

+ 0 

+ 0 

+ 1 

+ 2 

IN  A AFTER  CCS 

+0, 

,+l 

,+2 

INTO 

DISTEM 

- VERB  COMP 


NOUN  COMP 
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1025 

REF 

5 

LAST 

927 

91 ,2960 

6 0123 

1 

AD 

SFTEMP1 

102  6 

REF 

111 

LAST 

927 

91,2961 

10  000 

0 

CCS 

A 

1027 

REF 

96 

LAST 

917 

91,2962 

0 0001 

0 

TC 

L 

1028 

REF 

9 

LAST 

916 

91,2963 

0 5701 

1 

TC 

CCSHOLE 

1029 

REF 

19 

LAST 

923 

91,2969 

0 2900 

1 

TC 

GODSPALM 

1030 

REF 

97 

LAST 

928 

91,2965 

0 0001 

0 

NDCMPTST  TC 

L 

1031 

OCCMPTST 

ALARMS  IF 

DECIMAL  ONLY  BIT 

( B I T9  OF  COMP  CODE 

NUMBER)  = 

1032 

IF 

NOT, 

IT  PERFORMS 

REGULAR  COMPTEST 

. 

1033 

REF 

6 

LAST 

928 

91,2966 

59  123 

0 

DCOMPTST 

TS 

SFTEMP1 

1039 

REF 

68 

LAST 

9 27 

91 ,29o7 

22  002 

0 

LXCH 

0 

1035 

REF 

2 

LAST 

927 

91,2970 

0 2972 

1 

TC 

DECTEST 

1036 

REF 

1 

91,2971 

0 2955 

1 

TC 

C OMP  T ST  l 

1037 

91,2972 

0 C006 

1 

DECTEST 

EXTEND 

103  8 

REF 

09 

LAST 

92  1 

91,2973 

22  156 

0 

QXCH 

MPAC 

1039 

RFF 

2 

LAST 

927 

91 ,2979 

0 2599 

0 

TC 

GETCOMP 

109  0 

REF 

35 

LAST 

386 

91,2975 

7 9727 

0 

MASK 

BIT19 

109  1 

REF 

112 

LAST 

928 

91,2976 

10  000 

0 

CCS 

A 

1092 

REF 

15 

LAST 

92  8 

91 ,2977 

0 ,2900 

1 

TC 

GODSPALM 

1093 

REF 

90 

LAST 

928 

91,2500 

0 C 1 56 

0 

TC 

MPAC 

1099 

REF 

69 

LAST 

928 

91,2501 

22  002 

0 

DCTSTCYC  LXCH 

Q 

109  5 

REF 

3 

LAST 

92  8 

91,2502 

0 2 599 

0 

TC 

GETCOMP 

1096 

REF 

36 

LAST 

928 

91,2503 

7 9727 

0 

MASK 

B I T 1 9 

109  7 

REF 

113 

LAST 

928 

91,2509 

10  000 

0 

CCS 

A 

109  8 

REF 

3 

LAST 

925 

91,2505 

0 6 C 20 

0 

TC 

ALMCYCLE 

1099 

REF 

98 

LAST 

928 

91,2506 

0 0001 

0 

TC 

L 

1050 
105  l 

NOUNTEST 
IF  NOT, 

ALARMS  IF 
IT  RETURNS, 

NC-LOAD  B 1 

T (BIT5 

OF 

COMP  CODE  NUMBER)  = 1. 

1052 

REF 

70 

LAST 

928 

91,2507 

22  002 

0 

NOUNTEST  LXCH 

0 

1053 

REF 

9 

LAST 

928 

91,2510 

0 2599 

0 

TC 

GETCOMP 

1059 

REF 

119 

LAST 

928 

91,2511 

10  000 

0 

CCS 

A 

1055 

REF 

99 

LAST 

928 

91,2512 

0 CC01 

0 

TC 

L 

1056 

REF 

50 

LAST 

928 

91,2513 

0 OCOl 

0 

TC 

L 

105  7 

RFF 

16 

LAST 

928 

91,2519 

0 2900 

1 

TC 

GODSPALM 

1058 

REF 

71 

LAST 

928 

91,2515 

22 

002 

0 

TSTFORDP  LXCH 

Q 

1059 

REF 

6 

LAST 

929 

91,2516 

3 

0196 

1 

CA 

NNADTEM 

1060 

REF 

37 

LAST 

927 

91,2517 

6 

9799 

1 

AD 

ONE 

106  1 

91, 2520 

0 

0006 

1 

EXTEND 

1062 

REF 

1 

91,2521 

1 

2533 

1 

BZF 

CHANDSP 

1063 

REF 

9 

LAST 

920 

91,2522 

50 

190 

1 

INDEX 

M I XBR 

1069 

91,2523 

0 

2523 

1 

TC 

+ 0 

106  5 

91,2529 

0 

2526 

1 

TC 

+ 2 
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USER' 

1 S PAGE 

NO.  27 

NOUN 

COMP 

- VERB 

COMP 

NOUN 

COMP 

G/  VERB 

COMP 

NOUN 

NOUN 

COMP 

COMP 

L/  VERB 
= VERB 

COMP 

COMP 

- VERB  COMP 


ALARMS  IF  DEC  ONLY  BIT  = I (BIT4  OF  COMP 
CODE  NUMBER).  RETURNS  IF  NOT. 


ALARMS  AND  RECYCLES  IF  DFC  ONLY  BIT  = 1 
( BIT9  OF  COMP  CODE  NUMBERI.  RETURNS 
IF  NOT.  USED  BY  LOAD  VERBS. 


TEST  FOR  DP.  IF  SO,  GET  MINOR  PART  ONLY. 
IF  NNADTEM  = -1,  CHANNEL  TO  BE  SPECIFIED 


NORMAL 


GAP: 
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1066 

REF 

5 1 

LAST 

428 

41,2525 

0 

OCOl 

0 

TC 

L 

106  7 

REF 

1 

41,2526 

0 

3C76 

0 

TC 

SFRUTNOR 

1068 

REF 

2 

LAST 

423 

41,2527 

0 

2306 

0 

TC 

DPTEST 

1069 

REF 

52 

LAST 

429 

41,2530 

0 

C001 

0 

TC 

L 

1070 

REF 

8 

LAST 

427 

41,2531 

24 

145 

1 

I NCR 

NOUNADD 

1071 

REF 

53 

LAST 

429 

41,2532 

0 

CC01 

0 

TC 

L 

1072 

REF 

3 

LAST 

421 

41,2533 

3 

1016 

1 

CHANDSP  CA 

NOUNCADR 

1073 

REF 

7 

LAST 

282 

41,2534 

7 

4775 

1 

MASK 

L0W9 

1073  1 

41,2535 

0 

CC06 

1. 

EXTEND 

10732 

REF 

115 

LAST 

428 

41,2536 

5 

COOO 

1 

INDEX 

A 

1074 

41,2537 

CC 

COO 

1 

READ 

0 

1075 

REF 

116 

LAST 

429 

41,2540 

4 

COOO 

0 

CS 

A 

1076 

REF 

3 

LAST 

427 

41,2541 

1 

2420 

1 

TCF 

DSPC0M1 

1077 

REF 

2 

LAST 

316 

41,2542 

OC  147 

0 

COMP ICK 

ADRES 

NNTYPTEM 

1078 

REF 

7 

LAST 

428 

41,2543 

00146 

1 

ADRES 

NNADTEM 

1079 

REF 

5 

LAST 

428 

41,2544 

50  140 

1 

GETCOMP 

INDEX 

MIXBR 

1080 

REF 

1 

41,2545 

3 2541 

0 

CAF 

COMPICK  -1 

1081 

REF 

117 

LAST 

429 

41,2546 

50  000 

1 

INDEX 

A 

1082 

41,2547 

3 COOO 

1 

CA 

0 

1083 

REF 

4 

LAST 

244 

41,2550 

7 4341 

1 

MASK 

H 1 5 

1084 

REF 

72 

LAST 

428 

41,2551 

0 C 002 

0 

TC 

Q 

1085 

REF 

5 

LAST 

428 

41,2552 

0 2544 

0 

DFCDSP  TC 

GETCOMP 

1086 

REF 

2 

LAST 

427 

41,2553 

0 4322 

0 

TC 

LEFT5 

1087 

REF 

11 

LAST 

427 

41,2554 

7 6266 

1 

MASK 

THREE 

1088 

REF 

4 

LAST 

423 

41,2555 

54  117 

1 

TS 

DECOUNT 

1089 

REF 

1 

41,2556 

54  122 

1 

DSPDCGET  TS 

DECTEM 

1090 

RFF 

9 

LAST 

429 

41,2557 

6 0145 

1 

AD 

NOUNADD 

1091 

REF 

118 

LAST 

429 

41,2560 

50  000 

1 

INDEX 

A 

1092 

41,2561 

4 CCOO 

0 

CS 

0 

1093 

REF 

2 

LAST 

429 

41,2562 

50  122 

0 

INDEX 

DECTEM 

1094 

REF 

2 

LAST 

317 

41,2563 

57  1 002 

1 

XCH 

X REG 

1095 

REF 

3 

LAST 

429 

41,2564 

10  122 

1 

CCS 

DECTEM 

1096 

REF 

1 

41,2565 

0 2556 

0 

TC 

DSPDCGET 

1097 

REF 

65 

LAST 

420 

41,2566 

3 4 746 

0 

DSPDCPUT  CAF 

ZERO 

1098 

REF 

91 

LAST 

428 

41,2567 

54  155 

1 

TS 

M P AC  +1 

1099 

REF 

92 

LAST 

429 

41,2570 

54  156 

1 

TS 

MPAC  +2 

1 100 

REF 

5 

LAST 

429 

41,2571 

50  117 

0 

INDEX 

DECOUNT 

1 101 

REF 

5 

LAST 

427 

41,2572 

3 4310 

1 

CAF 

R ID1 

1102 

REF 

28 

LAST 

42  7 

41,2573 

54  776 

0 

TS 

DSPCOUNT 

1103 

REF 

6 

LAST 

429 

41,2574 

50  117 

0 

INDEX 

DECOUNT 

1 104 

REF 

3 

LAST 

429 

41,2575 

4 1002 

0 

CS 

XREG 

1 105 

REF 

93 

LAST 

429 

41,2576 

54  154 

0 

TS 

MPAC 

1106 

REF 

1 

41,2577 

0 3117 

0 

TC 

SFCONUM 
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USER' S PAGE  NO.  28  EO  S4 

MIXED  CASE  ALREADY  HANDLED  IN  MIXNOUN 

NO  DP 

OP  E+l  INTO  NOUNADD  FOR  MINOR  PART. 


NORMAL 

ADRES  NNTYPTEM 


MIXED 

ADPES  NNADTEM 


C(NNTYPTEM)  C (NNADTEM ) 

GET  H 1 5 OF  NNTYPTAR1N0RMI0F  NNADTAB(MIX) 


COMP  NUMBER  INTO  DECOUNT 
PICKS  UP  DATA 

DECTEM  1C0MP  +0,  2C0MP  +1,  3C0MP  +2 


CANT  USE  BUF  SINCE  DMP  USES  IT. 

MORE  TO  GFT 
DISPLAYS  DATA 

DECOUNT  1C0MP  +0,  2C0MP  +1,  3C0MP  +2 


2X(  SF  CON  NUMB  I IN  A 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LOMINARY  BY  NASA  2021112-161 


PINBALL 

GAME 

BUTTONS  AND  LIGHTS 

110  7 

REF 

7 

LAST 

42  8 

41,2600 

54 

123 

0 

TS 

SFTEMP1 

1100 

41,2601 

0 

C006 

1 

EXTEND 

1109 

REF 

1 

41,2602 

3 

2614 

0 

DC  A 

GTSFOUTL 

1110 

REF 

fc 

LAST 

424 

41,2603 

52 

006 

0 

DXCH 

Z 

mi 

REF 

6 

LAST 

429 

41,2604 

50 

140 

1 

INDEX 

MIXBR 

1112 

41,2605 

0 

2605 

0 

TC 

+ 0 

1113 

REF 

1 

41,2606 

0 

2611 

0 

TC 

DSPSFNOR 

1114 

REF 

2 

LAST 

42  3 

41 ,2607 

0 

3104 

1 

TC 

SFRUTMI X 

111S 

REF 

1 

41,2610 

0 

2624 

0 

TC 

DECDSP3 

1116 

REF 

2 

LAST 

429 

41,2611 

0 

3C76 

0 

DSPSFNOR 

TC 

S FRUTNOR 

1117 

REF 

2 

LAST 

430 

41,2612 

0 

2624 

0 

TC 

DECDSP3 

1118 

REF 

29 

LAST 

429 

0776 

EBANK= 

D SPCOUNT 

1119 

REF 

1 

41,2613 

02146 

0 

GTSFOUTL 

2CADR 

GTSFOUT 

1119 

REF 

1 

41,2614 

64101 

0 

1 120- 

REF 

85 

LAST 

424 

41, 2615 

0 4607 

1 

DSPDCEND  TC 

B AMKCALL 

1121 

REF 

1 

41,2616 

61255 

1 

CADR 

DSPDECWD 

1 L22 

REF 

7 

LAST 

429 

41,2617 

10  117 

1 

CCS 

DECOUNT 

1 123 

41,2620 

0 2622 

0 

TC 

+ 2 

1124 

REF 

4 

LAST 

427 

4 1 ,2621 

0 C 136 

0 

TC 

ENTEX IT 

1125 

REF 

8 

LAST 

430 

41,2622 

54  117 

1 

TS 

DECOUNT 

1 126 

REF 

1 

41,2623 

0 2566 

0 

TC 

DSPDCPUT 

1127 

REF 

119 

LAST 

429 

41 ,2624 

50  000 

1 

0ECDSP3  INDEX 

A 

1128 

REF 

1 

41,2625 

3 2627 

0 

CAF 

SFOUTABR 

1 129 

REF 

3 

LAST 

421 

41,2626 

0 4631 

1 

TC 

B ANKJUMP 

1 130 

REF 

1 

41,2627 

61445 

0 

SFOUTABR  CADR 

PREDSPAL 

1 13  1 

REF 

1 

41,2630 

6 2 615 

1 

CADR 

OSPDCENO 

1 132 

REF 

1 

41,2631 

6C604 

0 

CADR 

D EGO UTS F 

1 133 

REF 

1 

41,2632 

6C726 

1 

CADR 

ARTOUTSF 

1 134 

REF 

1 

41,2633 

6 C 73  7 

l 

CADR 

DP10UTSF 

1 135 

REF 

l 

41,2634 

6 C 744 

0 

CADR 

DP20UTSF 

1 136 

REF 

1 

41,2635 

6C624 

1 

CADR 

L RPOSOUT 

1137 

REF 

1 

41,2636 

6 C 746 

1 

CADR 

DP30UTSF 

1 138 

REF 

1 

41 , 2637 

65241 

0 

CADR 

HMSOUT 

1 139 

REF 

1 

4 l, 2640 

65314 

l 

CADR 

M/SOUT 

1 140 

REF 

2 

LAST 

430 

41,2641 

6C744 

0 

CADR 

0P20UTSF 

11401 

REF 

l 

41,2642 

6C733 

0 

CADR 

A ROUT  1 SF 

11402 

REF 

1 

41,2643 

6 C 76 1 

l 

CADR 

2 INTOUT 

1140  3 

REF 

1 

41,2644 

60612 

1 

CADR 

360-CDU0 

LI 4 0 , 

REF 

1 

41,2645 

6C634 

0 

CADR 

RRANGOUT 

I l 

REF 

1 

41,2646 

6C651 

0 

CAOR 

RRDOTOUT 

1 141 

41,2647 

ENDRTOUT  EQUALS 
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SWITCH  BANKS  TO  SF  CONSTANT  TABLE 
READING  ROUTINE. 

LOADS  SFTFMP1,  SFTEMP2. 


ALL  S F CUT  ROUTINES  END  HFRE 


MORE  TO  DISPLAY 


ALARM 


IF  DEC  DISP  WITH  OCTAL  ONLY  NOUN 
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L PINBALL  GAME  BUTTONS  ANO  LIGHTS 

R1142  THE  FOLLOWING  IS  ATYPICAL  SF  ROUTINE  . IT  USES  MPAC.  LEAVES  RESU 

R 1 143  LTS  IN  MPAC,  MPAC+1.  ENDS  WITH  TC  OSPDCEND 


USER'S  PAGE  NO.  30 


EO  S4 


1 144 

REF 

2 

LAST 

417 

40,2604 

SETLOC 

BLANKCON  +1 

11445 

REF 

2 

LAST 

410  TO 

419: 

341  341* 

COUNT* 

$ $/P I N 

R 1 14  5 

DEGTUTSF  SCALES  BY 

.18  THE 

LOW  14 

BITS  OF  ANGLE  , ADDING  .18  FOR 

R 1 146 

NUMBERS 

IN  THE 

NEGATIVE  ( AGO  1 

RANGE. 

1147 

REF 

66 

LAST 

429 

40,2604 

3 4746 

0 DEGOUTSF 

CAF 

ZERO 

1 148 

REF 

94 

LAST 

429 

40,2605 

54  156 

1 

TS 

MPAC  +2 

SET 

INDEX  FOR 

FULL  SCALE 

1149 

REF 

1 

40,2606 

0 2701 

0 

TC 

F IXRANGE 

115' 

40,2607 

0 2611 

0 

TC 

+ 2 

NO 

AUGMENT  NEEDED  (SFTEMP1 

AND  2 

ARE  0) 

1151 

REE 

1 

40,2610 

0 26  74 

0 

TC 

SETAUG 

SET 

AUGMENTER 

ACCORDING  TO 

CtMPAC 

+ 2) 

11511 

REF 

1 

40,2611 

0 2712 

1 

TC 

DEGCOM 

R 1 15 2 360-CCUO  COMPUTES  360  - CDU  ANGLE  IN  MPAC,  STORES  RESULT  IN  MPAC  AND 
R1 152  1 GOES  TO  DEGOUTSF. 


11522 

REF 

1 

40,2612 

0 

2614 

0 

3 60—  C DUO 

TC 

360-CDU 

11523 

REF 

2 

LAST 

43  0 

40,2613 

0 

2604 

1 

TC 

DEGOUTSF 

11524 

REF 

95 

LAST 

431 

40,2614  . 

3 

0154 

1 

360-CDU 

CA 

MPAC 

11525 

REF 

6 

LAST 

393 

40,2615 

7 

4 724 

0 

MASK 

POSMAX 

IF  ANGLE  IS 

0 OR  180  DEGREES,  DO  NOTHING 

11526 

40,2616 

0 

0006 

1 

EXTEND 

11527 

REF 

1 

40,2617 

1 

2623 

0 

BZF 

360— C DUE 

1152  6 

REF 

56 

LAST 

43  1 

40,2620 

4 

0154 

0 

CS 

MPAC 

COMPUTE  360 

DEGREES  MINUS  ANGLE 

11525 

REF 

38 

LAST 

428 

40,2621 

6 

4744 

1 

AD 

ONE 

1 15251 

REF 

57 

LAST 

43  l 

40,2622 

55 

154 

0 

TS 

MPAC 

1 15292 

REF 

73 

LAST 

429 

40,2623 

0 

0002 

0 

3 60- CDU  E 

TC 

Q 

R 1 1 5 3 LRPOSOUT  DISPLAYS  +0,1, 2, OR  3 (WHOLE)  FOR  CHANNEL  33, BITS  7-6  = 11,10, 
R 1 154  01,00  RESPECTIVELY. 


1155 

40,2624 

0 0006 

1 

LRPOSOUT 

EXTFND 

1156 

REF 

6 

LAST 

289 

40,2625 

00  033 

1 

READ 

CHAN33 

1157 

40,2626 

0 0006 

1 

EXTEND 

1158 

REF 

18 

LAST 

387 

40,2627 

7 4 733 

0 

MP 

8 I T 1 0 

BITS  7-6  TO  BITS  2-1 

1 159 

40,2630 

4 0000 

0 

COM 

l 1 

REF 

12 

LAST 

429 

40,2631 

7 6266 

1 

MASK 

THREE 

1161 

REF 

9 8 

LAST 

431 

40,2632 

54  154 

0 

TS 

MPAC 

1162 

REF 

2 

LAST 

430 

40,2633 

0 2 726 

0 

TC 

ARTOUTSF 

DISPLAY  AS  WHOLE 

R1163 

RRANGC'UT 

AND  RRUOTOUT  CONVERT 

RR  RANGE 

AND  RANGE 

RATE  FROM  SP  15  BIT 

R11633 

MAGNITUDE 

TO  DP 

AND 

THEN  SCALE  FOR  DISPLAY. 

11636 

REF 

1 

40,2634 

0 2664 

1 

RRANGOUT 

TC 

RRSPTODP 

CONVERT  TO  OP. 

11635 

REF 

27 

LAST 

335 

40,2635 

4 0110 

0 

CS 

RADMODES 

RIT  3 OF  FLAG12  = HI  SCALE 

11643 

REF 

22 

LAST' 

31  l 

40,2636 

7 4742 

0 

MASK 

8 IT3 
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11646 

REF 

120 

LAST 

430 

40,2637 

10  000 

0 

CCS 

A 

1 164  S 

REF 

1 

40,2640 

0 2646 

1 

TC 

SCALELO 

11653 

REF 

99 

LAST 

431 

■ 40,2641 

52  155 

1 

DXCH 

MPAC 

11656 

REF 

121 

LAST 

432 

40,2642 

20  001 

1 

DAS 

A 

1 16  5 S 

REF 

122 

LAST 

432 

40,2643 

20  001 

1 

DAS 

A 

1 1663 

REF 

123 

LAST 

432 

40,2644 

20  001 

1 

DAS 

A 

1 1666 

REF 

100 

LAST 

432 

40,2645 

52  155 

1 

DXCH 

MPAC 

11669 

REF 

2 

LAST 

412 

40,2646 

0 7124 

1 

SCALELO 

TC 

DMP 

1 1 r 

REF 

8 

LAST 

430 

40,2647 

00123 

1 

ADRES 

SFTEMP1 

11676 

REF 

1 

40,2650 

0 2 740 

0 

TC 

L 14/OUT 

1 1679 

REF 

2 

LAST 

431 

40,2651 

0 2664 

1 

R ROD  TOUT 

TC 

RRSPTODP 

11683 

40,2652 

0 0006 

1 

EXTEND 

1 I6d6 

REF 

1 

40,2653 

4 2663 

1 

DCS 

BIASRDOT 

11689 

REF 

101 

LAST 

432 

40,2654 

20  155 

l 

DAS 

MPAC 

1169 

REF 

5 

LAST 

412 

40, 2655 

3 4354 

1 

CAF 

TEN 

11691 

REF. 

2 

LAST 

412 

40,2656 

0 7330 

0 

TC 

SHORTMP 

11692 

REF 

1C? 

LAST 

432 

40,2657 

52  156 

l 

DXCH 

MPAC  +1 

116921 

REF 

IC3 

LAST 

432 

40,2660 

52  155 

1 

DXCH 

MPAC 

11693 

REF 

2 

LAST 

432 

40,2661 

0 2646 

1 

TC 

SCALELO 

11696 

40,2662 

00C01 

0 

B I AS  R DOT 

20EC 

17000 

11696 

40,2663 

01150 

1 

1 1699 

REF 

7 

LAST 

431 

40,2664 

3 4724 

1 

RRSPTODP 

CAF 

POSMAX 

1171 

REF 

104 

LAST 

432 

40,2665 

7 0154 

0 

MASK 

MPAC 

11713 

REF 

1C5 

LAST 

432 

40,2666 

54  155 

1 

TS 

MPAC  +1 

11716 

REF 

1 C 6 

LAST 

432 

40,2667 

3 0154 

l 

CA 

MPAC 

11719 

40,2670 

6 0000 

1 

DOUBLE 

11723 

REF 

20 

LAST 

308 

40,2671 

7 4744 

0 

MASK 

8 I T l 

11726 

REF 

1C7 

LAST 

432 

40,2672 

54  154 

0 

TS 

MPAC 

11729 

REF 

74 

LAST 

43  L 

40,2673 

0 0002 

0 

TC 

Q 

1174 

40,2674 

0 0006 

1 

SETAUG 

EXTEND 

1175 

REF 

1C  8 

LAST 

432 

40,2675 

5 0156 

0 

INDEX 

MPAC  +2 

1176 

REF 

1 

40,2676 

3 2723 

0 

DC  A 

DEGTAB 

1177 

REF 

9 

LAST 

432 

40,2677 

52  124 

1 

DXCH 

S F TEMP  1 

1178 

REF 

75 

LAST 

432 

40,2700 

0 0002 

0 

TC 

Q 

1179 

REF 

109 

LAST 

432 

40,2701 

10  154 

0 

F IXR  ANGE 

CCS 

MPAC 

1180 

REF 

76 

LAST 

432 

40,2702 

0 0002 

0 

TC 

Q 

1181 

REF 

77 

LAST 

432 

40,2703 

0 0002 

0 

TC 

0 

1182 

40,2704 

l 2705 

0 

TC  F 

+ 1 

1 183 

REF 

25 

LAST 

420 

40,2705 

4 4726 

1 

CS 

B I T 1 5 

1184 

REF 

1 10 

LAST 

432 

40,2706 

7 C 1 54 

0 

MASK 

MPAC 

1185 

REF 

1 11 

LAST 

432 

40,2707 

54  154 

0 

TS 

MPAC 

1186 

REF 

78 

LAST 

432 

40,2  710 

50  002 

0 

INDEX 

Q 

1137 

40,2711 

0 C001 

0 

TC 

1 

1188 

40,2712 

0 0006 

1 

DEGCOM 

EXTEND 

1189 

REF 

112 

LAST 

432 

40,2713 

5 C 1 56 

0 

INDEX 

MPAC  E 2 
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DATA  IS  IN  LO  SCALE. 

DATA  IS  IN  HI  SCALE,  MP  BY  8. 


SCALE  FOP  DISPLAY, 

ANO  GO  TO  ARITH0P1. 

CONVERT  TO  DP. 

SUBTRACT  BIAS  OF  17000  COUNTS. 

MULTIPLY  DATA  BY  TEN  TO  DISPLAY  TENTHS 
FPS  - (ATTEMPT  TO  MULTIPLY  DISPLAY 

SF  BY  TFN  PRODUCED  SF  GREATFR 
THAN  16383) 

SCALE  FOR  DISPLAY. 


CONVERT  SP  15  BIT  MAG  TO  DP. 


LOADS  SFTEMP1  AND  SFTEMP2  WITH  THE 
DP  AUGMENTER  CONSTANT 


IF  MP  AC  IS  + RETURN  TO  L+ 1 

IF  MP  AC  IS  - RETURN  TO  L+2  AFTER 

MASKING  OUT  THE  SIGN  BIT 


LOADS  MULTIPLIER 
ADDS  AUGMENTFR. 


DOES  SHORTMP,  AND 


GAP: 
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TC 
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MPAC+6 

= 

1217 

REF 
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DPOUT 

XCH 
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TS 
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13 
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DEGTAB 
M P AC 
SHORTMP 
SFTEMP1 
M P AC 

SCOUTEND 

ADJUSTED  ANGLE  IN  A 

05605 

03656 

16314 

31463 

HI  PART  OF  .18 
LOW  PART  OF  .18 
HI  PART  OF  .45 
LO  PART  OF  .45 

SFTEMP1 
M P AC 

PRSHRTMP 

POSTJUMP 

DSPDCFND 

ASSUMES  POINT  AT  LEFT  OF  DP  SFCON 
IF  CIA)  = -0,  SHORTMP  FAILS  TO  GIVF  -0. 

SFTEMP1 
M P AC 

PRSHRTMP 
L 14/OUT 

ASSUMES  POINT  BETWEEN  HI  AND  LO  PARTS  OF 
DP  SFCON.  SHIFTS  RESULTS  LEFT  14,  BY 
TAKING  RESULTS  FROM  MPAC+1,  MPAC+2. 

DPOUT 

MPAC  +2 

M P AC  +1 

MPAC 

SCOUTEND 

SCALES  MPAC,  MPAC  +1  RY  DP  SCALE  FACTOR 
IN  SFTEMP1 , SFTEMP2.  THFN  SCALE  RESULT 
RY  B 1 4 . 

DPOUT 

SCOUTEND 

SCALES  MPAC  , MPAC  +1  BY  DP  SCALE  FACTOR 

DPOUT 

SIX 

TPLEFTN 

SCOUTEND 

ASSUMES  POINT  BETWEEN  BITS  7-8  OF  HIGH 
LEFT  RY  7,  ROUNDS  MPAC+2  INTO  MPAC+1. 
SHIFT  LEFT  7. 

MPAC  +6 

USE  MPAC  +6  INSTEAD  OF  OVFIND 

Q 

MPAC+6 

READLO 

TPAGREE 

DMP 

SF  TEMP  1 

GET  FRESH  DATA  FOR  BOTH  HI  AND  LO. 
MAKE  DP  DATA  AGREE 
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( L IKE 

VERB 

AND 

NOUN) 

122371 

REF 

13 

LAST 

43  1 

40,2765 

4 6266 

1 

CS 

THREE 

122372 

REF 

9 

LAST 

430 
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40,2767 

6 4310 

1 

AD 

R ID  1 

RXD4 

122374 

REF 

30 

LAST 

430 
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R 1224  READLO  PICKS  UP  FRESH  DATA  FOR  BOTH  HI  AND  LO  AND  LEAVES  IT  IN 

R1225  MPAC,  MPACfl.  THIS  IS  NEEDED  FOR 'TIME  DISPLAY.  IT  ZEROES  MPAC+2,  BUT 

'R 122  6 DOES  NCT  FORCE  TPAGREF. 
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COUNT* 

$ $/P  I N 

TC 

BANKCALL 

READ  FRESH  DATA  FOR  HI  AND  LO  INTO  MPAC, 

CADR 

READLO 

MPAC+1 . 

TC 

TPAGREF 

MAKE  DP  DATA  AGREE 

TC 

SFPSECNR 

LFAVE  FPACT  SEC/60  IN  MPAC,  MPAC+1. LEAVE 
WHOLE  MIN  IN  BIT13  OF  LOTEMOUT  AND  ABOVE 

TC 

OMP 

USE  ONLY  FP.ACT  SEC/60  MOD  60 

ADRES 

SEC0N2 

MULT  BY  .06 

CAF 

R 3D  1 

GIVES  CENT I-SEC/10EXP5  MOD  60 

TS 

D SPCOUNT 

TC 

BANKCALL 

DISPLAY  SEC  MOD  60 

CADR 

USPDECWD 

TC 

SEPMIN 

REMOVE  REST  OF  SECONDS 

CAF 

MINC0N2 

LEAVE  FRACT  MIN/60  IN  MPAC+1.  LEAVE 

XCH 

MPAC 

WHOLE  HOURS  IN  MPAC. 

TS 

HITEMOUT 

SAVE  WHOLE  HOURS. 

CAF 

MINC0N2  +1 

XCH 

MPAC  + 1 

USE  ONLY  FRACT  MIN/60  MOD  60 

TC 

PRSHRTMP 

IF  CIA)  = -0,  SHORTMP  FAILS  TO  GIVE  -0. 
MULT  BY  .0006 

CAF 

R2D1 

GIVES  MIN/10EXP5  MOD  60 

TS 

D SPCOUNT 

TC 

BANKCALL 

DISPLAY  MIN  MOD  60 

CADR 

D SPDECWD 

EXTEND 
DC  A 

HRCON 1 

MINUTES,  SECONDS  HAVE  BEEN  REMOVED 

DXCH 

MPAC 

CA 

HITEMOUT 

USE  WHOLF  HOURS 

TC 

PRSHRTMP 

IF  CIA)  = -0,  SHORTMP  FAILS  TO  GIVE  -0. 
MULT  BY  .16384 

CAF 

R ID  1 

GIVES  HOURS/10EXP5 

TS 

D SPCOUNT 

TC 

BANKCALL 

USE  REGULAR  DSPDFCWD,  WITH  ROUND  OFF. 

CADR 

DSPDECWD 

TC 

ENTEXIT 

2DEC* 

1 . 6666666  6 6 

E-4  812*  2EXP 12/ 6000 

OCT 

01727 

.06  FOR  SECONDS  DISPLAY 

OCT 

01217 

OCT 

00011 

.0006  FOR  MINUTES  DISLPAY 

OCT 

32445 

OCT 

02104 

.066.. 66  UPPED  BY  2EXP-28 

OCT 

10422 

2DEC 

. 16384 

OCT 

00000 

OCT 

00062 

.5  SEC 
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READLO 
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REF 
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LAST 
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92,3316 

C 7300 

0 

TC 

TPAGREE 

129  3 

REF 

128 

LAST 

935 

92,3317 

10  159 

0 

CCS 

MPAC 

1299 

92,3320 

0 3322 

1 

TC 

+ 2 

1295 

REF 

l 

92, 3321 

0 3353 

1 

TC 

M/SNORM 

1296 

REF 

1 

92,3322 

6 3910 

1 

AD 

M/ SC  ON  1 

1297 

REF 
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LAST 

939 

92,3323 

10  000 

0 

CCS 

A 

1298 

REF 

1 

92,3329 

0 3337 

0 

TC 

M/SLIMI T 

1299 

REF 

2 

LAST 

936 

92,3325 

0 3353 

1 

TC 

M/SNORM 

1300 

REF 

3 

LAST 

936 

92,3326 

0 3353 

1 

TC 

M/SNORM 

1 30  1 

REF 

129 

LAST 

936 

92,3327 

10  155 

1 

CCS 

MPAC  + 

1302 

92,3330 

0 3332 

0 

TC 

+ 2 

1303 

REF 

9 

LAST 

936 

92,3331 

0 3353 

1 

TC 

M/SNORM 

1309 

REF 

1 

92,3332 

6 3911 

0 

AD 

M/SC0N2 

130  5 

REF 

126 

LAST 

936 

92,3333 

1C  000 

0 

CCS 

A 

130  6 

REF 

2 

LAST 

936 

92,3339 

0 3337 

0 

TC 

M/SLIMI T 

130  7 

REF 

5 

LAST 

936 

92,3335 

0 3353 
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TC 

M/SNORM 

130  8 

REF 

6 

LAST 

936 

92,3336 

0 3353 
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TC 

M/SNORM 

1309 

REF 

130 

LAST 

936 

92,3337 

10  159 
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M/SL  1M  I T 

CCS 

MPAC 

1310 

REF 

1 

92,3390 

3 3913 

1 

CAF 

M/SC0N3 

131  1 

REF 

1 

92,3391 

0 3350 

1 

TC 

+LIMI T 

1312 

REF 

2 

LAST 

936 

92,3392 

9 3913 

0 

CS 

M/SC0N3 

1313 

REF 

131 

LAST 

936 

92,3393 

5 9 159 

0 

TS 

MPAC 

1319 

REF 

3 

LAST 

936 

92,3399 

9 3919 

1 

CS 

M/SC0N3  + 

1315 

REF 

132 

LAST 

936 

92,3395 

59  155 

1 

L I M I TCOM 

TS 

MPAC  + 

1316 

REF 

1 

92,3396 

3 3912 

0 

CAF 

NORMADR 

131  7 

REF 

2 

LAST 

935 

92,3397 

0 3931 

1 

TC 

SEPSECNR 

1318 

REF 

133 

LAST 

936 

92,3350 

59  159 

0 

+LIMI T 

TS 

MPAC 

1319 

REF 

9 

LAST 

936 

92,3351 

3 3919 

0 

CAF 

M/SC0N3  + 

1320 

REF 

1 

92,3352 

0 3395 

0 

TC 

L I M I TCOM 

132  1 

REF 

1 

92,3353 

0 3915 

1 

M/SNQRM 

TC 

SEPSEC 

A 1 32  2 

132  3 

REF 

1 

92,3359 

3 3906 

0 

CAF 

HISECON 

1329 

REF 

9 

LAST 

933 

92,3355 

0 7330 

0 

TC 

SHORTMP 

1325 

REF 

19 

LAST 

939 

92,3356 

9 6266 

1 

CS 

THREE 

1326 

REF 

39 

LAST 

93  5 

92,3357 

26  7 76 

0 

ADS 

DSPCOUNT 

1327 

REF 

91 

LAST 

936 

92,3360 

0 9607 

1 

TC 

BANKCALL 

1328 

REF 

1 

92,3361 

61315 

1 

CADR 

DSPDC2NR 

1329 

REF 

68 

LAST 

939 

92,3362 

3 9796 

0 

CAF 

ZERO 

1330 

REF 

5 

LAST 

917 

92,3363 

59  129 

l 

TS 

CODE 

1331 

REF 

29 

LAST 

927 

92,3369 

9 9793 

1 

CS 

TWO 

1332 

REF 

11 

LAST 

939 

92,3365 

5C  117 

0 

INDEX 

DECOUNT 

133  3 

REF 

8 

LAST 

935 

92,3366 

6 9310 

1 

AD 

R ID  l 

1339 

REF 

3 

LAST 

917 

92,3367 

59  193 

0 

TS 

COUNT 

1335 

REF 

92 

LAST 

936 

92,3370 

C 9607 

1 

TC 

BANKCALL 

1336 

REF 

3 

LAST 

917 

92,3371 

61351 

1 

CADR 

D S P I N 

1337 

REF 

2 

LAST 

935 

92,3372 

0 3996 

1 

TC 

SFPM IN 

1338 

REF 

139 

LAST 

936 

92,3373 

56  155 

0 

XCH 

MPAC  + 

133  9 

92,3379 

0 0006 

l 

EXTEND 
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READ  FRESH  DATA  FOR  HI  AND  LO  INTO  MPAC, 
MP  AC+ 1. 

MAKE  DP  DATA  AGREE 

IF  MAG  OF  (MPAC,  MPAC+l)  G/  59  M 59  S, 
DISPLAY  59 R 59 , WITH  PROPER  SIGN. 

MPAC  = +0.  L/  59M58.5S 

- HI  PART  OF  (59M58.5S)  +1  FOR  CCS 
MAG  OF  MPAC  - HI  PART  OF  (59M58.5S) 

G/  59M58.5S 

ORIGINAL  MPAC  = -0.  L/  59M58.5S 
L/  59M58.5S 

MAG  OF  MPAC  = HI  PART  OF  59M58.5S 

MPAC+l  = +0.  L/  59M58.5S 

- LO  PART  OF  (59M58.5S)  +1  FOR  CCS 
MAG  OF  MPAC+1  - LO  PART  OF  (59M58.5S) 

G/  59M58.5S 

ORIGINAL  MPAC+l  = -0.  L/  59M58.5S 
L/  59M58.5S 
= 59M58.5S  LIMIT 

MPAC  CANNOT  BE  + /-  0 AT  THIS  POINT. 

FORCE  MPAC,  MPAC+1  TO  +/-  59M59.5S 

WILL  DISPLAY  59M59S  IN  DSPDECNR 


SET  RETURN  TO  M/SNORM+1. 


LEAVE  FPACT  SEC/60  IN  MPAC, MPAC+l.  LEAVE 

WHOLE  MIN  IN  BIT13  OF  LOTEMOIJT  AND  ABOVE 

USE  ONLY  FRACT  SEC/60  MOD  60 

MULT  BY  .6  + 2EXP-19 

GIVES  SFC/100  MOD  60 

DSPCOUNT  ALREADY  SET  TO  RXD1 

DISPLAY  SEC  MOD  60  IN  D9D5. 


RX03 

BLANK  MIDDLE  CHAR 

REMOVE  REST  OF  SECONDS 
LEAVE  FRACT  MIN/60  IN  MPAC+1 
USE  ONLY  FRACT  MIN/60  MOO  60 


GAP: 
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1340 

REF 

1 

42,3375 

7 3407 

0 

MP 

HIMINCON 

• 

1341 

REF 

135 

LAST 

436 

42,3376 

52  155 

1 

DXCH 

MPAC 

1342 

REF 

12 

LAST 

436 

42,3377 

50  117 

0 

INDEX 

OECOUNT 

134  3 

RFF 

9 

LAST 

436 

42,3400 

3 4310 

1 

CAF 

R ID  1 

1344 

REF 

35 

LAST 

436 

42,3401 

54  775 

0 

TS 

D SPCOUNT 

CD 

ir» 

134  5 

REF 

93 

LAST 

436 

42,3402 

0 4607 

1 

TC 

BANKCALL 

1346 

REF 

2 

LAST 

436 

42,3403 

61315 

1 

CADR 

DSPDC2NR 

134  7 

REF 

24 

LAST 

434 

42,3404 

0 4626 

1 

TC 

POST  JUMP 

00 

134  8 

REF 

4 

LAST 

434 

42,3405 

62617 

0 

CADR 

D SPDC  END  +2 

1349 

42,3406 

23147 

1 

HISECON 

OCT 

23147 

1350 

42,3407 

23346 

1 

HIMINCON 

OCT 

23346 

• 

1351 

42,3410 

77753 

0 

M /SC  ON  1 

OCT 

77753 

135  2 

42,3411 

41126 

1 

M/SC0N2 

OCT 

41126 

A 

1353 

REF 

7 

LAST 

43  6 

42,3412 

03354 

0 

NORMADR 

ADRES 

M/SNORM  +1 

W 

1354 

42,3413 

00025 

0 

M/SC0N3 

OCT 

00025 

1355 

42,3414 

37016 

1 

OCT 

37016 

135  6 

REF 

136 

LAST 

437 

42,3415 

10  155 

1 

SEPSEC 

CCS 

MPAC  +1 

1357 

REF 

1 

42,3416 

1 3425 

0 

TCF 

POSEC 

1358 

REF 

2 

LAST 

437 

42,3417 

1 3425 

0 

TCF 

POSEC 

1359 

42,3420 

1 3421 

1 

TCF 

+ 1 

1360 

42,3421 

0 OC 06 

1 

EXTEND 

1361 

REF 

l 

42,3422 

4 3313 

1 

DCS 

RNDCON  -1 

1362 

KEF 

137 

LAST 

43  7 

42,3423 

20  155 

1 

S EPS  EC  1 

DAS 

MPAC 

1363 

REF 

3 

LAST 

436 

42,3424 

l 3430 

1 

TCF 

SEPSECNR 

1364 

42,3425 

0 0006 

1 

POSEC 

EXTEND 

1365 

REF 

2 

LAST 

437 

42,3426 

3 3313 

0 

DC  A 

RNDCON  -1 

1366 

REF 

1 

42,3427 

1 3423 

0 

TCF 

SEPSEC1 

1367 

REF 

ei 

LAST 

434 

42,3430 

56  002 

0 

SEPSECNR 

XCH 

Q 

1368 

REF 

l 

42,3431 

5 4 1 44 

1 

TS 

SEPSCRET 

1369 

REF 

5 

LAST 

435 

42,3432 

0 7124 

1 

TC 

D MP 

1370 

REF 

l 

42,3433 

03300 

1 

ADRES 

SEC0N1 

1371 

42,3434 

0 0006 

1 

EXTEND 

1372 

REF 

138 

LAST 

437 

42,3435 

3 0155 

0 

DCA 

MPAC 

1373 

REF 

3 

LAST 

435 

42,3436 

■53' 007 

0 

DXCH 

HITEMOUT 

1374 

REF 

1 

42,3437 

0 4375 

1 

TC 

TPSL1 

1375 

REF 

2 

LAST 

437 

42,3440 

0 4375 

1 

TC 

TPSL1 

1376 

REF 

69 

LAST 

436 

42,3441 

3 4 746 

0 

CAF 

ZERO 

1377 

REF 

139 

LAST 

437 

42,3442 

56  156 

0 

XCH 

MPAC  +2 

1378 

REF 

140 

LAST 

437 

42,3443 

56  155 

0 

XCH 

MPAC  +1 

1379 

REF 

14  1 

LAST 

437 

42, 3444 

56  154 

1 

XCH 

MPAC 

1380 

REF 

2 

LAST 

437 

42,3445 

0 0144 

0 

TC 

SEPSCRET 

1381 

REF 

82  LAST  437 

42,3446 

56 

002 

0 SEPMIN 

XCH 

Q 

1382 

REF 

1 

42,3447 

54 

144 

1 

TS 

SEPMNRET 

1383 

REF 

1 

42,3450 

3 

100  7 

1 

CA 

LOTEMOUT 

MULT  BY  .6  + 2EXP-7 
GIVES  MIN/ 100  MOD  60 

RXD1 

DISPLAY  MIN  MOD  60  IN  D1D2. 


.6  + 2EXP-14 
.6  + 2 EXP—  7 

- HI  PART  OF  (59M58.5S)  +1 

- LO  PART  OF  (59M58.5S)  +1 

59M  59. 5S 


IF  + , ROUND  BY  ADDING  .5  SEC 
IF  ROUND  BY  SUBTRACTING  .5  SEC 
FINDS  TIME  IN  MPAC,  MPAC+1 
ROUNDS  OFF  BY  +/-  .5  SEC 
LEAVES  WHOLE  MIN  IN  BIT13  OF 
LOTEMOUT  AND  ABOVE. 

LEAVES  FP.ACT  SEC/60  IN  MPAC,  MPAC  + 1. 


THIS  ENTRY  AVOIDS  ROUNDING  BY  .5  SEC 
MULT  BY  2EXP 1 2/6000 

GIVES  FRACT  SEC/60  IN  BIT12  OF  MPAC+1 
AND  BELOW. 

SAVE  MINUTES  AND  HOURS 


GIVES  FRACT  SEC/60 
LEAVE  FRACT  SEC/60 


IN  MPAC+1,  MPAC+2. 
IN  MPAC,  MPAC+1. 


FINDS  WHOLE  MINUTES  IN  BTT13 
OF  LOTEMOUT  AND  A80VF . 
REMOVES  PEST  OF  SECONDS. 


437 
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1 38  A 

A2.3A51 

0 0006 

1 

EXTEND 

LEAVES  FRACT  MIN/60  IN  MPAC+1. 

138  3 

REF 

23 

LAST 

A3  1 

A2.3A52 

7 A 7 A2 

0 

MP 

B IT3 

LEAVES  WHOLE  HOURS  IN 

MPAC. 

1386 

A 2 , 3 A53 

C 0006 

1 

EXTENO 

SR  12,  THROW  AWAY  LP. 

1387 

REF 

21 

LAST 

305 

A2.3A5A 

7 A 730 

0 

MP 

BIT13 

SR  2,  TAKE  FROM  LP.  = 

SL  12. 

1388 

REF 

1A2 

LAST 

A37 

A2, 3A55 

22  155 

0 

LXCH 

M P AC  +1 

THIS  FORCES  BITS  12-1 

TO  0 IF  + 

A 1 389 

FORCFS  BITS  12-1  TO  1 

IF  -. 

1390 

REF 

A 

LAST 

A37 

A2 , 3 A56 

3 1006 

0 

CA 

HITEMOUT 

1391 

REF 

1 A 3 

LAST 

A38 

A2.3A57 

5 A 15A 

0 

TS 

MPAC 

1392 

REF 

6 

LAST 

A3  7 

A2.3A60 

0 7 12A 

1 

TC 

DMP 

MULT  BY  1/15 

1393 

REF 

1 

A2.3A61 

03306 

1 

ADRES 

MINC0N1 

GIVES  FRACT  MIN/60  IN 

MPAC+l. 

139A 

REF 

2 

LAST 

A37 

A2.3A62 

0 C1AA 

0 ENDS  PM  IN  TC 

SEPMNRET 

GIVES  WHOLE  HOURS  IN 

MPAC  . 

R 1 39  5 

THIS 

I S 

A SPECIAL  1 

PURPOSE  VERB  FOR  01 

SPLAYING 

A DOUBLE 

PRECISION  AGC 

R 1 396 

WORD 

AS 

10  DECIMAL 

DIGITS  ON 

THE  AGC 

DISPLAY 

PANEL.  IT 

CAN  BE  USED  WI 

TH 

R 1 39  7 

ANY 

NCUN 

, EXCEPT  MIXED  NOUNS. 

IT  DISPLAYS  THE 

CONTENTS 

R1398 

OF  THE  REGISTER  NOUNADD  IS  POINTING  TO  . IF 

USED  WITH 

NOUNS  WHICH  ARE 

R 1 399 

INHERENTLY  NOT 

DP  : 

SUCH  AS  THE 

CDU  COUNTERS  THE  DISPLAY 

WILL  BE  GARBAGE 

. 

R1A00 

DISPLAY 

IS  IN 

R 1 AND  R2  ONLY 

WITH  THE 

SIGN  IN 

Rl. 

1 AO  1 

REF 

1 

AO, 3020 

SETLOC 

ENDRDLO  +1 

1 AO  1 5 

REF 

3 

LAST 

A3 1 TO 

A35 : 

IA0  A 8 1 * 

COUNT* 

$t/PIN 

1A0  2 

REF 

8 

LAST 

A3  A 

AO, 3020 

50  1 AO 

1 

D SP  DP  0 EC 

INDEX 

M IXBR 

IA03 

AO, 3021 

0 3021 

1 

TC 

+ 0 

1 AOA 

AO, 3022 

0 302  A 

1 

TC 

+ 2 

NORMAL  NOUN 

1 AO  5 

REF 

3 

LAST 

A25 

AO, 3023 

0 3 AA  7 

0 

TC 

DSPAL ARM 

l AO  6 

A0.302A 

0 C C 06 

1 

EXTEND 

1 AO  7 

REF 

1 1 

LAST 

A3  A 

AO, 3025 

5 C1A5 

1 

INDEX 

NOUNADD 

l AO  8 

AO, 3026 

3 0C01 

0 

DC  A 

0 

IA09 

REF 

1AA 

LAST 

A38 

AO, 3027 

52  155 

1 

DXCH 

MPAC 

1A10 

REF 

10 

LAST 

A37 

AO, 3030 

3 A 3 10 

l 

CAF 

R 1D1 

1A1  1 

REF 

36 

LAST 

A3  7 

AO, 303  1 

5 A 776 

0 

TS 

D SPCOUNT 

1A12 

REF 

70 

LAST 

A37 

AO, 3032 

3 A 7A6 

0 

CAF 

ZERO 

1 A 1 3 

REF 

IA5 

LAST 

A3  8 

AO, 3033 

'5  A 156 

1 

TS 

MPAC  +2 

IA1  A 

REF 

5 

LAST 

A 36 

A0.303A 

0 7300 

0 

TC 

T P AGREE 

1A15 

REF 

1 

AO, 3035 

0 3322 

1 

TC 

DSP2DEC 

1A16 

REF 

6 

LAST 

A3  5 

AO, 3036 

0 0136 

0 

ENDDPDEC 

TC 

ENTEX IT 

A 3 8 
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p 14 1 7 LOAD  VERBS  IF  ALARM  CONDITION  IS  DbTECTED  DURING  EXECUTE, 

R1418  CHECK  FAIL  LIGHT.  IS  TURNED  ON  AND  ENDOFJOB.  IF  ALARM  CONDITION  IS 
K 1 4 1 9 DETECTED  DURING  ENTER  OF  DATA,  CHECK  FAIL  IS  TURNED  ON  AND  IT  RECYCLES 

R 1420  TO  EXtCUTE  OF  ORIGINAL  LOAD  VERB.  RECYCLE  CAUSED  BY  1)  DECIMAL  MACHINE 

R1421  CADR  2)  MIXTURE  OF  OCT AL /DEC  IM AL  DATA  3)  OCTAL  DATA  INTO  DECIMAL 

R1422  ONLY  NCUN  4)  DEC  DATA  INTO  OCT  ONLY  NOUN  5)  DATA  TOO  LARGE  FOR  SCALE 
R 1 42  3 6)  FEWER  THAN  3 DATA  WORDS  LOADED  FOR  HRS,  MIN,  SEC  NOUN . 8 1 2 ) - 1 6 ) ALARM 

R 1424  ANC  RECYCLE  OCCUR  AT  FINAL  ENTER  OF  SET.  (1)  ALARM  AND  RECYCLE  OCCUR  AT 

R 142 5 ENTER  OF  CADR. 


1426 

REF 

1 

41,2647 

SETLOC 

E NDRTOUT 

14265 

REF 

2 

LAST 

419  TO 

431: 

407  407* 

COUNT* 

$$/P I N 

142  7 

REF 

25 

LAST 

436 

41,2647 

4 

4743 

1 ABCLOAD 

CS 

TWO 

142  8 

REF 

3 

LAST 

427 

41,2650 

0 

2453 

1 

TC 

COMPTEST 

1429 

REF 

l 

41 ,2651 

0 

2507 

1 

TC 

NOUNTEST 

TEST  IF  NOUN  CAN  BE  LOADED. 

1430 

REF 

1 

41,2652 

3 

3056 

1 

CAF 

VBSP1LD 

143  1 

REF 

2 

LAST 

416 

41,2653 

0 

2366 

0 

TC 

UPDATVB  -1 

1432 

REF 

1 

41,2654 

0 

2332 

1 

TC 

REODATX 

L433 

REF 

1 

41,2655 

3 

3057 

0 

CAF 

VBSP2LD 

143  4 

REF 

3 

LAST 

439 

41,2656 

0 

2366 

0 

TC 

UPDATVB  -1 

143  5 

REF 

1 

41,2657 

0 

2334 

1 

TC 

REQDATY 

1436 

REF 

1 

41, 2660 

3 

3060 

1 

CAF 

VBSP3LD 

1437 

REF 

4 

LAST 

439 

41,2661 

0. 

2366 

0 

TC 

UPDATVB  -1 

143  8 

REF 

2 

LAST 

420 

41,2662 

0 

2336 

0 

TC 

REODATZ 

143  9 

REF 

10 

LAST 

433 

41,2663 

4 6263 

1 PUTXYZ 

CS 

SIX 

TEST  THAT  THF  3 DATA  WORDS 

LOADED  ARF 

144  0 

REF 

1 

41,2664 

0 3061 

0 

TC 

ALLDC/OC 

ALL  DEC  OR  ALL  OCT. 

1441 

41,2665 

0 0006 

1 

EXTEND 

1442 

REF 

4 

LAST 

424 

41 ,2666 

3 2141 

1 

DCA 

LODNNLOC 

SWITCH  BANKS  TO  NOUN  TABLE 

READING 

1443 

REF 

7 

LAST 

430 

41,2667 

52  006 

0 

DXCH 

Z 

ROUTINE. 

1444 

REF 

71 

LAST 

438 

41,2670 

3 4746 

0 

CAF 

ZERO 

X COMP 

1445 

REF 

1 

41,2671 

0 3 145 

1 

TC 

PUTCOM 

1446 

REF 

12 

LAST 

438 

41,2672 

50  145 

1 

INDEX 

NOUNADD 

1447 

41,2673 

54  000 

0 

TS 

0 

1448 

REF 

39 

LAST 

431 

41,2674 

3 4 744 

1 

CAF 

ONE 

Y COMP 

1449 

REF 

2 

LAST 

439 

41,2675 

0 3145 

1 

TC 

PUTCOM 

1450 

REF 

13 

LAST 

439 

41,2676 

50  145 

1 

INDEX 

NOUNADD 

1451 

41,2677 

54  C01 

1 

TS 

1 

1452 

REF 

26 

LAST 

439 

41 , 2700 

3 4743 

0 

CAF 

TWO 

Z COMP 

1453 

REF 

3 

LAST 

439 

41,2701 

0 3145 

1 

TC 

PUTCOM 

1454 

REF 

14 

LAST 

439 

41,2702 

50  145 

1 

INDEX 

NOUNADD 

1455 

41,2703 

54  002 

1 

TS 

2 

L45501 

REF 

3 

LAST 

272 

41,2704 

4 4750 

0 

CS 

SEVEN 

IF  NOUN  7 HAS  JUST  BEEN  LOADED,  SET 

1455C2 

REF 

10 

LAST 

424 

41,2705 

6 1001 

1 

AD 

NOUNREG 

FLAG  BITS  AS  SPECIFIED. 

1 45  5 C 3 

41 ,2  706 

0 0006 

l 

EXTEND 

1455C4 

41 ,2  707 

1 2711 

0 

BZF 

+ 2 

145505 

REF 

2 

LAST 

419 

41, 2710 

0 3045 

0 

TC 

LOADLV 
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1455C6 

41,2711 

0 

C 004 

0 

INHINT 

1455C8 

REF 

1 

41,2712 

4 

4754 

1 

CS 

0CT30 

IS  IT  A CHANNEL  (30  OR  UNDER) 

1455  1 

REF 

4 

LAST 

429 

41,2713 

6 

1002 

1 

AD 

XREG 

145512 

41,2714 

0 

C 006 

1 

EXTENO 

1455  14 

REF 

1 

41,2715 

6 

2725 

0 

BZMF 

CHANB ITS 

YES 

145516 

REF 

5 

LAST 

440 

41,2716 

3 

1002 

1 

CA 

XREG 

ECADR  OF  ERASABLE  CELL 

1455 18 

REF 

5 

LAST 

42  4 

41,2717 

0 

4275 

0 

TC 

SETNC ADR  +1 

SET  E BANK,  NOUNADD 

14552 

REF 

15 

LAST 

439 

41,2720 

50 

145 

l 

INDEX 

NOUNADD 

145522 

41,2721 

3 

cooo 

1 

CA 

0 

145524 

REF 

54 

LAST 

429 

41, 2722 

54 

001 

1 

TS 

L 

145526 

REF 

40 

LAST 

439 

41,2723 

3 

4 744 

1 

CAF 

ONE 

145528 

REF 

6 

LAST 

440 

41,2724 

55 

'002 

0 

TS 

XREG 

MAKE  IT  LOOK  LIKE  A CHANNEL 

FOR  A WHILE 

1 45  5 3 

REF 

1 

41,2725 

6 

4352 

1 

CHAN  8 I TS 

AD 

DCT21 

145532 

41,2726 

0 

0006 

1 

EXTEND 

145534 

REF 

l 

41,2727 

1 

2751 

1 

BZF 

B ITS0FF2 

DONT  TOUCH  CHAN7  (SUPERBANK) 

145536 

REF 

2 

LAST 

420 

41,2730 

3 

1004 

1 

CA 

Z REG 

145538 

41,2731 

0 

CC06 

1 

EXTEND 

145  5 4 

REF 

1 

41,2732 

6 

2740 

0 

BZMF 

BITSOFF 

R3  IS  ZFRO  FOR  OFF,  NONZERO 

FOR  ON 

145542 

REF 

l 

41,2733 

3 

1003 

0 

CA 

YREG 

145544 

41,2734 

0 

CC06 

1 

EXTEND 

145  6 46 

REF 

7 

LAST 

440 

41,2735 

5 

1002 

1 

INDEX 

XREG 

145548 

41,2736 

05 

000 

1 

WDR 

0 

14555 

REF 

1 

41,2737 

1 

2744 

0 

TCF 

BITSOFF  L 

145552 

REF 

2 

LAST 

440 

41, 2740 

4 

1003 

1 

BITSOFF 

CS 

YREG 

145553 

41,2741 

0 

0006 

1 

EXTEND 

145554 

REF 

8 

LAST 

440 

41,2  742 

5 

1002 

1 

INDEX 

XREG 

145556 

41,2743 

03 

000 

1 

WAND 

0 

145558 

REF 

9 

LAST 

440 

41,2744 

11 

' 002 

0 

BITS0FF1 

CCS 

XREG 

WAS  IT  RFALLY  A CHANNEL 

14556 

REF 

127 

LAST 

436 

41,2745 

10 

000 

0 

CCS 

A 

145562 

REF 

2 

LAST 

440 

41,2746 

1 

2751 

1 

TCF 

B ITS0FF2 

YES 

145564 

REF 

16 

LAST 

440 

41,2747 

5 C 

145 

1 

INDEX 

NOUNADD 

145566 

41 ,2750 

22 

000 

1 

LXCH 

0 

145568 

41,2751 

0 

0 C03 

1 

BITS0FF2 

RELINT 

1456 

REF 

3 

LAST 

439 

41,2752 

0 

3045 

0 

TC 

LOADLV 

1456  5 

REF 

4 

LAST 

293 

4754 

0CT30 

B ITS4G5 

145  7 

REF 

41 

LAST 

440 

41, 2753 

4 

4 744 

0 

ABLOAD 

CS 

ONE 

1458 

REF 

4 

LAST 

439 

41,2754 

0 

2453 

1 

TC 

COMPTEST 

145  9 

REF 

2 

LAST 

439 

41,2755 

0 

2507 

1 

TC 

NOUNTEST 

TEST  IF  NOUN  CAN  BE  LOADED. 

1460 

REF 

2 

LAST 

439 

41,2756 

3 

3056 

1 

CAF 

VBSP1LD 

1461 

REF 

5 

LAST 

439 

41,2757 

0 

2366 

0 

TC 

UPDATVB  -1 

92  3 1*5  5 
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1462 

REF 

2 

LAST 

439 

41,2760 

0 2332 

% 

TC 

REODATX 

1463 

REF 

2 

LAST 

439 

41,2761 

3 3057 

0 

CAF 

VBSP2LD 

1464 

REF 

6 

LAST 

440 

41,2762 

0 2366 

0 

TC 

UPDATVB  -1 

1466 

REF 

2 

LAST 

439 

41,2763 

0 2334 

l 

TC 

REQDATY 

146  6 

REF 

9 

LAST 

421 

41,2764 

4 4747 

0 

PUTXY 

CS 

FIVE 

TEST  THAT  THE  2 DATA 

WORDS 

LOADED  ARF 

1467 

REF 

2 

LAST 

439 

41,2765 

0 3061 

0 

TC 

ALLDC/OC 

ALL  DEC  OR  ALL  OCT. 

1468 

41,2766 

0 C006 

1 

EXTEND 

1469 

REF 

5 

LAST 

439 

41,2767 

3 2141 

1 

DC  A 

LODNNLOC 

SWITCH  BANKS  TO  NOUN 

TABLE 

READING 

1470 

REF 

3 

LAST 

439 

41,2770 

52  C 06 

0 

DXCH 

Z 

ROUTINE. 

1471 

REF 

72 

LAST 

439 

41,2771 

3 4746 

0 

CAF 

ZERO 

X COMP 

1472 

REF 

4 

LAST 

439 

41 ,2772 

0 3 145 

1 

TC 

PUTCOM 

1473 

REF 

17 

LAST 

440 

41,2773 

50  145 

1 

INDEX 

NOUNADD 

1474 

41 ,2  774 

54  COO 

0 

TS 

0 

1475 

REF 

42 

LAST 

440 

41,2775 

3 4744 

1 

CAF 

ONE 

Y COMP 

1476 

REF 

5 

LAST 

441 

41,2776 

0 3145 

1 

TC 

PUTCOM 

1477 

REF 

18 

LAST 

441 

41,2777 

50  145 

1 

INDEX 

NOUNADD 

1478 

41,3000 

54  001 

1 

TS 

1 

1479 

REF 

4 

LAST 

440 

41,3001 

0 3045 

0 

TC 

LOADLV 

1481 

REF 

3 

LAST 

44  1 

41 , 3002 

0 2332 

1 

ALOAD 

TC 

REODATX 

1482 

41,3003 

0 0006 

1 

EXTEND 

1483 

REF 

6 

LAST 

441 

41,3004 

,3  2141 

1 

DC  A 

LODNNLOC 

SWITCH  BANKS  TO  NOUN 

TABLE 

READING 

1484 

REF 

9 

LAST 

44  l 

41,3005 

52  006 

0 

DXCH 

Z 

ROUTINE. 

1485 

REF 

73 

LAST 

441 

41,3006 

3 4746 

0 

CAF 

ZERO 

X COMP 

1486 

REF 

6 

LAST 

44  1 

41 , 3007 

0 3145 

1 

TC 

PUTCOM 

1487 

REF 

19 

LAST 

441 

41,3010 

50  145 

1 

INDEX 

NOUNADD 

1488 

41,3011 

54  COO 

0 

TS 

0 

1489 

REF 

5 

LAST 

441 

41,3012 

0 3045 

0 

TC 

LOADLV 

1490 

REF 

43 

LAST 

44  1 

41,3013 

4 4744 

0 

BLOAD 

CS 

ONE 

1491 

REF 

5 

LAST 

440 

41,3014 

0 2453 

1 

TC 

COMPTEST 

1493 

REF 

26 

LAST 

432 

41,3015 

3 4726 

0 

CAF 

BIT15 

SET  CLPASS  FOR  PASSO 

ONLY 

1494 

REF 

10 

LAST 

420 

41,3016 

55' 014 

1 

TS 

CLPASS 

1495 

REF 

3 

LAST 

44  l 

41,3017 

0 2334 

1 

TC 

REQDATY 

1496 

41, 3020 

0 0006 

1 

EXTEND 

1497 

REF 

7 

LAST 

44  1 

41,3021 

3 2141 

1 

DC  A 

LODNNLOC 

SWITCH  BANKS  TO  NOUN 

TABLE 

READING 

1498 

REF 

10 

LAST 

44  1 

41,3022 

52  006 

0 

DXCH 

Z 

ROUTINE. 

1499 

REF 

44 

LAST 

44  1 

41 , 3023 

3 4744 

1 

CAF 

ONE 

150  0 

REF 

7 

LAST 

441 

41 , 3024 

0 3145 

1 

TC 

PUTCOM 

150  1 

REF 

20 

LAST 

44  1 

41,3025 

50  145 

1 

INDEX 

NOUNADD 

150  2 

41, 3026 

54  C01 

1 

TS 

1 

1503 

REF 

6 

LAST 

44  1 

41,3027 

0 3045 

0 

TC 

LOADLV 

1504 

REF 

27 

LAST 

439 

41,3030 

4 4743 

1 

CLOAD 

CS 

TWO 

1505 

REF 

6 

LAST 

441 

41,3031 

0 2453 

1 

TC 

COMPTEST 

150  7 

REF 

27 

LAST 

44  l 

41,3032 

3 4726 

0 

CAF 

B IT1  5 

SET  CLPASS  FOR  PASSO 

ONLY 

1508 

REF 

11 

LAST 

44  1 

41,3033 

55 ' 0 14 

1 

TS 

CLPASS 

1509 

REF 

3 

LAST 

439 

41,3034 

0 2336 

0 

TC 

REQDATZ 

1510 

41,3035 

0 0006 

1 

EXTEND 

151  1 

REF 

8 

LAST 

44  1 

41,3036 

3 2141 

1 

DC  A 

LODNNLOC 

SWITCH  BANKS  TO  NOUN 

TABLE 

READING 
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1512 

REF 

11 

LAST 

44  l 

41,3037 

52  006 

0 

DXCH 

Z 

1513 

REF 

28 

LAST 

44  1 

41,3040 

3 4743 

0 

CAF 

TWO 

1514 

REF 

8 

LAST 

44  1 

41,3041 

0 3145 

1 

TC 

PUTCOM 

1515 

REF 

21 

LAST 

441 

41,3042 

50  145 

1 

INDEX 

NOUNAOD 

1516 

41,3043 

54  C02 

1 

TS 

2 

1517 

REF 

7 

LAST 

441 

41,3044 

0 3045 

0 

TC 

LOADLV 

1518 

REF 

74 

LAST 

441 

41,3045 

3 4746 

0 

LOADLV 

CAF 

ZERO 

1519 

REE 

13 

LAST 

420 

41, 3046 

54  777 

1 

TS 

DECBRNCH 

1520 

REF 

75 

LAST 

442 

41,3047 

4 4746 

1 

CS 

ZERO 

152  1 

REF 

l 

41 , 3050 

5 5 1 C 13 

0 

TS 

LOADSTAT 

152  15 

REF 

5 

LAST 

42  1 

41,3051 

0 4450 

1 

TC 

R ELD  S P 

152  2 

REF 

6 

LAST 

425 

41, 3052 

4 4351 

0 

CS 

VD1 

152  3 

REF 

37 

LAST 

438 

41,3053 

54  776 

0 

TS 

D SP COUNT 

1524 

REF 

25 

LAST 

437 

41,3054 

0 4626 

1 

TC 

POSTJUMP 

1525 

REF 

1 

41,3055 

61605 

0 

CADR 

RECALTST 

15252 

REF 

4 

LAST 

424 

4352 

0CT21 

EQUALS 

NDl 

152  6 

41  ,3056 

00025 

0 

VBSP  1LD 

DEC 

21 

152  7 

41,3057 

00026 

0 

VBSP2LD 

DEC 

22 

152  8 

41  ,3060 

00027 

1 

VBSP3LD 

DEC 

23 

1529 

REF 

13 

LAST 

437 

41,3061 

54 

117 

1 

ALLDC/OC 

TS 

DECOUNT 

153  0 

REF 

14 

LAST 

442 

41,3062 

4 

0777 

1 

CS 

DECBRNCH 

1531 

REF 

3 

LAST 

417 

41 , 3063 

54 

C21 

0 

TS 

SR 

1532 

REF 

4 

LAST 

442 

41,3064 

4 

0021 

0 

CS 

SR 

153  3 

REF 

5 

LAST 

442 

41,3065 

4 

0021 

0 

CS 

SR 

1534 

REF 

128 

LAST 

440 

41,3066 

10 

000 

0 

CCS 

A 

153  5 

4 1 , 3067 

1 

3071 

0 

TCF 

+ 2 

1536 

REF 

E3 

LAST 

437 

41,3070 

0 

0002 

0 

TC 

Q 

153  7 

REF 

14 

LAST 

442 

41,3071 

6 

0117 

0 

AD 

DECOUNT 

1538 

41,3072 

0 

0006 

l 

EXTEND 

153  9 

41,3073 

I 

3075 

1 

BZF 

+ 2 

1540 

REF 

4 

LAST 

428 

41,3074 

0 

6020 

0 

TC 

ALMCYCLE 

1541 

REF 

64 

LAST 

442 

41 ,3075 

0 

0002 

0 

GOQ 

TC 

Q 

1542 

REF 

65 

LAST 

442 

41,3076 

56  002 

0 

SFRUTNOR 

XCH 

Q 

1543 

REF 

1 

41,3077 

54  114 

1 

TS 

EXITEM 

1544 

REF 

1 

41,3100 

3 4340 

1 

CAF 

M ID5 

154  5 

REF 

3 

LAST 

429 

4 1,310  1 

7 0147 

1 

MASK 

NNTYPTEM 

1546 

REF 

1 

41,3102 

0 4313 

1 

TC 

R IGHT5 

154  7 

REF 

2 

LAST 

442 

41,3103 

0 0114 

0 

TC 

EXITEM 

154  8 

REF 

86 

LAST 

442 

41,3104 

56  002 

0 

SFRUTMI X 

XCH 

Q 

154  9 

REF 

3 

LAST 

44  2 

41,3105 

54  1 14 

1 

TS 

EXITEM 

1550 

REF 

15 

LAST 

442 

41, 3106 

50  117 

0 

INDEX 

DECOUNT 
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ROUTINE. 


RELEASE  FOR  PRIORITY  DISPLAY  PROBLEM. 

TO  BLOCK  NUMERICAL  CHARACTERS  AND 
CLEARS  AFTER  A COMPLETED  LOAD 
AFTER  COMPLETED  LOAD,  GO  TO  RECALTST 
TO  SEE  IF  THERE  IS  RECALL  FROM  FNDIDLE. 


VB  2 1 = ALOAO 
VB22  = BLOAD 
VB  23  = CLOAO 


TESTS  THAT  DATA  WORDS  LOADED  ARE  EITHER 
ALL  DEC  OR  ALL  OCT.  ALARMS  IF  NOT. 


SHIFTED  RIGHT  2 

DFC  COMP  B ITS  IN  LOW  3 

SOME  ONES  IN  LOW  3 

ALL  ZEROS.  ALL  OCTAL.  OK 

DEC  COMP  = 7 FOR  3COM P , =6  FOR  2C0MP 

(BUT  IT  HAS  BEEN  DECREMENTED  BY  CCS) 

MUST  MATCH  6 FOR  3COM P , S FOR  2C0MP . 

ALARM  AMD  RECYCLE. 

ALL  REQUIRED  ARE  DEC.  OK 


GETS  SF  ROUTINE  NUMBER  FOR  NORMAL  CASE 
CANT  USE  L FOR  RFTUPN . TSTFORDP  USES  L. 


SF  ROUTINE  NUMBER  IN  A 

GETS  SF  ROUTINE  NUMBER  FOR  MIXED  CASE 


231 
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1551 

REE 

I 

41,3107 

3 3136 

0 

CAF 

DISPLACE 

PUT  TC  GOQ,  TC  RIGHT5, 

OR  TC  L EFT  5 

155  2 

REF 

55 

LAST 

440 

41,3110 

54  001 

1 

TS 

L 

1553 

REF 

16 

LAST 

442 

41,3111 

50  117 

0 

INDEX 

DECOUNT 

1554 

REF 

2 

LAST 

41  1 

41,3112 

3 4337 

l 

CAF 

L0W5 

L0W5 , M 1 05 , OR  HI5  IN  A 

1555 

REF 

2 

LAST 

316 

41,3113 

7 0153 

1 

MASK 

RUTMXTEM 

GET  H I 5 , MID5,  OR  L0W5 

OF  RUTMXTAB 

1556 

REF 

56 

LAST 

443 

41,3114 

50  001 

0 

INDEX 

L 

1557 

41,3115 

0 COOO 

1 

TC 

0 

R1558 

DO  TC 

GOQ I DECOUNT  =0 ) 

, DO  TC  R I GHT 5 I DECOUN T= 1 ) , DO  TC  L EFT  5 I D ECOUNT  = 2 > . 

1559 

REF 

4 

LAST 

442 

41,3116 

0 C 1 14 

0 

SFRETl 

TC 

EXITEM 

SF  ROUTINE  NUMBER  IN  A 

1560 

REF 

8 7 

LAST 

442 

41,3117 

56  002 

0 

SFCONUM 

XCH 

Q 

GETS  2X1  SF  CONSTANT  NUMBER) 

156  1 

REF 

5 

LAST 

44  3 

41,3120 

54  114 

I 

TS 

EX  ITEM 

1562 

REF 

■ 9 

LAST 

438 

41,3121 

50  140 

1 

INDEX 

MIXBR 

1563 

41,3122 

0 3122 

0 

TC 

+ 0 

1564 

REF 

1 

41,3123 

0 3141 

0 

TC 

CONUMNOR 

NORMAL  NOUN 

1565 

REF 

17 

LAST 

443 

41,3124 

50  117 

0 

INDEX 

DECOUNT 

MIXED  NOUN 

1566 

REF 

2 

LAST 

443 

41,3125 

3 3136 

0 

CAF 

DISPLACE 

1567 

REF 

57 

LAST 

443 

41,3126 

54  001 

1 

TS 

L 

PUT  TC  GOQ,  TC  R IGHT5, 

OR  TC  LFFT5 

1568 

RFF 

18 

LAST 

44  3 

41,3127 

50  117 

0 

INDEX 

DECOUNT 

1569 

REF 

3 

LAST 

443 

41,3130 

3 4337 

1 

CAF 

L 0W5 

1570 

REF 

4 

LAST 

442 

41,3131 

7 0147 

1 

MASK 

NNTYPTEM 

1571 

REF 

58 

LAST 

443 

41,3132 

50  001 

0 

INDEX 

L 

1572 

41,3133 

0 0000 

1 

TC 

0 

R 1 57  3 

DO  TC 

G0QIDEC0UNT=0 1 

, on  TC  R IGHT5I DFCOUNT=l ( , DC 

TC  LEFT5(DECOUNT=2) . 

1574 

41,3134 

6 0000 

1 

S FRET 

DOUBLE 

2XISF  CONSTANT  NUMBER  ) 

IN  A 

1575 

REF 

6 

LAST 

443 

41,3135 

0 0114 

0 

TC 

EX  ITEM 

1576 

REF 

1 

41,3136 

0 3075 

0 

DISPLACE 

TC 

GOQ 

1577 

REF 

2 

LAST 

442 

41,3  137 

0 4313 

1 

TC 

R I GHT  5 

1578 

REF 

3 

LAST 

429 

41,3140 

0 4322 

0 

TC 

LEFT5 

1579 

REF 

4 

LAST 

443 

41,3141 

3 4337 

1 

CONUMNOR 

CAF 

L0W5 

NORMAL  NOUN  ALWAYS  GETS 

LOW  5 OF 

1580 

REF 

5 

LAST 

443 

41,3 142 

7 C 147 

1 

MASK 

NNTYPTEM 

NNTYPTAB  FOR  SF  CONUM. 

1581 

41,3143 

6 COOO 

1 

DOUBLE 

156? 

REF 

7 

LAST 

44  3 

41,3144 

0 0114 

0 

TC 

EXITEM 

2X1  SF  CONSTANT  NUMBER) 

I N A 

1583 

REF 

19 

LAST 

443 

41,3145 

54 

117 

1 PUTCOM 

TS 

DECOUNT 

1584 

REF 

88 

LAST 

443 

41,3146 

56 

002 

0 

XCH 

Q 

1585 

REF 

1 

41,3147 

54 

115 

0 

TS 

DECRET 

1586 

REF 

76 

LAST 

442 

41,3150 

3 ■ 

4 746 

0 

CAF 

ZERO 

1587 

REF 

3 

LAST 

434 

41,3151 

54 

162 

0 

TS 

MPACH6 

1588 

REF 

20 

LAST 

443 

41,3152 

50 

117 

0 

INDEX 

DECOUNT 

1589 

REF 

3 

LAST 

417 

41,3153 

57 

1 C05 

0 

XCH 

XREGLP 

1590 

REF 

146 

LAST 

438 

41,3154 

54 

155 

1 

TS 

M P AC  Hi 

1591 

REF 

21 

LAST 

443 

41,3155 

50 

117 

0 

INDEX 

DECOUNT 

1592 

REF 

10 

LAST 

440 

41,3156 

57 

•002 

1 

XCH 

XREG 

1593 

REF 

147 

LAST 

443 

41,3157 

54 

154 

0 

TS 

M P AC 

1594 

REF 

10 

LAST 

443 

41 , 3160 

50 

140 

1 

INDEX 

MIXBR 

1595 

41,3161 

o ; 

3161 

1 

TC 

HO 

443 


IN  L 


ENTRY 


IN  L 
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1596 

REF 

1 

91,3162 

0 3207 

1 

TC 

PUTNORM 

R 1 59  7 

IF  1 

MIXNCUN,  PLACE 

ADDRESS  FOR 

COMPONENT 

K INTO  NOUNADD, 

SET  EBANK  B 

1598 

REF 

22 

LAST 

993 

91,3163 

50  117 

0 

INDEX 

DECUUNT 

1599 

REF 

9 

LAST 

939 

91,3 169 

3 C 1 50 

0 

CA 

I DAD  1 TE M 

160  0 

REF 

5 

LAST 

939 

91,3165 

7 9397 

1 

MASK 

L0W11 

1601 

REF 

6 

LAST 

990 

91,3166 

0 9279 

1 

TC 

SETNCADR 

1602 

91,3167 

0 0006 

1 

EXTEND 

160  3 

REF 

23 

LAST 

999 

91,3170 

60  117 

0 

SU 

DECOUNT 

1 604 

REF 

22 

LAST 

992 

91,3171 

59  195 

0 

TS 

NOUNADD 

1605 

REF 

15 

LAST 

992 

91,3172 

10  777 

1 

CCS 

DECBRNCH 

160  6 

REF 

1 

91,3173 

0 3299 

0 

TC 

PUTDECSF 

1607 

REF 

1 ■ 

91,3179 

0 2501 

1 

TC 

DCTSTCYC 

160  8 

REF 

3 

LAST 

930 

91,3175 

0 3109 

1 

TC 

SFRUTMI X 

1609 

REF 

3 

LAST 

929 

9L , 3176 

0 2306 

0 

TC 

DPTEST 

1610 

REF 

l 

91,3177 

0 3225 

1 

TC 

PUTC0M2 

A 161  1 

A1612 

A161 

1619 

REF 

23 

LAST 

999 

91,3200 

29  195 

1 

PUTDPCOM 

INCR 

NOUNAOD 

1615 

REF 

29 

LAST 

999 

91,3201 

3 0195 

1 

CA 

NOUNADD 

1616 

REF 

29 

LAST 

999 

91,3202 

26  117 

1 

ADS 

DECOUNT 

161  7 

REF 

77 

LAST 

993 

91,3203 

3 9796 

0 

CAF 

ZERO 

1618 

REF 

25 

LAST 

999 

91,3209 

50  117 

0 

INDEX 

DECOUNT 

1619 

91,3205 

53' 77/ 

0 

TS 

0 -1 

162  0 

REF 

2 

LAST 

999 

91,3206 

0 3225 

1 

TC 

PUTC0M2 

1621 

REF 

2 

LAST 

920 

91,3207 

0 9302 

1 

PUTNORM 

TC 

SETNADD 

1622 

RFF 

16 

LAST 

999 

91,3210 

10  777 

1 

CCS 

DECBRNCH 

1623 

REF 

2 

LAST 

999 

91,3211 

0 3299 

0 

TC 

PUTDECSF  • 

162  9 

REF 

2 

LAST 

999 

91,3212 

0 2501 

1 

TC 

DCTSTCYC 

1625 

REF 

3 

LAST 

930 

91,3213 

0 3076 

0 

TC 

SFRUTNOR 

162  6 

RFF 

9 

LAST 

999 

91,3219 

0 2306 

0 

TC 

DPTEST 

162  7 

REF 

3 

LAST 

999 

91,3215 

0 3221 

0 

TC 

PUTC0M2  -9 

1628 

REF 

78 

LAST 

999 

91,3216 

3 9796 

0 

CAF 

ZERO 

162  9 

REF 

26 

LAST 

999 

91,3217 

59  117 

1 

TS 

DFCOUNT 

163  0 

REF 

1 

91,3220 

0 3200 

0 

TC 

PUTDPCOM 

1631 

REF 

8 

LAST 

929 

91,3221 

3 C 196 

1 

CA 

NNADTEM 

163? 

REF 

95 

LAST 

991 

91,3222 

6 9799 

1 

AD 

ONE 

1633 

91,3223 

0 0006 

1 

EXTEND 

1639 

REF 

l 

91,3229 

1 3231 

0 

BZF 

CHANLOAD 

1635 

REF 

198 

LAST 

993 

91,3225 

56  159 

1 

PUTC0M2 

XCH 

MPAC 

1636 

REF 

2 

LAST 

993 

91, 3226 

0 C 1 1 5 

1 

TC 

DECRET 

1637 

REF 

38 

LAST 

992 

0776 

EBANK= 

D SPCOUNT 

1638 

REF 

1 

91,3227 

02  1 j-t 

0 

GTSF INLC 

2CADR 

GTSF IN 

1638 

REF 

1 

91,3230 

69  101 

0 

163  9 

REF 

9 

LAST 

939 

91,3231 

9 9750 

0 

CHANLOAD 

CS 

SEVEN 
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USER'S  PAGE  NO.  A3  FD  SA 

NORMAL  NOUN 

TS. 

GET  IDADDTAB  ENTRY  FOR  COMPONENT  K 
OF  NOUN. 

(ECAOR)SUBK  FOR  CURRENT  COMP  OF  NOUN 
ECADR  INTO  NOUNCAOR.  SETS  EB,  NOUNADD. 
CINOUNADD)  IN  A UPON  RETURN 
PLACE  (ESUBK)-K  INTO  NOUNADO 


+ DEC 
+0  OCTAL 

TEST  IF  DEC  ONLY  BIT  = 1.  IF  SO, 

ALARM  AND  RECYCLE.  IF  NOT,  CONTINUE. 

NO  OP 

TEST  FOR  DP  SCALE  FOR  OCT  LOAD.  IF  SO, 
+0  INTO  MAJOR  PART.  SET  NOUNADD  FOR 
LOADING  OCTAL  WORD  INTO  MINOR  PART. 

DP  (ESUBKI-K+l  OR  E + l 
NOUNADD  NOW  SET  FOR  M T NOR  PART 
(ESUBKI+l  OR  E+l  INTO  DFCOUNT 
NOUNADD  SET  FOR  MINOR  PART 

ZERO  MAJOR  PART ( E SU8K  OR  E) 


ECADR  FROM  NOUNCADR.  SETS  FB,  NOUNADD. 

+ DEC 
+0  OCTAL 

TEST  IF  DEC  ONLY  BIT  = 1.  IF  SO, 

ALARM  AND  RECYCLE.  IF  NOT,  CONTINUE. 

NO  DP 
DP 


IF  NNADTEM  = -1,  CHANNEL  TO  RE  SPECIFIED 


DONT  LOAD  CHAN  7.  (IT 


SUPERBANK ) 
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1639  1 

REF 

4 

LAST 

429 

41,3232 

6 

1 C 1 6 

1 

AD 

NOUNC ADR 

16392 

41,3233 

0 

C006 

1 

EXTEND 

16393 

REF 

8 

LAST 

442 

41,3234 

1 

3045 

1 

BZF 

LOADLV 

16394 

REF 

5 

LAST 

445 

41,3235 

3 

1016 

1 

CA 

NOUNCADR 

1640 

REF 

8 

LAST 

429 

41,3236 

7 

4775 

1 

MASK 

L0W9 

1641 

REF 

149 

LAST 

444 

41,3237 

56 

154 

1 

XCH 

MPAC 

1641  1 

41,3240 

0 

C 006 

1 

EXTEND 

1641  2 

REF 

150 

LAST 

445 

41,3241 

5 

Cl  54 

1 

INDEX 

M P AC 

1642 

41,3242 

01 

COO 

0 

WRITE 

0 

1643 

REF 

9 

LAST 

445 

41,3243 

0 

3 C45 

0 

TC 

LOADLV 

R 1 644 

PUTDECSF 

FINDS 

MIX8R 

AND  DECOUNT  STILL 

SET  FROM 

PUTCOM 

1645 

REF 

2 

LAST 

429 

41,3244 

0 3117 

0 

PUTDECSF 

TC 

SFCONUM 

1646 

REF 

14 

LAST 

433 

41,3245 

54  123 

0 

TS 

SFTEMP1 

164  7 

41,3246 

0 C006 

1 

EXTEND 

1648 

REF 

1 

41,3247 

3 3230 

0 

DC  A 

GTSFINLC 

1649 

REF 

12 

LAST 

442 

41 , 3250 

52  006 

0 

DXCH 

Z 

1650 

REF 

11 

LAST 

443 

41,3251 

50  140 

1 

INDEX 

MIXBR 

1651 

41,3252 

0 3252 

1 

TC 

+ 0 

1652 

REF 

1 

41,3253 

0 3256 

0 

TC 

PUTSFNOR 

1653 

REF 

4 

LAST 

444 

41 ,3254 

0 3104 

1 

TC 

SFRUTMI X 

1654 

REF 

1 

41,3255 

0 3257 

1 

TC 

PUTDCSF2 

1655 

REF 

4 

LAST 

444 

41, 3256 

0 3 C76 

0 

PUTSFNOR 

TC 

SFRUTNOR 

165  6 

REF 

129 

LAST 

442 

41,3257 

50  000 

1 

PUTDCSF2 

INDEX 

A 

1657 

REF 

L 

41,3260 

3 3262 

1 

CAF 

SFINTABR 

1658 

REF 

4 

LAST 

430 

41,3261 

0 4631 

1 

TC 

BANK  JUMP 

1659 

REF 

1 

41,3262 

62377 

0 

SFINTABR 

CADR 

GOAL  MCYC 

A 166  0 

1661 

REF 

1 

41,3263 

61135 

1 

CADR 

BINROUND 

1662 

REF 

1 

41,3264 

61037 

1 

CADR 

DEGINSF 

1663 

REF 

1 

41 , 3265 

61125 

0 

CADR 

ARTHI NSF 

1664 

REF 

1 

41 ,3266 

61143 

0 

CADR 

DPINSF 

166  5 

REF 

1 

41,3267 

61170 

0 

CADR 

DPINSF2 

1 666 

REF 

4 

LAST 

43B 

41,3270 

61447 

1 

CADR 

OSPALARM 

1667 

REF 

2 

LAST 

445 

41 , 3271 

61143 

0 

CADR 

DPINSF 

166  8 

REF 

1 

41 , 3272 

65463 

0 

CADR 

HMSIN 

166  9 

REF 

5 

LAST 

445 

41 ,3273 

61447 

1 

CADR 

OSPALARM 

1671 

REF 

1 

41 , 3274 

61175 

0 

CADR 

DPINSF4 

167  1 1 

REF 

1 

41,3275 

61140 

0 

CADR 

ARTI N1SF 

16712 

REF 

6 

LAST 

44  5 

41,32  76 

61447 

1 

CADR 

OSPALARM 

16714 

REF 

2 

LAST 

445 

41,3277 

61037 

1 

CADR 

DEGINSF 

16715 

REF 

7 

LAST 

445 

41,3300 

61447 

1 

CADR 

OSPALARM 

16716 

REF 

8 

LAST 

445 

41,3301 

61447 

1 

CADR 

OSPALARM 

1672 

41,3302 

ENDRUT  IN 

EQUALS 
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2XISF  CON  NUMB)  IN  A 

SWITCH  BANKS  TO  SF  CONSTANT  TABLE 
READING  ROUTINE. 

LOADS  SFTEMP1 , SFTEMP2. 


SWITCH  BANKS  FOR  FXPANSHION  ROOM 
ALARM  AND  RECYCLE  IF  DEC  LOAD 
WITH  OCTAL  ONLY  NOUN. 


L R POS OUT  CANT  BE  LOADED. 
SAME  AS  ARITHDP1 

MIN/SEC  CANT  BE  LOADED. 


2INTOUT  CANT  BE  LOADED. 
TESTS  AT  END  FOR  360-CDU 
RRANGOUT  CANT  BE  LOADED. 
RRDOT OUT  CANT  BE  LOADED. 


R 1673 


SCALE  FACTORS  FOR  THCSE  ROUTINES  NEEDING  THEM  ARE  AVAILABLE  IN  SF  TEMP l 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

l PINBALL  GAME  BUTTONS  ANO  LIGHTS 

R1674  ALL  SPIN  ROUTINES  USE  MPAC  MPAC+1.  LEAVE  RESULT  IN  A.  END  WITH  TC 


1675 

REF 

l 

40,3037 

SETLOC 

ENDDPDEC  + 

16755 

REF 

4 

LAST 

438  TO 

439: 

15  496* 

COUNT* 

tl/PIN 

R1676 

DEG 

INSF 

APPLIES  1000/180  =5. 

55555  I 10 

1 = 

5.43434(8) 

1677 

REF 

7 

last 

438 

40,3037 

0 7124 

1 

0EG1NSF 

TC 

DMP 

1678 

REF 
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40,3040 

03123 

1 

ADRES 

DEGC0N1 

1679 

REF 

151 

LAST 

445 

40,3041 

10  155 

1 

CCS 

MPAC  +1 

1680 

REF 

19 

LAST 

415 

40,3042 

3 4732 

0 

CAF 

BITll 

1681 

40,3043 

0 3 C45 

0 

TC 

+ 2 

1682 

REF 

20 

LAST 

446 

40,3044 

4 4732 

1 

CS 

BITll 

1683 

REF 

152 

LAST 

446 

40,3045 

6 C 155 

0 

AD 

MPAC  +1 

1684 

REF 

l 

40,3046 

0 3214 

0 

TC 

2 ROUND  +2 

1685 

REF 

3 

LAST 

437 

40,3047 

0 4375 

1 

TC 

TPSL1 

168  6 

REF 

4 

LAST 

446 

40,3050 

0 4375 

1 

DEGINSF2 

TC 

TPSL1 

1687 

REF 

1 

40,3051 

0 3223 

1 

TC 

TESTOFUF 

1688 

REF 

5 

LAST 

446 

40,3052 

0 4375 

1 

TC 

TPSL1 

1689 

RFF 

153 

LAST 

446 

40,3053 

10  154 

0 

CCS 

MPAC 

1690 

REF 

1 

40,3054 

0 3060 

1 

TC 

S IGNF1X 

1691 

REF 

2 

LAST 

446 

40,3055 

0 3060 

1 

TC 

S IGNFIX 

1692 

40,3056 

4 COOO 

0 

COM 

1693 

REF 

154 

LAST 

446 

40,3057 

54  154 

0 

TS 

MPAC 

1694 

REF 

4 

LAST 

443 

40,3060 

10  162 

0 

SIGNFIX 

CCS 

MPAC+6 

1695 

REF 

1 

40,3061 

0 3117 

0 

TC 

SGNT01 

169  6 

REF 

1 

40,3062 

0 3072 

1 

TC 

ENDSCALE 

1697 

REF 

155 

LAST 

446 

40,3063 

10  154 

0 

CCS 

MPAC 

1698 

REF 

5 

LAST 

428 

40,3064 

0 5701 

1 

TC 

CCSHOLE 

1699 

REF 

1 

40,3065 

0 3115 

1 

TC 

NEG180 

1 701 

40,3066 

0 3067 

0 

TC 

+ 1 

170  1 

REF 

156 

LAST 

446 

40,3067 

56  154 

1 

XCH 

MPAC 

1702 

REF 

8 

LAST 

432 

40,3070 

7 4724 

0 

MASK 

POSMAX 

1703 

REF 

157 

LAST 

446 

40,3071 

54  154 

0 

TS 

MPAC 

1704 

REF 

12 

LAST 

445 

40,3072 

50  140 

1 

ENDSCALE 

INDEX 

MIXBR 

170405 

40,3073 

0 3073 

0 

TC 

+ 0 

1704  1 

40,3074 

0 3077 

1 

TC 

+ 3 

17042 

REF 

l 

40,3075 

0 3107 

1 

TC 

SFMIXCAL 

1704  3 

40,3076 

0 3 100 

0 

MIXBACK 

TC 

+ 2 

17044 

REF 

1 

40,3077 

0 3112 

0 

TC 

SFNORCAL 

1705 

REF 

130 

LAST 

445 

40,3100 

4 CCOO 

0 

NORBACK 

CS 

A 

1705  1 

REF 

25 

LAST 

295 

40,3101 

6 4743 

0 

AD 

B I T 2 

17052 

40,3102 

0 0006 

1 

EXTEND 

17053 

40,3103 

1 3105 

1 

BZF 

+ 2 

17054 

REF 

2 

LAST 

431 

40,3104 

0 2614 

0 

TC 

360— CDU 

17055 

REF 

26 

LAST 

442 

40,3105 

0 4626 

1 

ENDSCAL 1 

TC 

POSTJUMP 

17056 

REF 

4 

1 AST 

444 

40,3106 

63225 

1 

CADR 

PUTC0M2 

1705  7 

KEF 

94 

LAST 

437 

40,3107 

0 4607 

1 

SFMI XCAL 

TC 

BANKCALL 
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SF  ROUTINE  FOR  DEC  DEGREES 
MULT  BY  5.5  5 ( 10 ) X2F  XP— 3 

THIS  ROUNDS  OFF  MPAC+1  BEFORE  SHIFT 
LEFT  3,  AND  CAUSES  360.00  TO  OF/UF 
WHFN  SHIFTED  LEFT  AND  ALARM. 


LEFT  1 
LEFT  2 

RETURNS  IF  NO  OF/UF  (LEFT3) 

IF+,  GO  Tn  SIGNFIX 
IF  +0  , GO  TO  S IGNFI X 
IF  - , USE  -MAGNITUDE  +1 
IF  -0,  USE  +0 

IF  OVERFLOW 

NO  OVERFLOW/UNDERFLOW 

IF  UF  FORCE  SIGN  TO  0 EXCEPT  -180 


IF  ROUTINE  NO.  IS  NOT  CDU  DEGREES, 
THEN  THIS  IS  360  - CDU  DEGREES 
AND  ANGLE  IN  MPAC  MUST  BE  REPLACED 
BY  360  DEGREES  MINUS  ITSELF. 
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1 705  £ 

REF 

5 

LAST 

445 

40,3110 

63104 

1 

CADR 

SFRUTMIX 

1 70  5 S 

REE 

1 

40, 3111 

0 3076 

0 

TC 

M I X BACK 

170591 

REF 

95 

LAST 

446 

40,3112 

0 4607 

1 

S FNORCAL 

TC 

bankcall 

170552 

REF 

5 

LAST 

445 

40,3113 

63C76 

0 

CADR 

SFRUTNOR 

170553 

REF 

1 

40,3114 

0 3100 

0 

TC 

NORBACK 

1706 

REE 

9 

LAST 

44  6 

40,3115 

4 4724 

0 

NEG180 

CS 

POSMAX 

1707 

REF 

2 

LAST 

446 

40,3116 

0 3071 

1 

TC 

ENDSCALE  - 

1708 

REF 

158 

LAST 

446 

40,3117 

4 C 1 54 

0 

SGNT01 

CS 

MPAC 

170  9 

REE 

10 

LAST 

447 

40,3120 

7 4724 

0 

MASK 

POSMAX 

1710 

REF 

131 

LAST 

446 

40,3121 

4 0000 

0 

CS 

A 

171  1 

REF 

3 

LAST 

447 

40,3122 

0 3C71 

1 

TC 

ENDSCALE  - 

1712 

40, 3123 

26161 

0 

0EGCUN1 

2DEC 

5.555555555 

1712 

40,3124 

30707 

1 

1715 

REF 

8 

LAST 

446 

40,3125 

0 7124 

1 

ARTHINSF 

TC 

DMP 

1716 

REF 

15 

LAST 

445 

40,3126 

00123 

1 

ADRES 

SFTEMP1 

1717 

REF 

159 

LAST 

447 

40,3127 

56  156 

0 

XCH 

MPAC  +2 

1718 

REF 

160 

LAST 

447 

40,3130 

56  155 

0 

XCH 

MPAC  +1 

1719 

REF 

161 

LAST 

447 

40,3131 

56  154 

1 

XCH 

MPAC 

1720 

40,3132 

0 0006 

1 

EXTEND 

172  1 

REF 

2 

LAST 

445 

40,3133 

l 3135 

1 

BZF 

B INROUND 

1722 

REF 

5 

LAST 

44  2 

40,3134 

0 6020 

0 

TC 

ALMCYCLE 

172  3 

REF 

2 

LAST 

44  6 

40,3135 

0 3212 

0 

B I NROUND 

TC 

2 ROUND 

1724 

REF 

2 

LAST 

446 

40,3136 

0 3223 

1 

TC 

T ESTOFUF 

1725 

REF 

1 

40,3137 

0 3105 

0 

TC 

ENDSCAL1 

1725  1 

REF 

9 

LAST 

447 

40,3  140 

0 7124 

1 

ART  1 N 1 SF 

TC 

DMP 

17252 

REF 

16 

LAST 

447 

40,3141 

OC  123 

1 

ADRE  S 

SFTEMP1 

17253 

REF 

3 

LAST 

447 

40,3142 

0 3135 

0 

TC 

B INROUND 

1739 

REF 

10 

LAST 

447 

40,3143 

0 7124 

1 

DPINSF 

TC 

DMP 

1740 

REF 

17 

LAST 

447 

40,3  144 

00123 

1 

ADRES 

SFTEMP1 

1741 

REF 

162 

LAST 

447 

40,3145 

56  156 

0 

XCH 

MPAC 

+ 2 

174  2 

40,3146 

6 0000 

1 

DOUBLE 

1743 

REF 

163 

LAST 

447 

40,3 147 

54  156 

1 

TS 

MPAC 

+ 2 

1744 

REF 

79 

LAST 

444 

40,3150 

3 4 746 

0 

CAE 

ZERO 

1 745 

REF 

164 

LAST 

447 

40,3151 

6 0155 

0 

AD 

MPAC 

+ 1 

1746 

REF 

3 

LAST 

447 

40,3152 

0 3214 

0 

TC 

2 ROUND 

+ 2 

174  7 

REF 

3 

LAST 

447 

40,3153 

0 3223 

1 

TC 

T ESTOFUF 

174  8 

REF 

13 

L AS! 

446 

40,3154 

5C  140 

1 

INDEX 

M I XBR 

1749 

40,3155 

0 3155 

0 

TC 

+ 0 

1750 

REF 

1 

40,3156 

0 3166 

0 

TC 

DPINORM 

1751 

REF 

27 

LAST 

444 

40,3157 

3 0117 

0 

CA 

DECOUNT 

1752 

REF 

25 

LAST 

444 

40,3160 

6 C 145 

1 

DPINCOM 

AD 

NOUNADD 

1753 

' REF 

39 

LAST 

443 

40,3161 

54  002 

1 

TS 

Q 
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IF  OF  FORCE  SIGN  TO  1 


B-3 


SCALES  MPAC,  +1  BY  SF  TEMP  1 , SFTEMP2 • 
ASSUMES  POINT  BETWEEN  HI  AMO  LO  PARTS 
OF  SF  CON . SHIFTS  RESULTS  LEFT  BY  14. 

(BY  TAKING  RESULTS  FROM  MPAC+1,  MPAC+2) 


TOO  LARGE  A L OAO . ALARM  AND  RECYCLE. 
RETURNS  IF  NO  OF/UF 

SCALES  MPAC,  +1  BY  SF  TEMP l , SFTEMP2. 
ROUNDS  MPAC+1  INTO  MPAC. 


SCALES  MPAC,  MPAC  +1  BY  SFTEMP1, 
SETEMP2 . STORES  LOW  PART  OF  RESULT 
IN  (E  SUBK ) +1  OR  E+l 


RETURNS  IF  NO  OF/UF 
MI XEDNOUN 

MIXED  NORMAL 

E SUBK  E 


GAP: 

L 

1 75  4 

1755 

1 756 

1757 

175  3 

1759 

1760 

176  1 

1762 

1763 

1764 

1765 

1766 

176  7 

176  3 

1769 

1770 

177  1 

1772 

1773 

1774 

1775 

1776 

1 777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 

I T 

1786 

1787 

1788 

1789 

1790 
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PINBALL 

GAME 

BUTTONS 

. ANO  LIGHTS 

USER'S  PAGE  NO.  47 

EO  S4 

REF 

165 

LAST 

447 

40,3162 

56  155 

0 

XCH 

MPAC  +1 

REF 

90 

LAST 

447 

40,3163 

50  002 

0 

INOE  X 

Q 

40,3164 

54  001 

1 

TS 

1 

PLACE  LOW  PART  IN 

REF 

2 

LAST 

447 

40,3 165 

0 3105 

0 

TC 

ENDSCAL  l 

(E  SUBK)  +1  MIXEO 

REF 

80 

LAST 

44  7 

40,3166 

3 4 746 

0 DPINORM 

CAF 

ZERO 

E +1  NORMAL 

REF 

1 

40,3167 

0 3160 

0 

TC 

DPINCOM 

REF 

11 

LAST 

447 

40,3170 

0 

7124 

1 

DPINSF2  TC 

OMP 

ASSUMES 

POINT  BETWEEN  BITS  7-8  OF  HIGH 

REF 

18 

LAST 

447 

40,3171 

00123 

1 

ADRES 

SFTEMP1 

PART  OF 

SF 

CONST.  DPINSF2  SHIFTS  RESULTS 

REF 

11 

LAST 

439 

40,3172 

3 

6263 

0 

CAF 

SIX 

L F FT  BY 

7, 

ROUNDS  MPAC+2  INTO  MPAC+l 

REF 

2 

LAST 

433 

40, 3 173 

0 

3202 

1 

TC 

TPLEFTN 

SHIFT  L F FT 

7. 

REF 

3 

LAST 

445 

40,3174 

0 

3145 

1 

TC 

DPINSF  +2 

REF 

12 

LAST 

448 

40,3175 

0 

7124 

1 

0PINSF4  TC 

DMP 

ASSUMES 

POINT  BETWEFN  BITS  11-12 

OF  HIGH 

REF 

19 

LAST 

448 

40,3176 

00123 

1 

ADRES 

SFTEMP1 

PART  OF 

SF 

CONST. 

DPINSF?  SHIFTS 

RESULTS 

REF 

29 

LAST 

442 

40,3177 

3 

4 743 

0 

CAF 

TWO 

LEFT  BY 

3, 

ROUNDS 

MPAC+2  INTO  MPAC+l. 

REF 

3 

LAST 

44  0 

40,3200 

0 

3202 

1 

TC 

TPLEFTN 

SHIFT  LEFT 

3 . 

REF 

4 

LAST 

448 

40,3201 

0 

3145 

l 

TC 

DPINSF  +2 

REF 

91 

LAST 

448 

40,3202 

56  C 02 

0 

TPLEFTN 

XCH 

0 

SHIFTS  MPAC,  +1, 

+2  LEFT  N.  SETS  OVFIND 

REF 

1 

40,3203 

54  124 

1 

TS 

SFTEMP2 

TO  +1  FOR  OF,  -1 

FOR  UF. 

REF 

92 

LAST 

44  8 

40,3204 

56  C02 

0 

XCH 

Q 

CALL  WITH  N— 1 IN 

A. 

REF 

20 

LAST 

44  8 

40,3205 

54  123 

0 

LEFTNCOM 

TS 

SFTEMP1 

LOOP  TIME  .37 

MSEC  . 

REF 

6 

LAST 

446 

40,3206 

0 4375 

1 

TC 

TPSL  l 

REF 

21 

LAST 

448 

40,3207 

10  123 

0 

CCS 

SFTEMP1 

REF 

1 

40,3210 

0 3205 

0 

TC 

LEFTNCOM 

REF 

2 

LAST 

448 

40,3211 

0 C 1 24 

0 

TC 

SFTEMP2 

REF 

166 

LAST 

448 

40,3212 

56  155 

0 

2R0UND 

XCH 

MPAC 

+ 1 

40,3213 

6 0000 

1 

DOUBLE 

REF 

167 

LAST 

448 

40,3214 

54  155 

1 

TS 

MPAC 

+ 1 

REF 

93 

LAST 

448 

40,3215 

0 0C02 

0 

TC 

0 

IF 

MPAC+l  DOES  NOT  OF/UF 

REF 

168 

LAST 

448 

40,3216 

6 Cl  54 

1 

AD 

MPAC 

REF 

169 

LAST 

448 

40,3217 

54  154 

0 

TS 

MPAC 

REF 

94 

L AST 

44  8 

40,3220 

0 0 C02 

0 

TC 

Q 

IF 

MPAC  DOES  NOT  OF/UF 

REF 

5 

LAST 

446 

40,3221 

54  162 

0 

TS 

MPAC+6 

REF 

95 

LAST 

448 

40,3222 

0 0002 

0 

2RNDEND 

TC 

Q 

REF 

6 

LAST 

448 

40,3223 

1C 

162 

0 

TESTOFUF  CCS 

MPAC+6 

RETURNS  IF 

NO 

OF/UF 

REF 

6 

LAST 

44  7 

40,3224 

0 

6020 

0 

TC 

ALMCYCLE 

OF 

ALARM 

AND 

RECYCLE 

REF 

96 

LAST 

44  8 

40,3225 

0 

0 C02 

0 

TC 

0 

REF 

7 

LAST 

448 

40,3226 

0 

6020 

0 

TC 

ALMCYCLE 

UF 

ALARM 

AND 

RECYCLE 
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1791 

REF 

1 

42,3463 

SETLOC 

ENDSPMIN  +1 

17915 

REF 

2 

LAST 

435  TO 

438: 

146  146* 

COUNT* 

$S/P IN 

1792 

REF 

1 

42,3463 

0 3604 

0 HMSIN 

TC 

ALL3DEC 

IF  ALL 

3 WORDS  WERE  NOT  LOADED,  ALARM. 

179  3 

REF 

13 

LAST 

448 

42,3464 

0 7124 

1 

TC 

D MP 

XR  EG, 

XRFGLP  I =HOUR S ) WERE  ALREADY  PUT 

1794 

REF 

1 

42,3465 

03545 

0 

AORES 

WHOLECON 

INTO  MPAC,  MPAC+l. 

1795 

REF 

1 

42,3466 

0 3554 

0 

TC 

RND/TST 

ROUND 

OFF  TO  WHOLE  HRS  IN  MPAC+l. 

1 796 

REF 

81 

LAST 

448 

42,3467 

3 4746 

0 

CAF 

ZERO 

ALARM 

IF  MPAC  NON  ZERO  <G/  16383  ). 

179  7 

REF 

170 

LAST 

448 

42,3470 

54  156 

1 

TS 

M P AC  +2 

1798 

REF 

1 

42,3471 

3 3547 

1 

CAF 

HRCON 

1799 

REF 

171 

LAST 

449 

42,3472 

5 4 154 

0 

TS 

M P AC 

1800 

REF 

2 

LAST 

449 

42,3473 

3 3550 

1 

CAF 

HRCON  +1 

1801 

REF 

172 

LAST 

449 

42,3474 

56  155 

0 

XCH 

M P AC  +1 

1802 

REF 

5 

LAST 

436 

42,3475 

0 7330 

0 

TC 

SHORTMP 

1803 

REF 

1 

42,3476 

0 3565 

1 

TC 

MPACTST 

ALARM 

IF  MPAC  NON  ZERO  (G/  745) 

1804 

REF 

173 

LAST 

449 

42,3477 

52  156 

1 

OXCH 

MPAC  +1 

STORE 

HOURS  CONTRIBUTION 

1805 

REF 

1 

42,3500 

52  124 

1 

DXCH 

H ITEM  I N 

1806 

REF 

3 

LAST 

440 

42,3501 

3 1003 

0 

CA 

YREG 

PUT  YREG,  YREGLP  INTO  MPAC,  +1. 

180  7 

REF 

2 

LAST 

104 

42,3502 

23*006 

0 

LXCH 

YREGLP 

1808 

REF 

174 

LAST 

449 

42,3503 

52  155 

1 

OXCH 

MPAC 

1809 

REF 

14 

LAST 

449 

42,3504 

0 7124 

1 

TC 

DMP 

1810 

REF 

2 

LAST 

449 

42,3505 

03545 

0 

AORES 

WHOLECON 

181  1 

REF 

2 

LAST 

449 

42,3506 

0 3554 

0 

TC 

RND/TST 

ROUND 

OFF  TO  WHOLE  MIN  IN  MPAC+l 

1812 

REF 

i 

42,3507 

4 3552 

1 

CS 

59MIN 

ALARM 

IF  MPAC  NON  ZERO  (G/16383) 

1813 

REF 

1 

42,3510 

0 3572 

1 

TC 

S IZETST 

ALARM 

IF  MPAC+l  G/  59MIN 

1814 

REF 

175 

LAST 

449 

42,3511 

56  155 

0 

XCH 

MPAC  +1 

1815 

42,3512 

C 0006 

1 

EXTEND 

1816 

REF 

1 

42,3513 

7 3551 

1 

MP 

MINCON 

LEAVES 

MINUTES  CONTRIBUTION  IN  A , L 

1817 

REF 

2 

LAST 

449 

42,3514 

20  124 

1 

OAS 

H ITEM  IN 

ADD  IN 

MINUTES  CONTRIBUTION 

1818 

42,3515 

C 0006 

1 

EXTEND 

IF  THIS  DAS  OVERFLOWS,  G/  745HR.39MIN 

1819 

42,3516 

1 3520 

1 

BZF 

+ 2 

182  0 

REF 

8 

LAST 

448 

42,3517 

0 6020 

0 

TC 

ALMCYCLE 

1821 

REF 

3 

LAST 

440 

42,3520 

3 1004 

1 

CA 

Z REG 

PUT  Z REG , ZREGLP  INTO  MPAC,  +1. 

1822 

REF 

2 

LAST 

104 

42,3521 

23*007 

1 

LXCH 

ZREGLP 

182  3 

REF 

l 76 

LAST 

449 

42,3522 

52  155 

1 

DXCH 

MPAC 

1824 

REF 

15 

LAST 

449 

42,3523 

0 7124 

1 

TC 

DMP 

182  5 

REF 

3 

LAST 

449 

42,3524 

03545 

0 

ADRES 

WHOLECON 

1826 

REF 

3 

LAST 

449 

42,3525 

0 3554 

0 

TC 

RND/TST 

ROUND 

OFF  TO  WHOLE  CFNTI-SEC  IN  MPAC+l 

182  7 

REF 

1 

42, 3526 

4 3553 

0 

CS 

5 9. 99  SEC 

ALARM 

IF  MPAC  NON  ZERO  (G/163.83  SEC) 

182  8 

REF 

2 

LAST 

449 

42,3527 

0 3572 

1 

TC 

SIZETST 

ALARM 

IF  MPAC+l  G/59.99  SEC 

1829 

REF 

3 

LAST 

449 

42,3530 

52  124 

1 

DXCH 

H ITEM  IN 

ADD  IN 

SFCONOS  CONTRIBUTION 

1830 

REF 

177 

LAST 

449 

42,3531 

20  155 

1 

DAS 

MPAC 

IF  THIS  DAS  OVERFLOWS, 

1831 

42,3532 

0 0006 

1 

EXTEND 

G/  745 

HR,  39  MIN,  14.55  SEC. 

1832 

42,3533 

1 3535 

0 

BZF 

+ 2 

1833 

REF 

9 

LAST 

449 

42,3534 

0 6020 

0 

TC 

ALMCYCLE 

ALARM 

AND  RECYCLE 

1834 

REF 

82 

LAST 

449 

42,3535 

3 4 746 

0 

CAF 

ZERO 

1835 

REF 

178 

LAST 

449 

42,3536 

54  156 

1 

TS 

MPAC  +2 

183  6 

REF 

6 

LAST 

438 

42,3537 

0 7300 

0 

TC 

TPAGREE 

183  7 

REF 

179 

LAST 

449 

42,3540 

52  155 

1 

DXCH 

MPAC 

1838 

REF 

26 

LAST 

447 

42,3541 

50  145 

1 

INDEX 

NOUNADD 

GAP: 


1839 

1840 
184  l 

1042 
184  3 
184  4 

1845 

1846 
184  7 
184  8 


184  9 

1850 

1851 

185  2 

1853 

1854 

1855 

1856 
1057 

185  8 
•185  9 
1860 
1861 
1062 

1863 

1864 

186  5 
1866 
186  7 
186  8 

186  9 
1870 

187  1 
1872 


R 1873 
R 1 874 
1075 

1876 

1877 

187  8 

1879 

1880 

188  1 
188  2 
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42,3542 

52  001 

1 

DXCH 

0 

REF 

27 

LAST 

446 

42,3543 

0 4626 

l 

TC 

POSTJUMP 

REF 

10 

LAST 

44  5 

42,3544 

63045 

0 

CADR 

LOADLV 

42,3545 

CC006 

1 

WHOLECON 

OCT 

00006 

42,3546 

03240 

1 

OCT 

03240 

42,3547 

00025 

0 

HRCON 

OCT 

00025 

42,3550 

37  100 

1 

OCT 

37100 

42,3551 

13560 

0 

M INCON 

OCT 

13560 

42,3552 

00073 

0 

5 9MIN 

OCT 

00073 

42,3553 

13557 

1 

59.99SEC 

OCT 

13557 

REF 

180 

LAST 

449 

42,3554 

56  156 

0 

RND/TST 

XCH 

MPAC  +2 

42,3555 

6 COOO 

1 

DOUBLE 

REF 

181 

LAST 

450 

42,3556 

54  156 

1 

TS 

MPAC  +2 

REF 

83 

LAST 

449 

42,3557 

3 4 746 

0 

CAF 

ZERO 

REF 

182 

LAST 

450 

42,3560 

6 C 1 55 

0 

AD 

MPAC  +1 

REF 

183 

LAST 

450 

42,3561 

54  155 

1 

TS 

MPAC  +1 

REF 

84 

LAST 

450 

42,3562 

3 4 746 

0 

CAF 

ZERO 

REF 

184 

LAST 

450 

42,3563 

6 Cl 54 

1 

AD 

MPAC 

REF 

185 

LAST 

450 

42,3564 

56  154 

1 

XCH 

MPAC 

REF 

186 

LAST 

450 

42,3565 

10  154 

0 

M PACT  ST 

CCS 

MPAC 

REF 

10 

LAST 

449 

42,3566 

0 6020 

0 

TC 

ALMCYCLE 

REF 

57 

LAST 

448 

42,3567 

0 0002 

0 

TC 

Q 

REF 

11 

LAST 

450 

42,3570 

0 6C20 

0 

TC 

ALMCYCLE 

REF 

98 

LAST 

450 

42,3571 

C 0002 

0 

TC 

Q 

REF 

187 

LAST 

450 

42,3572 

54  156 

1 

SIZETST 

TS 

MPAC  +2 

REF 

188 

LAST 

450 

42,3573 

10  155 

1 

CCS 

MPAC  +1 

REF 

46 

LAST 

444 

42,3574 

6 4 744 

1 

AD 

ONE 

42,3575 

l 3577 

0 

TCF 

+ 2 

REF 

47 

LAST 

450 

42,3576 

6 4744 

1 

AD 

ONE 

REF 

189 

LAST 

450 

42,3577 

6 C 1 56 

0 

AD 

MPAC  +2 

42,3600 

0 0006 

1 

EXTEND 

42,3601 

6 3603 

1 

BZMF 

+ 2 

REF 

12 

LAST 

450 

42,3602 

0 6020 

0 

TC 

ALMCYCLE 

REF 

99 

LAST 

450 

42,3603 

C 0002 

0 

TC 

Q 

AL  L 3D  EC 

TESTS 

THAT 

ALL  3 WORDS  ARE  LOADED  IN  DEC 

(FOR 

hMS IN)  . 

ALARM  IF 

NOT.  ( 

TEST 

THAT  BITS 

3,4,5  OF 

DFCBRNCH 

ARE  ALL  = 1) 

REF 

1 

42,3604 

4 3611 

0 

ALL3DEC 

CS 

0CT34BAR 

REF 

17 

LAST 

444 

42,3605 

7 C 777 

1 

MASK 

DECBRNCH 

REF 

2 

LAST 

450 

42,3606 

6 3611 

1 

AD 

0CT34BAR 

REF 

132 

LAST 

447 

42,3607 

10  000 

0 

CCS 

A 

REF 

l 

42 , 3610 

0 3614 

1 

TC 

F0RCEV25 

42,3611 

77743 

1 

0CT34BAR 

OCT 

77743 

REF 

2 

LAST 

45  0 

42,3612 

0 3614 

1 

TC 

FORCEV25 

REF 

100 

LAST 

450 

42,3613 

0 0C02 

0 

TC 

0 
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( 10EXP5/2EXP1412EXP14 

1 HOUR  IN  CENTI-SEC 

1 MINUTE  IN  CENTI-SEC 
59  AS  WHOLE 
5999  CENT  I -SFC 


ROUNDS  MPAC+2  INTO  MPAC+1. 
ALARMS  IF  MP AC  NOT  0 


CANT  0 VF  LOW 

ALARM  IF  MP AC  NON  ZERO 
ALARM  AND  RECYCLF. 

ALARM  AND  RECYCLE. 


CALLED  WITH  - CON  IN  A 
GET  MAG  OF  MPAC+1 


MAG  OF  MPAC+1  - CON 

MAG  OF  MPAC+1  G/  COM.  ALARM  ANO  RECYCLE. 
MAG  OF  MP AC  + 1 L/=  CON 


GET  BITS  3,4,5  IN  A 

GET  BITS  3,4,5  OF  DFCBRNCH  IN  A 

BITS  3,4,5  OF  DECBRNC H MUST  ALL  = 


1 
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L 

PINBALL 

GAME 

BUTTONS 

; ANO  LIGHTS 

USER'S  PAGE 

NO.  50 

FO  S4 

18825 

REF 

2 

LAST 

221 

42,3614 

4 6010 

i 

F0RCEV25 

cs 

0CT31 

FORCE  VERB  25  TO 

BE  EXECUTED 

BY  RECYCLE 

18826 

REF 

2 

LAST 

420 

42,3615 

55*  C40 

0 

TS 

VERBSAVE 

IN  CASE  OPERATOR 

EXECUTED  A 

LOWER  LOAD 

1882  7 

REF 

13 

LAST 

450 

42,3616 

0 6020 

0 

TC 

ALMCYCLE 

VERB.  ALARM  ANO 

RECYCLE . 

1883 

42,3617 

ENOHMSS 

EQUALS 

V 

GAP:  ASSEMBLE  RFVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161  17:11  MAR.  19,1971  LEM0NAID.156  PAGE 

M L PINBALL  GAME  BUTTONS  AND  LIGHTS  USER'S  PAGE  NO.  51  FO  S4 


P1884  MONITOR  ALLOWS  OTHER  KEY 80AR 0 ACTIVITY.  IT  IS  ENDED  BY  VERB  TERMINATE, 
R 1 88 5 VERB  PROCEED  WITHOUT  DATA,  VERB  RESEQUENCE, 

R 1886  ANOTHER  MONITOR,  UR  ANY  NVSUB  CALL  THAT  PASSES  THE  DSPLOCK  (PROVIDED 
R 1 886 1 THAT  TEE  OPERATOR  HAS  SOMEHOW  ALLOWED  THE  ENDING  OF  A MONITOR  WHICH 
R 1 886 2 HE  HAS  INITIATED  THROUGH  THE  KEYBOARD). 


R 1 88 7 MONITOR  ACTION  IS  SUSPENDED,  eUT  NOT  ENDED,  BY  ANY  KEYBOARD  ACTION, 

R 1 88 8 EXCEPT  ERROR  LIGHT  RESET.  IT  BEGINS  AGAIN  WHEN  KEY  RELEASE  IS  PERFORMED. 

R 1 889  MONITOR  SAVES  THE  NOUN  AND  APPROPRIATE  DISPLAY  VFRB  IN  MONSAVE.  IT  SAVES 
R1890  NOUNCACR  IN  M0NSAVE1,  IF  NOUN  = MACHINE  CADR  TO  BE  SPECIFIED.  BIT  15  OF 
K1891  M0NSAVE1  IS  IHE  KILL  MONITOR  SIGNAL  (KILLER  BIT).  BIT  14  OF  M0NSAVE1 
R10911  INDICATES  THE  CURRENT  MONITOR  WAS  EXTERNALLY  INITIATED  (EXTERNAL 
R 1 89 1 2 MONITOR  BIT).  IT  IS  TURNED  OFF  BY  RELDSP  AND  KILMONON. 


R 1892  MONSAVE  INDICATES  IF  MONITOR  IS  CN(  +=ON,  +0=0FF) 

R 1 89 3 IF  MCNSAVE  IS  +,  MONITOR  ENTERS  NO  REQUEST,  BUT  TURNS  KILLER  BIT  OFF. 

R 1 894  IF  MONSAVE  IS  +0,  MONITOR  ENTERS  REQUEST  AND  TURNS  KILLER  BIT  OFF. 

R 1 895  NVSUB  (IF  EXTERNAL  MONITOR  BIT  IS  OFF),  VB=PROCEED  WITHOUT  DATA, 

R 1896  VB=RESEQUENCE , AND  VB=TERM INA  TE  TURN  KILL  MONITOR  BIT  ON. 

R 1 897  IF  KILLER  BIT  IS  ON,  MONREQ  ENTERS  NO  FURTHER  REQUESTS,  ZEROS  MONSAVE 

R 1 89 8 AND  MCNSAVE1  (TURNING  OFF  KILLER  BIT  AND  EXTERNAL  MONITOR  BIT). 

R 1 899  MONITOR  DOSENT  TEST  FOR  MATBS  SINCE  NVSUB  CAN  HANDLE  INTERNAL  MATBS  NOW 


1900 

REF 

1 

41,3302 

SETLOC 

ENDRUT IN 

19005 

REF 

3 

LAST 

439  TO 

446: 

283  690* 

COUNT* 

$ t / P I N 

1901 

REF 

1 

41,3302 

4 3311 

0 

MCNITOR 

CS 

BIT15/14 

1902 

REF 

6 

LAST 

445 

41,3303 

7 1016 

0 

MASK 

NOUNCADR 

190  3 

REF 

190 

LAST 

450 

41,3304 

54  155 

1 

MONI T1 

TS 

M P AC  +1 

TEMP  STORAGE 

1903  1 

REE 

7 

LAST 

438 

41,3305 

4 C 136 

1 

CS 

ENTEXIT 

19032 

REF 

4 

LAST 

420 

41,3306 

6 4210 

0 

AO 

ENDINST 

19033 

REF 

133 

LAST 

450 

41,3307 

10  000 

0 

CCS 

A 

19034 

REF 

1 

41,3310 

0 3317 

1 

TC 

M0NIT2 

19035 

41,3311 

6 C 000 

1 

BIT15/14 

OCT 

60000 

19036 

REF 

2 

LAST 

452 

41,3312 

0 3317 

1 

TC 

MON  I T 2 

19037 

REF 

37 

LAST 

428 

41,3313 

3 4727 

1 

CAE 

BIT14 

EXTERNALLY  INITIATED  MONITOR 

1903  8 

REF 

191 

LAST 

452 

41,3314 

26  155 

l 

ADS 

MPAC  +1 

SET  BIT  14  FOR  M0NSAVE1. 

190381 

REF 

85 

LAST 

450 

41,3315 

3 4746 

0 

CAF 

ZERO 

19 

REF 

1 

41,3316 

55' 021 

1 

TS 

M0NSAVE2 

ZERO  NVMONOPT  OPTIONS 

1904 

REF 

3 

LAST 

244 

41,3317 

3 6115 

1 

MONI T2 

CAF 

L0W7 

190  5 

REF 

18 

LAST 

427 

41,3320 

7 1000 

1 

MASK 

VERBREG 

1906 

REE 

4 

LAST 

443 

41,3321 

0 4322 

0 

TC 

L EFT  5 

1907 

REF 

5 

LAST 

412 

41,3322 

54  022 

0 

TS 

CYL 

1908 

REF 

6 

LAST 

452 

41,3323 

4 OC 22 

0 

CS 

C YL 

1909 

REF 

7 

LAST 

452 

41,3324 

56  022 

1 

XCH 

CYL 

1910 

REF 

1 1 

LAST 

439 

41,3325 

6 1001 

1 

AD 

NOUNREG 

191  1 

REF 

192 

LAST 

452 

41,3326 

54  154 

0 

TS 

MPAC 

TEMP  STORAGE 

1912 

REF 

86 

LAST 

452 

41,3327 

3 4746 

0 

CAF 

ZERO 

452 
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1913 

REF 

3 

LAST 

410 

41,3330 

55*011 

1 

TS 

DSPLOCK 

1914 

REF 

4 

LAST 

420 

41,3331 

11 '041 

1 

CCS 

CADRSTOR 

1915 

41,3332 

0 3334 

0 

TC 

+ 2 

1916 

REF 

1 

41,3333 

0 4473 

0 

TC 

RELDSP1 

191  7 

41,3334 

0 0004 

0 

INHINT 

1918 

REF 

2 

LAST 

233 

41,3335 

11*017 

1 

CCS 

MONSAVE 

1919 

41,3336 

0 3343 

0 

TC 

+ 5 

192C 

REF 

48 

LAST 

450 

41,3337 

3 4744 

1 

CAF 

ONE 

192  1 

REF 

15 

LAST 

379 

41,3340 

0 5205 

0 

TC 

WAITLIST 

1922 

REF 

39 

LAST 

444 

0776 

EBANK= 

DSPCOUNT 

1923 

REF 

1 

41,3341 

03347 

1 

2C  ADR 

MONREQ 

1923 

. REF 

l 

41,3342 

62101 

0 

1924 

REF 

193 

LAST 

452 

41,3343 

52  155 

1 

DXCH 

MPAC 

1925 

REF 

3 

LAST 

453 

41 , 3344 

53 ' 020 

0 

DXCH 

MONSAVE 

1926 

41,3345 

0 0003 

1 

RELINT 

192  7 

REF 

4 

LAST 

420 

41,3346 

0 C 136 

0 

TC 

ENTRET 

1928 

REF 

1 

4 1,3347 

0 4371 

0 

MONREQ 

TC 

LODSAMPT 

192  9 

REF 

2 

LAST 

233 

41,3350 

1 1 ' 020 

0 

CCS 

MONSAVE 1 

1930 

41,3351 

0 3355 

1 

TC 

+4 

193  1 

41 , 3352 

0 3355 

1 

TC 

+ 3 

1932 

REF 

1 

41 , 3353 

0 3366 

1 

TC 

K ILLMON 

1933 

REF 

2 

LAST 

453 

41, 3354 

0 3366 

1 

TC 

K ILLMON 

1934 

REF 

1 

41,3355 

3 3372 

1 

CAF 

MONDEL 

1935 

REF 

16 

LAST 

453 

41,3356 

0 5205 

0 

TC 

WAITLIST 

1936 

REF 

40 

LAST 

453 

.)  7 76 

EBANK= 

DSPCOUNT 

1937 

REF 

2 

LAST 

453 

41,3357 

03347 

1 

2CADR 

MONREQ 

1937 

41,3360 

62101 

0 

1938 

REF 

2 

LAST 

168 

41,3361 

3 4346 

1 

CAF 

CHRPRIO 

1939 

REF 

8 

LAST 

340 

41, 3362 

0 5063 

1 

TC 

NOVAC 

1940 

REF 

41 

LAST 

453 

0776 

EB ANK= 

DSPCOUNT 

1941 

REF 

1 

41,3363 

03373 

0 

2C  ADR 

MONDO 

1941 

REF 

1 

41,3364 

62  101 

0 

194  2 

REF 

1 1 

LAST 

396 

41, 3365 

0 5263 

0 

TC 

TASKOVER 

1943 

REF 

87 

LAST 

452 

41 , 3366 

3 4746 

0 

K ILLMON 

CAF 

ZERO 

1944 

REF 

4 

LAST 

453 

41 , 3367 

55' 017 

1 

TS 

MONSAVE 

1945 

REF 

3 

LAST 

453 

41,3370 

55  * C20 

0 

TS 

MONSAVE 1 

194  6 

REF 

12 

LAST 

453 

41,3371 

0 5263 

0 

TC 

TASKOVER 

1947 

41 , 3372 

0 0144 

0 

MENDEL 

OCT 

144 

1948 

REF 

4 

LAST 

453 

41 ,3373 

1 1 ' 020 

0 

MONOO 

CCS 

MONSAVE 1 

1949 

41,3374 

0 3400 

0 

TC 

+4 

1950 

41,3375 

0 3400 

0 

TC 

+ 3 

1951 

REF 

49 

LAST 

416 

41 , 3376 

0 5146 

1 

TC 

ENDOF JOB 

1952 

REF 

50 

LAST 

453 

41 , 3377 

0 5146 

1 

TC 

ENDOF JOB 

1953 

REF 

4 

LAST 

453 

41,3400 

11*011 

l 

CCS 

DSPLOCK 

1954 

REF 

1 

41,3401 

0 3423 

1 

TC 

MONBUSY 
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USER' S PAGE  NO.  52  EO  S4 

+0  INTO  DSPLOCK  SO  MONITOR  CAN  RUN. 

TURN  OFF  KR  LITE  IF  CADRSTOR  AND  DSPLIST 
ARE  BOTH  EMPTY.  (LITE  COMES  ON  IF  NEW 
MONITOR  IS  KEYED  IN  OVER  OLD  MONITOR.) 


IF  MONSAVE  WAS  + , NO  REQUEST 
IF  MONSAVF  WAS  0,  REQUEST  MONREQ 


PLACE  MONITOR  VERB  AND  NOUN  INTO  MONSAVE 
ZERO  THE  KILL  MONITOR  BIT 
SET  UP  EXTERNAL  MONITOR  BIT 


CALLED  BY  WAITLIST 

TIME  IS  SNATCHED  IN  RUPT  FOR  NOUN  65 
IF  KILLER  BIT  = 0,  ENTER  REQUESTS 

IF  KILLER  BIT  = 0,  ENTER  REQUESTS 

IF  KILLER  BIT  = 1,  NO  REQUFSTS 

IF  KILLER  BIT  = 1,  NO  REQUESTS 

ENTER  WAITLIST  REQUEST  FOR  MONREQ 


ENTER  EXEC  REQUEST  FOR  MONDO 


ZERO  MONSAVE  AND  TURN  KILLER  BIT  OFF 

TURN  OFF  KILL  MONITOR  BIT. 

TURN  OFF  EXTERNAL  MONITOR  BIT. 

FOR  1 SEC  MONITOR  INTERVALS 


CALLED  BY  EXFC 

IF  KILLER  BIT  = 0,  CONTINUE 

IF  KILLER  BIT  = 0,  CONTINUE 

IN  CASE  TERMINATE  CAME  SINCE  LAST  MnNREQ 

IN  CASE  TERMINATE  CAME  SINCE  LAST  MONREQ 


NVSUB  IS  BUSY 


GAP 


ASSEMBLE  REVISION  210  OF  A GC  PPOGRAM  LUMINARY  BY  NASA  2021112-161 


1955 

1956 
1958 
I96  0 
1961 
196  2 

1963 

1964 

1965 
196  6 
1967 
196  8 
196  9 

1970 

1971 

1972 

1 972  C 1 
197202 

19725 

197? 

1974 

1975 

1976 

1977 

1978 
19782 
L 97  8 ? 
197832 
197833 
197835 
197838 

19784 

19785 
19780 

1978  7 

1979 


198  0 
19805 

198  i 

1982 

1983 

1984 


PINBALL 

GAME 

BUTTONS  AND  LIGHTS 

REF 

4 

LAST 

452 

<\J 

o 

si- 

m 

3 6115 

1 

CAF 

L0W7 

REF 

5 

LAST 

453 

41,3403 

7 1017 

1 

MASK 

MONSAVE 

REF 

L 

41,3404 

0 2346 

1 

TC 

U PD AT  NN  -1 

REF 

1 

41,3405 

3 4144 

l 

CAF 

M ID7 

REF 

6 

LAST 

45  4 

41,3406 

7 1017 

1 

MASK 

MCNSAVE 

REF 

l 

41,3407 

6 3421 

0 

AD 

MONREF 

REF 

1 

41,3410 

54  023 

1 

TS 

EDOP 

REF 

2 

LAST 

454 

41,3411 

3 0 C23 

0 

CA 

E OOP 

REF 

19 

LAST 

452 

41,3412 

5 5 1 000 

1 

TS 

VERBREG 

REF 

1 

41, 3413 

3 3422 

0 

CAF 

MONBACK 

REF 

5 

LAST 

453 

41,3414 

54  136 

1 

TS 

ENTRET 

REF 

2 

LAST 

452 

41,3415 

4 3311 

0 

CS 

RIT15/14 

REF 

5 

LAST 

453 

41,3416 

7 1020 

0 

MASK 

MONS AVE1 

REF 

194 

LAST 

453 

41,3417 

54  156 

l 

TS 

MPAC  +2 

REF 

1 

41,3420 

0 2073 

1 

E NUMDNDO 

TC 

TESTNN 

4124 

BLOCK 

2 

REF 

1 

4000 

SETLOC 

FFTAG8 

4124 

BANK 

REF 

1 

COUNT  * 

$t/PIN 

REF 

2 

LAST 

454 

4 124 

3 4 144 

1 

PASTEVB 

CAF 

MID7 

REF 

2 

LAST 

452 

4125 

7 1021 

1 

MASK 

M0NSAVE2 

4126 

0 0006 

1 

EXTEND 

4127 

1 4131 

1 

BZF 

+ 2 

REF 

1 

4130 

0 4132 

0 

TC 

PASTEOPT 

REF 

7 

LAST 

454 

4131 

3 1017 

0 

CA 

MONSAVE 

REF 

3 

LAST 

454 

4132 

54  023 

1 

PASTEOPT 

TS 

EDOP 

REF 

4 

LAST 

454 

4133 

3 C023 

0 

CA 

EDOP 

REF 

96 

LAST 

447 

4134 

0 4607 

1 

TC 

BANKCALL 

REF 

7 

LAST 

441 

4135 

62366 

0 

CADR 

UPOATVB  -l 

REF 

88 

LAST 

453 

4136 

3 4746 

0 

CAF 

ZERO 

REF 

10 

LAST 

424 

4137 

55 1 0 12 

L 

TS 

REQRET 

REF 

3 

LAST 

454 

4140 

3 1021 

0 

CA 

M0NSAVE2 

REF 

1 

4141 

0 4246 

0 

TC 

BLANKSUB 

4142 

0 4143 

0 

TC 

+ 1 

REF 

5 1 

LAST 

453 

4143 

0 5146 

1 

ENDPASTE 

TC 

ENDOF JOB 

4144 

37600 

0 

MID7 

OCT 

37600 

REF 

l 

41,3421 

SETLOC 

ENDMONDO  + 

REF 

4 

LAST 

452  TO 

454 : 

79  769* 

COUNT* 

$$/P  I N 

41,3421 

75377 

0 

MONREF 

OCT 

75377 

REF 

1 

41,3422 

04  124 

1 

MONBACK 

ADRES 

PASTEVB 

REF 

2 

LAST 

410 

41,3423 

0 4365 

0 

MONBUSY 

TC 

RELDSPON 

REF 

52 

LAST 

454 

41,3424 

0 5146 

1 

TC 

E NDOF JOB 
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USER' S PAGE  NO.  53  EO  S4 


PLACE  NOUN  INTO  NOUNREG  ANO  DISPLAY  IT 

CHANGE  MONITOR  VFR8  TO  DISPLAY  VERB 
-DEC  1 0 , STARTING  IN  8TT8 
RIGHT  7 


SET  RETURN  Tn  PASTE VB  AFTER  DATA  DISPLAY 


PUT  FCADR  INTO  MPAC  +2.  INTMCTBS  WILL 
DISPLAY  IT  AND  SET  NOUNCAOR,  NOUNADD, 
EBANK . 


NVMONOPT  P AST F OPTION 


PASTE  PL  FAS  E VERB  FOR  NVMONOPT 

PASTE  MONITOR  VERB  - PASTE  OPTION  IS  0 

RIGHT  7 

PLACE  MONITOR  VERB  OR  PLEASE  VERB  INTO 
VERBREG  ANO  DISPLAY  IT. 

ZERO  REQRET  SO  THAT  PASTED  VERBS  CAN 
BE  EXECUTED  BY  OPERATOR. 

PROCESS  NVMONOPT  BLANK  OPTION  IF  ANY 


-DEC10,  STARTING  IN  BIT8 


TURN  KEY  RELEASE  LIGHT 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LOM IN ARY  BY  NASA  2021112-161  l 

L PINBALL  GAME  BUTTONS  AND  LIGHTS 

R 1 985  DSPFMEM  IS  USED  TO  DISPLAY  (IN  OCTAL)  ANY  FIXED  REGISTER. 

R 1 986  IT  IS  USED  WITH  NOUN  = MACHINE  CADR  TO  BF  SPECIFIED.  THE  FCADR  OF  THE 
R1987  DESIRED  LOCATION  IS  THEN  PUNCHED  IN.  IT  HANDLES  F/F  ( FCADR  4000-7777) 

R 198  7 1 FOR  BANKS  L/E  27,  THIS  IS  ENOUGH. 

R19872  FOR  BANKS  G/E  30,  THE  THIRD  COMPONENT  OF  NOUN  26  (PRIO,  ADRES,  BBCON ) 

R 1 98  7 3 MUST  BE  PRELOADED  WITH  THE  DESIRED  SUPERBANK  BITS  (BITS  5,6,7). 

R 198  7 4 V23N26  SHOULD  BE  USED. 


R 1 9 8 7 5 SUMMARY 

R 198  76  FOR  BANKS  L/E  27,  V2 7N0 1 E ( FC ADR ) E 

R 198  7 7 FOR  BANKS  G/E  30,  V 2 3N 26E ( SUPER B I T S ) E V 2 7N01 E ( F C ADR ) E 


1988 

REF 

11 

LAST 

438 

41 , 3425 

3 

4310 

1 

DSPFMEM 

CAF 

R1D1 

1989 

REF 

42 

LAST 

453 

41,3426 

54 

776 

0 

TS 

D SPCOUNT 

1989  1 

REF 

18 

LAST 

336 

41,3427 

3 

1046 

1 

CA 

DSPTEM1  +2 

19892 

REF 

59 

LAST 

443 

41, 3430 

54 

001 

1 

TS 

L 

1990 

REF 

7 

LAST 

452 

41,3431 

3 

1016 

1 

CA 

NOUNCADR 

1991 

REF 

1 

41,3432 

0 

4642 

0 

TC 

SUPDACAL 

1992 

REF 

3 

LAST 

427 

41 , 3433 

0 

3435 

0 

TC 

D SPOCTWO 

1993 

REF 

53 

LAST 

454 

41,3434 

0 

5146 

1 

ENDSPF 

TC 

ENDOF JOB 
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USFR'S  PAGE  NO.  54  EO  S4 


IF  F/F,  DATACALL  USES  BANK  02  OR  03. 

SUPERBANK  BITS  WERF  PRELOADED  INTO 
3RD  COMPONENT  OF  NOUN  26. 

ORIGINAL  FCADR  LOADED  STILL  IN  NOUNCADR. 
CALL  WITH  FCADR  IN  A,  SUPERRITS  IN  L. 


GAP:  ASSEMBLE  REVISION  210  CE  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L PINBALL  GAME  BUTTONS  AND  LIGHTS 


P 1 994 

WORD  DISPLAY 

ROUT  INES 

199  5 

REE 

4 

LAST 

44  7 

40, 3227 

SETLOC 

TESTDFUF  +4 

19955 

REF 

5 

LAST 

446  TO 

449: 

120  616* 

COUNT* 

* S/PIN 

1996 

REE 

IC1 

LAST 

450 

40, 3227 

56  002 

0 

OSPS  IGN 

XCH 

0 

1997 

REF 

1 

40,3230 

54  144 

1 

TS 

DSPWDRET 

1998 

REF 

155 

LAST 

454 

40,3231 

10  154 

0 

CCS 

MPAC 

1999 

40,3232 

0 3242 

0 

TC 

+ 8D 

2000 

40,3233 

0 3242 

0 

TC 

+ 7 

2001 

REF 

49 

LAST 

453 

40,3234 

6 4744 

1 

AD 

ONE 

2002 

REF 

156 

LAST 

456 

40,3235 

54  154 

0 

TS 

MPAC 

200  3 

REF 

2 

LAST 

414 

40,3236 

0 2422 

l 

TC 

-ON 

2 004 

REF 

197 

LAST 

456 

40,3237 

4 0155 

1 

CS 

MPAC  +1 

2005 

REF 

198 

LAST 

456 

40,3240 

54  155 

1 

TS 

MPAC  +1 

2006 

REF 

2 

LAST 

456 

40,3241 

0 C 144 

0 

TC 

DSPWDRET 

200  7 

REF 

3 

LAST 

434 

40,3242 

0 2402 

0 

TC 

+ 0N 

2008 

REF 

3 

LAST 

456 

40,3243 

0 0144 

0 

TC 

DSPWDRET 

2009 

40,3244 

0 0006 

1 

DSPRND 

EXTEND 

2010 

REF 

1 

40,3245 

3 3310 

0 

DC  A 

DECROUND  -1 

201 1 

REF 

199 

LAST 

456 

40,3246 

20  155 

1 

DAS 

MPAC 

2012 

40,3247 

0 0006 

1 

EXTEND 

2013 

40,3250 

1 3254 

0 

BZF 

+4 

2014 

40,3251 

C 0006 

1 

EXTEND 

2015 

REF 

l 

40,3252 

3 4 7 24 

1 

DC  A 

DPOSMAX 

2016 

REF 

200 

LAST 

456 

40,3253 

52  155 

1 

DXCH 

MPAC 

201  7 

REF 

1 02 

LAST 

456 

40,3254 

0 0002 

0 

TC 

Q 

R2018 

DSPDECWD 

CONVERTS  Cl 

MPAC,  MPAC+1)  INTO 

A SIGN  AND  5 CHAR  DECIMAL 

R2019 

START  ING 

IN  LOC  SPECIFIED  IN 

DSPCCUNT 

IT  ROUNDS 

BY  5 EXP-6. 

2020 

REF 

103 

LAST 

456 

40,3255 

56  002 

0 

DSPDECWD 

XCH 

Q 

2021 

REF 

1 

40,3256 

54  115 

0 

TS 

WORET 

2022 

REF 

1 

40,3257 

0 3227 

0 

TC 

DSPS IGN 

2023 

REF 

1 

40,3260 

0 3244 

0 

TC 

DSPRND 

2024 

REF 

5 

LAST 

345 

40,3261 

3 4742 

1 

CAF 

FOUR 

202  5 

REF 

1 

40,3262 

54  137 

0 

DSPDCWD1 

TS 

WDCNT 

2026 

REF 

1 

40,3263 

3 4354 

1 

CAF 

BINCON 

2027 

REF 

6 

LAST 

449 

40,3264 

0 7330 

0 

TC 

SHORTMP 

2028 

REF 

201 

LAST 

456 

40,3265 

50  154 

1 

TRACE1 

INDEX 

MPAC 

2029 

REF 

3 

LAST 

4 l 1 

40,3266 

3 4 C 66 

0 

CAF 

RELTAB 

2030 

REF 

5 

LAST 

443 

40,3267 

7 4337 

0 

MASK 

l 0W5 

2031 

REF 

6 

LAST 

436 

40,3270 

54  124 

1 

TS 

CODE 

2032 

REF 

89 

LAST 

454 

40,3271 

3 4746 

0 

CAF 

ZERO 

2033 

REF 

202 

LAST 

456 

40,3272 

56  156 

0 

XCH 

MPAC  +2 

2034 

REF 

203 

LAST 

456 

40,3273 

56  155 

0 

XCH 

MPAC  +1 

2035 

REF 

204 

LAST 

456 

40,3274 

54  154 

0 

TS 

MPAC 

2036 

REF 

43 

LAST 

455 

40,3275 

56  776 

1 

XCH 

OSPCOUNT 

2037 

REF 

4 

LAST 

436 

40,3276 

54  143 

0 

TRACE1S 

TS 

COUNT 

2038 

REF 

134 

LAST 

452 

40,3277 

10  000 

0 

CCS 

A 
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USER*  S PAGE  NO.  55  EO  S4 


ROUND  BY  5 EXP-6 


DECREMENT  DSPCOUNT  EXCEPT  AT  +0 


GAP: 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  202U12-L61 
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PAGE  457 


L 

PINBALL 

GAME 

BUTTONS  AND  LIGHTS 

2039 

REE 

44 

LAST 

456 

40,3300 

54  776  0 

TS 

DSPCOUNT 

2040 

REF 

4 

LAST 

436 

40, 3301 

0 3351  0 

TC 

DSPIN 

2041 

REF 

2 

LAST 

456 

40,3302 

10  137  0 

CCS 

WDCNT 

2042 

REF 

1 

40,3303 

0 3262  1 

TC 

0 SPUCWD 1 

2043 

REF 

7 

LAST 

442 

40,3304 

4 4351  0 

CS 

VD1 

2044 

REF 

45 

LAST 

457 

40,3305 

54  776  0 

TS 

DSPCOUNT 

2045 

REF 

2 

LAST 

456 

40,3306 

0 0115  l 

TC 

WDRET 

2046 

40,3307 

COOOO  1 

OCT 

00000 

204  7 

40,3310 

C2476  0 

DECROUND  OCT 

02476 

R2048 

DSPDECNR 

CONVERTS  C( 

MP AC , MP  AC  + 1 ) INTO 

A SIGN  AND  5 

CHAR  DECIMAL 

R2049 

START ING 

IN  LOC  SPECIFIED  IN 

DSPCOUNT . 

IT  DOES  NOT  ROUND 

2050 

REF 

104 

LAST 

456 

40,3311 

56  C02  0 

DSPDECNR  XCH 

Q 

2051 

REF 

3 

LAST 

457 

40,3312 

54  115  0 

TS 

WDRET 

2052 

REF 

2 

LAST 

456 

40,3313 

0 3227  0 

TC 

DSPS IGN 

205  3 

REF 

2 

LAST 

457 

40,3314 

0 3261  1 

TC 

DSPDCWD1  -1 

R2054 

DSPDC2NR 

CONVERTS  C( 

MPAC  , MPAC  + 1 ) INTO 

A SIGN  AND  2 

CHAR  DECIMAL 

R2055 

START  ING 

IN  LOC  SPECIFIED  IN 

DSPCOUNT. 

IT  DOES  NOT  ROUND 

2056 

REF 

105 

LAST 

457 

40,3315 

56  002  0 

DSPDC2NR  XCH 

Q 

2057 

REF 

4 

LAST 

457 

40,3316 

54  115  0 

TS 

WDRET 

2058 

REF 

3 

LAST 

457 

40,3317 

0 3227  0 

TC 

DSPS IGN 

2059 

REF 

50 

LAST 

456 

40,3320 

3 4744  1 

CAF 

ONE 

2060 

REF 

3 

LAST 

457 

40,3321 

0 3262  1 

TC 

DSPDCWD 1 

R2061 

R2062 

DSP2DEC 
START  ING 

CONVERTS  C(MPAC)  AND 
IN  THE  LOC  SPECIFIED 

CIMPAC+1)  INTO  A SIGN  AND 
IN  DSPCOUNT. 

10  CHAR  DEC  I 

2063 

REF 

106 

LAST 

457 

40,3322 

56  C02 

0 

DSP2DEC 

XCH 

Q 

2064 

RFF 

5 

LAST 

457 

40,3323 

54  115 

0 

TS 

WDRET 

2065 

REF 

90 

LAST 

456 

40,3324 

3 4746 

0 

CAF 

ZERO 

2066 

REF 

7 

LAST 

456 

40,3325 

54  124 

1 

TS 

CODE 

2067 

REF 

15 

LAST 

436 

40,3326 

3 6266 

0 

CAF 

THREE 

2068 

REF 

3 

LAST 

415 

40,3327 

0 3433 

0 

TC 

l 1DSP  IN 

2069 

REF 

6 

LAST 

456 

40,3330 

3 4 742 

1 

CAF 

FOUR 

2070 

REF 

4 

LAST 

457 

40,3331 

0 3433 

0 

TC 

l 1DSP  IN 

2071 

REF 

4 

LAST 

457 

40,3332 

0 3227 

0 

TC 

DSPS IGN 

2072 

REF 

4 

LAST 

435 

40,3333 

3 4311 

0 

CAF 

R 2D  1 

2073 

P.EF 

4 

LAST 

457 

40,3334 

0 3262 

1 

END2DEC 

TC 

DSPDCW01 

USER' S PAGE  NO. 


-R2  OFF 
+R2  OFF 


56 


EO  S4 


R2074  DSPDECVN  DISPLAYS  C(A>  UPON  ENTRY  AS  A 2 CHAR  DECIMAL  BEGINNING  IN  THE 
R2075  DSP  L DC  SPECIFIED  IN  DSPCOUNT. 

R2076  CIA)  SHOULD  BE  IN  FORM  N X 2EXP-14.  THIS  IS  SCALED  TO  FORM  N/100  BEFORE 
R2077  DISPLAY  CONVERSION. 


GAP:  ASSEMBLE  REVISION  210  GF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161  1 

L PINBALL  GAME  BUTTONS  AND  LIGHTS 


2078 

40,3335 

0 CC06 

1 

DSPDECVN 

EXTEND 

2079 

REF 

1 

40,3336 

7 3345 

1 

MP 

VNDSPCON 

2080 

REF 

205 

LAST 

456 

40,3337 

22  154 

1 

LXCH 

M P AC 

2081 

REF 

SI 

LAST 

457 

40,3340 

3 4746 

0 

CAF 

ZERO 

2082 

REF 

206 

LAST 

458 

40 , 3 34  L 

54  155 

1 

TS 

MPAC  +1 

2083 

REF 

107 

LAST 

457 

40,3342 

56  C02 

0 

XCH 

0 

2084 

REF 

6 

LAST 

457 

40,3343 

54  115 

0 

TS 

WDRET 

2085 

REF 

3 

LAST 

43  7 

40,3344 

0 3320 

0 

TC 

DSPDC2NR  +3 

2086 

40,3345 

0C244 

0 

VNDSPCON 

OCT 

00244 

2087 

REF 

3 

LAST 

434 

40,3346 

0 3335 

1 

GOVNUPDT 

TC  DSPDECVN 

2088 

REF 

28 

LAST 

450 

40,3347 

0 4626 

1 

TC  POSTJUMP 

2089 

REF 

2 

LAST 

424 

40, 3350 

62376 

1 

CADR  UPDAT1  +2 

2090 

40,3351 

ENDEC VN 

EQUALS 

2091 

REF 

1 

41 , 3435 

SETLOC 

ENDSPF  +1 

2091  5 

REF 

5 

LAST 

454  TO 

456: 

12  731* 

COUNT* 

$ $/P  I N 

R2092 

DSPOCTWD 

DISPLAYS  CIA)  UPON  1 

ENTRY  AS 

A 

5 CHAR  OCT  STARTING  IN  THE  DSP 

R2093 

CHAR 

SPECIFIED 

IN  DSPCOUNT. 

IT  STOPS 

AFTER  5 CHAR  HAVE 

BEEN  DISPLAYED 

2094 

REF 

8 

LAST 

452 

41,3435 

54  022 

0 

DSPOCTWD  TS 

CYL 

2095 

REF 

108 

LAST 

458 

41,3436 

56  002 

0 

XCH 

Q 

2096 

REF 

7 

LAST 

458 

41,3437 

54  115 

0 

TS 

WDRET 

2097 

REF 

38 

LAST 

452 

41, 3440 

3 4727 

1 

CAF 

BIT14 

2098 

REF 

46 

LAST 

457 

41, 3441 

26  776 

0 

ADS 

DSPCOUNT 

2099 

REF 

7 

LAST 

45  7 

41,3442 

3 4742 

1 

CAF 

FOUR 

2100 

REF 

3 

LAST 

457 

41,3443 

54  137 

0 

WDAGAIN  TS 

WDCNT 

2101 

REF 

9 

LAST 

458 

41,3444 

4 0022 

0 

CS 

CYL 

210  2 

REF 

10 

LAST 

458 

41,3445 

4 0022 

0 

CS 

CYL 

l 1 

REF 

11 

LAST 

458 

41,3446 

4 C022 

0 

CS 

CYL 

2104 

REF 

135 

LAST 

456 

41,3447 

4 0000 

0 

CS 

A 

2105 

RFF 

1 

41,3450 

7 4750 

0 

MASK 

DSPMSK 

2 106 

REF 

136 

LAST 

458 

41,3451 

50  COO 

1 

INDEX 

A 

2107 

REF 

4 

LAST 

456 

41,3452 

3 4066 

0 

CAF 

RELTAB 

2108 

REF 

6 

LAST 

456 

4L  ,3453 

7 4337 

0 

MASK 

L0W5 

2109 

RFF 

8 

LAST 

45  7 

41 , 3454 

54  124 

1 

TS 

CODE 

2110 

REF 

47 

LAST 

458 

41,3455 

56  776 

l 

XCH 

DSPCOUNT 

2111 

REF 

5 

LAST 

456 

41,3456 

54  143 

0 

TS 

COUNT 

2112 

REF 

1 37 

LAST 

458 

41,3457 

10  000 

0 

CCS 

A 

2113 

REF 

48 

LAST 

458 

41 , 3460 

54  776 

0 

TS 

DSPCOUNT 

2 l L 4 

REF 

29 

LAST 

458 

41,3461 

0 4626 

1 

TC 

POST  JUMP 

2115 

REF 

I 

41,3462 

61441 

1 

CADR 

DSPOCTIN 

2116 

REF 

4 

LAST 

458 

41, 3463 

10  137 

0 

OCTBACK  CCS 

WDCNT 

2117 

REF 

1 

41,3464 

0 3443 

l 

TC 

WDAGA IN 

2118 

REF 

8 

LAST 

457 

41,3465 

4 4351 

0 

DSPLV  CS 

VDl 

2119 

REF 

49 

LAST 

458 

41,3466 

54  776 

0 

TS 

DSPCOUNT 
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USFR ' S PAGE  NO.  57  FO  S4 

MULT  BY  .01 

TAKE  RESULTS  FROM  L . ( MULT  BY  2EXP14). 


NO  SIGN,  NO  ROUND,  2 CHAR 
.01  ROUNDED  UP 


THIS  IS  NOT  FOR  GENERAL  USF.  REALLY  PART 
OF  UPDATVB. 


MUST  USE  SAME  RETURN  AS  DSP2BIT. 
TO  BLANK  SIGNS 


DECRFMENT  DSPCOUNT  EXCEPT  AT  +0 


TO  BLOCK  NUMERICAL  CHARACTERS,  CLEARS 
AND  SIGNS  AFTER  A COMPLETED  DISPLAY. 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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GAP: 

L PINBALL  GAME  BUTTONS  AND  LIGHTS 


2120 

REF 

8 

LAST 

458 

41,3467  0 0115  1 

TC 

WDRET 

212  1 

REF 

5 

LAST 

444 

4750  DSPMSK 

= 

SEVEN 

USER'S  PAGE  NO.  58  EO  S4 


R2135  FOR  DSPIN  PLACE  0/25  OCT  INTO  COUNT,  5 BIT  RELAY  CODE  INTO  CODE.  BOTH 
R2136  ARE  DESTROYED.  IF  BIT14  OF  COUNT  IS  1,  SIGN  IS  BLANKED  WITH  LEFT  CHAR 
R2137  FOR  DSPIN1  PLACE  0,1  INTO  8IT11  OF  CODE,  2 INTO  COUNT,  REL  ADDRESS  OF 
R2138  DSPTAB  ENTRY  INTO  DSREL . 

2139  RFF  1 40,3351  SETLOC  ENDEC VN 


21395 

REF 

6 

LAST 

456  TO 

458: 

2140 

REF 

109 

LAST 

458 

40,3351 

2141 

REF 

1 

40,3352 

2142 

REF 

7 

LAST 

458 

40,3353 

2143 

REF 

6 

LAST 

458 

40,3354 

2144 

REF 

6 

LAST 

442 

40,3355 

2145 

REF 

7 

LAST 

459 

40,3356 

2146 

REF 

1 

40,3357 

214  7 

REF 

21 

LAST 

432 

40,3360 

2148 

REF 

7 

LAST 

459 

40,3361 

2149 

REF 

L38 

LAST 

458 

40,3362 

' 2150 

40,3363 

2151 

REF 

1 

40,3364 

2152 

REF 

9 

LAST 

458 

40,3365 

2153 

REF 

1 

40,3366 

2154 

REF 

10 

LAST 

459 

40,3367 

2155 

REF 

39 

LAST 

458 

40,3370 

2156 

REF 

8 

LAST 

459 

40,3371 

2157 

REF 

139 

LAST 

459 

40,3372 

2158 

REF 

30 

LAST 

448 

40,3373 

2159 

REF 

51 

LAST 

457 

40,3374 

2160 

REF 

9 

LAST 

459 

40,3375 

A2161 

A2162 

2163 

40,3376 

2164 

REF 

2 

LAST 

459 

40,3377 

2165 

REF 

3 L 

LAST 

417 

40,3400 

2166 

40,3401 

2167 

REF 

6 

LAST 

446 

40,3402 

2168 

REF 

52 

LAST 

459 

40,3403 

2169 

REF 

1 

40,3404 

2170 

REF 

10 

LAST 

459 

40, 3405 

2171 

REF 

l 

40,3406 

2172 

40,3407 

2173 

REF 

l L 

LAST 

459 

40,3410 

2174 

40,3411 

2175 

REF 

1 

40, 3412 

2176 

REF 

11 

LAST 

459 

40, 3413 

82  698* 

COUNT* 

$t/P IN 

56  002 

0 DSPIN 

XCH 

Q 

54  114 

1 

TS 

D SEX  I T 

3 4337 

1 

CAF 

L0W5 

7 C 143 

0 

MASK 

COUNT 

54  021 

0 

TS 

SR 

56  021 

1 

XCH 

SR 

54  141 

1 

TS 

DSREL 

3 4744 

1 

CAF 

B I T 1 

7 0143 

0 

MASK 

COUNT 

10  COO 

0 

CCS 

A 

0 3365 

1 

TC 

+ 2 

0 3375 

0 

TC 

DSPIN1 

56  124 

0 

XCH 

CODE 

0 4331 

1 

TC 

SLEFT5 

54  124 

1 

TS 

CODE 

3 4727 

1 

CAF 

B I T14 

7 0143 

0 

MASK 

COUNT 

10  000 

0 

CCS 

A 

3 4743 

0 

CAF 

TWO 

6 4 744 

1 

AD 

ONE 

54  143 

0 

TS 

COUNT 

0 0004 

0 

DSP  INI 

INHINT 

50  141 

0 

INDEX 

DSREL 

1 1 ' 022 

1 

CCS 

DSPTAB 

0 3403 

0 

TC 

+ 2 

0 5701 

1 

TC 

CCSHOLE 

6 4 7 44 

1 

AD 

ONE 

54  142 

1 

TS 

DSMAG 

50  143 

1 

INDEX 

COUNT 

7 3427 

1 

MASK 

DSMSK 

0 0006 

1 

EXTEND 

60  124 

0 

SU 

CODE 

0 0006 

1 

EXTEND 

1 3425 

0 

BZF 

DSLV 

50  143 

1 

DFRNT 

INDEX 

COUNT 

CANT  USF  L FOR  RF TURN , SINCE  MANY  OF  THF 
ROUTINES  CALLING  DSPIN  USF  L AS  RETURN. 


LEFT  IF  COUNT  IS  ODD 
RIGHT  IF  COUNT  IS  FVEN 

DOES  NOT  USE  CYL 


BIT14  = 1,  BLANK  SIGN 
BIT14  = 0,  LFAVE  SIGN  ALONE 
+0  INTO  COUNT  FOR  RIGHT 

+1  INTO  COUNT  FOR  LEFT ( SIGN  LEFT  ALONE) 
+3  INTO  COUNT  FOR  LEFT1T0  BLANK  SIGN) 


IF  + 
IF- 


SAME 


GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L 

PINBALL 

GAME 

BUTTONS  AND  LIGHTS 

2177 

REF 

2 

LAST 

459 

40, 3414 

4 3427 

1 

cs 

D SMS  K 

2176 

REF 

2 

LAST 

459 

40, 3415 

7 0142 

1 

MASK 

DSMAG 

2179 

REF 

12 

LAST 

459 

40,3416 

6 C 124 

0 

AD 

CODE 

2180 

REF 

140 

LAST 

459 

40, 3417 

4 0000 

0 

CS 

A 

2181 

REF 

3 

LAST 

459 

40,3420 

50  141 

0 

INDEX 

OSREL 

2182 

REF 

32 

LAST 

459 

40,3421 

57*  C22 

0 

XCH 

DSPTA8 

2183 

40,3422 

0 0006 

1 

EXTEND 

2184 

REF 

2 

LAST 

459 

40,3423 

6 3425 

1 

BZMF 

OSLV 

2185 

REF 

7 

LAST 

418 

40,3424 

25' 015 

1 

INCR 

NOUT 

2186 

40,3425 

0 0003 

1 

OSLV 

RELINT 

2187 

REF 

2 

LAST 

459 

40,3426 

0 0114 

0 

TC 

DSEX  IT 

2188 

40,3427 

00C37 

0 

OSMSK 

OCT 

37 

2189 

40,3430 

01740 

0 

OCT 

1740 

2190 

40,3431 

02000 

0 

OCT 

2000 

2191 

40,3432 

C 3 740 

1 

OCT 

3 740 

R2192 

R2193 

FOR 
B I T 1 

1 1DSPIN, 

1 OF  CODE 

PUT  REL 

ADDRESSS 

OF  DSPTAB 

ENTRY  INTO  A, 

l IN  B I T 1 1 

2194 

REF 

4 

LAST 

460 

40,3433 

54  141 

1 

11DSPIN  TS 

DSREL 

2195 

KEF 

31 

LAST 

459 

40,3434 

3 4 743 

0 

CAF 

TWO 

2196 

REF 

12 

LAST 

459 

40,3435 

54  143 

0 

TS 

COUNT 

2197 

REF 

1 10 

LAST 

459 

40,3436 

56  002 

0 

XCH 

Q 

2198 

REF 

3 

LAST 

46  0 

40,3437 

54  114 

1 

TS 

DSEX I T 

i 1 

REF 

2 

LAST 

459 

40,3440 

0 3376 

0 

TC 

DSPIN1 

2200 

REF 

5 

LAST 

457 

40,3441 

0 3351 

0 

DSPOCTIN 

TC 

DSPIN 

2201 

40,3442 

3 3444 

0 

CAF 

+ 2 

2202 

REF 

5 

LAST 

44  5 

40,3443 

0 4631 

1 

TC 

B ANKJUMP 

2203 

REF 

1 

40,3444 

63463 

0 

ENDSPOCT 

CADR 

OCTBACK 

R2204 

DSPAL ARM 

FINDS 

TC 

NVSUBEND  IN 

ENTRET 

FOR  NVSUB  INITIATED  ROUTINE 

R2205 

ABORT 

WITH  01501. 

R2206 

DS  PAL  ARM 

FINDS 

TC 

ENDOF JOB  IN 

ENTRET 

FOR  KEYBOARD  INITIATED  ROUT 

R2207 

DO  TC 

ENTRET . 

22075 

REF 

9 

LAST 

458 

40,3445 

4 

4351 

0 PREDSPAL 

cs 

V D 1 

22076 

REF 

50 

LAST 

458 

40,3446 

54 

776 

0 

TS 

DSPCOUNT 

2208 

REF 

1 

40,3447 

4 

3 4 70 

0 DSPAL ARM 

CS 

N VSBENDL 

2209 

REF 

8 

LAST 

452 

40,3450 

6 

0136 

0 

AD 

ENTEXIT 

2210 

40,3451 

0 

0006 

1 

EXTEND 

221  1 

REF 

16 

LAST 

41  1 

40,3452 

1 

3465 

1 

BZF 

CHARALRM 

221  1 l 

REF 

1 

40,3453 

4 

3467 

0 

CS 

MONADR 

221  1 2 

REF 

9 

LAST 

460 

40,3454 

6 

0136 

0 

AD 

ENTEXIT 

221  1 3 

40,3455 

0 

0006 

1 

EXTEND 

22114 

40,3456 

1 

3460 

1 

BZF 

+ 2 

7:11  MAR.  19,1971  LFM0NAID.156  P AG  F 460 


USER' S PAGE  NO.  59  EO  S4 

MASK  WITH  77740,76037,75777,  OR  74037 


OSPTAB  ENTRY  WAS  - 
OSPTAB  ENTRY  WAS  + 


IN 


MUST  USE  SAME  RFTURN  AS  DSPIN 


SO  OSPOCTWD  DOESNT  USF  SWCALL 


IF  THIS  IS  A MONITOR 


KILL  IT 


GAP: 


221  15 

REF 

17 

LAST 

460 

40,3457 

0 

3463 

0 

TC 

CHARALRM 

• 

22116 

REF 

1 

40,3460 

0 

4175 

0 

TC 

KILMONON 

221 1 7 

REF 

3 

LAST 

277 

40,3461 

0 

4355 

0 

TC 

FALTON 

£ _ 

221  1 e 

REF 

2 

LAST 

454 

40,3462 

0 

4 124 

1 

TC 

PAST  EV8 

2212 

KEF 

4 

LAST 

46  1 

40,3463 

0 

4355 

0 

CHARALRM 

TC 

FALTON 

n 

2213 

REF 

54 

LAST 

455 

40,3464 

0 

5146 

1 

TC 

FNDOF JOB 

2214 

REF 

1 

40,3465 

0 

5644 

1 

TC 

POODOO 

• 

2217 

40,3466 

21501 

0 

OCT 

21501 

r> 

2217  1 

REF 

3 

LAST 

46  1 

40,3467 

04  124 

I 

MONADR 

GENADR 

P ASTEVB 

• 

2218 

REF 

1 

40,3470 

0 

4173 

0 

NVSBENDL 

TC 

N VSUBEND 

ASSEMBLE  RFVISION  210  GF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
PINeALL  GAME  BUTTONS  ANO  LIGHTS 
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USF R ' S PAGE  NO.  60  EO  S4 


PUT  MONITOR  VERB  BACK  IN  VERBREG 

NOT  NVSUB  INITIATED.  TURN  ON  OPR  ERROR 


R2219  ALMCYCLE  TURNS  ON  CHECK  FAIL  LIGHT,  REDISPLAYS  THE  ORIGINAL  VERB  THAT 
R2220  WAS  EXECUTED,  AND  RECYCLES  TO  EXECUTE  THE  ORIGINAL  VERB/NOUN  COMBINATION 
R2221  THAT  WAS  LAST  EXECUTED.  USED  FOR  BAD  DATA  DURING  LOAD  VERBS  AND  BY 

R2222  MCTBS . ALSO  BY  MMCHANG  IF  2 NUMERICAL  CHARACTERS  WERE  NOT  PUNCHED  IN 


R2223 

FOR 

MM 

CODE. 

, 

2224 

REF 

4 

LAST 

299 

6000 

SETLOC 

FFTAG5 

22242 

6020 

BANK 

22245 

REF 

1 

COUNT* 

$*/PIN 

2225 

REF 

5 

LAST 

461 

6020 

0 4355 

0 

ALMCYCLE  TC 

FALTON 

2228 

REF 

3 

LAST 

451 

6021 

4 1040 

0 

CS 

VERBSAVE 

2229 

REF 

11 

LAST 

454 

6022 

55' 012 

1 

TS 

RFQRET 

2230 

REF 

97 

LAST 

4 54 

6023 

0 4607 

1 

TC 

BANKCALL 

2231 

REF 

8 

LAST 

454 

6024 

62366 

0 

CADR 

U PD AT  VB 

2232 

REF 

30 

LAST 

458 

6025 

0 4626 

1 

TC 

POST  JUMP 

2233 

REF 

2 

LAST 

411 

6026 

62022 

0 

ENDALM  CADR 

ENTER 

R2234 

MMCHANG 

USES  1 

NOUN  DISPLAY  UNTIL  ENTER 

THEN  IT  USES  MODE  DISP. 

R2235 

I T l 

GOES 

TO  MODROUT  WITH  THE  ! 

NEW  M M CODE  IN  A,  BUT  NOT  DISPLAYED 

R2236 

MM  1 

L IGHTS. 

R2237 

IT  ! 

DEMANDS  2 1 

NUMERICAL  CHARACTERS  BE 

PUNCHED  IN  FOR  NEW 

MM  CODE. 

R2238 

IF  1 

NOT, 

IT  RECYCLES. 

2239 

REF 

1 

41,3470 

SETLOC 

DSPLV  +3 

22395 

REF 

6 

LAST 

458  TO 

459: 

27  808* 

COUNT* 

$$/PIN 

2240 

REF 

1 

41,3470 

0 3512 

1 

MMCHANG  TC 

REOMM 

A 2 24  1 

A2242 

2243 

REF 

22 

LAST 

388 

41,3471 

3 4740 

0 

CAF 

BIT5 

2244 

REF 

51 

LAST 

460 

41,3472 

6 C 7 76 

1 

AD 

DSPCOUNT 

224  5 

41,3473 

0 0006 

1 

EXTENO 

2246 

41, 3474 

1 3476 

0 

BZF 

+ 2 

2247 

REF 

14 

LAST 

45  1 

41,3475 

0 6020 

0 

TC 

ALMCYCLE 

2248 

REF 

52 

LAST 

458 

41,3476 

3 4746 

0 

CAF 

ZERO 

2 24  9 

REF 

12 

LAST 

452 

41,3477 

57  • 001 

1 

XCH 

NOUNREG 

2250 

REF 

2C7 

LAST 

' 458 

41 ,3500 

54  154 

0 

TS 

MPAC 

2251 

REF 

5 

LAST 

442 

41,3501 

3 4352 

1 

CAF 

NDl 

TURN  ON  CHECK  FAIL  LIGHT. 

GET  ORIGINAL  VERB  THAT  WAS  EXECUTED 
SET  FOR  FNTPASO 

PUTS  ORIGINAL  VERB  INTO  VERBREG  AND 
DISPLAYS  IT  IN  VERB  LIGHTS. 


ENTPASHI  ASSUMES  THE  TC  REOMM  AT  MMCHANG 
IF  THIS  MOVFS  AT  ALL,  MUST  CHANGF 
MM  ADR  E F AT  ENTPASHI. 

0CT20  = ND2 . 

DSPCOUNT  MUST  = -ND2. 

DEMAND  THAT  2 NUM  CHAR  WERE  PUNCHED  IN. 

DSPCOUNT  NOT=  -ND2.  ALARM  AND  RECYCLE. 
DSPCOUNT  = -ND2. 


I 
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PINBALL 

GAME 

BUTTONS 

; AND  LIGHTS 

2252 

REF 

52 

LAST 

461 

41,3502 

54  776 

0 

TS 

DSPCOUNT 

2253 

REF 

98 

LAST 

461 

41,3503 

0 4607 

1 

TC 

BANKCALL 

2254 

REF 

4 

LAST 

417 

41, 3504 

6C570 

0 

CADR 

2 BLANK 

2255 

REF 

10 

LAST 

460 

41,3505 

4 4351 

0 

CS 

VD1 

2256 

REF 

53 

LAST 

462 

41,3506 

54  776 

0 

TS 

DSPCOUNT 

2257 

REF 

208 

LAST 

461 

41,3507 

3 0154 

1 

CA 

M P AC 

2258 

REF 

31 

LAST 

461 

41,3510 

0 4626 

1 

TC 

POSTJUMP 

2259 

PFF 

1 

41,3511 

10054 

1 

CADR 

MODROUTB 

2260 

REF 

2 

LAST 

310 

04,2054 

MODROUTB 

= 

V37 

2261 

RFF 

1 1 1 

LAST 

460 

41,3512 

4 CC02 

1 

REQMM 

CS 

Q 

2262 

REF 

12 

LAST 

461 

41,3513 

55 1 0 12 

1 

TS 

REQRET 

2263 

REF 

6 

LAST 

461 

41, 3514 

3 4352 

1 

CAF 

ND1 

2264 

REF 

54 

LAST 

462 

41,3515 

54  776 

0 

TS 

DSPCOUNT 

2265 

RFF 

53  . 

LAST 

461 

41,3516 

3 4746 

0 

CAF 

ZERO 

2266 

REF 

13 

LAST 

461 

41,3517 

55*001 

0 

TS 

NOUNREG 

2267 

REF 

99 

LAST 

462 

41,3520 

0 4607 

1 

TC 

BANKCALL 

2268 

REF 

5 

LAST 

462 

41,3521 

60570 

0 

CADR 

2BLANK 

2269 

REF 

3 

LAST 

424 

41,3522 

0 4420 

0 

TC 

F LASHON 

2270 

REF 

53 

LAST 

459 

41,3523 

3 4 7 44 

1 

CAF 

ONE 

2271 

RFF 

18 

LAST 

450 

41,3524 

54  777 

1 

TS 

DEC8RNCH 

2272 

REF 

10 

LAST 

460 

41,3525 

0 C 136 

0 

TC 

ENTEXIT 

USER'S  PAGE  NO.  61  EO  S4 


BLOCK  NUM  CHAR  IN 


GO  THRU  STANOARD  LOC. 


SET  FOR  DEC 


R2273  V8KQEXEC  ENTERS  REQUEST  TO  EXEC  FOR  ANY  ADDRESS  WITH  ANY  PRIORITY. 

R2274  IT  DOES  ENDOF JOB  AFTER  ENTERING  REQUEST.  DISPLAY  SYST  IS  RELEASED. 

■R2275  IT  ASSUMES  NOUN  26  HAS  BEEN  PRELOADED  WITH 

R2276  COMPONENT  l P R I 0 R I T Y I B I T S 10-14)  BIT1=0  FOR  NOVAC,  8IT1=1  FOR  FINDVAC. 

RZ2.11  COMPONENT  2 JOB  ADRES  (12  BIT  ) 

R2278  COMPONENT  3 BBCON 


2279 

REF 

3 

LAST 

291 

41 , 3526 

3 4732 

0 

V BRQEXEC 

CAF 

EBANK4 

22795 

REF 

15 

LAST 

400 

41, 3527 

54  003 

0 

TS 

F BANK 

227955 

REF 

3 

LAST 

317 

E4, 1771 

EBA  NK  = 

N26/PRI 

22796 

REF 

22 

LAST 

459 

41,3530 

3 4744 

1 

CAF 

BIT1 

2280 

REF 

4 

LAST 

462 

41,3531 

7 1771 

0 

MASK 

N26/PRI 

2281 

REF 

141 

LAST 

460 

41,3532 

1C  000 

0 

CCS 

A 

2282 

REF 

1 

41,3533 

0 3555 

1 

TC 

SETVAC 

IF 

BIT1  = 1, 

F INDVAC 

2283 

REF 

1 

41,3534 

3 4342 

0 

CAF 

TCNOVAC 

IF 

BI  T 1 = 0 , 

NOVAC 

2284 

REF 

209 

LAST 

462 

41,3535 

54  154 

0 

REQFX1 

TS 

MPAC 

TC 

NOVAC  OR 

TC  FINDVAC 

INTO  MPAC 

2285 

REF 

23 

LAST 

462 

41, 3536 

4 4 744 

0 

CS 

BIT1 

2286 

REF 

5 

LAST 

462 

41,3537 

7 1771 

0 

MASK 

N 26/ PR  I 

2287 

REF 

210 

LAST 

462 

41,3540 

54  160 

1 

TS 

MPAC  +4 

PRIO  INTO  MPAC+4  AS  A TEMP 

2288 

REF 

6 

LAST 

442 

41,3541 

0 4450 

1 

REQUESTC 

TC 

RELDSP 

22885 

REF 

6 

LAST 

462 

41,3542 

3 1771 

1 

CA 

N26/PRI 

22886 

41,3543 

0 CO 06 

1 

EXTEND 

2288  7 

REF 

17 

LAST 

428 

41,3544 

1 2400 

0 

BZF 

GOOSPALM 

OP 

ERROR  AND 

EOJ  IF  ZERO 

PRIO/DELAY 

2289 

REF 

5 

LAST 

452 

41,3545 

3 4210 

0 

CA 

ENDINST 

462 
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2290 

REF 

211 

LAST 

462 

41,3546 

54 

157 

0 

TS 

MPAC 

2291 

41,3547 

0 

0006 

1 

EXTEND 

2292 

REF 

1 

41,3550 

3 

17  73 

0 

DC  A 

N26/2CAD 

2293 

REF 

212 

LAST 

46  3 

41,3551 

52 

156 

1 

DXCH 

MPAC 

2294 

REF 

213 

LAST 

463 

41,3552 

3 

0160 

0 

CA 

MPAC 

2295 

41,3553 

0 

0004 

0 

INHINT 

2296 

REF 

214 

LAST 

46  3 

41,3554 

0 

C 154 

1 

TC 

MPAC 

2297 

REF 

1 

41, 3555 

3 

4 345 

1 SETVAC 

CAF 

TCFINDVC 

2298 

REF 

1 

41,3556 

0 

3535 

1 

TC 

REQEX1 

R2299 
R2300 
R230  L 
R2302 
R 2 30  3 
R2304 


VBPQWAIT  ENTERS  REQUEST  TO  WAITLIST  FOR  ANY  ADDRESS  WITH  ANY  DELAY. 
IT  DOES  ENDOFJUB  AFTER  ENTERING  REQU E S T . D I SP L AY  SYST  IS  RELEASED. 

IT  ASSUMES  NOUN  26  HAS  BEEN  PRELCADED  WITH 
COMPONENT  1 DELAY  (LOW  HITS) 

COMPONENT  2 TASK  ADRES  (12  BIT) 

COMPONENT  3 BBCON 


2305 

REF  1 

41,3557 

3 4343 

1 VHRQWAIT 

CAF 

TCWAIT 

2306 

REF  215 

LAST 

463  41,3560 

54  154 

0 

TS 

MPAC 

23065 

REF  4 

LAST 

462  41,3561 

3 4732 

0 

CAF 

EBANK4 

23066 

REF  16 

LAST 

462  41,3562 

54  003 

0 

TS 

EBANK 

2307 

REF  7 

LAST 

46  2 41, 3563 

3 1771 

1 

CA 

N 26/ PR I 

230  8 

REF  1 

41,3564 

0 3540 

0 ENDRQWT 

TC 

REQUESTC  - 

R2309 

REQUESTC 

WILL 

PUT  TASK  ADRES 

INTO  MPAC+1,  BBCON 

INTO 

MPAC+2, 

R2310 
R231  1 

TC  ENCOF JOB  INTO  MPAC+3.  IT  WILL  TAKE 
LEAVE  IT  IN  A,  INHINT  AND  TC  MPAC. 

TIME  DELAY 

OUT 

CF  MPAC+4  AND 

2312 

REF 

2 

LAST 

460 

40,3471 

SETLOC 

NVSBENDL  + 

23125 

REF 

7 

LAST 

459  TO 

461  : 

80 

778* 

COUNT* 

$t/PIN 

2313 

REF 

54 

LAST 

462 

40,3471 

3 

4744 

1 VBPROC 

CAF 

ONE 

2314 

REF 

2 

LAST 

442 

40,3472 

55 

•013 

0 

TS 

LOADSTAT 

2315 

REF 

2 

LAST 

46  1 

40,3473 

0 

A 1 75 

0 

TC 

KILMONON 

2316 

RFF 

7 

LAST 

462 

40,3474 

0 

4450 

1 

TC 

R ELD  SP 

2317 

REF 

3 

LAST 

419 

40,3475 

0 

4424 

1 

TC 

FLASHOFF 

2318 

REF 

2 

LAST 

442 

40 , 3476 

C 

3605 

1 

TC 

RECALTST 

2319 

REF 

55 

LAST 

463 

40,3477 

4 

4 744 

0 VBTERM 

CS 

ONE 

2320 

REF 

2 

LAST 

422 

40,3500 

0 

3472 

0 

TC 

VBPROC  +1 

R2320  I 

PROCKEY 

PERFORMS  THE 

SAME  FUNCTION  AS 

VBPROC . 

IT  MUST 

BE  CALLED 

R23202 

EXECUTIVE  CONTROL,  WITH  CHRPRIO. 

232033 

RFF  20 

LAST 

454 

40,3501 

4 1000 

1 PROCKEY 

CS 

VERBREG 

232036 

REF  1 

40,3502 

6 3516 

0 

AD 

V8SP2LD* 

23204 

40,3503 

0 C 006 

1 

EXTEND 

232043 

REF  142 

LAST 

46  2 

40,3504 

26  COO 

0 

DIM 

A 
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TC  ENDOF JOB  INTO  MPAC  + 3 

JOB  ADRES  INTO  MPAC  +1 
BBCON  INTO  MPAC+2 
PRIO  IN  A 


TC  WAITLIST  INTO  MPAC 
TIME  DELAY 


PROCEED  WITHOUT  DATA 
TURN  ON  KILL  MONITOR  BIT 

SEE  IF  THERE  IS  ANY  RECALL  FROM  ENDIDLE 

TERM  VERB  SETS  LOADSTAT  NEG 
R 


DONT  ALLOW  PROCEED  OURING  LOAD 
DEC  22 
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232046 

40,3505 

0 0006 

1 

EXTEND 

23205 

REF 

18 

LAST 

461 

40,3506 

1 3463 

1 

8ZF 

CHARALRM 

232053 

REF 

94 

LAST 

462 

40,3507 

3 4746 

0 

PR0CKEY1  CAF 

ZERO 

SET  REQRFT  FOR 

ENTER  PASS  0. 

23206 

REF 

13 

LAST 

462 

40,3510 

55  ■ 012 

1 

TS 

REGRET 

23207 

REF 

11 

LAST 

462 

40,3511 

4 4351 

0 

CS 

VD1 

BLOCK  NUMERICAL 

CHARACTERS,  SIGNS 

23208 

REF 

55 

LAST 

462 

40,3512 

54  776 

0 

TS 

DSPCOUNT 

23209 

REF 

3 

LAST 

463 

40,3513 

0 3471 

0 

TC 

VBPROC 

R232  1 VBRESFQ  WAKES  END  IDLE  AT  SAME  LINE  AS  FINAL  ENTER  OF  LOAD  (L+3). 

R2322  (MAIN  USE  IS  INTENDED  AS  RESPONSE  TO  INTERNALLY  INITIATED  FLASHING 

R2323  DISPLAYS  IN  ENUIDLE.  SHOULD  NOT  BE  USED  WITH  LOAD  VERBS, PLEASE  PERFORM, 

R 2 32 4 OR  PLEASE  MARK  VERBS  BECAUSE  THEY  ALREADY  USE  L + 3 IN  ANOTHER  CONTEXT.) 


2325 

REF  55 

LAST 

464 

40,3514 

4 4746 

1 

VBRESEQ 

CS 

ZERO 

MAKE 

IT  LOOK 

2326 

REF  4 

LAST 

464 

40,3515 

0 3472 

0 

TC 

VBPROC  +1 

23265 

40,3516 

0 C 026 

0 

VeSP2LD* 

DEC 

22 

VB22 

= BLOAD 

R2327 

FLASH  IS 

TURNED 

OFF 

BY  PROCEED 

WITHOUT 

DATA,  TERMINATE, 

RESEQUENCE, 

R2328  END  OF  LOAD. 


CLEAR 
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P2329  KEY  RELEASE  ROUTINE 

R2330  THIS  ROUTINE  ALWAYS  TURNS  OFF  THE  UPACT  LIGHT  AND  ALWAYS  CLEARS  OSPLOCK. 

R2331  THE  HIGHEST  PRIORITY  FUNCTION  OF  THE  KEY  RELEASE  BUTTON  IS  THE 
R2332  UNSUSPENDING  OF  A SUSPENDED  MONITOR  WHICH  WAS  EXTERNALLY  INITIATED. 

R2333  THIS  FUNCTION  IS  ACCOMPLISHED  BY  CLEARING  DSPLOCK  AND  TURNING  OFE 

R2334  THE  KEY  RELEASE  LIGHT  IF  BOTH  DSPLIST  AND  CADRSTOR  ARE  EMPTY. 

R2335  IF  NO  SUCH  MONITOR  EXISTS,  THEN  RELDSP  IS  FXECUTED  TO  CLEAR  DSPLOCK 

R2336  AND  THE  EXTERNAL  MONITOR  BIT  (FREEING  THE  DISPLAY  SYSTEM  FOR  INTERNAL 

R2337  USE),  TURN  OFF  THE  KEY  RELEASE  LIGHT,  AND  WAKE  UP  ANY  JOB  IN  DSPLIST. 

R233B  IN  ADDITION  IF  THERE  IS  A JOB  IN  ENDIDLE,  THEN  CONTROL  IS  TRANSFERRED 

R2339  TO  PIKBRNCH  (IN  DISPLAY  INTERFACE  ROUTINE)  TO  RE-EXECUTE  THE  SERIES  OF 
R23391  NVSUB  CALLS  ETC.  THAT  PRECEDED  TFE  ENDIDLE  CALL  STILL  AWAITING  RESPONSE. 
R2340  THIS  FEATURE  IS  INTENDED  FOR  USE  WHEN  THE  OPERATOR  HAS  BEEN  REQUESTED  TO 

R2341  RESPOND  TO  SOME  INTERNAL  ACTICN  THAT  USED  ENDIDLE,  BUT  HE  HAS  WRITTEN 

R2342  OVER  TFE  INFORMATION  ON  THE  DISPLAY  PANEL  BY  SOME  DISPLAYS  OF  HIS  OWN 

R2343  INITIATION  WHICH  DO  NOT  SERVE  AS  RESPONSES.  HITTING  KEY  RLSE  WILL 

R2344  RE-ESTABLISH  TFE  DISPLAYS  TO  THE  STATE  THEY  WERE  IN  BEFORE  HE  OBSCURED 

R2345  THEM,  SO  THAT  HE  CAN  SEE  THE  WAITING  REQUEST.  THIS  WORKS  ONLY  FOR 

R2346  INTERNAL  PROGRAMS  THAT  USED  ENDIDLE  THROUGH  MARGARETS  DISPLAY 
R2347  SUBROUTINES. 


2348 

REF 

24 

LAST 

438 

40,3517 

4 4742 

0 

V8RELDSP 

CS 

B IT3 

234  9 

40,3520 

0 CO 06 

1 

EXTEND 

2350 

REF 

11 

LAST 

231 

40,3521 

03  Oil 

1 

WAND 

D SALMOUT 

TURN  OFF  UPACT  LITE 

2351 

REF 

2 

LAST 

410 

40, 3522 

10  115 

0 

CCS 

2 1/22REG 

OLD  DSPLOCK 

2352 

REF 

40 

LAST 

459 

40,3523 

3 4727 

1 

CAE 

B IT14 

2353 

REF 

6 

LAST 

454 

40,3524 

7 1020 

0 

MASK 

M0NSAVE1 

EXTERNAL  MONITOR  BIT  ( EMB ) 

2354 

REF 

143 

LAST 

463 

40,3525 

10  000 

0 

CCS 

A 

2355 

P.EF 

1 

40,3526 

0 3535 

1 

TC 

UNSUSPEN 

OLD  DSPLOCK  AND  F MB  BOTH  1,  UNSUSPEND. 

2356 

REF 

8 

LAST 

463 

40,3527 

0 4450 

1 

TSTLTS4 

TC 

RELDSP 

NOT  UNSUSPEND I NG  EXTERNAL  MONITOR, 

2357 

REF 

5 

LAST 

453 

40,3530 

1 1 ' 04 1 

1 

CCS 

CADRSTOR 

RELEASE  DISPLAY  SYSTEM  AND 

2358 

40,3531 

0 3533 

1 

TC 

+ 2 

DO  RE-ESTABLISH  IF  CADRSTOR  IS  FULL. 

2359 

REF 

55 

LAST 

461 

40,3532 

0 5146 

1 

TC 

ENDOF JOB 

2360 

REF 

32 

LAST 

462 

40,3533 

0 4626 

1 

TC 

POSTJUMP 

2361 

REF 

4 

LAST 

310 

40,3534 

21062 

0 

CADR 

P INBRNCH 

2362 

REF 

56 

LAST 

464 

40,3535 

3 4746 

0 

UNSUSPEN 

CAF 

ZERO 

EXTERNAL  MONITOR  IS  SySPENDEO, 

2363 

REF 

5 

LAST 

453 

40,3536 

55'011 

1 

TS 

DSPLOCK 

JUST  UNSUSPEND  IT  BY  CLEARING  DSPLOCK 

2364  ' 

REF 

6 

LAST 

465 

40,3537 

11 '041 

1 

CCS 

CADRSTOR 

TURN  KEY  RELEASE  LIGHT  OFF  IF  BOTH 

2365 

REF 

56 

LAST 

465 

40,3540 

0 5146 

1 

TC 

ENDOF JOB 

CADRSTOR  AND  DSPLIST  ARE  FMPTY. 

2366 

REF- 

2 

LAST 

453 

40,3541 

0 4473 

0 

TC 

RELDSP1 

23661 

REF 

57 

LAST 

465 

40,3542 

0 5 146 

1 

TC 

ENDOF JOB 

2367  40,3543  ENDRELDS  EQUALS 
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L 

P2368 

R2369 

R237D 

R23701 

R23702 

R23703 
R23709 
R 2370  5 

R2371 

R2372 

R2373 

82379 

R2375 

R2376 

R2377 

R2378 
R237  9 
R2380 
R2381 

R2382 
R2383 
R2389 
R2385 
R2386 
R2387 
R238  8 

R23881 

R23882 

R2389 
R2389  1 

R2390 

R2391 

R2  39 1 1 
R23912 
R 2 39  13 
R23919 
R 239 1 5 
R23916 
R2391 7 

R2391 8 
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NV  SUB  IS  USED  FOR  SUB  ROUTINE  CALLS  FROM  WITHIN  COMPUTER.  IT  CAN  BE 
USED  TU  CALL  THE  COMBINATION  OF  ANY  DISPLAY,  LOAD,  OR  MONITOR  VERB 
TOGETHER  WITH  ANY  NOUN  AVAILABLE  TO  THE  KEYBOARD. 

PLACE  OV VVV VV VNNNNNNN  INTO  A. 

V-S  ARE  THE  7 BIT  VERB  CODE.  N-S  ARE  THE  7 BIT  NOUN  CODE. 

IF  NVSUB  IS  CALLED  WITH  THE  FOLLOWING  NEGATIVE  NUMBERS  (RATHER  THAN  THE 
VERB-NOUN  CODE)  IN  A,  THEN  THE  DISPLAY  IS  BLANKED  AS  FOLLOWS- 
-9  FUIL  BLANK,  -3  LEAVE  MOOE,  -2  LEAVE  MODE  AND  VERB,  -1  BLANK  R-S  ONLY 

NVSUB  CAN  BE  USED  WITH  MACH  CAOR  TO  BE  SPEC  BY  PLACING  THE  CADR  INTO 
MPAC+2  BEFORE  THE  STANDARD  NVSUB  CALL. 

NVSUB  RETURNS  TO  2+  CALLING  LOC  AFTER  PERFORMING  TASK,  IF  DISPLAY 
SYSTEM  IS  AVAILABLE.  THE  NEW  NOUN  AND  VERB  CODES  ARE  DISPLAYED. 

IF  V : S =0,  THE  NEW  NOUN  CODE  IS  DISPLAYED  ONLY (RETURN  WITH  NO  FURTHFR 
ACTION).  IF  N-S  =0,  THE  NEW  VERB  CODE  IS  DISPLAYED  ONLY ( R ETURN  WITH  NO 
FURTHER  ACTION). 

IT  RETURNS  TO  1+  CALLING  LOC  WITHOUT  PERFORMING  TASK,  IF  DISPLAY 
SYSTEM  IS  BLOCKED  (NOTHING  IS  DISPLAYED  IN  THIS  CASE). 

IT  DOES  IC  ABORT  (WITH  OCT  01501)  IF  IT  ENCOUNTERS  A DISPLAY  PROGRAM 
ALARM  CONDITION  BEFORE  RETURN  TO  CALLER. 

THE  DISPLAY  SYSTEM  IS  BLOCKED  BY  THE  DEPRESSION  OF  ANY 
KEY,  EXCEPT  ERROR  LIGHT  RESET 

IT  IS  RELEASED  BY  1HE  KEY  RELEASE  BUTTON,  ALL  EXTENDED  VERBS, 

PROCEED  WITHOUT  DATA,  TERMINATE,  RESEQUENCE,  INITIALIZE  EXECUTIVE, 

RECALL  PART  OF  RECALTST  IF  ENDIDLE  WAS  USED, 

VB  = REQUEST  EXECUTIVE,  VB  = REQUEST  WAITLIST, 

MONITOR  SET  UP. 

THE  DISPLAY  SYSTEM  IS  ALSO  BLOCKED  BY  THE  EXTERNAL  MONITOR  BIT,  WHICH 
INDICATES  AN  FXTERNALLY  INITIATED  MONITOR  IS  RUNNING  (SEE  MONITOR) 

A NVSUB  CALI  THAT  PASSES  DSPLOCK  AND  THE  EXTERNAL  MONITOR  BIT  FNDS  OLD 
MONITOR . 

DSPLOCK  IS  THE  INTERLOCK  FOR  USE  OF  KEYBOARD  AND  DISPLAY  SYSTEM  WHICH 
LOCKS  CUT  INTERNAL  USE  WHENEVER  THERE  IS  EXTERNAL  KEYBOARO  ACTION. 

NVSUB  SHOULD  BE  USED  TWICE  IN  SUCCESSION  FOR  : P LE AS E PERFORM:  SITUATIONS 
(SIMILARLY  FOR  PLEASE  MARK).  FIRST  PLACE  THF  CODED  NUMBER  FOR  WHAT 
ACTION  IS  DESIRED  OF  OPERATOR  INTO  THE  REGISTERS  REFERRED  TO  BY  THE 
CHECKLIST:  NOUN.  GO  TO  NVSUB  WITH  A DISPLAY  VERB  AND  THE  CHECKLIST: 

NnUN.  GC  TO  NVSUB  AGAIN  WITH  THE  : PL E A S E PERFORM:  VFRB  AND  ZEROS  IN  THE  ' 

LOW  7 BITS.  THIS  :PASTES  UP:  THE  :PLEASE  PERFORM:  VERB  INTO  THE  VERB 
LIGHTS. 

NVMUNOPT  IS  AN  ENTRY  SIMILAR  TO  NVSUB,  BUT  REQUIRING  AN  ADDITIONAL 
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K2391E1  PARAMETER  IN  L.  IT  SHOULD  BE  USED  ONLY  WITH  A MONITOR  VERB-NOUN  CODE  IN 
R239182  A.  AFTER  EACH  MONITOR  DISPLAY  A *PLEASE*  VFRB  WILL  BE  PASTED  IN  THE  VERB 
R2391G3  LIGHTS  OR  DATA  WILL  BE  8LANKED  10R  BOTH)  ACCORDING  TO  THE  OPTIONS 
R 2 39 1 84  SPECIFIED  IN  L.  IE  BITS  8-14  OF  L ARE  OTHER  THAN  ZERO,  THEN  THEY  WILL 
R 239 1 8 5 BE  INTERPRETED  AS  A VERB  CODE  AND  PASTED  IN  THE  VERB  LIGHTS.  (THIS  VERB 
R239186  CODE  SHOULD  DESIGNATE  ONE  OF  THE  *PLEASE*  VERBS.)  IF  BITS  1-3  OF  L ARE 
R239187  OTHER  THAN  ZERO,  THFN  THEY  WILL  BE  USED  TO  BLANK  DATA  BY  BEING  FED  TO 
R239188  BLANKSUB.  IF  NVMONOPT  IS  USED  WITH  A VERB  OTHER  THAN  A MONITOR  VERB, 

R239189  THE  PARAMETER  IN  L HAS  NO  EFFECT. 


R2392 

NVSUB  IN 

1 FIXED-FIXED 

PLACES 

2+CALLING  LOC  INTO  NVQTEM, 

TC  NVSUBEND 

INTO 

R2393 

ENTRET. 

(THIS 

WILL  RESTORE  OLD  CALLING 

BANK  BITS 

1 

2394 

REF 

3 

LAST 

454 

4145 

SETLOC 

MID7  +1 

2394  5 

REF 

2 

LAST 

454  TO 

454 : 

17 

17* 

COUNT* 

$ $ / P I N 

239  5 

4 L45 

22  007 

0 

NVSUB 

LXCH 

7 

ZERO  NVMONOPT  OPTIONS 

2396 

REF 

1 

4146 

54  123 

0 

NVMONOPT 

TS 

NVTEMP 

2397 

REF 

4 l 

LAST 

465 

4147 

3 4727 

1 

CAF 

BIT14 

239  71 

REF 

7 

LAST 

465 

4150 

7 1020 

0 

MASK 

MONSAVE 1 

EXTERNAL  MONITOR  BIT 

23972 

REF 

6 

LAST 

465 

4151 

6 1011 

0 

AD 

DSPLOCK 

239  7 3 

REF 

144 

LAST 

465 

4152 

10  000 

0 

CCS 

A 

23974 

REF 

1 12 

LAST 

462 

4153 

0 0002 

0 

TC 

Q 

DSP  SYST  BLOCKED.  RET  TO  1+  CALLING 

2398 

REF 

56 

LAST 

463 

4154 

3 4744 

1 

CAF 

ONE 

DSP  SYST  AVAILABLE 

2399 

REF 

l 13 

LAST 

467 

4155 

6 CC02 

0 

NVSBCOM 

AD 

Q 

2400 

REF 

1 

4156 

55' 036 

1 

TS 

NVQTEM 

2+  CALLING  LOC  INTO  NVQTEM 

2400  l 

REE 

4 

LAST 

454 

4157 

23*021 

0 

LXCH 

M0NSAVE2 

STORE  NVMONOPT  OPTIONS 

2401 

REF 

3 

LAST 

463 

4160 

0 4175 

0 

TC 

KILMONON 

TURN  ON  KILL  MONITOR  BIT 

240  2 

REF 

1 

4161 

3 4172 

1 

N VSUBCOM 

CAF 

NVSBBBNK 

240  3 

REF 

12 

LAST 

38  2 

4 162 

56  0 06 

1 

XCH 

B8ANK 

2403  1 

4163 

0 0006 

1 

EXTEND 

SAVE  OLD  SUPERBITS 

240  3 2 

REF 

4 

LAST 

286 

4164 

04  007 

1 

ROR 

SUPERBNK 

2404 

REF 

1 

4165 

55'037 

0 

TS 

N VBNKTEM 

24041 

REF 

2 

LAST 

286 

4166 

3 4172 

1 

CAF 

P INSUPBT 

24042 

4167 

0 0006 

1 

EXTEND 

24043 

REF 

5 

LAST 

467 

4 170 

Cl  C07 

1 

WRITE 

SUPERBNK 

240  5 

REF 

1 

4171 

0 2020 

1 

TC 

NVSUBB 

GO  TO  NVSUB 1 THRU  STANDARD  LOC 

2406 

REF 

56 

LAST 

464 

0776 

EBANK= 

D SPCOUNT 

240  7 

REF 

2 

LAST 

4 19 

4172 

62101 

0 

NVSBBBNK 

BBCON 

N V SUB  1 

240  71 

REF 

2 

LAST 

467 

4 172 

P INSUPBT 

= 

NVSBBBNK 

CONTAINS  THE  PINBALL  SUPERBITS. 

2412 

REF 

2 

LAST 

467 

4173 

53' 037 

0 

N VSUBEND 

DXCH 

NVQTEM 

NVBNKTEM  MUST  = NVQTFM+1  , 

2413 

REF 

2 

LAST 

295 

4 174 

0 5167 

1 

TC 

SUPDXCHZ 

DTCB  WITH  SUPERBIT  SWITCHING 

2414 

REF 

1 

41,3565 

SETLOC 

ENDRQWT  +1 

241 4C 5 

REF 

7 

LAST 

461  TO 

463: 

61  869* 

COUNT* 

$$/P I N 

R24I412  BLANKDSP  BLANKS  DISPLAY  ACCORDING  TO  OPTION  NUMBER  IN  NVTEMP  AS  FOLLOWS 
R241415  -4  FULL  BLANK,  -3  LEAVE  MODE,  -2  LEAVE  MODE  AND  VERB,  -1  BLANK  R-S  ONLY 


467 


LOC 
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PINBALL 

GAME 

BUTTONS  AND  LIGHTS 

2414  lg 

REF 

6 

LAST 

459 

41,3565 

6 4750 

1 

blankosp 

241422 

41,3566 

0 0004 

0 

241425 

REF 

13 

LAST 

460 

41,3567 

54  124 

1 

241429 

REF 

20 

LAST 

272 

41,3570 

4 4731 

l 

241432 

REF 

14 

LAST 

468 

41,3571 

50  124 

0 

241435 

REF 

33 

l AST 

460 

41,3572 

57' 022 

0 

241439 

REF 

145 

LAST 

467 

41,3573 

10  COO 

0 

241442 

REF 

8 

LAST 

460 

41,3574 

2 5 ' 0 1 5 

1 

241445 

41,3575 

0 3576 

0 

241449 

REF 

15 

LAST 

468 

41, 3576 

10  124 

1 

241452 

REF 

1 

41,3577 

0 3567 

0 

241455 

41,3600 

0 C003 

1 

241459 

REF 

2 

LAST 

467 

41 , 3601 

50  123 

1 

241462 

41,3602 

0 3607 

0 

241465 

41,3603 

0 3604 

0 

241 469 

REF 

21 

LAST 

463 

41 ,3604 

55 ' 000 

1 

241472 

REF 

14 

LAST 

462 

41,3605 

55' 001 

0 

241475 

REF 

12 

LAST 

441 

41,3606 

55*014 

1 

241475 

REF 

12 

LAST 

464 

41,3607 

4 4351 

0 

241482 

REF 

57 

LAST 

467 

41, 3610 

54  776 

0 

241485 

REF 

4 

LAST 

46  3 

41,  361  1 

0 4424 

1 

■2414  89 

P.FF 

1 

41,3612 

0 3635 

1 

2415 

REF 

2 

LAST 

468 

41,3613 

3 3637 

0 

N V SUB  1 

2416 

REF 

6 

LAST 

454 

41,3614 

54  136 

1 

24161 

REF 

3 

LAST 

468 

41,3615 

10  123 

0 

24162 

41, 3616 

0 3622 

1 

24163 

REF 

18 

LAST 

462 

41,3617 

0 2400 

1 

24164 

REF 

2 

LAST 

468 

4 1 , 3 62  0 

0 3565 

1 

24165 

REF 

19 

LAST 

468 

41,3621 

0 2400 

1 

241  7 

REF 

5 

LAST 

4 5 4 

41,3622 

3 6115 

1 

241  8 

REF 

4 

LAST 

468 

41,362 3 

7 C 123 

0 

2419 

REF 

216 

LAST 

463 

41,3624 

54  157 

0 

2420 

REF 

5 

LAST 

468 

41,3625 

3 C 123 

1 

2422 

REF 

5 

LAST 

454 

41,3626 

54  023 

1 

2423 

REF 

6 

LAST 

468 

41,3627 

3 CC23 

0 

2424 

REF 

2 17 

LAST 

468 

41,3630 

54  160 

1 

12425 

242  6 

REF 

2 18 

LAST 

468 

41,3631 

10  157 

0 

242  7 

REF 

1 

41,3632 

0 3640 

0 

242  8 

REF 

219 

LAST 

468 

41,3633 

3 0160 

0 

242  9 

REF 

9 

LAST 

46  1 

41,3634 

0 2 3 66 

0 

2429  l 

REF 

97 

LAST 

465 

41,3635 

3 4746 

0 

24292 

REF 

14 

LAST 

464 

41,3636 

55 ' 012 

1 

243d 

REF 

2 

LAST 

461 

41,3637 

0 4173 

0 

ENTSET 

243  1 

REF 

220 

LAST 

468 

41 ,3640 

10  160 

1 

NVSUB2 

243  2 

41,3641 

0 3645 

0 

2433 

REF 

221 

LAST 

468 

4 1,3642 

3 0157 

l 

2434 

REF 

2 

LAST 

454 

41,3643 

0 2346 

1 

2435 

REF 

3 

LAST 

468 

41,3644 

0 41  73 

0 
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AD 

INHINT 

SEVEN 

7, 8, 9, OR  10  (A  HAD  0,1, 2, OR  3) 

TS 

CODE 

BLANK  SPECIFIED  DSPTA8S 

CS 

BIT12 

INDEX 

CODE 

XCH 

DSPTAB 

CCS 

A 

INCR 

NOUT 

TC 

+ 1 

CCS 

CODE 

TC 

REL  INT 

BLANKDSP  +2 

INDEX 

NVTEMP 

TC 

+ 5 

TC 

+ 1 

NVTEMP  HAS  -4  (NEVER  TOUCH  MODREG) 

TS 

VERBREG 

-3 

TS 

NOUNREG 

-2 

TS 

CLPASS 

-1 

CS 

VD1 

TS 

D SPCOUNT 

TC 

F LASHOFF 

PROTECT  AGAINST  INVISIBLE  FLASH 

TC 

ENTSET  -2 

ZEROS  REGRET 

CAF 

ENTSET 

IN  BANK 

TS 

ENTRET 

SET  RETURN  TO  NVSUBEND 

CCS 

NVTEMP 

WHAT  NOW 

TC 

+4 

NORMAL  NVSUB  CALL  (EXECUTE  VN  OR  PASTE) 

TC 

GODSPALM 

TC 

BLANKDSP 

BLANK  DISPLAY  AS  SPECIFIFD 

TC 

GODSPALM 

CAF 

L0W7 

MASK 

NVTEMP 

TS 

MPAC  +3 

TEMP  FOR  NOUN  (CANT  USE  MPAC.  DSPDFCVN 

CA 

NVTEMP 

USES  MPAC,  +1,  +2 

TS 

E OOP 

RIGHT  7 

CA 

EDOP 

TS 

MPAC  +4 

TEMP  FOR  VERB  (CANT  USE  MPAC+l.  DSPDECVN 
USES  MPAC,  +1 , +?) . 

CCS 

MPAC  +3 

TEST  NOUN 

TC 

NVSUB2 

IF  NOUN  NOT  +0,  GO  ON 

CA 

MPAC  +4 

TC 

UPDATVB  -1 

IF  NOUN  = +0,  DISPLAY  VFRB  . THEN  RETURN 

CAF 

ZERO 

ZERO  REGRET  SO  THAT  PASTED  VERBS  CAN 

TS 

REQRET 

BE  EXECUTED  BY  OPERATOR. 

TC 

N VSUBEND 

CCS 

MPAC  +4 

TEST  VERB 

TC 

+4 

IF  VERB  NOT  +0,  GO  ON 

CA 

MPAC  +3 

TC 

UPDATNN  -1 

IF  VERB  = +0,  DISPLAY  NOUN.  THFN  RETURN 

TC 

N VSUBEND 

+0,  OISOLAY  NOUN.  THEN  RETURN 
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2436 

REF 

222 

LAST 

468 

41,3645 

3 0156 

0 

CA 

MPAC 

+2 

TEMP  FOR 

MACH  CADR  TO  BE  SPEC.  (DSPDECVN 

243  7 

REF 

223 

LAST 

469 

41,3646 

54  161 

0 

TS 

M P AC 

+ 5 

USES  MPAC,  +1,  +2) 

2438 

REF 

224 

LAST 

469 

41,3647 

3 0160 

0 

CA 

MPAC 

+4 

2439 

REF 

10 

LAST 

468 

41,3650 

0 2366 

0 

TC 

UPDATVB 

-1 

IF  BOTH 

NOUN  AND  VERB  NOT  +0,  DISPLAY 

2440 

REF 

225 

LAST 

469 

41,3651 

3 0157 

1 

CA 

MPAC 

+3 

BOTH  AND 

GO  TO  ENTPASO. 

244  1 

REF 

3 

LAST 

468 

41,3652 

0 2346 

1 

TC 

UPDATNN 

-1 

244  2 

REF 

98 

LAST 

468 

41,3653 

3 4746 

0 

CAF 

ZERO 

2443 

REF 

3 

LAST 

463 

41,3654 

55 ' 013 

0 

TS 

LOADSTAT 

SET  FOR 

WAITING  FOR  DATA  CONDITION 

2444 

REF 

13 

LAST 

468 

41 , 3655 

55*014 

1 

TS 

CLPASS 

2445 

REF 

15 

LAST 

468 

41,3656 

55*012 

1 

TS 

REQRET 

SET  REQRET  FOR  PASS  0. 

2446 

REF 

226 

LAST 

469 

4 1,365  ? 

3 0L61 

1 

CA 

MPAC 

+ 5 

RESTORES 

MACH  CADR  TO  BF  SPEC  TO  MPAC+2 

244  7 

REF 

227 

LAST 

469 

41 , 3660 

54  156 

1 

TS 

MPAC 

+ 2 

FOR  USE 

IN  INTMCTBS  ( IN  ENTPASO) . 

244  8 

REF 

3 

LAST 

419 

41,3661 

0 2062 

1 

ENDNVSB1  TC 

ENTPASO 

R2449 

IF  INTERNAL  MACH  CADR  TO  BE  SPECIFIED 

, 

MPAC+2  WILL  BE 

PLACED  INTO 

R2450 

NOUNCADR 

IN  ENTPASO 

( INTMCTBS 

) . 

2451 

REF 

4 

LAST 

468 

4175 

SETLOC 

NVSUBEND  +2 

2451  5 

REF 

3 

LAST 

467  TO 

467: 

24  41*  COUNT* 

$ $/ P I N 

A2452 

FORCE  BIT  15 

OF 

M0NSAVE1  TO  l. 

2453 

REF 

28 

LAST 

' 441 

4175 

3 4726  0 KILMONON  CAF 

BIT15 

THIS 

IS  THE 

KILL  MONITOR  RIT. 

2454 

REF 

8 

LAST 

467 

4176 

55*020  0 TS 

M0NSAVE1 

TURN  OFF 

BIT 

14 

, THE  EXTERNAL 

A2455 

MONITOR 

BIT. 

2458 

REF 

114 

LAST 

467 

4177 

0 0002  0 TC 

Q 

R2459 

LOADSTAT 

+0  INACTI VEIWAI TING 

FOR  DATA) . SET  BY  NVSUB 

R2460 

+ 1 

PROCEED 

NO  DATA. 

SET  BY  SPECIAL  VERB 

R2461 

-l  TERMINATE 

SET  BY 

SPECIAL  VER8 

R2462 

-0 

DATA  IN 

SET  BY  END  OF  LOAD  ROUTINE 

R2463 

OR 

RESEQUENCE  SET  BY  VERB  32 

R2464  L TC  ENDIDLE  (FIXEO  FIXED) 

R2465  ROUTINES  THAT  REQUEST  LOADS  THROUGH  NVSUB  SHOULD  USE  ENOIDLE  WHILE 
R2A66  WAITING  EOR  THE  DATA  TO  BE  LOADED.  ENDIDLE  PUTS  CURRENT  JOB  TO  SLEEP. 
R2A67  ENDIDLE  CANNOT  BE  CALLED  FROM  ERASABLE  OR  F/F  MEMORY, 

82468  SINCE  JOBSLEEP  AND  JOBWAKE  CAN  HANDLE  ONLY  FIXED  BANKS. 

82469  RECALTST  TESTS  LOADSTAT  AND  WAKES  JOB  UP  TO, 

R2470  L+l  FOR  TERMINATE 

R2471  L+2  FOR  PROCEED  WITHOUT  DATA 

82472  L+3  FOR  DATA  IN,  OR  RESEQUENCE 

82473  IT  OOES  NOTHING  IF  LOADSTAT  INDICATES  WAITING  FOR  DATA. 


R 2 A 7 A ENDIDLE  ABORTS  (WITH  CODE  01206)  IF  A SECOND  JOB  ATTEMPTS  TO  GO  TO  SLFEP 

) R2475  IN  PINBALL.  IN  PARTICULAR,  IF  AN  ATTEMPT  IS  MADE  TO  GO  TO  ENDIDLE  WHEN 

R2A76  1)  C A C R ST  OR  NOT=  +0.  THIS  IS  THE  CASE  WHERE  THE  CAPACITY  OF  ENDIDLE  IS 
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R2A77  EXCEEDED.  (+-NZ  INDICATE  A JOB  IS  ALREADY  ASLEEP  DUE  TO  ENDIDLE.) 
R2478  2)  DS  PL  I ST  NOT=  +0.  THIS  INDICATES  A JOB  IS  ALREADY  ASLEEP  DUE  TO 
R2479  NVSUBLSY. 


2480 

REF 

115 

LAST 

469 

4200 

22 

C02 

0 ENDIDLE 

LXCH 

Q 

2481 

REF 

1 

4201 

0 

4211 

1 

TC 

I SCADR+O 

2482 

REF 

1 

4202 

0 

4215 

0 

TC 

I SLI ST+O 

2483 

REF 

60 

LAST 

455 

4203 

3 

OCOl 

0 

CA 

L 

2484 

REF 

4 

LAST 

382 

4204 

7 

5003 

0 

MASK 

LOW  10 

2485 

REF 

I 

4205 

6 

CC04 

0 

AD 

FBANK 

2486 

REF 

7 

LAST 

465 

4206 

55 

• 041 

1 

TS 

CAORSTOR 

2487 

REF 

2 

LAST 

386 

4207 

0 

5124 

0 

TC 

JOBSLEEP 

2488 

REF 

58 

LAST 

465 

4210 

0 5146 

1 

ENDINST 

TC 

E NOUF JOB 

2489 

REF 

8 

LAST 

470 

42  11 

1 1 ' 04 1 

1 

I SCADR  + O 

CCS 

CAORSTOR 

2490 

REF 

1 

4212 

0 4220 

0 

TC 

DSPABORT 

249  1 

REF 

1 16 

LAST  • 

470 

42.13 

0 0C02 

0 

TC 

Q 

2492 

REF 

2 

LAST 

470 

4214 

0 4220 

0 

TC 

DSPABORT 

2493 

REF 

2 

LAST 

233 

4215 

11*042 

1 

I SLI ST+O 

CCS 

OSPLIST 

2494 

REF 

3 

LAST 

470 

4216 

0 4220 

0 

TC 

DSPABORT 

2495 

REF 

117 

LAST 

470 

4217 

0 CC02 

0 

TC 

0 

249  6 

REF 

1 

4220 

0 5626 

0 

D SPA  BOR T 

TC 

BAILOUT 

249  7 

4221 

31206 

1 

OCT 

31206 

R249B 

JAMT 

ERM 

ALLOWS 

PROGRAMS 

TO  PERFORM  THE 

TERMINATE 

FUNCTION. 

P2499 

I T DOES 

ENDOF JOB. 

2500 

REF 

3 

LAST 

46  7 

4222 

3 4172 

1 

JAMTERM 

CAF 

P INSUPBT 

2501 

4223 

0 0006 

1 

EXTEND 

2501  1 

REF 

6 

LAST 

46  7 

4224 

01  007 

1 

WRITE 

SUPERBNK 

25012 

REF 

2 

LAST 

22  1 

4225 

3 4233 

1 

CAF 

34DEC 

250  13 

RFF 

16 

LAST 

469 

4226 

55 ' 012 

1 

TS 

REORET 

2502 

REF 

13 

LAST 

46  8 

4227 

4 4351 

0 

CS 

V D 1 

2503 

REF- 

58 

LAST 

468 

4230 

54  776 

0 

TS 

DSPCOUNT 

2 504 

REF 

33 

LAST 

465 

4231 

0 4626 

1 

TC 

POST  JUMP 

2505 

REF 

2 

LAST 

422 

4232 

61477 

1 

CADR 

VBTERM 

2506 

4233 

00042 

1 

34DEC 

DEC 

34 

R 2 SO  7 JAMPROC  ALLOWS  PROGRAMS  TO  PERFORM  THE  PROCE E D/ PROC E E D WITHOUT  DATA 
R2508  FUNCTION.  IT  DOES  ENDOEJOB. 


2509  REF 

2510 

25101  REF 


LAST 


470 

4234 

3 

4 172 

1 

JAMPROC  CAF 

P INSUPBT 

4235 

0 

0006 

1 

EXTEND 

470 

4236 

01 

C07 

1 

WRITE 

SUPERBNK 

7 LAST 
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RETURN  ADDRESS  INTO  L . 

ABORT  IF  CAORSTOR  NOT=  +0 

ABORT  IE  OSPLIST  NOT=  +0 

DONT  SET  OSPLOCK  TO  1 SO  CAN  USE 

ENDIDLE  WITH  NVSUB  INITIATED  MONITOR. 

SAME  STRATEGY  FOR  CADR  AS  MAKECADR. 


ABORTS  (CODE  01206)  IF  CAORSTOR  NOT=  +0. 
RETURNS  IF  CAORSTOR  = +0. 


ABORTS  (CODE  01206)  IF  OSPLIST  NOT=  +0. 
RETURNS  IF  OSPLIST  = +0. 


LEAVF  ENTER  SET  FOR  ENTPASSO 
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25102 

REF 

1 

4237 

3 4245 

0 

CAF 

33DEC 

25103 

REF 

17 

LAST 

470 

4240 

55 1 C12 

1 

TS 

REQRET 

251 1 

REF 

14 

LAST 

470 

4241 

4 4351 

0 

cs 

V D 1 

2512 

REF 

59 

LAST 

470 

4242 

54  776 

0 

TS 

DSPCOUNT 

2513 

REF 

34 

LAST 

470 

4243 

0 4626 

1 

TC 

POSTJUMP 

2514 

REF 

5 

LAST 

464 

4244 

61471 

1 

CADR 

VBPROC 

2515 

4245 

00041 

1 33DEC 

DEC 

33 

R2532 

BLANKSUB 

BLANKS  ANY 

COMBINATION  OF  Rl, 

R2, 

R 3 . 

R2533 

CALL 

UTH  BLANKING  CODE  IN  A. 

R2534 

Bill 

=1  BLANKS 

Rl,  e I T2=l  BLANKS  R2, 

BIT  3=  1 

BLANKS  R3 . 

R2535 

ANY 

COMBINATION  OF  THFSE  BITS 

IS  ACCEPTED . 

R2  53  6 

DS  PC  C UN  T 

IS  RESTORED 

TO  STATE 

IT  WAS 

IN 

BEFORE  BLANKSUB 

WAS  EXECUTED 

2538 

REF 

7 

LAST 

468 

4246 

7 4750 

0 

BLANKSUB 

MASK 

SEVEN 

2538  1 

REF 

6 

LAST 

468 

4247 

54  123 

0 

TS 

NVTEMP 

2539 

REF 

42 

LAST 

467 

4250 

3 4727 

1 

CAF 

BIT14 

2540 

REF 

9 

LAST 

469 

4251 

7 1020 

0 

MASK 

MONSAVE  1 

2540  1 

REF 

7 

LAST 

46  7 

4252 

6 1011 

0 

AD 

DSPLOCK 

25402 

REF 

146 

LAST 

468 

4253 

10  COO 

0 

CCS 

A 

25403 

REF 

118 

LAST 

’ 470 

4254 

0 0002 

0 

TC 

Q 

25404 

REF 

119 

LAST 

471 

4255 

24  002 

0 

I NCR 

Q 

A 2 54  1 

2541  1 

REF 

7 

LAST 

47  1 

4256 

10  123 

0 

CCS 

NVTEMP 

25412 

4257 

1 4261 

1 

TCF 

+ 2 

25413 

REF 

120 

LAST 

471 

4260 

0 0CO2 

0 

TC 

Q 

2542 

REF 

121 

LAST 

47  1 

4261 

22  002 

0 

LXCH 

Q 

2 544 

REF 

1 

4262 

3 4273 

0 

CAF 

BLNKBBNK 

2545 

REF 

13 

LAST 

467 

4263 

56  006 

1 

XCH 

B BANK 

2 54  5 1 

4264 

0 C 006 

1 

EXTEND 

25452 

REF 

8 

LAST 

470 

4265 

04  007 

1 

ROR 

SUPERBNK 

2546 

REF 

45 

LAST 

427 

4266 

52  131 

0 

DXCH 

BUF 

2546  1 

REF 

5 

LAST 

470 

4267 

3 4172 

1 

CAF 

P INSUPBT 

2 5462 

4270 

0 0006 

1 

EXTEND 

25463 

REF 

9 

LAST 

471 

4271 

01  007 

1 

WRITE 

SUPERBNK 

2547 

REF 

1 

4272 

0 3543 

0 

TC 

BLNKSUB1 

2548 

REF 

60 

LAST 

471 

0776 

EBANK= 

DSPCOUNT 

2548  1 

REF 

2 

LAST 

471 

4273 

6C  101 

1 

BLNKBBNK 

BBCON 

BLNKSUB1 

2549 

4274 

ENDBLFF 

EQUALS 

2550 

REF 

1 

40,3543 

SETLOC 

ENDRELDS 

25505 

REF 

8 LAST 

463  TO 

467: 

42  820* 

COUNT* 

$ S/PI N 

2551 

REF 

61 

LAST 

471 

40,3543 

3 0776 

1 

BLNKSU81 

CA 

DSPCOUNT 

2551  1 

REF 

46 

LAST 

471 

40,3544 

54  132 

0 

TS 

BUF  +2 

25512 

REF 

24 

LAST 

46  2 

40,3545 

3 4 744 

1 

CAF 

BIT! 

2 55  2 

REF 

1 

40,3546 

0 3565 

1 

TC 

TESTBIT 
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LEAVE  ENTFR  S FT  FOR  FNTPASSO. 


STORE  BLANKING  CODE  IN  NVTEMP. 
EXTERNAL  MONITOR  BIT 


DSP  SYST  BLOCKED.  RFT  TO  1+  CALLING  LOC 

DSP  SYST  AVAILABLE 

SET  RETURN  FOR  2+  CALLING  LOC 


NOTHING  TO  BLANK.  RET  TO  2+  CALLING  LOC 
SET  RETURN  FOR  2 + CALLING  LOC 


SAVE  OLD  SUPFPBITS. 


SAVE  OLD  DSPCOUNT  FOR  LATER  RESTORATION 


TEST  8 1 T 1 . SEE  IF  R1  TO  BE  BLANKED 
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2553 

REE 

12 

LAST 

455 

40,3547 

3 

4310 

1 

CAF 

R ID  1 

2554 

REF 

4 

LAST 

434 

40,3550 

0 

2524 

0 

TC 

5BLANK  -1 

2555 

REF 

26 

LAST 

446 

40,3551 

3 

4743 

0 

CAF 

BIT2 

2556 

REF 

2 

LAST 

471 

40,3552 

0 

3565 

1 

TC 

TESTBIT 

2557 

REF 

5 

LAST 

457 

40,3553 

3 

4311 

0 

CAF 

R2D1 

2558 

REF 

5 

LAST 

472 

40,3554 

0 

2 524 

0 

TC 

5BLANK  -1 

2559 

REF 

25 

LAST 

465 

40,3555 

3 

4742 

1 

CAF 

R 1T3 

2560 

KEF 

3 

LAST 

472 

40,3556 

0 

3565 

1 

TC 

TESTBIT 

2561 

REF 

5 

LAST 

435 

40,3557 

3 

4312 

0 

CAF 

R 3D  1 

2562 

REF 

6 

LAST 

472 

40,3560 

0 

2524 

0 

TC 

5 BLANK  -1 

2563 

REF 

4 7 

LAST 

471 

40,3561 

3 

C 132 

1 

CA 

BUF  +2 

2 564 

REF 

62 

LAST 

471 

40, 3562 

54 

776 

0 

TS 

DSPCOUNT 

2 56  5 

REF 

48 

LAST 

472 

40,3563 

52 

131 

0 

DXCH 

BUF 

2566 

REF 

3 

LAST 

467 

40, 3564 

0 

5170 

1 

TC 

SUPDXCHZ  +1 

2567 

REF 

8 

LAST 

471 

40,3565 

7 

0123 

0 TESTBIT 

MASK 

NVTEMP 

2568 

REF 

147 

LAST 

471 

40,3566 

10 

000 

0 

CCS 

A 

2 56  9 

REF 

122 

LAST 

471 

40,3567 

0 

0002 

0 

TC 

Q 

2570 

REF 

123 

LAST 

472 

40,3570 

50 

002 

0 

INDEX 

Q 

257  1 

40,3571 

0 

C002 

0 

TC 

2 

257  2 


40,3572 


ENDBSUB1  EQUALS 


R2572C5  DSPMM  DOFS  NUT  DISPLAY  MODREG  DIRECTLY.  IT  PUTS  IN  EXEC  REQUEST  WITH 
R2572C6  PRIO  30000  FOR  DSPMMJB  AND  RETURNS  TO  CALLER. 

R2572C7  IF  MODREG  CONTAINS  -0,  DSPMMJB  BLANKS  THE  MODE  LIGHTS. 

R2572C9  DSPMM  MUST  BE  IN  BANK  27  OR  LCWER,  SO  IT  CAN  BE  CALLED  VIA  BANKCALL. 


2572  l 

07,2607 

BANK 

7 

257215 

REF 

1 

04,2000 

SETLOC 

P INBALL4 

257217 

04,2657 

BANK 

2572  18 

REF 

1 

COUNT* 

t*/P  IN 

25722 

REF 

I 24 

LAST 

472 

04,2657 

56  002 

0 DSPMM 

XCH 

Q 

25723 

REF 

228 

LAST 

469 

04,2660 

54  154 

0 

TS 

MPAC 

25724 

04,2661 

0 0004 

0 

INHINT 

25725 

REF 

3 

LAST 

453 

04,2662 

3 4346 

1 

CAF 

CHRPRIO 

25726 

REF 

9 

LAST 

453 

04,2663 

0 5063 

1 

TC 

NOVAC 

25727 

REF 

63 

LAST 

472 

0776 

EBANK= 

DSPCOUNT 

25728 

REF 

1 

04,2664 

03572 

1 

2CADR 

DSPMMJB 

25728 

REF 

I 

04,2665 

60101 

1 

257285 

04,2666 

0 0003 

1 

RELINT 

2572  S 

REF 

229 

LAST 

472 

04,2667 

0 C 1 54 

1 ENDSPMM 

TC 

MPAC 

R2573 

DSPMM 

PLACE 

MAJOR 

MODE  CODE 

INTO  MODREG 

25735 

REF 

1 

40,3572 

SETLOC 

ENDBSUB1 

USER' S PAGE  NO . 71  E4  S4 


TEST  BIT  2.  SEE  IF  R?  TO  BE  BLANKED. 


TEST  B I T 3.  SEE  IF  R3  TO  BE  BLANKED. 


RESTORE  DSPCOUNT  TO  STATE  IT  HAD 
BEFORE  BLANKSUB. 

CALL  L + 2 DIRECTLY. 

DTCB  WITH  SUPERBIT  SWITCHING 

NVTEMP  CONTAINS  BLANKING  CODE. 

IF  CURRFNT  BIT  = 1,  RETURN  TO  L+l. 
IF  CURRENT  BIT  = 0,  RETURN  TO  L+3. 


GAP: 
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L PINBALL  GAME  BUTTONS  AND  LIGHTS 


25736 

REF 

S 

LAST 

471  TO 

472: 

23  843* 

COUNT* 

$ $/ P I N 

2574 

REF 

1 

40, 3572 

3 4353 

0 DSPMM JB 

CAF 

MD1 

2575 

REF 

64 

LAST 

472 

40,3573 

56  776 

1 

XCH 

DSPCOUNT 

2576 

REF 

l 

40,3574 

54  140 

0 

TS 

D SPMMTEM 

2579 

REF 

7 

LAST 

277 

40,3575 

ll'OlO 

0 

CCS 

MODREG 

2580 

REF 

57 

LAST 

467 

40,3576 

6 4 744 

1 

AD 

ONE 

25801 

REF 

4 

LAST 

458 

40,3577 

0 3335 

1 

TC 

DSPDECVN 

25802 

40,3600 

0 3602 

0 

TC 

42 

25803 

REF 

6 

LAST 

462 

40,3601 

0 2570 

1 

TC 

2 BLANK 

2581 

REF 

2 

LAST 

473 

40,3602 

56  140 

1 

XCH 

DSPMMTEM 

2582 

REF 

65 

LAST 

473 

40,3603 

54  776 

0 

TS 

DSPCOUNT 

2583 

REF 

59 

LAST 

470 

40,3604 

0 5146 

1 

TC 

ENDOF JOB 

R2584 

RECALTST 

IS  ENTERED 

DIRECTLY 

AFTER  DATA  IS  LOADED  (OR  RESEQUENCE  V 

R2585 

EXECUTED),  TERMINATE 

VERB  IS 

EXECUTED, 

OR  PROCEED  WITHOUT  DATA  VER 

R2586 

EXECUTED 

. I T 

WAKES  UP  JOB  THAT  DID  TC 

ENDIDLE. 

R2587 

IF  1 

C A C R S TOR  NOT  = +0, 

IT  PUTS 

+0  INTO 

DSPLCCK,  AND  TURNS 

OFF  KEY  RL 

R2588 

LIGHT  IF 

DSPLIST  IS 

EMPTY  ( LEAVES  KEY 

RLSE  LIGHT 

ALONE 

IF  NOT  EMPT 

2589 

REF 

9 

LAST 

470 

40,3605 

11 1 041 

1 

RECALTST 

CCS 

CADRSTOR 

2590 

REF 

1 

40,3606 

0 3610 

0 

TC 

RECAL l 

259  1 

REF 

60 

LAST 

473 

40,3607 

0 5146 

1 

TC 

ENDOF JOB 

2592 

REF 

99 

LAST 

469 

40,3610 

3 4746 

0 

RECAL1 

CAF 

ZERO 

2593 

REF 

10 

LAST 

473 

43,3611 

57' C41 

0 

XCH 

CADRSTOR 

2594 

40,3612 

0 0004 

0 

INHINT 

2595 

REF 

3 

LAST 

386 

40,3613 

0 5130 

0 

TC 

JOBWAKE 

2596 

REF 

4 

LAST 

469 

40,3614 

11 ' 013 

0 

CCS 

LOADSTAT 

2597 

REF 

1 

40,3615 

0 3637 

0 

TC 

DOPROC 

2598 

REF 

61 

LAST 

473 

40, 3616 

0 5146 

1 

TC 

ENDOF JOB 

2599 

REF 

1 

40,3617 

0 3635 

1 

TC 

DOTERM 

2600 

REF 

32 

LAST 

460 

40,3620 

3 4743 

0 

CAF 

TWO 

2601 

REF 

2 

LAST 

384 

40,3621 

50  064 

0 

RECAL2 

INDEX 

LOCCTR 

2602 

REF 

3 

LAST 

384 

40,3622 

6 0164 

1 

AD 

LOC 

2603 

REF 

3 

LAST 

473 

40,3623 

50  0 64 

0 

INDEX 

LOCCTR 

2604 

REF 

4 

LAST 

473 

40,3624 

54  164 

0 

TS 

LOC 

2604  1 

REF 

15 

LAST 

468 

40,3625 

3 1001 

1 

CA 

NQUNREG 

26042 

REF 

61 

LAST 

470 

40,3626 

54  001 

1 

TS 

L 

260  4 3 

REF 

22 

LAST 

46  8 

40,3627 

3 1000 

0 

CA 

VERBREG 

26044 

REF 

4 

LAST 

473 

40,3630 

50  064 

0 

INDEX 

LOCCTR 

2604  5 

REF 

230 

LAST 

472 

40,3631 

52  155 

1 

DXCH 

MPAC 

2605 

40,3632 

0 0003 

1 

RELINT 

2606 

REF 

9 

LAST 

465 

40,3633 

0 4450 

1 

RECAL3 

TC 

R ELDSP 

260  7 

REF 

62 

LAST 

47  3 

40,3634 

0 5146 

1 

TC 

ENDOF JOB 

260  8 

REF 

100 

LAST 

473 

40,3635 

3 4 746 

0 

DOTERM 

CAF 

ZERO 

2609 

REF 

1 

40,3636 

0 3621 

1 

TC 

RECAL2 

2610 

KEF 

58 

LAST 

473 

40,3637 

3 4 744 

1 

DOPROC 

CAF 

ONE 
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USER'S  PAGE  NO.  72  E A S4 


GETS  HEPE  THRU  DSPMM 
SAVE  DSPCOUNT 


IF  MODREG  IS  + OR  +0,  DISPLAY  MODREG 
IF  MODREG  IS  -NZ , DO  NOTHING 
IF  MODREG  IS  -0,  BLANK  MM 
RESTORE  DSPCOUNT 


IS 


S 


NORMAL  EXIT  IF  KEYBOARD  INITIATED 


*■  PROCEED  WITHOUT  DATA 
PATHALOGICAL  CASF  EXIT 
TERMINATE 

-0  DATA  IN  OR  RESEQUENCE 
LOC  IS  + FOR  BASIC  JOBS 


SAVE  VERB  IN  MPAC , NOUN  IN  MPAC+1  AT 
TIME  OF  RESPONSE  TO  ENDIDLE  FOR 
POSSIBLE  LATER  TESTING  BY  JOB  THAT  HAS 
BEEN  WAKED  UP. 


GAP: 

L 

261  1 


ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
PINBALL  GAME  BUTTONS  AND  LIGHTS 

REF  2 


17:11 


MAR.  19,1971 
USER'S  PAGE 


L EMO N A ID . 1 56  PAGE 
NO.  73  E4  S4 


474 


LAST  47  3 40,3640  0 3621  1 


TC 


RECAL2 


GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-I6L 


L PINBALL  GAME  BUTTONS  AND  LIGHTS 

P2612  MISCELLANEOUS  SERVICE  ROUTINES  IN  FIXED/FIXED 


2613 

REF 

1 

4274 

SETLOC 

ENDBLFF 

2613  5 

REF 

A 

LAST 

469  TO 

471  : 

63  104* 

COUNT* 

$ $ / P I N 

R2614 

SETNCACR 

E CADR 

ARRIVES 

IN  A. 

IT  IS  STORED 

IN  NOUNCADR.  EBANK 

R2615 

ARE  SET 

. E ADRES  IS  DERIVED  AND  PUT  INTO 

NOUNADD. 

2616 

REF 

8 

LAST 

455 

4274 

55 ' 016 

0 SETNCADR 

TS 

NOUNCADR 

2617 

REF 

17 

LAST 

463 

4275 

54  003 

0 

TS 

EBANK 

2618 

REF 

2 

LAST 

202 

4276 

7 4350 

1 

MASK 

L0W8 

2619 

REF 

1 

4277 

6 5000 

1 

AD 

OCT  1400 

2620 

REF 

27 

LAST 

449 

4300 

54  145 

0 

TS 

NOUNADD 

262  1 

REF 

125 

LAST 

472 

4301 

0 0C02 

0 

TC 

0 

R2622 

R2623 

SETNADD 

GETS  E 
E ADRES 

CADR  FROM 
AND  PUTS 

NCUNCADR 
IT  INTO 

, SETS  EBANK 
NOUNADD. 

BITS,  DERIVES 

2624 

REF  9 

LAST 

475 

4302  3 

1016  1 

SETNADD  CA 

NOUNCADR 

2625 

REF  7 

LAST 

444 

4303  1 

4275  1 

TCF 

SETNCADR  +1 

R262  6 
R2627 

SETEBANK 

E CADR 
DERIVED 

ARRIVES  IN  A.  EBANK  BITS  ARE  SET. 
AND  LEFT  IN  A. 

E ADRES  IS 

2628 

REF 

18 

LAST 

475 

4304 

54  C03  0 SETEBANK 

TS 

EBANK 

2 62  9 

REF 

3 

LAST 

475 

4305 

7 4350  1 

MASK 

L0W8 

2630 

REF 

2 

LAST 

475 

4306 

6 5000  1 

AD 

0CTL400 

263  I 

REF 

126 

LAST 

475 

4307 

0 C 002  0 

TC 

Q 

2632 

4310 

00016 

0 

R 101 

OCT 

16 

263  3 

4311 

00C11 

1 

R2D1 

OCT 

1 1 

2634 

4312 

00CO4 

0 

R3D1 

OCT 

4 

2635 

REF 

3 

LAST 

243 

43  13 

54  020 

1 

R IGHT5 

TS 

CYR 

2636 

REF 

4 

LAST 

475 

4314 

4 0020 

1 

CS 

CYR 

263  7 

REF 

5 

LAST 

475 

4315 

4 0020 

1 

CS 

CYR 

263  8 

REF 

6 

LAST 

475 

4 316 

4 0020 

l 

CS 

CYR 

2639 

REF 

7 

LAST 

475 

4317 

4 0020 

1 

CS 

CYR 

2640 

REF 

8 

LAST 

475 

4320 

56  020 

0 

XCH 

CYR 

264  1 

REF 

127 

LAST 

415 

4321 

0 0002 

0 

TC 

Q 

2642 

REF 

12 

LAST 

458 

4322 

54  022 

0 

LEFT5 

TS 

CYL 

2643 

REF 

13 

LAST 

475 

4323 

4 0022 

0 

CS 

CYL 

2644 

REF 

14 

LAST 

475 

4324 

4 0022 

0 

CS 

CYL 

2645 

REF 

15 

LAST 

475 

4325 

4 0022 

0 

CS 

CYL 

2646 

REF 

16 

LAST 

475 

4326 

4 0022 

0 

CS 

CYL 
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USER'S  PAGE  NO.  74 


E4  S4 


B I TS 


STORE  ECADR 
SET  F BANK  BITS 

PUT  E ADRES  INTO  NOUNADD 


SET  EBANK  BITS 
E ADRES  LEFT  IN  A 

THESE  3 CONSTANTS  FORM  A PACKED  TABLE. 
DONT  SEPARATE. 


ASSEMBLE  REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161 


GAP: 


PINBALL 

GAME 

BUTTONS 

ANO  LIGHTS 

264  7 

REF 

17 

LAST 

475 

4327 

56 

022 

1 

XCH 

CYL 

2648 

REF 

128 

LAST 

475 

4330 

0 

0002 

0 

TC 

Q 

2649 

4331 

6 

0000 

1 SLEFT5 

DOUBLE 

2650 

4332 

6 

COOO 

1 

DOUBLE 

265  1 

4333 

6 

CCOO 

1 

DOUBLE 

2652 

4334 

6 

CCOO 

1 

DOUBLE 

2653 

4335 

6 

0000 

1 

DOUBLE 

2654 

REF 

129 

LAST 

476 

4336 

0 

0002 

0 

TC 

Q 

2 65  5 

4337 

00037 

0 

L0W5 

OCT 

37 

2656 

4340 

01740 

0 

MI  05 

OCT 

1 740 

2657 

4341 

76000 

0 

H I 5 

OCT 

76000 

2658 

REF 

10 

LAST 

472 

4342 

0 5063 

1 

TCNOVAC 

TC 

NOVAC 

2659 

REF 

17 

LAST 

453 

4343 

0 5205 

0 

T C WA  I T 

TC 

WAITLIST 

2660 

REF 

13 

LAST 

453 

4344 

0 5263 

0 

TCTSKOVR 

TC 

TASKOVER 

2661 

REF 

16 

LAST 

396 

4 345 

0 5076 

0 

TCF I NDVC 

TC 

F INDVAC 

2662 

4346 

30000 

1 

CHRPRIO 

OCT  30000 

2663 

4347 

03777 

0 

L0W1 1 

OCT  3777 

2664 

REF 

6 LAST  444  4347 

612-1 

EQUALS  L0W11 

2665 

4350 

00377 

1 

L0W8 

OCT  377 

2667 

4351 

00023 

0 

VD1 

OCT 

23 

2668 

4352 

00021 

l 

ND1 

OCT 

2 1 

2669 

4353 

00025 

0 

MD1 

OCT 

25 

2670 

4354 

00012 

1 

BINCON 

DEC 

10 

267  1 

REF 

21 

LAST 

417 

4355 

3 4736 

1 

F ALTON 

CA 

BIT7 

2672 

4356 

0 0006 

1 

EXTEND 

2673 

REF 

12 

LAST 

465 

4357 

05  Cll 

1 

WOR 

DSALMOUT 

2674 

REF 

130 

LAST 

476 

4360 

0 0002 

0 

TC 

Q 

2675 

REF 

22 

LAST 

4 76 

4361 

4 4736 

0 

F ALT  DF 

CS 

BIT7 

2676 

4362 

0 0006 

l 

EXTEND 

2677 

REF 

13 

LAST 

476 

4363 

03  Cll 

L 

WANO 

DSALMOUT 

2678 

REF 

131 

LAST 

476 

4364 

0 0002 

0 

TC 

Q 

2679 

REF 

23 

LAST 

461 

4365 

3 4740 

0 

RELDSPON 

CAF 

BIT5 

2680 

4366 

0 0006 

1 

EXTEND 

2681 

REF 

14 

LAST 

476 

4 36  7 

05  Cll 

1 

WOR 

DSALMOUT 

2682 

REF 

132 

LAST 

476 

43  70 

0 0002 

0 

TC 

Q 
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THESE  3 CONSTANTS  FORM  A PACKED  TABLE. 
DONT  SEPARATE. 

MUST  STAY  HERE 


EXEC  PRIORITY  OF  CHAR  IN 


THESE  3 CONSTANTS  FORM  A PACKED  TABLE. 
00 NT  SEPARATE. 


TURN  ON  OPERATOR  ERROR  LIGHT 
BIT  7 OF  CHANNEL  11 

TURN  OFF  OPERATOR  ERROR  LIGHT 
BIT  7 OF  CHANNEL  11 

TURN  ON  KEY  RELEASE  LIGHT 


BIT  5 OF  CHANNEL  ll 


GAP: 


ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  202U12-161 


L PINBALL  GAME  BUTTONS  AND  LIGHTS 


2683 

4371 

0 

0006 

I 

LODSAMPT  EXTENO 

2684 

REF  14 

LAST 

378 

4372 

3 

0025 

0 

OCA 

T I ME  2 

2685 

REF  5 

LAST 

328 

4373 

52 

014 

0 

DXCH 

S AMPT IME 

2686 

REF  133 

LAST 

476 

4374 

0 

CC02 

0 

TC 

0 

2687 

4375 

0 0006 

1 

TPSL1  EXTEND 

2688 

REF 

231 

LAST 

473 

4376 

3 0156 

0 

DC  A 

MPAC 

+ 1 

2689 

REF 

232 

LAST 

477 

4377 

20  156 

1 

DAS 

MPAC 

+ 1 

2690 

REF 

233 

LAST 

477 

4400 

6 C 154 

1 

AD 

MPAC 

269  1 

REF 

234 

LAST 

477 

440  1 

26  154 

0 

ADS 

MPAC 

2692 

4402 

54  007 

1 

TS 

7 

2693 

REF 

134 

LAST 

477 

4403 

0 0002 

0 

TC 

Q 

2694 

REF 

7 

LAST 

448 

4404 

54  162 

0 

TS 

MPAC+6 

2695 

REF 

135 

LAST 

477 

4405 

0 0002 

0 

TC 

Q 

2696 

IF  MPAC, 

+ 1 ARE 

EACH 

+NZ  OR  *0 

AMD  CIA) 

=-0,  SHORTMP  WRONGLY  GIVES 

R2697  IF  MPAC,  +1  ARE  EACH  -NZ  OR  -0  AND  C(A)=+0,  SHORTMP  WRONGLY  GIVES  +0. 
R2698  PR  SHRTMP  FIXES  FIRST  CASE  ONLY,  BY  MERELY  TESTING  CIA)  ANO  IF  IT  = -0 
R2699  SETTING  RESULT  TO  -0. 

R2700  (DO  NCT  USE  PR  SHRTMP  UNLESS  MPAC,  + 1 ARE  EACH  +NZ  OR  +0,  AS  THEY  ARE 
R2701  WHEN  THEY  CONTAIN  TH  E SF  CONSTANTS.) 


2702 

REF 

2 

LAST 

99 

4406 

54  135 

1 

PRSHRTMP  TS 

MPTEMP 

2703 

REF 

148 

LAST 

472 

4407 

10  000 

0 

CCS 

A 

2704 

REF 

3 

LAST 

477 

4410 

3 0135 

0 

CA 

MPTEMP 

2705 

REF 

7 

LAST 

456 

4411 

1 7331 

0 

TCF 

SHORTMP 

+ 1 

2706 

4412 

1 4410 

1 

TCF 

-2 

2707 

REF 

101 

LAST 

473 

4413 

4 4746 

1 

CS 

ZERO 

2708 

REF 

235 

LAST 

477 

4414 

54  154 

0 

TS 

MPAC 

2709 

REF 

236 

LAST 

477 

4415 

54  155 

1 

TS 

MPAC 

+ 1 

2710 

REF 

237 

LAST 

477 

4416 

54  156 

1 

TS 

MPAC 

+ 2 

271  1 

REF 

136 

LAST 

477 

4417 

0 0002 

0 

TC 

0 

2712 

2713 

REF 

33 

LAST 

338 

4420 

4421 

3 

0 

4737 

0006 

0 

1 

FLASHON  CAF 

EXTEND 

BIT6 

2714 

REF 

15 

LAST 

476 

4422 

05 

Oil 

1 

WOR 

DSALMOUT 

2715 

REF 

137 

LAST 

47  7 

4423 

0 

C002 

0 

TC 

Q 

2716 
271  7 

REF 

34 

LAST 

477 

4424 

4425 

4 4737 
0 0006 

1 

1 

FLASHOFF  CS 

EXTEND 

B IT6 

2718 

REF 

16 

LAST 

477 

4426 

03  Oil 

1 

WAND 

DSALMOUT 

2719 

REF 

138 

LAST 

477 

4427 

0 0002 

0 

TC 

Q 
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SHIFTS  MPAC,  +1,  +2  LEFT  1 

LEAVES  OVFIND  SET  TO  +/-  1 FOR  OF/UF 


TS  A DOES  NOT  CHANGE  A ON  OF/UF. 
NO  NET  OF/UF 

MPAC  +6  SET  TO  +/-1  FOR  OF/UF 


CIA)  +,  DO  RFGULAR  SHORTMP 

CIA)  +0,  DO  REGULAR  SHORTMP 

CIA)  -,  DO  REGULAR  SHORTMP 

CIA)  -0,  FORCE  RESULT  TO  -0  AND  RETURN. 


TURN  ON  V/N  FLASH 
BIT  6 OF  CHANNEL  11 


TURN  OFF  V/N  FLASH 


BIT  6 OF  CHANNEL  1 1 


GAP: 
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PAGE  478 


L 

P2720 

R272  1 
R2722 
R2723 
R2724 

R2725 
K 2 72  6 
R2727 
R2728 
R2729 
R2730 
R2731 


R2732 
R2733 
R 2 73  4 
R2735 
R2736 


R2  73  7 
R2738 
R2739 
R2740 
R2741 


R 2 74  2 
R2743 
R2744 


R2  745 


R2  74  6 
R2  74  7 
R 2 74  8 
R2  749 


R2750 
R2751 
R2752 
R2753 
K2  754 
R2755 


PINBALL  GAME  BUTTONS  AND  LIGHTS  USER'S  PAGE  NO.  77  E4  S4 

INTERNAL  USE  OF  KEYBOARD  AND  CISPLAY  PROGRAM 

USER  MUST  SCHEDULE  CALLS  TO  NVSUB  SO  THAT  THERE  IS  NO  CONFLICT  OF  USE  OR 
CONFUSION  TO  OPERATOR.  THE  OLD  GRABLOCK  ( I NT FRNA L / I NTE RN A L INTERLOCK) 

HAS  BEEN  REMOVED  AND  THE  INTERNAL  USER  NO  LONGER  HAS  THE  PROTECTION  THIS 
OFFERED. 

THERE  ARE  TWO  WAYS  A JOB  CAN  BE  PUT  TO  SLEEP  BY  THE  KEYBOARD  + DISPLAY 
PROGRAM.  1)  BY  ENDIDLE 
2)  BY  NVSU8USY 

THE  BASIC  CONVENTION  IS  THAT  ONLY  ONE  JOB  WILL  BE  PERMITTED  ASLEEP  VIA 
THE  KEYBOARD  + DISPLAY  PROGRAM  AT  A TIME.  IF  A JOB  ATTEMPTS  TO  GO  TO 
SLEEP  BY  MEANS  OF  (1)  OR  (2)  AND  THERE  IS  ALREADY  A JOB  ASLEEP  THAT  WAS 
PUT  TO  SLEEP  BY  (1)  OR  (2),  THEN  AN  ABORT  IS  CAUSED. 


THE  CALLING  SEQUENCE  FOR  NVSUB  IS 
CAE  V/N 

L TC  NVSUB 

Lfl  RETURN  HERE  IF  OPERATOR  HAS  INTERVENED 

L+2  RETURN  HERE  AFTER  EXECUTION 


A ROUTINE  CALLED  NVSUBUSY  IS  PROVIDED  (USE  IS  OPTIONAL)  TO  PUT 
YOUR  JCB  TO  SLEEP  "UNTIL  THE  OPERATOR  RELEASES  THE  KEYBOARD  *■  DISPLAY 
SYSTEM.  NVSUBUSY  ALSO  TURNS  ON  THE  KEY  RELEASE  LIGHT. 

NVSUBLSY  CANNOT  BE  CALLED  FROM  ERASABLE  OR  F/F  MEMORY, 

SINCE  JOBSLEEP  AND  JOBWAKE  CAN  HANDLE  ONLY  FIXED  BANKS. 


THE  CALLING  SEQUENCE  IS 
CAF  WAKEFCADR 

TC  NVSUBUSY 


NVSUBLSY  IS  INTENDED  FOR  USE  WHEN  AN  INTERNAL  PROGRAM  FINDS  THE  OPERATOR 
I'  u INI  THf  KEYBOARD  + DISPLAY  PROGRAM  l BY  HIS  OWN  INITIATION).  IT  IS 
NOT  INTENDED  FOR  USE  WHEN  ONE  INTERNAL  PROGRAM  FINDS  ANOTHER  INTERNAL 
PROGRAM  USING  THE  KEYBOARD  + DISPLAY  PROGRAM. 


NVSUBLSY  ABORTS  (WITH  CODE  01206)  IF  A SECOND  JOB  ATTEMPTS  TO  GO  TO 
SLEEP  IN  PINBALL.  IN  PARTICULAR,  IF  AN  ATTEMPT  IS  MADE  TO  GO  TO  NVSUBUSY 
WHEN 

t)  DSPLIST  NOT  = +0.  THIS  IS  THE  CASE  WHERE  THE  CAPACITY  OF  THE  DSPLIST 
IS  EXCEEDED. 

2)  CACRSTOR  NOT=  +0.  THIS  INDICATES  THAT  A JOB  IS  ALREADY  USING 


GAP: 
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L 

PINBALL 

GAME 

BUTTONS  AND  LIGHTS 

USER' S PAGE 

NO.  78 

E4 

S4 

R2756 

ENDIDLE. 

( +-NZ 

INDICATE  A JOB 

IS  ALREADY 

1 ASLEEP 

DUE  TO 

ENDIDLE. ) 

2 75  7 

REF 

1 

4430 

4 4435 

0 

PRENV8SY 

CS 

2 K+3 

SPECIAL  ENTRANCE 

FOR  ROUTINES 

IN 

FIXED 

2 75  8 

REF 

139 

LAST 

477 

4431 

6 0002 

0 

AD 

0 

BANKS 

ONLY  DFSIRING  THE  F CADR 

OFILOC 

2759 

REF 

2 

LAST 

470 

4432 

6 COO 4 

0 

AD 

FBANK 

FROM 

WHICH  THE  TC 

PRENVBSY  WAS 

DONE)  -2 

2760 

REF 

35 

LAST 

47  1 

4433 

0 4626 

1 

NVSUBUSY 

TC 

POSTJUMP 

TO  BE 

ENTERED . 

2 761 

REF 

1 

4434 

1C670 

1 

CADR 

NVSUBSY 1 

2762 

4435 

C2003 

0 

2 K+3 

OCT 

2003 

R27625 

NVSUBSY1 

MUST 

BE  IN 

BANK  27  OR  LOWER. 

, SO 

IT  WILL 

PUT  CALLER  TO  SLEEP 

R 276  2 6 

WI  TH 

HIS 

PROPER  SUPERBITS. 

2763 

REF 

1 

04,2670 

SETLOC 

ENDSPMM  +1 

27635 

REF 

2 

LAST 

472  TO 

473: 

9 

9* 

COUNT* 

$$/P IN 

2764 

REF 

62 

LAST 

473  ' 

04,2670 

54  001 

1 

NVSUBSY1 

TS 

L 

2769 

REF 

2 

LAST 

47C 

04, 2671 

0 4211 

l 

TC 

I SCAOR+O 

ABORT 

IF  CADRSTOR 

NOT  = +0. 

2770 

REF 

2 

LAST 

470 

04,2672 

0 4215 

0 

TC 

I SLI ST+O 

ABORT 

IF  0 SPL  1ST 

N0T=  +0. 

2 77  1 

REF 

3 

LAST 

454 

04,2673 

0 4365 

0 

TC 

RELDSPON 

2772 

REF 

63 

LAST 

479 

04,2674 

3 OC01 

0 

CA 

L 

2773 

REF 

3 

LAST 

470 

04,2675 

55' 042 

1 

TS 

DSPL  1ST 

2774 

REF 

3 

LAST 

470 

04, 2676 

0 5124 

0 

ENDNVBSY 

TC 

JOBSLEEP 

R2775 

NVSBWAIT  I S A 

SPECIAL 

ENTRANCE  FOR  ROUTINES  IN  FIXED  BANKS  ONLY. 

IF 

R2  776 

SYSTEM 

IS  NOT 

BUSY,  IT 

EXECUTES  V/N 

AND  RETURNS  TO  L+i 

I L=  LOC  FROM 

R2777 

WHICH  THE  TC  NVSBWAIT 

WAS  DONE).  IF 

SYSTEM  IS  BUSY,  IT 

PUTS  CALLING  JOB 

R2778 

TO 

SLFEP  WITH 

L— 1 GOING  INTO 

LIST  FOR  EVENTUAL  WAKING  UP  WHEN  SYSTEM 

R2779 

IS 

NOT 

BUSY. 

2780 

REF 

1 

4436 

SETLOC 

NVSUBUSY 

+ 3 

27805 

REF 

5 

LAST 

475  TO 

479: 

98  202*  COUNT* 

$ $/P  I N 

2781 

4436 

22  007 

0 NVSBWAIT  LXCH 

7 

ZERO  NVMONOPT  OPTIONS 

2782 

REF 

9 

LAST 

472 

4437 

54  123 

0 TS 

NVTEMP 

2783 

REF 

43 

LAST 

471 

4440 

3 4727 

1 CAF 

BIT14 

2783  l 

REF 

10 

LAST 

471 

4441 

7 1020 

0 MASK 

MONSAVE  1 

EXTERNAL  MONITOR  BIT 

27832 

REF 

8 

LAST 

471 

4442 

6 1011 

0 AD 

DSPLOCK 

2 7833 

REF 

149 

LAST 

477 

4443 

10  000 

0 CCS 

A 

27834 

REF 

1 

4444 

1 4446 

1 TC  F 

NVSBWT1 

BUSY 

2784 

REF 

1 

4445 

1 4155 

0 TCF 

NVSBCOM 

FREE.  NVSUB  WILL  SAVE  L+l  FOR  RETURN 

A2785 

AFTER  EXECUTION. 

2786 

REF 

140 

LAST 

479 

4446 

24  002 

0 NVSBWT1  INCR 

Q 

L+2.  PRFNVBSV  WILL  PUT  L- 1 INTO  LIST  AND 

2787 

REF 

1 

4447 

1 4430 

0 TCF 

PRENVBSY 

GO  TO  SLEEP. 

R2788 

RELDSP 

IS  USED 

BY  VBPROC , VBTERM,  VBRQEXEC,  VBRQWAIT,  VBRELDSP, 

EXTFNDED 

R2789 

VERS  DISPATCHER,  VBRESEO,  RELALTST. 

R2790 

RELDSPl 

IS  USED  BY  MCNITOR  SET  UP,  VBRELDSP. 

2 791 

REF 

14  1 

LAST 

479 

4450 

56  002 

0 RELDSP  XCH 

Q 

SET  DSPLOCK  TO  +0,  TURN  RELDSP  LIGHT 

2792 

REF 

1 

4451 

54  144 

1 TS 

RELRET 

OFF,  SEARCH  DSPL 1ST 

2792  l 

REF 

44 

LAST 

479 

4452 

4 4727 

0 CS 

BIT14 
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27922 

4453 

0 0004 

0 

INHINT 

27923 

REF 

ll 

LAST 

479 

4454 

7 1020 

0 

MASK 

MONSAVE l 

2 7924 

REF 

12 

LAST 

480 

4455 

55*020 

0 

TS 

MUNSAVE1 

2793 

REF 

4 

LAST 

479 

4456 

1 1 ' 042 

L 

CCS 

DSPL 1ST 

2794 

4457 

0 4461 

0 

TC 

+ 2 

2 79  5 

REF 

l 

4460 

0 4464 

0 

TC 

RELDSP2 

2 79  6 

REF 

102 

LAST 

477 

4461 

3 4746 

0 

CAF 

ZERO 

2 79  7 

REF 

5 

LAST 

480 

4462 

57 ' 042 

0 

XCH 

DSPLIST 

2799 

REF 

4 

LAST 

473 

4463 

0 5130 

0 

TC 

JOBWAKE 

2800 

4464 

0 CC03 

1 

RELDSP2 

RELINT 

2 801 

REF 

24 

LAST 

4 76 

4465 

4 4740 

1 

CS 

B I T5 

2802 

4466 

0 0006 

1 

EXTEND 

2 80  I 

REF 

17 

LAST 

477 

4467 

03  Oil 

1 

WAND 

D SALMOUT 

2804 

REF 

103 

LAST 

480 

4470 

3 4 746 

0 

CAF 

ZERO 

2 80  8 

KEF 

9 

LAST 

479 

4471 

55*011 

1 

TS 

DSPLOCK 

2 80  7 

REF 

2 

LAST 

479 

4472 

0 0144 

0 

TC 

RELRET 

2808 

REF 

142 

LAST 

479 

4473 

56  002 

0 

RELDSP1 

XCH 

Q 

2809 

REF 

3 

LAST 

480 

4474 

54  144 

1 

TS 

RELRET 

A2810 

A281 1 

2812 

REF 

6 

LAST 

480 

4475 

1 1 ' 042 

1 

CCS 

DSPLIST 

2813 

44  76 

0 4500 

0 

TC 

+ 2 

2814 

REF 

2 

LAST 

480 

4477 

0 4464 

0 

TC 

RELDSP2 

2815 

REF 

1C4 

LAST 

480 

4500 

3 4746 

0 

CAF 

ZERO 

2816 

REF 

10 

LAST 

480 

4501 

55*011 

1 

TS 

DSPLOCK 

281  7 

REF 

4 

LAST 

480 

4502 

0 0144 

0 

TC 

RELRET 

2818 

4503 

ENDP INBF 

EQUALS 
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TURN  OFF  EXTERNAL  MONITOR  BIT 


LIST  EMPTY 


TURN  OFF  KEY  RELEASE  LIGHT 
(BIT  5 OF  CHANNEL  1 1 ) 


SET  DSPLOCK  TO  +0.  NO  DSPLIST  SEARCH. 
TURN  KEY  RLSE  LIGHT  OFF  IF  DSPLIST  IS 
EMPTY.  LEAVE  KEY  RLSE  LIGHT  ALONF  IF 
DSPLIST  IS  NOT  EMPTY. 

+ NOT  EMPTY.  LEAVE  KEY  RLSF  LIGHT  ALONE 
+0  EMPTY.  TURN  OFF  KEY  RLSE  LIGHT 
- NOT  EMPTY.  LEAVE  KEY  RLSE  LIGHT  ALONE 


GAP: 
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P28I81 
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PINTEST  IS  NEEDED  FOR  AUTO  CHECK  OF  PINBALL. 


28182  REF 


2 LAST  275 


43,2002 


PINTEST  EQUALS  LST2FAN 
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P2819 

VBTSTLTS 

TURNS 

ON  ALL  DISPLAY 

PANEL 

LIGHTS.  AFTER  5 SEC 

, IT  TURNS 

R2820 

OFF 

TEE 

CAUTION  AND 

STATUS  LIGHTS. 

2 82  1 

REF 

1 

41,3662 

SETLOC 

ENDNVS8 1 +1 

2821  5 

REF 

8 

LAST 

467  TO 

469: 

61  930* 

COUNT  * 

tT/PIN 

2 82  2 

41,3662 

0 0004 

0 

VBTSTLTS 

INHINT 

28222 

REF 

100 

LAST 

46  2 

41,3663 

0 4607 

1 

TC 

8ANKCALL 

28224 

REF 

6 

LAST 

30  2 

41 , 3664 

66121 

0 

CADR 

CHKPOOH 

2823 

REF 

25 

LAST 

47  1 

41,3665 

4 4744 

0 

CS 

BIT1 

2824 

REF 

26 

LAST 

238 

41 , 3666 

7 1300 

1 

MASK 

I MODE  S33 

2825 

KEF 

26 

LAST 

482 

41,3667 

6 4744 

1 

AD 

B I T 1 

2826 

REF 

27 

LAST 

432 

41 , 3670 

55*300 

1 

TS 

I MODE  S33 

2827 

REF 

1 

41,3671 

3 3730 

0 

CAF 

TSTC0N1 

2828 

41,3672 

0 0006 

1 

EXTFNO 

2829 

REF 

18 

LAST 

480 

41,3673 

05  Oil 

1 

WOR 

D SALMOUT 

2830 

REF 

1 

41,3674 

3 3 731 

1 

CAF 

TSTC0N2 

2831 

REF 

34 

LAST 

468 

41,3675 

55' 035 

1 

TS 

DSPTAB  +11D 

2831  1 

REF 

1 

41 , 3676 

0 6040 

0 

TC 

C13ST ALL 

28  32 

REF 

19 

LAST 

43  1 

41,3677 

3 4733 

1 

CAF 

B I T 1 0 

2833 

41 ,3700 

0 0006 

1 

EXTEND 

2834 

REF 

5 

LAST 

23  1 

41,3701 

05  C 1 3 

0 

WOR 

C HAN  1 3 

2835 

REF 

6 

LAST 

432 

41,3702 

3 4354 

1 

CAF 

TEN 

2836 

REF 

l 

41,3703 

54  117 

1 

TSTLTS1 

TS 

ERCNT 

2837 

REF 

1 

41,3704 

4 3 726 

0 

CS 

FULLDSP 

2 83  8 

REF 

2 

LAST 

482 

41, 3705 

50  117 

0 

INDEX 

ERCNT 

2839 

REF 

35 

LAST 

482 

41,3706 

55*022 

1 

TS 

DSPTAB 

2840 

REF 

3 

LAST 

482 

41,3707 

10  117 

1 

CCS 

ERCNT 

2841 

REF 

1 

41,3710 

0 3703 

0 

TC 

TSTLTS1 

2842 

REF 

1 

41,3711 

4 3727 

1 

CS 

FULLDSP 1 

2 84  3 

REF 

36 

LAST 

482 

41,3712 

55' 023 

0 

TS 

DSPTAB  +1 

2 84  4 

REF 

37 

LAST 

482 

41,3713 

55 ' 026 

0 

TS 

DSPTAB  +4 

2845 

REF 

38 

LAST 

482 

41,3714 

55*030 

1 

TS 

DSPTAB  +6 

2846 

REF 

1 

41,3715 

3 4751 

0 

CAF 

ELEVEN 

2847 

REF 

9 

LAST 

468 

41,3716 

55*015 

0 

TS 

NOUT 

2848 

41,3717 

0 C003 

1 

RFL  INT 

2849 

REF 

1 

41,3720 

3 3733 

0 

CAF 

SHOLTS 

2850 

41,3721 

0 0C04 

0 

INHINT 

2851 

REF 

18 

LAST 

476 

41,3722 

0 5205 

0 

TC 

WAITLIST 

2852 

REF 

39 

LAST 

482 

1022 

E B A N K = 

DSPTAB 

2853 

REF 

1 

41,3723 

03641 

1 

2C  ADR 

TSTLTS2 

2853 

REF 

1 

41,3724 

60102 

1 

2854 

A2B55 

A2856 

REF 

63 

LAST 

4/3 

41,3725 

0 5146 

1 

TC 

ENDOF JOB 

2857 

41, 3726 

05675  0 

FULLDSP 

OCT 

05675 

2858 

41,3727 

C7675  1 

FULLDSP 1 

OCT 

07675 
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OPP  ERR  IF  NOT  IN  POO 

SET  BIT  1 OF  IM00ES33  SO  TMUMON  WONT 
TURN  OUT  ANY  LAMPS. 


TURN  ON  UPLINK  ACTIVITY,  TFMP,  KEY  RLSE, 
V/N  FLASH,  OPERATOR  ERROR. 

TURN  ON  NO  ATT,  GIMBAL  LOCK,  TRACKER, 
PROG  ALM. 

TURN  ON  TEST  ALARM  OUTBIT 


TURN  ON  3 PLUS  SIGNS 


DSPLOCK  IS  LEFT  BUSY  (FROM  KEYBOARD 
ACTION)  UNTIL  TSTLTS3  TO  INSURE  THAT 
LIGHTS  TEST  WILL  BE  SEEN. 


DISPLAY  ALL  8:S 
DISPLAY  ALL  8:S  AND  + 


GAP: 
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2859 

A2860 

A2861 

41,3730 

00175 

1 

TSTC0N1 

OCT 

00175 

UPLINK  ACTIVITY,  TEMP,  KEY  RLSE, 
V/N  FLASH,  OPERATOR  ERROR. 

2862 
A 2 862  1 
A2  863 

41,3731 

40677 

0 

T STC0N2 

OCT 

40677 

DSPTAB  + 1 1 D BITS  1 , 2 , 3 , 4 , 5 , 6 , 8 , 9 . 

DAP,  LP  , SUPER  KEYREL, 

NO  ATT,  GIMBAL  LOCK,  TRACKER,  PROG  ALM. 

2864 

A2865 

41,3732 

00115 

l 

TSTC0N3 

OCT 

00115 

CHAN  11  BITS  1,  3,  4,  7. 

UPLINK  ACTIVITY,  TEMP,  OPERATOR  ERROR. 

2866 

41,3733 

00  7 64 

1 

SHOLTS 

OCT 

7 64 

5 SEC 

28665 

REF 

3 

LAST 

4 L 0 

40,2000 

SETLOC 

P I NB ALL  1 

2 8666 

40,3641 

BANK 

2867 

REF 

4 

LAST 

47  2 

40,3641 

3 4346 

1 

TSTLTS2  CAF 

CHRPR 10 

CALLED  BY  WAITLIST 

2868 

REF 

11 

LAST 

4 76 

40,3642 

0 5063 

1 

TC 

NOVAC 

2869 

REF 

40 

LAST 

48'2 

1022 

EBANK= 

DSPTAB 

2870 

REF 

1 

40,3643 

03734 

1 

2C  ADR 

TSTLTS3 

2870 

REF 

1 

40,3644 

62102 

0 

2871 

REF 

14 

LAST 

476 

40 , 3645 

0 5263 

0 

TC 

TASKOVER 

287  15 

REF 

3 

LAST 

419 

41,2000 

SETLOC 

P INBALL2 

28716 

41,3734 

BANK 

2872 

REF 

1 

41,3734 

4 

3732 

0 

TSTLTS3  CS 

TSTC0N3 

CALLED  BY 

EXFCUTI VE 

2873 

41,3735 

0 

0004 

0 

INHINT 

2874 

41 ,3736 

0 

0006 

1 

EXTEND 

TURN  OFF 

UPLINK  ACTIVITY,  TEMP, 

2875 

REF 

19 

LAST 

482 

41,3737 

03 

Oil 

1 

WAND 

DSALMOUT 

OPERATOR 

ERROR. 

2875  1 

REF 

2 

LAST 

482 

41, 3740 

0 

6C40 

0 

TC 

C 13ST  ALL 

2876 

REF 

20 

LAST 

482 

41,3741 

4 

4733 

0 

CS 

BIT10 

TURN  OFF 

TEST  ALARM 

OUTBI T 

2877 

41,3742 

0 

0006 

1 

EXTEND 

2878 

REF 

6 

LAST 

482 

41,3743 

03 

C 1 3 

0 

WAND 

CHAN13 

28781 

REF 

24 

LAST 

344 

41,3744 

3 

4741 

1 

CAF 

B IT4 

MAKE  NO  ATT  FOLLOW 

BIT  4 OF  CHANNEL 

12 

28782 

41,3745 

0 

0006 

1 

EXTEND 

(NO  ATT 

LIGHT  ON 

IF  IN  COARSE  ALIGN) 

28783 

REF 

23 

LAST 

300 

41 ,3746 

02 

012 

0 

RAND 

CHAN  12 

2879 

REF 

29 

LAST 

469 

41,3747 

6 

4726 

0 

AD 

BIT  15 

TURN  OFF 

AUTO,  HOLD 

, FREE,  SPARE, 

2830 

REF 

41 

LAST 

483 

41,3750 

55 

1 C35 

1 

TS 

DSPTAB  + 1 1 D 

GIMBAL  LOCK,  SPARE, 

TRACKER,  PROG  ALM 

2881 

REF 

1 

41,3751 

4 

3 7 74 

1 

CS 

13-11,1 

SET  BITS 

TO  INDICATE  ALL  LAMPS  OUT. 

TEST 

2882 

REF 

28 

LAST 

482 

41,3752 

7 

1300 

1 

MASK 

I MDDES33 

LIGHTS  COMPLETE. 

2883 

REF 

3 

LAST 

234 

41,3753 

6 

5017 

1 

AD 

PRI016 

2884 

REF 

29 

LAST 

483 

41,3754 

55 

' 300 

1 

TS 

I MODES33 

2885 

REF 

1 

41,3755 

4 

3 776 

0 

CS 

0CT55000 

2886 

REF 

43 

LAST 

238 

41,3756 

7 

1277 

0 

MASK 

I M0DES30 

2887 

REF 

5 

LAST 

274 

41,3757 

6 

5 C 1 6 

0 

AD 

PRI015 

15000  . 

2880 

REF 

44 

LAST 

483 

41, 3760 

55 

'277 

0 

TS 

I MODE  S3  0 

2889 

REF 

1 

41,3761 

4 

3775 

0 

CS 

RFAI LS2 

2890 

REF 

28 

LAST 

43  1 

41,3762 

7 

C110 

0 

MASK 

R ADMODES 
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PINBALL 

GAME 

BUTTONS  AND 

289  1 

REF 

3 

LAST 

195 

41,3 

2892 

REF 

29 

LAST 

483 

41,3 

2893 

41,3 

2894 

REF 

1C1 

LAST 

482 

41,3 

2895 

REF 

1 

41,3 

2896 

RFF 

4 

LAST 

467 

41,3 

289  7 

REF 

5 

LAST 

468 

41,3 

2 89  8 

REF 

36 

LAST 

479 

41,3 

2899 

REF 

1 

41,3 

2901 

41,3 

2902 

41,3 

2903 

41,3 

2904 

41,3 

GHTS 


6 4736 

1 

AD 

RCDUFBIT 

54  110 

0 

TS 

RADMODES 

0 0003 

1 

RELINT 

0 4607 

1 

TC 

BANKCALL 

1C657 

1 

CADR 

DSPMM 

0 4175 

0 

TC 

KILMONON 

0 4424 

1 

TC 

F LASHOFF 

0 4626 

1 

TC 

POSTJUMP 

61527 

0 

CADR 

TSTLTS4 

16001 

1 

13-11  ,1 

OCT 

16001 

00330 

1 

RFAILS2 

OCT 

3 30 

55000 

1 

OCT55000 

OCT 

55000 

ENDP  I NS2 

EQUALS 

i L I' 

763 

764 

765 

766 

767 

770 

771 

772 

773 

774 

775 

776 

777 
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REDISPLAY  C(MOOREG) 

TURN  ON  KILL  MONITOR  BIT. 

TURN  OFF  V/N  FLASH. 

DOES  RELDSP  ANO  GOES  TO  PINBRNCH  IF 
ENOIDLE  IS  AWAITING  OPERATOR  RESPONSE. 

RADAR  CDU  AND  DATA  FAIL  FLAGS. 
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L PINBALL  GAME  BUTTONS  AND  LIGHTS  USER'S  PAGE  NO.  84  E4  SA 

P2905  ERROR  LIGHT  RESET  ( R SET  ) TURNS  OFF, 

R2906  UPLINK  ACTIVITY,  AUTO,  HOLD,  FREE,  OPERATOR  ERROR, 


R2907 

PROG  ALM,  THACKER 

FAIL. 

R2908 

LEAVES 

GIMBAL 

LOCK 

AND  NO  ATT 

ALONE . 

R2909 

I T 

ALSO 

ZEROES 

THE 

: TEST  ALARM:  CUT 

BIT: 

, WHICH 

TURNS  OFF  STBY, RESTART. 

R2910 

i r 

ALSO 

SETS  : 

CAUTION  RESET : 

TO  1 . 

R291  1 

IT 

ALSO 

FORCES 

BIT 

12  OF  ALL 

DSPTA8 

ENTRIES  TO 

1. 

2912 

REF 

A 

LAST 

483 

40,2000 

SETLOC 

P INBALL  1 

29122 

40,3646 

BANK 

29125 

REF 

1C 

LAST 

473 

TO  475: 

39  882* 

COUNT* 

t$/PIN 

2913 

REF 

3 

LAST 

465 

40,3646 

56  115 

1 

ERROR 

XCH 

21/22REG 

RESTORE  ORIGINAL  C(DSPLOCK).  THUS  ERROR 

291  A 

REF 

1 1 

LAST 

480 

40,3647 

55' Oil 

1 

TS 

DSPLOCK 

LIGHT  RF SET  LEAVES  DSPLOCK  UNCHANGED. 

2915 

40,3650 

0 CC04 

0 

INHINT 

■ L 

REF 

21 

LAST 

483 

40,3651 

3 4733 

1 

CAF 

B IT10 

TURN  ON  :C  AUT ION  RESET:  OUTBIT 

2917 

40,3652 

0 0006 

1 

EXTEND 

2918 

REF 

2C 

LAST 

483 

40,3653 

05  Cll 

1 

WOR 

DS ALMOUT 

BIT10  CHAN  11 

2919 

REF 

1 

40,3654 

3 3735 

0 

CAF 

GL , ETC . 

LEAVE  GIMBAL  LOCK,  NO  ATT,  DAPLITE, 

A29191 

£ SUPER  KFYRELEASE  LITES  INTACT 

2920 

REF 

A 2 

LAST 

483 

40,3655 

7 1035 

1 

MASK 

□SPTAB  + 1 1 D 

TURNING  OFF  AUTO,  HOL 0 , FREE, 

292  1 

REF 

30 

LAST 

483 

40,3656 

6 4 726 

0 

AD 

B I T 1 5 

PROG  ALARM,  AND  TRACKER. 

2922 

REF 

A3 

LAST 

485 

40,3657 

55' 035 

1 

TS 

DSPTAB  +110 

2923 

REF 

A 

LAST 

483 

40,3660 

4 5017 

0 

CS 

PRI016 

RESET  FAIL  BITS  WHICH  GENERATE  PROG 

292  A 

REF 

30 

LAST 

483 

40,3661 

7 1300 

1 

MASK 

I M0DES33 

ALARM  SO  THAT  IF  THE  FAILURE  STILL 

292  5 

REF 

5 

LAST 

485 

40,3662 

6 5017 

1 

AD 

PRI016 

EXISTS,  THE  ALARM  WILL  COME  RACK. 

2926 

REF 

31 

LAST 

485 

40,3663 

55*300 

1 

TS 

I MODE S33 

292  7 

REF 

22 

LAST 

485 

40,3664 

4 4 733 

0 

CS 

BIT10 

2928 

REF 

A5 

LAST 

48  3 

40,3665 

7 1277 

0 

MASK 

I MODE S30 

2929 

REF 

23 

LAST 

485 

40,3666 

6 4733 

1 

AD 

B IT  10 

2930 

REF 

A6 

LAST 

485 

40, 3667 

55*277 

0 

TS 

I M0DES30 

293  l 

REF 

1 

40,3670 

4 3 734 

0 

CS 

R F A I L S 

2932 

REF 

30 

LAST 

484 

40,3671 

7 0110 

0 

MASK 

R ADMODES 

293  3 

REF 

A 

LAST 

484 

40,3672 

6 4736 

1 

AD 

RCUUFBIT 

293  A 

REF 

31 

LAST 

435 

40,3673 

54  no 

0 

TS 

RADMODES 

293  A 1 

REF 

3 

LAST 

483 

40,3674 

0 6040 

0 

TC 

C 13ST  ALL 

2935 

REF 

2A 

LAST 

485 

40,3675 

4 4733 

0 

CS 

B I T 1 0 

TURN  OFF  : TES  T ALARM:  OUTBIT. 

2 93  6 

40,3676 

0 0006 

1 

EXTEND 

2937 

REF 

7 

LAST 

483 

40,3677 

03  C 1 3 

0 

WAND 

C HAN  1 3 

2938 

REF 

1 

40,3700 

4 3733 

1 

CS 

ERCON 

TURN  OFF  UPLINK  ACTIVITY, 

2939 

40,3701 

0 0006 

1 

EXTEND 

OPERATOR  ERROR. 

29A0 

REF 

21 

LAST 

485 

40,3702 

03  Cll 

1 

WAND 

DSALMOUT 

29AI 

REF 

2 

LAST 

456 

40,3703 

3 4354 

1 

TSTAB 

CAF 

B INCON 

(DEC  10) 

29A2 

REF 

A 

LAST 

482 

40,3704 

54  117 

1 

TS 

ERCNT 

ERCNT  = COUNT 

29A3 

40,3705 

0 0004 

0 

INHINT 

29AA 

REF 

5 

LAST 

495 

40,3706 

50  117 

0 

INDEX 

ERCNT 

29A5 

REF 

AA 

LAST 

485 

40,3707 

11 ' 022 

1 

CCS 

DSPTAB 

29A6 

REF 

59 

LAST 

473 

40,3710 

6 4 744 

1 

AD 

ONE 

GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021LL2-L61 

l PINBALL  GAME  BUTTONS  AMD  LIGHTS 


2947 

REF 

1 

40,3711 

0 3 716 

1 

TC 

ERPLUS 

2948 

REF 

60 

LAST 

485 

40,3712 

6 4744 

1 

AD 

ONE 

2949 

REF 

150 

LAST 

479 

40,3713 

4 0000 

0 

ERMI NUS 

CS 

A 

2950 

REF 

1 

40,3714 

7 3736 

1 

MASK 

N0TBIT12 

2951 

REF 

1 

40,3715 

0 3721 

0 

TC 

ERCOM 

2952 

REF 

151 

LAST 

486 

40,3716 

4 OCOO 

0 

ERPLUS 

CS 

A 

2953 

REF 

2 

LAST 

486 

40,3717 

7 3736 

1 

MASK 

N0TBIT12 

2954 

REF 

152 

LAST 

486 

40,3  720 

4 0000 

0 

CS 

A 

2955 

REF 

6 

LAST 

48  5 

40,3721 

50  117 

0 

ERCOM 

INDEX 

ERCNT 

2956 

REF 

45 

LAST 

485 

40,3722 

55 1 022 

1 

TS 

DSPTAB 

2957 

40,3723 

0 0003 

l 

REL  INT 

2958 

REF 

7 

LAST 

486 

40, 3724 

10  117 

1 

CCS 

ERCNT 

2959 

REF 

1 

40,3725 

C 3 704 

1 

TC 

TSTAB  +1 

REF 

105 

LAST 

480 

40,3726 

3 4746 

0 

CAF 

ZERO 

2961 

REF 

6 

LAST 

317 

40,3727 

54  375 

1 

TS 

FAILREG 

2961  1 

REF 

7 

LAST 

486 

, 40,3730 

54  376 

1 

TS 

FAILREG  +1 

2962 

REF 

2 

LAST 

112 

40, 3731 

55 ' 35  7 

0 

TS 

SFAIL 

2963 

REF 

64 

LAST 

48  2 

40,3732 

0 5146 

1 

TC 

ENDOF JOB 

2964 

40,3733 

00104 

1 

ERCON 

OCT 

104 

A296S 

2966 

40,3734 

00330 

1 

RFAI LS 

OCT 

330 

2966  5 

40,3735 

00053 

1 

GL , ETC . 

OCT 

00053 

296  7 

. 40,3736 

73777 

1 

N0TBIT12 

OCT 

73777 

2968 

40,3737 

ENDPINS1  EQUALS 

2969 

REF 

5 LAST  332 

30,2000 

SB A NK=  LOWSU 
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MIGHT  WANT  TO  RESET  CLPASS,  DECBRNCH, 
ETC. 


CHAN  11  BITS  3,7. 

UPLINK  ACTIVITY,  AND  OPERATOR  ERROR. 
RADAR  CDU  AND  DATA  FAIL  FLAGS. 

NO  ATT,  GIMB  LOCK,  OAPLITE,  SUPER  KR. 
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GAP: 

L 

R0100 

ROlOl 

R0102 

R0103 
R 0 1 0 4 

R0105 

R0106 

RO 107 

R0108 

R0109 

R0110 

RO  1 1 1 

R011  2 

K0113 

R0114 

R0115 

R0116 

R0117 

R0118 

R01 19 

R0120 

RO  12  1 

RO  12  2 

RO  12  3 

RO  124 

RO  12  5 
RO  12  6 

RO  12  7 
R0128 
RO  129 


ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
R60,R62 

MOD  NO:  0 DATE:  1 MAY  1968 

MOO  BY:  OIGITAL  DEVEL  GROUP  LOG  SECTION  R60.R62 
FUNCTIONAL  DESCRIPTION: 

CALLEC  AS  A GENERAL  SUBROUTINE  TO  MANEUVER  THE  LM  TO  A SPECIFIED 
ATTITUDE. 

1.  IF  THE  3-AXIS  FLAG  IS  NOT  SET  THE  FINAL  CDU  ANGLES  ARE 
CALCULATED  I VECPOINT ) . 

2.  THE  FDAI  BALL  ANGLES  (NOUN  18)  ARE  CALCULATED  (BALLANGS). 

3.  REGUEST  FLASHING  DISPLAY  V50  N18  PLEASE  PERFORM  AUTO  MANEUVER. 

4.  IF  PRIORITY  DISPLAY  FLAG  IS  SET  DO  A PHASECHANGE.  THEN  AWAIT 
ASTRONAUT  RESPONSE. 

5.  DISPLAY  RESPONSE  RETURNS: 

A.  ENTER  - RESET  3-AXIS  FLAG  AND  RETURN  TO  CLIENT. 

B.  TERMINATE  - IF  IN  POO  GO  TO  STEP  5A.  OTHERWISE  CHECK  IF  R61  IS 
THE  CALLING  PROGRAM.  IF  IN  R6 1 AN  EXIT  IS  MADE  TO  G0T0V56.  IF 
NOT  IN  R61  AN  EXIT  IS  DONE  VIA  GOTOPOOH. 

C.  PROCEED  - CONTINUE  WITH  PROGRAM  AT  STEP  6. 

6.  IF  THE  3-AX  I SF  LAG  IS  NOT  SET,  THE  FINAL  CDU  ANGLES  ARE  CALCULATED 
(VECPOINT ) . 

7.  THE  FDAI  BALL  ANGLES  ( NUUN  18)  ARE  CALCULATED  (BALLANGS). 

8.  IF  THE  G+N  SWITCH  IS  NOT  SET  GO  BACK  TO  STEP  3. 

9.  IF  THE  AUTO  SWITCH  IS  NOT  SET  GO  BACK  TU  STEP  3. 

10.  NCNFLASHING  DISPLAY  V06N18  (FDAI  ANGLES). 

11.  DC  A PHASECHANGE. 

12.  DO  A MANEUVER  CALCULATION  AND  ICDU  DRIVE  ROUTINE  TO  ACHIEVE  FINAL 

GIMBAL  ANGLES  I GOMANUK ) . 

13.  AT  END  OF  MANEUVER  GO  TO  STEP  3. 

IF  SATISFACTORY  MANEUVER  STEP  5A  EXITS  R60. 

FOR  FURTHER  ADJUSTMENT  OF  THE  VFHICLE  ATTITUDE  ABOUT  THE 
DESIRED  VECTOR,  THE  ROUTINE  MAY  eE  PERFORMED  AGAIN  STARTING  AT 


USE 
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EO  S? 


GAP:  ASSEMBLE  REVISION  210  CP  AGC  PROGRAM  LUMINARY  BY  NASA  202L1L2-161 

L R6C.P62 

R0130  STtP  5C . 


R0I31  CALLING  SEQUENCE:  TC  BANKCALL 

RO 132  C ADR  R60LEM 

R0133  ERASABLE  INITIALIZATION  REQUIRED  : SCAXIS,  PUINTVSM  IFOR  VECPOINT) 
R 0 1 3 4 3AXISFLG. 

R0L35  SUBROUTINES  CALLED:  VECPOINT,  eALLANGS,  G0PERF2R,  LINUS,  GODSPER, 
RO  13  6 GGMANUR,  DCWNFLAG,  PHASCHNG,  UPFLAG 

RO 13 7 NORMAL  EXIT  MODES:  CAE  TEMPR60  (CALLERS  RETURN  ADDRESS) 

RO  13  0 TC  BANK JUMP 

RO  13  9 ALARMS:  NONE 

RO  140  OUTPUT:  NONE 


R0141 

DEBR 

IS: 

CPHI  , 

CTHETA 

, CPSI,  3AX I SFLG i 

, TBASE2 

0142 

34,2000 

BANK 

34 

014  3 

REF 

1 

26,2000 

SETLOC 

MANUVER 

0144 

26,2125 

BANK 

0145 

REF 

1 

1163 

EbANK= 

TEMPR60 

0146 

REF 

1 

COUNT  * 

t$/R06 

0147 

REF 

2 

LAST 

283 

26,2125 

0 4636 

0 

R60LEM 

TC 

M AKECADR 

0148 

REF 

2 

LAST 

488 

26,2126 

55' 163 

0 

TS 

TEMPR60 

0149 

REF 

1 

26, 2127 

3 4737 

0 

REDQMANN 

CAF 

3 AX I SB  I T 

0150 

REF 

13 

LAST 

30  2 

26,2130 

7 C101 

0 

MASK 

F LAGWRD5 

015  1 

REF 

153 

LAST 

486 

26,2131 

10  000 

0 

CCS 

A 

0152 

REF 

1 

26,2132 

1 2140 

1 

TC  F 

TOBALL 

0153 

REF 

29 

LAST 

400 

26,2133 

0 6060 

1 

TC 

INTPRET 

0154 

26,2134 

77624 

1 

CALL 

0155 

REF 

2 

LAST 

352 

26,2135 

56040 

0 

VECPOINT 

0156 

REF 

5 

LAST 

381 

26,2 136 

0 C 3 22 

1 

STORE 

CPHI 

0157 

26,2137 

77776 

l 

EX  I T 

0157  1 

REF 

15 

LAST 

310 

26,2140 

0 5506 

1 

TOBALL 

TC 

UPFLAG 

015  12 

REF 

3 

LAST 

279 

26,2141 

00C13 

0 

ADRES 

NEEDLFLG 

115  7 

REF 

29 

LAST 

400 

26,2142 

0 5520 

0 

TC 

DOWNFLAG 

01574 

REF 

3 

LAST 

279 

26,2143 

00000 

1 

ADRES 

NEED2FLG 

0158 

REF 

102 

LAST 

434 

26,2144 

0 4607 

1 

TC 

RANKCALL 

01585 

REF 

2 

LAST 

352 

26,2145 

54300 

0 

CADR 

BALLANGS 

0159 

REF 

1 

26,2146 

3 2266 

1 

TOBALLA 

CAF 

V06NL8 

0160 

REF 

103 

LAST 

488 

26,2147 

0 4607 

1 

TC 

BANKCALL 
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EO  S? 


IS  3-AXIS  FLAG  SET 
YES 


TO  COMPUTE  FINAL  ANGLES 

STORE  FINAL  ANGLES  - C PHI , C THE T A , CP S I 


INSURE  THAT  TOTAL  ATTITUDE  ERRORS  ARE 
DISPLAYED  ON  FDA  I ERROR  NEEDLFS 


TO  CONVERT  ANGLES  TO  FDAI 
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0161 

REF 

1 

26,2150 

20722 

1 

CADR 

G0PERF2R 

016  2 

REF 

1 

26,2151 

0 2254 

0 

TC 

R61TEST 

0163 

REF 

1 

26,2152 

0 2162 

0 

TC 

REDOMANC 

0164 

REF 

1 

26,2153 

0 2207 

0 

TC 

ENDMANU1 

0165 

REF 

1 

26,2154 

0 2214 

1 

TC 

CHKLINUS 

0166 

REF 

65 

LAST 

486 

26,2155 

0 5146 

1 

TC 

ENDOF JOB 

01665 

REF 

16 

LAST 

457 

26,2156 

4 6266 

1 

CS 

THREE 

01666 

REF 

4 

LAST 

382 

26,2157 

6 C 133 

0 

AD 

BUF2 

01667 

REF 

1 

26,2160 

0 2221 

1 

TC 

CHKLINS1 

0 166  E 

REF 

66 

LAST 

489 

26,2161 

0 5146 

1 

TC 

ENDOF JOB 

0167 

REF 

2 

LAST 

488 

26,2162 

3 4737 

0 

REDOMANC 

CAF 

3 AX I SBI T 

0168 

REF 

14 

LAST 

488 

26,2163 

7 0101 

0 

MASK 

FLAGWRD5 

0169 

REF 

154 

LAST 

' 488 

26,2164 

10  000 

0 

CCS 

A 

0170 

REF 

1 

26,2165 

1 2173 

1 

TCF 

TOBALLC 

017  1 

REF 

30 

LAST 

488 

26,2166 

0 6060 

1 

TC 

I NTPRET 

0172 

26,2167 

77624 

1 

CALL 

0173 

REF 

3 

LAST 

48  8 

26,2170 

56040 

0 

VECPOINT 

0174 

REF 

6 

LAST 

488 

26,2171 

0C322 

1 

STORE 

C PH  I 

0175 

26,21 72 

77776 

1 

EX  I T 

0176 

REF 

1C4 

LAST 

"488 

26,2173 

0 4607 

1 

T OBA  L L C 

TC 

BANKCALL 

01765 

REF 

3 

LAST 

438 

26, 2174 

54300 

0 

CADR 

BALLANGS 

0177 

REF 

1 

26, 21 75 

0 2267 

0 

TC 

G+N, AUTO 

0178 

REF 

155 

LAST 

489 

26,2176 

10  COO 

0 

CCS 

A 

0179 

REF 

1 

26,2177 

1 2146 

1 

TCF 

TOBALLA 

0180 

REF 

2 

LAST 

489 

26,2200 

0 2214 

1 

AUTOMANV 

TC 

CHKLINUS 

0181 

REF 

1 

26,2201 

1 2204 

1 

TCF 

STARTMNV 

0182 

REF 

1 

26,2202 

3 22  13 

0 

CAF 

STRTMNAD 

0183 

REF 

1 

26,2203 

55' 054 

0 

TS 

TBASE2 

0184 

REF 

105 

LAST 

489 

26, 2204 

0 4607 

1 

STARTMNV 

TC 

BANKCALL 

0185 

REF 

1 

26,2205 

42764 

1 

CADR 

GOMANUR 

0186 

REF 

2 

LAST 

489 

26,2206 

1 2146 

1 

ENDMANUV 

TCF 

TOBALLA 

0187 

REF 

30 

LAST 

488 

26,2207 

0 5520 

0 

ENDMANU1 

TC 

DOWNFLAG 

0188 

REF 

3 

LAST 

352 

26,2210 

0 C 1 24 

0 

ADRES 

3AX1SFLG 

0189 

REF 

3 

LAST 

488 

26,2211 

31 ' 163 

1 

CAE 

TEMPR60 

0190 

REF 

6 

LAST 

46  0 

26,2212 

0 4631 

1 

TC 

B ANKJUMP 

01905 

REF 

2 

LAST 

489 

26,2213 

02204 

0 

STRTMNAD 

ADRES 

STARTMNV 

0191 

REF 

15 

LAST 

489 

26, 2214 

4 0101 

0 

CHKL INUS 

CS 

F LAGWRD5 

0192 

REF 

1 

26,2215 

7 4727 

0 

MASK 

PDSPFBI T 

0193 

REF 

156 

LAST 

489 

26,2216 

10  COO 

0 

CCS 

A 

0194 

REF 

143 

LAST 

480 

26,2217 

0 0002 

0 

TC 

0 

0195 

REF 

3 

LAST 

28  1 

26,2220 

1 6760 

l 

TCF 

Q + l 
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DISPLAY  PLEASE  PERFORM  AUTO  MANEUVER 
PROCEED 

ENTER  I.E.  FINISHED  WITH  R60 
TO  CHECK  FOR  PRIORITY  DISPLAYS 


SET  UP  RESTART  POINT  AT  BEGINNING  OF 
DISPLAY  IF  PRIORITY  DISP  FLAG  SET 


IS  3-AXIS  FLAG  SET 
YES 

TO  COMPUTE  FINAL  ANGLES 
STORE  ANGLES 


TO  CONVERT  ANGLES  TO  FDAI 
CHECK  AUTO  MODE 

NOT  AUTO,  GO  REREQUFST  AUTO  MANEUVER. 


RESTART  AT  STARTMNV  IF  PRIORITY 
DISPLAY  FLAG  SET 

PERFORM  MANEUVER  VIA  KALCMANU 


FINISHED  MANEUVER. 
RESET  3-AXIS  FLAG 


IS  PRIORITY  DISPLAY  FLAG  SET? 

NO  - EXIT 

GO  BACK  AND  SET  UP  CORRECT  RESTART  ADDR. 
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0196 

REF 

2 

LAST 

489 

26,2221 

55*  C54 

0 

CHKL I N SI 

TS 

TBASE2 

0197 

PEE 

144 

LAST 

489 

26,2222 

3 

0C02 

0 

CA 

Q 

0198 

REF 

238 

LAST 

477 

26,2223 

54  156 

1 

TS 

M P AC  +2 

0200 

REF 

3 

LAST 

30C 

26,2224 

0 

5355 

1 

TC 

P HASCHNG 

0201 

26,2225 

00132 

1 

OCT 

00132 

0202 

REF 

23 

LAST 

476 

26,2226 

3 

4736 

1 

CAF 

8 IT7 

0203 

REF 

1 

26,2227 

0 

5466 

0 

TC 

L INUS 

0204 

REF 

239 

LAST 

490 

26,2230 

0 

C 1 56 

0 

TC 

M P AC  +2 

0205 

REF 

2 

LAST 

380 

26, 2231 

3 

7 735 

1 

RELINUS 

CAF 

P R 1026 

0206 

REF 

6 

LAST 

31  1 

26, 2232 

0 

5137 

1 

TC 

PRIOCHNG 

0207 

REF 

4 

LAST 

300 

26,2233 

3 

4 740 

0 

CAF 

T RAC  KB  I T 

0208 

REF 

17 

LAST 

306 

, 26,2234 

7 

0075 

1 

MASK 

FLAGWRD1 

0209 

REF 

157 

LAST 

489 

26,2235 

10  COO 

0 

CCS 

A 

0210 

REF 

1 

26,2236 

1 

2251 

1 

TCF 

RER60 

021  1 

REF 

5 

LAST 

300 

26,2237 

3 

4736 

1 

CAF 

RNDVZBIT 

0212 

REF 

23 

LAST 

300 

26,2240 

7 

C C 74 

0 

MASK 

FLAGWRDO 

0213 

REF 

158 

LAST 

490 

26,2241 

10  OOO 

0 

CCS 

A 

0214 

26,2242 

0 

2246 

0 

TC 

+ 4 

0215 

REF 

4 

LAST 

490 

. 26,2243 

0 

5355 

1 

TC 

P HASCHNG 

0216 

26,2244 

40112 

1 

OCT 

40112 

0217 

REF 

67 

LAST 

489 

26, 2245 

0 

5 146 

1 

TC 

FNDOF JOB 

0218 

REF 

5 

LAST 

490 

26,2246 

0 

5355 

1 

TC 

phaschng 

0219 

26,2247 

40C72 

0 

OCT 

40072 

022  0 

REF 

68 

LAST 

490 

26,2250 

0 

5 146 

1 

TC 

ENDOF JOB 

022  l 

REF 

16 

LAST 

468 

26,2251 

0 

5506 

1 

RER60 

TC 

UPFLAG 

0222 

REF 

1 

26,2252 

OC  114 

0 

ADRES 

PDSPFLAG 

0223 

REF 

3 

LAST 

490 

26,2253 

C 

1054 

1 

TC 

TBASE2 

0224 

REF 

8 

LAST 

473 

26,2254 

3 

1010 

1 

R61TEST 

CA 

MODREG 

0225 

26,2255 

0 

0006 

1 

EXTEND 

0226 

REF 

2 

LAST 

489 

26,2256 

1 

2207 

1 

BZF 

ENDMANU1 

022  7 

KEF 

16 

LAST 

489 

26, 2257 

3 

C101 

1 

CA 

F LAGWRD5 

0228 

REF 

2 

LAST 

489 

26,2260 

7 

4727 

0 

MASK 

PDSPFBI T 

0229 

26,2261 

0 

0006 

1 

EXTEND 

0230 

REF 

3 

LAST 

256 

26,2262 

1 

6001 

1 

BZF 

GOTO POOH 

023  1 

REF 

1 

26,2263 

0 

6043 

0 

TC 

GOT  0V56 

0232 

26,2264 

20100 

1 

B I T 1 4 + 7 

OCT 

20100 

0233 

26,2265 

00203 

0 

0CT203 

OCT 

203 
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GO  SET  BITS  FOR  PRIORITY  DISPLAY 

RESTORE  ORIGINAL  PRIORITY 

DON'T  CONTINUE  R60  UNLESS  TRACKFLAG  ON. 


IS  IT  P20? 

YFS 

NO,  MUST  BE  P25,  SFT  2.11  SPOT 


SET  2.7  SPOT  FOR  P20 


SET  PRIO  DISPLAY  FLAG  AFTER  RESTART 

IF  WF  ARE  IN  POO  IT  MUST  BE  V49  OR  V89 
THUS  WE  GO  TO  ENDEXT  VIA  USER 


NO. 

YES 


GAP: 
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L 

R60.R62 

0234 

26,2266 

R0236 

SUBROUTINE  TO  CHECK 

R0237 

RETURNS 

WITH  CIA)  = 

R0238 

RETURNS 

WITH  Ct A ) = 

01422  1 V06NL8  VN  0618 

FOR  G+N  CONTROL.  AUTO  STABILIZATION 

+ IF  NOT  SET  FOR  G+N,  AUTO 
+0  IF  SWITCHES  ARE  SET 


0239 

26,2267 

0 

0006 

1 

G+N, AUTO 

EXTEND 

0240 

REF 

3 

LAST 

195 

26,2270 

00 

030 

1 

READ 

CHAN30 

024  1 

REF 

25 

LAST 

485 

26,2271 

7 

4 733 

0 

MASK 

8 I T1  0 

0242 

REF 

159 

LAST 

490 

26,2272 

10 

000 

0 

CCS 

A 

0243 

REF 

145 

LAST 

490 

26, 2273 

0 

CC02 

0 

TC 

Q 

0244 

26,2274 

0 

0006 

1 

I SITAUTO 

EXTEND 

0245 

REF 

2 

LAST 

293 

26,2275 

00 

C31 

0 

READ 

CHAN31 

0246 

REF 

45 

LAST 

479 

26,2276 

7 

4727 

0 

MASK 

B IT14 

024  7 

REF 

146 

LAST 

49  1 

26,2277 

0 

0002 

0 

TC 

Q 

17:11  MAR.  19,1071  LEMON A 1 0.156 


PAGE  491 


USER'S  PAGE  NO.  5 E2  S3 


NOT  IN  G+N  CIA)  = + 
CHECK  FOR  AUTO  MODE 


(+)  = NOT  IN  AUTO,  (+0)  = AOK 
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L R60.R62  USER'S  PAGE  NO.  6 F2  S3 

P0248  PROGRAM  DESCRIPTION  BALLANGS 

R0249  MOD  NO.  LOG  SECTION  R60.R62 

R0250  WRITTEN  BY  RAMA  M.AIYAWAR 
R0251  FUNCTIONAL  DESCRIPTION 

R0252  COMPUTES  LM  F D A I BALL  DISPLAY  ANGLES 
R0253  CALLING  SEQUENCE 

R0254  TC  BALLANGS 

R0255  NORMAL  EXIT  MODE 

R0256  TC  BALLEXIT  (SAVED  Q) 

R0257  ALARM  OR  EXIT  MODE  NIL 

R0258  SUBROUTINES  CALLED 

R0259  CO*TR*G 

R0260  ARCTAN 

R0261  INPUT 

R0262  CPHI ,CTHETA,CPSI  ARE  THE  ANGLES  CORRESPONDING  TO  AOG » AI G»  AMG.  THEY  ARE 
R0263  SP  ,2  S COMPLIMENT  SCALED  TO  HALF  REVOLUTION. 

R0264  OUTPUT 

R026  5 FDAI X , F DA  I Y , FO A I Z ARE  THE  REQUIRED  BALL  ANGLES  SCALED  TO  HALF  REVOLUTION 
R0266  SP  1 2 S COMPLIMENT. 

R0267  THESE  ANGLES  WILL  BE  DISPLAYED  AS  DEGREES  AND  HUNDREDTHS,  IN  THE  ORDER  ROLL,  PITCH,  YAW,  USING  NOUNS  18  8 19. 

R0269  ERASABLE  INITIALIZATION  REQUIRED 

R0270  CPHI ,CTHETA,CPSI  EACH  A SP  REGISTER 

R0271  DEBRIS 

R027  2 A, L*C»MP AC, SINCUU, CO SCDU,PUSHLIST, BALLEXIT 


R0273  NOMENCLATURE:  CPHI,  CTHFTA,  8 CPSI  REPRESENT  THE  OUTER,  INNER,  8 MIDDLE  GIMBAL  ANGLES,  RESPECTIVELY;  OR 

R027  5 EQUIVALENTLY,  CDUX,  CDUY , 8 CDUZ. 


R0276  NOTE:  ARCTAN  CHECKS  FOR  OVERFLOW  ANO  SHOULD  BE  ABLE  TO  HANDLE  ANY  SINGULARITIES. 


0278 

REF 

2 

LAST 

351 

26,2000 

0279 

26,2300 

0280 

REF 

1 

0281 

REF 

3 

LAST 

488 

26,2300 

0282 

REF 

1 

26,2301 

0283 

REF 

7 

LAST 

489 

26, 2302 

SETLOC  BAWLANGS 
BANK 

COUNT*  LS/BALL 

0 4636  0 BALLANGS  TC  MAKECADR 

55*337  0 TS  BALLEXIT 

3 C32 1 1 CA  CPHI 


Gap: 

L 

028  a 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0299 

0295 

0296 

0297 

029  8 

0299 

0300 

0301 

0302 

0303 

0309 

0305 

030  6 

030  7 

0308 

0309 

0310 

031  1 

0312 

0313 

0319 

031  5 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0329 

0325 

0326 

032  7 

0328 

0329 
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REF 

3 

LAST 

266 

26,2303 

59  771 

1 

TS 

CDUSPOT  +9 

REF 

2 

LAST 

381 

26,2309 

3 0322 

1 

CA 

C THE T A 

REF 

9 

LAST 

99  3 

26,2305 

59  765 

1 

TS 

COUSPOT 

REF 

3 

LAST 

381 

26,2306 

3 C323 

0 

CA 

CPSI 

REF 

10 

LAST 

99  3 

26,2307 

59  767 

0 

TS 

CDUSPOT  +2 

REF 

31 

LAST 

989 

26,2310 

0 6060 

1 

TC 

INTPRET 

26,2311 

95001 

1 

SETPD 

CALL 

26,2312 

00001 

0 

OD 

REF 

2 

LAST 

261 

26,2313 

97526 

c 

CD*TR*G 

26,2319 

91395 

0 

DLOAD 

DMP 

REF 

1 

26,2315 

0 C 792 

0 

S INCDUX 

SIN  ( OGA ) 

REF 

1 

26,2316 

00796 

1 

COSCDUZ 

COS  ( MGA ) 

26,2317 

57552 

1 

SL1 

DCOMP 

SCALE 

26,2320 

65336 

1 

ARCSIN 

PDDL 

YAW  = ARCS IN(-SXCZ)  INTO  0 PD 

REF 

1 

26,2321 

CC  790 

1 

S INCDUZ 

REF 

9 

LAST 

339 

26,2322 

19023 

0 

STOOL 

S INTH 

( S INTH  = 18D  IN  PD) 

REF 

2 

LAST 

993 

26,2323 

0 C 796 

1 

COSCDUZ 

26,2329 

72905 

0 

DMP 

S LI 

RESCALE 

REF 

1 

26,2325 

OC  750 

0 

COSCDUX 

REF 

9 

LAST 

339 

26,2326 

39  C 2 1 

0 

STCALL 

COSTH 

( COST  H=  16D  IN  PD) 

REF 

1 

26,2327 

26595 

1 

ARCTAN 

26, 2330 

91325 

0 

POOL 

DMP 

ROLL  = ARCTAN (SZ/CZCX ) INTO  2 PD 

REF 

2 

LAST 

993 

26,233  l 

0 C 790 

1 

S INCDUZ 

REF 

2 

LAST 

993 

26,2332 

00  792 

0 

S INCDUX 

26,2333 

91512 

1 

SL2 

PUSH 

SXSZ  INTO  9 PD 

26,2339 

65205 

0 

OMP 

PDDL 

SXSZCY  INTO  9 PD 

REF 

1 

26,2335 

OC  799 

0 

COSCDUY 

26,2336 

65205 

0 

DMP 

PDDL 

SXSZSY  INTO  6 PO 

REF 

1 

26,2337 

C C 736 

0 

S INCDUY 

REF 

2 

LAST 

993 

26,2390 

OC  750 

0 

COSCDUX 

26,2391 

72905 

0 

DMP 

S LI 

CXCY 

REF 

2 

LAST 

99  3 

26,2392 

00799 

0 

COSCDUY 

26,2393 

95925 

0 

DSU 

STADR 

PULL  UP  FROM  6 PD 

REF 

5 

LAST 

993 

26,2399 

63756 

0 

STOOL 

COSTH 

COSTH  = CXCY  - SXSZSY 

REF 

2 

LAST 

993 

26,2395 

OC  736 

0 

S INCDUY 

26,2396 

72905 

0 

DMP 

S LI 

REF 

3 

LAST 

993 

26,2397 

CC  750 

0 

COSCDUX 

CXSY 

26 , 2350 

95915 

0 

DAD 

STADR 

PULL  UP  FROM  9 PD 

REF 

5 

LAST 

993 

26,2351 

93759 

0 

STCALL 

S INTH 

SINTH  = CXSY  +■  SXSZCY 

REF 

2 

LAST 

993 

26,2352 

26595 

1 

ARCTAN 

RETURNS  WITH  D(MPAC)  = PITCH 

26, 2353 

55525 

0 

PDDL 

VDEF 

PITCH  INTO  2 PD,  ROLL  INTO  MPAC  FROM  2PD 

26,2359 

77639 

0 

RTB 

VDEF  MAKES  V(MPAC)  = ROLL,  PITCH,  YAW 

REF 

2 

LAST 

377 

26,2355 

21630 

1 

V 1ST02S 

REF 

2 

LAST 

317 

26,2356 

02336 

0 

STORE 

F DA  I X 

MODE  IS  TP 

26,2357 

77776 

1 

EXIT 

REF 

2 

LAST 

99  2 

26,2360 

3 1337 

l ENDBALL 

CA 

BALLEXIT 
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L 

03295 


R60.R62  USER'S  PAGE  NO.  8 E2  S3 

REF  7 LAST  489  26,2361  0 4631  l TC  BANK JUMP 
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P0330 


R0331 

R0333 

R0335 

R0337 

R0339 

R0341 

R0343 

R0345 

R0346 

R0348 

R0350 

R0352 

R0354 

R0356 

R0358 

R0360 

R0362 

R0364 

R0366 

R0368 

R0365 

R0370 

R0371 

R0372 

R0373 

R0374 

R0375 


R0376 

R0377 

R0378 

R0379 

R0380 

R0381 

R0382 

R0383 

R0384 


0385 

0336 


R 60, R 6 2 USER'S  PAGE  NO.  9 E2  S3 

PROGRAM  DESCRIPTION  - VECPOINT 


THIS  INTERPRETIVE  SUBROUTINE  MAY  BE  USED  TO  POINT  A SPACECRAFT  AXIS  IN  A DESIRED  DIRECTION.  THF  AXIS 
TO  BE  POINTED  MUST  APPEAR  AS  A HALF  UNIT  DOUBLE  PRECISION  VECTOR  IN  SUCCESSIVE  LOCATIONS  OF  ERASABLE  MEMORY 
BEGINNING  WITH  THE  LOCATION  CALLFD  SCAXIS.  THE  COMPONENTS  OF  THIS  VECTOR  ARE  GIVEN  IN  SPACECRAFT  COORDINATES. 
THF  DIRECTION  IN  WHICH  THIS  AXIS  IS  TO  BE  POINTED  MUST  APPEAR  AS  A HALF  UNIT  DOUBLE  PRECISION  VECTOR  IN 

SUCCESSIVE  LOCATIONS  OF  ERASABLE  MEMORY  BEGINNING  WITH  THE  ADDRESS  CALLED  POINTVSM.  THE  COMPONENTS  OF  THIS 

VECTOR  ARE  GIVEN  IN  STABLE  MEMBER  COORDINATES.  WITH  THIS  INFORMATION  VECPOINT  COMPUTES  A SET  OF  THREE  GIMBAL 
ANGLES  ( 2 S COMPLEMENT)  CORESPCNDING  TO  THE  CROSS-PRODUCT  ROTATION  BETWE  EN  SCAXIS  AND  POINTVSM  AND  STORES  THEM 
IN  T(MPAC)  BEFORE  RETURNING  TO  THE  CALLER. 

THIS  ROTATION,  HOWEVER,  MAY  BRING  THE  S/C  INTO  GIMBAL  LOCK.  WHEN  POINTING  A VECTOR  IN  THE  Y-Z  PLANE, 

THE  TRANSPONDER  AXIS,  OR  THE  AOT  FOR  THE  LEM,  THE  PROGRAM  WILL  CORRECT  THIS  PROBLEM  BY  ROTATING  THE  CROSS- 

PRODUCT  ATTITUDE  ABOUT  POINTVSM  EY  A FIXED  AMOUNT  SUFFICIENT  TO  ROTATE  THE  DESIRED  S/C  ATTITUDE  OUT  OF  GIMBAL 
LOCK.  IF  THF  AXIS  TO  BE  POINTED  IS  MORE  THAN  40.6  DEGREES  BUT  LESS  THAN  60.5  DEG  FROM  THE  +X  (OR-X)  AXIS, 

THE  ADDITIONAL  ROTATION  TO  AVCID  GIMAL  LOCK  IS  35  DEGREES.  IF  THE  AXIS  IS  MORE  THAN  60.5  DEGEES  FROM  +X  (OR  -X) 
THE  ADDITIONAL  ROTATION  IS  35  DEGREES.  THF  GIMBAL  ANGLES  CORRESPONDING  TO  THIS  ATTITUDE  ARE  THEN  COMPUTED  AND 
STORED  AS  2S  COMPLIMENT  ANGLES  IN  T(MPAC)  BEFORE  RETURNING  TO  THE  CALLER. 

WHEN  POINTING  THE  X-AXIS,  OR  THE  THRUST  VECTCR,  OR  ANY  VECTOR  WITHIN  40.6  DEG  OF  THE  X-AXIS,  VECPOINT 
CANNOT  CORRECT  FOR  A CROSS-PRODUCT  ROTATION  INTO  GIMBAL  LOCK.  IN  THIS  CASE  A PLATFORM  RFAL I GNMENT  WOULD  BE 
REQUIRED  TO  POINT  THE  VECTOR  IN  THE  DESIRED  DIRECTION.  AT  PRESENT  NO  INDICATION  IS  GIVEN  FOR  THIS  SITUATION 
EXCEPT  THAT  THE  FINAL  MIDDLE  GIMBAL  ANGLE  IN  MPAC  +2  IS  GREATER  THAN  59  DEGREES. 


CALL ING  SEQUENCE  - 

1)  LOAD  SCAXIS,  POINTVSM 

2)  CALL 

VECPOINT 


RETURNS  WITH 


1)  DESIRED  OUTER 

2)  DESIRED  INNER 

3)  DtSIRED  MIDDLE 


GIMBAL  ANGLE  IN  MPAC 
GIMBAL  ANGLE  IN  MPAC  +1 
GIMBAL  ANGLE  IN  MPAC  +2 


ERASABLES  USED  - 


1)  SCAXIS  6 

2)  POINTVSM  6 

3)  MIS  18 

4)  DEL  18 

5)  COF  6 

6)  VECQTEMP  1 

7)  ALL  OF  VAC  AREA  43 

TOTAL  99 


REF 


27,2000 

27,2032 


SETLOC  VECPT 
BANK 
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0387 

REF 

1 

COUNT* 

tS/VECPT 

0388 

REF 

LI 

LAST 

378 

E6, 1675 

EB ANK= 

BCDU 

0388C5 

27,2032 

40020 

1 

VECPNT1 

ST  Q 

BOV 

0388  1 

REF 

1 

27,2033 

03324 

1 

VECQTFMP 

038815 

REF 

1 

27,2034 

56035 

1 

VECPNT2 

0 3882 

27,2035 

52164 

0 

VECPNT2 

AXC  ,2 

GOTO 

038825 

REF 

11 

LAST 

377 

27,2036 

03245 

1 

MIS 

038865 

REF 

1 

27,2037 

56046 

0 

STORANG 

0389 

27,2040 

4C020 

1 

VECPOINT 

STQ 

BOV 

0390 

REF 

2 

LAST 

496 

27,2041 

03324 

1 

VECQTEMP 

0391 

REF 

1 

27,2042 

56043 

0 

VECLEAR 

0392 

27,2043 

47  164 

1 

VECLEAR 

AXC  ,2 

RTB 

0393 

REF 

12 

LAST 

496 

27,2044 

03245 

1 

MIS 

0394 

RFF 

2 

LAST 

363 

27,2045 

44403 

0 

READCUUK 

0395 

27, 2046 

34032 

1 

STOR ANG 

STCALL 

2 5D 

0396 

REF 

3 

LAST 

363 

27,2047 

444  10 

1 

CDUTODCM 

0397 

27,2050 

61375 

1 

VLOAD 

VXM 

0398 

REF 

5 

LAST 

351 

27,2051 

03773 

1 

POINTVSM 

0399 

REF 

13 

LAST 

496 

27,2052 

03246 

1 

MIS 

0400 

27,2053 

77656 

1 

UNIT 

0401 

27,2054 

00035 

1 

STORE 

280 

A 040  2 

040  3 

27,2055 

53435 

0 

VXV 

UNIT 

0404 

REF 

1? 

LAST 

352 

27,2056 

03765 

0 

SCAXIS 

040  5 

27,2057 

57400 

1 

BOV 

V COMP 

040  6 

RFF 

1 

27,2060 

56170 

1 

PICKAXI S 

040  7 

REF 

40 

LAST 

376 

27,2061 

17270 

1 

STOOL 

COF 

040  3 

27,2062 

00045 

0 

3 6D 

040  9 

27,2063 

5C025 

0 

DSU 

BMN 

0410 

REF 

1 

27,2064 

14423 

1 

DPB-14 

041  1 

REF 

2 

LAST 

49  6 

27,2065 

56170 

1 

P ICKAXI S 

0412 

27,2066 

50375 

0 

VLOAD 

DOT 

0413 

RFF 

13 

LAST 

496 

27,2067 

03  765 

0 

SCAX I S 

0414 

27,2070 

0CC35 

1 

2 8D 

0415 

27,2071 

65552 

0 

SL1 

ARCCOS 

0416 

27,2072 

77624 

1 

CCMPMATX 

CALL 

041  7 

REF 

2 

LAST 

376 

27,2073 

44527 

1 

DELCOMP 

0418 

27,2074 

75160 

1 

AXC,  l 

AXC, 2 

0419 

RFF 

14 

LAST 

496 

27,2075 

03245 

1 

MIS 

042  0 

REF 

11 

LAST 

377 

27,2076 

02221 

1 

KEL 

042  1 

27,2077 

77624 

1 

CALL 

042  2 

REF 

3 

LAST 

377 

27,2100 

4 4 3 L 2 

1 

MXM3 

0423 

27,2101 

51545 

l 

DLOAD 

ABS 

0424 

27,2102 

00C07 

0 

6 

042  5 

27,2103 

50025 

0 

DSU 

BMN 

0426 

REF 

1 

27,2104 

14410 

1 

S INGIMLC 

042  7 

REF 

1 

27,2105 

56160 

0 

F INDGIMB 
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THIS  ENTRY  USES  DESIRED  CDUS 

NOT  PRESENT-ENTER  WITH  CDUD'S  IN  MPAC 


SAVE  RETURN  ADDRESS 

AND  CLEAR  OVFIND 

READ  THE  PRESENT  CDU  ANGLES  AND 
STORE  THEM  IN  PD25,  26,  27 

S/C  AXES  TO  STABLE  MEMBER  AXES  (MIS) 

RESOLVE  THE  POINTING  DIRECTION  VF  INTO 
INITIAL  S/C  AXES  ( VF  = POINTVSM) 


PD  28  29  30  31  32  33 

TAKE  THE  CROSS  PRODUCT  VF  X VI 

WHERE  VI  = SCAXIS 


CHECK  MAGNITUDE 
OF  CROSS  PRODUCT 
VECTOR,  IF  LFSS 
THAN  8- 1 A ASSUME 
UNIT  OPERATION 

INVALID. 


NOW  COMPUTE  THE  TRANSFORMATION  FROM 
FINAL  S/C  AXES  TO  INITIAL  S/C  AXES  MF  I 

COMPUTE  THE  TRANSFORMATION  FROM  FINAL 
S/C  AXES  TO  STABLE  MEMBER  AXES 
MF  S = MIS  MF I 
(IN  PD  LIST ) 


MFS6  = S IN(CPSI  ) $2 

= SIN ( 59  DEGS  ) 

/CPSI/  LESS  THAN  59  DEGS 


1 2 


GAP:  ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L R 6C  » R 62 


A0428 


042  9 

27,2106 

51545 

1 

DLOAD 

ABS 

0430 

REF 

14 

LAST 

49  6 

27,2107 

03765 

0 

SCAXIS 

043  1 

27,2110 

51025 

1 

DSU 

BPL 

0432 

REF 

1 

27,2111 

14412 

0 

SINVEC1 

043  3 

REF 

2 

LAST 

496 

27,2112 

56160 

0 

F INDGIMB 

0434 

27,2113 

77775 

1 

VLOAD 

0435 

27,2114 

77626 

0 

STADR 

0436 

REF 

15 

LAST 

496 

27,2115 

50515 

0 

STOVL 

MIS  + 120 

043  7 

27,2116 

77626 

0 

STADR 

043  8 

REF 

16 

LAST 

49  7 

27,2117 

50523 

0 

STUVL 

MIS  +6 

0439 

27,2120 

77626 

0 

STADR 

044  0 

REF 

17 

LAST 

49  7 

27,2121 

50531 

0 

STOVL 

MIS 

0441 

REF 

18 

LAST 

497 

27,2122 

03254 

1 

MIS  +6 

0442 

27,2123 

57444 

1 

BPL 

VCOMP 

044  3 

REF 

1 

27,2  124 

56125 

1 

IGSAMEX 

0444 

27,2125 

50035 

1 

I GSAMEX 

VXV 

BMN 

044  5 

REF 

15 

LAST 

497 

27, 2126 

03765 

0 

SCAXIS 

044  6 

REF 

1 

27,2  127 

56  134 

1 

U = SC  A X I S 

A 044  7 

A0448 

0449 

27,2130 

57575 

1 

VLOAD 

VCOMP 

0450 

REF 

16 

LAST 

497 

• 27,2131 

03765 

0 

SCAXIS 

045  1 

REF 

41 

LAST 

496 

27,2132 

37270 

0 

STCALL 

COF 

0452 

REF 

1 

27,2133 

56137 

1 

CHEKAXIS 

0453 

27,2134 

77  775 

1 

U=  SCAXIS 

VLOAD 

0454 

REF 

17 

LAST 

497 

27,2135 

03765 

0 

SCAX  I S 

045  5 

REF 

42 

LAST 

497 

27,2136 

032  70 

1 

STORE 

COF 

045  6 

27,2137 

51545 

1 

CHEKAXIS 

DLOAD 

ABS 

045  7 

REF 

18 

LAST 

497 

27,2140 

03765 

0 

SCAXIS 

045  8 

27, 2141 

51025 

1 

DSU 

BPL 

0459 

REF 

1 

27,2142 

14414 

0 

S INVEC2 

0460 

REF 

1 

27, 2 143 

56147 

0 

P I CK  ANG 1 

0461 

27,2  144 

52145 

0 

DLOAD 

GOTO 

0462 

REF 

1 

27,2145 

14420 

1 

VECANG2 

0463 

REF 

1 

27,2146 

56151 

1 

COMPMFSN 

A 046  4 

046  5 

27,2147 

77745 

1 

PICK  ANG 1 

DLOAD 

0466 

REF 

1 

27,2150 

14416 

1 

VECANG1 

046  7 

27,2151 

77624 

1 

CCMPMFSN 

CALL 

046  8 

REF 

3 

LAST 

496 

27,2152 

44527 

1 

DELCOMP 

046  9 

27, 2153 

75160 

1 

AXC  ,1 

AXC,  2 

0470 

REF 

19 

LAST 

49  7 

27,2154 

03245 

1 

MIS 

0471 

REF 

12 

LAST 

49  6 

27,2155 

02221 

1 

KEL 

0472 

27,2156 

7 7 6 24 

1 

CALL 

0473 

A0474 

REF 

4 

LAST 

496 

27,2157 

44312 

1 

MXM3 
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I.E.  DESIRED  ATTITUDE  NOT  IN  GIMBAL  LOCK 

CHECK  TO  SEE  IF  WE  ARE  POINTING 
THE  THRUST  AXIS 

SIN  49.4  DEGS  $2 

IF  SO,  WE  ARF  TRYING  TO  POINT  IT  INTO 
GIMBAL  LOCK,  ABORT  COULD  GO  HERE 


STORE  MFS  (IN  PD  LIST)  IN  MIS 


INNER  GIMBAL  AXIS  IN  FINAL  S/C  AXES 
LOCATE  THE  IG  AXIS  DIRECTION  CLOSEST  TO 
FINAL  X S/C  AXIS 

FIND  THE  SHORTEST  WAY  OF  ROTATING  THE 
S/C  OUT  OF  GIMBAL  LOCK  BY  A ROTATION 
ABOUT  +-  SCAXIS,  I.E.  IF  (IG  ( SGN  MFS 3 ) 
X SCAXIS  . XF)  LFSS  THAN  0,  U = SCAXIS 
OTHERWISE  U = -SCAXIS 


ROTATE  ABOUT  -SCAXIS 


ROTATE  ABOUT  + SCAXIS 

SEE  IF  WF  ARE  POINTING  THE  AOT 

SIN  29.5  DEGS  $2 

IF  SO,  ROTATE  50  DEGS  ABOUT  +-  SCAXIS 
IF  NOT,  MUST  BE  POINTING  THE  TRANSPONDER 
OR  SOME  VECTOR  IN  THE  Y,  OR  Z PLANE 
IN  THIS  CASE  ROTATE  35  DEGS  TO  GET  OUT 
OF  GIMBAL  LOCK  (VECANG2  $360) 

= 50  DEGS  $ 360 

COMPUTE  THE  ROTATION  ABOUT  SCAXIS  TO 
BRING  MFS  OUT  OF  GIMBAL  LOCK 


COMPUTE  THE  NEW  TRANSFORMATION  FROM 
DESIRED  S/C  AXES  TO  STABLE  MEMBER  AXES 
WHICH  WILL  ALIGN  VI  WITH  VF  AND  AVOID 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


GAP: 

L R60 » R6 2 

A0475 


0476 

27, 2160 

45160 

1 

FINDGIMB 

AXC  , 1 

CALL 

0477 

27,2161 

00000 

1 

0 

04  7 8 

REF 

2 

LAST 

377 

27,2162 

44654 

0 

DCMTOCDU 

0479 

27,2163 

4 C 2 3 4 

0 

RTB 

SFTPD 

0480 

REF 

3 

LAST 

493 

27,2164 

21630 

1 

V 1ST02S 

0481 

27,2165 

CC001 

0 

n 

0482 

27,2166 

77650 

l 

GOTO 

0483 

REF 

3 

LAST 

496 

27,2167 

03324 

1 

VECQTEMP 

0484 

27,2170 

50375 

0 

P ICKAX  IS 

VLOAD 

DOT 

t 

27,2171 

00035 

1 

28D 

0486 

REF 

19 

LAST 

497 

27,2172 

03765 

0 

SCAXIS 

0487 

27, 2173 

72240 

1 

BMN 

T LOAD 

048  8 

REF 

1 

27,2174 

54362 

1 

ROT180 

0489 

27,2175 

C0032 

0 

25D 

0490 

27,2176 

77650 

1 

GOTO 

0491 

REF 

4 

LAST 

49  8 

27,2177 

03  324 

1 

VECQTEMP 

0492 

35,2000 

BANK 

35 

049  3 

REF 

1 

26,2000 

SETLOC 

MANUVER1 

0494 

26,236 2 

BANK 

0495 

26,2362 

47375 

0 

ROT  1 80 

VLOAD 

VXV 

0496 

REF 

20 

LAST 

497 

26,2363 

03254 

1 

MIS  +6 

0497 

REF 

1 

26,2364 

C6503 

1 

H IDPHALF 

049  8 

26,2365 

47256 

0 

UNIT 

VXV 

0499 

REF 

20 

LAST 

498 

26,2366 

03765 

0 

SCAXIS 

0500 

26, 2367 

4CC56 

0 

UNIT 

BOV 

0501 

REF 

1 

26,2370 

54404 

0 

P ICKX 

0502 

REF 

43 

LAST 

497 

26,2371 

17270 

1 

STODL 

COF 

0503 

26,2372 

OC  045 

0 

36D 

0504 

26,2373 

50025 

0 

DSU 

BMN 

0505 

REF 

2 

LAST 

496 

26,2374 

14423 

1 

DPB-14 

0506 

REF 

2 

LAST 

498 

26,2375 

54404 

0 

P ICKX 

0507 

26,2376 

77775 

1 

VLOAD 

0508 

REF 

44 

LAST 

498 

26,2377 

C3270 

1 

COF 

0509 

REF 

45 

LAST 

498 

26,2400 

17270 

1 

XPOT 

STODL 

COF 

0510 

REF 

2 

LAST 

498 

26,2401 

06503 

1 

HIDPHALF 

051  1 

26, 2402 

77650 

1 

GOTO 

0512 

REF 

1 

26,2403 

56072 

l 

COMPMATX 

151  1 

26,2404 

52175 

0 

P ICK  X 

VLOAD 

GOTO 

0514 

REF 

3 

LAST 

498 

26,2405 

06503 

1 

HIDPHALF 

0515 

REF 

1 

26,2406 

54400 

1 

XROT 

0516 

26, 2407 

15555 

0 

SINGIMLC 

2DEC 

.4285836003 

051  6 

26,2410 

35  172 

0 

051  7 

26,2411 

14113 

1 

SINVEC1 

2DEC 

.3796356537 

051  7 

26,2412 

36326 

0 

051  8 

26,2413 

07701 

0 

S INVEC2 

2DEC 

.2462117800 

0518 

26,2414 

35703 

0 

0519 

26,2415 

C4343 

1 

VECANG1 

2DEC 

. 1388883889 

0519 

26,2416 

21616 

0 
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GIMBAL  LOCK 

EXTRACT  THE  COMMANDED  COU  ANGLES  FROM 
THIS  MATRIX 

CONVERT  TO  2 : S COMPLEMENT 

RETURN  TO  CALLER 

IF  VF  X VI  = 0,  FIND  VF  . VI 


IF  VF  = VI,  COU  DESIRED  = PRESENT  CDU 
PRESENT  CDU  ANGLES 


IF  VF,  VI  ANTIPARALLEL,  108  DEG  ROTATION 
IS  REQUIRED.  Y STABLE  MEMBER  AXIS  IN 
INITIAL  S/C  AXES. 

FIND  Y(SM)  X XII) 

FIND  UNITIVI  X UNIT(YISM)  X XII))) 

I.E.  PICK  A VECTOR  IN  THE  PLANE  OF  XII), 
YISM)  PERPENDICULAR  TO  VI 

CHECK  MAGNITUDE 
OF  THIS  VECTOR. 

IF  LFSS  THAN  B-14, 

PICK  X-AXIS. 


PICK  THE  XAXIS  IN  THIS  CASE 


= S I N ( 59) 

$2 

= S I N ( 49.41 

$2 

= S I N 1 29.5) 

$2 

50  DEGREFS 


$360 
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0520 

26,2417 

03070 

0 

VECANG2 

2DEC 

.09722222222 

= 35  DEGREES 

$360 

0520 

26,2420 

34344 

0 

0521 

26,2421 

cccoo 

1 

1 B I TOP 

OCT 

0 

KEEP  THIS  BEFORE  DPBI-14) 

0522 

26,2422 

oocoi 

0 

OPB-14 

OCT 

00001 

0523 

26,2423 

00000 

1 

OCT 

00000 

GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021 L 12- 1. 61 

L R60.R62 

P052A  ROUTINE  FOR  INITIATING  AUTOMATIC  MANEUVER  VIA  KEYBOARD  IVA9) 


0525 

3A ,2000 

BANK 

3 A 

0526 

REF 

1 

23,2000 

SETLOC 

R 62 

0527 

23,2103 

BANK 

0528 

REF 

12 

LAST 

A9  6 

E6, 1675 

EBANK= 

BCDU 

0529 

REF 

1 

COUNT* 

$t/R62 

0530 

REF 

1 

23,2103 

R 620 I S P 

EQUALS 

R62FLASH 

053  1 

REF 

1 

23,2103 

3 

5001 

0 

R62FL ASH 

CAF 

V06N22 

0532 

REF 

1 06 

LAST 

A89 

23, 210A 

0 

A 6 07 

1 

TC 

BANKCALL 

053  3 

REF 

6 

LAST 

39  3 

23,2105 

20A71 

1 

CADR 

GOFLASH 

0 53  A 

REF 

29 

LAST 

389 

23,2106 

1 

5 A7A 

1 

TC  F 

ENDEXT 

0535 

REF 

1 

23,2 107 

1 

2 111 

0 

TCF 

GOMOVE 

0536 

REF 

2 

LAST 

500 

. 23, 2110 

1 

2 103 

0 

TCF 

R62FLASH 

A0537 

A0530 

0539 

REF 

17 

LAST 

A90 

23,2111 

0 

5 506 

1 

GOMOVE 

TC 

(JPFLAG 

05A0 

REF 

A 

LAST 

A89 

23, 2112 

0012A 

0 

ADRES 

3AXI SFLG 

05A  1 

REF 

1 C 7 

LAST 

500 

23,2113 

0 

A60  7 

1 

TC 

BANKCALL 

05A  2 

REF 

2 

LAST 

352 

• 23 , 2 1 1 A 

5 A 1 2 5 

0 

CADR 

R60LEM 

05A3 

REF 

30 

LAST 

500 

23,2115 

1 

5A7A 

1 

TCF 

ENDEXT 
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FLASH  V06N22  AND 
I C DU  ANGLES 

TERMINATE 

PROCEED 

ENTER 

ASTRONAUT  MAY  LOAD  NEW  ICDUS  AT  THIS 
POINT 

SET  FOR  3-AXIS  MANEUVER 


END  R 62 
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L S-BANC  ANTENNA  FOR  LM  USER'S  PAGE  NO.  1 EO  S3 

R2000  SUBROUTINE  NAME:  R05  - S-6AND  ANTENNA  FOR  LM 

R2001  MOUO  BY  T.  JAMES 

R2002  MODI  BY  P.  SHAKIR 

P.200  3 FUNCTIONAL  DESCRIPTION 

R200A  THE  S-BAND  ANTENNA  ROUTINE,  R05,  COMPUTES  AND  DISPLAYS  THE  PITCH  AND 

R2005  YAW  ANTENNA  GIMBAL  ANGLES  REQUIRED  TO  POINT  THE  LM  STEERABLE  ANTENNA 
R2006  TOWARO  THE  CENTER  CF  THE  EARTH.  THIS  ROUTINE  IS  SELECTED  BY  THE  ASTRO- 
R2U07  NAUT  VIA  DSKY  ENTRY  DURING  COASTING  FLIGHT  OR  WHEN  THE  LM  IS  ON  THE  MOON 

R2008  SURFACE.  THE  EARTH  OR  MOON  REFERENCE  COORDINATE  SYSTEM  IS  USED  DEPENDING 

R2009  ON  WHETHER  THE  LM  IS  ABOUT  TO  ENTER  OR  HAS  ALREADY  ENTERED  THE  MOON 

R2010  SPHERE  OF  INFLUENCE,  RESPECTIVELY.  CAN  BE  CALLED  ANY  TIME  EXCEPT  WHEN 

R2010L  ANOTHER  EXTENDED  VERB  IS  IN  USE.  DISPLAY  IS  MEANINGLESS  WITH  IMU  OFF. 

R201 1 TO  CALL  SUBROUTINE,  ASTRONAUT  KEYS  IN  V 64  E 

R2012  SUBROUTINES  CALLED- 

R201A  INTPRET 

R2015  LOADTIME 

R2016  LEMCONIC 

R2017  LUNPOS 

R2018  CCUTRIG 

R201 9 *SMNB* 

R2020  EANKCALL 

R2021  B50FF 

R2022  ENDOF JOB 

R2023  BLANKET 

R202A  RETURNS  WITH 

R2025  PITCH  ANGLE  IN  PITCHANG  REV.  BO 

R2026  YAW  ANGLE  IN  YAWANG  REV.  BO 

R2027  ERASABLES  USED 

R2028  PITCHANG 

R2029  YAWANG 

R2030  R LM 

R2031  VAC  AREA 


2032 

A1 ,3777 

BANK 

A1 

203  3 

REF 

A 

LAST 

299 

A2 , 2000 

SETLOC 

S BAND 

203  A 

A2.3617 

BANK 

2035 

REF 

2 

LAST 

235 

E7 , 1 A 7 1 

EBANK= 

WHOCARES 

2036 

REF 

2 

LAST 

A8  TO 

A9 : 

2 2*  COUNT* 

SS/R05 

2039 

REF 

32 

LAST 

A9  3 

A2.3617 

0 6060  1 SBANDANT  TC 

I NTPRET 

501 


GAP: 

L 

2040 

2041 

204  2 

2043 

2044 

2045 

2046 

2047 

2046 

2049 

2050 

205  1 

2052 

2053 

2054 

2055 

2056 

2057 

2058 

2059 

2060 

2061 

2062 

2063 

2064 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

207  8 

2079 

2080 

2081 

2082 

2083 

2084 

2085 

2086 

208  7 

2088 

2089 
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S-BAND  ANTENNA  FOR  LM 


17:11  MAR.  19,1971  LEM0NAID.156  PAGE  502 
USER' S PAGE  NO.  2 E7  S4 


42,3620 

47001 

0 

SETPD 

RTB 

42,3621 

0C001 

0 

OD 

REF 

6 

LAST 

392 

42 ,3622 

21603 

1 

LOADT IME 

PICK  UP  CURRENT  TIME 

REF 

6 

LAST 

351 

42,3623 

34041 

0 

STCALL 

TDEC1 

ADVANCE  INTEGRATION  TO  TIME  IN  TDEC 1 

REF 

2 

LAST 

351 

42,3624 

27136 

0 

LEMCONIC 

USING  CONIC  INTEGRATION 

42,3625 

46135 

1 

SLOAD 

BHIZ 

REF 

l 

42,3626 

00050 

1 

X 2 

X 2 =0  EARTH  SPHERE,  X2  =2  MOON  SPHERE 

REF 

1 

42,3627 

65645 

0 

C0NV4 

42,3630 

77775 

1 

VLOAO 

REF 

3 

LAST 

351 

42,3631 

00001 

0 

RATT 

REF 

1 

42,3632 

16176 

0 

STOOL 

R LM 

REF 

3 

LAST 

219 

42,3633 

00  C 1 5 

0 

TAT 

42,3634 

77624 

1 

C0NV3 

CALL 

REF 

1 

42,3635 

33646 

0 

LUNPOS 

UNIT  POSITION  VECTOR  FROM  EARTH  TO  MOON 

42,3636 

74375 

0 

VLOAO 

VXSC 

REF 

2 

LAST 

128 

42,3637 

02723 

0 

V MOON 

REF 

1 

42,3640 

24001 

0 

REMOIST 

MEAN  DISTANCE  FROM  EARTH  TO  MOON 

42,3641 

5 3 372 

1 

VSL  1 

VAD 

REF 

2 

LAST 

502 

42,3642 

02176 

0 

RLM 

42,3643 

77650 

1 

GOTO 

REF 

1 

42 ,3644 

65647 

1 

C0NV5 

42,3645 

7 7 775 

1 

C0NV4 

VLOAO 

REF 

4 

LAST 

502 

42,3646 

OCOOl 

0 

RATT 

UE  = -UNIT(RATT)  EARTH  SPHERE 

42,-3647 

53401 

1 

C0NV5 

SETPD 

UNIT 

UE  = -UN  IT ( (REM) (UEM)  + RL)  MOON  SPHFRE 

42,3650 

00001 

0 

00 

SET  PL  POINTER  TO  0 

42,3651 

45C76 

1 

VCOMP 

CALL 

REF 

l 

42,3652 

47522 

1 

CDUTR  IG 

COMPUTE  SINES  AND  COSINES  OF  CDU  ANGLES 

42, 3653 

76521 

0 

MX  V 

VSL  1 

TRANSFORM  REF.  COORDINATE  SYSTEM  TO 

REF 

9 

LAST 

35  1 

42,3654 

01  732 

0 

REFSMMAT 

STABLE  MEMBER  B- 1 X B-l  X B+l  = B- 1 

42,3655 

71206 

0 

PUSH 

OLOAO 

8D 

REF 

2 

LAST 

311 

42,3656 

06505 

1 

HI6ZER0S 

REF 

2 

LAST 

122 

42,3657 

02172 

1 

STORE 

P ITCHANG 

REF 

1 

42,3660 

26174 

1 

STOVL 

Y AWANG 

ZERO  OUT  ANGLES 

42,3661 

77624 

1 

CALL 

REF 

2 

LAST 

263 

42,3662 

47663 

1 

* SMNB  * 

REF 

3 

LAST 

502 

42,3663 

16176 

0 

STOOL 

RLM 

PRE-MULTIPLY  RLM  BY  ( NBSA  ) MATRIX(BO) 

REF 

4 

LAST 

502 

42,3664 

02200 

1 

RLM  +2 

42,3665 

45206 

1 

PUSH 

DSU 

REF 

5 

LAST 

502 

42,3666 

02176 

0 

RLM 

42,3667 

77605 

1 

DMP 

REF 

1 

42,3670 

21740 

1 

1 OVSQRT  2 

REF 

6 

LAST 

502 

42,3671 

16200 

1 

STOOL 

RLM  +2 

42,3672 

41215 

1 

OAO 

DMP 

REF 

7 

LAST 

502 

42,3673 

02176 

0 

RLM 

REF 

2 

LAST 

502 

42,3674 

21740 

1 

1 OVSQRT  2 

REF 

8 

LAST 

502 

42,3675 

26176 

0 

STOVL 

RLM 

R B-  1 

REF 

9 

LAST 

502 

42,3676 

02176 

0 

RLM 

42,3677 

63256 

0 

UNIT 

PDVL 

REF 

10 

LAST 

502 

42,3700 

02  176 

0 

RLM 

42,3701 

72431 

1 

VPROJ 

V SL2 

PROJECTION  OF  R ONTO  LM  XZ  PLANE 

GAP: 
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L S-8ANC  ANTENNA  FOR  LM 


2090 

REF 

1 

42,3702 

06501 

0 

H I UN  I T Y 

2091 

42, 3703 

40045 

1 

BVSU 

BOV 

2092 

REF 

11 

LAST 

502 

42,3704 

02176 

0 

RLM 

2093 

REF 

1 

42, 3705 

65706 

0 

COVCNV 

2094 

42 ,3  706 

40056 

0 

COVCNV 

UNIT 

BOV 

2095 

REF 

1 

42,3707 

65754 

1 

SBANDEX 

2096 

42,3710 

47206 

0 

PUSH 

VXV 

209  7 

REF 

1 

42,3711 

06477 

0 

HIUNITZ 

209  B 

42,3712 

57572 

0 

VSL  1 

VCOMP 

2099 

REF 

12 

LAST 

50  3 

42,3713 

02176 

0 

STORE 

R LM 

2100 

42,3714 

63241 

0 

DOT 

PDVL 

2101 

REF 

2 

LAST 

503 

42,3715 

06501 

0 

HIUNITY 

2102 

REF 

13 

LAST 

503 

42,3716 

02176 

0 

RLM 

2103 

42,3717 

75246 

0 

ABVAL 

S IGN 

2104 

42,3720 

77736 

0 

ASIN 

2105 

REF 

3 

LAST 

502 

42,3721 

26172 

1 

STOVL 

P ITCHANG 

2106 

REF 

1 

42,3  722 

00007 

0 

URP 

2107 

42,3723 

51C41 

0 

DOT 

B PL 

2108 

REF 

2 

LAST 

503 

42,3724 

06477 

0 

HIUNITZ 

2109 

REF 

l 

42,3725 

65732 

1 

NOADJUST 

2110 

42,3726 

45345 

1 

DLOAO 

DSU 

2111 

REF 

4 

LAST 

498 

42,3727 

C6503 

1 

H IDPHALF 

2112 

REF 

4 

LAST 

503 

42,3730 

02172 

1 

P ITCHANG 

2113 

REF 

5 

LAST 

503 

42,3731 

02172 

1 

STORE 

PITCHANG 

2114 

42,3732 

47375 

0 

NOADJUST 

VLOAD 

VXV 

2115 

REF 

1 

42,3733 

00001 

0 

UR 

2116 

REF 

2 

LAST 

503 

42,3734 

00007 

0 

URP 

2117 

42,3735 

77772 

0 

VSH 

2118 

REF 

14 

LAST 

503 

42, 3736 

16176 

0 

STOOL 

RLM 

2119 

REF 

6 

LAST 

503 

42,3737 

02172 

1 

PITCHANG 

2120 

42,3740 

74356 

l 

SIN 

VXSC 

212  1 

REF 

3 

LAST 

503 

42,3741 

06477 

0 

HIUNITZ 

2122 

42,3742 

71525 

0 

PDDL 

COS 

2123 

REF 

7 

LAST 

503 

42,3743 

02  172 

1 

PITCHANG 

2124 

42,3744 

52361 

1 

VXSC 

VSU 

2125 

REF 

l 

42,3745 

06503 

1 

HIUNITX 

2126 

42,3746 

63241 

0 

DOT 

PDVL 

212  7 

REF 

15 

LAST 

50  3 

42,3747 

02176 

0 

RLM 

2128 

REF 

16 

LAST 

50  3 

42,3750 

02176 

0 

RLM 

2129 

42,3751 

75246 

0 

ABVAL 

SIGN 

2130 

42,3752 

7 7736 

0 

ASIN 

213  1 

REF 

2 

LAST 

502 

42,3753 

02  174 

1 

S TO  R F 

YAWANG 

2132 

42,3754 

77776 

1 

SeANDEX 

EX  IT 

2133 

REF 

8 

LAST 

312 

42,3755 

3 1043 

1 

CA 

E XTVB ACT 

2134 

REF 

25 

LAST 

480 

42,3756 

7 4 740 

1 

MASK 

BIT5 

2135 

42,3757 

C CC06 

1 

EXTEND 

2136 

REF 

31 

LAST 

50  0 

42,3760 

1 5474 

1 

BZF 

ENDEXT 

21362 

REF 

4 

LAST 

311 

42,3761 

3 5010 

0 

CAF 

PR  105 

21364 

REF 

7 

LAST 

49  0 

42,3762 

0 5137 

1 

TC 

PRIOCHNG 

2137 

REF 

1 

42,3763 

3 3776 

1 

CAF 

V06N51 
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USER'S  PAGE  NO.  3 E7  S4 

CLEAR  OVERFLOW  INDICATOR  IF  ON 

EXIT  ON  OVERFLOW 

UR P VECTOR  B— 1 

UZ  X URP  = -( URP  X UZ ) 

X VEC  B— 1 
SGNIX.UY)  UNSCALEO 

ASINI  (SGN(X.UY)  IABV1X)  ) RFV  BO 


YES,  -90  TO  +90 


Z = I UR  X URP ) 
Z VEC  B-l 


(UX  COS  ALPHA)  - (UZ  SIN  ALPHA) 
YAW.  Z 


IS  BITS  STILL  ON 
NO 


DISPLAY  ANGLES 


i 
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2138 

REF 

1C  8 

LAST 

500 

42,3764 

0 4607 

1 

TC  BANKCALL 

2139 

REF 

6 

LAST 

311 

42,3765 

20345 

1 

CADR  GOMARKFR 

2140 

REF 

4 

LAST 

311 

42, 3766 

0 5565 

1 

TC  B50FF 

214  1 

REF 

5 

LAST 

50  4 

42, 3767 

0 5565 

1 

TC  B50FF 

2142 

REF 

69 

LAST 

490 

42, 3770 

0 5146 

1 

TC  ENDOF JOB 

2143 

REF 

26 

LAST 

472 

42,3771 

3 4 742 

1 

CAF  BIT3 

2144 

REF 

11 

LAST 

311 

42,3772 

0 5466 

0 

TC  BLANKET 

2145 

REF 

4 

LAST 

31  1 

42, 3773 

3 4 731 

0 

CAF  PRI04 

2146 

REF 

8 

LAST 

503 

42, 3774 

0 5 137 

1 

TC  PRIOCHNG 

2148 

REF 

2 

LAST 

292 

42,3775 

0 3617 

1 

TC  SBANDANT 

2150 

42,3776 

01463 

L 

V06N51 

VN  0651 

A21504 

21505 

REF 

1 

40,2000 

SETLOC  SBAN040 

21506 

40,3737 

BANK 

2151 

40,3737 

26501 

1 

1 OVSORT  2 

2DEC  .70710671 

2151 

40  ,,3  740 

07463 

1 

A215 l 5 

2152 

0000 

UR 

EQUALS  00 

2153 

0006 

URP 

EQUALS  60 

2154 

REF 

6 

LAST 

486 

30,2000 

SB ANK=  LOWSUPER 

***  END  OF  LEMCNAI0.156  *** 


I" 
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USER'S  PAGE  NO.  4 E7  S4 


TERMINATE 

PROCEED 

RECYCLE 

IMMEDIATE  RETURN 
BLANK  R3 


YES,  CONTINUE  DISPLAYING  ANGLES. 


1/SQRTI2) 


GAP: 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L 

RACAR  LEAOIN 

ROUT  INES 

0001 

15,2162 

BANK 

15 

0002 

REF 

l 

15,2000 

SETLOC 

R RLE ADI N 

000  3 

15,2162 

BANK 

0004 

REF 

7 

LAST 

328 

E4, 1571 

EBANK= 

RSTACK 

R0005 

RADAR  SAMPLING  LOOP 

0006 

REF 

1 

COUNT  * 

$ $/RL  EAD 

0007 

REF 

8 

LAST 

291 

15,2162 

11*770 

1 

RADSAMP 

CCS 

RSAMPDT 

0008 

15,2163 

1 2165 

0 

TCF 

+ 2 

0009 

REF 

15 

LAST 

483 

15,2164 

1 5263 

1 

TCF 

TASKOVER 

0010 

REF 

5 

LAST 

396 

15, 2165 

0 5175 

1 

TC 

TWIDDLE 

0012 

REF 

2 

LAST 

289 

15,2166 

02162 

0 

ADRES 

RADSAMP 

0013 

REF 

1 

15,2167 

3 7734 

0 

CAF 

PR  1025 

0014 

REF 

12 

LAST 

483 

15,2170 

0 5063 

1 

TC 

NOVAC 

001  5 

REF 

8 

LAST 

505 

E4, 1 571 

EBANK= 

RSTACK 

0016 

REF 

1 

15,2171 

02003 

0 

2CADR 

DORSAMP 

0016 

REF 

1 

15,2172 

5 20  64 

1 

0017 

REF 

46 

LAST 

49  1 

15,2173 

3 4727 

1 

CAF 

B I T 14 

0018 

15,2174 

0 0 006 

1 

EXTEND 

0019 

REF 

3 

LAST 

290 

15,2175 

7 1767 

I 

MP 

RTSTLOC 

0020 

REF 

4 

LAST 

291 

15,2176 

6 1766 

1 

AD 

RTSTBASE 

0021 

REF 

4 

LAST 

290 

15,2177 

55 ' 764 

1 

TS 

RTSTDEX 

0022 

REF 

16 

LAST 

505 

15, 2200 

1 5263 

l 

TCF 

TASKOVER 

00222 

25,2003 

BANK 

25 

00223 

REF 

1 

25,2000 

SETLOC 

DRSAMP 

002  2 4 

25,2003 

BANK 

002  2 5 

REF 

9 

LAST 

505 

E4, 1571 

EBANK= 

RSTACK 

10023 

DO  THE  ACTUAL 

RADAR 

SAMPLE. 

0024 

REF 

1 

25,2003 

0 2040 

1 

DORS  AMP 

TC 

VAPADAR 

0025 

REF 

109 

LAST 

504 

25,2004 

0 4607 

1 

TC 

BANKCALL 

0026 

REF 

3 

LAST 

283 

25,2005 

17733 

0 

CADR 

R ADSTALL 

002  7 

REF 

2 

LAST 

288 

25,2006 

25' 566 

c 

INCR 

RFAI LCNT 

0028 

25,2007 

0 0004 

0 

DORS AMP2 

INHINT 

00281 

REF 

17 

LAST 

490 

25,2010 

3 0101 

1 

CA 

FLAGWRD5 

00282 

REF 

3 

LAST 

292 

25,2011 

7 4 732 

1 

MASK 

R77FLBI T 

00283 

REF 

160 

LAST 

49  1 

25,2012 

10  000 

0 

CCS 

A 

00284 

REF 

l 

25,2013 

1 2030 

1 

TCF 

R77IN 

0029 

REF 

2 

LAST 

106 

25,2014 

53 ' 101 

1 

DXCH 

SAMPLSUM 

003  0 

REF 

4 

LAST 

505 

25,2015 

51 ' 767 

0 

INDEX 

RTSTLOC 

003  1 

REF 

10 

LAST 

505 

25,2016 

53' 572 

1 

DXCH 

RSTACK 
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USER'S  PAGE  NO. 


EO  S? 


TIMES  NORMAL  ONCE-PER-SECOND  SAMPLING. 
+0  INSERTED  MANUALLY  TERMINATES  TEST. 


FOR  CYCLIC  SAMPLING,  RTSTOEX  = 
RTSTLOC/2  + RTSTBASE 

0 FOR  RR , 2 FOR  LR. 


SELECTS  VARIABLE  RADAR  CHANNEL. 


ADVANCE  FAIL  COUNTER  RUT  ACCEPT  BAD  DATA 


DON'T  UPDATE  RSTACK  IF  IN  R77 
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L 

RADAR 

LEAOIN  ROUTINES 

0031  1 

REF 

32 

LAST 

485 

25,2017 

3 0110 

1 

CA 

R ADMODES 

003  1 2 

25,2020 

0 C006 

1 

EXTEND 

00313 

KEF 

7 

LAST 

43  1 

25,2021 

06  033 

1 

RXGR 

CHAN33 

0 U 3 1 A 

REF 

35 

LAST 

477 

25,2022 

7 4737 

1 

MASK 

B IT6 

00315 

25,2023 

0 C006 

1 

EXTEND 

00316 

REF 

2 

LAST 

505 

25,2024 

1 2030 

1 

BZF 

R77IN 

0031  7 

REF 

18 

LAST 

400 

25,2025 

0 5571 

1 

TC 

ALARM 

003  18 

25,2026 

0C522 

1 

OCT 

522 

003  1 5 

REF 

3 

LAST 

505 

25,2027 

2 5 ' 566 

0 

INCR 

RFAILCNT 

0038 

REF 

5 

LAST 

505 

25,2030 

4 1767 

1 

R 771  N 

cs 

RTSTLOC 

0039 

REF 

2 

LAST 

289 

25,2031 

6 1765 

1 

AD 

RTSTMAX 

004  0 

25,2032 

0 0006 

1 

EXTENO 

0041 

25,2033 

1 2036 

1 

BZF 

+ 3 

004  2 

REF 

6 

LAST 

5C  6 

25,2034 

3 1767 

0 

CA 

RTSTLOC 

0043 

REF 

33 

LAST 

473 

25,2035 

6 4743 

0 

AD 

TWO 

0044 

REF 

7 

LAST 

506 

25,2036 

55' 767 

1 

TS 

RTSTLOC 

0045 

REF 

70 

LAST 

504 

25,2037 

l 5146 

0 

TCF 

ENDOF JOB 

R0056 

VARIABLE 

RADAR 

DATA 

CALLER  FOR 

: ONE  MEASUREMENT 

ONLY  . 

005  1 

REF 

61 

LAST 

486 

25,2040 

3 4744 

1 

VARADAR 

CAF 

ONE 

005  8 

REF 

5 

LAST 

489 

25,2041 

54  133 

1 

TS 

BUF2 

0059 

REF 

5 

LAST 

505 

25,2042 

51' 764 

0 

INDEX 

RTSTDEX 

0060 

REF 

1 

25,2043 

3 2045 

1 

CAF 

RDRLOCS 

0061 

REF 

2 

LAST 

382 

25,2044 

1 4613 

0 

TCF 

SWCALL 

0062 

REF 

1 

25,2045 

53074 

1 

RDRLUCS 

CADR 

RRRANGE 

006  3 

REF 

1 

25,2046 

53072 

1 

CADR 

RRRDOT 

0064 

REF 

l 

25,2047 

53070 

0 

CADR 

LRVELX 

006  5 

REF 

1 

25,2050 

53066 

1 

CADR 

LRVELY 

0066 

REF 

1 

25,2051 

53064 

0 

CADR 

LRVELZ 

0067 

REF 

1 

25,2052 

53062 

0 

CADR 

LRALT 
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USFP' S PAGE  NO.  2 E A S3 


CYCLE  RT  ST  LOC 


STORAGE  IS  DP 

CONTINUOUS  SAMPLING  AND  2N  TRIES  - 


WILL  BE  SENT  TO  RADAR  ROUTINE  IN  A 
SWCALL. 


NOT  TOUCHING  0. 

= 0 
= 1 
= 2 
= 3 
=4 
= 5 


GONE. 


BY 


GAP:  ASSEMBLE  RFVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


P0001 
R 0002 
R0003 
R0004 
R0005 
K0006 
R0007 
R0008 
R0009 
ROOIO 
R001  1 
R0012 
R0013 
R0014 
R0015 
R0016 
R0017 
R0018 
R0019 
R0020 
R002  1 
R0022 
R0023 
R0024 
R002  5 
R0026 
R0027 
R0028 
R0029 
R0030 
R0031 


P2C-P25 

RENDEZVOUS  NAVIGATION  PROGRAM  20 

PROGRAM  DESCRIPTION 

MOD  NO  - 2 

BY  P.  VOLANTE 

FUNCTIONAL  DESCRIPTION 

THE  PURPOSE  OF  THIS  PROGRAM  IS  TO  CONTROL  THE  RENDEZVOUS  RADAR  FROM 
STARTUP  THROUGH  ACQUISITION  AND  LOCKON  TO  THE  CSM  AND  TO  UPDATE  EITHER 
THE  LM  OR  CSM  STATE  VECTOR  (AS  SPECIFIED  BY  THE  ASTRONAUT  BY  DSKY  ENTRY) 
ON  THE  BASIS  OF  THE  RR  TRACKING  CATA. 

CALLING  SEQUENCE  - 


17:11  MAR.  19,1971  LEMP20S  .168  PAGE 
USER'S  PAGE  NO.  1 EO  S3 


ASTRONAUT  REQUEST  THROUGH  DSKY  V37E20E 
SUBROUTINES  CALLED 

R02B0TH  I I MU  STATUS  CHECK) 

GOFLASH  (PINBALL-DISPLAY) 

R23LEM  (MANUAL  ACQUISITION) 

LS201  (LOS  DETERMINATION) 

LS2C2  (RANGF  LIMIT  TEST) 

R61LEM  (PREFERRED  TRACKING  ATTITUDE) 

R21LEM  (RR  DESIGNATE) 

R22LEM  (DATA  READ) 

R31LEM  (RENDEZVOUS  PARAMETER  CISPLAY) 

PRICLARM  (PRIORITY  DISPLAY) 

NORMAL  EXIT  MOQES- 

P20  MAY  BE  TERMINATED  IN  TWO  W A Y S- A S TRON AU T SELECTION  OF  IDLING 
PROGRAM  (POO)  BY  KEYING  V37E00E  OR  BY  KEYING  IN  V56E 
ALARM  OR  ABORT  EXIT  MUDES- 

RANGE  GREATER  THAN  400  NM  DISPLAY 
OUTPUT 

TRKMKCNT  = NO  OF  RENDEZVUUS  TRACKING  MARKS  TAKEN  (COUNTER) 


FLAGUP 
FLAGDOWN 
8 ANKC ALL 
TASKOVER 


ENDOFJOB 

G0PERF1 


R0032 

ERASAELE  INITIALIZATION  REQUIRED 

R0033 

FLAGS  SET  + RESET 

R0034 

SRCHDPT ,RNDVZFLGi 

i ACMODF  LG , ' 

VEHUPFLG, 

rUPDATFLG , 

TRACKFLG , 

R0035 

DEBRIS 

R0036 

CENTRAL S- A, Q,L 

0037 

REF  7 LAST  504 

30,2000 

SBANK=  LOWSUPER 

0038 

33,2113 

BANK  33 

0039 

REF  1 

24,2000 

SET LCC  P20S 

0040 

24,2000 

BANK 

0041 

REF  8 LAST  282 

E7, 1456 

EBANK=  LOSCOUNT 

004  2 

REF  1 

COUNT  * $ $/P20 

0042  l 

REF  2 LAST  245 

24,2000 

PRGG22 

= PR0G20 

0043 

REF  1 

24,2000 

0 5331 

0 

PR0G20 

TC  2 PHSCHNG 

0044 

24,2001 

00C04 

0 

OCT  4 

0045 

24,2002 

05022 

1 

OCT  05022 

0046 

24,2003 

26000 

0 

OCT  26000 

004  7 

REF  1 

24,2004 

0 2751 

0 

TC  L UNSFCHK 

FOR  LOW  2C ADR ' S . 


PRIORITY  26 

CHECK  IF  ON  LUNAR  SURFACE 


507 
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P20- 

■P  25 

0048 

REF 

1 

24,2005 

0 2007 

1 

TC 

ORBCHGO 

0049 

REF 

1 

24,2006 

0 2036 

0 

TC 

PR0G20A 

0050 

REF 

18 

LAST 

500 

24,2007 

0 5506 

1 

ORBCHGO 

TC 

UPFLAG 

0051 

REF 

3 

LAST 

30  1 

24, 2010 

0C026 

0 

ADRES 

VEHUPFLG 

0052 

REF 

62 

LAST 

506 

24,2011 

3 4 744 

1 

CAF 

ONE 

0053 

REF 

1 

24,2012 

55' 144 

0 

TS 

0PTI0N2 

0054 

REF 

1 

24,2013 

3 4354 

1 

CAF 

0CT00012 

0055 

REF 

1 10 

LAST 

505 

24,2014 

0 4607 

1 

TC 

BANKCALL 

0056 

REF 

1 

24, 2015 

2C645 

1 

CADR 

G0PERF4 

005  7 

REF 

4 

LAST 

490 

24,2016 

0 6C0 1 

0 

TC 

GOTOPOOH 

005  8 

REF 

1 

24,2017 

0 2 021 

0 

TC 

0RBCHG1 

0059 

24,2020 

0 2013 

1 

TC 

-5 

0060 

REF 

63 

LAST 

500 

24,2021 

4 4 744 

0 

0RBCHG1 

CS 

ONE 

0061 

REF 

2 

LAST 

508  ■ 

24,2022 

6 1144 

1 

AD 

0PTI0N2 

0062 

24,2023 

0 0006 

1 

EXTEND 

0063 

REF 

2 

LAST 

508 

24,2024 

1 2040 

0 

BZF 

PROG20A 

0064 

REF 

1 

24, 2025 

3 2367 

1 

CAF 

V06N33* 

0065 

REF 

l 1 1 

LAST 

508 

24,2026 

0 4607 

1 

TC 

BANKCALL 

0066 

REF 

7 

LAST 

500 

24,2027 

2C471 

1 

CADR 

GOFLASH 

0067 

REF 

5 

LAST 

508 

24,2030 

0 6001 

0 

TC 

GOTOPOOH 

0068 

REF 

1 

24,2031 

0 2033 

0 

TC 

QRBCHG2 

0069 

24,2032 

0 2025 

1 

TC 

-5 

0070 

REF 

33 

LAST 

50  1 

24,2033 

0 6060 

1 

GRBCHG2 

TC 

INTPRET 

0071 

24,2034 

77650 

1 

GOTO 

0072 

REF 

1 

24,2035 

64213 

0 

0RBCHG3 

0073 

32,2213 

BANK 

32 

0074 

REF 

1 

32,2000 

SETLOC 

P20S4 

0075 

32,2213 

BANK 

0076 

REF 

1 

COUNT* 

S S/P  20 

0077 

32,2213 

77624 

1 

0RBCHG3 

CALL 

0078 

REF 

5 

LAST 

309 

32,2214 

27447 

0 

I NTSTALL 

0079 

32,2215 

7 7745 

1 

DLOAD 

0080 

REF 

9 

LAST 

318 

32,2216 

03442 

0 

TIG 

0080  I 

REF 

2 

LAST 

155 

32,2217 

03661 

0 

STORE 

LNCHTM 

0081 

REF 

7 

LAST 

502 

32,2220 

00041 

1 

STORE 

TDEC1 

0082 

32,2221 

43  C 14 

0 

CLEAR 

CLEAR 

0083 

REF 

4 

LAST 

248 

32,2222 

01674 

0 

V INTFLAG 

0084 

REF 

1 

32,2223 

01673 

1 

I NTYPFLG 

0085 

32,2224 

43014 

0 

CLEAR 

CLEAR 

0086 

REF 

3 

LAST 

248 

32,2225 

01676 

1 

DIMOFLAG 

0087 

REF 

2 

LAST 

248 

32,2226 

01675 

1 

D60R9FLG 

0C88 

32,2227 

77624 

1 

CALL 

0089 

REF 

3 

LAST 

248 

32,2230 

27172 

0 

I NTEGRV 

0090 

32,2231 

77624 

1 

CALL 

0091 

REF 

1 

32,2232 

51770 

0 

GRP2PC 

0092 

32,2233 

7 7775 

1 

VLOAD 

009  3 

REF 

2 

LAST 

221 

32,2234 

0CC17 

l 

R ATT  1 

0094 

REF 

2 

LAST 

155 

32,2235 

17631 

0 

STODL 

RSUBL 

0095 

REF 

4 

LAST 

502 

32,2236 

OOC  15 

0 

TAT 
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0096 

REF 

8 

LAST 

508 

32,2237 

34041 

0 

STC ALL 

TDEC1 

0097 

REF 

6 

LAST 

508 

32,2240 

27447 

0 

I NTS T ALL 

0098 

32,2241 

43014 

0 

SET 

CLEAR 

0099 

REF 

5 

LAST 

508 

32,2242 

014  74 

l 

V INTFLAG 

0100 

REF 

2 

LAST 

508 

32,2243 

01673 

1 

I NTYPFLG 

0101 

32,2244 

43014 

0 

CLEAR 

BOFF 

0102 

REF 

4 

LAST 

508 

32,2245 

C 1 676 

1 

D IMOFLAG 

0103 

REF 

3 

LAST 

248 

32,2246 

02756 

1 

RENDWFLG 

0104 

REF 

I 

32,2247 

64253 

1 

NOWMATX 

0105 

32,2250 

43014 

0 

SET 

SET 

0106 

REF 

5 

LAST 

509 

32,2251 

01476 

0 

DIMOFLAG 

0107 

REF 

3 

LAST 

508 

32,2252 

01475 

0 

D60R9FLG 

0108 

32, 2253 

77624 

1 NOWMATX 

CALL 

0109 

REF 

4 

LAST 

508 

32,2254 

27172 

0 

INTEGRV 

0110 

32,2255 

77624 

1 

CALL 

0111 

REF 

2 

LAST 

508 

•32,2256 

51770 

0 

GRP2PC 

0112 

32,2257 

77775 

i 

VLOAD 

0113 

REF 

6 

LAST 

22  1 

32,2260 

00025 

0 

VATT1 

0114 

REF 

1 

32,2261 

25757 

0 

STOVL 

VSUBC 

0115 

REF 

3 

LAST 

508 

32,2262 

00017 

i 

R ATT  1 

0116 

REF 

1 

32,2263 

01 101 

0 

STORE 

RSUBC 

0117 

32,2264 

53435 

0 

VXV 

UNIT 

0118 

REF 

2 

LAST 

509 

32,2265 

01  757 

0 

VSUBC 

0119 

-32,2266 

24025 

0 

STOVL 

2 OD 

0120 

REF 

3 

LAST 

508 

32,2267 

03631 

0 

RSUBL 

012  1 

32,2270 

53435 

0 

VXV 

UNIT 

0122 

32,2271 

00025 

0 

2 OD 

0123 

REF 

2 

LAST 

155 

32,2272 

27637 

0 

STOVL 

UCSM 

0124 

REF 

2 

LAST 

509 

32,2273 

01101 

0 

RSUBC 

0125 

32,2274 

50256 

0 

UNIT 

DOT 

0126 

REF 

3 

LAST 

509 

32,2275 

C 3 6 3 7 

0 

UCSM 

0127 

32,2276 

77752 

1 

SL1 

0128 

REF 

2 

LAST 

130 

32,2277 

02732 

0 

STORE 

CSTH 

0129 

32,2300 

44316 

0 

DSQ 

BDSU 

0130 

REF 

1 

32,2301 

06475 

1 

ONES- 2 

0131 

32,2302 

77766 

0 

SORT 

013  2 

REF 

2 

LAST 

130 

32,2303 

26730 

1 

STOVL 

SNTH 

0133 

REF 

3 

LAST 

509 

32,2304 

01 101 

0 

RSUBC 

0134 

REF 

l 

32,2305 

26655 

0 

STOVL 

RVEC 

0135 

REF 

3 

LAST 

509 

32,2306 

01757 

0 

VSUBC 

0135  1 

32,2307 

77676 

0 

VCOMP 

0136 

REF 

2 

LAST 

130 

32,2310 

02744 

1 

STORE 

V VEC 

0137 

32,2311 

45014 

0 

CLEAR 

CALL 

0138 

REF 

1 

32,2312 

03666 

1 

RVSW 

0139 

REF 

1 

32,2313 

24732 

1 

T IMETHET 

0139  1 

32,2314 

77676 

0 

VCOMP 

0140 

REF 

2 

l AST 

155 

32,2315 

C3645 

0 

STORE 

NEWVEL 

0140  1 

32,2316 

77745 

1 

DLOAD 

01402 

REF 

1 

32,2317 

00037 

0 

T 

01403 

REF 

2 

LAST 

155 

32,2320 

27663 

1 

STOVL 

TRAN STM 
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01404 

REF 

3 

LAST 

509 

32,2321 

03645 

0 

NEWVEL 

0141 

32,2322 

77646 

0 

ABVAL 

014  1 1 

32,2323 

24025 

0 

STOVL 

2 OD 

0142 

32,2324 

0C001 

0 

OD 

0143 

REF 

2 

LAST 

155 

32,2325 

03653 

1 

STORE 

NEWPOS 

0144 

32,2326 

53435 

0 

VXV 

UNIT 

0145 

REF 

4 

LAST 

509 

32,2327 

03631 

0 

RSU8L 

0146 

32,2330 

53435 

0 

VXV 

UNIT 

0147 

REF 

3 

LAST 

510 

32,2331 

03653 

1 

NEWPOS 

0148 

32,2332 

76561 

L 

VXSC 

VSL  1 

0149 

32,2333 

00025 

0 

2 OD 

0150 

REF 

1 

32,2334 

37665 

0 

STCALL 

NCSMVEL 

015  l 

REF 

3 

LAST 

509 

32,2335 

51770 

0 

GRP2PC 

0152 

32,2336 

77624 

1 

CALL 

0153 

REF 

7 

LAST 

509 

32,2337 

27447 

0 

I NTST  ALL 

0154 

32,2340 

44345 

0 

DLDAD 

BDSU 

0155 

REF 

3 

LAST 

509 

32,2341 

03663 

1 

TRANSTM 

0155  1 

REF 

3 

LAST 

508 

32,2342 

03661 

0 

LNCHTM 

0156 

REF 

7 

LAST 

332 

32,2343 

25517 

0 

STOVL 

TET 

0157 

REF 

4 

LAST 

510 

32,2344 

03653 

1 

NEWPOS 

0150 

REF 

4 

LAST 

333 

32,2345 

01535 

0 

STORE 

RCV 

0159 

REF 

2 

LAST 

115 

32,2346 

25503 

0 

STOVL 

RRECT 

0160 

REF 

2 

LAST 

510 

32,2347 

03665 

1 

NCSMVEL 

0161 

REF 

2 

LAST 

115 

32,2350 

35511 

l 

STCALL 

VRECT 

0162 

REF 

1 

32,2351 

27734 

1 

MINIRECT 

0162  1 

32,2352 

45174 

1 

AX  T , 2 

CALL 

01622 

32,2353 

00002 

0 

2 

0163 

REF 

2 

LAST 

38 

32,2354 

26717 

1 

ATOPCSM 

0164 

32,2355 

77624 

1 

CALL 

0165 

REF 

1 

32,2356 

27456 

0 

I NTWAKEO 

0166 

32,2357 

77  776 

1 

EXIT 

0167 

REF 

1 12 

LAST 

508 

32,2360 

0 4607 

1 

TC 

BANKCALL 

0168 

KEF 

3 

LAST 

508 

32,2361 

50040 

0 

CADR 

PR0G20A 

0169 

24,2036 

BANK 

24 

0170 

REF 

2 

LAST 

507 

24,2000 

SETLOC 

P20S 

0171 

24,2036 

BANK 

0172 

REF 

2 

LAST 

507  TO 

508: 

30 

30* 

COUNT* 

$ $/P20 

0173 

REF 

31 

LAST 

489 

24,2036 

0 5520 

0 

TC 

DOWNFLAG 

0174 

REF 

4 

LAST 

508 

24,2037 

00026 

0 

ADRES 

VEHUPFLG 

0175 

REF 

1 13 

LAST 

510 

24,2040 

0 4607 

1 PROG20A 

TC 

BANKCALL 

0176 

REF 

2 

LAST 

35  1 

24,2041 

33757 

1 

CADR 

R02B0TH 

0177 

REF 

19 

LAST 

508 

24, 2042 

0 5506 

1 

TC 

UPFL AG 

0178 

REF 

2 

LAST 

300 

24,2043 

0002  7 

L 

ADRES 

UPDATFLG 

0179 

REF 

20 

LAST 

510 

24,2044 

0 5506 

1 

TC 

UPFLAG 

0180 

REF 

l 

24, 2045 

<’(  03  1 

0 

ADRES 

TRACKFLG 

0181 

REF 

21 

LAST 

510 

24, 2046 

0 5506 

1 

TC 

UPFLAG 

0182 

REF 

l 

24,2047 

00010 

0 

ADRES 

RNDVZFLG 

0183 

REF 

32 

LAST 

510 

24, 2050 

0 5520 

0 

TC 

DOWNFLAG 

0184 

REF 

2 

LAST 

299 

24,2051 

00037 

0 

ADRES 

SRCHOPTN 
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0185 

REF 

33 

LAST 

510 

24,2052 

0 5520 

0 

TC 

DOWNFLAG 

0186 

REF 

1 

24,2053 

00040 

0 

ADRES 

ACMODFL  G 

0187 

REF 

34 

LAST 

51  1 

24, 2054 

0 5520 

0 

TC 

DOWNFLAG 

0188 

REF 

4 

LAST 

291 

24,2055 

00063 

1 

ADRES 

R04FLAG 

0189 

REF 

35 

LAST 

511 

24,2056 

0 5520 

0 

TC 

DOWNFLAG 

0190 

REF 

3 

LAST 

284 

24,2057 

00126 

1 

ADRES 

NORRMON 

0191 

REF 

36 

LAST 

511 

24, 2060 

0 5520 

0 

TC 

DOWNFLAG 

0192 

REF 

1 

24,2061 

00041 

1 

ADRES 

LOSCMFLG 

0193 

YREF 

1 

24,2062 

0 6032 

0 

TC 

CLRADMD1 

0194 

REF 

22 

LAST 

510 

24,2063 

0 5506 

1 

TC 

UPFLAG 

0194  5 

REF 

1 

24,2064 

0C005 

1 

ADRES 

FSPASFLG 

0195 

REF 

6 

LAST 

490 

24,2065 

0 5355 

1 

P20L  EMI 

TC 

PHASCHNG 

0196 

24,2066 

04C22 

0 

OCT 

04022 

0197 

REF 

1C6 

LAST 

486 

24,2067 

3 4746 

0 

CAF 

ZERO 

0198 

REF 

1 

24,2070 

55' 462 

1 

TS 

MARKCTR 

0199 

REF 

34 

LAST 

508 

24,2071 

0 6060 

1 

P20LFM2 

TC 

I NTPRET 

0200 

24,2072 

77634 

0 

RTB 

0201 

REF 

7 

LAST 

50  2 

24,2073 

21603 

1 

LOADT IME 

0202 

REF 

9 

LAST 

509 

24,2074 

34041 

0 

STC ALL 

TDEC1 

0203 

REF 

1 

24,2075 

5133  7 

1 

LPS20. 1 

0204 

24,2076 

77624 

1 

CALL 

0205 

REF 

1 

24,2077 

53626 

0 

LPS20.2 

0206 

24,2100 

77776 

I 

EX  I T 

0207 

REF 

240 

LAST 

490 

24,2101 

50  154 

1 

INDEX 

M P AC 

0208 

24,2102 

0 2103 

1 

TC 

+ 1 

0209 

REF 

1 

24,2103 

0 2167 

0 

TC 

P20LEMA 

0210 

REF 

35 

LAST 

511 

24,2104 

0 6060 

1 

5 26A  L ARM 

TC 

I NTPRET 

021  1 

24,2105 

53575 

0 

VLOAD 

UNIT 

0212 

REF 

1 

24,2106 

0CC25 

0 

R RANGE 

0213 

24,2  107 

72441 

0 

DOT 

S LI 

0214 

REF 

1 

24,2110 

00017 

1 

VELLOS 

0215 

REF 

3 

LAST 

32  7 

24,2111 

16216 

0 

STODL 

RRATE 

0216 

24,2112 

OC045 

0 

3 60 

02162 

24,2113 

51025 

1 

DSU 

B PL 

02164 

REF 

l 

24, 2114 

10372 

0 

999. 99NM 

02166 

REF 

l 

24,2115 

50142 

0 

TOOBIG 

02168 

24,2116 

77745 

1 

DLOAD 

02165 

24,2117 

00045 

0 

3 6D 

0217 

REF 

3 

LAST 

327 

24,2120 

16214 

1 

526ALRM1 

STODL 

RANGE 

0218 

REF 

2 

LAST 

38 

24,2121 

06505 

1 

ZEROVFCS 

0219 

REF 

2 

LAST 

327 

2 4,2122 

02220 

0 

STORE 

R THE  T A 

0220 

24,2123 

43014 

0 

BOFF 

BOFF 

022  l 

REF 

2 

LAST 

511 

24,2124 

0C345 

0 

FSPASFLG 

0222 

REF 

1 

24,2125 

50  155 

0 

P20LEMC  5 

022  3 

REF 

4 

LAST 

266 

24,2126 

04347 

0 

SURFFLAG 

0224 

REF 

1 

24,2127 

50  147 

0 

ALRMLT 

02242 

24,2130 

51145 

0 

DLOAD 

BPL 

02244 

REF 

4 

LAST 

511 

24,2131 

02216 

0 

RRATE 

02246 

REF 

1 

24,2132 

5C145 

1 

ENDRN 

0225 

24,2133 

77  7 76 

1 

EXIT 
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0226 

REF 

7 

LAST 

511 

24,2134 

0 5355 

1 

TC 

PHASCHNG 

0227 

24,2135 

0A022 

0 

OCT 

04022 

022  8 

REF 

1 

2 A , 2 l 36 

3 2373 

1 

CAF 

V16N5A20 

022  9 

REF 

1 1 A 

LAST 

510 

24,2137 

0 A607 

L 

TC 

BANKCALL 

0230 

REF 

l 

2A.21A0 

2 0AAA 

1 

CADR 

GODSPR 

0231 

REF 

1 

2A , 2 1 A 1 

0 2156 

1 

TC 

P20LEM5 

02312 

24 , 2 1 A 2 

52145 

0 

TOOB IG 

DLOAD 

GOTO 

023  1 A 

REF 

2 

LAST 

511 

2A,2  1A3 

10372 

0 

999.99NM 

02316 

REF 

1 

24,2 14A 

50120 

1 

526ALRM1 

0231  ? 

24,2145 

77776 

1 

ENDRN 

EX  IT 

023  18 

REF 

2 

LAST 

A90 

24,2146 

0 6 C43 

0 

TC 

GOTO V56 

0232 

24,2147 

77776 

1 

ALRMLT 

EX  I T 

0233 

REF 

8 

LAST 

512 

24,2150 

0 5355 

1 

TC 

PHASCHNG 

023  A 

24,2151 

OA  022 

0 

OCT 

04022 

0235 

REF 

19 

LAST 

506 

24,215 2 

0 5571 

1 

TC 

ALARM 

0236 

24,2153 

0 C 5 26 

c 

OCT 

526 

0237 

REF 

2 

LAST 

512 

24,2154 

0 2156 

1 

TC 

P20LEM5 

0238 

24,2155 

77776 

1 

P20LEMC5 

EXIT 

0239 

REF 

37 

LAST 

511 

24,2156 

0 5520 

0 

P20LEM5 

TC 

DOWNFLAG 

02A  0 

REF 

3 

LAST 

511 

24,2  157 

0C005 

1 

ADRES 

FSPASFLG 

02A  1 

REF 

1 

24,2160 

3 2370 

1 

CAF 

500DEC 

02A2 

REF 

115 

LAST 

512 

24,2161 

0 4607 

1 

TC 

BANKCALL 

02A  3 

REF 

8 

LAST 

312 

24,2162 

01736 

1 

CADR 

DELAY JOB 

02AA 

REF 

1 

24,2163 

0 2071 

0 

TC 

P20LEM2 

0245 

REF  116  LAST  512 

24,2164 

0 4607  1 

P20LEM3  TC 

BANKCALL 

0246 

REF  1 

24,2  165 

20A51  0 

CADR 

CLEANDSP 

02A65 

REF 

1 

24,2166 

0 

2175 

0 

TC 

P20LEMB 

024  7 

REF 

9 

LAST 

512 

24,2167 

0 

5355 

1 

P20LEMA 

TC 

PHASCHNG 

0248 

24,2170 

04022 

0 

OCT 

04022 

0249 

REF 

2 

LAST 

507 

24,2171 

0 

2751 

0 

TC 

LUNSFCHK 

0250 

REF 

1 

24,2172 

0 

2164 

0 

TC 

P20LEM3 

025  1 

REF 

117 

LAST 

512 

24, 2173 

0 

4607 

1 

TC 

BANKCALL 

0252 

REF 

1 

24,2174 

46116 

0 

CADR 

R61LEM 

0253 

REF 

10 

LAST 

512 

24,2175 

0 

5355 

1 

P20LEMB 

TC 

PHASCHNG 

0254 

24, 2176 

05022 

1 

OCT 

05022 

0255 

24,2177 

10000 

0 

OCT 

10000 

0256 

REF 

3 

LAST 

490 

24,2200 

3 

7 735 

1 

CAF 

P R 1026 

0257 

REF 

9 

i A S i 

504 

24,2201 

0 

5 137 

1 

TC 

PRIOCHNG 

0258 

REF 

18 

LAST 

490 

24,2202 

3 

0075 

0 

CA 

FLAGWRD1 

0259 

REF 

5 

LAST 

490 

24,2203 

7 

4740 

1 

MASK 

TRACKBIT 

0260 

24,2204 

0 

0006 

1 

EXTEND 

026  1 

REF 

1 

24,2205 

1 

2310 

0 

BZF 

P20LEMWT 
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USER' S PAGE  NO.  6 E7  S3 

IN  CASE  OF  RESTART 
REACTIVATE  DISPLAY 

TURN  ON  V16N54  - DISPLAY 
RANGE  AND  RANGE  RATE 


TURN  ON  ALARM  LIGHT  P20 


WAIT  5SECS 


CHECK  LUNAR  SURFACE  FLAG  (P22  FLAG) 


PRFFERRFD  TRACKING  ATTITUDE  ROUTINE 

RESTART  AT  PRIORITY  10  TO  ALLOW  V37 
REQUESTED  PROGRAM  TO  RUN  FIRST 
RESTORE  PRIORITY  26 

IS  THE  TRACK  FLAG  SET 


BRANCH 


NO 


WAIT  FOR  IT  TO  8F  SET 


GAP: 


ASSEMBLE  RFVISIUN  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  202U12-161 


» 

> 


► L P20-P25 


0262 

REF 

27 

LAST 

472 

24,2206 

3 

4743 

0 

P20LEMB7  CAF 

B IT2 

026  3 

24,2207 

0 

0006 

1 

EXTEND 

0264 

REF 

8 

LAST 

506 

24,2210 

02 

033 

0 

RAND 

CHAN33 

0265 

24,2211 

0 

0006 

1 

EXTEND 

0266 

REF 

1 

24, 22 12 

1 

2246 

1 

BZF 

P 20LEMB3 

0267 

REF 

4 

LAST 

308 

24,2213 

4 

6007 

1 

P20LEMB5  CS 

0CT24 

0268 

REF 

9 

LAST 

490 

24, 2214 

6 

1010 

1 

AD 

MODREG 

0269 

24,2215 

0 

CC06 

1 

EXTEND 

0270 

REF 

1 

24,22  16 

1 

2231 

1 

BZF 

P20LEMB6 

0271 

REF 

3 

LAST 

416 

24,2217 

6 

7767 

0 

AD 

NEG2 

0272 

24,2220 

0 

0006 

1 

EXTEND 

0273 

REF 

2 

LAST 

5'1  3 

24,2221 

1 

2231 

1 

BZF 

P20LEMB6 

0274 

REF 

1 

24, 2222 

3 

2365 

0 

CAF 

ALRM514 

0275 

REF 

118 

LAST 

512 

24,2223 

0 

4607 

l 

TC 

BANKCALL 

0276 

REF 

1 

24,2224 

21572 

1 

CADR 

PRIOLARM 

0277 

REF 

3 

LAST 

512 

24,2225 

0 

6043 

0 

TC 

G0T0V56 

0278 

REF 

2 

LAST 

512 

24,2226 

0 

2175 

0 

TC 

P20LEMB 

0279 

REF 

3 

LAST 

513 

24,2227 

0 

2175 

0 

TC 

P20LEMB 

0280 

REF 

71 

LAST 

506 

24,2230 

0 

5 146 

1 

TC 

ENDOFJQB 

0281 

REF 

1 

24,2231 

3 

2364 

1 

P20LEMB6  CAF 

0CT201 

0282 

REF 

l 19 

LAST 

513 

24, 2232 

0 

4607 

1 

TC 

BANKCALL 

0283 

REF 

1 

24,2233 

2C635 

0 

CADR 

G0PERF1 

0284 

REF 

4 

LAST 

513 

24,2234 

0 

6 043 

0 

TC 

GOTO V56 

0285 

REF 

4 

LAST 

513 

24,2235 

0 

2175 

0 

TC 

P20LEMB 

0286 

REF 

3 

LAST 

512 

24,2236 

0 

2751 

0 

TC 

LUNSFCHK 

0287 

REF 

1 

24,2237 

0 

2244 

1 

TC 

P20LEMB2 

0288 

REF 

1 

24,2240 

0 

3220 

1 

TC 

R23LEM 

0289 

REF 

23 

LAST 

511 

24, 

,2241 

0 5506 

1 

P20LEMB1  TC 

UPFL AG 

0290 

REF 

2 

LAST 

51  1 

24, 

, 2242 

0CC40 

0 

ADRES 

ACMOOFLG 

0291 

REF 

5 

LAST 

513 

24, 

,2  243 

0 2175 

0 

TC 

P20LEMB 

029  2 

REF 

6 LAST 

46  1 

24,2244 

0 

4355  0 

P20LEMB2  TC 

F ALTON 

0293 

REF 

6 LAST 

513 

24, 2245 

0 

2175  0 

TC 

P20LEMB 

0294 

REF 

33 

LAST 

506 

24,2246 

4 

0110 

0 

P20LEMB3  CS 

RADMODES 

029  5 

REF 

1 

24,2247 

7 

4730 

0 

MASK 

RCDUOBIT 

0296 

24,2250 

0 

0006 

1 

EXTEND 

0297 

REF 

1 

24,2251 

1 

2263 

0 

BZF 

P20LEM34 

0298 

REF 

5 

LAST 

305 

24, 2252 

3 

4346 

L 

CAF 

8 IT13-1 4 

0299 

REF 

7 

LAST 

346 

24,2253 

7 

0076 

1 

MASK 

FLAGWRD2 

0300 

24,2254 

0 

0006 

1 

EXTEND 

0301 

REF 

l 

24,2255 

1 

2267 

1 

BZF 

P20LEMC3 
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USER' S PAGE  NO.  7 
IS  RR  AUTO  MODE  DISCRETE 


.168  PAGE 
E7  S3 
PRFSFNT 


513 


YES  - DO  AUTOMATIC  ACQUISITION  ( R 2 1 > 

RADAR  NOT  IN  AUTO  CHECK  IF 
MAJOR  MODE  IS  20 

BRANCH  - YES-OK  TO  00  PLEASE  PERFORM 


ALSO  CHECK  FOR  P22 

BRANCH  - YES  OK  TO  DO  PLEASE  PERFORM 
TRACK  FLAG  SET-FLASH  PRIORITY  ALARM  514- 
RADAR  GOES  OUT  OF  AUTO  MODE  WHILE  IN  USE 

TERMINATE  EXITS  VIA  V 56 
PROCEED  AND  ENTER  BOTH  GO  BACK 
TO  CHECK  AUTO  MODE  AGAIN 

REQUFST  RR  AUTO  MODE  SELECTION 


TERMINATE  EXITS  P20  VIA  V56  CODING 
PROCEED  CHECKS  AUTO  MODE  DISCRETE  AGAIN 
ENTER  INDICATES  MANUAL  ACQUISITION  (R23) 
YES  - R23  NOT  ALLOWED- TURN  ON  OPR  ERROR 
NO  - DO  MANUAL  ACQUISITION 


RETURN  FROM  R23  - LOCKON  ACHIEVED 
SET  MANUAL  FLAG  AND  GO  BACK  TO  CHECK 
RR  AUTO  MODE 


TURNS  ON  OPERATOR  ERROR  LIGHT  ON  DSKY 
AND  GOES  BACK  TO  CHECK  AUTO  MODF 


ARE  RR  CDUS  BEING  ZEROED 


BRANCH  - YES  - WAIT 

IS  SEARCH  OR  MANUAL  ACQUISITION  FLAG  SET 


ZERO  MEANS  AUTOMATIC  RR  ACQUISTION 


GAP:  ASSEMBLE  REVISION  2L0  OE  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L P20-P25 


0302 

REF 

38 

LAST 

512 

24, 2256 

0 5520 

0 

TC 

DOWNFLAG 

0303 

REF 

3 

LAST 

510 

24,2257 

C0C37 

0 

ADRES 

SRCHOPTN 

0304 

REF 

35 

LAST 

514 

24,2260 

0 5520 

0 

TC 

DOWNFLAG 

0305 

REF 

3 

LAST 

513 

24,2261 

0CC40 

0 

ADRES 

ACMODFLG 

0306 

REF 

2 

LAST 

512 

24,2262 

0 2310 

1 

TC 

P20LEMWT 

0307 

REF 

1 

24, 2263 

3 2362 

l 

P20LEMB4  CAE 

250DEC 

0308 

REF 

120 

LAST 

513 

24,2264 

0 4607 

1 

TC 

BANKCALL 

0309 

REF 

9 

LAST 

512 

24,2265 

01736 

1 

CADR 

DELAY  JOB 

0310 

REF 

2 

LAST 

513 

24,2266 

0 2 246 

0 

TC 

P20LEMB3 

031 1 

REF 

36 

LAST 

51  l 

24,2267 

0 6060 

1 

P20LEMC3 

TC 

I NTPRET 

0312 

24,2270 

77634 

0 

RTB 

0313 

REF 

8 

LAST 

511' 

24,2271 

21603 

1 

LOADTIME 

0314 

REF 

10 

LAST 

511 

24,2272 

34041 

0 

STCALL 

TDEC1 

0315 

REF 

L 

24,2273 

50374 

1 

UPPSV 

0316 

24,2274 

77776 

1 

P20LEMC4 

EXIT 

031  7 

REF 

1 1 

LAST 

512 

24, 2275 

0 5355 

1 

P20LEMC 

TC 

P HASCHNG 

0318 

24,2276 

04C22 

0 

OCT 

04022 

0319 

REF 

24 

LAST 

49  0 

24,2277 

30  074 

1 

CAE 

F LAGWRDO 

0320 

REF 

6 

LAST 

490 

24,2300 

7 4736 

0 

MASK 

RNDVZBIT 

0321 

24,2301 

0 0006 

l 

EXTEND 

0 32  2 

REF 

72 

LAST 

513 

24,2302 

l 5 146 

0 

BZF 

ENDOF JOB 

032  3 

REF 

19 

LAST 

512 

24, 2303 

30  075 

0 

CAE 

FLAGWRD1 

0324 

REF 

6 

LAST 

512 

24,2304 

7 4 740 

1 

MASK 

TRACKBI T 

0325 

24,2305 

0 0006 

1 

EXTEND 

0326 

REF 

1 

24,2306 

1 2342 

1 

BZF 

P20LEMD 

032  7 

REF 

1 

24,2307 

0 2756 

1 

P20LEMF 

TC 

R21LEM 

0328 

REF 

2 

LAST 

514 

24,2310 

3 2362 

1 

P20LEMWT 

CAE 

2 50DEC 

0329 

REF 

6 

LAST 

505 

24, 2311 

0 5175 

1 

TC 

TWIDDLE 

0330 

REF 

2 

LAST 

25  1 

24,2312 

02322 

0 

ADRES 

P20LEMC1 

0331 

REF 

2C 

LAST 

514 

24,2313 

30  075 

0 

CAR 

FLAGWRD1 

0332 

REF 

7 

LAST 

514 

24,2314 

7 4740 

1 

MASK 

TRACKBI T 

0333 

24,2315 

0 0006 

1 

EXTEND 

0334 

REF 

73 

LAST 

514 

24,2316 

1 5146 

0 

8ZF 

ENDOF JOB 

0335 

REF 

12 

LAST 

514 

24, 231 7 

0 5355 

1 

P20LMWT1 

TC 

P HASCHNG 

0336 

24,2320 

4CC72 

0 

OCT 

40072 

0337 

REF 

7 4 

LAST 

514 

24,232  l 

0 5146 

1 

TC 

ENDOF JOB 

0338 

REF 

25 

LAST 

514 

24,2322 

30 

074 

1 

P20LEMC1  CAE 

FLAGWRDO 

0339 

REF 

7 

LAST 

514 

24,2323 

7 

4736 

0 

MASK 

RNDVZBIT 

0340 

24,2324 

0 

0006 

1 

EXTEND 

0 34  1 

REF 

17 

LAST 

505 

24, 2325 

1 

5263 

1 

BZF 

T ASKOVER 

034  2 

REF 

21 

LAST 

514 

24,2326 

30 

075 

0 

CAE 

FLAGWRD1 

0343 

REF 

8 

LAST 

514 

24,2327 

1 

4740 

1 

MASK 

TRACKBIT 
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RESET  TO  AUTO  MODE 


WAIT  2.5  SFCONDS  THEN  GO  Tn  RR  DATA  READ 


WAIT  2.5  SFCONDS  WHILE  RR  CDUS  ARE  BEING 
ZEROED-THEN  GO  BACK  AND  CHECK  AGAIN 


IS  THE  RENDEZVOUS  FLAG  SET 


NO  - EXIT  P 20 

IS  TRACK  FLAG  SET  (BIT  5 FLAGWORD  l) 


BRANCH-TRACK  FLAG  NOT  ON-WAIT  15  SECONDS 


USE  INSTEAD  OF  WAITLIST  SINCE  SAME  BANK 
WAIT  2.5  SFCONDS 
IS  TRACK  FLAG  SET 


NO-EXIT  WITHOUT  DOING  2.7  PHASE  CHANGE 


IS  RENDEZVOUS  FLAG  SET 


NO  - EXIT  P20/R22 
IS  TRACK  FLAG  SET 


GAP: 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L P2C-P25 


0344 

24,2330 

0 

0006 

1 

EXTEND 

0345 

REF 

1 

24,2331 

1 

2337 

0 

BZF 

P20LEMC2 

0346 

REF 

4 

LAST 

512 

24,2332 

3 

7735 

1 

CAF 

P R 1 026 

034  7 

REF 

17 

LAST 

476 

24,2333 

0 

5 C 76 

0 

TC 

F INDVAC 

0348 

REF 

9 

LAST 

50  7 

E7 , 1456 

EBANK= 

LOSCOUNT 

0349 

REF 

1 

24,2334 

02713 

0 

2C  ADR 

R22LEM42 

0349 

REF 

1 

24,2335 

50067 

0 

0350 

REF 

18 

LAST 

514 

24, 2336 

0 

5263 

0 

TC 

TASKOVER 

035  1 

REF 

1 

24,2337 

0 5223 

1 

P20LEMC2 

TC 

F IXDELAY 

0352 

24,2340 

02734 

0 

DEC 

1500 

0353 

REF 

3 

LAST 

514 

24,2341 

0 2322 

0 

TC 

P20LEMC1 

0354 

REF 

1 

24,2342 

3 2 7 50 

1 

P20LEMD 

CAF 

1500DEC 

0355 

REF 

7 

LAST 

514 

24,2343 

0 5175 

1 

TC 

TWIDDLE 

0356 

REF 

1 

24,2344 

02346 

1 

ACRES 

P20LEMD1 

0357 

REF 

75 

LAST 

514 

24,2345 

0 5 146 

1 

TC 

END0FJ08 

0358 

REF 

22 

LAST 

514 

24,2346 

30  C 75 

0 

P20LEMD1  CAE 

FLAGWRD1 

0359 

REF 

9 

LAST 

514 

24,2347 

7 4740 

1 

MASK 

TRACKBI T 

0360 

REF 

1 1 1 

LAST 

505 

24,2350 

10  COO 

0 

CCS 

A 

036  1 

REF 

1 

24,2351 

1 2355 

1 

TCF 

P 20LEMD2 

0362 

REF 

2 

LAST 

515 

24,2352 

0 5223 

1 

TC 

F IXDELAY 

0363 

24,2353 

C2734 

0 

DEC 

1500 

0364 

REF 

2 

LAST 

515 

24,2354 

0 2346 

1 

TC 

P20LEMDI 

0365 

REF 

5 

LAST 

5 15 

24,2355 

3 7735 

1 

P20LEMD2  CAF 

PR  1026 

0366 

REF 

18 

LAST 

515 

24, 2356 

0 5076 

0 

TC 

F INDVAC 

036  7 

REF 

10 

LAST 

515 

E7, 1456 

EBANK= 

LOSCQUNr 

0368 

REF 

2 

LAST 

513 

24,235  7 

02267 

0 

2CADR 

P20LEMC3 

0 36  8 

24,2360 

50C67 

0 

0369 

REF 

19 

LAST 

515 

24,2361 

0 5263 

0 

TC 

TASKOVER 

0370 

24,2362 

00372 

1 

250DEC 

DEC 

250 

037  1 

24,2363 

OC  526 

0 

ALRM526 

DCT 

00526 

0372 

24,2364 

00201 

1 

0CT201 

OCT 

00201 

0373 

24,2365 

CC514 

1 

ALRM514 

OCT 

514 

0374 

24,2366 

0.0074 

1 

MAXTRIES 

DEC 

60 

0375 

REF 

3 

LAST 

485 

4354 

OCTOOO 12 

EQUALS 

B INCON 

0376 

REF 

3 

LAST 

364 

23,2474 

ONEB-2 

EQUALS 

DP1/4TH 

0377 

24,2367 

01441 

1 

V06N33* 

VN 

0633 

0378 

24,2370 

OC  764 

1 

500DEC 

OEC 

500 

03782 

24,2371 

00070 

0 

999.99NM 

2DEC 

1 851982 

03782 

24,2372 

20447 

1 

0379 

24,2373 

C4066 

0 

V 16N5420 

VN 

1654 

17:11  MAR.  19,1971  LFMP20S 
USER'S  PAGE  NO.  9 


.168  PAGE 
F 7 S3 


515 


NO-DONT  SCHEDULE  R22  JOB 
YES-SCHEOULE  R 22  JOB  ( RR  DATA  READ) 


TRACK  FLAG  NOT  SET  .WAIT  15  SECONDS 
AND  CHECK  AGA IN 

WA ITL  1ST  FOR  15  SECONDS 

IS  TRACK  FLAG  SET 

YES-SCHEDULE  DESIGNATE  JOB 
NO-WAIT  15  SECONDS 

SCHEDULE  JOB  TO  DO  R21 

START  AT  PERM.  MEMORY  INTEGRATION 


29 


GAP 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


P20- 

P25 

0380 

24,2374 

038  L 

REF 

1 

24,2375 

0382 

REF 

8 

LAST 

510 

24,2376 

0383 

24,2377 

0386 

REF 

2 

LAST 

247 

24,2400 

0385 

24,2401 

0386 

REF 

4 

LAST 

509 

24,2402 

0387 

REF 

1 

24,2403 

038  8 

REF 

6 

LAST 

509 

24,2404 

0389 

24, 2405 

0390 

REF 

5 

LAST 

51 1 

24,2406 

0391 

REF 

1 

24,2407 

0392 

REF 

4 

LAST 

509 

24,2410 

0393 

24,2411 

0394 

REF 

5 

LAST 

510 

24,2412 

0395 

REF 

l 

24,2413 

0396 

24,2414 

0 39  7 

REF 

6 

LAST 

509 

24,2415 

0398 

24,2416 

0399 

REF 

5 

LAST 

509 

24,2417 

040  0 

24,2420 

0401 

REF 

4 

LAST 

510 

24,2421 

040  2 

24, 2422 

0403 

REF 

9 

LAST 

516 

24,2423 

0404 

24,2424 

0405 

REF 

4 

LAST 

247 

24,2425 

040  6 

REF 

7 

LAST 

516 

24,2426 

040  7 

24,2427 

040  8 

REF 

3 

LAST 

516 

24,2430 

0409 

REF 

11 

LAST 

514 

24,2431 

0410 

REF 

6 

LAST 

516 

24,2432 

041  1 

24,2433 

0412 

REF 

b 

LAST 

516 

24,2434 

0413 

REF 

1 

24,2435 

0414 

REF 

1 

24,2436 

0415 

24,2437 

0416 

REF 

1 

24,2440 

0417 

REF 

1 

24,2441 

0418 

24,2442 

0419 

REF 

l 

24,2443 

0420 

24,2444 

0421 

REF 

2 

LAST 

516 

24,2445 

042  2 

24,2446 

042  3 

REF 

a 

LAST 

516 

24,2447 

0424 

0425 

REF 

7 

LAST 

516 

24.2450 

24.2451 

0426 
042  7 

REF 

5 

LAST 

516 

24.2452 

24.2453 

45020 

1 

uppsv 

STQ 

CALL 

C 1 755 

1 

LS21X 

27447 

0 

I NTSTALL 

77624 

1 

CALL 

26702 

0 

SET  I F LGS 

43014 

0 

BOF 

SET 

02756 

L 

RENDWFLG 

50414 

0 

UPPSV1 

01476 

0 

DIMOFLAG 

43014 

0 

BON 

SET 

04307 

1 

SURFFLAG 

5041  1 

0 

UPPSV5 

01475 

0 

D60R9FLG 

77614 

l 

UPPSV5 

BOF 

00747 

0 

VEHUPFLG 

50446 

1 

UPPS V3 

77614 

1 

UPPSV1 

SET 

C 14  74 

1 

VI  NT FLAG 

77624 

1 

CALL 

27172 

0 

I NTEGRV 

77624 

1 

CALL 

51770 

0 

GRP2PC 

77624 

1 

CALL 

27447 

0 

I NTSTALL 

43145 

0 

DLOAD 

CLEAR 

C 1 5 71 

0 

TETCSM 

01674 

0 

V INTFLAG 

77624 

1 

UPPS V4 

CALL 

26702 

0 

SETIFLGS 

34041 

0 

STCALL 

TDEC  1 

27172 

0 

INTEGRV 

77214 

0 

BOFF 

VLOAD 

04347 

0 

SURFFLAG 

5C274 

0 

P 20LEMC4 

01661 

1 

RCVLEM 

77742 

0 

VSR2 

26343 

1 

STOVL 

LMPOS 

01667 

1 

VCVLEM 

77742 

0 

VSR2 

02351 

1 

STORE 

LMVEL 

77650 

l 

GOTO 

Cl  755 

1 

LS21X 

45014 

0 UPPSV3 

CLEAR 

CALL 

01674 

0 

V INTFLAG 

27172 

0 

I NTEGRV 

77624 

L 

CALL 

51770 

0 

GRP2PC 

77624 

1 

CALL 
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UPDATES  PERMANENT  STATE  VECTORS 
TO  PRESENT  TIME 

IF  W— M ATP  T X INVALID, DONT  INTEGRATE  IT 

SET  DIMOFLAG  TO  INTEGRATE  W-MATRIX 
IF  ON  LUNAR  SURFACE  W IS  6X6 
OTHERWISE  9X9 


GROUP  2 PHASE  CHANGE 
TO  PROTECT  INTEGRATION 


GET  TETCSM  TO  STORE  IN  TDEC  FOR  LM  INT. 


INTEGRATE  OTHER  VEHICLE 
WITHOUT  W-MATRIX 


GAP : 
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042  8 

REF 

10 

LAST 

516 

24,2454 

042  9 

24,2455 

0430 

REF 

9 

LAST 

516 

24,2456 

0431 

REF 

2 

LAST 

116 

24,2457 

043  2 

24,2460 

0433 

REF 

1 

24,2461 

0434 

REF  11  LAST  515 

E 7 , 1456 

0435 

REF  1 

27447 

0 

INTSTALL 

71214 

0 

SET 

DLOAD 

01474 

l 

V INTFLAG 

C 1 643 

1 

TETLEM 

77650 

1 

GOTO 

5C427 

0 

UPPSV4 

EBA  NK= 

LOSCOUNT 

COUNT* 

$ I/P22 
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GET  TETLEM  TO  STORE  IN  TO  EC  FOR  CSM 


517 


I NT. 
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L 

P043  6 
R0437 
R0438 
R0439 
R0440 
R0441 
R044  2 
R0443 
R0444 
R044  5 
R044  6 
R044  7 
R0448 
R0449 
R0450 
R045  l 
R0452 
R045  3 
R0454 
R0455 
R0456 
R045  7 
R0458 
R 045  9 
R0460 
R046  1 
R04t>2 
R0463 

0464 

0465 

0466 

0467 

046  8 

0469 

0470 

0471 

0472 

0473 

0474 

0475 

0476 

04  7 7 

0478 

0479 

0480 

0431 

0482 

0483 

0484 


17:11  MAR.  19,1971  LEMP20S  .168  PAGE  518 
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PROGRAM  DESCRIPTION 

PREFERRED  TRACKING  ATTITUDE  PROGRAM  P25 

MOD  NO  - 3 

BY  P.  VOLANTE 

FUNCT  1CNAL  DESCRIPTION 


THE  PURPOSE  OF  THIS  PROGRAM  IS  TO  COMPUTE  THE  PREFERRED  TRACKING 
ATTITUDE  OF  THE  LM  TO  CONTINUOUSLY  POINT  THE  LM  TRACKING  BEACON  AT  THE 
CSM  AND  TO  PERFORM  THE  MANEUVER  TO  THE  PREFERRED  TRACKING  ATTITUDE  AND 
CONTINUOUSLY  MAINTAIN  THIS  ATTITUDE  WITHIN  PRESCRIBED  LIMITS 
CALLING  SEQUENCE  - 

ASTRONAUT  REQUEST  THROUGH  DSKY  V37E25E 
SUBROUTINES  CALLED  - 

FLAGUP 
ENDOF JOB 
WAITLIST 
FINDVAC 


EANKCALL 

R02BCTH  (IMU  STATUS  CHECK) 
R61LEM  (PREF  TRK  ATT  ROUT) 
TASKOVER 

NORMAL  EXIT  MODES  - 

P25  MAY  BE  TERMINATED  IN  TWO 
PROGRAM ( POO ) BY  KEYING  V37E00E 
ALARM  OR  ABORT  EXIT  MODES  - 
NONE 
OUTPUT 

FRASABLE  INITIALIZATION  REQUIRED 
FLAGS  SET  + RESET 
TRACKFLG.P25FLAG 
DEBRIS 
NONE 
REF  12 
REF  1 
REE  2 


WAYS-ASTRONAUT  SELECTION  OF  IDLING 
OR  BY  KEYING  IN  V56E 


LAST  517  F 7, 1 456 


LAST  507 


24. 2462 

24.2463 

24. 2464 

24.2465 


0 5331 
0C004 
05C22 
26000 


PR0G25 


EBANK= 

COUNT* 

TC 

OCT 

OCT 

OCT 


LOSCOUNT 
S $/P2  5 
2 PHSCHNG 
4 

05022 

26000 


REF  121 
REF  3 


REF 

REF 

REE 

REF 

REF 

REF 

REF 

REF 

REE 

REF 

REE 


24 
2 

25 

1 

40 

2 
13 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


4 LAST 
32  LAST 


76 

10 


LAST 

LAST 


514 

510 

613 

510 

518 

514 

510 

514 

300 

250 

515 
515 


24.2466 

24.2467 

24.2470 

24.2471 

24. 2472 

24.2473 

24. 2474 

24.2475 

24.2476 

24. 2477 

24. 2500 

24.2501 

24.2502 

24.2503 

24.2504 


0 4607  1 
33757  1 
0 5506  1 
00031  0 
0 5506  1 


00006  1 
0 5520  0 
00010  0 

0 5355  1 
04022  0 

3 4734 
7 0074 
0 0006 

1 5146 
3 4 740 


P25LEM1 


TC 

CADR 
TC 

ADRES 
TC 

ADRES 
TC 

ADRES 
TC 
QCT 
CAF 
MASK 
EXTEND 

BZF  ENDOF JOB 

CAF  TRACKBIT 


BANKCALL 

R02B0TH 

UPFLAG 

TRACKFLG 

UPFLAG 

P25FLAG 

OOWNFLAG 

RNDVZFLG 

P HASCHNG 

04022 

P25FLBI T 

STATE 


MAKE  GROUP  4 INACTIVE  (VERB  37) 
PRIORITY  26 

IMU  STATUS  CHECK 
SET  TRACK  FLAG 
SET  P25FLAG 


IS  P25FLAG  SET 
IS  TRACKFLAG  SET? 


GAP: 

L 

0485 

0486 

0487 

0488 

0489 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

049  7 

049  8 

0499 

0500 

0500 

0501 

050  2 
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P20-P25 


REF 

33 

LAST 

518 

24,2505 

7 0075 

l 

MASK 

STATE  +1 

24,2506 

0 0006 

l 

EXTEND 

REF 

1 

24,2507 

1 2515 

0 

BZF 

P25LMWT1 

REF 

8 

LAST 

471 

24,2510 

3 4750 

1 

CAF 

SEVEN 

REF 

2 

LAST 

158 

24,2511 

55*745 

1 

TS 

R65CNTR 

REF 

122 

LAST 

518 

24,2512 

0 4607 

1 

TC 

8ANKCALL 

REF 

1 

24, 25L3 

46123 

0 

CADR 

R65LEM 

REF 

2 

LAST 

251 

24,2514 

0 2476 

0 

TC 

P25LEM1 

REF 

1 

24 , 2515 

3 2526 

1 

P25LMWT1 

CAF 

60SCNDS 

KEF 

8 

LAST 

515 

24,2516 

0 5175 

1 

TC 

TWIDDLE 

REF 

1 

24,2517 

02521 

0 

ADRES 

P25LEM2 

REF 

77 

LAST 

518 

24,2520 

0 5146 

1 

TC 

ENDOFJOR 

REF 

1 

24, 2521 

3 5015 

0 

P25LEM2 

CAF 

PRI014 

REF 

19 

LAST 

515 

24, 2522 

0 5076 

0 

TC 

F INDVAC 

REF 

13 

LAST 

518 

E 7 , 1456 

E6ANK= 

LOSCOUNT 

REF 

3 

LAST 

519  • 

24, 2523 

024  76 

0 

2C  ADR 

P25LEM1 

24,2524 

5C067 

0 

REF 

20 

LAST 

515 

24, 2525 

0 5263 

0 

TC 

T ASKOVER 

24,2526 

13560 

0 

60SCNDS 

DEC 

6000 

USER' S PAGE  NO.  13  E7  S3 

NO-SKIP  PHASE  CHANGE  AND  WAIT  1 MINUTE 
CALL  R65  - FINE  PREFERRED 

TRACKING  ATTITUOE  ROUTINE 

THEN  GO  CHECK  FLAGS 

WAIT  ONE  MINUTE  THEN  CHFCK  AGAIN 
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P0503 

DATA 

READ  ROUTINE  22  (LEM) 

R0504 

PROGRAM 

DESCRIPT  ION 

R0505 

MOD  NO  - 

2 

R0506 

BY  P 

VOLANTE 

R0507 

FUNCTIONAL  DESCRIPTION 

R0508 

R0509 

TO 

PROCFSS  AUTOMATIC  RR  MARK 

. CATA 

TO 

UPDATE  THE  STATE 

VECTOR  OF  EITHER 

R0510 

LM  OR 

CSM  AS  DEFINED  IN  THE  RENDEZVOUS 

NAVIGATION  PROGRAM  (P20) 

RO  5 1 1 

CALLING 

SEQUENCE  - 

R0512 

TC 

BANKCALL 

R0513 

CADR 

R22LEM 

R0514 

SUBROUTINES  CALLED- 

- 

R0515 

LSR22 . 

1 

GUFL ASH 

WAITLIST 

R0516 

LSR22. 

2 

PRIOLARM 

BANKCALL 

R0517 

LSR22. 

3 

R61LEM 

R051  8 

NORMAL  EXIT  MODES- 

RO  51 9 

R22 

WILL  CONTINUE 

TO  RECYCLE 

.UPDATING 

STATE  VECTORS  WITH  RADAR  DATA 

R0520 

UNTIL 

P20  CEASES  TO 

OPERATE  (RENDEZVOUS 

FLAG  SET 

TO  ZERO)  AT  WHICH  TIME 

R052  1 

R22  WILL 

TERMINA1 E 

SELF. 

R0522 

ALARM 

OR 

ABORT 

EXIT 

MODES- 

R0523 

PRIORITY  ALARM 

R0524 

PRIORITY 

ALARM 

525 

LOS  NOT  WITHIN  3 ' 

3EGREE  LIMIT 

R0525 

OUTPUT 

R0526 

SEE 

OUTPUT  FROM  LSR22.3 

R0527 

ERASABLE 

INITIAL IZAT ION  REQUIRED 

R0528 

SEE 

LSR22. 1 , 

L SR  22 

•2.LSR22.3 

R0529 

FLAGS 

SET  + RESET 

R0530 

NOANGFLG 

R0531 

DEBR  IS 

R0532 

SEE 

LSR22. 1 , 

L SR  22 

. 2 , LSR22 .3 

0533 

REF 

2 

LAST 

152 

E 7 , 1 737 

EB A NK  = 

LRS22.1X 

0534 

REE 

1 

COUNT* 

t $ / R 2 2 

0535 

REE 

14 

LAST 

518 

24,2527 

0 5355 

1 

R22LEM 

TC 

P HASCHNG 

0536 

24,2530 

04022 

0 

OCT 

04022 

0537 

REF 

8 

LAST 

514 

24, 2531 

3 4736 

1 

CAF 

RNDVZBI T 

IS 

0538 

RFF 

34 

LAST 

519 

24,2532 

7 0074 

0 

MASK 

STATE 

0539 

24,2533 

0 C 0 06 

1 

EXTEND 

0540 

REF 

78 

LAST 

519 

24,  253-4 

l 5146 

0 

BZF 

ENDOF JOB 

NO- 

054  1 

REF 

11 

LAST 

518 

24,2535 

3 4 740 

0 

CAF 

TRACKBIT 

IS 

054  2 

REF 

35 

LAST 

520 

24,2536 

7 0075 

1 

MASK 

STATE  +1 

0543 

24,2537 

0 0006 

1 

EXTEND 

0544 

REF 

1 

24,2540 

1 2 724 

0 

BZF 

R22WA IT 

NO 

0545 

REF 

47 

LAST 

505 

24,2541 

3 4 727 

1 

R22LEM12 

CAF 

BIT14 

IS 

0546 

24,2542 

0 0006 

1 

EXTEND 

ON 

0547 

REF 

24 

LAST 

483 

24,2543 

02  012 

0 

RAND 

CHAN  12 

0548 

24, 2544 

0 0006 

1 

EXTEND 

0549 

REF 

2 

LAST 

511 

24,2545 

1 2 167 

1 

BZF 

P20LEMA 

NO 

0550 

REF 

28 

LAST 

513 

24,2546 

3 4743 

0 

CAF 

BIT? 

YES 

0551 

24,2547 

0 0006 

1 

EXTEND 

I S 

0552 

REF 

9 

LAST 

513 

24,2550 

02  033 

0 

RAND 

CHAN33 
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RENDESVOUS  FLAG  SET? 

EX  I T R22  AND  P20 
TRACKFLAG  SET? 

WAIT 

RR  AUTO  TRACK  ENABLE  DISCRETE  STILL 
IA  MONITOR  REPOSITION  BY  R25  CLFARSIT 

- RETURN  TO  P20 

RR  AUTO  MODE  DISCRETE  PRESENT 
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0553 

24,2551 

0 CC06 

1 

EXTEND 

0554 

24,2552 

1 2554 

0 

BZF 

* 2 

0555 

REF 

1 

24, 2553 

0 2213 

0 

TC 

P20LEMB5 

0556 

REF 

34 

LAST 

513 

24,2554 

4 0110 

0 

CS 

RADMODES 

0557 

REF 

2 

LAST 

513 

24, 2555 

7 4730 

0 

MASK 

RCDUOBIT 

0550 

24,2556 

C CC06 

1 

EXTEND 

0559 

REF 

2 

LAST 

515 

24,2557 

1 2713 

1 

BZF 

R22LEM42 

0560 

REF 

15 

LAST 

520 

24,2560 

0 5355 

1 

TC 

PHASCHNG 

0561 

24,2561 

OC  152 

1 

OCT 

00152 

0562 

REF 

123 

LAST 

519 

24,2562 

0 4607 

1 

TC 

BANKCALL 

056  3 

REF 

1 

24, 2563 

64362 

1 

CADR 

LRS22 . 1 

0564 

REF 

241 

LAST 

511 

24,2564 

50  154 

1 

INDEX 

M P AC 

0565 

24, 2565 

0 2566 

0 

TC 

+ 1 

0566 

REF 

1 

24,2566 

0 2607 

1 

TC 

R22LEM2 

056  7 

REF 

I 

24,2567 

0 2275 

0 

TC 

P20LEMC 

0568 

REF 

1 

24,2570 

3 2745 

0 

CAE 

ALRM525 

0569 

REE 

124 

LAST 

52  1 

24, 2571 

0 4607 

1 

TC 

BANKCALL 

0570 

REF 

2 

LAST 

513 

24,2572 

21572 

1 

CADR 

PRIDLARM 

0571 

REF 

5 

LAS1 

513 

24,2573 

0 6 043 

0 

TC 

GOT  0V56 

0572 

REF 

1 

24,2574 

0 2577 

0 

TC 

R22LEM1 

0573 

24,2575 

0 2570 

1 

TC 

-5 

0574 

REF 

79 

LAST 

520 

24,2576 

0 5146 

1 

TC 

ENDOFJOB 

0575 

REE 

16 

LAST 

521 

24,2577 

0 

5355 

1 

R22LEM1 

TC 

PHASCHNG 

0576 

24,2600 

04C22 

0 

OCT 

04022 

0577 

REE 

1 

24,2601 

3 

2 746 

0 

CAF 

V06N05 

0578 

REF 

125 

LAST 

521 

24,2602 

0 

4607 

1 

TC 

BANKCALL 

0579 

REF 

1 

24,2603 

20502 

1 

CADR 

PRIODSP 

0580 

REF 

6 

LAST 

521 

24,2604 

0 

6043 

0 

TC 

GUTOV56 

0581 

REF 

2 

LAST 

52  1 

24,2605 

0 

2607 

1 

TC 

R22LEM2 

0582 

REF 

2 

LAST 

52  1 

24,2606 

0 

2275 

0 

TC 

P20LEMC 

0583 

REF 

17 

LAST 

52  1 

24,2607 

0 

5355 

1 

R22LEM2 

TC 

PHASCHNG 

0584 

24,2610 

04022 

0 

OCT 

04022 

0585 

REF 

4 

LAST 

513 

24,2611 

0 

2751 

0 

TC 

LUNSFCHK 

0586 

REF 

1 

24,2612 

0 

2627 

0 

TC 

R22LEM3 

0587 

REE 

23 

LAST 

515 

24, 2613 

3 

C 075 

0 

CA 

F LAGWRD1 

0588 

REF 

12 

LAST 

520 

24, 26  14 

7 

4740 

1 

MASK 

TRACKBI T 

0589 

24, 2615 

0 

CC06 

1 

EXTEND 

0590 

REF 

2 

LAST 

520 

24,2616 

1 

2724 

0 

BZF 

R22WAIT 

0591 

REE 

126 

LAST 

521 

24,2617 

0 

4607 

1 

TC 

BANKCALL 

0592 

REF 

1 

24,2620 

51416 

0 

CADR 

LRS22 .2 

0593 

REF 

242 

LAST 

521 

24,2621 

50  154 

1 

INDEX 

M P AC 

0594 

24,2622 

•0 

2623 

1 

TC 

■E 1 

0595 

RFF 

2 

LAST 

521 

24,2623 

0 

2627 

0 

TC 

R22LEM3 

0596 

REF 

127 

LAST 

521 

24,2624 

0 

4607 

1 

TC 

BANKCALL 

059  7 

REF 

2 

LAST 

512 

24,2625 

46116 

0 

CADR 

R61LEM 

0598 

REF 

3 

LAST 

52  1 

24,2626 

0 

2724 

1 

TC 

R22WAIT 

0599 

REF 

24 

LAST 

521 

24,2627 

4 

0075 

1 

R22LEM3 

CS 

FLAGWRD1 

0600 

REF 

1 

24,2630 

7 

4737 

1 

MASK 

NQUPFBI T 
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YES  CONTINUE 
NO  - SET  IT 

ARE  RR  CDUS  BEING  ZEROED 


C DUS  BEING  ZEROED 

IF  A RESTART  OCCURS, AN  EXTRA  RADAR 
READING  IS  TAKEN, SO  BAD  DATA  ISN'T  USED 
YES  READ  DATA  + CALCULATE  LOS 
DATA  READ  SUBROUTINE 


NORMAL  RETURN  (GOOD  DATA) 

COULD  NOT  READ  RADAR-TRY  TO  REDESIGNATE 
RR  LOS  NOT  WITHIN  3 DEGREES  (ALARM) 


TERMINATE  EXITS  P20  VIA  V56  CODING 
PROC  (DISPLAY  DELTA  THETA) 

ENTER ( ILLEGAL  OPTION) 


DISPLAY  DELTA  THETA 


TERMINATE  EXITS  P20  VIA  V 56  CODING 
PROC  (OK  CONT  INUE ) 

ENTER (RECYCLE  ) 


CHECK  IF  ON  LUNAR  SURFACE  (P22FLAG  SET) 
YES-BYPASS  FLAG  CHFCKS  AND  LRS22.2 
IS  TRACK  FLAG  SET 


NO  - WAIT 
YES 

CHECKS  RR  BORESIGHT  WITHIN  30  DEG  OF  +Z 


NORMAL  RETURN ( LOS  WITHIN  30  OF  Z-AXIS) 


NOT  WITHIN  30  DEG  OF  Z-AXIS 

SHOULD  WE  BYPASS  STATE  VECTOR  UPDATE 

(IS  NOUPDATE  FLAG  SET?) 
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060  I 

24,2631 

0 0006 

1 

EXTENO 

0602 

REF 

3 

LAST 

521 

24, 2632 

l 2713 

1 

BZF 

R22LEM42 

0603 

REF 

25 

LAST 

521 

24,2633 

3 C075 

0 

CA 

FLAGWRD1 

0604 

REF 

1 

24,2634 

7 4736 

0 

MASK 

UPDATBIT 

0605 

24,2635 

0 C 006 

l 

EXTEND 

0606 

REF 

4 

LAST 

522 

24,2636 

1 2713 

1 

BZF 

R22LEM42 

060  7 

REF 

6 

LAST 

515 

24,2637 

3 7735 

1 

CAF 

PR  1026 

060  8 

REF 

3 

LAST 

240 

24,2640 

55 1 055 

1 

TS 

PHSPRDT2 

0609 

REF 

37 

LAST 

514 

24,2641 

0 6060 

1 

TC 

I NTPRET 

0610 

24,2642 

77650 

1 

GOTO 

061  1 

REF 

1 

24,2643 

54424 

1 

LSP22 .3 

0612 

24,2644 

77776 

I 

R22LEM93 

EXIT 

0613 

REF 

18 

LAST 

521 

24, 2645 

0 5355 

1 

TC 

PHASCHNG 

0614 

24,2646 

04022 

0 

OCT 

04022 

0615 

REF 

l 

24,2647 

1 2706 

0 

TC  F 

R22LEM44 

0616 

24,2650 

77776 

1 

R22LEM96 

EXIT 

061  7 

REF 

1 C 7 

LAST 

51  1 

24,2651 

3 4746 

0 

CAF 

ZERO 

061  8 

REF 

1 

24,2652 

55’ 746 

1 

TS 

N49FLAG 

0619 

REF 

19 

LAST 

522 

24,2653 

0 5355 

l 

TC 

PHASCHNG 

0620 

24,2654 

04022 

0 

OCT 

04022 

062  l 

REF 

3 

LAST 

234 

24,2655 

3 7736 

1 

CAF 

P R 1027 

062  2 

REF 

13 

LAST 

505 

24,2656 

0 5063 

1 

TC 

NOVAC 

062  3 

REF 

2 

LAST 

522 

E 7 , 1 746 

E8ANK= 

N49FLAG 

0624 

REF 

1 

24,2657 

02726 

0 

2C  ADR 

N49DSP 

0624 

REF 

1 

24,2660 

5CC67 

0 

062  5 

REF 

38 

LAST 

522 

24,2661 

0 6060 

1 

TC 

INTPRET 

062  6 

24,2662 

77735 

0 

SLUAD 

062  7 

REF 

3 

LAST 

522 

24,2663 

03747 

0 

N49FLAG 

0628 

24,2664 

50C54 

0 

BZE 

BMN 

062  9 

24,2665 

50662 

0 

-3 

0630 

REF 

1 

24,2666 

5C674 

1 

R22LEM7 

0631 

24,2667 

77650 

1 

GOTO 

0632 

REF 

3 

LAST 

15  1 

24,2670 

03675 

0 

LGRET 

0633 

REF 

34 

LAST 

50'6 

24, 2671 

4 4743 

1 

V 34T0N49 

CS 

TWO 

0634 

REF 

4 

LAST 

522 

24,2672 

55*  746 

1 

TS 

N49FLAG 

0635 

REF 

80 

LAST 

52  1 

24,2673 

0 5146 

1 

TC 

ENDOF JOB 

0636 

24,2674 

77776 

1 

R22LEM7 

EXIT 

063  7 

REF 

5 

LAST 

522 

24,2675 

3 1746 

0 

CA 

N49FLAG 

063  8 

REF 

35 

LAST 

522 

24,2676 

6 4 743 

0 

AD 

TWO 

0639 

24,2677 

0 0006 

1 

EXTEND 

064  0 

REF 

1 

24,2700 

1 2527 

1 

BZF 

R22LEM 

0641 

REF 

39 

LAST 

522 

24,2701 

0 6C60 

1 

TC 

INTPRET 

0642 

24,2702 

77624 

1 

CALL 
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R0684 
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IF  P22FLAG  SET 
IF  P22FLAG  NOT  SET 

SURFACE 

( P22FLAG 

0685 

REF 

2 

LAST 

517  TO 

518: 

0 

0* 

COUNT  * 

ES/P22 
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0830 

REE 

4 

LAST 

526 

24,3132 

03425 

1 

REPOSTM 

083  1 

REF 

14 

LAST 

526 

24,3133 

34C41 

0 

STC ALL 

TDEC  1 

0832 

REF 

2 

LAST 

514 

24,3134 

50374 

1 

UPPSV 

0833 

24,3135 

7 7 776 

1 

EXIT 

0834 

REF 

29 

LAST 

526 

24,3136 

0 5506 

1 

TC 

UPFLAG 

0835 

REF 

2 

LAST 

284 

24,3137 

0C264 

1 

ADRES 

CDESFLAG 
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USER'S  PAGE  NO.  20  E7  S3 


SEARCH  ROUTINF 


CLEAR  BITS  10  G 15  IN  RADMODES 
SET  UP  COUNTER  FOR 
60  PASSES  (APPROX  600  SECS.) 

SET  FIRST  TIME  FLAG 
RESET  LOS  BEING 
COMPUTED  FLAG 


TIME  T = T + 10  SECS. 

SAVE  FOR  LONGCALL  AND  UPPSV 

COMPUTE  LOS  AT  TIME  T 


LOS  NOT  IN  MODE  2 COVERAGE 
VEHICLE  MANEUVER  REQUIRED 


FIRST  TIME  THRU  PREPOSITION 
NO-GO  TO  CONTINUOUS  DESIGNATE 
YFS  - RESET  FIRST  TIME  FLAG 

HAVE  WE  TRIED  60  TIMES? 

NO-ADD  10  SECS.  RECOMPUTE  LOS 
YES-PUT  OUT  ALARM  530 


SET  RADMODES  BIT  15  FOR 
CONTINUOUS  DESIGNATION 


GAP: 

L 

0836 

083  7 

0838 

0839 

084  0 

0 841 

0842 

084  3 

0844 

0845 

0 84  6 

0 04  7 

084  8 

0 04  9 

0850 

0851 

085  2 

0853 

0853 

0854 

0855 

0856 

005  7 

0858 

0059 

0860 

0861 

086  1 

0862 

0863 

0864 

0 865 

0866 

0867 

0868 

0369 

0870 

0871 

0871 

0872 

0872 

0873 

0874 

0875 

0876 

0877 

0878 

0879 

0880 

0884 


168  PAGE  527 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161  17:11  MAR.  19,1971  LEMP20S  . 


P20-P25 


REF 

45 

LAST 

526 

24,3140 

0 5520 

0 

TC 

DOWNFLAG 

REF 

5 

LAST 

525 

24,3141 

00012 

1 

ADRES 

LOKONSW 

REF 

30 

LAST 

526 

24,3142 

0 5506 

1 

TC 

UPFLAG 

REF 

5 

LAST 

525 

24,3143 

00126 

1 

ADRES 

NORRMON 

REF 

137 

LAST 

525 

24,3144 

0 4607 

1 

TC 

8ANKCALL 

REF 

3 

LAST 

525 

24, 3145 

52466 

1 

CADR 

RRDESNB 

24,3146 

0 3147 

0 

TC 

+ 1 

REE 

45 

LAST 

526 

24,3147 

0 6060 

1 

TC 

I NTPRET 

24,3150 

44234 

1 

RTB 

BDSU 

REF 

1 1 

LAST 

526 

24,3151 

21603 

1 

LOADTIME 

REF 

5 

LAST 

526 

24,3152 

03425 

1 

REPOSTM 

REF 

1 

24,3153 

03427 

0 

STORE 

DELTATM 

24,3154 

77776 

1 

EXIT 

24,3155 

C 0006 

1 

EXTEND 

REF 

2 

LAST 

527 

24,3156 

3 1427 

1 

OCA 

DELTATM 

REF 

2 

LAST 

386 

24,3157 

C 5301 

0 

TC 

LONGCALL 

REF 

16 

LAST 

525 

E7, 1456 

EBANK= 

LOSCOUNT 

REF 

1 

24, 3160 

03163 

0 

2CAQR 

R21LEM9 

REF 

1 

24,3161 

5006  7 

0 

REF 

64 

LAST 

526 

24,3162 

0 5 146 

1 

TC 

ENDOF JOB 

REF 

3 

LAST 

526 

24,3  163 

0 6050 

1 

R2ILEM9 

TC 

KILLTASK 

REF 

1 

24,3164 

52573 

l 

CADR 

STDESIG 

REF 

6 

LAST 

300 

24,3165 

0 6027 

I 

TC 

CLRADMOD 

REF 

7 

LAST 

522 

24,3  166 

3 7735 

1 

CAF 

PR  1026 

REF 

20 

LAST 

519 

24,3167 

0 5076 

0 

TC 

F INDVAC 

REE 

17 

LAST 

527 

E7 , 1456 

EBANK= 

LOSCOUNT 

REF 

2 

LAST 

524 

24,3170 

03011 

1 

2C  ADR 

R2  1LEM10 

24,3171 

50067 

0 

REF 

21 

LAST 

519 

24,3172 

0 5263 

0 

TC 

TASKOVER 

REF 

1 

24, 3173 

3 3202 

1 

R21L  EMI l 

CAF 

ALRM530 

REF 

138 

LAST 

527 

24,3174 

0 4607 

1 

TC 

B ANKCALL 

REF 

4 

LAST 

525 

24,3175 

21572 

1 

CADR 

PRIOLARM 

REF 

8 

LAST 

52  5 

24,3176 

0 6043 

0 

TC 

G0T0V56 

REF 

9 

LAST 

52  7 

24,3177 

0 6043 

0 

TC 

G0T0V56 

REF 

10 

LAST 

527 

24,3200 

0 6043 

0 

TC 

G0T0V56 

REF 

85 

LAST 

527 

24,3201 

0 5146 

1 

TC 

ENDOF JOB 

24,3202 

OC  530 

1 

ALRM530 

OCT 

00530 

24,3203 

00000 

1 

TENSEC 

2DEC 

1000  B-28 

24,3204 

01750 

1 

24,3205 

00000 

1 

HALFSEC 

2DEC 

50 

24,3206 

0C062 

0 

REF 

22 

LAST 

526 

24,3207 

0 5355 

1 

R 2 ID  I S P 

TC 

PHASCHNG 

24,3210 

04022 

0 

OCT 

04022 

REF 

1 

24,3211 

3 3217 

0 

CAF 

V50N72 

REF 

139 

LAST 

527 

24,3212 

0 4607 

1 

TC 

BANKCALL 

REF 

1 

24, 3213 

20326 

1 

CADR 

ORIOMONR 

REF 

11 

LAST 

527 

24,3214 

0 6 C43 

0 

TC 

GOTO V56 

REF 

5 

LAST 

525 

24,3215 

0 2310 

1 

TC 

P20LEMWT 

24, 3216 

0 3211 

0 

TC 

-5 

24, 3217 

14510 

0 

V50N72 

VN 

05072 

USER'S  PAGE  NO.  21  E7  S3 


COMPUTE  DELTA  TIME 
FOR  LONGCALL 


ALARM  530-LOS  NOT  IN  COVERAGE 
AFTER  TRYING  TO  DESIGNATE  FOR 
600  SECS. 


FLASH  V50N72  MONITOR  -PLFASE  PERFORM  RR 

MAIN  LOSE  LOCKCN  VERIFICATION 

THIS  IS  A PRIORITY  DISPLAY 

TERMINATE  FXITS  VIA  V 56 

PROCEED  CONTINUES  TO  R22 

ENTFR  ILLEGAL 


GAP: 

L 

P0835 

R0886 

R0897 

R0888 

R0889 

R0990 

R0891 

R089  2 

R0893 

R0894 

R0895 

R0896 

R 089  7 

R089  8 

R0899 

R0900 

R0901 

R0902 

R0903 

R0904 

R0905 

R0906 

090  7 

090  8 

090  9 

0910 

09  L 1 

0912 

0913 

0914 

0915 

0916 

0917 

0918 

0919 

0920 

092  1 

0922 

0923 

0924 

092  5 

0926 

092  7 

0928 

0929 

0930 

093  1 

0932 

0933 

0934 


ASSEU8LE  RFVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 
P20-P25 

MANUAL  ACQUISITION  RCUTINE  R23LEM 
PROGRAM  DESCRIPTION 
MOD  NO  - 2 
BY  P VCL ANTE 
FUNCTIONAL  DESCRIPTION 

TO  ACQUIRE  THE  CSM  BY  MANUAL  OPERATION  OF  THE  RENDEZVOUS  RADAR 
CALLING  SEQUENCE  - 

TC  R23LEM 

SUBROUTINES  CALLED 

E ANKC  ALL  R61LEM 

SETMINDB  G0PERF1 

NORMAL  EXIT  MODES  - 

IN  RFSPONSE  TO  THE  G0PERF1  .SELECTION  OF  ENTER  WILL  RECYCLE  R23 


17:11  MAR.  19,1971  LEMP20S  .168  PAGE 
USER' S PAGE  NO.  22  F7  S3 


.SELECTION  OF  PROC 
.SELECTION  OF  TERM 


WILL  CONTINUE  R23 
WILL  TERMINATE  R23  +P20 


ALARM  OR  ABORT 
SEE  NORMAL  E 
OUTPUT 

N . A . 

ERASABLE  INITI 
ACMODFLG  MUS 


EXIT  MODES  - 
X I T MOOES  ABOVE 


AL I ZAT ION  REQUI 
T BE  SET  TO  1 ( 


RED- 

MANUAL  MODE) 


REF 

1 

1 142 

EB ANK= 

GENRET 

REF 

1 

COUNT  * 

J.T/R23 

REF 

31 

LAST- 

527 

24,3220 

0 5506 

1 

R23LEM 

TC 

UPFLAG 

SET  NO  ANGLE  MONITOR  FLAG 

REF 

6 

LAST 

527 

24,322  1 

00126 

1 

ADRES 

NORRMON 

24,3222 

C 0CO4 

0 

INHINT 

REF 

17 

LAST 

346 

24,3223 

0 4665 

0 

TC 

I BNKC ALL 

SELECT  MINIMUM  DEADBANO 

REF 

1 

24,3224 

40141 

1 

CADR 

SETMINDB 

24,3225 

0 0003 

1 

RELINT 

REF 

50 

LAST 

524 

24, 3226 

3 4727 

1 

R23LEM1 

CAE 

BIT14 

ENABLE  TRACKER 

24,3227 

C 0006 

l 

EXTEND 

REF 

26 

LAST 

524 

24,3230 

05  012 

1 

WOR 

CHAN12 

RFF 

1 

24,3231 

3 3270 

1 

CAE 

0CT205 

REF 

140 

LAST 

527 

24,3232 

0 4607 

l 

TC 

BANKCALL 

REF 

2 

LAST 

513 

24,3233 

20635 

0 

CADR 

G0PERF1 

REF 

1 

24,3234 

0 3261 

1 

TC 

R23LEM2 

TERMINATE 

REF 

1 

24,3235 

0 3237 

1 

TC 

R23LEM11 

PROCEDE 

REF 

1 

24,3236 

0 3264 

l 

TC 

R23LEM3 

ENTER-  DO  ANOTHER  MANUVER 

24,3237 

0 0004 

0 

R23LEM11 

INHINT 

REF 

2 

LAST 

198 

24,3240 

0 4514 

0 

TC 

RRLIMCHK 

YES  - CHECK  IF  ANTENNA  IS  W] 

REF 

7 

LAST 

328 

24,3241 

00035 

1 

ADRES 

CDUT 

REF 

1 

-24,3242 

0 3251 

1 

TC 

OUTOFLIM 

NOT  W ITHIN  LIMITS 

REF 

18 

LAST 

528 

24,3243 

0 4665 

0 

TC 

I BNKC  AL  L 

RESTORE  DEADBAND  TO 

REF 

4 

LAST 

307 

24,3244 

40115 

0 

CADR 

RESTORDB 

ASTRONAUT  SELECTED  VALUE 

24,3245 

0 0003 

1 

REL  INT 

REF 

46 

LAST 

527 

24, 3246 

0 5520 

0 

TC 

DOWNFLAG 

CLEAR  NO  ANGLE  MONITOR  FLAG 

REF 

7 

LAST 

520 

24,3247 

00126 

1 

ADRES 

NORRMON 

REF 

1 

24,3250 

0 2241 

1 

TC 

P20LEM81 

RADAR  IS  LOCKED  ON  CONTINUE 

24,3251 

0 0003 

1 

OUTOFLIM 

REL  INT 

528 


ITS 


GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 

L P20-P25 


0935 

REF 

1 

24,3252 

3 

3267 

1 

CAF 

0CT501PV 

0 93  6 

REF 

141 

LAST 

528 

24,3253 

0 

4607 

1 

TC 

B ANKCALL 

093  7 

REF 

5 

LAST 

527 

24,3254 

21572 

1 

CADR 

PRIOLARM 

093  8 

REF 

2 

LAST 

528 

24,3255 

0 

3261 

1 

TC 

R23LEM2 

093  9 

REF 

2 

LAST 

528 

24,3256 

0 

3252 

1 

TC 

OUTOFLIM 

0940 

REF 

2 

LAST 

528 

24,3257 

0 

3264 

1 

TC 

R23LEM3 

0941 

REF 

86 

LAST 

527 

24,3260 

0 

5146 

1 

TC 

endofjob 

0942 

REF 

47 

LAST 

528 

24,3261 

0 

5520 

0 

R23LEM2 

TC 

DOWNFLAG 

094  3 

REF 

8 

LAST 

528 

24,3262 

00126 

1 

ADRES 

NORRMON 

0944 

REF 

12 

LAST 

527 

24,3263 

0 

6 C43 

0 

TC 

G0T0V56 

094  5 

REF 

142 

LAST 

529 

24,3264 

0 

4607 

1 

R23LEM3 

TC 

BANKCALL 

0946 

REF 

3 

LAST 

521 

24, 3265 

46116 

0 

CADR 

R61LEM 

094  7 

REF 

1 

24,3266 

0 

3226 

1 

TC 

R23LEM1 

0948 

24,3267 

0C501 

0 

0CT50 1PV 

OCT 

501 

0949 

24,3270 

00205 

0 

0CT205 

OCT 

205 
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ISSUE  ALARM  - RR  ANTENNA  NOT  WITHIN 
LIMITS 

TERMINATE  - EXIT  R23  TO  ROO  (GO  TO  POOH) 
+1  PROCEED  ILLEGAL 

RECYCLE-  DO  ANOTHER  MANUVFR 

CLEAR  NO  ANGLE  MONITOR  FLAG 

AND  EXIT  VIA  V56 


GAP: 
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USER'S  PAGE  NO.  24  E2  S3 


P0950  SEARCH  ROUTINE  R24LEM 

R0951  PROGRAM  DESCRIPTION 

R0952  MOD  NO  - 2 

R0953  BY  P.  V01 ANTE 

R0954  FUNCTIONAL  DESCRIPTION 

R0955 

R0956  TO  ACGU1RE  THE  CSM  BY  A SEARCH  PATTERN  WHEN  THE  RENDEZVOUS  RADAR  HAS 

R0957  FAILED  TO  ACQUIRE  THF  CSM  IN  THE  AUTOMATIC  TRACKING  MODE  AND  TO  ALLOW 

R0956  THE  ASTRONAUT  TO  CONFIRM  THAT  RE ACQU  I S I T I ON  HAS  NOT  BEEN  BY  SIDELOBE. 

R0959  CALLING  SEQUENCE 

R0960  CAF  PRICNN 

R0961  TC  FINDVAC 

R0962  EBANK=  DATAGOOD 

R096  3 2C ADR  R24LEM 

R0964  SUBROUTINES  PALLED 

R0965  FLAGUP  FLAGDOWN  BANKCALL 

RU966  R61LEM  GOFLASHR  FINDVAC 

R0967  ENDCFJOB  NOVAC  LSR24.1 

R0968  NORMAL  EXIT  MODES- 

R0969  ASTRONAUT  RESPONSE  TO  DISPLAY  OF  OMEGA  AND  DATAGOOD. HE  CAN  EITHER 

R0970  REJECT  BY  TERMINATING  (SEARCH  OPTION  AND  RESELECTING  P20)  OR  ACCEPT  BY 
R0971  PROCEEDING  (EXIT  ROUTINE  AND  RETURN  TO  AUTO  MODE  IN  P20) 

R0972  ALARM  OR  ABOUT  EXIT  MODES- 
R0973  SEE  NORMAL  EXIT  MODES  ABOVE 

R0974  OUTPUT  - 

R0975  SEE  OUTPUT  FROM  LSR24.1  + R61LEM 

R0976  ERASABLE  INITIALIZATION  REQUIRED 
R0977  SEE  INPUT  FOR  LSR24.1 

R0978  FLAGS  SET  + RESET 

R0979  SRCHOPT , ACMODFLG 


0980 

REF 

3 

LAST 

328 

E 7 , 1733 

EBANK= 

DATAGOOD 

0981 

REF 

1 

COUNT* 

$$/R24 

0982 

REF 

32 

LAST 

528 

24,3271 

0 5506 

1 

R24LEM 

TC 

UPFLAG 

0983 

REF 

4 

LAST 

514 

24,3272 

0CC37 

0 

ADRES 

SRCHOPTN 

SET  SRCHOPT  FLAG 

0984 

REF 

43 

LAST 

529 

24, 3273 

0 5520 

0 

TC 

DOWNFLAG 

RESET  LOS  BEING  COMPUTED 

FLAG 

TO  MAKE 

0985 

REF 

5 

LAST 

526 

24,3274 

00041 

1 

ADRES 

LOSCMFLG 

SURE  DODES  DOESN'T  GO  TO 

R21 

0986 

REF 

109 

LAST 

524 

24,3275 

3 4746 

0 

R24LEM1 

CAF 

ZERO 

0987 

REF 

4 

LAST 

530 

24,3276 

55' 733 

0 

TS 

DATAGOUD 

ZERO  OUT  DATA  INDICATOR 

0988 

REF 

2 

LAST 

32  8 

24,3277 

55' 734 

1 

TS 

OMEGAD 

ZERO  OMEGA  DISPLAY  REGS 

098  9 

REF 

3 

LAST 

530 

24,3300 

55' 735 

0 

TS 

OMEGAD  +1 

ZERO  OMEGA  DISPLAY  REGS 

0990 

REF 

23 

LAST 

527 

24,3301 

0 5355 

1 

R24LEM2 

TC 

P HASCHNG 

0991 

24,3302 

04  C 22 

0 

GCT 

04022 

0992 

REF 

1 

24,3303 

3 3336 

1 

CAF 

V16N80 

099  3 

REF 

143 

LAST 

529 

24,3304 

0 4607 

1 

TC 

BANKCALL 

0994 

REF 

1 

24,3305 

20477 

1 

CADR 

PRIODSPR 

0995 

REF 

13 

LAST 

529 

24,3306 

0 6043 

0 

TC 

G0T0V56 

0996 

REF 

1 

24,3307 

0 3313 

0 

TC 

R24END 

PROCEED  EXIT  P24  TO  P 20LEM 1 

099  7 

REF 

1 

24,3310 

0 3317 

1 

TC 

R24LEM3 

RECYCLE  - CALL  R61  TO  MANEUVER 

S/C 

GAP: 


ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  202IL12-161 


L P20-P25 


0998 

REF 

144 

LAST 

530 

24,3311 

0 

4607 

1 

TC 

BANKCALL 

0999 

REF 

1 

24,3312 

55441 

0 

CADR 

LRS24.1 

1000 

REF 

4 

LAST 

527 

24,3313 

0 

6050 

1 

R24END 

TC 

K ILLTASK 

1001 

REF 

1 

24,3314 

55642 

1 

CADR 

CALLDGCH 

1002 

REF 

7 

LAST 

527 

24,3315 

0 

6027 

l 

TC 

CLRADMOD 

1003 

REF 

1 

24,3316 

l 

2065 

1 

TC  F 

P20LEM1 

1004 

6027 

BLOCK 

3 

1005 

REF 

1 

6000 

StTLOC 

FFTAG6 

1006 

6027 

BANK 

100  7 

REF 

1 

COUNT* 

t$/R24 

1008 

REF 

29 

LAST 

520 

6027 

4 

4743 

1 

CLRADMOD 

cs 

B IT2 

1009 

6030 

0 

0006 

l 

EXTEND 

1010 

REF 

27 

LAST 

528 

6031 

03  012 

1 

WAND 

CHAN  12 

101  1 

REF 

1 

6032 

4 

6037 

1 

CLRADMD1 

CS 

B IT  10  + 15 

101  1 3 

REF 

1 

4733 

REFTAG3 

= 

DESIGBIT 

101  1 1 

REF 

1 

4726 

REFTAG4 

= 

CDESB IT 

1012 

6033 

0 

0004 

0 

INHINT 

1013 

REF 

36 

LAST 

524 

6034 

7 

0110 

0 

MASK 

RADMOOES 

1014 

REF 

37 

LAST 

531 

6035 

54  110 

0 

TS 

RADMODES 

101  5 

REF 

149 

LAST 

523 

6036 

0 

0002 

0 

TC 

0 

101  6 

6037 

41000 

1 BIT10+15 

OCT 

41000 

1017 

24,3317 

BANK 

24 

1018 

REF 

3 

LAST 

510 

24,2000 

SETLOC 

P20S 

1019 

24,3317 

BANK 

1020 

REF 

2 

LAST 

530  TO 

531  : 

22 

22* 

COUNT* 

$$/R24 

1021 

REF 

24 

LAST 

530 

24,3317 

0 5355 

1 R24LEM3 

TC 

PHASCHNG 

1022 

24,3320 

04022 

0 

OCT 

04022 

1023 

REF 

5 

LAST 

531 

24,3321 

0 6C50 

1 

TC 

K ILLTASK 

1024 

REF 

2 

LAST 

53  1 

24,3322 

55642 

1 

CADR 

CALLDGCH 

1025 

REF 

8 

LAST 

531 

24,3323 

0 6027 

1 

TC 

CLRADMOD 

1026 

REF 

1 

24,3324 

3 4765 

1 

CAF 

. 5SEC 

102  7 

REF 

145 

LAST 

531 

24,3325 

0 4607 

1 

TC 

BANKCALL 

1028 

REF 

10 

LAST 

514 

24, 3326 

01736 

1 

CADR 

DELAYJ08 

102  9 

REF 

9 

LAST 

525 

24,3327. 

0 2751 

0 

TC 

LUNSFCHK 

1030 

REF 

1 

24,3330 

0 3333 

1 

TC 

R24LEM4 

1031 

REF 

146 

LAST 

53  1 

24,3331 

0 4607 

1 

TC 

BANKCALL 

1032 

REF 

4 

LAST 

529 

24,3332 

46  1 16 

0 

CADR 

R61L  EM 

1033 

REF 

1 10 

LAST 

530 

24,3333 

3 4746 

0 R24LEM4 

CAF 

ZERO 

1034 

REF 

2 

LAST 

233 

24,3334 

55*303 

1 

TS 

RADCADR 

1035 

1036 

REF 

1 

24,3335 

0 3301 

0 

TC 

R24LEM2 
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USER'S  PAGE  NO.  25  E7  S3 

CLEAR  BITS  10  £ 15  OF  RADMOOES. 

AND  GO  TO  400  MI.  RANGE  CHECK  IN  P20. 

DISABLE  RR  ERROR  CNTRS 
KNOCK  OOWN  DESIGNATE  AND 

CONTINUOUS  DESIGNATE  FLAGS 


KILL  WAITLIST  FOR  NEXT  POINT  IN  PATTERN 
CLEAR  BITS  10  + 15  OF  RADMOOES 


WAIT  FOP  DESIGNATE  LOOP  TO  DIE 


CHECK  IF  ON  LUNAR  SURFACE 
YES-DONT  DO  ATTITUDE  MANEUVER 
CALL  R61  TO  DO  PREFERRED  TRACKING 
ATTITUDE  MANFUVER 

ZERO  OUT  RADCADR  (WHICH  WAS  SET  BY 
ENDRADAR  WHEN  DESIGNATE  STOPPED)  SO  THAT 
RRDESSM  WILL  RETURN  TO  CALLER 
AND  GO  BACK  TO  PUT  UP  VL6  N80  DISPLAY 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L P20-P25 

1037  24.3336  04120  0 V16N80  VN  01680 


17: 11  MAR.  19,1971  LEMP20S 
USER'S  PAGE  NO.  26 


.168  PAGE 
E7  S3 


532 
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P1038  PREFERRED  TRACKING  ATTITUDE  ROUTINE  R61LEM 
R1039  PROGRAM  DESCRIPTION 

R 1 040  MOD  NO  : 3 CATE  : 4-11-67 

R 104 1 MOD  BY  : P VOLANTE  SOC 


R 1 04 2 FUNCTIONAL  DESCRIPTION- 

R 104 3 TO  CCMPUTE  THE  PREFERRED  TRACKING  ATTITUDE  OF  THE  LM  TO  ENABLE  RR 

R 1044  TRACKING  OF  THE  CSM  AND  TC  PERFORM  THE  MANEUVER  TO  THE  PREFERRED 
R 1045  ATTITUDE. 

R1046  CALLING  SEQUFNCE- 
R 1 04  7 TC  BANKCALL 

R 1048  CADR  R61LEM 

R 1 04 9 SUBROUTINES  CALLED 

RL050  LPS20.1  VECPOINT 

R1051  KALCMAN3 


R 105?  NORMAL  EXIT  MODES- 
R 105 3 NORMAL  RETURN  IS  TO  CALLER  + 1 

R1054  ALARM  OR  ABORT  EXIT  MODES- 

R1055  TERMINATE  P20  + R61  BY  BRANCHING  TO  P20  END  IF  BOTH  TRACKFL.AG  + 

R 1056  RENDEZVOUS  FLAG  ARE  NOT  SET. 

R 1 0 5 7 OUTPUT  - 

R1058  SEE  OUTPUT  FOR  LPS20.1  + ATTITUDE  MANEUVER  ROUTINE  1 R60  ) 

R 1 05 9 ERASABLE  INITIALIZATION  REQUIRED 

R 1060  GFNRET  USED  TO  SAVE  Q FOR  RETURN 

R 106 1 FLAGS  SET  + RESET 

R1062  3AXISFLG 

R 1 063  DEBRIS 
R 1064  SEE  SUBROUTINES 


1065 

REF 

1 

23,2000 

SETLOC 

R61 

106  6 

23,2116 

BANK 

106  7 

REF 

18 

LAST 

527 

£7,1456 

EBANK= 

LOSCOUNT 

1068 

REF 

1 

COUNT* 

$ $/R  6 1 

1069 

REF 

4 

LAST 

492 

23,2116 

0 4636 

0 

R61LEM 

TC 

MAKECADR 

1070 

REF 

2 

LAST 

528 

23,2117 

55' 142 

0 

TS 

GENRET 

.1071 

REF 

33 

LAST 

530 

23,2120 

0 5506 

1 

TC 

UPFLAG 

SET  R 6 1 FLAG 

1072 

REF 

1 

23,2121 

00024 

1 

ADRES 

R61FLAG 

1073 

REF 

l 

23,2122 

0 2152 

0 

TC 

R61C+L02 

1074 

REF 

5 

LAST 

533 

23, 2123 

0 4636 

0 

R65LEM 

TC 

MAKECADR 

1075 

REF 

3 

LAST 

533 

23,2124 

55' 142 

0 

TS 

GENRET 

1076 

REF 

4 9 

LAST 

530 

23, 2125 

0 5520 

0 

TC 

DOWNFLAG 

RESET  R61  FLAG 

1077 

REF 

2 

LAST 

533 

23,2126 

00024 

1 

ADRES 

R61FLAG 

107702 

REF 

51 

LAST 

528 

23,2127 

3 4727 

1 

CA 

BIT14 

RESET  AGS  CODE  WORD  (=20000).  DON'T 

1077C4 

REF 

5 

LAST 

524 

23,2130 

55' C73 

0 

TS 

AGSCODE 

PGNCS  DOWNLINKED  RADAR  DATA. 

1078 

REF 

25 

LAST 

531 

23,2131 

0 5355 

1 

R61C+L01 

TC 

PHASCHNG 

RESTARTS  DURING  OR  AFTER  R65  WILL 

10782 

2 3,2132 

C4022 

0 

OCT 

04022 

RETURN  HFRE. 

10784 

REF 

25 

1 AST 

483 

23,2133 

3 4741 

1 

CAF 

B I T 4 

BYPASS  RADAR  READING  IF  DATA 

1079 

23,2134 

0 0006 

1 

EXTEND 

GOOD  NOT  PRESENT 

533 


USE 
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1080 

REF 

10 

LAST 

520 

23,2135 

02  033 

0 

RAND 

CHAN33 

1081 

REF 

164 

LAST 

524 

23,2136 

10  000 

0 

CCS 

A 

1082 

REF 

2 

LAST 

533 

23,2137 

L 2152 

1 

TCF 

R61C+L02 

1085 

REF 

147 

LAST 

53  1 

23,2140 

0 4607 

1 

TC 

BANKCALL 

1086 

REF 

3 

LAST 

523 

23,2141 

53072 

1 

CADR 

RRRDOT 

1087 

REF 

148 

LAST 

534 

23,2  142 

0 4607 

1 

TC 

BANKCALL 

1080 

REF 

7 

LAST 

525 

23,2143 

17733 

0 

CADR 

RADSTALL 

1089 

23,2144 

12  145 

1 

NOOP 

1090 

REF 

149 

LAST 

534 

23,2145 

0 4607 

1 

TC 

BANKCALL 

1091 

REF 

2 

LAST 

506 

23,2146 

53074 

1 

CADR 

RRRANGE 

1092 

REF 

150 

LAST 

534 

23,2147 

0 4607 

1 

TC 

BANKCALL 

1093 

REF 

8 

LAST 

534 

23,2150 

1 7733 

0 

CADR 

RADSTALL 

1094 

23,2151 

12  152 

1 

NOOP 

1097 

REF 

13 

LAST 

52  1 

23,2152 

3 4740 

0 

R61C+L02 

CAF 

TRAC  KB  I T 

1098 

REF 

36 

LAST 

520 

23,2  153 

7 0075 

1 

MASK 

STATE  +1 

1099 

23,2154 

0 0006 

1 

EXTEND 

1100 

REF 

1 

23,2155 

1 2312 

1 

BZF 

R65WAIT 

1101 

REF 

46 

LAST 

527 

23,2156 

0 6060 

1 

R61C+L03 

TC 

I NTPRET 

1102 

23,2  157 

77775 

1 

VLOAD 

1103 

REF 

4 

LAST 

503 

23,2 160 

06477 

0 

HIUNITZ 

1104 

REF 

21 

LAST 

498' 

23,2161 

03765 

0 

STORE 

SCAXI S 

110  5 

23, 2162 

43234 

0 

R61LEMI 

RT  8 

DAD 

1 106 

REF 

12 

LAST 

527 

23,2163 

21603 

1 

LOADTIME 

1107 

REF 

1 

23,2164 

15712 

1 

3SEC0NDS 

1 108 

REF 

15 

LAST 

526 

23,2165 

3 4 C 4 1 

0 

STC ALL 

T0EC1 

1 109 

REF 

4 

LAST 

526 

23,2166 

51337 

1 

LPS20 . 1 

1110 

23,2167 

77775 

1 

VLOAD 

mi 

REF 

2 

LAST 

106 

23,2170 

01101 

0 

RRTARGE  T 

1112 

REF 

6 

LAST 

496 

23,2171 

03773 

1 

STORE 

POINTVSM 

1113 

23,2172 

45  034 

1 

RTB 

CALL 

1114 

REF 

1 

23,2173 

46320 

1 

READCDUD 

1115 

REF 

1 

23,2  174 

56032 

0 

VECPNT1 

1116 

REF 

8 

LAST 

492 

23,2  175 

00322 

1 

STORE 

CPU  I 

1117 

23,2176 

77776 

1 

EXIT 

1120 

REF 

14 

LAST 

534 

23,2177 

3 4740 

0 

CAF 

TRACKBI T 

1 12  1 

REF 

26 

LAST 

522  . 

23  ,2200 

7 0075 

1 

MASK 

FLAGWRD1 

1122 

23,2201 

0 0006 

1 

EXTEND 

1 123 

REF 

2 

LAST 

534 

23,2202 

1 2312 

1 

BZF 

R65WAIT 

1 124 

REF 

151 

LAST 

534 

23,2203 

0 4607 

1 

TC 

BANKCALL 

1 125 

REF 

2 

LAST 

489 

23,2204 

54267 

0 

CADR 

G+N, AUTO 

l 126 

REF 

165 

LAST 

534 

23,2205 

10  COO 

0 

CCS 

A 

1127 

REF 

1 

23,2206 

0 2300 

0 

TC 

R61C+L04 

1 128 

REF 

47 

LAST 

534 

23,2207 

0 6060 

1 

TC 

INTPRET 

1129 

23,2210 

45  175 

0 

VLOAD 

CALL 

1 130 

REF 

3 

LAST 

534 

23,2211 

01101 

0 

RRTARGET 

1131 

REF 

l 

23,2212 

47  640 

0 

CDU*SMN9 

1 132 

23 , 2213 

45345 

1 

DLOAD 

DSU 

113  3 

REF 

243 

LAST 

521 

23,2214 

OC  162 

1 

M P AC  +5 

1 134 

REF 

1 

23,2215 

06316 

0 

C0S15DEG 

113  5 

23,2216 

77440 

1 

R61LEM2 

BMN 

EXIT 
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NO  DATA  GOOD 
READ  RR  RANGE  AND  RDO T 
EVERY  P.65  PASS  (3  TIMES 
BEFORE  FIRST  MARK,  ONCE 
DURING  ANY  MARK  PROCESSING, 


TP ACKFLAG 


MOT  SET 


TRACK  AXIS  UNIT  VECTOR 

EXTRAPOLATE  FORWARD  TO  CENTER 
SIX  SECOND  PERIOD. 

LOS  DETERMINATION  + VFH  ATTITUDE 


GET  DESIRED  CDU'S  FOR  VECPNT1 

COMPUTES  FINAL  ANGLES  FROM  PRESENT  CDUDS 
STORE  FINAL  ANGLFS  - C PH  I , CTHET A, CPS  I 

IS  TRACK  FLAG  SET 


CHECK  FOR  AUTO  MODE 
NOT  IN  AUTO 


GFT  PHI  - ARCCOS  OF  Z-COMPONENT  OF  LOS 


BRANCH  - PHI  > 15  DEGREES 


a23Q 
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1136 

REF 

1 

23,2217 

46234 

0 

R61C+L05 

1137 

REE 

12 

LAST 

381 

E6 , 1 634 

EBANK= 

C DUX  D 

1 138 

REF 

4 

LAST 

306 

23,2220 

3 5006 

1 

CAF 

EBANK6 

1139 

REF 

19 

LAST 

475 

23,2221 

54  003 

0 

TS 

EBANK 

1 140 

23,2222 

0 0 C 04 

0 

INHINT 

1141 

23, 2223 

0 CC  06 

1 

FXT  END 

1 142 

REF 

9 

LAST 

534 

23,2224 

3 0322 

1 

DCA 

C PH  I 

1 143 

REF 

13 

LAST 

535 

23,2225 

53 ' 635 

1 

DXCH 

CDUXD 

1144 

REF 

4 

LAST 

493 

23,2226 

3 0323 

0 

CA 

CPSI 

1 145 

REF 

5 

LAST 

381 

23,2227 

55 ' 636 

I 

TS 

CDUZD 

1 146 

23,2230 

0 0003 

1 

RELINT 

1 147 

REF 

19 

LAST 

533 

E7, 1456 

EBANK= 

LOSC  OUNT 

1 148 

REF 

3 

LAST 

399 

23,2231 

3 5007 

0 

CAF 

EBANK7 

1 149 

REF 

20 

LAST 

535 

23,2232 

54  C 03 

0 

TS 

EBANK 

1150 

REF 

1 

23,2233 

0 2257 

0 

TC 

R61C+L06 

1151 

23,2234 

77776 

1 

R61C+L05 

EXIT 

1152 

23,2235 

0 CC04 

0 

INHINT 

1153 

REF 

19 

LAST 

528 

23,2236 

0 4 665 

0 

TC 

I BNKCALL 

1154 

REF 

3 

LAST 

375 

23,2237 

4 C 1 54 

0 

FCADR 

ZATTEROR 

1155 

REF 

20 

LAST 

535 

23,2240 

0 4665 

0 

TC 

I BNKCALL 

1156 

REF 

2 

LAST 

520 

23,2241 

40141 

1 

FCADR 

SETMINDB 

1157 

REF 

50 

LAST 

533 

23,2242 

0 5520 

0 

TC 

DOWNFLAG 

1158 

REF 

5 

LAST 

500 

23,2243 

OC  124 

0 

ADRES 

3AXISFLG 

1159 

REF 

34 

LAST 

533 

23,2244 

0 5506 

1 

TC 

UPFLAG 

1160 

REF 

2 

LAST 

490 

23, 2245 

00114 

0 

ADRES 

PDSPFLAG 

1 16  1 

REF 

152 

LAST 

534 

23,2246 

0 4607 

1 

TC 

BANKCALL 

1 162 

REF 

3 

LAST 

500 

23,2247 

54125 

0 

CADR 

R60LEM 

1 163 

23,2250 

0 0004 

0 

INHINT 

1 164 

REF 

21 

LAST 

535 

23,2251 

0 4665 

0 

TC 

I BNKCALL 

1165 

REF 

5 

LAST 

528 

23,2252 

4CH5 

0 

FCADR 

REST  0RD6 

1166 

REF 

26 

LAST 

533 

23,2253 

0 5355 

1 

TC 

P HASCHNG 

1167 

23,2254 

C4C22 

0 

OCT 

04022 

1168 

REF 

51 

LAST 

535 

23,2255 

0 5520 

0 

TC 

DOWNFLAG 

1169 

REF 

3 

LAST 

535 

23,2256 

00114 

0 

ADRES 

PDSPFLAG 

1170 

REF 

27 

LAST 

534 

23,2257 

3 0075 

0 

R61C+L06 

CA 

FLAGWPD1 

1171 

REF 

1 

23,2260 

7 4 733 

0 

MASK 

R61FLBIT 

1172 

REF 

166 

LAST 

534 

23,2261 

10  000 

0 

CCS 

A 

l 173 

REF 

1 

23,2262 

0 2303 

0 

TC 

R61C+L4 

1174 

REF 

4 

LAST 

523 

23,2263 

1 1 ' 745 

l 

CCS 

R65CNTR 

1175 

23,2264 

0 2266 

1 

TC 

+ 2 

1176 

REF 

2 

LAST 

535 

23,2265 

0 2303 

0 

TC 

R61C+L4 

1 177 

REF 

5 

LAST 

535 

23,2266 

55' 745 

1 

TS 

R65CNTR 

1178 

REF 

1 

23,2267 

3 2317 

0 

CAF 

06SEC 

1179 

REF 

9 

LAST 

519 

23,2270 

0 5175 

1 

TC 

TWIDDLE 

1180 

REF 

1 

23,2271 

02273 

0 

ADRES 

R61C+L2 

1181 

REF 

87 

LAST 

529 

23,2272 

0 5 146 

1 

TC 

ENDOF JOB 

1 182 

REF 

8 

LAST 

527 

23,2273 

3 7735 

1 

R61C+L2 

CAF 

PR  1026 

1183 

REF 

21 

LAST 

527 

23, 2274 

0 5 C 76 

0 

TC 

F INDVAC 

1184 

REF 

20 

LAST 

535 

E7 , 1456 

E B A IM  K = 

LOSCOUNT 

1 185 

REF 

1 

23,2275 

C2131 

0 

2C  ADR 

R61C+L01 

1185 

REF 

1 

23,2276 

46067 

1 
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PHI  GRE  10DEG 


REDUCE  ATTITUDE  ERROR 


SET  PRIORITY  DISPLAY  FLAG 


RESET  PRIORITY  DISPLAY  FLAG 


R65CNTR 


0 


EXIT  ROUTINE 
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1186 

REE 

22 

LAST 

527 

23,2277 

0 

5263 

0 

TC 

TASKOVER 

1 18  7 

REE 

153 

LAST 

535 

23, 2300 

0 

4607 

1 

R61C+L04 

TC 

BANKCALL 

1 188 

REF 

4 

LAST 

489 

23,2301 

54300 

0 

CADR 

BALLANGS 

1189 

PEE 

2 

LAST 

535 

23,2302 

0 

2257 

0 

TC 

R61C+L06 

1 190 

REF 

4 

LAST 

533 

23,2303 

31 ' 142 

1 

R61C+L4 

CAE 

GENRET 

1191 

REF 

8 

LAST 

494 

23,2304 

1 

4631 

0 

TC  F 

BANKJUMP 

1192 

REF 

1 

23,2305 

3 

2314 

0 

R61C+L1 

CAF 

B IT7  + 9PV 

l L93 

REF 

37 

LAST 

534 

23,2306 

7 

0074 

0 

MASK 

STATE 

1194 

23,2307 

0 

0006 

1 

EXTEND 

1 195 

REF 

88 

LAST 

535 

23,2310 

1 

5 1 46 

0 

BZF 

ENDOFJOB 

1196 

REF 

3 

LAST 

536 

23,2311 

0 

2257 

0 

TC 

R61C+L06 

1197 

REF 

37 

LAST 

484 

23,2312 

0 

4626 

1 

R65WAIT 

TC 

POSTJUMP 

1 198 

REF 

6 

LAST  . 

527 

23,2313 

50310 

0 

CADR 

P20LEMW  T 

1199 

23,2314 

C0500 

1 

BIT7+9PV 

OCT 

00500 

1200 

23,2315 

17350 

1 

C0S15DEG 

2DEC 

0.96593 

1200 

23,2316 

34602 

1 

120  1 

23,2317 

01130 

1 

06SEC 

DEC 

600 

120  2 

0024 

PHI 

EQUALS 

2 OD 

1203 

23,2320 

0 0004 

0 

READCDUD 

INHINT 

120  4 

REF 

5 

LAST 

535 

23,2321 

3 5006 

1 

CAF 

E BANK  6 

1205 

RFF 

21 

LAST 

535 

23,2322 

56  C03 

1 

XCH 

EBANK 

1206 

REF 

16 

LAST 

234 

- 23,2323 

54  C70 

1 

TS 

RUPTREG1 

120  7 

REF 

14 

LAST 

535 

E6 , 1 634 

EB ANK= 

CDUXD 

1208 

REF 

15 

LAST 

536 

23,2324 

3 1634 

1 

CA 

CDUXD 

1209 

REF 

244 

LAST 

534 

23,2325 

54  154 

0 

TS 

MPAC 

1210 

23,2326 

0 CC06 

1 

EXTEND 

1211 

REF 

6 

LAST 

38  1 

23,2327 

3 1636 

0 

DC  A 

CDIJYD 

1212 

REF 

245 

LAST 

536 

23,2330 

52  L56 

1 

DXCH 

MPAC  +1 

1213 

REF 

17 

LAST 

536 

23,2331 

3 CC70 

0 

CA 

RUPTREG1 

1214 

REF 

22 

LAST 

536 

23,2332 

54  003 

0 

TS 

EBANK 

1215 

23,2333 

0 C003 

1 

REL INT 

1216 

REF 

1 

23,2334 

1 6520 

1 

TCF 

T MODE 

1217 

4503 

BLOCK 

02 

1218 

REF 

1 

4000 

SETLOC 

RADARFF 

1219 

4503 

BANK 

1220 

REF 

21 

LAST 

535 

E7 , 1456 

EBANK= 

LOSCOUNT 

1221 

REF 

1 

COUNT  * 

$ $/RRSUB 
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TO  CONVERT  ANGLES  TO  F D A 1 


EXIT  R 6 1 

IS  RENDEZVOUS  OR  P25FLAG  SET 


NO-EXIT  ROUTINE  AND  PROGRAM. 
YES  EXIT  ROUT INE 


1 


READS  DESIRED  CDU'S  AND  STORES  IN 
M P AC  TP  EXITS  WITH  MODE  SET  TO  TP 
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.168  PAGE 
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537 


P 122  2 

THE  FOLLOWING  SUBROUTINE  RETURNS  TO 

CALLER  + 2 

IF  THE  ABSOLUTE  VALUE  OF 

VALUE 

OF  C ( A)  IS 

GREATER  THAN  THE 

R1224 

NEGATIVE 

OF  THE  NUMBER 

AT  CALLER  +1. 

OTHERWISE 

IT  RETURNS  TO  CALLER  +3. 

MAY  BE 

CALLED  IN 

RUPT  OR  UNDER  EXEC 

1226 

4503 

0 0C06 

l MAGSUB 

EXTEND 

1227 

4 504 

6 4506 

C 

BZMF 

+ 2 

1228 

4505 

1 4507 

0 

TCF 

+ 2 

1229 

4506 

4 0000 

0 

COM 

1230 

REF  150 

LAST  531 

4507 

50  C 02 

0 

INDEX 

Q 

1231 

4510 

6 0000 

1 

AD 

0 

1232 

4511 

0 0006 

1 

EXTEND 

1233 

REF  1 

4512 

6 6762 

1 

BZMF 

g+2 

ABSI A ) 

<=  CONST 

GO  TO  L+3 

1234 

REF  4 

LAST  489 

4513 

1 6 7 60 

1 

TCF 

Q + l 

ABS( A I 

> CONST 

GO  TO  L+2 
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P1235  PROGRAM  NAME_  RRL  IMCHK  ARE  IN  THE  LIMITS  OF  THE  CURRENT  MODE. 

R1237  FUNCTIONAL  OESCKIPTION_ 

R1238  KRLIMCHK  CHECKS  RR  DESIRED  GIMBAL  ANGLES  TO  SEE  IF  THEY  ARE  WITHIN 
R1239  THE  LIMITS  OF  THE  CURRENT  MODE.  INITIALLY  THE  DESIRED  TRUNNION  AND 
R 124  0 SHAFT  ANGLES  ARE  STORED  IN  ITEMPl  AND  ITEMP2.  THE  CURRENT  RR 

P 1 24 1 ANTENNAE  MODE  (RADMOCES  BIT  12)  IS  CHECKED  WHICH  IS  = 0 FOR 
R 1 242  MODE  1 AND  =1  FOR  MODE  2. 

R 1 24 3 MODE  l - THE  TRUNNION  ANGLE  IS  CHECKEO  AT  MAGSUB  TO  SEE  IF  IT  IS 
R 124  4 BETWEEN  -55  AND  +55  DEGREES.  IF  NOT,  RETURN  TO  L +2.  IF  WITHIN  LIMITS, 

R1245  THE  SHAFT  ANGLE  IS  CHECKED  TO  SEE  IF  IT  IS  BETWEEN  -70  AND  +59  DEGREES. 

R 1 246  IF  NCT,  RETURN  TO  L +2.  IF  IN  LIMITS,  RETURN  TO  L +3. 

R1247  MODE  2 - THE  SHAFT  ANGLE  IS  CHECKED  AT  MAGSUB  TO  SEE  IF  IT  IS 
R 124 8 BETWEEN  -139  AND  -25  DEGREES.  IF  NOT,  RETURN  TO  L +2.  IF  WITHIN 

R1249  LIMITS,  THE  TRUNNION  ANGLE  IS  CHECKED  TO  SEE  IF  IT  IS  BETWEEN  +125 

R1250  AND  -125  (+235)  DEGREES.  IF  NCT,  RETURN  TO  L +2.  IF  IN  LIMITS,  RETURN 
R1251  TO  L +3. 

R1252  CALLING  SEQUENCE: 

R1253  L re  RRL  IMCHK  (WITH  INTERRUPT  INHIBITED) 

R1254  L +1  ADRES  T,S  (DESIRED  TRUNNION  ANGLE  ADDRESS) 

R 1255  ERASAELE  INITIALIZATION  REQUIRED: 

R 1 25 6 RADMODFS,  MODEA,  MODEB  (OR  DESIRED  TRUNNION  AND  SHAFT 

R 1 25  7 ANGLES  ELSEWHERE  IN  CONSECUTIVE  LOCATIONS  - UNSWITCHED  ERASABLE  OR 

R 1 25 8 CURRENT  EBANK)  . 

R 1 25 9 SUBROUTINES  C A L L E D_  MAGSUB 

R1260  JOBS  OR  TASKS  INITIATED.  NONE 

R 1 26  1 ALARMS.  NONE 


R 1 262 
R 126  3 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

127  L 

1272 

1273 

1274 

1275 


EXIT.  L + 2 (EITHER  OR  BOTH  ANGLES  NOT  WITHIN  LIMITS  OF  CURRENT  MODE) 
L + 3 (BOTH  ANGLES  WITHIN  LIMITS  OF  CURRENT  MODE) 


4514 

0 0006 

1 

RRLIMCHK  EXTEND 

REF 

151 

LAST 

537 

4515 

5 0002 

0 

INDEX 

Q 

4516 

5 COOO 

1 

INDEX 

0 

4517 

3 0C01 

0 

DC  A 

0 

REE 

152 

LAST 

538 

4520 

24  002 

0 

I NCR 

Q 

REF 

6 

LAST 

271 

452  1 

52  C 62 

1 

DXCH 

ITEMPl 

KEF 

153 

LAST 

538 

4522 

22  002 

0 

LXCH 

Q 

REF 

2 

LAST 

335 

4523 

3 4731 

0 

CAF 

ANTENBIT 

REF 

38 

LAST 

531 

4524 

7 0110 

0 

MASK 

RADMODES 

REF 

167 

LAST 

535 

4525 

10  000 

0 

CCS 

A 

REF 

1 

4526 

1 4541 

l 

TCF 

M0DE2CHK 

REF 

7 

LAST 

538 

4527 

3 0C61 

0 

CA 

I TEMPI 

LICALLER  +2)  TO  L. 

SEE  WHICH  MODE  RR  IS  IN. 


MODE  1 IS  DEFINED  AS 


GAP: 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L P20-P25 


1276 

REF 

1 

4530 

0 4503 

0 

TC 

MAGSUB 

1277 

4531 

66  161 

1 

DEC 

- .30555 

1278 

REF 

64 

LAST 

479 

4532 

0 0001 

0 

TC 

L 

1279 

REF- 

1 

4533 

3 4553 

0 

CAF 

5 . 5DEGS 

1280 

REF 

3 

LAST 

97 

4534 

6 0062 

0 

AD 

I TEMP2 

1281 

REF 

2 

LAST 

539 

4 53  5 

0 4503 

0 

TC 

MAGSUB 

1282 

4536 

64420 

0 

DEC 

- .35833 

1283 

REF 

65 

LAST 

539 

4537 

0 0001 

0 

TC 

L 

1284 

REF 

l 

4 540 

0 4551 

1 

TC 

RRLIMOK 

1285 

REF 

1 

4 541 

3 4554 

1 

M0DE2CHK 

CAF 

82DEGS 

1286 

REF 

4 

LAST 

539 

4542 

6 0062 

0 

AD 

ITEMP2 

1287 

REF 

3 

LAST 

539  , 

4543 

0 4503 

0 

TC 

MAGSUB 

1208 

4 544 

65673 

0 

DEC 

- .31667 

1209 

REF 

66 

LAST 

539 

4 54  5 

0 0001 

0 

TC 

L 

1290 

REF 

G 

LAST 

538 

4 546 

3 0 C 6 1 

0 

CA 

I TEMPI 

1291 

REF 

4 

LAST 

539 

4 54  7 

0 4503 

0 

TC 

MAGSUB 

1292 

4550 

51615 

1 

DEC 

- .69444 

1293 

REF 

67 

LAST 

539 

4551 

50  001 

0 

RRLIMOK 

INDEX 

L 

1294 

REF 

68 

LAST 

539 

4552 

0 0001 

0 

TC 

L 

1295 

4553 

OC  765 

0 

5 . 5DEGS 

DEC 

. 03056 

1296 

4554 

16450 

L 

82DEGS 

DEC 

.45556 
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1 . ABSIT)  L 55  DEGS. 

2.  ABSIS  + 5.5  DEGS)  L 64.5  DEGS 

(SHAFT  LIMITS  AT  +59,  -70  DEGS) 


S 

64.5  DEGS 
IN  LIMITS. 

MODE  2 IS  DEFINED  AS 

1 . ABSIT)  G 125  DEGS. 

2.  ABSIS  + 82  DEGS)  L 57  DEGS 

(SHAFT  LIMITS  AT  -25,  -139  DEGS) 


125  DEGS 


GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L P20-P25 

PI 29 7 PROGRAM  NAME_  SETTRKF 
R1299  FUNCT ICNAL  OESCRIPTION_ 

R 1 300  SETTRKF  UPDATES  THE  TRACKER  FAIL  LAMP  ON  THE  OSKY. 

R1302  INITIALLY  THE  LAMP  TEST  FLAG  (IM0DES33  BIT  1)  IS  CHECKED. 

R 1 30 3 IF  A LAMP  TEST  IS  IN  PROGRESS,  THE  PROGRAM  EXITS  TO  L +1. 

R 1 30  4 IF  NO  LAMP  TEST  THE  FOLLOWING  IS  CHECKED  SE QU ENT  I AL L Y_ 

R 1 30 5 1)  RR  CCU: S BEING  ZEROED,  RR  CDU  OK,  AND  RR  NOT  IN 

R 1 306  AUTO  MODE  (RADMOOES  BITS  13,  7,  2). 

R 1 30 7 2)  LR  VEL  DATA  FAIL  AND  NO  LR  PCS  DATA  (RADMODES  BITS 

R 130  8 8,  51 

R1309  3)  NO  PR  DATA  (RADMODES  BIT  4) 

R1310  THE  ABSFNCE  OF  ALL  THREE  SIMULTANEOUSLY  IN  (l),  THE  PRESENCE  OF  BOTH 

R 131 1 IN  (2),  AND  THE  PRESENCE  OF  (3)  RESULTS  IN  EITHER  THE  TRACKER  FAIL 

Rl  31 2 LAMP  (DSPTAB  +110  BIT  8)  BEING  TURNED  ON  OR  LEFT  ON.  OTHERWISE, 

R 13 1 3 THE  TRACKER  FAIL  LAMP  IS  TURNED  CFF  OR  IS  LEFT  OFF.  THEREFORE,  THE 
R 1 3 1 4 TRACKER  FAIL  LAMP  IS  TURNED  UN  IF_ 

R 131 5 A ) RR  CDU  FAILED  WITH  RR  IN  AUTO  MODE  AND  RR  CDU:S  NOT  BEING  ZEROED. 

R 1 3 1 1>  B)  N SAMPLES  OF  LR  DATA  COULD  NOT  8E  TAKEN  IN  2N  TRIES  WITH 

R 1 31  7 EITHER  THE  ALT  OR  .VEL  INFORMATION 

R 131 8 C)  N SAMPLES  OF  RR  DATA  COULD  NCT  BE  OBTAINED  FROM  2N  TRIES 
R 1 31 9 WITH  EITHER  THE  AL 

R 132 0 CALLING  SEQUENCE: 

RI321  L TC  SETTRKF 

R1322  ERASABLE  INITIALIZATION  REQUIRED:  IM0DES33,  RADMODES,  DSPTAB  +110 
R 132 3 SUBROUTINES  CALLED.  NONE 

R 1324  JOBS  OR  TASKS  INITIATED.  NONE 

R1325  ALARMS.  TRACKER  FAIL  LAMP 

R 132  6 EXIT.  L +1  (ALWAYS) 


1320 

REF 

27 

LAST 

482 

4555 

3 4744 

1 

SETTRKF 

CAF 

BIT1 

1329 

REF 

32 

LAST 

48  5 

4556 

7 1300 

l 

MASK 

I MODE  S33 

1330 

REF 

160 

LAST 

538 

4557 

10  000 

0 

CCS 

A 

1331 

REF 

154 

LAST 

538 

4560 

0 0002 

0 

TC 

Q 

1332 

REF 

25 

LAST 

346 

4561 

3 4735 

1 

RRTRKF 

CA 

B IT8 

133  3 

REF 

69 

LAST 

539 

4562 

54  C01 

1 

TS 

L 

1334 

REF 

2 

LAST 

196 

4563 

3 4606 

0 

CAF 

13,7,2 

1335 

REF 

39 

LAST 

538 

4 564 

7 Cl  10 

0 

MASK 

RADMODES 

133  6 

4565 

0 0006 

l 

EXTEND 

133  7 

REF 

1 

4566 

1 4572 

1 

BZF 

TRKFLON 

133  8 

REF 

1 

4567 

3 4741 

1 

RRCHECK 

CAF 

RRDATABT 

133  9 

REF 

40 

LAST 

540 

4570 

7 0110 

0 

MASK 

RADMODES 
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. IF  EITHER: 

HER  THE  ALT  OR  VEL  INFORMATION. 


EO. 

NO  ACTION  IF  DURING  LAMP  TEST. 


SEE  IF  CDU  FA  ILFD . 
CONDITION  3 ABOVE. 


SEE  IF  RR  DATA  FAILED 


GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 

L P20-P25 


1340 

REF 

169 

LAST 

540 

4571 

10  000 

0 

CCS 

A 

1341 

REF 

7C 

LAST 

540 

4572 

3 0001 

0 

TRKFLON 

CA 

L 

1342 

REF 

46 

LAST 

486 

4573 

6 1035 

0 

AD 

DSPTAB 

1343 

REF 

71 

LAST 

541 

4574 

7 OCOl 

1 

MASK 

L 

1344 

4575 

0 0006 

1 

EXTEND 

1345 

REF 

4 

LAST 

286 

4576 

1 6 7 63 

1 

BZF 

TCQ 

1346 

KEF 

47 

LAST 

541 

4577 

3 1035 

0 

FLIP 

CA 

DSPTAB 

134  7 

4600 

0 0006 

1 

EXTEND 

134  8 

REF 

8 

LAST 

227 

4601 

06  C01 

0 

RXGR 

L CHAN 

1349 

REF 

11 

LAST 

447 

4602 

7 4724 

0 

MASK 

POSMAX 

1350 

REF 

32 

LAST 

524 

4603 

6 4 7 26 

0 

AD 

B I T 1 5 

135  1 

REF 

48 

LAST 

541' 

4604 

55 ' 035 

1 

TS 

DSPTAB 

1352 

REF 

155 

LAST 

540 

4605 

0 0002 

0 

TC 

• Q 

1353 

4606 

10102 

0 

13,7,2 

oct 

10102 

1354 

4607 

FNDRMODF 

EQUALS 
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10  HALF  ADD  DESIRED  AND  PRESENT  STATES. 

NO  CHANGE. 

ID  CANT  USE  LXCH  DSPTAB  +11D  (RESTART  PROS) 


ID 
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GPSS:  A Simulation  Program 
Julia  Hsia  DL  7-105,  Extension  8-1156 


GPSS,  a simulation  language  for  discrete  modeling,  is  an  IBM  program  product 
which  we  would  like  more  users  to  take  advantage  of.  Programmers  working  on 
simulations  should  be  aware  of  its  good  features  and  consider  using  GPSS  (General 
Purpose  Simulation  System)  in  their  simulation  work  instead  of,  for  example, 
FORTRAN  which  is  cumbersome  as  a general  modeling  tool.  I have  gathered  much 
useful  material  which  will  help  the  user  get  started  in  GPSS.  For  example,  there 
is  a bibliography  on  simulation  languages  in  general,  including  articles  in  computer 
journals  and  several  books.  In  addition,  I have  lecture  notes  on  a GPSS  course 
with  problem  sets  and  their  solutions.  There  are  also  complete  listings  of  both 
simple  and  more  sophisticated  programs  written  in  GPSS.  I'll  be  glad  to  show 
these  materials  to  anyone  interested.  Hopefully,  in  a couple  of  months,  I'll  give  an 
introductory  talk  on  GPSS.  In  the  meantime.  I'll  be  happy  to  talk  informally  with 
any  programmers  interested  in  using  GPSS. 
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New  Version  of  VTOCLIST 
Richard  Tavan  DL  7-349,  Extension  8-1469 


A new  version  of  VTOCLIST  is  now  available  with  some  helpful  features: 

1.  Any  DD  card  that  does  not  specify  a DSNAME  will  result  in  a normal 
VTOC  being  printed.  The  EXEC  card  parameters  PDS,  MAP,  and  DUMP  will 
be  handled  normally.  DDnames  JOBLIB,  STEPLIB,  SYSUDUMP,  SYSABEND, 
SYSPRINT  and  SYSIN  will  be  ignored.  Therefore,  it  is  not  necessary  for 
DDnames  to  begin  "VOL". 

2.  If  a valid  DD  card  specified  DSN=PDSNAME,  a VTOC  will  be  printed 
listing  only  the  specified  PDS  and  its  members,  regardless  of  EXEC  card 
parameters.  This  is  very  useful  when  you  wish  to  inspect  the  condition  of  a 
volume  and  of  a single  PDS  without  expanding  the  PDS  directories  of  everyone 
else's  datasets. 

3.  Any  characters  other  than  PDS,  MAP,  or  DUMP  in  the  PARM  field  are 
assumed  to  be  a DDname  indicating  a request  to  process  only  a specific  volume 
on  the  single  DD  card  with  that  name.  This  is  useful  when  you  wish  to  CALL 
or  LINK  the  VTOCLIST  from  another  program  which  is  using  voluminous  JCL. 

To  use  the  new  program,  specify  in  your  JCL: 


// 

stepname 

EXEC  PGM = VTOC  LIST,  PARM  ^parameters' 

// 

STEPLIB 

DD 

DSN=DIGDEV.OLLS.LOAD,DISP=SHR 

II 

SYSPRINT 

DD 

SYSOUT=A 

II 

ddnamea 

DD 

VOL=SER  = serial,  UN  IT=U  NIT,  DISP=SHR 

(lists  entire  volume) 


DD  DSN=pdsname,  DISP=SHR 

(lists  pds  members  only) 


/ / ddnamez 


General  Least  Square,  Least  Power  and  Chebyshev  Function 
Fitting  MAC  Subroutines  for  Discrete  Point  Sets 
William  M.  Robertson  DL  7-204,  Extension  8-1263 


It  is  frequently  desired  to  approximate  a function  f(X),  which  may  only  be 
known  in  the  form  of  tabular  data,  by  a linear  combination  of  several  appropriately 
chosen  functions  0.(X): 


Three  MAC  programs  are  now  available  which  for  arbitrary  "fitting"  functions 
tf.(X)  specified  by  the  user  will  determine  the  coefficients  C.  such  that  the  above 
approximation  is  "best"  over  a finite  set  of  points  Aq,  Xj,  X2>  . . .,  X^  in  the 
sense  of  (1)  weighted  least  squares,  (2)  unweighted  least  powers,  or  (3)  Chebyshev 
(minimax). 

23A  SGA  Memorandum  No.  4-72  provides  a description  of  the  call  and  resume 
lists  and  the  preliminary  data-file  initializations  required  for  the  use  of  these  three 
MAC  subroutines  which  are  named  WMR.LEASTSQR,  WMR.LEASTPWR  and 
W MR.CHEBSHEV.  Copies  of  this  memorandum  are  available  from  its  author,  Bill 
Robertson,  Extension  8-1263. 


M 


F(X) 


1=0 


* * * * 
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New  Version  of  CalComp  PLOTS  Routine 
David  A.  Lynde  DL  7-116B,  Extension  8-1147 


On  August  28,  a new  version  of  the  CalComp-FPLOT  interface  routine,  PLOTS, 
was  placed  in  the  CalComp  plotting  routine  library,  SYS1.CCPLTLIB,  and  the 
cataloged  procedures  FORTPCLG  and  FORTPLG  were  altered  to  reflect  changes 
in  the  new  version  of  PLOTS.  This  routine  contains  the  entry  points:  PLOTS, 

FACTOR,  OFFSET,  WHERE,  and  PLOT. 

Several  improvements  were  made  in  the  new  version.  The  maximum  length 
of  a single  FPLOT  frame  has  been  extended  from  60  inches  to  240  inches  to  facilitate 
job  setups  more  compatible  with  outside  installations.  Several  changes  were  made 
which  allow  calls  to  close  the  plot  data  set  (call  PLOT  (x,y,999))  to  be  followed  by 
subsequent  PLOT  calls.  In  such  cases,  the  subsequent  PLOT  calls  constitute  a 
new  plot  "job".  This  feature  should  be  used  sparingly  since  such  a job  setup  may 
not  work  at  outside  installations.  It  might  be  used  for  "saving"  plot  output  in  extremely 
long  runs,  however.  The  single  user  code  previously  issued  in  cases  of  abnormal 
termination  within  PLOTS  has  been  replaced  by  a separate  user  code  for  each  cause 
of  abnormal  termination.  The  user  codes  which  may  be  issued  by  PLOTS  are  listed 
below  with  an  explanation  of  the  condition  which  caused  the  abnormal  termination 
to  be  taken. 

200x 

Return  code  issued  by  DELETE  macro  when  deleting  FPLOT  non-zero 
x=DELETE  return  code  (decimal).  (At  present,  the  only  non-zero  return  code 
issued  by  the  DELETE  macro  is  4.) 

3000  + x 

Return  code  issued  by  FPLOT  non-zero  x = FPLOT  return  code 
(decimal). 

40xx 

Return  code  issued  by  IDENTIFY  macro  when  identifying  MCLINK 
non-zero  xx  = IDENTIFY  return  code  (decimal)  0 < xx  < 32. 
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4092 


Invalid  MACLINK  function  code  (the  acceptable  codes  (presented  to 
MACL1NK  in  general  register  8)  are  8 for  "file  read  scalar"  and  12  for  "set 
file  read1’.) 

4093 

No  PLOTxxxx  DD  statement  in  step. 

4094 

Excessive  number  of  PLOTS,  FACTOR,  OFFSET,  WHERE,  or  PLOT 
parameter  list  entries. 

4095 

Missing  or  incomplete  PLOTS,  OFFSET,  WHERE,  or  PLOT  parameter 

list. 

Changes  were  made  in  the  method  of  PLOTS- FPLOT  linkage.  One  result  of 
this  change  is  that  programs  containing  calls  to  the  CalComp  plotting  routines  may 
now  be  brought  into  main  storage  for  execution  by  non-standard  means,  such  as  the 
PLAN  (Problem  Language  ANalyzer)  loader. 


* * * * 
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Calling  FORTRAN  Subroutines  from  MAC  Programs 
David  A.  Lynde  DL  7-116B,  Extension  8-1447 


DCG  Memorandum  No.  179  (available  from  Rita  Asare,  DL  7-107,  Extension 
8-1445)  explains  the  procedure  to  be  followed  in  calling  FORTRAN  subroutines  from 
within  MAC  programs.  A number  of  MAC  programmers  have  recently  tried  to 
implement  this  procedure  and  have  had  some  difficulty  understanding  the 
memorandum. 

An  extensively  annotated  sample  job,  which  illustrates  how  a FORTRAN 
subroutine  is  called  from  a MAC  program,  is  now  available  for  examination  in  the 
Consulting  Office  (DL  7-116,  Extension  8-1107).  This  sample  job  employs  one  of 
the  routines  in  the  FORTRAN  Scientific  Subroutine  Package  to  find  the  roots  of  an 
n-th  order  polynominal.  The  listings  include  all  the  required  JCL,  MAC,  and 
FORTRAN  statements  and  include  the  computational  results. 
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AUTOFLOW 


David  Crocker  DL  7- 127,  Extension  8-1383 


AUTOFLOW,  an  automatic  flowcharting  program  for  BAL,  FORTRAN  and  PL/I, 
has  been  installed  on  our  IBM  360/75.  A seminar  on  AUTOFLOW  is  planned  for 
early  in  October  — exact  time  and  date  to  be  announced.  Meanwhile,  if  you  would 
like  to  try  AUTOFLOW  on  one  of  your  programs,  use  the  following  JCL. 


BAL 

//  JOB  . . .REGION=150K,TIME=  1 

II  EXEC  AUTO  FLOW 

//  SYSIN  DD  * 

* ASSEMBLY 

FOLLOWED  BY  YOUR  BAL  PROGRAM 
FORTRAN 

II  JOB  . . .REGION=150K,TIME=1 

II  EXEC  AUTOFLOW 

//SYSIN  DD  * 

* FORTRAN 

FOLLOWED  BY  YOUR  FORTRAN  PROGRAM 


PL/I 

//  JOB  . . .REGION3 150K, TIME3  1 

//  EXEC  AUTO  FLOW 

//SYSIN  DD  * 

* PLI 

FOLLOWED  BY  YOUR  PL/I  PROGRAM 


Note  that  the  preceding  the  language  type  must  be  in  Column  one. 
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DCG  Memo  No.  449A:  Selective  Printing  Facility  for  TSOLIST 
Nicholas  Pippenger  DL  7-105,  Extension  8-1156 


The  program  TSOLIST  (which  is  usually  invoked  through  the  cataloged  procedure 
TLIBLIST)  has  been  furnished  with  a facility  for  selective  printing.  Formerly, 
this  program  printed  all  datasets  (except  those,  such  as  load  modules,  which  are 
unprintable)  in  the  catalog  or  catalogs  specified  by  the  PARM  field  (or  the  ID 
parameter  of  the  cataloged  procedure).  This  mode  of  operation  remains  available 
while  a new  one,  in  which  the  datasets  to  be  printed  are  specified  in  a SYSIN  dataset, 
has  been  added.  For  a complete  description,  see  DCG  Memorandum  449A. 

Here  are  a few  examples  of  the  use  of  the  new  facility.  The  general  form  of 
the  job  step  is  as  follows. 

//  EXEC  TLIBLIST 

//SYSIN  DD  * 
control  cards 

/* 

Examples  of  the  control  cards  are  as  follows.  To  print  all  datasets  from  the 
index  NJP1 156: 

NJP1 156. 

To  print  the  catalog  structure  and  partitioned  dataset  directories  from  the 
index  NJP1156  (but  not  the  datasets  or  members  themselves): 

NJP1156 

To  print  the  sequential  datasets  NJP1 156. SORT. ASM  and 

NJP1156. MERGE. ASM: 

NJP1 156.<SORTlMERGE>.ASM 
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To  print  all  the  members  in  the  partitioned  dataset  NJP1 156. MACRO. ASM: 


NJP1 156. MACRO. ASM  (@) 

To  print  the  members  READ  and  WRITE  in  the  partitioned  dataset 
NJP1 156.  MACRO.  ASM : 

NJP1 156. MACRO.  ASM«READfWRITE>) 

To  print  all  sequential  datasets  and  partitioned  dataset  members  from  the 
index  NJP1156  having  names  which  do  not  contain  ASM: 

NJP1 156.(^&1<@*.ASM.@*> 

As  a final  example,  to  print  all  MAC  saved  symbolic  decks  with  MAC  names 
beginning  NJP1156: 

MACSYMB.NJP1 156.  @ 

Because  of  the  size  of  the  MAC  catalog,  this  last  example  will  require  a region  of 
at  least  130K. 


* * * * 


Notes  from  the  Consulting  Office 
Martha  Fennell  DL  7-1 16B,  Extension  8-1107 


I.  Consulting  Office 

The  Consulting  Office  DL  7-116,  Extension  8-1107,  is  open  from  nine  to  noon 
and  one  to  five  Mondays  through  Fridays.  Users  with  problems  are  asked  to  visit 
(or  call)  there  first  before  consulting  with  other  DCG  personnel. 

II.  CAMLST  Changes  in  OS  Release  21 

In  about  a month,  it  is  expected  that  Release  21  of  the  Operating  System  will 
be  installed  on  our  machine.  In  this  new  release,  IBM  has  made  a change  in  the 
special  system  macros  CAMLST,  LOCATE,  OBTAIN,  INDEX,  CATALOG,  RENAME, 
SCRATCH  and  the  related  SVC  routines.  Any  users  having  programs  utilizing  these 
facilities  should  contact  the  Consulting  Office  (DL  7-116,  Extension  8-1107)  as  soon 
as  possible. 

III.  Calling  CalComp  Routines  from  PL/I 

DCG  Memorandum  No.  450  by  Kathy  Lloyd  discusses  the  use  of  the  CalComp 
plotting  routines  via  PL/I.  Copies  of  this  memorandum  are  available  from  Rita 
Asare,  Extension  8-1445. 

IV.  Index  to  DCG  Memoranda  and'  Entomologist  Articles 

DCG  Memorandum  No.  434A  is  an  index  to  articles  of  general  interest.  Copies 
of  this  memorandum  are  available  from  Rita  Asare,  Extension  8-1445. 

V . Change  in  Definition  of  FORTRAN  Real  Constant 

FORTRAN  programmers  should  be  aware  of  the  revision  in  the  definition  of 
basic  real  constant  (i.e.,  floating  point  single  precision)  found  on  page  13  of  IBM 
FORTRAN  IV  language  manual  GC28-6515-8.  Previously,  a real  constant  of  more 
than  seven  digits  was  automatically  double  precision.  Since  Release  20  such  constants 
are  treated  as  single  precision  (i.e.,  effectively  truncated)  unless  a D exponent  is 
appended.  This  information  was  obtained  via  the  courtesy  of  the  MIT/IPC  newsletter 
"The  Bulletin". 
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TSO  Notes 


TSO  Users 


1 . Shutdown 

Effective  Monday,  September  18,  for  at  least  the  next  two  weeks,  TSO  will  be 
shut  down  at  7:30  p.m. 

Donated  by:  Joe  Mori 

2.  "IEU9991  Assembly  Terminated  . . . WRNG.LEN. RECORD" 

This  message  was  obtained  after  using  the  ASM  TSO  command  with  the  LIB 
option.  The  reason  for  the  above  message  is  the  following.  The  LIB  option  allows 
user  datasets  to  be  scanned  for  a macro  instruction  or  a COPY  command  ahead  of 
the  standard  system  macro  library  SYS1.MACLIB  (if  the  keyword  MACLIB  is 
specified  either  explicitly  or  by  default).  In  other  words,  SYS1. MACLIB  is 
concatenated  onto  the  user  libraries.  A problem  arises  however,  in  that  the  system 
uses  the  blocksize  of  the  first  concatenated  dataset  as  the  size  of  the  user  I/O 
buffer.  Thus,  if  the  blocksize  of  any  subsequent  concatenated  dataset  is  larger 
than  the  blocksize  of  the  first  and  if  the  user  program  reads  a record  from  such  a 
subsequent  dataset,  then  the  assembly  will  terminate  with  the  above  message.  Users 
should  note  that  SYS1. MACLIB  has  a blocksize=3520;  consequently,  to  avoid  the  above 
problem,  the  blocksize  of  your  LIB  library  must  be  >=3520. 

Donated  by:  Sheff  Bryant 

3.  Data  Set  Migration 

The  current  policy  is  the  following:  unused  TSO  files  will  remain  on  disk  for 
approximately  one  month  and  then  they  will  be  migrated  to  tape  to  remain  there  for 
approximately  an  additional  four  months  at  which  time  they  will  be  removed 
permanently.  Use  the  "RECOVER"  command  to  restore  migrated  datasets  to  disk 
and  the  "VANISH"  command  to  delete  datasets  migrated  to  tape  (type  'HELP 
RECOVER'  or  'HELP  VANISH'  for  details). 

DCG  is  currently  investigating  alternating  methods  which  will  allow  long-term 
retention  of  user  files  on  tape. 

Donated  by:  Gary  Vining 
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4.  Anomaly  in  "FORTGC  filename,"  Command 

FORTGC  is  a TSO  command  (DCG  Memorandum  No.  427)  to  compile  FORTRAN 
programs.  It  has  two  operands:  the  first  is  the  filename,  the  second  directs  output 
either  to  the  terminal  (*)  or  to  a data  set.  If  the  terminal  (*)  option  is  used,  because 
of  an  anomaly  in  the  structure  of  the  CLIST  command,  TSO  looks  for  a / * (i.e.,  an 
end-of-file)  from  the  terminal.  So  if  the  terminal  seems  "to  die"  in  the  middle  (or 
at  the  end  of)  your  FORTRAN  printout  and  if  READY  is  not  forthcoming,  type  /* 
followed  by  a carriage  return. 

Donated  by:  Martha  Pennell 

5.  Write-to- Programmer  Messages  Unavailable  under  TSO 

Under  the  current  release,  the  write-to-programmers  messages  are 
unavailable.  The  practical  effect  of  this  restriction  is  that  if  the  TSO  user  has 
forgotten  to  allocate  his  file(s)  before  running  his  program,  he  will  receive  no  error 
message(s).  In  contrast,  under  batch,  theuser  receives  the  message  "...  ddstatement 
missing"  in  his  JCL  messages. 

Donated  by:  Martha  Pennell 

6.  How  To  Run  a FORTRAN  Program  Without  Recompiling 

The  following  commands  are  typical  of  those  used  to  run  a FORTRAN  program 
under  TSO  without  recompiling  each  time.  (There  are  several  other  variations 
that  will  work  also.)  Assume  F2  is  a filename  containing  FORTRAN  source  code. 

a.  FORTGC  F2,* 

(See  DCG  Memorandum  No.  427) 

b.  ALLOC  DA( FORT. LOAD)  NEW  SPACE  (5,5)  BLOCK(7294)  DIR(5) 

This  allocates  space  fora  pds  library  to  contain  your  load  module;  thus, 

step  need  be  done  only  once  — your  library  can  hold  several  load  modules. 

FORT. LOAD  is  an  arbitrary  name. 

c.  LINK  F2.0BJ  LOAD(FORT.LOAD(F2))FORTLIB  LIB('SYS1 . FORTSSP') 

This  takes  your  object  module  (created  under  step  (a))  and  link  edits  it 

into  a load  module  named  F2  (this  is  arbitrary)  and  places  the  load  module 

into  the  library  FORT. LOAD  which  you  allocated  in  step  (b). 
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d.  ALLOCATE  DATASET(*)  FILE  (FT06F001) 

ALLOCATE  DATASET  (*)  FILE  (FT05F001) 

This  allocates  unit  reference  numbers  5 and  6 to  the  terminal,  i.e., 
your  input  and  output  will  be  from  the  terminal  if  you  have  used  the  standard 
unit  reference  numbers.  If  you  forget  to  do  this  step,  you  will  receive  no 
error  messages  (contrary  to  batch).  See  comments  under  item  5 above. 

e.  CALL  FORT.LOAD(F2) 

This  command  executes  your  program.  At  your  next  console  session, 
you  need  only  repeat  steps  (d)  and  (e). 

Donated  by:  Martha  Pennell 
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Alternate  Form  of  the  IDENTIFY  SVC  Parameter  List 


David  A.  Lynde  DL  7-116B,  Extension  8-1447 


DCG  Memorandum  No.  541  describes  an  alternate  form  of  the  IDENTIFY  SVC 
parameter  list  which  can  be  used  in  certain  circumstances  which  preclude  the  use 
of  the  standard  form  of  the  parameter  list. 

When  this  alternate  form  of  the  parameter  list  is  used,  the  IDENTIFY  SVC 
can  be  used  within  a program  brought  into  main  storage  by  some  non-standard  means, 
such  as  by  the  PLAN  loader.  In  addition,  when  the  alternate  form  is  used,  the 
IDENTIFY  SVC  creates  a major  CDE,  rather  than  a minor  CDE.  This  major  CDE 
is  removed  from  the  contents  directory  when  the  named  module  is  deleted  by  the 
DELETE  SVC.  (A  minor  CDE  can  only  be  removed  from  the  contents  directory  by 
removing  its  "owning"  major  CDE.) 

The  alternate  form  of  the  parameter  list  described  in  DCG  Memorandum  No. 
451  is  not  fully  described  in  any  IBM  document.  Copies  of  the  memorandum  are 
available  from  Rita  Asare,  DL  7-107,  Extension  8-1455. 


16 


J 


i 


i 


) 


GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L P2C-P25 

P 1 355  PROGRAM  NAME_  RRTURNON 

R 1 35  6 FUNCTIONAL  DESCRIPTION. 


R 1 35  7 RRTURNON  IS  THE  TURN-ON  SEQUENCE  WHICH,  ALONG  WITH 
R 1 35  8 RRZERLSR,  ZEROS  THE  CDU:S  AND  DETERMINES  THE  RR  MODE. 

R 1359  INITIALLY,  CONTROL  IS  TRANSFERRED  TO  RRZEROSB  FOR  THE 
R 1360  ACTUAL  TURN-ON  SEQUENCE.  UPON  RETURN  THE  PROGRAM 

R 136 1 WAITS  l SECOND  BEFORE  REMOVING  THE  TURN-ON  FLAG 

R 1362  (RADMCCES  BIT1)  SO  THE  REPOSITION  ROUTINE  WON:T 
R1363  INITIATE  PROGRAM  ALARM  00501.  A CHECK  IS  THEN  MADE 

R L 364  TO  SEE  IF  A PROGRAM  IS  USING  THE  RR  (STATE  BIT  7).  IF 

R 1 365  SO,  THE  PROGRAM  EXITS  TO  ENDRADAR  SO  THAT  THE  RR  CDU 

R 1 366  FAIL  FLAG  (RADMODES  BIT  7)  CAN  BE  CHECKED  BEFORE 

R 1 36 7 RETURNING  TO  THE  WAITING  PROGRAM.  IF  NOT,  THE  PROGRAM  EXITS 

R 1 36  8 TO  T ASKCVER . 


R 136  9 
R 1 370 
R1371 

CALLING  SEQUENCE:  WAITLIST  TASK 
BIT  ( CF AN  33  BIT  2)  CHANGES  TG  0 
THF  RR  (STATE  BIT  7)  . 

FROM 

AND 

RRAUTCHK  IF  THE  RR  POWER  ON 
NO  PROGRAM  WAS  USING 

R 1 37  2 
R 1373 

ERASABLE  INITIAL  I.Z  AT  I ON  REQUIRED 
RADMODES,  STATE 

: 

R1374 

SUBROUTINES  CALLED.  RRZEROSB,  F 

IXOELAY, 

TASKOVER,  ENDRADAR 

R 137  5 
R 1 376 

JOBS  OR  TASKS  INITIATED. 
NCNE 

R 1 37  7 

ALARMS. 

NONE 

( SEE 

RRZEROSB) 

R 1 37  8 

EXIT. 

TASKOVER,  ENDRADAR  (WA 

ITING  PROGRAM) 

1379 

24,3337 

BANK  24 

138  0 

REF 

1 

25,2000 

SETLOC  P20S1 

1381 

25,2053 

BANK 

1382 

REF 

22 

LAST 

536 

E7.1456 

EB AN  K=  LOSCOUNT 

1383 

REF 

1 

COUNT*  $ $/RSUB 

1384 

REF 

1 

25,2053 

0 

2062 

1 RRTURNON 

TC  RRZEROSB 

1385 

REF 

3 

LAST 

515 

25,2054 

0 

5 223 

1 

TC  FIXDELAY 

1386 

25,2055 

00144 

0 

DEC  100 

1387 

REF 

1 

25,2056 

4 

4 744 

0 

CS  T URNONBT 

1388 

REF 

41 

LAST 

540 

25,2057 

7 

C110 

0 

MASK  RADMODES 

1389 

REF 

42 

LAST 

542 

25,2060 

54 

no 

0 

TS  RADMODES 

1390 

REF 

23 

LAST 

536 

25, 2061 

1 

5263 

1 

TCF  TASKOVER 

168 


PAGF 


542 
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USER'S  PAGE  NO.  36 


E7  S3 


WAIT  1 SEC  BEFORE  REMOVING  TURN  ON 
SO  A MONITOR  REPOSITION  WONT  ALARM. 


FLAG 
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L P20-P25 

P 139 1 PROGRAM  N AME_  RRZEROSB 


17:  11 


MAR.  19,1971 
USER'S  PAGE 


LFMP20S 
NO.  37 


.163  PAGE 
E 7 S3 


543 


R 1 39 2 FUNCTIONAL  DESCRIPTION, 

R 1 393  RRZERCSB  IS  A CLOSED  SUBROUTINE  TC  ZERO  THE  RR  CDU:S, 

R1394  DETERMINE  THE  RR  MODE,  AND  TURNS  ON  THE  TRACKER  FAIL 

R 1 39  5 LAMP  IF  REQUIRED.  INITIALLY  THE  RR  CDU  ZERO  BIT  (CHAN  12 

R 1 39 6 BIT  1)  IS  SET.  FOLLOWING  A 20  MILLISECOND  WAIT,  THE  LGC 

R 1 39  7 RR  CDU  COUNTERS  IOPTY,  OPTX)  ARE  SET  = 0 AFTER 

R 1 39  8 WHICH  TFE  RR  CDU  ZERO  DISCRETE  ( CF  AN  12  BIT  1)  IS 

R 1399  REMOVED.  A 4 SECOND  WAIT  IS  SET  TO  ALL  THE  RR  CDU:S 

R 1400  TO  REPEAT  THE  ACTUAL  TRUNNION  AND  SHAFT  ANGLES.  THE 

R1401  RR  CDU  ZERO  FLAG  (RADMODES  BIT  13)  IS  REMOVED.  THE 

R 1 402  CONTENTS  OF  OPTY  IS  THEN  CHECKED  TO  SEE  IF  THE  TRUNNION 

R1403  ANGLE  IS  LESS  THAN  90  DEGREES.  IF  NOT,  BIT  12  OF 
R 1404  RADMODES  IS  SET  = 1 TO  INDICATE  RR  ANTENNA  MODE  2. 

R 1 40 5 IF  LESS  THAN  90  DEGREES,  BIT  12  OF  RADMODES  IS  SET  = 0 TO 

R 1406  INDICATE  RR  ANTENNA  MODE  1.  SETTPKF  IS  THEN  CALLED  TO 

R 1407  SEE  IF  THE  TRACKER  FAIL  LAMP  SHOULD  BE  TURNED  ON. 

R 140  8 CALLING  SEQUENCE:  L TC  RRZEROSB  (FROM  RRTURNON  AND  RRZ.ERO ) 

R1409  ERASABLE  I N I T I AL I ZAT I ON  REQU I RED : 

R 141 0 RADMODES  (BIT  13  SET),  DSPTAB  +11D 

R1411  SUBROUTINES  CALLED,'  FIXDELAY,  MAGSUB,  SETTRKF 

R 141 2 JOBS  OR  TASKS  INITIATED,  - 

R 141 3 NONE 

R 141 4 ALARMS,  TRACKER  FAIL 


R1415  E X I T_  L +1  (ALWAYS) 


1416 

25,2062 

0 0006 

1 

RRZEROSB  EXTEND 

141  7 

REF 

2 

LAST 

110 

25,2063 

23‘ 312 

0 

QXCH 

RRRET 

141  a 

REF 

28 

LAST 

540 

25,2064 

3 4744 

1 

CAF 

BIT1 

SI  T 13 

OF  RADMODES  MUST  BE  S FT  BEFORF 

1419 

25,2065 

0 0006 

1 

EXTEND 

COMING 

HERE. 

1420 

REF 

28 

LAST 

531 

25,2066 

05  C 1 2 

1 

WOR 

CHAN12 

TURN  ON  ZERO  RR  CDU 

142  1 

REF 

4 

LAST 

542 

25,2067 

0 5223 

1 

TC 

F IXDELAY 

1422 

25,2070 

0C002 

0 

DEC 

2 

1423 

REF 

111 

LAST 

531 

25,2071 

3 4746 

0 

CAF 

ZERO 

1424 

REF 

8 

LAST 

528 

25,2072 

54  035 

0 

TS 

CDUT 

1425 

REF 

5 

LAST 

328 

25,2073 

54  036 

0 

TS 

C DUS 

1426 

REF 

65 

LAST 

523 

25,2074 

4 4744 

0 

CS 

ONE 

REMOVE 

ZEROING  BIT. 

142  7 

25,2075 

0 0006 

1 

EXTEND 

1428 

REF 

29 

LAST 

543 

25,2076 

03  012 

1 

WAND 

CHAN 12 

1429 

REF 

5 

LAST 

543 

25,2077 

0 5223 

1 

TC 

FIXDELAY 

1430 

25,2100 

01750 

1 

DEC 

1000 

RESET 

FAIL  INHIBIT  IN  10  SECS  - D.281 

143  1 

REF 

3 

LAST 

521 

25,2101 

4 4730 

0 

CS 

RCDUOBIT 

REMOVE 

ZEROING  IN  PROCESS  RIT. 
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1432 

REF 

43 

LAST 

542 

25,2102 

7 

0110 

0 

MASK 

RADMODES 

1433 

REF 

44 

LAST 

544 

25,2103 

54 

110 

0 

TS 

R ADMODES 

1434 

REF 

9 

LAST 

543 

25,2104 

3 

0035 

1 

CA 

CDUT 

1435 

REF 

5 

LAST 

539 

25, 2105 

0 

4503 

0 

TC 

MAGSUB 

1436 

25,2106 

57777 

1 

DEC 

-.5 

1437 

25,2107 

1 

2112 

0 

TCF 

+ 3 

1438 

REF 

1 12 

LAST 

543 

25,2110 

3 

4 746 

0 

CAF 

ZERO 

1439 

25,2111 

1 

2113 

1 

TCF 

+ 2 

1440 

REF 

3 

LAST 

538 

25, 2112 

3 

4731 

0 

CAF 

ANTENBIT 

1441 

REF 

45 

LAST 

544 

25,2113 

56 

110 

1 

XCH 

RADMODES 

1442 

REF 

1 

25,2114 

7 

7 7 62 

1 

MASK 

- B IT  1 2 

1443 

REF 

46 

LAST 

544 

25,2115 

26 

1 10 

0 

ADS 

RADMODES 

1444 

REF 

2 

LAST 

196 

25,2116 

0 

4555 

0 

TC 

SETTRKF 

1445 

REF 

3 

LAST 

543 

25,2117 

0 

1312 

0 

TC 

RRRET 

1446 

REF 

1 

7762 

-BIT  12 

EQUALS 

-1/8 

17:11  MAR.  19,1971  LFMP20S 
USER'S  PAGE  NO.  33 


.168  PAGE 
E 7 S3 


544 


IF  MODE  2. 


TRACKER  LAMP  MIGHT  GO  ON  NOW. 
DONE. 

IN  SPROOT 


GAP 
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168  PAGE  545 


L P20-P25 

P 144 7 PROGRAM  NAME_  OORREPOS 

R 1448  FUNCTIONAL  DESCRIPTION. 

R1449  DORREPCS  IS  A SEQUENCE  OF  TASKS  TO  DRIVE  THE  RENDEZVOUS  RADAR 
R 1450  TO  A SAFE  POSITION.  INITIALLY  SETRRECR  IS  CALLED  WHERE  THE  RR 

R1451  ERROR  COUNTERS  (CHAN  12  BIT  2)  ARE  ENABLEC  AND  LASTYCMD 
R 1 452  AND  LASTXCMD  SET  = 0 TO  INDICATE  THE  DIFFERENCE  BETWEEN  THE 
R 145 3 DESIRED  STATE  AND  PRESENT  STATE  OF  THE  COMMANDS.  THE  RR 
R 1454  TURN-CN  FLAG  (RADMODES  BIT  1)  IS  CHECKED  AND  IF  NOT  PRESENT, 

R 145 5 PROGRAM  ALARM  00501  IS  REQUESTED  BEFORE  CONTINUING.  IN  EITHER 

R 145 6 CASE,  FCLLOWING  A 20  MILLISECOND  WAIT  THE  PROGRAM  CHECKS  THE  CURRENT 
R 1457  RR  ANTENNA  MODE  (RADMODES  BIT  12).  RRTONLY  IS  THEN  CALLED 
R 145 8 TO  DRIVE  THE  TRUNNION  ANGLE  TC  0 DEGREES  IF  IN  MODE  1 AND  TO  180 

R 145 9 DEGREES  IF  IN  MODE  2.  UPON  RETURN,  THE  CURRENT  RR  ANTENNA 

R1460  MODE  (RADMODES  BIT  12)  IS  AGAIN  CHECKED.  RRSONLY  IS  THEN 
R 146 1 CALLED  TO  DRIVE  THE  SHAFT  ANGLE  TC  0 DEGREES  IF  IN  MODE  1 AND  TO 
R 146  2 -90  DEGREES  IF  IN  MODE  2.  IF  DURING  RRTONLY  OR  RRSONLY  A 

R 1463  REMODE  HAS  BEEN  REQUESTED  (RADMODES  BIT  14),  AND  ALWAYS 
R 1464  FOLLOWING  COMPLETION  OF  RRSONLY,  CONTROL  IS  TRANSFERRED  TO 
R 1 46 5 REPOSRPT.  HERE  THE  REPOSITION  FLAG  (RADMODES  BIT  11)  IS 
R 1466  REMOVED.  A CHECK  IS  THEN  MADE  ON  THE  DESIGNATE  FLAG  (RADMODES 

R 146  7 BIT  1C).  IF  PRESENT,  CONTROL  IS  TRANSFERRED  10  BEGDES.  IF  NOT  PRESENT 

R 1 46  8 INDICATING  NO  FURTHER  ANTENNA  CONTROL  REQUIRED,  THE  RR  ERROR 
R 1469  COUNTER  BIT  (CHAN  12  BIT  2)  IS  REMOVED  AND  THE  ROUTINE  EXITS  TO 
R 1470  TASKCVER. 

R1471  CALLING  SEQUENCE: 

R 147  2 WAITLIST  CALL  FROM  RRGIMON  IF  TRUNNION  AND  SHAFT  CDU  ANGLES 
R 1 47 3 NOT  WITHIN  LIMITS  OF  CURRENT  MODE. 

R 1474  ERASABLE  INITIALIZATION  REQUIRED: 

R 1 475  RADMODES 

R 1476  SUBRCUT INES  CALLED. 

R 147  7 RRTONLY,  RRSONLY,  BEGDES  (EXIT) 

R 147 8 JOBS  OR  TASKS  INITIATED. 

R 147  9 NONE 

R 1480  ALARMS-  NONE 


RL4GL  EXIT.  TASKOVER,  BEGDES 


1482 

REF 

1 

25,2120 

0 2147 

1 

DORREPOS 

TC 

SETRRECR 

R 1 48  3 

ALARM 

501  DELETED  IN 

OANCE  279 

PER  PCR 

97. 

1484 

REF 

6 LAST 

543 

25,2121 

0 5223 

1 

TC 

F IXDELAY 

1485 

25,2122 

0C002 

0 

DEC 

2 

1486 

REF 

4 LAST 

544 

25, 2123 

3 4731 

0 

CAF 

ANTENBI T 

USER'S  PAGE  NO.  39  E7  S3 


SET  UP  RR  CDU  ERROR  COUNTERS. 


MANEUVER  TRUNNION  ANGLE  TO  NOMINAL  POS. 
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L 

P20- 

■P25 

1487 

REF 

47 

LAST 

544 

25,2124 

7 

0110 

0 

MASK 

R AOMODES 

1488 

REF 

170 

LAST 

541 

25,2125 

10 

000 

0 

CCS 

A 

1489 

REF 

33 

LAST 

541 

25,2126 

3 

4726 

0 

CAF 

B IT  15 

1490 

REF 

1 

25,2127 

0 

2232 

0 

TC 

RRTUNLY 

1491 

REF 

5 

LAST 

545 

25,2130 

3 

4731 

0 

CAF 

ANTENBIT 

1492 

REF 

48 

LAST 

546 

25,2131 

7 

CllO 

0 

MASK 

R AOMODES 

1493 

REF 

171 

LAST 

546 

25, 2132 

1C 

000 

0 

CCS 

A 

1494 

REF 

5 

LAST 

525 

25,2133 

4 

4727 

0 

cs 

HALF 

1495 

REF 

1 

25,2134 

0 

2235 

1 

TC 

RRSONLY 

1496 

REF 

4 

LAST 

283 

25,2135 

4 

4732 

1 

REPUSRPT 

CS 

REPOSBI T 

A 149  7 

1498 

REF 

49 

LAST 

546 

25,2136 

7 

C 110 

0 

MASK 

R ADMODES 

1499 

REF 

50 

LAST 

546 

25,2137 

54 

110 

0 

TS 

RADMODES 

150  0 

REF 

2 

LAST 

531 

25,2140 

7 

4733 

0 

MASK 

DES  IGBI T 

150  1 

REF 

172 

LAST 

546 

25,2141 

10 

000 

0 

CCS 

A 

1502 

REF 

2 

LAST 

526 

25,2142 

1 

2564 

0 

TCF 

BEGDES 

1503 

REF 

30 

LAST 

531 

25,2143 

4 

4743 

1 

CS 

BIT2 

1504 

25,2144 

0 

C006 

1 

EXTEND 

150  5 

REF 

30 

LAST 

543 

25,2  L45 

03 

012 

1 

WAND 

CHAN  12 

1506 

REF 

24 

LAST 

54  2 

25, 2146 

1 

5263 

1 

TCF 

TASKOVER 

150  7 

REF 

31 

LAST 

546 

25,^147 

3 

4 743 

0 

SETRRECR 

CAF 

B IT2 

1508 

25, 2 150 

C 

0C06 

1 

EXTEND 

1509 

REF 

31 

LAST 

546 

25,2151 

02 

C 1 2 

0 

RAND 

CHAN 1 2 

1510 

REF 

173 

LAST 

546 

25,2152 

10 

000 

0 

CCS 

A 

151  1 

REF 

156 

LAST 

541 

25,2153 

0 

0002 

0 

TC 

Q 

1512 

REF 

9 

LAST 

214 

25,2154 

54 

112 

1 

TS 

L ASTYCMD 

1513 

REF 

7 

LAST 

215 

25,2155 

54 

113 

0 

TS 

LASTXCMD 

1514 

REF 

32 

LAST 

546 

25,2156 

3 

4 743 

0 

CAF 

B IT2 

151  5 

25,2157 

0 

0006 

1 

EXTEND 

1516 

REF 

32 

LAST 

546 

25,2160 

05 

C 1 2 

1 

WOR 

CHAN  1 2 

151  7 

REF 

157 

LAST 

546 

25,2161 

0 

0002 

0 

TC 

Q 
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0 FOR  MODE  1 AND  130  FOR  MODE  2. 

NOW  PUT  SHAFT  IN  RIGHT  POSITION 
-90  FOR  MODE  2. 

RETURNS  HERE  FROM  RR1AXIS  IF  RFMODE 
REQUESTED  DURING  REPOSITION. 

REMOVE  RFPOSITION  BIT. 

SEE  IF  SOMEONE  IS  WAITING  TO  DESIGNATE. 

IF  NO  FURTHER  ANTENNA  CONTROL  REQUIRED, 
REMOVE  ERROR  COUNTER  ENABLE. 


SET  UP  RR  ERROR  COUNTERS. 

DO  NOT  CLEAR  LAST  COMMAND  IF 
ERROR  COUNTERS  ARE  ENABLED. 


ENABLE  RR  CDU  ERROR  COUNTERS 
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P151B  PROGRAM  NAM E_  REMODE 


R l 520  FUNCTIONAL  DESCRIPTION. 

R1522  REMODE  IS  THE  GENERAL  REMODING  SUBROUTINE.  IT  DRIVES  THE 

R 1 52 3 TRUNNION  ANGLE  TO  0 DEGREES  IF  THE  CURRENT  MODE  IS  MODE  1, 

R1524  180  DEGREES  FOR  MODE  2,  THEN  DRIVES  THE  SHAFT  ANGLE  TO  -45 

R 1 52  5 DEGREES,  AND  FINALLY  DRIVES  THE  TRUNNION  ANGLE  TO  -130  DEGREES, 

R 1526  TO  PLACE  THE  RR  IN  MODE  2,  -50  DEGREES  FOR  MODE  1,  BEFORE 

R 152 7 INITIATING  2-AXIS  CONTROL.  ALL  REMODING  IS  DONE  WITH  SINGLE 

R 1 52  8 AXIS  ROTATIONS  (RR1AXIS).  INITIALLY  THE  RR  ANTENNA  MODE  FLAG 
R 1 52 9 (RAOMCCES  BIT  12)  IS  CHECKED.  CONTROL  IS  THEN  TRANSFERRED  TO 

R 1530  RRTONLY  TO  DRIVE  THR  TRUNNION  ANGLE  TO  0 DEGREES  IF  IN  MODE  1 

R1531  OR  180  DEGREES  IF  IN  MODE  2.  RRSCNLY  IS  THEN  CALLED  TO  DRIVE 

R 1 53 2 THE  SHAFT  ANGLE  TO  -45  DEGREES.  THE  RR  ANTENNA  MODE  FLAG 

R 1 53  3 (RADMODES  BIT  12)  IS  CHECKED  AGAIN.  CONTROL  IS  AGAIN 

R l 534  TRANSFERRED  TO  RRTONLY  TO  DRIVE  THE  TRUNNION  ANGLE  TO  -130 

R 1 53 5 DEGREES  TO  PLACE  THE  RR  IN  MODE  2 IF  CURRENTLY  IN  MODE  1 OR  TO 

R 1 53 6 -50  DEGREES  IF  IN  MODE  2 TO  PLACE  THE  RR  IN  MODE  1.  RMODINV 

R 1 53  7 IS  THEN  CALLED  TO  SET  RADMODES  BIT  12  TO  INDICATE  THE  NEW 

R 1 53 8 RR  ANTENNA  MODE.  THE  REMODE  FLAG  (RADMODES  BIT  14) 

R 1 53 9 IS  REMOVED  TO  INDICATE  THAT  REMODING  IS  COMPLETE.  THE  PROGRAM 

R 1 540  THEN  EXITS  TO  STDESIG  TO  BEGIN  2-AXIS  CONTROL. 


R1541  CALLING  SEQUENCE: 

m R 1 54 2 FRCM  EEGDES  WHEN  REMODE  FLAG  [RADMODES  BIT  14)  IS  SFT . 

9 R 1543  THIS  FLAG  MAY  BE  SET  IN  RRDESSM  AND  RRDESNB  IF  RRLIMCHK 

R 1 544  DETERMINES  THAT  THE  DESIRED  ANGLES  ARE  WITHIN  THE  LIMITS  OF  THE 
* R 1 545  CTHER  MCDE. 


R 1 546  ERASABLE  INITIALIZATION  REQUIRED: 
R 1 547  RADMODES 


R 1 54 8 SUBROUTINES  CALLED. 

R 1 54 9 RRTONLY,  RRSONLY , RMODINV  (ACTUALLY  PART  OF) 

R 1 550  JOBS  OR  TASKS  INITIATED. 

R1551  NONE 

R 1 55  2 ALARMS.  NONE 

R 1 55  3 E X I T_  STDESIG 


1554 

REF 

6 

LAST 

546 

25,2162 

- 

1555 

REF 

51 

LAST 

54  6 

25,2163 

155  6 

REF 

1 74 

LAST 

546 

25,2164 

1557 

REF 

34 

LAST 

546 

25, 2165 

155  8 

REF 

2 

LAST 

546 

25,2166 

1559 

REF 

1 

25,2167 

- 

1560 

REF 

2 

LAST 

54  6 

25, 2L70 

3 

4731 

0 REMODE 

CAF 

ANTENBIT 

7 

C110 

0 

MASK 

RADMODES 

10 

000 

0 

CCS 

A 

3 

4726 

0 

CAF 

BIT15 

0 

2232 

0 

TC 

RRTONLY 

3 

7761 

0 

CAF 

-45DEGSR 

0 

2235 

L 

TC 

RRSONLY 

IVES  SHAFT  TO  -45,  AND  FINALLY  DRIVES 
S DONE  WITH  SINGLE  AXIS  ROTATIONS  (SEE 


DRIVE  TRUNNION  TO  0 (180) 

(ERROR  COUNTER  ALREADY  ENABLFD) 
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156  1 

REF 

52 

LAST 

547 

25,2171 

4 

Olio 

0 

CS 

R ADMODES 

1562 

REF 

7 

LAST 

547 

25,2172 

7 

4731 

I 

MASK 

ANTENBI T 

1563 

RFF 

175 

LAST 

547 

25,2173 

10 

000 

0 

CCS 

A 

1564 

REF 

1 

25,2174 

3 

2223 

0 

CAF 

-80DEGSR 

1565 

REF 

1 

25,2175 

6 

2222 

l 

AD 

- 50DEGSR 

1566 

REF 

3 

LAST 

547 

25,2176 

0 

2232 

0 

TC 

RRTONLY 

156  7 

REF 

53 

LAST 

548 

25,2177 

4 

C110 

0 

CS 

RADMUDES 

1568 

REF 

8 

LAST 

548 

25,2200 

7 

4731 

1 

MASK 

ANTENBI T 

156  9 

REF 

176 

LAST 

548 

25,2201 

10 

COO 

0 

CCS 

A 

1570 

REF 

35 

LAST 

547 

25, 2202 

3 

4 7 26 

0 

CAF 

BIT15 

1571 

REF 

4 

LAST 

548 

25,2203 

0 

2232 

0 

TC 

RRTONLY 

1572 

REF 

54 

LAST 

548 

25,2204 

4 

0110 

0 

CS 

R ADMODES 

1573 

REF 

9 

LAST 

548 

25,^205 

7 

4731 

1 

MASK 

ANTENBI T 

1574 

REF 

177 

LAST 

548 

25,2206 

10 

COO 

0 

CCS 

A 

1575 

REF 

6 

LAST 

546 

25,2207 

4 

4727 

0 

CS 

HALF 

1576 

REF 

3 

LAST 

547 

25,2210 

0 

2235 

1 

TC 

RRSONLY 

1577 

REF 

1 

25,2211 

0 

2224 

1 

TC 

RMODINV 

1578 

REF 

3 

LAST 

283 

25,2212 

4 

4727 

0 

CS 

REMODBIT 

1579 

REF 

55 

LAST 

548 

25,2213 

7 

0110 

0 

MASK 

R ADMODES 

1580 

REF 

56 

LAST 

548 

25,2214 

54 

1 10 

0 

TS 

R ADMODES 

1531 

REF 

3 

LAST 

546 

25,2215 

3 

4733 

1 

CAF 

DESIGBIT 

1582 

REF 

57 

LAST 

548 

25,2216 

7 

0110 

0 

MASK 

RADMODES 

1583 

25,2217 

0 

0006 

1 

EXTEND 

1584 

RFF 

1 

25,2220 

1 

3616 

1 

BZF 

RGOODEND 

1585 

REF 

2 

LAST 

527 

25,2221 

0 

2 5 73 

1 

TC 

STDES IG 

1566 

REF 

2 

LAST 

294 

7761 

-45DEGSR 

= 

13,14,15 

1587 

25,2222 

67070 

1 

-50DEGSR 

DEC 

- .27778 

1588 

25,2223 

61615 

1 

-80UEGSR 

DEC 

- .44444 

1589 

REF 

58 

LAST 

548 

25,2224 

22 

110 

1 

RMODINV 

LXCH 

RADMUDES 

1590 

REF 

10 

LAST 

548 

25,2225 

3 

4731 

0 

CAF 

ANTENBIT 

1591 

25,2226 

0 

0006 

l 

EXTEND 

1592 

REF 

9 

LAST 

54  1 

25,2227 

06 

001 

0 

RXOR 

LCHAN 

1593 

REF 

59 

LAST 

548 

25,2230 

54 

110 

0 

TS 

RADMODES 

1594 

REF 

158 

LAST 

546 

25,2231 

0 

0002 

0 

TC 

0 
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548 


GO  TO  T = -130  (-50) . 


GO  TO  T = -180  (+0) . 
GO  TO  S = -90  (+0)  . 


END  OF  REMODE . 


WAS  REMODE  CALLED  DURING  DESIGNATE? 

( B IT  1 0 RAUMODES  = 1) 

NO-RFTURN  TO  CALLER  WAITING  IN  RADSTALL 
YES  - RETURN  TO  DESIGNATE 


INVERT  THE  MODE  STATUS 


GAP:  ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-1  61 

L P20-P25 

P 1 595  PROGRAM  NAM ES_  RRTONLY,  RRSONLY 

R1596  FUNCTIONAL  DESCRIPTION. 

R1597  RRTONLY  AND  RRSONLY  ARE  SUBROUTINES  FOR  DOING  SINGLE  AXIS 
R 1 59  8 RR  MANEUVERS  FOR  REMODE  AND  REPOSITION.  IT  DRIVES  TO 

R 1 599  WITHIN  1 DEGREE.  INITIALLY,  AT  RR1AX2,  THE  REMODE  AND  REPOSITION 

R1600  FLAGS  (RADMODES  BITS  14,  11)  ARE  CHECKED.  IF  BOTH  EXIST, 

R1601  THE  PROGRAM  EXITS  TO  REPOSRPT  ISEE  DORREPOS).  THIS  INDICATES 
R 160 2 THAI  SOMEONE  POSSIBLY  REQUESTED  A DESIGNATE  (RADMODES  BIT  10) 

R 160 3 WHICH  REQUIRES  A REMODE  (RAOMGDES  BIT  14)  AND  THAT  A 

R 1 604  REPOSITION  IS  IN  PROGRESS  (RADMODES  BIT  11).  IF  NONE 

R 1 60  5 OR  ONLY  ONE  OF  THE  FLAGS  EXIST,  REMODE  OR  REPOSITION,  MAGSUB 

R1606  IS  CALLED  TO  SEE  IF  THE  APPROPRIATE  ANGLE  IS  WITHIN  1 DEGREE.  IF  YES 

R 1607  CGNTROL  RETURNS  TO, THE  CALLING  ROUTINE.  IF  NOT,  CONTROL  IS 

R 160 8 TRANSFERRED  TO  RROUT  FOR  SINGLE  AXIS  MANEUVERS  WITH  THE  OTHER 

R 1 60 9 ANGLE  SET  = 0.  FOLLOWING  A .5  SECOND  WAIT,  THE  ABOVE  PROCEDURE  IS 

R 161 0 REPEATEC. 


R1611  CALLING  SEQUFNCE:  L- 1 CAF  *ANGLE*  (DESIRED  ANGLE  SCALED  PI) 


R 1 61 2 L TC  RRTONLY  (TRUNNION  ONLY) 

R 161 3 RRSONLY  (SHAFT  ONLY) 

R 161 4 RRTONLY  IS  CALLED  BY  PREP0S29 ; 

R1615  RRTONLY  AMD  RRSONLY  ARE  CALLED  BY  DORREPOS  AND  REMODE 


R 161 6 ERASABLE  INITIALIZATION  REQUIRED: 

R1617  CIA)  = DESIRED  ANGLE,  RADMODES 

R 161 8 SUBROUTINES  CALLED. 

R 16 1 9 FIXDELAY,  REPOSRPT,  MAGSUB,  RROUT 

R 162  0 JOBS  OR  TASKS  INITIATED. 

R1621  NONE 

R1622  ALARMS.  NONE 

R 162 3 EXIT.  REPOSRPT  (REMODE  AND  REPOSITION  FLAGS  PRESENT  - RADMODES 


,1624 

BITS 

14, 

LI  ) 

1162  5 

L + l 

(ANGLE  WITHIN 

ONE  DEGREE 

OR  RR  1 

OUT 

OF  AUTO 

MODE  ) 

1626 

REF 

2 

LAST 

110 

25,2232 

55' 313 

0 

RRTONLY 

TS 

RDES 

162  7 

REE 

1 13 

LAST 

544 

25,2233 

3 4746 

0 

CAF 

ZERO 

162  8 

REF 

1 

25,2234 

1 2237 

1 

TCF 

RRLAXIS 

1629 

REF 

3 

LAST 

549 

25,2235 

55*313 

0 

RRSONLY 

TS 

RDES 

1630 

REF 

66 

LAST 

543 

25,2236 

3 4744 

1 

CAF 

ONE 

163  1 

REF 

1 

25,2237 

55*314 

1 

RR1AX IS 

TS 

RR  INDEX 

163  2 

25,2240 

0 0006 

1 

EXTEND 

163  3 

REF 

4 

LAST 

544 

25,2241 

23' 312 

0 

QXCH 

RRRET 

1634 

REF 

1 

25,2242 

1 2245 

1 

TCF 

RR 1 A X2 
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OESIRED  TRUNION  ANGLE. 


SHAFT  COMMANDS  ARE  UNRESOLVED  SINCF  THIS 
ROUTINE  ENTERED  ONLY  WHEN  T = 0 OR  180. 


GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  RY  NASA  2021112-161 


L 

P2C- 

P 25 

163  5 

REF 

7 

LAST 

545 

25,2243 

0 5223 

1 

NXTRR1AX 

TC 

F IXDELAY 

1636 

25,2244 

00C62 

0 

DEC 

50 

1637 

REF 

60 

LAST 

548 

25,2245 

4 0110 

0 

RR1AX2 

CS 

RADMODES 

163  8 

REF 

3 

LAST 

302 

25,2246 

7 7731 

1 

MASK 

PR  1022 

1639 

25,2247 

0 0C06 

1 

EXTEND 

1640 

REF 

1 

25,2250 

1 2135 

0 

8ZF 

REPOSRPT 

1641 

PEE 

4 

LAST 

549 

25,2251 

3 1313 

1 

CA 

RDES 

1642 

25,2252 

0 OC06 

1 

EXTFND 

164  3 

REF 

2 

LAST 

549 

25,2253 

5 1314 

0 

INDEX 

RR INDEX 

1644 

REF 

10 

LAST 

544 

25,2254 

2C  C35 

0 

MSU 

CDUT 

1645 

REF 

9 

LAST 

539 

25,2255 

54  061 

1 

TS 

ITEMP1 

1646 

25,2256 

0 0006 

1 

EXTEND 

1647 

REF 

1 

25,2257 

7 2276 

1 

MP 

RRSPGAIN 

164  8 

REF 

72 

LAST 

54  1 

25,2260 

54  001 

1 

TS 

L 

1649 

REF 

61 

LAST 

550 

25,2261 

3 CUO 

1 

CA 

RADMODES 

1650 

REF 

4 

LAST 

198 

25,2262 

7 4743 

1 

MASK 

AUTOMBIT 

1651 

REF 

10 

LAST 

550 

25,2263 

56  C61 

0 

XCH 

I TEMP  1 

165  2 

REF 

6 

LAST 

544 

25,2264 

0 4503 

0 

TC 

MAGSUB 

1653 

25,2265 

77644 

1 

DEC 

- .00555 

1654 

REF 

11 

LAST 

550 

'25,2266 

10  061 

1 

CCS 

I TEMP  1 

165  5 

REF 

5 

LAST 

549 

25,2267 

0 1312 

0 

TC 

RRRET 

1656 

REF 

3 

LAST 

550 

25,2270 

11' 314 

1 

CCS 

RR INDEX 

1657 

25,2271 

l 2273 

1 

TCF 

+ 2 

165  8 

REF 

73 

LAST 

550 

25,2272 

56  C01 

0 

XCH 

L 

1659 

REF 

1 

25,2273 

53' 352 

0 

DXCH 

T RUNNCMD 

1660 

REF 

1 

25,2274 

0 2277 

1 

TC 

RROUT 

1661 

REF 

1 

25,2275 

1 2243 

1 

TCF 

NXTRR1AX 

1662 

25,2276 

22715 

1 

RRSPGAIN 

DEC 

.59062 

17:11  MAR.  19,1971  LEMP20S  .168  PAGE  550 
USER'S  PAGE  NO.  44  F7  S3 


2 SAMPLFS  PER  SECOND. 

IF  SOMEONE  REQUESTES  AS  DESIGNATE  WHICH 
REQUIRES  A REMODE  AND  A REPOSITION  IS  IN 
PROGRESS,  INTERRUPT  IT  AND  START  THE 
REMODE  IMMEDIATELY. 


SAVE  ERROR  SIGNAL. 

TRIFS  TO  NULL  .7  OF  ERROR  OVER  NEXT  .5 


STORE  RR -OUT- OF- AUTO- MODE  BIT. 

SEE  IF  WITHIN  ONE  DEGREE. 

SCALED  IN  HALF-REVS. 

MO.  IF  RR  OUT  OF  AUTO  MODE,  EXIT. 
RETURN  TO  CALLER. 

COMMAND  FOR  OTHER  AXIS  IS  ZERO. 
SETTING  A TO  0. 


COME  BACK  IN  .5  SECONDS. 


NULL  .7  ERROR  IN  .5  SEC 


GAP:  ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  202IIL2-L6I 

L P20-P25 

P 1 663  PROGRAM  NAM  E_  RROUT 

R1665  FUNCTIONAL  DESCRIPTION. 

R 1666  RRCUT  RECEIVES  RR  GYRO  COMMANDS  IN  TANG,  TANG  +1  IN  RR 

R 1 66 7 ERROR  COUNTER  SCALING.  RROUT  THEN  LIMITS  THEM  ANO 

R 166  8 GENERATES  COMMANDS  TO  THE  CDU  TO  ADJUST  THE  ERROR  COUNTERS 
R 166  9 TO  TEE  UESIRFD  VALUES.  INITIALLY  MAGSU8  CHECKS  THE  MAGNITUDE  OF 

R 1 670  THE  COMMAND  (SHAFT  ON  1ST  PASS)  TO  SEE  IF  IT  IS  GREATER  THAN 
R1671  384  PLLSES.  IF  NOT,  CONTROL  IS  TRANSFERRED  TO  RROUTLIM  TO 

R 167 2 LIMIT  THE  COMMAND  TO  +384  OR  -384  PULSES.  THE  DIFFERENCE  IS 
R 167 3 THEN  CALCULATED  BETWEEN  THE  DESIRED  STATE  AND  THE  PRESENT  STATE  OF 

R 1674  THE  ERROR  COUNTER  AS  RECORDED  IN  LASTYCMD  AND  LASTXCMD. 

R1675  THE  RESULT  IS  STORED  IN  OPTXCMD  (1ST  PASS)  AND  OPTYCMD  (2ND 

R1676  PASS).  FOLLOWING  THE  SECOND  PASS,  FOR  THE  TRUNNION  COMMAND,  THE 

R 1677  OCDUT  AND  UCDUS  ERROR  COUNTER  DRIVE  BITS  (CHAN  14  BITS  12,  11) 

R 1 67  8 ARE  SET.  THIS  PROGRAM  THEN  EXITS  TO  THE  CALLING  PROGRAM. 

R 167 9 CALLING  SEQUENCE: 

R1630  L TC  RROUT  (WITH  RUPT  INHIBITED)  RROUT  IS  CALLED  BY 
R 168 1 RRTCNLY , RRSONLY , AND  DODES 

R 1682  ERASABLE  INITIALIZATION  REQUIRED: 

R 1 68 3 TANG,  TANG  +1  (DESIRED  COMMANDS),  LASTYCMD,  LASTXCMD 

R 1684  (1ST  PASS  = 0),  RR  ERROR  COUNTER  ENABLE  SET  (CHAN  12  B IT  2 ) . 

R 1685  SUBROLTINES  CALLED. 

R1686  MAGSUB 

R 1 68  7 JOBS  OR  TASKS  INITIATED. 

R 168  8 NONE 

R1689  ALARMS.  NONE 


R 1 690  EXIT.  L + l (ALWAYS) 


1692 

REF 

159 

LAST 

548 

25,2277 

22  002 

0 

RROUT 

LXCH 

Q 

1693 

REF 

67 

LAST 

549 

25,2300 

3 4744 

1 

CAF 

ONE 

1694 

REF 

5 

LAST 

539 

25,2301 

54  062 

1 

RR0UT2 

TS 

I TEMP2 

1695 

REF 

178 

LAST 

548 

25, 2302 

5 C 000 

1 

INDEX 

A 

1696 

REF 

2 

LAST 

550 

25,2303 

3 1351 

1 

CA 

T RUNNCMD 

1697 

REF 

12 

LAST 

550 

25,2304 

54  061 

1 

TS 

ITEMP1 

1698 

REF 

7 

LAST 

550 

25,2305 

0 4503 

0 

TC 

MAGSUB 

1699 

25,2306 

77177 

0 

-RRL I M IT 

DEC 

-3  84 

1700 

REF 

1 

25,2307 

1 2326 

0 

TCF 

RROUTLIM 

1701 

REF 

13 

LAST 

551 

25,2310 

3 0061 

0 

SETRRCTR 

CA 

I TEMP  1 

170  2 

REF 

6 

LAST 

551 

25,2311 

50  062 

0 

INDEX 

ITEMP2 

1703 

REF 

10 

LAST 

546 

25,2312 

56  112 

0 

XCH 

LASTYCMD 

1704 

25,2313 

4 0000 

0 

COM 
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RR  OR  COUNTER  SCALING. 


RROUT  LIMITS  THEM 


SIRED  VALUES.  RUPT  MUST  BE  INHIBITED. 

SAVE  RETURN. 

LOOP  TWICE. 

SAVE  SIGN  OF  COMMAND  FOR  LIMITING. 

SEE  IF  WITHIN  LMITS. 

LIMIT  COMMAND  TO  MAG  OF  384. 

COUNT  OUT  DIFFERENCE  BETWEEN  DESIRED 
STATE  AND  PRESENT  STATE  AS  RECORDED  IN 
LASTYCMD  AND  LASTXCMD 


GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  202L1L2-161 

L P20-P25 


1705 

REF 

14 

LAST 

551 

25,2314 

6 0061 

0 

AD 

1 tempi 

1706 

REF 

9 

LAST 

242 

25,2315 

6 4745 

0 

AD 

NEGO 

170  7 

REF 

7 

LAST 

551 

25,2316 

50  C62 

0 

INDEX 

I TEMP2 

170  8 

REF 

1 

25,2317 

54  053 

0 

TS 

CDUTCMD 

170  9 

REF 

8 

LAST 

552 

25,2320 

10  C62 

1 

CCS 

ITEMP2 

1710 

REF 

1 

25,2321 

I 2301 

0 

TCF 

RR0UT2 

171  1 

REF 

1 

25,2322 

3 5011 

1 

CAF 

P R 106 

1712 

25,2323 

0 C 006 

1 

EXTEND 

1713 

REF 

7 

LAST 

294 

25,2324 

05  014 

1 

WOR 

CHAN14 

1714 

REF 

74 

LAST 

550 

25,2325 

0 0001 

0 

TC 

L 

1715 

REF 

15 

LAST 

552  ■ 

25,2326 

10  061 

1 

RROUTLIM  CCS 

ITFMP1 

1716 

REF 

1 

25,2327 

4 2306 

1 

CS 

-RRL  IMIT 

171  7 

25,2330 

1 2332 

0 

TCF 

+ 2 

1718 

REF 

2 

LAST 

552 

25,2331 

3 2306 

0 

CA 

-RRL IMIT 

1719 

REF 

16 

LAST 

552 

25,2332 

54  061 

1 

TS 

.1  TEMPI 

1720 

REF 

1 

25,2333 

1 2311 

1 

TCF 

SETRRCTR  +1 

17:11  MAR.  19,1971  LEMP20S  .168  PAGE  552 
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PREVENT  +0  IN  OUTCOUNTER 

PROCESS  BOTH  INPUTS. 

ENABLE  COUNTERS. 

PUT  ON  CDU  DRIVES  S AND  T 
RETURN. 

LIMIT  COMMAND  TO  ABS  VAL  OF  384. 
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P1721  ROUTINE  TC  ZERO  THE  RR  COUS  AND  DETERMINE  THE  ANTENNA  MODE 


1722 

REF 

i 

25,2334 

3 2363 

0 

RRZERO 

CAF 

BITll+1 

1723 

REF 

62 

LAST 

550 

25,2335 

7 0110 

0 

MASK 

R ADMODES 

1724 

REF 

179 

LAST 

551 

25,2336 

10  COO 

0 

CCS 

A 

172  5 

REF 

1 

25,2337 

1 3532 

1 

TC  F 

R ADNOOP 

1726 

25,2340 

0 C 004 

0 

INHINT 

1727 

REF 

4 

LAST 

543 

25,2341 

4 4730 

0 

CS 

RCDUOBIT 

1728 

REF 

63 

LAST 

553 

25,2342 

7 0110 

0 

MASK 

R ADMODES 

1729 

REF 

5 

LAST 

553 

25,2343 

6 4730 

1 

AD 

RCDUOBI T 

1730 

REF 

64 

LAST 

553 

25,2344 

54  110 

0 

TS 

R ADMODES 

1731 

REF 

68 

LAST 

55  1 

25 , 2345 

3 4 744 

1 

CAF 

ONE 

173  2 

REF 

19 

LAST 

482 

25,2346 

0 5205 

0 

TC 

WAITLIST 

173  3 

REF 

23 

LAST 

542 

E 7 , 1456 

EBANK= 

LOSCOUNT 

1734 

REF 

1 

25,2347 

02361 

1 

2CADR 

RRZ2 

173  4 

REF 

1 

'25,2350 

52067 

1 

1735 

REF 

65 

LAST 

55  3 

25,2351 

4 0110 

0 

CS 

R ADMODES 

173  6 

REF 

5 

LAST 

550 

25, 2352 

7 4743 

1 

MASK 

AUTOMBIT 

173  7 

REF 

180 

LAST 

553 

25, 2353 

10  COO 

0 

CCS 

A- 

173  8 

REF 

1 

25,2354 

1 2357 

0 

TC  F 

ROADBACK 

1739 

REF 

20 

LAST 

512 

25,2355 

0 5571 

1 

TC 

ALARM 

1 74  0 

25, 2356 

0 C 5 1 0 

0 

OCT 

510 

1741 

25,2357 

0 C 003 

1 

ROADBACK 

REL  INT 

174  2 

REF 

4 

LAST 

413 

25,2360 

1 4622 

1 

TCF 

SWRETURN 

174  3 

REF 

2 

LAST 

542 

25,2361 

0 2062 

1 

RRZ2 

TC 

RRZEROSB 

1744 

REF 

1 

25,2362 

1 3607 

1 

TCF 

ENDRADAR 

1745 

25,2363 

02001 

1 

BIT1 1+1 

OCT 

02001 
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SEE  IF  MONITOR  REPOSITION  OR  NOT  IN  AUTO 
IF  SO,  DONT  RE-ZERO  CDUS. 

(IMMEDIATE  TASK  TO  RGOODENO ) . 

SET  FLAG  TO  SHOW  ZFROING  IN  PROGRESS. 


SEE  IF  IN  AUTO  MODE. 


AUTO  DISCRETE  NOT  PRESENT  - TRYING 


COMMON  TO  TURNON  AND  RRZERO 
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P1746  PROGRAM  NAME.  RRDESSM 
R 1 748  FUNCTIONAL  DESCRIPTICN_ 

R 1 749  THIS  INTERPRETIVE  ROUTINE  WILL  DESIGNATE,  IF  DESIRED  ANGLES  ARE 

R 1 75 0 WITHIN  THE  LIMITS  CF  EITHER  MODE,  TO  A LINE-OF  SIGHT  (LOS)  VECTOR 

R1751  (HALF-UNIT)  KNOWN  WITH  RESPECT  TO  THE  STABLE  MEMBER  PRESENT 

R1752  ORIENTATION.  INITIALLY  THE  IMU  CDU:S  ARE  READ  AND  CONTROL 

R 1 75 3 TRANSFERRED  TO  SMNB  TO  TRANSFORM  THE  LCS  VECTOR  FROM  STABLE 

Rl  754  MEMBER  TO  NAVIGATION  BASE  COORDINATES  (SEE  STG  MEMO  -.699) 

R1  755  R R ANGLE  S IS  THEN  CALLED  TO  CALCULATE  THE  RR  GIMBAL  ANGLES, 

R 1 75 6 TRUNNION  AND  SHAFT,  FOR  BOTH  THE  PRESENT  AND  ALTERNATE  MODE. 

R 1 75  7 RRLIMCHK  IS  CALLED  TO  SEE  IF  THE  ANGLES  CALCULATED  FOR  THE 

R 1 75 8 PRESENT  MODE  ARE  WITHIN  LIMITS.  IF  WITHIN  LIMITS,  THE  RETURN 

R 1 75 9 LOCATION  IS  INCREMENTED,  INASMUCH  AS  NO  VEHICLE  MANEUVER  IS 

R 1760  REQUIRED,  BEFORE  EXITING  TO  STARTDES.  IF  NOT  WITHIN  LIMITS  OF  THE 

K1761  CURRENT  MODE,  TRYSWS  IS  CALLED.  FOLLOWING  INVERTING  OF  THE  RR 
R 1 762  ANTENNA  MODE  FLAG  (RADMODES  BIT  12),  RRLIMCHK  IS  CALLED 

R 1 763  TO  SEE  IF  THE  ANGLES  CALCULATED  FOR  THE  ALTERNATF  MODE  ARE  WITHIN 

R 1 764  LIMITS.  IF  YES,  THE  RR  ANTENNA  MCDE  FLAG  IS  AGAIN  INVERTED, 

R 1 76  5 THE  PEMODE  FLAG  (RADMODES  BIT  14)  SET,  AND  THE  RETURN  LOCATION 
R 1 76 6 INCREMENTED,  TO  INDICATE  NO  VEHICLE  MANEUVER  IS  REQUIRED,  BEFORE 

R 1 767  EXITING  TO  STARTDES.  IF  THESE  ANGLES  ARE  NOT  WITHIN  LIMITS 
R 1 76 8 OF  THE  ALTERNATE  MODE,  THE  RR  ANTENNA  MODE  FLAG  (RADMODES 

R 1 769  BIT  12)  IS  INVERTED  BEFORE  RETURNING  DIRECTLY  TO  THE  CALLING  PROGRAM 
R 1 770  TO  INDICATE  THAT  A VEHICLE  MANEUVER  IS  REQUIRED. 

R1771  CALLING  SEQUENCE: 

R l 772  L STC ALL  RRTARGET  (LOS  HALF-UNIT  VECTOR  IN  SM  COORDINATES) 

R 1 773  L+l  RRDESSM 

R 1 774  L+2  BASIC  (VEHICLE  MANEUVER  REQUIRED) 

R 1 775  L+3  BASIC  (NO  VEHICLE  MANEUVER  REQUIRED) 

R 1 77 6 ERASAELE  INITIALIZATION  REQUIRFD: 

R 177  7 RRTARGET,  RADMODES 

R 1 77 8 SUBROLTINES  CALLED. 

R 1 779  READCDUS,  SMNB,  RRANGLES,  RRLIMCHK,  TRYSWS  (ACTUALLY 

R 1 780  PART  OF),  RMODINV 

R1781  JOBS  OR  TASKS  INITIATED. 

R 1 782  NONE 

R 1 78  3 ALARMS.  NONE 

R 1 784  EXIT.  L+2  (NEITHER  SET  OF  ANGLES  ARE  W 

R 1 78 5 STARTDES  (DESIGNATE  POSSIBLE  AT  PRESENT 

R 1 786  TO  L+3  FROM  STARTDES) 

1788  25,2364  43020  1 

1789  REF  4 LAST  284  25,2365  01112  1 


ITHIN  LIMITS  OF  RELATED  MODE) 
VEHICLE  ATTITUDE-RETURNS 


RRDESSM  STO  CLEAR 
DESRET 
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USER' S 
R (HALF-UNI 
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T)  IN  RRTARGET.  REMODES  I 


554 


F 


CAN  BE  DONE  IN  PRESENT  VEH  ATTITUDE 


GAP: 


ASSEMBLE  REVISION  210 


CF  A GC  PROGRAM  LUMINARY  BY  NASA 


20211 12-161 


L 

P20-P25 

1790 

REF  1 

25,2366 

00271 

0 

RRNBSW 

179  1 

25,2367 

77624 

1 

CALL 

1792 

REF  2 

LAST 

50  2 

25,2370 

47522 

1 

CDUTRIG 

1793 

25,2371 

45175 

0 

VLOAD 

CALL 

1794 

REF  4 

LAST 

534 

25,2372 

01101 

0 

RRTARGET 

1795 

REF  3 

LAST 

502 

25,2373 

47663 

1 

*SMNB* 

1796 

25,2374 

77624 

1 

CALL 

1797 

REF 

1 

25,2375 

26133 

1 

RRANGLE  S 

1798 

25,2376 

77776 

1 

EXIT 

1799 

25,2377 

0 CC04 

0 

INHINT 

1800 

REF 

3 

LAST 

528 

25,2400 

0 4514 

0 

TC 

RRLI MCHK 

1801 

REF 

4 

LAST 

335 

25,2401 

01106 

1 

ADRE  S 

MODEA 

1802 

25,2402 

0 2405 

1 

TC 

+ 3 

180  3 

REF 

5 

LAST 

554 

25,2403 

25  • 112 

1 

OKDESSM  INCR 

DESRET 

1804 

REF 

1 

25,2404 

0 2423 

0 

TC 

STARTDES 

1805 

REF 

6 

LAST 

523 

25,2405 

4 0104 

0 

CS 

FLAGWRD3 

1806 

REF 

4 

LAST 

523 

25,2406 

7 4735 

0 

MASK 

SURFF  BIT 

180  7 

25,2407 

0 0006 

1 

EXTEND 

1808 

REF 

1 

25, 2410 

1 2447 

0 

BZF 

NOROSTAL 

180  9 

REF 

1 

25,2411 

0 2452 

0 

TC 

TRYSWS 

1810 

REF 

7 

LAST 

555 

25,2412 

4 

Cl  04 

0 

LUNDESCH  CS 

F L AGWRD8 

181  1 

REF 

5 

LAST 

555 

25, 2413 

7 

4735 

0 

MASK 

SURFF  BIT 

1812 

25,2414 

0 

0006 

1 

EXTEND 

1813 

REF 

2 

LAST 

555 

25, 2415 

1 

2447 

0 

BZF 

NORDSTAL 

1814 

REF 

38 

LAST 

536 

25,2416 

3 

0074 

l 

CA 

STATE 

1815 

REF 

9 

LAST 

520 

25,2417 

7 

4736 

0 

MASK 

RNDVZBI T 

1816 

REF 

181 

LAST 

553 

25,2420 

10 

000 

0 

CCS 

A 

1817 

REF 

1 

25,2421 

0 

2462 

0 

TC 

NODESSM 

1818 

REF 

89 

LAST 

536 

25,2422 

1 

5146 

0 

TC  F 

ENDOF JOB 
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COMPUTES  SINES  AND  COSINES,  ORDER  Y Z X 
LOAD  VECTOR  AND  CALL  TRANSFORMATION 


GET  RR  GIMBAL  ANGLES  IN  PRESENT  AND 
ALTERNATE  MODE. 


CONFIGURATION  FOP  CUP  RENT  MODF . 

NOT  IN  CURRENT  MODE 

INCREMENT  SAYS  NO  VEHICLE  MANEUVER  REO. 
SHOW  DESIGNATE  REQUIRED 

CHECK  IF  ON  LUNAR  SURFACE  ( SUR  FFL  AG=P  2 2F 
BRANCH-YES-CANNOT  OESIGNATF  IN  MODE  2 


OVERFLOW  RETURN  FROM  RR  AN  GLE  S 
CHECK  IF  ON  LUNAR  SURFACE 

BP ANCH-YES-RETURN  TO  CALLER  - ALARM  527 


TEST  RNDVZFLG . 

NOT  ON  MOON-CALL  FOR  ATTITUDE  MAN  EUVFR 
. . .BUT  NOT  IN  R29 . 


GAP:  ASSEMBLE  REVISION  210  GF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L P20-P25 

P 1 81 9 PROGRAM  NAME_  STAP.TOES 

R1821  FUNCTIONAL  DESCRIPTICN_ 

R 1 82 3 STARTOES  IS  ENTERED  WHEN  WE  ARE  READY  TO  BEGIN  DESIGNATION. 

R 1 82  5 BIT  14  OF  RADMODES  IS  ALREADY  SET  IF  A REMODE  IS  REQUIRED. 

R 1 82  7 AT  THIS  TIME,  THE  RR  ANTENNA  MAY  BE  IN  A PEPOSITION 

R 1829  OPERATION.  IN  THIS  CASE,  IF  A REMCDE  IS  REQUIRED  IT  MAY  HAVE 

R 1 830  ALREADY  BEGUN  BUT  IN  ANY  CASE  THE  REPOSITION  WILL  BE  INTERRUPTED 

R1831  OTHERWISE,  THE  REPOSITION  WILL  BE  COMPLETED  BEFORE  2-AXIS 
R 1 83 2 DESIGNATION  BEGINS.  INITIALLY  DESCOUNT  IS  SET  = 60  TO  INDICATE 

R 1 83 3 THAT  30  SECONDS  WILL  BE  ALLOWED  FOR  THE  RR  DATA  GOOD  INBIT 

R 1 834  (CHAN  33  BIT  4)  IF  LOCK-ON  IS  DESIRED  (STATE  BIT  5).  BIT  10 

R 183 5 OF  RADMODES  IS  SET  TO  SHOW  THAT  A DESIGNATE  IS  REQUIRED. 

R1836  THE  REPOSITION  FLAG  (RADMODES  BIT  11)  IS  CHECKED.  IF  SET, 

R 1 83 7 THE  PROGRAM  EXITS  TO  L + 3 OF  THE  CALLING  PROGRAM  (SEE  RROESSM 

R 1 83  8 AND  RRDESNB ) . THE  PROGRAM  WILL  BEGIN  DESIGNATING  TO  THE  DESIRED 

R 1 83  9 ANGLES  FOLLOWING  THE  REPOSITION  CR  REMODE  IF  ONE  WAS 

R 1 840  REQUESTED.  IF  THE  REPOSITION  FLAG  IS  NOT  SET,  SETRRECR  IS  CALLED 

R1841  WHICH  SETS  THE  RR  ERROR  COUNTER  ENABLE  BIT  (CHAN  12  BIT  2) 

R 1842  AND  SETS  L ASTYCMD  AND  LASTXCMD  = 0 TO  INDICATE  THE 
R1843  DIFFERENCE  BETWEEN  THE  PRESENT  AND  DESIRED  STATE  OF  THE  ERROR 
R 1 844  COUNTERS.  A 20  MILLISECOND  WAITLIST  CALL  IS  SET  FOR  BEGDES 

R 1 84 5 AFTER  WHICH  THE  PROGRAM  EXITS  TO  L + 3 OF  THE  CALLING  PROGRAM. 

R 1 846  CALLING  SEQUFNCE : 

R1847  FRCM  RRDESSM  AND  RRDESNB  WHEN  ANGLES  WITHIN  LIMITS. 

R 1 84 8 ERASABLE  INITIALIZATION  REQUIRED: 

R 1 849  RADMOCES,  (SEE  DODES ) 

R 1850  SUBROUTINES  CALLED, 

R1851  SETRRECR,  WAITLIST 

R 1 852  J CBS  OR  TASKS  INITIATED;, 

R 1 85  3 BEGDES 

R 1 85  4 ALARMS,  NONE 


R1855  EXIT,  L+3  OF  CALLING  PROGRAM  (SEE  RRDESSM) 
R l 856  L+2  OF  CALLING  PROGRAM  (SEE  RRDESNB) 


1857 

REF 

6 

LAST 

555 

25,2423 

25 

' 112 

1 

STARTOES  incr 

DESRET 

185  8 

REF 

66 

LAST 

553 

25,2424 

4 

0110 

0 

cs 

RADMODES 

1859 

REF 

4 

LAST 

54  8 

25,2425 

7 

4733 

0 

MASK 

DESIGBIT 

1860 

REF 

6 7 

LAST 

556 

25,2426 

26 

1 10 

0 

ADS 

RADMODES 

1861 

REF 

5 

LAST 

546 

25,2427 

7 

4732 

1 

MASK 

R6P0SBIT 

1862 

REF 

182 

LAST 

555 

25,2430 

10 

000 

0 

CCS 

A 

1 863 

REF 

1 

25,2431 

1 

2437 

1 

TCF 

DESRETRN 

1864 

REF 

2 

LAST 

545 

25,2432 

0 

2147 

1 

TC 

SETRRECR 

" 
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STORED  AS  A HALF-UNIT  VECTOR  IN  RRTARGET 

CKON  IS  DESIRED.  BIT14  OF  RADMODES  IS 
OR  REPOSITION  OPERATION.  IN  THIS 
THE  REPOSITION  WILL  BE  INTERRUPTED. 

GINS. 


SFE  IF  RFPOSI T ION ING  IN  PROGRESS. 
EC TR  ALREADY  SET  UP. 


SET  UP  ERROR  COUNTERS 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  202LL12-161 

l P20-P25 


186  5 

REF 

37 

LAST 

523 

25,2433 

3 

4743 

0 

CAF 

TWO 

186  6 

REF 

20 

LAST 

553 

25, 2434 

0 

5 205 

0 

TC 

WAITLIST 

186  7 

REF 

24 

LAST 

553 

E7 , 1456 

E6ANK= 

LOSCOUNT 

1868 

REF 

3 

LAST 

546 

25,2435 

C2564 

1 

2CADR 

BEGDES 

186  8 

25,2436 

52067 

l 

1865 

REF 

3 

LAST 

53  1 

25,2437 

3 

1303 

0 

DESRETRN 

CA 

R ADCADR 

1870 

25,2440 

0 

0006 

1 

EXTEND 

1871 

REF 

1 

25,2441 

1 

2443 

1 

BZF 

DESRTRN 

1872 

REF 

90 

LAST 

555 

25,2442 

0 

5 146 

1 

TC 

ENDOF JOB 

1873 

25,2443 

0 

C 003 

1 

DESRTRN 

REL INT 

1 87  A 

REF 

7 

LAST 

556 

25,2444 

25*112 

1 

INCR 

DESRET 

1375 

REF 

8 

LAST 

557 

25,2445 

3 

1112 

1 

CA 

DESRET 

1876 

REF 

9 

LAST 

536 

25, 2446 

1 

4631 

0 

TCF 

BANKJUMP 

187  7 

REF 

114 

LAST 

549 

25,2447 

3 4746 

0 

NORDSTAL  CAF 

ZERO 

1878 

REF 

4 

LAST 

557  ' 

25,2450 

55 ' 303 

1 

TS 

R ADCADR 

1879 

REF 

2 

LAST 

557 

25,2451 

1 2443 

1 

TCF 

DESRTRN 
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FIRST  PASS  THRU  DESIGNATE 

YES  SET  EXIT 
NO 


ZERO  RAOCADR  TO  WIPF  OUT  ANYONE 
WAITING  IN  RADSTALL  SINCE  WE  ARE  NOW 
RETURNING  TO  P20  AND  MAY  DO  NEW  RADSTALL 


GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L P20-P25 


880 

SEE 

IF  RRCES 

SM  CAN  BE 

: ACCOMP 

L 

ISHED  AFTER 

A REMODE. 

88  1 

REF 

2 

LAST 

548 

25,2452 

0 2224 

1 

TR  YS  In  S 

TC 

RMOOINV 

882 

REF 

4 

LAST 

555 

25,2453 

0 4514 

0 

TC 

RRLIMCHK 

883 

REF 

4 

LAST 

335 

25,2454 

OHIO 

0 

ADRES 

MODES 

884 

REF 

2 

LAST 

555 

25,2455 

1 2462 

1 

TCF 

NODE  SSM 

885 

REF 

3 

LAST 

558 

25,2456 

0 2224 

1 

TC 

RMODINV 

886 

REF 

4 

LAST 

548 

25,2457 

3 4727 

1 

CAF 

REMODBIT 

887 

REF 

68 

LAST 

556 

25,2460 

26  110 

0 

ADS 

R ADMODES 

888 

REF 

1 

25,2461 

l 2403 

0 

TCF 

OKDESSM 

889 

REF 

4 

LAST 

556 

25,2462 

0 2224 

1 

NODE  S SM 

TC 

RMODINV 

890 

REF 

9 

LAST 

557 

25,2463 

25*112 

1 

INCR 

DESRET 

891 

REF 

3 

LAST 

555 

25,2464 

1 2447 

0 

TCF 

NORDSTAL 

892 

25,2465 

CG074 

1 

M AXTRYS 

DEC 

60 
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(NOTE  RUPT  INHIBIT) 

TRY  DIFFERENT  MODE. 

VEHICLE  MANEUVER  REQUIRED. 

RESET  BTT12 

SET  FLAG  FOR  REMODE. 


RE-INVERT  MODE  AND  RETURN 
TO  CALLFR  +2 


GAP: 

L 

P1893 

R1895 

1396 

139  7 

189  8 

189  9 

1900 

190  1 

1902 

1903 

1904 

190  5 

1906 

1907 

1908 

190  9 

1910 

191  1 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

192  0 

192  l 

1922 

1923 

1924 

1925 

1926 

192  7 

1928 

192  9 

193  0 

193  l 

1932 

1933 

1934 
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P20-P25  USER'S  PAGE  NO.  53  E7  S3 

DESIGNATE  TO  SPECIFIC  RR  GIMBAL  ANGLES  (INDEPENDENT  OF  VEHICLE  MOTION) . ENTER  WITH  DESIRED  ANGLES  IN 
TANG  AND  TANG  +1. 


REF 

6 

LAST 

533 

25,2466 

0 4636 

0 

RRDE  SNB 

TC 

MAKEC ADR 

REF 

10 

LAST 

558 

25,2467 

55'  112 

0 

TS 

DESRET 

REF 

52 

LAST 

535 

25,2470 

0 5520 

0 

TC 

DOWNFLAG 

RESET  FLAG  TO  PREVENT  DODES  FROM  GOING 

REF 

6 

LAST 

53C 

25,2471 

00041 

1 

ADRE  S 

L OSCMFLG 

BACK  TO  R21 

REF 

1 

25,2472 

3 2465 

1 

CA 

MAXTRYS 

SET  7 IMF  LIMIT  COUNTFR 

REF 

2 

LAST 

525 

25,2473 

55'  113 

1 

TS 

DESCOUNT 

FOR  DESIGNATE 

25,2474 

0 0004 

0 

INH 1NT 

SEE  IF  CURRENT  MODE  OK. 

REF 

1 

25,2475 

0 2531 

1 

TC 

RRLIMNB 

DO  SPECIAL  V41  LIMIT  CHECK 

REF 

3 

LAST 

525 

25,2476 

01106 

1 

ADRES 

TANG 

REF 

1 

25,2477 

1 2514 

1 

TCF 

TRYSWN 

SEE  IF  IN  OTHER  MODE. 

' 25,2500 

0 0003 

1 

OKDESNB 

RELINT 

25,2501 

0 C006 

l 

EXTEND 

REF 

9 

LAST 

559 

25,2502 

3 1 107 

0 

DC  A 

TANG 

REF 

8 

LAST 

336 

25,2503 

53*753 

0 

DXCH 

T ANGNB 

REF 

48 

LAST 

534 

25,2504 

0 6C60 

1 

TC 

INTPRET 

25,2505 

77624 

1 

CALL 

GET  LOS  IN  NB  COORDS. 

REF 

1 

25,2506 

46041 

0 

RRNB 

REF 

5 

LAST 

555 

25,2507 

01101 

0 

STORE 

RRTARGET 

25,2510 

77414 

0 

SET 

EXIT 

REF 

2 

LAST 

555 

25,2511 

00C71 

1 

RRNBSW 

25,2512 

0 0004 

0 

INHINT 

REF 

2 

LAST 

555 

25,2513 

1 2424 

0 

TCF 

STARTDES  +1 

KEF 

5 

LAST 

558 

25,2514 

0 2224 

1 

TRYSWN 

TC 

RMODINV 

SEE  IF  OTHER  MODE  WILL  DO. 

REF 

2 

LAST 

559 

25,2515 

0 2531 

1 

TC 

RRLIMNB 

DO  SPECIAL  V41  LIMIT  CHECK 

REF 

10 

LAST 

559 

25,2516 

01106 

1 

ADRES 

TANG 

REF 

1 

25,2517 

1 2524 

1 

TCF 

NODESNB 

NOT  POSSIBLE. 

REF 

6 

LAST 

559 

25,2520 

0 2224 

1 

TC 

RMODINV 

REF 

5 

LAST 

558 

25,2521 

3 4727 

1 

CAF 

REMODBIT 

CALL  FOR  REMODE. 

REF 

69 

LAST 

558 

25,2522 

26  110 

0 

ADS 

RADMODES 

REF 

1 

25,2523 

1 2500 

1 

TCF 

OKDESNB 

REF 

7 

LAST 

559 

25,2524 

0 2224 

1 

NODE  SNB 

TC 

RMODINV 

REINVERT  MODE  BIT. 

REF 

21 

LAST 

553 

25,2525 

0 5571 

1 

TC 

ALARM 

BAD  INPUT  ANGLES. 

25,2526 

0C502 

0 

OCT 

502 

REF 

9 

LAS  r 

531 

25,2527 

0 6027 

1 

TC 

CLRADMOD 

REF 

91 

LAST 

557 

25 , 2530 

0 5146 

1 

TC 

ENDOF JOB 

AVOID  503  ALARM. 

REF 

160 

LAST 

551 

25,253  1 

50  002 

0 

RRLIMNB 

INDEX 

0 

THIS  ROUTINE  IS  IDENTICAL  TO  RRLIMCHK 

25,2532 

3 COOO 

1 

CAF 

0 

EXCEPT  THAT  THE  MODE  1 SHAFT  LOWER 

REF 

16  1 

LAST 

559 

25,2533 

24  002 

0 

INC  R 

Q 

LIMIT  IS  -85  INSTEAD  OF  -70  DEGREES 

25,2534 

0 C006 

1 

EXTEND 

GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  RY  NASA  2021112-161 
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193  5 

REF 

183 

LAST 

556 

25,2535 

5 0000 

1 

INDEX 

A 

193  6 

25,2536 

3 C001 

0 

DC  A 

0 

1937 

REF 

17 

LAST 

552 

25,2537 

52  062 

1 

DXCH 

I TEMPI 

193  8 

REF 

162 

LAST 

559 

25,2540 

22  002 

0 

LXCH 

Q 

i 93  9 

REF 

11 

LAST 

548 

25,2541 

3 4731 

0 

CAF 

ANTENBIT 

1940 

REF 

70 

LAST 

559 

25,2542 

7 CUO 

0 

MASK 

R ADMODES 

194  1 

REF 

184 

LAST 

560 

25,2543 

10  000 

0 

CCS 

A 

1942 

REF 

2 

LAST 

538 

25,2544 

1 4541 

1 

TCF 

M0DE2CHK 

194  3 

REF 

18 

LAST 

560 

25,2545 

3 0061 

0 

CA 

I TEMP  1 

1944 

REF 

8 

LAST 

551 

25,2546 

0 4503 

0 

TC 

MAGSUB 

1945 

25,2547 

66161 

1 

DEC 

- .30555 

1946 

REF 

75 

LAST 

552 

25,2550 

0 0C01 

0 

TC 

L 

1947 

REF 

9 

LAST 

552 

25,2551 

3 0062 

0 

CA 

I TEMP2 

194  b 

25,2552 

0 0006 

1 

EXTEND 

1949 

REF 

1 

25,-2553 

6 2561 

1 

BZMF 

NEGSHAFT 

1950 

REF 

2 

LAST 

539 

25, 2554 

6 4553 

0 

AD 

5 .5DEGS 

195  l 

REF 

9 

LAST 

560 

25,2555 

0 4503 

0 

SHAFTLIM  TC 

MAGSUB 

1952 

25,2556 

64420 

0 

DEC 

- .35833 

195  3 

REF 

76 

LAST 

560 

25,2557 

0 0001 

0 

TC 

L 

1954 

REF 

2 

LAST 

539 

25, 2560 

0 4551 

1 

TC 

RRLIMOK 

1955 

REF 

1 

25,2561 

6 2563 

0 

NEGSHAFT  AD 

20.5DEGS 

1956 

REF 

1 

25,2562 

1 2555 

1 

TCF 

SHAFTLIM 

1957 

25,2563 

03512 

1 

20.5DEGS  DEC 

. 11389 
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READ  GIMBAL  ANGLES  INTO  ITEMP  STORAGE 

L ( CALLER  +2)  TO  L 

SEE  WHICH  MODE  RR  IS  IN. 

MODE  2 CAN  USE  RRLTMCHK  CODING 

MODE  l IS  DEFINED  AS 
1.  ABS(T)  L 55  DEGS 
2 SHAFT  LIMITS  AT  +59,  -85  DEGS 

LOAD  SHAFT  ANGLE 

IF  NEGATIVF  SHAFT  ANGLE,  ADD  20.5  OEGS 

64.5  DEGREES 
NOT  IN  LIMITS 
IN  LIMITS 

MAKE  NEGATIVE  SHAFT  LIMIT  -85  DEGREES 


GAP: 
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L 

PI  95  8 

R 195  9 
R1960 
R 1 96  1 
R 196  2 
R 1 963 
R1964 
R1965 
R 196  6 
R 19b  7 
R 1968 
R 1 96  9 
R 1 970 
R 197  1 
R 1972 
R 197  3 
R 1 974 
R 1 975 
R 1976 
R 1 97  7 
R 1 97  8 
R 1 979 
R 1 98  0 
R1981 
R 1 98  2 
R 1 98  3 
R1984 

R 1 93  5 
R 1 986 
R1987 
R 1 98  8 

R 198  9 
R 1990 

R 1 99  1 
R1992 

R 1 99  3 

R 1 994 
R 199  5 

R 1996 
R 1 99  7 
R 1 99  8 

1999 


P2C-P25 

PROGRAM  NAM  E_  8EGDES 


. 163 
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FUNCTIONAL  DESCRIPTION. 

8EGDES  CHECKS  VARIOUS  DESIGNATE  REQUESTS  AND  REQUESTS  THE 
ACTUAL  RR  DESIGNATION.  INITIALLY  A CHECK  IS  MADE  TO  SEE  IF  A 
REMOCE  (RADMODES  BIT  14)  IS  REQUESTED  OR  IN  PROGRESS.  IF  SO, 

CONTROL  IS  TRANSFERRED  TO  STDESIG  AFTER  ROUTINE  REMODE  IS 

EXECUTED.  IF  NO  REMUDE,  STDESIG  IS  IMMEDIATELY  CALLED  WHERE 

FIRST  THE  REPOSITION  FLAG  (RADMODES  BIT  11)  IS  CHECKED.  IF 

PRESENT,  THE  DESIGNATE  FLAG  (RADMODES  BIT  10)  IS  REMOVED 

AFTER  WHICH  THE  PROGRAM  EXITS  TO  RDBADEND . IF  THE  REPOSITION 

FLAG  IS  NOT  PRESENT,  THE  CONTINUOUS  DESIGNATE  FLAG  (RADMODES 

BIT  15)  IS  CHECKED.  IF  PRESENT,  ON  EXECUTIVE  CALL  IS  IMMEDIATELY 

MADE  FOR  DODES  AFTER  WHICH  A .5  SECOND  WAIT  IS  INITIATED  BEFORE 

REPEATING  AT  STDtSIG.  IF  THE  RR  SEARCH  ROUTINE  (LRS24.1)  IS  DESIGNATING 

TO  A NFW  POINT  (NEWPTFLG  SET)  THE  CURRENT  DESIGNATE  TASK  IS  TERMINATED. 

IF  CONTINUOUS  DESIGNATE  IS  NOT  WANTED,  THE  DESIGNATE  FLAG  (RADMODES 

BIT  10)  IS  CHFCKED . . IF  NOT  PRESENT,  THE  PROGRAM  EXITS  TO  ENDRADAR  TO 

CHECK  RR  CDU  FAIL  BEFORE  RETURNING  TO  THE  CALLING  PROGRAM.  IF  DESIGNATE 

IS  STILL  REQUIRED,  DESCOUNT  IS  CHECKED  TO  SEE  IF  THE  30  SECONDS  HAS 

EXPIRED  BEFORE  RECEIVING  THE  RR  DATA  GOOD  (CHAN  33  BIT  4) 

SIGNAL.  IF  OUT  OF  TIME,  PROGRAM  ALARM  005C3  IS  REQUESTED,  THE 
RR  AUTO  TRACKER  ENABLE  AND  RR  ERROR  COUNTER  ENABLE 
(CHAN  12  BITS  14,2)  BITS  REMOVED,  AND  THE  DESIGNATE  FLAG 
(RADMODES  BIT  10)  REMOVED  BEFORE  EXITING  TO  RDBADEND.  IF 
TIME  FAS  NOT  EXPIRED,  DESCOUNT  IS  DECREMENTED,  THE 
EXECUTIVE  CALL  MADE  FOR  CODES  , AND  A .5  SECOND  WAIT  INITIATED 
BEFORE  REPEATING  THIS  PROCEDURE  AT  STDESIG. 

CALLING  SEQUENCE: 

WAITLIST  CALL  FROM  STARTOES 

TCF  BEGDES  FROM  DORREPOS 

TC  STOESIG  RETURNING,  FROM  REMODE 

ERASABLE  INITIALIZATION  REQUIRED: 

DESCOUNT,  RADMODES 

SUBROUTINES  CALLED. 

ENDRACAR,  FINDVAC 

JOBS  CR  TASKS  INITIATED.  DODES 


ALARMS.  PROGRAM  ALARM  00503  (30  SECONDS  HAVE  EXPIRED)  WITH  NO  RR  DATA 
GOOD  (CHAN  33  BIT  4)  RECEIVED  WHEN  LOCK-ON  (STATE  BIT  5)  WAS  REQUESTED. 

EXIT.  TASKOVER  (SEARCH  PATTERN  DESIGNATING  TO  NEW  POINT) 

ENDRACAR  (NO  DESIGNATE  - RADMOOES  BIT  10) 

RDBADEND  (REPOSITION  OR  30  SECONDS  EXPIRED) 


REF  71  LAST 


560 


25,2564  4 0110  0 BEGDES 


CS 


P ADMODES 
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2000 

REF 

6 

LAST 

559 

25, 2565 

7 9727 

0 

MASK 

REMODBIT 

2001 

REF 

185 

LAST 

560 

25,2566 

10  000 

0 

CCS 

A 

2002 

REF 

3 

LAST 

598 

25,2567 

0 2573 

1 

TC 

STDESIG 

2003 

REF 

1 

25,2570 

0 2162 

0 

TC 

REMODE 

2009 

REF 

0 

LAST 

550 

25,2571 

0 5223 

1 

DESLOOP 

TC 

FIXDELAY 

2005 

25,2572 

00062 

0 

DEC 

50 

200  6 

REF 

6 

LAST 

556 

25,2573 

3 9732 

0 

STDESIG 

CAF 

R EPOS  BT  T 

2007 

REF 

72 

LAST 

56  l 

25, 2579 

7 0110 

0 

MASK 

R ADMODES 

2008 

REF 

1 86 

LAST 

562 

25,2575 

10  000 

0 

CCS 

A 

2009 

REF 

1 

25,2576 

1 2619 

1 

TCF 

BADDES 

2010 

REF 

73 

LAST 

562 

25,2577 

10  110 

0 

CCS 

R ADMODES 

201  1 

25,2600 

1 2603 

1 

TCF 

+ 3 

2012 

25,2601 

1 2603 

1 

TCF 

+ 2 

2013 

REF 

1 

25,2602 

1 2620 

0 

TCF 

MOREDES  +1 

2019 

REF 

79 

LAST 

562 

25,2603 

9 0110 

0 

CS 

RADMODES 

2015 

REF 

5 

LAST 

556 

25,2609 

7 9733 

0 

MASK 

DESIGBIT 

2016 

REF 

187 

LAST 

562 

25,2605 

10  000 

0 

CCS 

A 

2017 

REF 

2 

LAST 

553 

25,2606 

1 3607 

1 

TCF 

END.RADAR 

2018 

REF 

3 

LAST 

559 

25,2607 

11*  113 

1 

STDESIG1 

CCS 

DESCOUNT 

2019 

REF 

2 

LAST 

56  2 

25, 2610 

1 2617 

1 

TCF 

MOREDES 

2020 

REF 

1 

25,2611 

9 2625 

0 

CS 

B 19+B2 

2 021 

25,2612 

0 0006 

1 

EXTEND 

2022 

REF 

33 

LAST 

596 

25,2613 

03  012 

1 

WAND 

CHAN  1 2 

2023 

REF 

53 

LAST 

559 

25,2619 

0 5520 

0 

BADDES 

TC 

DOWNFLAG 

2029 

REF 

1 

25,2615 

00271 

0 

ADRES 

DESIGFLG 

2025 

REF 

1 

25,2616 

1 3623 

1 

TCF 

R DBADEND 

2026 

REF 

9 

LAST 

562 

25,2617 

55'  113 

1 

MOREDES 

TS 

DESCOUNT 

2027 

REF 

9 

LAST 

535 

25,2620 

3 7735 

1 

CAF 

PR  1026 

2028 

REF 

22 

LAST 

535 

25,2621 

0 5076 

0 

TC 

F INDVAC 

2029 

REF 

25 

LAST 

557 

E 7 , 1956 

EBANK= 

LUSCOUNT 

2030 

REF 

1 

25,2622 

02626 

1 

2CADR 

DODE  S 

203  0 

REF 

1 

25,2623 

52067 

1 

2 03  1 

REF 

1 

25,2629 

1 2571 

1 

TCF 

DESLOOP 

2032 

25,2625 

20002 

1 

B19+32 

OCT 

20002 
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2 SAMPLES  PER  SECOND. 


SEE  IF  GIMBAL  LIMIT  MONITOR  HAS  FOUND  US 
OUT  OF  BOUNDS.  IF  SO,  THIS  BIT  SHOWS  A 
REPOSITION  TO  BE  IN  PROGRESS. 

SEE  IF  CONTINUOUS  DESIGNATE  WANTFD. 

IF  SO,  DONT  CHECK  BIT  10  TO  SEE  IF  IN 
LIMITS  BUT  GO  RIGHT  TO  FTNDVAC  ENTRY. 


IF  NON-CONT INUOUS , SEE  IF  END  OF 
PROBLEM  (DATA  GOOD  IF  LOCK-ON  WANTED  OR 
WITHIN  LIMITS  IF  NOT).  IF  SO,  EXIT  AFTER 
CHECKING  RR  CDU  FAIL. 

SEE  IF  THE  TINE  LIMIT  HAS  EXPIRED 


IF  OUT  OF  TIME,  REMOVE  EC R ENABLE  + TRKR 


UPDATE  GYRO  TORQUE  COMMANDS 
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* 

* 

* 


Z* 

ZD 

-o 

5* 


# 

» 

* 

• 

ft 

ft 


P2033 

R2034 
R2035 
R2036 
R2037 
R203  8 
R2039 
R2040 
R204  1 
R2042 
R2043 
R2044 
R2045 
R 2046 
R2047 
R2048 
R2049 
R2050 
R205  1 
R2052 
R2053 
R2054 
R2055 
R2056 
R2057 
R 205  8 
R2059 
R2060 
R2061 
R2062 
R2063 
R2064 
R2065 
R2066 
R2067 
R2068 
R2069 
R2070 
R2071 

R2072 

R2073 

R2074 
R2075 
R 2 0 7 6 

R2077 

R2078 


P20-P25 


PROGRAM  NAME. 
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DODES 


FUNCTIONAL  DESCRIPTION. 

DODES  CALCULATES  AND  REQUESTS  ISSUANCE  OF  RR  GYRO  TORQUE 
CUMMANDS.  INITIALLY  THE  CURRENT  RR  CDU  ANGLES  ARE  STORED  AND 
THE  LOS  HALF-UNIT  VECTOR  TRANSFORMED  FROM  STABLE  MEMBER  TO 
NAVIGATION  BASE  COORDINATES  VIA  SMNB  IF  NECESSARY.  THE 
SHAFT  AND  TRUNNION  COMMANDS  ARE  THEN  CALCULATED  AS  FOLLOWS. 

+ SHAFT  = LOS  . (COS(S),  0,  -SIN  ( S ) ) (DOT  PRODUCT) 

-TRUNNION  = LOS  . (SIN  (T)  SIN  (S),  COS  IT),  SIN  (T)  COS  (S)  ) 

THE  SIGN  OF  THE  SHAFT  COMMAND  IS  THEN  REVERSED  IF  IN  MODE  2 

(RADMODES  BIT  12)  BECAUSE  A RELAY  IN  THE  RR  REVERSES  THE 

POLARITY  OF  THE  COMMAND.  AT  RRSCALUP  EACH  COMMAND  IS 

SCALED  AND  IF  EITHER,  OR  BOTH,  OF  THE  COMMANDS  IS  GREATER  THAN 

.5  DEGREES,  MPAC  +1  IS  SET  POSITIVE.  IF  A CONTINUOUS  DESIGNATE 

(RADMODES  BIT  15)  IS  DESIRED  AND  THE  SEARCH  ROUTINE  IS  NOT  OPERATING, 

THE  RR  AUTO  TRACKER  ENABLE  BIT  (CHAN  12  BIT  14)  IS  CLEARED  AND  RROUT 

CALLED  TO  PUT  OUT  THfc  COMMANDS  PROVIDED  NO  REPOSITION  (RADMODES  BIT  11) 

IS  IN  PROGRESS.  IF  A CONTINUOUS  DESIGNATE  AND  THE  SEARCH  ROUTINE  IS 

OPERATING  (SRCHOPT  FLAG  SET)  THE  TRACK  ENABLE  IS  NOT  CLEARED.  IF  NO 

CC  NT  I NUCUS  DESIGNATE  AND  BOTH  COMMANDS  ARE  NUT  LESS  THAN  .5  DEGREES  AS 

INDICATED  BY  MPAC'+l,  THE  RR  AUTO  TRACKER  ENABLE  BIT  (CHAN  12  BIT  14)  IS 

CLEARED  AND  RROUT  CALLED  TO  PUT  OUT  THE  COMMANDS  PROVIDED  NO  REPOSITION 

(RADMODES  BIT  11)  IS  IN  PROGRESS.  IF  BOTH  COMMANDS  ARE  LESS  THAN  .5 

DEGREES  AS  INDICATED  BY  MPAC+1,  THE  RR  AUTO  TRACKER  ENABLE  BIT 

(CHAN  12  BIT  14)  IS  CLEARED  AND  RROUT  CALLED  TO  PUT  OUT  THE 

COMMANDS  PROVIDED  NO  REPOSITION  (RADMODES  BIT  11)  IS  IN 

PROGRESS.  IF  BOTH  CUMMANDS  ARE  LESS  THAN  .5  DEGREES,  THE 

LOCK-CN  FLAG  (STATE  BIT  5)  IS  CHECKED.  IF  NOT  PRESENT,  THE 

DESIGNATE  FLAG  ( R ADMCDES  BIT  10)  IS  CLEARED,  THE  RR  ERROR 

COUNTER  ENABLE  BIT  (CHAN  12  3 IT  2)  IS  CLEARED,  AND  ENDOFJOB 

CALLED.  IF  LOCK-ON  IS  DESIRED,  THE  RR  AUTO  TRACKER  (CHAN  12 

BIT  14)  IS  ENABLED  FOLLOWED  BY  A CHECK  OF  THE  RECEIPT  OF  THE 

RR  DATA  GOOD  (CHAN  33  BIT  4)  SIGNAL.  IF  RR  DATA  GOOD 

PRESENT,  THE  DESIGNATE  FLAG  (RADMODES  81 T 10)  IS  CLEARED, 

THE  RR  ERROR  COUNTER  ENABLE  BIT  (CHAN  12  BIT  2)  IS  CLEARED, 

AND  ENDOFJOB  CALLED.  IF  RR  DATA  GOOD  IS  NOT  PRESENT,  RROUT 
IS  CALLED  TO  PUT  OUT  THE  COMMANDS  PROVIDED  NO  REPOSITION 
(RADMODES  BIT  11)  IS  IN  PROGRESS  AFTER  WHICH  THE  JOB  IS  TERMINATED 
VIA  E K DCF JOB . 


CALLING  SEQUENCE: 
EXECUTIVE  CALL  EVERY 


,5  SECONDS  FROM  8EGDES. 


ERASABLE  INITIALIZATION  REQUIRED: 

R R T ARC  E T (HALF-UNIT  LOS  VECTOR  IN  EITHER  SM  OR  NB  COORDINATES), 
LOKONSW  (STATE  BIT  5),  RRNBSW  (STATE  BIT  6),  RADMODES 

SUBROUTINES  CALLED. 

RE  ADC  DL  S , SMNB,  CDULCGIC,  MAGSUB,  RROUT 


ft 


GAP:  ASSEMBLE  REVISION  2 LO  CF  AGC  PROGRAM  LUMINARY  3Y  NASA  2021112-161 


L 

P2C- 

P 25 

R2079 

joes 

OR 

TASKS 

INITIATED. 

R2080 

NONE 

R208  1 

ALARMS. 

NONE 

R2082 

EXIT. 

I 

END0F JOB  (ALWAYS) 

2083 

25,2626 

2084 

REF 

11 

LAST 

550 

25,2627 

2005 

REF 

11 

LAST 

559 

25,2630 

2086 

REF 

49 

LAST 

559 

25,2631 

2087 

25,2632 

2088 

25,2633 

2089 

REF 

6 

LAST 

559 

25,2634 

2090 

25,2635 

2091 

REF 

3 

LAST 

559 

’25,2636 

2092 

REF 

l 

25,2637 

2093 

REF 

1 

25,2640 

2094 

25,2641 

2095 

REF 

2 

LAST 

117 

25,2642 

2096 

25,2643 

2097 

REF 

1 

25,2644 

2098 

25,2645 

2099 

REF 

3 

LAST 

555 

‘ 25,2646 

2100 

25,2647 

210  1 

REF 

4 

LAST 

555 

25,2650 

2102 

25,2651 

2103 

REF 

12 

LAST 

564 

25, 2652 

2104 

25,2653 

2105 

REF 

11 

LAST 

386 

25, 2654 

2106 

25 , 2655 

2107 

25,2656 

210  8 

25,2657 

2109 

25,2660 

2110 

25,2661 

2111 

25,2662 

2112 

25,2663 

2113 

25,2664 

2114 

REF 

13 

LAST 

564 

25,2665 

2115 

25,2666 

2116 

REF 

14 

LAST 

564 

25, 2667 

2117 

REF 

12 

LAST 

564 

25,2670 

2118 

25,2671 

2119 

25,2672 

2120 

25,2673 

212  1 

25,2674 

0 0006 

1 

CODES 

EXTEND 

3 CC36 

1 

DC  A 

C OUT 

53' 107 

1 

DXCH 

TANG 

0 6060 

1 

TC 

INTPRET 

77201 

1 

SETPD 

V LOAD 

00001 

0 

0 

01101 

0 

RRTARGET 

74214 

0 

BON 

VXSC 

0C311 

1 

RRNBSW 

52651 

1 

DONBRD 

01765 

1 

MLDSV 

63372 

1 

VSL  1 

PDVL 

01757 

0 

LOSVEL 

53361 

0 

VX  SC 

VAD 

13061 

1 

MCTOMS 

45C56 

0 

UNIT 

CALL 

47522 

1 

CDUTRIG 

77624 

1 

CALL 

47  663 

1 

*SMNB* 

14041 

1 

DONBRD 

STODL 

3 2D 

OHIO 

0 

TANG  +1 

41434 

1 

RTB 

PUSH 

21606 

l 

CDULOGIC 

65356 

1 

SIN 

PDDL 

41546 

0 

COS 

PUSH 

65205 

0 

DMP 

PDDL 

00041 

1 

3 2D 

0CC45 

0 

360 

44  205 

0 

DMP 

BDSU 

00001 

0 

0 

77626 

0 

STAOR 

76667 

l 

STORE 

TANG  +1 

47135 

0 

SLOAD 

RTB 

01107 

0 

TANG 

2 1606 

1 

CDULOGIC 

71406 

0 

PUSH 

COS 

73525 

1 

PDDL 

SIN 

41206 

0 

PUSH 

DMP 

00003 

1 

2 
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TARGET  IN  NAV-8ASE  COORDINATES 
MULTIPLY  UNIT  LOS  BY  MAGNITUDE 

ADD  ONE  SECOND  RELATIVE  VELOCITY  TO  LOS 


AFT 

COMMAND  = 

V132D  ) , 

. (COS 

I-S  INIS)  ) . 

N ( S 

) TO  0 AND 

cost  S ) 

TO  2 

SHAFT  COMMAND 


COSIT ) TO  4. 


SIN1T ) TO  6 


GAP:  ASSEMBLE  REVISION  2IC  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L P2C-P25 


2122 

25,2675 

65352 

0 

SL1 

P DDL 

2123 

25,2676 

00005 

1 

4 

2124 

25,2677 

41325 

0 

POOL 

DMP 

2125 

25 , 7 700 

COC07 

0 

6 

2126 

25,2701 

00001 

0 

0 

2127 

25,2702 

55552 

0 

SL1 

VDEF 

2128 

25,2703 

77441 

0 

DOT 

EXIT 

2 129 

25,2704 

00041 

1 

3 2D 

17:11  MAR.  19,1971  LFMP20S  .168  PAGE  565 


USER'S  PAGE  NO.  59  E7  S3 

DEFINE  VECTOR  U = ( S I N ( T ) S I N ( S )) 

(CO  SIT)  ) 

t SI  NIT) COS( S) ) 


DOT  U WITH  LOS  TO  GET  TRUNNION  COMMAND. 
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L P20-P25  USER'S  PAGE  NO.  60  E7  S3 


P2130 

AT  THIS  POINT  WE  HAVE 

: A ROTATION 

VECTOR 

IN  DISH  AXES  LYING 

IN  THE  TS  PLANE.  CONVERT  THIS  TO  A 

R2132 

COMMANDED 

i RATE 

AND 

ENABLE  THE 

TRACKER 

IF 

WE  ARE 

WITHIN 

.5  DEGREES  OF 

THE  TARGET. 

2 13  A 

REF 

246 

LAST 

536 

25,2705 

4 C 1 54 

0 

CS 

MPAC 

DOT  WAS  NEGATIVE  OF  DESIPED  ANGLE. 

2135 

25, 2706 

0 0006 

1 

EXTEND 

2136 

REF 

1 

25,2707 

7 3055 

0 

MP 

RDESGAI N 

SCALING  ON  INPUT  ANGLE  WAS  4 RADIANS. 

213  7 

REF 

3 

LAST 

551 

25,2710 

55' 351 

0 

TS 

T RUNNCMD 

TRUNNION  COMMAND  FOR  RROUT 

2138 

REF 

75 

LAST 

562 

25,2711 

-F' 

O 

O 

0 

CS 

RADMODE S 

A RELAY  IN  THE  RR  REVERSES  POLARITY  OF 

2139 

REF 

22 

LAST 

524 

25,2712 

7 4731 

1 

MASK 

B I T 1 2 

THE  SHAFT  COMMANDS  IN  MODE  2 SO  THAT  A 

2140 

25,2713 

0 0006 

1 

EXTEND 

POSITIVE  TORQUE  APPLIED  TO  THE  SHAFT 

2141 

25,2714 

1 2717 

0 

BZF 

+ 3 

GYRO  CAUSES  A POSITIVE  CHANGE  IN  THE 

2142 

REF 

15 

LAST 

564 

25,2715 

3 1107 

0 

CA 

TANG  +1 

SHAFT  ANGLE.  COMPENSATE  FOR  THIS  SWITCH 

2143 

25,2716 

1 2720 

1 

TCF 

+ 2 

BY  CHANGING  THE  POLARITY  OF  OUR  COMMAND 

2144 

REF 

16 

LAST 

566 

25,2717 

4 1107 

1 

+ 3 

CS 

TANG  +1 

2145 

. 25,2720 

0 0006 

1 

EXTEND 

214  6 

REF 

2 

LAST 

566 

25,2721 

7 3055 

0 

MP 

RDESGAIN 

SCALING  ON  INPUT  ANGLE  WAS  4 RADIANS. 

2147 

REF 

1 

25,2722 

55 ' 352 

0 

TS 

SHAFTCMD 

SHAFT  COMMAND  FOR  RROUT 

2148 

REF 

5C 

LAST 

564 

25,2723 

0 6060 

1 

TC 

I NTPRET 

2149 

25,2724 

41345 

0 

DLOAD 

DMP 

2150 

25,2725 

00003 

1 

2 

costs ) . 

215  1 

25,2726 

00005 

1 

4 

COS ( T ) . 

2152 

- 25,2727 

65352 

0 

SL1 

P DDL 

Z COMPONENT  OF  URP . 

2153 

25, 2730 

65276 

1 

DCOM  P 

PDDL 

Y COMPONENT  = -SIN(T) . 

2154 

25,2731 

0C001 

0 

0 

S I N ( S ) . 

2155 

25,2732 

72405 

0 

DM  P 

SL1 

2156 

25,2  733 

00005 

1 

4 

COSt  T ) . 

2157 

25,2734 

43066 

0 

VDEF 

BON 

FORM  URR  IN  NB  AXES. 

2158 

REF 

4 

LAST 

564 

25,2735 

OC  3 1 1 

1 

RRNBSW 

BYPASS  NBSM  CONVERSION  IN  VERB  41. 

2159 

25,2736 

52741 

1 

*3 

2160 

25,2737 

77624 

1 

CALL 

2161 

REF 

2 

LAST 

264 

25,2740 

47665 

1 

*N8SM* 

GET  URR  IN  SM  AXES. 

2162 

25,2741 

77441 

0 

DOT 

EXIT 

2163 

REF 

7 

LAST 

564 

25,2742 

01101 

0 

RRTARGET 

GET  COSINE  OF  ANGLE  BETWEEN  RR  AMD  LOS. 

2164 

25,2743 

0 0006 

1 

EXTEND 

2165 

REF 

1 

25,2744 

4 3057 

1 

DCS 

COS1/2DG 

2166 

REF 

247 

LAST 

566 

25,2745 

20  155 

1 

DAS 

MPAC 

DIFFERENCE  OF  COSINES,  SCALED  B-2 . 

2167 

REF 

248 

LAST 

566 

25,2746 

10  154 

0 

CCS 

MPAC 

2168 

REF 

1 15 

LAST 

557 

25,2747 

3 4746 

0 

CA 

ZERO 

IF  COS  ERROR  eiGGER,  ERROR  IS  SMALLER. 

2169 

25,2  750 

1 2752 

l 

TCF 

+ 2 

2170 

REF 

69 

LAST 

553 

25,2751 

3 4 744 

1 

CA 

ONE 

217  1 

REF 

249 

LAST 

566 

25,2752 

54  155 

1 

TS 

MPAC  +1 

ZERO  IF  RR  IS  POINTED  OK,  ONE  IF  NOT. 

ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


GAP: 

L P20-P25 

P2172  SEE  IF  TRACKER  SHOULD  BE  ENABLED  OR  DISABLED. 


2173 

REF 

76 

LAST 

566 

25,2753 

10  110 

0 

CCS 

R AOMODES 

2174 

REF 

1 

25,2754 

1 2 757 

1 

TCF 

S IGNLCHK 

2175 

REF 

2 

LAST 

567 

25,2755 

1 2757 

1 

TCF 

S IGNLCHK 

2176 

REF 

1 

25,2756 

1 3007 

1 

TCF 

DORROUT 

2177 

REF 

250 

LAST 

566 

25,2757 

10  155 

1 

S IGNLCHK 

CCS 

MPAC  +1 

2178 

REF 

1 

25,2760 

1 2 770 

1 

TCF 

DGOODCHK 

2179 

REF 

39 

L AST 

555 

25,2761 

4 0074 

0 

CS 

STATE 

2180 

REF 

1 

25, 2762 

7 4740 

1 

MASK 

LOKONBIT 

2181 

REF 

188 

LAST 

562 

25,2763 

10  000 

0 

CCS 

A 

2182 

REF 

1 

25,2764 

1 2775 

1 

TCF 

RRDESDUN 

2183 

REF 

52 

LAST 

533 

25, 2765 

3 4727 

1 

CAF 

B I T 14 

2184 

25,2766 

0 0006 

1 

EXTEND 

2185 

REF 

34 

LAST 

562 

25,2767 

05  012 

1 

WOR 

CHAN  1 2 

2186 

REF 

26 

LAST 

§33 

25,2770 

3 4741 

1 

DGODDCHK 

CAF 

B IT4 

2187 

25,2  771 

0 0006 

1 

EXTEND 

2188 

REF 

11 

LAST 

534 

25,2772 

02  C 33 

0 

RAND 

CHAN33 

2189 

REF 

189 

LAST 

567 

25,2773 

10  000 

0 

CCS 

A 

2190 

REF 

2 

LAST 

567 

25,2  774 

1 3007 

1 

TCF 

DORROUT 

2191 

REF 

26 

LAST 

49  1 

25,2775 

4 4733 

0 

RRDE  SDUN 

CS 

BIT10 

2192 

REF 

77 

LAST 

567 

25,2776 

7 C110 

0 

MASK 

RADMODE S 

2193 

25,2777 

0 0C04 

0 

INHINT 

2194 

REF 

78 

LAST 

567 

25,3000 

54  110 

0 

TS 

R ADMODES 

2195 

REF 

54 

LAST 

562 

25,3001 

0 5520 

0 

TC 

DOWNFLAG 

2196 

REF 

7 

LAST 

559 

25,3002 

OOC41 

1 

ADRES 

LOSCMFLG 

2197 

REF 

33 

LAST 

546 

25,3003 

4 4743 

1 

CS 

BIT2 

2198 

25,3004 

0 C C 06 

1 

EXTEND 

2199 

REF 

35 

LAST 

567 

25,3005 

03  012 

1 

WAND 

CHAN  1 2 

2200 

REF 

92 

LAST 

559 

25,3006 

1 5146 

0 

TCF 

ENDOF JOB 

2201 

REF 

8 

LAST 

513 

25,3007 

3 C076 

0 

DORROUT 

CA 

FLAGWRD2 

220  2 

REF 

1 

25,3010 

7 7733 

0 

MASK 

BIT12.L4 

220  3 

25,3011 

0 0006 

1 

EXTEND 

2204 

REF 

1 

25,3012 

1 3C31 

1 

BZF 

N0TP20 

2205 

REF 

51 

LAST 

566 

25,3013 

0 6060 

1 

TC 

I NTPRET 

2206 

25,3014 

74375 

0 

VLOAD 

VXSC 

2207 

REF 

8 

LAST 

566 

25,3015 

01101 

0 

RRTARGET 

2208 

REF 

2 

LAST 

564 

25,3016 

01765 

1 

MLOSV 

2209 

25,3017 

41572 

1 

VS  L 1 

PUSH 

2210 

25,3020 

74375 

0 

VLOAD 

VXSC 

221  1 

REF 

3 

LAST 

5t>4 

25,3021 

01757 

0 

LOSVEL 

2212 

REF 

2 

LAST 

564 

25,3022 

13061 

1 

MCTOMS 

2213 

25,3023 

53362 

0 

VSR  1 

VAD 

2214 

25,3024 

77656 

1 

UNIT 

2215 

REF 

9 

LAST 

567 

25,3025 

15101 

0 

STOOL 

RRTARGET 
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IF  CONTINUOUS  DESIGNATE  WANTFD,  PUT  OUT 
COMMANDS  WITHOUT  CHECKING  MAGNITUDE  OF 
ERROR  SIGNALS 

SEE  IF  BOTH  AXES  WERE  WITHIN  .5  DEGS. 

IF  WITHIN  LIMITS  AND  NO  LOCK-ON  WANTED, 
PROBLEM  IS  FINISHED. 


ENABLE  THE  TRACKER. 


SEE  IF  DATA  GOOD  RECEIVED  YET 


WHEN  PROBLEM  DONE,  REMOVE  BIT  10  SO  NEXT 
WAITLIST  TASK  WE  WILL  GO  TO  RGOOD END. 


RESET  LOSCMFLG  TO  PREVENT  A 

RFCOM  PUT  AT  ION  OF  LOS  AFTER  DATA  GOOD 

TURN  OFF  ENABLE  RR  ERROR  COUNTER 


WITH  ECTR  DISABLED. 

IF  BOTH  LOSCMFLAG  AND  SEARCH  FLAG  ARE 
ZERO,  BYPASS  VELOCITY  ADJUSTMENT  TO  LOS 


MULTIPLY  UNIT  LOS  BY  MAGNITUDE 


ADD  . 5 SEC . OF  VELOCITY 
TO  LOS  VECTOR 


STORE  VELOCITY-CORRECTED  LOS  (UNIT) 


GAP:  ASSEMBLE  REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L P20-P25 


2216 

25,3026 

00045 

0 

36D 

2217 

REF 

3 

LAST 

567 

25,3027 

01765 

1 

STORE 

MLDSV 

2218 

25,3030 

77776 

1 

EX  I T 

2219 

25,3031 

0 0004 

0 NOTP20 

INHINT 

2220 

REF 

79 

LAST 

567 

25,3032 

4 0110 

0 

CS 

RADMODES 

2221 

REF 

7 

LAST 

562 

25 ,3033 

7 4732 

1 

MASK 

REPOSBI T 

2222 

REF 

190 

LAST 

567 

25,3034 

10  000 

0 

CCS 

A 

2223 

REF 

2 

LAST 

550 

25,3035 

0 2277 

1 

TC 

RROUT 

2224 

REE 

9 

LAST 

567 

25,3036 

3 0076 

0 

CA 

FL AGWRD2 

2225 

REF 

1 

25,3037 

7 4731 

1 

MASK 

LOSCMBIT 

2226 

25,3040 

0 0006 

1 

EXTEND 

2227 

REF 

93 

LAST 

567 

25,3041 

1 5146 

0 

BZF 

ENDOF JOB 

2228 

REF 

26 

LAST 

562 

25,3042 

11*456 

0 

CCS 

LOSCOUNT 

2229 

REF 

1 

25,3043 ' 

0 3053 

1 

TC 

DODESEND 

2230 

REF 

6 

LAST 

531 

25,3044 

0 6050 

1 

TC 

KILLTASK 

223  l 

REF 

2 

LAST 

562 

25,3045 

52573 

1 

CADR 

DESLUOP  +2 

2232 

25,3046 

0 0003 

1 

REL INT 

2233 

REF 

4 

LAST 

390 

25,3047 

10  067 

1 

CCS 

N EW JOB 

2234 

REF 

3 

LAST 

390 

25,3050 

0 5113 

1 

TC 

C HANG  1 

2235 

REF 

154 

LAST 

536 

25,3051 

C 4607 

1 

TC 

BANKCALL 

2236 

REF 

1 

25,3052 

51015 

1 

CADR 

R21LEM2 

2237 

REF 

27 

LAST 

568 

25,3053 

5 5 ' 4 56  0 

UODE SEND  TS 

LOSCOUNT 

2238 

REF 

94 

LAST 

568 

25,3054 

0 5146  1 

TC 

ENDOF JOB 

2239 

25,3055 

21122 

0 

RDESGAIN 

DEC 

.53624 

2240  REF  1 

7733 

BIT12.14 

EQUALS 

P R 1 024 

2241 

25,3056 

07777 

1 

C0S1/2DG 

2DEC 

. 999961923 

2241 

25,3057 

33005 

1 

2242 

25,3060 

0C310 

0 

MCTOMS 

2DEC 

100  B-13 

2242 

25,3061 

00000 

1 
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AND  STORF  MAGNITUDE 


PUT  OUT  COMMAND  UNLESS  MONITOR 
REPOSITION  HAS  TAKEN  OVER. 


IF  LOSCMFLG  NOT  SET,  DON'T  TEST 
LOS  COUNTER 

TEST  LOS  COUNTER  TO  SEE  IF  TIME  TO  GET 
A NEW  LOS 

YES  - KILL  TASK  WHICH  SCHEDULES  DODES 


TRIES  TO  NULL  .5  ERROR  IN  .5  SEC. 
OCT  2 4000 

B-2  COSINE  OF  0.5  DEGREES. 


GAP:  ASSEMBLE  REVISION  21C  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-16L  17 

L P20-P25 

P2243  RACAR  READ  INITIALIZATION 


R2244  THE  FOLLOWING  ROUTINES  MUST  BE  CALLED  BY  B ANKCALL 


2245 

REF 

l 

25,3062 

0 3 C 76 

0 

LKALT 

TC 

I NITREAD 

2246 

25,3063 

00017 

1 

ALLREAD 

OCT 

17 

2247 

REF 

2 

LAST 

569 

25,3064 

0 3076 

0 

LRVELZ 

TC 

INITREAQ 

2248 

25,3065 

00016 

0 

OCT 

16 

2249 

REF 

3 

LAST 

569 

25,3066 

0 3076 

0 

LRVELY 

TC 

I N I TREAD 

2250 

25,3067 

00015 

0 

OCT 

15 

2251 

REF 

4 

LAST 

569 

25,3070 

0 3C76 

0 

LRVELX 

TC 

I N I TREAD 

2252 

25,3071 

00014 

1 

OCT 

14 

2253 

REF 

5 

LAST 

569 

25, 3072 

0 3C76 

0 

RRRDOT 

TC 

INITREAQ 

2254 

25,3073 

00012 

1 

OCT 

12 

2255 

REF 

6 

LAST 

569 

25,3074 

0 3C76 

0 

RRRANG E 

TC 

INITREAQ 

2256 

25,3075 

00011 

1 

OCT 

1 1 

2257 

25,3076 

0 

0004 

0 

INITREAQ  INHINT 

2258 

REF 

163 

LAST 

560 

25,3077 

50 

002 

0 

INDEX 

0 

2259 

25,3100 

3 

0000 

1 

CA 

0 

2260 

REF 

1 

25,3101 

0 

3 110 

1 

TC 

PRERADAR 

2261 

REF 

27 
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504 
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3 

4742 

1 

CA 

B IT3 

2262 

REF 

1 

25,3103 

55 
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0 

TS 

T IMEHOLD 

2263 

25,3104 

0 

C006 

1 

EXTEND 

2264 

REF 

15 

LAST 

477 

25,3  105 

3 

0025 

0 

DC  A 

T I ME  2 

2265 

REF 

2 

LAST 

569 

25,3106 

21 

• 105 

0 

DAS 

T IMEHOLD 

2266 

REF 

2 

LAST 

553 

25,3107 

1 

2357 

0 

TCF 

ROADBACK 

2267 

REF 

1 

25,3110 

55 1 0 7 7 

1 

PRERADAR  TS 

RADUSE 

2268 

REF 

1 16 

LAST 

566 

25,3111 

3 4 746 

0 

CA 

ZERO 

2269 

REF 

1 

25,3112 

55'  no 

1 

TS 

N S AMP 

2270 

REF 

3 

LAST 

505 

25,3113 
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0 

TS 

S AMPL  SUM 

227  1 

REF 

4 

LAST 

569 

25,3114 

55'  101 

1 

TS 

S AMPL  SUM 

2272 
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3 

LAST 
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25,3115 
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1 

TS 

TIMEHOLD 

2273 

REF 

1 

25,3116 

3 3136 

0 

CA 

DG6ITS 

2274 

25,3117 

0 0006 

1 

EXTEND 

2275 

REF 

12 

LAST 
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25,3120 

02  033 

0 

RAND 

C HAN  33 

2276 

REF 

1 

25,3121 

55*112 

0 

TS 

□ L DAT  AGO 
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MIDPOINT  OF  READ  IS  ABOUT  40  MS  AFTER 
START  OF  READ 


INDICATE  RADAR  READ  ROUTINES  IN  USE. 


RESET  DATA  GOOD  BITS  OF  RADMODES 
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22763 

REF 
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25,3124 
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0 

TS 

R ADMODES 

2277 
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1 

25,3125 

4 3063 

0 

CS 

ALLREAD 

2278 

25,3126 

C 0006 

1 

EXTEND 

2279 

REF 

8 

LAST 

485 

25,3127 

03  C 1 3 

0 

WAND 

CHAN  13 

2280 

25,3130 

0 0006 

1 

EXTEND 

2281 

REF 

18 

LAST 

536 

25,3131 

22  C70 

0 

GXCH 

RUPTREG 1 

2282 

REF 

2 

LAST 

569 

25,3 1 32 
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0 

CA 

R ADUSE 

2283 

REF 

22 

LAST 
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0 

TC 

I BNKCALL 

2284 

REF 

1 

25,3134 
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1 

CADR 

R ADSTART 

2285 

REF 

19 
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570 

25,3135 

0 0070 

0 

TC 

RUPTREG1 

2286 

• 25,3136 

00230 

0 

DGB I TS 

OCT 

230 

2287 

25,3137 

00014 

1 

VBITS 

OCT 

14 

2288 

25,3140 

00016 

0 

OCT 

16 

2289 

25,3141 

0C015 

0 

OCT 

1 5 

2290 

REF 

7 

LAST 
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25,3142 

4 

0107 

0 

R12READ 

CS 

FLGWRD1 1 

2291 

REF 

1 

25,3143 

7 

4733 

0 

MASK 

NOLRRBI T 

2292 

25,3144 

6 

0006 

1 

EXTEND 

229  3 

REF 

25 

LAST 
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25,3145 

l 

5263 

1 

BZF 

TASKOVER 

2293  1 

REF 

8 

LAST 

570 

25,3146 

4 

0107 

0 

R 12RDSET 

CS 

FLGWRDl 1 

22932 

REF 

2 

LAST 

23  1 

25,3147 

7 

4 742 

0 

MASK 

R12RDBIT 

22933 

REF 

9 

LAST 

570 

25,3150 

26 

107 

0 

ADS 

FLGWRD11 

2294 

REF 

2 

LAST 

213 

25,3151 

51 

'462 

0 

INDEX 

VSELECT 

2295 

REF 

1 

25,3152 

3 

3 137 

1 

CA 

VBITS 

2296 

REF 

2 

LAST 

569 

25,3153 

0 

3110 

1 

TC 

PRERADAR 

2297 

REF 

12 

LAST 

448 

25,3154 

3 

6263 

0 

CA 

SIX 

2298 

REF 

2 

LAST 

569 

25,3  155 

55 
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1 

TS 

N SAMP 

2299 

REF 

26 

LAST 

570 

25, 3156 

0 

5263 

0 

TC 

TASKOVER 
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CLEAR  ALL  RADAR  BITS  PRIOR  TO  READ 


POSITION  OF  DATA  GOOD  BITS  IN  CHANNEL  33 
VSELECT  = 0 BEFORE  X READ 
VSELECT  = 1 BEFORE  Z READ 
VSELECT  = 2 BEFORE  Y READ 


IF  NOLRREAD  FLAG  IS  SET  , BYPASS  R12 


STOP  R 12  FROM 

ATTEMPTING  UPDATE 

BEFORE  R 12  READS  ARE  DONE 


RADAR  RUPT  USES  THIS  FOR  R12  READ 
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P2300  RADAR  RLPT  READER  ( R 2 0 ) 


R2301  THIS  ROUTINE,  WHICH  IS  INITIATED  BY  A RADAR  RUPT,  PROCESSES  THE  RADAR  DATA  AND  UPDATES  THF  APPROPRIATE 
R2303  DSKY  LIGHTS. 


2304 
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LAST 

42 

25,2000 

SET  LCC 

RADARUPT 

2305 

25,3157 

BANK 

2306 

REF 

2 

LAST 
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3* 

COUNT  * 
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REF 
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LAST 
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T TOGO 

2308 

25,3157 
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1 

RADAREAD  EXTEND 

CONTINUATION 

OF  INTERRUPT  LEAD-IN. 

2309 

REF 

10 

LAST 
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25,3160 

04  007 

1 

ROR 

SUPERBNK 

SUPER  BNK 

MUST 

BE  SAVED  BECAUSE  RUPT 

2310 

REF 

3 

LAST 

269 

25,3161 

54  016 

1 

TS 

BANKRUPT 

MAY  EXIT 

VIA 

TASKOVFP . 

231  1 

25,3162 

0 0006 

1 

EXTEND 

2312 

REF 

3 

LAST 

269 

25,3163 

22  012 

1 

QXCH 

QRUPT 

2313 

REF 

9 

LAST 

519 

25,3164 

3 

4750 

1 

CA 

SEVEN 

READ  AND  STORE  RADAR  SELECT  BITS 

2314 

25,3165 

0 

0006 

1 

EXTEND 

2315 

REF 

9 

LAST 

570 

25,3166 

02 

013 

1 

RAND 

C HAN  13 

2316 

REF 

1 

25,3167 

55 

' 332 

0 

TS 

RADBITS 

231  7 

25,3170 

0 

0006 

1 

EXTEND 

IF  RADAR  SELECT  BITS  ARE  ZERO,  ALARM 

231  8 

REF 

1 

25,3171 

1 

3 177 

1 

BZF 

BADRUPT 

WITHOUT  READING  DATA 

2319 

REF 

1 

25,3172 

3 

0046 

0 

CA 

RNRAD 

STORE  RAW  DATA  FOR  DOWNLINK. 

2320 

REF 

2 

LAST 

571 

25,3173 

51 

• 332 

1 

INDEX 

RADBITS 

2321 

REF 

6 

LAST 

328 

25,3174 

55 

• 327 

1 

TS 

DNRRANGE  -1 

2322 

REF 

3 

LAST 

570 

25,3175 

11 

•077 

l 

CCS 

RADUSE 

IF  RADUSE  IS  ZERO,  THIS  IS  A BAD  RUPT 

2323 

REF 

1 

25,3176 

1 

3203 

1 

TCF 

WHICHRAD 

2324 

REF 

4 

LAST 

57  1 

25,3177 

55 

• 077 

1 

BADRUPT 

TS 

RADUSE 

232  5 

REF 

22 

LAST 

559 

25,3200 

0 

5571 

1 

TC 

ALARM 

2326 

25,3201 

00520 

0 

OCT 

520 

232  7 

REF 

14 

LAST 

274 

25,3202 

0 

5272 

0 

TC 

RESUME 

2328 

REF 

18 

LAST 

525 

25,3203 

4 

6266 

1 

WHICHRAD 

CS 

THREE 

IF  RADBITS  IS  LESS  THAN  THREE, 

2329 

REF 

3 

LAST 

57  1 

25,3204 

6 

1332 

1 

AD 

RADBITS 

THE  RENDEZVOUS  RADAR  IS  BEING  READ. 

2330 

25,3205 

0 

0006 

1 

EXTEND 

233  1 

REF 

1 

25,3206 

6 

3273 

1 

BZMF 

RENDRAD 

2332 

REF 

18 

LAST 

505 

25,3207 

4 

C101 

0 

L ANDRAD 

CS 

FLAGWRD5 

THE  LANDING  RADAR  IS  BEING  READ 

2 33  3 

REF 

4 

LAST 

505 

25,3210 

7 

4732 

1 

MASK 

R77FL8I T 

2334 

25,3211 

0 

0006 

1 

EXTEND 

IF  R77  IS  RUNNING,  EXIT  HERE 

2335 

REF 

1 

25,3212 

1 

3253 

1 

BZF 

R77EXIT 

233  6 

REF 

10 

LAST 

57  1 

25,3213 

4 

4750 

0 

CS 

SEVEN 

IF  RADBITS  IS  SEVEN,  THE  LANDING 
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220- 

P25 

2337 

REF 

4 

LAST 
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25,3214 

2338 

25,3215 

2339 

REF 

1 

25,3216 

2340 

REF 

12 

LAST 

541 

25,3217 

2341 

REF 

2 

LAST 

57  1 

25,3220 

2342 

REF 

1 

25,3221 

2343 

REF 

5 

LAST 

27  1 

25,3222 

2344 

REF 

77 

LAST 

560 

25,3223 

2345 

REF 

3 

LAST 

572 

25,3224 

2346 

25,3225 

2347 

REF 

29 

LAST 
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25,3226 

2348 

REF 

9 

LAST 

271 

25,3227 

234  9 

REF 

5 

LAST 

569 

25,3230 

2350 

REF 

26 

LAST 

540 

25, 3231 

2351 

REF 

19 

LAST 

560 

25,3232 

2352 

REF 

3 

LAST 

569 

25,3233 

2353 

25,3234 

2354 

REF 

13 

LAST 

569 

25,3235 

2355 

REF 

2 

LAST 

569 

25,3236 

2356 

REF 

20 

LAST 

572 

25,3237 

235  7 

REF 

78 

LAST 

572 

25 ,3240 

2358 

RFF 

21 

LAST 

572 

25,3241 

2359 

REF 

3 

LAST 

572 

25,3242 

2360 

REF 

79 

LAST 

572 

25,3243 

2361 

REF 

191 

LAST 

568 

25,3244 

2362 

REF 

1 

25,3245 

2363 

REF 

3 

LAST 

570 

25,3246 

2364 

REF 

1 

25,3247 

2365 

REF 

10 

LAST 

572 

25,3250 

2366 

REF 

6 

LAST 

572 

25,3251 

2367 

REF 

1 

25,3252 

2368 

REF 

117 

LAST 

569 

25,3253 

2369 

REF 

5 

LAST 

571 

25,3254 

2370 

REF 

2 

LAST 

548 

25,3255 

2371 

REF 

82 

LAST 

570 

25, 3256 

2371  5 

REF 

22 

LAST 

572 

25,3257 

2372 

REF 

S3 

LAST 

572 

25,3260 

2373 

REF 

4 

LAST 

572 

25,3261 

2374 

REF 

2 

LAST 

572 

25,3262 

2375 

REF 

2 

LAST 

572 

25,3263 

2376 

REF 

1 18 

LAST 

572 

25,3264 

6 1332 

1 

AD 

R ADB ITS 

0 0006 

1 

EXTEND 

1 3267 

0 

BZF 

LRHE IGHT 

3 4 724 

1 

LRSPEED 

CA 

POSMAX 

7 0046 

1 

MASK 

RNRAD 

6 2000 

0 

AD 

LVELBIAS 

54  064 

1 

TS 

I TEMP4 

54  001 

1 

TS 

L 

3 CC46 

0 

CA 

RNRAD 

6 0000 

1 

DOUBLE 

7 4744 

0 

MASK 

B IT  1 

54  063 

0 

TS 

I TEMP3 

2 1 ' 101 

1 

DAS 

S AMPLSUM 

3 4735 

1 

CA 

BIT8 

54  061 

1 

DGCHECK 

TS 

I TEMPI 

3 3136 

0 

DGCHFCK2 

CA 

DGBITS 

0 0006 

1 

EXTEND 

02  C33 

0 

RAND 

CHAN33 

57' 112 

1 

XCH 

OLDATAGD 

7 C 06 1 

1 

MASK 

I TEMPI 

54  001 

1 

TS 

L 

3 0061 

0 

CA 

I TEMPI 

7 1112 

0 

MASK 

OLDATAGD 

6 0001 

0 

AD 

L 

10  COO 

0 

CCS 

A 

1 3256 

1 

TCF 

BADRAD 

11 ' 110 

1 

GOODRAD 

CCS 

NSAMP 

1 3403 

1 

TCF 

R12EXIT 

52  064 

1 

OXCH 

ITEMP3 

53 ' 101 

1 

'WPtSU  M 

0 3651 

0 

TC 

P.  ADL  I TE  S 

3 4746 

0 

R77EXIT 

CA 

ZERO 

55 ' 077 

1 

TS 

RADUSE 

0 3614 

1 

TC 

RGOODEND 

4 0110 

0 

BADRAD 

CS 

RADMODES 

7 0061 

1 

MASK 

I TEMPI 

26  110 

0 

ADS 

RADMODES 

11 ' 110 

1 

CCS 

NSAMP 

1 3403 

1 

TCF 

R 12EXIT 

0 3651 

0 

ir 

R ADL I TE  S 

3 4 746 

0 

RRBADEND 
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RADAR  ALTTUDE  IS  BEING  READ 

DECODE  THE  15  BIT  READING  AND 
SUBTRACT  THE  BIAS. 


ACCUMULATE  THE  READING 
VOLOCITY  DATA  GOOD  BIT 

UPDATE  THE  STATUS  OF  THF  DATA  GOOD  BITS 


OLD  STATUS 

CURRENT  STATUS 

BOTH  SHOULD  BE  ZERO 
DATA  GOOD  NOT  PRESENT 

TEST  FOR  P.12 

STORE  DATA  FOR  CALLING  ROUTINF 
UPDATE  DSKY  LIGHTS. 

ZERO  RADUSE 

UPOATE  RADMODES  BIT  ONLY  IF  DATA  BAD 

TEST  FOR  R 12 

UPDATE  DSKY  LIGHTS 
ZERO  RADUSE 
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2377 

REF 

6 LAST 

572 

25,3265 

55 '077  1 

TS 

RADUSE 

2378 

REF 

2 LAST 

562 

25,3266 

0 3621  1 

TC 

R DBADEND 

2379 

REF 

26 

LAST 

503 

25,3267 

3 4740 

0 

LRHE I GHT 

CA 

B IT5 

2380 

REF 

23 

LAST 

572 

25,3270 

54  061 

l 

TS 

I TEMPI 

2381 

REF 

17 

LAST 

343 

25,3271 

3 4734 

0 

CA 

B I T9 

2382 

REF 

1 

25,3272 

0 3316 

0 

TC 

SCALECHK 

2383 

25,3273 

0 0006 

1 

RENDRAD 

EXTEND 

238  A 

REF 

16 

LAST 

57  1 

25,3274 

3 1454 

0 

DC  A 

TTOGD 

2385 

REF 

2 

LAST 

328 

25,3275 

5 3 ' 272 

0 

DXCH 

T TOT  I G 

2386 

REF 

8 

LAST 

568 

25,3276 

3 4732 

0 

CA 

REP0S8I T 

2387 

REF 

8A 

LAST 

572 

25,3277 

7 0110 

0 

MASK 

RADMODES 

2308 

REF 

192 

LAST 

572 

25,3300 

10  000 

0 

CCS 

A 

2389 

REF 

1 

25,3301 

1 3264 

0 

TC  F 

RRBAUEND 

2390 

REF 

65 

LAST 

573 

25,3302 

4 0110 

0 

CS 

RADMODES 

2391 

REF 

5 

LAST 

485 

25,3303 

7 4736 

0 

MASK 

RCDUFBIT 

2392 

REF 

193 

LAST 

573 

25,3304 

10  COO 

0 

CCS 

A 

2393 

REF 

2 

LAST 

573 

25, 3305 

1 3 2 64 

0 

TCF 

•RRBADENO 

239  A 

REF 

27 

LAST 

567 

25,3306 

3 4741 

1 

CA 

8IT4 

2395 

REF 

2A 

LAST 

573 

25,3307 

54  061 

1 

TS 

I TEMP  L 

239  6 

REF 

30 

LAST 

572 

25,3310 

3 4744 

1 

CA 

BIT1 

239  7 

REF 

5 

LAST 

572 

25,331  1 

7 1332 

0 

MASK 

RADBITS 

2398 

REF 

16  A 

LAST 

569 

25,3312 

54  002 

1 

TS 

Q 

2399 

25,3313 

0 0006 

1 

EXTEND 

2A00 

REF 

1 

25,3314 

1 3325 

1 

BZF 

RADIN 

2A0  1 

REF 

28 

LAST 

569 

25,3315 

3 4742 

1 

CA 

BIT3 

2A0  2 

REF 

80 

LAST 

572 

25,3316 

54  001 

1 

SCALECHK 

TS 

L 

2A0  3 

REF 

86 

LAST 

573 

25,3317 

3 CLIO 

1 

CA 

RADMODES 

2 AO  A 

25,3320 

0 0006 

1 

EXTEND 

2 AO  5 

REF 

1A 

LAST 

572 

25,3321 

06  033 

1 

RXOR 

CHAN33 

2A06 

REF 

81 

LAST 

573 

25,3322 

7 0001 

1 

MASK 

L 

2A07 

REF 

ISA 

LAST 

573 

25,3323 

10  000 

0 

CCS 

A 

2A0  8 

REF 

1 

25,3324 

0 3364 

0 

TC 

SCALCHNG 

2 AO  9 

REF 

13 

LAST 

572 

25,3325 

3 4 7 24 

1 

RADIN 

CA 

POSMAX 

2A10 

REF 

A 

LAST 

572 

25,3326 

7 0046 

1 

MASK 

R NR  AD 

2A1  1 

REF 

6 

LAST 

572 

25,3327 

54  C 64 

1 

TS 

I TEMP4 

2A12 

REF 

5 

LAST 
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25,3330 

3 0046 

0 

CA 

RNRAD 

2A13 

25,3331 
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1 
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REF 
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LAST 

573 
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0 
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REF 
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LAST 
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25,3333 
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0 

TS 

I TEMP3 

17:11  MAR.  19,1971 


LEMP20S  .168  PAGE  573 


USER'S  PAGE  NO.  67 


E 7 S3 
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DATA  GOOD  BIT  FOR  ALTITUDE 
LO  SCALF  BIT  FOR  LR 


LOAD  TIME  TO  TIG 

FOR  R65  RADAR  READING. 

MAKE  SURE  ANTENNA  HAS  NOT 
GONE  OUT  OF  LIMITS. 


BE  SURE  RR  CDU  HASN'T  FAILED. 


DATA  GOOD  BIT  FOR  RR 


TEST  FOR  RANGE  OR  RANGE  RATE 

SAVE  FOP  LATER  TESTING 

IF  ROOT,  READ  DATA 

LO  SCALE  BIT  FOR  RR. 

TEST  THE  SCALF  BIT  SPECIFIED  IN  L 
TO  SEE  IF  IT  IS  THE  SMAE  AS  LAST 
TIME. 

IF  BIT  IS  THE  SMAE  IN  RADMODES  AND 
CHAN  3 3 , THEN  A WILL  BE  ZERO 
SCALE  CHANGED 


UNPACK  15  BIT  RADAR  READING 
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Q 

TEST  FOR  RR  RANGE  RATE  (Q  = 0) 

2417 

REF 

1 

25,3335 

1 3342 

0 

TCF 

SCALADJ 

RANGE  OR  LR  HEIGHT  . TEST  SCALE 

2413 

25,3336 

0 0006 

1 

EXTEND 

RR  RANGE  RATE  - SUBTRACT  BIAS 

2419 

REF 

1 

25,3337 

4 2002 

0 

DCS 

RDOTB IAS 

242  0 

REF 

12 

LAST 

573 

25,3340 

20  064 

1 

DASAMPL 

DAS 

I TEMP3 

242  1 

REF 

1 

25,3341 

1 3233 

1 

TCF 

DGCHECK2 

TEST  DATA  GOOD 

242  2 

REF 

87 

LAST 

573 

25,3342 

3 0110 

1 

SC AL AD J 

CA 

RADMODES 

TEST  SCALE  BIT 

2423 

REF 

82 

LAST 

573 

25,3343 

7 0001 

1 

MASK 

L 

2424 

25,3344 

0 0006 

1 

EXTEND 

242  5 

REF 

2 

LAST 

574 

25,3345 

1 3233 

1 

BZF 

DGCHECK2 

LO  SCALE 

242  6 

REF 

29 

LAST 

573 

25,3346 

7 4742 

0 

MASK 

8IT3 

HI  SCALE  - TEST  FOR  LR 

242  7 

25,3347 

0 0006 

1 

EXTEND 

IF  B I T 3 = 0 , THEN  IT  IS  LR 

242  8 

REF 

1 

25,3350 

1 3357 

1 

BZF 

LRSCK 

2429 

REF 

13 

LAST 

574 

2 5 , 3 ’35  l 

52  064 

1 

DXCH 

I TEMP3 

RFSCALE  RR  DATA  TO  LO  SCALING 

2430 

25,3352 

20  001 

1 

DD0U8L 

MULTIPLY  BY  8. 

243  1 

25,3353 

20  001 

1 

DDOUBL 

2432 

25,3354 

20  001 

1 

DDOUBL 

2433 

REF 

14 

LAST 

574 

25,3355 

52  064 

1 

DXCH 

ITEMP3 

243  4 

REF 

3 

LAST 

574 

25,3356 

1 3233 

1 

TCF 

DGCHECK2 

2435 

25,3357 

0 0006 

1 

LRSCK 

EXTEND 

RESCALE  LR  DATA  TO  LO  SCALING 

2436 

REF 

15 

LAST 

574 

25,3360 

3 0064 

0 

DC  A 

ITEMP3 

MULTIPLY  BY  5. 

2437 

25,3361 

20  001 

1 

DDOUBL 

243  8 

25,3362 

20  001 

1 

DDOUBL 

2439 

REF 

1 

25,3363 

1 3340 

1 

TCF 

DASAMPL 

2440 

REF 

88 

LAST 

574 

25,3364 

3 0110 

1 

SCALCHNG  CA 

RADMODES 

244  1 

25,3365 

0 0006 

1 

EXTEND 

INVERT 

SCALF 

BIT 

r N RADMODES 

2442 

KEF 

10 

LAST 

548 

25,3366 

06  C01 

0 

RXOR 

LCHAN 

2443 

REF 

89 

LAST 

574 

25, 3367 

54  110 

0 

TS 

RADMODES 

2444 

REF 

5 

LAST 

572 

25,3370 

11 • 110 

1 

CCS 

NS  AMP 

TEST  FOR  R 1 2 

2445 

REF 

1 

25,3371 

1 3401 

0 

< TCF 

R12SCHNG 

2446 

REF 

35 

LAST 

535 

25, 3372 

0 5506 

1 

TC 

J 

UPFLAG 

SET  RNGSCFLG 

FOR 

LRS24. 1 

244  7 

REF 

1 

25,3373 

00120 

1 

ADRES 

RNGSCFLG 

2448 

REF 

4 

LAST 

572 

25,3374 

3 3136 

0 

CA 

DGBITS 

UPDATE 

DATA  i 

GOOD 

BITS 

2449 

25,3375 

0 0006 

1 

EXTEND 

2450 

REF 

15 

LAST 

573 

25,3376 

02  C33 

0 

RAND 

CHAN33 

2451 

REF 

4 

LAST 

572 

25,3377 

55*112 

0 

TS 

OLDATAGD 

2452 

REF 

3 

LAST 

573 

25, 3400 

1 3 2 64 

0 

TCF 

RRBADEND 

2453 

REF 

6 

LAST 

574 

25,3401 

55*110 

1 

R12SCHNG  TS 

N SAMP 

UPDATE 

NSAMP 

AND 

IGNORE  READ 

574 
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2454 

REF 

1 

25,3402 

1 

3414 

1 

TCF 

READVEL 

2455 

REF 

7 

LAST 

574 

25,3403 

55 

' 110 

1 

R12EX  IT 

TS 

N SAMP 

245  6 

25,3404 

0 

0006 

1 

EXTEND 

2457 

REF 

1 

25,3405 

1 

3445 

0 

BZF 

STORVEL 

2450 

REF 

1 

25,3406 

6 

7766 

1 

AD 

NEG3 

2459 

25,3407 

0 

0006 

1 

EXTEND 

2460 

REF 

1 

25,3410 

1 

3425 

0 

BZF 

STORALT 

2461 

REF 

2 

LAST 

230 

25,341 1 

6 

7770 

0 

AD 

NEGONE 

2462 

25,3412 

0 

0006 

1 

EXTEND 

2463 

REF 

1 

25,3413 

1 

3423 

0 

BZF 

READALT 

2464 

REF 

11 

LAST 

571 

25,3414 

4 

4750 

0 

READVEL 

CS 

SEVEN 

2465 

25,3415 

0 

0006 

1 

EXTEND 

2466 

REF 

10 

LAST 

571 

25,3416 

03 

013 

0 

WAND 

CHAN  1 3 

2467 

REF 

7 

LAST 

573 

25,3417 

3 

1077 

0 

2468 

REF 

23 

LAST 

570 

25,3420 

0 

7665 

Of 

READALT2 

TC 

I BNKCALL  3 

2469 

REF 

2 

LAST 

570 

25,3421 

36000 

IN 

r.AnR 

R A D S T A R T 

2470 

REF 

15 

LAST 

571 

25,3422 

0 

5272 

0 

TC 

RESufif 

2471 

REF 

2 

LAST 

570 

25, 3423 

3 

3063 

1 

READALT  CA 

ALLREAD 

2472 

REF 

1 

25,3424 

1 

3420 

0 

TCF 

READ ALT2 

2473 

REF 

16 

LAST 

574 

25,3425 

52 

064 

1 

STORALT  DXCH 

I TEMP3 

2474 

REF 

3 

LAST 

250 

25, 3426 

53 

' 655 

1 

DXCH 

HMEAS 

2475 

REF 

90 

LAST 

574 

25,3427 

4 

0110 

0 

CS 

RADMODES 

2476 

REF 

27 

LAST 

573 

25,3430 

7 

4740 

1 

MASK 

BIT5 

2477 

25,3431 

0 

0006 

1 

EXTEND 

247  8 

REF 

1 

25, 3432 

1 

3442 

1 

BZF 

HBAD 

2479 

REF 

5 

LAST 

230 

25,3433 

1 1 

• 6 74 

1 

CCS 

STILBADH 

2480 

REF 

1 

25,3434 

1 

3443 

0 

TCF 

HSTILBAD 

2481 

REF 

10 

LAST 

570 

25,3435 

4 

C 10  7 

0 

CS 

FLGWRD1 1 

2482 

RFF 

1 

25,3436 

7 

4741 

0 

MASK 

RNGEDBIT 

2483 

REF 

11 

LAST 

575 

25,3437 

26 

107 

0 

, El GWRD1 1 

2484 

REF 

3 

LAST 

572 

25,3440 

0 

3651 

0 

ALT  EX  I K TC  " R ADL  I TE  sS 

2485 

REF 

2 

LAST 

575 

25,3441 

1 

3414 

1 

TtF 

READVEL 

2486 

REF 

38 

LAST 

557 

25, 3442 

3 

4743 

0 

HBAD  CA 

TWO 

2487 

REF 

6 

LAST 

575 

25,3443 

55 

'674 

1 

HSTIL8AD  TS 

ST  ILBADH 

2488 

REF 

1 

25,3444 

i 

3440 

0 

TCF 

ALTEX IT 

2489 

REF 

91 

LAST 

575 

25,3445 

4 

C110 

0 

STORVEL  CS 

RADMODES 

2490 

REF 

27 

LAST 

572 

25,3446 

7 

4735 

0 

MASK 

B IT8 

249  1 

25,3447 

0 

C006 

1 

EXTFND 

2492 

REF 

l 

25,3450 

1 

3506 

0 

BZF 

V BAD 
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UPDATE  NS AMP 


SET  UP  LR  ALTITUDE  READ 

STORE  ALT  IN  HMEAS 
TEST  DAT'A  GOOD 

DATA  GOOD  NOT  PRESENT 

IF  DATA  JUST  GOOD, OR  IG  RESTART  JUST 
OCCURRED, WAIT 

SET  FLAG  F0RR12 . 

(CANNOT  USE  UPFLAG  BECAUSE  ITEMP1  IS 
DESTROYED) 

SET  STILBADH  FOR  FOUR  SECOND  DELAY 
TEST  DATA  GOOD 


DATA  GOOD  NOT  PRESENT 
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2493 

REF 

4 

LAST 

231 

25,3451 

1 l ' 675 

0 

CCS 

S T I LB  AD V 

2494 

REF 

1 

25,3452 

1 3507 

1 

TCF 

V ST  I L BAD 

2495 

REF 

12 

LAST 

575 

25,3453 

4 0107 

0 

CS 

FLGWRDll 

2496 

REF 

1 

25,3454 

7 4736 

0 

MASK 

VELDABIT 

2497 

REF 

13 

LAST 

576 

25,3455 

26  107 

0 

ADS 

FLGWRDll 

2498 

REF 

3 

LAST 

570 

25,3456 

1 l '462 

1 

R 12DL 

CCS 

VSELECT 

2499 

25,3457 

1 3461 

0 

TCF 

+ 2 

2 50  0 

REF 

39 

LAST 

575 

25,3460 

3 4743 

0 

CA 

TWO 

250  1 

REF 

4 

LAST 

576 

25,,  346 1 

55 ' 4 62 

1 

TS 

VSELECT 

2502 

REF 

7 

LAST 

572 

25,3462 

53 ' 101 

1 

DXCH 

S AMPL  SUM 

2503 

REF 

3 

LAST 

213 

25,3463 

53' 653 

1 

DXCH 

VMEAS 

2504 

25,3464 

0 0006 

1 

EXTEND 

2505 

REF 

4 

LAST 

575 

25,3465 

3 1655 

0 

DC  A 

HMEAS 

2506 

REF 

2 

LAST 

213 

25,3466 

53*777 

0 

DXCH 

H ME A SDL 

2507 

25, 3467 

0 C006 

1 

EXTEND 

2508 

REF 

3 

LAST 

206 

25,3470 

3 1561 

1 

DC  A 

P IPT  IME1 

2509 

REF 

5 

LAST 

215 

25,3471 

53' 755 

0 

DXCH 

MKTIME 

2510 

25,3472 

0 0006 

1 

EXTEND 

251  1 

REF 

1 

25,3473 

3 1156 

1 

DC  A 

CDUTEMPY 

2512 

REF 

5 

LAST 

214 

25,3474 

53*460 

0 

DXCH 

A IG 

2513 

REF 

1 

25,3475 

3 1154 

0 

CA 

CDUTEMPX 

2514 

REF 

6 

LAST 

214 

25,3476 

55*461 

1 

TS 

A OG 

2515 

REF 

4 

LAST 

575 

25,3477 

0 3651 

0 

' ADL I T E S ' 

2516 

REF 

1 19 

LAST 

572 

25,3500 

3 4746 

0 

CA 

ZERO 

2517 

REF 

8 

LAST 

575 

25,3501 

55' 077 

1 

TS 

RADUSE 

A2517  1 

25173 

REF 

3 

LAST 

570 

25,3502 

4 4742 

0 

DKUPDATE  CS 

R 12RDBIT 

25175 

REF 

14 

LAST 

576 

25,3503 

7 0107 

0 

MASK 

FLGWRD1 1 

25177 

REF 

15 

LAST 

576 

25,3504 

54  107 

0 

TS 

FLGWRD1 l 

2518 

REF 

16 

LAST 

575 

25,3505 

0 5272 

0 

TC 

RESUME 

251  9 

REF 

40 

LAST 

576 

25,3506 

3 4 743 

0 

V BAD 

CA 

TWO 

2520 

REF 

5 

LAST 

576 

25,3507 

55*675 

0 

V ST  I L B AD  TS 

STILBADV 

252  1 

REF 

L 

25,3510 

1 3456 

l 

TCF 

R 12DL 
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OATA  IS  GOOD,  SET  FLAG  FOR  R12 
(CANNOT  USE  UPFLAG  BECAUSE  ITEMPl  IS 
DESTROYED) 

UPDATE  VSELECT 


STORE  VFL  DATA  IN  VMEAS 

STORE  HMEAS  FOR  DOWNLINK 

STORE  TIME  FOR  DOWNLINK 

STORF  CDUY , CDUZ  FOR  DOWNLINK 
STORE  COUX  FOR  LINK 
UPDATF  DSKY  VFL  LIGHT 


R 1 2 READ  IS  DONE  SO  ALLOW  R12  UPDATE 
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P2 52 A CODING  TO  PROTECT  CHANNEL  13  WILL  RADAR  READ  IS  IN  CRITICAL  PERIOD 


2526 

REF 

1 

17,2000 

SETLOC 

C 13BANK 

2527 

17,2000 

BANK 

2528 

REF 

166 

LAST 

57A 

17,2000 

5 A 002 

1 

RADSTART 

TS 

Q 

2529 

17,2001 

0 0006 

1 

+ 1 

EXTEND 

2530 

REF 

A 

LAST 

393 

17,2002 

00  OOA 

0 

READ 

LOSCALAR 

READ  PRESENT  TIME 

2 53  1 

REF 

83 

LAST 

57A 

17,2003 

5 A 001 

1 

TS 

L 

2532 

REF 

8 

LAST 

A59 

17, 200A 

7 A33 7 

0 

MASK 

L0W5 

ONLY  THF  LOW  5 RITS  MATTFR 

2533 

17,2005 

A 0000 

0 

COM 

2 53  A 

REF 

36 

LAST 

506 

17, 2006 

6 A 737 

0 

AD 

B IT6 

COMPUTE  DELTA  TIME  TO  NEXT  T5  TICK 

2535 

REF 

9 

LAST 

57  7 

17,2007 

7 A 33 7 

0 

MASK 

L0W5 

2536 

REF 

1 

17,2010 

55*270 

1 

TS 

RADDEL 

2 53  7 

REF 

A 

LAST 

513 

17,2011 

6 7767 

0 

AD 

NEG2 

IF  A TICKING  OF  T5  IS  NEAR,  WAIT  UNTIL 

2538 

1 7, 2012 

0 C 006 

1 

EXTEND 

IT  HAS  TICKED.  THE  MAX  DELAY  HERE 

WILL 

2 53  9 

REF 

3 

LAST 

575  ' 

17,2013 

6 2001 

1 

BZMF 

RADSTART  +1 

BE  937.5  MICROSECONDS 

25A0 

REF 

167 

LAST 

577 

17.201A 

3 0002 

0 

CA 

0 

2 5A1 

17, 2015 

0 C006 

1 

EXTEND 

IT  IS  SAFE  TO  SET  THE  ACTIVITY  BIT 

NOW 

2 5A2 

REF 

11 

LAST 

575 

17, 2016 

0 5 013 

0 

WOR 

C HAN  1 3 

BECAUSE  OF  THE  ABOVE  LOOP 

2 5A3 

REF 

8A 

LAST 

577 

17,2017 

A 0001 

1 

CS 

L 

2 5A  A 

REF 

1 

17,2020 

55  * 267 

1 

TS 

RADTIME 

SAVE  NEGATIVF  TIME  OF  READ 

25A5 

REF 

1 

' 17,2021 

0 A700 

1 

TC 

I SWRETRN 

2546 

REF 

1 

17, 2022 

55' 266 

0 

C13STAL  1 

TS 

C13FSAV 

2 54  7 

REF 

28 

LAST 

573 

17, 2023 

3 4741 

l 

CA 

B I T 4 

2548 

17,2024 

0 0006 

1 

EXTEND 

2 54  9 

REF 

12 

LAST 

577 

17,2025 

02  013 

1 

RAND 

CHAN13 

2550 

17,2026 

0 0006 

1 

EXTEND 

255  1 

REF 

1 

17,2027 

1 2050 

1 

BZF 

TCQSTAL 

IF  NO  RADAR  ACTIVITY,  RETURN 

2552 

17,2030 

12  031 

0 

C13SL00P 

NODP 

***  NECESSARY  TO  PREVFNT  A TC  TRAP  *** 

2553 

17,2031 

0 0006 

1 

EXTEND 

2554 

REF 

5 

LAST 

577 

17, 2032 

00  004 

0 

READ 

LOSCALAR 

2555 

REF 

2 

LAST 

577 

17,2033 

6 1267 

0 

AD 

RADTIME 

COMPUTE  DELTA  T SINCF  LAST  RADAR  READ 

2556 

REF 

7 

LAST 

548 

17,2034 

6 4727 

1 

AD 

HALF 

2557 

REF 

8 

LAST 

577 

17,2035 

6 4727 

1 

AD 

HALF 

CORRECT  FOR  TIME  OVERFLOW 

2558 

REF 

65 

LAST 

577 

17,2036 

56  001 

0 

XCH 

L 

2559 

REF 

1 

17, 2037 

3 2053 

0 

CA 

90MSCALR 

2560 

REF 

2 

LAST 

577 

1 7, 2040 

6 1270 

0 

AD 

RADDEL 

2561 

17,2041 

0 0C06 

1 

EXTEND 

2562 

REF 

86 

LAST 

577 

1 7,  2042 

60  C01 

0 

SU 

L 
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2563 

17,2043 

0 0006 

1 

EXTEND 

2564 

REF 

2 

LAST 

577 

17,2044 

6 2050 

0 

BZMF 

T COST  AL 

2565 

REF 

1 

17,2045 

6 2054 

1 

AD 

-DTSCALR 

2566 

17,2046 

0 C006 

1 

EXTEND 

256  7 

REF 

1 

17,2047 

6 2030 

0 

BZMF 

C 13S  LOOP 

2568 

REF 

168 

LAST 

577 

17,2050 

22  002 

0 

T COST  AL 

LXCH 

Q 

2569 

REF 

2 

LAST 

577 

17,2051 

3 1266 

1 

CA 

C13FSAV 

2570 

1 7 , 2052 

52  005 

0 

DTCF 

2571 

17,2053 

CC440 

1 

90MSCALR 

OCT 

440 

2572 

17,'  20  54 

77754 

1 

-DTSCALR 

OCT 

77754 

2573 

REF 

2 

LAST 

531 

6000 

SETLOC 

FFTAG6 

2574 

6040 

BANK 

2575 

REF 

1 

6040 

3 7745 

0 

C13STALL 

CAF 

PRIO'36 

2576 

REF 

3 

LAST 

479 

6041 

56  004 

0 

XCH 

FRANK 

2577 

REF 

1 

6042 

1 2022 

1 

TCF 

C13STAL1 
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USER'S  PAGE  NO.  72 
FORBIDDFN  ZONE  IS  PAST, 

IN  THE  FORBIDDEN  PFRIDD, 
ALL  IS  WELL,  RETURN 


90  MILLISFC  IN  SCALAR 
-5.9375  MS  IN  SCALAR 


E7  S3 
RETURN 

LOOP  UNTIL  O.K. 


PR  1036 


36000 


FC ADR  (17,7000) 
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GAP: 


L P20-P25 


P 2578 

THIS 

ROUTINE 

CHANGES 

THE  LR  1 

POSITION, 

, AND  CHECKS 

THAT  IT  GOT  THERF 

2579 

25,3511 

BANK 

25 

2580 

REF 

2 

LAST 

542 

25,2000 

SETLOC 

P20S1 

2581 

25,3511 

BANK 

2532 

REF 

2 

LAST 

542  TO 

571  : 

580  530* 

COUNT  * 

$ $/RSUB 

2533 

25,3511 

0 0004 

0 

LRP0S2 

INHINT 

2584 

REF 

92 

LAST 

575 

25,3512 

4 0110 

0 

CS 

RADMODES 

2585 

REF 

1 

25,3513 

7 4737 

1 

MASK 

LRP0S3IT 

2586 

REF 

93 

LAST 

579 

25,3514 

26  110 

0 

ADS 

RADMODES 

2587 

REF 

24 

LAST 

490 

25,3515 

3 4736 

1 

CAF 

B IT7 

2588 

25,3516 

0 0006 

1 

EXTEND 

2589 

REF 

16 

LAST 

574 

25,3517 

02  033 

0 

RAND 

CHAN33 

2590 

25,3520 

C CC06 

1 

EXTEND 

2591 

REF 

■2 

LAST 

553 

25,3521 

1 3532 

1 

BZF 

RADNOOP 

2592 

REF 

22 

LAST 

4.3  8 

25,3522 

3 4730 

1 

CAF 

BIT13 

2593 

25,3523 

0 0006 

1 

EXTEND 

2594 

REF 

36 

LAST 

567 

25,3524 

05  012 

1 

WOR 

CHAN 1 2 

2595 

REF 

1 

25,3525 

3 3565 

1 

CAF 

6SECS 

2 59  6 

REF 

21 

LAST 

557 

25,3526 

0 5205 

0 

TC 

WAITLIST 

2597 

REF 

28 

LAST 

568  . 

E7, 1456 

EBANK= 

LOSCOUNT 

2598 

REF 

1 

25,3527 

03563 

1 

2C  ADR 

LRPOSCAN 

2598 

REF 

1 

25,3530 

52067 

1 

2599 

REF 

3 

LAST 

569 

25,3531 

0 2357 

1 

TC 

ROADBACK 

2600 

REF 

70 

LAST 

566 

25 ,3532 

3 4 744 

1 

RADNOOP 

CAF 

ONE 

2601 

REF 

22 

LAST 

579 

25,3533 

0 5205 

0 

TC 

WAITLIST 

2602 

REF 

29 

LAST 

579 

E7 , 1456 

EBANK= 

LOSCOUNT 

2603 

REF 

3 

LAST 

572 

25,3534 

03616 

0 

2CADR 

RGOODEND 

2603 

25,3535 

52067 

1 

2604 

REF 

4 

LAST 

579 

25,3536 

0 2357 

1 

TC 

ROADBACK 

2608 

REF 

2 

LAST 

106 

25, 3537 

55 ' 077 

1 

LRPOSNXT 

TS 

SAMPLIM 

2609 

REF 

9 

LAST 

562 

25,3540 

0 5223 

1 

TC 

F IXDELAY 

2610 

25,3541 

00144 

0 

DEC 

100 

261  l 

REF 

25 

LAST 

579 

25, 3542 

3 4736 

1 

CAF 

B I T 7 

2612 

25,3543 

0 0006 

1 

EXTEND 

2613 

REF 

17 

LAST 

579 

25,3544 

02  033 

0 

RAND 

CHAN33 

2614 

25,3545 

0 0006 

1 

EXTEND 

2615 

REF 

1 

25,3546 

1 3555 

0 

BZF 

L ASTLRDT 

2616 

REF 

3 

LAST 

579 

25,3547 

1 1 ' 0 7 7 

1 

CCS 

SAMPLIM 

261  7 

REF 

1 

25,3550 

1 3537 

1 

TC  F 

LRPOSNXT 

2618 

REF 

23 

LAST 

579 

25,3551 

4 4 730 

0 

CS 

BIT13 

2619 

25,3552 

0 0006 

1 

EXTEND 
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SHOW  DESIRED  LR  POSITION  IS  2 


SEE  IF  ALREADY  THERE. 


COMMAND  TO  POSITION  2 

START  SCANNING  FOR  INBIT  AFTER  7 SECS. 


NO  FURTHER  ACTION  REQUESTED 


SCAN  ONCE  PER  SECOND  5 TIMES  MAX  AFTER 
INITIAL  DELAY  OF  7 SECONDS. 

SEE  IF  LR  POS 2 IS  ON 

IF  THERF,  WAIT  FINAL  SECOND  FOR  POUNCE. 
SEE  IF  MAX  TIME  UP. 

IF  TIME  UP,  DISABLE  COMMAND  AND  ALARM. 


GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  202L1 12-161 


P 20- 

P 25 

2620 

REF 

37 

LAST 

579 

25,3553 

262  1 

REF 

3 

LAST 

573 

25,3554 

2622 

REF 

l 

25,3555 

2623 

REF 

3 

LAST 

175 

25,3556 

2624 

REF 

24 

LAST 

579 

25,3557 

2625 

25,3560 

2626 

REF 

38 

LAST 

580 

25,3561 

2627 

REF 

4 

LAST 

579 

25,3562 

2628 

REF 

8 

LAST 

458 

25,3563 

262  9 

REF 

2 

LAST 

579 

25,3564 

2630 

25,3565 

263  1 

REF 

155 

LAST 

568 

25,3566 

2632 

REF 

1 

25,3567 

2633 

REF 

156 

LAST 

580 

25,3  570 

2634 

REF 

9 

LAST 

534 

25,3571 

263  5 

REF 

1 

25,3572 

263  6 

REF 

1 

25,3573 

263  7 

REF 

23 

LAST 

571 

■ 25,3574 

2638 

25,3575 

2639 

RFF 

2 

LAST 

500 

25,3576 

2640 

REF 

4 

LAST 

535 

25,3577 

2641 

REF 

23 

LAST 

536 

25,3600 

2642 

REF 

1 

E7, 1427 

2643 

REF 

14 

LAST 

573 

25,3601 

2644 

REF 

2 

LAST 

580 

25,3602 

2 64  5 

REF 

53 

LAST 

567 

25,3603 

2646 

REF 

1 

25,3604 

2647 

REF 

38 

LAST 

536 

25,3605 

2646 

REF 

5 

LAST 

465 

25,3606 

03  C 1 2 

1 

WAND 

CHAN  1 2 

1 3623 

1 

TCF 

RDBADEND 

3 4771 

1 

L ASTLRDT 

CA 

2SECS 

0 5226 

1 

TC 

VARDELAY 

4 4730 

0 

CS 

BIT13 

0 CC06 

1 

EXTEND 

03  0 12 

1 

WAND 

C HAN  1 2 

1 3616 

1 

TCF 

R GOOD  END 

3 4742 

1 

LRPQSCAN 

CAF 

FOUR 

1 3537 

1 

TCF 

LRPOSNXT 

01130 

1 

6SECS 

DEC 

600 

0 4607 

1 

L R P2 COMM 

TC 

BANKCALL 

53511 

1 

CADR 

LRP0S2 

0 4607 

1 

TC 

BANKCALL 

1 7733 

0 

CADR 

R ADSTALL 

0 3574 

1 

TC 

LP2ALM 

1 3605 

0 

TCF 

GOPINNER 

0 5571 

1 

LP2ALM 

TC 

ALARM 

00523 

0 

dct 

523 

1 3605 

0 

TCF 

GOPINNER 

3 5007 

0 

V59GP63 

CA 

E8ANK7 

54  003 

0 

TS 

EBANK 

EB ANK= 

RPCRTIME 

3 4724 

1 

CA 

POSMAX 

55 1 427 

0 

TS 

RPCRTIME 

4 4727 

0 

CS 

BIT14 

55' 430 

0 

TS 

RPCRTQSW 

0 4626 

1 

GOPINNER 

TC 

POST  JUMP 

21062 

0 

CADR 

P INBRNCH 
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WAIT  TWO  SECONDS  AFTER  RECEIPT  OF  INBIT 
TO  WAIT  FOR  ANTENNA  BOUNCE  TO  DIE  OUT. 

REMOVE  COMMAND 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PPOGRAM  LUMINARY  BY  NASA  2021112-16L 

L P20-P25 


P2649 

SEQUENCES 

TC  TERMINATE 

RR  OPE 

RAT  IONS . 

2650 

REF 

6 

LAST 

573 

25,3607 

3 

4736 

1 

ENDRADAR 

CAF 

RCDUFBIT 

265  1 

REF 

94 

LAST 

579 

25,3610 

7 

0110 

0 

MASK 

R ADMODES 

2652 

REF 

195 

LAST 

573 

25,3611 

10  000 

0 

CCS 

A 

2653 

REF 

5 

LAST 

580 

25,3612 

1 

3616 

1 

TC  F 

RGOODEND 

2 65  A 

REF 

4 

LAST 

580 

25,3613 

1 

3623 

1 

TC  F 

RDBADEND 

2655 

REF 

120 

LAST 

576 

25,3614 

4 

4746 

1 

-2 

CS 

ZERO 

2656 

REF 

2 

LAST 

101 

25, 3615 

5 

4 332 

1 

TS 

RUPTAGN 

2657 

REF 

41 

LAST 

576 

25,3616 

3 

4743 

0 

R GOOD  END 

CAF 

TWO 

2658 

REF 

39 

LAST 

580 

25,3617 

0 

4626 

1 

TC 

POST  JUMP 

2659 

REF 

2 

LAST 

256 

25,3620 

1 7704 

1 

CADR 

GOOD END 

2660 

REF 

121 

LAST 

58  1 

■25,3621 

4 

4746 

1 

-2 

CS 

ZERO 

2661 

REF 

3 

LAST 

581 

25,3622 

5 

4 332 

l 

TS 

RUPTAGN 

2662 

REF 

42 

LAST 

581 

25,3623 

3 

4743 

0 

R C BAD  END 

CAF 

TWO 

2663 

REF 

40 

LAST 

581 

25,3624 

0 

4626 

.1 

TC 

POST  JUMP 

2664 

REF 

1 

25, 3625 

17701 

1 

CADR 

BADEND 

2665 

REF 

19 

LAST 

57  1 

6 266 

B IN3 

EQUALS 

THREE 
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PROLOG  to  CHECK  P.R  CDU  FAIL  BEFORE  ENO. 


R GOOD  END  WHEN  NOT  UNDER  WAITLIST  CONTROL 


R DBAD END  WHEN  NOT  UNDER  WAITLIST. 


GAP 


ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  202II12-L61 


17:11  MAR.  19,1971  LEMP20S  .168  PAGE  582 


L P20-P25  USER'S  PAGE  NO.  76  E7  S3 

P2666  PRCGRAM  NAME_  LPS20.1  VECTOR  EXTRAPOLATION  AND  LOS  COMPUTATION 
R2667  MOD.  NO.  2 BY  J.D.  COYNE  SDC  DATE  12-7-66 

R2668  FUNCTICNAL  DESCRIPTION^ 

R2669  1)  EXTRAPOLATE  THE  LEM  AND  CSM  VECTORS  IN  ACCORDANCE  WITH  THE  TIME  REFERFD  TO  IN  CALLER  + 1. 

R2671  2)  COMPUTES  THE  LOS  VECTOR  TO  THE  CSM,  CONVERTS  IT  TO  STABLE  MEMBER  COORDINATES  AND  STORES  TT  IN  RRTARGET . 

R2673  3)  CCMPUTES  THE  MAGNITUDE  OF  THE  LOS  VECTOR  AND  STORES  IT  IN  MLOSV 


R2674  CALLING  SEQUENCE  CALL 

R2675  , LPS20.1 

R2676  SUBROLTINES  CALLED.. 

R2677  LEMPREC ,CSMPREC 

R2678  NORMAL  EXIT_  RETURN  TO. CALLER  + 2 
R2679  ERROR  EXITS_  NONE 


R2680  AL ARM  S_  NONE 


R2681  OU  TPUT_ 

R2682  LOS  VECTOR  (HALF  UNIT)  IN  SM  COORDINATES  STORED  IN  RRTARGET 
R 2 6 8 3 MAGNITUDE  OF  THE  LOS  VECTOR  (METERS  SCALED  B-29)  STORED  IN  MSLOV 

R2684  RRNBSW  CLEARED 

R2685  INITIALIZED  ERASEABLE 

R2686  1 DEC  1 MUST  CONTAIN  THE  TIME  FOR  EXTRAPOLATION 

R2687  SEE  ORBITAL  INTEGRATION  ROUTINE 

R2688  DE  BR I S_ 

R2689  MP AC  DESTROYED  BY  THIS  ROUTINE 


2 69C 

2691 

2692 


23,2335 

24,2000 

24,3337 


BANK  23 
SETLOC  P20S 
BANK 


REF 


4 LAST  531 


GAP:  ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 


LEMP20S  .168  PAGE  583 


P2C- 

P 2 5 

2693 

REF 

1 

COUNT  * 

SS/LPS20 

2694 

24,3337 

43020 

l 

LPS20.1 

STQ 

BOFF 

2695 

REF 

3 

LAST 

516 

24,3340 

01755 

1 

LS21X 

2696 

REF 

8 

LAST 

567 

24,3341 

01343 

1 

LOSCMFLG 

269  7 

REF 

1 

24,3342 

51346 

1 

LMINT 

269  8 

24,3343 

77614 

1 

BON 

2699 

REF 

7 

LAST 

516 

24,3344 

04307 

1 

SURFFLAG 

2700 

REF 

1 

24,3345 

51356 

0 

CSMINT 

2701 

24,3346 

77624 

1 

LMINT 

CALL 

2702 

RFF 

3 

LAST 

502 

24,3347 

27136 

0 

LEMCONIC 

2703 

24,3350 

77775 

1 

VLOAD 

2704 

REF 

5 

LAST 

502 

24,3351 

OOCOl 

0 

RATT 

2705 

REF 

2 

LAST 

516 

24,3352 

26343 

1 

STOVL 

LMPOS 

2 70  6 

REF 

1 

24,3353 

00007 

0 

V ATT 

2 70  7 

REF 

2 

LAST 

516 

24,3354 

16351 

1 

STODL 

LMVEL 

2708 

REF 

5 

LAST 

50  8 

24 j 3355 

C0015 

0 

TAT 

270  9 

REF 

16 

LAST 

534 

24,3356 

34C41 

0 

CSMINT 

STCALL 

T DEC  1 

2710 

REF 

2 

LAST 

35  1 

24,3357 

27124 

0 

CSMCONIC 

271  1 

24,3360 

52375 

1 

VLOAD 

VSU 

2712 

REF 

2 

LAST 

583 

24,3361 

00007 

0 

V ATT 

2713 

REF 

3 

LAST 

583 

24,3362 

02351 

1 

LMVEL 

27135 

REF 

2 

LAST 

511 

24,3363 

00017 

1 

STORE 

VELLOS 

2714 

24,3364 

76521 

0 

MXV 

VSL1 

2715 

REF 

10 

LAST 

502 

24,3365 

01732 

0 

REFSMMAT 

2716 

24,3366 

77776 

1 

EXIT 

2717 

REF 

7 

LAST 

568 

24, 3367 

0 6050 

1 

TC 

K ILLTASK 

2718 

REF 

3 

LAST 

568 

24, 3370 

52573 

1 

CADR 

DESLOOP  +2 

2719 

REF 

52 

LAST 

567 

24, 3371 

0 6060 

1 

TC 

I NTPRET 

2720 

REF 

4 

LAST 

567 

24,3372 

25757 

0 

STOVL 

LOSVEL 

2721 

REF 

6 

LAST 

583 

24,3373 

00001 

0 

RATT 

2722 

24,3374 

43051 

1 

VSU 

BOFF 

2 72  3 

REF 

3 

LAST 

583 

24,3375 

02  343 

1 

LMPOS 

27232 

REF 

3 

LAST 

518 

24,3376 

00350 

1 

RNDVZFLG 

27234 

REF 

1 

24,3377 

51404 

0 

NOTSHIFT 

2724 

REF 

2 

LAST 

51  1 

24,3400 

00025 

0 

STORE 

RRANGE 

2725 

24,3401 

54204 

0 

BOVB 

VSL 

2726 

REF 

1 

24,3402 

57756 

1 

TCDANZIG 

2727 

24,3403 

20212 

1 

9D 

2728 

24,3404 

4 1 C 56 

1 

NOTSHIFT 

UNIT 

BOVB 

2729 

REF 

1 

24,3405 

50104 

1 

526AL ARM 

2730 

24, 3406 

76521 

0 

MXV 

VSL1 

2731 

REF 

11 

LAST 

583 

24, 3407 

01732 

0 

REFSMMAT 

2732 

REF 

10 

LAST 

567 

24,3410 

15101 

0 

STODL 

RRTARGET 

2733 

24,3411 

00045 

0 

360 

2734 

REF 

4 

LAST 

568 

24,3412 

01765 

1 

STORE 

MLOS  V 

2735 

24,3413 

77614 

1 

CLRGO 

2736 

REF 

5 

LAST 

566 

24,3414 

00231 

l 

RRNBSW 

2 73  7 

REF 

4 

LAST 

583 

24,3415 

01755 

1 

LS21X 

2738 

0024 

RRANGE 

EQUALS 

20D 

17: 11  MAR.  19, 1971 

USER ' S PAGE  NO.  77  E7  S3 


LOSCMFLG  = 0 MEANS  NOT  CALLED  BY  R21 
SO  CALL  LEMCONIC  TO  GET  LM  STATE 
IF  IN  R21  AND  ON  LUNAR  SURFACE 
DON'T  CALL  LEMCONIC 


F X TR A POL AT E LFM 


SAVE  LM  POSITION  B-29 
SAVE  LM  VFLOCITY  B-7 


EXTRAPOLATE  CSM 

COMPUTE  RELATIVE  VELOCITY  V(CSM)  - V(LM) 


KILL  THE  TASK  WHICH  CALLS  DODES  SINCE 
STORING  INTO  ERASEABLFS  DODES  USES 


RANGF  FOR  POSSIBLE  ALARM  B-29 


IF  OVERFLOW  , RANGE  MUST  BE  GREATER 
THAN  400  N.  M. 

CONVERT  TO  STABLE  MEMBER 

SAVE  MAGNITUDE  OF  LOS  VECTOR  FOR 
VELOCITY  CORRECTION  IN  DESIGNATE 


GAP: 

ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

17: 1 1 MAR.  19, 

1971 

LEMP20S 

.168  PAGE 

L 

P20-P25 

USER' S 

PAGE 

NO.  73 

E7  S3 

5 84 


27385 


00  i 6 


VELLOS  EQUALS  140 


.168  page 

F7  S3 


P 273  8 8 

PROGRAM  NAME  : LPS20.2 

400  N. 

MI . 

RANGE 

CHECK 

R2739 

MOD.  NO.  2 BY  J.D.  COYNE 

SDC 

DATE 

12-7-66 

R2740 

FUNCTIONAL  DESCRIPTION. 

R 2 74 1 

COMPARES  THE  MAGNITUDE 

OF  THE 

LOS 

VECTOR 

TO  400  NM 

R2742 

CALLING  SEQUENCE 

CALL 

R2743  LPS20.2 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L P20-P25 


17:11  MAR.  19,1971  LEMP20S 
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R2744  SUBROUTINES  CALLED.  NONE 

R2745  NORMAL  EXIT  _ RETURN  TO  CALLER  +1,  MPAC  EQ  0 (RANGE  400NM  OR  LESS.) 

R 2 7 4 6 ERROR  EXITS  _ RETURN  TO  CALLER  +1,  MPAC  EQ  1 (RANGE  GREATER  THAN  400NM] 

R2747  ALARMS.  NONE 


R2748 


OUTPUT  NONE 


R2749  INITIALIZED  ERASEABLE. 

R2750  PUL  36D  MUST  CONTAIN  THE  MAGNITUDE  OF  THE  VECTOR 
R2751  DEBRIS 


R 275  2 

MPAC 

DESTROYED 

BY 

THIS  ROUTINE 

2753 

REF 

3 

LAST 

579 

25,2000 

SETLOC 

P20S1 

2754 

25,3626 

BANK 

2755 

REF 

1 

COUNT* 

t J./LPS20 

2756 

25,3626 

45345 

1 

LPS20.2 

DLOAD 

DSU 

2757 

REF 

5 

LAST 

583 

25,3627 

01765 

1 

MLOSV 

2758 

REF 

1 

25,3630 

13641 

0 

FHNM 

2759 

25,3631 

7 7644 

1 

BP  L 

2760 

REF 

1 

25,3632 

53635 

1 

TOFAR 

2 76  1 

25,3633 

43535 

0 

SLOAD 

RVQ 

2 76  2 

REF 

l 

25,3634 

06505 

1 

ZERO/SP 

2763 

25,3635 

43535 

0 

TOFAR 

SLOAD 

RVQ 

2764 

REF 

1 

25,3636 

13640 

1 

ONE/SP 

2765 

25,3637 

00001 

0 

ONE/SP 

DEC 

I 

MAGNITUDE  OF  1 OS 
OVER  400NM 


585 


GAP: 

L 

2766 

2766 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  202U12-161 
P2C-P25 

25.3640  26467  0 FHNM  2DEC  740800  B-20 

25.3641  00000  1 


17:11  MAR.  19,1971  LEMP20S  .168 
USER • S PAGE  NO.  80 
400  NAUTICAL  MILES  IN  METERS 


PAGE 
E7  S3 
B-20 


586 
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L 

P2767 
R2  76  8 


R2769 

R2770 

R2772 

R2774 

R2775 


R2777 


R2778 

R2779 
R2780 
R 2 7 8 l 
R2782 
R27S3 


R2784 

R2786 

R278G 


R2790 
R279  2 


R2794 

R2796 

R2798 

R2799 

R2801 

R2802 

R2803 

R2S04 


R2805 

R2806 


P20-P25  USER'S  PAGE  NO.  81  E7  S3 

PROGRAM  NAME:  LRS22.1  (DATA  READ  SU8R0UT I NE  1) 

MOD.  NO.:  1 BY:  P.  VOLANTE  SDC  DATE:  11-15-66 

FUNCTIONAL  DESCRIPTION 

1)  READS  RENDEZVOUS  RADAR  RANGE  AND  R ANGE-RA TE , TRUN I ON  AND  SHAFT  ANGLES, THREE  CDU  VALUES  AND  TIME.  CONVERTS  THIS 
DATA  AND  LEAVES  IT  FOR  THE  MEASUREMENT  INCORPORATION  ROUTINE  (LSR22.3).  CHECKS  FOR  THE  RR  DATA  GOOD  DISCRETE, FOR 
RR  REPOSITION  AND  RR  CDU  FAIL 

2)  COMPARES  RADAR  LOS  WITH  LOS  COMPUTED  FROM  STATE  VECTORS  TO  SEE  IF  THEY  ARE  WITHIN  THREE  DEGREFS 
CALLING  SEQUFNCE:  BANKCALL  FOR  LRS22.1 


SUBROLTINES  CALLED:  , 


RRRDOT  LPS20.1 
RRRANGE  BANKCALL 
RADSTALL  CDULOGIC 
RRNB  SMNB 

NORMAL  EXIT:  RETURN  TO  CALLER+l  WITH  MPAC  SET  TO  +0 


ERROR  EXITS: 


RETURN  TO  CALLER+l 


WITH  ERROR  CODE  STORED 


IN  MPAC  AS  FOLLOWS: 


0000 1-EPROR 
00002-ERRQR 


EXIT 

EXIT 


1—  RR  DATA  NO 

2- RR  LOS  NOT 


GOOD  (NO  RR  DATA  GOOD  DISCRETE  OR  RR 
WITHIN  THREE  DEGREES  OF  LOS  COMPUTED 


CDU  FAIL  OR  RR  REPOSITION) 
FROM  STATE  VECTORS 


ALARMS:  521-COULD  NOT  READ  RACAR  DATA  (RR  DATA  GOOD  DISCRETE  NOT  PRESENT  BEFORE  AND  AFTER 

(THIS  ALARM  IS  ISSUED  BY  THE  RAOAREAD  SUBROUTINE  WHICH  IS  ENTERED  FROM  A RADARUPT) 


READING  THE  RADAR) 


OUTPUT:  RRLOSVEC-  THE  RR  L I NE-OF-S I GHT  VECTORIUSED  BY  LRS22.21-A  HALF-UNIT  VECTOR 

RM-  THE  RR  RANGE  READ  I NG ( TO  THE  CSM)  DP,  IN  METERS  SCALED  B-291USED  BY  LRS22.2  AND  LRS22.3) 

ALL  OF  THE  FOLLOWING  OUTPUTS  ARE  USED  BY  LRS22.3: 

RDGTM—  THE  RR  RANGE-RATE  READING, CP,  IN  METERS  PER  C ENT  I SECOND  , SCALEO  R-7 

RRTRUN-RR  TRUN I ON  ANGLE, DP, IN  REVOLUT  IONS , SC AL ED  BO 

RRSHAFT-RR  SHAFT  ANGLE, DP, IN  R E VOLUT I ONS , SC AL ED  BO 

AI G, AMG , AOG-THE  CDU  ANGLES, THREE  SP  WORDS 

MKTIME-THE  TIME  OF  THE  RR  RE  AD  I NG , DP , I N CFNT  I S ECONDS 


ERASABLE  INITIALIZATION  REQUIRED: 

RNRAD, THE  RADAR  READ  COUNTER  FROM  WHICH  IS  OBTAINED: 


GAP:  ASSEMBLE  REVISION  210  OE  AGC  PROGRAM  LUMINARY  BY  NASA  202U12-L61 

L P20-P25 


R 280  7 
R2809 


1 ) RR  RANGE  SCALEC  9.38 

2 ) RR  RANGE  RATE, SCALED 


FT.  PER  BIT  ON  THE  LOW  SCALE  AND  75.04 
.6278  FT. /SEC.  PER  BIT 


R2810 


THE  CDU  ANGLES  FROM  C LUX , CDUY , CDUZ  AND 


T I ME  1 AND  TIME2 


R281  1 

DEBRIS: 

LRS22 

• 1 X , A , 

L,Q, PUSHL  1ST 

2812 

32,2362 

BANK 

32 

2813 

REF 

2 

LAST 

42 

32,2000 

SETLOC 

LRS22 

2814 

32,2362 

BANK 

2815 

REF 

2 

LAST 

42  TO 

42  : 

4 

4* 

COUNT  * 

$$/LRS22 

2816 

REF 

7 

LAST 

559 

■32,2362 

0 4636 

0 

LRS22 .1 

TC 

MAKECADR 

2817 

REF 

3 

LAST 

520 

32,2363 

55 ' 737 

1 

TS 

LRS22.1X 

2818 

REF 

55 

LAST 

567 

32, 2364 

0 5520 

0 

TC 

DOWNFLAG 

2819 

REF 

2 

LAST 

574 

32,2365 

00120 

1 

ADRES 

R NGSCFLG 

2820 

32,2366 

C 0C04 

0 

INHINT 

282  1 

REF 

30 

LAST 

574 

32,2367 

3 4742 

1 

CAF 

B IT3 

282? 

32,2370 

0 0006 

1 

EXTEND 

2 82  3 

REF 

18 

LAST 

579 

32,2371 

02  033 

0 

RAND 

CHAN33 

2824 

REF 

87 

LAST 

577 

-32,2  3 72 

54  001 

1 

TS 

L 

2025 

REF 

1 

32,2373 

4 4742 

0 

CS 

RRRSBIT 

2826 

REF 

95 

LAST 

581 

32,2374 

7 0110 

0 

MASK 

R ADMODES 

2827 

REF 

88 

LAST 

588 

32,2375 

6 0001 

0 

AD 

L 

2828 

REF 

96 

LAST 

588 

32,2376 

54  110 

0 

TS 

R ADMODES 

2829 

32,2377 

0 0003 

1 

RELINT 

2830 

REF 

157 

LAST 

580 

32,2400 

0 4607 

1 

READRDOT 

TC 

BANKCALL 

233  1 

REF 

4 

LAST 

534 

32,2401 

53072 

1 

CADR 

RRRDOT 

2832 

REF 

158 

LAST 

588 

32,2402 

0 4607 

1 

TC 

BANKCALL 

2833 

REF 

10 

LAST 

580 

32,2403 

17733 

0 

CADR 

R ADSTALL 

2834 

REF 

1 

32,2404 

1 2560 

1 

TCF 

EREXIT1 

2 83  5 

32,2405 

0 0004 

0 

INHINT 

2836 

REF 

4 

LAST 

569 

32,2406 

53 ' 105 

0 

DXCH 

T IMEHOLD 

2 83  7 

REF 

25  1 

LAST 

567 

32,2407 

52  162 

0 

DXCH 

MPAC  +5 

2838 

REF 

8 

LAST 

576 

32,2410 

53'  101 

1 

DXCH 

S AMPL  SUM 

2839 

REF 

3 

LAST 

152 

32,2411 

53' 747 

0 

DXCH 

RDOTMSA V 

2 84  0 

32,2412 

0 0006 

1 

EXTEND 

284  1 

REF 

6 

LAST 

269 

32,2413 

3 0034 

0 

DC  A 

CDUY 

2842 

REF 

252 

LAST 

588 

32,2414 

52  160 

1 

DXCH 

MPAC  +3 

2 84  3 

REF 

12 

LAST 

399 

32,2415 

3 0032 

0 

CA 

C DUX 

2844 

REF 

253 

LAST 

588 

32,2416 

54  156 

1 

TS 

MPAC  +2 

2845 

32,2417 

0 0006 

1 

EXTEND 

2846 

REF 

16 

LAST 

569 

32,2420 

3 0025 

0 

DC  A 

T I ME2 

2 84  7 

REF 

254 

LAST 

588 

32,2421 

52  155 

l 

DXCH 

MPAC 

2848 

32,2422 

0 0006 

1 

EXTEND 

2849 

REF 

12 

LAST 

564 

32,2423 

3 0036 

1 

DC  A 

CDUT 

2850 

REF 

17 

LAST 

566 

32,2424 

53' 107 

1 

DXCH 

TANG 
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. PER  BIT  ON  THE  HIGH  SCALE 


GET  RR  RANGE  SCALE 
FROM  CHANNEL  33  BIT  3 


READ  RANGE-RATE  (ONE  SAMPLE) 

WAIT  FOR  DATA  READ  COMPLETION 
COULD  NOT  READ  RADAR-ERROR  EXIT  l 

NO  INTERRUPTS  WHILF  READING  TIME  AND  CDU 
SET  MARK  TIME  EQUAL  TO  THE  MID-POINT 
TEMP  BUFFER  FOR  DOWNLINK 
SAVE  RANGE-RATE  READING 


SAVE  ICDU  ANGLES 

TEMP  BUFFER  FOR  DOWNLINK 

TEMP  BUFFER  FOR  DOWNLINK 

SAVE  TIME 

SAVE  TIME  OF  CDY  READINGS  IN  MPAC 
SAVE  TRUNION  AND  SHAFT  ANGLES  FOR  RRN9 


GAP: 


ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  2021LL2-161 


L P20-P25 


2851 

32,2425 

C 0003 

1 

REL  INT 

2852 

REF 

159 

LAST 

588 

32, 2426 

0 4607 

1 

TC 

8ANKCALL 

2353 

REF 

3 

LAST 

534 

32,2427 

53074 

1 

CADR 

RRRANGE 

2854 

REF 

160 

LAST 

589 

.32,2430 

0 4607 

1 

TC 

BANKCALL 

2 85  5 

REF 

11 

LAST 

588 

32,2431 

17733 

0 

CADR 

RADSTALL 

2856 

REF 

1 

32,2432 

0 2554 

1 

TC 

CHEXERR 

2857 

32,2433 

C 0004 

0 

INHINT 

2858 

32,2434 

0 0006 

1 

EXTENO 

2859 

REF 

7 

LAST 

57  1 

32,2435 

3 1331 

1 

DCA 

DNRRANGE 

2860 

REF 

5 

LAST 

215 

32,2436 

53 ' 761 

1 

DXCH 

R ANGRDOT 

2861 

REF 

255 

LAST 

588 

32,2437 

52  162 

0 

DXCH 

MPAC  +5 

2 86  2 

REF 

6 

LAST 

576 

32,2440 

53 ' 755 

0 

DXCH 

MKTI ME 

2863 

REF 

256 

LAST 

539 

32,2441 

52  160 

1 

DXCH 

MPAC  +3 

2864 

REF 

6 

LAST 

576 

32,2442 

53 ' 460 

0 

DXCH 

A I G 

2865 

. 32,2443 

0 CC06 

1 

EXTEND 

2866 

REF 

18 

LAST 

588 

32,2444 

3 1107 

0 

DCA 

TANG 

2 86  7 

REF 

9 

LAST 

559 

32,2445 

53' 753 

0 

DXCH 

T ANGNB 

2868 

REF 

257 

LAST 

589 

32, 2446 

3 C 1 56 

0 

CA 

MPAC  +2 

2869 

REF 

7 

LAST 

576 

32,2447 

55 ' 46 1 

1 

TS 

A OG 

2871  1 

REF 

53 

LAST 

583 

32,2450 

0 6060 

1 

TC 

INTPRET 

28712 

32,2451 

14025 

0 

STOOL 

2 OD 

28713 

REF 

7 

LAST 

589 

32,2452 

03755 

0 

MKT IME 

287  1 4 

. 32,2453 

45225 

0 

DSU 

DSU 

287  1 5 

REF 

3 

LAST 

233 

32,2454 

01777 

1 

OLDAGS 

28716 

REF 

1 

32,2455 

24567 

0 

50SECS 

2871  7 

32,2456 

77440 

1 

BMN 

EXIT 

28718 

REF 

1 

32,2457 

64472 

1 

NOAGS 

2 87  2 

REF 

2 

LAST 

87 

32,2460 

4 0110 

0 

CS 

FLGWRD12 

2873 

REF 

2 

LAST 

588 

32,2461 

7 4742 

0 

MASK 

RRRSBIT 

2 874 

REF 

196 

LAST 

581 

32,2462 

10  000 

0 

CCS 

A 

2875 

REF 

15 

LAST 

580 

32,2463 

3 4724 

1 

CA 

POSMAX 

2876 

REF 

1 

32,2464 

6 2565 

0 

AD 

0CT57776 

2877 

REF 

6 

LAST 

533 

32,2465 

55*073 

0 

TS 

AGSCODE 

2878 

REF 

54 

LAST 

539 

32, 2466 

0 6060 

1 

TC 

I NTPRET 

28731 

32,2467 

77745 

1 

DLOAD 

28782 

REF 

8 

LAST 

589 

32,2470 

03755 

0 

MKTIME 

28783 

REF 

4 

LAST 

589 

32,2471 

01777 

1 

STORE 

OLDAGS 

2879 

32,2472 

77745 

1 NOAGS 

DLOAD 

2880 

REF 

4 

LAST 

588 

32,2473 

03  747 

0 

RDnTMSAV 

2881 

32 ,2474 

57261 

0 

SL 

DMPR 

2882 

32,2475 

20217 

l 

14D 

2883 

REF 

1 

32,2476 

24002 

0 

RDOTCONV 

2884 

REF 

3 

LAST 

152 

32,2477 

03751 

1 

STORE 

R DOT  M 

2885 

32,2500 

47135 

0 

SLOAD 

RTB 

2886 

REF 

19 

LAST 

539 

32,2501 

01107 

0 

TANG 

2837 

REF 

13 

LAST 

5 64 

32,2502 

21606 

1 

CDULOGIC 

2888 

REF 

2 

LAST 

152 

32,2503 

03734 

1 

STORE 

RRTRUN 

2889 

32,2504 

47135 

0 

SLOAD 

RTB 
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READ  RR  RANGE  (ONE  SAMPLF ) 

WAIT  FOR  READ  COMPLETE 

CHECK  FOR  ERRORS  OURING  READ 

COPY  CYCLE  FOR  MARK  DATA  ON  DOWNLINK 

RANGE, RANGE  RATE  (RAW  DATA) 


MARK  TIME 

CDUY,  CDUZ 

PRESERVE  TANG 

TRUNNION  AND  SHAFT  ANGLES 

CDUX 

SAVF  TIME  OF  CDU  READINGS  IN  200 


50  SECS  SINCE  LAST  AGS  DOWNLIST? 
NO 


IS  RR  READING  HIGH  SCALE 


NO-  LOW  SCALE  (SET 
YES-  HI  SCALE  (SET 
SET  AGS  CODE  WORD 


CONFIG)  AGSCODE= 17776 
CONFIG)  AGSCUDE=57776 


SAVE  AGS  DOWNLINK  TIMF 


CONVERT  ROOT  UNITS  AND  SCALING 

START  WITH  READING  SCALED  B-28 , -.6278 

FT. /SECOND  PER  BIT 

END  WITH  METERS/CENTISECOND,  B-7 


GET  T RUN  ION  ANGLE 

CONVERT  TO  DP  ONES  COMP.  IN  REVOLUTIONS 
AND  SAVT  FOR  T M I ROUTINE  (LSR22.3) 


GAP: 

ASSEMBLE  1 

REVISION 

1 210 

CF  A GC  PROGRAM  LUM 

INARY  BY  NA 

iSA  2021112-161 

L 

P 20- 

-P25 

2390 

REF 

2 0 

LAST 

589 

32,2505 

OHIO 

0 

TANG  +1 

289  1 

REF 

14 

LAST 

589 

32,2506 

21606 

1 

CDULOGIC 

2892 

REF 

2 

I AST 

152 

32,2507 

1 7736 

0 

STODL 

RRSHAFT 

2893 

REF 

9 

LAST 

588 

32,2510 

01101 

0 

S AMPLSUM 

2894 

32,2511 

66405 

0 

DMP 

SL2R 

2895 

REF 

1 

32,2512 

24004 

0 

R ANGCONV 

2 89  7 

REF 

3 

LAST 

158 

32,2513 

37757 

0 

STC  ALL 

RM 

2898 

REF 

2 

LAST 

559 

32,2514 

46041 

0 

RRNB 

2899 

REF 

3 

LAST 

152 

32, 2515 

17741 

0 

STODL 

RRBORSIT 

2900 

32,2516 

00025 

0 

2 OD 

290  1 

REF 

17 

LAST 

583 

32,2517 

34041 

0 

STCALL 

T DEC  1 

2902 

REE 

5 

LAST 

5 34 

32,2520 

51337 

1 

LPS20.1 

2903 

32,2521 

77776 

1 

EXIT 

2904 

REF 

7 

LAST 

589 

32,2522 

3 1457 

0 

CA 

A I G 

2905 

REF 

11 

LAST 

493 

32,2523 

54  765 

1 

TS 

CDUSPOT 

2906 

REF 

4 

LAST 

215 

32,2524 

3 1460 

1 

CA 

AMG 

2907 

REF 

12 

LAST 

590 

32,2525 

54  767 

0 

TS 

CDUSPOT 

2 90  8 

REF 

8 

LAST 

589 

32,2526 

3 1461 

0 

CA 

AOG 

2909 

REF 

13 

LAST 

590 

32,2527 

54  771 

1 

TS 

CDUSPOT 

2910 

REF 

55 

LAST 

589 

32, 2530 

0 6060 

1 

TC 

I NTPRET 

291  1 

32,2531 

45175 

0 

VLOAD 

CALL 

2912 

REF 

11 

LAST 

583 

32,2532 

01101 

0 

P.RTARGET 

2913 

REF 

1 

32,2533 

47643 

0 

TRG*SMNB 

2914 

32,2534 

77641 

1 

DOT 

2915 

REF 

4 

LAST 

590 

32,2535 

03741 

0 

RRBORSIT 

2916 

32,2536 

65552 

0 

SL1 

ACOS 

291  7 

REF 

19 

LAST 

455 

32,2537 

01045 

1 

STORE 

DSPTEM1 

2918 

32,2540 

50025 

0 

DSU 

8 MN 

2919 

REF 

1 

32,2541 

24564 

0 

THREEDEG 

2920 

REF 

1 

32,2542 

64547 

0 

NORMEXI T 

292  1 

32,2543 

77776 

1 

EXIT 

2922 

REF 

34 

LAST 

567 

32,2544 

3 4743 

0 

CAF 

B IT2 

2923 

REF 

258 

LAST 

589 

32,2545 

54  154 

0 

TS 

MPAC 

2924 

REF 

1 

32,2546 

1 2552 

0 

TC  F 

0UT22. 1 

2 92  5 

32,2547 

77776 

1 

NORMEX IT 

EXIT 

2926 

REF 

122 

LAST 

581 

32,2550 

3 4746 

0 

CAF 

ZERO 

2 92  7 

REF 

259 

LAST 

590 

32,2551 

54  154 

0 

TS 

MPAC 

2 92  8 

REF 

4 

LAST 

588 

32,2552 

31 ' 737 

0 

DUT2  2 . 1 

CAE 

LRS22.1X 

2929 

REF 

10 

LAST 

557 

32,2553 

0 4631 

1 

TC 

BANK JUMP 

2930 

REF 

19 

LAST 

571 

32,2554 

30  101 

1 

CHEXERR 

CAE 

FLAGWRD5 

293  1 

REF 

1 

32, 2555 

7 4733 

0 

MASK 

RNGSCBIT 

2932 

REF 

197 

LAST 

589 

32,2556 

10  000 

0 

CCS 

A 

2933 

REF 

1 

32,2557 

1 2400 

0 

TC  F 

REAORDQT 

2934 

REF 

32 

LAST 

573 

32,2560 

3 4744 

1 

ERFXIT1 

CA 

B I T1 

2935 

REF 

260 

LAST 

590 

32,2561 

54  154 

0 

TS 

MPAC 

2936 

REF 

2 

LAST 

590 

32, 2562 

0 2552 

l 

TC 

OUT22 . 1 

2937 

32,2563 

0C210 

1 

THREEDEG 

2DEC 

.0083333. 

293  7 

32,2564 

21042 

1 
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DITTO  FOR  SHAFT  ANGLE 

CONVERT  UNITS  AND  SCALING  OF  RANGE 
PER  BIT,  END  WITH  MET ER S , SC AL E D -29 

COMPUTE  RADAR  LOS  USING  RRNR 
AND  SAVE 

GET  STATE  VECTOR  LOS  AT  TIME  OF  C.  DU  READ 

STORE  IMU  CDU  ANGLES  AT  MARKTIME 
IN  CDUSPOT  FOR  TRG*SMNB 


LOAD  VECTOR  AND  CALL  TRANSFORMATION 

ROTATE  LOS  AT  MARKTIME  FROM  SM  TO  NB. 
DOT  WITH  RADAR  LOS  TO  GET  ANGLE 

BETWEEN  THEM 

STORE  FOR  POSSIBLE  DISPLAY 
IS  IT  LESS  THAN  3 DEGREES 

YES-NORMAL  EXIT 

ERROR  EXIT  2 
SET  FRROR  CODE 

NORMAL  EXIT-SET  MPAC  EQUAL  ZERO 
EXIT  FROM  LRS22.1 

CHECK  IF  RANGE  SCALE  CHANGED 
YES-TAKE  ANOTHER  READING 

SET  ERROR  CODE 

THREE  DEGREES , SCALED  REVS, BO 


GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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USER' S PAGE  NO.  85 


F 7 S3 


29375 

29376 
29376 


32.2565 

32. 2566 

32. 2567 


5111 b 0 OCT57776  OCT 

CCCOO  1 50SECS  2DEC 

11610  0 


57776 

5000 


AGS  CODE  WORD  - HIGH  RANGE  SCALE  - SET 


GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  202L1I2-161  17: II  MAR.  19,1971  LEMP20S  .168  PAGE  592 

L P20-P25  USER'S  PAGE  NO.  86  E7  S3 

P2938  PROGRAM  NAME  - LRS22.2  (DATA  READ  SUBROUTINE  2) 


R2939  MOD.  NO.  : 1 BY:  P VOLANTE  SDC  DATE  4-11-67 

R2940  FUNCTIONAL  DESCRIPTICN- 

R2941  2)  CHECKS  IF  THE  RR  LOS  (I.E.  THE  RADAR  BORES  I GHT  VECTOR)  IS  WITHIN  30  DEGREFS  OF  THE  LM  +Z  AXIS 


R2943  CALLING  SEQUFNCE-  BANKCALL  FOP  LRS22.2 


R2944  SUBROUTINES  CALLED:  G+N,AUTO  SETMAXDB 

R2945  NORMAL  EXIT  - RETURN  TO  CALLER  WITH  MPAC  SET  TO  +0  (VIA  S WRETURN ) 


R2946  ERROR  EXIT  - RETURN  TO  CALLER  WITH  MPAC  SET  TO  00001  -RADAR  LOS  NOT  WITHIN  30  DEGREES  OF  LM  + Z AXIS 


R2948  ALARMS  - NONE  . IN  THE  AUTO  MODE 


R2950 

ERASABLE 

I NIT 

I AL  I Z AT  I ON  REQUIRED  - 

R2951 

RRLOSVEC 

- THE 

RR  LINE-' 

OF-S  I GHT 

VECTOR-A  HALF  UNIT 

VECTOR  COMPUTED 

BY  LRS22.1 

K2953 

RM  - 

- RR 

RANGE, 

METERS  B' 

-29,  FROM 

LRS22.  1 

R2954 

BIT 

14  CHANNEL 

31  -INDICATES  AUTOPILOT  IS  IN  AUTO 

MODE 

R2955 

DEBRIS  - 

A , L 

,Q  MPAC 

-PUSHLIST  AND  PUSHLOC  ARE  NOT  CHANGED  BY  THIS  ROUTINE 

2957 

REF 

5 

LAST 

582 

24,2000 

SETLOC 

P20S 

2958 

24,3416 

BANK 

2959 

REF 

8 

LAST 

588 

24,3416 

0 4636 

0 

LRS22.2  TC 

MAKECADR 

2960 

REF 

5 

LAST 

590 

24, 3417 

55' 737 

1 

TS 

LRS22.1 X 

296  1 

REF 

56 

LAST 

590 

24,3420 

0 6060 

1 

TC 

I NTPRFT 

A2962 

CHECK  IF  RR  LOS  IS  WITHIN  30  DEG  OF 

2963 

24,3421 

65545 

0 

30DEGCHK  DLOAD 

ACOS 

THF  SPACECRAFT  +Z  AXIS 

2964 

REF 

5 

LAST 

590 

24,3422 

03  745 

1 

RR  BOR  SIT  +4 

BY  TAKING  ARCCOS  OF  Z-COMP.  OF  THE  RR 

A2965 

LOS  VECTOR, A HALF  UNIT  VECTOR 

A2  966 

IN  NAV  BASF  AXES) 

296  7 

24,3423 

50025 

0 

DSU 

BMN 

2968 

REF 

1 

24,3424 

1 1440 

1 

30DEG 

2969 

REF 

1 

24,3425 

51432 

0 

OKEXIT 

NORMAL  EXIT-WITHIN  30  DEG. 

2970 

24, 3426 

77776 

1 

EXIT 

ERROR  EXIT-NOT  WITHIN  30  DEG. 

2971 

REF 

33 

LAST 

590 

24,3427 

3 4 744 

1 

CAF 

B I T 1 

SET  ERROR  CODE  IN  MPAC 

2972 

REF 

261 

LAST 

590 

24,3430 

54  154 

0 

TS 

MPAC 

2973 

REF 

1 

24,3431 

1 3435 

1 

TCF 

0UT22 .2 

2974 

24,3432 

77776 

1 

OKEXIT  EXIT 

NORMAL  EXIT-SFT  MPAC  = ZERO 

GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-lfcl 


L P20-P25 


2975 

REF 

123 

LAST 

590 

29,3933 

3 9796 

0 

CAF 

ZERO 

2976 

REF 

262 

LAST 

592 

29, 3939 

59  159 

0 

TS 

M P AC 

2977 

REF 

6 

LAST 

59  2 

29, 3935 

31*  737 

0 OUT  2 2.2 

CAE 

LRS22. IX 

2978 

REF 

11 

LAST 

590 

29,3936 

0 9631 

1 

TC 

BANK JUMP 

2979 

29,3937 

02525  1 30DEG 

2DEC 

.083333333 

2979 

29, 3990 

12525  0 
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THIRTY  DEGREES, SCALED  REVS, BO 


GAP: 

L 

P2980 

R2982 

R2984 

R2986 

R2987 

R 298  8 
P2990 
P2992 

R2993 
R2994 
R 2996 
R2998 
R 3000 
R300  2 
R3004 

R 300  5 
R3006 
R 300  7 
R 300  8 
R3009 
R 301  0 
R30 1 1 
R3012 
R30L3 
R3014 
R3015 
R301  6 

K3017 
R 3 0 1 8 
R3019 
R3020 
R302  1 
R3022 
K3023 
R 302  A 
R3025 
R 302  6 
R3027 
R 302  8 
R3029 
R3030 
R3031 

R3032 

R3033 

R3034 


ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
P2C-P25 

PROGRAM  NAME  - LSR22.3 
MOD.  NO  3 

MOD.  BY  - DANFORT  H 
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USER'S  PAGE  NO.  89  E7  S3 

DATE  - 29  MAY  1967 
LOG  SECTION  - P20— 2 5 
ASSEMBLY  LFMP20S  REV  10 


FUNCTIONAL  DESCRIPTION 

THIS  ROUTINE  COMPUTES  THE  B-VECTORS  AND  DELTA  Q FOR  EACH  OF  THE  QUANTITIES  MEASURED  BY  THE  RFNDEZVOUS 
RADAR. (RANGE, RANGE  RATE, SHAFT  AND  TRUNNION  ANGLES).  THE  ROUTINE  CALLS  THE  INC0RP1  AND  INC0RP2  ROUTINES 
WHICH  COMPUTE  THE  DEVIATIONS  AND  CORRECT  THE  STATE  VECTOR. 

CALLING  SEQUENCE 

THIS  ROUTINE  IS  PART  0F'P20  RENDEZVOUS  NAVIGATION  FOR  THE  LM  COMPUTER  0 NLY.  THE  ROUTINE  IS  ENTERED  FROM 
R22LEM  ONLY  AND  RETURNS  DIRECTLY  TO  R22LEM  FOLLOWING  SUCCESSFUL  INCORPORATION  OF  MEASURED  DATA.  IF  THF 
COMPUTED  STATE  VECTOR  DEVIATIONS  EXCEED  TFE  MAXIMUM  PERM  I TTtD  . THE  ROUTINE  RETURNS  TO  R22LFM  TO  DISPLAY 
THE  DEVIATIONS.  IF  THE  ASTRONAUT  ACCFPTS  THE  DATA  R22LEM  RETURNS  TO  LSR22.3  TO  INCORPORATE  THE 
DEVIATIONS  INTO  THE  STATE  VECTOR.  IF  THE  ASTRONAUT  REJECTS  THE  DEVIATIONS,  NO  MORE  ME  ASUR  FMFNT  S ARE 
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15 

LAST 

599 

3277 

REF 

9 

LAST 

590 

3278 

REF 

16 

LAST 

599 

3279 

REF 

58 

LAST 

596 
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2722 

51575 

1 

2723 

03533 

1 

2724 

71301 

0 

2725 

00027 

1 

2726 

00027 

1 

2727 

50025 

0 

2730 

00025 

0 

2731 

54735 

1 

2732 

52150 

1 

2 73  3 

00026 

0 

2734 

54737 

0 

2735 

77750 

0 

VCK1 

2736 

00024 

1 

2737 

53775 

1 

VCK2 

2 740 

03525 

0 

2 741 

2C201 

0 

2742 

27525 

0 

2743 

03533 

1 

2744 

77657 

0 

2745 

20201 

0 

2 746 

17533 

1 

2747 

03547 

1 

2750 

77657 

0 

2751 

20201 

0 

2752 

03547 

1 

2 753 

53745 

1 

2754 

00045 

0 

2755 

20200 

1 

2756 

41316 

0 

2757 

02707 

0 

2 760 

47012 

1 

2761 

21643 

0 

2762 

36707 

1 

2763 

55400 

0 

2764 

77624 

1 

2765 

51770 

0 

2 766 

77414 

0 

2767 

04307 

1 

2770 

55204 

1 

1457 

2771 

3 3331 

0 

MXMY 

2772 

54  006 

0 

2773 

3 1457 

0 

2774 

54  765 

1 

2775 

3 1460 

1 

2776 

54  767 

0 

2777 

3 1461 

0 

3000 

54  771 

1 

3001 

0 6060 

1 

OF 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26; 

26 

26 

26 

E 7 

26 

26 

26 

26 

26 

26 

26 

26 

26 
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VLOAD 

ABVAL 

B VECTOR  +60 

LOAD  Bl,  GET  MAGNITUDE  AND  NORMALIZE 

NORM 

OLOAD 
2 2D 

SHIFT  COUNT  IN  22D 

2 2D 

FIND  WHICH  SHIFT  IS  SMALLER 

DSU 

BMN 
2 OD 
VOK 1 

BRANCH-  BO  HAS  SMALLER  SHIFT 

COUNT 

LX  A , 1 

GOTO 

2 2D 

LOAD  X 2 WITH  THE  SMALLER  SHIFT  COUNT 

V 0K2 

LXA  , 1 

2 OD 

VLOAD 

VSL* 

THEN  ADJUST  BO, Bl, DELTAQ  AND 

VARI ANCE 

BVECTOR 

0,1 

WITH  THIS  SHIFT  COUNT 

STOVL 

BVECTOR 
BVECTOR  +6 

VSL* 

0,1 

STOOL 

BVECTOR  +6 
DELTAQ 

SL* 

0,1 

STORE 

DELTAQ 

DLOAD 

SL* 

36D 

0-1,1 

GET  RLC  AND  ADJUST  FOR  SCALE 

SHIFT 

DSQ 

DMP 

VARIANCE 

MULTIPLY  RLC**2  BY  VARIANCE 

SL4 

RTB 

TPMODE 

SHIFT  TO  CONFORM  TO  BVECTORS 

AND  DELTAQ 

STC ALL 

VARIANCE 

LGCUPDTE 

AND  STORE  TP  VARIANCE 

CALL 

GRP2PC 

BON 

EX  IT 

SURFFLAG 

ARE  ANGLES  TO  BE  DONE 

RENDEND 

NO 

EB ANK= 

A IG 

CAF 

A IGBANK 

TS 

B B ANK 

CA 

A IG 

YES,  COMPUTE  MX,  MY,  MZ 

TS 

CDUSPOT 

CA 

AMG 

TS 

CDUSPOT  +2 

CA 

AOG 

TS 

CDUSPOT  +4 

GIMBL  ANGLES  NOW  IN  COUSPOT 

FOR  TRG*NBSM 

TC 

I NTPRET 

GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY 

L P20-P25 


3280 

26,3002 

45175 

0 

3281 

REF 

5 

LAST 

35  1 

26, 3003 

06503 

1 

3282 

REF 

4 

LAST 

267 

26,3004 

47656 

1 

3283 

26,3005 

76505 

0 

3284 

REF 

12 

LAST 

583 

26,3006 

01732 

0 

3285 

REF 

2 

LAST 

151 

26,3007 

27677 

1 

3236 

REF 

3 

LAST 

312 

26,3010 

06501 

0 

3287 

26,3011 

77624 

1 

3288 

REF 

3 

LAST 

566 

26,3012 

47665 

1 

3289 

26,3013 

76505 

0 

3290 

REF 

13 

LAST 

600 

26,3014 

01732 

0 

3291 

REF 

2 

LAST 

151 

26, 3015 

2/705 

0 

3292 

REF 

5 

LAST 

352 

26, 3016 

06477 

0 

3293 

26,3017 

77624 

1 

3294 

REF 

4 

LAST 

600 

26,3020 

47665 

1 

3295 

26,3021 

76505 

0 

3296 

REF 

14 

LAST 

600 

26,3022 

01732 

0 

3297 

REF 

2 

LAST 

151 

26,3023 

37713 

0 SHAFTBQ 

3298 

REF 

1 

26-,  3024 

55360 

1 

3299 

26,3025 

77331 

0 

3300 

REF 

5 

LAST 

597 

26, 3026 

0 1354 

1 

3301 

26,3027 

00003 

1 

3 302 

REF 

2 

LAST 

152 

26,3030 

03724 

0 

3303 

26,3031 

72441 

0 

3304 

REF 

3 

LAST 

600 

26,3032 

03677 

1 

3305 

REF 

6 

LAST 

493 

26,3033 

24C23 

0 

3306 

REF 

3 

LAST 

600 

26,3034 

03724 

0 

3307 

26,3035 

72441 

0 

3308 

REF 

3 

LAST 

600 

26,3036 

03713 

1 

3309 

REF 

6 

LAST 

493 

26,3037 

34021 

0 

3310 

REF 

3 

LAST 

49  3 

26,3040 

26545 

1 

331  1 

26,3041 

41221 

0 

3312 

REF 

3 

LAST 

590 

26,3042 

03736 

0 

3313 

REF 

l 

26,3043 

15440 

0 

3314 

26,3044 

41472 

0 

3315 

26,3045 

52545 

1 

3316 

REF 

3 

LAST 

214 

26,3046 

01701 

0 

331  7 

26,3047 

44257 

1 

3318 

2o , 3050 

56176 

1 

3319 

26,3051 

53605 

1 

3320 

REF 

2 

LAST 

152 

26,3052 

03722 

0 

3321 

26,3053 

21601 

0 

3322 

REF 

6 

LAST 

599 

26,3054 

27547 

l 

3323 

REF 

4 

LAST 

600 

26,3055 

03  724 

0 

3324 

26,3056 

76435 

1 

3325 

REF 

3 

LAST 

600 

26,3057 

03705 

0 

3326 

26,3060 

77656 

1 

3327 

26,3061 

574  14 

1 

3328 

REF 

10 

L AST 

598 

26,3062 

00747 

0 

3329 

26,3063 

55064 

0 

SA  2021112-161 

17:11  MAR.  19,1971 

LEMP20S  .168  PAGE 

USER'S  PAGE 

NO.  94  E 7 S3 

VLOAD 

CALL 
UNITX 
T RG*NBSM 

VXM 

VSL1 

REFSMMAT 

STOVL 

MX 

UNITY 

CALL 

* NBSM* 

VXM 

VSL 1 

REFSMMAT 

STOVL 

MY 

UNIT/ 

CALL 

*NBSM# 

VXM 

VSLL 

REFSMMAT 

STC ALL 

MZ 

RADARANG 

SSP 

VLOAD 

WHCHREAD 

STORE  SHAFT  CODE 

13)  FOR  R 3 IN  NOUN 

DEC 

3 

ULC 

DOT 

S LI 

MX 

STOVL 

S INTH 
ULC 

180 

DOT 

S LI 

MZ 

STC A L L 

COSTH 

ARCTAN 

16D 

BDSU 

DMP 

RRSHAFT 

2PI/8 

SL3R 

PUSH 

DLOAD 

SL3 
X 789 

SRR  * 

BDSU 

0,2 

SHIFT  FROM  -5/-3 

TO  BO 

DMP 

SRR* 

RXZ 

0,1 

SHIFT  TO  EARTH/MOON  SPHERF 

STOVL 

DELTAQ 

ULC 

EARTH  B-29.  MOON 

B-27 

VXV 

VSL1 

MY 

UNIT 

BOFF 

VCOMP 
VEHUPFLG 
+ 1 

BO,  COMP.  IF  CSM 

BEING  CORRECTED 

GAP: 

L 

3330 

333  1 

3332 

333  3 

333  A 

3335 

3336 

3337 

3338 

3339 

3 34-0 

3 341 

3342 

3343 

3344 

3345 

3346 

334  7 

3348 

3349 

3350 

335  1 

3352 

3353 

3354 

3 35  5 

3356 

3357 

335  8 

335  9 

3360 

336  1 

3362 

3363 

3364 

3365 

3366 

3 367 

3368 

3369 

3370 

337  1 

3372 

3373 

3374 

3375 

3376 

3377 

3378 
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P 20- 

P 2 5 

USER'S  PAGE  NO.  95  E7  S3 

RE  F 

15 

LAST 

599 

26,3064 

27525 

0 

STOVL 

BVECTOR 

REF 

5 

LAST 

598 

26,3065 

06505 

1 

ZEROVECS 

REF 

16 

LAST 

601 

26,3066 

03533 

1 

STORE 

BVECTOR  +6 

REF 

17 

LAST 

60  1 

26,3067 

17541 

1 

STOOL 

BVECTOR  +12D 

RFF 

3 

LAST 

600 

26,3070 

03722 

0 

RXZ 

26,3071 

53657 

0 

SR* 

SRR* 

SHIFT  FROM  EARTH/MOON  SPHERE  TO  B-25 

26,3072 

20577 

0 

0-2,1 

26,3073 

56  176 

1 

0,2 

REF 

18 

LAST 

60  1 

26,3074 

03541 

1 

STORE 

BVECTOR  + 1 2D 

26,3075 

7 7 735 

0 

SLOAD 

REF 

1 

26,3076 

02011 

0 

SHAFTVAR 

26,3077 

41215 

1 

DAD 

DMP 

REF 

1 

26,3  100 

15435 

1 

IMUVAR 

RAD** 2 B 1 2 

REF 

4 

LAST 

60  1 

26,3101 

03722 

0 

RXZ 

26,3102 

41257 

1 

SRR* 

DMP 

26,3103 

21601 

0 

0,1 

SHIFT  TO  EARTH/MOON  SPHERE 

REF 

5 

LAST 

60  1 

26,3104 

03722 

0 

RXZ 

26,3105 

53657 

0 

SR* 

SR* 

26,3106 

20577 

0 

0-2,1 

26,3107 

57  176 

0 

0,2 

26,3110 

47057 

0 

SR*  ' 

RTB 

26,3111 

57176 

0 

0,2 

REF 

4 

LAST 

599 

26,3112 

21643 

0 

TPMODE 

STORF  VARIANCE  TRIPLE  PRECISION 

REF 

9 

LAST 

59.9 

26,3113 

36707 

1 

STC  ALL 

VARIANCE 

B— 40 

REF 

3 

LAST 

599 

26,3114 

55400 

0 

LGCUPDTE 

26,3115 

77624 

1 

CALL 

REF 

13 

LAST 

599 

26,3116 

51770 

0 

GRP2PC 

26,3117 

77624 

1 TRUNBQ 

CALL 

REF 

2 

LAST 

600 

26, 3120 

55360 

1 

RADAR ANG 

26,3121 

77331 

0 

SSP 

VLOAD 

STORF  TRUNNION  CODE  (4)  FOR  R3  IN  N49 

REF 

6 

LAST 

600 

26,3122 

01354 

1 

WHCHREAD 

26, 3123 

00C04 

0 

DEC 

4 

REF 

5 

LAST 

600 

26,3124 

03724 

0 

ULC 

26, 3125 

76435 

1 

VXV 

VSL1 

REF 

4 

LAST 

600 

26,3126 

03705 

0 

MY 

26,3127 

76435 

1 

VXV 

VSL1 

(ULC  X MY)  X ULC 

REF 

6 

LAST 

60  1 

26,3130 

03724 

0 

ULC 

26,3  131 

57414 

1 

BOFF 

VCOMP 

BO,  COMP.  IF  CSM  BEING  CORRECTED 

REF 

11 

LAST 

600 

26,3132 

0 C 747 

0 

VEHUPFLG 

26,3133 

55134 

1 

+ 1 

REF 

19 

LAST 

601 

26,3134 

27525 

0 

STOVL 

BVECTOR 

REF 

6 

LAST 

60  1 

26,3135 

06505 

1 

ZEROVECS 

REF 

20 

LAST 

601 

26,3136 

03533 

1 

STORE 

BVECTOR  +6 

REF 

21 

LAST 

601 

26,3137 

17541 

1 

STODL 

BVECTOR  + 1 2D 

REF 

6 

LAST 

601 

26,3140 

03722 

0 

RXZ 

26,3141 

53657 

0 

SR* 

SRR* 

SHIFT  FROM  FARTH/MOON  SPHERE  TO  B-25 

26,3142 

2C577 

0 

0-2,1 

26,3143 

56176 

1 

0,2 

REF 

22 

LAST 

60  l 

26,3144 

03543 

0 

STORE 

BVECTOR  +140 

GAP: 

L 

3379 

3380 

3381 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3389 

3390 

3391 

3392 

3393 

3394 

3395 

3396 

3397 

3398 

3399 

3400 

3401 

3402 

340  3 

3404 

3405 

3406 

340  7 

3408 

3409 

3410 

341  1 

R3412 

R3413 

R341  4 

R3415 

R3416 

R341  7 

R3418 

R3419 

K3420 

R342  1 

R3422 

R3423 

R3424 
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P 20- 

-P  25 

26,3  145 

77735 

0 

SLOAD 

USER'S  PAGE  NO. 

96 

E 7 

RE  F 

1 

26,3146 

02012 

0 

TRUNVAR 

26,3147 

41215 

1 

DAD 

DMP 

REF 

2 

LAST 

60  1 

26,3150 

15435 

1 

I MUVAR 

REF 

7 

LAST 

60  1 

26,3151 

03722 

0 

RXZ 

26,3152 

41257 

1 

SRR* 

DMP 

26,3153 

21601 

0 

0,1 

SHIFT 

TO  FARTH/MOON 

SPHERE 

REF 

3 

LAST 

602 

26,3154 

03722 

0 

RXZ 

26,3155 

53657 

0 

SR* 

SR* 

26,3156 

20577 

0 

0-2,1 

26,3157 

57176 

0 

0,2 

26,3160 

47057 

0 

SR* 

RTB 

26,3161 

5 7176 

0 

0,2 

REF 

5 

LAST 

601 

26,3162 

21643 

0 

TPMODE  . 

STORE 

VARIANCE  TRIPLE  PPECISION 

REF 

10 

LAST 

60  1 

26,3163 

16707 

0 

STOOL 

VARIANCE 

REF 

2 

LAST 

152 

26,3164 

03732 

1 

SINTHETA 

26,3165 

44336 

1 

ASIN 

BDSU 

SIN 

THFTA  IN  PD6 

REF 

3 

LAST 

539 

26,3166 

03734 

1 

RRTRUN 

26,3167 

56405 

0 

DMP 

SL3R 

REF 

2 

LAST 

600 

26,3170 

15440 

0 

2PI/8 

26,3171 

52525 

1 

PDDL 

S L 3 

REF 

4 

LAST 

600 

26,3172 

01703 

l 

X 789  +2 

26,3173 

44257 

1 

SRR* 

BDSU 

SHIFT 

FROM  — 5/-3  TO 

BO 

26, 3174 

56176 

1 

0,2 

26,3175 

53605 

1 

DMP 

SRR* 

REF 

9 

LAST 

60  2 

26,3176 

03722 

0 

RXZ 

26,3177 

21601 

0 

0,1 

REF 

7 

LAST 

6C0 

26,3200 

37547 

0 

STCALL 

DELTAQ 

EARTH 

B— 29 . MOON  8-2 

7 

REF 

4 

LAST 

60  1 

26,320  1 

55400 

0 

LGCUPDTE 

26,3202 

77624 

1 

CALL 

REF 

14 

LAST 

601 

26,3203 

51770 

0 

GRP2PC 

26,3204 

77650 

1 RENDEND 

GOTO 

REF 

1 

26,3205 

50644 

1 

R22LEM93 

FUNCTIONAL  DESCRIPTION 

LSR22.4 

I S THE 

ENTRY 

TO  PERFORM  LUNAR 

SURFACE  NAVIGATION  FOR  THE  LM 

COMPUTER 

ONLY. 

THIS 

ROUTINE  COMPUTES 

THE  6-VECTORS  AND 

DELTA  0 FOR 

RANGE 

AND 

RANGE  RATE 

MEASURED  BY  THE 

RENDEZVOUS  RADAR 

SUBROUTINES  CALLED 

INSTALL  LGCUPDTE  INC0RP1  RP-TO-R 

INTEC-RV  GETULC  INC0RP2 


OUTPUT 


CORRECTED 
NUMBER  OF 
MAGNITUDE 
MAGNITUDE 
UPDATED  W- 


CSM  STATE  VECTOR  ( 
MARKS  INCORPORATED 
OF  POSITION  DEVIAT 
OF  VELOCITY  DEVIAT 
MATRIX 


PERMANENT ) 

IN  MARKCTR 
ION  (FOR  DISPLAY) 
ICN  (FOR  DISPLAY) 


IN  R22DISP 
IN  R22DISP 


METERS  B— 29 
+2  M/CSEC  6-7 
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L P20-P25 

R 342  5 ERASABLE  INITIALIZATION  REQUIRED 

R3426  LM  AND  CSM  STATE  VECTORS 

R 342  7 W-MATRIX 

R 342  8 MARK  TIME  IN  MK  T IMF 

R3429  RADAR  RANGE  IN  RM  METERS  B-29 

R3430  RANGE  RATE  IN  RDOTM  METERS/CSEC  B-T 

R3431  VEHUPFLG 


343  2 

26,3206 

77624 

1 

LSR22.4 

CALL 

343  3 

REF 

15 

LAST 

596 

26,3207 

27447 

0 

INTSTALL 

3434 

26, 3210 

43  C 14 

0 

SET 

CLEAR 

343  5 

REF 

3 

LAST 

596 

26,3211 

01472 

1 

STATEFLG 

3436 

REF 

14 

LAST 

596 

26,3212 

016  74 

0 

V INTFLAG 

343  7 

26,3213 

77624 

1 

CALL 

3438 

REF 

5 

LAST 

596 

26,3214 

53642 

1 

I NTGRCAL 

3439 

26,3215 

77624 

1 

CALL 

3440 

REF 

15 

LAST 

602 

26,3216 

51770 

0 

GRP2PC 

3441 

26,3217 

45C14 

0 

CLEAR 

CALL 

344  2 

REF 

2 

LAST 

595 

26, 3220 

02666 

0 

DMENFL& 

3443 

REF 

16 

LAST 

603 

26,3221 

27447 

0 

I NTS T ALL 

3444 

26,3222 

46  145 

0 

DLOAD 

BHIZ 

344  5 

REF 

3 

LAST 

522 

26, 3223 

03463 

0 

MARKCTR 

3446 

REF 

1 

26,3224 

55237 

1 

INITWMX6 

344  7 

26,3225 

43014 

0 

CLEAR 

SET 

344  8 

REF 

7 

LAST 

596 

26,3226 

01675 

1 

D60R9FLG 

344  9 

REF 

11 

LAST 

596 

26,3227 

01476 

0 

D IMOFLAG 

3450 

26,3230 

43014 

0 

SET 

CLEAR 

345  1 

REF 

15 

LAST 

603 

26,3231 

01474 

1 

V INTFLAG 

3452 

REF 

5 

LAST 

596 

26,3232 

01673 

1 

I NTYPFLG 

345  3 

26,3233 

77624 

1 

CALL 

3454 

REF 

6 

LAST 

603 

26,3234 

53642 

1 

I NTGRCAL 

345  5 

26,3235 

77650 

1 

GOTO 

3456 

REF 

2 

LAST 

596 

26,3236 

54522 

0 

RANGEBQ 

345  7 

26,3237 

77624 

1 

INITWMX6 

CALL 

345  8 

REF 

2 

LAST 

596 

26,3240 

55250 

0 

WLINIT 

3459 

26, 3241 

45  C 14 

0 

SET 

CALL 

3460 

REF 

16 

LAST 

603 

26,3242 

01474 

1 

V INTFLAG 

3461 

REF 

6 

LAST 

59  5 

26, 3243 

26702 

0 

SETIFLGS 

3462 

26,3244 

77624 

1 

CALL 

3463 

REF 

7 

LAST 

603 

26,3245 

53642 

1 

1 NTGRCAL 

3464 

26,3246 

77650 

1 

GOTO 

3465 

REF 

3 

LAST 

603 

26,3247 

54522 

0 

R ANGEBQ 

R3466 

THIS 

ROUTINE  i 

CLEARS 

RF INAL  (DP) 

AND  CALLS  INTEGRV 

34665 

REF 

4 

LAST 

535 

25,2000 

SETLOC 

P20S1 

34666 

25,3642 

BANK 

17:11  MAR 


PAGE 


603 


. 19,1971  LEMP20S  .168 
USER'S  PAGE  NO.  97  E7  S3 


CALL  TO  GFT  LM  POS 


+ VEL  IN  RFF  COORD. 


S FT  MATRIX  SIZE  TO  6X6  FOR  INCORP 
IS  THIS  FIRST  TIME  THROUGH 
YES.  INITIALIZE  6X6  W-MATRIX 


INITIAL! ZE  W-MATRIX 


GAP: 

ASSEMBLE  REVISION  210 

CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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USER'S  PAGE  NO.  98  E7  S3 

346  7 

25,3642 

71220 

1 

I NTGRCAL 

ST  g 

DLOAO 

346  8 

REF 

1 

25,3643 

03675 

0 

IGRET 

3469 

REF 

9 

LAST 

589 

25,3644 

03755 

0 

MKTIME 

3470 

REF 

18 

LAST 

590 

25,3645 

34041 

0 

STC ALL 

TDEC1 

3471 

REF 

8 

LAST 

516 

25,3646 

27  172 

0 

I NTEGRV 

3472 

25,3647 

77650 

1 

GOTO 

3473 

REF 

2 

LAST 

604 

25,3650 

03675 

0 

I GRET 

R3474 

THIS 

ROU 

T INE 

INITIALIZES  THE 

W-MATRIX 

BY  ZEROING 

ALL  W 

THEN  SETTING 

R3475 

DI AGCNAL 

ELEMENTS  TO 

INITIAL 

STOREO  V 

f ALUES . 

34755 

REF 

2 

LAST 

595 

26,2000 

SFTLOC 

P20S3 

34756 

26,3250 

BANK 

3476 

REF 

4 

LAST 

132 

E 5, 1400 

ERANK= 

W 

3477 

26,3250 

77776 

1 

WLINIT 

EXIT 

3478 

REF 

1 

26,3251 

3 3330 

1 

CAF 

W BANK 

3479 

REF 

15 

LAST 

599 

26,3252 

54  006 

0 

TS 

BBANK 

3480 

REF 

1 

26, 3253 

3 3436 

0 

CAF 

WSIZE 

3481 

REF 

1 

26,3254 

55 ' 256 

0 

TS 

W . IND 

3482 

REF 

125 

LAST 

596 

26,3255 

3 4746 

0 

CAF 

ZERO 

3403 

REF 

2 

LAST 

604 

26,3256 

51*256 

1 

INOEX 

W . IND 

3484 

REF 

5 

LAST 

604 

26,3257 

55 ' 400 

0 

TS 

W 

3485 

REF 

3 

LAST 

604 

26,3260 

1 1 • 256 

0 

CCS 

W . INO 

3486 

26,3261 

0 3254 

1 

TC 

-5 

3487 

REF 

2 

LAST 

599 

26,3262 

3 3331 

0 

CAF 

A IGBANK 

RESTORE  EBANK  7 

3488 

REF 

16 

LAST 

604 

26,3263 

54  006 

0 

TS 

BBANK 

3489 

REF 

59 

LAST 

599 

26,3264 

0 6C60 

1 

TC 

I NTPRET 

3490 

26,3265 

67214 

1 

BON 

SLOAD 

IF  ON  LUNAR  SURF ACE , I N I T I AL I ZE  WITH 

349  1 

REF 

11 

LAST 

599 

26, 3266 

04307 

1 

SURFFLAG 

WSURFPOS  AND  WSURFVEL  INSTEAD  OF 

3492 

REF 

l 

26,3267 

55273 

1 

WLSRFPOS 

WRENDPOS  AND  WRENDVEL 

3493 

RFF 

2 

LAST 

122 

26,3270 

02001 

1 

WRENDPOS 

3494 

26,3271 

77650 

1 

GOTO 

3495 

REF 

1 

26,3272 

55275 

1 

WPOSTORE 

3496 

26,3273 

77735 

0 

WLSRFPOS 

SLGAD 

349  7 

REF 

1 

26,3274 

02007 

1 

WSUPFPOS 

3498 

26,3275 

77661 

0 

WPOS  TORE 

SR 

SHIFT  TO  B- 19  SCALE 

3499 

26,3276 

20606 

0 

5 

3500 

REF 

6 

LAST 

604 

26, 3277 

02401 

0 

STORE 

W 

3 50  L 

REF 

7 

LAST 

604 

26,3300 

02411 

1 

STORE 

W + 8D 

3502 

REF 

8 

LAST 

604 

26,3301 

02421 

1 

STORE 

W + 16D 

350  3 

26,3302 

67214 

1 

RON 

SLOAD 

3504 

REF 

12 

LAST 

604 

26,3303 

04307 

1 

SURFFLAG 

3505 

REF 

I 

26,3304 

55310 

0 

WLSRFVEL 

3506 

REF 

1 

26,3305 

02002 

1 

WRENDVEL 

3507 

26,3306 

77650 

1 

GOTO 

3508 

REF 

1 

26,3307 

55312 

1 

W VFLSTOR 

3509 

26,3310 

77735 

0 

WLSRFVEL 

SLOAD 

3510 

REF 

1 

26,3311 

02C10 

1 

WSURFVEL 

3511 

REF 

9 

LAST 

604 

26,3312 

02511 

0 

WVELSTOR 

STORE 

W +72  D 

604 
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3512 

REF 

10 

LAST 

604 

26,3313 

02521 

0 

STORE 

W +80D 

3513 

REF 

11 

LAST 

605 

26,3314 

02531 

1 

STORE 

W +88D 

3514 

26,3315 

77735 

0 

SLOAD 

3515 

REF 

1 

26,3316 

02C03 

0 

W SHAFT 

3516 

REF 

12 

LAST 

605 

26,3317 

02621 

0 

STORE 

W +144D 

3517 

26,3320 

7 7 735 

0 

SLOAD 

351  8 

REF 

1 

26,3321 

02004 

1 

WTRUN 

3519 

REE 

13 

LAST 

605 

26,3322 

02631 

1 

STORE 

W +152D 

3520 

26,3323 

66214 

0 

SET 

SSP 

SET  R ENDWFLG  - W-MATR I X VALID 

3521 

REF 

8 

LAST 

596 

26,3324 

02476 

0 

R ENDWFLG 

3522 

REF 

4 

LAST 

603 

26,3325 

03463 

0 

MARKCTR 

SFT  MARK  COUNTER  EQUAL  ZERO 

3523 

26,3326 

00000 

1 

0 

3524 

26,3327 

77616 

0 

RVO 

3525 

REF 

14 

LAST 

605 

E5, 1400 

EBANK= 

W 

352  6 

REF 

3 

LAST 

603 

26,3330 

540  65 

0 

WBANK 

BBCON 

WLINIT 

3527 

REF 

10 

LAST 

599 

E7, 1457 

EB ANK= 

A I G 

3528 

REF 

2 

LAST 

522 

26,3331 

54067 

1 

4IGSANK 

BBCON 

LSR22.3 

R3529 

GFTULC 

R3530 

THIS 

SUBROUTINE 

COMP 

UTES  THE 

RELATIVE 

POSITION 

VECTOR  BETWEEN  THE 

CSM 

R353  1 

AND 

TFE 

LM,  LEAVING 

THE  UNIT 

VECTOR 

IN 

THE  PUSHLIST  AND 

MPAC  AND 

THE 

R3532 

MAGNITUDE  IN  36D. 

3533 

26,3332 

77201 

1 

GFTULC 

SETPD 

V LOAD 

3534 

26,3333 

00001 

0 

0 

3535 

REF 

1 

26,3334 

01645 

1 

DELTALEM 

3536 

26,3335 

77754 

1 

LXA  ,2 

3537 

REF 

3 

LAST 

596 

26,3336 

03720 

1 

SCALSHFT 

LOAD  X2  WITH  SCALE  SHIFT 

3538 

26,3337 

53257 

1 

VSR* 

VAD 

3539 

26,3340 

57165 

1 

9D , 2 

SHIFT  FOR  EARTH/MOON  SPHFRE 

3540 

REF 

2 

LAST 

516 

26,3341 

01661 

1 

RCVLEM 

3541 

26, 3342 

53715 

1 

PDVL 

VSR* 

3542 

REF 

1 

26,3343 

01573 

1 

DELTACSM 

3543 

26, 3344 

57165 

1 

9D  ,2 

SHIFT  FOR  EARTH/MOON  SPHERE 

3544 

26,3345 

52255 

1 

VAD 

vsu 

3545 

REF 

1 

26,3346 

01607 

1 

RCVCSM 

354  6 

26,3347 

41434 

1 

RTB 

PUSH 

USE  NORMUNIT  TO  PRESERVF  ACCURACY 

3 54  7 

REF 

1 

26,3350 

21722 

0 

N0RMUNX1 

3540 

REF 

7 

LAST 

60  1 

26,3351 

17724 

0 

STOOL 

ULC 

3549 

26,3352 

00045 

0 

36D 

3550 

26,3353 

77657 

0 

SL* 

ADJUST  MAGNITUDE  FROM  NORMUNIT 

3551 

26,3354 

20201 

0 

0,1 

3552 

26,3355 

24045 

0 

STOVL 

3 6D 

ULC  IN  PDO  AND  MPAC,RLC  IN  36D 

3553 

REF 

8 

LAST 

605 

26,3356 

03724 

0 

ULC 

3554 

26,3357 

77616 

0 

RVQ 

R3555  RADARANG 

R3556  THIS  SLBROUT INF  COMPUTES  SINTHETA  = -ULC  DOT  MY 
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R3557 

R X Z = 

( SORT  ( l 

-S INTHETA**2 ) ) 

R3558 

OUTPLT 

R3559 

ULC 

IN 

ULC,  P DO 

R3560 

RLC 

IN 

PD36D 

R3561 

SIN 

THETA  IN 

SINTHETA  AND  PI 

R3562 

RXZ 

NCPM  IN  RXZ  (N 

IN  XI  ) 

3563 

26,3360 

3564 

REF 

2 

LAST 

151 

26,3361 

3565 

REF 

3 

LAST 

597 

26,3362 

3566 

26,3363 

3567 

REF 

5 

LAST 

60  1 

26, 3364 

3568 

26, 3365 

3569 

REF 

3 

LAST 

602 

26,3366 

3570 

26,3367 

3571 

REF 

4 

LAST 

515 

26,3370 

3572 

26,3371 

3573 

26,3372 

3574 

26,3373 

3575 

REF 

4 

LAST 

597 

26,3374 

3576 

REF 

10 

LAST 

602 

26,3375 

3577 

26,3376 

3578 

REF 

3 

LAST 

606 

26,3377 

3579 

26,3400 

3580 

REF 

4 

LAST 

522 

26,3401 

3581 

REF 

1 

26,3402 

3582 

26,3403 

3583 

REF 

3 

LAST 

13  1 

26,3404 

3584 

26,3405 

3535 

REF 

4 

LAST 

605 

26,3406 

3586 

26, 3407 

358  7 

REF 

3 

LAST 

327 

26,3410 

3588 

REF 

4 

LAST 

606 

26,341  1 

3589 

26,3412 

3590 

26,3413 

3591 

REF 

4 

LAST 

606 

26,3414 

3592 

26,3415 

3593 

REF 

1 

26,3416 

3594 

26,3417 

3595 

26, 3420 

3596 

REF 

5 

LAST 

606 

26,3421 

3597 

REF 

1 

26,3422 

3598 

26,3423 

3599 

REF 

1 

26,3424 

360  ( 

REF 

6 

LAST 

606 

26,3425 

3601 

26,3426 

3602 

REF 

2 

LAST 

606 

26,3427 

360  3 

26,3430 

3604 

REF 

1 

26,3431 

3605 

26,3432 

3606 

REF 

5 

LAST 

606 

26,3433 

45020 

1 

R ADAP ANG 

STQ 

CALL 

03675 

0 

RDRET 

55332 

0 

GETULC 

50276 

1 

VCGMP 

DOT 

03705 

0 

MY 

41572 

1 

SL1R 

PUSH 

03732 

l 

STORE 

SINTHETA 

44316 

0 

DSQ 

BDSU 

06475 

1 

DP1/4TH 

41366 

1 

SORT 

DMP 

00C45 

0 

3 6D 

60352 

0 

SL1 

NORM 

00C47 

l 

XI 

03722 

0 

STORE 

R XZ 

77650 

1 

GOTO 

03675 

0 

RDRET 

45020 

1 

LGCUPDTF 

STQ 

CALL 

03675 

0 

LGRET 

46514 

0 

INC0RP1 

51575 

1 

VLOAD 

ABVAL 

02673 

1 

DELTAX  +6 

53754 

1 

LXA  , 2 

SRR* 

03720 

1 

SCALSHFT 

56  174 

0 

2,2 

24317 

1 

STOVL 

R22DISP  +2 

02665 

0 

DELTAX 

53646 

0 

ABVAL 

SRR* 

56174 

0 

2,2 

00315 

0 

STORE 

R22DISP 

54335 

0 

SLOAD 

SR 

02005 

0 

R MAX 

20613 

1 

10D 

50025 

0 

DSU 

BMN 

00315 

0 

R22DISP 

50650 

1 

R22LEM96 

45335 

0 

SLOAD 

DSU 

02006 

0 

V MAX 

00317 

1 

R22DISP  +2 

77640 

0 

BMN 

5 C 6 5 0 

1 

R22LEM96 

77624 

1 

ASTOK 

CALL 

46726 

0 

I NC0RP2 

77650 

1 

GOTO 

03675 

0 

LGRET 
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SIN  THETA  TO  P06 


1 - (SIN  THETA)**2 


SET  SHIFT  COUNTER  IN  XI 
EX  IT 


O-MOON.  2-EARTH 

SET  VEL  DISPLAY  TO  B-7 


SET  POS  DISPLAY  TO  B-29 


GO  DISPLAY 


V M AX  MINUS  VEL.  DEVIATION 


GO  DISPLAY 


GAP: 


3607 
360  7 
360  8 
3609 

3609 

3610 


ASSEMBLE 

REVISION 

210 

OF  A GC  PROGRAM  LUMINARY  BY 

NASA  2021112-161  17:11  MAR.  19,1971 

LEMP20S 

.168  PAGE 

P20-P25 

USER'S  PAGE 

NO.  101 

E 5 S3 

26,3434 

OC  103 

0 

I MUVAR 

2DEC 

E-6  B 12  RAD**  2 

26, 3435 

03370 

0 

26,3436 

OC  241 

0 

WSIZE 

DEC 

161 

26,3437 

31103 

1 

2PI/8 

2DEC 

3.141592653  B-2 

26,3440 

36652 

0 

REF  31 

LAST 

595 

E7 , 1456 

EBANK= 

LOSCOUNT 
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P361 1 PROGRAM  NAME  LRS24.1  RR  SEARCH  ROUTINE 
R3612  MOD  NC  0 BY  P VOLANTE  SCC 


DATE  1-15-67 


R3613  FUNCTICNAL  DESCRIPTION 

R36I4  DRIVES  THE  RENDEZVOUS  RADAR  IN  A HEXAGONAL  SEARCH  PATTERN  ABOUT  THE  LOS  TO  THE  CSM  (COMPUTED  FROM  THE  CSM  AND  LM 
R3616  STATE  VECTORS)  CHECKING  FOR  THE  DATA  GOOD  DISCRETE  AND  MONITORING  THE  ANGLE  BETWEEN  THE  RADAR  BORFSIGHT  AND  THE 

R 361 8 LM  + Z AXIS.  IF  THIS  ANGLE  EXCEEDS  30  DEGREES  THE  PREFERRED  TRACKING  ATTITUDE  ROUTINE  IS  CALLED  TO  PERFORM  AN 

R 362  0 ATTITUDE  MANEUVER. 


R3621  CALLING  SEQUENCF  - RANKCALL  FCR  LRS24.1 


R 362 2 SUBROUTINES  CALLED 


R3623 
R3624 
R362  5 
R3626 
R3627 


LEMCON  IC 
CSMCGNIC 
J08DELAY 
WAITLIST 
PPNB 


R61LEM 

RRDESSM 

FLAGDOWN 

FLAGUP 

BANKCALL 


R3628  EXIT 


TO  ENDOF JOB  WHEN  THE  SEARCH  FLAG 


(SRCHOPT)  IS  NOT  SET 


R3629  OUTPUT 


R3630 

CATAGOOD 

( SP  I 

i -FOR 

DISPLAY 

IN 

Rl- 

00000 

INDICATES 

NO  LOCKUN 

R3631 

R3632 

OMEGAD 

t SP] 

-FOR 

DISPLAY 

IN 

R2- 

11111 

ANGLE 

INDICATES 
BETWEEN  RR 

LOCKON  ACHIEVED 

BORESIGHT  VECTOR  AND  THE  SPACECRAFT  +7  AXIS 

R3634 
R 363  5 
R363  6 
R3637 


ERASABLE  I 
SEARCH 
LM  AND 
DEBRIS 


NITI ALIZATION  REQUIRED 

FLAG  MUST  BE  SET 

CSM  STATE  VECTORS  AND  REFSMMAT 


MATRIX 


R 3 6 3 8 

RLMSRCH 

UXVECT 

R3639 

VXRLM 

UYVECT 

R3640 

LOSDESRD 

NSRCHPNT 

R 3 64 1 

DAT ACOOD 

OMEGAD 

R3642 

MP  AC 

PUSHLIST 

3 64  3 
3 64  4 

REF 

REF 

1 

126 

LAST 

604 

26,3441 

3 

4 746 

0 

LRS24. 1 

COUNT  * 
CAF 

i T/LR  S24 
ZERO 

3645 

REF 

2 

LAST 

150 

26,3442 

55 

' 736 

0 

TS 

NSRCHPNT 

3646 

REF 

54 

LAST 

580 

26,3443 

3 

4727 

1 

CHKSRCH 

CAF 

B IT  14 

3647 

26,3444 

0 

C 006 

1 

EXTEND 

SFT  SEARCH  PATTERN  POINT  COUNTER  TO  ZERO 
ISSUE  AUTO  TRACK  ENABLE  TO  RADAR 
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364  8 

REF 

39 

LAST 

580 

26,3445 

05 

012 

1 

3649 

REF 

1 

26,3446 

3 

4727 

l 

3650 

REF 

10 

LAST 

568 

26, 3447 

7 

C076 

1 

3651 

26,3450 

C 

CC06 

1 

3652 

REF 

95 

LAST 

566 

26,3451 

l 

5146 

0 

3653 

REF 

l 

26,3452 

3 3713 

1 

3654 

26,3453 

C 0004 

0 

3655 

REF 

23 

LAST 

579 

26, 3454 

C 5205 

0 

3656 

REF 

32 

LAST 

607 

E 7 , 1456 

365  7 

REF 

3 

LAST 

531 

26, 3455 

03642 

1 

3657 

26,3456 

54067 

1 

365  8 

26,3457 

0 0003 

1 

3659 

REF 

57 

LAST 

588 

26,3460 

4 0110 

0 

3660 

REF 

7 

LAST 

562 

26,3461 

7 4727 

0 

3661 

26,3462 

0 0C06 

1 

366  2 

REF 

56 

LAST 

609 

26, 3463 

1 £146 

0 

3663 

REF 

60 

LAST 

604 

26,3464 

0 6060 

1 

3664 

26,3465 

43234 

0 

3665 

REF 

13 

LAST 

534 

26,3466 

21603 

1 

3666 

REF 

1 

26,3467 

15715 

0 

3 66  7 

REF 

19 

LAST 

604 

26,3470 

34041 

0 

3668 

REF 

4 

LAST 

533 

26,3471 

27136 

0 

3669 

26,3472 

77775 

1 

3670 

REF 

7 

LAST 

533 

26,3473 

00001 

0 

3671 

REF 

4 

LAST 

155 

26,3474 

27676 

0 

3672 

REF 

3 

LAST 

583 

26,3475 

00007 

0 

3673 

REF 

1 

26,3476 

17740 

1 

3674 

REF 

6 

LAST 

583 

26,3477 

00015 

0 

3675 

REF 

20 

LAST 

609 

26,3500 

34041 

0 

3676 

REF 

3 

LAST 

583 

26,3501 

27124 

0 

3677 

26,3502 

52375 

1 

3678 

REF 

8 

LAST 

609 

26, 3503 

00001 

0 

3679 

REF 

5 

LAST 

609 

26,3504 

03676 

0 

3680 

26,3505 

77656 

1 

3681 

REF 

2 

LAST 

150 

26,3506 

27712 

0 

3682 

KEF 

4 

LAST 

609 

26,3507 

00007 

0 

368  3 

26, 3510 

47256 

0 

3684 

REF 

9 

LAST 

609 

26,3511 

00001 

0 

3685 

26,3512 

77656 

1 

3686 

REF 

2 

LAST 

150 

26, 35L3 

03704 

1 

3687 

26,3514 

52375 

1 

3688 

REF 

5 

LAST 

609 

26,3515 

00007 

0 

3689 

REF 

2 

LAST 

609 

26,3516 

03740 

1 

3690 

26,3517 

76521 

0 

3691 

REF 

15 

LAST 

600 

26,3520 

01732 

0 

3692 

REF 

3 

LAST 

609 

26,3521 

03740 

1 

3693 

26,3522 

53  135 

0 
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WOR 

CAP 

MASK 

EXTEND 

BZF 


CAF 

INH I NT 
TC 

EBAN  K= 
2C  ADR 

REL 1NT 
CS 

MASK 

EXTEND 

BZF 

TC 

RTB 


1 STCALL 
VLOAD 
STOVL 
STODL 
STCALL 
VLOAD 


UNIT 

STnVL 

UNIT 

UNIT 

STORE 

VLOAD 


MX  V 


STORE 

SLOAD 


USER'S  PAGE  NO.  103 


F 7 S3 


CHAN12 

SRCHOBIT 

FLAGWRD2 

CHECK  IF  SEARCH  STILL 
t SRCHOPT  FLAG  SET) 

REQUESTED 

ENDOF JOB 

NO-TFRMINATE  JOB 

6SLC0NDS 

SCHEDULE  TASK  TO  DRIVE 

RADAR  TO 

NEXT  PT. 

WAITLIST 
LOSCOUNT 
C ALL  DGCH 

IN  6 SECONDS 

R ADMOOES 
REMODBI T 

IS  R F MOD E IN  PROGRESS 

ENDOF JOB 
I NTPRET 

YES-  WAIT  SIX  SECONDS 

DAD 

LOADTIME 
1 . 5SECS 
TDEC1 
LEMCONIC 

COMPUTE  LOS  AT  PRESENT  TIME  + 1 
EXTRAPOLATE  LM  STATE  VECTOR 

.5  SEC. 

RATT 

RLMSRCH 

V ATT 

S AVLEMV 

TAT 

T DEC  1 

CSMCONIC 

VSU 

RATT 

RLMSRCH 

SAVE  LEM  POSITION 

SAVE  LEM  VELOCITY 

EXTRAPOLATE  CSM  STATE 
EXTRAPOLATE  CSM  STATE 
LOS  VECTOR  = R ( CSM ) -R ( 

VECTOR 

VECTOR 

LM) 

LOSDESRD 

V ATT 

VXV 

RATT 

STORE  DESIRED  LOS 

COMPUTE  UN  I T ( V ( CM ) CROSS  P ( CM ) ) 

VXRCM 
VSU 
V ATT 
S AVLEMV 
VSL1 

R EFSMMAT 

SAVLEMV 

RZE 

CONVERT  FROM  REFERENCE 

VLC  = V(CSM)  - VI LM) 
CHECK  IF  N=0 

TO  STABLE 

MEMBER 

GAP:  ASSEMBLE  REVISION  210  CF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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3694 

REF 

3 

LAST 

608 

26,3523 

03737 

1 

N SRCHPNT 

3695 

REF 

l 

26,3524 

55635 

1 

DESGLOS 

3696 

26, 3525 

53025 

0 

DSU 

BZE 

3697 

REF 

1 

26,3526 

15711 

1 

ONEOCT 

3698 

REF 

1 

26,3527 

55622 

1 

CALCXY 

3699 

26,3530 

77775 

1 

VLOAD 

3700 

REF 

2 

LAST 

150 

26,353  l 

03720 

1 

UXVECT 

370  1 

REF 

1 

26,3532 

24C15 

0 

STDVL 

UXVECTPR 

3702 

REF 

2 

LAST 

150 

26,3533 

03726 

1 

UYVECT 

370  3 

REF 

1 

26,3534 

00023 

0 

STORE 

U YVECTPR 

3704 

26,3535 

77761 

1 

VXSC 

3 70  5 

REF 

1 

26,3536 

15705 

1 

S IN60DEG 

3706 

REF 

3 

LAST 

610 

26,3537 

27720 

1 

STOVL 

UXVECT 

3 70  7 

REF 

2 

LAST 

610 

26,3540 

0CC15 

0 

UXVECTPR 

3708 

26,3541 

53361 

0 

VXSC 

VAD 

3709 

REF 

1 

26,3542 

06503 

1 

C0S60DEG 

3710 

REF 

4 

LAST 

610 

26,3543 

03720 

1 

UXVECT 

371  1 

26,3544 

77656 

1 

UNIT 

3712 

REF 

5 

LAST 

610 

26,3545 

27720 

1 

STOVL 

UXVECT 

371  3 

REF 

3 

LAST 

610 

26,3546 

00015 

0 

UXVECTPR 

3 714 

26,3547 

77761 

l 

VXSC 

3715 

REF 

2 

LAST 

610 

26, 3550 

15705 

1 

S IN60DEG 

3716 

REF 

3 

LAST 

610 

26,3551 

27726 

1 

STOVL 

UYVECT 

3717 

REF 

2 

LAST 

610 

26,3552 

00023 

0 

UYVECTPR 

3 71  8 

26,3553 

52361 

1 

VXSC 

VSU 

3719 

REF 

2 

LAST 

610 

26,3554 

06503 

1 

C0S60DEG 

3720 

REF 

4 

LAST 

610 

26,3555 

03726 

1 

UYVECT 

372  1 

26,3556 

77656 

1 

UNIT 

3722 

REF 

5 

LAST 

610 

26,3557 

03  726 

1 

STORE 

UYVECT 

3723 

26,3560 

53361 

0 

OFFCALC 

VXSC 

VAD 

3724 

REF 

I 

26,3561 

15707 

0 

OFFST FAC 

3725 

REF 

3 

LAST 

609 

26,3562 

03712 

0 

LOSDESRD 

3 72  6 

26,3563 

64256 

1 

UNIT 

M XV 

3727 

REF 

16 

LAST 

609 

26,3564 

01732 

0 

R EFSMMAT 

3728 

26,3565 

77772 

0 

VSL  1 

3729 

REF 

12 

LAST 

590 

26,3566 

25101 

0 

CGNTDESG 

STOVL 

RRTARGET 

3730 

REF 

4 

LAST 

609 

26,3567 

03740 

1 

S AVLEMV 

3 73  1 

REF 

5 

LAST 

583 

26,3570 

01757 

0 

STORE 

LOSVEL 

3732 

26,3571 

77776 

1 

EX  IT 

3733 

26,3572 

0 0004 

0 

INHINT 

3 73  4 

REF 

8 

LAST 

583 

26, 3573 

0 6050 

1 

TC 

KILLTASK 

3735 

REF 

4 

LAST 

583 

26,3574 

52573 

1 

CADR 

DESLOOP  +2 

A 3 73  6 

3 73  7 

REF 

2 

LAST 

531 

26,3575 

4 4726 

1 

CUNT  DES  2 

CS 

CDES8 IT 

3 73  8 

REF 

98 

L AST 

609 

26,3576 

7 0110 

0 

MASK 

RADMODES 

3739 

REF 

3 

1 AST 

610 

26,3577 

6 4726 

0 

AD 

CDESR IT 

3740 

REF 

99 

LAST 

610 

26,3600 

54  110 

0 

TS 

RADMODES 

3 74  1 

REF 

61 

LAST 

609 

26,3601 

0 6060 

1 

TC 

INTPRET 

3 742 

26,3602 

77624 

1 

CALL 
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YES-DESIGNATE  ALONG  LOS 
IS  N=1 

YES-CALCULATE  X AND  Y AXES  OF 
SEARCH  PATTERN  COORDINATE  SYSTEM 
NO-ROTATE  X-Y  AXES  TO  NEXT  SEARCH  POINT 

SAVE  ORIGINAL  X AND  Y VFCTORS 
UX  PR  I ME  = ORIGINAL  UX 
UYPRIME  = ORIGINAL  UY 

IJX  =(COS  601UXPR  -MSIN  601UYPR 


UY=(— SIN60IUXPR  +1C0S  60) UYPR 


OFFSET  VECTOR  = K(UY) 

LOS  VECTOR  + OFFSET  VECTOR  DEFINES 
DESIRED  POINT  IN  SEARCH  PATTERN 

CONVERT  TO  STABLE  MEMBER  COORDINATES 


KILL  ANY  PRESENTLY  WAITLISTED  TASK 
WHICH  WOULD  DESIGNATE  TO  THE  LAST 
POINT  IN  THE  PATTERN 

SET  BIT  15  OF  RADMODES  TO  INDICATE 
A CONTINUOUS  DESIGNATE  WANTED. 


GAP: 
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3 74  3 

REF 

3 

LAST 

526 

26,3603 

52364 

1 

3744 

26,3604 

77776 

1 

EXIT 

3745 

REF 

1 

26,3605 

0 3674 

1 

TC 

3746 

REF 

2 

LAST 

61  1 

26,3606 

0 3674 

1 

TC 

A3  74  7 

A3748 

3 74  9 

26,3607 

0 0006 

1 

OMEGCALC  EXTEND 

3750 

REF 

13 

LAST 

588 

26,3610 

3 0036 

1 

DC  A 

3 75  1 

REF 

10 

LAST 

539 

26,3611 

53 ' 753 

0 

DXCH 

3752 

REF 

62 

LAST 

610 

26,3612 

0 6060 

1 

TC 

3753 

26,3613 

77624 

1 

CALL 

3754 

REF 

3 

LAST 

590 

26,  36  14 

46041 

0 

3755 

26,3615 

65545 

0 

DLOAD 

3756 

26,3616 

00045 

0 

3757 

REF 

3 

LAST 

150 

26,3617 

03735 

0 

STORE 

3758 

26,3620 

77776 

1 

EXIT 

3759 

REF 

97 

LAST 

609 

26,3621 

0 5146 

1 

TC 

RRDESSM 


L IMALARM 
LIMALARM 


CDUT 
TANGNB 
I NTPRET 

RRNB 
ACOS 
3 60 

UMEGDISP 


ENDOF JOB 
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DESIGNATE  RADAR  TO  RRTARGET  VECTOR 


LOS  NOT  IN  MODE  2 COVERAGE  (P22) 
VEHICLE  MANEUVER  REQUIRED  (c>20) 


COMPUTE  OMEGA, ANGLE  BETWEFN  RR  LOS  AND 
SPACECRAFT  +Z  AXIS 


OMEGA  IS  ARCCOSINE  OF  Z-COMPONENT  OF 
VECTOR  COMPUTED  BY  RRNB  (LEFT  AT  320) 
STORE  FOR  DISPLAY  IN  R2 


GAP:  ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  202L112-161 


L P20-P25 


P3760 

CALCULATE 

X AND 

i Y ' 

VECTORS  FOR 

SEARCH 

PATTERN  COORDINATE 

SYSTEM 

3 761 

26,3622 

47375 

0 

CALCXY 

VLOAD 

VXV 

3762 

REF 

3 

LAST 

609 

26, 3623 

03704 

1 

VXRCM 

3763 

REF 

4 

LAST 

610 

26,3624 

03712 

0 

LGSDESRD 

3764 

26,3625 

77656 

1 

UNIT 

3765 

REF 

6 

LAST 

610 

26,3626 

27720 

1 

STOVL 

UXVECT 

3766 

REF 

5 

LAST 

612 

26,3627 

03712 

0 

LOSDESRD 

3767 

26,3630 

53435 

0 

VXV 

UNIT 

3768 

REF 

7 

LAST 

612 

26,3631 

C 3 7 20 

1 

UXVECT 

3769 

REF 

6 

LAST 

610 

26,3632 

03726 

1 

STORE 

UYVECT 

3770 

26,3633 

77650 

1 

GOTO 

3771 

REF 

1 

26,3634 

55560 

1 

OFFCALC 

3772 

26,3635 

64375 

1 DESGLOS 

VLOAD 

M XV 

3773 

RFF 

6 

LAST 

612 

26, 3636 

03712 

0 

LOSDESRD 

3774 

REF 

17 

LAST 

610 

26,3637 

01732 

0 

REFSMMAT 

3775 

26,3640 

52  172 

1 

VSL1 

GOTO 

3776 

REF 

1 

26, 3641 

55566 

1 

CONTDESG 

3777 

REF 

26 

LAST 

514 

26, 3642 

30 

074 

1 

C ALL  DGCH  CAE 

FLAGWRDO 

3778 

REF 

10 

LAST 

555 

26,3643 

7 

4736 

0 

MASK 

RNDVZBIT 

3779 

26,3644 

0 

CC06 

1 

EXTEND 

3780 

REF 

27 

LAST 

570 

26 , 3645 

1 

5263 

1 

BZF 

TASKOVER 

3781 

REF 

2 

LAST 

505 

26,3646 

3 

7734 

0 

CAF 

PR  1025 

3782 

REF 

23 

LAST 

562 

26,3647 

0 

5076 

0 

TC 

F INDVAC 

3733 

REF 

6 

LAST 

609 

E7, 1675 

EBANK= 

RLMSRCH 

3784 

REF 

1 

26,3650 

0 

3653 

1 

2C  ADR 

DATGOCHK 

3704 

REF 

1 

26,3651 

54067 

1 

3785 

REF 

28 

LAST 

612 

26,3652 

0 

5263 

0 

TC 

TASKOVER 

3786 

REF 

29 

LAST 

577 

26,3653 

3 

4741 

1 

DATGOCHK  CAF 

B IT4 

3787 

26,3654 

0 

0006 

1 

EXTEND 

3788 

REF 

19 

LAST 

588 

26, 3655 

02 

C 33 

0 

RAND 

CHAN33 

3789 

26,3656 

C 

0006 

1 

EXTEND 

3790 

REF 

1 

26,3657 

1 

3666 

0 

BZF 

S TORE  IS 

3 791 

REF 

13 

LAST 

570 

26, 3660 

4 

6263 

1 

CS 

SIX 

3 79  2 

REF 

4 

LAST 

610 

26,3661 

6 

1736 

1 

AD 

NSRCHPNT 

3793 

26,3662 

0 

0006 

1 

EXTEND 

3794 

REF 

2 

LAST 

531 

26,3663 

1 

3441 

1 

BZF 

LRS24.1 

3795 

REF 

5 

LAST 

612 

26,3664 

25 

• 736 

1 

INC  R 

NSRCHPNT 

3 796 

REF 

1 

26,3665 

1 

3443 

0 

TC  F 

CHKSRCH 

3 79  7 

REF 

1 

26, 3666 

3 3703 

0 

ST0RE1S  CAF 

ALLIS 

3 79  8 

REF 

5 LAST  530 

26,3667 

55' 733 

0 

TS 

DAT AGOO 

17:11  MAR.  19,1971  LEMP20S 
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612 


UX  = ( VLM  X RLMIX  LOS 


UY  = LOS  X UX 


WHEN  N=  0, DESIGNATE  ALONG  LOS 

CONVERT  LOS  FROM  REFERENCE  TO  SM  COORDS 


IS  RENDEZVOUS  FLAG  SET 


NO-EX  IT  R24 

YES  -SCHEDULE  JOB  TO  DRIVF  RADAR  TO  NEXT 
POINT  IN  SEARCH  PATTERN 


CHECK  IF  DATA  GOOD  DISCRETE  PRESENT 


YES-  GO  TO  STORE  lllll  FOR  DISPLAY  IN  R1 
IS  N GREATER  THAN  6 


YES  - RESET  N = 0 AND  START  AROUND  AGAIN 
NO-SET  N = N+l  AN  GO  TO 
NEXT  POINT  IN  PATTERN 


STORE  lllll  FOR  DISPLAY  IN  R1 


GAP: 

ASSEMBLE 

REV  I S I 

ON  210 

CF  AGO  PROGRAM  LUMINARY 

BY  NASA  202 

1112-161 
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L 

P 20- 

P 25 

USER'S  PAGE  NO.  107 

E 7 S3 

3799 

26,3670 

C 0004 

0 

INHINT 

3800 

RE  F 

9 

LAST 

610 

26, 3671 

0 6050 

1 

TC 

K ILLT ASK 

DELETE  DESIGNATE  TASK  FROM 

380  1 

REF 

5 

LAST 

610 

26, 3672 

52573 

1 

C ADR 

DESLOOP  +2 

WAITLIST  USING  KILLTASK 

3 80  2 

REF 

98 

LAST 

61  1 

26,3673 

0 5 146 

1 

TC 

ENOOF  JOB. 

3 80  3 

REF 

24 

LAST 

580 

26,3674 

0 5571 

1 LIMALARM  TC 

ALARM 

ISSUE  ALARM  527-LOS  NOT  IN 

M0DE2 

3 804 

26,3675 

CC527 

1 

OCT 

527 

COVERAGE  IN  P22  OR  VEHICLE 

MANEUVER 

3805 

26,3676 

C 0004 

0 

INHI NT 

REQUIRED  IN  P20 

3806 

REF 

10 

LAST 

613 

26, 3677 

0 6050 

1 

TC 

KILLTASK 

KILL  WAITLIST  CALL  FOR  NEXT 

3807 

REF 

4 

LAST 

60  9 

26,3700 

55642 

L 

CADR 

C ALLOGCH 

POINT  IN  SEARCH  PATTERN 

3 8075 

REF 

3 

LAST 

526 

26, 3701 

0 6032 

0 

TC 

CLRAOMDL 

CLEAR  BITS  10  £ 15  IN  RADMODES 

3808 

REF 

99 

LAST 

613 

26,3702 

0 5146 

1 

TC 

ENDOF JOB 

3 80  9 

26,3703 

25547 

0 

ALLIS 

DEC 

11111 

3810 

26,3704 

33555 

1 

S IN60DEG 

2DEC 

. 86603 

3810 

26,3705 

01106 

1 

381  1 

REF 

7 

LAST 

374 

23,2502 

CPS60DEG 

= 

DPHALF 

( 2DEC  .50) 

3812 

0014 

UXVECTPR 

EQUALS 

1 2D 

PREVIOUS 

3813 

0022 

U YVECTPR 

EQUALS 

18D 

3814 

0014 

RLMUNIT 

EQUALS 

1 2 D 

3815 

26,3706 

01642 

0 

OFFSTFAC 

2DEC 

0.05678 

TANGENT  OF  3.25  DEGREES 

3815 

26,3707 

11045 

0 

3816 

26,3710 

00001 

0 

DNEOCT 

OCT 

00001 

****  NOTE-THESE  TWO  CONSTANTS  MUST  **** 

3817 

26,3711 

00000 

1 

3 SECONDS 

2DEC 

300 

****  BE  IN  THIS  OROER  BECAUSE  **** 

3817 

26,3712 

0G454 

1 

A3818 

****  ONEOCT  NEEDS  A LOWER  ORDER  **** 

A3819 

****  WORD  OF  7.ER0FS  ##** 

3820 

26,3713 

01130 

1 

6 SECONDS 

DEC 

600 

3821 

26,3714 

oocoo 

1 

1 . 5SECS 

2DEC 

1 50 

3821 

26,3715 

00226 

1 

3822 

REF 

3 

LAST 

502 

23,2504 

ZERO/SP 

EQUALS 

HI6ZER0S 

382  3 

4607 

BLOCK 

02 

3824 

REF 

5 

LAST 

461 

6000 

SETLOC 

FFTAG5 

3825 

6043 

BANK 

3826 

REF 

l 

COUNT  * 

$i/P20 

3 82  7 

6043 

0 0006 

1 

GOTO V56 

EXTEND 

P20  TERMINATES  BY  G0T0V56  INSTEAD  OF 

3828 

REF 

1 

6044 

3 6047 

1 

DCA 

VB56CADR 

GOTOPOOH 

3829 

REF 

4 

LAST 

472 

6045 

1 5167 

0 

TCF 

SUPDXCHZ 

3830 

REF 

3 

LAST 

50  1 

E7, 1471 

EB ANK= 

WHOCARES 

3831 

REF 

2 

LAST 

275 

6 046 

03020 

0 

VB56CADR 

2C  ADR 

TRMTRACK 

3831 

6047 

66  107 

1 
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P3832  W-MATRIX  MONITOR 


3833 

31,2007 

BANK 

31 

3834 

REF 

1 

31,2000 

SETLOC 

V B67 

3835 

31,2007 

BANK 

3836 

REF 

1 

COUNT* 

$ $/E  XTV3 

3837 

REF 

4 

LAST 

330 

E4, 1571 

EBANK= 

WWPOS 

3838 

REF 

63 

LAST 

611 

31,2007 

0 6060 

1 

V67CALL 

TC 

I NTPRET 

3839 

31,2010 

77624 

1 

CALL 

3 84  0 

REF 

1 

31,201  l 

62120 

0 

V67WW 

3841 

31,2012 

77776 

1 

EXIT 

3842 

31,2013 

0 C006 

1 

EXTEND 

3843 

REF 

5 

LAST 

614 

31,2014 

3 1572 

0 

DC  A 

WWPOS 

3844 

REF 

2 

LAST 

33  0 

31,2015 

53 ' 600 

1 

DXCH 

WWBIAS  +: 

3845 

31,2016 

0 0006 

1 

EXTEND 

3846 

REF 

3 

LAST 

330 

31,2017 

3 1574 

0 

OCA 

WWVEL 

3 84  7 

REF 

3 

LAST 

614 

31,2020 

53*602 

0 

DXCH 

WWBIAS  +' 

3 34  8 

31,2021 

0 0006 

1 

EXTEND 

3849 

REF 

4 

LAST 

614 

31, 2022 

3 15  76 

1 

DC  A 

WWBIAS 

3850 

REF 

5 

LAST 

614 

31,2023 

53 1 604 

0 

DXCH 

WWBIAS  +< 

3851 

REF 

1 

31,2024 

3 2143 

0 

V06N99DS 

CAF 

V06N99 

3852 

REF 

162 

LAST 

596 

31,2025 

0 4607 

1 

TC 

BANKCALL 

3853 

REF 

7 

LAST 

303 

31,2026 

20323 

1 

CADR 

GOXDSPF 

3854 

REF 

32 

LAST 

503 

31,2027 

l 5474 

1 

TC  F 

ENDEXT 

3855 

REF 

1 

31,2030 

1 2032 

0 

TC  F 

V 6N99PR0 

3856 

REF 

1 

31,2031 

1 2024 

1 

TCF 

V06N99DS 

3857 

31,2032 

22  007 

0 

V 6N99  PRO 

ZL 

3858 

REF 

11 

LAST 

523 

31,2033 

3 4747 

1 

CA 

FIVE 

3859 

REF 

169 

LAST 

578 

31,2034 

54  002 

1 

NS9L00P 

TS 

Q 

3860 

REF 

170 

LAST 

614 

31,2035 

50  002 

0 

INDEX 

0 

3861 

REF 

6 

LAST 

614 

31,2036 

4 1571 

1 

CS 

WWPOS 

3 86  2 

REF 

171 

LAST 

614 

31,2037 

50  002 

0 

INDEX 

0 

3863 

REF 

7 

LAST 

614 

31, 2040 

6 1577 

0 

AD 

WWPOS  +6 

3864 

REF 

89 

LAST 

538 

31,2041 

26  001 

1 

ADS 

L 

3865 

REF 

172 

LAST 

614 

31,2042 

10  002 

1 

CCS 

Q 

3866 

REF 

l 

31,2043 

1 2034 

0 

TCF 

N99L00P 

3867 

REF 

198 

LAST 

590 

31,2044 

22  000 

1 

LXCH 

A 

3868 

31,2045 

0 C006 

1 

EXTEND 

3869 

REF 

1 

31,2046 

1 2051 

0 

BZF 

V06N9933 

3870 

«EF 

36 

LAST 

574 

31,2047 

0 5506 

1 

TC 

UPFLAG 

3871 

REF 

1 

31,2050 

OC  160 

0 

ADRES 

V67FLAG 

3872 

REF 

64 

LAST 

614 

31,2051 

0 6060 

1 

V06N9933 

TC 

INTPRET 

3873 

31,2052 

77414 

0 

BON 

EXIT 

3874 

REF 

2 

LAST 

6 14 

31,2053 

C3707 

1 

V67FLAG 

3875 

31,2054 

62C56 

0 

+ 2 

3876 

REF 

33 

LAST 

614 

31,2055 

1 5474 

1 

TCF 

ENDEXT 

3877 

3 L , 2056 

77745 

1 

DLOAD 
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SAVE  THE  PRESENT  N99  VALUES  FOR 
COMPARISON  AFTER  THF  DISPLAY 


THE  SUM  OF  ALL  DIFFERENCES  MUST  BE  ZERO 
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3878 

REF 

8 

LAST 

614 

31,2057 

02  172 

1 

WWPOS 

3879 

31,2060 

72412 

0 

SL4 

SL1 

3880 

31,2061 

14001 

0 

STOOL 

00 

3881 

REF 

4 

LAST 

614 

31, 2062 

C2  174 

1 

WWVEL 

3882 

31,2063 

14003 

1 

STOOL 

20 

3883 

REF 

6 

LAST 

614 

31,2064 

02176 

0 

WWBI AS 

3884 

31,2065 

77661 

0 

SL 

3885 

31,2066 

20213 

0 

10D 

3886 

31,2067 

00005 

1 

STORE 

4D 

3887 

31 , 2070 

72014 

1 

BON 

LXA,  1 

3888 

REF 

13 

LAST 

604 

31,2071 

04307 

1 

SURFFLAG 

3889 

REF 

1 

31,2072 

62102 

0 

V67SURF 

3890 

31,2073 

00000 

1 

00 

389  1 

31,2074 

72130 

0 

SXA  ,1 

LXA,  1 

3 89  2 

REF 

3 

LAST 

604 

31,2075 

02000 

0 

WRENDPOS 

3893 

31,2076 

0C002 

0 

2D 

3894 

31,2077 

52130 

1 

SX  A , 1 

GOTO 

3895 

REF 

2 

LAST 

604 

31,2100 

02001 

1 

WRENDVEL 

3896 

REF 

1 

31,2101 

62110 

0 

V67CLRF 

3 89  7 

31,2102 

66150 

0 

V67SURF 

LX  A , 1 

SXA,  1 

3898 

31,2103 

OCOOO 

1 

00 

3899 

REF 

2 

LAST 

604 

31,2104 

02006 

0 

WSURFPOS 

3900 

31,2105 

66150 

0 

LXA  , 1 

SXA,  1 

3901 

31,2106 

00002 

0 

2D 

3902 

REF 

2 

LAST 

604 

31,2107 

02007 

1 

W SURFVFL 

3903 

31,2110 

66150 

0 

V67CLRF 

LXA  , 1 

SXA,  1 

3904 

31,2111 

00004 

0 

4D 

3905 

REF 

2 

LAST 

605 

31,2112 

02003 

0 

WTRUN 

3906 

31,2113 

77730 

0 

SXA  , 1 

3907 

REF 

2 

LAST 

605 

31,2  114 

02002 

1 

W SHAFT 

390  8 

31,2115 

77414 

0 

CLEAR 

EXIT 

3909 

REF 

9 

LAST 

605 

31,2116 

02676 

1 

R ENOWFLG 

3910 

REF 

34 

LAST 

614 

31,2117 

1 5474 

1 

TCF 

ENDEXT 

391  1 

31,2120 

4CC20 

1 

V67WW 

STQ 

BOV 

3912 

REF 

6 

LAST 

392 

31,2121 

00051 

0 

S 2 

3913 

31,2122 

62123 

0 

+ 1 

3914 

31,2123 

45014 

0 

CLEAR 

CALL 

3915 

REF 

3 

LAST 

614 

31,2124 

03667 

0 

V67FLAG 

3916 

REF 

17 

LAST 

603 

31,2125 

27447 

0 

INTSTALL 

391  7 

31,2126 

71331 

0 

SSP 

OLOAO 

3918 

REF 

6 

LAST 

397 

31,2127 

00051 

0 

SI 

3919 

31,2130 

00006 

1 

DEC 

6 

3920 

REF 

7 

LAST 

60  1 

31,2131 

06505 

1 

ZEROVECS 

3921 

REF 

9 

LAST 

615 

31,2132 

02  172 

1 

STORE 

WWPOS 

3922 

REF 

5 

LAST 

615 

31,2133 

02  174 

1 

STORE 

WWVEL 

3923 

REF 

7 

LAST 

615 

31,2134 

02176 

0 

STORE 

WWBI AS 

3924 

31,2135 

77770 

1 

AXT  , 1 

3925 

31,2136 

0C066 

1 

DEC 

54 

3926 

31,2137 

47  5 73 

0 

NXPOSVEL 

VLOAQ* 

VSQ 

3927 

REF 

15 

LAST 

60  5 

31,2140 

02467 

0 

W +540,1 
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3928 

31,2141 

77650 

1 

GOTO 

3929 

REF 

1 

31,2142 

6C002 

0 

ADDPOS 

3930 

3 L , 2 143 

01543 

1 

V06N99 

VN 

0699 

3931 

REF 

1 

30,2000 

SETLOC 

VB67A 

3932 

30,2002 

BANK 

3933 

REF 

1 

COUNT  * 

$ $/E  XTVB 

3934 

30,2002 

77615 

0 

AODPOS 

DAD 

3 93  5 

REF 

10 

LAST 

615 

30,2003 

02  172 

1 

WWPOS 

3936 

REF 

1 1 

LAST 

616 

30,2004 

02172 

1 

STORE 

WWPOS 

393  7 

30,2005 

47573 

0 

VLOAD* 

VSQ 

3938 

REF 

16 

LAST 

615 

30,2006 

02555 

0 

W +108D, 

3939 

30,2007 

776  15 

0 

DAD 

3940 

REF 

6 

LAST 

615 

30,2010 

02174 

1 

WWVEL 

394  1 

REF 

7 

LAST 

616 

30,2011 

02174 

1 

STORE 

WWVEL 

3942 

30,2012 

47573 

0 

VLOAD* 

VSQ 

3943 

REF 

17 

LAST 

616 

30,2013 

02643 

1 

W +162D, 

3944 

30,2014 

77615 

0 

DAD 

394  5 

REF 

8 

LAST 

615 

30,2015 

02176 

0 

WWBI AS 

3940 

REF 

9 

LAST 

616 

30,2016 

02176 

0 

STORE 

WWBI AS 

394  7 

30,2017 

75500 

0 

T IX  , 1 

SQRT 

394  8 

REF 

1 

30,2020 

62137 

0 

NXPOSVEL 

3949 

30,2021 

77661 

0 

SR 

3950 

30, 2022 

20613 

l 

10D 

395  1 

REF 

10 

LAST 

616 

30,2023 

16176 

0 

STOOL 

WWBI AS 

3952 

REF 

8 

LAST 

616 

30,2024 

02  174 

1 

WWVEL 

3953 

30,2025 

77766 

0 

SQRT 

3954 

REF 

9 

LAST 

616 

30,2026 

16174 

1 

STOOL 

WWVEL 

3955 

REF 

12 

LAST 

616 

30,2027 

02  172 

1 

WWPOS 

3956 

30,2030 

77766 

0 

SQRT 

3957 

REF 

13 

LAST 

616 

30,2031 

02172 

1 

STORE 

WWPOS 

3958 

30,2032 

52COO 

0 

BOV 

GOTO 

3959 

30,2033 

60035 

1 

+ 2 

3960 

REF 

l 

30,2034 

60042 

1 

V67XXX 

396  1 

30 , 2035 

77745 

1 

DLOAD 

3962 

REF 

4 

LAST 

390 

30,2036 

06513 

0 

DPPOSMAX 

3963 

REF 

14 

LAST 

616 

30,2037 

02172 

1 

STORE 

WWPOS 

3964 

REF 

10 

LAST 

616 

30,2040 

02  174 

1 

STORE 

WWVEL 

3965 

REF 

11 

LAST 

616 

30,2041 

02176 

0 

STORE 

WWBI AS 

3966 

30, 2042 

4 5 345 

1 

V67XXX 

DLOAD 

DSU 

3967 

REF 

15 

LAST 

616 

30,2043 

02  172 

1 

WWPOS 

3968 

REF 

L 

30,2044 

20060 

0 

F T 99999 

3969 

30,2045 

71240 

1 

BMN 

DLOAD 

3970 

30,2046 

60051 

0 

+ 3 

3971 

REF 

2 

LAST 

616 

30,2047 

20060 

0 

FT99999 

3972 

REF 

16 

LAST 

616 

30,2050 

02172 

1 

STORE 

WWPOS 

3973 

30,2051 

66150 

0 

LX  A , 1 

S X A , 1 

3974 

REF 

7 

LAST 

615 

30,2052 

00C5L 

0 

S 2 

3975 

REF 

2 

LAST 

310 

30,2053 

00C52 

0 

QPRET 
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30, 

,2054 

3977 

RE  F 

41 

LAST 

581 

30, 

,2055 

3978 

REF 

2 

LAST 

310 

30, 

, 2056 

3979 

30, 

,2057 

3979 

30, 

,2060 
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77776 

1 

EXIT 

4626 

1 

TC 

POSTJUMP 

27460 

0 

CAOR 

I NTWAKE 

01670 

17000 

1 FT99999 

1 

2DEC 

30479  B— 1 9 
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P3980 

- 

3981 

25,3651 

BANK 

25 

3982 

REF 

3 

LAST 

57  1 

25,2000 

SETLOC 

RADARUPT 

3983 

25,3651 

BANK 

3984 

REF 

3 

LAST 

571  TQ 

579: 

266  269* 

COUNT* 

$ J/RRUPT 

3985 

REF 

33 

LAST 

609 

E 7 , 1456 

EBANK= 

LOSCOUNT 

3986 

REF 

28 

LAST 

575 

25,3651 

4 4740 

1 

RA0L I TES 

CS 

BIT5 

3987 

REF 

25 

LAST 

573 

25,3652 

6 0061 

0 

AD 

I TEMP  1 

3988 

REF 

199 

LAST 

614 

25,3653 

10  000 

0 

CCS 

A 

3909 

REF 

71 

LAST 

579 

25,3654 

4 4744 

0 

CS 

ONE  \- 

3990 

REF 

1 

25,3655 

1 3705 

1 

TCF 

VLIGHT  O 

3 991 

REF 

1 

25,3656 

1 4561 

0 

TCF 

RRTRKF  ^ 

3992 

REF 

5 

LAST 

27  1 

25,3657 

54  065 

0 

HLIGHT 

TS 

I TEMP5 

3993 

REF 

1 

25,3660 

3 4740 

0 

CA 

HLITE 

3994 

REF 

50 

LAST 

614 

25,366  1 

O 

O 

1 

TS 

L 

3995 

REF 

1 

25,3662 

3 4740 

0 

CA 

LRALTBIT 

3996 

REF 

100 

LAST 

610 

25,3663 

7 0110 

0 

BOTHL ITS 

MASK 

RADMODES 

3997 

REF 

200 

LAST 

618 

25,3664 

10  000 

0 

CCS 

A 

3998 

REF 

1 

25,3665 

1 3677 

0 

TCF 

ONL I TES 

3999 

REF 

16 

LAST 

576 

25,3666 

3 0107 

1 

CA 

FLGWR01 1 

4000 

REF 

6 

LAST 

618 

25,3667 

50  065 

1 

INDEX 

I TEMP5 

400  1 

REF 

1 

25,3670 

7 4 744 

0 

MASK 

HFLSHBI T 

4002 

REF 

201 

LAST 

618 

25,3671 

10  000 

0 

CCS 

A 

4003 

REF 

2 

LAST 

618 

25,3672 

1 4561 

0 

TCF 

RRTRKF 

4004 

25,3673 

0 0006 

1 

L ITI  T 

EXTEND 

4005 

RFF 

3 

LAST 

190 

25,3674 

22  066 

1 

QXCH 

I TEMP6 

400  6 

REF 

2 

LAST 

540 

25,3675 

0 4573 

1 

TC 

TRKFLON  +1 

400  7 

REF 

4 

LAST 

618 

25,3676 

0 0066 

1 

TC 

I TEMP6 

4008 

REF 

7 

LAST 

618 

25,3677 

50  065 

1 

ONLI TES 

INDEX 

I T EMP  5 

4009 

REF 

2 

LAST 

618 

25,3700 

4 4 744 

0 

CS 

HFLSHBI T 

4010 

REF 

17 

LAST 

618 

25,3701 

7 C 1 07 

0 

MASK 

FLGWRD11 

401  1 

REF 

18 

LAST 

618 

25,3702 

54  107 

0 

TS 

FLGWRD1 1 

4012 

REF 

91 

LAST 

618 

25,3703 

3 0001 

0 

CA 

L 

401  3 

REF 

1 

25,3704 

1 3673 

1 

TCF 

LITIT 

4014 

REF 

8 

LAST 

618 

25,3705 

54  C65 

0 

VLIGHT 

TS 

I TEMP5 

4015 

REF 

1 

25,3706 

3 4742 

1 

CA 

VLITE 

4016 

REF 

52 

LAST 

618 

25,3707 

54  001 

1 

TS 

L 

401  7 

REF 

28 

LAST 

575 

25,3710 

3 4735 

1 

CA 

BIT8 

4018 

REF 

1 

25,3711 

l 3663 

0 

TCF 

BOTHL ITS 
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4019 
402  0 
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REF 

29 

LAST 

618 

4740 

HLITE 

EQUALS 

B IT5 

REF 

31 

LAST 

588 

4742 

VLITE 

EQUALS 

BIT3 
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L P30.P37 

P0023  PROGRAM  DESCRIPTION  P30  DATE  3-6-67 

R0024  MOD . 1 BY  RAMA  AIYAKAR 

R0025  FUNCTIONAL  DESCRIPTION 

R0026  ACCEPT  ASTRONAUT  INPUTS  OF  TTG.DELVILV) 

R0027  CALL  IMU  STATUS  CHECK  ROUTINE  (R02) 

R0028  DISPLAY  TIME  TO  GC , APOGEE,  PERIGEE,  DELV(MAG),  MGA  AT  IGN 

R0029  REQUEST  BURN  PROGRAM 

R0030  CALLING  SEQUFNCE  VIA  JOB  FROM  V37 

R0031  EXIT  VIA  V37  CALL  OR  TO  GOTOPOOH  IV34E) 

R0032  SUBROUTINE  CAL LS-FLAGUP  , PHASCHNG , BANKCALL,  ENDOFJOB , GOFLASH,  GOFLASHR 
R0033  G0PERF3R,  INTPRET,  BLANKET,  GOTOPOOH,  R02B0TH,  S30.1, 

R0034  TTG/N35,  MIDGIM,  DISPMGA 

R0035  ERASABLE  INITIALIZATION-  STATE  VECTOR 

R0036  OUTPUT-RINIT,  VINIT,  +MGA , VT  IG,  RTIG,  DELVSIN,  DELVSAB,  DEL  VSL  V , HAPO, 
R0037  HPER,  TTOGO 


;0038 

DEBRI 

S- 

A , L , 

MPAC, 

PUSHL 1ST 

003  81 

32,2570 

BANK 

32 

00382 

REF 

l 

35,2000 

SETLOC 

P30S 

003  8 3 

35,2000 

BANK 

003  8 A 

REF 

2 

LAST 

326 

E4, 1643 

EBANK= 

+ MGA 

0039 

REF 

1 

COUNT  * 

$ $ / P 3 0 

0040 

REF 

37 

LAST 

614 

35,2000 

0 5506 

1 

P 30 

TC 

UPFLAG 

004  1 

KEF 

3 

LAST 

510 

35,2001 

00027 

1 

ADR  F S 

UPDATFLG 

004  1 l 

REF 

38 

LAST 

620 

35,2002 

0 5506 

L 

TC 

UPFLAG 

004  12 

REF 

3 

LAST 

518 

35,2003 

00031 

0 

ADRES 

TRACKFLG 

0042 

REF 

1 

35,2004 

3 2032 

1 

P 30N33 

CAF 

V06N33 

0043 

REF 

1 

35,2005 

0 3622 

1 

TC 

VNPDOH 

005  l 

REF 

1 

35, 2006 

3 3637 

0 

CAF 

V06N81 

0052 

REF 

2 

LAST 

620 

35,2007 

0 3622 

1 

TC 

VNPOOH 

005  7 

REF 

56 

LAST 

598 

35,2010 

0 5520 

0 

TC 

DOWNFLAG 

0053 

REF 

4 

LAST 

620 

35,2011 

00027 

1 

ADRES 

UPDATFLG 

0059 

REF 

65 

LAST 

614 

35,2012 

0 6060 

1 

TC 

I NTPRET 

006  0 

35,2013 

77624 

1 

CALL 

006  1 

REF 

1 

35,2014 

70000 

0 

S 30 . 1 

0067 

* 

35,2015 

43014 

0 

SET 

SET 

0067  5 

REF 

5 

LAST 

620 

35,2016 

0C470 

1 

UPDATFLG 

006  7 6 

#R  E F 

1 

35,2017 

01067 

1 

XDELVFLG 

006  7 7 

35,2020 

77776 

1 

EXIT 

0068 

REF 

1 

35,2021 

3 2033 

0 

P ARAM30 

CAF 

V06N42 
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2 
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006  9 

REF 

3 

LAST 

620 

35,2022 

0 3622 

1 

TC 

VNPOOH 

0070 

REF 

66 

LAST 

620 

35,2023 

0 6060 

1 

TC 

I NTPRET 

0071 

* 

35,2024 

77614 

1 

SET 

0072 

*REF 

1 

35,2025 

C 1 0 7 1 

0 

F INALFLG 

0074 

35,2026 

77624 

1 

REVN1645  CALL 

0075 

REF 

1 

35,2027 

73516 

1 

VN1645 

0076 

35,2030 

77650 

1 

GOTO 

COMES  HERE  ON  RECYCLE 

RESPONSE 

0077 

REF 

1 

35,2031 

72026 

0 

R E VN 1 64  5 

0100 

35,2032 

01441 

1 

V06N33  VN 

0633 

0102 

35,2033 

01452 

0 

V06N42  VN 

0642 
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P0105 

PROGRAM 

DESCRIPTION  S30.1 

DATE  9NGV66 

R0106 

• 

MOD  NO  1 

LOG  SECT  ION 

P30 , P37 

RO  10  7 

MOD  BY 

RAMA  AIYAWAR  ** 

RO  10  8 

FUNCTIONAL  DESCRIPTION 
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R0109  BASED  UN  STORED  TARGET  PARAME 

R0110  IGNITION(VTIG) .TIME  OF  IGNITI 

R0111  APOGEE  ALTITUDE  AND  CELTAV  RE 

R0112  CALLING  SEQUENCE 
RO 113  L CALL 

R0114  L+l  S30.1 

R0115  NORMAL  EXIT  MODE 

R 0 1 1 6 AT  L + 2 OR  CALLING  SEQUENCE  (GOTO  L+2) 

R0117  SUBROUTINES  CALLED 

RO 11 8 LEMPREC 

R0119  PER  I APO 

RO 120  ALARM  OR  ABORT  EXIT  MOOES 

RO 12 1 NONE 

R0122  ERASAELE  INITIALIZATION  REQUIREC 


RO  137 
RO  13  8 


TERStR  OF  I GN I T ION ( RT I G ) , V OF 
ON  (T IG) ) .COMPUTE  PERIGEE  ALTITUDE 
QU I RED ( DELV S I N ) . 


RO  12  3 

TIG 

TIME  OF  IGNITION 

DP 

RO  124 

DELVSLV 

SPECIFIED  DELTA-V 

IN  LOCA 

1 VERT, 

RO  12  5 

COORDS.  OF  ACTIVE 

VEHICLE 

AT 

R 0 12  6 

TIME  OF  IGNITICN 

VECTOR 

B + 7 

METERS/CS 

RO  12  7 

OUTPUT 

RO  12  8 

RTIG 

POSITION  AT  TIG 

VECTOR 

B+2  9 

METERS 

RO  12  9 

VTIG 

VELOCITY  AT  TIG 

VECTOR 

6 + 29 

METERS/CS 

R0130 

PDL  4D 

APOGEE  ALTITUDE 

DP 

8 + 29 

M , B+27 

RO 13  0 1 

HAPO 

APOGEE  ALTITUDE 

DP 

B+29 

METERS 

RO  13  1 

PDL  8D 

PER  I GEE  ALT  ITUDE 

DP 

B + 29 

M , B+27 

RO  13  1 1 

HPER 

PERIGEE  ALTITUDE 

DP 

B+29 

METERS 

RO  132 

DELVS  IN 

SPECIFIED  DELTA-V 

IN  INERTIAL 

R0133 

COORD.  OF  ACTIVE  V 

EHICLE 

AT 

RO  134 

TIME  OF  IGNITION 

VECTOR 

B + 7 

METERS/CS 

RO  13  5 

DELVSAB 

MAG.  OF  DELVSIN 

VECTOR 

B + 7 

METFRS/CS 

R0136 

DEBRIS 

QTEMP 

TEMP.  ERASABLE 

82  8C  S 


QPRET , MPAC 
PUSHL 1ST 


0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 


EF 

1 

34,2000 

SETLOC 

P30S1 

34,2000 

BANK 

EF 

1 

COUNT* 

$ $/S  3 0S 

34, 2000 

71220 

1 S30.1 

STQ 

DLOAD 

EF 

1 

34,2001 

03632 

0 

QTEMP 

EF 

10 
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0 

T IG 
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0 
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34, 2007 
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1 

RTX2 
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1 

STORE 

RTIG 

RADIUS  VECTOR  AT  IGNITION  TIME 

0153 
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57456 

1 

UNIT 
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0154 

REF 

3 
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1 
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ZRF/LV  IN  DELVSIN  SCALED  AT  2 
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6 
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0 

VATT 
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1 

STORE 
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53435 

0 

VXV 
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03642 

1 
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0 

SETPO 

SXA,  1 
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0 
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2 
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02776 

0 

RTX1 
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47206 
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PUSH 

VXV 

YRF/LV  PDL  0 SCALED  AT  2 

0163 
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4 
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34,2023 

03656 

1 

DELVSIN 

0164 

34,2024 

63372 

1 
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PDVL 
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63315 

0 

PD  VL 

PDVL 

YRF/LV  PDL  6 SCALED  AT  2 

0166 
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5 
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1 

DELVSIN 
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0167 

REF 
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LAST 
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03434 

1 

D EL  VS  LV 

0168 
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76505 

0 

VXM 
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0169 
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00001 

0 

0 

0170 
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STORE 

DELVSIN 
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0172 

34,2033 

77646 

0 

ABVAL 

0173 
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2 
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148 
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27664 

0 

STOVL 
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DELTA  V MAG. 

0174 

REF 

4 
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34,2035 

03642 

1 

RTIG 

(FOR  PER  I APO ) 

0175 

34,2036 

53315 

0 

PD  VL 

VAD 

VREQUIRED  = VTIG  + DELVSIN  (FOR  PERIAPO) 

0176 

REF 

3 

LAST 

623 

34,2037 

03650 

1 

VTIG 

0177 

KEF 

7 

LAST 

623 

34, 2040 

03656 

1 

DELVSIN 

01771 

34,2041 

77624 

1 

CALL 

0178 

REF 

1 

34,2042 

46337 

1 

PERIAP01 

01781 

34,2043 

77624 

1 

CALL 

01732 

REF 

1 

34,2044 

46447 

1 

SHIFTR1 

RESCALE  IF  NEEDED 

017822 

34, 2045 

77624 

1 

CALL 

LIMIT  DISPLAY  TO  9999.9  N.  MI. 

017824 

REF 

1 

34,2046 

45640 

1 

MAXCHK 

01783 

REF 

2 

LAST 

326 

34,2047 

16312 

0 

STODL 

HPER 

PERIGEF  ALT  2(29)  MET  FRS , FOR  DISPLAY 

01784 

34,2050 

00C05 

1 

4D 

01785 

34,2051 

77624 

1 

CALL 

01786 

REF 

2 

LAST 

623 

34,2052 

46447 

1 

SHIFTR1 

RESCALE  IF  NEEDED 

01787 

34,2053 

77624 

1 

CALL 

LIMIT  DISPLAY  TO  9999.9  N.  MI. 

01788 

REF 

2 

LAST 

623 

34, 2054 

45640 

1 

MAXCHK 

0179 

REF 

4 

LAST 

326 

34,2055 

36310 

0 

STC ALL 

HAPO 

APOGEE  ALT  2(29)  MFTERS,  FOR  DISPLAY 

0130 

REF 

2 

LAST 

622 

34,2056 

03632 

0 

QTEMP 
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P0010 

CQELL  IPTIC 

SEQUENCE  INITIATION  (CSI)  PROGRAMS  ( P32  AND  P72) 

R001  1 
R0012 

MOD 

MUD 

NO  -1  LOG  SECTION  - P32-P35,  P72-P75 

BY  WHITE. P DATE  1JUNE67 

R 001  3 

PUP 

POSE 

R0014 

R0015 

R0016 

R0017 

(1) 

TO  CALCULATE  PARAMETERS  ASSOCIATED  WITH  THE  FOLLOWING 
CONCENTRIC  FLIGHT  PLAN  MANEUVERS  - THE  CO-FLLIPTIC  SEQUENCfc 
INITIATION  (CSI)  MANEUVER  ANO  THE  CONSTANT  DELTA  ALTITUDE 
( CDH ) MANEUVER. 

R0018 

R0019 

(2) 

TO  CALCULATE  THESE  PARAMETERS  BASED  UPON  MANEUVER  DATA 
APPROVED  AND  KEYED  INTO  THE  DSKY  BY  THE  ASTRONAUT. 

R0020 
R002  1 
R0022 

13) 

TO  DISPLAY  TO  THE  ASTRONAUT  AND  THE  GROUND  DEPENDENT  VARIABLES 
ASSOCIATED  WITH  THE  CONCENTRIC  FLIGNT  PLAN  MANEUVERS  FOR 
APPROVAL  BY  THE  ASTRONAUT/GROUND. 

R0023 

R0024 

(4) 

TO  STORE  THE  CSI  TARGET  PARAMETERS  FOR  USE  eY  THE  DESIRED 
THRUSTING  PROGRAM. 

R0025 

ASSUMPTIONS 

R0026 
R0027 
R0028 
R002  85 

( 1 ) 

AT  A SELECTED  TPI  TIME  THE  LINE  OF  SIGHT  BETWEEN  THE  ACTIVE 
AND  PASSIVE  VEHICLES  IS  SELECTED  TO  BE  A PRESCRIBED  ANGLE  IF) 
FROM  THE  HORIZONTAL  PLANE  DEFINED  BY  THE  ACTIVE  VEH1CLF 
POSITION. 

R0029 
R0030 
R003  1 

(2) 

THE  TIME  BETWEEN  CSI  IGNITION  AND  CDH  IGNITION  MUST  BE 
COMPUTED  TO  BE  GREATER  THAN  10  MINUTES  FOR  SUCCESSFUL 
COMPLETION  OF  THE  PROGRAM. 

R0032 

R0033 

R0034 

(3) 

THF  TIME  BETWEEN  CDH  IGNITION  AND  TPI  IGNITION  MUST  BE 
COMPUTED  TC  Bt  GREATER  THAN  10  MINUTES  FOR  SUCCESSFUL 
COMPLETION  OF  THE  PROGRAM. 

R0035 

R0036 

(4) 

CDH  DELTA  V IS  SELECTED  TO  MINIMIZE  THE  VARIATION  OF  THE 
ALTITUDE  DIFFERENCE  BETWEEN  THE  ORBITS. 

R0037 
R 0 0 3 8 
R003  8 5 

(5) 

CSI  BURN  IS  DEFINED  SUCH  THAT  THE  IMPULSIVE  DELTA  V IS  IN  THE 
HORIZONTAL  PLANE  DEFINED  BY  THE  ACTIVE  VEHICLE  POSITION  AT  CSI 
IGNITION. 

R0039 
R0040 
R004  1 

(6) 

THE  PERICENTER  ALTITUDE  OF  THE  ORBIT  FOLLOWING  CSI  AND  CDH 
MUST  BE  GREATER  THAN  35,000  FT  (LUNAR  ORBIT)  OR  85  NM  (EARTH 
ORBIT)  FOR  SUCCESSFUL  COMPLETION  OF  THIS  PROGRAM. 

R0042 

R0043 

(7) 

THE  CSI  AND  CDH  MANEUVERS  ARE  ORIGINALLY  ASSUMED  TO  BE 
PARALLEL  TO  THE  PLANE  OF  THE  CSM  ORBIT.  HOWEVER  CREW 
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L 

P32-P35, 

R0044 

R0045 

R0046 

R0047 

(8 

R0048 

R0049 

R0050 

R0051 

(9 

R005  2 
R0053 
R0054 
R0055 
R0056 
R0057 
R0058 
R0059 

( 10 

R0060 

(11 

R006  1 

( 12 

R0062 

R0063 

R0064 

R0065 

R0066 

R0067 

R0068 

R0069 

R0070 

R0071 

R0072 

R0073 

R0074 

l 13 

R0075 

( 14 

R0076 

R007  7 

R0110 

INPUT 

R011  l 

( I 

P72-P  75 

MODIFICATION  OF  DELTA  V ( LV ) COMPONENTS  MAY  RESULT  IN  AN 
OUT-OF-PLANE  CSI  MANEUVER. 


STATE  VECTOR  UPDATES  BY  P27  ARE  DISALLOWED  DURING  AUTOMATIC 
STATE  VECTOR  UPDATING  INITIATED  BY  P20  (SEE  ASSUMPTION  10). 


COMPUTED  VARIABLES  MAY  BE  STORED  FOR  LATER  VERIFICATION  BY 
THE  GROUND.  THESE  STORAGE  CAPABILITIES  ARE  NORMALLY  LIMITED 
ONLY  TO  THE  PARAMETERS  FOR  ONE  THRUSTING  MANEUVER  AT  A TIME 
EXCEPT  FOR  CONCENTRIC  FLIGHT  PLAN  MANEUVER  SEQUENCES. 


THE  RENDEZVOUS  RADAR  MAY  OR  MAY  MOT  BE  USED  TO  UPDATE  THE  LM 
OR  CSM  STATE  VECTORS  FOR  THIS  PROGRAM.  IF  RADAR  USE  IS 
DESIRED  THE  RADAR  WAS  TURNED  ON  AND  LOCKED  ON  THE  CSM  BY 
PREVIOUS  SELECTION  OF  P20.  RADAR  SIGHTING  MARKS  WILL  BE  MADE 
AUTOMATICALLY  APPROXIMATELY  ONCE  A MINUTE  WHEN  ENABLED  BY  THE 
TRACK  AND  UPDATE  FLAGS  (SEE  P20  ) . THE  RENDEZVOUS  TRACKING 
MARK  COUNTER  IS  ZEROED  BY  THE  SELECTION  OF  P20  AND  AFTER  EACH 
THRUSTING  MANEUVER. 

THE  ISS  NEED  NOT  BE  CN  TG  COMPLETE  THIS  PROGRAM. 

THE  OPERATION  OF  THE  PROGRAM  UTILIZES  THE  FOLLOWING  FLAGS  - 

ACTIVE  VEHICLE  FLAG  - DESIGNATES  THE  VEHICLE  WHICH  IS 
DOING  RENDEZVOUS  THRUSTING  MANEUVERS  TO  THE  PROGRAM  WHICH 
CALCULATES  THE  MANEUVER  PARAMETERS.  SET  AT  THE  START  OF 
EACH  RENDEZVOUS  PRE-THRUST  I NG  PROGRAM. 

FINAL  FLAG  - SELECTS  FINAL  PROGRAM  DISPLAYS  AFTER  CREW  HAS 
COMPLETED  THE  FINAL  MANEUVER  COMPUTATION  AND  DISPLAY 
CYCLE. 

EXTERNAL  DELTA  V STEERING  FLAG  - DESIGNATES  THE  TYPE  OF 
STEERING  REQUIRED  FOR  EXECUTION  OF  THIS  MANEUVER  BY  THE 
THRUSTING  PROGRAM  SELECTED  AFTER  COMPLETION  OF  THIS 
PROGRAM. 

IT  IS  NORMALLY  REQUIRED  THAT  THE  ISS  BF  ON  FOR  1 HOUR  PRIOR  TO 
A THRUSTING  MANEUVER. 

THIS  PROGRAM  IS  SELECTED  BY  THE  ASTRONAUT  BY  DSKY  ENTRY  - 
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RO  1 1 2 

(2) 

NN 

NUMBER  OF  APSIDAL  CROSSINGS  THRU  WHICH  THE  ACTIVE 

R011  3 

VEHICLE  ORBIT  CAN  BE  ADVANCED 

TO  OBTAIN  THE  CDH 

R0114 

MANEUVER  POINT 

R0115 

(3) 

ELEV 

DESIRED  LOS  ANGLE  AT  TPI 

K0116 

(4) 

T TP  I 

TIME  OF  THE  TPI  MANEUVER 

R0130 

OUTPUT 

RO  13  1 

(1) 

TRKMKCNT 

NUMBER  OF  MARKS 

RO  13  2 

(2) 

TTOGO 

TIME  TO  GO 

R0133 

(3) 

+ MGA 

MIDDLE  GIMBAL  ANGLE 

RO  13  A 

(4  ) 

DIFFALT 

DELTA  ALTITUDE  AT  CDH 

RO  13  5 

(5) 

T1T0T2 

DELTA  TIME  FROM  CSI  TO  CDH 

R0136 

(6) 

T2T0T3 

DELTA  TIME  FROM  CDH  TO  TPI 

RO  13  7 

(7) 

DEL VLVC 

DELTA  VELOCITY  AT  CSI  - LOCAL 

VERTICAL  COORDINATES 

RO  13  8 

(8) 

DELVLVC 

DELTA  VELOCITY  AT  CDH  - LOCAL 

VERTICAL  COORDINATES 

RO  139 

DOWNLINK 

RO 13  9 1 

( 1 ) 

TCS  I 

TIME  OF  THE  CSI  MANEUVER 

RO 139  2 

(2) 

TCDH 

TIME  OF  THE  CCF  MANEUVER 

RO 13  9 3 

(3) 

T TP  I 

TIME  OF  THE  TPI  MANEUVER 

RO 139 A 

( 4 ) 

TIG 

TIME  OF  THE  CSI  MANEUVER 

RO 1 39  5 

(5) 

DELVFET 1 

DELTA  VELOCITY  AT  CSI  - REFERENCE  COORDINATES 

RO  139  6 

(6) 

DELVEET2 

DELTA  VELOCITY  AT  CDH  - REFERENCE  COORDINATES 

RO  139  7 

(7) 

DIFFALT 

DELTA  ALTITUDE  AT  CDH 

RO 139  8 

(8) 

NN 
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ELEV 
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COMMUNICATION  TO  THRUSTING  PROGRAMS 
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TIG 

TIME  OF  THE  CSI  MANEUVER 

RO 140  4 
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RTIG 

POSITION  OF  ACTIVE  VEHICLE  AT 

CSI  - BEFORE  ROTATION 

R01405 

INTO  PLANE  OF  PASSIVE  VEHICLE 

RO 140  6 

(3) 

VTIG 

VELOCITY  OF  ACTIVE  VEHICLE  AT 

CSE  - BEFORE  ROTATION 

RO 140  7 

INTO  PLANE  OF  PASSIVE  VEHICLE 

RO 1408 

(4) 

DELVSIN 

DELTA  VELOCITY  AT  CSI  - REFERENCE  COORDINATES 
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(5) 

DEL  VSA8 

MAGNITUDE  OF  DELTA  VELOCITY  AT 

CSI 

RO  14  1 
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XDEL  VFLG 

SET  TO  INDICATE  EXTERNAL  DELTA 

V VG  COMPUTATION 
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AVFLAGP 
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VARALARM 
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BANKCALL 
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R0156 
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35, 2062 
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L 
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REF 

22 
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622 
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34041 

0 

STC ALL 

T DEC  1 

0508C8 

REF 

1 
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46401 

0 

PRECSET 
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53775 

1 
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1 
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03536 

1 

RACT3 

050811 
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0 
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2 
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0 
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2 
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1 
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0508  14 

35,2104 

43057 

1 

VSR* 

SET 
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0 

DAD 
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1 
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03574 

1 
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7 
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627 

35,2115 
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0 

STORE 
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1 
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1 
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0 2065 

0 

TC 

VN06 11 
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1 
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0509 
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1 
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3 3634 

0 

CAE 
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REF 

164 
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0 4607 

1 

TC 

BANKCALL 

051  1 
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9 
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20471 

1 

CADR 

GOFLASH 

0512 

REF 

7 
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0 6001 

0 

TC 

GOTOPOOH 
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35,2125 

0 2127 

1 

TC 
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0514 
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0 2121 

1 

TC 

-5 

0518 

REF 

1 

35,2127 

3 3633 

1 

CAF 

V06N37 

0519 

REF 

5 

LAST 

627 

35,2130 

0 3622 

1 

TC 

VNPQOH 

0520 

REF 

68 

LAST 

627 

35,2131 

0 6060 

1 

TC 

INTPRET 

0521 

35,2132 

7 7745 

1 

DLOAD 

0522 

REF 

8 

LAST 

628 

35,2133 

03  634 

0 

TC  S I 

0523 

REF 

11 

LAST 

622 

35,2134 

37442 

1 

STC ALL 

T IG 

0524 

REF 

t 

35,2135 

20000 

0 

SELECTMU 

0525 

35,2136 

77624 

1 

P32/P72B 

CALL 

0526 

REF 

1 

35,2137 

71016 

0 

ADVANCE 

052  7 

35,2140 

77201 

1 

SFTPD 

VLOAD 

0528 

35,2141 

00001 

0 

on 

0529 

REF 

3 

LAST 

150 

35,2142 

03506 

1 

V PAS  S 1 

0530 

35, 2143 

65315 

0 

PDVL 

POOL 

0531 

REF 

2 

LAST 

147 

35,2144 

03500 

1 

R PASS  1 

0532 

REF 

9 

LAST 

628 

35,2 145 

03634 

0 

TCS  I 

0533 

35,2146 

65325 

0 

PDOL 

P DDL 

0534 

REF 

4 

LAST 

318 

35,2147 

03636 

1 

TTPI 

0535 

REF 

1 

35,2150 

33642 

1 

TWOPI 

0536 

35,2151 

45006 

0 

PUSH 

CALL 

053  7 

REF 

1 

35,2152 

73404 

0 

INTINT 

0538 

35,2153 

77624 

1 

CALL 

0539 

REF 

l 

35,2  154 

46433 

1 

PASSIVE 

0540 

35,2155 

77624 

1 

CALL 
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P 3 2- 

P35, 

P 72- 

P75 

0541 

REF 

i 

35,2156 

70113 

0 

CSI/A 

0542 

35,2157 

43C14 

0 

P32/P72C 

BON 

SET 

054  3 

REF 

2 

LAST 

621 

35,2160 

01311 

0 

F INALFLG 

0544 

REF 

1 

35,2161 

72163 

0 

P 32/ P 72  D 

0545 

REF 

6 

LAST 

620 

35,2162 

CC470 

1 

U PDATFLG 

0546 

35,2163 

77745 

1 

P32/P720 

DLOAD 

0547 

REF 

3 

LAST 

328 

35,2164 

C2244 

1 

T 1T0T2 

054  a 

REF 

4 

LAST 

629 

35,2165 

02  244 

1 

P 32/ P 72  E 

STORE 

T 1T0T2 

0549 

35,2166 

51025 

1 

DSU 

B PL 

0550 

REF 

1 

35,2167 

32427 

1 

60MIN 

055  1 

REF 

1 

35,2170 

72165 

0 

P32/P72E 

0552 

35,2171 

77745 

1 

DLOAO 

0553 

REF 

2 

LAST 

328 

35,2172 

02246 

0 

T2T0T3 

0554 

REF 

3 

LAST 

629 

35,2173 

02246 

0 

P32/P72F 

STORE 

T2T0T3 

0555 

35,2174 

51025 

1 

DSU 

B PL 

0556 

REF 

2 

LAST 

629 

35,2175 

32427 

1 

60MIN 

0557 

REF 

1 

35,2176 

72173 

1 

P32/P72F 

0553 

35,2177 

77776 

1 

EXIT 

0559 

REF 

1 

35,2200 

3 2417 

1 

CAF 

V06N75 

0560 

REF 

6 

LAST 

628 

35,2201 

0 3622 

1 

TC 

VNPOOH 

056  1 

REF 

69 

LAST 

628 

35,2202 

0 6060 

1 

TC 

I NTPRET 

0562 

35,2203 

45  175 

0 

VLOAD 

CALL 

0563 

REF 

3 

LAST 

210 

35,2204 

02260 

1 

DELVEET1 

0566 

REF 

1 

35,2205 

71100 

0 

S 32/33 . 1 

0567 

REF 

4 

LAST 

629 

35,2206 

26260 

1 

STOVL 

DELVEET 1 

0567  1 

REF 

2 

LAST 

121 

35,2207 

02302 

1 

R ACT  2 

05672 

REF 

2 

LAST 

12  1 

35,2210 

26274 

1 

STOVL 

R ACT  1 

0568 

REF 

3 

LAST 

210 

35,2211 

02266 

l 

DELVEET2 

0569 

35,2212 

45  170 

0 

AXT  , 1 

CALL 

05691 

35,2213 

01522 

0 

VN 

06  82 

0572 

REF 

1 

35,2214 

72375 

0 

DISDVLVC 

0573 

35,2215 

77745 

1 

DLOAD 

0573  1 

REF 

5 

LAST 

628 

35,2216 

03636 

1 

T TP  I 

05732 

REF 

1 

35,2217 

37640 

1 

STC ALL 

TTPIO 

0574 

REF 

2 

LAST 

621 

35,2220 

73516 

1 

VN1645 

0575 

35,2221 

77650 

1 

GOTO 

0576 

REF 

1 

35,2222 

72136 

0 

P32/P728 
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P1010 

CONST  ANT 

DELTA  HEIGHT  (CDHI  PROGRAMS  ( P33  AND  P73) 

R 10 1 1 
R 101 2 
R 101 3 

MOD  NO  -l 
MOD  BY  WHITE. 
PURPOSE 

LOG  SECTION  - P32-P35,  P72-P75 
P DATE  1JUNE67 

R 101 4 
R 101 5 

ID 

TO  CALCULATE  PARAMETERS  ASSOCIATED  WITH  THE  CONSTANT  DELTA 
ALTITUDE  MANEUVER  ( COH ) . 

R 101  6 
R 1 01  7 

(2) 

TO  CALCULATE  THESE  PARAMETERS  BASED  UPON  MANEUVER  DATA 
APPROVED  AND  KEYED  INTO  THE  DSKY  BY  THE  ASTRONAUT. 

R 101 8 
R1019 
R 1020 

13) 

TO  DISPLAY  TO  THE  ASTRONAUT  AND  THE  GROUND  DEPENDENT  VARIABLES 
ASSOCIATED  WITH  THE  COH  MANEUVER  FOR  APPROVAL  BY  THE 
ASTRONAUT/GROUND. 

R 102  l 
R102? 

I 4 ) 

TO  STORE  THE  CDH  TARGET  PARAMETERS  FOR  USE  BY  THE  DESIRED 
THRUSTING  PROGRAM. 

R 1 02  3 

ASSUMPTIONS 

R1024 
R 102  5 
R 1 02  6 

I 1 ) 

THIS  PROGRAM  IS  BASED  UPON  PREVIOUS  COMPLETION  OF  THE 
CO-ELLIPTIC  SEQUENCE  INITIATION  (CSI)  PROGRAM  (P32/P72). 
T HER  FORE  - 

R 1 02  7 
R 102  8 
R 1 02  9 
R 103  0 

I A) 

AT  A SELECTED  TPI  TIME  I NOW  IN  STORAGE)  THE  LINE  OF  SIGHT 
BETWEEN  THE  ACTIVE  AND  PASSIVE  VEHICLES  WAS  SELECTED  TO  BE 
A PRESCRIBED  ANGLE  (E)  (NOW  IN  STORAGE  1 FROM  THE 
HORIZONTAL  PLANE  DEFINED  BY  THE  ACTIVE  VEHICLE  POSITION. 

R 103  1 
R1032 

( B) 

THE  TIME  BETWEEN  CSI  IGNITION  AND  CDH  IGNITION  WAS 
COMPUTED  TO  BE  GREATER  THAN  10  MINUTFS. 

R 103  3 
R 1034 

(C) 

THE  TIME  BETWEEN  CCH  IGNITION  AND  TPI  IGNITION  WAS 
COMPUTED  TO  BE  GREATER  THAN  10  MINUTES. 

R 1 03  5 
R 1036 

(D) 

THE  VARIATION  OF  THE  ALTITUDE  DIFFERENCE  BETWEEN  THE 
ORBITS  WAS  MINMIZED. 

R 1037 
R 103  8 

(F) 

CSI  BURN  WAS  DEFINED  SUCH  THAT  THE  IMPULSIVE  DELTA  V WAS 
IN  THF  HORIZONTAL  PLANE  DEFINED  BY  ACTIVE  VEHICLE 

R 103  8 5 

POSITION  AT  CSI  IGNITION. 

R 103  9 
R 1040 
R 104  l 

IF) 

THE  PERICENTER  ALTITUDES  OF  THE  ORBITS  FOLLOWING  CSI  AND 
CDH  WERE  COMPUTED  TO  BE  GREATER  THAN  35,000  FT  FOR  LUNAR 
ORBIT  OR  85  NM  FOR  EARTH  ORBIT. 

R 1042 
R1043 

(G) 

THE  CSI  AND  COH  MANEUVERS  WERE  ASSUMED  TO  BE  PARALLEL  TO 
THE  PLANE  OF  THE  PASSIVE  VEHICLE  ORBIT.  HOWEVER,  CREW 
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L 

P32-P35, 

R 1044 
R 104  5 

R1046 
R 104  7 

(2) 

R1048 
R1049 
R 1050 
R1051 

(3) 

R 105  2 
R 105  3 
R 1054 
R 105  5 
R1056 
R 1057 
R1058 
R 1 05  5 

(4) 

R 106  0 

(5) 

R 106  1 

16) 

R 106  2 
R1063 
R1064 
R1065 

R 106  6 
R 106  7 
R 106  8 

R 1 06  9 
R 1 070 
R 107  I 
R1072 

R 1073 
R 1074 

(7) 

R 1 07  5 

( 3) 

R 1076 

R 1 07  7 

R 1 1 1 0 

INPUT 

Rill  l 

( 1) 

P72-P75 

MODIFICATION  OF  DELTA  V (LV)  COMPONENTS  MAY  HAVE  RESULTED 
IN  AN  OUT-OF-PLANE  MANEUVER. 

STATE  VECTOR  UPDATES  BY  P27  ARE  DISALLOWED  DURING  AUTOMATIC 
STATE  VECTOR  UPDATING  INITIATED  BY  P20  (SEE  ASSUMPTION  4). 

COMPUTED  VARIABLES  MAY  BE  STORED  FOR  LATER  VERIFICATION  BY 
THE  GROUND.  THESE  STORAGE  CAPA6I L I TES  APE  NORMALLY  LIMITED 
ONLY  TO  THE  PARAMETERS  FOR  ONE  THRUSTING  MANEUVER  AT  A TIME 
EXCEPT  FOR  CONCENTRIC  FLIGHT  PLAN  MANEUVER  SEQUENCES. 

THE  RENDEZVOUS  RADAR  MAY  OR  MAY  NOT  BE  USED  TO  UPDATE  THE  LM 
OR  CSM  STATE  VECTORS  FOR  THIS  PROGRAM.  IF  RADAR  USE  IS 
DESIRED  THE  RADAR  WAS  TURNED  ON  AND  LOCKED  ON  THE  CSM  BY 
PREVIOUS  SELECTION  OF  P20.  RADAR  SIGHTING  MARKS  WILL  BE  MADE 
AUTOMATICALLY  APPROXIMATELY  ONCE  A MINUTE  WHEN  ENABLED  BY  THE 
TRACK  AND  UPDATE  FLAGS  (SEE  P20  I . THE  RENDEZVOUS  TRACKING 
MARK  COUNTER  IS  ZEROED  BY  THE  SELECTION  OF  P20  AND  AFTER  EACH 
THRUSTING  MANEUVER. 

THE  ISS  NEED  NOT  BE  ON  TO  COMPLETE  THIS  PROGRAM. 

THE  OPERATION  OF  THE  PROGRAM  UTILIZES  THE  FOLLOWING  FLAGS  - 

ACTIVE  VEGICLE  FLAG  - DESIGNATES  THE  VEHICLE  WHICH  IS 
DOING  RENDEZVOUS  THRUSTING  MANEUVERS  TO  THE  PROGRAM  WHICH 
CALCULATES  THE  MANEUVER  PARAMETERS.  SET  AT  THE  START  OF 
EACH  RENDEZVOUS  PRE-THRUST  I NG  PROGRAM. 

FINAL  FLAG  - SELECTS  FINAL  PROGRAM  DISPLAYS  AFTER  CREW  HAS 
COMPLETED  THE  FINAL  MANEUVER  COMPUTATION  AND  DISPLAY 
CYCLE. 

EXTERNAL  DELTA  V STEERING  FLAG  - DESIGNATES  THE  TYPE  OF 
STEERING  REQUIRED  FOR  EXECUTION  OF  THIS  MANEUVER  BY  THE 
THRUSTING  PROGRAM  SELECTED  AFTER  COMPLETION  OF  THIS 
PROGRAM. 

IT  IS  NORMALLY  REQUIRED  THAT  THE  ISS  BE  ON  FOR  1 HOUR  PRIOR  TO 
A THRUSTING  MANEUVER. 

THIS  PROGRAM  IS  SELECTED  BY  THE  ASTRONAUT  BY  DSKY  ENTRY  - 
P33  IF  THIS  VEHICLE  IS  ACTIVE  VEHICLE. 

P73  IF  THIS  VEHICLE  IS  PASSIVE  VEHICLE. 


TTPIO  TIME  OF  THE  TPI  MANEUVER  - SAVED  FROM  P32/P72 


USER • S PAGE  NO.  8 


E7  S3 


631 


GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  202U12-L61 


1 7 : L 1 MAR.  19,1971 


LEMP30S 


105 


PAGE  632 


L P32-P35,  P72-P75 


R1 112 

(2)  ELEV 

DESIRED  LOS  ANGLE  AT  TPI  - SAVED  FROM  P32/P72 

R 1 1 1 3 

(3)  TCDH 

TIME  UF  THE  CCF  MANEUVER 

R 1 130 

OUTPUT 

R 1 1 3 l 

(1)  TRKMKCNT 

NUMBER  OF  MARKS 

R 1 13  2 

(2)  T I OGO 

TIME  TO  GO 

R 113  3 

(3)  + MGA 

MIDDLE  GIMRAL  ANGLE 

R 1 134 

(41  DIFFALT 

DELTA  ALTITUDE  AT  CDH 

R1 135 

(5)  T2T0T3 

DELTA  TIME  FROM  CDH  TO  COMPUTED  TPI 

R 1 13  6 

(6)  NOMTPI 

DELTA  TIME  FROM  NOMINAL  TPI  TO  COMPUTED  TPI 

R 1 1 3 7 

(7)  D EL  VL VC 

DELTA  VELOCITY  AT  CDH  - LOCAL  VERTICAL  COORDINATES 

R 1 13  9 

DOWNL  INK 

R 1 139  1 

(1)  TCDH 

TIME  OF  THE  CDH  MANEUVER 

R1 1392 

(2)  TTP I 

TIME  OF  THE  TPI  MANEUVER 

R 1 139  3 

(3)  TIG 

TIME  OF  THE  CDH  MANEUVER 

Rl 1394 

(4)  DEL  VEET2 

DELTA  VELOCITY  AT  CDH  - REFERENCE  COORDINATES 

R 1 139  5 

(5)  DIFFALT 

DELTA  ALTITUDE  AT  CDH 

Rl 1396 

(6)  ELEV 

DESIRED  LOS  ANGLE  AT  TPI 

R 1 1402 

COMMUNICATION  TO  THRUSTING  PROGRAMS 

R 1 140  3 

( l ) TIG 

TIME  OF  THE  CDH  MANEUVER 

R 11404 

(2)  RTIG 

POSITION  OF  ACTIVE  VEHICLE  AT  CDH  - BEFORE  ROTATION 

R 1140 5 

INTO  PLANE  OF  PASSIVE  VEHICLE 

R 1 140  6 

(3)  VTIG 

VELOCITY  OF  ACTIVE  VEHICLE  AT  CDH  - BEFORE  ROTATION 

R 1 14  0 7 

INTO  PLANE  OF  PASSIVE  VEHICLE 

R 1 140  6 

(4)  DELVSIN 

DELTA  VELOCITY  AT  CDH  - REFERENCE  COORDINATES 

Ri 1405 

(5)  DEL VSA8 

MAGNITUDE  OF  DELTA  VELOCITY  AT  CDH 

RI  141 

(6)  XDELVFLG 

SET  TO  INDICATE  EXTERNAL  DELTA  V V G COMPUTATION 

R 1 15  0 

SUBROUTINES  USED 

R 1 15  1 

AVFLAGA 

R 1 152 

AVFLAGP 

Rl 152  5 

P20FLG0N 

Rl  153 

VNPOOH 

Rl  154 

SELECTMU 

R 1 15  5 

ADVANCE 

R 1 1 56 

CDHMVR 

R 1 1 5 7 

INTINT3P 

R 1 1 5 8 

ACTIVE 

Rl  159 

PASSIVE 

Rl  160 

S33/34. 1 

R 1 16  1 

ALARM 

R 1 16  2 

S ANKC ALL 

Rl  163 

GOFLASH 

Rl  164 

GCTOPOOH 

Rl  166 

S32/33.  1 
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R 1 167 

VN 1 645 

1499 

REF 

1 

150  0 

REF 

2 

LAST 

627 

35,2223 

1502 

REF 

1 

35,2224 

150  3 

REF 

2 

LAST 

627 

35,2225 

150  5 

REF 

2 

LAST 

627 

35,2226 

150  5 1 

REF 

1 

35,2227 

1506 

REF 

7 

LAST 

629 

35, 2230 

1507 

REF 

70 

LAST 

629 

35,2231 

150  8 

35,2232 

1508  1 

REF 

2 

LAST 

629 

35,2233 

15082 

REF 

6 

LAST 

629 

35,2234 

1509 

REF 

4 

LAST 

317 

35,2235 

1510 

REF 

12 

LAST 

628 

35,2236 

1511 

REF 

2 

LAST 

628 

35,2237 

1512 

35,2240 

1513 

REF 

2 

LAST 

628 

35,2241 

1514 

35,2242 

1515 

REF 

1 

35,2243 

1516 

35,2244 

1517 

35,2245 

151  8 

REF 

3 

LAST 

628 

35,2246 

1519 

35 , 2247 

1520 

REF 

3 

LAST 

629 

35,2250 

1521 

REF 

1 

35,2251 

1522 

35,2252 

1523 

REF 

1 

35,2253 

1524 

35,2254 

1525 

35,2255 

152  6 

REF 

2 

LAST 

147 

35,2256 

152  7 

35,2257 

1528 

REF 

2 

LAST 

147 

35,2260 

1529 

REF 

2 

LAST 

633 

35,2261 

1530 

35,2262 

153  1 

REF 

2 

LAST 

628 

35,2263 

1532 

35,2264 

1533 

REF 

3 

LAST 

627 

35,2265 

1534 

REF 

1 

35,2266 

153  5 

REF 

1 

35,2267 

1536 

REF 

1 

35,2270 

153  7 

35,2271 

153  8 

REF 

1 

35,2272 

1539 

REF 

25 

LAST 

613 

35, 2273 

1540 

35,2274 

154  1 

REF 

2 

LAST 

627 

35,2275 

1542 

REF 

165 

LAST 

628 

35,2276 

154  3 

REF 

1C 

LAST 

628 

35,2277 

1544 

REF 

8 

LAST 

628 

35,2300 

1545 

35,2301 

COUNT* 

t S/P3373 

0 2354 

1 

P33 

TC 

AVFLAGA 

0 2226 

0 

TC 

P33/P73A 

0 2361 

1 

P 73 

TC 

AVFLAGP 

0 2366 

0 

P33/P73A 

TC 

P20FLGON 

3 2416 

0 

CAF 

V06N13 

0 3622 

1 

TC 

VNPODH 

0 6C60 

1 

TC 

INTPRET 

77745 

1 

DLDAD 

C3640 

0 

TTPIO 

17636 

1 

STOOL 

TTP  I 

C 1 775 

0 

TCDH 

37442 

1 

STCALL 

TIG 

20C00 

0 

S ELECTMU 

77624 

1 

P33/P736 

CALL 

7 1 C 1 6 

0 

ADVANCE 

77624 

1 

CALL 

71133 

0 

CDHMVR 

77201 

1 

SETPD 

VLOAD 

00001 

0 

OD 

03544 

1 

V AC  T 3 

45115 

0 

POVL 

CALL 

02302 

1 

RACT2 

71071 

1 

INTINT3P 

77624 

1 

CALL 

46423 

0 

ACTIVE 

77201 

1 

SETPD 

VLOAD 

00001 

0 

OD 

03530 

1 

VPASS2 

45115 

0 

PDVL 

CALL 

03522 

1 

RPASS2 

71071 

1 

INTINT3P 

77624 

1 

CALL 

46433 

1 

PASSIVE 

43  145 

0 

□ LOAD 

SET 

32425 

0 

P30ZER0 

03460 

0 

ITSWICH 

36310 

0 

STCALL 

NOMTP I 

72702 

1 

S 33/ 34 . 1 

77454 

1 

BZE 

EXIT 

72307 

0 

P33/P73C 

0 5571 

1 

TC 

ALARM 

OC  6 1 1 

1 

OCT 

611 

3 4777 

l 

CAF 

V05N09 

0 4607 

1 

TC 

BANKCALL 

20471 

1 

CADR 

GOFLASH 

0 6 C 0 1 

0 

TC 

GCTOPOOH 

0 2303 

0 

TC 

+ 2 
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1 546 

REF 

2 

LAST 

633 

35,2302 

0 2226 

0 

TC 

154  7 

REF 

7 1 

LAST 

633 

35,2303 

0 6C60 

1 

TC 

1548 

35,2304 

77745 

1 

DLL)  AD 

1549 

REF 

4 

LAST 

633 

35,2305 

32425 

0 

1550 

REF 

2 

LAST 

633 

35,2306 

02310 

1 

STORE 

1551 

35,2307 

43  C 14 

0 

P33/P73C 

BON 

155? 

REF 

3 

LAST 

629 

35,2310 

01311 

0 

1553 

REF 

1 

35,2311 

72313 

0 

1554 

REF 

7 

LAST 

629 

35,2312 

CC470 

1 

1557 

35,2313 

43345 

l 

P33/P73D 

DLGAD 

1558 

REF 

3 

LAST 

634 

35,2314 

C2310 

1 

1559 

REF 

7 

LAST 

633 

35,2315 

03636 

1 

156C 

REF 

8 

LAST 

634 

35,2316 

03636 

1 

STORE 

1561 

35,2317 

77625 

0 

DSU 

1562 

REF 

5 

LAST 

633 

35,2320 

01775 

0 

1563 

35,2321 

51025 

1 

P33/P73E 

DSU 

1564 

REF 

3 

LAST 

629 

35,2322 

32427 

1 

1565 

REF 

1 

35 , ?323 

72321 

1 

1566 

35,2324 

77615 

0 

DAD 

156  7 

REF 

4 

LAST 

634 

35,2325 

32427 

1 

1568 

REF 

5 

LAST 

629 

35,2326 

16244 

1 

STODL 

1569 

REF 

9 

LAST 

634 

35,2327 

C 3636 

1 

1570 

35,2330 

41425 

1 

DSU 

1571 

REF 

3 

LAST 

633 

35,2331 

03640 

0 

1572 

35,2332 

45246 

0 

P33/P73F 

ABS 

1573 

REF 

5 

LAST 

634 

35,2333 

32427 

1 

1574 

35,2334 

43244 

1 

BPL 

1575 

REF 

1 

35,2335 

72332 

0 

1575  1 

REF 

6 

LAST 

634 

35,2336 

32427 

1 

15753 

35,2337 

45565 

0 

SIGN 

15755 

REF 

4 

LAST 

629 

35,2340 

75531 

1 

STORE 

1576 

35,2341 

77776 

1 

EXIT 

1577 

REF 

2 

LAST 

629 

35, 2342 

3 2417 

1 

CAF 

1578 

REF 

8 

LAST 

633 

35,2343 

0 3622 

1 

TC 

1579 

REF 

72 

LAST 

634 

35,2344 

0 6060 

1 

TC 

1580 

35, 2345 

45175 

0 

VLQAD 

1581 

REF 

4 

LAST 

629 

35,2346 

02266 

l 

1584 

REF 

2 

LAST 

629 

35,2347 

71100 

0 

1585 

REF 

5 

LAST 

634 

35,2350 

36266 

0 

STCALL 

1589 

REF 

3 

LAST 

629 

35,2351 

73516 

1 

1590 

35,2352 

77650 

1 

GOTO 

1591 

REF 

1 

35,2353 

72240 

1 

P33/P73 A 
I NTPRET 

P30ZER0 
NOMTP I 
S FT 

F INALFLG 
P33/P730 
UPDATFLG 
0 AD 
NOMTP I 
T TP  I 
TTP  I 

TCDH 
B PL 
60MIN 
P33/P73E 

60MIN 
T 1T0T2 
T TP  I 
PUSH 
TTPIO 
DSU 
60MIN 
DAD 

P33/P73F 

60MIN 

STADR 

T2T0T3 

V06N75 
VNPOnH 
I NTPRET 
CALL 

DELVEET  2 
S 32/33 . 1 
DELVEET2 
VN1645 


P33/P73R 
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GAP:  ASSEMBLE  REVISION  2 LO  OF  A GC  PROGRAM  LUMINARY  BY  NASA  2021L12-L61 


L P32-P35.  P72-P75 

P3800  AVFLAGA/P 

R3850  SUBROUTINES  USED 


R3851  UPFLAG 

R3852  DOWNFLAG 


3900 

35,2354 

0 0006 

1 

AVFLAGA 

EXTEND 

390  1 

REF 

2 

LAST 

627 

35,2355 

23*470 

0 

QXCH 

SUBEX IT 

3902 

REF 

39 

LAST 

620 

35,2356 

0 5506 

1 

TC 

UPFLAG 

3903 

REF 

1 

35,2357 

0C050 

1 

ADRES 

AVFLAG 

390  A 

REF 

3 

LAST 

635 

35,2360 

0 1470 

0 

TC 

SUBEXIT 

390  5 

35,2361 

0 0006 

1 

AVFL AGP 

EXTEND 

3906 

REF 

4 

LAST 

635 

35,2362 

23*470 

0 

QXCH 

SUBEXIT 

3907 

REF 

57 

LAST 

620 

35,2363 

0 5520 

0 

TC 

DOWNFLAG 

3908 

REF 

2 

LAST 

635 

35,2364 

00050 

1 

ADRES 

AVFLAG 

3909 

REF 

5 

LAST 

635 

35,2365 

0 1470 

0 

TC 

SUBEXIT 

39091 

35,2366 

0 0C06 

1 

P20FLG0N 

EXTEND 

39092 

REF 

6 

LAST 

635 

35,2367 

23*470 

0 

QXCH 

SUBEXIT 

39093 

REF 

40 

LAST 

635 

35,2370 

0 5506 

1 

TC 

UPFLAG 

3910 

REF 

8 

LAST 

634 

35,2371 

00027 

1 

ADRES 

UPDATFLG 

3910  1 

REF 

41 

LAST 

635 

35,2372 

0 5506 

1 

TC 

UPFLAG 

39102 

REF 

4 

LAST 

620 

35,2373 

00C31 

0 

ADRES 

TRACKFLG 

391 1 

REF 

7 

LAST 

635 

35,2374 

0 1470 

0 

TC 

SUBEXIT 

105 


PAGE 


635 
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NO.  12 


E 7 S3 


AVFLAG  = LEM 


AVFLAG  = CSM 


SET  UPDATFLG 
SET  TRACKFLG 


GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L P32-P35,  P72-P75 

P460C  OISDVLVC 

R4650  SU3R0LT INES  USED 


R4651 

S32/33.X 

R4652 

VNPOOH 

4700 

REF 

12 

LAST 

329 

35 

4 70  1 

35 

4702 

REF 

2 

LAST 

146 

35 

4702  1 

REF 

1 

35 

47022 

35 

47023 

REF 

13 

LAST 

636 

35 

47024 

35 

47024  1 

35 

470243 

REF 

1 

35 

470  2 5 

REF 

14 

LAST 

636 

35 

47026 

35 

4703 

REF 

2 

LAST 

636 

35 

4704 

REF 

9 

LAST 

634 

35 

4705 

REF 

73 

LAST 

634 

35 

4706 

35 

470  7 

REF 

3 

LAST 

636 

35 

2375 

03434 

1 

OISDVLVC  STORE 

2376 

45020 

1 

STQ 

2377 

03463 

0 

2400 

71120 

1 

2401 

64375 

1 

VLOAD 

2402 

03434 

1 

2403 

00001 

0 

2404 

66  1 72 

0 

VS  LI 

2405 

03615 

0 

2406 

03434 

1 

STORE 

2407 

77776 

1 

EXIT 

2410 

3 1615 

1 

CA 

24  1 1 

0 3622 

1 

TC 

2412 

0 6060 

1 

TC 

2413 

77650 

1 

GOTO 

2414 

03463 

0 

DELVL VC 
CALL 
NGRMEX 
S 32/33 . X 
M XV 

DELVLVC 

00 

SXA,  1 
V ERB  NOUN 
DELVLVC 

VERBNOUN 

VNPOnH 

INTPRET 

NORMEX 
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GAP:  ASSEMBLE  RFVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L P32-P35,  P72-P75 

P4800  CONSTANTS  


L P32-P35,  P72-P75 

P4800  CONSTANTS 


490  1 

35,2415 

014  13 

0 

VC6N1 1 

VN 

0611 

4902 

35,2416 

01415 

0 

V06N  13 

VN 

0613 

490  3 

35,2417 

C 1 5 1 3 

1 

V06N75 

VN 

0675 

4914 

35,2420 

77  776 

1 

SN359+ 

2DEC 

- .000086601 

4914 

35,2421 

62460 

1 

4915 

35,2422 

17777 

0 

CS359+ 

2D  EC 

+ .499999992 

491  5 

35,2423 

37776 

0 

4916 

35,2424 

OCOOO 

1 

P30ZER0 

2DEC 

0 

4916 

35,2425 

COOOO 

1 

491  7 

35,2426 

00025 

0 

60MIN 

2DEC 

360000 

491  7 

35,2427 

37100 

1 

4919 

35,2430 

0C600 

1 

ALARM/TB 

OCT 

00600 

4920 

35,2431 

00601 

0 

OCT 

00601 

492  1 

35,2432 

0C602 

0 

OCT 

00602 

4922 

35,2433 

00603 

1 

OCT 

00603 

4923 

35,2434 

CC  604 

0 

OCT 

00604 

4924 

35,2435 

CC605 

1 

OCT 

00605 

4925 

35,2436 

0C606 

1 

OCT 

00606 
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NO  1 
2 

3 

4 

5 

6 
7 


GAP:  ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 


17: 


P32-P35,  P72-P75 


P5000 

CSI/A 

K5150 

SUPROLTINFS  US 

R5152 

VECSHIFT 

R5153 

T IMETHET 

R5154 

PER IAPO 

R5155 

SHIFTR1 

R5156 

INTINT2C 

R 5 15  7 

CDHMVR 

R5158 

PER  I AP01 

R 5 15  9 

INTINT 

R5160 

ACTIVE 

540  0 

34,2057 

BANK 

34 

540  1 

REF 

1 

34,2000 

SETLOC 

CSI/CDH1 

5402 

34,2057 

BANK 

5403 

REF 

8 LAST  635 

E 7 , 1470 

EBANK= 

SUBEXIT 

5404 

REF 

1 

COUNT* 

$$/CSI 

5413 

34,2057 

00000 

1 

LOOP MX 

2DEC 

16 

5413 

34,2060 

00020 

0 

5414 

34,2061 

00003 

1 

INITST 

2DEC 

.03048  8-7 

5414 

34,2062 

34661 

1 

5415 

34, 2063 

0C606 

1 

DVMAX  1 

2DEC 

3.0480  8—7 

541  5 

34,2064 

0446  7 

0 

5416 

34,2065 

0C601 

0 

DVMAX2 

2DEC 

3.014472  8—7 

5416 

34,2066 

33216 

1 

5417 

34,2067 

1CC00 

0 

1DPB2 

2DEC 

CM 

1 

CC 

o 

5417 

34, 2070 

OOCOO 

1 

541  8 

34,2071 

OOCOO 

1 

1DPB28 

2DEC 

1 

5418 

34,2072 

00001 

0 

5419 

34,2073 

00004 

0 

PMINE 

2DEC 

157420  B-29 

5419 

34,2074 

31566 

0 

5420 

34,2075 

00000 

1 

EPSILN1 

2DEC 

.0003048  B-7 

5420 

34,2076 

01177 

1 

542  1 

34,2077 

00002 

0 

N I CK  EL  DP 

2DEC 

.021336  B-7 

5421 

34,2100 

27311 

1 

5422 

34,2101 

77754 

1 

F IFPSDP 

2DEC 

-.152400  8-7 

5422 

34,2102 

57611 

0 

542  3 

34,2103 

00000 

1 

PMINM 

2DEC 

10668  B-29 

5423 

34,2104 

12326 

0 

542  4 

34,2  105 

00116 

1 

DELMAX1 

2DEC 

.6096000  B-7 

5424 

34,2106 

CC  730 

0 

542  5 

34,2107 

CGOOO 

l 

ONETHTH 

2DEC 

.0001  B— 3 

5425 

34,2  110 

06433 

0 

5426 

34,2111 

00003 

1 

TMIN 

2DEC 

60000 

542  6 

34,2112 

25140 

0 

5500 

34,2113 

43014 

0 

CSI/A 

CLEAR 

SET 

550  1 

REF 

l 

34,2114 

03260 

0 

S32.1E1 

5502 

REF 

1 

34,2115 

03061 

0 

S32. 1F2 
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INITIAL  OELDV  = 10  FPS 
MAXIMUM  DV1  = 1000  FPS 
989  FPS 

85  NM  - MUST  RE  8 WORDS  BEFORE  PMINM 
.1  FPS 

7 FPS  (CHANGED  FROM  .05  FPS) 

50  FPS 

35000  FT  - MUST  BE  8 WORDS  AFTER  PMINE 
200  FPS 

10  MIN 

INITIALIZE  INDICATORS 

DVT1  HAS  EXCEEDED  MAX  INDICATOR 

FIRST  PASS  FOR  NEWTON  ITERATION  INDICATR 


GAP 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY 


P 3 2- 

P 3 5 * 

P 72- 

P 75 

5503 
550  A 

REF 

1 

5505 

REF 

1 

5506 

5507 

REF 

5 

LAST 

63  A 

5508 

REF 

1 

550  9 
5510 

551  1 

REF 

A 

LAST 

627 

5512 

5513 

REF 

3 

LAST 

629 

551 A 

5515 

5516 

REF 

2 

LAST 

502 

5517 

REF 

1 

5518 

5519 

5520 

REF 

5 

LAST 

606 

552  1 

REF 

6 

LAST 

639 

5522 
552  3 
5 52  A 
5525 

REF 

1 

5526 

REF 

7 

LAST 

639 

5527 

5528 

5529 

5530 
553  1 

REF 

1 

5532 

REF 

A 

LAST 

639 

5533 
5 53  A 
5535 

REF 

3 

LAST 

123 

5536 

5537 

REF 

2 

LAST 

150 

5538 

5539 

REF 

3 

LAST 

1A7 

5 5A0 

REF 

1 

55A  1 

REF 

2 

LAST 

1A7 

55A2 

55A3 

REF 

2 

LAST 

639 

55A  A 

REF 

1 

55A  5 

REF 

3 

LAST 

639 

55A  6 
5 5A7 
55A8 
5 5A9 

REF 

1 

5550 
555  1 
5552 

REF 

1 

34,2116 

43014 

0 

3A.2117 

03262 

1 

3A, 2120 

03063 

1 

3A , 2 12 1 

7 7 745 

1 

3A,2  122 

32425 

0 

3A, 2 12  3 

03606 

1 

3A,2 12A 

03614 

1 

34,2125 

77201 

1 

CSI/B 

3 A , 2 126 

00001 

0 

3A,2  127 

02274 

1 

3A , 2 130 

41446 

1 

34,2131 

7C501 

1 

34,2132 

00050 

1 

3A, 2133 

51515 

1 

3A , 2 1 3A 

03552 

0 

3A, 2135 

55301 

0 

34,2136 

00047 

1 

3A,2  137 

53664 

0 

34,2140 

00046 

0 

3 A , 2 1 A 1 

57175 

0 

3A.21A2 

41215 

1 

3 A , 2 1 A3 

30C70 

0 

3A, 21AA 

65301 

0 

3A.21A5 

C0047 

1 

3A , 2 1 A6 

02312 

0 

3A.21A7 

56342 

1 

3A, 2150 

75457 

0 

3A, 2151 

20172 

1 

34,2152 

53515 

0 

34,2153 

02  274 

1 

34,2154 

47315 

0 

34, 2155 

02252 

0 

34,2156 

77656 

1 

34,2  157 

72441 

0 

34,2160 

03472 

0 

34,2161 

45421 

1 

34,2162 

60203 

0 

34,2163 

30062 

0 

34,2164 

03612 

1 

34,2165 

43345 

1 

CSI/Bl 

34,2166 

03606 

1 

34,2167 

30072 

l 

34,2170 

03606 

1 

34,2171 

77025 

0 

34,2172 

30060 

1 

34,2173 

00006 

1 

34,2174 

77644 

1 

34,2175 

7C776 

0 

34,2176 

77601 

0 

CSI/B2 

34,2177 

00001 

0 

NASA  2021LI2-161 
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CLEAR 

SET 

S32.  1 F3  A 

00  = IS  T 2 PASSES 

2ND  CYCLE  01=F IRST 

CYCLE 

S32.1F3B 

1 0=2N  D CYCLF  11  = 

50FPS  STAGE  2ND  CYCLE 

DLOAD 

P30ZERO 

STORE 

LOOPCT 

STORE 

CSIALRM 

SETPO 

V LOAD 
OD 

R ACT  1 

ABVAL 

PUSH 

RA  I 

B29 

PL  0 2D 

NORM 

SRI 

X 2 

B29-N2+  B 1 

PL04D 

PD  V L 

ABVAL 
R PAS  S3 

NORM 

BDDV 
X 1 

RAI/RP3 

B 1 

PL  0 20 

XSU  ,2 

SR* 

B 2 

XI 

1 ,2 

DAO 

DMP 

1DPB2 

( 1 + IRA1/RP3) ) RA  1 

B 29  + B2  = B3 l 

PLOOD 

NORM 

P DDL 
XI 

RTMU 

PL02D 

SRI 

DDV 

B3  8-B3 1 = B 7 

PLOOD 

SL* 

SORT 

0-7,1 

B 7 

PD  VL 

UNIT 
R ACT  1 

PL02D 

PDVL 

VXV 

UP1 

UNIT 

UNIT! URP 1 X UVP1 

X UR A 1 ) = UH1 

DOT 

SL1 
V ACT  1 

V A 1 . UH1 

B 7 

BDSU 

STADR 

PLOOD 

STODL 

DELVCSI 
I NITST 

10  FPS 

STORE 

DELDV 

DLOAD 

DAD 

LOOPCT 

1DPB28 

IF  LOOPCT  = 16 

STORE 

LOOPCT 

DSU 

A XT,  2 
L OOPM  X 
6 

BPL 

SCNDSOL 

SETPD 

OD 

GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


P 3 2- 

P 3 5 , 

P72-P75 

5553 

34,2200 

51545 

1 

DLUAD 

ABS 

5554 

REF 

4 

LAST 

639 

34,2201 

03  574 

1 

OELVCSI 

5555 

34,2202 

50025 

0 

DSU 

BMN 

5556 

REF 

1 

34,2203 

30C64 

0 

DVMAX1 

5557 

REF 

1 

34,2204 

70224 

1 

CSI/B23 

5558 

34,2205 

43  174 

1 

AXT  , 2 

BON 

5559 

34,2206 

00007 

0 

7 

556  0 

REF 

2 

LAST 

638 

34,2207 

03300 

1 

S 32 . 1 FI 

5561 

REF 

2 

LAST 

639 

34,2210 

7C776 

0 

SCNDSOL 

5562 

34,2211 

43014 

0 

BOFF 

BON 

5563 

PFF 

2 

LAST 

63  9 

34, 2212 

03342 

1 

S 32 . 1 F3 A 

5564 

REF 

1 

34,2213 

702 16 

0 

CSI/B22 

55o5 

REF 

2 

LAST 

639 

34,2214 

03303 

1 

S32. 1 F3B 

5566 

REF 

3 

LAST 

640 

34,2215 

7C776 

0 

SCNDSOL 

5567 

34,2216 

71214 

0 

GSI/B22 

SET 

DLUAD 

5568 

REF 

3 

LAST 

640 

34,2217 

03060 

1 

S 32 . 1 FI 

5569 

REF 

1 

34,2220 

30066 

1 

DVMAX2 

5570 

34,2221 

77765 

0 

SIGN 

557  l 

REF 

5 

LAST 

640 

34,2222 

03574 

1 

DELVCSI 

5572 

REF 

6 

LAST 

640 

34,2223 

C 3574 

1 

STORE 

DELVCSI 

5573 

34,2224 

41575 

0 

CSI/B23 

VLOAD 

PUSH 

5574 

REF 

5 

LAST 

639 

34,2225 

02274 

1 

R ACT  1 

5575 

34,2226 

63256 

0 

UNIT 

PDVL 

5576 

REF 

4 

LAST 

639 

34,2227 

02252 

0 

UP1 

5577 

34,2230 

53435 

0 

VXV 

UNIT 

5576 

34,2231 

76561 

1 

VXSC 

VSL  1 

5579 

REF 

7 

LAST 

640 

34,2232 

03574 

1 

DELVCSI 

5580 

REF 

5 

LAST 

629 

34, 2233 

02260 

1 

STORE 

0ELVEET1 

5581 

34,2234 

40C55 

0 

VAO 

BOV 

5582 

REF 

3 

LAST 

639 

34,2235 

03472 

0 

V ACT  1 

5583 

REF 

1 

34,2236 

7C237 

0 

CSI/B23D 

5584 

REF 

2 

LAST 

148 

34,2237 

37566 

0 

CS1/B230 

STCALL 

V ACT  4 

5585 

REF 

1 

34,2240 

4643  T 

0 

VECSHIFT 

5586 

REF 

4 

LAST 

628 

34,2241 

26744 

l 

STOVL 

V VEC 

5587 

34,2242 

77614 

1 

SET 

5588 

REF 

3 

LAST 

628 

34, 2243 

03466 

0 

RVSW 

5589 

REF 

3 

LAST 

628 

34,2244 

26655 

0 

STOVL 

R VEC 

5590 

REF 

1 

34,2245 

32421 

1 

SN359+ 

559  1 

REF 

3 

LAST 

509 

34,2246 

36730 

0 

STCALL 

SNTH 

5592 

REF 

2 

LAST 

509 

34,2247 

24732 

1 

TIMETHET 

5593 

34,2250 

72142 

0 

SRI 

LXA,  1 

5 59  4 

REF 

3 

LAST 

623 

34,2251 

02776 

0 

RTXl 

5595 

REF 

1 

34,2252 

37604 

1 

STCALL 

HAFPA1 

5596 

REF 

1 

34,2253 

46347 

0 

PER  I APO 

5597 

34,2254 

77624 

1 

CALL 

5598 

REF 

3 

LAST 

623 

34,2255 

46447 

1 

SHIFTR1 

5599 

REF 

1 

34,2256 

17602 

0 

STOOL 

POSTCSI 

5600 

REF 

4 

LAST 

627 

34,2257 

03621 

1 

CENTANG 

560  0 C 1 

34,2260 

52054 

1 

BZE 

GOTO 

5600C2 

34,2261 

70263 

1 

+ 2 
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USER'S  PAGE  NO.  17  E7  S3 


FLAG  3 NEQ  3 


UN  IT ( URP 1 X UVPl  X UR  A 1 ) = UH1 


ALSO  C ST  H 


;ap:  assfmble 

REVISION  210 

CF  AGC  PROGRAM  LUMINARY  BY 
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584  7 

REF 

4 

LAST 

645 

34,2642 

03062 

0 

S 3 2 . 1 F3 A 

5848 

REF 

4 

LAST 

645 

34,2643 

03263 

0 

S32 . 1F3B 

5849 

34,2644 

77745 

1 F R ST  P AS 

DLOAD 

5850 

34,2645 

00001 

0 

OOD 

5851 

REF 

4 

LAST 

645 

34,2646 

17610 

0 

STODL 

GAMPREV 

5852 

REF 

11 

LAST 

645 

34,2647 

03574 

1 

DELVCSI 

5853 

REF 

4 

LAST 

64  5 

34,2650 

03576 

0 

STORE 

DVPREV 

5854 

34,2651 

43025 

1 

DSU 

CLEAR 

5855 

REF 

7 

LAST 

645 

34,2652 

03612 

1 

DELDV 

5856 

REF 

3 

LAST 

645 

34,2653 

03261 

1 

S 32. IF2 
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USFR ■ S PAGE  NO.  22  E7  S3 

UVP3  X URP 3 

(URP3XV)  . ( UVP3XURP3 ) = TEMP 

BO 

GAMMA=S IGN (TF MP ) ARCOS I UN  I T V . URP3 ) 


NOT  THE  FIRST  PASS  OF  A CYCLE 
GAMMA-GAMPREV  61 


B 7 


(GAM-GAMPREV) /(DV-DVPPEV)  B-6+N1 
= SLOPE 


PL  l 80 


PL  1 20 
PL  060 
PLOOD 

PL02D 


PL04D 


PL06D 


GAP:  ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-L6I 


P32- 

P35, 

P 72-1 

P 75 

5857 

REF 

12 

LAST 

645 

34,2654 

37574 

0 

STCALL 

DELVCSI 

5858 

REF 

2 

LAST 

644 

34, 2655 

70165 

1 

CSI/B1 

5859 

34,2656 

43014 

0 

THRDCHK 

BON 

BON 

5860 

REF 

5 

LAST 

645 

34,2657 

03302 

0 

S 3 2 . 1F3A 

586  1 

REF 

1 

34,2660 

70702 

0 

NEWTN 

5862 

REF 

5 

LAST 

645 

34,2661 

03303 

1 

S32. 1 F3B 

5863 

REF 

2 

LAST 

646 

34,2662 

7C  702 

0 

NFWTN 

5864 

34,2663 

75345 

1 

FIFTYFPS 

DLOAD 

S IGN 

5 86  5 

REF 

L 

34 , 2664 

30102 

1 

F IFPSDP 

5866 

34,2665 

00005 

1 

04D 

5867 

34,2666 

77765 

0 

SIGN 

5868 

REF 

5 

LAST 

64  5 

34,2667 

03610 

0 

G AMPREV 

5869 

REF 

8 

LAST 

645 

34,2670 

03612 

1 

STORE 

DELDV 

5870 

34,2671 

43276 

0 

DCOMP 

DAD 

5871 

REF 

13 

LAST 

64  6 

34,2672 

03574 

1 

DELVCSI 

5872 

REF 

14 

LAST 

646 

34,2673 

17574 

1 

STOOL 

DELVCSI 

5873 

34,2674 

0CC01 

0 

OOD 

5374 

34,2675 

43  C 14 

0 

SET 

SET 

5875 

REF 

6 

LAST 

646 

34,2676 

03063 

I 

S 32 . 1F3B 

5876 

REF 

6 

LAST 

646 

34,2677 

03062 

0 

S 32 . 1 F3  A 

5877 

REF 

6 

LAST 

646 

34,2700 

37610 

1 

STCALL 

GAMPREV 

5078 

REF 

1 

34,2701 

70176 

0 

CSI/B2 

5879 

34,2702 

6C345 

0 

NFWTN 

DLOAD 

NORM 

5880 

34,2703 

00005 

1 

04D 

5801 

REF 

5 

LAST 

641 

34,2704 

00050 

1 

X 2 

508? 

34,2705 

54065 

0 

BDD  V 

XSU,  1 

5883 

34,2706 

00001 

0 

OOD 

5884 

REF 

6 

LAST 

646 

34,2  707 

00047 

1 

X2 

5885 

34,2710 

77657 

0 

SR* 

5006 

34,271 l 

2C601 

I 

0,1 

5887 

REF 

9 

LAST 

646 

34,2712 

17612 

1 

STOOL 

DELDV 

5888 

34,2713 

0C001 

0 

OOD 

5889 

REF 

7 

LAST 

646 

34,2714 

03610 

0 

STORE 

GAMPREV 

5890 

34,2715 

51545 

1 

DLOAD 

ABS 

5891 

REF 

10 

LAST 

646 

34,2716 

03612 

1 

DELDV 

5892 

34,2717 

45206 

1 

PUSH 

DSU 

5893 

REF 

1 

34,2720 

30076 

0 

EPSILN1 

5894 

34,2721 

71240 

1 

BMN 

DLOAD 

5895 

REF 

1 

34,2722 

7C737 

0 

CSI/SOL 

5896 

34,2  723 

50025 

0 

DSU 

BMN 

5897 

REF 

1 

34,2724 

30106 

0 

DELMAX1 

5898 

REF 

1 

34,2  725 

7C732 

0 

CSISTEP 

5899 

34,2726 

75345 

1 

DLOAD 

S IGN 

5900 

RFF 

2 

LAST 

646 

34,2727 

30106 

0 

D ELM A XI 

5901 

REF 

11 

LAST 

646 

34,2730 

03612 

1 

DELDV 

5902 

REF 

12 

LAST 

646 

34,2731 

03612 

1 

STORE 

DELDV 

5903 

34,2732 

45345 

1 

CSISTEP 

DLOAD 

DSU 

5904 

REF 

15 

LAST 

646 

34,2733 

03574 

1 

DELVCSI 

5905 

REF 

13 

LAST 

646 

34,2734 

03612 

1 

DELDV 

5906 

REF 

16 

LAST 

646 

34,2735 

37574 

0 

STCALL 

DELVCSI 
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PAGE 


USER • S PAGE  NO.  23 


E 7 S3 


646 


PL  0 80 


GAP:  ASSEM8LE  REVISION  210 


P32- 

P3  5 , 

P 72- 

P 75 

5907 

REE 

3 

LAST 

646 

5908 

5909 

REF 

2 

LAST 

640 

5910 
591  1 
5912 

REF 

4 

LAST 

640 

5913 

5914 

REF 

1 

5915 

5916 

REF 

5 

LAST 

642 

5917 

5918 

REF 

3 

LAST 

643 

5919 

5920 

REF 

2 

LAST 

647 

5921 

REF 

6 

LAST 

647 

5922 

5923 

REF 

8 

LAST 

643 

5924 

REF 

11 

LAST 

642 

5925 

5926 

REF 

6 

LAST 

634 

592  7 
5928 

REF 

1 

5929 

5930 
593  1 
5932 

REF 

7 

LAST 

647 

5933 

REF 

12 

LAST 

643 

5934 

REF 

9 

LAST 

647 

5935 

5936 

REF 

5 

LAST 

634 

5937 

REF 

2 

LAST 

647 

593  8 
5939 

REF 

1 

594  0 

REF 

7 

LAST 

646 

5941 

REF 

1 

5942 

REF 

7 

LAST 

646 

5943 

5944 

REF 

2 

LAST 

64  7 

594  5 

REF 

5 

LAST 

639 

5946 
594  7 

REF 

8 

LAST 

642 

594  8 

REF 

4 

l AST 

640 

5949 

5950 

REF 

4 

LAST 

645 

5951 

REF 

8 

LAST 

64  7 

5952 

REF 

8 

LAST 

647 

5953 

REF 

5 

LAST 

644 

5954 

RFF 

1 

AGC  PROGRAM  LUMINARY  BY 


2736 

7C165 

1 

2 737 

77145 

1 

CSI/SOL 

2740 

03602 

0 

2 741 

00002 

0 

2 742 

77750 

0 

2 743 

02776 

0 

2 744 

50023 

0 

2 745 

30072 

1 

2746 

7C776 

0 

2747 

71374 

1 

2750 

00C03 

1 

2751 

03604 

0 

2752 

50023 

0 

2753 

30072 

1 

2754 

7C  776 

0 

2755 

45345 

1 

2756 

01775 

0 

2757 

03634 

0 

2760 

02244 

1 

276  1 

45374 

0 

2 762 

00004 

0 

2763 

30112 

0 

2764 

77C40 

0 

2765 

7C776 

0 

2766 

00005 

1 

2767 

45345 

1 

2770 

03636 

1 

2771 

01775 

0 

2772 

02246 

0 

2773 

51025 

1 

2 7 74 

30112 

0 

2 775 

72  157 

1 

2776 

43014 

0 

SCNDSOL 

27  77 

03302 

0 

3000 

72  045 

0 

3001 

03343 

0 

3002 

72045 

0 

3003 

71334 

0 

3004 

03613 

0 

3005 

32425 

0 

3006 

43014 

0 

3007 

03260 

0 

3010 

03061 

0 

3011 

43014 

0 

3012 

03262 

1 

3013 

03263 

0 

3014 

37606 

0 

3015 

70  1 25 

0 

CF 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34: 

34, 

34 

34, 

34 

34, 

34, 

34, 

34, 

34, 

34, 

34. 

34 

34. 

34 

34 

34. 

34 
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OLOAD 

CSI/B1 
AXT, 2 

LXA  , 1 

DSU* 

POSTCSI 

2 

RTX 1 
BMN 

AXT  , 2 

PMINE  -2,  1 

SCNDSOL 

DLOAD 

DSU* 

3 

POSTCDH 

BMN 

DLOAD 

PMINE  -2, 1 

SCNDSOL 

DSU 

STORE 

TCDH 
TC  SI 
T 1T0T2 

AXT  ,2 

DSU 

BMN 

4 

TMIN 
AXT, 2 

DLOAD 

SCNDSOL 

5 

DSU 

STORE 

TTP I 
TCDH 
T2T0T3 

DSU 

B PL 

BON 

TMIN 

P 32/P72C 
BOFF 

SX  A , 2 

S 32 . 1 F3  A 
ALMXIT 
S32.  1F3B 
A LMX  I T 
DLOAD 

CLEAR 

CSIALRM 

P30ZERO 

SET 

CLEAR 

S 32 . 1 FI 
S 3 2 . 1F2 
CLEAR 

STCALL 

S32. 1F3A 
S 32 . 1 F3B 
LOOPCT 

CSI/B 

GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L P32-P35,  P72-P75 

P6000  ADVANCE 

R6050  SUBROUTINES  USED 


R6051  PRFCSET 

R6052  ROTATE 


6100 

34,3016 

71220 

1 ADVANCE 

STQ 

D LOAD 

6101 

REF 

9 

LAST 

638 

34,3017 

03470 

1 

SUBEXIT 

6102 

REF 

13 

LAST 

633 

34,3020 

03442 

0 

T IG 

6103 

REF 

23 

LAST 

628 

34,3021 

34041 

0 

STC ALL 

T DEC  1 

6104 

REF 

2 

LAST 

628 

34,3022 

46401 

0 

PRECSET 

6105 

34,3023 

77214 

0 

SET 

V LOAD 

61055 

REF 

2 

LAST 

620 

34,3024 

01067 

1 

XDELVFLG 

6106 

REF 

2 

LAST 

644 

34,3025 

03560 

1 

VPASS3 

6107 

REF 

4 

LAST 

643 

34,3026 

03530 

1 

STORE 

VPASS2 

6108 

REF 

5 

LAST 

642 

34,3027 

27506 

1 

STOVL 

V PAS  S 1 

6109 

REF 

5 

LAST 

644 

34,3030 

03552 

0 

RPASS3 

6110 

REF 

4 

LAST 

643 

34,3031 

03522 

1 

STORE 

RPASS2 

6111 

REF 

4 

LAST 

643 

34,3032 

03500 

1 

STORE 

RPASS1 

6112 

34,3033 

47256 

0 

UNIT 

VXV 

6113 

REF 

6 

LAST 

64  8 

34,3034 

03506 

1 

VP AS  S 1 

6114 

34,3035 

77656 

1 

UNIT 

6115 

REF 

6 

LAST 

643 

34,3036 

26252 

0 

STOVL 

UP1 

6116 

REF 

7 

LAST 

644 

34,3037 

03  536 

1 

R ACT3 

611  7 

REF 

5 

LAST 

623 

34,3040 

37642 

0 

STCALL 

RT  IG 

6118 

REF 

1 

34,3041 

71052 

0 

ROTATE 

6119 

REF 

7 

LAST 

64  3 

34,3042 

02302 

1 

STORE 

RACT2 

6120 

REF 

10 

LAST 

642 

34,3043 

26274 

1 

STOVL 

R ACT  1 

612  1 

REF 

6 

LAST 

64  3 

34,3044 

03544 

1 

VACT3 

6122 

REF 

4 

LAST 

623 

34,3045 

37650 

0 

STCALL 

V T IG 

6123 

REF 

2 

LAST 

64  8 

34,3046 

71052 

0 

ROTATE 

6124 

REF 

2 

LAST 

642 

34,3047 

03514 

1 

STORE 

V ACT  2 

6125 

REF 

4 

LAST 

640 

34,3050 

37472 

1 

STCALL 

VACT1 

6126 

REF 

10 

LAST 

648 

34,3051 

03470 

1 

SUBEXIT 
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GAP: 

ASSEMBLE  REVISION  210 

OF  A GC  PROGRAM  LUMINARY  BY 

NASA  20 

21112-161 

L 

P6200 

6300 

P32-P35,  P72-P75 
ROTATE  .... 

34,3052 

41406 

0 ROTATE 

PUSH 

PUSH 

6301 

34,3053 

74241 

0 

DOT 

VXSC 

6302 

REF  7 LAST  648 

34,3054 

02252 

0 

UP1 

6303 

REF  8 LAST  649 

34,3055 

02252 

0 

UP1 

6304 

34,3056 

51352 

1 

VSL2 

B VSU 

6305 

34,3057 

63256 

0 

UNIT 

PDVL 

6306 

34 , 3060 

74246 

1 

ABVAL 

VXSC 

6307 

34,3061 

43572 

0 

VSL  1 

RVQ 

17:11  MAR.  19,1971 
USER'S  PAGE 


LEMP30S 
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649 


GAP:  ASSEMBLE  REVISION  210  GF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L P32-P35,  P72-P75 


P7000  INTINTNA 


7100 

34, 3062 

65325 

0 

I NTINT2C 

POOL 

PDDL 

7101 

REF 

12 

LAST 

647 

34,3063 

03634 

0 

TCS  I 

710  2 

REF 

10 

LAST 

64  7 

34,3064 

01775 

0 

TCDH 

7103 

34,3065 

41525 

0 

PDDL 

PUSH 

7104 

REF 

3 

LAST 

643 

34,3066 

33642 

1 

TWOPI 

710  5 

34,3067 

77650 

1 

GOTO 

7106 

REF 

3 

LAST 

643 

34, 3070 

73404 

0 

INTINT 

7107 

34,3071 

65325 

0 

INTINT3P 

PDDL 

PDDL 

7108 

REF 

11 

LAST 

650 

34,3072 

01775 

0 

TCDH 

7109 

REF 

13 

LAST 

64  7 

34,3073 

03636 

1 

TTPI 

7110 

34,3074 

41525 

0 

PDDL 

PUSH 

711  1 

RFF 

9 

LAST 

647 

34,3075 

32425 

0 

P30ZERO 

7112 

34,3076 

77650 

1 

GOTO 

7113 

REF 

4 

LAST 

650 

34,3077 

73404 

0 

INTINT 
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GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L P32-P35,  P72-P75 

P 740  0 S32/33.1  

R7450  SUBROUTINES  USED 


R7451  S32/33.X 


7500 

34,3100 

7602  0 

I 

S32/33.1  STQ 

AXT , 1 

7500  1 

REF 

11 

LAST 

648 

34,3101 

03470 

1 

SUBEXIT 

75002 

34,3102 

01521 

0 

VN 

0681 

75003 

34,3103 

77624 

1 

CALL 

75004 

REF 

2 

LAST 

629 

34,3104 

72375 

0 

DISDVLVC 

7501 

34,3105 

77624 

1 

CALL 

7502 

REF 

2 

LAST 

636 

34,3106 

71  120 

1 

S32/33. X 

7503 

34,3107 

61375 

1 

VLOAD 

VXM 

7504 

REF 

15 

LAST 

63  6 

34,3110 

03434 

1 

0 EL VL  VC 

7505 

34,3111 

00001 

0 

OD 

75051 

34,3112 

77772 

0 

VSL  1 

7506 

REF 

8 

LAST 

623 

34,3113 

03656 

1 

STORE 

DELVSIN 

7507 

34,3114 

51406 

1 

PUSH 

ABVAL 

7508 

REF 

3 

LAST 

623 

34,3115 

27664 

0 

STOVL 

OELVSAB 

7509 

34,3116 

77650 

1 

GOTO 

7510 

REF 

12 

LAST 

651 

34,3117 

03470 

1 

SUBEX IT 
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GAP:  ASSEMBLE  REVISION  210  CF  A oC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 

L P32-P35,  P72-P75 

P7800  S32/33.X  


P7800  S32/33.X 


790  0 

34, 3120 

77201 

1 

S32/33.X  SETPO 

V LOAD 

7901 

34, 3121 

00007 

0 

6D 

7902 

REF 

9 

LAST 

649 

34,3122 

02252 

0 

UP1 

7903 

34,3123 

63276 

1 

VCOMP 

PDVL 

7904 

REF 

11 

LAST 

64  8 

34,3124 

02274 

1 

R ACT  1 

7905 

34,3125 

57456 

1 

UNIT 

VCOMP 

790  6 

34,3126 

47206 

0 

PUSH 

VXV 

7907 

REF 

10 

LAST 

652 

34,3127 

02252 

0 

UP1 

7908 

34,3130 

77772 

0 

VSL  1 

7909 

34,3131 

OOCOl 

0 

STORE 

00 

7910 

34,3132 

77616 

0 

RVO 

PAGF 


652 
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USER' 
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GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY 

L P32-P35,  P72-P75 

P8000  CDHMVR  

RB050  SUBROUTINES  USED 

R8051  VECSHIFT 

R8052  TIMETHET 

R8053  SHIFTR1 


3100 
810  l 

REF 

13 

LAST 

651 

8102 

3103 

REF 

8 

LAST 

64  8 

8104 

REF 

1 

3105 

REF 

5 

LAST 

648 

8106 

8107 

REF 

2 

LAST 

653 

8108 

8109 

RFF 

3 

LAST 

509 

8110 
811  1 
8112 

8113 

8114 

8115 

REF 

5 

LAST 

606 

8116 

3117 

REF 

6 

LAST 

653 

8118 

8119 

REF 

11 

LAST 

652 

8120 

REF 

5 

LAST 

642 

8121 

8122 

REF 

7 

LAST 

653 

812  3 

REF 

5 

LAST 

648 

8124 

REF 

3 

LAST 

64  2 

8125 

REF 

6 

LAST 

64  2 

8126 

8127 

REF 

5 

LAST 

64  2 

8128 

REF 

5 

LAST 

642 

8129 

REF 

4 

LAST 

64  2 

8130 

3131 

8132 

8133 

REF 

2 

LAST 

623 

8134 

3135 

REF 

3 

LAST 

653 

8136 

8137 

8138 

8139 

REF 

9 

LAST 

653 

8140 

8141 


34,3  133 

77220 

1 CDHMVR 

34,3  134 

034  70 

1 

34,3  135 

02302 

1 

34,3  136 

53406 

0 

34,3 137 

27544 

1 

34,3140 

03522 

1 

34,3141 

50256 

0 

34,3142 

03544 

1 

34,3143 

72406 

0 

34,3144 

16732 

0 

34,3145 

65316 

0 

34, 3146 

06475 

1 

34,3147 

45302 

1 

34,3150 

72566 

1 

34,3151 

57515 

1 

34,3152 

77635 

1 

34,3153 

03522 

1 

34,3154 

65241 

0 

34,3155 

02252 

0 

34,3156 

45565 

0 

34,3157 

51C47 

0 

34,3160 

03522 

1 

34,3161 

45  115 

0 

34,3162 

C3530 

1 

34,3163 

46437 

0 

34,3164 

26744 

1 

34,3165 

77614 

1 

34,3166 

03666 

1 

34,3  167 

36655 

1 

34,3170 

24732 

1 

34,3171 

53754 

1 

34,3172 

02777 

i 

34,3173 

57576 

1 

34,3174 

00023 

0 

34,3175 

76441 

1 

34,3176 

0 3 544 

1 

34,3177 

51515 

1 

34,3200 

63257 

1 

34,3201 

57576 

1 

34,3202 

02302 

1 

34,3203 

65246 

1 

34,3204 

77625 

0 
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STQ 

V LOAD 
SUBEXIT 
R ACT  2 

PUSH 

UNIT 

STOVL 

UNVEC 

RPASS2 

UNIT 

DOT 

UNVEC 

PUSH 

SL1 

STOOL 

CSTH 

DSQ 

P DDL 
DP1/4TH 

SR  2 

DSU 

SORT 

SL1 

PDVL 

VCOMP 

VXV 

RPASS2 

DOT 

PDDL 

UP1 

SIGN 

STAOR 

STOVL 

S NTH 
RPASS2 

PDVL 

CALL 
V PAS  S 2 
VECSHIFT 

STOVL 

V VEC 

CLEAR 

R VSW 

STCALL 

R VEC 

TIMETHET 

LXA  , 2 

VSL* 

RTX2 

0,2 

STORE 

1 8D 

DOT 

SL1R 

UNVEC 

PDVL 

ABVAL 

SL* 

PDVL 
0,2 
R ACT  2 

ABVAL 

DSU 

PDDL 

UR  SUB  A 


OD  = V SUB  PV 


2D  = LENGTH  OF  R SUB  A 
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P32- 

P35  » 

P72-I 

P 7 5 

8142 

34,3205 

3143 

REF 

4 

LAST 

328 

34,3206 

8144 

REF 

2 

LAST 

130 

34,3207 

8145 

34, 3210 

8146 

REF 

10 

LAST 

645 

34,3211 

8147 

REF 

3 

LAST 

641 

34,3212 

8148 

34,3213 

8149 

REF 

7 

LAST 

643 

34,  32  14 

815< 

34,3215 

815  1 

34, 321 6 

3152 

34,3217 

8153 

34,3220 

8154 

REF 

5 

LAST 

654 

34,3221 

8155 

34 , 3222 

8156 

34,3223 

8157 

34,3224 

8158 

34,3225 

8159 

34,3226 

8160 

34,3227 

8161 

34,3230 

8162 

34,3231 

8163 

34,3232 

8164 

REF 

1 1 

LAST 

654 

34,3233 

8165 

REF 

2 

LAST 

639 

34,3234 

3166 

34,3235 

816  7 

34,3236 

8168 

34,3237 

3169 

34,3240 

8170 

34,3241 

8171 

REF 

7 

LAST 

646 

34,3242 

8172 

REF 

3 

LAST 

654 

34,3243 

8173 

34, 3244 

3174 

34,3245 

8175 

34,3246 

8176 

34,3247 

817  7 

34,3250 

3178 

34,3251 

8179 

34,3252 

8180 

REF 

12 

LAST 

653 

34, 3253 

8181 

REF 

4 

LAST 

653 

34,3254 

8182 

34,3255 

8183 

34,3256 

8184 

34,3257 

8185 

REF 

5 

LAST 

654 

34,3260 

8186 

34,3261 

3187 

34,3262 

8188 

34,3263 

8189 

REF 

7 

LAST 

648 

34,3264 

8190 

34,3265 

8191 

REF 

3 

LAST 

648 

34,3266 

0CC03 

l 

020 

17600 

1 

STOOL 

0 I FF  ALT 

02742 

1 

R 1A 

65301 

0 

NORM 

POOL 

00047 

1 

XI 

00041 

1 

R 1 

77624 

1 

CALL 

46447 

1 

SHIFTP.l 

56362 

0 

SRI  R 

ODV 

41457 

1 

SL* 

PUSH 

20174 

1 

0-5,1 

65225 

1 

OSU 

POOL 

03600 

1 

0 IFFALT 

56302 

0 

SR2 

ODV 

00005 

1 

040 

75406 

1 

PUSH 

SORT 

41275 

1 

DM  PR 

OMP 

00C07 

0 

060 

OOOOl 

0 

000 

65272 

0 

SL3R 

PDDL 

00003 

1 

020 

65301 

0 

NORM 

PDDL 

00047 

1 

XI 

02312 

0 

RTMU 

56342 

1 

SRI 

ODV 

65257 

1 

SL* 

PDDL 

20174 

I 

0-5,1 

00005 

1 

040 

65301 

0 

NORM 

PDDL 

00050 

1 

X 2 

02312 

0 

RTMU 

56342 

1 

SRI 

ODV 

44257 

1 

SL* 

BDSU 

57604 

1 

0-6,2 

63525 

0 

POOL 

DSQ 

0001  l 

L 

08D 

75421 

1 

BDSU 

SORT 

47315 

0 

PDVL 

VXV 

02252 

0 

UP1 

03544 

1 

UNVEC 

74256 

0 

UNIT 

VXSC 

00C13 

0 

100 

74315 

0 

PDVL 

VXSC 

03544 

1 

UNVEC 

0001 1 

1 

08D 

76455 

l 

VAD 

VSL1 

77626 

0 

STADR 

74233 

0 

STORE 

V ACT  3 

77651 

0 

VSU 

03514 

1 

VACT2 
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DFLTA  H IN  METERS 
2 - R V**/MU 


B + 29 


040 


A SUB  A 
A SUB  P 

A SUB  P/A  SUB  A 

V SUB  AV  METFRS/CS 
R SUB  A MAGNITUDE 

2MU  B+38 

2 MU/R  SUBAA 

ASUBA 


B+29  040 

B+3  l 
B+2 
060 


B+7  080 

8 + 29 


B+14  10D 

8 + 29 


2U/R  - U/A  B+14  IMETEPS/CS ) SO 

10D 


SORT  ( MU  ( 2 / P,  SUB  A-l/A  SUB  A ) - VSUB  A2  ) 1 00 
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17:11  MAR.  19,1<371 

LEMP30S 

.105  PAGE  655 

L 

P32-P35,  P72-P75 

USER' S PAGE 

NO.  32 

E7  S3 

8199 

REF  6 LAST  634 

34,3267 

36266 

0 

STCALL  DELVFET2 

DELTA  VCOH  - REFERENCE  COORDINATES 

8200 

REF  14  LAST  653 

34, 3270 

03470 

1 

SUREXIT 
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L 

P32- 

P35 

, P72-I 

3 75 

P8201 

R8202 

. rr MPTf,n 

SUBRUUT 

INES  USED 

R 8203 

CLOKTASK 

R8204 

2PHSCHNG 

8205 

35,2437 

BANK 

35 

8206 

REF 

2 

LAST 

627 

35,2000 

SETLOC 

CSI/CDH 

820  7 

35,2437 

BANK 

0208 

REF 

1 

E7, 1465 

EBANK= 

RTRN 

8209 

REF 

1 

COUNT  * 

4 $/ P3  57  5 

8210 

35,2437 

0 0006 

1 COMP  T GO 

EXTEND 

821  1 

REF 

2 

LAST 

656 

35,2440 

23 ' 465 

1 

QXCH 

RTRN 

3212 

REF 

127 

LAST 

608 

35,2441 

3 4746 

0 

CAF 

ZERO 

8213 

REF 

2 

LAST 

155 

35,2442 

55 ' 162 

1 

TS 

D I SPDEX 

8214 

REF 

35 

LAST 

590 

35, 2443 

3 4743 

0 

CAF 

BIT2 

8215 

35,2444 

0 0004 

0 

INHINT 

8216 

REF 

24 

LAST 

609 

35,2445 

0 5205 

0 

TC 

WA 1 TL  I ST 

8217 

REF 

2 

LAST 

253 

E / , 1455 

EBANK= 

WHICH 

8218 

RFF 

2 

LAST 

254 

35,2446 

02716 

0 

2CADR 

CLOKTASK 

821  8 

35,2447 

74067 

0 

3219 

REF 

3 

LAST 

518 

35,2450 

0 5331 

0 

TC 

2 PHSCHNG 

8220 

35,2451 

40036 

0 

OCT 

40036 

8221 

35,2452 

05024 

1 

OCT 

05024 

8222 

35,2453 

13000 

0 

OCT 

13000 

8223 

REF 

3 

LAST 

656 

35,2454 

0 1465 

1 

TC 

RTRN 
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P0001  GROUND  TRACKING  DETERMINATION  PROGRAM  P21 

R0002  PROGRAM  DESCRIPTION 

R0003  MOD  NO  - 1 

R0004  MOD  BY  - N.M. NEVILLE 

R0005  FUNCTIONAL  DECRIPTICN- 

R0006 

R0007  TO  PROVIDE  THE  ASTRONAUT  DETAILS  OF  THE  LM  OR  CSM  GROUND  TRACK  WITHOUT 
R0008  THE  NEED  FOR  GROUND  COMMUNICATION  (REQUESTED  BY  DSKY). 

R0009  CALLING  SEQUENCE  - 
R0010 

R0011  ASTRONAUT  REQUEST  THROUGH  DSKY  V37E21E 

R0012  SUBROUTINES  CALLED- 

R0013 

R0014  G0PERF4 

R0015  GOFLASH 

R0016  THISPREC 

R0017  OTHPREC 

R0018  LAT-LONG 

R0019  NORMAL  EXIT  MODES- 

R0020 

R0021  ASTRONAUT  REQUEST  TROUGH  DSKY  TO  TERMINATE  PROGRAM  V34E 
R0022  ALARM  OR  ABORT  EXIT  MODES- 
R002  3 

R0024  NONE 
R0025  OUTPUT  - 
R0026 

R0027  OCTAL  DISPLAY  OF  OPTION  CODE  AND  VEHICLE  WHOSE  GROUND  TRACK  I S TO  BE 
R0028  COMPUTED 

R0029  OPTION  CODE  00002 

R0030  THIS  00001 

R0031  OTHER  00002 


R0032 

DECIMAL 

D I SPLAY 

OF  TIME  TO  BE  INTEGRATED  TO  HOURS  , MINUTES  , 

, SECONDS 

R0033 

R0034 

R0035 

DECIMAL 

ERASABLE 

DISPLAY 

INITIAL 

OF  LAT, LONG, ALT 
IZATION  REQUIRED 

R0036 

R0037 

AXO 

2DEC 

4.652459653  E-5 

RAOIANS  £68-69  CONSTANTS" 

R0038 

R0039 

- AYO 

2DEC 

2.147535898  E-5 

RADIANS 

R0040 

AZO 

2DEC 

.7753206164 

REVOLUTIONS 

R0041 

R0042 

FOR  LUNAR  ORBITS 

504LM  VECTOR  IS 

NEEDED 

R0043 

R0044 

504LM 

2DEC 

-2.700340600  E-5 

RADIANS 

R0045 

R0046 

504LM  _2 

2DEC 

-7.514128400  E-4 

RADIANS 

R0047 

R0048 

R0049 

R0050 

504LM  _4 

NONE 
DEBR  I S 

2DEC 

_2. 553198641  E-4 

RADIANS 

657 
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R0051 

R0052 

CENTRALS- 

- A ,0  , L 

R0053 

OTHER-THDSE  USED  BY 

THE  ABOVE 

LISTED 

SUBROUTINES 

R0054 

SEE 

LEMPREC ,LAT 

-LONG 

0055 

REF 

8 

LAST 

507 

30,2000 

SBA  NK  = 

LOWSUPER 

0056 

33,2113 

BANK 

33 

0057 

REF 

6 

LAST 

592 

24,2000 

SETLOC 

P20S 

0058 

24,3441 

BANK 

0059 

REF 

6 

LAST 

251 

E 7 , 1762 

EBANK= 

P 2 IT  I ME 

0060 

REF 

1 

COUNT* 

$*/P21 

006  l 

REF 

72 

LAST 

618 

24,3441 

3 4744 

1 

PROG  2 1 

CAF 

ONE 

0062 

REF 

3 

LAST 

508 

24, 3442 

55 1 144 

0 

TS 

QPTI0N2 

0063 

REF 

36 

LAST 

656 

24,3443 

3 4743 

0 

CAF 

BIT2 

0064 

REF 

166 

LAST 

633 

24,3444 

C 4607 

1 

TC 

8 ANKC ALL 

0065 

REF 

2 

LAST 

508 

24, 3445 

20645 

1 

CADR 

G0PERF4 

0066 

REF 

9 

LAST 

633 

24,3446 

0 6001 

0 

TC 

GOTOPOOH 

006  7 

24,3447 

0 3451 

1 

TC 

+ 2 

006  8 

24,3450 

0 3443 

1 

TC 

-5 

00682 

REF 

128 

LAST 

656 

24, 3451 

3 4746 

0 

CAF 

ZERO 

00604 

REF 

20 

LAST 

590 

24,3452 

55 ' 044 

1 

TS 

DSPTEM1 

00686 

REF 

2 l 

LAST 

658 

24,3453 

55' C45 

0 

TS 

DSPTEM1  +1 

0069 

REF 

1 

24,3454 

3 3631 

0 

P21PRDG1 

CAF 

V6N34 

0070 

REF 

167 

LAST 

658 

24,3455 

0 4607 

1 

TC 

BANKCALL 

007  1 

REF 

11 

LAST 

633 

24,3456 

2 04  7 1 

1 

CADR 

GOFLASH 

0072 

REF 

10 

LAST 

658 

24,3457 

C 6001 

0 

TC 

GOTOPOOH 

0073 

24,3460 

0 3462 

1 

TC 

*2 

0074 

24,3461 

0 3454 

1 

TC 

-5 

0075 

REF 

74 

LAST 

636 

24,3462 

0 6060 

1 

TC 

INTPRET 

0076 

24,3463 

53  145 

1 

DLOAD 

BZE 

007  7 

REF 

22 

LAST 

658 

24,3464 

01045 

1 

DSPTEM1 

00775 

REF 

1 

24,3465 

51623 

1 

P21PRTM 

0078 

REF 

24 

LAST 

648 

24,3466 

34041 

0 

P21PROG2 

STCALL 

TDECl 

0079 

REF 

18 

LAST 

615 

24,3467 

27447 

0 

INTSTALL 

0080 

24,3470 

43014 

0 

BON 

CLEAR 

008  1 

REF 

1 

24,3471 

C0304 

0 

P 2 IF  LAG 

0082 

REF 

1 

24,3472 

51510 

1 

P21C0NT 

0083 

REF 

17 

LAST 

603 

24, 3473 

01674 

0 

V INTFLAG 

0084 

24,3474 

70535 

0 

SLOAD 

SRI 

0085 

REF 

4 

LAST 

658 

24,3475 

01145 

0 

0PTI0N2 

0086 

24,3476 

43C30 

0 

BHIZ 

SET 

0087 

24,3477 

51501 

1 

+ 2 

0088 

REF 

18 

LAST 

658 

24,3500 

01474 

1 

V INTFLAG 

0089 

24,350  1 

43014 

0 

Cl  EAR 

CLEAR 

0090 

REF 

12 

LAST 

603 

24,3502 

01676 

1 

0 IMOFLAG 

0091 

REF 

6 

LAST 

603 

24,3503 

01673 

1 

I NTYPFLG 

0092 

24,3504 

77624 

1 

CALL 

0093 

REF 

9 

LAST 

604 

24,3505 

27172 

0 

INTEGRV 

0094 

24,3506 

77650 

l 

GOTO 
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FOR  LOW  2C ADR 'S. 


ASSUMED  VEHICLE  IS  LM  , R2  = 00001 
OPTION  2 


TERMINATE 

PROCEED  VALUE  OF  ASSUMEO  VEHICLE  OK 
R 2 LOADED  THROUGH  DSKY 
INITIAL  TIME  = PRESENT  TIME 


LOAD  DESIRED  TIMF  OF  LAT-LONG. 


TERM 

PROCEED  VALUES  OK 

TIME  LOADED  THROUGH  DSKY 


INTEG  TO  TIME  SPECIFIED  IN  TDECl 


ON RECYCLE  USING  BASE  VECTOR 

OFF — 1ST  PASS  CALL  BASE  VECTOR 


ZERU — THIS  VEHICLEIIM) 
ONE — OTHFR  VFHICLEICM ) 


PRECI S ION 

CALCULATE 

-AND 


GAP: 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  202IL12-I6I  17:11  MAR.  19,1971  KISSING  .067  PAGE 

L GROUND  TRACKING  DETERMINATION  PROGRAM  - P21  USER'S  PAGE  NO.  3 E7  S3 


0095 

REF 

1 

24,3507 

51532 

i 

P21VSAVE 

-SAVE  BASE  VECTOR 

0096 

24,3510 

77775 

1 

P21C0NT 

VLOAD 

009  7 

REF 

2 

LAST 

155 

24,3511 

03676 

0 

P21BASER 

RECYCLE — INTEG  FROM  BASE 

VECTOR 

0098 

REF 

5 

LAST 

5 1 C 

24,3512 

25535 

0 

STOVL 

RCV 

— POS 

0099 

REF 

2 

LAST 

155 

24,3513 

03704 

1 

P21BASEV 

0100 

REF 

4 

LAST 

333 

24,3514 

15543 

1 

STOOL 

VCV 

— VEL 

0101 

REF 

7 

LAST 

656 

24,3515 

03763 

0 

P 2 IT  I ME 

0102 

REF 

8 

LAST 

510 

24,3516 

01517 

0 

STORE 

TET 

— TIME 

0103 

24,3517 

43014 

0 

CLEAR 

CLEAR 

0104 

REF 

13 

LAST 

658 

24,3520 

01676 

1 

DIMOFLAG 

0105 

REF 

1 

24,3521 

00263 

0 

MOONFLAG 

0106 

24,3522 

53135 

0 

SLOAO 

BZE 

0107 

REF 

1 

24,3523 

01163 

1 

P210RIG 

010  . 

24,3524 

51527 

0 

+ 3 

Z E R0=  EARTH 

0109 

24,3525 

77614 

1 

SET 

2= MOON 

0110 

REF 

2 

LAST 

659 

24, 3526 

00063 

1 

MOONFLAG 

Oil  1 

24,3527 

45C14 

0 

+3 

CLEAR 

CALL 

01115 

REF 

7 

LAST 

658 

24,3530 

0 1673 

1 

I NTYPFLG 

0112 

REF 

1 

24,3531 

27145 

1 

I NTEGRVS 

0113 

24,3532 

77745 

1 

P21VSAVE 

DLOAD 

SAVE  CURRENT  BASEVECTOR 

0114 

REF 

7 

LAST 

609 

24,3533 

00C15 

0 

TAT 

0115 

REF 

8 

LAST 

659 

24,3534 

27763 

0 

STOVL 

P 2 IT  I ME 

— TIME 

0116 

REF 

4 

LAST 

509 

24,3535 

00017 

1 

R ATT  1 

0117 

REF 

3 

LAST 

659 

24,  3536 

27676 

0 

STOVL 

P21BASER 

— POS  B—  29  OR  B— 2 7 

0118 

REF 

7 

LAST 

509 

24,3537 

00025 

0 

V ATT  1 

0119 

REF 

3 

LAST 

659 

24,3540 

03704 

1 

STORE 

P21BASEV 

— VEL  8-07  OR  B-0 5 

01191 

24,3541 

53646 

0 

ABVAL 

SL* 

01192 

24,3542 

57576 

1 

0,2 

01193 

REF 

3 

LAST 

329 

24,3543 

27712 

0 

STOVL 

P21VEL 

VEL/  FOR  N91  DISP 

01194 

REF 

1 1 

LAST 

623 

24,3544 

00001 

0 

RATT 

01195 

24,3545 

5C256 

0 

UNIT 

DnT 

0119  6 

REF 

9 

LAST 

643 

24,3546 

00007 

0 

VATT 

U ( R ) .V 

01197 

24,3547 

67471 

1 

DDV 

ASIN 

U(.RI.U(V> 

01198 

REF 

4 

LAST 

659 

24,3550 

03712 

0 

P21VEL 

01195 

REF 

3 

LAST 

329 

24,3551 

03714 

0 

STORE 

P 2 IGA  M 

SIN-1  U ( R ) . U ( V ) , -90  TO 

890 

0120 

24,3552 

67334 

1 

SX A , 2 

SLOAD 

012  1 

REF 

2 

LAST 

659 

24,3553 

01162 

0 

P210RIG 

0 = EAR  T H 

0122 

REF 

5 

LAST 

658 

24,3554 

01145 

0 

0PTI0N2 

0123 

24,3555 

46142 

1 

SRI 

BHIZ 

0124 

24,3556 

51561 

1 

+ 3 

0125 

24,3557 

77650 

1 

GOTO 

0126 

24,3560 

5 1564 

1 

+ 4 

0127 

24,3561 

77614 

1 

+ 3 

BON 

0123 

REF 

14 

LAST 

615 

24,3562 

04307 

1 

SURFFLAG 

0129 

REF 

1 

24,3563 

51566 

0 

P210SP 

0130 

24,3564 

77614 

1 

+ 4 

SET 

0131 

REF 

2 

LAST 

658 

24,3565 

0CC64 

0 

P21FLAG 

0132 

24,3566 

67214 

1 

P21DSP 

CLEAR 

SLOAD 

GENERATE  DISPLAY  DATA 

0133 

REF 

1 

24,3567 

01663 

0 

LUNAFLAG 

0134 

REF 

8 

LAST 

6 54 

24,3570 

00050 

1 

X2 

659 
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0135 

24,3571 

43054 

1 

BZE 

SET 

0136 

24,3572 

51574 

0 

+ 2 

0137 

REF 

2 

LAST 

659 

24,3573 

01463 

1 

LUNAFLAG 

0133 

24,3574 

77775 

1 

VLOAD 

0139 

REF 

12 

LAST 

659 

24,3575 

CCC01 

0 

RATT 

0140 

REF 

2 

LAST 

118 

24,3576 

16C32 

1 

STOOL 

ALPHAV 

0141 

REF 

8 

LAST 

659 

24,3577 

00015 

0 

TAT 

0142 

24,3600 

45014 

0 

CLEAR 

CALL 

0143 

REF 

1 

24,3601 

00662 

0 

ERADFLAG 

0144 

REF 

1 

24,3602 

26406 

1 

LAT-LONG 

01442 

24,3603 

77605 

1 

DMP 

01443 

REF 

l 

24,3604 

11633 

1 

K .01 

01445 

REF 

2 

LAST 

329 

24, 3605 

03716 

1 

STORE 

P 2 1 ALT 

0145 

24,3606 

77776 

1 

EXIT 

014  6 

REF 

1 

24,3607 

3 3630 

l 

CAF 

V06N43 

014  7 

REF 

168 

LAST 

658 

24,3610 

0 4 60  7 

1 

TC 

BANKCALL 

014  8 

REF 

12 

LAST 

658 

24,3611 

20471 

1 

CADR 

GOFLASH 

0149 

REF 

1 1 

LAST 

658 

24,3612 

0 6001 

0 

TC 

GOTOPOOH 

0150 

REF 

12 

LAST 

660 

24,3613 

0 6001 

0 

TC 

GOTOPOOH 

0151 

REF 

75 

LAST 

656 

24,3614 

0 6060 

1 

TC 

INTPRET 

0152 

24,3615 

43345 

1 

DLOAD 

DAD 

0153 

REF 

9 

LAST 

659 

24,3616 

03763 

0 

P 2 IT  I ME 

0154 

REF 

1 

24,3617 

11627 

1 

600SEC 

0155 

REF 

23 

LAST 

658 

24,3620 

01045 

1 

STORE 

DSPTEM1 

0156 

24,3621 

77634 

0 

RTB 

0157 

REF 

1 

24,3622 

51454 

0 

P21PR0G1 

0157? 

24,3623 

52034 

L 

P21PRTM 

RTB 

GOTO 

015  74 

REF 

14 

LAST 

609 

24,3624 

21603 

1 

LOADT IME 

01576 

REF 

1 

24,3625 

5 1466 

1 

P21PROG2 

0158 

24,3626 

00003 

1 

600SEC 

2DEC 

60000 

0158 

24,3627 

25140 

0 

0159 

24,3630 

01453 

1 

V06N43 

VN 

00643 

0160 

24,3631 

01442 

1 

V6N3  4 

VN 

00634 

01602 

24,3632 

OC  243 

1 

K .01 

2DEC 

.01 

01602 

24,3633 

32703 

1 
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POOIO 

TRANSFER 

PHASE  INITIATION  (TPI)  PROGRAMS  (P34  AND  P74) 

R001  1 
R0012 

MOD 

MOO 

NU  -1  LOG  SECTION  - P32-P35,  P72-P75 

BY  WHITE. P DATE  1JUNE67 

R001  3 

PURPOSE 

ROOM 

R0015 

R0016 

(1) 

TO  CALCULATE  THE  REQUIRED  DELTA  V AND  OTHER  INITIAL  CONDITIONS 
REQUIRED  BY  THE  ACTIVE  VEHICLE  FUR  EXECUTION  OF  THE  TRANSFER 
PHASE  INITIATION  (TPI)  MANEUVER,  GIVEN  - 

R0017 

R0018 

(A)  TIME  OF  IGNITION  TIG  (TPI)  OR  THE  ELEVATION  ANGLE  (E)  OF 
THE  ACTIVE/PASSIVE  VEHICLE  LOS  AT  TIG  (TPI). 

R0019 

R0020 

(B)  CENTRAL  ANGLE  OF  TRANSFER  (CENTANG)  FROM  TIG  (TPI)  TO 
INTERCEPT  TIME  (TIG  ( TPF  ) ) . 

R0021 

(2) 

TO  CALCULATE  TIG  (TPI)  GIVEN  E OR  E GIVEN  TIG  (TPI). 

R0022 

R0023 

(3) 

TO  CALCULATE  THESE  PARAMETERS  BASEO  UPON  MANEUVER  DATA 
APPROVED  AND  KEYED  INTO  THE  DSKY  BY  THE  ASTRONAUT. 

R0024 

R0025 

R0026 

(4) 

TO  DISPLAY  TO  THE  ASTRONAUT  AND  THE  GROUND  CERTAIN  DEPENDENT 
VARIABLES  ASSOCIATED  WITH  THE  MANEUVER  FOR  APPROVAL  BY  THE 
ASTRONAUT/GROUND. 

R0027 

R0028 

(5) 

TO  STORF  THE  TPI  TARGET  PARAMETERS  FOR  USE  BY  THE  DESIRED 
THRUSTING  PROGRAM. 

R0029 

ASSUMPTIONS 

R0030 
R003  1 
R0032 

( 1 ) 

LM  ONLY  - THIS  PROGRAM  IS  BASED  UPON  PREVIOUS  COMPLETION  OF 
THE  CONSTANT  DELTA  ALTITUDE  (CDH)  PROGRAM  (P33/P73). 
THEREFORE  - 

R0033 

R0034 

R0035 

R0036 

(A)  AT  A SELECTED  TPI  TIME  (NOW  IN  STORAGE)  THE  LINE  OF  SIGHT 
BETWEEN  THE  ACTIVE  AND  PASSIVE  VEHICLES  WAS  SELECTED  TO  BE 
A PRESCRIBED  ANGLE  (E)  (NOW  IN  STORAGE)  FROM  THE 
HORIZONTAL  PLANE  DEFINED  BY  THE  ACTIVE  VEHICLE  POSITION. 

R0037 

R0038 

(B)  THE  TIME  BETWEEN  CDH  IGNITION  AND  TPI  IGNITION  WAS 
COMPUTED  TO  BE  GREATER  THAN  10  MINUTES. 

R0039 

R0040 

(C)  THE  VARIATION  OF  THE  ALTITUDE  DIFFERENCE  BETWEEN  THE 
ORBITS  WAS  MINIMIZED. 

R0041 

(D)  THE  PERICENTER  ALTITUDES  OF  ORBITS  FOLLOWING  CSI  AND 

R0042 

CDH  WERE  COMPUTED  TO  BE  GREATER  THAN  35,000  FT  FOR  LUNAR 

.067 


EO  S3 


GAP: 

L 

R0043 

R0044 
R0045 
R 0 04  6 
R004  7 

R004  8 
R0049 

R0050 

R0051 

R0052 

R0053 

R0054 

R0055 

R0056 
R0057 
R005  8 
R0059 
R0060 
R006  1 
R0062 
R0063 

R0064 

R0065 

R0066 

R0067 

R0068 

R0069 

R0070 

R0071 

R0072 

R0073 

R0074 

R0075 
R0076 
R0077 
R0078 
R007  9 

ROOOO 

R0081 
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NO.  2 EO  S3 

ORBIT  OR  85  NM  FOR  EARTH  ORBIT. 

(E)  THE  CSI  AND  COH  MANEUVERS  WERE  ASSUMED  TO  BE  PARALLEL  TO 
THE  PLANE  OF  THE  PASSIVE  VEHICLE  ORBIT.  HOWEVER,  CREW 
MODIFICATION  OF  DELTA  V (LV)  COMPONENTS  MAY  HAVE  RESULTED 
IN  AN  OUT-OF-PLANE  MANEUVER. 

(2)  STATE  VECTOR  UPDATED  BY  P27  ARE  DISALLOWED  DURING  AUTOMATIC 
STATE  VECTOR  UPDATING  INITIATED  BY  P20  (SEE  ASSUMPTION  (4)). 

(3)  THIS  PROGRAM  MUST  BE  DONE  OVER  A TRACKING  STATION  FOR  REAL 
TIME  GROUND  PARTICIPATION  IN  DATA  INPUT  AND  OUTPUT.  COMPUTED 
VARIABLES  MAY  BE  STORED  FOR  LATER  VERIFICATION  BY  THE  GROUND. 

THESE  STORAGE  CAPABILITIES  ARE  LIMITED  ONLY  TO  THE  PARAMETERS 
FOR  ONE  THRUSTING  MANEUVER  AT  A TIME  EXCEPT  FOR  CONCENTRIC 
FLIGHT  PLAN  MANEUVER  SEQUENCES. 

(4)  THE  RENDEZVOUS  RADAR  MAY  OR  MAY  NOT  BE  USED  TO  UPDATE  THE  LM 
OR  CSM  STATE  VECTORS  FOR  THIS  PROGRAM.  IF  RADAR  USE  IS 
DESIRED  THE  RADAR  WAS  TURNED  ON  AND  LOCKED  ON  THE  CSM  BY 
PREVIOUS  SELECTION  OF  P20.  RADAR  SIGHTING  MARKS  WILL  BE  MADE 
AUTOMATICALLY  APPROXIMATELY  ONCE  A MINUTE  WHEN  ENABLED  BY  THE 
TRACK  AND  UPDATE  FLAGS  (SEE  P20  ) . THE  RENDEZVOUS  TRACKING 
MARK  COUNTER  IS  ZEROED  BY  THE  SELECTION  OF  P20  AND  AFTER  EACH 
THRUSTING  MANEUVER. 

(5)  THE  ISS  NEED  NOT  BE  ON  TO  COMPLETE  THIS  PROGRAM. 

(6)  THE  OPERATION  OF  THE  PROGRAM  UTILIZES  THE  FOLLOWING  FLAGS  - 

ACTIVE  VEHICLE  FLAG  - DESIGNATES  THE  VEHICLE  WHICH  IS 
DOING  RENDEZVOUS  THRUSTING  MANEUVERS  TO  THE  PROGRAM  WHICH 
CALCULATES  THE  MANEUVER  PARAMETERS.  SET  AT  THE  START  OF 
EACH  RENDEZVOUS  PRE-THRUST  I NG  PROGRAM. 

FINAL  FLAG  - SELECTS  FINAL  PROGRAM  DISPLAYS  AFTER  CREW  HAS 
SELFCTED  THE  FINAL  MANEUVER  COMPUTATION  CYCLE. 

EXTERNAL  DELTA  V FLAG  - DESIGNATES  THE  TYPE  OF  STEERING 
REQUIRED  FOR  EXECUTION  OF  THIS  MANEUVER  BY  THE  THRUSTING 
PROGRAM  SELECTED  AFTER  COMPLETION  OF  THIS  PROGRAM. 

(7)  ONCE  THE  PARAMETWRS  REQUIRED  FOR  COMPUTION  OF  THE  MANEUVER 
HAVE  BEEN  COMPLETELY  SPECIFIED,  THE  VALUE  OF  THE  ACTIVE 
VEHICLE  CENTRAL  ANGLE  OF  TRANSFER  IS  COMPUTED  AND  STORED. 

THIS  NUMBER  WILL  BE  AVAILABLE  FOR  DISPLAY  TO  THE  ASTRONAUT 
THROUGH  THE  USE  OF  V06N52. 

THE  ASTRONAUT  WILL  CALL  THIS  DISPLAY  TO  VERIFY  THAT  THE 
CENTRAL  ANGLE  OF  TRANSFER  OF  THE  ACTIVE  VEHICLE  IS  NOT  WITHIN 
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R0082 

170  TO  190  DEGREES.  IF  THE  ANGLE  IS  WITHIN  THIS  ZONE  THE 

R008  3 

ASTRONAUT  SHOULD  REASSESS  THE  INPUT  TARGETING  PARAMETERS  BASED 

R0084 

UPON  DELTA  V AND  EXPECTED  MANEUVER  TIME. 

R0085 

(8) 

THIS  PROGRAM  IS  SELECTED  BY  THE  ASTRONAUT  BY  DSKY  ENTRY  - 

R0086 

P3A 

IF  THIS  VEHICLE  IS  ACTIVE  VEHICLE. 

R0087 

P7A 

IF  THIS  VEHICLE  IS  PASSIVE  VEHICLE. 

R0088 

INPUT 

R0089 

(1) 

TTP  I 

TIME  OF  THE  TPI  MANEUVER 

R0090 

(2  ) 

ELEV 

DESIRED  LOS  ANGLE  AT  TPI 

R0091 

(3) 

CFNTANG 

ORBITAL  CENTRAL  ANGLE  OF  THE  PASSIVE  VEHICLE  DURING 

R0092 

TRANSFER  FROM  TPI  TO  TIME  OF  INTERCEPT 

R0093 

OUTPUT 

R 0094 

(1) 

TRKMKCNT 

NUMBER  OF  MARKS 

R0095 

(2) 

TTOGO 

TIME  TU  GO 

R0096 

(3) 

+ MGA 

MIDDLE  GIMBAL  ANGLE 

R0097 

(A) 

TTP  I 

CCMPUTED  TIME  OF  TPI  MANEUVER 

R0098 

OR 

R0099 

ELEV 

COMPUTED  LOS  ANGLE  AT  TPI 

R0100 

(5  ) 

POSTTPI 

PERIGEE  ALTITUDE  AFTER  THE  TPI  MANEUVER 

R010  1 

(6) 

DEL  V TP  I 

MAGNITUDE  OF  DELTA  V AT  TPI 

RO 10  2 

(7) 

OELVTPF 

MAGNITUDE  OF  DELTA  V AT  INTERCEPT 

RO 103 

(8) 

DVLOS 

DELTA  VELOCITY  AT  TPI  - LINE  OF  SIGHT 

RO  10  A 

19  ) 

DEL VL VC 

DELTA  VELOCITY  AT  TPI  - LOCAL  VERTICAL  COORDINATES 

R0105 

DOWNL INK 

RO  11 A 

(1) 

TTP  I 

TIME  OF  THE  TPI  MANEUVER 

R0115 

(2) 

TIG 

TIME  OF  THE  TPI  MANEUVER 

RO  11  6 

(3) 

ELEV 

DESIRED  LOS  ANGLE  AT  TPI 

R0117 

(A) 

CtNTANG 

ORBITAL  CENTRAL  ANGLE  OF  THE  PASSIVE  VEHICLE  DURING 

Rons 

TRANSFER  FROM  TPI  TO  TIME  OF  INTERCEPT 

RO  119 

15) 

DELVEET3 

DELTA  VELOCITY  AT  TPI  - REFERENCE  COORDINATES 

RO  12  0 

(6  ) 

TP AS  S A 

TIME  OF  INTERCEPT 

RO  12  1 

COMMUN ICA 

TION  TO  THRUSTING  PROGRAMS 

RO  122 

( 1 ) 

TIG 

TIME  OF  THE  TPI  MANEUVER 

RO  12  3 

1 2 ) 

RTARG 

OFFSET  TARGET  POSITION 

RO  12  A 

(3) 

TPASSA 

TIME  OF  INTERCEPT 

RO  12  5 

(A) 

XDELVFLG 

RESET  TO  INDICATE  LAMBERT  (AIMPOINT)  VG  COMPUTATION 

RO  12  6 

SUBROUTINES  USED 

RO  12  7 

AVFLAGA 

" 
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R0128 
R0129 
R0130 
R 0 13  1 
RO  13  2 
R0133 
RO  13  A 
RO  13  5 
RO  13  6 
RO  13  7 
RO  13  8 
R0139 
RO  140 
RO  14  1 
RO  142 
RO  14  3 


AVFLAGP 
VNPOOH 
0 I SPL AYE 
SFLECTMU 
PRECSET 
S33/34. 1 
ALARM 
E ANKCALl 
GGFLASH 
GOTOPOOH 
T IMETHET 
S34/35.2 
PER  I AP01 
SHIFTR1 
S34/35.5 
VN 1 645 


0144 

REF 

3 

LAST 

656 

35,2000 

SETLOC 

CSI/CDH 

0145 

35,2455 

BANK 

0146 

REF 

15 

LAST 

655 

E7, 1470 

EBANK= 

SUBEXIT 

014  7 

REF 

1 

COUNT  * 

$ $/P  3474 

0148 

REF 

3 

LAST 

633 

35,2455 

0 2354 

1 

P 34 

TC 

AVELAGA 

0149 

REF 

1 

35,2456 

0 2460 

1 

TC 

P34/P74A 

0150 

REF 

3 

LAST 

633 

35,2457 

0 2361 

1 

P 74 

TC 

AVFLAGP 

0151 

REF 

3 

LAST 

633 

35,2460 

0 2366 

0 

P34/P74A 

TC 

P20FLG0N 

01515 

REF 

2 

LAST 

628 

35,2461 

3 3633 

1 

CAF 

V06N37 

0152 

REF 

10 

LAST 

636 

35,2462 

0 3622 

1 

TC 

VNPOOH 

0152  1 

35,2463 

0 0006 

1 

EXTEND 

01522 

REF 

1 

35,2464 

3 3656 

1 

DC  A 

1 30DEG 

01523 

REF 

5 

LAST 

640 

35,2465 

53*621 

1 

DXCH 

CENTANG 

01525 

REF 

5 

LAST 

463 

35, 2466 

3 4 732 

0 

CAF 

EBANK4 

0152  6 

REF 

93 

LAST 

618 

35,2467 

54  001 

1 

TS 

L 

01528 

REF 

10 

LAST 

650 

35,2470 

3 2424 

l 

CAF 

P30ZER0 

0152S 

REF 

5 

LAST 

642 

35,2471 

55 ' 466 

0 

TS 

NN 

015294 

REF 

6 

LAST 

643 

E4, 1647 

EBANK= 

ELEV 

015295 

REF 

24 

LAST 

580 

35 , 2472 

22  003 

1 

LXCH 

EBANK 

0153 

REF 

7 

LAST 

664 

35,2473 

55 ' 647 

1 

TS 

ELEV 

0153  1 

REF 

8 

LAST 

664 

35,2474 

55 ' 650 

1 

TS 

ELEV  +1 

01533 

REF 

25 

LAST 

664 

35,2475 

22  C03 

1 

LXCH 

EBANK 

01534 

REF 

16 

LAST 

664 

87,1470 

EBANK= 

SUBEXIT 

01535 

REF 

1 

35,2476 

0 3604 

0 

TC 

DISPLAYE 

0154 

REF 

76 

LAST 

660 

35,2477 

0 6 0 60 

1 

TC 

INTPRET 

0155 

35,2500 

71214 

0 

CLEAR 

DLOAD 

0156 

REF 

1 

35,2501 

01270 

0 

ETPI FLAG 

0157 

REF 

14 

LAST 

650 

35,2502 

03636 

L 

TTPI 

0158 

REF 

14 

LAST 

648 

35,2503 

17442 

0 

STODL 

T IG 

0159 

REF 

9 

LAST 

664 

35,2504 

02250 

1 

ELEV 

0160 

35,2505 

43054 

1 

BZE 

SET 

016  1 

REF 

1 

35,2506 

72510 

0 

P34/P74B 

0162 

RFF 

2 

LAST 

664 

35,2507 

01070 

1 

ETPI FLAG 
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SET  UPDATFLG,  TRACKFLG 
TTPI 


INITIALIZE  DISPLAYED  REGISTERS  TO  ZFRO 
Rl:  NN  — NUMBER  OF  OFFSETS 


R2  : ELEV  (D.P.)  — ELEVATION  ANGLF 

CHNG  BACK  TO  WHAT  IT  WAS  RFFORF 
V06N55  GOFLASH  CALL:  NN  ,E LEV, CENTANG 
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P 34- 

P35, 

P 74- 

P75 

0163 

35,2510 

77624 

1 

P34/P74B 

CALL 

0 164 

REF 

3 

LAST 

633 

35,2511 

20000 

0 

SELECTMU 

0165 

0032 

DELELO 

EQUALS 

26D 

0166 

35,2512 

43145 

0 

P34/P74C 

DLQAD 

SET 

0167 

REF 

8 

LAST 

615 

35,2513 

06505 

1 

ZEROVFCS 

0168 

REF 

2 

LAST 

633 

35,2514 

03460 

0 

JTSW  ICH 

0169 

35,2515 

43014 

0 

BON 

CLEAR 

0170 

REF 

3 

LAST 

664 

35,2516 

01310 

1 

ETP I F LAG 

0171 

REF 

1 

35,2517 

72521 

1 

SWCHSET 

0172 

RFF 

3 

LAST 

665 

35,2520 

03660 

1 

I TSWICH 

0173 

REF 

4 

LAST 

634 

35,2521 

02310 

1 

SWCHSET 

STORE 

NOMTP I 

0174 

35,2522 

43345 

1 

INTLOOP 

DLOAD 

DAD 

0175 

REF 

15 

LAST 

664 

35,2523 

03636 

1 

TTPI 

0176 

REF 

5 

LAST 

665 

35,2524 

0 2310 

1 

NOMTP  I 

0177 

REF 

25 

LAST 

658 

35,2525 

34041 

0 

STCALL 

T DEC  1 

0178 

REF 

3 

LAST 

648 

35,2526 

46401 

0 

PRECSET 

0179 

35,2527 

77624 

1 

CALL 

0180 

REF 

2 

LAST 

633 

35,2530 

72702 

1 

S 33/ 34. 1 

018  1 

35,2531 

77454 

1 

BZE 

EXIT 

0182 

REF 

1 

35,2532 

72543 

0 

SWCHCLR 

0183 

REF 

26 

LAST 

633 

35,2533 

0 5571 

1 

TC 

ALARM 

0184 

35,2534 

0C611 

1 

OCT 

611 

0185 

REF 

3 

LAST 

633 

35, 2535 

3 4 777 

1 

CAF 

V05N09 

0136 

REF 

169 

LAST 

660 

35,2536 

0 4607 

1 

TC 

BANKCALL 

0187 

REF 

13 

LAST 

660 

35,2537 

2 04  7 1 

1 

CADR 

GOFLASH 

0188 

REF 

13 

LAST 

660 

35,2540 

0 6001 

0 

TC 

GOTOPOOH 

0189 

REF 

2 

LAST 

66  4 

35,2541 

0 2460 

1 

TC 

P34/P74A 

0190 

35,2542 

0 2533 

0 

TC 

-7 

0191 

35,2543 

43014 

0 

SWCHCLR 

BONCLR 

BON 

0192 

REF 

4 

LAST 

665 

35,2544 

0 3 600 

1 

ITSWICH 

0193 

REF 

1 

35,2545 

72522 

1 

I NTLOOP 

0194 

REF 

4 

LAST 

665 

35,2546 

01310 

1 

ETPI FLAG 

0195 

REF 

1 

35,2547 

72553 

1 

P34/P74D 

0196 

35,2550 

77776 

1 

EXIT 

0197 

REF 

2 

LAST 

664 

35,255  1 

0 3604 

0 

TC 

DISPLAYE 

0198 

REF 

1 

35,2552 

0 2556 

0 

TC 

P34/P74E 

0199 

35,2553 

77776 

1 

P34/P74D 

EXIT 

0200 

REF 

3 

LAST 

664 

35,2554 

3 3633 

1 

CAF 

V06N37 

0201 

REF 

11 

LAST 

664 

35,2555 

0 3622 

1 

TC 

VNPOOH 

0202 

REF 

77 

LAST 

66  4 

35,2556 

0 6060 

1 

P34/P74E 

TC 

I NTPRET 

0203 

35,2557 

71201 

1 

SETPD 

DLOAD 

0204 

35,2560 

OOCOl 

0 

OD 

0205 

REF 

5 

LAST 

647 

35,2561 

02777 

l 

RTX1 

0206 

REF 

12 

LAST 

654 

35, 2562 

14047 

1 

STODL 

X l 

0207 

REF 

6 

LAST 

664 

35,2563 

03621 

L 

CENTANG 

020  8 

35,2564 

71406 

0 

PUSH 

COS 

0209 

REF 

4 

LAST 

653 

35,2565 

16732 

0 

STODL 

CSTH 

0210 

35,2566 

77756 

0 

SIN 

021  1 

REF 

6 

LAST 

653 

35,2567 

26730 

1 

STOVL 

S NTH 
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PROCEED 
V 32 


DISPLAY  TTPI 

DISPLAY  ELEV  AND  CENTANG 


TTPI 
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P 34- 

P35, 

P 74-1 

0 75 

0212 

REF 

6 

LAST 

648 

35,2570 

0213 

35,2571 

0214 

35,2572 

0215 

REF 

6 

LAST 

653 

35,2573 

0216 

REF 

3 

LAST 

648 

35,2574 

0217 

35,2575 

0213 

35,2576 

0219 

REF 

6 

LAST 

653 

35,2577 

0220 

REF 

7 

LAST 

653 

35,2600 

022  1 

REF 

5 

LAST 

653 

35,2601 

0222 

35,2602 

0223 

REF 

16 

LAST 

665 

35,2603 

0224 

REF 

1 

35,2604 

0225 

35,2605 

0226 

REF 

2 

LAST 

50  9 

35,2606 

0227 

REF 

3 

LAST 

210 

35,2607 

0228 

REF 

l 

35,2610 

0229 

35,2611 

0230 

REF 

3 

LAST 

210 

35,2612 

023  1 

REF 

5 

LAST 

327 

35,2613 

0232 

REF 

1 

35,2614 

0233 

35,2615 

0234 

REF 

1 

35,2616 

0235 

REF 

3 

LAST 

327 

35,2617 

0236 

REF 

8 

LAST 

648 

35,2620 

0237 

35,2621 

0238 

REF 

1 

35,2622 

0239 

REF 

3 

LAST 

643 

35,2623 

0240 

35,2624 

0241 

REF 

8 

LAST 

654 

35,2625 

0242 

REF 

4 

LAST 

327 

35,2626 

0243 

REF 

17 

LAST 

666 

35,2627 

0244 

REF 

15 

LAST 

664 

35,2630 

0245 

35,2631 

0246 

REF 

1 

35,2632 

0247 

REF 

12 

LAST 

665 

35,2633 

0248 

REF 

78 

LAST 

665 

35,2634 

0249 

35,2635 

0250 

REF 

l 

35,2636 

0251 

35,2637 

025? 

REF 

4 

LAST 

634 

35,2640 

025  3 

35,2641 

0254 

REF 

l 

35,2642 

03552 

0 

RPASS3 

77657 

0 

VSR* 

57176 

0 

0,2 

26655 

0 

STOVL 

RVEC 

03560 

1 

VPASS3 

43057 

1 

VSR* 

SET 

57176 

0 

0,2 

03466 

0 

RVSW 

36744 

0 

STCALL 

V VEC 

24732 

1 

T IMETHET 

77745 

1 

DLUAD 

03636 

1 

TTP  I 

03610 

0 

STORE 

INTIME 

77615 

0 

DAD 

00037 

0 

T 

37631 

1 

STCALL 

TPASS4 

73224 

1 

S 34/ 35. 2 

51575 

1 

VLOAD 

ABVAL 

02357 

1 

0ELVEET3 

27576 

0 

STOVL 

OELVTPI 

03506 

1 

VPASS4 

51451 

0 

VSU 

ABVAL 

03566 

1 

V TPR IME 

26341 

0 

STOVL 

DELVTPF 

03536 

1 

RACT3 

45115 

0 

PDVL 

CALL 

02330 

0 

VIPRIME 

46337 

1 

PER  I AP01 

77624 

1 

CALL 

46447 

1 

SHIFTR1 

17606 

1 

STOOL 

POST  T P I 

C3636 

1 

TTPI 

03442 

0 

STORE 

T IG 

77776 

1 

EXIT 

3 3635 

1 

CAF 

V06N53 

0 3622 

1 

TC 

VNPOOH 

0 6060 

1 

TC 

I NTPRET 

77624 

1 

CALL 

73440 

0 

S 34/3  5.5 

77624 

l 

CALL 

73516 

1 

V N 1 6 4 5 

77650 

1 

GOTO 

72512 

l 

P34/P74C 
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L 

P025  5 

K0256 

R0257 

R0258 

R0259 

R0260 

R0261 

R0262 

R0263 

R0264 

R0265 

R0266 

R0267 

R0268 

R0269 

R0270 

R0271 

R0272 

R0273 

R0274 

R0275 

R0276 

R0277 

R0278 

R0279 

R0280 

R0281 

R0282 

R0283 

R0284 

R0285 

R0286 

R0287 

R0288 

R0289 

R0290 
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RENDEZVOUS  MID-COURSE  MANEUVER  PROGRAMS  ( P35  AND  P75 ] 


MOD  NO  -1 
MOD  BY  WHITE. P 


LOG  SECTION  - P32-P35,  P72-P75 
DATE  1JUNE67 


PURPOSE 

(1)  TO  CALCULATE  THE  REQUIRED  DELTA  V AND  OTHER  INITIAL  CONDITIONS 
REQUIRED  BY  THE  ACTIVE  VEHICLE  FOR  EXECUTION  OF  THE  NEXT 
MIDCOURSE  CORRECTION  OF  THE  TRANSFFR  PHASE  OF  AN  ACTIVE 
VEHICLE  RENDEZVOUS. 

(2)  TO  DISPLAY  TO  THE  ASTRONAUT  AND  THE  GROUND  CERTAIN  DEPENDENT 
VARIABLES  ASSOCIATED  WITH  THE  MANEUVER  FOR  APPROVAL  BY  THE 
ASTRONAUT/GROUND. 

(3)  TO  STORE  THE  TPM  TARGET  PARAMETERS  FOR  USE  BY  THE  DESIRED 
THRUSTING  PROGRAM. 

AS  SUM  FT  IONS 

(1)  THE  ISS  NEED  NOT  BE  CN  TO  COMPLETE  THIS  PROGRAM. 

(2)  STATE  VECTOR  UPDATES  BY  P27  ARE  DISALLOWED  DURING  AUTOMATIC 
STATE  VECTCR  UPDATING  INITIATED  BY  P20  (SEE  ASSUMPTION  (3)). 


(3)  THE  RENDEZVOUS  RADAR  IS  ON  AND  IS  LOCKED  ON  THE  CSM.  THIS  WAS 
DONE  DURING  PREVIOUS  SELECTION  OF  P20.  RADAR  SIGHTING  MARKS 
WILL  BE  MADE  AUTOMATICALLY  APPROXIMATELY  ONCE  A MINUTE  WHEN 
ENABLED  BY  THE  TRACK  AND  UPDATE  FLAGS  ( SFE  P20).  THE 
RENDEZVOUS  TRACKING  MARK  COUNTER  IS  ZEROFD  BY  THE  SELECTION  OF 
P20  AND  AFTER  EACH  THRUSTING  MANEUVER. 


(A)  THE  OPERATION  OF  THE  PROGRAM  UTILIZES  THE  FOLLOWING  FLAGS 


ACTIVE  VEHICLE  FLAG  - DESIGNATES  THE  VEHICLE  WHICH  IS 
DOING  RENDEZVOUS  THRUSTING  MANEUVERS  TO  THE  PROGRAM  WHICH 
CALCULATES  THE  MANEUVER  PARAMETERS.  SET  AT  THE  START  OF 
EACH  RENDEZVOUS  PRE-T HRUST I NG  PROGRAM. 

FINAL  FLAG  - SELECTS  FINAL  PROGRAM  DISPLAYS  AFTER  CREW  HAS 
SELFCTED  THE  FINAL  MANEUVER  COMPUTATION  CYCLE. 

EXTERNAL  DELTA  V FLAG  - DESIGNATES  THE  TYPE  OF  STEFRING 
REQUIRED  FOR  EXECUTION  OF  THIS  MANEUVER  BY  THE  THRUSTING 
PROGRAM  SELECTED  AFTER  COMPLETION  OF  THIS  PROGRAM. 

(5)  THE  TIME  OF  INTERCEPT  (T(INTI)  WAS  DEFINED  BY  PREVIOUS 

COMPLETION  OF  THE  TRANSFER  PHASE  INITIATION  (TPI)  PROGRAM 
(P34/P74)  AND  IS  PRESENTLY  AVAILABLE  IN  STORAGE. 


GAP:  ASSEMBLE  RFVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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R0291  16)  ONCE  THE  PARAMETERS  R EGU I RED  FOR  COMPUTION  OF  THE  MANEUVER 

R0292  HAVE  BEEN  COMPLETELY  SPECIFIED,  THE  VALUE  OF  THE  ACTIVE 

R0293  VEHICLE  CENTRAL  ANGLE  OF  TRANSFER  IS  COMPUTED  AND  STORED. 

R0294  THIS  NUMBER  WILL  BE  AVAILABLE  FOR  DISPLAY  TO  THE  ASTRONAUT 

R0295  THROUGH  THE  USE  OF  V06N52. 


R0296  THE  ASTRONAUT  WILL  CALL  THIS  DISPLAY  TO  VERIFY  THAT  THE 

R0297  CENTRAL  ANGLE  OF  TRANSFER  OF  THE  ACTIVE  VEHICLE  IS  NOT  WITHIN 


R0298 

170  TO  190 

DEGREES.  I 

R0299 

ASTRONAUT 

SHOULD  REASS 

R0300 

UPON  DELTA 

V AND  EXPEC 

R0301 

(7)  THIS  PROGRAM  IS  SELECT 

R0302 

P3S  I F 

THIS  VEHICL 

R0303 

P75  IF 

THIS  VEHICL 

F THE  ANGLE  IS  WITHIN  THIS  ZONE  THE 
ESS  THE  INPUT  TARGETING  PARAMETERS  BASED 
TED  MANEUVER  TIME. 

ED  BY  THE  ASTRONAUT  BY  DSKY  ENTRY  - 
E IS  ACTIVE  VEHICLE. 

E IS  PASSIVE  VEHICLE. 


R0304  INPUT 


R 0 30  i>  (1)  TPASS4  TIME  OF  INTERCEPT  - SAVED  FROM  P34/P74 

R0306  OUTPUT 


R0307 

1 1 ) 

trkmkcnt 

R 0 30  8 

12) 

TTOGO 

R0309 

(3  ) 

-t-MGA 

R0310 

(4  ) 

DVLOS 

R031 1 

(5) 

DEL VLVC 

NUMBER  OF  MARKS 
TIME  TO  GO 
MIDDLE  GIMEAL  ANGLE 
DELTA  VELOCITY  AT  MID  - 
DELTA  VELOCITY  AT  MID  - 


L INE  OF  SIGHT 

LOCAL  VERTICAL  COORDINATES 


R0312  DCWNLIAK 


R0325 
RO  32  6 
RO  32  7 
R0328 


(1)  TIG  TIME  OF  THE  TPM  MANEUVER 

(2)  DEL  V EET3  DELTA  VELOCITY  AT  TPM  - REFERENCE  COORDINATES 

(3)  TPASS4  TIME  OF  INTERCEPT 
COMMUNICATION  TO  THRUSTING  PROGRAMS 


R0329 

( 1 ) TIG 

R0330 

(2)  RTARG 

R0331 

(3)  TPASS4 

R0332 

(4)  XDELVFLG 

R 0 33  3 

SUBROUTINES  USED 

R0334 

AVFLAGA 

RO  33  5 

AVFLAGP 

R0336 

LOADTIME 

R0337 

SELECTMU 

R0338 

PRECSET 

R0339 

S34/35.  1 

R0340 

S34/35.2 

TIME  OF  THE  TPM  MANEUVER 
OFFSET  TARGET  POSITION 
TIME  OF  INTERCEPT 
RESET  TO  INDICATE  LAMBERT 


(AIMPOINT)  VG  COMPUTATION 
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GAP: 

ASSEMBLE  1 

REVISION  210 

CF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-1  61 

17:  11 

MAR.  19,1 

L 

P3  4- 

P35 

, P74- 

P 75 

USER'S  1 

R034 1 

S 34/ 3 5 . 

5 

R0342 

VN 1 645 

0343 

REF 

2 

LAST 

656  TO 

653: 

14 

14* 

COUNT* 

$$/P3575 

0344 

REF 

1 

E 7, 1575 

FBANK= 

KT 

0345 

REF 

4 

LAST 

664 

35,2643 

0 2354 

1 

P 35 

TC 

AVFLAGA 

0346 

35,2644 

0 OC 06 

1 

EXTEND 

0347 

REF 

3 

LAST 

399 

35,2645 

3 1401 

0 

DC  A 

ATIGINC 

0348 

REF 

1 

35,2646 

0 2652 

1 

TC 

P35/P75A 

034  9 

REF 

4 

LAST 

6 6 4 

35,2647 

0 2361 

1 

P75 

TC 

AVFLAGP 

0350 

35,2650 

0 0006 

1 

EXTEND 

0351 

REF 

1 

35,2651 

3 1403 

1 

DC  A 

PTIGINC 

0352 

REF 

2 

LAST 

669 

35,2652 

53 1 576 

0 

P35/P75A 

DXCH 

KT 

03525 

REF 

4 

LAST 

66  4 

35,2653 

0 2366 

0 

TC 

P20FLG0N 

SET 

UPOATFLG 

0353 

REF 

79 

LAST 

666 

35,2654 

0 6060 

1 

TC 

INTPRET 

0359 

35,2655 

77624 

1 

CALL 

0360 

REF 

4 

LAST 

665 

35,2656 

20000 

0 

S ELECTMU 

036  1 

35,2657 

77634 

0 

P35/P75B 

RTB 

0362 

REF 

15 

LAST 

660 

35,2660 

21603 

1 

LOADT IME 

0362  1 

REF 

2 

LAST 

295 

35,2661 

03612 

1 

STORE 

TSTRT 

03622 

35,2662 

77615 

0 

DAD 

03623 

REF 

3 

LAST 

669 

35,2663 

0357b 

0 

KT 

03624 

REF 

16 

LAST 

666 

35,2664 

03442 

0 

STORE 

T IG 

0363 

REF 

2 

LAST 

666 

35,2665 

03610 

0 

STORE 

INTIME 

FOR 

INITVEL 

0364 

REF 

26 

LAST 

665 

35,2666 

34041 

0 

STCALL 

TDEC  1 

0365 

KEF 

4 

LAST 

665 

35,2667 

46401 

0 

PRECSET 

ADVANCE  BOTH 

0366 

35,2670 

77624 

1 

CALL 

0367 

REF 

1 

35,2671 

73212 

1 

S 34/ 3 5.  1 

GET 

NORM  AND 

0368 

35,2672 

77624 

1 

CALL 

0369 

REF 

2 

LAST 

666 

35,2673 

73224 

1 

S34/35.2 

GET 

DELTA  V( 

0370 

35,2674 

77624 

1 

CALL 

037  L 

REF 

2 

LAST 

666 

35,2675 

73440 

0 

S 34/3  5.5 

0372 

35,2676 

77624 

1 

CALL 

0373 

REF 

5 

LAST 

666 

35,2677 

73516 

1 

VN1645 

0379 

35,2700 

77650 

1 

GOTO 

0380 

REF 

1 

35,2701 

72657 

0 

P35/P75B 

E7  S3 
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P03B1  S33/3A.I  


0382 

35,2702 

66220 

1 

S33/3A. 1 

. STQ 

SSP 

0383 

REF 

A 

LAST 

636 

35,2703 

03A63 

0 

NORMEX 

0 38  A 

REF 

1 

35 , 270A 

036  l A 

1 

TITER 

0385 

35,2705 

ACOOO 

0 

OCT 

AOOOO 

0386 

35,2706 

A03A5 

1 

DLOAD 

SETPD 

0387 

REF 

1 

35,2707 

336AA 

l 

M AX250 

0388 

35,2710 

0CC01 

0 

OD 

0389 

REF 

1 

35,2711 

2757A 

1 

STOVL 

SECMAX 

0390 

REF 

9 

LAST 

666 

35,2712 

03536 

l 

RACT3 

0391 

REF 

1 

35,2713 

27500 

l 

STOVL 

P APREC 

0392 

REF 

8 

LAST 

65A 

35.271A 

035AA 

1 

V ACT3 

0393 

REF 

1 

35,2715 

27506 

l 

STOVL 

V APREC 

039  A 

REF 

7 

LAST 

666 

35,2716 

03552 

0 

RPASS3 

0395 

REF 

1 

35,2717 

27522 

1 

STOVL 

RPPREC 

0396 

REF 

A 

LAST 

666 

35,2720 

03560 

1 

V PAS  S3 

0397 

REF 

1 

35,2721 

03530 

1 

STORE 

VPPREC 

0398 

35,2722 

7762A 

1 

ELCALC 

CALL 

0399 

REF 

2 

LAST 

669 

35,2723 

73212 

1 

S3A/35. 1 

OAOO 

35.272A 

63235 

0 

VXV 

PDVL 

OAO  1 

REF 

10 

LAST 

670 

35,2725 

03536 

1 

RACT3 

0A02 

35,2726 

53515 

0 

PDVL 

UNIT 

OAO  3 

REF 

11 

LAST 

670 

35,2727 

03536 

1 

RACT3 

OAOA 

35,2730 

A6315 

1 

PDVL 

V PRO  J 

OAO  5 

35,2731 

51352 

1 

VSL  2 

BVSU 

0A06 

REF 

1 

35,2732 

02302 

1 

ULOS 

OAO  7 

35,2733 

63256 

0 

UNIT 

PDVL 

OAO  a 

35, 273A 

632A1 

0 

DOT 

PDVL 

OAO  9 

35,2735 

00C01 

0 

OD 

0A10 

35,2736 

752A1 

1 

DOT 

SIGN 

0A1  1 

REF 

2 

LAST 

670 

35,2737 

02302 

1 

ULOS 

0A1  2 

35, 27A0 

65552 

0 

SL1 

ACOS 

0A1  3 

35 , 2 7A 1 

5C315 

0 

PDVL 

DOT 

0A1  A 

REF 

3 

LAST 

670 

35.27A2 

02302 

1 

ULOS 

0A1  5 

REF 

12 

LAST 

670 

35 , 2 7A  3 

03536 

1 

RACT3 

0A1  fa 

35.27AA 

712AA 

0 

BPL 

DLOAD 

0A1  7 

REF 

1 

35, 27A5 

72750 

0 

TESTY 

OAl  8 

REF 

6 

LAST 

628 

35.27A6 

06513 

0 

DPPOSMAX 

0A19 

35.27A7 

A1A25 

1 

DSU 

PUSH 

0A20 

35,2750 

7 1 2 1 A 

0 

TESTY 

BOFF 

DLOAD 

0A2  1 

REF 

5 

LAST 

665 

35,275  1 

037AO 

1 

ITSWICH 

0A2  2 

REF 

1 

35,2752 

73177 

1 

ELEX 

0A23 

REF 

1 

35,2753 

03576 

0 

DELEL 

0 A2  A 

REF 

1 

35 , 275A 

IA033 

1 

STOOL 

DELELO 

0A2  5 

35,2755 

77625 

0 

nsu 

0A2  6 

REF 

1C 

LAST 

66  A 

35,2756 

02250 

1 

ELEV 

0A2  7 

REF 

2 

LAST 

670 

35,2757 

03  5 76 

0 

STORE 

DELEL 

0A2  8 

35,2760 

A52A6 

0 

ABS 

DSU 

0A2  9 

REF 

1 

35,2761 

33650 

1 

ELEPS 

L P3A-P35,  P7A-P75 
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670 


NORMAL  AND  LOS 

<RA*VA)*RA  OD 
ULOS  AT  6D 

XCHNJ  AND  UP 


UP  AT  00 
UP.UN*RA  AT  OD 
UP  IN  MP AC 


EA  AT  OD 
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L 

P34- 

P35 , 

P 74- 

P 75 

0430 

35,2762 

77640 

0 

0431 

REF 

1 

35,2763 

73207 

0 

043  2 

35,2764 

70535 

0 

043  3 

REF 

2 

LAST 

670 

35,2765 

03614 

1 

0434 

35,2766 

72030 

1 

043  5 

REF 

5 

LAST 

670 

35,2767 

03463 

0 

0436 

REF 

266 

LAST 

644 

35,2770 

OC  154 

1 

043  7 

35,2771 

77330 

1 

043  8 

REF 

3 

LAST 

671 

35,2772 

03613 

0 

043  9 

REF 

8 

LAST 

670 

35,2773 

03552 

0 

0440 

35, 2774 

65256 

0 

0441 

35,2775 

00045 

0 

0442 

35,2776 

53515 

0 

044  3 

REF 

13 

LAST 

670 

35,2777 

03536 

1 

0444 

35,3000 

77725 

1 

044  5 

35,3001 

41525 

0 

044  6 

35,3002 

00045 

0 

044  7 

35,3003 

77621 

1 

044  8 

35,3004 

00015 

0 

044  9 

35,3005 

14C37 

0 

0450 

REF 

8 

LAST 

613 

35,3006 

06503 

1 

0451 

35,3007 

41425 

1 

0452 

REF 

11 

LAST 

670 

35,3010 

02250 

1 

045  3 

35,3011 

50165 

0 

0454 

35,3012 

0CC37 

0 

0455 

REF 

6 

LAST 

671 

35,3013 

03463 

0 

0456 

35,3014 

71545 

0 

045  7 

35,3015 

56205 

0 

0458 

35,3016 

00017 

1 

0459 

35,3017 

COO  15 

0 

0460 

35,3020 

77676 

0 

0461 

35,3021 

00035 

1 

046  2 

35,3022 

44  246 

1 

0463 

REF 

9 

LAST 

671 

35,3023 

06503 

1 

0464 

35,3024 

77240 

1 

0465 

REF 

7 

LAST 

671 

35,3025 

03463 

0 

0466 

REF 

1 

35,3026 

02252 

0 

046  7 

35,3027 

53435 

0 

046  8 

35,3030 

00007 

0 

0469 

35,3031 

4 1241 

0 

0470 

REF 

9 

LAST 

670 

35,3032 

C3544 

1 

0471 

35,3033 

00015 

0 

0472 

35,3034 

47315 

0 

0473 

35,3035 

00001 

0 

0474 

REF 

5 

LAST 

6 10 

35,3036 

03560 

1 

0475 

35,3037 

53435 

0 

0476 

35,3040 

00C01 

0 

0477 

35,3041 

41241 

0 

047  8 

REF 

6 

LAST 

671 

35,3042 

03560 

1 

0479 

35,3043 

00017 

1 
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SRI 

TITER 

BHIZ 

L X A , 1 

NORM EX 
MPAC 

TOO  MANY  ITERATIONS 

SX  A , 1 

VLOAD 

TITER 

RPASS3 

UNIT 

PDDL 
3 6D 

PDVL 

UNIT 
R ACT  3 

PDDL 

PDDL 

PUSH 

36D 

BOSU 

1 2D 

STOOL 

3 OD 

DPHALF 

RP  - RA  MAGNITUDES 

OSU 

PUSH 

ELEV 

SIGN 

BMN 
3 OD 

NORMEX 

DLOAD 

COS 

DM  P 

DDV 
14D 
1 2D 

DCOMP 

SINCE  COS! 180— A)=-COS  A 

STORE 

2 8D 

ABS 

BDSU 

DPHALF 

BMN 

VLOAD 

NORMEX 

UNRM 

VXV 

UNIT 

6D 

UN*RA 

DOT 

DMP 
VACT3 
1 2D 

PDVL 

VXV 

OD 

V PAS  S3 

VXV 

UNIT 

OD 

(RP*VP)*RP 

DOT 

DMP 

VPASS3 

14D 

E7  S3 
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0480 

35,3044 

7762  1 

1 

BDSU 

0481 

35,3045 

63301 

0 

NORM 

PDVL 

0482 

REF 

13 

LAST 

665 

35,3046 

OC047 

1 

XI 

0483 

35,3047 

0CC07 

0 

6D 

0484 

35,3050 

50235 

0 

VXV 

DOT 

0485 

35,3051 

00001 

0 

OD 

0486 

REF 

2 

LAST 

671 

35,3052 

02252 

0 

UNRM 

048  7 

35,3053 

50315 

0 

PD  VL 

DOT 

0488 

35,3054 

0CC01 

0 

OD 

0489 

35,3055 

00007 

0 

60 

0490 

35, 3056 

65552 

0 

SL1 

ACOS 

0491 

35,3057 

77765 

0 

SIGN 

0492 

35,3060 

43225 

0 

DSU 

DAD 

0493 

REF 

10 

LAST 

671 

35,3061 

06503 

1 

DPHALF 

0494 

REF 

12 

LAST 

671 

35,3062 

02250 

1 

FLEV 

0495 

35,3063 

65525 

0 

PDDL 

ACOS 

0496 

35,3064 

0CC35 

1 

28D 

0497 

35,3065 

75221 

1 

BDSU 

S IGN 

049  8 

REF 

11 

LAST 

672 

35,3066 

06503 

1 

DPHALF 

0499 

35,3067 

00037 

0 

3 OD 

0500 

35,3070 

77615 

0 

DAD 

0501 

35,3071 

56205 

0 

DMP 

DDV 

0502 

REF 

4 

LAST 

650 

35,3072 

33642 

1 

TWOPI 

050  3 

35,3073 

77605 

1 

DMP 

0504 

35,3074 

41257 

1 

SL* 

DMP 

0505 

35,3075 

20176 

0 

0-3,1 

0506 

35,3076 

51406 

1 

PUSH 

ABS 

050  7 

35,3077 

50025 

0 

DSU 

BMN 

050  8 

REF 

2 

LAST 

670 

35,3100 

03574 

1 

SECMAX 

0509 

REF 

1 

35,3101 

73  105 

1 

OKMAX 

0510 

35,3102 

75345 

1 

DLOAD 

S IGN 

051  1 

REF 

3 

LAST 

672 

35,3103 

035  74 

1 

SECMAX 

0512 

35,3104 

77606 

1 

PUSH 

0513 

35,3105 

51135 

1 

OKMAX 

SLOAD 

B PL 

0514 

REF 

4 

LAST 

671 

35,3106 

03614 

1 

T ITER 

0515 

REF 

1 

35,3107 

73115 

0 

REPETE 

0516 

35,3110 

71331 

0 

SSP 

DLOAD 

051  7 

REF 

5 

LAS! 

672 

35,3111 

03614 

l 

TITER 

051  8 

35,3112 

37777 

1 

OCT 

37777 

0519 

35,3113 

77650 

1 

GOTO 

0520 

REF 

1 

35,3114 

73  153 

1 

STORDELT 

052  1 

35 ,3  1 15 

41345 

0 

REPETE 

DLOAD 

DMP 

0522 

REF 

3 

LAST 

67C 

35,3116 

03576 

0 

DELEL 

0523 

REF 

2 

LAST 

670 

35,3117 

00033 

1 

DELELO 

0524 

35,3120 

71244 

0 

BP  L 

DLOAD 

0525 

REF 

I 

35,3121 

73131 

0 

NEXTES 

0526 

REF 

4 

LAST 

672 

35,3122 

03574 

1 

SECMAX 

0527 

35,3123 

77605 

1 

DMP 

0528 

REF 

1 

35,3  124 

33646 

0 

THIRD 

0529 

REF 

5 

LAST 

672 

35,3125 

17574 

1 

STOOL 

SECMAX 
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P 34- 

P35  , 

P 74- 

P 75 

0530 

35 

053  1 

35 

0532 

REF 

l 

35 

0533 

35 

0534 

REF 

4 

LAST 

672 

35 

0535 

35 

0536 

REF 

3 

LAST 

672 

35 

0537 

35 

0538 

35 

0539 

REF 

1 

35 

0540 

35 

0541 

35 

0542 

REF 

1 

35 

054  3 

REF 

2 

LAST 

672 

35 

0 54  4 

35 

0545 

REF 

2 

LAST 

673 

35 

0546 

35 

0547 

REF 

3 

LAST 

673 

35 

0548 

35 

0549 

35; 

0550 

REF 

1 

35: 

0551 

REF 

4 

LAST 

673 

35, 

0552 

35. 

0553 

REF 

6 

LAST 

665 

35 

0554 

REF 

7 

LAST 

673 

35 

0555 

35 

0556 

REF 

2 

LAST 

670 

35 

055  7 

REF 

2 

LAST 

670 

35, 

0558 

35 

0559 

REF 

1 

35 

0560 

35, 

0561 

REF 

3 

LAST 

643 

35. 

0562 

35: 

0563 

REF 

2 

LAST 

670 

35, 

0564 

REF 

2 

LAST 

670 

35. 

0565 

35, 

0566 

REF 

2 

LAST 

673 

35, 

0567 

35, 

0568 

REF 

3 

LAST 

633 

35, 

0569 

35, 

0570 

REF 

1 

35, 

0571 

35. 

0572 

REF 

13 

LAST 

6 66 

35, 

0573 

REF 

8 

LAST 

673 

35 

0574 

REF 

19 

LAST 

673 

35 

0575 

35 

0576 

REF 

5 

LAST 

665 

35 

0577 

REF 

2 

LAST 

67  1 

35. 

0570 

REF 

13 

LAST 

672 

35: 

0579  35, 


7C446 

0 

ABS 

SRI 

52076 

1 

DCOMP 

GOTO 

73141 

1 

RESIGN 

51545 

1 

NEXTES 

DLOAD 

ABS 

03576 

0 

DELEL 

51525 

1 

PDDL 

ABS 

00033 

1 

DELELO 

77625 

0 

DSU 

71240 

1 

BMN 

DLOAD 

73144 

1 

REVERS 

77646 

0 

ABS 

52165 

1 

RESIGN 

SIGN 

GOTO 

03606 

1 

DELTEEO 

73153 

1 

STORDELT 

57545 

1 

REVERS 

DLOAD 

DCOMP 

03606 

1 

DELTEEO 

7C406 

1 

PUSH 

SRI 

03606 

1 

STORE 

DELTEEO 

77615 

0 

DAD 

77650 

1 

GOTO 

73154 

0 

ADTIME 

03606 

1 

STORDELT 

STORE 

DELTEEO 

77615 

0 

ADTIME 

DAD 

02310 

1 

NOMTPI 

02310 

1 

STORE 

N GMT  PI 

63375 

0 

VLOAD 

PDVL 

C3506 

1 

VAPREC 

03500 

1 

RAPREC 

7/624 

1 

CALL 

73400 

1 

GOINT 

77624 

1 

CALL 

46423 

0 

ACTIVE 

63375 

0 

VLOAD 

PDVL 

03530 

1 

VPPREC 

03522 

1 

RPPREC 

77624 

1 

CALL 

73400 

1 

GOINT 

77624 

1 

CALL 

46433 

1 

PASSIVE 

77650 

1 

GOTO 

72722 

0 

E LCALC 

43345 

l 

ELEX 

DLOAD 

DAD 

03636 

l 

TTPI 

02310 

l 

NOMTP I 

17636 

1 

STOOL 

TTPI 

77614 

1 

BON 

01310 

1 

E TP  I FLAG 

73207 

0 

TIMEX 

02250 

1 

STORE 

E LEV 

52  145 

0 

T IMEX 

DLOAD 

GOTO 

i 3 126 

3127 

• 3 130 

.3131 

-3132 

.3133 

.3134 

.3135 

.3  136 

, 3 137 

.3140 

. 3141 

.3142 

3 143 

3 144 

3145 

3 146 

3147 

3 150 

3151 

3 152 

3153 

3154 

3155 

3 156 

3 157 

3160 

3161 

3162 

3 163 

3164 

3 165 

3166 

3167 

3170 

3171 

3 172 

3 173 

3174 

3175 

3 176 

3 177 

3200 

3201 

3202 

3203 

3 2 04 

3205 

3206 

3207 
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0580 

REF 

9 

LAST 

66  5 

35,3210 

06505 

1 

0581 

REF 

8 

LAST 

671 

35,3211 

03663 

0 
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ZEROVECS 
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P0582  S34/35.1  


P0582  S34/35.1 


R0583 

COMPUTE 

UNIT  NORMAL 

AND  LINE  C 

F S IGH 

T VECTORS 

GIVEN  THF 

ACTIVE 

K0584 

PASSIVE 

POS  AND 

VfcL 

AT  TIME  T 3 

0585 

35,3212 

52375 

l S34/3 

5.1  VLOAD 

VSU 

0536 

REF 

9 

LAST 

671 

35,3213 

03552 

0 

RPASS3 

0587 

REF 

14 

LAST 

671 

35,3214 

03536 

1 

R ACT  3 

0588 

35,3215 

41456 

0 

UNIT 

PUSH 

0589 

REF 

4 

LAST 

670 

35,3216 

26302 

1 

STOVL 

ULOS 

0590 

REF 

15 

LAST 

675 

35,3217 

C3536 

1 

RACT3 

0591 

35,3220 

53435 

0 

VXV 

UNIT 

0592 

REF 

10 

LAST 

671 

35,3221 

03544 

1 

V ACT  3 

0593 

REF 

3 

LAST 

672 

35,3222 

02252 

0 

STORE 

UNRM 

0594 

35,3223 

77616 

0 

RVQ 

067 
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P0595  S34/35.2  


R0596 

ADVANCE 

PASSIVE  VEH 

TO  RENDEZVOUS  TIME 

AND  GET  REQ  VEL 

FROM  LAMBERT 

059  7 

35,3224 

77220 

1 

S 34/ 3 5.2 

STQ 

V LOAD 

0598 

REE 

17 

LAST 

664 

35,3225 

03470 

1 

SUBEXIT 

0599 

REF 

7 

LAST 

671 

35,3226 

03560 

1 

VPASS3 

0600 

35,3227 

65315 

0 

PDVL 

PDDL 

0601 

REF 

10 

LAST 

675 

35,3230 

03552 

0 

R PAS  S3 

060  2 

REF 

3 

LAST 

669 

35,3231 

03610 

0 

I NT  IMF 

0603 

35,3232 

65325 

0 

PDDL 

PDDL 

0604 

REF 

4 

LAST 

666 

35,3233 

03631 

0 

TPASS4 

0605 

REF 

5 

LAST 

672 

35,3234 

33642 

1 

TWOPI 

0606 

35, 3235 

46125 

0 

PDDL 

BHIZ 

0606  l 

REF 

6 

LAST 

664 

35,3236 

03467 

l 

NN 

06062 

REF 

1 

35,3237 

73243 

0 

S3435 .23 

060  6 3 

35,3240 

77745 

1 

DLOAD 

06064 

35,3241 

41545 

0 

□ LOAD 

PUSH 

06065 

REF 

10 

LAST 

674 

35,3242 

06505 

l 

ZEROVECS 

06066 

35,3243 

77624 

1 

S3435.23 

CALL 

060  7 

REF 

5 

LAST 

650 

35,3244 

73404 

0 

I NTINT 

060  8 

REF 

2 

LAST 

205 

35,3245 

27444 

0 

S3435.25 

STOVL 

RTARG 

0609 

REF 

10 

LAST 

659 

35,3246 

00C07 

0 

VATT 

0610 

REF 

2 

LAST 

666 

35,3247 

27506 

1 

STOVL 

VPASS4 

061  1 

REF 

3 

LAST 

6 76 

35,3250 

03444 

0 

R TARG 

R0612 

COMPUTE 

PHI  = 

PI  + ( ACOS ( UN  I T 

RA.UNIT 

RPI-PI ) S IGNI RA*RP , 

.U) 

0613 

35,3251 

63256 

0 

UNIT 

PDVL 

0614 

REF 

16 

LAST 

675 

35,3252 

03536 

1 

R ACT  3 

0615 

35,3253 

4 1456 

0 

UNIT 

PUSH 

0616 

35,3254 

5C235 

0 

VXV 

DOT 

061  7 

35,3255 

00001 

0 

OD 

0618 

REF 

4 

LAST 

675 

35,3256 

02252 

0 

UNRM 

0619 

35,3257 

77715 

1 

PDVL 

062  0 

35,3260 

72441 

0 

DOT 

SL1 

062  1 

35,3261 

00001 

0 

OD 

0622 

35,3262 

75326 

1 

ACOS 

S IGN 

0623 

35,3263 

43244 

1 

BPL 

DAD 

0624 

REF 

1 

35,3264 

73266 

1 

NOPIE 

0625 

REF 

7 

LAST 

670 

35,3265 

06513 

0 

DPPOSMAX 

0626 

REF 

2 

LAST 

327 

35,3266 

15754 

0 

MOP I E 

STODL 

ACTCENT 

0627 

REF 

5 

LAST 

676 

35,3267 

03631 

0 

TPASS4 

0628 

35,3270 

77625 

0 

DSU 

062  9 

REF 

4 

LAST 

676 

35,3271 

03610 

0 

INTIME 

0630 

REF 

4 

LAST 

210 

35,3272 

03452 

1 

STORE 

0ELLT4 

063  1 

35,3273 

40335 

0 

SLOAD 

SETPD 

0632 

REF 

7 

LAST 

676 

35,3274 

03467 

1 

NN 

063  3 

35,3275 

00C01 

0 

OD 

063  3 1 

35,3276 

63325 

0 

PDDL 

PDVL 

06332 

REF 

1 

35,3277 

33654 

0 

EPSFOUR 

063  3 3 

REF 

17 

LAST 

6 76 

35,3300 

03536 

1 

R ACT 3 

06334 

RFF 

1 

35,3301 

26314 

0 

STOVL 

R INIT 
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PAGE 

NO.  17 

E7  S3 

06335 

REF 

1 1 

LAST 

675 

35, 3302 

03544 

1 

VACT3 

063  3 6 

REF 

1 

35, 3303 

36322 

1 

STC ALL 

V INIT 

0633  7 

REF 

1 

35,3304 

22000 

1 

l NITVEL 

0634 

35,3305 

77624 

1 

CALL 

063  5 

REF 

1 

35,3306 

73365 

0 

LOMAT 

0636 

35,3307 

64  375 

1 

VLOAD 

M X V 

063  7 

REF 

4 

LAST 

666 

35,3310 

02357 

1 

DEL VEET3 

063  8 

35,3311 

0CC01 

0 

OD 

0639 

35,3312 

77772 

0 

VSL  1 

0640 

REF 

16 

LAST 

651 

35,3313 

37434 

0 

STC  AL  L 

DELVLVC 

064  1 

REF 

18 

LAST 

6 76 

35,3314 

03470 

1 

SUBEX IT 

677 
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L P34-P35,  P74-P75 

P0642  S34/35.3 


064  3 

35,3315 

45020 

1 

S34/35.3 

STQ 

CALL 

0644 

REF 

9 

LAST 

674 

35,3316 

03463 

0 

NORMEX 

0645 

REF 

2 

LAST 

677 

35,3317 

73365 

0 

LOMAT 

0646 

35,3320 

61375 

1 

VLOAD 

VXM 

064  1 

REF 

17 

LAST 

67  7 

35,3321 

03434 

1 

DELVLVC 

0648 

35,3322 

00001 

0 

OD 

0649 

35,3323 

77772 

0 

VSL  1 

0650 

REF 

5 

LAST 

677 

35,3324 

02357 

1 

STORE 

DELVEET3 

0651 

35,3325 

63255 

0 

VAD 

PDVL 

0652 

REF 

12 

LAST 

677 

35,3326 

03544 

1 

VACT3 

0653 

REF 

18 

LAST 

6 76 

35,3327 

03536 

1 

RACT3 

0654 

35,3330 

65325 

0 

PDDL 

PDDL 

0655 

REF 

17 

LAST 

669 

35,333  l 

03442 

0 

T IG 

0656 

REF 

6 

LAST 

676 

35,3332 

03631 

0 

TPASS4 

0657 

35,3333 

41525 

0 

PDDL 

PUSH 

065  8 

REF 

8 

LAST 

676 

35,3334 

06513 

0 

DPPOSMAX 

0659 

35,3335 

7 7 624 

1 

CALL 

0660 

REF 

6 

LAST 

676 

35,3336 

73404 

0 

I NT  I NT 

066  1 

35,3337 

77775 

1 

VLOAD 

0662 

REF 

13 

LAST 

660 

35,3340 

0C001 

0 

R ATT 

0663 

REF 

4 

LAST 

676 

35,3341 

03444 

0 

STORE 

RTARG 

0664 

35,3342 

41575 

0 

NOVRWRT 

VLOAD 

PUSH 

0665 

REF 

5 

LAST 

675 

35,3343 

02302 

1 

ULOS 

0666 

35,3344 

57435 

1 

VXV 

VCOMP 

066  7 

REF 

5 

LAST 

676 

35,3345 

02252 

0 

UNRM 

066  8 

35,3346 

41456 

0 

UNIT 

PUSH 

0669 

35,3347 

76435 

1 

VXV 

VSL1 

0670 

REF 

6 

LAST 

678 

35,3350 

02302 

1 

ULOS 

0671 

35,3351 

77715 

1 

PDVL 

0672 

35,3352 

64315 

1 

PDVL 

M X V 

0673 

REF 

6 

LAST 

678 

35,3353 

02357 

1 

DELVEFT3 

0674 

35,3354 

OOCOl 

0 

00 

0675 

35,3355 

77772 

0 

VSL  1 

0676 

REF 

4 

LAST 

327 

35,3356 

36274 

0 

STCALL 

DVLOS 

0677 

REF 

10 

LAST 

678 

35,3357 

03463 

0 

NORMEX 
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P0678 

0679 

0600 

REF 

0681 

0682 

0683 

REF 

S34/35.4 


11 


LAST 


36,3360 

40220 

0 

S34/35.4  STQ 

SETPD 

35,3361 

03463 

0 

NORMEX 

35,3362 

00C01 

0 

00 

35,3363 

77650 

1 

GOTO 

35,3364 

73342 

0 

NOVRWRT 

1 
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P0684  LCMAT 


0685 

35,3365 

57575 

1 

LOMAT 

VLQAD 

VCOMP 

0686 

REF 

6 

LAST 

678 

35,3366 

02252 

0 

UNRM 

0687 

35,3367 

24007 

0 

STOVL 

6D 

0638 

REF 

19 

LAST 

678 

35,3370 

03536 

1 

R ACT3 

0689 

35,3371 

57456 

1 

UNIT 

VCOMP 

0690 

35,3172 

0CC15 

0 

STORE 

1 2D 

0691 

35,3373 

76435 

1 

VXV 

VS  L 1 

0692 

REF 

7 

LAST 

630 

35, 3374 

02252 

0 

UNRM 

0693 

35,3375 

00001 

0 

STORE 

OD 

0694 

35,33  76 

43401 

0 

SETPD 

RVQ 

0695 

35,3377 

00023 

0 

1 80 

0696 

35,3400 

65325 

0 

GOINT 

POOL 

POOL 

0697 

REF 

1 1 

LAST 

6 76 

35, 3401 

06505 

1 

ZEROVECS 

0698 

REF 

9 

LAST 

673 

35,3402 

02310 

1 

NOMTP I 

0699 

35,3403 

4 1406 

0 

PUSH 

PUSH 

070  0 

35,3404 

45020 

1 

INTINT 

STQ 

CALL 

070  1 

REF 

4 

LAST 

656 

35,3405 

03465 

0 

RTRN 

0702 

REF 

19 

LAST 

658 

35,3406 

27447 

0 

INTSTALL 

0703 

35,3407 

71214 

0 

CLEAR 

DLOAD 

0 70  4 

REF 

8 

LAST 

659 

35,3410 

) 1 5 7 3 

1 

I NTYPFLG 

0705 

35,341  1 

43054 

1 

BZE 

SET 

0706 

35,3412 

73414 

1 

+ 2 

0 70  7 

REF 

9 

LAST 

680 

35,3413 

01473 

0 

I NTYPFLG 

070  8 

35,3414 

45545 

1 

DLOAD 

STAOR 

0709 

REF 

27 

LAST 

669 

35,3415 

63736 

0 

STODL 

T DEC  1 

0710 

35,3416 

73014 

0 

SFT 

L X A , 2 

071  1 

REF 

3 

LAST 

659 

35,3417 

00063 

1 

MOONFLAG 

0712 

REF 

3 

LAST 

653 

35,3420 

02777 

1 

RTX2 

0713 

35,342  1 

43014 

0 

BON 

CLEAR 

0714 

REF 

3 

LAST 

641 

35,3422 

04303 

0 

CMOONFLG 

0715 

REF 

l 

35,3423 

73  42  5 

0 

ALLSET 

0716 

REF 

4 

LAST 

680 

35,3424 

00263 

0 

MOONFLAG 

0717 

REF 

9 

LAST 

659 

35,3425 

25517 

0 

ALLSET 

STOVL 

TET 

0718 

35,3426 

77657 

0 

VSR  * 

0719 

35,3427 

57176 

0 

0,2 

072 

REF 

6 

LAST 

659 

35,3430 

25535 

0 

STOVL 

RCV 

072  1 

35,3431 

77657 

0 

VSR* 

0722 

35,3432 

57176 

0 

0,2 

0723 

REF 

5 

LAST 

659 

35,3433 

35543 

0 

STCALL 

VCV 

0724 

REF 

2 

LAST 

659 

35,3434 

27145 

1 

I NTEGRVS 

0725 

35,3435 

52175 

0 

VLOAD 

GOTO 

0726 

REF 

14 

LAST 

678 

35,3436 

00001 

0 

RATT 

072  7 

REF 

5 

LAST 

680 

35,3437 

03465 

0 

RTRN 
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USER'S  PAGE  NO.  21 
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P0728 

R0729 

SUBROITINES  USED 

R0730 

8ANKC ALL 

RO  73  1 

GCFLASH 

R 0 73  2 

GOTOPOOH 

R0733 

S34/35.3 

R0734 

S34/35.4 

RO  73  5 

VNPOOH 

0736 

35,3440 

43020 

1 

S34/35.5 

STQ 

SON 

073  7 

REF 

19 

LAST 

677 

35,3441 

03470 

1 

SUBEX IT 

0738 

REF 

4 

LAST 

634 

35,3442 

01311 

0 

F INALFLG 

0739 

REF 

1 

35,3443 

73446 

0 

FLAGON 

0740 

35,3444 

77614 

1 

SET 

074  1 

REF 

9 

LAST 

635 

35,3445 

00470 

1 

UPDATFLG 

0743 

35,3446 

77214 

0 

FLAGON 

CLEAR 

VLOAD 

0744 

REF 

1 

35,3447 

03274 

0 

NTARGFLG 

0744  l 

REF 

18 

LAST 

678 

35,3450 

03434 

1 

DEL VLVC 

07442 

REF 

1 

35,3451 

01236 

1 

STORE 

TMPDV 

SAVE  DV  BEFORE  DISPLAY 

07442 

35,3452 

77776 

1 

EXIT 

0745 

REF 

2 

LAST 

620 

35,3453 

3 3637 

0 

+ 5 

CAF 

V06N81 

0746 

REF 

170 

LAST 

665 

35,3454 

C 4607 

1 

TO 

BANKCALL 

074  7 

REF 

14 

LAST 

665 

35,3455 

20471 

1 

CADR 

GOFLASH 

0748 

REF 

14 

LAST 

665 

35, 3456 

C 6001 

0 

TC 

GOTOPOOH 

0749 

35,3457 

0 3461 

1 

TC 

+ 2 

PRO 

0760 

REF 

2 

LAST 

681 

35,3460 

0 3453 

0 

TC 

FLAGON  +5 

LOAD 

075  1 

REF 

5 

LAST 

580 

35,3461 

3 5007 

0 

+2 

CA 

EBANK7 

075  1 1 

REF 

26 

LAST 

664 

35,3462 

54  C 03 

0 

TS 

EBANK 

TO  BF  SURE 

07512 

35, 3463 

22  007 

0 

ZL 

075  13 

REF 

12 

LAST 

614 

35,3464 

3 4747 

1 

CA 

FIVE 

07514 

REF 

173 

LAST 

614 

35,3465 

54  002 

1 

NTARGCHK 

TS 

0 

07515 

REF 

174 

LAST 

68  1 

35,3466 

50  002 

0 

INDEX 

Q 

075  16 

REF 

19 

LAST 

68  1 

35,3467 

4 1433 

0 

CS 

DELVLVC 

075  17 

REF 

175 

LAST 

681 

35,3470 

50  002 

0 

INDEX 

0 

0751  6 

REF 

2 

LAST 

68  1 

35,3471 

6 1235 

1 

AD 

TMPDV 

07515 

REF 

54 

LAST 

664 

35,3472 

26  001 

1 

ADS 

L 

0752 

REF 

176 

LAST 

681 

35,3473 

10  002 

1 

CCS 

Q 

0752  1 

REF 

1 

35,3474 

1 3465 

1 

TCF 

NTARGCHK 

07522 

REF 

2 C 2 

LAST 

618 

35,3475 

22  000 

1 

LXCH 

A 

07523 

35,3476 

0 0006 

1 

EXTEND 

07524 

35,3477 

1 3502 

1 

BZF 

+ 3 

07525 

RFF 

42 

LAST 

635 

35,3500 

0 5506 

1 

TC 

UPFLAG 

0753 

REF 

2 

LAST 

681 

35,3501 

00  146 

1 

ADRES 

NTARGFLG 

0754 

REF 

80 

LAST 

669 

35, 3502 

0 6060 

1 

TC 

I NT  PR  ET 

0755 

35,3503 

45014 

0 

BOFF 

CALL 

0756 

REF 

3 

LAST 

681 

35,3504 

03354 

0 

NTARGFLG 

0757 

REF 

1 

35,3505 

73507 

1 

NOCHG 

681 
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P34- 

P35, 

P 74- 

P 75 

0758 

REF 

1 

35,3506 

0759 

35,3507 

076  1 

REF 

7 

LAST 

67e 

35,3510 

0762 

REF 

9 

LAST 

651 

35,3511 

0763 

35,3512 

0764 

REF 

1 

35,3513 

0769 

35,3514 

0770 

REF 

20 

LAST 

681 

35,3515 

73  315 

1 

S 34/35 . 3 

77775 

1 

NOCHG 

VLOAD 

02357 

1 

DELVEET3 

03656 

1 

STORE 

DELVSIN 

77624 

1 

FLAGOFF 

CALL 

73360 

0 

S 34/ 3 5.4 

77650 

1 

GOTO 

03470 

1 

SUBEXIT 
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USER ' S PAGE  NO.  23 
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P 077  l VN1645 


RO  77  2 SUBROLTINES  USED 


R0773  P3X0RP7X 


R0774 

R0775 

R0776 

R0777 

R0778 

R0779 

R0780 


GET+MGA 

E ANKCALL 

D E LAY  JOB 

COMPTGO 

GOFLASHR 

GCTOPOOH 

FLAGUP 


0781 

35,3516 

71220 

l 

VN1645 

STQ 

DLOAD 

0782 

REF 

21 

LAST 

682 

35,3517 

03470 

1 

SUBEXIT 

0783 

REF 

1 

35,3520 

33652 

0 

DP-.01 

0784 

REF 

3 

LAST 

620 

35,3521 

02244 

1 

STORE 

+ MGA 

MGA  = -.01 

0785 

35,3522 

71214 

0 

BOFF 

DLOAD 

0786 

REF 

5 

LAST 

681 

35,3523 

01351 

1 

F INALFLG 

0787 

REF 

1 

35,3524 

73544 

0 

GET45 

0788 

REF 

2 

LAST 

683 

35,3525 

33652 

0 

DP-.Ol 

0789 

35,3526 

77615 

0 

DAD 

0790 

REF 

3 

LAST 

683 

35,3527 

33652 

0 

DP-.01 

0791 

REF 

4 

LAST 

683 

35,3530 

02244 

1 

STORE 

+ MGA 

MG  A = -.02 

0792 

35,3531 

77414 

0 

BOFF 

EXIT 

0793 

REF 

1 

35,3532 

01742 

1 

R EFSMFLG 

0794 

REF 

2 

LAST 

683 

35,3533 

73544 

0 

GET45 

0795 

REF 

1 

35,3534 

0 3614 

1 

TC 

P 3X0RP7X 

0796 

35, 3535 

0 3537 

0 

TC 

+ 2 

P3X 

0797 

REF 

3 

LAST 

683 

35,3536 

0 3545 

0 

TC 

GET45  +1 

P7X 

0798 

REF 

81 

LAST 

681 

35,3537 

0 6060 

1 

TC 

INTPRET 

0799 

35,3540 

41575 

0 

VLOAD 

PUSH 

0800 

REF 

10 

LAST 

682 

35,3541 

03656 

1 

DELVS  IN 

0 801 

35,3542 

77624 

1 

CALL 

COMPUTE  MGA 

0802 

REF 

l 

35,3543 

42C06 

1 

GET+MGA 

0803 

35,3  544 

77776 

1 

GET45 

EX  I T 

0804 

REF 

1 

35,3545 

0 2437 

0 

TC 

COMPTGO 

INITIATF  TASK  TO 

UPDATE  TTOGO 

0805 

REF 

22 

LAST 

683 

35,3546 

3 14  70 

0 

CA 

SUBEXIT 

080  6 

REF 

1 

35,3547 

55 ' 464 

l 

TS 

Q SAVED. 

0807 

REF 

5 

LAST 

393 

35,3550 

3 4770 

0 

CAF 

1 SEC 

0808 

REF 

171 

LAST 

681 

35,3551 

C 4607 

1 

TC 

BANKCALL 

0809 

REF 

11 

LAST 

531 

35,3552 

01736 

1 

CADR 

D E LAY  JOB 

0810 

REF 

1 

35,3553 

3 3640 

0 

CAF 

V16N45 

TRKMKCNT,  TTOGO , 

+ MGA 

081  1 

REF 

172 

LAST 

683 

35,3554 

0 4607 

1 

TC 

BANKCALL 

0812 

REF 

15 

LAST 

681 

35,3555 

20471 

1 

CADR 

GOFLASH 

081  3 

REF 

1 

35,3556 

0 3561 

0 

TC 

K ILCLOCK 

TERMI NAT  F 

0814 

REF 

1 

35,3557 

0 3564 

0 

TC 

N45PR0C 

PROCEED 

0815 

REF 

1 

35,3560 

0 3 5 74 

1 

TC 

CLUPDATE 

RECYCLE  - RETURN 

FOR  INITIAL  COMPUTATION 

0816 

REF 

13 

LAST 

445 

35,3561 

3 0005 

l 

K ILGLQCK 

CA 

Z 

0817 

REF 

3 

LAST 

656 

35,3562 

55' 162 

1 

TS 

DISPDEX 
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P 3 4- 

P35 , 

P 74-1 

P 75 

0818 

REF 

15 

LAST 

681 

35 

0819 

REF 

11 

LAST 

609 

35 

0820 

REF 

37 

LAST 

577 

35 

0821 

35 

0822 

REF 

2 

LAST 

683 

35 

082  3 

REF 

27 

LAST 

535 

35 

0824 

35 

0825 

REF 

43 

LAST 

681 

35 

0826 

REF 

6 

LAST 

683 

35 

0827 

REF 

14 

LAST 

683 

35 

0828 

REF 

4 

LAST 

683 

35 

0829 

REF 

28 

LAST 

684 

35 

0 83  0 

35 

083  1 

REF 

82 

LAST 

683 

35 

0832 

35 

0833 

REF 

10 

LAST 

681 

35 

0334 

REF 

2 

LAST 

683 

35 

0 6001 

0 

TC 

GOTOPOOH 

4 0076 

1 

N45PR0C 

CS 

FLAGWRD2 

7 4737 

1 

MASK 

BIT6 

0 0006 

1 

EXTEND 

l 3561 

1 

BZF 

KILCLOCK 

0 5355 

1 

TC 

PHASCHNG 

04024 

0 

OCT 

04024 

0 5506 

1 

TC 

UPFLAG 

00047 

1 

ADRES 

F INALFLG 

3 0005 

1 

CLUPOATE 

CA 

Z 

55’ 162 

1 

TS 

DISPOEX 

0 5355 

l 

TC 

PHASCHNG 

04024 

0 

OCT 

04024 

0 6060 

1 

TC 

I NTPRET 

52014 

0 

CLEAR 

GOTO 

0C670 

0 

UPDATFLG 

03464 

1 

Q SAVED 

3563 

3 564 

3565 

3566 

3567 

3 5 70 

3571 

3572 

3573 

3574 

3575 

3576 

3577 

3600 

3601 

3602 

3603 
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685 


R0837  B ANKC  ALL 


R0  83  8 
R0839 
R0840 
R0841 


GCFLASHP 
GOTOPOOH 
BLANKET 
ENDOF  JOB 


0842 

35,3604 

C 

0006 

1 

DISPLAYE  EXTEND 

0843 

REF 

12 

LAST 

679 

35,3605 

23 ' 463 

1 

QXCH 

NORMEX 

0844 

REF 

2 

LAST 

628 

35,3606 

3 

3634 

0 

CAF 

V06N55 

0845 

REF 

173 

LAST 

683 

35,3607 

C 

4607 

1 

TCR 

BANKCALL 

0846 

REF 

16 

LAST 

683 

35,3610 

20471 

1 

CADR 

GOFLASH 

0847 

REF 

16 

LAST 

684 

35,3611 

1 

6001 

1 

TCF 

GOTOPOOH 

084  8 

REF 

13 

LAST 

685 

35,3612 

0 

1463 

1 

TC 

NORMEX 

084  9 

35,3613 

1 

3606 

0 

TCF 

-5 
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P0853 

0854 

REF 

2 

LAST 

257 

35,3614 

0855 

0856 

0857 

REF 

10 

LAST 

513 

35.3615 

35.3616 

35.3617 

0858 

0859 

REF 

177 

LAST 

681 

35.3620 

35.3621 

R0860 

R0061 

R086? 
RO  863 
R0864 

0865 

SUBR0U7 1NES  USED 

E ANKC ALL 

GOFLASH 

GCTOPOOH 

35,3622 

0366 

REF 

6 

LAST 

680 

35,3623 

0867 

REF 

3 

LAST 

636 

35,3624 

036  8 

REF 

4 

LAST 

686 

35,3625 

0 86  9 

REF 

174 

LAST 

685 

35,3626 

0870 

REF 

17 

LAST 

685 

35,3627 

087  1 

REF 

17 

LAST 

685 

35,3630 

0872 

0873 

REF 

7 

LAST 

686 

35.3631 

35.3632 

3 

7 765 

1 

P3X0RP7X  CAF 

HIGH9 

7 

1010 

0 

MASK 

MODRFG 

C 

0006 

1 

EXTEND 

1 

3621 

0 

BZF 

+ 2 

24 

002 

0 

INCR 

0 

0 

0002 

0 

RETURN 

0 

0006 

1 VNPOOH 

EXTEND 

23 

1 465 

1 

QXCH 

RTRN 

55 

•615 

0 

TS 

VFRBNOUN 

3 

1615 

1 

CA 

V ERBNOUN 

C 

4607 

1 

TCR 

BANKCALL 

20471 

1 

CADR 

GOFLASH 

1 

6001 

1 

TCF 

GOTOPOOH 

0 

1465 

1 

TC 

RTRN 

1 

3625 

1 

TCF 

-5 
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P0874  CONSTANTS  


0876 

35,3633 

01445 

0 

VC6N37 

VN 

0637 

0876 

35, 3634 

01467 

0 

V06N55 

VN 

0655 

087  7 

35,3635 

01472 

1 

VC6N58 

VN 

0659 

0878 

35,3636 

01473 

0 

V06N59 

VN 

0659 

0879 

35,3637 

01521 

0 

V06N81 

VN 

0681 

0830 

35,3640 

04055 

0 

V16N45 

VN 

1645 

088  1 

35,3641 

14441 

0 

TWOP  I 

2DEC 

6.283185307  B-4 

088  l 

35,3642 

37325 

1 

0832 

35,3643 

0CC01 

0 

M AX250 

2DEC 

25  E3 

0882 

35,3644 

20650 

0 

0883 

35,3645 

12525 

0 

THIRD 

2DEC 

.333333333 

0883 

35,3646 

12525 

0 

088  A 

35,3647 

00004 

0 

ELEPS 

2DEC 

.27777777  E-3 

0884 

35,3650 

21505 

1 

0836 

35,3651 

77777 

0 

DP-.01 

OCT 

77777 

CONSTANTS 

0887 

35,3652 

61337 

1 

OCT 

61337 

ADJACENT 

0887  1 

35,3653 

01252 

0 

EPSFOUR 

2DEC 

. 0416666666 

0837  1 

35,3654 

25253 

1 

08872 

35,3655 

13434 

0 

1300EG 

2DEC 

.3611111111 

08872 

35,3656 

16162 

0 
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P0888  INITVEL  

R0889  MOO  NC  -1  LOG  SECTION  - P34-P35,  P74-P75 

R0890  MOD  BY  WHITE. P DATE  21N0V67 

R0891  FUNCTIONAL  DESCRIPTION 

R0892  THIS  SUBROUTINE  COMPUTES  THE  REQUIRED  INITIAL  VELOCITY  VECTOR  FOR 

R0893  A TRAJECTORY  OF  SPECIFIED  TRANSFER  TIME  BETWEEN  SPECIFIED  INITIAL 

R0894  AND  TARGET  POSITIONS.  THE  TRAJECTORY  MAY  BE  EITHER  CONIC  OR 

R 089 5 PRECISION  DEPENDING  ON  AN  INPUT  PARAMETER  (NAMELY,  NUMBER  OF 

R0896  OFFSETS).  IN  ADDITION,  IN  THE  PRECISION  TRAJECTORY  CASE,  THE 

R0897  SL8R0UT I NE  ALSC  COMPUTES  AN  OFFSET  TARGET  VECTOR,  TO  BE  USED 

R0898  DURING  PURE-CONIC  CROSS-PRODUCT  STEERING.  THE  OFFSET  TARGET 

R0899  VECTOR  IS  THE  TERMINAL  POSITION  VECTOR  OF  A CONIC  TRAJECTORY  WHICH 

R0900  HAS  THE  SAME  INITIAL  STATE  AS  A PRECISION  TRAJECTORY  WHOSE 

R0901  TERMINAL  POSITION  VECTOR  IS  THE  SPECIFIED  TARGET  VECTOR. 


R0902  IN  ORDER  TO  AVOID  THE  INHERENT  SINGULARITIES  IN  THE  180  DEGREE 

R0903  TRANSFER  CASE  WHEN  THE  (TRUE  OR  OFFSET)  TARGET  VECTOR  MAY  BE 

R0904  SLIGHTLY  OUT  OF  THE  ORBITAL  PLANE,  THIS  SUBROUTINE  ROTATES  THIS 

R0905  VECTOR  INTO  A PLANE  DEFINED  BY  THE  INPUT  INITIAL  POSITION  VECTOR 

R0906  AND  ANOTHER  INPUT  VECTOR  (USUALLY  THE  INITIAL  VELOCITY  VECTOR), 

R0907  WHENEVER  THE  INPUT  TARGET  VECTOR  LIES  INSIDE  A CONE  WHOSE  VERTEX 

R0908  IS  THE  ORIGIN  CF  COORDINATES,  WHOSE  AXIS  IS  THE  180  DEGREE 

K0909  TRANSFER  DIRECTION,  AND  WHOSE  CONE  ANGLE  IS  SPECIFIED  BY  THE  USER. 


R0910  THE  LAMBERT  SUBROUTINE  IS  UTILIZEO  FOR  THE  CONIC  COMPUTATIONS  AND 
R091  1 THE  COASTING  INTEGRATION  SUBROUTINE  IS  UTILIZED  FOR  THE  PRECISION 
R 091 2 TRAJECTORY  COMPUTATIONS. 

R0913  CALLING  SEQUENCE 


R0914 
R091  5 
R0916 


L CALL 

LEI  INITVFL 

L+2  (RETURN  - ALWAYS) 


R0917  INPUT 


R0918 

( 1 ) 

RINIT 

INITIA 

R0919 

(2) 

V IN  I T 

I N I T I A 

R0920 

(3) 

RTARG 

TARGET 

R0921 

(4  ) 

DELL  T 4 

DESIRE 

R0922 

(5) 

INTIME 

TIME  0 

R0923 

( fc> 

OD 

NUMBER 

R0924 

( 7) 

2D 

ANGLE 

R0923 

(8  ) 

RTXl 

-2  FUR 

R0925  1 

(9) 

RTX2 

COORD  I 

R0926 

PUSHLOC  SET 

AT  4D 

L POSITION  RADIUS  VECTOR 
L POSITION  VELOCITY  VECTOR 
POSITION  RADIUS  VECTOR 
D TIME  OF  FLIGHT  FROM  RINIT  TO  RTARG 
F RINIT 

OF  ITERATIONS  OF  L AMBERT/ I NT EGR VS 
TO  180  DEGREES  WHEN  ROTATION  STARTS 
EARTH,  -100  FOR  LUNAR 
NATE  SYSTEM  ORIGIN  - 0 FOR  EARTH,  2 FOR 


LUNAR 


GAP: 
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17:  11 
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PAGE 

L 

P 3 4- 

-P35, 

P 74-P 75 

USER'S  PAGE  NO.  29 

F 7 S3 

R 092  7 

OUTPL  T 

R0928 

(1) 

R TAR  G 

OFFSET  TARGET  POSITION  VECTOR 

R0929 

(2) 

VIPRIME 

MANEUVER 

velocity 

REQU  IRED 

R0930 

(3) 

VTPRIME 

VELOCI TY 

AT  TARGET  AFTER  MANEUVER 

R093  1 

(4) 

DELVEET3 

DELTA  VELOCITY  REQUIRED  FOR  MANEUVER 

R0932 

SUBROUTINES  USED 

R0933 

LAMBERT 

R0934 

I NTST  ALL 

R0935 

INTEGRVS 

0936 

REF 

l 

11,2000 

SETLOC 

INTVEL 

093  7 

11,2000 

BANK 

0938 

REF 

1 

COUNT  * 

$ $/ 1 N I TV 

0958 

11,2000 

77614 

1 INITVEL 

SET 

COGA  GUESS  NOT  AVAILABLE 

0959 

REF 

1 

11,2001 

0C475 

1 

GUESSW 

0960 

11,2002 

44175 

1 HAVEGUES 

VLOAD 

STQ 

096  1 

REF 

5 

LAST 

678 

11,2003 

03444 

0 

RTARG 

0962 

REF 

14 

LAST 

635 

LI, 2004 

03463 

0 

NORMEX 

0963 

REF 

1 

11,2005 

034  72 

0 

STORE 

RTARGl 

0963  1 

11,2006 

77646 

0 

ABVAL 

096  3 2 

REF 

2 

LAST 

149 

11,2007 

03723 

1 

STORE 

RTMAG 

0964 

11,2010 

46  135 

l 

SLDAD 

8HIZ 

0965 

REF 

4 

LAST 

680 

11,2011 

03000 

1 

RTX2 

0967 

REF 

1 

11, 2012 

22026 

0 

INITVFL1 

0968 

11,2013 

72575 

0 

VLOAD 

V SL2 

0969 

REF 

2 

LAST 

676 

11,2014 

02314 

0 

RINIT 

829 

0970 

REF 

3 

LAST 

639 

11, 2015 

26314 

0 

STOVL 

RINIT 

B27 

0971 

REF 

2 

LAST 

677 

11,2016 

02322 

0 

VINIT 

87 

0972 

11,2017 

77752 

1 

VSL2 

0973 

REF 

3 

LAST 

689 

11,2020 

26322 

0 

STOVL 

VINIT 

B5 

0974 

REF 

2 

LAST 

689 

11,2021 

03472 

0 

RTARGl 

0975 

11,2022 

77752 

1 

VSL  2 

0976 

REF 

3 

LAST 

689 

11,2023 

03472 

0 

STORE 

RTARGl 

0976  1 

11 , 2024 

77646 

0 

ABVAL 

09762 

REF 

3 

LAST 

689 

11,2025 

03723 

1 

STORE 

RTMAG 

R0977 

INITIALIZATION 

0978 

11,2026 

71331 

0 INITVEL1 

SSP 

D LOAD 

SET 

ITCTR  tq  -I, LOAD  ,MPAC  WITH 

E4  (PL 

0979 

REF 

1 

11,2027 

C 36  1 7 

1 

I TCTR 

0980 

11,2030 

77776 

1 

0 -1 

098  1 

11,2031 

70546 

1 

COSINE 

SR  L 

CALCULATF  COSINE  ( E4 ) (+2) 

0982 

REF 

1 

11,2032 

17667 

0 

STODL 

C0ZY4 

SET 

C0ZY4  TO  COS I NF ( E4 ) 

(PL 

0983 

11,2033 

67154 

0 

LXA,  2 

S X A , 2 

0984 

REF 

267 

LAST 

671 

11,2034 

0C154 

1 

M P AC 

0985 

REF 

2 

LAST 

130 

11,2035 

02701 

0 

VTARGTAG 

SET 

VTARGTAG  TO  OD  (SP) 

0986 

11,2036 

77775 

1 

VLOAD 
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^75 

0987 

RE  E 

4 

LAST 

689 

11,2037 

02314 

0 

RINIT 

0988 

REF 

3 

LAST 

130 

11,2040 

26655 

0 

STOVL 

R1VEC 

0989 

REF 

4 

LAST 

689 

11,2041 

03472 

0 

RTARG1 

0990 

REE 

2 

LAST 

130 

11,2042 

16663 

0 

STOOL 

R2VEC 

099  l 

REF 

5 

LAST 

676 

11,2043 

03452 

1 

DELLT4 

0992 

REF 

2 

LAST 

130 

11,2044 

02671 

0 

STORE 

TDES IRED 

0993 

1 1 ,2  045 

77201 

1 

SET  PD 

V LOAD 

0994 

11, 2046 

OCOOl 

0 

OD 

0995 

REF 

5 

LAST 

690 

11,2047 

02314 

0 

RINIT 

0996 

11,2050 

41456 

0 

UNIT 

PUSH 

0997 

11,2051 

53435 

0 

VXV 

UNIT 

0998 

REE 

4 

LAST 

689 

11,2052 

02322 

0 

VINIT 

0999 

REF 

2 

LAST 

130 

11,2053 

26674 

0 

STOVL 

UN 

1000 

REF 

5 

LAST 

690 

1 L ,2054 

034  72 

0 

RTARG1 

100  l 

11 ,2055 

50256 

0 

UNIT 

DOT 

1002 

11,2056 

43015 

1 

DAD 

CLEAR 

1003 

REE 

2 

LAST 

689 

11,2057 

C3667 

0 

C0ZY4 

1004 

REF 

1 

11,2060 

03665 

1 

NORMSW 

LOO  5 

REF 

3 

LAST 

690 

11,2061 

03667 

0 

STORE 

C0ZY4 

1006 

11,2062 

43044 

0 

INIT VEL2 

BPL 

SET 

1007 

REF 

l 

11,2063 

22105 

0 

INITVEL3 

100  8 

REF 

2 

LAST 

690 

11,2064 

03465 

0 

NORMSN 

R1009 

ROTATE  RC 

INTO 

YC  PLANE  - 

SET  UNIT 

NORMAL  TO 

YC 

1010 

11,2065 

41575 

0 

VLOAD 

PUSH 

101  1 

REF 

3 

LAST 

690 

1 L , 2066 

02663 

0 

R2VEC 

1012 

11,2067 

63246 

1 

ABVAL 

PDVL 

1013 

11,2070 

46206 

1 

PUSH 

VPROJ 

1014 

REF 

3 

LAST 

690 

11,2071 

02674 

0 

UN 

1015 

11,2072 

513  52 

1 

VSL2 

B VSU 

1016 

11,2073 

74256 

0 

UNIT 

VXSC 

1017 

11,2074 

77772 

0 

VSL  1 

1018 

REF 

4 

LAST 

690 

11,2075 

02663 

0 

STORE 

R2VEC 

1019 

11,2076 

67351 

l 

TLOAD 

SLOAD 

1020 

REF 

2 

LAST 

38 

11,2077 

24007 

0 

ZEROVEC 

102  1 

REF 

2 

LAST 

689 

11,2100 

03617 

1 

I TCTR 

1022 

11,2101 

77244 

0 

BPL 

VLOAD 

102  3 

REF 

2 

LAST 

690 

11,2102 

22  105 

0 

I NITVEL3 

102  4 

REF 

5 

LAST 

690 

11,2103 

02663 

0 

R2VEC 

102  5 

REF 

6 

LAST 

690 

1 1 ,2  104 

03472 

0 

STORE 

RTARG1 

1026 

11,2105 

63345 

0 

INITVEL3 

DLOAD 

PDVL 

102  7 

REF 

1 

11,2106 

26007 

1 

MUEARTH 

102  8 

REF 

6 

LAST 

690 

11,2107 

C2663 

0 

R2VEC 

1028C2 

11,2110 

63256 

0 

UNIT 

PDVL 

1028C4 

REF 

4 

LAST 

690 

11,2111 

02655 

0 

R IV  EC 

1028C6 

11,2  112 

41456 

0 

UNIT 

PUSH 

1028C8 

11,2113 

57435 

l 

VXV 

VCOMP 

1028  1 

11,2114 

00003 

1 

2D 

10282 

11,2115 

77606 

1 

PUSH 

10283 

11,2116 

71350 

1 

LX  A , 1 

DLOAD 
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R1VEC  EQ  RINIT 

R2VEC  EQ  RTARG 

TDES  I RED  EQ  D ELLT4 

INITI ALIZE  PL  TO  OD 
M P AC  EQ  RINIT  (+29) 

UNIT(RI)  (+1) 

MPAC  EQ  UN  I T ( R I ) X VI  ( +8) 


TEMP=URT.URl  (+2) 


UN  CALCULATED  IN  LAMBFRT 


RC  TO  6D  (+29) 

RC  TO  MPAC,  ABVAL(RC)  (+291  TO 


POSITIVE  VALUE 

2D  = UNI T ( R2 V EC ) 

8D  = UNIT(RIVEC) 

-N  = UNITIR2VEC)  X UNIT(RIVEC) 


E 7 S3 


(PL  6D ) 
(PL  OD) 

(PL  6D ) 

ODIPL  2D) 
(PL  8D ) 

(PL  OD) 

(PL  2D) 

(PL  8D ) 
( PL14D) 


( PL20D) 
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102  8 A 

REF 

6 LAST  665 

11,2117 

C 2 7 7 6 

0 

RTX1 

10285 

11,2120 

00023 

0 

1 8D 

10286 

11,2121 

62040 

1 

BMN 

INCR, 1 

10287 

11,2122 

22124 

0 

+ 2 

10238 

11,2123 

77767 

1 

DEC 

-8 

10285 

11,2124 

67310 

1 

INCR  , 1 

SLOAD 

102  9 

11,2125 

0C012 

1 

100 

1029  1 

REF 

14  LAST  672 

11,2126 

0C047 

1 

XI 

10292 

11,2127 

77230 

0 

BHIZ 

VLOAD 

( PL14D) 

10293 

11,2130 

22132 

1 

+ 2 

102  9 A 

11,2131 

A 1 A 76 

1 

VCOMP 

PUSH 

( PL20D) 

10295 

11,2132 

77775 

1 

VLOAD 

(PL14D) 

10296 

11,2133 

50235 

0 

VXV 

DOT 

(PL  2D) 

103  2 

11,2134 

7 1244 

0 

BPL 

DLOAD 

(PL  OD) 

1033 

REF 

1 

11,2135 

22  137 

1 

I NITVEL4 

1034 

11,2136 

41476 

1 

DCOMP 

PUSH 

(PL  2D) 

1035 

11,2137 

67154 

0 INITVEL4  LX A , 2 

S X A , 2 

1036 

11 ,2 140 

00000 

1 

OD 

1037 

REF 

2 LAST  130 

11,2141 

02672 

0 

GEOMSGN 

R 103  8 

SET 

INPUTS  UP  FCR 

LAMBERT 

1039 

1 1 , 2 L42 

66350 

1 

LX  A , 1 

SSP 

1040 

REF 

7 LAST  691 

11,2143 

02776 

0 

RTX1 

1040  1 

REF 

1 

11,2144 

00027 

1 

I TERCTR 

10402 

11,2145 

00024 

1 

2 OD 

R 1 04  1 

OPERATE  THF  LAMBERT  CONIC 

ROUTINE 

(COASTFLT  SUBROUTINE) 

1042 

11,2146 

77624 

1 

CALL 

1043 

REF 

1 

11,2147 

25212 

1 

LAMBERT 

R 1 044 

ARRIVED  AT  SOLUTION 

IS  GOOD  ENOUGH  ACCORDING  TO  SLIGHTLY  WIDER  BOUNDS. 

1045 

11,2150 

77214 

0 

CLEAR 

VLOAD 

104  6 

REF 

2 LAST  689 

11,2151 

C0675 

0 

GUESSW 

104  7 

REF 

8 LAST  666 

11,2152 

02  744 

1 

V VEC 

R 1048 

STORE 

CALCULATED  INITIAL  VELOCITY  REQUIRED 

IN  VIPRIME 

R 1049 

1050 

REF 

2 LAST  666 

11,2153 

16330 

0 

STODL 

VIPRIME 

INITIAL  VELOCITY  REQUIRED  (+7) 

R 105  1 

R 105  2 

IF 

NUMIT  IS  ZERO, 

CONTINUE 

AT  INITVELB, 

OTHERWISE 

R 1053 

SET  UP  INPUTS  FOR  ENCKE  INTEGRATION 

( I NTEGRVS ) . 

1054 

REF 

3 LAST  689 

11,2154 

02702 

0 

VTARGTAG 

1055 

11 , 2155 

45030 

0 

BHIZ 

CALL 

1056 

REF 

1 

11,2156 

22233 

0 

INITVEL7 

1057 

REF 

20  LAST  680 

11,2157 

27447 

0 

I NTSTALL 

1061 

11 ,2 160 

43135 

1 

SLOAD 

CLEAR 

106  2 

REF 

5 LAST  689 

11,2161 

03000 

1 

RTX2 

1063 

REF 

5 LAST  680 

11,2162 

00263 

0 

MOONFLAG 

1064 

11,2163 

43030 

0 

BHIZ 

SET 
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P 35  » 

P 74-P75 

1065 

REF 

1 

11,2164 

22166 

0 

INITVEL5 

1066 

REF 

6 

LAST 

691 

11,2165 

0C063 

1 

MOONFLAG 

106  7 

11,2166 

77775 

1 

INI TVEL5 

VLOAD 

1068 

REF 

6 

LAST 

690 

11,2167 

02314 

0 

R INIT 

1069 

REF 

5 

LAST 

690 

11,2170 

02655 

0 

STORE 

R1VEC 

1070 

REF 

7 

LAST 

680 

11,2171 

25535 

0 

STOVL 

RCV 

1071 

REF 

3 

LAST 

691 

11,2172 

C2330 

0 

VI  PR  I ME 

1072 

REF 

6 

LAST 

60C 

11,2173 

15543 

1 

STOOL 

VCV 

1073 

REF 

5 

LAST 

676 

11,2174 

03610 

0 

INTIME 

1074 

REF 

10 

LAST 

630 

11,2175 

01517 

0 

STORE 

TET 

1075 

11,2176 

43015 

1 

DAD 

CLEAR 

1076 

REF 

6 

LAST 

690 

11,2177 

03452 

1 

DELLT4 

1077 

REF 

10 

LAST 

630 

1 1,2200 

01673 

1 

INTYPFLG 

1078 

REF 

28 

LAST 

680 

11,2201 

34041 

0 

STCALL 

T0EC1 

1079 

REF 

3 

LAST 

630 

11,2202 

27145 

1 

I NTEGRVS 

1080 

11,2203 

77775 

1 

VLOAD 

108  1 

RFF 

8 

LAST 

659 

11,2204 

0CC25 

0 

VATT1 

1082 

REF 

2 

LAST 

130 

11,2205 

02703 

1 

STORE 

VTARGET 

R1083 

I F 

ITERATION 

COUNTER  (ITCTR) 

EQ  NO. 

ITERATIONS 

( NUM IT ) 

, CONTINUE 

R 1 084 

INITVELC 

, OTHERWISE 

REITERATE 

LAMBERT 

AND  ENCKE 

1085 

11,2206 

63154 

1 

LXA  ,2 

I NCR  ,2 

1086 

REF 

3 

LAST 

690 

11,2207 

03616 

0 

I TCTR 

108  7 

11,2210 

00001 

0 

ID 

1088 

11,2211 

55  134 

1 

SXA  , 2 

XSU , 2 

1089 

REF 

4 

LAST 

692 

11,2212 

03616 

0 

I TCTR 

1090 

REF 

4 

LAST 

691 

11,2213 

02701 

0 

VTARGTAG 

1091 

11,2214 

46  135 

1 

SLOAD 

BHIZ 

1092 

RFF 

9 

LAST 

659 

11,2215 

00050 

1 

X 2 

1093 

REF 

1 

11,2216 

22230 

0 

INITVEL6 

R1094 

R 109  5 

OFFSET 

CONIC 

TARGET  VECTOR 

1096 

11,2217 

52375 

1 

VLOAD 

VSU 

1097 

REF 

7 

LAST 

690 

11,2220 

03472 

0 

RTARG1 

1098 

REF 

5 

LAST 

659 

11,2221 

00017 

1 

R ATT  1 

1099 

11,2222 

77655 

1 

VAD 

1 100 

REF 

7 

LAST 

690 

11,2223 

02663 

0 

R2VEC 

110  1 

REF 

8 

LAST 

692 

11,2224 

16663 

0 

STOOL 

R2VEC 

1 102 

REF 

4 

LAST 

690 

11,2225 

C3667 

0 

C0ZY4 

1 103 

11 ,2226 

77650 

1 

GOTO 

1 104 

REF 

1 

11,2227 

22062 

0 

I NITVEL2 

R1 105 

CCMPUTF 

THE  DELTA  VELOCITY 

1106 

11,2230 

77775 

1 

INITVEL6 

VLOAD 

110  7 

REF 

9 

LAST 

692 

11,2231 

02663 

0 

R2VEC 

1108 

REF 

8 

LAST 

692 

11,2232 

03472 

0 

STORE 

RTARG1 

1109 

11,2233 

52375 

1 

I NITVEL7 

VLOAD 

VSU 

1110 

REF 

4 

LAST 

692 

11,2234 

02330 

0 

V IPR I ME 

1111 

REF 

5 

LAST 

690 

11,2235 

02322 

0 

VINIT 
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INCREMENT  ITCTR 


IF  SP(MPAC)  EO  0,  CONTINUE  AT 


PAGE  692 
E 7 S3 


INI TVFLC 


CONTINUE  ITERATING  AT  IN  I TVFL2 
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1112 

REF 

8 

LAST 

632 

11, 2236 

1113 

REF 

3 

LAST 

692 

11,2237 

1114 

REF 

2 

LAST 

666 

11,2240 

1115 

11,2241 

1116 

REF 

6 

LAST 

691 

11,2242 

1117 

REF 

1 

11,2243 

11171 

1 1,2244 

11172 

REF 

3 

LAST 

693 

1 1,2245 

1118 

REF 

4 

LAST 

693 

11,2246 

1119 

REF 

5 

LAST 

692 

11,2247 

1120 

11,2250 

1121 

REF 

6 

LAST 

693 

11,2251 

1122 

REF 

9 

LAST 

692 

11,2252 

1 123 

11 ,2253 

1124 

REF 

10 

LAST 

693 

11,2254 

1 125 

REF 

9 

LAST 

693 

11 ,2255 

1 126 

11,2256 

1127 

REF 

10 

LAST 

693 

11,2257 

1128 

11,2260 

1128  1 

REF 

8 

LAST 

691 

11,2261 

11282 

REF 

1 

11,2262 

112825 

11,2263 

1 128  3 

REF 

3 

LAST 

654 

11,2264 

1 12  8 A 

11,2265 

11285 

REF 

4 

LAST 

654 

11,2266 

1 1286 

REF 

2 

LAST 

149 

l 1,2267 

112  6 7 

11 ,2270 

112871 

11,2271 

112875 

REF 

2 

LAST 

149 

11,2272 

1 1288 

11,2273 

1129 

11,2274 

1130 

REF 

11 

LAST 

693 

11,2275 

1131 

REF 

6 

LAST 

689 

11,2276 

1132 

11,2277 

1 13  3 

REF 

3 

LAST 

648 

11,2300 

1 13  A 

REF 

15 

LAST 

689 

11,2301 

R 1 13  5 

R1  136 

INI  TVEL 

ROUTINE 

26  357 

1 

STOVL 

0ELVEET3 

C2703 

1 

VTARGET 

03566 

1 

STORE 

VTPRIME 

A6  135 

1 

SLOAD 

BHIZ 

03000 

1 

RTX2 

22260 

0 

INITVELX 

7C575 

1 

VLOAD 

V SR2 

03566 

1 

VTPRIME 

27566 

l 

STOVL 

VTPRIME 

02330 

0 

V IPRIME 

77742 

0 

VSR2 

26330 

0 

STOVL 

VIPRIME 

03A72 

0 

RTARG1 

77742 

0 

VSR  2 

27472 

0 

STOVL 

RTARG1 

02357 

1 

0 ELVEET3 

77742 

0 

VSR2 

02357 

1 

STORE 

DELVEET3 

7C750 

1 

INITVELX  LX A , 1 

DLOAD* 

02776 

0 

RTX1 

1CC03 

0 

MUTABLE  • 

41206 

0 

PUSH 

DMP 

02  742 

1 

R 1A 

56342 

1 

SRI 

DDV 

0C041 

1 

R 1 

17721 

0 

STOOL 

MU/A 

77661 

0 

SR 

20607 

1 

6 

03717 

0 

STORE 

MUASTEE  R 

77201 

1 

SETPD 

VLOAD 

00C01 

0 

OD 

03472 

0 

RTARG1 

03444 

0 

STORE 

RTARG 

5 2 C 14 

0 

CLEAR 

GOTO 

01267 

0 

XDELVFLG 

03463 

0 

NORMEX 

17:11  MAR.  19,1971  KISSING 
USER'S  PAGE  NO.  33 
0ELVEET3  = V I PR  I ME-V I N IT 
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GAP:  ASSEMBLE  REVISION  210  CE  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


17:11  MAR.  19,1971  KISSING  .067 


0 AGE 


694 


L 

P 1 13  7 

R1 138 
R 1 13  9 

R 1 140 
Rl  14  1 
R 1 1 4 2 
Rl  143 
R 11 4 4 

R 1 14  5 

Rl  146 

Rl  14  7 
Rl  149 
Rl  150 
Rl  15  1 

R 1 15  2 

R 1 1 5 3 

Rl  154 
R 1 1 5 5 
R 1 156 

R 1 15  7 

R 1 1 5 8 
Rl  159 
Rl  160 

Rl  16  1 

R 1 16  2 

RU63 

Rl  164 


P34-P35,  P74-P75 


USER' S PAGE  NO.  34  E7  S3 


MIDGIM  

MOD  NO.  0,  BY  WILLMAN,  SUBROUTINE  RENOGUID,  LOG  P34-P35,  P74-P75 
REVISION  03,  17  FEB  67 

IF  THE  ACTIVE  VEHICLE  IS  DOING  THE  COMPUTATION,  MIDGIM  COMPUTES 
THE  POSITIVE  MIDDLE  GIMBAL  ANGLE  OF  THE  ACTIVE  VEHICLE  TO  THE  INPUT 
DELTA  VELOCITY  VECTOR  (OD  IN  PUSH  LIST),  OTHERWISE 

MIDGIM  CONVERTS  THE  INPUT  DELTA  VELOCITY  VECTOR  FROM  INERTIAL  COORDIN- 
ATES TC  LOCAL  VERTICAL  COORDINATES  OF  THE  ACTIVE  VEHICLE. 


..  INPUTS  .. 


NAME 


MEANING 


UNITS/SCALING/MODE 


AVFLAG  INT  FLAG  - 0 IS  CSM  ACTIVE,  1 IS  LEM  ACTIVE 


BIT 


RINIT  ACTIVE  VEHICLE  RADIUS  VECTOR 

VINIT  ACTIVE  VEHICLE  VELOCITY  VECTOR 

OD  (PL)  ACTIVE  VEHICLE  DELTA  VELOCITY  VECTOR 


METERS/CSEC  (+7)  VT 
METERS/CSEC  (+7)  VT 
METERS/CSEC  (+7)  VT 


CUTPUTS 


NAME 


MEANING 


UNITS/SCALING/MODE 


+ MG  A + MIDDLE  GIMBAL  ANGLE 
DELVLVC  DELTA  VELOCITY  VECTOR 


IN  LV  COORD. 


REVOLUTIONS  (+0) 
METERS/CSEC  (+7) 


MGLVFLAG  INT  FLAG  - J IS  +MGA  COMPUTED,  1 IS  DELVLVC  COMP. 


DP 

VT 

BIT 


. . CALL ING  SEQUENCE  . . 

L CALL 

L 4- 1 MIDGIM 

L+2  (RETURN  - ALWAYS ) 


..  NO  SUBROUTINES  CALLEO  .. 


. . DEBRIS  - 

A , Q , L , 

. . ALARMS  - 


ERASEABLE  TEMPORARY  USAGE 
PUSH  LIST,  MP AC . 

NONE  .. 


GAP: 


ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY 


L P34-P35,  P74-P75 


P 1 16  5 

MIDDLE 

C-IMBAL 

ANGLE 

COMPUTAT I CN. 

1166 

REF 

l 

22,2000 

1167 

22,3242 

1168 

REF 

1 

1169 

22,3242 

20C00 

0 

HALFREV 

1169 

22,3243 

OCOOO 

1 

1 170 

REF 

1 

21,2000 

1 171 

21,2006 

1 172 

REF 

1 

1 176 

21,2006 

53575 

0 

GET+MGA 

11765 

21,2007 

77656 

1 

1177 

2 L , 2010 

72441 

0 

1178 

REF 

18 

LAST 

612 

21,2011 

01740 

0 

1179 

21,2012 

51136 

1 

1180 

REF 

1 

21,2013 

42017 

1 

1181 

21,2014 

43215 

0 

1182 

REF 

1 

21,2015 

05243 

1 

1183 

REF 

2 

LAST 

695 

21,2016 

05243 

1 

1184 

REF 

5 

LAST 

683 

21,2017 

02244 

1 

SETMGA 

1185 

21,2020 

43414 

1 

1186 

REF 

1 

21,2021 

02675 

1 

1 191 

21 ,2022 

53575 

0 

GET. L VC 

1192 

REF 

7 

LAST 

692 

21,2023 

C2314 

0 

1193 

21,2024 

77676 

0 

1194 

21,2025 

0C023 

0 

1195 

21,2026 

53435 

0 

1 196 

REF 

6 

LAST 

692 

21,2027 

02322 

0 

119  7 

21,2030 

0C015 

0 

1 198 

21, 2031 

53435 

0 

1199 

21,2032 

00023 

0 

1200 

21, 2033 

24007 

0 

1201 

21,2034 

0CC01 

0 

120  2 

21,2035 

76521 

0 

1203 

21,2036 

0C007 

0 

1204 

REF 

20 

LAST 

68  1 

21,2037 

03434 

1 

120  5 

21,2040 

434  14 

1 

1206 

REF 

2 

LAST 

695 

21 , 2041 

02475 

0 

R 1 20  7 

END  OF 

MIDGIM  ROUTINE  , 

20211 12-161 
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USER'S  PAGE  NO.  35  E7  S3 


SETLOC 

M IDDGIM 

BANK 
COUNT  * 

$$/M I DG 

2DEC 

1 B-l 

SETLOC 

M IDDGIM1 

BANK 

COUNT* 

i $/M I DG 

VLQAD 

UNIT 

(PL  OD)  V (+7)  TO  MPAC  , UNITIZE  UV  (+1) 

UNIT 

DOT 

S LI 

DOT  UV  WITH  Y ( ST  A BL  E MEMBER)  AND  RESCALE 

REFSMMAT  +6 

FROM  +2  TO  +1  FOR  ASIN  ROUTINE 

ARC  SIN 

BPL 

DAD 

SETMGA 

DAD 

CONVERT  -MGA  TO  + MG  A BY 

HALFREV 

ADDING  ONE  REVOLUTION 

STORE 

HALFREV 
+ MGA 

CLR 

RVQ 

CLEAR  MGLVFLAG  TO  INDICATE  + MG  A CALC 

MGLVF  LAG 

AND  EXIT 

VLOAD 

UNIT 

(PL  6 U ) R (+29)  IN  MPAC,  UNITIZE  UR 

VCOMP 

RINIT 

IJ  C — R ) 

STORE 

18D 

U ( -R ) TO  18D 

VXV 

UNIT 

U ( -R ) * V EQ  V*U(R),  U ( V*R ) 

STORE 

VINIT 
1 2D 

U(V*R)  TO  l 2D 

VXV 

UNIT 

U(V*R)*U(-R) , U( ! V*P ) * (-R ) ) 

STOVL 

18D 

6D 

TRANSFORMATION  MATRIX  IS  IN  6D  (+1) 

OD 

DELTA  V (+7)  IN  00 

MX  V 

VSL1 

CONVERT  FROM  INER  COOR  TO  LV  COOR  (+8) 

60 

AND  SCALE  +7  IN  MPAC 

STORE 

DELVLVC 

STORE  IN  DELVLVC  (+7) 

SET 

RVQ 

SET  MGLVFLAG  TO  INDICATE  LVC  CALC 

MGLVF  LAG 

AND  FX IT 

GAP:  ASSEMBLE  REVISION  210  CE  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L P34-P35,  P 74— P 75 

P1208 


12082 

10,2000 

BANK 

10 

12084 

REF 

1 

10,2000 

SET  LOG 

SLCTMU 

12086 

10,2000 

BANK 

12088 

REF 

1 

COUNT* 

$ $/M I DG 

120  9 

10,2000 

77160 

0 

SELECTMU 

AXC  , 1 

A XT , 2 

1210 

10,2001 

00002 

0 

2D 

121  l 

10,2002 

OCCOO 

1 

OD 

1212 

10,2003 

77614 

1 

BOFF 

1213 

REF 

4 

LAST 

680 

10,2004 

04343 

1 

CMOONFLG 

1214 

REF 

1 

10,2005 

20011 

0 

SETMUER 

1215 

10,2006 

77  160 

0 

AXC  , 1 

A XT,  2 

1216 

10,2007 

00012 

1 

1 OD 

1217 

10,2010 

00002 

0 

2D 

1218 

10,2011 

66143 

1 

SETMUER 

DLOAD* 

SXA,  1 

1219 

REF 

2 

LAST 

693 

10,2012 

1CC11 

0 

MUTABLE  +4 

1220 

REF 

9 

LAST 

693 

10,2013 

02776 

0 

RTX1 

1221 

RFF 

4 

LAST 

6^1 

10,2014 

22310 

0 

STOOL* 

RTSR1/MU 

1222 

REF 

3 

LAST 

696 

10,2015 

10003 

0 

MUTABLE  -2 

1223 

10,2016 

54214 

1 

BOFF 

SR 

1224 

REF 

5 

LAST 

696 

10,2017 

04343 

1 

CMOONFLG 

1225 

REF 

1 

10,2020 

2CC22 

0 

RTRNMU 

1226 

10,2021 

20607 

1 

6D 

122  7 

REF 

4 

LAST 

654 

10,2022 

02312 

0 

RTRNMU 

STORE 

RTMU 

1228 

10,2023 

43134 

0 

SXA  ,2 

CLEAR 

1229 

REF 

7 

LAST 

693 

10,2024 

C2777 

1 

RTX2 

1230 

REF 

7 

LAST 

684 

10,2025 

01271 

1 

F INALFLG 

1234 

10,2026 

77650 

1 

GOTO 

1235 

REF 

6 

LAST 

669 

10,2027 

73516 

1 

VN 1 645 

17: 11  MAR.  19, 

1971 

KISSING 

.067  PAGE 

USER'S 

PAGE 

NO.  36 

F 7 S3 

1 


1 


696 


17: 11  MAR 


067 


PAGE 


697 


GAP:  ASSEMBLE  REVISION  210  CF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L 

P34-P35 , P74-P75 

P 1 23  6 

R 1 23  7 
R 123  8 

PFRIAPO  

MOD  NO  -1  LOG  SECTION  - P34-P35,  P74-P75 

MOD  BY  WHITE. P DATE  18JAN68 

R 1 23  9 

FUNCTIONAL  DESCRIPTION 

R1240 
R 124 1 
R1242 

THIS  SUBROUTINE  COMPUTES  TEE  TWO  BODY  APOCENTER  AND  PERICENTER 
ALTITUDES  GIVEN  THE  POSITICN  AND  VELOCITY  VECTORS  FOR  A POINT  ON 
TEE  TRAJECTORY  AND  THE  PRIMARY  BODY. 

R1243 

SETRAD  IS  CALLED  TC  DETERMINE  THE  RADIUS  OF  THE 

PRIMARY  BODY. 

R1244 
R 1 24  5 

APSIDES  IS  CALLED  TO  SOLVE  FOR  THE  TWO  BODY  RADII 
PFRICENTER  AND  THE  ECCENTRICITY  OF  THE  TRAJECTORY 

OF  APOCENTER  AND 

R 1 246 

CALLING  SEQUENCE 

R 1 24  7 
R 1 24  8 
R 1 249 

L CALL 

L+l  PER  I APO 

L+2  (RETURN  - ALWAYS) 

R 1 25  0 

INPUT 

. 19,1971  KISSING 
USER'S  PAGE  NO.  37 


E7  S3 


R 125  1 
R 1252 

( 1 

) RVEC 

POSITION  VECTOR  IN  METERS 

SCALE  FACTOR  - EARTH  +29,  MOON  +27 

R1253 
R 1 254 

( 2 

) V VEC 

VELOCITY  VECTOR  IN  MET ERS /CENT  I SECOND 
SCALE  FACTOR  - EARTH  +7,  MOON  +5 

R 1 25  5 
R 1 25  6 

R 125  7 

(3 

OUTPUT 

) XI 

PRIMARY  BODY  INDICATOR 
EARTH  -2,  MCGN  -10 

R 125  8 
R 1 2 5 9 

( 1 

I 2D 

APOCENTER  RADIUS  IN  METERS 

SCALE  FACTOR  - EARTH  +29,  MOON  +27 

R 1 260 
R1261 

( 2 

) 4D 

APOCENTER  ALTITUDE  IN  METERS 
SCALE  FACTOR  - EARTH  +29,  MOON  P27 

R 126  2 
R 1 26  3 

(3 

) 6D 

PERICENTER  RADIUS  IN  METERS 
SCALE  FACTOR  - EARTH  +29,  MOON  +27 

R l 264 
R 1 26  5 

14 

) 80 

PERICENTER  ALTITUDE  IN  METERS 
SCALE  FACTOR  - EARTH  +29,  MOON  +27 

R 1 26  6 
R 126  7 

( 5 

1 ECC 

ECCENTRICITY  OF  CONIC  TRAJECTORY 
SCALE  FACTOR  - +3 

R 126  8 
R 1 26  9 

(6 

) X XX ALT 

RADIUS  OF  THE  PRIMARY  BODY  IN  METERS 
SCALE  FACTOR  - EARTH  +29,  MUON  +27 

R 1 27  0 

(7 

) PUSHLOC 

EQUALS  10D 

R 127  1 

SUBROUTI 

NES  USED 

R 1 27  2 SETRAD 


GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L P34-P35,  P74-P75 


R 1 27  3 

APSIDES 

1274 

REE 

1 

23,2000 

SETLOC 

APDPERI 

1275 

23,2335 

BANK 

1276 

REF 

1 

COUNT* 

Tt/PERAP 

1277 

23,2335 

00302 

0 

R P AD 

2DEC 

6373338 

1277 

23,2336 

17755 

0 

A 1 27  8 

1279 

23,2337 

53754 

l 

PERI APOl 

LX  A , 2 

VSR* 

1280 

REF 

8 

LAST 

696 

23,2340 

02777 

1 

RTX2 

128  1 

23,2341 

57176 

0 

0,2 

1282 

REF 

9 

LAST 

691 

23,2342 

26744 

1 

STOVL 

V VEC 

1283 

23,2343 

53750 

0 

LX  A , 1 

VSR* 

1284 

REF 

10 

LAST 

696 

23,2344 

02776 

0 

RTX1 

1235 

23,2345 

57176 

0 

0,2 

1236 

REF 

7 

LAST 

666 

23, 2346 

02655 

0 

STORE 

R VEC 

1287 

23,2347 

45020 

1 

PERIAPO 

STO 

CALL 

1288 

REF 

16 

LAST 

693 

23,2350 

03463 

0 

NORMEX 

1289 

REF 

l 

23,2351 

46365 

0 

SETRAD 

1290 

1-  F 

1 

23,2352 

37671 

0 

ST CALL 

XXXALT 

129  1 

REF 

1 

23,2353 

25704 

0 

APSIDES 

1292 

23,2354 

41401 

1 

SET  PD 

PUSH 

1293 

23,2355 

00003 

1 

20 

1294 

23, 2356 

65225 

1 

DSU 

POOL 

1295 

REF 

2 

LAST 

698 

23,2357 

03671 

l 

XXXALT 

1296 

23,2360 

00C01 

0 

OD 

1297 

23,2361 

45206 

1 

PUSH 

DSU 

1298 

REF 

3 

LAST 

698 

23,2362 

03671 

1 

XXXALT 

1299 

23,2363 

52C06 

0 

PUSH 

GOTO 

1300 

REF 

1 7 

LAST 

698 

23,2364 

03463 

0 

NORMEX 

17:11  MAR.  19,1971  KISSING 


067  PAGE  698 


USER'S  PAGE  NO.  38 


29 


STANDARD  RADIUS  OF  PAD  3 7- 
= 20  909  901.57  FT 


2D  = APOCENTER  RADIUS  B29 
AD  = APOGEE  ALTITUDE  R29 

6D  = PERICENTFR  RADIUS  B29 


E 7 S3 


OR  B27 
OR  B27 

OR  B2  7 


8D 


PERIGEE  ALTITUDE 


B 29  OR  B27 


GAP:  ASSEMBLF  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L P34-P35,  P74-P75 

P1301  SfcTRAD 


1302 

23,2365 

41545 

0 

SETR  AC 

DLOAD 

PUSH 

1303 

REF 

1 

23,2366 

06336 

1 

R P AD 

1304 

23,2367 

63130 

0 

SX A , 1 

I NCR, 2 

1305 

REF 

10 

LAST 

692 

23,2370 

00047 

1 

X 2 

1306 

23,2371 

00C02 

0 

2D 

1307 

23,2372 

46135 

1 

SLOAD 

BHIZ 

1308 

REF 

11 

LAST 

699 

23,2373 

00050 

1 

X2 

1309 

REF 

1 

23,2374 

46400 

1 

SETRADX 

1310 

23,2375 

51575 

1 

VLO  AD 

ABVAL 

131  1 

REF 

4 

LAST 

212 

23,2376 

02021 

0 

RLS 

1312 

23,2377 

77725 

1 

POOL 

1313 

23,2400 

43545 

l 

SETR ADX 

DLOAD 

RVQ 

06  7 


PAGE 


699 


17:11  MAR . 19 
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,1971  KISSING  . 

S PAGE  NO.  39  E7  S3 


GAP:  ASSEMBLF  REVISION  210  GF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L 

P3A- 

P35 , 

P7A-I 

375 

P 1 31  A 

PRECSET 

1315 

2 3 , 2 AO  1 

77620 

0 

PRECSET 

STQ 

1316 

REF 

18 

LAST 

698 

23 , 2 A02 

03A63 

0 

NORMEX 

131  7 

REE 

2 

LAST 

628 

23.2A03 

3757A 

0 

STCALI 

TDEC2 

1318 

REF 

A 

LAST 

622 

23.2A0A 

27115 

1 

LEMPREC 

1319 

23 , 2 AO 5 

7762A 

1 

CALL 

1320 

REF 

1 

23.2A06 

A6A17 

1 

LEMSTORE 

132  1 

23, 2 AO  7 

777A5 

1 

DLOAD 

1322 

REF 

3 

LAST 

700 

23 , 2 A 10 

0357A 

1 

TDEC2 

1323 

REF 

29 

LAST 

692 

23 , 2 A 1 1 

3A0A1 

0 

STC ALL 

TDEC  1 

1 32  A 

REE 

3 

LAST 

219 

23 , 2 A 12 

27  101 

1 

CSMPREC 

1325 

23 , 2 Al 3 

7762A 

1 

CALL 

132  6 

REF 

1 

23,2 AlA 

A6A27 

1 

CSMSTORE 

1327 

23 ,2A15 

77650 

1 

GOTO 

132  8 

REF 

19 

LAST 

70  0 

23, 2A16 

03A63 

0 

NORMEX 

1329 

23 ,2  Al 7 

A3  175 

0 

LEMSTORE 

VLOAD 

BOFF 

1330 

REF 

15 

LAST 

680 

23.2A20 

00001 

0 

R ATT 

133  1 

REF 

3 

LAST 

635 

23, 2A21 

01352 

1 

AVFLAG 

1332 

RFF 

A 

LAST 

673 

23.2A22 

A6A33 

1 

PASSIVE 

1333 

REF 

20 

LAST 

600 

23 , 2A23 

27536 

1 

ACTI VE 

STOVL 

RACT3 

1 33  A 

REF 

11 

LAST 

67  6 

23 , 2 A2A 

00007 

0 

VATT 

1335 

REF 

13 

L AST 

678 

23.2A25 

035AA 

l 

STORE 

VACT3 

1336 

23, 2A26 

77616 

0 

RVQ 

1337 

23,2 A27 

A3  1 75 

0 

CSMSTORE 

VLOAD 

BOFF 

1338 

REF 

16 

LAST 

700 

23.2A30 

0C001 

0 

R ATT 

133  9 

REF 

A 

LAST 

700 

23, 2A31 

C 1 352 

1 

AVFLAG 

13A0 

REF 

A 

LAST 

673 

23 , 2 A32 

A6A23 

0 

ACTIVE 

13A1 

REF 

11 

LAST 

676 

23, 2A33 

27552 

0 

PASS  I VE 

STOVL 

RPASS3 

13A2 

REF 

12 

LAST 

700 

23 , 2 A3 A 

0C007 

0 

VATT 

l 3A3 

REF 

8 

LAST 

6 76 

23.2A35 

03560 

l 

STORE 

VPASS3 

13AA 

2 3 , 2 A3  6 

77616 

0 

RVQ 
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GAP:  ASSEMBLF  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 


L 

P34-P35, 

P 74- 

P 75 

P 1 345 

VECSHIFT 

1346 

23,2437 

53754 

1 

VECSHIFT  LXA.2 

VSR* 

134  7 

REF  9 

LAST 

698 

23,2440 

02777 

1 

RTX2 

1348 

23,2441 

57176 

0 

0,2 

1349 

23,2442 

63350 

1 

LXA  , 1 

PDVL 

1350 

REF  11 

LAST 

698 

23,2443 

02776 

0 

RTX1 

135  1 

23,2444 

63257 

1 

VSR* 

PDVL 

1352 

23,2445 

57176 

0 

0,2 

1353 

23,2446 

77616 

0 

rvq 
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L 

P34-P35, 

P74-P75 

P 1 354 

SH  I FT R 1 

1355 

23,2447 

53754 

1 SHIFTR1 

1356 

REF  10 

LAST  701 

23,2450 

02777 

1 

1357 

23,2451 

57576 

1 

1358 

23,2452 

77616 

0 
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LXA.2  SL* 
RTX2 
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RVO 


702 
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L P34-P35,  P74-P75 


PI  359  PROGRAM  DESCRIPTION 

R1360  SUBROUTINE  NAME  R36  OUT-OF-PLANE  RENDEZVOUS  ROUTINE 

R 136 1 MOD  NO.  0 DATE  22  DECEMBER  67 

R1362  MOD  BY  N.M. NEVILLE  LOG  SECTION  EXTENDED  VERBS 

R 1 36 3 FUNCTIONAL  DESCRIPTION 

R 1364  TO  DISPLAY  AT  ASTRONAUT  REQUEST  LGC  CALCULATED  RENDEZVOUS 

R 1365  GUT-OF-PLANE  PARAMETERS  (Y  , YDCT  , PSD.  IREQUESTED  BY  D SKY  ) . 

R 1 366  CALLING  SEQUENCE 

R 1 36 7 ASTRONAUT  REQUEST  THROUGH  DSKY  V 90  E 

R 1 36 8 SUBROUTINES  CALLED 

R 1 369  EXDSPRET 

R 1 370  GOMARKF 

R1371  CSMPREC. 

R 1 37  2 LEMPREC 

RL373  SGNAGREE 
R 1 374  LOADTIME 

R1375  NORMAL  EXIT  MODES 


R 1376 

R 1 37  7 

R 1 378 

R 1 379 

R1380 

R 1 38  l 
R 138  2 

R1383 

R 1384 

R 138  5 

R 1 386 

R 1 38  7 

1388 

1369 

1390 


ASTRONAUT  REQUEST  THROUGH  DSKY  TO  TERMINATE  PROGRAM  V 34  E 

ALARM  OR  ABORT  EXIT  MODES 

NONE 

OUTPUT 

DECIMAL  DISPLAY  OF  TIME  , Y , YDCT  AND  PSI 

DISPLAYED  VALUES  Y , YOOT  , AND  PSI  , ARE  STORED  IN  ERASABLE 
REGISTERS  RANGE  , RRATE  AND  RTHETA  RESPECTIVELY. 

ERASABLE  INITIALIZATION  REQUIRED 

CSM  AND  LEM  STATE  VECTORS 

DEBR I S 

CENTRALS  A,Q,L 

OTHER  THOSE  USED  BY  THE  ABOVE  LISTED  SUBROUTINES 


REF 


1 


20,2115 

04,2000 

04,2677 


BANK  20 
SFTLOC  R36LM 
BANK 
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P 34- 

P 35  » 

P 74—  1 

P 75 

1391 

REF 

18 

LAST 

676 

E7 

1392 

REF 

l 

1393 

04 

1394 

REF 

19 

LAST 

704 

04 

1395 

REF 

6 

LAST 

317 

04 

1396 

REF 

1 

04 

139  7 

REF 

175 

LAST 

686 

04 

1398 

REF 

8 

LAST 

290 

04 

1399 

REF 

35 

LAST 

615 

C4 

140  0 

04 

140  1 

C4 

1402 

REF 

83 

LAST 

684 

04 

140  3 

04 

1404 

REF 

7 

LAST 

704 

04 

140  5 

REF 

l 

C4 

1409 

REF 

30 

LAS! 

700 

C4 

1410 

REF 

1 

04 

141  1 

04 

1412 

REF 

13 

LAST 

700 

04 

1413 

REF 

1 7 

LAST 

700 

04 

1414 

REF 

2 

LAST 

122 

04 

1415 

04 

1416 

04 

141  7 

04 

1410 

REF 

1 

04 

1419 

REF 

9 

LAST 

660 

04 

1420 

REF 

31 

LAST 

70  4 

C4 

142  1 

REF 

1 

04 

1422 

04 

1423 

REF 

14 

LAST 

704 

04 

142  4 

REF 

18 

LAST 

704 

04 

1428 

04 

1429 

04 

1430 

REF 

3 

LAST 

704 

04, 

143  1 

04 

1432 

REF 

2 

LAST 

704 

04, 

1433 

REF 

9 

LAST 

329 

04, 

1434 

04, 

1435 

04 

1436 

REF 

3 

LAST 

704 

04, 

1437 

REF 

3 

LAST 

329 

04 

1438 

04, 

1439 

04, 

1440 

04 

1441 

04 

1442 

04 

144  3 

04, 

1443C5 

04, 

1444 

04, 

EBANK= 

T IG 

COUNT  * 

$ $/R3  6 

0 0006 

l 

R 36 

EXTEND 

3 1442 

1 

DC  A 

T IG 

53' 051 

0 

DXCH 

DSPTEMX 

3 3012 

1 

CAF 

V06N16N 

0 4607 

1 

TC 

BANKCALL 

20323 

1 

CADR 

GOMARKF 

L 5474 

1 

TCF 

ENDEXT 

1 2710 

L 

TC  F 

+ 2 

1 2702 

1 

TCF 

-5 

0 6060 

1 

TC 

INTPRET 

53145 

1 

DLDAD 

BZE 

0 1C  5 1 

1 

DSPTEMX 

11007 

0 

GETNOW 

34041 

0 

R 361 N T 

STC ALL 

TDEC1 

27101 

1 

OTHPREC 

63375 

0 

VLOAD 

PDVL 

00007 

0 

VATT 

00001 

0 

R ATT 

02200 

1 

STORE 

RPASS36 

63256 

0 

UNIT 

PDVL 

53435 

0 

VXV 

UNIT 

77626 

0 

STADR 

61571 

0 

STODL 

UNP36 

00015 

0 

TAT 

34041 

0 

STC  AL  L 

TDEC1 

27115 

1 

THISPREC 

63375 

0 

VLOAO 

PDVL 

00007 

0 

VATT 

0C001 

0 

R ATT 

4 1406 

0 

PUSH 

PUSH 

63245 

1 

B VS  U 

PDVL 

02200 

l 

RPASS36 

72441 

0 

DOT 

S LI 

02206 

1 

UNP36 

26172 

1 

STOVL 

Y LEM 

00001 

0 

000 

72441 

0 

DOT 

SL1 

02206 

1 

UNP36 

26  174 

1 

STOVL 

Y DOT  LEM 

00007 

0 

06D 

4 1456 

0 

UNIT 

PUSH 

47235 

0 

VXV 

VXV 

00001 

0 

OOD 

00023 

0 

18D 

53552 

0 

VSL2 

UNIT 

77656 

1 

uni  r 

24001 

0 

STOVL 

OOD 

1441 

2671 

,2700 

,2701 

,2702 

,2703 

2704 

,2705 

,2  706 

,2707 

2710 

,2711 

,2  712 

,2713 

,2  714 

,2715 

,2716 

2 717 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 

2730 

2 731 

2732 

2733 

2734 

2735 

2736 

2737 

2740 

2741 

2 742 

2743 

2744 

2 745 

2 746 

2747 

2750 

2751 

2 752 

2753 

2754 

2 755 
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T FRMINATE 
PROCEFD 

RECYCLE  FOR  ASTRONAUT  INPUT  TIME 


ASTOR-LOADED  ZERO,  GET  PPFS  TIME 


P 

P 

U 


VELOCITY  VECTOR 

V 

000 

POSITION  VECTOR 

P, 

IN 

06D 

AND  l 2D 

A 

- 

- 

LINF  OF  SIGHT  VECTOR 

R - 

R 

1 2D 

P 

A 

A 


A - 

U = UNIT!  R ) 18D 

RA  A 

(U  XV  )XU  =U 
RA  A RA  A 
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1445 

04,2756 

0CC23 

0 

1446 

04,2757 

74241 

0 

144  7 

04,2  760 

00015 

0 

144  8 

04,2761 

77752 

1 

1449 

04,2762 

53445 

1 

1 449  C 5 

04,2763 

77656 

1 

1450 

04,2764 

50206 

0 

1451 

04,2765 

00001 

0 

1452 

04, 2766 

65552 

0 

1453 

REF 

2 

LAST 

329 

04,2767 

26176 

0 

1454 

04,2770 

50235 

0 

1455 

04,2771 

00001 

0 

1456 

04,2772 

71244 

0 

1457 

REF 

1 

04,2773 

1 1000 

1 

1458 

REF 

2 

LAST 

38 

04,2774 

24020 

0 

1459 

04,2775 

77625 

0 

146  0 

REF 

3 

LAST 

70  5 

04,2776 

02176 

0 

146  1 

REF 

4 

LAST 

705 

04,2777 

02176 

0 

1466 

04,3000 

77776 

1 

R36TAG2 

1467 

REF 

1 

04,3001 

3 3 C 1 3 

0 

1468 

REF 

176 

LAST 

704 

04,3002 

0 4607 

1 

1469 

REF 

9 

LAST 

704 

04,3003 

20323 

1 

1470 

REF 

36 

LAST 

7i  4 

04,3004 

1 5474 

1 

1471 

REF 

37 

LAST 

705 

04, 3005 

1 5474 

1 

1472 

REF 

2 

LAST 

296 

04,3006 

1 2677 

1 

1473 

04,3007 

52034 

1 

GETNOW 

1474 

REF 

16 

LAST 

669 

04,3010 

21603 

1 

1475 

REF 

1 

04,3011 

1 C 7 1 4 

1 

148  2 

04,3012 

01420 

0 

V06N16N 

1483 

04,3013 

01532 

1 

VC6N90N 

SA  2021112-161 
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UNIT 

UNIT 
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PUSH 

DOT 

LOS  PROJECTED  I 

NTO  HORIZONTAL 

OOD 

PLANE 

SL1 

ARCCOS 

- 

- 

STOVL 

PH  I LEM 

VXV 

DOT 

A 

L 

OOD 

BP  L 

DLOAD 

R36TAG2 

LODPMAX 

OSU 

PHILEM 

STORE 

EXIT 

PHILEM 

CAF 

V06N90N 

DISPLAY  Y , YDOT  , AND  PSI 

TC 

8 ANKCALL 

CADR 

GOMARKF 

TCF 

ENDEXT 

TERMI NATE 

TCF 

ENDEXT 

PROCEED  , FND  OF 

PROGRAM 

TCF 

R 36 

RECYCLE,  TIG  OR 

ASTRO-OPT ION 

RTB 

GOTO 

ASTRO-SELECTED  PRESENT  TIME 

LOADTIME 

R36INT 

VN 

00616 

VN 

00690 
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L R31 

POOO  1 


000  2 

AO,  3 7A1 

BANK 

AO 

0003 

REF 

1 

AO, 2000 

SETLOC 

R31L0C 

000  A 

A0.37A1 

BANK 

0005 

RFF 

l 

COUNT  * 

$ S/R3 1 

0006 

REF 

1 

A0.37A1 

3 

5006 

l 

R31CALL 

CAF 

PR  103 

000  7 

REF 

2A 

LAST 

612 

AO , 3 7A2 

0 

5076 

0 

TC 

F INDVAC 

0008 

REF 

23 

LAST 

683 

E7, IA70 

EBANK= 

SUBEXIT 

0009 

REF 

1 

A0.37A3 

03  113 

1 

2C  ADR 

V83C ALL 

0009 

REF 

l 

AO,  3 7A A 

76067 

1 

0010 

REF 

10 

LAST 

579 

A0.37A5 

0 

5223 

1 

DSPOELAY 

TC 

F IXDELAY 

001  1 

AO, 3 7A6 

OC  IAA 

0 

DEC 

100 

0012 

REF 

9 

LAST 

50  3 

AO, 3 7A7 

3 

1 0A3 

1 

CA 

EXTVBACT 

0013 

REF 

23 

LAST 

566 

AO, 3750 

7 

A 73  1 

1 

MASK 

B I T 1 2 

001  A 

AO, 3751 

C 

0006 

1 

EXTEND 

0015 

REF 

1 

AO, 3752 

1 

37A5 

0 

BZF 

DSPOELAY 

0016 

REF 

5 

LAST 

503 

AO, 3753 

3 

5010 

0 

CAF 

PR  105 

001  7 

REF 

1A 

LAST 

522 

AO , 3 75 A 

0 

5063 

1 

TC 

NOVAC 

0018 

REF 

3 

LAST 

669 

E7 , 1 6 1 1 

EBANK= 

TSTRT 

0019 

REF 

1 

AO, 3755 

03761 

L 

2CADR 

D ISPN5X 

0019 

REF 

1 

AO, 3 756 

60107 

l 

0020 

REF 

29 

LAST 

612 

AO, 3 75 7 

1 

5263 

1 

TCF 

TASKOVER 

00205 

AO, 3 760 

0AC66 

0 

V16N5A 

VN 

1 65A 

002  1 

REF 

1 

AO, 3 761 

3 

3760 

0 

0ISPN5X 

CAF 

V16N5A 

0022 

REF 

l 7 7 

LAST 

705 

AO, 3762 

0 

A607 

1 

TC 

BANKCALL 

0023 

REF 

10 

LAST 

705 

AO, 3763 

20323 

1 

CADR 

GOMARKF 

002  A 

REF 

6 

LAST 

50  A 

AO, 376A 

0 

5565 

1 

TC 

B50FF 

0025 

REF 

7 

LAST 

706 

AO, 3765 

0 

5565 

1 

TC 

B50FF 

0026 

REF 

2 

LAST 

70  6 

AO, 3766 

1 

3761 

0 

TCF 

DISPN5X 

00262 

37,3113 

BANK 

37 

002  6 A 

REF 

1 

37,2000 

SETLOC 

R31 

00266 

37,3113 

BANK 

002  7 

REF 

7 

LAST 

296 

37,3113 

A 

0103 

1 

V83CALL 

CS 

F LAGWRD7 

0028 

REF 

A 

LAST 

278 

37.3UA 

7 

A 7 AO 

1 

MASK 

AVEGFBI T 

0029 

37,3115 

0 

0006 

1 

EXTENO 

0030 

REF 

1 

37,3116 

l 

3371 

0 

BZF 

MUNG? 

003  1 

REF 

8 

LAST 

555 

37,3117 

A 

010A 

0 

CS 

FLAGWRD8 

0032 

REF 

6 

LAST 

555 

37,3120 

7 

A735 

0 

MASK 

SURF  F B I T 

0033 

37,3121 

0 

0006 

1 

EXTEND 

003  A 

REF 

1 

37,3122 

1 

3375 

1 

BZF 

ONFBASE 

0035 

REF 

8A 

LAST 

70A 

37, 3123 

0 

6060 

1 

TC 

INTPRET 

0036 

37, 312A 

7763A 

0 

RT9 

17:11  MAR.  19*1971 


KISSING  .067  PAGE  706 


USER'S  PAGE  NO.  1 EO  S3 


T F ST  AVERAGE  G FLAG 
ON  - TEST  MUNFLAG 


ON  SURFACE  - BYPASS  LEMPREC 


EXTRAPOLATE  ROTH  STATE  VECTORS 


GAP: 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L 

R3  1 

003  7 

REF 

17 

LAST 

705 

37,3125 

21603 

' L 

LOADT  IME 

0038 

REF 

32 

LAST 

704 

37,3126 

34041 

0 

STCALL 

TDEC1 

0039 

KEF 

5 

LAST 

700 

37,3127 

27115 

1 

LEMPREC 

0040 

37,3130 

77775 

1 

VLOAD 

0041 

REF 

6 

LAST 

692 

37,3131 

0C017 

1 

R ATT  1 

0042 

REF 

1 

37,3132 

26161 

0 

STOVL 

BASETHP 

0043 

REF 

9 

LAST 

692 

37,3133 

00025 

0 

VATT1 

0044 

REF 

1 

37, 3134 

16104 

0 

STGDL 

BASETHV 

0045 

REF 

10 

LAST 

704 

37,3135 

00  015 

0 

TAT 

0046 

REF 

1 

37,3136 

02113 

0 

DOCMBASE 

STORE 

BASFTIME 

004  7 

REF 

33 

LAST 

707 

37,3137 

34041 

0 

STCALL 

T DEC  1 

004  8 

REF 

4 

LAST 

70  0 

37,3  140 

27101 

1 

CSMPREC 

0049 

37,3141 

77775 

1 

VLOAD 

0050 

REF 

7 

LAST 

707 

37,3142 

0 CO  1 7 

1 

R ATT  1 

005  1 

REF 

1 

37,3143 

26131 

0 

STOVL 

BASEOTP 

0052 

REF 

10 

LAST 

707 

37,3144 

00025 

0 

V ATT  1 

0053 

REF 

l 

37,3145 

02172 

1 

STORE 

BASEOTV 

0054 

37,3146 

77776 

1 

EXIT 

0055 

REF 

8 

LAST 

706 

37,3147 

4 C 103 

1 

REV83 

cs 

FLAGWRD7 

0056 

REF 

5 

LAST 

706 

37,3150 

7 4740 

1 

MASK 

AVEGFBIT 

0057 

37,3151 

0 0006 

1 

EXTEND 

005  8 

REF 

1 

37,3152 

1 3320 

1 

BZF 

GETRVN 

0059 

REF 

9 

LAST 

706 

37,3153 

4 0104 

0 

cs 

FLAGWRD8 

0060 

REF 

7 

LAST 

706 

37,3154 

7 4735 

0 

MASK 

SURFFBI T 

006  1 

37, 3155 

C 0006 

1 

EXTEND 

0062 

REF 

1 

37,3156 

1 3362 

1 

BZF 

R3 1 SURF 

0063 

REF 

85 

LAST 

706 

37,3157 

0 6060 

1 

TC 

I NTPRET 

0064 

37,3160 

77634 

0 

RTB 

0065 

REF 

18 

LAST 

707 

37,3  16  1 

21603 

1 

LOADT IME 

0066 

REF 

34 

LAST 

707 

37,3162 

34041 

0 

STCALL 

T DEC  1 

0067 

REF 

21 

LAST 

691 

37,3163 

27447 

0 

I NTSTALL 

0068 

37,3164 

43175 

0 

VLOAD 

CLEAR 

0069 

REF 

2 

LAST 

707 

37,3165 

02161 

0 

BASETHP 

0070 

REF 

7 

LAST 

692 

37,3166 

00263 

0 

MOONFLAG 

0071 

REF 

8 

LAST 

692 

37,3167 

25535 

0 

STOVL 

RCV 

0072 

REF 

2 

LAST 

707 

37,3170 

02104 

0 

BASETHV 

0073 

REF 

7 

LAST 

692 

37,3171 

15543 

1 

STODL 

VCV 

0074 

REF 

2 

LAST 

707 

37,3172 

02113 

0 

BASETIME 

0075 

37,3 173 

43014 

0 

BOF 

SET 

0076 

REF 

2 

LAST 

309 

37,3174 

04344 

0 

MOONTHIS 

0077 

37,3175 

77177 

0 

+ 2 

0078 

REF 

8 

LAST 

707 

37,3176 

00063 

1 

MOONFLAG 

0079 

37,3177 

77614 

1 

SET 

0080 

REF 

11 

LAST 

692 

37,3200 

01473 

0 

I NTYPFLG 

008  1 

REF 

11 

LAST 

692 

37,3201 

35517 

1 

STCALL 

TET 

0082 

REF 

4 

LAST 

692 

37,3202 

27  145 

L 

INTEGRVS 

0083 

3 7,3203 

77775 

1 

OTHCONIC 

VLOAD 
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R31 

0084 

REF 

19 

LAST 

7C4 

37,3204 

0085 

REF 

7 

LAST 

351 

37, 3205 

0086 

REF 

15 

LAST 

704 

37,3206 

0087 

REF 

2 

LAST 

120 

37, 3207 

0088 

REF 

22 

LAST 

707 

37,3210 

0089 

37,3211 

0090 

REF 

12 

LAST 

707 

37,3212 

0091 

REF 

1 1 

LAST 

707 

37,3213 

0092 

REF 

35 

LAST 

707 

37,3214 

0093 

37,3215 

0094 

RFF 

2 

LAST 

707 

37,32  16 

0095 

REF 

9 

LAST 

707 

37,3217 

0096 

REF 

9 

LAST 

70  7 

37,3220 

009  7 

REF 

2 

LAST 

707 

37,3221 

0098 

REF 

8 

LAST 

70  7 

37,3222 

0099 

REF 

3 

LAST 

707 

37,3223 

010C 

37,3224 

010  1 

REF 

3 

LAST 

707 

37,3225 

0102 

37,3226 

0103 

REF 

10 

LAST 

708 

37,3227 

0104 

REF 

12 

LAST 

707 

37,3230 

0105 

REF 

5 

LAST 

707 

37,3231 

0106 

37,3232 

0107 

REF 

20 

LAST 

708 

37,3233 

0108 

REF 

8 

LAST 

708 

37,3234 

0109 

37,3235 

0110 

REF 

2 

LAST 

605 

37,3236 

0111 

37,3237 

0112 

37,3240 

0113 

37,3241 

0114 

REF 

4 

LAST 

511 

37, 3242 

0115 

REF 

16 

LAST 

708 

37,3243 

0116 

37,3244 

0117 

KEF 

3 

LAST 

708 

37,3245 

0110 

37,3246 

0119 

REF 

5 

LAST 

511 

37,3247 

0120 

REF 

9 

LAST 

708 

37,3250 

012  1 

37,3251 

0122 

REF 

6 

LAST 

600 

37,3252 

0123 

37,3253 

0124 

REF 

1 

37,3254 

0125 

37,3255 

0126 

REF 

19 

LAST 

695 

37,3256 

0127 

37,3257 

0128 

37,3260 

0129 

37,3261 

0130 

37,3262 

0131 

37,3263 

0132 

37,3264 

013  3 

REF 

4 

LAST 

708 

37,3265 

C0C01 

0 

RATT 

26200 

1 

STOVL 

RONE 

00007 

0 

VATT 

36206 

0 

STCALl. 

VONE 

27447 

0 

INTSTALL 

71214 

c 

SET 

D LOAD 

01473 

0 

I NTYPFLG 

00015 

0 

TAT 

00041 

1 

□THINT 

STORE 

T DEC  1 

43175 

0 

VLOAD 

CLEAR 

02131 

0 

BAS EOT P 

00263 

0 

MOONFLAG 

25535 

0 

STOVL 

RCV 

02172 

1 

BASEOTV 

15543 

1 

STODL 

VCV 

02 1 13 

0 

BASETIME 

43C14 

0 

BOF 

SET 

04  344 

0 

MOONTHI S 

77230 

0 

+ 2 

C C 063 

1 

MOONFLAG 

35517 

1 

STCALL 

T ET 

27  145 

1 

I NTEGRVS 

52375 

1 

COMPDISP 

VLOAD 

VSU 

00001 

0 

RATT 

C2200 

1 

RONE 

65234 

1 

RTB 

POOL 

21722 

0 

NORMUNX 1 

00045 

0 

360 

77657 

0 

SL* 

20201 

0 

0 , 1 

26214 

1 

STOVL 

RANGE 

0000  7 

0 

VATT 

5C251 

1 

VSU 

DOT 

02206 

1 

VONE 

77752 

1 

SL  1 

26216 

0 

STOVL 

RRATE 

02200 

1 

RONE 

63256 

0 

UNIT 

PDVL 

06477 

0 

UNITZ 

77624 

1 

CALL 

47653 

1 

CDU*NBSM 

41505 

1 

VXM 

PUSH 

01732 

0 

R EFSMMAT 

72431 

I 

VPROJ 

VSL2 

00C01 

0 

OD 

53445 

1 

BVSU 

UNIT 

00C07 

0 

60 

47315 

0 

PDVL 

VXV 

00C01 

0 

OD 

02206 

l 

VONE 

17:11  MAR.  19,1971 
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GET  SET  FOR  CONIC  EXT R AP . , OTHE R . 


UNIT! RANGE)  TO  PD  0-5 
RESCALE  AFTER  NORMUNIT 
SCALED  2 I 2 9 ) M 
( VCM-  VLM)  .UNIT! LOS) , PD=0 
SCALED  2I71M/CS 

UNIT(R)  TO  PD  0-5 

UNIT  (Z>/4  TO  PD  6-11 

UNIT! P ) = UN I T ( UZ  - I UZ ) PROJ ( UR ) ) 

UNIT! P)  TO  PD  12-17 
UNITIRL) 


GAP: 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY 


L R31 


0134 

37,3266 

5C235 

0 

0135 

37,3267 

00001 

0 

0136 

37,3270 

00C15 

0 

0137 

37,3271 

77715 

1 

0138 

37,3272 

75241 

1 

0139 

37,3273 

00007 

0 

0140 

37,3274 

00015 

0 

0141 

3 7,3275 

65512 

1 

0142 

REF 

3 

LAST 

51  1 

37,3276 

26220 

0 

0143 

37,3277 

OCOOl 

0 

0144 

37,3300 

51041 

0 

0145 

37,3301 

0C007 

0 

0146 

37,3302 

77307 

0 

0147 

37,3303 

45  345 

1 

014  8 

REF 

9 

LAST 

678 

37, 3304 

06513 

0 

0149 

REF 

4 

LAST 

709 

37,3305 

02220 

0 

0150 

REF 

5 

LAST 

709 

37,3306 

02220 

0 

015  l 

37,3307 

77776 

1 

0152 

REF 

30 

LAST 

619 

37,3310 

3 4740 

0 

0153 

REF 

10 

LAST 

706 

37,3311 

7 1043 

0 

0154 

37,3312 

0 0006 

1 

0155 

RFF 

38 

LAST 

705 

37,3313 

1 5474 

1 

0156 

REF 

1 1 

LAST 

709 

37, 33  14 

4 1043 

0 

0157 

REF 

24 

LAST 

706 

37,3315 

7 4 731 

1 

0158 

REF 

12 

LAST 

709 

37,3316 

27' 043 

0 

0159 

REF 

1 

37,3317 

1 3147 

1 

0160 

REF 

4 

LAST 

550 

37,3320 

3 7 73  1 

0 GETRVN 

0161 

REF 

10 

LAST 

512 

37, 3321 

0 5137 

1 

0162 

REF 

86 

LAST 

707 

3 7,  3322 

0 6060 

1 

0163 

37,3323 

40375 

1 

0164 

REF 

5 

LAST 

332 

37,3324 

C 1 220 

0 

0165 

37,3325 

00001 

0 

016  6 

REF 

10 

LAST 

708 

37,3326 

26200 

1 

0167 

REF 

5 

LAST 

332 

37,3327 

01226 

0 

0168 

REF 

5 

LAST 

708 

37,3330 

26206 

1 

0169 

REF 

1 

37,333  1 

01724 

1 

0170 

37,3332 

65315 

0 

0171 

REF 

1 

37, 3333 

01716 

0 

0172 

REF 

4 

LAST 

348 

37,3334 

01234 

0 

0173 

37,3335 

77776 

1 

0174 

REF 

2 

LAST 

706 

37,3336 

3 5C06 

1 

0175 

REF 

11 

LAST 

709 

37,3337 

0 5137 

1 

0176 

REF 

87 

LAST 

709 

37,3340 

0 6060 

1 

0177 

3 7, 3341 

772  14 

0 

0178 

REF 

2 

LAST 

240 

37,3342 

03347 

1 

0179 

REF 

1 

37,3343 

77355 

1 
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vxv 

DOT 

(UR  * Ml  )*UR  . U ( P > 

PDVL 

OD 
1 2D 

SIGN  TO  12-13  , LOAD  U(P) 

DOT 

SIGN 

SL2 

6D 
1 2D 
ACOS 

ARCCOS(UP.UZ( SIGN ) ) 

STOVL 

RTHETA 

DOT 

OD 

8PL 

IF  UR.UZ  NEG, 

60 

RTHETA  = 1 - RTHETA 

DLOAD 

+ 5 
DSU 

STORE 

DPPOSMAX 

RTHETA 

RTHETA 

EXIT 

CA 

8 IT5 

MASK 

E XTVBACT 

EXTFND 

IF  ANSWERED, 

BZF 

ENDEXT 

T ERMINATF 

CS 

E XT VB AC  T 

MASK 

BIT12 

ADS 

EXTV8ACT 

SET  BIT  12 

TCF 

REV83 

AND  START  AGAIN. 

CA 

PR  1022 

INHIBIT  SERVICER 

TC 

PRIOCHNG 

TC 

I NTPRET 

VLUAD 

SETPD 

RN 

LM  STATE  VECTOR  IN  RN , VN 

STOVL 

U 

RONE 

STOVL 

VN 

VONE 

LOAD  R(CSM) ,V(CSM)  IN  CASE  MUNFLAG  SET 

V (CSM) 

(TO  INSURE  TIME  C OM P A T AB I L I TY ) 

PDVL 

PDDL 

EXIT 

CA 

R (CSM) 
PIPTIME 

PRI03 

TC 

PRIOCHNG 

TC 

I NTPRET 

BOFF 

V LOAD 

MUNFLAG 

GETRVN2 

IF  MUNFLAG  RESET,  DO  CM  DELTA  PRECISIO! 
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R3  1 

0180 

018  1 

REF 

20 

0182 

0183 

0184 

REF 

21 

0185 

0106 

0187 

0188 

REF 

1 

0189 

0190 

REF 

23 

019  1 
0192 

KEF 

13 

0193 

REF 

l 

0194 

REF 

88 

0195 

0196 

REF 

19 

019  7 

REF 

36 

0198 

REF 

6 

0199 

0200 

REF 

1 

0201 

REF 

2 

0202 

REF 

2 

0203 

0204 

REF 

2 

0205 

REF 

89 

0206 

0207 

REF 

20 

0208 

REF 

1 

LAST 

708 

37.3344 

37.3345 

LAST 

710 

37.3346 

37.3347 
37,3350 

LAST 

708 

37.3351 

37.3352 

37.3353 

37.3354 

37.3355 

37.3356 

LAST 

708 

37,3357 

37,3360 

LAST 

709 

37,  3361 
37,3362 

LAST 

707 

37.3363 

37.3364 

LAST 

708 

37,3365 

LAST 

707 

37,3366 

LAST 

197 

37,3367 

37. 3370 

37.3371 

LAST 

197 

37,3372 

LAST 

707 

37.3373 

37.3374 

LAST 

710 

37, 3375 

LAST 

710 

37.3376 

37.3377 

37,3400 

60505 

1 

01732 

0 

77715 

1 

76505 

0 

01732 

0 

40206 

1 

00001 

0 

77650 

1 

77232 

1 

77624 

1 

GETR VN2 

27447 

0 

52014 

0 

01673 

1 

77214 

0 

0 6060 

1 

R31SURF 

77634 

0 

21603 

1 

34041 

0 

27115 

1 

77650 

1 

77203 

0 

4 0102 

0 

MUNG? 

7 4735 

0 

0 CC06 

1 

1 3320 

1 

0 6060 

1 

UNERASE 

52034 

■ 1 

21603 

1 

77136 

0 

VXM 

VSR4 

REFSMMAT 

PDVL 

VXM 

VSL1 

REFSMMAT 

PUSH 

SETPD 

0 

GOTO 

COMPDISP 

CALL 

I NTSTALL 

CLEAR 

GOTO 
I NTYPFLG 
OTHINT 

TC 

I NTPRET 

RTB 

LOADT IMF 

STCALL 

TDEC1 

LEMPREC 

GOTO 

OTHCONIC 

CS 

F LAGWRD6 

MASK 

MUNFLBIT 

EXTEND 

BZF 

GETR VN 

TC 

I NTPRET 

RTB 

GOTO 

LOADTIME 

DOCMBASE 
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USER' S PAGE  NO.  5 EO  S3 

CHANGE  TO  REFERENCE  SYSTEM  AND  RESCALE 
R TO  PO  0-5 

V TO  PD  5-11 


PREC  EXTRAP  FOR  OTHFP 


LM  IS  ON  SURFACE,  SO  PRECISION 
INTEGRATION  USES  PLANETARY  INFRTIAL 
ORIENTATION  SUBROUTINE 

00  CSM  CONIC 


IF  MUNFLAG  SET,  CSM  BASE  NOT  NEEDED 
GET  CSM  BASE  VECTOR 


GAP: 

L 

P5000 
R500  I 
R5003 
P5005 
R5007 
R5009 
R50L  1 
R5013 
R5014 
R5015 
R5017 
R5018 
R5020 
K5022 
R5023 
R5024 
R5026 

R5027 

502  8 

5029 

5030 

503  1 
5032 

5032  l 

50322 

50323 

5033 

5034 

5034  1 

50342 

50343 

50344 

50345 

5035 

504  0 
504  1 
5042 
504  3 
5044 
5044  1 

5044  2 
50445 

5045 
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P 76 


USF P ' S PAGE  NO. 


EO  S3 


1)  PROGRAM  NAME  - TARGET  DELTA  V PROGRAM  (P76 

2)  FUNCTIONAL  DESCRIPTION  - UPON  ENTRY  BY  AST 

TO  PROVIDE  VIA  DSKY  (11  THE  DELTA  V 
TIME  (TIG)  AT  WHICH  THE  OTHER  VEHICL 
OTHER  VEHICLE  STATE  VECTOR  IS  INTEGR 
BEEN  TRANSFORMED  FROM  LV  TO  REF  COSY 
VEHICLE  STATE  VECTOR  TO  THE  STATE  VECTOR  OF  T 
STATES  CORRESPOND  TO  THE  SAME  TIME. 

3)  ERASABLE  INITIALIZATION  REQUIRED  - NONE. 
CALLING  SEQUENCES  AND  EXIT  MODES  - CALLED 

EXITS  BY  TCF  ENDOF JOB . 

OUTPUT  - OTHER  VEHICLE  STATE  VECTOR  INTEGR 
THE  PUSHLIST  CONTAINS  THE  MATRIX  BY 
TO  REF  COSYS. 

DEERIS  - OTHER  VEHICLE  STATE  VECTOR. 
SUBROUTINES  CALLED  - BANKC ALL , GOXDSPF , CSMP 
INTPRFT,  INTEGRVS , AND  MINIRECT . 


) . 

RONAUT  ACTION,  P76  FLASHES  DSKY  REQUESTS 
TO  BE  APPLIED  TO  THE  OTHER  VEHICLE  STATE 
E VELOCITY  WAS  CHANGED  BY 
ATED  TO  TIG  AND  UPDATED  BY 
S).  USING  INTEGRVS,  THE 


TO  THF  ASTRONAUT 
VECTOR  AND  (2)  THE 
EXECUTION  OF  A THRUSTING  MANEUVER.  THE 
THE  ADDITION  OF  DELTA  V (DELTA  V HAVING 
PROGRAM  THEN  INTEGRATES  THE  OTHER 


4) 


5) 


6) 

7) 


HIS  VEHICLE,  THUS  INSURING  THAT  THF  W-MATRIX  AND  BOTH  VFHICLF 


BY  ASTRONAUT  REQUFST  THRU  DSKY  V 37  E 76  E. 

ATED  TO  TIG  AND  INCREMENTED  BY  DELTA  V IN  RFF  COSYS. 

WHICH  THE  INPUT  DELTA  V MUST  8E  POST-MULTIPLIED  TO  CONVERT  FROM  LV 


REC  (OR  LEMPREC ) , ATOPCSM  (OR  ATO PLEM ) , INTSTALL , I NTWAKE , PHASCHNG 


8)  FLAG  USE  - MOONFL AG , C MOONF L AG , I NT YP FLG  , R AS F L AG , AND  MARKCTR. 


REF 


30,2061 

13,2000 

13,2207 


BANK 


30 


SETLOC  P76L0C 
BANK 


REF 


COUNT*  $ $ / P 7 6 


REF 

20 

LAST 

704 

E7, 1441 

EBANK= 

T IG 

REF 

11 

LAST 

686 

13,2207 

3 1010 

1 P76ER77 

CA 

MODREG 

REF 

34 

LAST 

592 

13,2210 

7 4744 

0 

MASK 

BIT1 

REF 

1 

13,2211 

55 ' 235 

0 

TS 

OPTFLAG 

OPTFLAG  = 0 CM  (P76) 

REF 

44 

LAST 

684 

13,2212 

0 5506 

1 

TC 

UPFLAG 

= 1 LM  ( P77 ) 

REF 

5 

LAST 

635 

13,2213 

00C31 

0 

ADRES 

TRACKFLG 

REF 

90 

LAST 

710 

13,2214 

0 6060 

l 

TC 

INTPRET 

13,2215 

77775 

1 

VLOAD 

REF 

21 

LAST 

695 

13,2216 

03434 

l 

DELVLVC 

REF 

4 

LAST 

329 

13,2217 

01251 

0 

STORE 

DELVOV 

13,2220 

77776 

1 

EXIT 

REF 

1 

13,2221 

3 2356 

0 

CAF 

V06N3376 

REF 

178 

LAST 

706 

13,2222 

0 4607 

1 

TC 

BANKCALL 

AND  WAIT  FOR  KEYBOARD 

ACT  ION. 

REF 

18 

LAST 

686 

13,2223 

20471 

1 

CADR 

GOFLASH 

REF 

1 

13,2224 

1 2351 

0 

TCF 

ENDP76 

13,2225 

0 2227 

1 

TC 

+ 2 

PROCEED 

13,2226 

0 2221 

1 

TC 

-5 

STORE  DATA  AND  RF  P FAT 

FLASHING 

REF 

29 

LAST 

684 

13,2227 

0 5355 

l 

TC 

PHASCHNG 

13,2230 

04  C 24 

0 

OCT 

04024 

REF 

2 

LAST 

7 1 1 

13,2231 

51*235 

1 

INDEX 

OPTFLAG 

REF 

1 

13,2232 

3 2354 

1 

CAF 

V06N84 

FLASH  VO 6 N84  (OR  N81 1 

i , LAST  DELTV 
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P 7 6 

5046 

REF 

175 

LAST 

711 

504  7 

REF 

19 

LAST 

711 

504  8 

5049 

5050 

REF 

2 

LAST 

71  1 

505  1 

REF 

51 

LAST 

7 L 1 

5052 

5053 

REF 

21 

LAST 

711 

5053  5 

REF 

2 

LAST 

248 

5054 

REF 

37 

LAST 

710 

5055 

50553 

REF 

3 

LAST 

7 l l 

50556 

5056 

REF 

l 

5057 

5058 

5059 

5060 

REF 

21 

LAST 

708 

5061 

REF 

17 

LAST 

708 

5062 

5063 

5064 

5065 
50652 
50654 
506  5 6 

REF 

4 

LAST 

712 

50656 

* 

5066 

REF 

22 

LAST 

711 

50662 

*REF 

5 

LAST 

711 

506  6 4 
50666 
506  7 

5068 

5069 

REF 

6 

LAST 

712 

5070 

REF 

18 

LAST 

712 

5071 

5072 
507  3 

REF 

24 

LAST 

710 

5074 

5075 

5076 

5077 

5078 

REF 

1 

5079 

REF 

9 

LAST 

70  8 

5080 

5081 

5082 

REF 

22 

LAST 

712 

5083 

REF 

10 

LAST 

708 

5084 

REF 

22 

LAST 

712 

5085 

REF 

13 

LAST 

708 

13,2233 

0 4607 

1 

13,2234 

20471 

1 

13, 2235 

1 2351 

0 

13,2236 

0 2240 

0 

13,2237 

0 2231 

0 

13,2240 

0 6060 

1 

13,2241 

43  145 

0 

13,2242 

C3442 

0 

13,2243 

01076 

1 

13,2244 

00C41 

1 

13,2245 

777  1 1 

0 

13,2246 

01236 

1 

13,2247 

26357 

1 

13,2250 

53575 

0 

COMPMAT 

13,2251 

OOCOl 

0 

13,2252 

77676 

0 

13,2253 

0CC31 

0 

13,2254 

53435 

0 

13,2255 

C0C07 

0 

13,2256 

00C23 

0 

13,2257 

53435 

0 

13,2260 

00C31 

0 

13,2261 

00015 

0 

13,2262 

46135 

1 

13,2263 

01236 

1 

13,2264 

26270 

0 

13,2265 

77775 

1 

13,2266 

03434 

1 

13,2267 

01251 

0 

13,2270 

77775 

1 

13,2271 

01251 

0 

13,2272 

76505 

0 

DVTRANS 

13,2273 

OOC  15 

0 

13,2274 

77655 

1 

13,2215 

00007 

0 

13,2276 

00007 

0 

13,2277 

77624 

1 

13,2300 

27447 

0 

13,2301 

77624 

1 

13, 2302 

26363 

0 

13,2303 

53775 

1 

13,2304 

00C07 

0 

13,2305 

57176 

0 

13,2306 

25543 

l 

13,2307 

OOOOl 

0 

13,2310 

77657 

0 

13,2311 

57176 

0 

13,2312 

15535 

0 

13,2313 

03442 

0 

13,2314 

01517 

0 
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TC 

BANKCALL 

AND  WAIT  FOR  KEYBOARO  ACTION. 

CADR 

GOFLASH 

TCF 

ENDP76 

TC 

+ 2 

TC 

-6 

STORE  DATA  £ REPFAT  FLASHING  OSP 

TC 

INTPRET 

RETURN  TO  INTERPRETIVE  CODE 

DLOAD 

SET 

TIG 

NODOFLAG 

STORE 

T DEC  1 

CCALL 

OPTFLAG 

INTAOR 

VLOAD 

UNIT 
R ATT 

VCOMP 

U ( -P  ) 

STORE 

240 

U ( — R ) TO  240 

VXV 

UNIT 

VATT 

U(-R ) XV  = U( VXR ) 

STORE 

180 

VXV 

UNIT 
2 40 

U<  VXR  ) XU (-R  ) = U(  (RXV ) XR) 

STORE 

120 

• 

SLOAD 

BHIZ 
OPTFLAG 
+ 4 

VLOAO 

DELVL VC 

FROM  CM 

STORE 

OELVOV 

VLOAO 

OELVOV 

FROM  LM 

VXM 

VSL1 

120 

V(MPAC)  = DELTA  V IN  REFCOSYS 

VAD 

VATT 

STORE 

6 

V ( PD6 ) =V AT T + DELTA  V 

CALL 

INTSTALL 

PREVENT  WOULO-BE  USER  OF  ORBITAL 
INTEG  FROM  INTERFERING  WITH  UPDATING 

CALL 

P76SUB1 

VLOAO 

VSR* 

6 

0,2 

STOVL 

VCV 

RATT 

VSR  * 

0,2 

STOOL 

RCV 

TIG 

STORE 

TET 

712 
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50B6 

13,2315 

71214 

0 

CLEAR 

D LOAD 

5087 

REF 

14 

LAST 

710 

13,2316 

01673 

1 

I NTYPFLG 

5088 

REF 

1 

13,2317 
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NEW  FUNCTIONAL  DESCRIPTION:  CALLED  BY  VERB  82  ENTER.  PRIORITY  10 

USED  THROUGHOUT.  CALCULATE  AND  DISPLAY  ORBITAL  PARAMETERS 

1.  IF  AVERAGE  G IS  OFF: 

FLASH  DISPLAY  V04N06.  R2  INDICATES  WHICH  SHIP'S  STATE  VECTOR  IS 
TO  BE  UPDATED.  INITIAL  CHOICE  IS  THIS  SHIP  ( R2= 1 ) . ASTRONAUT 
CAM  CHANGE  TO  OTHER  SHIP  BY  V22EXE,  WHERE  X NOT  EQ  1. 

SELECTED  STATE  VECTOR  UPDATED  BY  THISPREC  (OTHPREC). 

CALLS  SR30.1  (WHICH  CALLS  T FFCONMU  + TFFRP/R A ) TO  CALCULATE 
RPER  (PERIGEE  RADIUS),  RAPO  (APOGEE  RADIUS),  HP ER  (PERIGEE 
HEIGHT  ABOVE  LAUNCH  PAD  OR  LUNAR  LANDING  SITE),  HAPO  (APOGEE 
HEIGHT  AS  ABOVE),  TPER  (TIME  TO  PERIGEE),  TFF  (TIME  TO 
INTERSECT  300  KFT  ABOVE  PAD  OR  35KFT  ABOVE  LANDING  SITE). 

FLASH  MONITOR  V16N44  (HAPO,  HPER,  TFF). TFF  IS  -59M59S  IF  IT  WAS 
NOT  COMPUTABLE,  OTHERWISE  IT  INCREMENTS  ONCE  PER  SECOND. 
ASTRONAUT  HAS  OPTION  TO  MONITOR  TPER  BY  KEYING  IN  N 32  E. 
DISPLAY  IS  IN  HMS , IS  NEGATIVE  (AS  WAS  TFF),  AND  INCREMENTS 
JNCE  PER  SECOND  ONLY  IF  TFF  DISPLAY  WAS  -59M59S. 

2.  IF  AVERAGE  G IS  ON: 

CALLS  SR30.1  APPROX  EVERY  TWO  SECS.  STATE  VECTOR  IS  ALWAYS 
FOR  THIS  VEHICLE.  V82  DOES  NOT  DISTURB  STATE  VECTOR.  RESULTS 
OF  SR30.1  ARE  RAPO,  RPER,  HAPO,  HPER,  TPER,  TFF. 

FLASH  MONITOR  V16N44  (HAPO,  HPER,  TFF). 

ADDENDUM:  HAPO  AND  HPER  SHOULD  BE  CHANGED  TO  READ  HAPOX  AND  HPERX  IN  THE 
ABOVE  REMARKS. 
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l 

DLOAD 

BZE 

0163 

REF 

2 

LAST 

318 

22,3410 

02134 

0 

-TPER 

0164 

REF 

l 

22,3411 

45422 

1 

TICKTFF 

0165 

22,3412 

43345 

1 

T ICKTPER 

DLOAD 

DAD 

0166 

REF 

3 

LAST 

718 

22,3413 

02134 

0 

-TPER 

0167 

REE 

6 

LAST 

718 

22,3414 

02176 

0 

TSTART82 

0168 

REF 

4 

LAST 

718 

22,3415 

02134 

0 

STORE 

-TPER 

0169 

22,3416 

77776 

1 

EXIT 

0170 

REF 

35 

LAST 

711 

22,3417 

3 4744 

1 

CAF 

B I T 1 

017  1 

REF 

4 

LAST 

717 

22,3420 

55' 530 

1 

TS 

V82FLAGS 

0172 

REE 

100 

LAST 

613 

22, 3421 

0 5 146 

1 

TC 

FNDOF JOB 

0173 

22,3422 

43345 

1 

TICKTFF 

DLOAD 

DAD 

0174 

REE 

6 

LAST 

717 

22,3423 

02132 

0 

TFF 

0175 

REF 

7 

LAST 

718 

22, 3424 

02176 

0 

TSTART82 

0176 

REF 

7 

LAST 

718 

22,3425 

02132 

0 

STORE 

TFF 

0177 

22,3426 

77776 

1 

EXIT 

0178 

REF 

37 

LAST 

658 

22,3427 

3 4743 

0 

CAF 

B IT2 

0179 

REF 

5 

LAST 

718 

22,3430 

55 ' 530 

1 

TS 

V 82FLAGS 

0180 

REF 

1C1 

LAST 

718 

22,3431 

0 5146 

1 

TC 

ENDUF JOB 
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CALL  STATE  VECTOR  UPDATE  FOR  THIS  SHIP. 


35  K FT  MIN  PERIGEE  HEIGHT  FOR  MOONI-27IM 
300  KFT  (-291M  FOR  EARTH 

PAD  37-8  RADIUS.  SCALED  AT  (-29IM. 
INDICATE  EARTH  SCALING  FOR  SR30. 1 

COMPUTE  MOON  PAD  RADIUS  FROM  RLS  VECTOR. 
SCALED  AT  (-271M. 

INDICATE  MOON  SCALING  FOR  SR30.  1 
CALCULATE  ORBITAL  PARAMETERS 


PRESENT  TIME  - TIME  V32G0FF1  BEGAN 
SAVF  IT 

SR30.  1 S FT S -TPER=0  IF  HPER  L/ 

HPERMIN  (300  OR  35)  KFT. 

(-TPFR  = 0) 

(-TPER  NON  ZERO)  TFF  WAS  NOT  COMPUTED, 
BUT  WAS  SET  TO  59M59S.DONT  TICK  TFF,  DO 
TICK  -TPFR.  DISPLAY  BOTH. 

-T PER  CORRECTED  FOR  TIME  SINCE  V32G0FF1 
BEGAN. 

INFORMS  TICKTEST  TO  INCREMENT  ONLY  -TPER 


( -TPE R=0 ) TFF  WAS  COMPUTED. TI CK  TFF. 
DO  NOT  TICK  -TPER. DISPLAY  TFF,  BUT  NOT 
-TPER  . 

TFF  CORRECTED  FOR  TIME  SINCE  V82GOFF1 
BEGAN . 


INFORMS  TICKTFST  TO  INCREMENT  ONLY  TFF 


GAP: 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L R30 


0181 

REF 

31 

LAST 

709 

22,3432 

3 4740 

0 

TICKTEST 

CAF 

BIT5 

0182 

REF 

13 

LAST 

709 

22,3433 

7 1043 

0 

MASK 

E XTVBACT 

0183 

REF 

2C4 

LAST 

717 

22,3434 

10  000 

0 

CCS 

A 

0 18  A 

REF 

1 

22,3435 

0 3443 

1 

TC 

DOTICK 

0135 

REF 

3 

LAST 

6 12 

22, 3436 

3 7734 

0 

CAF 

PRI025 

0186 

REF 

15 

LAST 

706 

22,3437 

0 5063 

1 

TC 

NOVAC 

0187 

REF 

14 

LAST 

719 

1043 

EBANK= 

EXTVBACT 

0188 

REF 

40 

LAST 

716 

22,3440 

05474 

0 

2CADR 

ENDEXT 

0188 

22,3441 

04062 

1 

0189 

REF 

30 

LAST 

70  6 

22, 3442 

0 5263 

0 

TC 

TASKOVER 

0190 

REF 

7 

LAST 

717 

22,3443 

3 4770 

0 

DOTICK 

CAF 

1 SEC 

019  1 

REF 

26 

LAST 

716 

22,3444 

0 5205 

0 

TC 

WAITLIST 

0192 

REF 

8 

LAST 

718 

E4, 1531 

EBANK= 

TFF 

0193 

REF 

2 

LAST 

716 

22,3445 

03432 

1 

2C  ADR 

T ICKTEST 

0193 

22,3446 

44064 

0 

0194 

REF 

21 

LAST 

716 

22 , 3447 

3 6266 

0 

CAF 

THREE 

0195 

REF 

6 

LAST 

716 

22,3450 

7 1530 

1 

MASK 

V82FLAGS 

0196 

REF 

2C5 

LAST 

719 

22, 3451 

50  COO 

1 

INDEX 

A 

0197 

22,3452 

0 3453 

0 

TC 

+ 1 

0198 

REF 

31 

LAST 

719 

22,3453 

0 5263 

0 

TC 

TASKOVER 

A0199 

0200 

REF 

1 

22,3454 

0 3462 

1 

TC 

TPERT  ICK 

020  1 

REF 

8 

LAST 

719 

22,3455 

3 4770 

0 

TFFT ICK 

CAF 

1 SEC 

0202 

REF 

95 

LAST 

681 

22,3456 

54  001 

1 

TS 

L 

0203 

REF 

131 

LAST 

716 

22,3457 

3 4746 

0 

CAF 

ZERO 

0204 

REF 

9 

LAST 

719 

22,3460 

21*532 

0 

DAS 

TFF 

0205 

REF 

32 

LAST 

719 

22,3461 

0 5263 

0 

TC 

TASKOVER 

0206 

REF 

9 

LAST 

719 

22,3462 

3 4770 

0 

TPERT  ICK 

CAF 

1 S EC 

0207 

REF 

96 

LAST 

719 

22, 3463 

54  001 

1 

TS 

L 

0208 

REF 

132 

LAST 

719 

22,3464 

3 4746 

0 

CAF 

ZERO 

0209 

REF 

5 

LAST 

718 

22,3465 

2 1 ' 534 

0 

DAS 

-TPER 

0210 

REF 

33 

LAST 

719 

22,3466 

0 5263 

0 

TC 

TASKOVER 
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THIS  WAITLIST  PROGRAM  PERPETUATES  ITSELF 
ONCE  A SEC  UNTIL  BIT  5 OF  E XT V 8 ACT  =0. 

TERMINATE  V 82. CANT  CALL  FNDEXT  IN  RUPT. 


RE-REQUEST  TICKTEST. 


IF  NO  FLAGBITS  SET  OONT  CHANGE  TFF  OR 
-TPER,  BUT  CONTINUE  LOOP. 

ONLY  BIT  1 SET.  INCR  -TPER  BY  1 SEC. 
ONLY  BIT  2 SET.  INCR  TFF  BY  1 SEC. 


GAP:  ASSEMBLE  REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L R30 


021  l 

22,3467 

77776 

1 

V82GON 

EXIT 

A0212 

0213 

REF 

7 

LAST 

716 

22, 3470 

3 5012 

1 

CAF 

P R 107 

0214 

REF 

26 

LAST 

716 

22, 3471 

0 5076 

0 

TC 

FINDVAC 

0215 

REF 

10 

LAST 

719 

E4, 1531 

EBANK= 

TFF 

0216 

REF 

1 

22,3472 

03505 

1 

2CADR 

V82G0N1 

0216 

REF 

1 

22,3473 

44064 

0 

0217 

22 ,3474 

C 0003 

1 

REL INT 

0218 

REF 

5 

LAST 

568 

22,3475 

10  067 

1 

CCS 

NEWJOB 

0219 

REF 

4 

LAST 

568 

22, 3476 

0 5113 

1 

TC 

CHANG  1 

A0220 

A022  1 

0222 

REF 

2 

LAST 

717 

22,3477 

3 3321 

1 

V82REDSP 

CAF 

V 16N44 

0223 

REF 

1E3 

LAST 

717 

22,3500 

C 4607 

i 

TC 

BANKCALL 

0224 

REF 

10 

LAST 

717 

22,3501 

20323 

i 

CADR 

GOXDSPF 

0225 

REF 

10 

LAST 

7 17 

22,3502 

0 5565 

i 

TC 

B50FF 

0226 

REF 

1 1 

LAST 

720 

22, 3 50  3 

0 5565 

i 

TC 

B50FF 

022  7 

REF 

1 

22,3504 

0 3477 

0 

TC 

V 82RE0SP 

0228 

REF 

97 

LAST 

718 

22 , 3505 

0 6060 

1 

V82G0N1 

TC 

I NT  PR  ET 

A0229 

0230 

22,3506 

52175 

0 

VLOAD 

GOTO 

023  1 

REF 

6 

LAST 

709 

22, 3507 

01220 

0 

RN 

0232 

REF 

1 

22,3510 

45511 

0 

NEXTL INE 

023  3 

REF 

12 

LAST 

717 

22,3511 

26200 

1 

NEXTL INE 

STOVL 

RONE 

0234 

KEF 

6 

LAST 

709 

22,3512 

01226 

0 

VN 

0235 

REF 

7 

LAST 

717 

22,3513 

02206 

1 

STORE 

VONE 

0236 

22,3514 

52014 

0 

BON 

GOTO 

0237 

REF 

4 

LAST 

708 

22,3515 

04304 

1 

MOUNTHI S 

0238 

REF 

l 

22,3516 

45520 

1 

MOONGON 

0239 

RFF 

1 

22,3517 

45531 

1 

EARTHGON 

0240 

22,3520 

712  14 

0 

MOONGON 

SET 

DLOAO 

024  1 

REF 

3 

LAST 

710 

22,3521 

03475 

1 

V 82EMFLG 

0242 

REF 

1 

22,3522 

04001 

1 

1 /RT  MUM 

0243 

RFF 

2 

LAST 

717 

22,3523 

14037 

0 

STODL 

TFF/RTMU 

0244 

REF 

1 

22,3524 

05366 

1 

M INPERM 

0245 

REF 

3 

LAST 

717 

22,3525 

26  172 

1 

STOVL 

HPERMIN 

0246 

REF 

6 

LAST 

718 

22,3526 

02021 

0 

RLS 

0247 

22,3527 

52046 

1 

ABVAL 

GOTO 

0248 

REF 

1 

22,3530 

45540 

1 

V82GON2 

0249 

22,3531 

71214 

0 

EARTHGON 

CLEAR 

DLOAD 

0250 

REF 

4 

LAST 

720 

22,3532 

03675 

0 

V82EMFLG 

025  1 

REF 

2 

LAST 

717 

22,3533 

04003 

0 

l/RTMUE 

0252 

REF 

3 

LAST 

720 

22,3534 

14037 

0 

STODL 

TFF/RTMU 

0253 

RFF 

2 

LAST 

717 

22,3535 

05370 

0 

MINPERE 

0254 

REF 

4 

LAST 

720 

22,3536 

16172 

1 

STODL 

HPERMIN 

0255 

REF 

3 

LAST 

718 

22,3537 

06336 

1 

R PAD 

0256 

REF 

3 

LAST 

718 

22,3540 

36174 

0 

V82GON2 

STC ALL 

RPADTEM 

0257 

REF 

2 

LAST 

718 

22,3541 

45553 

0 

SR30. 1 
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AVERAGE  G ON.  USE  CURRENT  STaTF  VECTOR 
FOR  ORBITAL  PARAMETER  CALCULATIONS. 

LESS  THAN  LAMBERT 

V82G0N1  WILL  PERFORM  ORBIT  CALCULATIONS 
ABOUT  PROPER  BODY  APPROX  ONCE  PER  SEC. 


WITHOLD  V l 6 N44  UNTIL  FIRST  ORBIT  CALC 
IS  DUNE.  NOTE:  V82GON1  (PRI07,  FINDVAC 
JOB)  IS  COMPLETED  BEFORE  V82GON  (PRI07, 
NOVAC  JOB) . 

MONITOR  HAPO,  HP  FR , TFF 


TERM  THIS  TELLS  V32G0N1  TO  KILL  ITSELF. 
PROC  DITTO. 

RECYCLE 

THIS  EXFC  PROGRAM  PERPETUATES  ITSELF 
ONCF  A SEC  UNTIL  BIT  5 OF  EXTVBACT  =0. 
HOLDS  OFF  CCS  NEWJOB  BETWEEN  RN  AND 
VN  FETCH  SO  RN  , VN  ARE  FROM  SAME 
STATE  VECTOR  UPDATE. 

RN  AT  ( — 2 9 ) M FOR  EARTH  OR  MOON 

VN  AT  (-7IM/CS  FOR  EARTH  OR  MOON 

FLAG  INDICATES  BODY  ABOUT  WHICH  ORBITAL 
CALCULATIONS  ARE  TO  BE  PERFORMED. 

IF  SET  - MOON  , IF  RESET  - EARTH. 


INDICATE  MOON  SCALING  FOR  SR30.1 
LUNAR  PARAMETERS  LOADED  HERE  FOR  SR30.1 


SCALED  AT  (-27IM. 


INDICATE  EARTH  SCALING  FOR  SR30.1 
EARTH  PARAMETERS  LOADED  HERE  FOR  SR30.1 


COMMON  CODE  FOR  EARTH  £ MOON 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  202II12-I6I 

L R30 


0258 

22,3542 

77776 

1 

EXIT 

0259 

REF 

32 

LAST 

719 

22,3543 

3 

4740 

0 

V82G0N3 

CAF 

B IT5 

0260 

REF 

15 

LAST 

719 

22, 3544 

7 

1043 

0 

MASK 

EXTVBACT 

0261 

22,3545 

0 

0006 

1 

EXTEND 

0262 

REF 

41 

LAST 

719 

22,3546 

1 

5474 

1 

RZF 

ENDEXT 

0263 

REF 

10 

LAST 

719 

22,3547 

3 

4770 

0 

CAF 

1 SEC 

0264 

REF 

1 £4 

LAST 

720 

22,3550 

C 

4607 

1 

TC 

BANKCALL 

0265 

REF 

13 

LAST 

717 

22,3551 

0 1736 

1 

CADR 

DE  LAY  JOB 

0266 

REF 

2 

LAST 

720 

22,3552 

C 

3505 

1 

TC 

V82GON1 

0267 

REF 

1 

22,3543 

SPLRET 

= 

V82G0N3 
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SEE  IF  ASTRONAUT  HAS  SIGNALLED  TERMINATE 

YES,  TERMINATE  VB  82  LOOP 

WAIT  ONE  SECOND  REFORE  REPEATING 
ORBITAL  PARAMETER  COMPUTATION. 


GAP: 


ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  8Y  NASA  2021112-161 
L R 30 
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P0268  SUBROUTINE  NAME:  SR30.1 


R0269 

MOD 

NO: 

0 

R027  1 

MOD 

BY: 

RR 

BA  IRNSFATHER 

R0273 

MOD 

NO: 

l 

MOD 

BY: 

RR  BA  I RNSFATHE  R 

DATE: 

11 

APR 

67 

R0275 

MOD 

NC: 

2 

MOD 

BY: 

RR  E A I RNSFATHER 

DATE: 

14 

APR 

6 

R027  7 

MOC 

NC: 

3 

MOD 

BY 

ALONSC 

DATF: 

11 

DEC 

67 

R0279 

MOD 

NO: 

4 

MOD 

BY 

ALONSO 

DATE: 

26 

MAR 

68 

R0281 

MOD 

NO: 

5 

MOD 

BY: 

: RR  BAIRNSFATHER 

DATE: 

6 

AUG 

68 

R0203 


RATE:  16  FEB  67 

LOG  SECTION:  R 32 

SR30.1  CHANGED  TO  ALLOW  MONITOR  OPFRN 
ADD  0 VFL  CK  FOR  RAPO 
SUBROUTINE  REWRITTEN 

PROG  MOD  TO  HANDLE  DIF  EARTH/MOON  SCALE 
OVFL  CK  FOR  HAPO  S HPER. VOIDS  MOD  #2. 


R0284  NEW  FUNCTIONAL  DESCRIPTION:  CRBITAL  PARAMETERS  DISPLAY  FOR  NOUNS  32  AND  44. 

R0286  SR30.1  CALLS  T FFCONMU  AND  TFFRP/RA  TO  CALCULATE  R PER  (PERIGEE  RADIUS), 

R02B7  RAPO  (APOGEE  RADIUS),  HPER  (PERIGEE  HEIGHT  ABOVE  LAUNCH  PAD  OR  LUNAR 

R0288  LANUING  SITE),  HAPC  (APOGEE  HEIGHT  AS  ABOVE),  TPER  (TIME  TO  PERIGEE), 

R0289  TFF  (TIME  TO  INTERSECT  300  KFT  ABOVE  PAD  OR  35KFT  ABOVE  LANDING  SITE). 

R0290  IF  HPER  IS  GREATER  THAN  OR  EQUAL  TO  HPERMIN,  CALCULATES  TPER  AND  STORES 
R0291  NEGATIVE  IN  -TPER.  OTHERWISE  STORES  +0  IN  -TPER.  WHENEVER  TPER  IS 
R0292  CALCULATED,  TFF  IS  NOT  COMPUTABLE  AND  DEFAULTS  TO  -59MIN  59SEC . IF  HAPO 
R0293  WOULD  EXCEED  9999.9  NM,  IT  IS  LIMITED  TO  THAT  VALUE  FOR  DISPLAY. 


R0294 
R029  3 

R0296 
R0  29  7 
R0298 
R 0 2 9 9 
R0300 


ADDENDUM:  HAPO  AND  HPER  SHOULD  BE  CHANGED  TO  READ  HAPOX  AND  HPERX  IN  THE 
ABOVE  REMARKS. 


CALLING  SEQUENCE: 

SUBROUTINES  CALLE 
NORMAL  EXIT  MODE: 
ALARMS: 


R0320 


CALL 

SR30 . 1 

D:  TEFCONMU,  TFFRP/RA,  CALCTPER , CALCTFF 

CALLING  LINE  +1  (STILL  IN  INTERPRETIVE  MODE) 

NONE 

APOGEE  RADIUS  EARTH  CENTERED  COORD. 

MOON  CENTERED  COORD. 

PERIGEE  RADIUS  EARTH  CENTFRED  COORD. 

MOON  CENTERED  COORD. 

APOGEE  ALTITUDE  ABOVE  PAD  OR  LAND.  SITE  MAX  VALUE  LIMITED  TO  9999.9  NM . 
PERIGEE  ALT.  ABOVE  PAD  OR  LAND.  SITE  MAX  VALUE  LIMITED  TO  9999.9  NM . 

TIME  TO  300KFT  OR  35KFT  ALTITUDE 
TIME  TO  PERIGEE 
)- 

RECIPROCAL  OF  PROPER  GRAV  CONSTANT  FOR 
EARTH  OR  MOON  = l/SQKTIMU). 

STATE  VECTOR 
STATE  VECTOR 

RADIUS  OF  LAUNCH  PAD  OR  LUNAR  LANDING 
SITE. 

(300  OR  33) KFT  MINIMUM  PERIGEE  ALTITUDE 
ABOVE  LAUNCH  PAD  OR  LUNAR  LANDING  SITE. 

V82EMFLG  ( I NT  SW  BIT)  RESET  FOR  EARTH,  SET  FCR  MOON. 


R0301 

OUTPUT : 

RAPO 

(-29)  M 

EARTH 

R030  2 

(-27)  M 

MOON 

R0303 

RPER 

(-29)  M 

FARTH 

R0304 

(-27)  M 

MOON 

R0305 

HAPOX 

(-29)  M 

R0307 

HPERX 

(-29)  M 

R0309 

TFF 

(-28)  CS 

R0310 

-TPER 

(-28)  CS 

P 0 3 1 1 

ERASABLE 

INITIAL 

I 2AT  ION 

REQUIl 

R0312 

TFF/RTMU  (+17) 

1 AR  l H 

R0313 

( + 14) 

MOON 

R0314 

RONE 

(-29)  M 

R0313 

VONE 

(-7)  M/CS 

R0316 

RPADTEM 

(-29)  M 

EARTI 

R03 1 7 

(-27)  M 

MOON 

R0318 

HPERMIN 

(-29)  M 

EARTI 

R0319 

1-27)  M 

MOON 

DEBRIS:  QPRET , P DL , S2 


R032  L 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L 

R 3 0 

0322 

REF 

1 

COUNT  * 

S S/SR30S 

0323 

22,3553 

44Q01 

0 

SR30 . 1 

SETPD 

STQ 

032  4 

22,3554 

00001 

0 

0 

0325 

REF 

8 

LAST 

616 

22,3555 

00  C 5 1 

0 

S2 

A0326 
A0327 
A 0 3 2 8 
A032  9 
A0330 
A0331 
A 033  2 
A0333 
A0334 
A0335 

- 

0336 

22,3556 

77214 

0 

BOFF 

V LOAD 

033  7 

REF 

5 

LAST 

720 

22,3557 

03755 

0 

V 82EMFLG 

0338 

REF 

1 

22,3560 

45567 

1 

TFFCALLS 

0339 

REF 

13 

LAST 

720 

22,3561 

C2200 

1 

RONE 

0340 

22,3562 

77752 

1 

VSL2 

034  1 

REF 

14 

LAST 

723 

22, 3563 

26200 

1 

STOVL 

RONE 

0342 

REF 

8 

LAST 

720 

22,3564 

02206 

1 

VONE 

0343 

22,3565 

77752 

1 

VSL2 

0344 

REF 

9 

LAST 

723 

22,3566 

02206 

1 

STORE 

VONE 

0345 

22,3567 

77624 

1 

TFFCALLS 

CALL 

034  6 

REF 

1 

22,3570 

57364 

1 

TFFCONMU 

0347 

22,3571 

77624 

1 

CALL 

0348 

A0349 

REF 

1 

22,3572 

57432 

0 

TFFRP/RA 

0350 

22,3573 

77625 

0 

DSU 

035  1 

REF 

4 

LAST 

720 

22,3574 

02174 

1 

RPADTEM 

0352 

A0353 

A0354 

22,3575 

644  14 

1 

BOFF 

SR2R 

0355 

REF 

6 

LAST 

723 

22,3576 

03755 

0 

V82EMFLG 

0356 

22,3577 

45600 

0 

+ 1 

0357 

22, 3600 

77624 

1 

CALL 

0358 

REF 

3 

LAST 

623 

22,3601 

45640 

1 

MAXCHK 

0359 

REF 

4 

LAST 

716 

22, 3602 

16113 

0 

STORHAPO 

STODL 

HAPOX 

0360 

REF 

1 

22, 3603 

00017 

l 

RPER 

036  1 

22,3604 

77625 

0 

DSU 

0362 

REF 

5 

LAST 

723 

22,3605 

02174 

1 

RPADTEM 

0363 

REF 

268 

LAST 

689 

22,3606 

00161 

1 

STORE 

MPAC  +4 

0364 

A0365 

A0366 

22,3607 

644  14 

1 

BOFF 

SR2R 

036  7 

REF 

7 

LAST 

723 

22,3610 

03755 

0 

V 82EMFLG 

0368 

22,3611 

45612 

0 

+ 1 

0369 

22,3612 

77624 

1 

CALL 

0370 

REF 

4 

LAST 

723 

22,3613 

45640 

1 

MAXCHK 
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USER' S PAGE  NO.  9 E4  S3 


INITIALIZE  PUSHDOWN  LIST. 


SR  30 . 1 INPUT:  RONE  AT  (-29)M  EARTH/MOON 
VONE  AT  (-7IM/CS 

TFFCONMU,TFFRP/RA,CALCTPER  AND  CALCTFF 
CALLS  REQUIRE  : 

EARTH  CENTERED  (NO  RESCALING  REQUIRFD) 
RONE  SCALED  TO  B-29  M 

VONE  SCALED  TO  B-7  M/CS 

MOON  CENTERED  (RESCALING  REQUIRED) 
RONE  SCALED  TO  B-27  M 

VONE  SCALED  TO  B-5  M/CS 

OFF  FOR  EARTH  , ON  FOR  MOON. 


TFFRP/RA  COMPUTES  RAPO,RPER. 
RETURNS  WITH  RAPO  IN  D(MPAC). 


NEED  HAPO  AT  (-29JM  FOR  DISPLAY. 

IF  MOON  CENTERED,  RESCALE  FROM  (-271M. 
IF  EARTH  CENTEREO  ALREADY  AT  (-29)M. 
OFF  FOR  EARTH  , ON  FOR  MOON. 

IF  HAPO  > MAXNM,  SET  HAPO  =9999.9  NM. 
OTHERWISE  STORE  ( RA PO-R PADTEM ) IN  HAPO. 


GIVES  HP  ER  AT  (-29)M  FARTH,  C - 27 ) M MOON. 
SAVE  THIS  FOR  COMPARISON  TO  HPERMIN. 

NEED  HPER  AT  <-29)M  FOR  DISPLAY. 

IF  MOON  CENTERED,  RESCALF  FROM  (-271M. 

IF  EARTH  CENTERED  ALREADY  AT  (-29)M. 

OFF  FOR  EARTH,  ON  FOR  MOON. 

IF  HP  FR  > MAXNM,  SET  HPFR  = 9999.9  NM. 
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0371 

REF 

2 

LAST 

326 

22,3614 

16115 

0 

STORHPER 

STOOL 

HPERX 

0372 

REF 

269 

LAST 

72  3 

22,3615 

OC  161 

1 

MPAC  +4 

0373 

22, 3ol6 

51025 

1 

DSU 

8 PL 

0374 

REF 

5 

LAST 

720 

22,3617 

02172 

1 

HPERMIN 

0376 

REF 

1 

22,3620 

45624 

0 

OOTPER 

0376 

22,3621 

52145 

0 

DLOAD 

GOTO 

0377 

REF 

4 

LAST 

613 

22, 3622 

06505 

1 

HI6ZER0S 

037B 

REF 

l 

22, 3623 

45630 

0 

SKIPTPER 

0379 

22,3624 

45145 

0 

DDTPER 

DLQAD 

CALL 

0380 

REF 

2 

LAST 

723 

22,3625 

0CC17 

1 

RPER 

0 38  1 

REF 

1 

22,3626 

57470 

0 

CALC  TPER 

0382 

22,3627 

77676 

0 

OCOMP 

0383 

REF 

6 

LAST 

719 

22,3630 

16134 

0 

SKIPTPER 

STOOL 

-TPER 

0384 

REF 

6 

LAST 

724 

22,3631 

02172 

1 

HPERMIN 

0386 

22, 3632 

45015 

l 

OAO 

CALL 

0386 

REF 

6 

LAST 

723 

22,3633 

02  174 

1 

RPADTEM 

0387 

REF 

1 

22,3634 

57473 

0 

CALCTFF 

0388 

22, 3635 

7 7676 

0 

OCOMP 

0389 

REF 

11 

LAST 

720 

22, 3636 

36  132 

1 

STC ALL 

TFF 

0390 

REF 

9 

LAST 

723 

22,3637 

10051 

0 

S 2 

0391 

22,3640 

5 1025 

1 

MAXCHK 

OSU 

B PL 

0392 

REF 

1 

22,3641 

05650 

1 

MAXNM 

0393 

22,3642 

45645 

1 

+ 3 

0394 

22,3643 

43415 

0 

DAO 

RVQ 

0396 

KEF 

2 

LAST 

724 

22 ,3644 

05650 

l 

MAXNM 

0396 

22,3645 

43545 

1 

+ 3 

DLOAD 

RVQ 

039  7 

REF 

3 

LAST 

724 

22,3646 

05650 

1 

MAXNM 

0398 

22,3647 

01065 

0 

MAXNM 

20CT 

01065  05603 

039  8 

22, 3650 

05603 

1 
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STORE  (RPER  - RPADTEM)  INTO  HPERX. 

HPERMIN  AT  ( — 29 ) M FOR  EAP^H,  (-27IM  MOON 
IF  HP  ER  L/  HPERMIN  ( 300  OR  35IKFT, 

THEN  ZERO  INTO  -TPER  . 

OTHERWISE  CALCULATE  TPER. 


TPER  IS  PUT  NEG  INTO  -TPER. 

HPERMIN  AT  ( - 29 ) M FOR  EARTH,  (-27IM  MOON 

RPADTEM  AT  (-291M  FOR  EARTH,  ( - 27 ) M MOON 
GIVES  59M59S  FOR  TFF  IF  RPER  G/ 

HPERMIN  + RPADTEM.  (TPER  WAS  NON  ZERO) 
OTHERWISE  COMPUTFS  TFF.  (GOTO) 


IF  C(MPAC)  > 9999.9  NM,  MPAC  = 9999,9  NM 
OTHERWISF  C(MPAC)  = B(MPAC). 


(USED  BY  P 30  - P37  ALSO) 


G4P : ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  202U12-I61 

L R30 


17: 11  MAR.  19, 

1971 

KISSING 

.067  PAGE 

USER' S 

PAGE 

NG.  1 1 

E4  S3 

***  END  OF  KISSING  .067  *** 
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L 

BURN 

, BABY,  BURN  — MASTER  IGNITION 

ROUTINE 

USER'S 

PAGE  NO.  1 EO  S3 

0001 

36,2024 

BANK 

36 

0002 

REF 

3 LAST  41  36,2000 

SETLOC 

P40S 

0003 

36,2024 

BANK 

0006 

REF 

3 LAST  656  E7.1455 

EBANK= 

WHICH 

000  5 

REF 

3 LAST  41  TO  41: 

2 

20* 

COUNT* 

SS/P40 

R0006 

TEE  MASTER  IGNITION  ROUTINE  IS  DESIGNED 

FOR  USE  BY 

THE  FOLLOWING  LEM  PROGRAMS: 

P 1 2 , P40,  P42  , P61  , P 63  . 

R0008 

IT  PERFORMS  ALL  FUNCTIONS  IMMEDIATELY  ASSOCIATED  WITH  APS  OR  DPS 

IGNITION: 

IN  PARTICULAR,  EVERYTHING  LYING 

R0010 

BETWEEN  THE  PRE-IGNITION  TIME 

CHECK 

— ARE 

WE  WITHIN  45 

SECONDS 

UF  TIG?  — AND  T IG 

<■  26  SECONDS,  WHEN  DPS 

R0012 

PROGRAMS  THROTTLE  UP. 

R0013 

VARIATIONS  AMONG  PROGRAMS 

ARE  ACCOMODATED  BY  MEANS 

OF  TABLES 

CONTAINING 

CONSTANTS  (FOR  AVEGEXIT,  FOR 

R0015 

WAITLIST,  FOR  PINBALL)  AND  TCF 

INSTRUCTIONS 

. USERS  PLACE  THE  ADRES  OF  THE 

HEAD  OF 

THE  APPROPRIATE  TABLE 

R001  7 

I OF 

P61TABLE  FOR  P61LM,  FOR  EXAMPLE) 

IN  ERASABLE  REGISTER  'WHICH 

' ( E4 ) . THE  IGNITION  ROUTINE  THEN  INDEXFS  BY 

R0019 

WHICH  TO  OBTAIN  OR  EXECUTE  THE 

PROPER  TABLE 

ENTRY.  THE  IGNITION  ROUTINE  IS 

INITIATED  BY  A TCF  BURNBABY, 

R002  1 

THROUGH  BANKJUMP  IF  NECESSARY. 

THERE  IS  NO  RETURN. 

R0022 

THE  MASTER  IGNITION  ROUTINE  WAS 

CONCEIVED  AND  EXECUTED,  AND 

INOTA  BENE) 

IS  MAINTAINED  BY  ADLER  AND  EyLES. 

R0024 

HON  I 

SO  I T QUI  MAL  Y PENSE 

R002  5 

*********** 

*********  ******************** 

R0026 

TABLES  FOR 

THE  IGNITION 

ROUTINE 

R002  7 

*##:>!<:!<5!e***  *******  **********  **  ************ 

R0028 

NOLI  SE  TANGERE 

0029 

36,2024 

11512 

0 P 12TABLE  VN 

0674 

(0  ) 

0030 

REF 

I 36,2025 

1 2327 

1 

TCF 

ULLGNOT 

( 1 ) 

003  1 

REF 

1 36,2026 

1 2611 

1 

TCF 

COMFA IL3 

(2) 

0032 

REF 

l 36,2027 

l 3061 

1 

TCF 

GOCUTOFF 

(3  ) 

003  3 

REF 

34  LAST  719  36,2030 

1 5263 

1 

TCF 

TASKOVER 

(4  ) 

0034 

REF 

1 36,2031 

1 2150 

0 

TCF 

P12SP0T 

( 5 ) 

0036 

36,2032 

00000 

1 

DEC 

0 

(6) 

NO 

ULLAGE 

003  6 

REF 

4 LAST  726  E7.1455 

EB ANK= 

WHICH 

003  7 

REF 

1 36,2033 

03656 

1 

2C  ADR 

SERVEXI T 

(7) 

003  7 

REF 

1 36,2034 

64067 

1 

003  8 

REF 

1 36,2035 

1 2402 

1 

TCF 

DISPCHNG 

(11) 

0039 

REF 

1 36,2036 

1 2562 

0 

TCF 

WAITABIT 

(12) 

0040 

R0043 

REF 

1 36,2037 

1 2523 

0 

TCF 

P 12IGN 

(13) 

004  4 

36,2040 

01450 

1 

P40T ABLE  VN 

0 640 

(0) 

004  5 

REF 

2 

LAST 

726 

36,2041 

1 

2327 

l 

TCF 

ULLGNOT 

( 1) 

0046 

REF 

1 

36,2042 

1 

2613 

0 

TCF 

C0MFAIL4 

(2) 

004  7 

REF 

1 

36,2043 

1 

3046 

1 

TCF 

GOPOST 

(3) 

0048 

REF 

35 

LAST 

726 

36,2044 

1 

5263 

l 

TCF 

TASKOVER 

(4) 

0049 

REF 

1 

36,2045 

1 

2 150 

0 

TCF 

P40SP0T 

( 5 ) 

GAP: 
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L 

BURN  , 

8 AB Y , BURN  — 

MASTER  IGNITION 

ROUT INE 

0050 

36,2046 

04300 

0 

DEC 

2240 

005  1 

REF 

5 

LAST 

215 

E6 , 1422 

EBANK= 

OMEGAQ 

0052 

REF 

1 

36,2047 

03667 

0 

2CADR 

STEERING 

0052 

REF 

1 

36,2050 

74066 

1 

0053 

REF 

1 

36,2051 

1 2372 

l 

TCF 

P40SJUNK 

0054 

REF 

2 

LAST 

726 

36,2052 

1 2562 

0 

TCF 

W AITABIT 

0055 

REF 

1 

36,2053 

1 2506 

1 

TCF 

P40IGN 

0056 

R0058 

REF 

1 

36,2054 

1 3122 

1 

TCF 

REP40ALM 

0060 

REF 

1 

36, 2055 

1 2153 

0 

P4  IT  ABLE  TCF 

P41 SPOT 

006  1 

36,2056 

77776 

1 

DEC 

-1 

0062 

REF 

6 LAST  727 

E6 , 1422 

EBANK= 

OMEGAQ 

0063 

REF 

1 

36,2057 

02570 

1 

2CADR 

CALCN85 

006  3 

REF 

1 

36,2060 

64066 

0 

0064 

REF 

1 

36,2061 

1 2404 

1 

TCF 

COMMON 

0065 

R0066 

REF 

1 

36,2062 

1 2 5 66 

1 

TCF 

T IGTASK 

006  7 

36, 2063 

C 14  50 

1 

P42T ABLE  VN 

0640 

006  8 

REF 

1 

36,2064 

1 2324 

1 

TCF 

WANTAPS 

0069 

REF 

2 

LAST 

726 

36,2065 

1 2613 

0 

TCF 

C0MFAIL4 

0070 

REF 

2 

LAST 

726 

36,2066 

1 3046 

1 

TCF 

GOPOST 

007  1 

REF 

36 

LAST 

726 

36, 2067 

1 5263 

1 

TCF 

T ASKOVER 

0072 

REF 

1 

36, 2070 

1 2150 

0 

TCF 

P42SP0T 

0073 

36,2071 

04526 

1 

DEC 

2390 

0074 

REF 

7 

LAST 

727 

E6 , 1422 

EBA  NK  = 

OMEGAQ 

0075 

REF 

2 

LAST 

727 

36,2072 

03667 

0 

2C  ADR 

STEERING 

0075 

36,2073 

7 4 066 

1 

0076 

REF 

2 

LAST 

727 

36,2074 

1 2372 

1 

TCF 

P40S JUNK 

0077 

REF 

3 

LAST 

727 

36,2075 

1 2562 

0 

TCF 

WAITABIT 

0078 

REF 

1 

36,2076 

1 2540 

0 

TCF 

P42IGN 

0079 

R0031 

REF 

1 

36,2077 

1 3421 

1 

TCF 

P42ST  AGE 

0032 

36,2100 

01476 

0 

P 63T ABLE  VN 

0662 

0083 

REF 

3 

LAST 

726 

36, 2101 

1 2327 

1 

TCF 

ULLGNOT 

0084 

REF 

2 

LAST 

726 

36,2102 

1 2611 

1 

TCF 

C0MFAIL3 

0085 

REF 

1 

36,2103 

1 2776 

1 

TCF 

V99RECYC 

0086 

REF 

37 

LAST 

727 

36,2104 

1 5263 

1 

TCF 

TASKOVER 

0037 

REF 

1 

36,2105 

1 2153 

0 

TCF 

P63SPDT 

0038 

36,2106 

04300 

0 

DEC 

2240 

0089 

REF 

5 

LAST 

726 

E7, 1455 

EBANK= 

WHICH 

0090 

REF 

2 

LAST 

726 

36,2107 

03656 

1 

2CADR 

SERVEXIT 

0090 

36,2110 

64067 

1 

0091 

REF 

2 

LAST 

726 

36,2111 

1 2402 

1 

TCF 

DISPCHNG 

0092 

REF 

4 

LAST 

727 

36,2112 

1 2562 

0 

TCF 

WAITABIT 
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(6) 

(7) 

111) 
(12) 
( 13) 
( 14) 


(5  ) 
(6) 

(7) 

(11) 

(12) 


(0) 

{ 1) 

(2) 

(3) 

(4) 

(5) 

(6)  ULLAGE  ON  AT  TIG-6  SECS. 

(7) 

111) 

(12) 

(13) 

( 14) 


(0  ) 
( 1 ) 
(2) 

(3) 

(4) 

(5) 
(6  ) 

I 7) 


(11) 

(12) 
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L 

BURN  , 

BABY, 

BURN  — MASTER  IGNITION  ROUTINE 

USER' S PAGE  NO. 

3 

E7  S3 

0093 

R0096 

REF 

1 

36,2113  1 2465  0 

TCF 

P 63 1 GN 

I 13) 

0112 

36,2114 

014  77 

l 

ABRTABLE  VN 

0663 

(0) 

0113 

REF 

4 

LAST 

727 

36,2115 

1 2327 

1 

TCF 

ULLGNOT 

t 1 ) 

0114 

REF 

3 

LAST 

727 

36, 2 l 16 

1 2611 

1 

TCF 

C0MFAIL3 

(2  ) 

0115 

REF 

2 

LAST 

726 

36,2117 

1 3061 

1 

TCF 

GOCUTOF  F 

(3) 

0116 

REF 

38 

LAST 

727 

36,2120 

1 5263 

1 

TCF 

T ASKOVER 

(4) 

0117 

36,2  121 

12  122 

0 

NOOP 

(5) 

0118 

36,2122 

12  123 

1 

NOOP 

(6) 

0119 

36,2123 

12  124 

0 

NOOP 

(7) 

0120 

36,2 124 

12  125 

1 

NOOP 

012  1 

REF 

3 

LAST 

727 

36,2125 

1 2402 

1 

TCF 

0 ISPCHNG 

111) 

0122 

REF 

5 

LAST 

727 

36,2126 

1 2562 

0 

TCF 

W A I TAB  I T 

(12) 

0123 
RO  12  6 

REF 

1 

36,2127 

1 2533 

1 

TCF 

ABRTIGN 

( 13) 

RO  12  7 

* * * * * * * * * * * * * * * * * * * * # sic  **  * # **  * * * * * * * **  * * * 

RO  12  8 

GENERAL 

PURPOSE 

IGNITION  ROUTINES 

R 0 12  9 

**************************************** 

0130 

RFF 

31 

LAST 

713 

36,2130 

0 5355 

1 

BURNBABY 

TC 

PHASCHNG 

GROUP  4 RESTARTS  HFRF 

0131 

36,2131 

04C24 

0 

OCT 

04024 

0132 

REF 

133 

LAST 

719 

36, 2132 

3 4 746 

0 

CAF 

ZERO 

EXTIRPATE  JUNK  LF FT  IN  DVTOTAL 

0133 

REF 

5 

LAST 

327 

36,2133 

55*  507 

0 

TS 

DVTOTAL 

0134 

REF 

6 

LAST 

728 

36,2134 

55' 510 

0 

TS 

OVTOTAL  +1 

0135 

REF 

16  5 

LAST 

721 

36,2135 

0 4607 

1 

TC 

BANKCALL 

P40AUT0  MUST  BE  BANKCALLFD  EVFN  FROM  ITS 

0136 

REF 

1 

36,2136 

73710 

0 

CADR 

P40AUT0 

OWN  BANK  TO  SFT  UP  RETURN  PROPERLY 

0141 

36,2137 

0 CC 06 

1 

B*RNB*B* 

EXTEND 

0142 

REF 

23 

LAST 

712 

36,2140 

3 1442 

1 

DC  A 

TIG 

STORE  NOMINAL  TIG  FOR  OBLATENESS  COMP. 

0143 

REF 

2 

LAST 

154 

36,2141 

53' 512 

1 

DXCH 

GOBLTIME 

AND  FOR  P70  OR  P71. 

0173 

36,2142 

0 0004 

0 

INHINT 

0174 

REF 

24 

LAST 

575 

36 ,2143 

0 4665 

0 

TC 

I BNKC ALL 

0175 

REF 

1 

36,2144 

75565 

0 

CADR 

ENGIN0F3 

0176 

36,2145 

0 0003 

1 

RELINT 

0179 

REF 

6 

LAST 

727 

36,2146 

51 1 455 

1 

INDEX 

WHICH 

0180 

36,2147 

0 0005 

1 

TC 

5 

0182 

REF 

2 

LAST 

726 

36,2150 

P42SP0T 

= 

P40SP0T 

(5) 

0183 

REF 

3 

LAST 

728 

36,2150 

P12SP0T 

= 

P40SP0T 

(5) 

0185 

REF 

2 

LAST 

727 

36,2153 

P63SP0T 

= 

P41 SPOT 

(5)  IN  P63  CLOKTASK  ALREADY  GOING 

0186 

REF 

1 

36,2150 

4 4753 

0 

P40SP0T 

cs 

CNTDNDE  X 

(5) 

0136  1 

REF 

1 66 

LAST 

728 

36,2151 

0 4607 

l 

TC 

BANKCALL 

MUST  BE  BANKCALLFD  FOR  GENERALIZED 
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01862 

REF 

1 

36,2152 

74663 

1 

CADR 

STCL0K2 

0137 

REF 

98 

LAST 

720 

36,2153 

0 6C60 

1 

P41SP0T 

TC 

I NTPRET 

0187  L 

36,2154 

45345 

1 

DLOAD 

DSU 

0188 

REF 

24 

LAST 

728 

36,2155 

03442 

0 

TIG 

0189 

REF 

1 

36, 2156 

35142 

0 

D29. 9SEC 

0189  1 

REF 

4C 

LAST 

717 

36,2157 

34041 

0 

STC  ALL 

TDEC1 

01892 

REF 

1 

36,2160 

61063 

0 

I NITCDUW 

0190 

36,2161 

45014 

0 

BOFF 

CALL 

0191 

REF 

3 

LAST 

709 

36,2162 

03347 

1 

MUNFL AG 

0192 

REF 

1 

36,2163 

74202 

1 

GOMIDAV 

0193 

REF 

5 

LAST 

707 

36,2  164 

27101 

1 

CSMPREC 

0194 

36,2165 

64375 

1 

VLOAD 

M XV 

0195 

REF 

12 

LAST 

713 

36, 2166 

00C25 

0 

VATT1 

0196 

REF 

22 

LAST 

710 

36,2167 

01732 

0 

REFSMMAT 

0197 

36,2170 

77762 

1 

VSR  1 

0198 

REF 

2 

LAST 

709 

36,2171 

25724 

1 

STOVL 

V ( CSM ) 

0199 

REF 

9 

LAST 

713 

36,2172 

000  L 7 

1 

R ATT  1 

0200 

36,2173 

64312 

0 

VSL4 

M XV 

0201 

REF 

23 

LAST 

729 

36,2174 

01732 

0 

REFSMMAT 

0202 

REF 

2 

LAST 

709 

36,2175 

35  716 

1 

STC ALL 

R (CSM ) 

0203 

REF 

1 

36, 2176 

67C37 

1 

MUNGRAV 

0204 

RFF 

2 

LAST 

124 

36,2177 

16310 

1 

STOOL 

G(CSM) 

02042 

REF 

13 

LAST 

713 

36,2200 

00  C 1 5 

0 

TAT 

02044 
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CSM  POSITION  - M*2 ( 24 ) 

CSM  GRAVITY  VEC.  - M/CS*2(7> 
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NOW. 

REF 

5 

LAST 

6 34 

36,2233 

55' 162 

1 

TS 
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ENOOF JOB 

REF 

1 

36,2242 

3 3751 

l 

T IG-35 

CAF 

5 SEC 

REF 

10 

LAST 

535 

36,2243 

0 5175 

L 

TC 

TWIDDLE 
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RESTORE  DISPLAY. 

REGODSP  DOES  A TCF  ENDOFJOB 


******* 


START  UP  CLOKTASK  AGAIN 

PICK  UP  APPROPRIATE  ULLAGE-ON  TIME 

DON'T  SET  UP  ULLAGE  IF  DT  IS  NEG  OR  ZERO 
SAVE  DELTA-T  FOR  RESTART 

RESTART  PROTECT  ULLGTASK  (1.3SP0T) 


(1)  FOR  P42  ENSURE  APSFLAG  IS  SET.  IF  IT 
WASN'T  SET,  DAP  WILL  BE  INITIALIZED  Tn 
ASCENT  VALUES  BY  1/ACCS  IN  2 SECONDS. 
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LOAD  AVEGFXIT  WITH  APPROPRIATE  2C ADR 


4.2SP0T  PF  ST  ARTS  IMMEDIATELY  AT  RED04.2 
AND  ALSO  AT  TIG-5  AT  THE  CORRECT  TIME. 


SET  TBASE4  FOR  TIG-5  PESTART 
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6 4730 

1 
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36,2442 
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1 
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REF 
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LAST 
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0 

WR  ITE 

DSALMOUT 

0352 
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REF 
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REF 
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RESTART  TIG-0  (4.7SP0T) 


*$**£$* 


SET  IGNFLAG  SINCE  TIG  HAS  ARRIVED 


IN  P63  CASE,  THROTTLE-UP  IS  ZOOMTIME 
AFTER  NOMINAL  IGNITION,  NOT  ACTUAL 


CHECK  ASTNFLAG:  HAS  ASTRONAUT  RFSPONDED 

TO  OUR  ENGINE  ENABLE  REQUEST? 


INSURE  ENGONFLG  IS  SET. 


TURN  ON  THE  ENGINF. 


SET  T EVENT  FOR  DOWNLINK 


MAKE  SURE  THAT  DAP  IS  NOT  IN  MINIMUM 
IMPULSE  MODE  IN  P 12 , P AO ,P 42 , AND  P63 
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ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L 

BURN 

, EABY,  BURN  — 

MASTER  IGNITION  ' 

ROUTINE 

0355 

36,2452 

0 0006 

l 

EXTEND 

035  6 

REF 

4 

LAST 

252 

36,2453 

3 1517 

0 

DC  A 

TGO 

0357 

REF 

27 

LAST 

729 

36,2454 

53 '442 

0 

DXCH 

TIG 

035  8 

36,2455 

0 0006 

I 

EXTEND 

0359 

REF 

18 

1 AST 

733 

36,2456 

3 0025 

0 

DC  A 

T I ME2 

0360 

REF 

23 

LAST 

734 

36,2457 

21' 442 

0 

DAS 

TIG 

03601 

REF 

l 

36,2460 

4 4 733 

0 

CS 

FLUNDBI T 

03602 

REF 

10 

LAST 

707 

36,246  1 

7 0104 

0 

MASK 

FLAGWRD8 

03603 

REF 

11 

LAST 

734 

36,2462 

54  104 

0 

TS 

FLAGWRD8 

0361 

REF 

13 

LAST 

733 

36,2463 

51 ' 455 

1 

INDEX 

WHICH 

0362 

36,2464 

0 0013 

0 

TC 

13 

0363 

36,2465 

0 0006 

1 

P63I GN 

EXTEND 

0364 

REF 

1 

36,2466 

3 3136 

0 

DC  A 

LUNLANAO 

0366 

REF 

1 

36,2467 

53 ' 252 

1 

DXCH 

AVGEX IT 

0366  1 

REF 

15 

LAST 

684 

36,2470 

3 0005 

1 

CA 

Z 

03662 

REF 

9 

LAST 

733 

36,2471 

55 • 162 

l 

TS 

DISPDEX 

0370 

REF 

2 

LAST 

265 

36,2472 

4 0105 

1 

CS 

FLAGWRD9 

0371 

REF 

l 

36, 2473 

7 4734 

1 

MASK 

LETABRI T 

0372 

REF 

3 

LAST 

734 

36,2474 

26  105 

1 

ADS 

FLAGWRD9 

03754 

36,2475 

0 0006 

1 

EXTEND 

03755 

REF 

19 

LAST 

734 

36,2476 

3 0025 

0 

DC  A 

T I ME  2 

03756 

RFF 

29 

LAST 

734 

36,2477 

53*442 

0 

DXCH 

T IG 

0376 

REF 

134 

LAST 

728 

36,2500 

3 4 746 

0 

CAF 

ZERO 

0377 

REF 

1 

36,2501 

55*346 

0 

TS 

WCHPHASE 

0377  1 

REF 

2 

LAST 

156 

36,2502 

55' 621 

1 

TS 

WCHPHOLO 

0378 

REF 

46 

LAST 

731 

36, 2503 

3 4743 

0 

CA 

TWO 

0379 

REF 

3 

LAST 

156 

36,2504 

55*623 

0 

TS 

FLPASSO 

0380 

REF 

2 

LAST 

727 

36,2505 

l 2540 

0 

TC  F 

P42IGN 

0381 

REF 

22 

LAST 

733 

36,2506 

4 0101 

0 

P40IGN 

CS 

FLAGWR05 

0382 

REF 

1 

36,2507 

7 4 731 

1 

MASK 

NOTHRBI T 

0383 

36,2510 

0 0006 

1 

EXTEND 

0384 

REF 

3 

LAST 

734 

36,2511 

1 2540 

0 

RZF 

P42IGN 

0385 

REF 

3 

LAST 

733 

36,2512 

3 1422 

1 

CA 

ZOOMTIME 

0386 

REF 

28 

LAST 

733 

36,2513 

0 5205 

0 

TC 

WAITLIST 

REF 

22 

LAST 

733 

E 7 , 1 5 1 5 

EBANK= 

DVCNTR 

03875 

REF 

3 

LAST 

733 

36,2514 

03670 

0 

2C  ADR 

ZOOM 

03875 

36,2515 

72067 

0 

0388 

REF 

5 

LAST 

733 

36,2516 

0 5331 

0 

P631GNI 

TC 

2PHSCHNG 

0389 

36, 2517 

40  033 

0 

OCT 

40033 

0390 

36,2520 

05014 

l 

OCT 

05014 

0391 

36,2521 

7 7 777 

0 

OCT 

77777 
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USER' S PAGE  NO.  9 E7  S3 

UPDATE  TIG  USING  TGO  FROM  S40.  13 


PERMIT  GUIDANCE  LOOP  DISPLAYS 


(13)  INITIATE  BURN  DISPLAYS 

ASSASSINATE  CLOKTASK 
S FT  FLAG  FOR  P70-P71 

INITIALIZE  TIG  FOR  P70  AND  P71. 

INITIALIZE  WCHPHASE  AND  FLPASSO 
ALSO  WHCPHOLD 


( 13) 


3.3SP0T  FOR  ZOOM  RESTART. 

TYPE  C RESTARTS  HERE  IMMEDIATELY 
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0392 

REF 

4 

LAST 

734 

36,2522 

1 2540 

0 

TCF 

P42IGN 

0398 

REF 

6 

LAST 

536 

36,2523 

3 5006 

1 

P12IGN 

CAF 

EBANK6 

0 39  8 C 5 

REF 

23 

LAST 

716 

36,2524 

54  003 

0 

TS 

EBANK 

0398  1 

REF 

8 

LAST 

234 

E6, 1536 

EBANK= 

AOSQ 

039814 

REF 

1 

36,2525 

3 1412 

1 

CA 

IGNAOSQ 

039815 

REF 

9 

LAST 

735 

36,2526 

55*536 

1 

TS 

AOSQ 

03982 

REF 

1 

36,2527 

3 1413 

0 

CA 

IGNAOSR 

039825 

REF 

1 

36,2530 

55 ' 540 

0 

TS 

A OSR 

03983 

REF 

6 

LAST 

681 

36,2531 

3 5007 

0 

CAF 

EBANK7 

039835 

REF 

29 

LAST 

73  5 

36,2532 

54  003 

0 

TS 

EBANK 

03984 

REF 

23 

LAST 

734 

E7, 1515 

EBANK= 

DVCNTR 

0399 

REF 

16 

LAST 

734 

36,2533 

3 0005 

1 

A BRT I GN 

CA 

Z 

0400 

REF 

10 

LAST 

734 

36,2534 

55' 162 

1 

TS 

DISPDEX 

0400  1 

36,2535 

0 0006 

1 

EXTEND 

040  0 2 

REF 

1 

36,2536 

3 3140 

1 

DC  A 

ATMAGADR 

040  0 3 

REF 

2 

LAST 

734 

36,2537 

53' 252 

1 

DXCH 

AVGEXIT 

040  5 

REF 

1 

36,2540 

4 4735 

0 

P42IGN  f 

'cs 

DR  I Ft  BIT* 

040  9 

REF 

16 

LAST 

733 

36,2541 

7 0111 

1 

b 

1 MASK 

DAPBOOLS 

0410 

REF 

17 

LAST 

735 

36,2542 

54  111 

1 

t 

.TS 

DAPBOOLS 

041  1 

REF 

1 

36,2543 

3 4734 

0 

CAF 

I MPULBI T 

0412 

REF 

12 

LAST 

634 

36,2544 

7 0076 

1 

MASK 

FLAGWRD2 

0413 

REF 

2 C 7 

LAST 

733 

36,2545 

10  000 

0 

CCS 

A 

0414 

REF 

1 

36,2546 

1 3523 

1 

TCF 

I MPLBURN 

0415 

REF 

61 

LAST 

732 

36, 2547 

0 5520 

0 

D VMONCON 

TC 

DOWNFLAG 

0416 

REF 

2 

LAST 

732 

36,2550 

00153 

0 

ADRES 

IGNFLAG 

041  7 

REF 

62 

LAST 

735 

36,255  1 

0 5520 

0 

TC 

DOWNFLAG 

0418 

REF 

2 

LAST 

732 

36,2552 

00154 

1 

ADRES 

A STNFLAG 

0419 

REF 

63 

LAST 

735 

36,2553 

0 5520 

0 

TC 

DOWNFLAG 

0420 

REF 

1 

36,2554 

OC  161 

1 

ADR  F S 

I DLEFLAG 

042  l 

REF 

37 

LAST 

733 

36,2555 

0 5355 

1 

TC 

PHASCHNG 

042  2 

36,2556 

4C054 

1 

OCT 

40054 

0423 

REF 

11 

LAST 

706 

36,2557 

0 5223 

I 

TC 

F IXDELAY 

0424 

36,2560 

0C062 

0 

DEC 

50 

0425 

REF 

1 

36,2561 

0 2652 

1 

ULLAGOFF 

TC 

NOULLAGE 

042  6 

36,2562 

0 0006 

1 

WAITABI T 

EXTEND 

042  7 

REF 

12 

LAST 

732 

36,2563 

3 4 746 

0 

DC  A 

NEGO 

042  8 

REF 

4 

LAST 

731 

36,2564 

52  760 

1 

DXCH 

-PHASE4 

0429 

REF 

45 

LAST 

733 

36, 2565 

l 5263 

1 

TCF 

TASKOVER 
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INITIALIZE  DAP  BIAS  ACCELERATION 
ESTIMATES  AT  P12  IGNITION. 


(13)  KILL  CLOKTASK 

CONNECT  ASCENT  GYIDANCE  TO  SERVICER. 

ENSURE  THAT  POWERED-FLIGHT  SWITCHING 
CURVES  ARE  USED. 

EXAMINE  IMPULSF  SWITCH 


CONNECT  DV  MON 


TURN  ULLAGE  OFF  HALF  A SECOND  AFTER 
LIGHT  UP. 


KILL  GROUP  4 
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042  9 2 

REF 

43 

LAST 

732 

36,2566 

0 4626 

1 

TIGTASK 

TC 

POSTJUMP  112) 

042  9 3 

REF 

l 

36,2567 

73657 

l 

CADR 

T IGTASK1 

R0430 

04302 

31,2144 

BANK 

31 

04303 

REF 

1 

35,2000 

SETLOC 

P40S3 

0430  4 

35,3657 

BANK 

04305 

REF 

1 

COUNT* 

$ J/P40 

043  1 

RFF 

6 

LAST 

495 

35,3657 

3 5017 

1 

T IGTASK1 

CAF 

PR  1016 

043  2 

REF 

13 

LAST 

730 

35,3660 

0 5063 

1 

TC 

NOVAC 

0433 

REF 

8 

LAST 

326 

E 7 , 1462 

EBANK= 

T RKMKCNT 

0434 

REF 

1 

35,3661 

03240 

1 

2C  ADR 

T IGNOW 

0434 

REF 

l 

35,3662 

74067 

0 

04342 

REF 

64 

LAST 

73  5 

35 , 3663 

0 5 520 

0 

TC 

DOWNFLAG 

0434  4 

REF 

3 

LAST 

297 

35,3664 

00303 

1 

ADRES 

PULSEFLG 

0435 

REF 

38 

LAST 

735 

35,3665 

0 5355 

1 

TC 

P HASCHNG 

0436 

35,3666 

00006 

l 

OCT 

6 KILL  GROUP  6. 

0437 

REF 

46 

LAST 

735 

35,3667 

1 5263 

1 

TC  F 

TASKOVER 

R0438 

*** 

0439 

REF 

3 

LAST 

733 

35,3670 

0 5323 

0 

ZOOM 

TC 

CHECKMM 

P40  OR  P63? 

0440 

35,3671 

00077 

1 

DEC 

63 

0441 

REF 

l 

35,3672 

l 3700 

l 

TC  F 

P40Z00M 

0442 

REF 

45 

LAST 

711 

35,3673 

0 5506 

1 

P63ZOOM 

TC 

UPFLAG 

INDICATF  THAT  THROTTLE-UP  HAS  COME 

0443 

REF 

2 

LAST 

732 

35,3674 

00122 

0 

ADRES 

ZOOMFLAG 

044  5 

REF 

25 

LAST 

728 

35,3675 

0 4665 

0 

TC 

I BNKC ALL 

0446 

KEF 

l 

35,3676 

62334 

1 

CADR 

FLATOUT 

044  6 2 

REF 

1 

35,3677 

1 3705 

1 

TC  F 

P40Z00M A 

04463 

REF 

26 

LAST 

733 

35,3700 

3 4730 

1 

P40Z00M 

CAF 

B I T 1 3 

044  6 4 

REF 

2 

LAST 

222 

35,3701 

54  055 

0 

TS 

THRUST 

044  6 5 

REF 

3 1 

LAST 

716 

35,3702 

3 4741 

l 

CAF 

B IT4 

04466 

35,3703 

0 0006 

1 

EXTEND 

044  6 7 

REF 

8 

LAST 

552 

35,3704 

05  014 

1 

WOR 

CHAN  14 

044  7 

REF 

39 

LAST 

736 

35,3705 

0 5355 

1 

P40ZOOMA 

TC 

PHASCHNG 

044  8 

35,3706 

00003 

1 

OCT 

3 

044  9 

REF 

47 

LAST 

736 

35,3707 

l 5263 

l 

TC  F 

TASKOVER 

04493 

36,2570 

BANK 

36 
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044  94 

REF 

4 

LAST 

726 

36,2000 

SETLOC 

P40S 

0449  5 

36,2570 

BANK 

0449  6 

REF 

4 

LAST 

726  TO 

736: 

356  376* 

COUNT* 

$ $/ P40 

R0450 

*******: 

**  $***  ^fc******  *$# 

0451 

REF 

46 

LAST 

736 

36,2570 

0 5506 

1 

COMFAIL 

TC 

UPFLAG 

0452 

REF 

2 

LAST 

735 

36,2571 

0C161 

1 

ADRES 

I DL  EE  LAG 

0453 

REF 

47 

LAST 

737 

36, 2572 

0 5 506 

1 

TC 

UPFLAG 

0454 

REF 

1 

36,2573 

00175 

1 

ADRES 

FLUNDISP 

045  5 

REF 

9 

LAST 

580 

36,2574 

3 4742 

1 

CAF 

FOUR 

0456 

REF 

24 

LAST 

735 

36,2575 

55' 515 

0 

TS 

DVCNTR 

045  7 

REF 

1 

36, 2576 

10  764 

0 

CCS 

PHASE6 

045  B 

36,2577 

1 2602 

0 

TCF 

+ 3 

0460 

REF 

189 

LAST 

73  1 

36, 2600 

0 4607 

1 

TC 

BANKCALL 

046  1 

REF 

1 

36,260  1 

74662 

0 

CADR 

STCL0K1 

0462 

REF 

1 

36, 2602 

4 4756 

0 

+ 3 

CS 

VB97DEX 

0463 

REF 

11 

LAST 

735 

36, 2603 

55' 162 

1 

TS 

DISPDEX 

0464 

REF 

40 

LAST 

736 

36, 2604 

0 5355 

1 

TC 

PHASCHNG 

046  5 

36,2605 

00004 

0 

OCT 

00004 

04655 

REF 

1 C 5 

LAST 

730 

36, 2606 

1 5146 

0 

TCF 

ENDOFJOB 

0466 

REF 

14 

LAST 

734 

36, 2607 

51*455 

1 

C0MFAIL1 

INDEX 

WHICH 

046  7 

36,2610 

0 0002 

0 

TC 

2 

046  8 

REF 

17 

LAST 

735 

36,2611 

3 0005 

1 

CCMFAIL3 

CA 

Z 

0469 

36,2612 

1 2614 

1 

TCF 

+ 2 

0470 

REF 

4 

LAST 

731 

36,2613 

4 4753 

0 

COME  A I L4 

CS 

CNTONDE  X 

0471 

REF 

12 

LAST 

737 

36,2614 

55' 162 

1 

TS 

DISPDEX 

0472 

REF 

65 

LAST 

736 

36,2615 

0 5520 

0 

TC 

DOWNFLAG 

0473 

REF 

3 

LAST 

737 

36,2616 

00161 

1 

ADRES 

IDLEFLAG 

0474 

REF 

66 

LAST 

737 

36, 2617 

0 5520 

0 

TC 

DOWNFLAG 

0475 

REF 

2 

LAST 

737 

36,2620 

OC  175 

1 

ADRES 

FLUNDISP 

0476 

REF 

106 

LAST 

737 

36, 2621 

1 5146 

0 

TCF 

ENDOFJOB 

0477 

REF 

41 

LAST 

737 

36,2622 

0 5355 

1 

C0MFAIL2  TC 

PHASCHNG 

0478 

36,2623 

00003 

1 

OCT 

00003 

0479 

36, 2624 

0 0 C 04 

0 

INHINT 

0480 

REF 

11 

LAST 

613 

36,2625 

0 6050 

1 

TC 

KILLTASK 

0481 

REF 

4 

LAST 

734 

36,2626 

73670 

1 

CADR 

ZOOM 

0482 

REF 

26 

LAST 

736 

36,2627 

0 4665 

0 

TC 

I BNKCALL 

043  3 

REF 

1 

36, 2630 

75562 

1 

CAD* 

ENGIN0F4 

04832 

REF 

48 

LAST 

73  7 

36, 2631 

0 5506 

1 

^•^TC 

04834 

REF 

1 

36,2632 

0 C 3 1 2 

1 

ADRES 

DR  T F T HP  1— 

0484 

REF 

1 

36,2633 

0 2644 

0 

"T  NVFLAG 

0485 

REF 

1 

36,2634 

0C310 

0 

ADRES 

AORBTFLG 

(15) 

SET  FLAG  TO  SUPPRESS  CONFLICTING  DISPLAY 

RESET  OV MON 

CLOCKTASK  ACTIVE? 

YES 

OTHERWISE,  START  IT  UP 


TURN  OFF  GROUP  A. 


(15)  KILL  CLOKTASK  USING  Z 


RECONNECT  DV  MONITOR 

PERMIT  GUIOANCE  LOOP  DISPLAYS 


KILL  ZOOM  RESTART  PROTECTION 

KTLL  ZOOM,  IN  CASE  IT'S  STILL  TO  COME 

COMMAND  ENGINE  OFF 

SET  THE  DRIFT  BIT  FOR  THE  DAP. 


USE  OTHER  RCS  SYSTFM 


FLY 
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L 

BURN 

, BABY  , BURN  — 

MASTER  IGNITION  1 

TOUT  I NE 

USER'S  PAGE  NO. 

13 

F7  S3 

0486 

REF 

49 

LAST 

737 

36,2635 

0 5506 

1 

TC 

UPFLAG 

TURN  ON  ULLAGE 

048  7 

REF 

2 

LAST 

236 

36,2636 

0C314 

1 

ADRES 

U LLAGFLG 

0488 

REF 

36 

LAST 

718 

36,2637 

3 4 744 

1 

CAF 

B I T 1 

0439 

36,2640 

0 CC04 

0 

INHINT 

0490 

REF 

15 

LAST 

732 

36,2641 

0 5175 

1 

TC 

TWIDDLE 

0491 

REF 

4 

LAST 

731 

36,2642 

02354 

1 

AORES 

T IG-5 

0492 

REF 

107 

LAST 

73  7 

36,2643 

1 5146 

0 

TCF 

ENDOF JOB 

R0493 

❖ * *** 

R0494 

SUBROUTINES  OF 

THE  IGNITION  ROUTINE 

R049  5 

******  ***  ***********  * ****  ***  **  * **#  **# 

0496 

REF 

178 

LAST 

686 

36,2644 

3 

0002 

0 INVFLAG 

CA 

0 

0497 

REF 

1 

36,2645 

0 

5524 

1 

TC 

DEBIT 

049  8 

36 , 2 646 

4 

ocoo 

0 

COM 

0495 

36,2647 

0 

0006 

1 

EXTEND 

0500 

REF 

1 1 

LAST 

574 

36,2650 

C6 

1 001 

0 

RXOR 

LCHAN 

0501 

REF 

1 

36,2651 

1 

5513 

1 

TCF 

COMFLAG 

R0502 

* ****  * ***  ********  * 

0503 

REF 

1 

36,2652 

4 4737  1 

NOULLAGE  CS 

ULLAGER  MUST  BE  CALLED  IN  A TASK  OR  UNDER  INHINT 

0504 

REF 

18 

LAST 

735 

36, 2653 

7 0111  1 

MASK 

DAPBOOLS 

0505 

REF 

19 

LAST 

738 

36,2654 

54  111  1 

TS 

DAPBOOLS 

0 50  6 

REF 

179 

LAST 

738 

36,2655 

0 0002  0 

TC 

0 

R0507 

0508 

REF 

20 

LAST 

738 

36, 2656 

4 

*********  ***  **************************** 

Oil!  L ONULLAGE  CS  DAPBOOLS  TURN  ON  ULLAGE. 

MUST  BE  CALLED  IN 

0509 

REF 

2 

LAST 

738 

36,2657 

7 

4737 

1 

MASK 

ULLAGER  A TASK  OR  WHILE 

INHINTED. 

0510 

REF 

21 

LAST 

73  8 

36,2660 

26 

111 

1 

ADS 

DAPBOOLS 

051  1 

REF 

180 

LAST 

738 

36,2661 

0 

0002 

0 

TC 

Q 

R0512 

***************** 

:**************** 

* ****** 

0513 

REF 

135 

LAST 

734 

36,2662 

3 4 746 

0 

STCL0K1 

CA 

ZERO 

THIS  ROUTINE  STARTS  THE  COUNT-DOWN 

0514 

REF 

13 

LAST 

73  7 

36,2663 

55' 162 

1 

STCL0K2 

TS 

D I SPDEX 

(CLOKTASK  AND  CLOKJOB).  SETTING 

0515 

REF 

9 

LAST 

592 

36,2664 

0 4636 

0 

STCL0K3 

TC 

MAKECADR 

SETTING  DISPDEX  POSITIVE  KILLS  IT. 

0516 

REF 

3 

LAST 

73  1 

36,2665 

55*060 

1 

TS 

TBASE4 

RETURN  SAVE  (NOT  FOR  RESTARTS) 

0517 

36,2666 

0 0006 

1 

EXTEND 

051  8 

REF 

30 

LAST 

73  4 

36,2667 

3 1442 

1 

DC  A 

TIG 

0519 

REF 

271 

LAST 

72  9 

36,2670 

52  155 

1 

DXCH 

MPAC 

0520 

36,2671 

0 0006 

1 

EXTEND 

052  1 

REF 

20 

LAST 

734 

36,2672 

4 0025 

1 

DCS 

T I ME  2 

0522 

REF 

2 72 

LAST 

738 

36,2673 

20  155 

1 

DAS 

MPAC 

HAVE  TIG  - TIME2,  UNDOUBTEDLY  A + NUMBER 

0523 

REF 

7 

LAST 

449 

36,2674 

0 7300 

0 

TC 

TPAGREE 

POSIT  I VF , SINCE  WE  PASSED  THE 

GAP: 
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0524 

REF 

11 

LAST 

72  1 

36,2675 

3 4770 

0 

CAF 

1 SEC 

0525 

REF 

181 

LAST 

738 

36,2676 

54  002 

1 

TS 

Q 

0526 

REF 

273 

LAST 

738 

36,2677 

52  155 

l 

DXCH 

MPAC 

052  7 

REF 

10 

LAST 

577 

36,2700 

7 4337 

0 

MASK 

L0W5 

0528 

36,2701 

0 0006 

l 

EXTEND 

0529 

REF 

18  2 

LAST 

739 

36,2702 

10  002 

1 

DV 

Q 

0530 

REF 

99 

LAST 

731 

36,2703 

3 0001 

0 

CA 

L 

0531 

REF 

47 

LAST 

734 

36,2704 

6 4743 

0 

AD 

TWO 

0532 

36,2705 

0 0004 

0 

INHINT 

0533 

REF 

16 

LAST 

738 

36,2706 

0 5175 

1 

TC 

TWIDDLE 

0534 

REF 

3 

LAST 

656 

36, 2707 

02716 

0 

ADRES 

CLOKTASK 

0535 

REF 

6 

LAST 

734 

36,2710 

0 5331 

0 

TC 

2PHSCHNG 

0536 

36,2111 

40C36 

0 

OCT 

40036 

0537 

36, 2712 

05024 

1 

OCT 

05024 

0538 

36,2713 

13000 

0 

OCT 

13000 

0539 

REF 

4 

LAST 

738 

36,2714 

3 1060 

0 

CA 

TBASE4 

0540 

REF 

12 

LAST 

593 

36,2715 

0 4631 

1 

TC 

BANK JUMP 

0541 

REF 

13 

LAST 

731 

36,2716 

4 0025 

1 

CLOKTASK  CS 

T I ME  1 

0 542 

REF 

1 

36,2717 

55*064 

0 

TS 

TBASE6 

0543 

REF 

14 

LAST 

738 

36,2720 

11' 162 

1 

CCS 

D ISPDEX 

0544 

REF 

1 

36,2721 

1 2 73  2 

1 

TCF 

KILLCLOK 

054  5 

36,2722 

12  723 

1 

NOOP 

0546 

REF 

4 

LAST 

522 

36,2723 

3 7736 

1 

CAF 

P R 102  7 

0547 

REF 

19 

LAST 

736 

36, 2724 

0 5063 

1 

TC 

NOVAC 

0548 

REF 

21 

LAST 

732 

E7 , 1453 

EBANK= 

TTOGO 

0549 

REF 

1 

36,2725 

02736 

L 

2C  ADR 

CLOKJOB 

0549 

REF 

1 

36,2726 

74067 

0 

0550 

REF 

12 

LAST 

735 

36,2727 

0 5223 

1 

TC 

F IXDELAY 

0551 

36,2730 

00144 

0 

DEC 

100 

0552 

REF 

4 

LAST 

739 

36,2731 

1 2716 

1 

TCF 

CLOKTASK 

0553 

36,2732 

0 

CC06 

1 

KILLCLOK  EXTEND 

0554 

REF 

13 

LAST 

735 

36, 2733 

3 

4 746 

0 

DC  A 

NEGO 

0555 

REF 

2 

LAST 

225 

36,2734 

52 

764 

0 

DXCH 

-PHASE6 

0556 

REF 

48 

LAST 

736 

36, 2735 

1 

5263 

1 

TCF 

TASKOVER 

055  7 

36,2736 

0 0006 

1 

CLOKJCB  EXTEND 

0558 

REF 

31 

LAST 

738 

36,2737 

4 1442 

0 

DCS 

T IG 

0559 

REF 

22 

LAST 

739 

36,2740 

53 ' 454 

1 

DXCH 

TTOGO 

0560 

36,2741 

0 0006 

1 

EXTEND 

0561 

REF 

21 

LAST 

738 

36,2742 

3 0C25 

0 

DCA 

T I ME  2 

0562 

REF 

23 

LAST 

739 

36,2743 

21 '454 

1 

DAS 

TTOGO 
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6.3SP0T  FOR  CLOKTASK 


SET  TBASE6  FOR  GROUP  6 RESTART 


WAIT  A SECOND  BEFORE  STARTING  OVER 


KILL  RESTART 
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ASSEMBLE 

REVISION  210 
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L 

BURN 

, BABY,  BURN  — 

MASTER  IGNITION 

ROUTINE 

USFR*  S PAGE  NO.  15  E7  S3 

0563 

36,2744 

0 0004 

0 

INHINT 

0564 

REF 

15 

LAST 

739 

36,2745 

11' 162 

l 

CCS 

DISPDEX 

IF  DISPDEX  HAS  BEEN  SET  POSITIVE  BY  A 

0565 

REF 

108 

LAST 

738 

36,27  46 

1 5146 

0 

TCF 

ENDOF JOB 

TASK  OR  A HIGHER  PRIORITY  JOB  SINCE  THE 

0566 

REF 

IC9 

LAST 

740 

36, 2747 

1 5146 

0 

TCF 

ENDOF JOB 

LAST  CLOKTASK,  AVOID  USING  IT  AS  AN 

0567 

36,2750 

4 0000 

0 

COM 

INDEX . 

0568 

36,2751 

0 0003 

1 

REL INT 

*****  niSPDEX  MUST  NEVER  BE  -0  ***** 

0569 

REF 

2C8 

LAST 

735 

36,2752 

50  000 

1 

INDEX 

A 

0570 

REF 

1 

36,2753 

1 3010 

1 

TCF 

DISPNOT  -1 

( -1  DUE  TO  EFFECT  OF  CCS  ) 

0571 

REF 

1 

4756 

VB97DEX 

= 

OCT35 

NEGATIVE  OF  THIS  IS  PROPER  FOR  DISPDEX 

0571  1 

REF 

136 

LAST 

738 

36,2754 

4 4746 

1 

-35 

cs 

ZERO 

INDICATE  VERB  97  PASTE 

05712 

REF 

1 

36,2755 

55 ' 066 

1 

TS 

NVW0RD1 

0572 

REF 

1 

36,2756 

3 0370 

0 

CA 

NVWORD  +2 

NVWROD+2  CONTAINS  V 06  G APPROPRIATE  NOUN 

0573 

REF 

190 

LAST 

737 

36,2757 

0 4607 

1 

TC 

BANKCALL 

0574 

REF 

1 

36,2760 

20466 

1 

CADR 

C LOCPLAY 

0575 

REF 

1 

36,2761 

l 3012 

0 

TCF 

STOPCLOK 

TERMINATE  CLOKTASK  ON  THF  WAY  TO  POOH 

0576 

RFF 

1 

36,2762 

1 2607 

0 

TCF 

COMFA IL 1 

0577 

REF 

1 

36,2  763 

1 2622 

1 

TCF 

C0MFAIL2 

A0583 

THIS  DISPLAY  IS  CALLED  VIA  ASTNCLOK 

0504 

REF 

1 

36,2764 

3 3145 

1 

-25 

CAF 

V06N61 

IT  IS  PRIMARILY  USED  BY  THE  CRFW  IN  P63 

0585 

REF 

191 

LAST 

740 

36,2765 

0 4607 

1 

TC 

BANKCALL 

TO  RESET  HIS  EVENT  TIMER  TO  AGREE  WITH 

0586 

REF 

l 

36,2766 

20452 

0 

CADR 

REFLASH 

TIG. 

0537 

REF 

2 

LAST 

740 

36,2767 

1 3012 

0 

TCF 

STOPCLOK 

0588 

REF 

l 

36,2770 

1 3027 

0 

TCF 

A STNRETN 

0589 

36,2771 

1 2764 

1 

TCF 

-5 

0590 

REF 

1 

4753 

CNTDNDEX 

= 

L0W4 

0CT17;  NEGATIVE  PROPER  FOR  DISPDEX 

0591 

REF 

15 

Last 

737 

36,2772 

51 '455 

l 

-17 

INDEX 

WHICH 

THIS  DISPLAY  COMES  UP  AT  ONE  SECOND 

0592 

36, 2 7 73 

3 0000 

1 

CA 

0 

INTERVALS.  IT  IS  NORMALLY  OPERATED 

0593 

REF 

192 

LAST 

740 

36,2774 

0 4607 

1 

TC 

BANKCALL 

BETWEEN  TIG-30  SECONDS  AND  TIG-5  SECONDS 

0594 

REF 

2 

LAST 

731 

36,2775 

2 0460 

1 

CADR 

REGOOSP 

REGODSP  DOES  ITS  OWN  TCF  ENDOF JOB 

059  5 

REF 

2 

LAST 

482 

4751 

VB99DEX 

= 

ELEVEN 

0CT13;  NEGATIVE  PROPFR  FOR  DISPDEX 

05955 

36,2776 

V99RECYC 

EQUALS 

05956 

REF 

18 

LAST 

573 

36,2776 

4 4 734 

l 

-13 

CS 

B I T9 

INDICATE  VERB  99  PASTE 

0595  7 

REF 

2 

LAST 

740 

36, 2777 

55' 066 

1 

TS 

N VW0RD1 

0596 

REF 

16 

LAST 

740 

36,3000 

5 l ' 455 

1 

INDEX 

WHICH 

THIS  IS  THE  "PLEASF  ENABLE  ENGINE" 

0597 

36,3001 

3 0000 

1 

CA 

0 

OISPLAY;  IT  IS  INITIATED  AT  TIG-5  SEC. 

059  8 

REF 

193 

LAST 

740 

36,3002 

0 4607 

1 

TC 

BANKCALL 

THE  DISPLAY  IS  A V99NXX,  WHERE  XX  IS  THE 

0599 

KEF 

2 

LAST 

740 

36,3003 

20466 

1 

CADR 

CLOCPLAY 

NOUN  THAT  HAD  PREVIOUSLY  BEEN  DISPLAYED 

0600 

REF 

3 

LAST 

740 

36,3004 

1 3012 

0 

TCF 

STOPCLOK 

TERMINATE  GOTOPOOH  TURNS  OFF  ULLAGE. 

0601 

REF 

1 

36,3005 

1 3040 

1 

TCF 

^PROCEED 

0602 

REF 

1 

36,3006 

1 3043 

1 

TCF 

* ENT  E R 

0606 

REF 

48 

LAST 

739 

4743 

BLANKOEX 

= 

TWO 

NEGATIVE  OF  THIS  IS  PROPER  FOR  DISPDEX 

GAP: 
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060  7 

REF 

194 

LAST 

740 

36,3007 

0 4607 

1 

-2  TC 

BANKCALL 

0608 

REF 

3 

LAST 

730 

36,3010 

20451 

0 

CADR 

CLEANDSP 

0609 

REF 

110 

LAST 

740 

36,3011 

l 5146 

0 

DISPNOT  TCF 

ENDOF JOB 

0610 

REF 

1 

36,3012 

0 3014 

1 

STOPCLOK  TC 

NULLCLOK 

061  1 

REF 

19 

LAST 

713 

36,3013 

1 6001 

1 

TCF 

GOTOPOOH 

0612 

36,3014 

0 0004 

0 

NULLCLOK  INHINT 

0613 

36,3015 

0 0006 

1 

EXTEND 

0614 

REE 

1 

36,3016 

23' 141 

1 

OXCH 

P40/RET 

0615 

REF 

2 

LAST 

735 

36,3017 

0 2652 

1 

TC 

NOULLAGE 

0616 

REF 

12 

LAST 

737 

36,3020 

0 6050 

1 

TC 

K ILLTASK 

061  7 

REF 

4 

LAST 

731 

36,3021 

74350 

1 

CADR 

ULLGTASK 

0618 

REF 

42 

LAST 

737 

36, 3022 

0 5 3 55 

1 

TC 

P HASCHNG 

0619 

36,3023 

00001 

0 

OCT 

1 

062  0 

REF 

IB 

LAST 

737 

36,3024 

3 0005 

1 

CA 

Z 

0621 

REF 

16 

LAST 

740 

36,3025 

55 ' 162 

1 

TS 

DISPDEX 

062  2 

REF 

2 

LAST 

741 

36,3026 

0 1141 

1 

TC 

P40/RFT 

06222 

REF 

43 

LAST 

741 

36,3027 

0 5355 

1 

ASTNRETN  TC 

PHASCHNG 

06224 

36,3030 

04024 

0 

OCT 

04024 

0623 

REF 

137 

LAST 

740 

36,3031 

3 4 746 

0 

CAF 

ZERO 

0623  1 

REF 

17 

LAST 

741 

36,3032 

55' 162 

1 

TS 

DISPDEX 

062  3 2 

REF 

1 

36,3033 

3 5014 

1 

CAF 

PRI013 

0625 

REF 

28 

LAST 

732 

36,3034 

0 5 C 76 

0 

TC 

F INDVAC 

0626 

REF 

2 

LAST 

128 

E5, 1757 

EBANK= 

STARIND 

0627 

REF 

1 

36,3035 

03022 

1 

2C  ADR 

ASTNRET 

062  7 

REF 

1 

36,3036 

64065 

0 

0628 

REF 

111 

LAST 

741 

36,3037 

1 5 146 

0 

TCF 

ENDOF JOB 

0629 

REF 

50 

LAST 

73  8 

36,3040 

0 5506 

1 

* PROCEED  TC 

UPFLAG 

0630 

REF 

3 

LAST 

735 

36, 3041 

00154 

1 

ADRE  S 

A STNFLAG 

0631 

REF 

1 

36,3042 

1 3101 

0 

TCF 

I GNI  T E 

0632 

36,3043 

0 

0C04 

0 

* ENTER 

TNHINT 

063  3 

REF 

17 

LAST 

740 

36,3044 

51 '455 

1 

INDEX 

WHICH 

0634 

36,3045 

0 

0003 

1 

TC 

3 

0635 

REF 

2 

LAST 

222 

36 , 3046 

3 

4635 

0 

GOPOST 

CAF 

P R 101 2 

063  6 

REF 

29 

LAST 

741 

36,3047 

0 

5076 

0 

TC 

F INDVAC 

0637 

REF 

24 

LAST 

739 

E7 , 1453 

EB  ANK  = 

TTOGO 

0638 

REF 

2 

LAST 

252 

36,3050 

03222 

0 

2C  ADR 

POSTBURN 

063  8 

36,3051 

74067 

0 

06382 

36,3052 

C 

C004 

0 

INHINT 

06383 

REF 

27 

LAST 

737 

36,3053 

0 

4665 

0 

TC 

I BNKC ALL 
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IS 
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ANKED 

FOR 

35  TO 

INDI 

CATE 

THAT 

TING. 

STOP  CLOKTASK  £ TURN  OFF  ULLAGE  ON  THF 
WAY  TO  POO  (GOTOPOOH  RFLINTS) 


TURN  OFF  ULLAGE. . . 
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NOT  EVEN  IF  THERE'S  A RESTART. 

KILL  CLOKTASK 


STOP  DISPLAYING  BUT  KEEP  RUNNING. 
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BURN 

, BABY,  BURN  -- 

MASTER  IGNITION 

ROUTINE 

USER*  S PAGE 

NO.  17 

E 7 S3 

063  8 A 

REF 

2 

LAST 

24  l 

36,3054 

40205 

1 

CADR 

ALLCOAST 

063  9 

REF 

2 

LAST 

741 

36,3055 

0 3014 

I 

TC 

NULLCLOK 

0640 

REF 

44 

LAST 

741 

36,3056 

0 5355 

1 

TC 

PHASCHNG 

4.13  RESTART  FOR 

POSTBURN 

064  l 

36,3057 

00134 

1 

OCT 

00134 

064  2 

REF 

1 12 

LAST 

741 

36,3060 

1 5146 

0 

TCF 

ENDOF JOB 

064  3 

REF 

3 

LAST 

730 

36,3061 

3 5020 

0 

GOCUTOFF  CAF 

PRI017 

(3) 

0644 

REF 

30 

LAST 

741 

36,3062 

0 5076 

0 

TC 

F INDVAC 

0645 

REF 

5 

LAST 

734 

£7,1516 

EBANK= 

T GO 

0646 

REF 

1 

36,3063 

C3526 

0 

2CA0R 

CUTOFF 

0646 

REF 

1 

36,3064 

70067 

1 

064  9 

REF 

67 

LAST 

737 

36, 3065 

0 5520 

0 

TC 

DOWNF  LAG 

0650 

REF 

3 

LAST 

737 

36,3066 

00175 

1 

ACRES 

FLUNDISP 

06502 

36,3067 

0 0004 

0 

INHINT 

SET  UP  THE  DAP  FOR  COASTING  FLIGHT. 

06504 

REF 

28 

LAST 

74  l 

36,3070 

0 4665 

0 

TC 

I BNKCALL 

06506 

REF 

3 

LAST 

742 

36,3071 

40205 

1 

CADR 

ALLCOAST 

065  1 

REF 

3 

LAST 

74  2 

36,3072 

0 3014 

1 

TC 

NULLCLOK 

0652 

REF 

45 

LAST 

742 

36, 3073 

0 5355 

1 

TC 

PHASCHNG 

0653 

36,3074 

07024 

0 

OCT 

07024 

0654 

36,30  75 

17000 

1 

OCT 

17000 

0655 

REF 

6 

LAST 

742 

£7,1516 

EBA  NK= 

T GO 

0656 

REF 

2 

LAST 

742 

36,3076 

03526 

0 

2CADR 

CUTOFF 

0656 

36,3077 

70067 

1 

065  7 

REF 

1 13 

LAST 

742 

36,3100 

1 5146 

0 

TCF 

ENDOF JOB 

0658 

REF 

12 

LAST 

733 

36,3101 

4 C 103 

1 

I GNI TE 

CS 

FLAGWRD7  (2) 

0659 

REF 

2 

LAST 

733 

36,3102 

7 4730 

0 

MASK 

IGNFLBIT 

0660 

REF 

209 

LAST 

740 

36,3103 

10  COO 

0 

CCS 

A 

0661 

REF 

1 

36,3  104 

1 3115 

0 

TCF 

IGNI TE1 

0662 

REF 

37 

LAST 

738 

36,3105 

3 4744 

1 

CAF 

BIT1 

066  3 

36,3106 

0 0004 

0 

INHINT 

0664 

REF 

17 

LAST 

739 

36,3107 

0 5 175 

1 

TC 

TWIDDLE 

066  5 

REF 

3 

LAST 

733 

36,3110 

02433 

1 

ADRES 

I GNI T ION 

0666 

REF 

l 

36,3111 

3 4351 

1 

CAF 

0CT23  IMMEDIATE  RESTART  AT  IGNITION. 

0667 

REF 

100 

LAST 

739 

36, 3112 

54  C01 

1 

TS 

L 

0668 

36,3113 

4 0000 

0 

COM 

0669 

REF 

5 

LAST 

735 

36,3114 

52  760 

1 

DXCH 

-PHASE4 

0670 

REF 

5 

LAST 

737 

36,3115 

4 4753 

0 

I GNI TE  1 

CS 

CNTDNDE  X RESTORE  OLD  DISPLAY. 

0671 

REF 

18 

LAST 

741 

36,3116 

55* 162 

1 

TS 

D ISPDEX 

0672 

REF 

1 14 

LAST 

74  2 

36, 31  17 

1 5146 

0 

TCF 

ENDOF JOB 

0673 
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L 

BURN 

, BABY , BURN  — 

MASTER  IGNITION 

ROUTINE 

USER'S  PAGE  NO.  18  E7 

S3 

0674 

REF 

27 

LAST 

665 

36, 3120 

0 5571 

1 

P40ALM 

TC 

ALARM 

PROGRAM  SELECTION  NOT  CONSISTENT 

WITH 

0675 

36,3121 

01706 

1 

OCT 

1706 

VEHICLE  CONFIGURATION 

0676 

REF 

4 

LAST 

665 

36,3122 

3 4777 

1 

REP40ALM 

CAF 

V05N09 

[ 14) 

0677 

REF 

1 S 5 

LAST 

741 

36,3123 

0 4607 

1 

TC 

BANKCALL 

0678 

REF 

20 

LAST 

712 

36,3124 

20471 

1 

CADR 

GOFLASH 

0679 

REF 

20 

LAST 

741 

36,3125 

1 6001 

1 

TCF 

GOTOPOOH 

V34E  TERMINATE 

0680 

36,3126 

1 3130 

1 

TCF 

+2 

PROCEED  CHECK  FOR  P42 

0681 

REF 

2 

LAST 

727 

36,3127 

1 3122 

1 

TCF 

REP40ALM 

V32E  REDISPLAY  ALARM 

0682 

REF 

18 

LAST 

741 

36, 3 130 

51 '455 

1 

INDEX 

WHICH 

FOR  P42 , ALLOW  CREW  TO  PROCEED  EVEN 

0683 

36,3131 

0 0014 

1 

TC 

14 

THOUGH  VEHICLE  IS  UNSTAGED. 

R0684 

******** 

* *** * *******  * * **  * *********  ***  * 

** 

0685 

31,2144 

BANK 

31 

0686 

REF 

1 

35,2000 

SETLOC 

P40S2 

0687 

35,3710 

BANK 

0688 

REF 

2 

LAST 

736  TO 

737: 

25  ; 

25* 

COUNT  * 

$ $/P40 

0689 

REF 

10 

LAST 

738 

35,3710 

0 4636 

0 

P40AUT0 

TC 

MAKECADR 

HELLO  THERE. 

0690 

REF 

4 

LAST 

489 

35,3711 

55' 163 

0 

TS 

TEMPR60 

FOR  GENERALIZED  RETURN  TO  OTHER  BANKS. 

0691 

REF 

196 

LAST 

743 

35,3712 

0 4607 

1 

P40A/P 

TC 

BANKCALL 

SUBROUTINE  TO  CHECK  PGNCS  CONTROL 

0692 

REF 

3 

LAST 

534 

35,3713 

54267 

0 

CADR 

G+N, AUTO 

AND  AUTO  STABILIZATION  MODES 

0693 

REF 

210 

LAST 

742 

35,3714 

10  000 

0 

CCS 

A 

+0  INDICATES  IN  PGNCS,  IN  AUTO 

0694 

REF 

1 

35,3715 

1 3733 

1 

TCF 

TURNITON 

+ INDICATES  NOT  IN  PGNCS  AND/OR  AUTO 

069  5 

REF 

8 

LAST 

731 

35,3716 

3 4730 

1 

CAF 

APSFLBIT 

ARE  WE  ON  THE  DESCENT  STAGE? 

0696 

REF 

16 

LAST 

731 

35,3717 

7 0106 

1 

MASK 

FLGWRD10 

069  7 

REF 

211 

LAST 

743 

35,3720 

10  COO 

0 

CCS 

A 

0698 

REE 

1 

35,3721 

1 3 740 

0 

TCF 

GOBACK 

RETURN 

06983 

REF 

32 

LAST 

736 

35,3722 

3 4 741 

1 

CAF 

B IT4 

069  84 

REF 

4 

LAST 

326 

35,3723 

7 C 3 74 

0 

MASK 

CHANBKUP 

06985 

REF 

212 

LAST 

743 

35,3724 

10  000 

0 

CCS 

A 

06986 

REF 

2 

LAST 

743 

35,3725 

1 3740 

0 

TCF 

GOBACK 

IGN6RE  CHAN  30  BIT  5.  ASSUME  AUTO  THROT 

0699 

REF 

33 

LAST 

721 

35,3726 

3 4740 

0 

CAF 

BIT5 

YES,  CHECK  FOR  AUTOTHROTTLE  MODE 

070  0 

35,3727 

0 0C06 

1 

EXTEND 

0701 

REF 

4 

LAST 

49  1 

35,3730 

02  C 30 

0 

RAND 

CHAN30 

0702 

35,3731 

0 0006 

1 

EXTEND 

0703 

REF 

3 

LAST 

743 

35,3732 

1 3 740 

0 

BZF 

GOBACK 

IN  AUTOTHROTTLE  MODE  — RETURN 

0704 

REF 

1 

35, 3733 

3 3742 

0 

TURNITON 

CAF 

P40A/PMD 

DISPLAY  V50N25  Rl=203  PLEASF  PERFORM 

0705 

REF 

197 

LAST 

743 

35,3734 

0 4607 

L 

TC 

BANKCALL 

CHECKLIST  203  TURN  ON  PGNCS  ETC. 

0706 

REF 

3 

LAST 

528 

35,3735 

20635 

0 

CADR 

G0PERF1 

0707 

REF 

21 

LAST 

743 

35 , 3736 

1 6001 

1 

TCF 

GOTOPOOH 

V34E  TFRMINATE 

0708 

REF 

1 

35,3737 

1 3712 

1 

TCF 

P40A/P 

RECYCLE 

0709 

REF 

5 

LAST 

743 

35,3740 

3 1 163 

1 

GOBACK 

CA 

TEMPR60 

0710 

REF 

13 

LAST 

739 

35,3741 

0 4631 

1 

TC 

BANK  JUMP 

GOODBYE.  COMF  AGAIN  SOON. 
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071  1 

35.37A2 

0C203 

0 

PAOA/PMD 

OCT 

00203 

0712 

36,3132 

BANK 

36 

0713 

REF 

5 

LAST 

73  7 

36,2000 

SETLOC 

PAOS 

071  A 

36,3132 

BANK 

0715 

REF 

5 

LAST 

737  TO 

7A3  : 

226  602* 

COUNT* 

t $/PAO 

R0716 

R071  7 

CONSTANTS  FOR  THE 

IGNITION  ROUTINE 

R071  8 

0719 

REF 

1 

36,2107 

SERVC  ADR 

= 

P63T  ABLE  +7 

0720 

REF 

I 

3b, 3 132 

020A0 

l 

PAOADRES 

ADRES 

paotable 

072  1 

REF 

1 

36,3133 

02050 

0 

PA1A0RES 

ADRES 

PA1TA8LE  -5 

0722 

REF 

l 

36.313A 

02063 

0 

PA2ADRES 

ADRES 

P A2TABLE 

0723 

REF 

25 

LAST 

737 

E 7 , L 5 1 5 

EBANK= 

DVCNTR 

072  A 

REF 

1 

36,3135 

02A25 

0 

LUNL ANAD 

2CADR 

LUNLAND 

072  A 

REF 

1 

36,3136 

62067 

l 

0727 

REF 

26 

LAST 

7A  A 

E7, 1515 

E8ANK= 

DVCNTR 

0728 

REF 

1 

36,3137 

033  75 

0 

ATMAGADR 

2CA0R 

ATMAG 

0 72  8 

REF 

1 

36,3  1A0 

70067 

1 

0729 

REF 

22 

LAST 

7A3 

6001 

? 

= 

GOTOPOOH 

0 73  0 

36,3  1A1 

00000 

1 

029.9SEC 

2DEC 

2 990 

0 730 

36.31A2 

05656 

1 

0 73  l 

36,3 1 A3 

0A672 

0 

S2A. 9SEC 

DEC 

2 A90 

0732 

36,3 1AA 

OC  752 

1 

A.9SEC 

DEC 

A 90 

0733 

REF 

3A 

LAST 

7 A3 

A 7A0 

0CT20 

= 

BIT5 

0733  1 

36,3  IA5 

C1A75 

0 

V06N61 

VN 

0661 

.197  PAGF 
19  E7  S3 


7AA 


GAP: 

L 

P0735 

R0736 

R0737 


R0738 

R0739 
R0741 
RO  743 
R 0 745 

R0746 

A0740 
A0749 
AO  75  0 

R075L 

R0752 

R0753 

R0754 

0755 

0756 

0757 

0758 

0759 
0 76  0 
07605 
0 76  1 

0762 

0763 

0764 

0765 

076  6 

0767 


0 76  8 

0769 

0770 

0771 

0772 
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KILLTASK 

MOD  NC : NEW  PROGRAM 
MOD  BY:  COVEIL  1 


ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
BURN,  E ABY , BURN  — MASTER  IGNITION  ROUTINE 


17: 11  MAR  . 19,1971  FLY 

USER' S PAGE  NO. 


FUNCTIONAL  DESCRIPTION: 

KILLTASK  IS  USED  TO  REMOVE  A TASK  FROM  THE  WAITLIST  BY  SUBSTITUTING  ANULL  TASK  CALLED  'NULLTASK'  (OF  COURSE), 
WHICH  MERELY  DOES  A TC  TASKOVER.  IF  THE  SAME  TASK  IS  SCHEDULED  MORE  THAN  ONCE,  ONLY  THE  ONE  WHICH  WILL  OCCUR 
FIRST  IS  REMOVED.  IF  THE  TASK  IS  NOT  SCHEDULED,  KILLTASK  TAKES  NO  ACTION  AND  RETURNS  WITH  NO  ALARM.  KILLTASK 
LEAVES  INTERRUPTS  INHIBITED  SO  CALLER  MUST  RELINT 

CALLING  SEQUENCE: 


L 

TC 

KILLTASK 

IN  FIXED-FIXED 

L + l 

CADR 

???????? 

CADR  (NOT  2CADR) 

OF 

TASK  TO  BE  REMOVED. 

L+2 

(REL INT 

) 

RETURN 

EXIT 

MODE:  AT 

L + 2 

OF  CALLING 

SEQUENCE. 

ERASABLE 

IN1TIALIZAT  ION=  NONE. 

OUTPUT : 

2C  ADR 

OF 

NULLTASK  IN 

LST2 

DEBR I S: 

ITEMPI 

- 

ITEMP4  , A , L , 

Q. 

REF 

19 

LAST 

232 

E3 , 1410 

E6ANK= 

LST2 

6050 

BLOCK 

3 

KILLTASK  MUST  BE 

IN 

FIXED-FIXED. 

REF 

3 

LAST 

578 

6000 

SETLOC 

FFTAG6 

6050 

BANK 

REF 

1 

COUNT* 

$ i/K I LL 

REF 

1 

6050 

3 6057 

0 

KILLTASK 

CA 

KILLBB 

6051 

0 0004 

0 

INHINT 

REF 

213 

LAST 

743 

6052 

22  000 

l 

LXCH 

A 

REF 

163 

LAST 

739 

6053 

50  002 

0 

INDEX 

Q 

6054 

3 0000 

1 

CA 

0 

GET  CADR. 

REF 

17 

LAST 

604 

6055 

22  006 

1 

LXCH 

BBANK 

REF 

1 

6056 

1 2200 

0 

TC.F 

K ILLTSK2 

CONTINUE  IN  SWITCHED 

FIXED 

REF 

20 

LAST 

745 

E3 , 1 4 LO 

EBANK= 

LST2 

REF 

2 

LAST 

745 

6057 

56063 

1 

K ILLBB 

BBCON 

K ILLTSK2 

27,2200 


BANK  27 


REF 

REF 


3 LAST 
1 


46  27,2000 

27,2200 


SETLOC  P40S1 
BANK 

COUNT*  tt/KILL 


REF  10  LAST  560 


27,2200  22  062  0 


I TEMP2 


KILLTSK2  LXCH 


SAVE  CALLER'S  BBANK 
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0773 

REF 

184 

LAST 

745 

27,2201 

24  C02 

0 

INC  R 

Q 

0774 

27,2202 

0 0006 

1 

EXTEND 

0775 

REF 

26 

LAST 

618 

27,2203 

22  C61 

0 

QXCH 

I T EMP l 

0776 

REF 

17 

LAST 

575 

27,2204 

54  063 

0 

TS 

I TEMP3 

0777 

REF 

5 

LAST 

470 

27,2205 

7 5003 

0 

MASK 

L DW10 

0773 

REF 

21 

LAST 

446 

27, 2206 

6 4 732 

0 

AD 

BITll 

0779 

REF 

7 

LAST 

573 

27,2207 

54  064 

1 

TS 

I TEMP4 

0730 

REF 

6 

LAST 

746 

27, 2210 

4 5003 

0 

CS 

L0W10 

0 781 

REF 

18 

LAST 

746 

27,2211 

7 0063 

0 

MASK 

I TEMP3 

0782 

REF 

19 

LAST 

746 

27,2212 

54  C63 

0 

TS 

I TEMP3 

0783 

27,2213 

22  CO 7 

0 

ZL 

0784 

REF 

101 

LAST 

742 

27,2214 

50  001 

0 

AORSCAN 

INDEX 

L 

0785 

REF 

21 

LAST 

745 

27,2215 

4 1410 

1 

CS 

LST2 

0786 

KEF 

8 

LAST 

746 

27,2216 

6 CC64 

0 

AD 

I TFMP4 

0737 

27,2217 

0 0006 

1 

EXTEND 

0788 

REF 

1 

27,2220 

1 2232 

1 

BZF 

T STFBANK 

0789 

REF 

1 

27,2221 

4 4740 

1 

LETITL IV 

CS 

LSTL  I M 

0790 

REF 

1C2 

LAST 

746 

27,2222 

6 0001 

0 

AD 

L 

0791 

27,2223 

0 0006 

1 

EXTEND 

0792 

REF 

1 

27,2224 

1 2230 

0 

BZF 

DEAD 

0793 

REF 

103 

LAST 

746 

27,2225 

24  C01 

0 

INCR 

L 

0 794 

REF 

104 

LAST 

746 

27,2226 

24  001 

0 

INCR 

L 

0795 

REF 

1 

27,2227 

1 2214 

0 

TCF 

ADRSCAN 

0796 

REF 

27 

LAST 

746 

27,2230 

52  062 

1 

DEAD 

DXCH 

I TEMPI 

0797 

27,2231 

52  006 

0 

DTCB 

0798 

REF 

7 

LAST 

746 

27, 2232 

4 5003 

0 

T STFBANK 

CS 

L0W10 

0799 

REF 

105 

LAST 

746 

27,2233 

50  C01 

0 

INDEX 

L 

0800 

REF 

22 

LAST 

746 

27,2234 

7 1411 

0 

MASK 

LST2  +1 

0801 

27,2235 

0 0006 

1 

EXTEND 

0802 

REF 

20 

LAST 

746 

27,2236 

60  C63 

1 

SU 

I TFMP3 

0803 

27,2237 

0 0006 

1 

EXTEND 

0804 

REF 

1 

27,2240 

1 2242 

0 

BZF 

K ILLDEAD 

0805 

REF 

1 

27,2241 

1 2221 

0 

TCF 

LETITLI V 

0806 

REF 

1 

27, 2242 

3 4344 

0 

K ILLDEAD 

CA 

TCTSKOVR 

080  7 

REF 

106 

LAS! 

746 

27,2243 

50  C01 

0 

INDEX 

L 

0808 

REF 

23 

LAST 

746 

27,2244 

55' 410 

1 

TS 

L ST2 

0309 

REF 

2 

LAST 

746 

27,2245 

1 2230 

0 

TCF 

DEAD 

0310 

REF 

35 

LAST 

744 

4740 

L STL  I M 

EQUALS 

8IT5 
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USER' S PAGE  NO.  21  F3  S3 

RETURN  2CADR  IN  I TEMP  l , I T EMP 2 
CADR  IS  IN  A 

GENADR  OF  TASK 
FBANK  OF  TASK 

COMPARE  GENADRS 

IF  THEY  MATCH,  COMPARE  FRANKS 

ARE  WE  DONE? 

YES  - DONE,  SO  RETURN 

CONTI NUF  LOOP. 


COMPARE  FBANKS  ONLY. 


MATCH  - KILL  IT. 

NO  MATCH  - CONTINUE . 


REMOVE  TASK  BY  INSERTING  TASKOVER 


DEC  16 


GAP:  ASSEMBLE  REVISION  210  CE  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L P4C-P47 


17:  11  MAR.  19, 
USER'  S 


1971  FLY 
PAGE  NO. 


.197  PAGE 
1 EO  S3 


P002  7 
R0028 
R0029 

PROGRAM  DESCRIPTION  P40B0TH 
MOD  03  BY  PETER  ADLER 
CALLED  VIA  JOB  FROM  V37E 

R0030 

FUNCT ICNAL 

DESCRIPTION 

R003  1 
R0033 

1 

) TO  COMPUTE  A PRE 
THRUSTING  MANEUV 

R0034 

3 

) TO  DO  ThE  VEHICL 

R0035 

R0037 

4 

) TO  CONTROL  THE  P 
PGNCS  CONTROLLED 

R003  8 
R0040 

5 

) IN  POSTBURN — ZER 
SET 

DECEMBER  22,  1966 

MARCH  3,  1967 


FERRED  IMU  ORIENTATION  AND  A PREFERRED  VEHICLE  ATTITUDE  FOR  A LM  DPS 
ER. 

E MANEUVER  TO  THE  THRUSTING  ATTITUDE. 

GNCS  DURING  COUNTDOWN,  IGNITION,  THRUSTING,  AND  THRUST  TFRM INATT  ON  OF  A 
DPS  MANEUVER. 

0 RENDEZVOUS  COUNTER,  MAINTAIN  VG  CALCULATIONS  FOR  POSSIBLE  RCS  MANEUVER 
MAXIMUM  DEADBAND  IN  DAP,  RESET  STEERLAW  C STEER  TO  ZERO. 


R0042 

R0044 


NOTE  : 


P42 , WHICH  IS  IN  THIS  LOG  SECTION,  DOES  THE  SAME  FOR  AN  APS  BURN, 
RCS  PLUS  DISPLAYS  PARAMETERS  FOR  MANUAL  CONTROL. 


AND  P41  DOES  1-3  FOR 


R004B  SUBRCCT INES  USED 


R0046 


R 02  IMU  STATUS  CHECK 


R0047 
R0048 
R0049 
R0050 
R005  1 
R0052 
R0053 
R0054 
R0055 
R0056 
R005  7 
R0059 
R006  1 


S40 . 1 
S40 . 13 
S40.2.3 

540 . 8 

540.9 
R60LEM 
LEMPREC 
PREREAD 
ALLCOAST 
CLOKTASK 
PHASCHNG , 
PRIOLARM, 
KILLTASK, 


COMPUTATION  OF  THRUST  DIRECTION 

LENGTH  OF  BURN 

PREFERRED  IMU  OR  I ENA  TT I ON 

X PRODUCT  STEERING 

LAMBERT  VTOGAIN 

ATTITUDE  MANEUVER 

EXTRAPOLATE  STATE  VECTOR 

AVERAGE  G,  SERVICER 

DAP  COASTING  INITIALIZATION 

ERGO  CLOCKJOB — COUNT  DOWN 

INTPRET,  FLAGUP,  FLAGDOWN,  WAITLIST,  LONGCALL,  GOFLASH,  GOFLASHR, 
GOTOPOOH,  ENDOF JOB , BANKCALL,  SETMAXDB,  SETMINDB,  CHECKMM,  FLATOUT 
SGNAGREE , TP AGREE , ETC. 


G0PERF1 , ALARM, 
, OUTFLAT, 


R0062  RESTARTS  VIA  GROUP  4 


R0063  DISPLAYS 


R0064 
R006  6 
R006  7 
R0068 
R0069 
R0070 
R0071 
R0072 


V50N25  203  A/P  TO  PGNCS,  AUTO  THROTTLE  MODE,  AUTO  ATTITUDE  CONTROL 

V06N40  TT I , VG,  DELTAVM  (DISPLAYED  ONCE/SECOND  BY  CLOKTASK) 

V50N99  PLEASE  PERFORM  ENGINE  ON  ENABLE 

V06N40  TG  (TIME  TO  GO  TO  CUTOFF),  VG,  DELTAVM — ONCE/SECOND 
V16N40  FINAL  VALUES  OF  TG,  VG,  DELTAVM 

V16N85  COMP  OF  VG  (BODY  AXES)  FOR  PQSS.  RCS  MANUAL  MAN6UVFR 
V05N09  POSSIBLE  ALARMS 
V50N07  PLEASE  SELECT  POO 


747 
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R0073 

R0074 

R0075 

R0076 

RO077 

R0079 

R 0 0 8 0 
R0082 

R0083 

R0084 

R0085 

R0086 

R0088 

R0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

009  7 

0098 

0099 

0100 

010  1 
0102 

0103 

0104 

0105 

0106 
0107 
010  8 

0109 

0110 
0111 
0112 


P4C-P47 


USER'S  PAGE  NO.  2 


EO  S3 


VIA  R 30 

V06N44  HAPO,  PERI,  TFF 
V06N35  TIME  TO  PERIGEE,  HMS 

ALARM  OR  ABORT  EXIT  MODES 

PROGRAM  ALARM,  FLASHING  DISPLAY  OF  ALARM  CODE  1706  IF  P40  SELECTED  WITH  DESCENT  UNIT  STAGED. 
V34F  (TERMINATE)  IS  THE  ONLY  RESPONSE  ACCEPTED.  TC  GOTOPOOH. 

PROGRAM  ALARM,  FLASH  CODE  1703:  TIG  LESS  THAN  45  SECS  AWAY.  V34E=  GOTOPOOH  OR  V33E=  SLIP 

TIG  BY  45  SECS. 

ERASABLE  INITIALIZATION 

DEBRIS 

OUTPUT 


SEE  SUBROUTINES  E.G.:  S40.1,  S40.2,3,  S40.13,  S40.8,  S40.9,  TRIMGIMB 

XDELVFLG  = 1 FOR  EXT  DEL V COMPUTATION 
= 0 FOR  AIMPT  (LAMBERT)  COMP 


REF 

2 

LAST 

39  TO 

40 : 

10 

10* 

COUNT* 

$$/P40 

REF 

19 

LAST 

743 

E7, 1455 

EBANK= 

WHICH 

36,3  146 

BANK 

36 

REF 

6 

LAST 

744 

36,2000 

SETLOC 

P40S 

36,3146 

BANK 

REF 

46 

LAST 

742 

36,3146 

0 5355 

1 P40LM 

TC 

P HAS  CHNG 

36,3147 

04024 

0 

OCT 

04024 

REF 

1 

36,3150 

3 3132 

1 

CAF 

P40ADRES 

REF 

20 

LAST 

748 

36,3151 

55 ' 455 

0 

TS 

WHICH 

REF 

17 

LAST 

743 

36,3152 

3 0106 

0 

CA 

FLGWRD10 

REF 

9 

LAST 

743 

36,3153 

7 4730 

0 

MASK 

APSFLBIT 

REF 

2 14 

LAST 

745 

36,3154 

10  COO 

0 

CCS 

A 

REF 

I 

36,3  155 

1 3120 

0 

TC  F 

P40ALM 

REF 

198 

LAST 

743 

36,3156 

0 4607 

1 

TC 

BANKCALL 

REF 

4 

LAST 

518 

36,3157 

33757 

1 

CADR 

R02B0TH 

REF 

22 

LAST 

738 

36,3160 

4 0111 

l 

CS 

DAPBOOLS 

REF 

5 

LAST 

30  7 

36,3161 

7 4730 

0 

MASK 

C SMDOCKD 

REF 

215 

LAST 

748 

36,3162 

to  000 

0 

CCS 

A 

REF 

1 

36,3163 

3 2022 

0 

CAF 

THRESH1 

REF 

1 

36,3164 

6 2023 

1 

AD 

THRESH3 

REF 

2 

LAST 

108 

36,3165 

55 ' 250 

0 

TS 

OVTHRUSH 

REF 

10 

LAST 

737 

36,3  166 

3 4742 

1 

CAF 

FOUR 

REF 

27 

LAST 

744 

36,3167 

55' 515 

0 

TS 

DVCNTR 

INITIALIZATION  FOR  BURNBABY. 


GO  DO  IMU  STATUS  CHECK  ROUTINE. 


INITIALIZE  DV  MON 


GAP 
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L 

P 40- 

P47 

USER'S  PAGE  NO.  3 E7  S3 

0113 

REF 

100 

LAST 

730 

36,3170 

0 6060 

1 

TC 

INTPRET 

LOAD  CONSTANTS  FOR  DPS  BURN 

0114 

36,3171 

43175 

0 

VLOAO 

CLEAR 

LOAD  F,  MDOT , TDECAY 

0115 

REF 

1 

36,3172 

34001 

1 

FDPS 

0116 

REF 

1 

36,3173 

C2663 

0 

NOTHROTL 

0117 

REF 

2 

LAST 

149 

36,3174 

03735 

0 

STORE 

F 

0118 

36,3175 

7 7 735 

0 

SLOAD 

0119 

REF 

1 

36,3176 

26002 

1 

DPSVEX 

0120 

36,3177 

7C476 

0 P40IN 

OCOMP 

SRI 

0121 

REF 

1 

36,3200 

37743 

0 

STCALL 

VEX 

LOAD  EXHAUST  VELOCITY  FOR  TGO  COMP. 

012? 

REF 

i 

36,3201 

56246 

1 

S40. 1 

COMPUTFS  UT  AND  VGTIG 

0123 

36,3202 

77624 

1 

CALL 

0124 

REF 

i 

36,3203 

56413 

1 

S40 . 2 , 3 

COMPUTES  PREFERRED  IMU  ORIENTATION 

0125 

36,3204 

77  776 

1 

EXIT 

0126 

36,3205 

0 0C04 

0 

INHINT 

0127 

REF 

29 

LAST 

742 

36,3206 

0 4665 

0 

TC 

I 8NKC ALL 

0128 

REF 

1 

36,3207 

40143 

0 

CAOR 

PFLITEDB 

ZERO  ATTITUDE  ERRORS,  SET  DB  TO  ONE  DEG 

0129 

REF 

1 

36,3210 

0 3212 

0 

TC 

P40SXT4 

R0130 

*********  ************** 

013  1 
R0132 

REF 

1 

36,3211 

1 2130  0 

TCF  8URNBABY 

*********************** 

0133 

36,3212 

0 0006 

1 

P40SXT4 

EXTEND 

0134 

REF 

3 

LAST 

741 

36,3213 

23'  141 

1 

QXCH 

P40/RFT 

0135 

36,3214 

0 0003 

1 

P41MANU 

RELINT 

0136 

REF 

68 

LAST 

74  2 

36,3215 

0 5520 

0 

TC 

downflag 

CLEAR  3AXISFLG  — R60 

WILL  USE  VFCPOI NT . 

013  7 

REF 

6 

LAST 

535 

36,3216 

0 C 1 24 

0 

ADRES 

3 AX  I S FLG 

0138 

REF 

199 

LAST 

748 

36,3217 

0 4607 

1 

TC 

BANKCALL 

0139 

REF 

4 

LAST 

535 

36,3220 

54125 

0 

CADR 

R60LEM 

DO  ATTITUDE  MANEUVER 

ROUTINE 

014  0 

REF 

4 

LAST 

749 

36,3221 

0 1141 

l 

TC 

P40/RET 

0141 

REF 

9 

LAST 

736 

E7, 1462 

EBANK= 

T RKMKCNT 

0142 

REF 

19 

LAST 

74  1 

36,3222 

3 

0005 

1 

POSTBURN  CA 

Z 

0143 

REF 

19 

LAST 

742 

36,3223 

55 

' 162 

1 

TS 

DISPDEX 

0144 

36,3224 

0 

C C 06 

1 

EXTEND 

0145 

REF 

1 

36,3225 

3 

2 C 60 

0 

OCA 

ACADN85 

0146 

REF 

4 

LAST 

731 

36,3226 

53 

' 252 

1 

DXCH 

AVEGEXIT 

014  7 

REF 

1 

36,3227 

3 

3752 

1 

CAF 

V 16N40 

0148 

REF 

200 

LAST 

749 

36,3230 

0 

4607 

1 

TC 

BANKCALL 

0149 

REF 

1 

36,3231 

20647 

0 

CADR 

GOFLASHR 

0150 

REF 

1 

36,3232 

0 

3255 

0 

TC 

TERM40 

0151 

REF 

2 

LAST 

736 

36,3233 

1 

3240 

0 

TCF 

T IGNOW 

0152 

REF 

3 

LAST 

741 

36,3234 

0 

3222 

0 

TC 

POSTRURN 
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P 40- 

■P47 

0153 

REF 

47 

LAST 

748 

36,3235 

0 5355 

1 

P40PHS1 

0154 

36,3236 

0 0 C 1 4 

1 

0155 

REF 

115 

LAST 

742 

36,3237 

1 5146 

0 

0156 

36,3240 

0 0C04 

0 

T IGNOW 

0157 

REF 

30 

LAST 

749 

36,3241 

0 4665 

0 

0158 

REF 

4 

LAST 

535 

36,3242 

4C154 

0 

0159 

REF 

31 

LAST 

750 

36,3243 

0 4665 

0 

0160 

REF 

3 

LAST 

535 

36,3244 

4C141 

1 

0161 

36,3245 

0 0003 

1 

0162 

REF 

2 

LAST 

731 

36,3246 

3 3753 

0 

0163 

REF 

2C1 

LAST 

749 

36,3247 

0 4607 

1 

0164 

REF 

1 

36,3250 

20455 

1 

0165 

REF 

2 

LAST 

749 

36,3251 

0 3255 

0 

0166 

REF 

3 

LAST 

750 

36,3252 

1 3255 

1 

0167 

36,3253 

0 3246 

1 

0168 

REF 

1 

36,3254 

1 3235 

1 

0169 

36,3255 

0 0006 

1 

TERM40 

0170 

REF 

1 

36,3256 

3 2110 

0 

017  l 

REF 

5 

LAST 

749 

36,3257 

53 ' 252 

1 

0172 

REF 

1 38 

LAST 

741 

36,3260 

3 4 746 

0 

0173 

REF 

10 

LAST 

749 

36, 3261 

55*462 

1 

0174 

REF 

20 

LAST 

749 

36,3262 

3 0005 

1 

0175 

REF 

20 

LAST 

749 

36,3263 

55' 162 

1 

0176 

36,3264 

0 0004 

0 

0177 

REF 

32 

LAST 

750 

36,3265 

0 4665 

0 

0178 

REF 

6 

LAST 

535 

36,3266 

40115 

0 

0179 

36,3267 

0 0003 

1 

0180 

REF 

23 

LAST 

744 

36,3270 

0 6001 

0 

0181 

REF 

21 

LAST 

748 

E7, 1455 

0182 

REF 

1 

018  3 

REF 

1 

36,3271 

3 3133 

0 

P41LM 

0184 

REF 

22 

LAST 

750 

36,3272 

55*455 

0 

0185 

REF 

202 

LAST 

750 

36,3273 

C 4607 

1 

0186 

REF 

5 

LAST 

748 

36, 3274 

33757 

1 

0137 

REF 

139 

LAST 

750 

36, 3275 

3 4 746 

0 

0188 

REF 

7 

LAST 

728 

36,3276 

55*507 

0 

0189 

REF 

8 

LAST 

750 

36,3277 

55*510 

0 

0190 

REF 

6 

LAST 

706 

36,3300 

3 5010 

0 

0191 

REF 

21 

LAST 

750 

36,3301 

55' 162 

1 

0192 

REF 

31 

LAST 

742 

36,3302 

0 5076 

0 

0193 

REF 

4 

LAST 

254 

E7.1700 

0194 

REF 

1 

36,3303 

03366 

1 

0194 

REF 

l 

36,3304 

74C67 

0 

0195 

REF 

7 

LAST 

739 

36,3305 

0 5331 

0 
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USER'S  PAGE 

NO. 

4 E7  S3 

TC 

PHASCHNG 

OCT 

00014 

TC  F 

ENDOF JOB 

TNHINT 

TC 

I BNKCALL 

CADR 

ZATTEROR 

TC 

I BNKCALL 

CADR 

SETMINDB 

REL  INT 
CAF 

V16N85B 

TC 

BANKCALL 

CAOR 

REFLASHR 

TC 

TERM40 

TCF 

TERM40 

TC 

-5 

TCF 

P40PHS1 

EXTENO 

DC  A 

SERVC ADR 

DXCH 

AVEGEXI T 

CAF 

ZERO 

TS 

T RKMKCNT 

CA 

Z 

TS 

DISPDEX 

INHINT 

TC 

I BNKCALL 

CADR 

R ESTORDB 

RELINT 

TC 

GOTOPOOH 

EBANK= 

WHICH 

COUNT* 

$ $/P4 1 

CAF 

P41ADRES 

TS 

WHICH 

TC 

BANKCALL 

CAOR 

R02B0TH 

CA 

ZERO 

TS 

DVTOTAL 

TS 

DVTOTAL  +1 

CAF 

P R 105 

TS 

DISPDEX 

TC 

F INOVAC 

EBANK= 

VGPREV 

2C  ADR 

DYNMDISP 

TC 

2PHSCHNG 

ZERO  RFNOZVS  CNTERS 


INITIALIZATION  FOR  BURNBABY 


ZERO  DVTOTAL  FOR  NOUN  40  DISPLAY 


FOR  SAFETY 


750 
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0196 

36,3306 

00116 

1 

OCT 

00116 

0197 

36,3307 

04024 

0 

OCT 

04024 

0198 

REF 

101 

LAST 

749 

36,3310 

0 6C60 

1 

TC 

I NTPRET 

0199 

36,3311 

71214 

0 

BON 

DLOAD 

0200 

REF 

1 

36,3312 

CC700 

0 

NJETSFLG 

020  1 

REF 

1 

36,3313 

75317 

0 

P41FJFTI 

0202 

REF 

1 

36,3314 

34017 

0 

FRCS4 

0203 

REF 

3 

LAST 

749 

36,3315 

37735 

1 

P41F JET 

ST  CALL 

F 

0204 

REF 

1 

36,3316 

75322 

0 

P41  I N 

0205 

36,3317 

77745 

1 

P41FJET1 

DLOAD 

0206 

REF 

1 

36,3320 

34021 

0 

FRCS2 

0207 

REF 

4 

LAST 

751 

36,3321 

03735 

0 

STORE 

F 

0208 

36,3322 

77624 

1 

P41IN 

CALL 

0209 

REF 

2 

LAST 

749 

36, 3323 

56246 

1 

S40.  1 

0210 

36,3324 

77624 

1 

P41NURM 

CALL 

021  1 

REF 

2 

LAST 

749 

36, 3325 

56413 

1 

S40 .2,3 

0212 

36,3326 

7 7776 

1 

EX  IT 

0213 

36,3327 

C CC04 

0 

INHINT 

0214 

REF 

33 

LAST 

750 

36,3330 

0 4665 

0 

TC 

I BNKCALL 

0215 

REF 

5 

LAST 

750 

36,3331 

40154 

0 

CADR 

ZATTEROR 

0216 

REF 

34 

LAST 

751 

36,3332 

0 4665 

0 

TC 

I BNKCALL 

0217 

REF 

4 

LAST 

750 

36, 3333 

40141 

l 

CADR 

SETMINDB 

0218 

REF 

2 

LAST 

749 

36,3334 

0 3212 

0 

TC 

P40SXT4 

0219 

REF 

1C2 

LAST 

75  1 

36,3335 

0 6060 

1 

TC 

INTPRET 

0220 

36,3336 

45175 

0 

VLOAD 

CALL 

022  1 

REF 

5 

LAST 

208 

36,3337 

03701 

1 

V GT  I G 

0222 

REF 

1 

36,3340 

57271 

1 

S 41 . 1 

0223 

REF 

9 

LAST 

329 

36,3341 

03502 

0 

STORE 

VGBODY 

0224 

36,3342 

7 7776 

1 

EXIT 

0225 

REF 

3 

LAST 

750 

36,3343 

3 3753 

0 

CAF 

V16N85B 

0226 

REF 

203 

LAST 

750 

36 ,3344 

0 4607 

1 

TC 

BANKCALL 

0227 

REF 

1 

36,3345 

20441 

1 

CADR 

GODSPRET 

0228 

REF 

8 LAST  750 

36, 3346 

0 5331 

0 

TC 

2PHSCHNG 

0229 

36, 3347 

0 CO  76 

0 

OCT 

00076 

0230 

36,3350 

04  024 

0 

OCT 

04024 

R0231 

023  2 

REF 

1 

36,3351 

1 2 137 

1 

TCF 

B^RNB^B* 

A0233 

# >}c  :{e  # sjc  # 
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GROUP  6 RESTART  AT  FKP5RST , PRIO  17 
GROUP  4 RESTART  HERE,  PRIO  13 


BOTH  LM 

IF  NJETSFLAG  IS  SET,  LOAD  2 JET  F 
IF  NJETSFLAG  IS  CLEAR,  LOAD  4 JET  F 


BOTH 

CALCULATE  PREFERRED  IMU  ORIENTATION  AND 
SET  PFRATFLG. 


ZERO  ATT ITUDF  ERRORS 
SET  0.3  DEGREE  DEADBAND 


TRANSFORM  VELOCITY-TO-BE-GAINED  AT  TIG 
FROM  REFERENCE  COORDINATES  TO  LM  BODY- 
AXIS  COORDINATES  FOR  V16N85  DISPLAY. 
(SCALED  AT  2 ( + 7)  METE R S/CENT  I SEC OND ) 


GROUP  6 RESTARTS  AT  RED06.7 
GROUP  4 RESTARTS  HERE 
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L 

P AG- 

PA7 

USER'S  PAGE 

NO.  6 

E7  S3 

023  A 

REE 

12 

LAST 

739 

36, 3352 

3 

A770 

0 

BLNKWAIT  CAF 

1 SEC 

0235 

REF 

2 0 A 

LAST 

751 

36,3353 

0 

A607 

1 

TC 

BANKCALL 

0236 

REF 

1A 

LAST 

721 

36.335A 

01736 

1 

CADR 

DELAY  JOB 

0237 

REF 

22 

LAST 

750 

36,3355 

3 

1 162 

0 

RE006.7  CA 

DISPDEX 

ON  A RESTART,  DO 

NOT  PUT 

UP  DISPLAY  IF 

0238 

REF 

A9 

LAST 

7 AO 

36,3356 

6 

A7A3 

0 

AD 

TWO 

BLANKING  (BETWEEN 

TIG-35 

AND  T[G-30) 

R0239 

* ** * ** * ***$##**$** ** * * * 

02A0 

36,3357 

C 0C06 

1 

EXTEND 

02A  1 

REF 

l 

36,3360 

1 3352 

1 

BZF 

BLNKWAIT 

0 2A2 

REF 

A 

LAST 

751 

36, 3361 

3 3753 

0 

CAF 

V 16N85B 

02A  3 

REF 

2C5 

LAST 

752 

36,3362 

0 A607 

1 

TC 

BANKCALL 

02A  A 

REF 

2 

LAST 

751 

36,3363 

20AA1 

1 

CADR 

GODSPRET 

02A  5 

REF 

7 

LAST 

750 

36, 336A 

3 5C10 

0 

FKP5RST 

CAF 

P R 105 

02A  6 

REF 

12 

LAST 

709 

36,3365 

0 5137 

1 

TC 

PRIOCHNG 

02A  7 

REF 

23 

LAST 

752 

36, 3366 

3 1162 

0 

DYNMDI SP 

CA 

DISPDEX 

A NON-POSITIVE  DISPDEX  INDICATES  PAST 

02A  8 

36,3367 

0 0006 

1 

EXTEND 

TIG-35,  SO  SERVICER  WILL  BE  DOING  THE 

02A  9 

REF 

1 16 

LAST 

750 

36,3370 

6 5 1A6 

1 

BZMF 

END0FJ08 

UPDATING  OF  NOUN  85.  STOP  DYNMDI  SP . 

0250 

36,3371 

C 0006 

1 

EXTEND 

0251 

REF 

32 

LAST 

739 

36,3372 

A 1AA2 

0 

DCS 

T IG 

0252 

REF 

25 

LAST 

7 A 1 

36,3373 

53  ' A5A 

1 

DXCH 

TTOGO 

UPDATE  T FI  DISPLAY  (NOUN  AO) 

0253 

36.337A 

0 0006 

1 

EXTEND 

025  A 

REF 

22 

LAST 

739 

36,3375 

3 0025 

0 

DC  A 

T I ME2 

0255 

REF 

26 

LAST 

752 

36,3376 

21' A5A 

1 

DAS 

TTOGO 

0256 

REF 

103 

LAST 

751 

36, 3377 

0 6060 

l 

TC 

I NTPRET 

0257 

36.3A00 

A5175 

0 

VLOAD 

CALL 

0258 

REF 

5 

LAST 

750 

36 , 3 AO  1 

03701 

1 

VGPREV 

0259 

REF 

2 

LAST 

751 

36.3A02 

57271 

1 

S A 1 . 1 

CONVERT  VG  FROM  RFF  TO  BODY 

0260 

REF 

10 

LAST 

75  1 

36.3A03 

03502 

0 

STORE 

VGBODY 

026  1 

36, 3 AO A 

7 7776 

1 

EXIT 

026  2 

REF 

13 

LAST 

752 

36 , 3 A05 

3 A770 

0 

CAF 

1 SEC 

0263 

REF 

206 

LAST 

752 

36.3A06 

0 A607 

1 

TC 

BANKCALL 

026A 

REF 

15 

LAST 

752 

36.3A07 

01736 

1 

CADR 

DELAY JOB 

0265 

REF 

2 

LAST 

750 

36.3A10 

1 3366 

0 

TCF 

DYNMDI SP 

RECYCLE  ONCE  A SECOND 

0266 

REF 

1 

COUNT 

4 $/  P A l 

0267 

32,2570 

BANK 

32 

0268 

REF 

l 

32,2000 

SETLOC 

PAOSA 

0269 

32,2570 

BANK 

0270 

REF 

1 0 A 

LAST 

732 

32,2570 

0 6060 

1 CALCN85 

TC 

INTPRFT 

0271 

32, 2571 

7762A 

1 

CALL 

0272 

REF 

1 

32,2572 

75612 

0 

UPDATEVG 

0273 

32,2573 

A 5 1 75 

0 

VLOAD 

CALL 

027  A 

REF 

6 

LAST 

752 

32 , 2 5 7A 

03701 

1 

VGPRE V 
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0275 

REF 

3 

LAST 

752 

32,2575 

57271 

1 

S4 1 . 1 

0276 

REF 

11 

LAST 

752 

32,2576 

03502 

0 

STORE 

VGBODY 

0277 

32,2577 

77776 

1 

EXIT 

0278 

REF 

44 

LAST 

736 

32,2600 

0 4626 

1 

TC 

POST  JUMP 

0279 

REF 

3 

LAST 

727 

32,2601 

65656 

1 

CAOR 

SERVEXI T 

0280 

36,3411 

BANK 

36 

0281 

REF 

7 

LAST 

748 

36,2000 

SETLOC 

P40S 

0282 

36,3411 

BANK 

0283 

REF 

1 

COUNTY 

$$/P42 

0234 

REF 

23 

LAST 

750 

E7 , 1455 

EB ANK= 

WHICH 

0235 

REF 

48 

LAST 

750 

36,3411 

0 5355 

1 

P42LM 

TC 

PHASCHNG 

0286 

36,3412 

C4C24 

0 

OCT 

04024 

0287 

REF 

1 

36,3413 

3 3134 

1 

CAF 

P42ADRES 

0288 

REF 

24 

LAST 

753 

36,3414 

55*455 

0 

TS 

WHICH 

0289 

REF 

18 

LAST 

748 

36,3415 

4 0106 

L 

CS 

FLGWRD10 

0290 

REF 

10 

LAST 

748 

36,3416 

7 4730 

0 

MASK 

APSFLBIT 

0291 

REF 

216 

LAST 

748 

36,3417 

10  000 

0 

CCS 

A 

0292 

REF 

2 

LAST 

748 

36,3420 

0 3120 

1 

TC 

P40ALM 

0293 

REF 

2C7 

LAST 

752 

36,3421 

0 4607 

1 

P42ST  AGE 

TC 

BANKCALL 

0294 

REF 

6 

LAST 

750 

36, 3422 

33  757 

1 

CADR 

R02B0TH 

0295 

REF 

1 

36,3423 

3 6000 

1 

CAF 

THRESH2 

0296 

REF 

3 

LAST 

748 

36,3424 

55*250 

0 

TS 

OVTHRUSH 

0297 

REF 

11 

LAST 

748 

36,3425 

3 4742 

1 

CAF 

FOUR 

0298 

REF 

28 

LAST 

748 

36 , 3426 

55' 515 

0 

TS 

DVCNTR 

0299 

REF 

l C 5 

LAST 

752 

36, 3427 

0 6060 

1 

TC 

I NTPRET 

0300 

36,3430 

77214 

0 

SET 

VLOAD 

030  1 

RFF 

5 

LAST 

700 

36,3431 

01072 

0 

AVFLAG 

0302 

REF 

1 

36,3432 

34007 

1 

FAPS 

0303 

REF 

5 

LAST 

751 

36,3433 

03735 

0 

STORE 

F 

0304 

36,3434 

52135 

1 

SLOAD 

GOTO 

0305 

REF 

1 

36,3435 

26001 

1 

APSVEX 

0306 

REF 

1 

36,3436 

75  177 

1 

P40IN 

0307 

REF 

25 

LAST 

753 

E7, 1455 

EBANI<= 

WHICH 

0308 

REF 

1 

COUNT  * 

$t/P47 

0309 

REF 

208 

LAST 

753 

36,3437 

0 4607 

1 

P47LM 

TC 

BANKCALL 

0310 

REF 

7 

LAST 

753 

36,3440 

33757 

1 

CADR 

R02BOTH 

0311 

REF 

106 

LAST 

753 

36, 3441 

0 6060 

1 

TC 

INTPRET 

0312 

36,3442 

77624 

1 

CALRB 

0313 

REF 

1 

36,3443 

42  760 

0 

M IDT0AV2 

0314 

REF 

274 

LAST 

739 

36,3444 

3 0155 

0 

CA 

MPAC  +1 

0315 

REF 

18 

LAST 

742 

36, 3445 

0 5175 

1 

TC 

TWIDDLE 
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INITIALIZATION  FOR  BURNBABY. 


INITIALIZE  DV  MON 


LOAD  FAPS,  MDOTAPS,  AND  ATDECAY  INTO 
F,  MOOT,  AND  TDECAY  BY  VECTOR  LOAD. 
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0316 

REF 

l 

36,3446 

03450 

0 

ADRES 

STARTP47 

031  7 

REF 

117 

LAST 

752 

36,3447 

1 5146 

0 

TCF 

ENDOF JOB 

0318 

REF 

49 

LAST 

753 

36,3450 

0 5355 

1 

ST  ART  P47 

TC 

PHASCHNG 

0319 

36,3451 

05014 

1 

OCT 

05014 

0320 

36,3452 

77777 

0 

OCT 

77777 

0321 

36,3453 

0 0006 

1 

EXTEND 

0322 

REF 

1 

36,3454 

3 3756 

0 

DC  A 

ACADN83 

0323 

REF 

6 

LAST 

750 

36,3455 

53 ' 252 

1 

DXCH 

AVEGEXI T 

0324 

REF 

5 

LAST 

732 

36,3456 

3 4727 

1 

CAF 

PR  1020 

0325 

REF 

32 

LAST 

750 

36,3457 

0 5 C 76 

0 

TC 

F INDVAC 

0326 

REF 

4 

LAST 

329 

E7, 1622 

EB ANK= 

DELV IMU 

032  7 

REE 

1 

36,3460 

03514 

1 

2C  ADR 

P47BOOY 

032  7 

REF 

1 

36,3461 

74067 

0 

0 32  0 

REE 

2 

LAST 

252 

36,3462 

1 2344 

1 

TCF 

RED04.2 

A0329 

0330 

REF 

1 C 7 

LAST 

753 

36,3463 

0 6C60 

1 

C ALCN83 

TC 

INTPRET 

033  1 

36,3464 

53375 

0 

VLOAD 

V AD 

0332 

REF 

1 

36,3465 

C3502 

0 

DELVCTL 

0333 

REF 

2 

LAST 

154 

36,3466 

03527 

1 

OELVREF 

0334 

REF 

11 

LAST 

683 

36,3467 

03656 

1 

STORE 

DELVS IN 

0335 

36,3470 

77624 

1 

CALL 

0336 

REF 

4 

LAST 

753 

36,3471 

57271 

l 

S41 . 1 

0337 

REF 

5 

LAST 

754 

36,3472 

03623 

0 

STORE 

DELV [MU 

0338 

36,3473 

77776 

1 

EXIT 

0339 

REF 

50 

LAST 

754 

36,3474 

0 5355 

1 

TC 

PHASCHNG 

0340 

36,3475 

10035 

0 

OCT 

10035 

034  1 

REF 

108 

LAST 

754 

36, 3476 

0 6060 

1 

TC 

I NTPRET 

0342 

36, 3477 

77775 

1 

VLOAD 

0343 

REF 

12 

LAST 

754 

36,3500 

03656 

1 

DELVS  IN 

0344 

REF 

2 

LAST 

754 

36,3501 

C3502 

0 

STORE 

DELVCTL 

0345 

36, 3502 

77776 

1 

EXIT 

0346 

REF 

45 

LAST 

753 

36,3503 

0 4626 

1 

TC 

POSTJUMP 

034  7 

REF 

4 

LAST 

753 

36,3504 

65656 

1 

CADR 

SERVEXIT 

0348 

REF 

1 

36,3505 

3 3 7 54 

1 

P 47800 

CAF 

V 1683 

0349 

REF 

209 

LAST 

753 

36,3506 

0 4607 

1 

TC 

BANK CALL 

0350 

REF 

2 

LAST 

749 

36,3507 

20647 

0 

CADR 

GOFLASHR 

035  1 

REF 

24 

LAST 

750 

36,3510 

0 6001 

0 

TC 

GOTOPOOH 

0352 

REF 

25 

LAST 

754 

36,3511 

0 6001 

0 

TC 

GOTOPOOH 

0353 

REF 

2 

LAST 

754 

36,3512 

l 3514 

0 

TCF 

P47BODY 

0354 

REF 

2 

LAST 

750 

36,3513 

1 3235 

1 

TCF 

P40PHS1 
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CHECKS  PHASE  5 ANO  GOES  TO  PRERFAO 
SEE  TIG-30  IN  8URNBABY. 


TEMP  STORAGE  FOR  RESTARTS 


754 


RE  REA  DAC  AND  HERE 


GAP:  ASSEMBLE  REVISION  210  GF  A GC  PROGRAM  LUMINARY  BY  NASA  202UL2-161 

L P4C-P47 


0355 

REF 

1 C 9 

LAST 

754 

36,3514 

0 6060 

1 

P47B0CY 

TC 

INTPRET 

0356 

36,3515 

77775 

1 

VLOAD 

0357 

REF 

5 

LAST 

724 

36,3516 

06505 

1 

H I6ZER0S 

0358 

REF 

6 

LAST 

754 

36,3517 

03623 

0 

STORE 

D EL  V I MU 

0359 

REF 

3 

LAST 

754 

36,3520 

03502 

0 

STORE 

DELVCTL 

036  0 

36,3521 

77776 

1 

EXIT 

0361 

REF 

1 

36,3522 

0 3505 

1 

TC 

P47B0D 

0362 

REF 

6 

LAST 

744  TO 

745  : 

12  614* 

COUNT  * 

$ 4 / P 40 

0363 

REF 

7 

LAST 

742 

36,3523 

3 1517 

0 

I MPL  BURN 

CA 

TGO  +1 

0364 

REF 

l 

36,3524 

0 3736 

0 

TC 

GETDT 

0365 

REF 

19 

LAST 

753 

36,3525 

0 5175 

1 

TC 

TWIDDLE 

0366 

REF 

2 

LAST 

252 

36,3526 

03543 

0 

ADRES 

ENGOFTSK 

0 36  7 

REF 

69 

LAST 

749 

36,3527 

0 5520 

0 

TC 

DOWNFLAG 

0368 

REF 

3 

LAST 

735 

36,3530 

00153 

0 

ADRES 

I GNFLAG 

0369 

REF 

70 

LAST 

755 

36,3531 

0 5520 

0 

TC 

DOWNFLAG 

0370 

REF 

4 

LAST 

741 

36,3532 

OC  154 

1 

ADRES 

ASTNFLAG 

037  l 

REF 

71 

LAST 

755 

36,3533 

0 5520 

0 

TC 

DOWNFLAG 

0372 

REF 

1 

36,3534 

00044 

1 

ADRES 

I MPULSW 

0373 

REF 

51 

LAST 

754 

36,3535 

0 5355 

1 

TC 

P HASCHNG 

0374 

36,3536 

40114 

1 

OCT 

40114 

0375 

REF 

13 

LAST 

739 

36,3537 

0 5223 

1 

TC 

F IXDELAY 

0376 

36,3540 

00062 

0 

DEC 

50 

0377 

REF 

3 

LAST 

741 

36,3541 

0 2652 

1 

TC 

NOULLAGE 

0378 

REF 

49 

LAST 

739 

36 , 3542 

0 5263 

0 

TC 

T ASKOVER 

0379 

REF 

35 

LAST 

751 

36,3543 

C 4665 

0 

ENGOFTSK 

TC 

I BNKC ALL 

0380 

REF 

1 

36,3544 

75546 

1 

CADR 

ENGINOFF 

0381 

REF 

50 

LAST 

755 

36, 3545 

0 5263 

0 

TC 

T ASKOVER 

0382 

REF 

3 

LAST 

741 

36,3546 

3 4635 

0 

ENGINOFF 

CAF 

PR  1012 

0383 

REF 

33 

LAST 

754 

36,3547 

0 5076 

0 

TC 

F INDVAC 

0384 

REF 

1 1 

LAST 

750 

E 7 , 1462 

EBANK= 

TRKMKCNT 

0385 

REF 

4 

LAST 

749 

36,3550 

03222 

0 

2CADR 

POSTBURN 

0385 

36,3551 

74067 

0 

0386 

REF 

38 

LAST 

742 

36,3552 

3 4744 

1 

ENGIN0F2 

CAF 

B IT1 

0387 

REF 

29 

LAST 

734 

36,3553 

C 5205 

0 

TC 

WAITLIST 

0388 

REF 

8 

LAST 

727 

E6 , 1422 

EBA  NK  = 

OMEGAQ 

0389 

REF 

1 

36,3554 

03607 

0 

2C  ADR 

COASTSET 

0389 

REF 

1 

36,3555 

74066 

1 

0390 

REF 

13 

LAST 

74  2 

36, 3556 

4 0103 

1 

ENGINQF1 

CS 

FLAGWRD7 

039  l 

REF 

1 

36,3557 

7 4736 

0 

MASK 

I DLEFBIT 

0392 

REF 

14 

LAST 

755 

36,3560 

26  103 

1 

ADS 

FLAGWRD7 

0393 

REF 

4 

LAST 

755 

36,3561 

0 2652 

1 

TC 

NOULLAGE 
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1971 
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TURN  OFF  IGNFLAG 
TURN  OFF  ASTNFLG 
TURN  OFF  IMPULSW 

RESTART  PROTECT  ENGOFTSK  (ENGINOFF) 

WAIT  HALF  A SECOND 
TURN  OFF  ULLAGE 

THIS  CODING  ALLOWS  ENGINOFF  ET  AL  TO  BE 
USED  BOTH  BY  WAITLIST  AND  BY  TC  I BNKC ALL 

MUST  BE  LOWER  PRIO  THAN  CLOCKJOB 


GAP: 


ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


P40- 

P47 

0394 

0395 

REF 

23 

LAST 

0396 

REF 

5 

LAST 

0397 

REF 

4 

LAST 

0398 

REF 

23 

LAST 

039  9 

REF 

24 

LAST 

0400 

REF 

7 

LAST 

0401 
040  2 

REF 

24 

LAST 

0403 

REF 

6 

LAST 

0404 
040  5 

REF 

25 

LAST 

040  6 

REF 

23 

LAST 

040  7 

REF 

l 

040  8 

REF 

24 

LAST 

040  9 

REF 

l 

0410 

REF 

3 

LAST 

041  1 

REF 

33 

LAST 

c o 

OJ  l\j 

REF 

9 

LAST 

0414 

REF 

2 

LAST 

0415 

REF 

36 

LAST 

0416 

REF 

4 

LAST 

041  7 

REF 

5 1 

LAST 

0418 

REF 

9 

LAST 

0419 

0420 

REF 

2 

LAST 

042  1 

REF 

1 

0422 

0423 

REF 

4 

LAST 

0424 

REF 

3 

LAST 

0425 

REF 

3 

LAST 

0426 

REF 

1 

042  7 
042  8 

REF 

5 

LAST 

0429 

REF 

1 

0430 
043  1 

REF 

1 

0432 

REF 

1 

0433 

0434 

REF 

2 

LAST 

043  5 

REF 

2 

LAST 

043  6 

REF 

1 

043  7 
043  8 

REF 

1 

36, 

,3562 

0 0006 

1 

752 

36, 

,3563 

3 0025 

0 

733 

36, 

,3564 

53' 342 

1 

733 

36, 

,3  565 

4 4736 

0 

734 

36, 

,3566 

7 0101 

0 

756 

36 

,3567 

54  101 

0 

733 

36, 

,3  570 

4 4346 

0 

36 

, 3571 

0 0006 

1 

733 

36 

, 3572 

02  Oil 

0 

754 

36, 

,3  573 

6 4727 

1 

36 

, 3574 

0 0006 

1 

756 

36 

,3  575 

01  Oil 

0 

748 

36 

,35  76 

4 cm 

l 

36, 

, 3 577 

7 4727 

0 

756 

36 

,3600 

26  111 

1 

36, 

, 3601 

4 4730 

0 

736 

36, 

, 3602 

54  055 

0 

743 

36, 

,3  603 

3 4741 

L 

36, 

,3604 

0 0006 

1 

736 

36, 

,3605 

05  014 

1 

577 

36, 

,3  606 

0 4 700 

1 

755 

36, 

,3607 

0 4 665 

0 

742 

36, 

,3610 

40205 

1 

755 

36, 

,3611 

0 5263 

0 

755 

E6 , 

1422 

36, 

3612 

45020 

1 

148 

36, 

3613 

03665 

1 

36, 

3614 

56447 

0 

36, 

3615 

43014 

0 

693 

36, 

3616 

01307 

1 

756 

36, 

3bl  7 

03665 

1 

690 

36, 

i 3620 

03705 

0 

36, 

3621 

75634 

1 

3b, 

, 3622 

45345 

1 

709 

36, 

3623 

01234 

0 

36, 

3624 

03763 

0 

36, 

3625 

50025 

0 

36, 

3626 

03432 

1 

36, 

3627 

75657 

1 

36, 

3630 

43345 

1 

756 

36, 

3631 

03763 

0 

756 

36, 

3632 

03432 

1 

36, 

3633 

03765 

0 

36, 

,3634 

77776 

1 

36, 

,3635 

10  754 

0 

ENG  I NQF4 

EXTEND 

DCA 

DXCH 

ENGI NCF3 

CS 

MASK 

TS 

CS 

EXTEND 

RAND 

AD 

EXTEND 
WR  I TE 

CS 

MASK 

ADS 

CS 

TS 

CAF 

EXTEND 

WOR 

CDASTSET 

TC 

TC 

CADR 

TC 

UPDATEVG 

EBANK= 
ST  Q 

S40RET 

BUN 

DLOAD 

DSU 

DLOAD 

1 80S  F T UP 

STORE 

EXIT 

CCS 

T IME2 
T EVENT 

ENGONRIT 
F L AGWRD5 
FLAGWRD5 
PRI030 

DSALMOUT 

PRI02C 

DSALMOUT 

DAPBOOLS 
USEQR JTS 
DAPBOOLS 

HIRTHROT 
THRUST 
B IT4 

CHAN  1 4 

I SWRETRN 
I BNKCALL 
ALLCOAST 
TASKOVER 

OMEGAO 

CALL 

QTEMP1 

S40.8 

BON 

XDELVFLG 
QTEMP1 
NORMSW 
l 80SETUP 
OSU 

PIPTIME 

TIGSAVE 

BMN 

TNEWA 

GETRANS 

DAD 

TIGSAVE 
TNEWA 
T IGSAVEP 


P HAS  E 2 
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INSURE  ENGONFLG  IS  CLEAR. 

ENGIN0F3  IS  USED  AS  A PRE-ENGINE  ARM 
SUBROUTINE  . 

TURN  OFF  THE  ENGINE  - DPS  OR  APS 


TURN  OFF  TRIM  GIMBAL 


ZFRO  AUTO-THROTTLE  WHENEVFR  THE  ENGINE 
IS  TURNEO  OFF. 

THE  HARDWARE  DOES  SO  ONLY  WHEN  THE 
ENGINE  IS  DISARMED. 


DO  DAP  COASTING  INITIALIZATION 


X-PRODUCT  STEERING 

WILL  RETURN  HERE  FROM  S40.8 


GAP:  ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 

L P40-P47 


0439 

REF 

i 

36,3636 

1 3664 

1 

TCF 

NO. 9 

044  0 

REF 

4 

LAST 

309 

36,3637 

3 4730 

1 

CAF 

PRI010 

0441 

36 , 3640 

0 C 004 

0 

INHINT 

0442 

REF 

34 

LAST 

755 

36,3641 

0 5076 

0 

TC 

F INDVAC 

0443 

REF 

2 

LAST 

149 

E 7 , 1706 

EB ANK= 

VG 

0444 

REF 

1 

36,3642 

02711 

1 

2CADR 

S40 . 9 

0444 

REF 

1 

36, 3643 

56C67 

0 

044  5 

REF 

9 

LAST 

751 

36,3644 

0 5331 

0 

TC 

2 PHSCHNG 

0446 

36, 3645 

0 C 1 7 2 

0 

OCT 

00172 

044  7 

36,3646 

10035 

0 

OCT 

10035 

044  8 

REF 

110 

LAST 

755 

36 , 3 64  7 

0 6060 

1 

ENDSTEER 

TC 

I NTPRET 

0449 

36,3650 

7 7745 

1 

DLOAD 

0450 

REF 

2 

LAST 

756 

36 ,3651 

03765 

0 

T IGSAVEP 

045  1 

REF 

3 

LAST 

756 

36,3652 

2 7763 

0 

STOVL 

TIGSAVE 

045  2 

REF 

7 

LAST 

720 

36,3653 

01220 

0 

RN 

045  3 

REF 

8 

LAST 

695 

36,3654 

26314 

0 

STOVL 

R INIT 

0454 

REF 

7 

LAST 

720 

36,3655 

01226 

0 

VN 

045  5 

REF 

7 

LAST 

695 

36,3656 

02322 

0 

STORE 

VINIT 

0456 

36,3657 

45345 

1 

GETRANS 

DLOAD 

DSU 

0457 

REF 

7 

LAST 

678 

36,3660 

03631 

0 

TPASS4 

045  8 

REF 

6 

LAST 

756 

36,366  1 

01234 

0 

PIPTIME 

0459 

REF 

7 

LAST 

692 

36,3662 

37452 

0 

STCALL 

DELLT4 

0460 

REF 

4 

LAST 

756 

36,3663 

03665 

1 

QTEMP1 

0461 

REF 

1 1 1 

LAST 

757 

36, 3664 

0 6060 

l 

NO. 9 

TC 

I NTPRET 

046  2 

36,3665 

77650 

1 

GOTO 

0463 

REF 

5 

LAST 

757 

36,3666 

03665 

1 

QTEMP  l 

0464 

REF 

1 12 

LAST 

757 

36,3667 

0 6060 

1 

STEER ING 

TC 

I NTPRFT 

0465 

36,3670 

77624 

1 

CALL 

0466 

REF 

2 

LAST 

752 

36,3671 

75612 

0 

UPDATEVG 

046  7 

36,3672 

77776 

1 

EXIT 

0468 

REF 

29 

LAST 

753 

E7, 1515 

ebank= 

DVCNTR 

0469 

36,3673 

0 0004 

0 

NSTEER 

INHINT 

0470 

REF 

7 

LAST 

735 

36,3674 

3 5007 

0 

CA 

EBANK7 

0471 

REF 

30 

LAST 

735 

36,3675 

54  003 

0 

TS 

EBANK 

0472 

REF 

13 

LAST 

735 

36,3676 

4 0076 

1 

CS 

FLAGWRD2 

0473 

REF 

2 

LAST 

735 

36,3677 

7 4734 

1 

MASK 

IMPULBI T 

0474 

REF 

217 

LAST 

753 

36,3700 

10  000 

0 

CCS 

A 

0475 

36,3701 

1 3706 

1 

TCF 

+5 

0476 

REF 

15 

LAST 

755 

36, 3702 

4 C 103 

1 

CS 

FLAGWRD7 

047  7 

REF 

2 

LAST 

755 

36,3703 

7 4736 

0 

MASK 

I DLEFBI T 

0478 

REF 

218 

LAST 

757 

36,3704 

10  COO 

0 

CCS 

A 

0479 

36,3705 

1 3710 

0 

TCF 

+3 

0480 

REF 

46 

LAST 

754 

36,3706 

0 4626 

1 

TC 

POST  JUMP 

048  1 

REF 

5 

LAST 

754 

36,3707 

65656 

1 

CADR 

SERVEXIT 

17: 11  MAR.  19,1971  FLY 
USER'S  PAGE  NO. 


.197  PAGE  757 
11  E 6 S3 


LAMRERT  VTOGAIN 


2.17SP0T  FOR  S40.9 

HERE  AND  RERFADAC  AFTER  RESTART 


CHECK  IMPULSE  SWITCH.  IT  IS  SET  EITHER 
BY  S40.13  IF  T 8URN<6  SECS  OR  BY  S40.8  IF 
STEERING  IS  ALMOST  DONE. 

IMPULSW  = 0 EXIT 

IMPULSW  = 1 WHY?  CHECK  IDLEFLAG 

( IDLFFLAG  = 0 — > DVMON  ON) 


DVMON  ON — >TH RUSTING — MMPULSW  VIA  S40.8 
DVMON  OFF — MMPULSW  ON  VIA  S40.13  — >FXIT 


GAP: 

L 

0462 

0483 

0484 

0485 

0466 

0487 

0488 

0489 

0490 

049  1 

0492 

0493 

0494 

0495 

0496 

0497 

0498 

049  9 

050  0 

0501 

0502 

0503 

0504 

0505 

0506 

050  7 

0 50  3 

0509 

0510 

051  1 

0512 

0513 

R0514 

0515 

0516 

051  7 

0518 

0519 

0520 

052  1 

0522 
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REF 

37 

LAST 

756 

36,3710 

0 4665 

0 

TC 

I BNKC ALL 

REF 

3 

LAST 

375 

36,3711 

40  166 

1 

CADR 

STOPRATE 

REF 

7 2 

LAST 

755 

36,3712 

0 5520 

0 

TC 

DOWNFLAG 

REF 

2 

LAST 

755 

36,3713 

0C044 

1 

ADRES 

I MPULSW 

REF 

51 

LAST 

741 

36,3714 

0 5506 

1 

TC 

IJPFLAG 

REF 

4 

LAST 

737 

36,3715 

CC161 

1 

ACRES 

I DLEF  LAG 

36,3  716 

0 0004 

0 

INHINT 

36,3717 

0 0006 

1 

EXTEND 

REF 

33 

LAST 

752 

36,3720 

3 1442 

1 

DC  A 

TIG 

REF 

275 

LAST 

753 

36,3721 

52  155 

1 

DXCH 

MPAC 

36, 3722 

0 0006 

1 

EXTEND 

REF 

24 

LAST 

756 

36,3723 

4 0025 

1 

DCS 

TIME2 

REF 

276 

LAST 

758 

36,3724 

20  155 

l 

DAS 

MPAC 

REF 

8 

LAST 

738 

36,3725 

0 7300 

0 

TC 

T P AGREE 

REF 

277 

LAST 

758 

36,3726 

30  155 

0 

CAE 

MPAC  +1 

REF 

2 

LAST 

755 

36,3727 

0 3736 

0 

TC 

GETDT 

REF 

20 

LAST 

755 

36,3730 

0 5175 

L 

TC 

TWIDDLE 

REF 

3 

LAST 

755 

36,3731 

03543 

0 

ADRES 

ENGOFTSK 

RFF 

10 

LAST 

757 

36,3732 

0 5331 

0 

TC 

2 PHSCHNG 

36,3733 

40114 

1 

OCT 

40114 

36,3734 

00035 

l 

OCT 

00035 

REF 

1 18 

LAST 

754 

36, 3735 

1 5146 

0 

TCF 

ENDOF JOB 

REF 

2 19 

LAST 

757 

36,3736 

10  000 

0 GETDT 

CCS 

A 

3t>,  3737 

1 3 742 

1 

TCF 

+ 3 

36,3740 

l 3742 

1 

TCF 

+ 2 

REF 

140 

LAST 

750 

36,3741 

3 4746 

0 

CAF 

ZERO 

REF 

75 

LAST 

717 

36,3742 

6 4 744 

l 

AU 

ONE 

REF 

107 

LAST 

746 

36,3743 

56  001 

0 

XCH 

L 

REF 

14  1 

LAST 

758 

36,3744 

3 4 746 

0 

CAF 

ZERO 

REF 

8 

LAST 

755 

36,3745 

53 ' 517 

1 

DXCH 

T GO 

REF 

9 

LAST 

758 

36,3746 

3 1517 

0 

CA 

T GO  +1 

REF 

l £ 5 

LAST 

746 

36,3747 

0 0002 

0 

TC 

Q 

$ **#$$*  * ***$4  ********  ******  **** 

36,3750 

00000 

1 

5 SEC DP 

OCT 

00000 

36,3751 

OC  764 

1 

5 SEC 

DEC 

500 

36,3  752 

04050 

0 

V16N40 

VN 

1640 

36,3753 

04  125 

0 

V16N35B 

VN 

1685 

36,3754 

04123 

0 

V 1683 

VN 

l 683 

REF 

14 

LAST 

752 

4 770 

S ECO  1 

= 

1 SEC 

REF 

2 

LAST 

744 

36,2057 

AC AON  85 

= 

P41TABLE  +2 

REF 

7 

LAST 

755 

E 7 , 1622 

EB ANK= 

DELVIMU 

TURN  OFF  IMPULSW 


TURN  OFF  OVMON 


ENGOFTSK  (ENGINOFF) 
SERVICER — PEREADAC 


DON'T  MOVE  FROM  JUST  BEFORE  SSFC 


.197  PAGE 
13  E?  S3 

0523  REF  1 36,3755  03463  0 ACADN83  2C ADR  CALCN83 

0523  REF  l 36,3756  74067  0 

R0 52  4 $*>!<  $ &&%&%***&*  & **&*#*%*****&##**%****$* 


GAP:  ASSEMBLE  REVISION  210  GF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L P4C-P47 


17:11  MAR . 19, 1971  FLY 

USER  1 S PAGE  NO. 


759 


GAP: 


ASSEMBLE  REVISION  210  CE  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


1 


L 

P40-P47 

P0525 

PROGRAM 

DESCRIPTION  S40.1  CATE 15N0V66 

R0526 

MOD  NC2 

LOG  SECT  ION  P40-P47 

R0527 

MOO  BY  ZELOIN  AND  ADAPTED  BY  TALAYCO 

R052U 

FUNCTIONAL  DESCRIPTION 

R0529 

COMPUTE  INITIAL  THRUST  D I RECT  ION (UT ) AND 

INITIAL  VALUE  OF  V G 

R0530 

VECTOR ( VGTIG)  . 

R0531 

CALLING 

SEQUENCE 

R0532 

L 

CALL 

R0533 

L + l 

S40 . 1 

R0534 

NORMAL  EXIT  MODE 

R0535 

AT  L+2  OF  CALLING  SEQUENCE 

R0536 

SUBROUTINES  CALLED 

R0537 

LEMPREC 

R0538 

INITVEL 

R0539 

ERASABLE 

INITIALIZATION  REQUIRED 

R0540 

WEIGHT/G  ANTICIPATED  VEHICLE  MASS 

DP  B16KGM 

R0541 

XDELVFLG  1 =DE  LT  A-V  M ANEUVER , 0 = A I MPT  STEER 

R0542 

F THRUST  FOR  ENGINE  USED 

R0543 

IF 

DELTA-V  MANEUVER 

R0544 

DEL  VS  IN  SPECIFIED  DELTA-V  REQUIRED  IN 

R0545 

INERTIAL  COORDS.  OF  ACTIVE  VEHICLE 

R0546 

AT  TIME  OF  IGNITION 

VECTOR  B7M/CS 

R0547 

DEL  VS  AB  MAG.  OF  DELVSIN 

DP  B7M/CS 

R0548 

RTIG  POSITION  AT  TIME  OF  IGNITION 

VECTOR  829M 

R0549 

VTIG  VELOCITY  AT  TIME  OF  IGNITION 

VECTOR  87M/CS 

R0550 

IF 

AIMPT  STEER 

R055  1 

T IG  TIME  OF  IGNITION 

OP  B28CS 

R0552 

RTARG  POSITION  TARGET  TIME 

VECTOR  B29M 

R0553 

TPASS4  TARGET  INTERCEPT  TIME 

DP  B28  CS 

R0554 

OUTPUT 

R0555 

UT 

DESIRED  THRUST  DIRECTION 

VECT.  B2M/ICS.C 

R0556 

VGTIG  INITIAL  VALUE  OF  VELOCITY 

R055  1 

TO  8E  GAINED  (INERT.  COORD.) 

VECTOR  B7M/CS 

R0558 

C EL  VL  VC  VGTIG  IN  LOC.  VERT.  COORDS. 

B7M/CS 

R0559 

UNIT/R/  POSITION  AT  TIG  FOR  ASTEER 

VECTOR  B1 

R0560 

RTIG  CALC  IN  S40 . 1 B I A I MPT ) FOR  S40. 

2,3 

VECTOR  B29M 

R0561 

POSITION  AT  TIME  OF  IGNITION 

R0562 

DEBRIS 

QTEMP  1 

R0563 

MPAC.QPRET 

R0564 

PUSHLIST 

0565 

14,2455 

BANK 

14 

0566 

REF  4 

LAST  745  27,2000 

SETLOC  P40S1 

0567 

27,2246 

BANK 

0568 

REF  1 

COUNT*  $$/S40. 1 

0569 

27,2246  71220  1 S40.  1 

STQ 

DLOAD 

0570 

REF  3 

LAST  623  27,2247  03632  0 

QTEMP 

057  l 

REF  34 

LAST  758  27,2250  03442  0 

TIG 

0572 

REF  4 

LAST  757  27,2251  03763  0 

STORE 

TIGSAVE 

0573 

27,2252  77614  1 DE  LV  TEST 

BOFF 

MAR.  19,1971 

FLY 

.197  PAGE 

USFR'S  PAGE 

NO. 

14  E 7 S3 

760 


GAP: 
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L P4C-P47 


0574 

REF 

5 

LAST 

756 

27,2253 

01347 

0 

XDELVFLG 

0575 

REF 

1 

27,2254 

56336 

1 

S40. IB 

0576 

27,2255 

77201 

1 

CALCTHET  SETPD 

V LOAD 

0577 

27,2256 

OOCOl 

0 

0 

0578 

REF 

5 

LAST 

648 

27,2257 

C3650 

1 

VTIG 

0579 

REF 

8 

LAST 

757 

27,2260 

02322 

0 

STORE 

VINIT 

0580 

27,2261 

53435 

0 

VXV 

UNIT 

0581 

REF 

6 

LAST 

648 

27, 2262 

C 3 642 

1 

RTIG 

0582 

REF 

3 

LAST 

150 

27,2263 

27673 

0 

STOVL 

UT 

0583 

REF 

7 

LAST 

761 

27,2264 

03642 

1 

RTIG 

0584 

REF 

9 

LAST 

757 

27,2265 

02314 

0 

STORE 

RINIT 

0585 

27,2266 

65236 

0 

VSQ 

P DDL 

0586 

27,2267 

00045 

0 

36D 

0587 

27,2270 

56205 

0 

DMP 

DDV 

0588 

REF 

1 

27,2271 

16412 

1 

THETACON 

0589 

27,2272 

41205 

0 

DMP 

DMP 

0590 

REF 

4 

LAST 

651 

2 7,2273 

03664 

0 

DELVSAB 

0591 

REF 

1 

27,2274 

01244 

1 

WE  IGHT/G 

0592 

27,2275 

77671 

1 

DDV 

0593 

REF 

6 

LAST 

753 

27,2276 

03735 

0 

F 

0594 

27, 2277 

24017 

1 

STOVL 

L4D 

0595 

REF 

13 

LAST 

754 

27,2300 

03656 

1 

DELVSIN 

0596 

27,2301 

74241 

0 

DOT 

VXSC 

0597 

REF 

4 

LAST 

761 

27,2302 

C 3 6 7 3 

0 

UT 

0598 

REF 

5 

LAST 

761 

27,2303 

03673 

0 

UT 

0599 

27,2304 

41552 

0 

VSL2 

PUSH 

0600 

27,2305 

65245 

1 

B VS  U 

P DDL 

0601 

REF 

14 

LAST 

761 

27,2306 

03656 

1 

DELVSIN 

0602 

27,2307 

00017 

1 

14D 

0603 

27,2310 

63356 

1 

SIN 

PDVL 

0604 

27,2311 

00007 

0 

6D 

060  5 

27,2312 

53435 

0 

VXV 

UNIT 

0606 

REF 

6 

LAST 

761 

27,2313 

03673 

0 

UT 

060  7 

27,2314 

45561 

1 

VXSC 

STADR 

0608 

REF 

6 

LAST 

751 

27,2315 

50C76 

0 

STOVL 

VGTIG 

0609 

27,2316 

65256 

0 

UNIT 

P DDL 

0610 

27,2317 

CO  0 1 7 

1 

14D 

061  1 

27,2320 

74346 

0 

COS 

VXSC 

0612 

27,2321 

74255 

0 

VAD 

VXSC 

0613 

REF 

7 

LAST 

76  1 

27,2322 

03701 

l 

VGTIG 

0614 

27,2323 

00045 

0 

36D 

0615 

27,2324 

53352 

0 

VSL2 

VAD 

0616 

27,2325 

77626 

0 

STADR 

061  7 

REF 

8 

LAST 

76  1 

27,2326 

74076 

0 

STORE 

VGTIG 

0618 

27,2327 

77656 

1 

UNIT 

0619 

REF 

7 

LAST 

76  1 

27,2330 

27673 

0 

STOVL 

UT 

062  0 

REF 

9 

LAST 

76  1 

27,2331 

03701 

1 

VGTIG 

062  1 

27, 2332 

45006 

0 

PUSH 

CALL 

17:11  MAR.  19 , 1971  FLY 
USER’S  PAGE  NO. 
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UP  IN  UT 


( DEL  T A V . UP ) UP  SCALED  AT  2I+7)  P.D.L.  0 
DELTA  VP  SCALED  AT  2 C + 7 ) P.D.L.  6 


UNIT! VPXUP)SIN(THETAT/2)  IN  VGTIG. 
UNITIDELTA  VP)  IN  P.D.L.  6 


VG  IGNITION  SCALED  AT  2I+71M/CS 


THRUST  DIRECTION  SCALED  AT  2<+l) 


GAP: 

L 

0622 

0623 

0624 

0625 

0626 

0627 

062  8 

0629 

0630 

063  l 

063? 

0633 

0634 

0635 

0636 

063  7 

063  8 

0639 

064  0 

0641 

0642 

064  3 

0644 

064  5 

0646 

064  7 

064  8 

0649 

0650 

065  1 

0652 

0653 

0654 

0655 

0656 

065  7 

0658 

0659 

0660 

0661 

0662 

0663 

066  4 

0664 

066  5 

0665 

0666 

0666 
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REF 

l 

27,2333 

42022 

l 

GET . L VC  VGTIG  IN  LV  COOR  AT  21+7IM/CS  IN  OELVLVC 

27,2334 

77650 

1 

GOTO 

REF 

4 

LAST 

760 

27,2335 

C3632 

0 

QTEMP 

27,2336 

77745 

1 

S40. 10 

DLOAD 

REF 

35 

LAST 

760 

27,2337 

03442 

0 

T IG 

REF 

42 

LAST 

729 

27,2340 

00041 

l 

STORE 

T DEC  1 

27,2341 

77621 

1 

BDSU 

REF 

8 

LAST 

757 

27,2342 

03631 

0 

TPASS4 

REF 

8 

LAST 

757 

27,2343 

37452 

0 

STCALL 

DELL  T 4 INTERCEPT  TIME  - TIG. 

REF 

7 

LAST 

710 

27,2344 

27115 

l 

LEMPREC 

27,2345 

40375 

1 

VLOAD 

SETPD  LOAD  STATE  VECTOR  AT  TIG  FOR  INITVEL. 

REF 

24 

LAST 

717 

27,2346 

00001 

0 

R ATT 

27,2347 

00001 

0 

0 

REF 

8 

LAST 

761 

27,2350 

03642 

1 

STORE 

R T IG 

REF 

10 

LAST 

761 

27,2351 

02314 

0 

STORE 

RINIT 

27,2352 

77656 

1 

UNIT 

REF 

2 

LAST 

154 

27,2353 

27537 

0 

STOVL 

UNIT/R/ 

REF 

20 

LAST 

7 17 

27,2354 

00007 

0 

VATT 

REF 

6 

LAST 

761 

27,2355 

C 3650 

1 

STORE 

VTIG 

REF 

9 

LAST 

761 

27,2356 

02322 

0 

STORE 

V INIT 

27,2357 

65345 

0 

DLOAC 

PDDL  NUMIT  = 0 

REF 

12 

LAST 

680 

27,2360 

06505 

1 

ZEROVECS 

REF 

1 

27, 2361 

16406 

1 

EPS1 

27,2362 

43214 

1 

BOFF 

DAD 

REF 

4 

LAST 

756 

27,2363 

03745 

1 

NORMSW 

REF 

l 

27,2364 

56366 

1 

SMALLEPS 

REF 

1 

27,2365 

16410 

0 

EPS2  EPSIL0N4  = 10  DEGREFS  OR  45  DEGREES. 

27,2366 

66006 

1 

SMALLEPS 

PUSH 

S X A , 1 

REF 

12 

LAST 

70  1 

27,2367 

02776 

0 

RTX1 

27,2370 

45  134 

0 

SX  A , 2 

CALL 

REF 

1 1 

LAST 

702 

27,2371 

02777 

1 

RTX2 

REF 

2 

LAST 

677 

27,2372 

22000 

1 

INITVEL 

27,2373 

41575 

0 

VLUAD 

PUSH 

REF 

11 

LAST 

693 

27,2374 

02357 

1 

DELVE  ET  3 VGTIG  = VR  - VN. 

REF 

10 

LAST 

761 

27,2375 

03701 

1 

STORE 

VGTIG 

2 7, 2376 

77656 

1 

UNIT 

UT  = UNIT  (VGTIG) 

REF 

8 

LAST 

761 

27,2377 

17673 

0 

STOOL 

UT 

27,2400 

00045 

0 

36D 

REF 

3 

LAST 

326 

27,2401 

3 7664 

1 

STCALL 

VGDISP  CONVERT  VGTIG  (IN  PUSHLIST  ) TO  LOCAL 

REF 

2 

LAST 

762 

27,2402 

42022 

1 

GET  . L VC  VERTICAL  COORDINATES. 

27,2403 

77650 

1 

GOTO 

REF 

5 

LAST 

762 

27,2404 

03632 

0 

OTEMP 

27,2405 

0C70  7 

1 

EPS1 

2DEC* 

2.777777778  E-2*  10  DEGREES  AT  1 REVOLUTION. 

27,2406 

03434 

1 

2 7,2407 

03C70 

0 

EPS2 

2DEC* 

9.722222222  E-2*  35  DEGREES  AT  1 REVOLUTION. 

27,2410 

34344 

0 

27,2411 

0CC24 

1 

THETACQN 

2DEC 

.31830989  B-8 

27,2412 

13  714 

1 

GAP: 
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P0667  SUBROUTINE  NAME:  S40.2,3  MOD.  NO.  3 DATE:  APRIL  A,  1967 

R0668  MODIFICATION  BY:  JONATHAN  D.  ADCELST ON  (ACAMS  ASSOCIATES) 

R 066 9 MOD.  NO.  4:  JULY  18,  1967:  PETER  ADLER  (MIT/IL) 

R0670  MOD.  NO.  5:  OCTOBER  18,  1967:  PETER  ADLER  (MIT/IL) 

R0671  ORIGINALLY  BY:  SAYDEAN  ZELDIN  (MIT  INSTRUMENT  AT IUN  LAB)  AND  RICHARD  TALAYCO  (SYSTEM  DEVELOPMENT  CORP) 

R0673  S40. 2 , 3 COMPUTES  "POIIMTVSM"  WHICH  IS  THE  HALF-UNIT  DESIRFD  THRUST  VECTOR  IN  STABLE-MEMBER  COORDINATES  FROM  "UT" 

R0675  WHICH  IS  THE  SAME  VECTOR  IN  REFERENCE  COORDINATES.  IT  DETERMINES  THE  CORRECT  VALUES  FOR  "SCAXIS"  USING  THE  + X 

R0677  AXIS  FOR  DPS,  APS,  AND  RCS  BURNS.  THE  "W  INGS-LEVEL  HEADS-UP"  LM  ORIENTATION  IS  THEN  COMPUTED  IN  REFERFNCE 

R0679  COORDINATES.  THESE  VFCTORS  ALSO  DEFINE  THE  "PREFERRED  IMU  ORIENTATION".  UPON  COMPLETION  OF  THIS  CALCULATION, 
R0681  THE  "PREFERRED  ATTITUDE  COMPUTED"  FLAG  IS  SET  (PFRATFLG). 


R0682 

CALLING  SEQUENCE: 

A0683 

L 

A0684 

L 

A0685 

L 

R0686 

SUBROUTINES  CALLED: 

NONE  . 

R0637 

NORMAL  RETURN:  L +2 

(SEE  CALLING  SEQUENC 

CALL. 

VECTOR  IN  MP AC . 

ABOVE ) . 


CALL 

+1  S40 . 2 , 3 

+2  (RETURN) 


INTERPRETI VE 
GIMBAL  ANGLE 


R0688 

R0689 

R0690 

R0692 

R0693 

R0695 


ALARM/ABORT  MODES:  NONE. 

INPUT  : 


1.  REFSMMAT 

2.  UT 

3.  RTIG 


OUTPUT  : 


R0696 
R 0697 
R0698 
R0699 
RO  70  1 
R 0703 


: YSCREF  : 
: ZSCREF  : 

2.  POINTVSM 

3.  SCAXIS 

4.  PFRATFLG 


RO  70  5 DEBRIS: 


MATRIX  FROM  REFERENCE  TO  STABLE-MEMBER  COORDINATES  SCALED  AT  2. 
HALF-UNIT  DESIRED  THRUST  DIRECTION. 

POSITION  AT  TIG  IN  REFERENCE  COORDINATES. 


WINGS-LEVEL  HEAdS-UP  LM  ORIENTATION 
IN  REFERENCE  COORDINATES 
(PREFERRED  IMU  ORIENTATION). 

DESIRED  THRUST  DIRECTION  IN  STABLE-MEMBER  COORDINATES. 

HALF-UNIT  OF  AXIS  TO  ALIGN  IN  STABLE-MEMBER  COORDINATES. 

INTERPRETIVE  FLAG.  ON:  PREFERRED  ORIENTATION  COMPUTED;  OFF:  NOT  COMPUTED. 


NONE 


GAP 
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P4C- 

■P  4 7 

0706 

REF 

1 

0707 
0 70  8 

REF 

9 

LAST 

0709 

0710 

REF 

24 

LAST 

071  1 

REF 

7 

LAST 

0712 

REF 

6 

LAST 

0713 

REF 

22 

LAST 

071  A 

REF 

10 

LAST 

0713 

REF 

1 

0716 

0717 

REF 

9 

LAST 

0718 

0719 

0720 

REF 

l 

0721 

0722 

REF 

l 

0723 

0724 

REF 

2 

LAST 

0725 
0 72  6 

REF 

1 

0727 

0728 

REF 

l 

072  9 
0730 

REF 

3 

LAST 

0 731 

REF 

7 

LAST 

0 73  2 

0733 

0734 

REF 

1 

27,2413 

77775 

1 

762 

27,2414 

03673 

0 

27,2415 

76521 

0 

729 

27,2416 

117 

0 

534 

27,2417 

27773 

1 

600 

27,2420 

06503 

1 

534 

27,2421 

27765 

0 

764 

27,2422 

C3673 

0 

27,2423 

03607 

0 

27,2424 

53435 

0 

762 

27,2425 

03642 

1 

27,2426 

46125 

0 

27,2427 

00045 

0 

27,2430 

56441 

0 

27,2431 

45575 

1 

27,2432 

74162 

1 

27,2433 

76435 

1 

764 

27,2434 

03607 

0 

27,2435 

77676 

0 

27,2436 

03623 

0 

27,2437 

43414 

1 

27,2440 

01073 

1 

27,2441 

47375 

0 

764 

27,2442 

03607 

0 

762 

27,2443 

C3650 

1 

27,2444 

41456 

0 

27,2445 

77650 

1 

27,2446 

56431 

1 

COUNT*  t$/S40.2 
S40.2,3  VLOAD 


MX  V 

UT 

VSL1 

STOVL 

REFSMMAT 

POINTVSM 

STOVL 

UNITX 

SCAXIS 

PLUSX 

STORE 

UT 

XSCREF 

VXV 

UNIT 

PDDL 

RTIG 

BHIZ 

STORY 

VLOAD 

36D 

FIXY 

STADR 

STORE 

YSCREF 

VXV 

VSLl 

VCOMP 

STORE 

XSCREF 

ZSCREF 

SET 

R VQ 

FIXY 

VLOAD 

PFRATFLG 

VXV 

UNIT 

XSCREF 

VTIG 

PUSH 

GOTO 

STORY 

17:11  MAR.  19,1971  FLY 
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UT : DESIRED  THRUST  DIRECTION  ( HAL  F-UN I T ) 
(PUT  INTO  TOP  OF  PUSH-DOWN-LIST.) 
TRANSFORM  THRUST  DIRECTION  TO  STABLE- 
MEMBER  FROM  REFERENCF  COORDS  (RESCALE). 
SAVE  FOR  " VECPO I NT"  ROUTINE  (LFMMANU). 
SCAXIS  SET  TO  + X,  FOR  P40  AND  P42  ANO 
FOR  P41  IF  RCS  NOT  — X , +Y , -Y , + Z * — Z . 

ASSUME  + X BURN  ALWAYS,  EVEN  FOR  RCS. 
XSCRFF  = UT  (DESIRED  THRUST  DIRECTION.) 
RTIG  = POSITION  AT  TIME-OF-IGNITION. 
YSCREF  = UNITtUT  X RTIG) 

TEST  MAGNITUDE  OF  UT  X RTIG 
IF  SMALL,  USE  UT  X VTIG  AS  YSC 


COMPUTE  (YSCREF  X XSCREF), RUT  FOR  A 
RIGHT  HANDFD  SYSTEM,  NEED  (X  CROSS  Y). 
ZSCREF  = - (YSCREF  X XSCREF1 
= + (XSCREF  X YSCPFF) 


IN  THIS  CASE, 

YSCREF  = UN  I T ( XSCREF  X VTIG) 


GAP: 
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FLY 
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L 

P0735 

R0736 

R0737 

R0738 

R0740 

R0742 

RO  744 

R0745 

R0746 

R0747 

R0748 

R0749 

R0751 

R0752 

R0753 
R0754 
RO  75  5 
R0756 
R0757 
R0758 

R075S 

R0760 

RO  76  l 
R0762 
RO  76  3 
RO  764 

R0765 

R0766 

R0767 
RO  76  8 

R0769 


P4C-P47 


USER'S  PAGE  NO.  19 


E 7 S3 


SUBROUTINE  S40.8 

MODIFIED  APRIL  3,  1968  BY  PETER  ADLER  MIT/IL 
DESCRIPTION 


S40.8  UPDATES  TFE  VELOCITY-TO-BE-GAINED  VECTOR,  V G,  COMPUTES  THE  TIME  FOR  ISSUING  THE  ENGINE  OFF  COMMAND, 
T GO,  AND  CALLS  THE  ROUTINE  "FINDCDUW",  WHICH  GENERATES  THE  STEERING  COMMANDS  FOR  THE  AUTOPILOT.  FOR  "ASTEER" 
TYPE  MANEUVERS , SUBROUTINE  "R.ASTEER1"  IS  CALLED  EACH  PASS  TO  GENFRATE  A NEW  VELOCITY-TO-BE-GAINED. 


CALLING  SEQUENCE 


L-l 

L 

L+l 

ALARM 


CALL 

S40.8 


INTERPRETIVE  RETURN 


IF  VG 
I STEER  ING) 


. DELVREF  IS  NEGATIVE  (VG  AND  DEL VREF  OVER  90  DEGREES  APART), 
SET  ALARM  1407  AND  RETURN  TO  CALLER  NORMALLY. 


BYPASS  TGO  COMPUTATIONS,  BUT  DO  FINDCDU 


INPUT  AND  INITIALIZATION 


VGPREV 
DELVREF 
T DEC  A Y 
XDELVFLG 
STEERSW 


REFERENCE  2(7)  M/CS 

REFERENCE  2(7)  M/CS 

TAIL-OFF  TIME  2(28)  CS 

l = EXTERNAL  DELTA-V;  0 = LAMBERT  (A 
1 = DO  STEERING  AND  TGO  COMPUTATIONS; 


IMPO INT ) 

0 = VG  UPDATE  ONLY 


NOTE:  VGTIG  EQUALS  VGPREV 

OUTPUT 


STEERSW 
IMPUL  SW 

SEE  INPUT 

1 = ENGINE  OFF  IN  TGO 

CENT  I S E CONDS; 

0 

TGO 

SEE  FINDCDUW 

TIME  TO  CUT-OFF  2(28) 
FOR  STEERING  OUTPUTS. 

CS 

CONTINUE  BURN 


SUBROUTINE  CALLED 


FINDCDUW 

RASTEER  1 
DEBRIS 

MPACS,  PUSHLIST 


REF 


0770 


1 


COUNT*  $ $/S40. 8 


GAP:  ASSEMBLfc  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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0771 

27,2447 

77614 

1 

S40.8 

BOF 

0772 

REF 

6 

LAST 

76  1 

27,2450 

01347 

0 

XDELVFLG 

0773 

REF 

l 

27,2451 

56733 

0 

R AST  EER  1 

0774 

27,2452 

52375 

1 

VLOAD 

VSU 

0775 

REF 

7 

LAST 

752 

27,2453 

C3701 

1 

VGPREV 

0776 

REF 

3 

LAST 

754 

27,2454 

C3527 

1 

DELVRFF 

0777 

REF 

3 

LAST 

757 

27,2455 

03707 

1 

VGA  I N* 

STORE 

VG 

0778 

27,2456 

76521 

0 

MX  V 

VSLl 

0779 

REF 

25 

LAST 

764 

27,2457 

01732 

0 

R EFSMMAT 

0780 

REF 

3 

LAST 

212 

27,2460 

03252 

1 

STORE 

UNFC/2 

0781 

27,2461 

5 1575 

1 

BDTOK 

VLOAD 

ABVAL 

0782 

REF 

4 

LAST 

766 

27,2462 

03707 

1 

VG 

0783 

REF 

4 

LAST 

762 

27,2463 

03664 

0 

STORE 

VGDI SP 

0784 

27,2464 

7 7776 

1 

EXIT 

0785 

REF 

52 

LAST 

755 

27, 2465 

0 5355 

1 

TC 

P HASCHNG 

0786 

27,2466 

10C35 

0 

OCT 

10035 

0787 

REF 

1 1 3 

LAST 

757 

27,2467 

0 6060 

1 

TC 

I NTPRFT 

0788 

27,2470 

77201 

1 

TGOCALC 

SET  PD 

VLOAD 

0789 

27,2471 

C0001 

0 

0 

0790 

REF 

5 

LAST 

766 

27,2472 

03707 

1 

VG 

0791 

REE 

8 

LAST 

766 

27,2473 

27701 

1 

STOVL 

VGPREV 

0792 

REF 

4 

LAST 

766 

27,2474 

03527 

1 

OELVRFF 

0793 

27,2475 

57414 

l 

BOFF 

VCOMP 

0 79  4 

REF 

1 

27,2476 

01344 

0 

STEERSW 

0795 

REF 

1 

27, 2477 

75615 

1 

S40RET 

0796 

27,2500 

77656 

1 

UNIT 

0797 

27,2501 

4 1441 

0 

DOT 

PUSH 

0798 

REF 

6 

LAST 

766 

27,2502 

03707 

1 

VG 

0799 

27, 2503 

56244 

0 

BPL 

DDV 

0800 

REF 

1 

27,2504 

51634 

1 

ALARM  IT 

080  1 

REF 

2 

LAST 

749 

2 7, 2505 

03743 

l 

VEX 

0802 

27,2506 

41215 

1 

DAD 

DMP 

080  3 

REF 

12 

LAST 

672 

27,2507 

06503 

1 

DPHALF 

0804 

27,2510 

56261 

1 

SR 

DDV 

0805 

27,2511 

20613 

l 

10D 

080  6 

27,2512 

00045 

0 

36D 

0807 

27,2513 

43205 

1 

DMP 

DAD 

0808 

REF 

1 

27,2514 

16533 

0 

-FOURDT 

0809 

REF 

1 

27,2515 

03741 

0 

T DECAY 

0810 

REF 

10 

LAST 

758 

27, 25lo 

03517 

1 

STORE 

T GO 

081  1 

27,2517 

77615 

0 

DAD 

0812 

REF 

7 

LAST 

757 

27,2520 

01234 

0 

PIPTIME 

0813 

REF 

36 

LAST 

762 

27,2521 

17442 

0 

STOOL 

TIG 

0814 

REF 

11 

LAST 

7bb 

27,2522 

03517 

1 

T GO 

0815 

27,2523 

51025 

1 

DSU 

BPL 

081  6 

REF 

1 

27,2524 

16535 

0 

F OUR  SEC  S 

081  7 

REF 

1 

27,2525 

51640 

l 

GOFIND 

081  8 

27,2526 

43  C 14 

0 

SFT 

C LRGO 

0319 

REF 

3 

LAST 

758 

27,2527 

0 1066 

0 

I MPULSW 

0820 

REF 

2 

LAST 

76b 

27,2530 

01224 

1 

STEERSW 

17:11  MAR.  19,1971  FLY  .197  PAGE  766 

USER'S  PAGE  NO.  20  E7  SB 

GENERATE  VR  IF  NOT  EXTERNAL  OF LT A-V  BURN 


VELOCITY  TO  BE  GAINED  SCALED  AT  (7IM/CS 


LOCATION  FOLLOWING  CALL  TO  S40.8 


DFLV  IS  MORE  THAN  90  DEGRFFS  FROM  VG. 


400  C S 

CALL  TO  FINDCDUW  -2 


GAP: 


ASSEMBLE  REVISION  210  OF 


AGO  PROGRAM  LUMINARY 


BY  NASA  2021LL2-161 


L 


P4C-P47 


0821 

REF 

2 

LAST 

766 

27,2531 

75615 

1 

S40RET 

0822 

24,3634 

BANK 

24 

0823 

REF 

1 

24,2000 

SFTLOC 

S40BNK 

0824 

24,3634 

BANK 

0825 

24,3634 

77776 

1 

ALARM  T T 

EXIT 

0826 

REF 

28 

LAST 

743 

24,3635 

0 5571 

1 

TC 

ALARM 

0 82  7 

24,3636 

01407 

0 

OCT 

01407 

0828 

REF 

l 14 

LAST 

766 

24, 3637 

0 6060 

1 

TC 

INTPRET 

0829 

24,3640 

77624 

1 

GOFINO 

CALL 

0830 

REF 

1 

24,3641 

6 1072 

0 

F INDCDUW 

0331 

24,3642 

77650 

1 

GOTO 

0832 

REF 

3 

LAST 

767 

24, 3643 

75615 

1 

S40RET 

0833 

27,2532 

BANK 

27 

0834 

REF 

5 

LAST 

760 

27,2000 

SET  LUC 

P40S1 

0835 

27,2532 

BANK 

0836 

27,2532 

77715 

1 

-FOUROT 

2DEC 

-800  R- 1 8 

0836 

27,2533 

77777 

0 

0837 

27,2534 

00000 

1 

FFIURSECS 

2DEC 

400 

0837 

27, 2535 

0C620 

0 

0838 

REF 

3 

LAST 

766 

E7, 1742 

2VEXHUST 

= 

VEX 

17: 11  MAR.  19, 1971 
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USER’ S PAGE  NO.  21 
LOCATION  FOLLOWING  CALL  TO 


E 7 S3 
S40.8 


SKIP  T GO  COMPUTATION  BUT  CALL  FINDCDUW, 


LOCATION  FOLLOWING  CALL  TO  S40.8 


-4  (200  CS . ) 8 (-18) 

400  CS  SCALED  AT  2(+28)CS 
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P0839 
R0840 
R0841 
R0842 
R0  843 
R0844 
R0845 
R0846 
R084  7 
R0848 
R0849 
R0850 
R0352 
R0853 
R0854 
R0855 
R0856 
R0857 
R0858 
R0859 
R0860 
R086I 
K086  2 
R0863 


NAME  S40.13  - TIMEBURN 

FUNCTION  (1)  DETERMINE  WHETHER  A GIVEN  COMBINATION  OF  VELOCITY  TO 

BE  GAINED  AND  ENGINE  CHOICE  RESULT  IN  A BURN  TIME 
SUFFICIENT  TO  ALLCW  STEERING  AT  THE  VEHICLE  DURING  THE 
BURN 

12)  THE  MAGNITUDE  OF  THE  RESULTING  BURN  TIME  — IF  IT 
IS  SHORT  — AND  THE  ASSOCIATED  TIME  OF  THE  ENGINE  OFF 
S IGNAL 

CALLING  SEQUENCE  VIA  FINDVAC  AS  A NEW  JOB 

INPUT  VGTIG  VELOCITY  TO  BE  GAINED  VECTOR  (METERS/CS)  AT  +7 

WFIGHT/G  MASS  OF  VEHICLE  IN  KGM  AT  +16 

F ENGINE  THRUST  (USED  ONLY  FOR  APS  CALCULATIONS)  IN  KG-M/CS/CS  AT  +7 

FRCS4  4 JET  RCS  THRUST  IN  KG-M/CS/CS  AT  +7 

MOOT  RATE  OF  CECREASE  OF  VEHICLE  MASS  DURING  ENGINE 

BURN  IN  KG/CS  AT  +3 

APSFLAG: 

=0  DPS 
= 1 APS 

OUTPUT  IMPULSW  ZERO  FOR  STEERING 

ONE  FOR  ATTITUDE  HOLD 
NOTHROTL  ZERO  FOR  THROTTLING 

ONE  TO  INHIBIT  THROTTLING 
T GO  TIME  TO  BURN  IN  CS 


0864 

REF 

12 

LAST 

766 

E7, 1516 

EB ANK= 

T GO 

0865 

REF 

1 

COUNT* 

$t/40. 1 3 

0866 

REF 

1 1 5 

LAST 

767 

27,2536 

0 6060 

1 S40.13 

TC 

I NTPRET 

0867 

27,2537 

43001 

1 

SETPD 

CLEAR 

0868 

27,2540 

0C001 

0 

OOD 

0869 

REF 

4 

LAST 

76  6 

27,2541 

01266 

1 

IMPULSW 

ASSUME  STEERING  UNTIL  FOUND  OTHERWISE 

0870 

27,2542 

51575 

1 

VLOAD 

A8VAL 

0871 

REF 

1 1 

LAST 

762 

27,2543 

03701 

1 

VGTIG 

VELOCITY  TO  BE  GAINED  AT  +7 

0872 

27,2544 

41325 

0 

PDDL 

DMP 

OOD  = MAG  OF  VGTIG  AT  +7 

0873 

REF 

l 

27,2545 

16710 

0 

6.5SECS 

CORRECT  V G FOR  6.5  SECONDS  OF  ULLAGF 

0874 

REF 

2 

LAST 

751 

27,2546 

34017 

0 

FRCS4 

ASSUME  4 JET  ULLAGE 

0875 

27,2547 

72471 

0 

DDV 

SL1 

SCALF 

0876 

REF 

2 

LAST 

76  1 

27,2550 

01244 

1 

WEIGHT/G 

0877 

27,2551 

41421 

0 

BDSU 

PUSH 

0878 

27,2552 

43014 

0 

BOFF 

SET 

0879 

REF 

1 

27,2553 

05342 

1 

APSFLAG 

0880 

REF 

1 

27,2554 

56624 

1 

S 40 . 13D 

FOR  DPS  ENGINE 

088  1 

REF 

2 

LAST 

749 

27,2555 

02463 

l 

NOTHROTL 

0882 

27,2556 

56345 

0 

DLOAD 

DDV 

OOD  = MAG  OF  VGTIG  CORRECTED 

0883 

REF 

1 

27,2557 

16001 

l 

K 1 VAL 

KG-M/CS  AT  +23 

0884 

REF 

3 

LAST 

768 

27, 2560 

01244 

1 

WEIGHT/G 

0885 

27,2561 

50021 

1 

BDSU 

BMN 

0886 

27,2562 

00C01 

0 

OOD 

0887 

RFF 

1 

27,2563 

56606 

l 

S40. 131 

T GO  LESS  THAN  100  CS 

768 


GAP: 

L 

0888 

0889 

0890 

0391 

0892 

0893 

0894 

0 895 

0896 

0897 

0898 

0899 

0900 

090  1 

0902 

0903 

0904 

090  5 

0906 

0907 

0908 

0909 

0910 

091  1 

0912 

0913 

0914 

0915 

091  6 

0917 

0918 

0919 

092  0 

0921 

0922 

0923 

0924 

0925 

0926 

092  7 

092  8 

0929 

0930 

0931 

0932 

093  3 

0934 

0935 
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27,2564 

41325 

0 

POOL 

DMP 

02D  = TEMPI  AT  +7 

RE  F 

2 

LAST 

149 

27,2565 

03737 

1 

MOOT 

RFF 

1 

27,2566 

16700 

1 

3 . 5S  EC 

350  CS  AT  +14 

27, 2567 

65221 

0 

BDSU 

PDDL 

REF 

4 

LAST 

768 

2 7,  2570 

01244 

1 

WEIGHT/G 

REF 

7 

LAST 

761 

27,2571 

03735 

0 

F 

27,2572 

60405 

0 

DMP 

SR2 

SCALE 

REF 

1 

27,2573 

16702 

0 

5 SECS 

27,2574 

41471 

0 

DDV 

PUSH 

04D  = TEMP2 

2 7,2.575 

51021 

0 

BDSU 

B PL 

27,2576 

0C003 

1 

02D 

REF 

2 

LAST 

768 

27,2577 

56624 

1 

S40. 1 3D 

27,2600 

55345 

0 

DLOAD 

8 DDV 

27,2601 

43205 

1 

DMP 

DAD 

REF 

2 

LAST 

769 

27,2602 

16702 

0 

5SECS 

REF 

1 

27,2603 

16676 

1 

1SEC2D 

100  CS  AT  +14 

27,2604 

77650 

1 

GOTO 

REF 

1 

27,2605 

56614 

1 

S40. 132 

27,2606 

41345 

0 

S40. 131 

DLOAD 

DMP 

REF 

5 

LAST 

769 

27, 2607 

01244 

1 

WEIGHT/G 

27,2610 

41542 

1 

SRI 

PUSH 

27,2611 

56215 

1 

DAD 

DOV 

REF 

1 

27,2612 

16003 

0 

K2VAL 

KG-M/CS  AT  +24 

REF 

1 

27,2613 

16005 

0 

K3VAL 

KG-M/CS/CS  AT  +10  (SAME  VALUE 

27,2614 

77414 

0 

S40. 132 

SET 

EXIT 

REF 

5 

LAST 

768 

27,2615 

01066 

0 

I MPULSW 

REF 

9 

LAST 

758 

27,2616 

0 7300 

0 

S40. 132* 

TC 

TPAGREE 

REF 

278 

LAST 

758 

27,2617 

3 0154 

1 

CA 

M P AC 

REF 

1 C 8 

LAST 

758 

27,2620 

56  001 

0 

XCH 

L 

REF 

142 

LAST 

758 

27,2621 

3 4746 

0 

CA 

ZERO 

REF 

13 

LAST 

768 

27,2622 

53 1 5 1 7 

1 

DXCH 

TGO 

REF 

1 

27,2623 

1 2650 

1 

TC  F 

S40. 134 

27,2624 

41345 

0 

S40. 130 

DLOAD 

DMP 

FOR  DPS  ENGINE 

27,2625 

00001 

0 

OOD 

REF 

6 

LAST 

769 

27,2626 

01244 

1 

WEIGHT/G 

27,2627 

43006 

0 

PUSH 

BON 

REF 

2 

LAST 

766 

27,2630 

05302 

0 

APSFLAG 

REF 

1 

27,2631 

56671 

1 

APSTGO 

27,2632 

43071 

0 

DDV 

CLEAR 

REF 

1 

27,2633 

16007 

1 

S40. 136 

RFF 

3 

LAST 

768 

27,2634 

02663 

0 

NOTHROTL 

27,2635 

41400 

0 

BOV 

PUSH 

REF 

1 

27,2636 

56653 

1 

S40 . 1 30 V 

27,2637 

51025 

1 

S40. 137 

DSU 

BPL 

REF 

1 

27,2640 

16704 

0 

6SEC 

600.0  CS  AT  +14 

REF 

l 

27,2641 

56661 

0 

S 40 . 138 

27,2642 

43C15 

1 

DAD 

SET 

REF 

2 

LAST 

769 

27,2643 

16704 

0 

6SEC 

PAGE  769 
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0936 

REF 

4 

LAST 

769 

27,2644 

02463 

1 

NOTHROTL 

0937 

27,2645 

77650 

1 

GOTO 

0930 

REF 

2 

LAST 

769 

27,2646 

56614 

1 

S40 . L 32 

0939 

27,2647 

77776 

1 

S40.  133 

EXIT 

0940 

REF 

53 

LAST 

766 

27, 2650 

0 5355 

1 

S40. 134 

TC 

PHASCHNG 

0941 

27,2651 

00003 

1 

OCT 

00003 

0942 

REF 

1 19 

LAST 

758 

27, 2652 

0 5 146 

1 

TC 

ENDOF JOB 

094  3 

27,2653 

40545 

1 

S40. 130V 

DLOAD 

SR4 

0944 

27,2654 

77671 

1 

DDV 

0945 

REF 

1 

27,2655 

16011 

0 

S40 . 136_ 

0946 

REF 

14 

LAST 

769 

27,2656 

03517 

L 

STORE 

T GO 

094  7 

27,2657 

77776 

1 

EX  I T 

0940 

REF 

2 

LAST 

769 

27,2660 

1 2650 

1 

TCF 

S40. 134 

0949 

27,2661 

51025 

1 

S40. 138 

DSU 

8 PL 

095  0 

REF 

1 

27,2662 

16706 

1 

89SECS 

0951 

REF 

1 

27,2663 

56666 

1 

STORETGO 

0952 

27,2664 

77614 

1 

SET 

0953 

REF 

5 

LAST 

770 

27,2665 

02463 

1 

NOTHROTL 

0954 

27,2666 

77745 

1 

STORETGO 

DLOAD 

0955 

27,2667 

77776 

1 

EXIT 

0956 

REF 

1 

2 7, 2670 

1 2616 

0 

TCF 

S40 . 132* 

095  7 

27, 2671 

62471 

1 

APSTGO 

DDV 

SL2 

095  0 

REF 

2 

LAST 

753 

27,  2672 

34007 

1 

F APS 

0959 

27,2673 

77650 

1 

GOTO 

0960 

REF 

2 

LAST 

770 

27,2674 

56667 

0 

STORETGO  +1 

096  1 

27,2675 

00144 

0 

ISEC2U 

2DEC 

100. 0 8-14 

0961 

27,2676 

00000 

1 

0962 

27,2677 

01274 

1 

3.5SEC 

2DEC 

T 

CO 

o 

o 

LT> 

m 

0962 

27,2700 

00000 

1 

096  3 

27,2701 

0C764 

1 

5 SECS 

2DEC 

500.0  8-14 

0963 

27,2702 

00000 

l 

0964 

27,2703 

01130 

1 

6 SEC 

2DEC 

600.0  8-14 

0964 

27,2704 

00000 

1 

096  5 

27,2705 

21204 

0 

89SECS 

2DEC 

8900.0  8-14 

096  5 

27, 2706 

00000 

1 

0966 

27, 2707 

OC  1 21 

0 

6.5SECS 

2DEC 

650.  8-17 

0966 

27,2710 

10000 

0 
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RECOMPUTE  T GO  IN  T I ME  2 UNITS 
S40.136  SHIFTED  LEFT  10 

RFJOIN  COMMON  CODING  FOR  RF START  PROTECT 


LOAD  T GO  AT  2(14) 


100.0  CS  AT  +14 
350  CS  AT  +13 

500.0  CS  AT  +14 

600.0  CS  AT  +14 


ASSUME  6.5  SECONDS  OF  ULLAGE 


GAP: 

L 

P0967 

R0960 

R0969 

R0971 

R0972 

R0973 
R0974 
R0975 
R0976 
R0977 
R0979 
R098  1 
R0983 
R 098  4 

R0965 

R0987 
R098  9 


R099  1 

R0992 

R0994 

R0995 

R0997 
R0998 
R0999 
RL000 
R LOO  L 
R 100  2 
RL003 
R 1004 
R1005 
R 100  6 
R LOO  7 
R LOO  8 
R1009 
R 101 0 
R101  1 
R 1 01  2 
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S40.9  AND  RASTEER 1 


S4C.9 
FUNCT ICN 

CALLING  SEQ 

INPUT  AND 
OUTPUT 


TO  UPDATE  "A"  (THE  SEMI-MAJOR  AXIS  OF  THE  ELLIPTICAL  TRAJECTORY)  BY  CALLING  "HAVEGUES"  (INITVEL) 
EVERY  "TNEWA"  SECONDS. 


VIA  FINDVAC  I FRCM  "STEERING”,  EVERY  "TNEWA"  SECONDS) 
SFE  INITVEL  FOR  A COMPLETE  DESCRIPTION 


R IN  I T 
VINIT 

DEL  LT4 

RTX  1 
RTX2 


ACTIVE  VEHICLE  RADIUS  VECTOR 
ACTIVE  VEHICLE  VELOCITY  VECTOR 
BOTH  RINIT  AND  VINIT  ARE  VALID  AT 
DESIRED  TIME  OF  FLIGHT  FROM  RINIT 
THE  PREVIOUS  THREE  QUANTITIES  ARE 
-2  EARTH  — 10  D MOON  SET  IN  S40.1 
0 EARTH  2 MOON  SFT  IN  S40.1 


METERS  +29 
M/CS  + 7 

LAST  PIPTIME  (FROM  SERVICER) 

TO  RTARG  IN  CS  +28 

SET  EVERY  GUIDANCE  CYCLE  AT  "ENDSTEEP" 


THE  ONLY  OUTPUTS  FROM  INITVEL  THAT  ARE  OF  INTEREST  HF  RE  ARE: 


MUASTEER  - MU  (GRAVITATIONAL  CONSTANT)  AT  +42  EARTH,  +36  MOON 
MU/A  - RATIO  OF  MU  TO  SEMI-MAJOR  AXIS  AT  +14  EARTH,  +10  MOON 


RASTEER 1 

FUNCTION  GENERATES  REQUIRED  VELOCITY  AND  VELOCITY-TO-BE-GAINED  VECTORS  FOR  USE  DURING  AIMPOINT  MANEUVERS. 

ALSO  ADJUSTS  FOR  GRAVITATIONAL  EFFECTS  DUE  TO  OBLATENESS. 

CALLING  SEQ  CALLED  EVERY  GUICANCE  PASS  (DURING  AIMPOINT  MANEUVERS)  FROM  S40.8  AS  AN  INTERPRETIVE  SUBROUTINE. 


INPUT 


FROM  S40 . 1 RTX2 
FROM  SERVICER  UNIT/R/ 
RN 
VN1 

UNIT  GOBL 
PIPTIME 

FROM  INITVEL  RTARG 
RTMAG 
MUASTEER 
MU/A 
GEOMSGN 

FRCM  TARGETTING 

NORMSW 

TPASS4 

FRCM  OTHERS  GOBL T IMF 


-2  FOR  EARTH,  -10D  FOR  MOON 

POSITION  VECTOR  HALF-UNIT 

POSITION  VECTOR  METERS  AT  +29 

VELOCITY  VECTOR  M/CS  AT  +7  EARTH  OR  +5  MOON 

OBLATENESS  TERM  OF  GRAVITY  VECTOR 

TIME  OF  RN  AND  VNl  CS  AT  +28 

TARGET  VECTOR  METERS  AT  +29 

MAGNITUDE  OF  RTARG  AT  +29 

MU  (SEE  ABOVE,  S40.9) 

RATIO  OF  MU  TO  SEMI-MAJOR  AXIS  (SEE  S40.9) 

1 IF  TRANSFER  ANGLE  < 180,  -1  IF  > 180 

1 IF  TRANSFER  ANGLE  CLOSE  TO  180,  0 IF  NOT 
DESIRED  INTERCEPT  TIME  CS  AT  +23 
NOMINAL  (NOT  ACTUAL)  IGNITION  TIME  CS  AT+28 


GAP:  ASSEMBLE  REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L P40-P47 

R 1 01 3 OUTPUT  DELVEET3  - VELOC I TY-TO-R E-GA INEO  M/CS  AT  +7 


101  4 

REF 

9 

LAST 

766 

E7, 1700 

EBANK= 

VGPRFV 

1015 

REF 

2 

LAST 

46  TO 

46  : 

2 

2* 

COUNT* 

$ $/S40 . 9 

1016 

RFF 

1 16 

LAST 

768 

27,271 1 

0 6060 

l 

S 40 . 9 

TC 

I NTPRET 

L01  7 

27,2712 

77601 

0 

SETPD 

1018 

27,2713 

00001 

0 

OOD 

1019 

27,2714 

71214 

0 

SET 

□ LOAD 

1020 

REF 

6 

LAST 

753 

27,2715 

01072 

0 

AVFLAG 

1021 

REF 

6 

LAST 

755 

27,2716 

06505 

1 

H I6ZER0S 

1022 

27,2717 

77725 

1 

PDOL 

102  3 

REF 

2 

LAST 

762 

27,2720 

16406 

1 

EPS1 

1024 

27,2721 

43214 

1 

BOFF 

DAD 

1025 

REF 

5 

LAST 

762 

27,2722 

03745 

1 

NORMSW 

1026 

REF 

1 

27,2723 

56725 

1 

EPSSMALL 

102  7 

REF 

2 

LAST 

762 

27,2724 

16410 

0 

EPS2 

1028 

27,2725 

45006 

0 

FPSS  M ALL 

PUSH 

CALL 

1029 

REF 

1 

27,2726 

22002 

0 

HAVEGUES 

103  0 

27,2727 

77776 

1 

ENDS40.9 

EX  I T 

103  1 

REF 

54 

LAST 

770 

27,2730 

0 5355 

1 

TC 

PHASCHNG 

1032 

27,2731 

0CC02 

0 

OCT 

2 

1033 

REF 

120 

LAST 

770 

27,2732 

1 5146 

0 

TC  F 

ENDOF  JOB 

1034 

27,2733 

51575 

1 

RASTEER1  VLOAD 

ABVAL 

103  5 

RFF 

8 

LAST 

757 

27,2734 

C 1 220 

0 

RN 

1036 

27,2735 

5 3 744 

0 

LXC  ,2 

SL* 

1037 

REF 

12 

LAST 

762 

27,2736 

02777 

1 

RTX2 

103  8 

27,2737 

57576 

l 

0,2 

103  9 

REF 

2 

LAST 

149 

27,2  740 

27715 

l 

STOVL 

RMAG 

1040 

REF 

7 

LAST 

693 

27,2741 

03444 

0 

RTARG 

104  1 

27,2  742 

47051 

0 

VSU 

RTB 

1042 

REF 

9 

LAST 

772 

27,2743 

01220 

0 

RN 

1043 

REF 

3 

LAST 

708 

27,2744 

21722 

0 

NORMUNX 1 

1044 

REF 

1 

27,2745 

1 7656 

1 

STODL 

IC 

1045 

27,2746 

00045 

0 

36D 

1046 

27,2  747 

53674 

1 

XAD , 2 

SL* 

1047 

REF 

15 

LAST 

69  1 

27,2750 

00046 

0 

X 1 

104  8 

27,2751 

57576 

1 

0,2 

104  9 

27,2  752 

00C37 

0 

STORE 

30D 

1050 

27,2753 

41301 

0 

NORM 

DMP 

105  1 

REF 

13 

LAST 

717 

27,2754 

00050 

1 

X 2 

1052 

REF 

3 

LAST 

772 

27,2755 

03715 

l 

RMAG 

1053 

27,2  756 

57101 

0 

NORM 

XAD,  2 

1054 

REF 

16 

LAST 

772 

27,2  757 

00047 

1 

X 1 

105  5 

REF 

17 

LAST 

772 

27,2760 

00C46 

0 

XI 

1056 

27,2761 

77734 

l 

SXA  ,2 

1057 

REF 

1 

27,2762 

03766 

0 

MUSCALE 

1058 

REF 

2 

LAST 

149 

27,2763 

17725 

1 

STODL 

R 1C 
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SET  AVFLAG  FOR  LEM  ACTIVE 


EPSIL0N4  = LO  OR  45  OEGREES. 


UNIT(C)  C IS  CHORD  VFCTOR 
CI36D)  = ABVAL(C) 


21+58  -X) 


GAP: 


ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  2021I12-I6I 


L P40-P47 


1059 

27,2764 

00037 

0 

3 OD 

1060 

27,2765 

65342 

1 

SRI 

PDDL 

106  1 

REF 

4 

LAST 

772 

2 7,2  766 

03715 

1 

R M AG 

1062 

27,2767 

65342 

1 

SRI 

PDDL 

1063 

REF 

4 

LAST 

689 

27,2770 

03723 

1 

RTMAG 

106  A 

27,2771 

43342 

0 

SRI 

DAD 

1065 

27,2772 

45415 

0 

DAO 

STADR 

1066 

REF 

1 

27,2773 

74044 

1 

STORE 

SS 

1067 

27,2774 

41225 

1 

DSU 

DMP 

106  G 

2 7,2  775 

00C37 

0 

3 OD 

1069 

REF 

3 

LAST 

693 

27,2776 

03721 

0 

MU/A 

1070 

27,2777 

77621 

1 

BDSU 

1071 

REF 

3 

LAST 

693 

27,3000 

03717 

0 

MUASTFE  R 

1072 

27,3001 

45325 

1 

PDDL 

DSU 

1073 

REF 

2 

LAST 

773 

27,3002 

03733 

0 

SS 

1074 

REF 

5 

LAST 

773 

27,3003 

03715 

1 

R MAG 

1075 

27,3004 

70501 

1 

NORM 

SRI 

1076 

REF 

18 

LAST 

772 

27,3005 

0C047 

1 

XI 

1077 

27,3006 

41271 

0 

DDV 

DMP 

1078 

REF 

3 

LAST 

772 

27,3007 

03725 

1 

R 1C 

1079 

27,3010 

53664 

0 

XSU , 2 

SL* 

1080 

REF 

19 

LAST 

773 

27,3011 

00C46 

0 

X 1 

1081 

27,3012 

57575 

1 

1 ,2 

1082 

27,3013 

77754 

1 

LXA  ,2 

1083 

REF 

2 

LAST 

772 

27,3014 

03  766 

0 

MUSCALE 

1084 

27,3015 

75366 

0 

SORT 

S IGN 

1085 

REF 

3 

LAST 

691 

27,3016 

02673 

1 

GEOMSGN 

1086 

27,3017 

00041 

1 

STORE 

32D 

108  7 

27,3020 

41345 

0 

DLOAD 

DMP 

1088 

REF 

3 

LAST 

773 

27, 3021 

03733 

0 

SS 

1089 

REF 

4 

LAST 

773 

27, 3022 

03721 

0 

MU/A 

1090 

27,3023 

77621 

1 

BDSU 

1091 

REF 

4 

LAST 

773 

27,3024 

03717 

0 

MUASTEER 

1092 

27,3025 

45325 

1 

PDDL 

DSU 

1093 

REF 

4 

LAST 

773 

27,3026 

03733 

0 

SS 

1094 

REF 

5 

LAST 

773 

27,3027 

03723 

1 

RTMAG 

1095 

27,3030 

70501 

1 

NORM 

SRI 

1096 

REF 

20 

LAST 

773 

27,3031 

00047 

1 

XI 

1097 

27,3032 

41271 

0 

DDV 

DMP 

109  8 

REF 

4 

LAST 

773 

27,3033 

03725 

1 

R 1C 

1099 

27,3034 

53664 

0 

XSU  ,2 

SL* 

1100 

REF 

21 

LAST 

773 

27,3035 

00046 

0 

XI 

1101 

27,3036 

57575 

1 

1,2 

110  2 

27,3037 

65366 

1 

SORT 

PDDL 

1103 

REF 

5 

LAST 

773 

27,3040 

03733 

0 

SS 

1104 

27,3041 

56225 

1 

DSU 

DDV 

1105 

27,3042 

0 C 03  7 

0 

3 OD 

1106 

REF 

6 

LAST 

773 

27,3043 

03733 

0 

SS 

1107 

27,3044 

4 1566 

1 

SORT 

PUSH 

1108 

27,3045 

67542 

0 

SRI 

ASIN 
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SS  = t R 1 + R2  +C  ) / 2 


(MU  - MU(S-C)/2A) 


(S  - R) 


( 2 ( S— R ) / RC ) (MU  - MU(S-C)/2A) 


SORT( (21S-RI/RC) (MU  - MUIS-CI/2A)) 
(GEOMSGN  = SGNA  IN  GSOP) 

+ OR  - A 

A= SGNA (SORT! ( 2 ( S-R ) / RC ) ( MU-MU ( S-C )/ 2A ) ) ) 


MU  - (MU  S / 2 A ) 


( 2 1 S- R 2 ) /RC ) (MU  - MU  S / 2A ) R2  = RT  ARG 


-B  (NO  SIGN) 


ARCS  I N (SORT ( ( S-CI/S) ) 


GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 


L P60-P67 


1109 

27,3066 

65205 

0 

OMP 

POOL 

1110 

REF 

1 

27,3067 

17220 

1 

2PI+3 

111  1 

27,3050 

56325 

0 

PDOL 

DDV 

1112 

27,3051 

00C37 

0 

300 

1113 

REF 

7 

LAST 

773 

27,3052 

03733 

0 

SS 

1116 

27,3053 

77600 

1 

BOV 

1115 

27,3056 

57055 

0 

+ 1 

1116 

27,3055 

61366 

1 

SQRT 

OMP 

1117 

27,3056 

66262 

0 

SR3 

BOSU 

1118 

27,3057 

65365 

1 

SIGN 

PDOL 

1119 

REF 

6 

LAST 

773 

27,3060 

02673 

1 

GEOMSGN 

1120 

REF 

2 

LAST 

776 

27,3061 

17220 

1 

2PI  + 3 

1 12  1 

27 , 3062 

65302 

1 

SR2 

DSU 

1122 

27,3063 

65205 

0 

OMP 

PODL 

1123 

REF 

8 

LAST 

776 

27,3066 

03733 

0 

SS 

1 126 

REF 

9 

LAST 

776 

27,3065 

03733 

0 

SS 

1125 

27,3066 

75662 

1 

SR3 

SQRT 

1126 

27,3067 

77605 

1 

OMP 

1 127 

27,3070 

52525 

1 

POOL 

SL3 

1 128 

REF 

5 

LAST 

773 

27,3071 

03717 

0 

MUASTEER 

1129 

27,3072 

55366 

1 

SQRT 

BDDV 

1 130 

27,3073 

63225 

0 

DSU 

DAD 

1 13  1 

REF 

9 

LAST 

762 

27,3076 

03631 

0 

TPASS6 

1 132 

REF 

8 

LAST 

766 

27,3075 

01236 

0 

PIPTIME 

1133 

27,3076 

16037 

0 

STOOL 

3 OD 

1 13  6 

27,3077 

77765 

0 

SIGN 

1135 

2 7,3100 

00C37 

0 

300 

1136 

27,3101 

00037 

0 

STORE 

300 

1 137 

27,3102 

77216 

0 

BON 

VLOAD 

1 138 

REF 

6 

LAST 

772 

2 7, 3103 

03705 

0 

NORMSW 

1139 

REF 

1 

27,3106 

57125 

0 

180MESS 

1 160 

REF 

2 

LAST 

772 

27,3105 

03656 

1 

I C 

1161 

27,3106 

53651 

1 

VSU 

UNIT 

1 162 

REF 

3 

LAST 

762 

27,3107 

03537 

0 

UNIT/R/ 

1 163 

27,3110 

63361 

0 

VXSC 

PDVL 

1 166 

27,3111 

00037 

0 

300 

l 16  5 

REF 

3 

LAST 

776 

27,3112 

03656 

1 

IC 

1 166 

27,3113 

53655 

0 

VAO 

UNIT 

116  7 

REF 

6 

LAST 

776 

27,3116 

03537 

0 

UNIT/R/ 

1168 

27,3115 

53361 

0 

GETVRVG1 

vxsc 

VAO 

1 169 

27,3116 

0C061 

1 

320 

1 15 

27,3117 

53766 

0 

GETVRVG2 

LXC  ,2 

VSR* 

l 15  1 

REF 

13 

LAST 

772 

27,3120 

02777 

l 

RTX2 

1 152 

27,3121 

57177 

1 

0-1,2 

1153 

REF 

7 

LAST 

693 

27,3122 

02330 

0 

STORE 

VIPRIME 

l 156 

27,3123 

77650 

1 

GOTO 

1155 

REF 

1 

27,3126 

57170 

0 

ASTREND 

1 156 

27,3125 

50375 

0 

180MESS 

VLOAD 

DOT 

l 157 

REF 

6 

LAST 

776 

27,3126 

03656 

1 

IC 

1 158 

REF 

5 

LAST 

776 

27,3127 

03537 

0 

UNIT/R/ 

17: 11  MAR.  19,1971  FLY 
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SORT ( C/S  ) SQRT ( 1 S-C ) / S ) = t 1/S )( SORT! C 

(S-C ) ) 

SGNAI ARCS  INI ( S-C) /SI- I 1/S (SORT  I Cl S-C) 


(PI/2)  - SGNA I ABOVE  MESS) 


S SORTIS)  = SQRT I S CUBEO) 
T MINIMUM  ENERGY  I TM ) 

(TM  - T?)  FOR  SIGN  OF  B 
B WITH  SIGN 


UNCM 
B UNCM 


7 76 


1 

) ) 


UNCP 
A UNCP 


GAP: 


ASSEMBLE  REVISION  210  GF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L P40-P47 


1 159 

27,3130 

77240 

1 

BMN 

VLOAD 

1160 

REF 

1 

27,3131 

57  150 

1 

NEGPROD 

116  1 

REF 

5 

LAST 

774 

27,3132 

03656 

1 

IC 

1162 

27,3133 

63362 

0 

VSR  1 

PDVL 

1163 

REF 

6 

LAST 

774 

27,3134 

03537 

0 

UNIT/R/ 

1 164 

27,3135 

53362 

0 

VSR  1 

VAD 

1165 

27,3136 

77656 

1 

UNIT 

1166 

27,3137 

57406 

1 

PUSH 

V COMP 

1 167 

27,3140 

75235 

1 

VXV 

SIGN 

1168 

REF 

4 

LAST 

690 

27,3141 

02674 

0 

UN 

1 169 

REF 

5 

LAST 

774 

27,3142 

02673 

1 

GEOMSGN 

1170 

27,3143 

74256 

0 

UNIT 

VXSC 

1171 

27,3144 

00037 

0 

3 OD 

1 172 

27,3145 

77715 

l 

PDVL 

1173 

27,3146 

77650 

1 

GOTO 

1174 

REF 

1 

27,3147 

57115 

0 

GETVRVG1 

1175 

27,3150 

74575 

0 

NEGPROD 

VLOAD 

V SR  1 

1176 

REF 

7 

LAST 

775 

27,3151 

03537 

0 

UNIT/R/ 

1177 

27,3152 

74515 

0 

PDVL 

V SRI 

1178 

REF 

6 

LAST 

775 

27,3153 

03656 

1 

IC 

1179 

27,3154 

53451 

1 

VSU 

UNIT 

1180 

27,3155 

77606 

1 

PUSH 

1 181 

27,3156 

75235 

1 

VXV 

S IGN 

1182 

REF 

5 

LAST 

775 

27,3157 

02674 

0 

UN 

1183 

REF 

6 

LAST 

775 

27,3160 

02673 

1 

GEOMSGN 

1184 

27,3161 

74256 

0 

UNIT 

VXSC 

1185 

27,3162 

0C041 

1 

32D 

1186 

27,3163 

777  15 

1 

PDVL 

1187 

27,3164 

53361 

0 

VXSC 

VAD 

1188 

27,3165 

0003  7 

0 

3 OD 

1 189 

27,3166 

77650 

1 

GOTO 

1190 

REF 

1 

27,3167 

57117 

1 

GETVRVG2 

119  1 

27,3170 

77651 

0 

VSU 

1192 

REF 

3 

LAST 

730 

27,3171 

03553 

1 

VN1 

1193 

REF 

12 

LAST 

762 

27,3172 

023  5 7 

1 

ASTREND 

STORE 

DELVEET3 

1 194 

27,3173 

53135 

0 

F IRSTTME 

SLOAD 

BZE 

1195 

REF 

14 

LAST 

774 

27,3174 

03000 

L 

RTX2 

1196 

REF 

1 

27,3175 

57201 

0 

GETGOBL 

1197 

27,3176 

52175 

0 

VLOAD 

GOTO 

1198 

REF 

13 

LAST 

775 

27,3177 

02357 

1 

DELVEET3 

1199 

REF 

l 

27,3200 

57214 

1 

NOGOBL 

1200 

27,3201 

53  5 75 

0 

GETGOBL 

VLOAD 

UNIT 

1201 

REF 

1C 

LAST 

7 72 

27,3202 

01220 

0 

RN 

1202 

27,3203 

45345 

1 

DLOAD 

OSU 

1203 

REF 

9 

LAST 

774 

27,3204 

01234 

0 

PIPTIME 

1204 

REF 

3 

LAST 

728 

27,3205 

03512 

1 

GOBLT I ME 

1205 

27, 3206 

56205 

0 

DMP 

DDV 

1206 

REF 

1 

27,3207 

16023 

1 

EARTHMU 

1207 

27,32  10 

0 0 C 4 3 

0 

34D 

1208 

27,3211 

53361 

0 

VXSC 

VAD 

17: 11  MAR.  19, 1971  FLY 


197  PAGE  775 


USER'S  PAGE  NO.  29 


FOR  A 


UNIT!  IC-IR)  +-B 


FOR  B 


NO  OBLATFNESS  COMP  IF  IN  MOON 


CALCULATE  OBLATFNESS  TERM. 


2 

G = -(MU/R  ) (UNITGOBL ) IT  - 
OBL 


E7  S3 


SPHERE 


TIG) 


3 AD 


/RN/  12)  FROM  UNIT  OPERATION 


GAP:  ASSEMBL  F REVISION  2 10  OF  AGO  PROGRAM  LUMINARY  BY  NASA  20211  12-161 

L 
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P9C- 

P97 

USEP'S  PAGE 

NO. 

30 

E7  S3 

1209 

REF 

l 

27,3212 

03521 

1 

UNITGOBL 

1210 

REF 

19 

LAST 

775 

27,3213 

02357 

1 

DELVEET3 

OUTPUT  FROM  INITVEL 

VG  = 

VR  - VN 

121  1 

REF 

15 

LAST 

776 

27,3219 

02357 

1 

NOGOBL 

STORE 

DELVFET3 

VG  = VR  + GOBL  - 

VN 

1212 

27,3215 

77650 

1 

GOTO 

1213 

REF 

1 

27,3216 

56955 

0 

VGA  I N* 

1219 

27,3217 

31103 

l 

2PI  + 3 

2DEC 

3.191592653  B-2 

1219 

27,3220 

36652 

0 

7 76 


GAP: 
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L P40-P47 

P 12 1 5 TR IMG  I MB  (FORMERLY  S40.6) 

R 1 21 6 MOD  0 24  FEB  67  PETER  ADLER 

R1217  FUNCTION: 

R 1 21 8 TRIMS  DPS  ENGINE  TO  MINIMIZE  THRUST/CG  OFFSET.  ENGINE  I 

R1220  FOR  REFERENCE  AND  IS  THEN  BROUGHT  BACK  TO  TRIM  POSITION 

R 1 22 2 SPECIFIED  BY  GAEC)  IN  - PITCH  AND  - ROLL. 

R 1223  CALLING  SEQUENCE: 

R 1224  VIA  WAITLIST  FROM  R03 

R 1 22  5 INPUT: 

R 1 22  6 PITTIME  TIME  TO  RUN  FROM  FULL  + PITCH  TO  TRIM  (CS) 

R1227  ROLLTIME  TIME  TO  RUN  FROM  FULL  + ROLL  TO  TRIM  (CS) 

R 122  8 SUBROUTINES  USED: 

R 1 22  9 WAITLIST,  FIXDELAY,  VARDELAY,  FLAGUP,  FLAGDOWN,  NOVAC 


1230 

REF 

1 

COUNT* 

$ $ / S 4 0 . 6 

1231 

REF 

3 

LAST 

326 

E 6, 1401 

EBANK= 

ROLLT IME 

1232 

REF 

73 

LAST 

758 

27,3221 

0 

5520 

0 

TRIMGIMB 

TC 

DOWNFLAG 

123  3 

REF 

1 

27,3222 

00  137 

1 

ADRE  S 

GMBDRVSW 

1234 

REF 

8 

LAST 

752 

27,3223 

4 

5010 

1 

CS 

P R 105 

1235 

27,3224 

C 

0006 

1 

EXTEND 

1236 

REF 

40 

LAST 

609 

27,3225 

03 

C 1 2 

1 

WAND 

CHAN12 

123  7 

REF 

3 

LAST 

400 

27, 3226 

3 

5005 

1 

CAF 

EBANK5 

1238 

27,3227 

C 

0006 

1 

EXTEND 

1239 

RFF 

41 

LAST 

777 

27,3230 

05 

012 

1 

WOR 

CHAN  12 

124  0 

REF 

14 

LAST 

755 

27,3231 

0 

5223 

1 

TC 

FIXDELAY 

1241 

27,3232 

13560 

0 

DEC 

6000 

1242 

REF 

4 

LAST 

777 

27,3233 

4 

5C05 

0 

CS 

EBANK5 

1243 

27,3234 

0 

0006 

1 

EXTEND 

124  4 

REF 

42 

LAST 

777 

27,3235 

03 

012 

1 

WAND 

CHAN  1 2 

124  5 

REF 

9 

LAST 

777 

27,3236 

3 

5010 

0 

CAF 

P R 105 

1246 

27,3237 

0 

0006 

1 

EXTEND 

1247 

REF 

43 

LAST 

777 

27,3240 

05 

012 

1 

WOR 

CHAN12 

124  8 

REF 

2 

LAST 

326 

27,3241 

31 

' 402 

0 

CAE 

PITTIME 

1249 

REF 

21 

LAST 

758 

27,3242 

0 

5175 

1 

TC 

TWIDDLE 

1250 

REF 

1 

27,3243 

03262 

1 

ADRES 

P ITCHOFF 

1251 

REF 

4 

LAST 

777 

27,3244 

31 

' 401 

0 

CAF 

ROLLTIME 

1252 

REF 

4 

LAST 

580 

27,3245 

0 

5226 

1 

TC 

VARDELAY 

1253 

REF 

25 

LAST 

709 

27,3246 

4 

4731 

1 

CS 

B I T 1 2 

1254 

27,3247 

0 

C006 

1 

EXTEND 

1255 

REF 

44 

LAST 

777 

27,3250 

03 

012 

1 

WAND 

CHAN12 

1256 

REF 

3 

LAST 

710 

27,3251 

3 

0102 

1 

ROLLOVER 

CA 

FLAGWRD6 

1257 

REF 

1 

27,3252 

7 

4733 

0 

MASK 

GMBDRBI T 

1258 

27,3253 

C 

CC06 

1 

EXTEND 

1259 

REF 

2 

LAST 

777 

27,3254 

1 

3266 

1 

RZF 

PITCHOFF 

1260 

REF 

5 

LAST 

757 

27,3255 

3 

4730 

1 

CAF 

PRI010 

1261 

REF 

20 

LAST 

739 

27,3256 

0 

5063 

1 

TC 

NOVAC 

1262 

REF 

4 

LAST 

613 

E 7 , L 47 1 

EBA  NK  = 

WHOCARES 

17: 11  MAR.  19,1971  FLY 
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GIMBALLED  TO  FULL  + PITCH  AND  + ROLL  (TO  LOCK) 
BY  RUNNING  FOR  THE  PROPFR  TIMES  (TO  BE 


OCTAL  MASKS:  PRI05=0500C  EBANK5=02400 

GMBDRVSW  FLAG  IS  SET  WHEN  EITHER  ROLL  OR 
PITCH  IS  COMPLETED,  WHICHEVER.  IS  FIRST. 

TURN  OFF  - PITCH,  - ROLL,  IF  ON. 


TURN  ON  + PITCH,  + ROLL. 


WAIT  ONE  MINUTE  TO  MAKE  SURF  ENGINF  IS 
AT  FULL  + PITCH  AND  FULL  + ROLL 
TURN  OFF  + PITCH,  + ROLL. 


TURN  ON  - PITCH,  - ROLL. 

GET  TIME  TO  SHUT  OFF  - PITCH  AND  SET  UP 
TWIDDLE-TASK  TO  TURN  IT  OFF  THEN 


GET  TIMF  TO  SHUT  OFF  - ROLL  AND  GO  AWAY 
UNTIL  THEN 


SHUT  OFT  ROLL 

IF  HERE  INLINE  (ROLL  DONE)  IS  PITCH  DONE 
IF  HERE  FROM  PITCHOFF,  IS  ROLL  DONE? 

+4  NO.  SET  FLAG,  ROLL  OR  PITCH  DONE. 

RETURN  TO  R03 
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P 40- 

P47 

1263 

REF 

1 

27,3257 

1263 

REF 

l 

2 r , 3260 

1264 

REF 

52 

LAST 

756 

27,3261 

1265 

REF 

27 

LAST 

567 

27,3262 

1266 

27,3263 

1267 

RFF 

45 

LAST 

777 

27,3264 

126  0 

REF 

1 

27,3265 

1269 

REF 

52 

LAST 

758 

27,3266 

1270 

REF 

2 

LAST 

777 

27,3267 

1271 

REF 

53 

LAST 

778 

2 1,  3270 

02330 

0 

2CAUR 

trimdonf 

02067 

1 

0 5263 

0 

TC 

T ASK0VER 

4 4733 

0 

PITCHOFF  CS 

B I T 1 0 

0 0006 

1 

EXTEND 

03  012 

1 

WAND 

CHAN  1 2 

1 3251 

0 

TC  F 

ROLLOVER 

0 5506 

1 

TC 

UPFLAG 

00137 

l 

ADRE  S 

GMBDRVSW 

0 5263 

0 

TC 

TASKOVER 

17:  L I MAR.  19, 1971  FLY 
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SHUT  OFE  PITCH 

SEE  IF  ROLL  HAS  FINISHED  ALSO. 

ROLL  DONE;  OR  PITCH  DONE;  BUT  NOT  BOTH 


GAP: 

L 

P127? 

R 1 27  3 

R1275 

R 1 276 
R 1 27  8 
R 1 2 8 0 
RL282 
R1283 
R 128  5 
RL287 
R1289 
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SUBROUTINE  NAME:  S41.1  MOD.  NO.  0 DATE:  FEBRUARY  28,  1967 

MOD.  NO.  1 DATE:  JANUARY  23,  1963:  BY  PETER  ADLER  (MIT/IL) 

AUTHOR:  JONATHAN  D.  ADDELSTON  (ADAMS  ASSOCIATES) 

S41-1  PERFORMS  THE  COORDINATE  SYSTEM  TRANFORM  AT  ION  FROM  THE  REFERENCE  FRAME  TO  THE  BODY  OF  THE  LM. 

SPECIFICALLY,  IT  IS  USED  TO  TRANSFORM  A VELOCITY  (SCALED  AT  2(  + 7)  MET E R S /C EN T I SE COND ) FROM  REFERFNCE  TO  LM  AXIS 
COORDINATES.  FIRST  THE  VECTOR  IS  TRANSFORMED  TO  THE  STABLE  MEMBER  COORDINATES  BY  THF  MATRIX  R EFSMMAT.  THIS 
LEAVES  THE  VECTOR  IN  MPAC  , SCALED  AT  2(  + 8)  METERS/CENT  I SECOND . THEN 

THE  SUBROUTINE  CDUTR  1G  IS  CALLED  TO  SET  UP  THE  DOUBLE-PRECISION  CDU  VECTOR  ALONG  WITH  ITS  SINES  AND  COSINES. 

THE  VECTOR  IS  THFN  TRANSFORMED  FROM  STABLE  MEMBER  COORDINATES  TO  SPACECRAFT  (OR  LM ) COORDINATES  BY  THE 
SUBROUTINE  *SMNB*.  FINALLY!  THE  VECTOR  IS  RESCALED  TO  2(+7)  ME TERS/C E NT  I SECOND , AND  CONTROL  IS  RETURNED  TO  THE 
CALLER  WITH  C1MPAC)  = VELOCI T Y ( LM ) . 


R129C 


R 1 29  5 

R1296 
R 1 29  7 
R 1 29  8 


CALLING  SEQUENCE: 


A 129  1 

L 

VLOAD 

CALL 

A 129  2 

L 

+ 1 

VELOCITY! 

[REF) 

SCALED  AT 

2 ( + 7 1 

IM/CS 

A1293 

L 

+ 2 

S41. 1 

A 129  A 

L 

+3 

STORE 

VELOC I TY i 

(LM) 

SCALED  AT 

2(  + 71 

IM/CS 

SUBROUTINES  CALLED: 


1.  CDUTR I G , 

WHICH  CALLS  CDULOGIC, 

2.  *SMNR* 


R 129 9 NORMAL  RETURN:  L +3  (SEE  CALLING  SEQUENCE,  ABOVE.) 


R 1 300  ALARM/ABORT  MODES:  NONE. 

R 130 1 RESTART  PROTECTION:  NONE. 
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USER'S  PAGE  NO.  34 


E6  S3 


P 130  2 

INPUT  : 

R1303 

1 . 

REFSMMAT . 

R 1 30  4 

2. 

CDUX , CDUY , CDUZ . 

R 1 30  5 

3. 

VELOCITY  (REF)  IN  MPAC 

R1306 

OUTPUT : 

R 1 30  7 
R 1 30  8 
R 1 309 
RL310 

l . 
2. 

3. 

4. 

CDUSPOT : 
S INCDU: 
COSCDU : 
MPAC  : 

DOUBLE  PRECISION  CDU  VECTOR,  ORDERED  Y,Z,X. 

HALF  SINES  OF  CDUSPOT  COMPONENTS. 

HALF  CCSINES  OF  COUSPCT  COMPONENTS. 

VELOCITY(LM)  (SCALED  AT  2 ( +7 ) METE RS/C ENT I S ECONO ) 

R 131  1 

DEBRIS: 

NONE 

R 1 31 2 CHECKOUT  STATUS:  COOED. 


1313 

REF 

1 

COUNT* 

$ $/S4  l . 1 

1314 

27,3271 

76521 

0 S41.1 

MX  V 

VSL1 

CONVERT  VECTOR  IN  MPAC  FROM  RFF  AT  2(+7) 

1315 

REF 

26 

LAST 

766 

27,3272 

01732 

0 

REFSMMAT 

TO  SM  AMD  RESCALE  DUE  TO  HALFUNIT  MATRIX 

1316 

27,3273 

77650 

1 

GOTO 

CONVERT  TO  BODY  AT  21+7)  USING  PRESENT 

1317 

REF 

2 

LAST 

534 

27,3274 

47640 

0 

C DU*SMNB 

CDU  ANGLES.  CDU*SMNB  WILL  RETURN 

A1318  VIA  RVQ  TO  THE  CALLER  OF  S4 1 . 1 
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0001 

32,2602 

BANK 

32 

0002 

REF 

2 

LAST 

41 

32,2000 

SETLOC 

F 2DP S *32 

0003 

32,2602 

BANK 

0004 

REE 

1 

E7, 1621 

EBANK= 

E2DPS 

R0005 

* * * * * * * * * * * * * % * * * * * * £ * * 

❖ 

R0006 

P63: 

THE 

LUNAR  LANDING, 

BRAKING  PHASE 

R0007 

* * # * : 

3je  * * * £ % * *** 

0003 

REF 

1 

COUNT* 

£$/P63 

000  9 

REF 

55 

LAST 

772 

32,2602 

0 53  55 

1 

P63LM 

TC 

PHASCHNG 

0010 

32,2603 

04  024 

0 

OCT 

04024 

001 1 

REF 

210 

LAST 

754 

32,2604 

0 4607 

l 

TC 

BANKCALL 

DO  IMU  STATUS  CHECK  ROUTINE  R02 

0012 

REF 

8 

LAST 

753 

32,2605 

33757 

l 

CADR 

R02BOTH 

0013 

REF 

1 

32,2606 

3 3063 

i 

CAF 

P63ADRES 

INITIALIZE  WHICH  FOR  RURNBABY 

0014 

REF 

26 

LAST 

752 

32, 2607 

55 ' 455 

0 

TS 

WHICH 

0014  1 

REF 

1 

32,2610 

3 2000 

0 

CAF 

DPSTHRSH 

INITIALIZE  DVMON 

00142 

REF 

4 

LAST 

753 

32,2611 

55' 250 

0 

TS 

D VTHRUSH 

00143 

REF 

12 

LAST 

753 

32,2612 

3 4742 

1 

CAF 

FOUR 

00144 

REF 

30 

LAST 

757 

32,2613 

55' 515 

0 

TS 

DVCNTR 

0015 

REF 

76 

LAST 

758 

32, 2614 

4 4 744 

0 

CS 

ONE 

INITIALIZE  WCHPHASE  AND  FLPASSO 

0016 

REF 

2 

LAST 

734 

32,2615 

55 ' 346 

0 

TS 

WCH PHASE 

001  7 

REF 

143 

LAST 

769 

32,2616 

3 4746 

0 

CA 

ZERO 

00175 

REF 

4 

LAST 

734 

32,261 7 

5 5 ' 623 

0 

TS 

FLPASSO 

0018 

REE 

55 

LAST 

608 

32,2620 

4 4727 

0 

CS 

B I T 1 4 

0019 

32,2621 

C CO 06 

1 

EXTEND 

0020 

REF 

46 

LAST 

778 

32,2622 

03  012 

1 

WAND 

CHAN12 

REMOVE  TRACK-ENABLE  DISCRETE. 

0023 

REF 

1 17 

LAST 

772 

32,2623 

0 6060 

1 

FLAGORGY 

TC 

intpret 

DIONYSIAN  FLAG  WAVING 

002  3 1 

32,2624 

77614 

1 

CLEAR 

00232 

REF 

2 

LAST 

284 

32,2625 

00664 

0 

NOTERFLG 

PFRMIT  TERRAIN  MODEL 

0024 

32,2626 

43014 

0 

CLEAR 

CLEAR 

0025 

REE 

6 

LAST 

770 

32,2627 

02663 

0 

nothrotl 

0026 

REF 

1 

32,2630 

03271 

0 

REDFLAG 

0030 

32,2631 

43014 

0 

CLEAR 

SET 

003  1 

REF 

1 

32,2632 

C 5 660 

1 

LRBYPASS 

0032 

REF 

4 

LAST 

729 

32,2633 

03067 

0 

MUNFLAG 

0033 

32,2634 

43014 

0 

CLEAR 

CLEAR 

0034 

REF 

2 

LAST 

518 

32 ,2635 

C0266 

0 

P25FLAG 

TERMINATE  P25  IF  IT  IS  RUNNING. 

0035 

REF 

4 

LAST 

583 

32,2636 

0C270 

1 

RNDVZFLG 

TERMINATE  P20  IF  IT  TS  RUNNING 

A0036 
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0037 

32,2637 

77201 

1 

I GNALG 

SETPD 

V LOAD 

FIRST  SET  UP  INPUTS  FOR  RP-TO-R:- 

0038 

32 ,2640 

0CC01 

0 

0 

AT  OD  LANDING  SITE  IN  MOON  FIXED  FRAME 

0039 

REF 

7 

LAST 

7 20 

32,2641 

02C21 

0 

R LS 

AT  6D  ESTIMATED  TIME  OF  LANDING 

0040 

32, 2642 

41525 

0 

PDDL 

PUSH 

MPA C NON-ZERO  TO  INOICATE  LUNAR  CASE 

0041 

REF 

2 

LAST 

212 

32,2643 

02C27 

0 

T LAND 

0042 

REF 

2 

LAST 

156 

32,2644 

37625 

1 

STC ALL 

TP  IP 

ALSO  SET  TRIP  FOR  FIRST  GUIDANCE  PASS 

004  3 

REF 

1 

32,2645 

55716 

1 

RP-TO-R 

0044 

32,2646 

64312 

0 

VSL4 

M X V 

0045 

REF 

27 

LAST 

780 

32,2647 

01732 

0 

REFSMMAT 

0046 

REF 

3 

LAST 

2 12 

32,2650 

37635 

0 

STC  AL  L 

LAND 

004  7 

REF 

l 

32,2651 

71346 

0 

GUIDINIT 

GUIDINIT  INITIALIZES  WM  AND  /LAND/ 

004  0 

32, 2652 

45345 

l 

DLOAD 

DSU 

004  9 

REF 

3 

LAST 

782 

32,2653 

02027 

0 

T L AND 

0050 

REF 

1 

32,2654 

25070 

1 

GUIDDURN 

005  1 

REF 

43 

LAST 

762 

32,2655 

34041 

0 

STC  AL  L 

T DEC  1 

INTEGRATE  STATE  FORWARD  TO  THAT  TIME 

0052 

REF 

8 

LAST 

762 

32,2656 

27115 

1 

L EMPREC 

0053 

32,2657 

77331 

0 

SSP 

V LOAD 

0053  1 

REF 

1 

32,2660 

03647 

1 

NIGNLOOP 

00532 

32,2661 

00050 

1 

4 00 

0057 

REF 

7 

1 AST 

764 

32,2662 

06503 

1 

UNITX 

005  8 

REF 

3 

LAST 

127 

32,2663 

26572 

0 

STOVL 

CG 

0059 

REF 

4 

LAST 

600 

32,2664 

C6501 

0 

UNITY 

0060 

PEF 

4 

LAST 

782 

32,2665 

26600 

0 

STOVL 

CG  +6 

0061 

REF 

7 

LAST 

708 

32,2666 

06477 

0 

UNITZ 

0062 

RFF 

5 

LAST 

782 

32,2667 

16606 

0 

STODL 

CG  +14 

0062  1 

REF 

1 

32,2670 

25066 

0 

99999C0N 

00622 

REF 

4 

LAST 

327 

32,2671 

27665 

1 

STOVL 

DELTAH 

INITIALIZE  DELTAH  FOR  V16N68  DISPLAY 

00623 

REF 

13 

LAST 

762 

32,2672 

C6505 

1 

ZEROVECS 

00624 

RFF 

4 

LAST 

766 

32,2673 

17252 

1 

STODL 

U NFC/ 2 

INITIALIZE  TRIM  VELOCITY  CORRECTION  TERM 

006  3 

REF 

7 

LAST 

772 

32,2674 

06505 

1 

HI6ZER0S 

0065 

REF 

3 

LAST 

212 

32,2675 

1 7 64  3 

0 

STODL 

TTF/8 

006  5 2 

REF 

1 

32,2676 

25074 

0 

HLROFFF 

00653 

REF 

1 

32,2677 

03452 

1 

STORE 

HLROFF 

LR  CUTOFF  ALTITUDE. 

006  6 

32 ,2  700 

77745 

1 

IGNALOUP 

DLOAD 

0067 

REF 

14 

LAST 

729 

32,2701 

00015 

0 

TAT 

0068 

REF 

5 

LAST 

729 

32,2702 

27561 

c 

STOVL 

PIPTIME1 

0073 

REF 

10 

LAST 

729 

32,2703 

OOC  17 

1 

R ATT  1 

0074 

32,2704 

64312 

0 

VSL4 

M X V 

0075 

REF 

28 

LAST 

782 

32,2705 

01732 

0 

REFSMMAT 

0076 

REF 

4 

LAST 

244 

32,2706 

37521 

0 

STC ALL 

R 

007  I 

REF 

2 

L AST 

729 

32,2707 

67C37 

1 

MUNGRAV 

0078 

REF 

5 

LAST 

109 

32,2710 

35236 

0 

STC  A L L 

GDT/2 

0079 

REF 

1 

32,2711 

62417 

1 

7GU1DSU8 

WHICH  DELIVERS  N PASSFS  OF  GUIDANCE 

R0080 

DOUMCALC 

IS  PROGRAMMED  AS  FOLLOWS:- 

R0081 

2 

_ 

R0083 

(RIGNZ  - 

RGU  1/16  + 

16 (RGU 

) K IGNY/88 

+ ( RGU 

- R I GNX ) K I GNX/B4 

+ (ABVAL(VGU)  - V I ON ) K IGNV/B4 

R0085 

2 

1 

C 

) 

R0086 

DCUM 

- 
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R0088  10 

R0089  2 ( VGU  - 16  VGU  K IGNX/B4 ) 

R0090  2 0 

R0091  THE  NUMERATOR  IS  SCALED  IN  METERS  AT  2(28).  THE  DENOMINATOR  IS  A VELOCITY  IN  UNITS  OF  2(10)M/CS. 

R0093  THE  QUOTIENT  IS  THUS  A TIME  IN  UMTS  OF  2(18)  CEN T I S ECOND S . THE  FINAL  SHIFT  RESCALES  TO  UNITS  OF  2(28)  CS. 

R0095  THERE  IS  NO  DAMPING  FACTOR.  THE  CONSTANTS  KIGNX/B4,  KIGNY/B8  AND  KIGNV/B4  ARE  ALL  NEGATIVE  IN  SIGN. 


0097 

REF 

2 

LAST 

782 

32, 2712 

55 ' 646 

0 

OCUMCALC  TS 

009  7 l 

REF 

1 18 

LAST 

781 

32,2713 

0 6060 

1 

TC 

00972 

32,2714 

57345 

1 

DLOAD 

0098 

REF 

3 

LAST 

212 

32,2715 

03627 

1 

009  9 

REF 

2 

LAST 

126 

32,2716 

02465 

1 

0100 

32,2717 

44232 

1 

SL4R 

010  1 

REF 

4 

LAST 

783 

32,2720 

03633 

1 

0102 

32, 2721 

45325 

1 
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0024 

REF 

2 

LAST 

156 

31,2176 

4 1617 

1 

CS 

TTHROT 

THIS  CODING  ASSUMES  A FLA  TOUT 

WITHIN 

GAP: 
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L 

THROTTLE 

CONTROL  ROUTINES 

002  5 

REF 

1 A 

LAST 

739 

31,2177 

6 

0025 

0 

AD 

T I ME  1 

0026 

REF 

16 

LAST 

589 

31,2200 

7 

4 7 24 

0 

MASK 

POSMAX 

0027 

31,2201 

4 

ocoo 

0 

COM 

002  8 

REF 

1 

31 ,2202 

6 

4773 

0 

AO 

3 SECS 

0029 

31,2203 

0 

0006 

l 

EXTEND 

0030 

REF 

1 

31,2204 

6 

2210 

0 

BZMF 

WHERETO 

0031 

31,2205 

0 

0006 

1 

EXTEND 

003  2 

REF 

2 

LAST 

156 

31,2206 

3 

1611 

0 

DC  A 

FWEIGHT 

0033 

REF 

2 

LAST 

789 

31,2207 

21 

•4  70 

1 

DAS 

FP 

R0034 

THIS 

LOGIC 

DETERMINES  THE 

THROTTL 

ING 

IN  THE  REGION 

10?  - 94? 

R0036 

MINIMUM 

BY  ASTRONAUT 

OR  MISSION 

CGNTROL 

PROGRAMS,  PROVIDES  THE  L 

R003  8 

PROVIDES 

THE  UPPER. 

0039 

REF 

5 

LAST 

777 

3 L, 2210 

3 

5005 

1 

WHERETO 

CA 

EBANK5 

004  0 

REF 

32 

LAST 

784 

31,2211 

54 

■ 003 

0 

TS 

EBANK 

004  l 

REF 

2 

LAST 

126 

E5, 1472 

EBANK= 

LOWCRIT 

0042 

31,2212 

0 

C 006 

1 

EXTEND 

004  3 

REF 

3 

LAST 

790 

31,2213 

3 

1473 

0 

DC  A 

LOWCRIT 

0044 

REF 

1 

31,2214 

52 

: 131 

0 

DXCH 

L*WCR*T 

004  5 

REF 

9 

LAST 

784 

31,2215 

3 

5C07 

0 

CA 

EBANK7 

0046 

REF 

33 

LAST 

790 

31,2216 

54 

003 

0 

TS 

EBANK 

004  7 

REF 

3 

LAST 

789 

E 7 , 1612 

EB ANK= 

P IF 

004  0 

REF 

145 

LAST 

785 

31,2217 

4 

4 746 

1 

CS 

ZERO 

004  9 

REF 

2 

LAST 

156 

31,2220 

55 

'606 

1 

TS 

PIFPSET 

0050 

REF 

1 

31,2221 

4 

C 13  1 

0 

CS 

H*GHCR*T 

0051 

REF 

2 

LAST 

156 

31,2222 

6 

1620 

1 

AD 

FCOLD 

0052 

31,2223 

0 

0006 

1 

EXTEND 

0053 

REF 

1 

31,2224 

6 

2236 

1 

BZMF 

LOWFCOLD 

0054 

REF 

2 

LAST 

790 

31 , 2225 

4 

0130 

1 

CS 

L*WCR*T 

0055 

REF 

3 

LAST 

789 

3 1, 2226 

6 

1465 

1 

AD 

FCODD 

0056 

31,2227 

0 

0006 

1 

EXTEND 

005  7 

REF 

1 

31,2230 

6 

2233 

1 

BZMF 

FCOMPSET 

005  8 

REF 

3 

LAST 

790 

3 L , 223 1 

3 

1467 

0 

CA 

FP 

0059 

REF 

1 

31,2232 

1 

2243 

1 

TCF 

FLAT0UT1 

006U 

REF 

1 

31,2233 

4 

2 002 

0 

FCOMPSET 

CS 

FMAXODD 

006  1 

REF 

4 

LAST 

790 

31,2234 

6 

1467 

0 

AD 

FP 

006? 

REF 

1 

31 ,2235 

1 

2245 

l 

TCF 

FLAT0UT2 

0063 

REF 

2 

LAST 

790 

31,2236 

4 

C 131 

0 

LOWFCOLD 

CS 

H*GHCR*T 

0064 

REF 

4 

LAST 

790 

31,2237 

6 

1465 

1 

AD 

FCODD 

0065 

31,2240 

0 

0006 

1 

EXTEND 

0066 

REF 

I 

31,2241 

6 

2246 

0 

BZMF 

DOPI  F 

0067 

REF 

1 

31,2242 

3 

2 C03 

0 

CA 

FMAXPOS 

006  8 

REF 

5 

LAST 

790 

31,2243 

57 

' 465 

l 

FLAT0UT1 

XCH 

FCODD 

0069 

REF 

l 

31, 2244 

3 

4730 

1 

CA 

FEXTRA 
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USER'S  PAGE  NO.  2 E7  S3 

80  SECONDS  BEFORE  FIRST  THROTTLE  CALL 


BRANCH  IF  ( T IME1-TTHR0T  +1)  > 3 SFCONDS 


HE  MANUAL  THROTTLE,  NOMINALLY  SET  AT 
BOUND.  A STOP  IN  THF  THROTTLE  HARDWARE 


INITIALIZE  L*WCR*T  AND  H*GHCR*T  FROM 
PAD  LOADED  ERASABLES  IN  W-MATRIX 


INITIALIZE  PIFPSET 


BRANCH  IF  FCOLD  < OR  = HIGHCRIT 


BRANCH  IF  FC  < OR  = LOWCRIT 
SFF  NOTE  I 

SEE  NOTE  2 


BRANCH  IF  FC  < OR  = HIGHCRIT 


NO  : 


THPOTT  L F— UP 


GAP: 
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197  PAGE  791 


L 

THROTTLE 

CONTROL  ROUTINES 

USER*  S PAGE  NO.  3 E7  S3 

0070 

REF 

3 

LAST 

790 

31,2245 

55 

•606 

1 

FLAT0UT2 

TS 

P IFPSET 

A007  1 

NOTE  1 

EC  I S 

SET  EQUAL  TO  FP  SO  PIF  WILL  BE  ZERO.  THIS  TS  DESIRABLE 

A0072 

AS  THERE  IS  ACTUALLY  NO  THROTTLE  CHANGE. 

A0073 

NOTE  2 

HERE, 

SINCE  WE  ARE  ABOUT  TO  RETURN  TO  THE  THROTTLEABLE  REGION 

A0074 

(BELOW 

55?)  THE  QUANTITY  -(FMAXODD  - FP ) IS  COMPUTED  AND  PUT 

A0075 

INTO  PIFPSET  TO  COMPENSATE  FOR  THE  DIFFERENCE  BETWEEN  THE 

A007  6 

NUMBER 

OF  BITS  CORRESPONDING  TO  FULL  THROTTLE  (FMAXODD)  AND  THE 

A0077 

NUMBER 

CORRESPONDING  TO  ACTUAL  THRUST  (FP).  THUS  THE  TOTAL 

A0078 

THROTTLF  COMMAND  PIF  = FC  - FP  -(FMAXODD  - FP)  = FC  - FMAXODD. 

008  1 

REF 

1 

31,2246 

0 

3751 

1 

OOP  IF 

TC 

F ASTCHNG 

0082 

31,2247 

0 

0006 

1 

EXTEND 

0083 

REF 

6 

LAST 

790 

31,2250 

3 

1466 

1 

DC  A 

FCODD 

008  A 

REF 

3 

LAST 

790 

31,2251 

55 

'620 

0 

TS 

FCOLD 

0085 

REF 

4 

LAST 

790 

31,2252 

53 

•613 

0 

DXCH 

P IF 

0086 

31,2253 

0 

0006 

1 

EXTEND 

0087 

REF 

5 

LAST 

790 

31,2254 

4 

1470 

1 

DCS 

FP 

0088 

REF 

5 

LAST 

79  1 

31,2255 

21 

• 613 

0 

DAS 

PIF  PIF  = FC  - FP , NEVER  EQUALS  +0 

0039 

REF 

6 

LAST 

791 

31,2256 

3 1612  0 

DOIT  CA  PIF 

0090 

REF 

4 

LAST 

79  1 

31,2257 

6 1606  0 

AD  PIFPSET  ADD  IN  PIFPSET,  WITHOUT  CHANGING  PIF 

009  1 

REF 

3 

LAST 

212 

31, 2260 

55*614  1 

TS  PSEUD055 

0092 

REF 

4 

LAST 

756 

31,2261 

54  C55  0 

TS  THRUST 

0093 

REF 

34 

LAST 

756 

31,2262 

3 4741  1 

CAF  BIT4 

0094 

31,2263 

0 0006  1 

EXTEND 

0095 

REF 

10 

LAST 

756 

31 , 2264 

05  014  1 

WOR  CHAN  1 4 

0096 

REF 

15 

LAST 

790 

31,2265 

3 0025  0 

CA  T I ME  1 

0097 

REF 

3 

LAST 

789 

31,2266 

55*617  1 

TS  TTHROT 

R0098 

SINCE 

/AF/ 

IS  NOT  AN  INSTANTANEOUS 

ACCELERATION,  BUT  RATHER  AN  "AVERAGE"  OF  THE  ACCELERATION  LEVELS  DURING 

R0100 

THE  PRECEEDING 

PI  PA 

INTERVAL , 

AND  SINCE 

FP  IS  COMPUTED  DIRECTLY  FROM  /AF/,  FP  IN  ORDER  TO 

CORRESPOND  TO  THE 

RO 102 

ACTUAL  THRUST 

LEVEL 

AT  THE  END  CF  THE  INTERVAL  MUST  BE  WEIGHTED  BY 

R0103 

PIF( PPROCESS  + TL)  PIF  /PIF/ 

RO  104 

FWEIGHT  = 

R0105 

PGUID  2 PGUID  FRATE 

RO  10  6 

WHERE 

PPROCESS 

IS  THE  TIME  BETWEEN  PIPA 

READING  AND  THE  START  OF  THROTTLING,  PGUID  IS  THE 

GUIDANCE 

PERIOD,  AND 

RO  10  8 

FRATE 

IS 

THE  THROTTLING  RATE 

(32  UNITS 

PER  C E NT  I SECOND ) . PGUID  IS  EITHER  1 OR  2 SECONDS. 

THE  "TL" 

IN  THE 

R0110 

FIRST 

TERM  REPRESENTS  THE  ENGINE'S  RESPONSE  LAG.  HERE  FWETGHT  IS  COMPUTED  FOR  USE  NEXT  PASS. 

0112 

REF 

2 

LAST 

L58 

31, 2267 

3 1762  0 

CA  THISTPIP  +1  INITIALIZE  FWEIGHT 

COMP  AS 

IF  FOR  P66 

0113 

REF 

49 

LAST 

472 

31,2270 

54  130  1 

TS  BUF 

0114 

REF 

12 

LAST 

71  1 

31,2271 

4 LC10  0 

CS  MODREG  APE  WE  IN  FACT  IN 

P66  ? 

0115 

REF 

1 

31,2272 

6 2454  0 

AD  DEC66 

0116 

31,2273 

0 C006  1 

EXTEND 
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L 

THROTTLE 

control  routines 

0117 

REF 

1 

31,2274 

0118 

REF 

13 

LAST 

789 

31,2275 

0119 

REF 

50 

LAST 

79  1 

31,2276 

0120 

REF 

3 

LAST 

789 

3 L ,2277 

0121 

REF 

2 

LAST 

792 

31,2300 

0122 

REF 

2 

LAST 

580 

31,2301 

0126 

REF 

188 

LAST 

789 

31,2302 

0126  1 

31,2303 

01262 

REF 

39 

LAST 

785 

31,2304 

01263 

REF 

51 

LAST 

792 

31,2305 

0127 

REF 

52 

LAST 

792 

31,2306 

0128 

REF 

16 

LAST 

79  l 

31,2307 

0129 

REF 

1 

31,2310 

0130 

REF 

4 

LAST 

475 

31,2311 

013  I 

31,2312 

0132 

31,2313 

0133 

REF 

189 

LAST 

792 

31,2314 

0134 

21,2315 

0135 

REF 

7 

LAST 

791 

3 1, 2316 

0136 

31,2317 

0137 

REF 

3 

LAST 

790 

31 ,2  320 

0138 

REF 

8 

LAST 

792 

31,2321 

0139 

REF 

77 

LAST 

78  1 

31,2322 

0140 

31 , 2323 

014  1 

REF 

78 

LAST 

792 

31,2324 

0142 

31,2325 

0143 

REF 

9 

LAST 

792 

31,2326 

0144 

31,2327 

0145 

REF 

53 

LAST 

792 

31,2330 

0146 

31,2331 

014  7 

REF 

4 

LAST 

792 

31,2332 

0148 

REF 

3 

LAST 

789 

31,2333 

R 0 149 

FLATOUT  THROTTLES 

UP  THE 

015  1 

REF 

27 

LAST 

736 

31,2334 

0152 

REF 

5 

LAST 

79  1 

31,2335 

015  3 

REF 

146 

LAST 

790 

31,2336 

0154 

REF 

4 

LAST 

791 

31,2337 

0155 

REF 

10 

LAST 

792 

31,2340 

0156 

31,2341 

015  7 

REF 

4 

LAST 

792 

31,2342 

0158 

REF 

1 

31,2343 

0 

BZF 

FWCOMP 

0 

CA 

PIPTIME 

+ 1 

1 

TS 

BUF 

1 

CAF 

4SECS 

0 

TCF 

FWCOMP 

+ 1 

1 

FWCOMP 

CAF 

2 SEC  S 

1 

+ 1 

TS 

Q 

l 

EXTEND 

1 

MP 

BIT6 

1 

LXCH 

BUF  +1 

L 

CS 

BUF 

0 

AD 

T IME  1 

1 

AD 

THROTLAG 

1 

MASK 

LOWS 

0 

ZL 

1 

EXTEND 

1 

DV 

0 

1 

EXTEND 

1 

MP 

P IF 

l 

DDOUBL 

1 

DXCH 

FWEIGHT 

1 

CCS 

PIF 

1 

AD 

ONE 

0 

TCF 

+ 2 

1 

AD 

ONE 

l 

EXTEND 

1 

MP 

PIF 

1 

EXTENO 

0 

DV 

BUF  +1 

0 

ZL 

1 

DAS 

FWEIGHT 

1 

THDUMP 

TC 

R TNHOLD 

ENGINE,  ANO  IS  CALLED  AS  A BASIC 


1 

FLATOUT 

CAF 

B IT  1 3 

1 

WHATOUT 

TS 

PIFPSET 

1 

CS 

ZERO 

0 

TS 

FCOLD 

1 

TS 

PIF 

1 

EXTEND 

1 

QXCH 

R TNHOLD 

0 

TCF 

DOIT 

1 2301 

3 1234 

54  130 

3 4774 

1 2302 

3 4771 

54  002 

0 0006 

7 4737 

22  131 

4 C 130 

6 0025 

6 2004 

7 4 3 50 

22  007 

0 C 006 

10  002 

0 0006 

7 1612 

20  001 

53' 611 

1 1 ' 612 

6 4 744 

1 2325 

6 4744 

0 0006 

7 1612 

0 0006 

10  131 

22  007 

21*611 

0 1607 

DESCENT 

3 4730 

5 5 '606 

4 4 746 

55 • 620 

55*612 

0 0006 

23 ' 607 

1 2256 
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YES 

USER'S  PAGE 

NO. 

4 

E7  S3 

NO : 

INITIAL  IZE 

FOR 

TWO 

SECOND  PERIOD 

TIME  OF  LAST  PIPA  READING. 

COMPENSATE  FOR  ENGINE  RESPONSE  LAG 
MAKE  SURE  SMALL  ANO  POSITIVE 


SUBROUT  INF . 

4096  PULSES 

USE  PIFPSET  SO  FWEIGHT  WILL  BE  ZERO 
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197  PAGE  793 


R0159 

016  1 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 


RO 17  6 

0177 

0180 

01802 

01304 

RO  18  I 


THROTTLE  CONTROL  ROUTINES  USER'S  PAGE  NO.  5 E7  S3 


MASSMULT 

SCALES 

ACCELERATION,  ARRIVING  IN  A 

AND  L IN  UNITS  OF 

2 ( -4 ) M/CS/CS,  TO  FORCE  IN  PULSE  UNITS. 

31,2344 

0 0006 

1 MASSMULT 

EXTEND 

REF 

54 

LAST 

792 

31,2345 

22  130 

0 

QXCH 

8UF 

REF 

2 79 

LAST 

769 

31,2346 

52  155 

1 

DXCH 

M P AC 

REF 

16 

LAST 

449 

31,2347 

0 7124 

l 

TC 

DMP 

REF 

5 

LAST 

307 

31, 2350 

C 1243 

0 

ADRES 

MASS 

REF 

17 

LAST 

793 

31,2351 

0 7 124 

1 

TC 

DMP 

LEAVES  PROPERLY  SCALED  FORCE  IM  MPAC 

REF 

1 

31,2352 

02C05 

0 

ADRES 

S CAL  E FAC 

REF 

10 

LAST 

769 

31,2353 

0 7300 

0 

TC 

TPAGREE 

REF 

280 

LAST 

793 

31,2354 

3 0154 

1 

CA 

MPAC 

31,2355 

0 0006 

l 

EXTEND 

31,2356 

1 2361 

0 

BZF 

+ 3 

REF 

17 

LAST 

790 

31 , 2357 

3 4724 

1 

CAF 

POSMAX 

REF 

55 

LAST 

793 

31,2360 

0 0130 

0 

TC 

BUF 

REF 

281 

LAST 

793 

31,2361 

52  156 

1 

DXCH 

MPAC  +1 

REF 

56 

LAST 

793 

31,2362 

0 C 1 30 

0 

TC 

BUF 

CONSTANTS 

REF  28  LAST  792  4730 


31.2364 

31.2365 


FEXTRA 


31,2363  04  L 43  0 /AF/CNST  DEC 


17777  0 
35074  1 


OCT  1 7 77  7 OCT 
4FMAXN0M  DEC 


B I T 1 3 


. 13107 


17777 

14908 


# # # # # # 


FEXT  + 5. 13309020E+  4 


EQUIVALENT  TO  10,500  LBS. 
******************** 


* * 


* * 
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L 

LUNAR 

LANDING  GUIDANCE  EQUATIONS 

USER'S  PAGE  NO.  1 

EO 

S3 

POOO  1 

0002 

REF 

2 

LAST  731  F7.1621 

EBANK= 

E2DPS 

0003 

REF 

2 

LAST  AO  TU  Al: 

2 

2* 

COUNT* 

$ $ /F2DP  S 

— 

R0006 

LUNAR 

LANDING  FLIGHT  SEQUENCE 

TABLES 

R0009 

FLIGHT 

SEQUENCE  TABLES  ARE  ARRANGED 

BY 

FUNCT  ION  . 

THEY 

ARE  REFERENCED  USING  AS  AN  INDEX  THE  REGISTER  WCHPHASE: 

A001  1 

WCHPHASE  = -1  — 

->  IGNALG 

A0012 

WCHPHASE  = 0 — 

->  BRAKQUAD 

A 0 0 1 3 

WCHPHASE  = 1 — 

->  APPRQUAD 

A001  A 

WCHPHASE  = 2 — 

->  VERTICAL 

R001  5 

ROO 1 7 

ROUTINES 

FOR  STARTING  NEW  GUIDANCE  PHASES: 

0018 

REF 

L 

3 1 » 2 366 

1 

2562 

0 

TCF 

TTF  I NCR 

IGNALG 

0019 

REF 

2 

LAST  794  31,2367 

1 

2562 

0 

NEWPHASE 

TCF 

TTFINCR 

BRAKQUAD 

0020 

REF 

1 

31,2370 

1 

2550 

1 

TCF 

ST  ART  P6A 

APPRQUAD 

002  1 
R0022 

REF 

1 

31,2371 

1 

2 A52 

1 

TCF 

STARTP66 

VERT  I CAL 

R0023 

PRE-GUICANCE  COMPUTATIONS: 

00?  A 

RFF 

l 

31,2372 

1 

2 7A2 

0 

TCF 

C ALCRGVG 

IGNALG 

002  5 

REF 

1 

31,2373 

1 

2752 

1 

PREGUIDE 

TCF 

RGVGCALC 

BRAKQUAD 

0026 

R0027 

REF 

1 

31.237A 

l 

26A3 

0 

TCF 

REDESIG 

APPRQUAD 

R0028 

GUIDANCE 

EQUAT  IONS: 

0029 

REF 

1 

31 ,2375 

1 

3015 

1 

TCF 

TTF/8CL 

IGNALG 

003C 

REF 

2 

LAST  79A  31,2376 

l 

3C15 

1 

WHATGU ID 

TCF 

TTF/8CL 

BRAKQUAD  ****  HOBSnN'S 

CHOICE? 

003  1 
R0032 

REF 

3 

LAST  79A  31,2377 

1 

3015 

1 

TCF 

TTF/8CL 

APPRQUAD 

R0033 

POST  GUIDANCE  EQUATION  COMPUTATI 

ONS: 

003  A 

REF 

1 

3 L , 2 AOO 

1 

3222 

1 

TCF 

CGCALC 

IGNALG 

0035 

REF 

l 

31.2A01 

1 

3207 

0 

AFTRGUID 

TCF 

EXTLOGIC 

BRAKQUAD 

0036 
R003  7 

REF 

2 

LAST  79A  31,2402 

l 

3207 

0 

TCF 

EXTLOGIC 

APPRQUAD 
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L LUNAR  LANDING  GUIDANCE  EQUATIONS 


P0038  WINDOW  VECTOR  COMPUTATIONS: 


0039 

REF 

1 

31,2903 

1 3266 

1 

TCF 

EXGSUB 

0090 

REF 

1 

31 , 2909 

1 3307 

1 

WHATEX IT 

TCF 

EXBRAK 

009  1 
R0092 

REF 

1 

31,2905 

1 33  15 

1 

TCF 

EXNORM 

R0093 

DISPLAY 

ROUTINES: 

0099 

REF 

1 

31,2906 

1 3926 

0 

WFATDISP 

TCF 

P63DISPS 

0095 

REF 

1 

31, 2907 

1 3999 

1 

TCF 

P69DISPS 

0096 
R009  7 

REF 

l 

31,2910 

1 3502 

1 

TCF 

VERTDI SP 

R009  8 

ALARM 

ROUTINE  FOR 

TTF  COMPUTATION: 

0099 

REF 

1 

31,2911 

1 3731 

0 

TCF 

1 906  POO 

0050 

REF 

1 

31,2912 

1 3733 

1 

WHATALM 

TCF 

1906 A LM 

005  1 
R0052 

REF 

2 

LAST  795 

31, 2913 

1 3733 

1 

TCF 

1906ALM 

R0053 

INDICE 

S 

FOR  REFERENCING  TARGET 

PARAMETERS  : 

0059 

31,2919 

OCOOO 

1 

OCT 

0 

0055 

31,2915 

COOOO 

1 

TARGTCEX 

OCT 

0 

0056 

31,2916 

00002 

0 

OCT 

2 

R0057 
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IGNALG 
BR AKQUAU 
APPRQUAD 


BR AKQUAD 
APPRQUAD 
VERTICAL 


I GNALG 
BR AKQUAD 
APPRQUAD 


IGNALG 
BR AKQUAD 
APPRQUAD 
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R0060  ENTRY  POINTS:  7GUIDSUB  FOR  THE  IGNITION  ALGORITHM,  LUNLAND  FOR  SERVOUT 


R0063  IGNITION  ALGORITHM  FNTRY : DELIVERS  N PASSES  OF  QUADRATIC  QUIOANCE 


006  6 

31,2617 

77776 

1 

7GUIDSUB 

EXIT 

0065 

REF 

51 

LAST 

785 

31,2620 

3 6763 

0 

CAE 

TWO 

N = 3 

0066 

REF 

1 

31 , 2621 

55*667 

1 

TS 

NGUIDSUB 

006  7 

REF 

1 

31, 2622 

1 2530 

1 

TCF 

GUI LDRET 

0068 

REF 

2 

LAST 

796 

31,2623 

55 ' 667 

l 

GUIDSUB 

TS 

NGUIDSUB 

ON  SUCEEDING  PASSES  SKIP  TTFINCR 

0069 

REF 

2 

LAST 

796 

31,2626 

1 2762 

0 

TCF 

C ALCRGVG 

R0070 

NORMAL 

ENTRY: 

CONTROL  COMES 

HERE  FROM 

SERVOUT 

0071 

REF 

59 

LAST 

787 

31,2625 

0 5355 

I 

LUNLAND 

TC 

P HASCHNG 

0072 

31,2626 

00035 

1 

OCT 

00035 

GROUP  5:  RETAIN  ONLY  PIPA  TASK 

0073 

REF 

25 

LAST 

756 

31,2627 

3 0101 

1 

CA 

FLAGWRD5 

HAS  THROTTLE-UP  COME  YET? 

0076 

REF 

l 

31,2630 

7 6735 

0 

MASK 

ZOOMBTT 

0075 

31,2631 

0 C006 

1 

EXTEND 

0076 

REF 

1 

31,2632 

1 3620 

0 

BZF 

DISPEXIT  +3 

NO:  DO  DISPLAYS  ONLY 

0077 

REF 

60 

LAST 

796 

31,2633 

0 5355 

1 

TC 

P HASCHNG 

YES:  DO  GUIDANCE 

0078 

31, 2636 

C5023 

0 

OCT 

05023 

0079 

31 , 2635 

20000 

0 

OCT 

20000 
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R 0082  GU ILDENSTERN  (AUTO-MCDES  MONITOR  - R13) 

R0083  SELECT  P66  WHEN  THE  ROD  SWITCH  HAS  BEEN  MANIPULATED  IN  THE  ATTITUDE  HOLD  MODE 


0087 

REF 

1 

COUNT* 

$ $/R  1 3 

0088 

REF 

13 

LAST 

791 

3 1 » 2 A 3 6 

4 1010 

0 

GUILDEN 

CS 

MODREG 

ARE  WE  ALREADY  IN  P66? 

0089 

REF 

2 

LAST 

79  1 

31, 2A37 

6 2454 

0 

STERN 

AD 

DEC66 

0090 

31, 2AA0 

0 0C06 

1 

EXTEND 

0091 

REF 

1 

31, 2AA 1 

1 2523 

0 

BZF 

RE-IN66? 

Y:  GO  SEE  IF  WE  SHOULD  RE- I N I T I AL I ZE  P 

0092 

REF 

29 

LAST 

793 

31, 2AA2 

3 4730 

1 

CAF 

BIT13 

N:  ATTITUDE  HOLD? 

0093 

31, 2AA3 

0 CC06 

1 

EXTEND 

009  A 

REF 

3 

LAST 

A 9 1 

31.2AAA 

02  031 

1 

RAND 

CHAN31 

0095 

REF 

220 

LAST 

758 

31.2AA5 

10  000 

0 

CCS 

A 

0096 

REF 

2 

LAST 

796 

3 1 , 24A6 

1 2530 

l 

TCF 

GUILDRET 

N:  CONTINUE  P63  OR  P64 

0097 

REF 

2 

LAST 

270 

31,2  AA7 

3 1746 

0 

CA 

RODCOUNT 

Y:  ANY  ROD  COMMANDS? 

0098 

31, 2A50 

0 0006 

1 

EXTEND 

009  9 

REF 

3 

LAST 

797 

31,2451 

1 2530 

1 

BZF 

GUILDRET 

N:  CONTINUE  P63  OR  P64 

R0100 

INITIAL 

IZE  P66 

010  1 

REF 

2 

LAST 

79  1 

3L ,2452 

0 3751 

1 

STARTP6 

6 TC 

F ASTCHNG 

Y:  START  P66 

0102 

REF 

2 

LAST 

385 

31,2453 

0 5313 

0 

TC 

NEWMODEX 

0103 

31,2454 

OC  102 

1 

DEC66 

DEC 

66 

010A 

31,2455 

0 0006 

1 

EXTEND 

010  5 

REF 

8 

LAST 

329 

31,2456 

3 1474 

1 

DC  A 

HDOTDISP 

SET  DESIRED  ALTITUDE  RATE  TO  THE 

0106 

REF 

1 

31,2457 

53' 645 

0 

DXCH 

VDGVERT 

CURRENTLY  DISPLAYED  ALTITUDE  RATE 

0107 

REF 

53 

LAST 

778 

31,2460 

0 5506 

1 

TC 

UPFL AG 

SET  FLAG  TO  CONTINUE  P66  HORIZONTAL 

0108 

REF 

1 

31,2461 

OC  C 16 

0 

ADRES 

P66PR0FL 

UNTIL  'PROCEED'  AFTER  TOUCHDOWN 

0 1C  9 

REF 

l 

31,2462 

4 13  54 

0 

CS 

TOOFFW 

INITIALIZE  CNTTHROT  TO  -TOOFFW 

0 1 L 0 

REF 

1 

3L ,2463 

55 1 623 

0 

TS 

C NTTHROT 

ROll  1 

P66 

RE- 

INITIAL ; 

I ZAT ION 

WHEN  RODFLAG  RE 

SET 

- P 6 6 

INITIALIZATION  CONTINUED 

0112 

REF 

121 

LAST 

787 

31, 2464 

0 6060 

1 

RE-IN66 

TC 

I NTPrET 

0113 

31,2465 

47375 

0 

VLOAD 

VXV 

COMPUTE  HORIZONTAL  VELOCITY  COMMAND 

Oil  A 

REF 

2 

LAST 

1 2 A 

31,2466 

02316 

1 

WM 

MOON'S  ANGULAR  RATE  IN  2(-17)RAD/CS 

0115 

REF 

6 

LAST 

78  A 

31,2467 

03521 

1 

R 

LM  POSITION  IN  2I24IM 

0116 

REF 

1 

31,2470 

03434 

1 

STORE 

VHZC 

0117 

31,2471 

57551 

1 

TLOAD 

DCOMP 

0118 

REF 

2 

LAST 

108 

31,2472 

01254 

0 

TEMX 

0119 

REF 

2 

LAST 

158 

31, 2473 

27764 

1 

STOVL 

OLDPI PAX 

NOTE:  VECTOR  INIT  OF  SP  OLDPIPA'S  OVER- 

0120 

REF 

1A 

LAST 

782 

31,2474 

06505 

1 

ZEROVECS 

LAPS  ADJACENT  DELVROD.  THUS  INIT 

012  1 

REF 

3 

LAST 

159 

31 ,2475 

17767 

1 

STOOL 

DELVROD 

DELVROD  AFTER  OLDPIPA'S 

GAP: 
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0122 

REF 

2 

LAST 

126 

31,2476 

02535 

0 

RODSCALE 

0123 

REF 

2 

LAST 

158 

31,2477 

17757 

1 

STODL 

RODSCAL 1 

0124 

REF 

14 

LAST 

79  2 

31  ,2  500 

01234 

0 

PIPTIMF 

0125 

REF 

2 

LAST 

158 

31,2501 

03760 

0 

STORE 

LASTTPIP 

0126 

31,2502 

777  76 

1 

EXIT 

0127 

REF 

216 

LAST 

787 

31,2503 

0 4607 

1 

TC 

BANKCALL 

0128 

REF 

1 

31,2504 

65425 

1 

FC  ADR 

DEIMUB08 

0129 

REF 

147 

LAST 

792 

31,2505 

3 4746 

0 

CAF 

ZERO 

0130 

REF 

5 

LAST 

792 

31,2506 

5 5 ' 620 

0 

TS 

FCOLD 

013  l 

REF 

5 

LAST 

792 

31,  2507 

55 ' 6 10 

0 

TS 

F WEI GHT 

0132 

REF 

6 

LAST 

798 

31,2510 

5 5 ' 6 1 1 

1 

TS 

FWEIGHT  +1 

0133 

REF 

52 

LAST 

796 

31,2511 

3 4743 

0 

CAF 

TWO 

013  4 

REF 

3 

LAST 

734 

31,2512 

5 5 ' 62  1 

1 

TS 

WCHPHOLD 

0135 

REF 

3 

LAST 

781 

31,2513 

55' 346 

0 

TS 

WCHPHASE 

0136 

REF 

74 

LAST 

777 

31, 2514 

0 5520 

0 

TC 

DOWNFLAG 

0137 

REF 

3 

LAST 

240 

31,2515 

0C311 

1 

ADRES 

XOVINFLG 

0138 

REF 

54 

LAST 

797 

31, 2516 

0 5506 

1 

TC 

UPFLAG 

0139 

REF 

3 

LAST 

781 

31,2517 

00023 

0 

ADRES 

NOTE  R FL  G 

0140 

REF 

55 

LAST 

798 

31 , 2520 

0 5506 

1 

TC 

UPFLAG 

0141 

REF 

1 

31 , 2521 

00022 

1 

ADRES 

RODFLAG 

0142 

REF 

l 

31,2522 

1 3517 

0 

TC  F 

P66 

0143 

REF 

28 

LAST 

535 

31,2523 

3 CC75 

0 

RE-IN66?  CA 

FLAGWRD1 

0144 

REF 

2 

LAST 

228 

31, 2524 

7 4731 

1 

MASK 

ROOF  LB  I T 

0145 

31,2525 

0 C006 

1 

EXTEND 

0146 

REF 

1 

31,2526 

1 2464 

1 

BZF 

RE-IN66 

014  7 

REF 

2 

LAST 

798 

31,2527 

1 3517 

0 

TC  F 

P 66 
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SHOW  THAT  LAST  P66  WAS,  IN  EFFECT, 
PERFORMED  AT  PIPTIME 


REFER  CURRENT  PIPAX  READING  TO  THE  CM; 
ALAS,  OMEGAQ  AT  PIPTIME  NOT  AVAILABLE 


WC HPHOL D=2  — > VERTICAL  PHASE 

***DOES  AN YON F SEE  ANY  NEED  FOR  THIS?*** 
PERMIT  X-AXIS  OVERRIDE 

SHOULD  DO  INTERPRET IVELY  TO  SAVE  A WORD 
TERMINATE  TERRAIN  MODEL 

SHOULD  DO  INTERPPETIVFLY  TO  SAVE  A WORD 
P66  INITIALIZATION  COMPLETE 


RE-INITIAL IZE  P66? 
Y 


N 
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P0148 

R0150 

INITIALIZATION 

FOR 

THIS  PASS 

1 

1 

1 

0153 

REF 

3 

LAST 

794  TO  797: 

40 

42* 

COUNT* 

$ I/F2DPS 

0154 

REF 

148 

LAST 

798 

31,2530 

3 4 746 

0 

GUILDRET  CAF 

ZERO 

0155 

REF 

3 

LAST 

797 

31,2531 

55' 746 

1 

TS 

RODCOUNT 

0156 

31,2532 

0 0006 

1 

EXTEND 

0157 

REF 

3 

LAST 

732 

31,2533 

3 1625 

1 

DC  A 

TPIP 

0158 

REF 

1 

31,2534 

53 ' 5 74 

1 

DXCH 

TPIPOLD 

0159 

REF 

3 

LAST 

79  7 

31,2535 

0 3751 

1 

TC 

F ASTCHNG 

0160 

31, 2536 

0 0006 

1 

EXTEND 

0161 

REF 

8 

LAST 

783 

31,2537 

3 1561 

1 

DC  A 

PIPTIME1 

0162 

REF 

4 

LAST 

799 

31,2540 

53' 625 

0 

DXCH 

TPIP 

0163 

31,2541 

0 0006 

1 

EXTEND 

0164 

REF 

4 

LAST 

782 

31,2542 

3 1643 

1 

DCA 

TTF/8 

016  5 

REF 

2 

LAST 

156 

31,2543 

53' 553 

L 

DXCH 

TTF/8TMP 

0166 

REF 

5 

LAST 

781 

31,2544 

11 ' 623 

0 

CCS 

FLPASSO 

0167 

REF 

3 

LAST 

794 

31,2545 

1 2562 

0 

TCF 

TTFINCR 

0168 

REF 

4 

LAST 

798 

31,2546 

51 ' 346 

l 

BRSP0T1  INDEX 

WCHPHASE 

0169 

REF 

1 

31,2547 

1 2367 

0 

TCF 

NEWPHASE 

R0170 

******************* 

*****  **********  * * : 

**************************************  ****************  ******************* 

R0172 

ROUTINES 

TO  START  NEW  PHASES 

R0173 

************** 

******  ***  *********** 

************************************************************************* 

0175 

REF 

3 

LAST 

797 

31,2550 

0 5313 

0 

STARTP64  TC 

NEWMODE  X 

0176 

31,2551 

0C100 

0 

DEC 

64 

017  7 

REF 

1 

31,2552 

3 1425 

0 

CA 

DELTTFAP  AUGMENT  TTF/8 

0178 

REF 

3 

LAST 

799 

31,2553 

27 ' 552 

0 

ADS 

T TF/8TMP 

0184 

REF 

1 

31,2554 

3 3761 

1 

CAF 

P64DB 

0185 

REF 

3 

LAST 

223 

31,2555 

55 • 343 

0 

TS 

DB 

0186 

REF 

75 

LAST 

798 

31, 2556 

0 5520 

0 

TC 

DOWNFLAG  INITIALIZE  RE DES I GNAT  ION  FLAG 

0187 

REF 

2 

LAST 

781 

31,2557 

00  143 

1 

ADRES 

REDFLAG 

0188 

REF 

1 

31,2560 

3 1315 

1 

CA 

LRWH1  PUT  P 64  LR  WEIGHTING  FUNCTION  INTO 

0189 

RFF 

1 

31,2561 

55 ' 421 

0 

TS 

LRWH  LR  WH  SO  LR  UPDATES  ARE  DONE  PROPERLY 

A0190 

(CONTINUE  TO  TTFINCR) 

R0191 

❖ £$****#*#$**##***!#**£)(!:!<*>,'<>!'  * * * * * >S<  * * if  if  if  if  if  * * $ ;*  * =Jc  # # $ $$  *o)c  Jj-.  if  if -If  * % # *«**  ^ *«)!!#***>!:  ****  if 

R0193 

INCREMENT  TTF/8,  UPDATE  LAND 

FOR  LUNAR 

ROTAT  ION,  DO  OTHER  USEFUL  THINGS 

RO  194 

***************************** 

*****************************  **  **************  ***  ********************  **  ************* 

GAP: 
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R0196 

R0197 

R0198 

R0199 

R0200 

R0202 

R0204 

R0205 

R0206 

020  7 
0208 

0209 

0210 

021  1 
0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
022  1 
0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 
023  1 

023  2 

0233 

0234 


LUNAR  LANDING  GUIDANCE  EQUATIONS 

TTFINCR  COMPUTATIONS  ARE  AS  FOLLOWS:- 

TTF/8  UPDATED  FOR  TIME  SINCE  LAST  PASS: 

TTF/8  = TTF/8  + (TPIP  - TPIPOLDI/8 
LANDING  SITE  VECTOR  UPDATED  FOR  LUNAR  ROTATION 

LAND  = /LAND/  UNIT (LAND  - LAND! TPIP 
SLANT  RANGE  TO  LANDING  SITE,  FOR  DISPLAY: 


R ANGEDSP  = ABV AL ( LAND  - R) 


REF 

122 

LAST 

797 

31,2562 

0 6060 

1 

TTFINCR  TC 

I NTPRET 

31,2563 

45345 

1 

OLD  AD 

DSU 

REF 

5 

LAST 

799 

31,2564 

03625 

0 

TPIP 

REF 

2 

LAST 

799 

31,2565 

03574 

1 

TPIPDLD 

31,2566 

41461 

1 

SLR 

PUSH 

31,2567 

21214 

0 

1 ID 

31,2570 

47361 

0 

vxsc 

VXV 

REF 

5 

LAST 

784 

31,2571 

03635 

1 

LAND 

REF 

3 

LAST 

797 

31,2572 

02316 

1 

WM 

31,2573 

4 7045 

0 

8VSU 

RTB 

REF 

6 

LAST 

800 

31,2574 

03635 

1 

LAND 

REF 

2 

LAST 

351 

3 I , 2 5 75 

21724 

0 

NQRMUNI T 

31,2576 

76561 

1 

vxsc 

VSL  1 

REF 

2 

LAST 

124 

31,2577 

C2324 

0 

/LAND/ 

REF 

2 

LAST 

L56 

31,2600 

17545 

0 

STODL 

LANDTEMP 

31,2601 

77776 

1 

EXIT 

REF 

2 6 2 

LAST 

79  3 

31,2602 

52  155 

1 

DXCH 

MPAC 

REF 

4 

LAST 

799 

31,2603 

21 ' 553 

1 

DAS 

TTF/8TMP 

REF 

4 

LAST 

799 

31,2604 

0 3751 

1 

TC 

F AST  CHNG 

31,2605 

0 0006 

1 

EXTEND 

REF 

5 

LAST 

800 

31,2606 

3 1553 

0 

DC  A 

TTF/8TMP 

REF 

5 

LAST 

799 

31,2607 

53 1 643 

0 

DXCH 

TTF/8 

REF 

1 

31 ,2610 

0 3702 

1 

TC 

TDISPSET 

REF 

2 

LAST 

348 

31,2611 

3 7737 

0 

CAF 

PR  1031 

REF 

13 

LAST 

752 

31,2612 

0 5137 

l 

TC 

PRIOCHNG 

REF 

123 

LAST 

800 

31,2613 

0 6060 

1 

TC 

INTPRET 

31,2614 

53375 

0 

VLOAD 

VAD 

REF 

3 

LAST 

800 

31,2615 

03545 

0 

LANDTEMP 

17:11  MAR.  19,1971  FLY 
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TP  I POLO  I * WM) 


SHIFT  SCALES  DELTA  TIME  TO  2(17)  CSECS 


NOW  HA VF  INCREMENTED  TTF/8  IN  TTF/8TMP 


TEMPORARILY  OVER-PRIO  CHARIN 


ADD  IN  CORRECTION  FROM  NOUN  69 
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E 7 S3 


0235 

REF 

5 

LAST 

127 

31,2616 

02632 

1 

dland 

0236 

REF 

7 

LAST 

800 

31,2617 

C3635 

1 

STORE 

LAND 

023  7 

31,2620 

77646 

0 

ABVAL 

RECOMPUTE  /LAND/ 

0238 

REF 

3 

LAST 

800 

31,2621 

02324 

0 

STORE 

/LAND/ 

0239 

31,2622 

77776 

1 

EXIT 

0240 

REF 

5 

LAST 

800 

31,2623 

0 3751 

1 

TC 

FAST  CHNG 

SINCE  REOESIG  MAY  CHANGE  LANOTEMP 

0241 

REF 

6 

LAST 

790 

31,2624 

3 5005 

1 

CAF 

E BANK5 

0242 

REF 

6 

LAST 

80  1 

E5, 1631 

EBANK= 

DLAND 

0243 

REF 

34 

LAST 

790 

31,2625 

54  003 

0 

TS 

EBANK 

0244 

REF 

149 

LAST 

799 

31,2626 

3 4 746 

0 

CAF 

ZERO 

ZERO  N 69  REGISTERS 

0245 

REF 

7 

LAST 

801 

31,2627 

55 ' 631 

0 

TS 

DLAND 

0246 

REF 

8 

LAST 

801 

31,2630 

55 1 632 

0 

TS 

DLAND  +1 

0247 

REF 

9 

LAST 

801 

31,2631 

55 ' 633 

1 

TS 

DLAND  +2 

024  8 

REF 

10 

LAST 

801 

31,2632 

55' 634 

0 

TS 

DLAND  +• 3 

0249 

REF 

11 

LAST 

801 

31 , 2633 

55' 635 

1 

TS 

DLAND  +4 

0250 

REF 

12 

LAST 

801 

31,2634 

5 5 ' 636 

1 

TS 

DLAND  +5 

0251 

REF 

1C 

LAST 

790 

31,2635 

3 5007 

0 

CAF 

EBANK7 

0252 

REF 

1 

E7 , 1666 

EBANK= 

TREDES 

0253 

REF 

35 

LAST 

801 

31,2636 

54  003 

0 

TS 

EBANK 

0254 

REF 

7 

LAST 

756 

31,2637 

3 4727 

l 

CAF 

PR  1020 

0255 

REF 

14 

LAST 

800 

31,2640 

0 5137 

1 

TC 

PRIOCHNG 

0256 

REF 

5 

LAST 

799 

31,2641 

51 ' 346 

1 

BRSP0T2 

INDEX 

WCHPHASE 

0257 

REF 

1 

31,2642 

1 2373 

0 

TCF 

PREGUIDE 

R0258 

****** ******** 

******  ****  ****  ** 

^ ^ 

: * **  * * * * * * * * * * * sjs  * * * * * ***  * * * * * * * * 

$>!=  Jjs  fc  $>!<  # ir- 

R0260 

LANDING 

SITE  PERTURBATION  EQUATIONS 

R0261 

# * * * £ $ * * * # % * * * 4=  * * * * * * 

************************** 

***************************************************************** 

0263 

REF 

4 

LAST 

77  7 

31,2643 

3 0102 

1 

REDES IG 

C6 

FLAGWRD6 

IS  REDFLAG  SET? 

0264 

REF 

1 

31,2644 

7 4737 

1 

MASK 

REDFLBIT 

026  5 

31,2645 

0 0006 

1 

EXTEND 

0266 

REF 

2 

LAST 

794 

31,2646 

1 2752 

1 

BZF 

RGVGCALC 

NO:  SKIP  REDESIGNATION  LOGIC 

0267 

REF 

2 

LAST 

801 

31,2647 

3 1666 

0 

CA 

TREDES 

YES:  HAS  TREDES  REACHED  ZFRD? 

0268 

31,2650 

0 C006 

1 

EXTEND 

0269 

REF 

3 

LAST 

801 

31,2651 

1 2752 

1 

BZF 

RGVGCALC 

YES:  SKIP  REDESIGNATION  LOGIC 

0270 

31,2652 

0 0004 

0 

INHINT 

0271 

REF 

2 

LAST 

156 

31,2653 

3 1645 

1 

CA 

E L I NCR  1 

0272 

REF 

2 

LAST 

156 

31,2654 

55 ' 554 

0 

TS 

ELINCR 

0273 

REF 

3 

LAST 

157 

31 ,2655 

3 1644 

0 

CA 

AZ  INCR1 

0274 

REF 

2 

LAST 

156 

31,2656 

55 ' 556 

1 

TS 

A Z I NCR 

0275 

REF 

6 

LAST 

801 

31,2657 

0 3751 

1 

TC 

FASTCHNG 

0276 

REF 

150 

LAST 

801 

31,2660 

3 4746 

0 

CA 

ZERO 

0277 

REF 

3 

LAST 

801 

31,2661 

5 5 ' 645 

0 

TS 

F L I NCR  1 
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0278 

REF 

4 

LAST 

801 

31,2662 

55' 644 

1 

TS 

AZINCR1 

0279 

REF 

3 

LAST 

801 

31,2663 

55' 555 

1 

TS 

ELI  NCR 

0280 

REF 

3 

LAST 

801 

31,2664 

55' 557 

0 

TS 

AZINCR 

0281 

REF 

18 

LAST 

368 

31,2665 

3 C 1 20 

l 

CA 

F IXLOC 

0282 

REF 

2 

LAST 

266 

31,2666 

54  166 

1 

TS 

PUSHLOC 

0283 

REF 

124 

LAST 

800 

31,2667 

0 6060 

1 

TC 

I NTPRET 

0284 

31,2670 

52375 

1 

VLOAD 

VSU 

0288 

REF 

8 

LAST 

801 

31,2671 

03635 

1 

LAND 

0236 

REF 

7 

LAST 

797 

31,2672 

03521 

1 

R 

0287 

31,2673 

41434 

1 

RTB 

PUSH 

0288 

REF 

3 

LAST 

800 

31,2674 

21724 

0 

NORMUNI T 

0289 

31,2675 

76435 

1 

VXV 

VS  L 1 

0290 

REF 

2 

LAST 

1 19 

31,2676 

02145 

0 

YNBPIP 

0291 

31,2677 

65361 

0 

VXSC 

PDDL 

029  2 

REF 

4 

LAST 

802 

31,2700 

03555 

1 

E L INC  R 

0293 

REF 

4 

LAST 

802 

31,2701 

C3557 

0 

AZINCR 

0294 

31,2702 

52361 

1 

VXSC 

VSU 

0295 

REF 

3 

LAST 

802 

31,2703 

02145 

0 

YNBPIP 

0296 

31,2704 

41455 

0 

VAD 

PUSH 

0297 

31,2705 

45345 

1 

DLOAD 

DSU 

0298 

31,2706 

0C001 

0 

0 

0299 

REF 

1 

31,2707 

05662 

0 

DEPRCRIT 

0300 

31,2710 

71240 

L 

BMN 

DLOAD 

030  1 

REF 

l 

31,271  1 

62714 

1 

REDES1 

0302 

REF 

2 

LAST 

802 

31,2712 

05662 

0 

DEPRCRIT 

0303 

31,2713 

00001 

0 

STORE 

0 

0304 

31,2714 

45345 

1 REDES  1 

DLOAD 

DSU 

0 30  5 

REF 

9 

LAST 

802 

31,2715 

03635 

1 

LAND 

0306 

REF 

8 

LAST 

802 

31,2716 

03521 

1 

R 

030  7 

31,2717 

74271 

0 

DDV 

VXSC 

0308 

31,2720 

00001 

0 

0 

0309 

31,2721 

53455 

0 

VAD 

UNIT 

0310 

REF 

9 

LAST 

80  2 

31,2722 

03521 

1 

R 

031  1 

3 1 , 2 72  3 

76561 

1 

VXSC 

VSL1 

0312 

REF 

4 

LAST 

801 

31 ,2724 

02324 

0 

/LAND/ 

0313 

REF 

4 

LAST 

800 

31,2725 

03545 

0 

STORE 

LANDTEMP 

0314 

31 ,2726 

77776 

1 

EX  I T 

0315 

REF 

7 

LAST 

801 

31,2727 

0 3751 

1 

TC 

F ASTCHNG 

0316 

31,2730 

0 C006 

1 

EXTEND 

0317 

REF 

5 

LAST 

802 

31,2731 

3 1545 

1 

OCA 

LANDTEMP 

0318 

REF 

10 

LAST 

802 

31,2732 

53 ' 635 

1 

DXCH 

LAND 

0319 

31 ,2733 

0 0006 

1 

EXTEND 

0320 

REF 

6 

LAST 

802 

31,2734 

3 1547 

0 

DC  A 

LANDTEMP 

0321 

REF 

11 

LAST 

802 

31,2735 

53' 637 

0 

DXCH 

LAND 

032  2 

3 1 ,2736 

0 0006 

1 

EXTEND 

17:11  MAR.  19,1971  FLY  .197  PAGE  802 
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SET  PD  TO  0 


PUSH  DOWN  UNIT  (LAND  - R) 


PUSH  DOWN  - ELINCRIYNB  * UNITILAND  - R ) ) 


RESULTING  VECTOR  IS  1/2  REAL  SIZE 

MAKE  SURE  RED ES I GNAT  I ON  IS  NOT 
TOO  CLOSE  TO  THE  HORIZON 


LOOKANGL  WILL  BE  COMPUTED  AT  RGVGCALC 


GAP: 

L 

0323 

032  A 

032  5 

R0326 

R032  8 

R0329 

R033  1 

R0332 

R0333 

R0334 

R0335 

R0336 

R033T 

R0338 

R0339 

R0340 

R0341 

R0342 

0343 

0344 

0345 

0346 

0347 

034  3 

0349 

0350 

035  1 

0352 

0353 

0354 

0355 

0356 

035  7 

0358 

0359 

036  0 

0361 

0362 
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REF 

7 

LAST 

802 

31,2737 

3 1551 

! 

DC  A 

L ANDTEMP 

+4 

REF 

12 

LAST 

802 

31,2740 

5 3 ' 64 1 

1 

DXCH 

LAND 

+4 

REF 

4 

LAST 

801 

31,2741 

l 2752 

1 

TCF 

RGVGCALC 

ije**##^**#:*#***  **  if  ^if  if  if  if  if  t- if  if  if  if  if  $ * ifif  if  if  # $$  if  if  * $ ******  if  * # ifif  if  if  if  if  If  if  if  if  if  if  if  if  if  if  ifif  if  H*if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  ifif  *if  if  ifif  if  if  if 

COMPUTE  STATE  IN  GUIDANCE  COORDINATES 

ifif  if  if*  if  if  if*  if  if  if*  if*  if  if*  * **  **  *$£*###£#  if  if  if  if  if  if  if  if  if  if  **  **  if  * if  * ************************** 

RGVGCALC  COMPUTATIONS  ARE  AS  FOLLOWS:- 

VELOCITY  RELATIVE  TO  THE  SURFACE: 


ANGTERM  = V + R * WM 
STATE  IN  GUIDANCE  COORDINATES: 

if 

RGU  = CG  (R  - LAND) 

- if  - - - 

VGU  = CG  (V  - WM  * R) 
DEPRESSION  ANGLE  FOR  DISPLAY: 


LCOKANGL  = AR CS I N ( UN  I T ( R - L AND ) . XMBP I P ) 


REF 

125 

LAST 

802 

31, 

2 742 

0 6060 

1 

C ALCRGVG 

TC 

I NTPRET 

IN  IGNALG, 

COMPUTE  V FROM  INTEGRATION 

31, 

2743 

64375 

1 

VLOAD 

M X V 

OUTPUT  AND  TRIM  CORRECTION  TERM 

REF 

14 

LAST 

784 

31, 

2744 

00025 

0 

V ATT  1 

COMPUTED 

LAST  PASS  AND  LEFT  IN  UNFC/2 

REF 

30 

LAST 

788 

31, 

2 745 

01  732 

0 

R EFSMMAT 

31, 

2746 

53362 

0 

VSR  1 

VAD 

REF 

6 

LAST 

784 

31, 

2747 

C3252 

1 

UNFC/2 

REF 

3 

LAST 

784 

31, 

2750 

03527 

1 

STORE 

V 

31, 

2751 

77776 

1 

EXIT 

REF 

126 

LAST 

803 

31, 

2752 

0 6060 

1 

RGVGCALC 

TC 

I NTPRET 

ENTER  HERF 

TO  RECOMPUTE  RG  AND  VG 

31, 

2753 

47  375 

0 

VLOAD 

VXV 

REF 

10 

LAST 

802 

31, 

2754 

03521 

1 

R 

REF 

4 

LAST 

800 

31, 

2755 

02316 

1 

WM 

31, 

2756 

7C455 

l 

VAD 

VSR2 

RESCALE  TO 

UNITS  OF  2(9)  M/CS 

REF 

4 

LAST 

803 

31, 

2757 

03527 

1 

V 

REF 

1 

31, 

2760 

02222 

1 

STORE 

ANGTERM 

31, 

2761 

77721 

0 

MX  V 

REF 

6 

LAST 

782 

31, 

2762 

02572 

0 

CG 

NO  SHIFT  SINCE  ANGTERM  IS  DOUBLE  SIZED 

REF 

6 

LAST 

783 

31  , 

2 763 

27627 

L 

STOVL 

VGU 

REF 

1 1 

LAST 

803 

31, 

2764 

03521 

1 

R 

- 

31, 

2765 

41451 

1 

VSU 

PUSH 

PUSH  DOWN 

R - LAND 
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17:11  MAR.  19,1971 

FLY 

.197  PAGE 

USER' S PAGE 

NO.  11 

E7  S3 

036  3 

REF  13 

LAST 

803 

31,2766 

03635 

1 

LAND 

0364 

31,2767 

76521 

0 

MX  V 

VSL  1 

0366 

REF  7 

LAST 

803 

31,2770 

02572 

0 

CG 

0366 

REF  6 

LAST 

783 

31,2771 

16624 

0 

STOOL 

RGU 

0367 

REF  283 

LAST 

800 

31,2772 

00162 

1 

MPAC  +5 

0360 

REF  3 

LAST 

320 

31,2773 

26614 

0 

STOVL 

R ANGEDSP 

SM  Z-AXIS  RANGE  FOR  DISPLAY  IN  N68 

0369 

31,2774 

50234 

1 

RTB 

DOT 

NOW  IN  MPAC  IS  SINEIL00KANGD/4 

0370 

REF  4 

LAST 

802 

31,2775 

21724 

0 

NORMUNI T 

037  1 

REF  2 

LAST 

119 

31,2776 

02137 

0 

X NBP  I P 

0372 

31,2777 

77776 

1 

EX  I T 

0373 

REF  19 

LAST 

002 

31,3000 

3 0120 

1 

CA 

F IXLOC 

RESET  PUSH  DOWN  POINTER 

0374 

REF  3 

LAST 

802 

31,3001 

54  166 

1 

TS 

PUSHLOC 

0376 

REF  284 

LAST 

804 

31,3002 

3 0154 

1 

CA 

MPAC 

COMPUTE  LOUKANGL  ITSELF 

0376 

31 , 3003 

6 0000 

1 

DOUBLE 

037  7 

REF  217 

LAST 

798 

31,3004 

0 4607 

1 

TC 

BANKCALL 

0370 

REF  1 

31,3005 

61656 

0 

CADR 

SPARCSIN  -1 

0379 

REF  1 

31,3006 

6 3765 

0 

AD 

1/2DEG 

0300 

REF  1 

31 , 3007 

6 1353 

0 

AD 

ELB1 AS 

BIAS  LPD  ANGLE  FOR  WINDOW  BENDING 

0301 

31,3010 

0 0006 

1 

EXTEND 

0302 

REF  1 

31,3011 

7 3764 

0 

MP 

l 80DEGS 

0303 

REF  I 

31,3012 

55*667 

0 

TS 

LOOKANGL 

LOOKANGL  FOR  DISPLAY  DURING  P64 

0304 

REF  6 

LAST 

801 

31,3013 

51*346 

l 

BRSP0T3  INDEX 

WCHPHASE 

0305 

REF  1 

31,3014 

l 2376 

0 

TCF 

WHATGUIO 

R0386  **$*#*  $#***$#*:***  $ jjcjJcjjesjejfcajcsJc  ##  ajt  $ * % # * * £ * $ £££*  £***:$:$$$#**«*$* 
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0391 

♦ REF 

7 

LAST 

804 

31, 30 15 

3 1346 

1 TTF/8CL 

CA 

WCHPHASE 

039  15 

♦ REF 

1 

31,3016 

0 3675 

0 

TC 

I NTPRETX 

0392 

31,3017 

77743 

1 

DLOAD* 

0393 

REF 

1 

31,3020 

02443 

0 

J0G2TTF , 

1 

0394 

REF 

2 

LAST 

156 

31 , 3021 

23571 

0 

STODL* 

TABLTTF 

+ 6 

A ( 3 ) = 8 JDG  TO 

TABLTTF 

0395 

REF 

1 

31,3022 

02437 

0 

ADG2TTF , 

1 

2 

0396 

REF 

3 

LAST 

804 

31 , 3023 

17567 

0 

STOOL 

TABLTTF 

+ 4 

A ( 2 ) = 6 ADG  TO 

TABL  TTF 

039  7 

REF 

7 

LAST 

803 

31,3024 

03633 

1 

VGU 

+ 4 

2 

0398 

31,3025 

42605 

1 

DMP 

DAD* 

0399 

REF 

1 

31,3026 

05660 

1 

3/4DP 

0400 

REF 

1 

31,3027 

02433 

1 

VDG2TTF , 

1 

0401 

REF 

4 

LAST 

804 

3 1 , 3030 

23565 

0 

STODL* 

TABLTTF 

+ 2 

All)  = (6  VGU  + 

18  VDG  ) / 8 TO  TABLTTF 

040  2 

REF 

1 

31,3031 

02407 

0 

RDG  +4, 

1 

2 

2 

0403 

31,3032 

41225 

1 

DSU 

DMP 

0404 

REF 

7 

l AST 

804 

31,3033 

02630 

0 

RGU 

*4 

040  5 

REF 

1 

31,3034 

05656 

1 

3/8DP 

040  6 

REF 

5 

LAST 

804 

31,3035 

03563 

1 

STORE 

TABLTTF 

A I 0 ) = -24 ( RGU  - 

RDG  )/64  TO  TABLTTF 

040  7 

31,3036 

7 7776 

1 

EXIT 

2 

2 

GAP: 
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LUNAR  LANDING 

GUIDANCE  EQUAT 

ICNS 

USFR*  S PAGE  NO. 

12  E7  S3 

040  8 

REF 

29 

LAST 

618 

31,3037 

3 4735 

1 

CA 

BIT8 

0409 

REF 

6 

LAST 

804 

31, 3040 

55*572 

L 

TS 

TABLTTF  +10 

FRACTIONAL  PRECISION 

FOR  TTF  TO  TABLE 

0410 

31,3041 

0 0006 

i 

EXTEND 

0411 

REF 

fc 

LAST 

800 

31,3042 

3 1643 

i 

DCA 

TTF/8 

0412 

REF 

285 

LAST 

804 

31,3043 

52  155 

i 

DXCH 

MPAC 

LOADS  TTF/8  ( INITIAL 

GUESS)  INTO  MPAC 

0413 

REF 

53 

LAST 

798 

31,3044 

3 4743 

0 

CAF 

TWO 

DEGREE  - ONE 

0414 

REF 

1C9 

LAST 

769 

31,3045 

54  001 

l 

TS 

L 

0415 

REF 

l 

31,3046 

3 3757 

l 

CAF 

TA6LTTFL 

0416 

REF 

1 

31,3047 

0 3545 

0 

TC 

ROOTPSRS 

YIELDS  TTF/8  IN  MPAC 

041  7 

REF 

8 

LAST 

804 

31,3050 

51 ' 346 

1 

INDEX 

WCHPHASE 

041  8 

REF 

1 

31,3051 

1 2412 

0 

TC  F 

WHATALM 

0419 

31,3052 

0 0006 

1 

EXTEND 

GOOD  RETURN 

042  0 

REF 

286 

LAST 

805 

31 , 7053 

3 0155 

0 

DCA 

MPAC 

FETCH  TTF/8  KEEPING 

IT  IN  MPAC 

0421 

REF 

7 

LAST 

805 

31,3054 

53 ' 643 

0 

DXCH 

TTF/8 

CORRECTED  TTF/8 

042  2 

REF 

2 

LAST 

800 

31,3055 

0 3702 

1 

TC 

TDI SPSET 

A0423 

( CONTINUE 

TO  OUADGUID) 

R0424 

ajc  * * * * * * * * * * * $ * * * * * 

* * * * * * * **  **  * * £ * * * 

*****  ***  *****************************************************  *************** 

R 042  6 

MAIN 

GUIDANCE 

EQUATION 

R0427 

****  *£* * ***  *******  ***  ****  *****  * **********  * * * * * **  * *****  * **  * * * * * * * * * * * * **  **  * * * * * * * * * * * * * * * * * ajc  ***  * * $ * * * * * * * * * * * $ 

R0429 

AS  PUBLI 

SHED:- 

R0430 

- 

- - 

R0431 

- 

- 

6IVDG  + VG) 

12IRDG  - RG) 

R0432 

ACG 

= ADG  + 

+ 

R0433 

TTF 

(TTF) (TTF) 

R0434 

AS  HERE 

PROGRAM 

MED: 

R0435 

_ — 

R0436 

3 1 

[ 1/41RDG  - RG) 

- ) 

R0437 

- ( 

VDG  + VG) 

R0438 

- 

4 1 

[ TTF/8 

) 

R0439 

R0440 

ACG  = 

TTF  / 3 

+ ADG 

0441 

REF 

8 

LAST 

805 

31,3056 

4 1642 

1 

QUADGUID  CS 

TTF/8 

0442 

REF 

1 

31,3057 

6 1426 

0 

AD 

LEADTIME 

LEADTIME  IS  A 

NEGATIVE  NUMBER 

0443 

REF 

18 

LAST 

793 

31,3060 

6 4 7 24 

1 

AD 

POSMAX 

SAFEGUARD  THE 

COMPUTATIONS  THAT 

FOLLOW 

0444 

REF 

1 10 

LAST 

805 

31,3061 

54  001 

1 

TS 

L 

BY  FORCING 

-TTF+LFADTIME  > OR 

= ZERO 

044  5 

REF 

111 

LAST 

805 

31,3062 

4 0001 

1 

CS 

L 

044  6 

REF 

l 12 

LAST 

805 

31,3063 

6 0001 

0 

AD 

L 

044  7 

31,3064 

22  007 

0 

ZL 

044  8 

31,3065 

0 0C06 

1 

EXTEND 
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044  9 

REF 

9 

LAST 

805 

31,3066 

11' 642 

l 

DV 

TTF/8 

0450 

REF 

57 

LAST 

793 

31 , 3067 

54  130 

1 

TS 

BUF 

045  1 

31,3070 

0 C006 

1 

EXTEND 

0452 

31,3071 

7 CCCO 

0 

SQUARE 

0453 

REF 

58 

LAST 

806 

31,3072 

54  131 

0 

TS 

BUF  +1 

0454 

REF 

59 

LAST 

806 

31 , 3073 

6 C 1 30 

0 

AD 

BUF 

0455 

REF 

60 

LAST 

806 

31,3074 

56  131 

1 

XCH 

BUF  +1 

0456 

REF 

fc  1 

LAST 

806 

31,3075 

6 0131 

1 

AD 

BUF  +1 

045  7 

REF 

287 

LAST 

805 

31 ,3076 

54  154 

0 

TS 

M P AC 

0458 

REF 

62 

LAST 

806 

31 ,3077 

6 0131 

l 

AD 

BUF  +1 

0459 

REF 

20 

LAST 

804 

31,3100 

50  120 

l 

INDEX 

F IXLOC 

0460 

31,3101 

54  032 

1 

TS 

26D 

0461 

REF 

63 

LAST 

806 

31,3102 

6 C 13 1 

1 

AD 

BUF  +1 

0462 

REF 

21 

LAST 

806 

31 , 3103 

50  120 

1 

INDEX 

F IXLOC 

046  3 

31,3104 

54  034 

1 

TS 

2 8D 

0464 

REF 

64 

LAST 

806 

31 ,3105 

6 Cl  30 

0 

AD 

BUF 

0465 

REF 

19 

LAST 

805 

31 , 3 106 

6 4724 

1 

AD 

POSMAX 

0466 

REF 

65 

LAST 

806 

31,3107 

6 C 1 3 1 

1 

AD 

BUF  +1 

046  7 

REF 

66 

LAST 

806 

31,3110 

6 0131 

1 

AD 

BUF  +1 

046  8 

REF 

22 

LAST 

806 

31,3111 

50  120 

1 

INDEX 

F IXLOC 

046  9 

31,3112 

54  036 

0 

TS 

30D 

0470 

REF 

15  1 

LAST 

801 

31,3113 

3 4746 

0 

CAF 

ZERO 

0471 

REF 

4 

LAST 

348 

31,3114 

54  163 

1 

TS 

MODE 

047  l 5 

♦REF 

9 

LAST 

805 

31,3115 

3 1346 

1 

CA 

wchphase 

0472 

REF 

2 

LAST 

804 

31,3116 

0 3675 

0 

TC 

I NTPRETX 

0473 

31,3117 

65361 

0 

VXSC 

PDDL 

0474 

REF 

e 

LAST 

804 

31,3120 

03627 

1 

VGU 

0475 

31,3121 

00035 

1 

28D 

0476 

31,3122 

47  157 

1 

VXSC* 

RTB 

04  7 7 

REF 

i 

31,3123 

02413 

0 

VDG,  1 

0478 

REF 

i 

31,3124 

63671 

1 

ZEROMID 

0479 

31,3125 

47113 

1 

PDVL* 

RTB 

0480 

REF 

2 

LAST 

804 

31, 3126 

02403 

l 

ROG,  1 

0431 

RFF 

2 

LAST 

806 

31,3127 

63671 

1 

ZEROMID 

048  2 

31,3130 

70251 

0 

VSU 

V/ SC 

0483 

REF 

8 

LAST 

804 

31,3131 

02624 

0 

RGU 

0484 

REF 

10 

LAST 

806 

31,3132 

03643 

0 

TTF/8 

0485 

31,3133 

74342 

1 

VSR2 

VXSC 

0486 

31,3134 

00033 

1 

2 6D 

0437 

31,3135 

53255 

0 

VAD 

VAD 

0488 

31,3136 

74341 

1 

V/ SC 

VXSC 

0439 

REF 

11 

LAST 

806 

31,3137 

03643 

0 

TTF/8 

0490 

REF 

2 

LAST 

804 

31,3140 

05660 

l 

3/4DP 

049  1 

31,3141 

73725 

0 

PDDL 

VXSC* 

0492 

31,3142 

0C037 

0 

30D 

0493 

REF 

1 

31,3  143 

02423 

0 

ADG,  1 

0494 

31,3144 

53234 

l 

RTB 

VAD 

0495 

REF 

3 

LAST 

806 

31,3145 

63671 

1 

ZEROMID 

17:11  MAR.  19,1971 


FLY 
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USER' S PAGE  NO.  13  E7  S3 

- RATIO  OF  LAG-DIMINISHED  TTF  TO  TTF 

RATIO  SQLTARED  - RATIO 
COEFFICIENT  FOR  VGU  TERM 

COEFFICIENT  FOR  ROG-PGU  TERM 

COEFFICIENT  FOR  VDG  TERM 

COEFFICIENT  FOR  ADG  TERM 


17:  1 1 MAR.  19, 1971 


FLY 


197 


PAGE 


807 


GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L 

LUNAR  LANDING 

GUIDANCE  EQUATIONS 

USER*  S PAGE  NO.  14  E7  S3 

0496 

31, 3146 

76505 

0 

AFCCALC 1 

VXM 

VSL1 

VERTGU ID  COMES  HERE 

0497 

REF 

8 

LAST 

804 

31,3147 

02572 

0 

CG 

049  8 

31, 3150 

7C315 

1 

PD  VL 

V/SC 

0499 

REF 

6 

LAST 

782 

31,3151 

01236 

1 

GDT/2 

0500 

REF 

1 

31,3152 

05654 

0 

GSCALE 

0501 

31, 3153 

45445 

0 

BVSU 

STADR 

0502 

REF 

7 

LAST 

803 

31 ,3154 

74525 

0 

STORE 

U NFC / 2 

UNFC/2  NEED  NOT  BE  UNITIZFD 

0503 

31,3155 

77646 

0 

ABVAL 

0504 

REF 

3 

LAST 

789 

31,3156 

17464 

1 

AFCC  ALC2 

STODL 

/AFC/ 

MAGNITUDE  OF  AFC  FOR  THROTTLE 

050  5 

REF 

8 

LAST 

807 

31,3157 

03252 

1 

UNFC/2 

VERTICAL  COMPONENT 

0506 

31,3160 

65316 

0 

DSQ 

P DDL 

0507 

REF 

9 

LAST 

807 

31,3161 

03254 

1 

UNFC/2  +2 

OUT-OF-PLANE 

0508 

31,3162 

65316 

0 

DSQ 

PDDL 

0509 

REF 

1 

31,3163 

05652 

0 

H IGHESTF 

0510 

31,3164 

63471 

0 

DDV 

DSQ 

051  1 

REF 

6 

LAST 

793 

31,3165 

01244 

1 

MASS 

2 2 2 

0512 

31,3166 

45225 

0 

DSU 

DSU 

AMAXHORIZ  = SORT ( ATOT AL  - A - A ) 

0513 

31,3167 

71244 

0 

BPL 

DLOAD 

1 0 

0514 

REF 

1 

31 , 3170 

63172 

0 

AFCCALC3 

0515 

REF 

15 

LAST 

797 

31,3171 

06505 

1 

ZEROVECS 

0516 

31,3172 

43366 

0 

AFCCALC 3 

SORT 

DAD 

051  7 

REF 

10 

LAST 

807 

31,3173 

03256 

0 

UNFC/2  +4 

0518 

31,3174 

44244 

0 

BPL 

B DSU 

0519 

REF 

1 

31,3175 

63200 

0 

AFCCLEND 

0520 

REF 

11 

LAST 

807 

31,3176 

03256 

0 

UNFC/2  +4 

0521 

REF 

12 

LAST 

807 

31 ,3177 

03256 

0 

STORE 

UNFC/2  +4 

0522 

31,3200 

77776 

1 

A FCCL  END 

EX  I T 

0523 

REF 

8 

LAST 

802 

31,3201 

0 3751 

1 

TC 

FASTCHNG 

0524 

RFF 

10 

LAST 

806 

31,3202 

3 1346 

1 

CA 

WCHPHASE 

PREPARE  FOP  PHASE  SWITCHING  LOGIC 

0525 

RFF 

4 

LAST 

798 

31,3203 

55*621 

1 

TS 

WCHPHOLD 

0526 

REF 

6 

LAST 

799 

31,3204 

25 ' 623 

1 

INCR 

FLPASSO 

INCREMENT  PASS  COUNTER 

052  7 

REF 

11 

LAST 

807 

31,3205 

51  * 346 

1 

8RSP0T4 

INDEX 

WCHPHASE 

0528 

REF 

1 

31,3206 

1 2401 

1 

TC  F 

AFTRGUIO 

R0529 

###  *************.****************  ***** 

R0531 

NEW 

PFASE 

NOW? 

R0532 

****$$*,******* 

^ i|e  ######£#  :[e  # * **£##*  afc  : 

*************************************************  * **  **  ***  * ****  ** 

0534 

REF 

12 

LAST 

807 

31,3207 

5 1 ' 346 

1 

EXTLOGIC 

INDEX 

WCHPHASE 

IS  TTF  NEARER  ZERO  THAN  CRITERION? 

0535 

REF 

2 

LAST 

145 

31,3210 

3 1423 

0 

CA 

TENDBRAK 

0536 

REF 

12 

LAST 

806 

31,3211 

6 1642 

0 

AD 

TTF/8 

0537 

31,3212 

0 0006 

1 

EXTEND 

0538 

REF 

2 

LAST 

794 

31,3213 

6 3222 

0 

BZMF 

CGCALC 

NO 

0539 

REF 

9 

LAST 

807 

31,3214 

0 3751 

1 

TC 

FASTCHNG 

YES:  INCREMENT  WCHPHASF,  ZFRO  FLPASSO 

0540 

REF 

5 

LAST 

807 

31,3215 

3 1621 

0 

CA 

WCHPHOLD 

0 54  1 

REF 

79 

LAST 

792 

31,3216 

6 4 744 

1 

AD 

ONE 

GAP: 

L 

0542 

0543 

0544 

A 0 54  5 

R0546 

R0548 

R0549 

0551 

0552 

0553 

0554 

0555 

0556 

0557 

0558 

0559 

0566 

0567 

056  0 

0569 

0570 

0571 

0572 

0573 

0574 

0575 

0576 

0577 

0578 

0579 

0580 

0581 

058  2 

0583 

0584 

0585 

0586 

0587 

0588 

0589 

0590 

0591 

0592 

R0593 
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REF  13 

LAST 

807 

31, 

,3217 

55 

' 346 

0 

TS 

WCHPHASE 

REF  152 

LAST 

806 

31, 

,3220 

3 

4746 

0 

CAF 

ZERO 

REF  7 

LAST 

807 

31, 

,3221 

55 

•623 

0 

TS 

FLPASSO 

(CONTINUF  TO  CGCALC ) 


t ##  #$$$#:(<>!!*  $******#£**«$#**♦$*****♦*♦♦♦♦  ♦♦♦♦  ♦ ♦♦♦♦♦♦♦:♦#«**«****#$*#*  #$$$*£$*#$$$*♦ 

ERECT  GUIDANCE-STABLE  MEMBER  TRANSFORMATION  MATRIX 
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♦ REF 

6 

LAST 

807 

31,3222 

3 1621 

0 

CGCALC 

CA 

WCHPHOLD 

♦ REF 

3 

LAST 

806 

31 , 3223 

0 3675 

0 

TC 

INTPRETX 

A 

31,3224 

77543 

0 

DLOAD^ 

EXIT 

♦ REF 

2 

LAST 

125 

31,3225 

C2453 

1 

T CGFBRAK , 1 

♦ REF 

13 

LAST 

807 

31,3226 

3 1642 

0 

CA 

TTF/8 

♦ REF 

1 13 

LAST 

805 

31,3227 

54  001 

1 

TS 

L 

♦ REF 

288 

LAST 

806 

31,3230 

20  155 

1 

DAS 

M P AC 

♦ REF 

289 

LAST 

808 

31,3231 

10  155 

1 

CCS 

MPAC  +1 

♦ REF 

290 

LAST 

808 

31,3232 

10  154 

0 

CCS 

M P AC 

REF 

1 

31,3233 

1 3264 

0 

TC  F 

EXITSPOT 

REF 

2 

LAST 

808 

31,3234 

1 3264 

0 

TCF 

EXITSPOT 

31,3235 

13  236 

1 

NODP 

♦ REF 

127 

LAST 

803 

31,3236 

0 6060 

1 

TC 

I NTPRET 

31, 3237 

53575 

0 

VLQAD 

UNIT 

REF 

14 

LAST 

804 

31, 3240 

03635 

l 

LAND 

REF 

9 

LAST 

807 

31,3241 

16572 

0 

STODL 

CG 

REF 

14 

LAST 

808 

31,3242 

03643 

0 

TTF/8 

31,3243 

74203 

0 

DMP* 

VXSC 

REF 

2 

LAST 

125 

31,3244 

02447 

1 

GAINBRAK, 1 

NUMERO 

MYSTER  TOSO 

REF 

2 

LAST 

803 

31,3245 

02222 

1 

ANGTERM 

31, 3246 

77655 

1 

VAD 

REF 

15 

LAST 

808 

31,3247 

03635 

1 

LAND 

31,3250 

47C51 

0 

VSU 

RTB 

REF 

12 

LAST 

803 

31,3251 

03521 

1 

R 

REF 

5 

LAST 

804 

31,3252 

21724 

0 

NORMUNIT 

31,3253 

47035 

1 

VXV 

RTB 

REF 

16 

LAST 

808 

31,3254 

03635 

1 

LAND 

REF 

6 

LAST 

808 

31 , 3255 

21724 

0 

NORMUNIT 

REF 

10 

LAST 

808 

31,3256 

26600 

0 

STOVL 

CG  +6 

SECOND 

ROW 

REF 

1 1 

LAST 

808 

31,3257 

02572 

0 

CG 

31,3260 

76435 

1 

VXV 

VSL1 

REF 

12 

LAST 

808 

31,3261 

02600 

0 

CG  +6 

RFF 

13 

LAST 

808 

31,3262 

02606 

0 

STORE 

CG  +14 

31,3263 

77  776 

1 

EXIT 

REF 

7 

LAST 

808 

31,3264 

51*621 

0 

EX  IT  SPOT 

INDEX 

WCHPHOLD 

REF 

1 

31,3265 

1 2404 

1 

TCF 

WHATEXIT 

♦ »><.****-.*$**$*$<,$****  + #*#*#:<„■;$  $$*$$$****,***$*$:{<*=}:$>):£*  *****$;};;{!*****#**:****-<,$**$$#**$***  + *>■=*.**********  ##******<.***# 


GAP: 

ASSEMBLE  REVISION  210 

OF  A GC  PROGRAM  LUMINARY  BY 

NASA  2021112-161 

17:11  MAR.  19,1971  FLY  .197  PAGE  809 

L 

LUNAR  LANDING 

GUIDANCE  EQUATIONS 

USFR ■ S PAGE  NO.  16  E7  S3 

R0595 

ROUTINES 

FOR  EXITING  FROM  LANDING  GUIDANCE 

R0596 

******* ******* 

****************************************************** 

$****£**#X:  *!(<$#*****  ********** 

R 059  8 

1. 

EXGSUB  IS 

THE  RETURN 

WHEN  GUIOSUB  IS  CALLED  BY 

THE  IGNITION 

ALGORITHM . 

R0600 

2 . 

ExBPAK  IN 

THE  EXIT  USFD  DURING 

THE  BRAKING  PHASE.  IN  THIS 

CASE  UNITIR)  IS  THE  WINDOW  POINTING  VFCTOR. 

R0602 

3. 

EXNORM  IS 

THE  EXIT  USEC  AT 

OTHER  TIMES 

DURING 

THE  BURN. 

R0603 

( EXOVFLOW 

IS  A SUBROUTINE  0 

F EXBRAK  AND  EXNORM 

CALL  ED  WHEN 

OVERFLOW  OCCURRED  ANYWHERE  IN  GUIDANCE.) 

0605 

REF 

128 

LAST 

808 

31,3266 

0 6060 

1 

EXGSUB 

TC 

INTPRET 

COMPUTE  TRIM  VELOCITY  CORRECTION  TERM 

0606 

31,3267 

47175 

1 

VLOAD 

RTB 

060  7 

REF 

13 

LAST 

807 

31,3270 

03252 

1 

UNFC/2 

060  8 

REF 

7 

LAST 

808 

31,3271 

21724 

0 

NORMUNIT 

0609 

31,3272 

74361 

0 

VXSC 

VXSC 

0610 

REF 

5 

LAST 

784 

31,3273 

C 34  23 

1 

ZOOMTIME 

061  1 

REF 

1 

31,3274 

22001 

0 

TR  IMACCL 

0612 

REF 

14 

LAST 

809 

31, 3275 

03252 

1 

STORE 

UNFC/2 

0613 

31,3276 

77776 

1 

EXIT 

0614 

REF 

3 

LAST 

796 

31,3277 

11 ' 647 

1 

CCS 

NGUIDSUB 

0615 

REF 

1 

31,3300 

1 2423 

1 

TC  F 

GUIDSUB 

0616 

REF 

3 

LAST 

783 

31,3301 

11 ' 646 

0 

CCS 

NIGNLOOP 

0617 

31, 3302 

1 3305 

0 

TCF 

+ 3 

0618 

REF 

29 

LAST 

767 

31,3303 

0 5571 

l 

TC 

ALARM 

0619 

31,3304 

01412 

1 

OCT 

01412 

0620 

REF 

48 

LAST 

785 

31,3305 

0 4626 

1 

+ 3 

TC 

POSTJUMP 

062  1 

REF 

1 

31,3306 

64712 

1 

CADR 

DDUMCALC 

0622 

REF 

129 

LAST 

809 

31,3307 

0 6060 

1 

EXBRAK 

TC 

INTPRET 

0623 

31,3310 

77775 

1 

VLOAD 

0624 

REF 

8 

LAST 

775 

31,3311 

03537 

0 

UNIT/R/ 

062  5 

REF 

2 

LAST 

141 

31,3312 

03260 

0 

STORE 

UNWC/2 

0626 

31,3313 

77776 

1 

EX  I T 

062  7 

REF 

1 

31,3314 

1 3371 

0 

TCF 

STEER? 

0628 

REF 

130 

LAST 

809 

31, 3315 

0 6060 

1 

EXNORM 

TC 

I NTPRET 

062  9 

31,3316 

52375 

1 

VLOAD 

VSU 

0630 

REF 

17 

LAST 

806 

31,3317 

03635 

1 

LAND 

063  1 

REF 

13 

LAST 

808 

31,3320 

03521 

l 

R 

0632 

31,3321 

77634 

0 

RTB 

0633 

REF 

8 

LAST 

809 

31,3322 

2 1 724 

0 

NORMUNIT 

0634 

REF 

3 

LAST 

809 

31, 3323 

03260 

0 

STORE 

UNWC/2 

UNITILAND  - R)  IS  TENTATIVE  CHOICE 

0635 

31,3324 

50235 

0 

VXV 

DOT 

0636 

REF 

3 

LAST 

804 

31, 3325 

C2  137 

0 

XNBPI P 

0637 

REF 

14 

LAST 

808 

31,3326 

02600 

0 

CG  +6 

063  8 

31,3327 

77776 

1 

EXIT 

WITH  PRO J IN  MP AC  1/8  REAL  SIZE 

GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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0639 

REF 

291 

LAST 

808 

31,3330 

4 C 1 54 

0 

CS 

M P AC 

064  0 

REF 

1 

31,3331 

6 3766 

0 

AO 

PROJMAX 

064  1 

REF 

2C 

LAST 

806 

31,3332 

6 4724 

l 

AD 

POSMAX 

064  2 

REF 

67 

LAST 

806 

31,3333 

54  130 

l 

TS 

BUF 

0643 

REF 

68 

LAST 

810 

31,3334 

4 C 1 30 

1 

CS 

BUF 

0644 

REF 

65 

LAST 

810 

31,3335 

26  130 

l 

ADS 

BUF 

0645 

REF 

1 

31,3336 

4 3767 

0 

CS 

PRDJMIN 

0646 

REF 

292 

LAST 

810 

31,3337 

6 0154 

1 

AD 

M P AC 

064  7 

REF 

21 

LAST 

810 

31,3340 

6 4724 

1 

AD 

POSMAX 

0640 

REF 

70 

LAST 

810 

31,3341 

54  131 

0 

TS 

BUF  +1 

0649 

REF 

71 

LAST 

eio 

31,3342 

4 C 1 31 

0 

CS 

BUF  +1 

0650 

REF 

72 

LAST 

810 

31,3343 

26  131 

0 

ADS 

BUF  +1 

065  l 

REF 

14 

LAST 

785 

31,3344 

3 4742 

1 

CAF 

FOUR 

0652 

REF 

14 

LAST 

612 

31,3345 

7 6263 

1 

UNWCLQOP 

MASK 

SIX 

0653 

REF 

190 

LAST 

792 

31 , 3346 

54  002 

1 

TS 

0 

0654 

REF 

7 

LAST 

801 

31,3347 

3 5005 

1 

CA 

EBANK5 

0655 

REF 

36 

LAST 

801 

31,3350 

54  C03 

0 

TS 

EBANK 

0656 

REF 

15 

LAST 

809 

E5,  1571 

EB ANK= 

CG 

0657 

REE 

73 

LAST 

810 

31 , 3351 

3 C 1 30 

0 

CA 

BUF 

0658 

31,3352 

C 0006 

1 

EXTEND 

0659 

REF 

191 

LAST 

810 

31 , 3353 

5 0002 

0 

INDEX 

Q 

0660 

REF 

16 

LAST 

810 

31,3354 

7 1605 

1 

MP 

CG  +14 

066  1 

REF 

18 

LAST 

74  5 

31,3355 

24  006 

1 

INCR 

BBANK 

0662 

REF 

4 

LAST 

809 

E6 , 1657 

FBANK= 

UNWC/2 

0663 

REF 

152 

LAST 

810 

31,3356 

50  002 

0 

INDEX 

Q 

0664 

REF 

5 

LAST 

810 

31,3357 

53 ' 660 

l 

DXCH 

UNWC/2 

0665 

31,3360 

0 0006 

1 

EXTEND 

0666 

REF 

74 

LAST 

810 

31,3361 

7 0131 

0 

MP 

BUF  +1 

066  7 

REF 

153 

LAST 

810 

31 , 3362 

50  002 

0 

INDEX 

Q 

066  8 

REF 

6 

LAST 

810 

31,3363 

21 ' 660 

1 

DAS 

UNWC/2 

0669 

REF 

154 

LAST 

610 

31,3364 

10  002 

1 

CCS 

Q 

0670 

RFF 

1 

31,3365 

l 3345 

1 

TCF 

UNWCLOOP 

067  l 

REF 

1 

31 , 3366 

3 1773 

0 

CA 

AZBI AS 

0672 

REF 

1 

31,3367 

55*676 

0 

TS 

DGABI AS 

0673 

REF 

19 

LAST 

810 

31,3370 

24  006 

1 

INCR 

8BANK 

0674 

REF 

1 1 

LAST 

792 

E7,  1612 

EB ANK= 

P IF 

0675 

REF 

1 

31,3371 

3 0121 

0 

STEER? 

CA 

OVEIND 

0676 

31,3372 

0 0006 

1 

EXTEND 

0677 

REE 

1 

31,3373 

l 3376 

1 

BZF 

STEERSW? 

0678 

REE 

1 

31,3374 

0 3736 

0 

TC 

OVFDESC 

0679 

REF 

2 

LAST 

796 

31,3375 

1 3415 

0 

TCF 

DISPEXIT 

0680 

REF 

14 

LAST 

757 

31,3376 

4 0076 

1 

STEERSW? 

CS 

FLAGWRD2 

0681 

REF 

1 

31,3377 

7 4732 

1 

MASK 

STEERBI T 

17: l 1 MAR.  19, 1971  FLY 
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PAGE  810 


USER'S  PAGE  NO.  17  E7  S3 

GET  COEFFICIENT  FOR  CG  + 14 


RESULT  IS  0 IF  PRO JMA  X - PROJ  NEGATIVE 
GET  COEFFICIENT  FOR  UN  I T ( L ANO  - R) 


RESULT  IS  0 IF  PROJ  - PPOJMIN  NEGATIVE 


SFT  OUTFR  GIMBAL 

ANGLE  BIAS  FOR  WINDOW  BENDING 


OVERFLOW? 

N:  CHECK  STEERSW 

Y:  REMEDIAL  ACTION  ANO 

SKIP  ISSUANCE  OF  CMOS.  NO  STEERSW  CHK 


IS  STEERSW  UP? 


17:11  MAR.  19,1971 


FLY 
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PAGE 


811 


GAP: 


ASSEMBLE  REVISION  210 


OF  A GC  PROGRAM  LUMINARY  BY  NASA 


2021112-161 


L 

LUNAR 

LAND  ING 

GUIDANCE  EQUAT 

IONS 

USER' S PAGE  NO.  18 

E7  S3 

0682 

31,3400 

0 C006 

1 

EXTFND 

0683 

REF 

1 

31,3401 

1 3407 

0 

BZF 

T HRT CALL 

Y:  ISSUE  GUIDANCE  CMOS 

068  A 

31,3402 

0 0004 

0 

RATESTOP 

INHINT 

N:  REMEDIAL  ACTION 

0685 

REF 

39 

LAST 

784 

31,3403 

0 4665 

0 

TC 

I BNKC ALL 

AND 

0686 

REF 

4 

LAST 

758 

31,3404 

40166 

1 

FC  ADR 

STOPRATE 

SKIP  ISSUANCE  OF  CMOS 

0687 

31,3405 

0 0003 

1 

REL INT 

0688 

REF 

3 

LAST 

810 

31,3406 

L 3415 

0 

TCF 

DISPEXIT 

0689 

REF 

2 

LAST 

81  1 

31,3407 

GDUMP 1 

= 

THRT  CALL 

0690 

REF 

1 

31,3407 

0 2 144 

1 

THRT  CALL 

TC 

THROTTLE 

0691 

REF 

10 

LAST 

807 

31,3410 

0 3751 

1 

TC 

FASTCHNG 

0692 

REF  1 

31 

LAST 

809 

31,341 1 

0 6060 

1 

TC 

I NTPRET 

0693 

31 , 3412 

77624 

1 

CALL 

0694 

REF 

2 

LAST 

767 

31,3413 

61072 

0 

F I NDCDUW  -2 

0695 

31,3414 

77776 

1 

EXIT 

A 0696 

(CONTINUE 

TO  DISPEXIT) 

R069  7 

**  * 

a{ca}c3C=a{c^c^c^c5}ca{c3Cc^c^s>:s^:3»ca»c  s>r^Jc^c=Jc 

R0699 

GUIDANCE 

LOOP 

DISPLAYS 

R0700 

j|<  # # jJc  ajt  # 5$:  % £ # % jJ:  if.  if.  -if  ^ ajc  # # # 3*c  sj:  # 3}c  ip  # j}c  % >Jc  5*e  >J:  % # 

##*  ****  ***  ***  *4  ******  ******  ******  Si!;******* 

0702 

31, 3415 

0 

C006 

1 

DISPEXIT 

EXTEND 

KILL  GROUP  3:  DISPLAYS  WILL  BE 

0703 

REF 

14 

LAST 

739 

31,3416 

3 

4746 

0 

DC  A 

NEGO 

RESTORED  BY  NEXT  GUIDANCE  CYCLE 

0704 

REF 

3 

LAST 

732 

31,3417 

52 

756 

1 

DXCH 

-PHASE3 

0705 

REF 

4 

LAST 

811 

31, 3420 

ENDLL JOB 

= 

DISPEXIT  +3 

0706 

REF 

5 

LAST 

81  1 

31,3420 

0ISPEX66 

= 

DISPEXIT  +3 

0707 

REF 

12 

LAST 

734 

31 , 3420 

4 

0104 

0 

+ 3 

cs 

F LAGWRD8 

IF  FLUNDISP  IS  SET,  NO  DISPLAY  THIS  PASS 

0708 

REF 

2 

LAST 

734 

31,3421 

7 

4733 

0 

MASK 

FLUNDBI T 

0709 

31,3422 

0 

0006 

1 

EXTEND 

0710 

REF 

122 

LAST 

784 

31, 3423 

1 

5146 

0 

BZF 

ENDOF JOB 

071  1 

REF 

8 

LAST 

808 

31,3424 

51 

' 621 

0 

INDEX 

WCHPHOLD 

0712 

REF 

1 

31 , 3425 

1 

2406 

0 

TCF 

WHATDISP 

0713 

REF 

1 

31,3426 

0 

5156 

0 

P63DI SPS 

TC 

V ACR LEA  S 

0713  1 

REF 

19 

LAST 

618 

31,3427 

4 

0107 

0 

CS 

FLGWRD1 1 

HAVE  LR  UPDATES  BEEN  PERMITTED? 

0713  15 

REF 

1 

31,3430 

7 

4735 

0 

MASK 

LR  INHBI T 

071317 

31,3431 

0 

0006 

1 

EXTEND 

07132 

REF 

1 

31,3432 

I 

3441 

1 

BZF 

N63STAT 

YES:  DO  STATIC  DISPLAY 

07133 

REF 

1 

31,3433 

3 

3770 

1 

CAF 

V06N63 

NO:  FLASH  NOUN  63,  CORRECT  RESPONSE  IS 

071335 

REF 

218 

LAST 

804 

31,3434 

0 

4607 

1 

TC 

BANKCALL 

V57E  WHICH  STOPS  THE  FLASHING 

07134 

REF 

2 

LAST 

740 

31,3435 

20452 

0 

CADR 

REFLASH 

071345 

REF 

123 

LAST 

81  1 

31 , 3436 

0 

5 146 

1 

TC 

ENDOF JOB 

TERMINATE  IGNORF  AND  KEEP  FLASHING 

GAP: 
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07135 

REF 

124 

LAST 

81  1 

31 , 3437 

0 

5146 

1 

TC 

ENDDF JOB 

071355 

REF 

125 

LAST 

812 

31, 3440 

0 

5146 

1 

TC 

ENDOF JOB 

071 A 

REF 

2 

LAST 

811 

31, 3441 

3 

3770 

1 

N63STAT 

CAF 

V06N63 

0715 

REF 

219 

LAST 

811 

31,3442 

0 

4607 

l 

DISPCOMN 

TC 

BANKCALL 

0716 

REF 

3 

LAST 

740 

31,3443 

2C460 

1 

CADR 

REGODSP 

0717 

REF 

3 

LAST 

801 

31,3444 

3 

1666 

0 

P64DI SPS 

CA 

TREDES 

0718 

31, 3445 

0 

0006 

1 

EXTEND 

0719 

REF 

1 

31,3446 

1 

3475 

0 

8ZF 

RED-OVER 

0720 

REF 

5 

LAST 

801 

31,3447 

4 

0102 

0 

CS 

FLAGWRD6 

072  1 

REF 

2 

LAST 

801 

31,3450 

7 

4737 

1 

MASK 

REDFLBIT 

0722 

31,345  1 

0 

0006 

l 

EXTEND 

0723 

REF 

1 

31,3452 

1 

3477 

1 

BZF 

REDES-OK 

0724 

RFF 

2 

LAST 

81  1 

31,3453 

0 

5156 

0 

TC 

VACRLEAS 

0725 

RFF 

1 

31,3454 

3 

377  1 

0 

CAF 

V06N64 

0726 

REF 

220 

LAST 

812 

31,3455 

0 

4607 

1 

TC 

BANKCALL 

072  7 

REF 

3 

LAST 

81  1 

31,3456 

20452 

0 

CADR 

REFLASH 

0728 

REF 

29 

LAST 

738 

31 , 3457 

1 

6001 

L 

TC  F 

G CTOPOOH 

0729 

REF 

1 

31 ,3460 

l 

3462 

0 

TCF 

P64CEED 

0730 

REF 

2 

LAST 

795 

31, 3461 

1 

3444 

1 

TCF 

P64DI SPS 

073  1 

REF 

153 

LAST 

808 

31,3462 

3 

4 746 

0 

P64CEED 

CAF 

ZERO 

0732 

REF 

4 

l AST 

801 

31 , 3463 

55 

•645 

0 

TS 

EL  INCR1 

0733 

REF 

5 

LAST 

802 

31,3464 

55 

•644 

1 

TS 

AZINCR1 

0733  1 

31 , 3465 

0 

0004 

0 

INHINT 

07332 

REF 

4 

LAST 

485 

31,3466 

0 

6 C40 

0 

TC 

C 13STALL 

07333 

REF 

26 

LAST 

777 

31,3467 

3 

4731 

0 

CAF 

8 I T 1 2 

07334 

31,3470 

0 

0006 

l 

EXTEND 

07335 

REF 

13 

LAST 

577 

31,3471 

05 

013 

0 

WDR 

CHAN13 

0734 

REF 

56 

LAST 

798 

31,3472 

0 

5506 

1 

TC 

UPFLAG 

0735 

RFF 

3 

LAST 

799 

31,3473 

00143 

1 

ADRES 

R EDFLAG 

0736 

REF 

126 

LAST 

812 

31, 3474 

1 

5 146 

0 

TCF 

ENDOF JOB 

0737 

REF 

76 

LAST 

799 

31 ,3475 

0 

5520 

0 

RED-OVER 

TC 

DOWNFLAG 

0738 

REF 

4 

LAST 

812 

31,3476 

OC  143 

1 

ADRES 

REDFLAG 

0739 

REF 

3 

LAST 

812 

31 , 3477 

0 

5 156 

0 

REDES-OK 

TC 

VACRLEAS 

0740 

REF 

2 

LAST 

812 

31,3500 

3 

3771 

0 

CAF 

V 06N  64 

0741 

REF 

1 

31,3501 

1 

3442 

1 

TCF 

0 I SPCOMN 

0742 

REF 

4 

LAST 

812 

31, 3502 

0 

5156 

0 

VERTDISP  TC 

VACRLEAS 

0743 

REF 

1 

31,3503 

3 

3772 

0 

CAF 

V06N60 

0744 

REF 

221 

LAST 

812 

31,3504 

0 

4607 

1 

TC 

BANKCALL 

0745 

REF 

4 

LAST 

812 

31,3505 

20452 

0 

CADR 

REFLASH 

17:11  MAR.  19,1971  FLY 

USER' S PAGE  NO. 

PROCEED  IGNORE  AND 

ENTFR  IGNORE  AMD 


.197  PAGE 

19  E 7 S3 

KEEP  FLASHING 
KEEP  FLASHING 


812 


HAS  TREDES  REACHED  ZERO? 

YES:  CLEAR  REDESIGNATION  FLAG 

NO:  IS  REOFLAG  SET? 

YES:  DO  STATIC  D I SPL  AY 

OTHERWISE  USE  FLASHING  DISPLAY 

TERMINATE 

PROCEED  PFRMIT  REDPSIGNAT IONS 
RECYCLE 


ENABLE  PUPT  IP  FOR  RE DE S I GN A T I ONS 


ENABLE  REDESIGNATION  LOGIC 
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0746 

REF 

3C 

LAST 

812 

31,3506 

1 

6001 

1 

TCF 

GOTOPOOH 

0747 

REF 

1 

31,3507 

1 

3511 

0 

TCF 

STOPF IRE 

0748 

REF 

2 

LAST 

813 

31,3510 

1 

3511 

0 

TCF 

STOPF IRE 

0749 

REF 

77 

LAST 

812 

31,3511 

0 

5520 

0 

STOPF IRE 

TC 

OOWNF  LAG 

0750 

REF 

2 

LAST 

797 

31,3512 

0CC16 

0 

ADRES 

P66PR0FL 

0751 

REF 

127 

LAST 

8 12 

31,3513 

1 

5146 

0 

TCF 

ENDOF JOB 

0752 

REF 

2 

LAST 

81  1 

31,3514 

0 

2147 

1 

THR0T66 

TC 

THROT  ELE 

0753 

REF 

2 

LAST 

797 

31,3515 

25 

' 623 

1 

I NCR 

C NTTHROT 

0754 

REF 

1 

31,3516 

1 

3420 

0 

TCF 

DISPEX66 

17:11  MAR.  19,1971  FLY  .197 

USER'S  PAGE  NO.  20 

TERMINATE 

PROCEED 

V32E 


FLAG  TO  STOP  P66  HORIZONTAL 


COUNT  ONE  THROTTLE  COMPLETION 


PAGE  813 
E7  S3 


GAP: 

L 

P0755 

R0757 

R0758 

R 0 76  0 

R0  76  l 

R 0 762 
R0764 

R 076  5 
R 0 76  7 

RC768 
R 0 76  9 
R0770 
R 07  7 1 
R077  2 
R0773 
R0774 

0775 

0776 

0777 

0778 

0779 

0780 

078  1 

0782 

0783 
0 78  A 

0785 

0786 

0787 

0788 

0789 

0790 

079  1 

0792 

0793 
079  A 

0795 

0796 


ASSEMBLE  REVISION  210  GF 
LUNAR  LANDING  GUIDANCE 
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17: 11  MAR.  19, 1971 

FLY 

.197  PAGE 

USER’S  PAGE 

NO. 

21  E7  S3 

GUIDANCE  FOR  P66 


THE  P66  HORIZONTAL  ( FZ ) EQUATION  IS: 


UNFC/2X  = GHZ 


UNFC/2Y  = (LIMIT 

AHZLIM) 1 

[-QHZ 

UNFC/2Y 

1-1 

( VY-VHZCY 

) /TAUHZ ) 

UNFC/2Z  = (LIMIT 

AHZLIM) 1 

[-QHZ 

UNFC/2Z 

1-1 

( VZ-VHZCZ 

) /TAUHZ ) 

WHERE  GHZ  IS  LUNAR  GRAVITY 

QHZ  AND  1/TAUHZ  ARE  GAIN  CONSTANTS 

VHZCY  AND  VHZCZ  ARE  THE  Y AND  Z COMPONENTS  OF  COMMANDED 
VELOCITY,  PLATFORM  COORDINATES.  THESE  ARE  INITIALIZED 
TO  MOONRATE 

(LIMIT  AHZLIM)  INDICATES  THE  CONTENT  OF  THE  SUBSEQUENT 
PARENTHESES  IS  MAGNITUDE  LIMITED  TO  AHZLIM 


REF 

fc  1 

LAST 

796 

31,3517 

0 5355 

1 

P 66 

TC 

P HASCHNG 

TERMINATE  GROUP  3 

31,3520 

CC003 

1 

OCT 

00003 

REF 

132 

LAST 

811 

31,3521 

0 6C60 

1 

TC 

INTPRET 

31, 3522 

45234 

0 

RTB 

DSU 

IS  THERF  TIME  FOR  P66? 

REF 

23 

LAST 

718 

31,3523 

21603 

1 

LOADTIME 

REF 

15 

LAST 

798 

31,3524 

01234 

0 

PIPTIME 

31,3525 

51021 

0 

BDSU 

B PL 

REF 

2 

LAST 

126 

31,3526 

02500 

0 

2LATE466 

REF 

1 

31,3527 

65074 

1 

P66HZ 

Y:  DOIT 

31,3530 

77414 

0 

CLEAR 

EXIT 

N:  OMIT 

REF 

2 

LAST 

79  8 

31,3531 

00663 

l 

RODFLAG 

REF 

2 

LAST 

797 

31,3532 

4 1354 

0 

CS 

TOOFEW 

INITIALIZE  CNTTHROT  TO  TOOFEW 

AND  LOAD 

REF 

3 

LAST 

813 

31,3533 

57*623 

1 

XCH 

CNTTHROT 

ACCUMULATOR  WITH  ITS  PPFVIOUS 

CONTENTS 

31,3534 

0 0006 

1 

EXTEND 

TOO  FEW  THROTTLINGS  SINCE  LAST 

OMISSION? 

REF 

1 

31,3535 

6 3537 

0 

BZMF 

QMI TWALM 

REF 

2 

LAST 

813 

31,3536 

1 3420 

0 

TCF 

DISPEX66 

N:  PERMIT  OMISSION  SANS  ALARM 

31,3537 

0 0004 

0 

OMITWALM 

INHINT 

REF 

222 

LAST 

812 

31,3540 

0 4607 

1 

TC 

8 ANKC ALL 

REF 

5 

LAST 

811 

31,3541 

4 0166 

l 

CADR 

STOPRATE 

REF 

30 

LAST 

309 

31, 3542 

0 5571 

1 

TC 

ALARM 

Y:  PERMIT  OMISSION  WITH  ALARM 

31,3543 

01466 

1 

OCT 

01466 

REF 

3 

LAST 

814 

31,3544 

l 3420 

0 

TCF 

DISPEX66 

GAP: 
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P0797  ============================================ 

R0799  P 66  HORIZONTAL  CHANNELS 

R0800  ============================================ 


0802 

REF 

1 

32,2000 

0803 

32, 3074 

0804 

REF 

2 

LAST 

41  TO 

42: 

1 

1* 

0805 

32,3074 

74375 

0 P66HZ 

0806 

REF 

15 

LAST 

809 

32, 3075 

03252 

1 

0807 

RFF 

2 

LAST 

126 

32,3076 

02476 

0 

0808 

32,3077 

52315 

1 

0809 

REF 

2 

LAST 

797 

32,3100 

03434 

1 

0810 

REF 

5 

LAST 

803 

32,3101 

03527 

1 

081 1 

32,3102 

52341 

0 

0812 

REF 

2 

LAST 

126 

32,3103 

02475 

0 

0813 

32,3104 

77776 

1 

0814 

REF 

2 

LAST 

340 

32,3105 

3 5022 

1 

0815 

REF 

15 

LAST 

801 

32,3106 

0 5137 

1 

0816 

REF 

1 

32,3107 

3 3436 

0 

0817 

REF 

253 

LAST 

810 

32,3110 

54  154 

0 

0818 

REF 

8 

LAST 

810 

32,3111 

3 5005 

1 

0819 

REF 

37 

LAST 

810 

32,3112 

54  C03 

0 

0320 

REF 

l 

E5, 1777 

082  1 

REF 

254 

LAST 

815 

32,3113 

22  157 

1 

0822 

REF 

2 

LAST 

126 

32,3114 

3 1476 

0 

0823 

REF 

223 

LAST 

814 

32,3115 

0 4607 

1 

0824 

RFF 

1 

32,3116 

61713 

0 

0825 

REF 

255 

LAST 

815 

32,3117 

54  157 

0 

0826 

REF 

256 

LAST 

815 

32,3120 

22  161 

1 

0 82  7 

REF 

3 

LAST 

815 

32,3121 

3 1476 

0 

0828 

REF 

224 

LAST 

815 

32,3122 

0 4607 

1 

0829 

REF 

2 

LAST 

815 

32,3123 

61713 

0 

0830 

REF 

257 

LAST 

815 

32,3124 

54  161 

0 

0831 

REF 

11 

LAST 

801 

32,3125 

3 5007 

0 

0832 

REF 

38 

LAST 

8 15 

32,3126 

54  003 

0 

0833 

REF 

1 

E7 , 1777 

0834 

REF 

2 

LAST 

810 

32,3127 

3 0121 

0 

0835 

32,3130 

0 0006 

1 

0836 

REF 

1 

32,3131 

l 3135 

1 

0837 

REF 

225 

LAST 

815 

32, 3 132 

C 4607 

1 

0838 

REF 

2 

LAST 

810 

32,3133 

63736 

0 

0839 

REF 

1 

32,3  134 

1 3164 

0 

NASA  2021112-161 
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USER'S  PAGE  NO.  22  F7  S3 


SETLOC  P66L0C 
BANK 

COUNT*  $ t/F  2DP  S 


VLOAD 

VXSC 

UNFC/2 

QHZ 

P63,  P64 , £ P66  UNITS  2 < -4 ) M/C  S/C S 

PD  VL 

VSU 
V HZC 

IN  2 ( 71M/CS 

V 

IN  2 ( 7 IM/CS 

V/ SC 

VSU 

YIELDS  UNLIM  HZ  ACCFL  CMD , 2I-41M/CS/CS 

TAUHZ 

IN  21  11ICS 

EX  I T 

CA 

P R 102 1 

ASSURE  THIS  SERVICER  JOB  ENDS 

TC 

PRIOCHNG 

BEFORE  NFXT  SERVICER  JOB  BEGINS 

CA 

GHZ 

TS 

MPAC 

X COMPONENT  = G 

CA 

EBANK5 

TS 

EBANK 

EBANK= 

END-E5 

LXCH 

MPAC 

+ 3 

CA 

AHZL I M 

TC 

BANKCALL 

FC  ADR 

L IMITSUB 

TS 

MPAC 

+ 3 

Y COMPONENT  LIMITED  TO  AHZLIM 

LXCH 

MPAC 

+ 5 

CA 

AHZL IM 

TC 

BANKCALL 

FC  ADR 

L IMITSUB 

TS 

MPAC 

+ 5 

Z COMPONENT  LIMITED  TO  AHZLIM 

CA 

EBANK7 

TS 

EBANK 

EBANK= 

END-E7 

CA 

0 VF I NO 

OVERFLOW? 

EXTEND 

BZF 

ENGARM? 

N:  KEEP  CHECKING 

TC 

BANKCALL 

Y:  TAKE  REMEDIAL  ACTION 

FCADR 

OVFDESC 

AND 

TC  F 

P66VERT 

SKIP  ISSUANCE  OF  HZ  CMOS 
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0840 

REF 

32 

LAST 

619 

32,3135 

3 4742 

1 

ENGAP.M? 

CA 

B I T3 

IS  ENGINE  ARM  SWITCH  STILL  ON? 

084  1 

32,3136 

0 0006 

1 

EXTEND 

0842 

REF 

5 

LAST 

743 

32,3137 

02  C30 

0 

RAND 

CHAN30 

0843 

32,3140 

0 0006 

1 

EXTEND 

0844 

REF 

1 

32,3141 

l 3146 

0 

BZF 

CDUWHZ 

Y:  ISSUE  HZ  CMDS 

0845 

REF 

27 

LAST 

6 12 

32,3142 

3 0C74 

1 

CA 

FLAGWRDO 

N:  HAVE  WE  PROCEEDED  AFTER  TOUCHDOWN? 

0 84  6 

REF 

1 

32,3143 

7 4 744 

0 

MASK 

P66PR0BT 

0847 

32,3144 

0 C 006 

1 

EXTEND 

0848 

REF 

1 

32,3145 

l 3154 

0 

BZF 

ASTROPRO 

Y:  PREVENT  RCS  FIRINGS 

0849 

REF 

133 

LAST 

814 

32 ,3146 

0 6060 

1 

CDUWHZ 

TC 

INTPRET 

N:  ISSUE  HZ  CMOS 

0850 

REF 

16 

LAST 

815 

32,3147 

03252 

1 

STORE 

UNFC/2 

MUST  STORE  FOR  SUCCEEDING  PASS 

085  1 

32,3150 

77624 

1 

CALL 

0852 

REF 

3 

LAST 

811 

32,3151 

6 1C  74 

0 

F INDCDUW 

0853 

32,3152 

77776 

1 

EX  IT 

0854 

REF 

2 

LAST 

815 

32,3153 

1 3164 

0 

TCF 

P66VERT 

0855 

REF 

1 

32,3  154 

3 3435 

0 

ASTROPRO 

CA 

I DL ADR 

Y:  PREVENT  RCS  JET  FIRINGS 

0856 

REF 

3 

LAST 

230 

32,3155 

55' 262 

l 

TS 

T5ADR 

AND 

0857 

REF 

3 

LAST 

816 

32,3156 

1 3164 

0 

TCF 

P66VERT 

SKIP  HZ  CMOS,  BUT  CONTINUE  DISPLAYS 

R0860 

P66 

VERTICAL  i 

CHANNEL 

0863 

REF 

5 

LAST 

709 

32,3157 

3 7731 

0 

RQDTASK 

CA 

PR  1 022 

BUMPS  ALL  OF  SERVICER  JOB  FXCFPT  ROOCOMP 

0864 

REF 

35 

LAST 

757 

32,3160 

0 5076 

0 

TC 

F INOVAC 

0865 

REF 

31 

LAST 

781 

E7, 1515 

EBANK= 

DVCNTR 

0 86  6 

REF 

1 

32,3161 

03167 

1 

2C  ADR 

RODCOMP 

0866 

REF 

1 

32,3162 

64067 

1 

0867 

REF 

54 

LAST 

778 

32,3163 

1 5263 

1 

TCF 

TASKOVER 

0868 

REF 

15 

LAST 

758 

32,3164 

3 4770 

0 

P66VFRT 

CA 

l SEC 

0869 

REF 

22 

LAST 

777 

32, 3 165 

0 5175 

1 

TC 

TWIDDLE 

0870 

REF 

1 

32,3  166 

03157 

1 

ADRES 

RODTASK 

0871 

REF 

1 

32,3167 

3 7732 

0 

ROOCOMP 

CA 

P R 1023 

LET  ONLY  ONE  JOB  THRU  ROOCOMP  AT  A TIME 

0872 

REF 

16 

LAST 

815 

32,3170 

0 5137 

1 

TC 

PRIOCHNG 

0873 

32,3171 

C 0004 

0 

INHINT 

0874 

REF 

154 

LAST 

812 

32,3172 

3 4746 

0 

CAF 

ZERO 

0875 

REF 

4 

LAST 

799 

32,3173 

57' 746 

0 

XCH 

RODCOUNT 

0876 

32, 31 74 

C 0006 

l 

EXTEND 

0877 

REF 

3 

LAST 

798 

32, 3175 

7 1756 

0 

MP 

R0DSCAL1 

0878 

REF 

2 

LAST 

797 

32,3176 

21*645 

0 

DAS 

VOGVERT 

UPDATE  DESIRED  ALTITUDE  RATF. 

0879 

REF 

35 

LAST 

791 

32,3177 

3 4741 

1 

MANTHRT? 

CAF 

B IT4 

08793 

REF 

5 

LAST 

743 

32,3200 

7 C 3 74 

0 

MASK 

CHANBKUP 
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03794 

REF 

221 

LAST 

797 

32,3201 

10  COO 

0 

CCS 

A 

08795 

REF 

1 

32,3202 

1 3213 

0 

TCF 

RODCOMPA 

IGNORE  CHAN  30  BIT  5.  ASSUME  AUTO  THROT 

08796 

REF 

36 

LAST 

746 

32,3203 

3 4740 

0 

CAF 

BIT5 

ARE  WF  IN  AUTO  THROTTLE? 

0880 

32,3204 

C 0C06 

1 

EXTEND 

0881 

REF 

6 

LAST 

816 

32,3205 

02  030 

0 

RAND 

CHAN30 

0882 

32, 3206 

C C006 

1 

EXTEND 

0883 

REF 

2 

LAST 

817 

32,3207 

1 3213 

0 

BZF 

RODCOMPA 

Y:  CONTINUE  ROD 

0884 

32,3210 

0 0006 

1 

EXTEND 

N:  RESET  VDGVERT  TO  CURRENT  HOOT 

0885 

REF 

9 

LAST 

797 

32,3211 

3 1474 

1 

DC  A 

HDOTDISP 

0886 

REF 

3 

LAST 

816 

32,3212 

53 ' 645 

0 

DXCH 

VDGVERT 

R0887 

READ 

TEE 

P IPAS 

FOR 

P66 

0888 

32,3213 

0 0006 

l 

RCDCOMPA  EXTEND 

0889 

REF 

11 

LAST 

396 

32,3214 

3 0040 

0 

DC  A 

P IPAX 

0890 

REF 

3 

LAST 

797 

32,3215 

53' 764 

1 

DXCH 

OLDPIPAX 

CURRENT  PIPA  READINGS  INTO  OLDPIPAX, Y,Z 

0891 

REF 

20 

LAST 

570 

32,3216 

52  071 

0 

DXCH 

RUPTREG1 

SAVE  PRIOR  RFADINGS  IN  RUPTREG1,2,3 

0892 

REF 

5 

LAST 

396 

32,3217 

3 0041 

1 

CA 

P IPAZ 

0893 

REF 

2 

LAST 

158 

32,3220 

57 ' 765 

1 

XCH 

OLDPIPAZ 

0894 

REF 

3 

LAST 

384 

32,3221 

56  C72 

1 

XCH 

P UPTREG3 

0895 

32,3222 

C 0C06 

1 

EXTEND 

SNAPSHOT  TIME  OF  PIPA  RFAOING. 

0896 

REF 

25 

LAST 

758 

32,3223 

3 0025 

0 

DC  A 

T I ME2 

0897 

REF 

3 

LAST 

79  1 

32,3224 

53 ' 762 

1 

DXCH 

THISTPIP 

0898 

REF 

2 

LAST 

798 

32,3225 

0 3425 

1 

TC 

DEI MU80B 

REFER  CURRENT  PIPAX  READING  TO  THE  CM 

R0899 

COMPUTE 

DELV  S 

INCE 

PIPTIME. 

RETURN  FROM 

DE  I MU  BOB  WITH 

CORRECTED  OLDPIPAX 

IN  A 

A090  1 

CURRENT  P66  P 

IPA 

090  2 

REF 

1 

32,3226 

6 

1157 

0 

AD 

P I PATMPX 

+ 

PIPA  BY 

PIP 

ASR 

IF  B4  COPYCYCL , 0 AFTER 

0903 

REF 

298 

LAST 

815 

32,3227 

54 

154 

0 

TS 

MPAC 

= 

DELV  SINCE 

VAL  I 

DITY  OF  V,  2 ( 14) CM/SEC 

0904 

REF 

2 

LAST 

158 

32, 3230 

3 

1 764 

0 

CA 

OLDPIPAY 

0905 

REF 

1 

32,3231 

6 

1 160 

1 

AIJ 

P IPATMPY 

0906 

REF 

299 

LAST 

817 

32,3232 

54 

157 

0 

TS 

MPAC  +3 

0907 

REF 

3 

LAST 

817 

32,3233 

3 

1 765 

1 

CA 

OLDPIPAZ 

0908 

REF 

1 

32,3234 

6 

1 161 

0 

AD 

P IPATMPZ 

0909 

REF 

300 

LAST 

817 

32,3235 

54 

161 

0 

TS 

MPAC  +5 

R0910 

COMPUTE 

DELV  SINCE 

THE  LAST  1 

P66 

PASS 

091  l 

REF 

4 

LAST 

817 

32,3236 

4 

1763 

0 

cs 

OLDP I PAX 

_ 

CURRENT 

P66 

PIP 

A 

0912 

REF 

3 

LAST 

797 

32,3237 

6 

1253 

1 

AD 

TEMX 

- 

PIPA  BY 

PIP 

ASR 

IF  INTERVENING,  ELSE  0 

0913 

REF 

21 

LAST 

817 

32,3240 

6 

C C 70 

0 

AD 

RUPTREG1 

+ 

PIPA  BY 

P66 

ON 

THE  LAST  P66  PASS 

0914 

REF 

4 

LAST 

797 

32,3241 

55 

• 766 

0 

TS 

DELVROD 

= 

-DELV  SINCE 

LAS 

T P66  PASS,  2 [ 14 ) CM/SEC 

0915 

REF 

3 

LAST 

817 

32, 3242 

4 

1764 

1 

cs 

OLDPIPAY 

0916 

REF 

2 

LAST 

108 

32,3243 

6 

12  54 

0 

AO 

TFMY 

0917 

REF 

6 

LAST 

181 

32,3244 

6 

C 0 7 1 

1 

AD 

RUPTREG2 

GAP: 
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0918 

REF 

5 

LAST 

817 

32,3245 

55*770 

1 

TS 

DELVROD  +2 

0919 

REF 

4 

LAST 

817 

32, 3246 

4 1765 

0 

CS 

OLDPIPAZ 

092  0 

REF 

2 

LAST 

108 

32,3247 

6 1255 

1 

AD 

TEMZ 

092  1 

REF 

4 

LAST 

817 

32,3250 

6 0072 

1 

AD 

RUPTREG3 

092  2 

REF 

6 

LAST 

818 

32,3251 

55*  772 

0 

TS 

DELVROD  +4 

R0923 

PRE- 

INTERPRETIVE  HOUSEKEEPING 

AND  RESETTING 

PIPASR'S  TEMS  FOR  NEXT 

0924 

REF 

155 

LAST 

816 

32,3252 

3 4746 

0 

CAF 

ZERO 

0925 

REF 

301 

LAST 

817 

32, 3253 

54  155 

1 

TS 

MPAC  +1 

0926 

REF 

302 

LAST 

818 

32,3254 

54  160 

1 

TS 

MPAC  +4 

0927 

REF 

303 

LAST 

818 

32,3255 

54  162 

0 

TS 

MPAC  +6 

0928 

REF 

4 

LAST 

817 

32,3256 

55 ' 253 

0 

TS 

TEMX 

0929 

KEF 

3 

LAST 

817 

32,3257 

55 ' 254 

1 

TS 

TEMY 

093  0 

REF 

3 

LAST 

818 

32,3260 

55 ' 255 

0 

TS 

TEMZ 

093  1 

REF 

8C 

LAST 

807 

32,3261 

4 4744 

0 

CS 

ONE 

0932 

REF 

5 

LAST 

806 

32,3262 

54  163 

I 

TS 

MODE 

R0933 

COMPUTE 

THE  CURRENT 

P66  VELOCITY  AND 

CERTAIN 

DISPLAYS 

0934 

KEF 

134 

LAST 

816 

32,3263 

0 6060 

1 

TC 

INTPRET 

0935 

32,3264 

65361 

0 ITRPNT1  VXSC 

POOL 

0936 

REF 

1 

32,3265 

26074 

0 

KPIP1 

093  7 

REF 

4 

LAST 

817 

32,3266 

03762 

1 

THISTPIP 

0938 

32,3267 

77625 

0 

DSU 

0939 

REF 

16 

LAST 

8 14 

12, 32  1C 

01234 

0 

PIPTIME 

0940 

i ’,.,271 

00037 

0 

STOKE 

300 

0941 

32,3272 

63271 

0 

DDV 

PDVL 

0942 

REF 

1 

32,3273 

27C57 

0 

4SECI23) 

094  3 

REF 

7 

LAST 

807 

32,3274 

01236 

1 

GDT/2 

0944 

32,3275 

74251 

1 

VSU 

VXSC 

0945 

REF 

2 

LAST 

127 

32,3276 

02616 

1 

VBI  AS 

094  6 

32,3277 

53352 

0 

VSL2 

VAD 

094  7 

KEF 

6 

LAST 

815 

32,3300 

03527 

1 

V 

094  8 

32,3301 

45455 

1 

VAD 

STADR 

0949 

32,3302 

53746 

1 

STOVL 

24D 

0950 

REF 

14 

LAST 

809 

32,3303 

03521 

1 

R 

095  1 

32,3304 

77656 

1 

UNIT 

0952 

32,3305 

00017 

1 

STORE 

140 

0953 

32,3306 

72441 

0 

DOT 

S LI 

0954 

32,3307 

0CC31 

0 

24D 

0955 

REF 

10 

LAST 

817 

32,3310 

174  74 

0 

STOOL 

HDOTD  ISP 

0956 

32,3311 

OC037 

0 

3 OD 

095  7 

32,3312 

41261 

1 

SL 

DMP 

0958 

32,3313 

20214 

1 

1 ID 

0959 

REF 

1 1 

LAST 

818 

32,3314 

03474 

0 

HDOTD ISP 

0960 

32,3315 

45215 

0 

DAD 

DSU 

096  l 

32,33  16 

0C045 

0 

360 

0962 

REF 

5 

LAST 

802 

32,3317 

02324 

0 

/LAND/ 

0963 

REF 

5 

LAST 

329 

32,3320 

17775 

1 

STODL 

HCALC1 

17:11  MAR.  19,1971 
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P66 


ZERO  LO-ORDER  MPAC  COMPONENTS 


ZERO  T EM X , TEMY,  AND  TEMZ  SO  WE  WILL 
KNOW  WHEN  RFADACCS  CHANGES  THEM. 


INDICATE  VECTOR  IN  MPAC 


PUSH  DEL V SINCE  LAST  P66  IN  2(7)M/CS  (6) 
1/10,000  IN  21-7) 


TTPIP  = T-TPIP  IN  2I28ICS 

QUOTIENT  = TTPIP/I1SFCI  IN  2(2)  (8) 

GDT/2  = VEL  IN  100  CS  IN  2(7)M/CS 

( TTPI P/1SEC) (GDT/2-VBIAS) ,2(9JM/CS  (6) 

IN  21 71M/CS 

SHIFT  YIELDS  2(7)M/CS 

IN  2I71M/CS 

(0) 

STORE  P66  VELOCITY  IN  2I71M/CS 


UNIT(R) 

P66  VELOCITY  IN  2(7)M/CS 
HDOT  FOR  NOUN  60  IN  2I71M7CS 
TTPIP  IN  2 I 28  ) CS 
DELTAH  IN  2I24)M  = 

2(11)  TTPIP  IN  2I281CS  HDOT  IN  2(7)M/CS 

DELTAH  + I R I - | LAND  I 
| R | FROM  PRECEDING  UNIT  OPERATION 


ALTITUDE  FOR  N 60  IN  2I24IM 


GAP: 
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R0964  COMPUTE  UNCORRECTEC  COMMANDED  THRUST  ACCELERATION 


096  5 

REF 

12 

LAST 

818 

32,3321 

03474 

0 

HDOTUISP 

0966 

32,3322 

56221 

0 

BDSU 

DDV 

0967 

REF 

4 

LAST 

817 

32,3323 

03645 

0 

VDGVERT 

0968 

REF 

2 

LAST 

126 

32,3324 

02536 

0 

TAUROD 

0969 

32, 3325 

51515 

1 

PDVL 

ABVAL 

0970 

REF 

e 

LAST 

818 

32, 3326 

01236 

1 

GDT/2 

0971 

32,3327 

6C471 

0 

DDV 

SR2 

097  2 

REF 

2 

LAST 

807 

32,3330 

05654 

0 

GSCALF 

0973 

32,3331 

00025 

0 

STORE 

20D 

0974 

32,3332 

43234 

0 

RTB 

DAD 

0975 

REF 

1 

32,3333 

47600 

1 

QTPROLOG 

0976 

32,3334 

45115 

0 

PDVL 

CALL 

0977 

REF 

9 

LAST 

784 

32,3335 

06503 

1 

UNITX 

0973 

REF 

5 

LAST 

600 

32,3336 

47665 

1 

*N8SM* 

0979 

32,3337 

77641 

1 

DOT 

0980 

32,3340 

OCC  17 

1 

l 40 

098  1 

32,3341 

00027 

1 

STORE 

2 2D 

0982 

32,3342 

45465 

1 

BDDV 

STADR 

0983 

REF 

4 

LAST 

807 

32,3343 

5C313 

0 

STOVL 

/AFC/ 

R0984 

COMPUTE 

MEASURED  THRUST  ACCELERATION 

0985 

REF 

7 

LAST 

818 

32,3344 

C3767 

1 

DELVROD 

0986 

32,3345 

53361 

0 

VXSC 

VAD 

098  7 

REF 

2 

LAST 

818 

32, 3346 

2 6 C 7 4 

0 

K P I P 1 

0988 

REF 

3 

LAST 

8 18 

32,3347 

02616 

1 

VBIAS 

0989 

32,3350 

65246 

1 

ABVAL 

PDDL 

0990 

REF 

5 

LAST 

818 

32, 3351 

C3762 

1 

THISTPI P 

099  1 

32, 3352 

65225 

1 

DSU 

PDDL 

0992 

REF 

3 

LAST 

798 

32,3353 

C3760 

0 

LASTTPI P 

099  3 

REF 

6 

LAST 

819 

32, 3354 

03762 

1 

THISTPI P 

0994 

REF 

4 

LAST 

819 

32,3355 

17760 

0 

STOOL 

LASTTPIP 

0995 

32,3356 

55271 

0 

DDV 

BDDV 

0996 

REF 

1 

32,3357 

25441 

1 

SHFTFACT 

099  7 

32,3360 

41325 

0 

PDDL 

DMP 

R0998 

ADD 

VELOCITY  EXTRAPOLATION  CORRECTION 

TO 

YIELD  UNLIMITED  COMMANDED 

1000 

REF 

7 

LAST 

798 

32,3361 

03611 

1 

FWEIGHT 

1001 

REF 

1 

32,3362 

25440 

0 

B IT1H 

1002 

32,3363 

56271 

0 

DDV 

DDV 

1003 

REF 

7 

LAST 

807 

32,3364 

01244 

1 

MASS 

1004 

REF 

2 

LAST 

793 

32,3365 

22006 

1 

S CAL  E FAC 

100  5 

32, 3366 

65215 

1 

DAD 

PDDL 

1006 

32,3367 

00001 

0 

OD 

1007 

32,3370 

OCC  25 

0 

2 00 

100  8 

32,3371 

45271 

1 

DDV 

DSU 

1009 

32,3372 

0GC27 

l 

22D 

17: 11  MAR.  19, 1971  FLY 


197 


PAGE  819 


USFR' S PAGE  NO.  26  E7  S3 


IN  2 ( 7IM/CS 

IN  2 ( 7IM/CS 
TAU  IN  2 ( 9 ) CS 

PUSH  (VDG-HDOT  )/TAU  IN  2(-?)M/CS/CS  (2) 

GDT/2  = VEL  IN  100  CS  IN  2(7)M/CS 
DDV  YIELDS  G IN  2 ( -A ) M /CS /CS 
100  CS  IN  2(11  ) M/C  S 
I G I IN  2 (-2  IM/CS/CS 

UP  (VDG-HDOT) /TAU  (0) 

QUICTRIG  PRESERVES  MPAC 

(VDG-HDOT) /TAU+I G I IN  2(-2)M/CS/CS  (2) 

X AXIS  IN  NB  COORDS 

TRANSFORMS  TO  SM  COORDS 

YIELDS  COS/ A OF  ANGLE  OF  X WRT  VERT 

UN  IT ( R ) 

COS/4 

YIELDS  ! ( V DG-HDOT ) /TA U+ | G | ) /CO S = (0) 

I AFC | RAW  IN  2 ( —4 ) M/C  S /C  S 


-DELV  SINCE  LAST  P66  IN  2(14)C.M/SEC 
ADD  SINCE  DELV  IS  REVERSE  SIGN 
1/10,000  IN  2 ( -7 ) 

IN  2 ( 7 ) M/C S 

PUSH  DE-BIASED  | DELV | IN  2<7)M/CS  (2) 

PUSH  PER P66  IN  2(28)CS  (4) 


REPLACE  LASTTPIP  LOADING  PER P66  (2) 

(0) 

SCALES  PERP66  TO  2 ( 1 1 ) CS 

PUSH  | AF I TN  2(-4>M/CS/CS  (2) 

THRUST  ACCELERATION 


FW  IN  2 ( 14IBTTS 
SCALES  FW  TO  2(28)RITS 

THINK  OF  DIVIDES  BEING  RFVFRSED  IN  ORDER 
IN  2 ( 16 ) KG 

SF  RESCALES  FW  TO  10,000  2(12)NEWTON 
PUSH  FW/SF/MASS+I AF|  IN  2(-4)M/CS/CS  (4) 
1 AF  | 

|G| 

I G| /COS-FW/SF/MASS-I A F | ,2  (-41M/CS/CS  (2) 
COS/4 


GAP: 

L 

1010 

101  1 

1012 

1013 

R 101  A 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

102  7 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

R 103  7 

R 103  8 

R 1 03  9 

R 1040 

R 1 04  1 

R 1042 

R1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 
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32,3373 

43205 

1 

DMP 

DAO 

(L/T) I |G l/COS-FW/SF/MASS- |AF | )+|AFC| 

REF 

2 

LAST 

126 

32,3374 

02540 

1 

L AG/TAU 

(L/T)  DIMENSIONLESS 

REF 

5 

LAST 

819 

32, 3375 

03464 

1 

/AFC/ 

32, 3376 

56325 

0 

POOL 

DDV 

PUSH  | AFC | UNLIMITED  IN  2I-4IM/CS/CS 

(4) 

LIMIT  MINFORCF/MASS 

<=  | AFC  | 

<=  MAXFORCE/MASS 

REF 

2 

LAST 

126 

32,3377 

02544 

0 

M AXFORCE 

REF 

8 

LAST 

819 

32,3400 

01244 

1 

MASS 

32, 3401 

56325 

0 

PDDL 

DDV 

(6) 

REF 

2 

LAST 

126 

32,3402 

02542 

0 

MINFORCE 

REF 

9 

LAST 

820 

32,3403 

01244 

1 

MASS 

32,3404 

44  206 

0 

PUSH 

BDSU 

18) 

32,3405 

00003 

1 

2D 

32,3406 

71240 

1 

BMN 

DLOAD 

16) 

REF 

1 

32,3407 

65415 

l 

AFCSPOT 

32,3410 

41545 

0 

DLOAD 

PUSH 

1 6) 

32, 341  l 

51021 

0 

BDSU 

B PL 

32,3412 

00003 

1 

2D 

REF 

2 

LAST 

820 

32,3413 

654  15 

1 

AFCSPOT 

32,3414 

7 7 745 

1 

DLUAD 

(4) 

32,3415 

77745 

1 AFCSPOT 

DLOAD 

(2) , (4) ,0R 

I 6) 

32,3416 

77601 

0 

SETPD 

I 2) 

32,3417 

00003 

1 

2D 

REF 

6 

LAST 

820 

32,3420 

17464 

1 

STODL 

/AFC/ 

CORRECTED  AND  LIMITED  I AFC  I 

( 0) 

32,3421 

77776 

1 ITRPNT2 

EXIT 

REF 

3C4 

LAST 

8 18 

32,3422 

52  155 

1 

DXCH 

MPAC 

FETCH  MEASURFD  THRUST  ACCEL  FOR  THROTTLE 

REF 

49 

LAST 

809 

32,3423 

0 4626 

1 

TC 

POST  JUMP 

REF 

l 

32,3424 

63514 

l 

FCADR 

THR0T66 

1HE  FCLLOWING  SUBROUTINE  REFERS  THE  X PIPA  READING  TO  THE  CENTER  OF  MASS 
BY  SUBTRACTING  THOSE  PIPA  COUNTS  PRODUCED  BY  VERTICAL  I MU  MOTION 
RELATIVE  TO  THE  CENTER  OF  MASS.  THE  SPACECRAFT  X AXIS  IS  ASSUMED 
APPROXIMATELY  VERTICAL.  THE  EQUATION  IS: 

OLDPIPAX  = OLDPIPAX  - OMEGAQ  RIMUZ 

WHERE  FLOP  I PAX  IS  THE  CURRENT  P66  PIPA  READING,  OMFGAQ  IS  THE  ATTITUDE 


RATE 

ABOUT  THE 

Q (Y) 

AXIS,  AND 

RIMUZ 

I S 

THE  Z COORDINATE 

OF  THE  IMU. 

REF 

7 

LAST 

735 

32,3425 

3 5006 

l 

DEIMUBOB  CA 

EBANK6 

REF 

39 

LAST 

815 

32,3426 

54  003 

0 

TS 

EBANK 

REF 

l 

E6, 1 775 

EBANK= 

END-E6 

REF 

10 

LAST 

756 

32,3427 

4 1422 

0 

CS 

OMEGAQ 

PITCH 

RATE  IN  UNITS  45 

DEG/ SEC 

REF 

20 

LAST 

810 

32,3430 

24  006 

1 

INCR 

BRANK 

REF 

2 

LAST 

815 

E 7 , 1777 

EBANK= 

END-E7 

32,3431 

0 0006 

1 

EXTEND 

REF 

1 

32,3432 

7 3442 

1 

MP 

RIMUZ 

IMU  Z 

IN  UNITS  ( 190/P  I 

45  ) 2(14) 

CM 

REF 

5 

LAST 

817 

32,3433 

27' 763 

0 

ADS 

OLDPIPAX 

CURRENT  P66  PIPA  X IN 

UNITS  2 ( 14) 

CM/SEC 

REF 

195 

LAST 

8 10 

32,3434 

0 0C02 

0 

TC 

Q 

GAP: 
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F 7 S3 


R 1 054 

CONSTANTS  FOR 

P66 

1055 

REF  2 LAST 

234 

32,3435 

1056 

32,3436 

105  7 

32,3437 

1058 

32,3440 

1058 

32,3441 

1060 

32,3442 

02C3  7 

1 

I DLADR 

GENADR 

DAPIDLER 

00053 

1 

GHZ 

DEC 

1.62292  E 

COCOl 

0 

BIT1H 

OCT 

00001 

00000 

1 

SHFTF ACT 

2DEC 

1 B—  1 7 

04000 

0 

0 C 1 4 3 

1 

R IMUZ 

DEC 

99.486  R- 

-4  B + 4 GRAVITY  IN  2(-4>M/CS/CS 

MUST  PRECEDE  A ZERO 

SCALES  P66  PEPIOD  TO  2(11  ICS 

14  1.2667  M IN  UNITS  (180/PI  45) 


2(14)  CM 
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P 106  1 
R1063 

REDESIGNATOR 

TRAP 

R1066 

ENC 

INSERT 

1067 

11,2302 

BANK 

l 1 

106  8 

REF 

1 

1 L , 2000 

SETLOC 

F 2DPS*1 1 

1069 

1 1,2302 

BANK 

1070 

REF 

1 

COUNT* 

$ $/F2DPS 

1071 

RFF 

A 

LAST 

57  1 

11,2302 

56  C16 

0 

PITFALL 

XCH 

BANKRUPT 

1072 

11,2303 

0 0006 

1 

EXTEND 

1073 

REF 

A 

LAST 

571 

1 1.230A 

22  C 1 2 

1 

QXCH 

QRUPT 

107  A 

REF 

A 

LAST 

736 

11,2305 

0 5323 

0 

TC 

CHECKMM 

1075 

1 1 ,2306 

00100 

0 

DEC 

6 A 

1076 

REF 

1 7 

LAST 

576 

LI, 2307 

1 5272 

1 

TCF 

RESUME 

1077 

1 1,2310 

0 0006 

1 

EXTEND 

1078 

REF 

4 

LAST 

797 

11,2311 

00  031 

0 

READ 

CHAN31 

1079 

11,2312 

A CCOO 

0 

COM 

1 

REF 

l 

11,2313 

7 2401 

1 

MASK 

ALLAB ITS 

108  1 

REF 

A 

LAST 

16A 

1 1 , 2 31 A 

55' 6A7 

1 

TS 

ELVIRA 

1082 

REF 

5 A 

LAST 

805 

11,2315 

3 A 7 A3 

0 

CAF 

TWO 

1083 

REF 

3 

LAST 

157 

1 L , 2 

55' 6A6 

0 

TS 

ZERLINA 

1 08  A 

REF 

13 

LAST 

681 

11,2317 

3 A 7A7 

1 

CAF 

FIVE 

1005 

REF 

23 

LAST 

816 

11,2320 

0 5175 

1 

TC 

TWIDDLE 

1086 

REF 

1 

11,2321 

02326 

1 

ADRES 

REDESMON 

1087 

REF 

18 

LAST 

822 

11,2322 

1 5272 

1 

TCF 

RESUME 

R 1 08  8 

REDESIGNATION 

MONITOR 

( INITIATED  BY 

PITFALL  ) 

1089 

REF 

A 

LAST 

822 

11,2323 

55 ' 6A6 

0 

PREM0N1 

TS 

ZERLINA 

L09 

RFF 

12 

LAST 

575 

1 l , 2324 

3 4750 

1 

PR EM ON 2 

CAF 

SEVEN 

109  1 

REF 

5 

LAST 

777 

11,2325 

0 5226 

1 

TC 

V ARDELAY 

1092 

11,2326 

0 CC06 

1 

REDESMON 

EXTEND 

109? 

REF 

5 

LAST 

822 

11,2327 

00  C31 

0 

READ 

CHAN31 

109  A 

11,2330 

A COOO 

0 

COM 

1095 

REF 

2 

LAST 

822 

11,2331 

7 2401 

1 

MASK 

ALLAB  ITS 

1096 

REF 

5 

LAST 

822 

11,2332 

5 7 ' 6A7 

0 

XCH 

ELVIRA 

109  7 

REF 

1 1A 

LAST 

808 

11,2333 

5 A 001 

l 

TS 

L 

1098 

REF 

6 

LAST 

82  2 

11,2334 

11 ' 6 47 

1 

CCS 

ELVIRA 

l 1 

REF 

1 

1 1,2335 

1 2324 

1 

TCF 

PREM0N2 

L 100 

REF 

115 

LAST 

822 

11, 2336 

10  001 

1 

CCS 

L 

1101 

REF 

1 

11,2337 

1 2347 

l 

TCF 

COUNT'EM 

1 102 

REF 

5 

LAST 

822 

11,2340 

11 ' 646 

0 

CCS 

ZERLINA 
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IF  NOT  IN  P64,  NO  REASON  TO  CONTINUE 


DO  ANY  BITS  APPEAR  THIS  PASS? 

Y:  CONTINUE  MONITOR 

N:  ANY  LAST  PASS? 

Y:  COUNT  'EM,  RESET  RUPT,  TERMINATE 
N:  HAS  ZERLINA  REACHED  ZERO  YFT? 
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1 103 

REF 

1 

11,2341 

L 

2323 

0 

TCF 

PREM0N1 

1104 

REF 

5 

LAST 

812 

11,2342 

0 

6 C40 

0 

RESETRPT 

TC 

C13STALL 

1 105 

REF 

27 

LAST 

812 

11,2343 

3 

4731 

0 

CAF 

B IT12 

1106 

1 1,2344 

0 

CC06 

1 

EXTEND 

1107 

REF 

14 

LAST 

812 

11,2345 

05 

013 

0 

WOR 

C HAN  1 3 

1108 

REF 

55 

LAST 

816 

11,2346 

1 

5263 

1 

TCF 

TASKOVER 

110  9 

REF 

30 

LAST 

797 

11,2347 

3 

4730 

1 

COUNT' EM 

CAF 

B I T 1 3 

tuo 

1 1,2350 

0 

0006 

1 

EXTEND 

1111 

REF 

6 

LAST 

822 

11,2351 

02 

031 

L 

RAND 

C HAN  3 1 

1112 

11,2352 

0 

C006 

1 

EXTEND 

1113 

REF 

1 

11,2353 

1 

2342 

1 

BZF 

RESETRPT 

1114 

REF 

1 16 

LAST 

822 

11,2354 

3 

0C01 

0 

CA 

L 

1115 

REF 

1 

11,2355 

7 

4737 

1 

MASK 

-AZBIT 

1116 

REF 

222 

LAST 

817 

11,2356 

10 

000 

0 

CCS 

A 

1117 

REF 

1 

11,2357 

4 

2402 

1 

-AZ 

CS 

AZEACH 

1113 

REF 

6 

LAST 

812 

11,2360 

27 

' 644 

1 

ADS 

AZ  INCR1 

1119 

REF 

117 

LAST 

823 

11,2361 

3 

0001 

0 

CA 

L 

1120 

REF 

1 

11,2362 

7 

4 740 

1 

MASK 

+AZBIT 

1121 

REF 

223 

LAST 

823 

11,2363 

10 

COO 

0 

CCS 

A 

1122 

REF 

2 

LAST 

823 

11,2364 

3 

2402 

0 

+ AZ 

CA 

AZEACH 

1123 

REF 

7 

LAST 

823 

11,2365 

27 

• 644 

1 

ADS 

A Z I NCR  1 

1124 

REF 

118 

LAST 

823 

11,2366 

3 

0001 

0 

CA 

L 

1125 

REF 

1 

11,2367 

7 

4 744 

0 

MASK 

-ELBIT 

1126 

REF 

2 24 

LAST 

823 

11,2370 

10 

000 

0 

CCS 

A 

1127 

REF 

1 

1 1 , 2371 

4 

2402 

1 

-EL 

CS 

ELEACH 

1128 

REF 

5 

LAST 

812 

11,2372 

27 

' 645 

0 

ADS 

ELI  NCR l 

1129 

REF 

1 19 

LAST 

823 

1 1,2373 

3 

0001 

0 

CA 

L 

1130 

REF 

1 

11,2374 

7 

4743 

1 

MASK 

+ELBIT 

113  1 

REF 

225 

LAST 

823 

11,2375 

1C 

COO 

0 

CCS 

A 

1132 

RFF 

2 

LAST 

823 

11 ,2376 

3 

2402 

0 

+ EL 

CA 

ELEACH 

1133 

REF 

6 

LAST 

823 

11,2377 

27 

1 645 

0 

ADS 

ELINCR1 

1134 

REF 

2 

LAST 

823 

11,2400 

1 

2342 

1 

TCF 

RESETRPT 

R 11 3 5 THESE  EQUIVALENCIES  ARE  BASED  ON  GSOP  CHAPTER  A,  REVISION  16  OF  P64LM 


1 136 

REF 

38 

LAST 

718 

4743 

+ELBI T 

= 

BIT2 

1137 

REF 

39 

LAST 

755 

4 744 

-ELBIT 

= 

8 IT  1 

1138 

REF 

37 

LAST 

817 

4740 

+AZBIT 

= 

B IT5 

1139 

REF 

40 

LAST 

792 

4737 

-AZBIT 

_ 

B IT6 
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USER' S PAGE  NO.  30  E7  S3 

N:  DIMINISH  ZERLINA,  CONTINUE 
Y:  RF  SET  RUPT , TERMINATE 


ARE  WE  IN  ATTITUDE-HOLD? 


YES:  SKIP  REDES  I GNAT  I CN  LOGIC. 

NO 


-PITCH 


+ P ITCH 


GAP: 

L 

1 1 A 0 


L 1 A 1 


1 142 


1157 
1 158 

1159 

1 160 

Rlltl 
R 1163 
R 1 16  A 

Ri  166 
R 1 16  7 
R 1 169 

R l 17  1 

A 1 1 7 3 
A 1 1 7 A 
A 1 L 7 5 

A 1 1 76 
A 1 1 7 7 
A1 178 
Al  179 

Rl  180 
R l 182 
RllbA 

Rl  185 
R 118  7 
Rl  189 
Rl  191 

Rl  19  3 

Rl  195 

R 1 19  7 
R 1 199 
R 1 20  1 
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LUNAR 

l ANDING 

GUIDANCE  EQUAT 

I CNS 

USER  ' 

11,2401 

00063  l 

A LL4  8 ITS  OCT 

00063 

11,2402 

00436  0 

AZEACH  DEC 

.01746 

ONE 

DEGREE 

REF 

3 LAST 

823 

11,2402 

ELEACH 

AZEACH 

ONE 

DEGREE 

REF 

2 LAST 

40 

31,3545 

31,2000 

31,3545 

BANK 

SETLOC 

BANK 

3 1 

F 2DP  S*3 1 

REF 

A LAST 

799  TO 

815: 

525 

567* 

COUNT* 

$ I/F2DP  S 

.197  PAGE  82A 
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DOUBLE  PRECISION  ROOT  FINDER  SUBROUTINE  (BY  ALLAN  KLUMPP) 

a*#******##*  *=*  *$$**!}:**  ***********************************  **  *******$** 

N N-l 

ROOTPSRS  FINDS  ONE  RCOT  OF  THE  POWER  SERIES  AX  +A  X + ...  + A X + A 

N N- 1 10 


USING  NEWTON'S  MtTHOD  STARTING  WITH  AN  INITIAL  GUESS  FOR  THE  ROOT.  THE  ENTERING  DATA  MUST  BF  AS  FOLLOWS: 


A 

SP 

LOC-3 

ADRES  FOR  REFERENCING  PWR  COF  TAB  L 

L 

SP 

N-l 

N IS  THE  DEGREE  OF  THE  POWER  SERIES 

MPAC 

DP 

X 

INITIAL  GUESS  FOR  ROOT 

L0C-2N 

DP 

A ( 0 ) 

LOC 

DP 

AIN) 

LOC+2 

SP 

PRECROOT 

PREC  RQD  OF  ROOT  (AS  FRACT  OF  1ST  GUESS) 

THE  DP 

RESULT  IS  LEFT 

IN  MPAC 

UPON  EXIT,  AND  A 

SP  COUNT 

OF  THF  ITERATIONS  TO  CONVERGENCE  IS  LEFT  IN  MPAC+2. 

RETURN 

IS  NORMALLY  TO 

LOCITC 

ROOTPSRS ) +3 . IF 

ROOTPSRS 

FAILS  TO 

CONVERGE  IN  8 PASSES,  RETURN  IS  TO  LOC+1  AND 

OUTPUTS  ARE  NOT  TO  BE  TRUSTED. 


PRECAUTION:  ROOTPSRS  MAKES  NO  CHECKS  FOR  OVERFLOW  OR  FOR  IMPROPER  USAGE.  IMPROPER  USAGE  COULD 
PRECLUDE  CONVERGENCE  OR  REQUIRE  EXCESSIVE  ITERATIONS.  AS  A SPECIFIC  EXAMPLE,  ROOTPSRS  FORMS  A DERIVATIVE 
COEFFICIENT  TABLE  BY  MULTIPLYING  EACH  All)  BY  I,  WHERE  I RANGES  FROM  1 TO  N.  IF  AN  ELEMENT  OF  THE  DERIVATIVE 
COEFFICIENT  TABLE  = 1 OR  > 1 IN  MAGNITUDE,  ONLY  THE  EXCESS  IS  RETAINED.  ROOTPSRS  MAY  CONVERGE  ON  THF  CORRECT 
ROOT  NONETHELESS,  BUT  IT  MAY  TAKE  AN  EXCESSIVE  NUMBER  OF  ITERATIONS.  THEREFORE  THE  USER  SHOULD  RFCOGNIZE: 

1.  USER'S  RESPONSIBILITY  TO  ASSURE  THAT  I X A(I)  < 1 IN  MAGNITUDE  FOR  ALL  I. 

2.  USER'S  RESPONSIBILITY  TO  ASSURE  OVERFLOW  WILL  NOT  OCCUR  IN  EVALUATING  EITHER  THE  RESIDUAL  OR  THF  DERIVATIVE 
POWER  SERIES.  IHIS  OVERFLOW  WOULD  8E  PRODUCED  BY  SUBROUTINE  POWRSERS,  CALLED  BY  ROOTPSRS,  AND  MIGHT  NOT 
PRECLUDE  EVENTUAL  CONVERGENCE. 
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L LUNAR  LANDING  GUIDANCE  EQUATICNS  USER'S  PAGE  NO.  32  F7  S3 

R 1 20  2 3.  AT  PRFSENT,  ERASABLE  LOCATIONS  ARE  RESERVED  ONLY  FOR  N UP  TO  5.  AN  N IN  EXCESS  OF  5 WILL  PRODUCE  CHAOS. 

R1204  ALL  ERASABLES  USED  BY  ROOTPSRS  ARE  UNSWITCHED  LOCATED  IN  THE  REGION  FROM  MPAC-33  OCT  TO  MPAC+7. 

R 120 6 4.  THE  ITERATION  COUNT  RETURNED  IN  MPAC+2  MAY  BE  USED  TO  DETECT  ABNORMAL  PERFORMANCE. 


A 1 20  8 STORE  ENTERING  DATA,  INITLIZE  ERASABLES 


1209 

31,3545 

0 C006 

L 

ROOTPSRS 

EXTEND 

1 2 L 0 

REF 

1 

31,3546 

22  132 

1 

QXCH 

RETROOT 

RETURN  ADRES 

121  1 

REF 

1 

31,3547 

54  117 

1 

TS 

PWRPTR 

PWR  TABL  POINTER 

1212 

REF 

3 C 5 

LAST 

820 

31,3550 

52  160 

1 

DXCH 

MPAC 

+3 

PWR  TA8L  ADRES,  N-l 

1213 

REF 

1 

31,3551 

3 3670 

0 

CA 

DERTABLL 

1214 

REF 

1 

31,3552 

54  141 

1 

TS 

DERPTR 

DER  TARL  POINTFR 

1215 

REF 

3C6 

LAST 

825 

31,3553 

54  161 

0 

TS 

MPAC 

+ 5 

DER  TABL  ADRES 

1216 

REF 

3 C 7 

LAST 

825 

31,3554 

10  160 

1 

CCS 

MPAC 

+ 4 

NO  POWER  SERIES  OF  DEGREE  1 OR  LESS 

1217 

REF 

3C8 

LAST 

825 

31,3555 

54  162 

0 

TS 

MPAC 

+ 6 

N-2 

1218 

REF 

156 

LAST 

818 

31,3556 

3 4746 

0 

CA 

ZERO 

MODE  USED  AS  ITERATION  COUNTER.  MODE 

1219 

REF 

6 

LAST 

818 

31,3557 

54  163 

1 

TS 

MODE 

MUST  BE  POS  SO  ABS  WON'T  COMP  MPAC+3  ETC 

A 1220 

COMPUTE  CRITERION  TO  STOP  ITFRATING 

1221 

31  ,3560 

0 0006 

1 

EXTEND 

1222 

REF 

309 

LAST 

825 

31,3561 

3 0155 

0 

DC  A 

MPAC 

FETCH  ROOT  GUESS,  KEEPING  IT  IN  MPAC 

122  3 

REF 

1 

31,3562 

52  127 

1 

DXCH 

ROOTPS 

AND  IN  ROOTPS 

1224 

REF 

310 

LAST 

825 

31 ,3563 

50  157 

1 

INDEX 

MPAC 

+ 3 

PWR  TABL  ADRES 

1225 

31,3564 

3 0005 

1 

CA 

5 

PRECROOT  TO  A 

1226 

REF 

8 

LAST 

477 

31,3565 

0 7330 

0 

TC 

SHORTMP 

YIELDS  DP  PRODUCT  IN  MPAC 

1227 

REF 

1 

31 ,3566 

0 4 704 

0 

TC 

USPRCADR 

1228 

REF 

1 

31,3567 

01226 

0 

CADR 

ABS 

YIELDS  ABVAL  OF  CRITERION  ON  DX  IN  MPAC 

1229 

REF 

3 1 1 

LAST 

825 

31 ,3570 

52  155 

1 

DXCH 

MPAC 

1230 

REF 

1 

31,3571 

52  125 

0 

DXCH 

DXCR IT 

CRITERION 

A 123  1 

SET  UP  DER  COF  TABL 

1232 

31,3572 

0 0006 

1 

EXTEND 

1233 

REF 

2 

LAST 

825 

31,3573 

5 0117 

0 

INDFX 

PWRPTR 

1234 

31,3574 

3 0004 

0 

DC  A 

3 

1235 

RFF 

312 

LAST 

825 

31 ,3575 

52  155 

1 

DXCH 

MPAC 

A ( N ) TO  MPAC 

1236 

REF 

3 13 

LAST 

825 

31,3576 

3 0160 

0 

CA 

MPAC 

+ 4 

N-l  TO  A 

1237 

REF 

1 

31,3577 

54  140 

0 

DERCLOGP 

TS 

PWRCNT 

LOOP  COUNTER 

1238 

REF 

81 

LAST 

818 

31,3600 

6 4744 

1 

AD 

ONE 

1239 

REF 

1 

31,3601 

0 7337 

1 

TC 

DMPNSUB 

YIELDS  DERCOF  = I X All)  IN  MPAC 

1240 

31,3602 

0 0006 

1 

EXTEND 

124  l 

RFF 

3 

LAST 

825 

31 , 3603 

5 0117 

0 

INDEX 

PWRPTR 

1242 

31 ,3604 

3 CC02 

0 

DC  A 

1 

124  3 

REF 

314 

LAST 

825 

31 ,3605 

52  155 

1 

DXCH 

MPAC 

A ( I — 1 ) TO  MPAC,  FETCHING  DERCOF 

1244 

REF 

2 

LAST 

825 

31,3606 

50  141 

0 

INDEX 

DERPTR 

1245 

31,3607 

52  004 

1 

DXCH 

3 

DERCOF  TO  DER  TABL 
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1246 

REF 

55 

LAST 

822 

31, 3610 

1247 

REF 

4 

LAST 

825 

3 L , 36 1 1 

1248 

REF 

56 

IASI 

826 

31,3612 

1249 

REF 

3 

LAST 

825 

31,3613 

1250 

REF 

2 

LAST 

825 

31,3614 

1251 

REF 

1 

31,3615 

A 1 252 

1253 

31,3616 

1254 

REF 

2 

LAST 

e25 

31,3617 

1255 

REF 

3 15 

LAST 

825 

31 ,3620 

1256 

31,3621 

1257 

REF 

3 16 

LAST 

826 

31,3622 

1258 

REF 

1 

31,3623 

1259 

31,3624 

1260 

REF 

3 

LAST 

826 

31,3625 

126  l 

REF 

3 17 

LAST 

826 

31,3626 

1262 

REF 

75 

LAST 

810 

31,3627 

1263 

31,3630 

1264 

REF 

318 

LAST 

826 

31,3631 

1265 

REF 

2 

LAST 

826 

31,3632 

1266 

REF 

2 

LAST 

82  5 

31,3633 

1267 

REF 

l 

31,3634 

1268 

31,3635 

1 2 - 

REF 

319 

LAST 

826 

31, 3636 

1270 

REF 

4 

LAST 

826 

31 , 3637 

127  l 

REF 

3 

LAST 

826 

31,3640 

1272 

REF 

2 

LAST 

825 

31,3641 

1273 

31,3642 

1274 

REF 

2 

LAST 

825 

31,3643 

12  7 5 

REF 

320 

LAST 

826 

31 , 3644 

1276 

REF 

7 

LAST 

825 

31,3645 

1277 

REF 

36 

LAST 

816 

31, 3646 

1278 

REF 

226 

LAST 

823 

31,3647 

127v 

REF 

2 

LAST 

825 

31,3650 

1 2 ; 

REF 

8 

LAST 

826 

31,3651 

1281 

REF 

321 

LAST 

826 

31,3652 

1282 

REF 

1 

31,3653 

1283 

REF 

1 

31,3654 

1284 

REF 

1 

31,3655 

1285 

REF 

322 

LAST 

826 

31 ,3656 

1286 

REF 

2 

LAST 

826 

31,3657 

1287 

REF 

2 

LAST 

826 

31,3660 

4 4743 

1 

cs 

TWO 

26  117 

1 

ADS 

PWRPTR 

4 4 743 

1 

CS 

TWO 

26  141 

1 

ADS 

DERPTR 

10  140 

0 

CCS 

PWRCNT 

1 3577 

0 

TCF 

DERCLOOP 

0 0006 

1 

R COT  L OOP 

EXTEND 

3 0127 

0 

DC  A 

ROOTPS 

52  155 

1 

DXCH 

MPAC 

0 0006 

1 

EXTEND 

3 0162 

1 

DC  A 

MPAC 

0 7236 

1 

TC 

POWRSERS 

0 0006 

1 

FXTEND 

3 C 127 

0 

DC  A 

ROOTPS 

52  155 

1 

DXCH 

MPAC 

52  131 

0 

DXCH 

BUF 

0 0006 

1 

EXTEND 

3 0160 

0 

DC  A 

MPAC 

0 7236 

1 

TC 

POWRSERS 

0 4 704 

0 

TC 

USPRCADR 

0C353 

1 

CADR 

ODV/BDDV 

0 C006 

1 

EXTEND 

4 C 155 

1 

DCS 

MPAC 

20  127 

1 

DAS 

ROOTPS 

0 4 704 

0 

TC 

USPRCADR 

01226 

0 

CADR 

ABS 

0 0006 

1 

EXTEND 

4 C 125 

0 

DCS 

DXCR  IT 

20  155 

l 

DAS 

MPAC 

3 C 163 

0 

CA 

MODE 

7 4741 

0 

MASK 

B IT4 

10  000 

0 

CCS 

A 

0 C 132 

l 

BADROOT 

TC 

R ETROOT 

24  163 

0 

I NCR 

MODE 

10  154 

0 

CCS 

MPAC 

1 3616 

1 

TCF 

ROOT  LOOP 

1 3656 

0 

TCF 

TESTLODX 

1 3662 

1 

TCF 

ROOTSTOR 

10  155 

1 

TEST  LODX 

CCS 

MPAC 

1 3616 

1 

TCF 

R OOTLOQP 

1 3662 

1 

TCF 

ROOTSTOR 
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USER'S  PAGE  NO.  33  E7  S3 

DECREMENT  PWR  POINTER 
DECREMENT  DER  POINTER 


CONVERGE  ON  ROOT 


FETCH  CURRENT  ROOT 
LEAVE  IN  M P AC 

LOAD  A,  L WITH  DER  TABL  ADRES,  N- 2 
YIELDS  DERIVATIVE  IN  MPAC 


CURRENT  ROOT  TO  MPAC,  FETCHING  DERIVTIVF 
LEAVE  DERIVATIVE  IN  BUF  AS  DIVISOR 

LOAD  A,  L WITH  PWR  TABL  ADRES,  N- 1 
YIELDS  RES  IDUAL  IN  MPAC 


Y I ELDS  -DX  IN  MPAC 


FETCH  DX,  LEAVING  -DX  IN  MPAC 
CORRECTED  ROOT  NOW  IN  ROOTPS 


YIELDS  ABSIDX  ) IN  MPAC 


ABS(DX)-ABSIDXCRIT)  IN  MPAC 


KLUMPP  SAYS  GIVE  UP  AFTER  FIGHT  PASSES 


INCREMENT  ITERATION  COUNTER 
TEST  HI  ORDER  DX 


TEST  LO  ORDER  DX 
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USER' S PAGE  NO.  34 

E 7 S3 

1288 

REF 

3 

LAST 

826 

31,3661 

1 3662 

1 

TCF 

ROOTSTOR 

1289 

REF 

5 

LAST 

826 

31 , 3662 

52  127 

1 

ROOTSTOR 

DXCH 

ROOTPS 

1290 

REF 

323 

LAST 

826 

31,3663 

52  155 

1 

DXCH 

MP  AC 

1291 

REF 

9 

LAST 

826 

31 ,3664 

3 0163 

0 

CA 

MODE 

1292 

REF 

324 

LAST 

827 

31,3665 

54  156 

1 

TS 

MPAC  +2 

STORE  SP  ITERATION  COUNT 

IN  MPAC+2 

1293 

REF 

3 

LAST 

826 

31,3666 

50  132 

1 

INDEX 

RETROOT 

1294 

31,3667 

1 0C02 

1 

TCF 

2 

1295 

REF 

1 

31,3670 

OC  147 

0 

DERTABLL 

ADRES 

DERCOFN  -3 

R1296 

* * * * * ajs  * * * # # # s{c  * 

***  *** 

******** 

***** * ** 

*****  ****** 

***** 

****$#>):****  *#*={=**##*##  *$***$*#5(1 

R 129  8 

TRASH  Y 

LITTLE 

SUBROUT INES 

R1299 

** ** * * *** ************* ** ************ 

**************** 

******  **  ************  **********  ***  * **  *****  ******************* 

1301 

REF 

157 

LAST 

825 

31,3671 

3 4746 

0 Z FROM  ID 

CAF 

ZERO 

ROUTINE  TO  ZERO  THE  MIDDLE 

COMPONENT 

130  2 

REF 

325 

LAST 

827 

31,3672 

54  157 

0 

TS 

MPAC 

+ 3 

OF  A VECTOR  IN  MPAC.  " 

TCF  DANZIG" 

1303 

REF 

326 

LAST 

827 

31,3673 

54  160 

1 

TS 

MPAC 

+ 4 

COULD  BE  A "TC  Q"  AT  THE 

EXPENSE  OF 

1304 

REF 

1 

31 , 3674 

1 6102 

0 

TCF 

DANZ  IG 

A TINY  AMOUNT  OF  TIME. 

1305 

1306 

*REF 

REF 

227 

1 

LAST 

826 

31,3675 
31  ,3676 

50  000 
4 2415 

1 

1 

I NTPRETX  INDEX 
CS 

A 

TARGTDEX 

SFT  XI  ON  THE  WAY  TO  THE  INTERPRETER 

1307 

KEF 

23 

LAST 

806 

31,3677 

50  120 

1 

INDEX 

FIXLOC 

130  8 

REF 

22 

LAST 

773 

31,3700 

54  046 

1 

TS 

XI 

1309 

REF 

135 

LAST 

818 

3 1,3  701 

1 6060 

0 

TCF 

I NTPRET 

1310 

REF 

15 

LAST 

808 

31,3702 

3 1642 

0 

TDISPSET  CA 

TTF/8 

131 1 

31,3703 

0 0006 

1 

EXTEND 

1312 

REF 

1 

31,3704 

7 4741 

0 

MP 

TSCAL INV 

1313 

REF 

4 

LAST 

328 

31,3705 

5 3 ' 476 

1 

DXCH 

TTFDISP 

1314 

REF 

9 

LAST 

815 

31,3706 

3 5005 

1 

CA 

EBANK5 

TREDFS  BECOMES  ZERO  TWO  PASSES 

1315 

REF 

40 

LAST 

820 

31,3707 

54  C03 

0 

TS 

EBANK 

BEFORE  TCGFAPPR  IS  REACHED 

1316 

REF 

2 

LAST 

125 

E5, 1454 

EB ANK= 

TCGFAPPR 

131  7 

RFF 

3 

LAST 

827 

31,3710 

3 1454 

0 

CA 

TCGFAPPR 

1318 

REF 

21 

LAST 

820 

31,3711 

24  006 

1 

INC  R 

BBANK 

1319 

REF 

22 

LAST 

827 

31,3712 

24  006 

1 

INCR 

BBANK 

1320 

REF 

16 

LAST 

827 

E7, 1642 

EB ANK= 

TTF/8 

1321 

REF 

17 

LAST 

827 

31,3713 

6 1642 

0 

AD 

TTF/8 

1322 

31,3714 

0 0006 

1 

EXTEND 

1323 

REF 

1 

31,3715 

7 3 7 63 

1 

MP 

TREDESCL 

132  4 

REF 

1 

31,3716 

6 3760 

0 

AD 

-DEC  103 

132  5 

REF 

2 

LAST 

379 

31,3717 

6 4726 

0 

AD 

NEGMAX 

1326 

REF 

120 

LAST 

823 

31,3720 

54  001 

1 

TS 

L 

132  7 

REF 

121 

LAST 

827 

31,3721 

4 C001 

1 

CS 

L 

1328 

REF 

122 

EAST 

827 

31,3722 

6 0001 

0 

AD 

L 

132  9 

REF 

1 

31,3723 

6 3762 

1 

AD 

+DEC99 

1330 

REF 

22 

LAST 

810 

31,3724 

6 4724 

1 

AD 

PGSMAX 

GAP: 
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1331 

REF 

4 

LAST 

812 

31,3725 

55 1 666 

l 

TS 

TREDES 

1332 

REF 

5 

LAST 

828 

31,3726 

4 1666 

1 

CS 

TREDES 

133  3 

REF 

6 

LAST 

828 

31,3727 

27' 666 

1 

ADS 

TREDES 

133  A 

REF 

196 

LAST 

820 

31,3730 

0 C002 

0 

TC 

Q 

1335 

REF 

2 

LAST 

461 

31,3731 

0 5644 

1 

1 406  POO 

TC 

POOOOO 

133  6 

31,3732 

21406 

0 

OCT 

2 1406 

1337 

REF 

31 

LAST 

814 

31,3733 

0 5571 

1 

1406ALM 

TC 

ALARM 

1338 

31  ,3  734 

01406 

1 

OCT 

0 1406 

1339 

REF 

1 

31, 3735 

1 3402 

0 

TC  F 

P,  ATESTOP 

R 1340 

DESCENT 

OVERFLOW  SUBROUT INE 

1341 

31,3736 

0 0006 

l 

OVFDESC 

EXTFND 

1342 

REF 

1 

31,3737 

23*456 

1 

QXCH 

OVFRET 

134  3 

REF 

32 

LAST 

828 

31,3740 

0 5571 

1 

TC 

ALARM 

1344 

31,3741 

01410 

0 

OCT 

01410 

134  5 

31,3742 

0 0004 

0 

INHINT 

134  6 

REF 

40 

LAST 

811 

31,3743 

0 4665 

0 

TC 

I BNKC ALL 

134  7 

REF 

6 

LAST 

814 

31,3744 

40166 

1 

FCADR 

STOPRATE 

134  8 

31,3745 

0 0003 

1 

RELINT 

1349 

REF 

158 

LAST 

827 

31, 3746 

3 4746 

0 

CA 

ZERO 

1350 

REF 

3 

LAST 

815 

31,3747 

54  121 

1 

TS 

OVFIND 

135  1 

REF 

2 

LAST 

826 

31,3750 

0 1456 

1 

TC 

OVFRET 

17:11  MAR.  19,1971  FLY 
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828 


MUST  USE  INHINT,  I BNKC ALL , RELINT 
BECAUSE  DAP  COULO  INTERRUPT  STOPRATF  AND 
BECAUSE  HE  COME  FROM  P66HZ  VIA  BANKCALL 


GAP: 

L 

PL352 

R1353 

R 1 35  5 

R1356 

135  3 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

R 1366 

R 1 36  8 

R 1 36  9 

1371 

1372 

1373 

1374 

1375 

1376 

R 137  7 

R 1 379 

R 1 38  0 

1382 

1383 

1384 

1385 

1386 

1387 

138  8 
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USER'S  PAGE  NO. 


36 


E7  S3 


*********************************************************  ************  ********  *****  **  *************  *************** 
SPECIALIZED  "PHASCHNG"  SUBROUTINE 

*******************************  **********************  *********************************************************** 


REF 

1 

m 

OJ 

O 

EBANK 

= PHSNAME2 

REF 

2 

LAST 

234 

31,3751 

3 5000 

1 

F ASTCHNG 

CA 

EBANK3  SPECIALIZED 

•PHASCHNG’  ROUTINE 

REF 

41 

LAST 

827 

31,3752 

56  C 03 

1 

XCH 

EBANK 

REF 

123 

LAST 

827 

31,3753 

52  002 

1 

DXCH 

L 

REF 

1 

31,3754 

55 • 442 

0 

TS 

PHSNAME3 

REF 

42 

LAST 

829 

31,3755 

22  003 

1 

LXCH 

EBANK 

REF 

3 

LAST 

794 

E7, 1621 

EBANK 

= E2DPS 

REF 

228 

LAST 

827 

31,3756 

0 COOO 

1 

TC 

A 

# 3*s  ije  s£ 

* ***  ****** 

:***** 

********************************************************** 

PARAMETER  TABL 

E INDIRECT  ADDRESSES 

## 

:£:{«$#  5$: 

*********** 

:***** 

******************  *********** 

****** ********  *************** 

REF 

2 

LAST 

125 

E5, 1402 

RDG 

= 

RBRFGX 

REF 

2 

LAST 

125 

E 5 , 1412 

VDG 

= 

VBRFGX 

REF 

2 

LAST 

125 

E5, 1422 

ADG 

= 

ABRFGX 

REF 

2 

LAST 

125 

E5, 1432 

VDG2TTF 

= 

VBRFG* 

REF 

2 

LAST 

125 

E 5 , 1436 

ADG2TTF 

= 

ABRFG* 

RFF 

2 

LAST 

125 

E5 , 1442 

J0G2TTF 

= 

J BRFG  * 

##  3{c3jc  ##  jJcsJejfcjjcsJs  $$$  £ jjcaje#*  ^cj{c  # 

# ###  .aSf  S#e  a{e  ajc  ajc*  $$$$  a^^^cajca^aje^c^c^sajsajcafc  £ 

LUNAR  LANDING 

CONSTANTS 

##  * ❖ 3{‘  # **  Jit*#######  $$$$  ^sjesjcajt  a{« j{c  j{e  s{« sjesjojc  sjcsjt  sjeajs  s}c  # 

REF 

7 

LAST 

805 

31,3757 

01565 

0 

TA6LTTFL 

ADRES 

TABLTTF  +3  ADDRESS  FOR 

REFERENCING  TTF  TABLE 

REF 

28 

LAST 

823 

4731 

TTFSCALE 

= 

B I T 1 2 

REF 

37 

LAST 

826 

4741 

TSCALINV 

= 

8IT4 

31  ,3760 

77630 

1 

- DEC  1 03 

DEC 

- 103 

31,3761 

00155 

0 

P64DB 

OCT 

00155  0.3  DEGREES 

SCALED  AT  CDU  SCALING 

31,3762 

OC  143 

1 

+ DEC  9 9 

DEC 

+ 99 

31,3763 

75  340 

1 

TREDESCL 

DEC 

- .08 
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1389 


1390 


1391 


1392 


1393 
l 39  A 
139  5 

1396 

139  7 

1398 

1399 

1400 

1400 

140  1 

1401 

1402 

1402 
140  3 

1403 

1404 
1404 

R 1 40  5 
R 1407 


LUNAR  LANDING  GUIDANCE  EQUATIONS 

USER'S  PAGE  NO. 

37 

F 7 S3 

31,3764  00264  1 180DEGS  DEC 

+ 180 

31,3765 

00056 

1 

1/2DEG 

DEC 

+ .00278 

31,3766 

01542 

0 

PROJMAX 

DEC 

.42262  B-3 

S I N ( 2 5' ) /8 

TO 

COMPARE 

WITH 

PRO  J 

31,3767 

01022 

0 

PROJM IN 

DEC 

.25882  B-3 

SINt 15* ) / a 

TO 

COMPARE 

WITH 

PR  0 J 

31,3770 

01477 

l 

V06N63  VN 

0663  P 63 

31,3771 

Cl  500 

0 

V06N64  VN 

0664  P 64 

31,3772 

01474 

1 

VC6N60  VN 

0660  P65,  P66 , P67 

22,3651 

BANK 

22 

REF  l 

22,2000 

SETLOC 

L ANDCNST 

22,3651 

BANK 

REF  1 

COUNT  * 

$ S/F2DPS 

22,3651 

00021 

1 

H IGHESTF  2DEC 

4.34546769  B- 1 2 

22,3652 

14  161 

1 

22,3653 

01440 

0 

GSCALE  2DEC 

100  B— 11 

22,3654 

00000 

1 

22,3655 

14000 

1 

3/8DP  2DEC 

.375 

22,3656 

00000 

1 

22,3657 

30000 

1 

3/4DP  2DEC 

. 750 

22,3660 

00000 

1 

22,3661 

7 7534 

0 

DEPRCRIT  2DEC 

-.02  B— 1 

22,3662 

45074 

0 

4‘##4c##4c4c4‘##4'4c#4‘##4e*#4c4'##4t##4c####*#4c*4<4c#4c#4c4<#4c#4c4c#*#*4c4<####4c**#############  4c  4c4c#4e4c4c4c  4c4c4c4c4c4e4c4c  4c  4c  4*4*  $$$$$$$$$$$$4'$$ 
###4<4<4‘4>4c*4c4<4<#**4c*4c#4<4c4!*#4c4<4c*4c*4<*#*#4c#4=4c4c4=#*##**4‘**4*4c4c4c4=**4c4<##*4c4<4^*#4c4'4c4c**4<4<**4=#****4c4c4**4c4c4c4c4c4<4<4<4'*#**#**4c*4c*4c#4c4c 
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L 

P70-P71 

USFR'S  PAGE  NO.  1 

EO  S3 

0001 

21,2  0^2 

b»MK  2 1 

0002 

REF  1 

21,2000 

S E T L Lk_ 

0003 

21,2042 

BANK 

0004 

REF 

32 

LAST 

816 

E7,  1515 

E B A N K = 

DVCNTR 

0005 

REF 

1 

COUNT * 

$ $ /R 1 1 

0006 

REF 

16 

LAST 

757 

2 1,2042 

4 0103 

1 

R 10 , R 1 1 

CS 

FLAGWRD7 

IS  SERVi«:R  STILL  RUNNING? 

000  7 

REF 

6 

LAST 

70  7 

21, 2043 

7 4740 

1 

MASK 

AVEGF8I T 

0008 

REF 

229 

LAST 

829 

21, 2044 

1C  OOO 

0 

CCS 

A 

0009 

REF 

56 

LAST 

823 

21,2045 

1 5263 

1 

TCF 

TASKOVER 

LET  AVGEND  TAKE  Cart=  q p GROUP  2 

0010 

REF 

1 

21,2046 

1 1 ' 055 

1 

CCS 

P IPCTR 

001  1 

REF 

1 

21,2047 

1 2 C 54 

0 

TCF 

STDRPCTR 

0012 

21,2050 

0 0006 

1 

EXTEND 

00121 

REF 

15 

LAST 

811 

21,2051 

3 4 746 

0 

DC  A 

NEGO 

00122 

REF 

5 

LAST 

732 

21,2052 

52  754 

0 

DXCH 

-PHASE2 

00122 

REF 

1 

21,2053 

1 2060 

1 

TCF 

R 10 , R 1 1 A 

0013 

REF 

1 

21,2054 

55' 722 

0 

S TORPCTR 

TS 

P IPCTR1 

0016 

REF 

3 

LAST 

45  1 

21,2055 

3 6010 

0 

CAF 

0CT31 

0017 

REF 

24 

LAST 

822 

21,2056 

0 5175 

1 

TC 

TWIDDLE 

001  8 

REF 

2 

LAST 

25  1 

21,2057 

02042 

0 



ADRES 

R10.R11 

0019 

REF 

3 

LAST 

618 

21,2060 

3 4744 

1 

rToTrIia 

LAI- 

HFLSHBIT 

0020 

REF 

20 

LAST 

811 

21,2061 

7 0107 

0 

FLASHH? 

MASK 

FLGWRD1 1 

0021 

21,2062 

0 0006 

1 

EXTEND 

0022 

REF 

1 

21,2063 

1 2067 

0 

132  F 

FLASHV? 

H FLASH  OFF,  SO  LEAVE  ALONE 

0023 

REF 

2 

LAST 

618 

21,2064 

3 4740 

0 

CA 

HLITE 

— °v\ 

0024 

REF 

124 

LAST 

829 

21,2065 

54  001 

1 

TS 

L \r  r 

002  5 

REF 

1 

21 , 2066 

0 4577 

0 

TC 

FLIP 

^ FL  IP  H L ITE 

0026 

REF 

1 

21,2067 

3 4743 

0 

FLASHV? 

CA 

VFLSHBIT 

VFLASHBIT  MUST  BE  BIT  2. 

002  7 

REF 

2 1 

LAST 

831 

21 ,2070 

7 0107 

0 

MASK 

FLGWRD1 1 

0028 

21,2071 

0 0006 

1 

EXTEND 

0029 

REF 

1 

21,2072 

1 2076 

0 

BZF 

10,11 

V FLASH  OFF 

0030 

REF 

2 

LAST 

618 

21,2073 

3 4 742 

1 

CA 

VLITE 

003  1 

REF 

125 

LAST 

831 

21,2074 

54  001 

1 

TS 

L 

003  2 

REF 

2 

LAST 

831 

21,2075 

0 4577 

0 

TC 

FLIP 

FLIP  V LITE 

0033 

REF 

4 

LAST 

734 

21,2076 

3 

C 105 

0 

10,11 

CA 

FLAGWRD9  ' 

IS  THE  LETABORT 

FLAG  SET  ? 

0034 

REF 

2 

LAST 

734 

21,2077 

7 

4734 

1 

MASK 

LETABBIT 

0035 

21,2100 

0 

0006 

1 

EXTEND 

0036 

REF 

1 

21,2101 

1 

2 170 

1 

BZF 

LANAD  ISP 

NO.  PROCEED 

TO 

RIO. 

0037 

REF 

14 

LAST 

797 

21,2102 

4 

1010 

0 

P71N0W? 

CS 

MQDREG 

YES.  APE  WE 

IN 

P71  NOW? 

003  8 

REF 

1 

21,2103 

6 

2147 

1 

AD 

1 DEC 71 

0039 

21,2104 

0 

0006 

1 
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ASENT8 

0164 

34,3346 

BANK 

0165 

REF 

1 

COUNT  * 

$ t/P 12 

0166 

34,3346 

4C220 

0 

GUID INIT 

STQ 

SETPD 

0167 

REF 

6 

LAST 

743 

34,3347 

01  163 

1 

TEMPR60 

0168 

34,3350 

00001 

0 

OD 

0169 

34,3351 

41575 

0 

VLOAD 

PUSH 

0170 

REF 

8 

LAST 

782 

34, 3352 

06477 

0 

UNITZ 

0171 

34,3353 

41434 

1 

RTB 

PUSH 

0172 

REF 

25 

LAST 

838 

34,3354 

21603 

1 

LOADTIME 

0173 

34,3355 

77624 

1 

CALL 

0174 

REF 

2 

LAST 

782 

34,3356 

55716 

1 

RP-TO-R 

0175 

34,3357 

74321 

1 

MXV 

VXSC 

0176 

REF 

34 

LAST 

84  2 

34,3360 

01732 

0 

REFSMMAT 

0177 

REF 

1 

34,3361 

16027 

0 

MOONRATE 

0176 

REF 

5 

LAST 

803 

34, 3362 

26316 

1 

STOVL 

WM 

0179 

REF 

5 

LAST 

787 

34,3363 

U2021 

0 

RLS 

0180 

34,3364 

52446 

0 

ABVAL 

SL3 

0181 

REF 

7 

LAST 

842 

34,3365 

36324 

1 

STC ALL 

/LAND/ 

0182 

REF 

7 

LAST 

842 

34,3366 

01163 

1 

TEMPR60 

0183 

34,3367 

00046 

0 

49FPS 

2DEC 

.149352  B-6 

0183 

34,3370 

07374 

0 

0184 

34,3371 

04145 

0 

V INJNOM 

2DEC 

16.79299  B- 

0184 

34,3372 

20055 

0 

0185 

34,3373 

00007 

0 

RDCTDNOM 

2DEC 

.059436  B-7 

0185 

34,3374 

23346 

1 
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0001 

34,3375 

BANK 

34 

0002 

REF 

1 

34,2000 

SETLOC 

ASCF  ILT 

000  3 

34,3375 

BANK 

0004 

REF 

39 

LAST 

839 

F7,  1515 

E8ANK= 

DVCNTR 

000  5 

REF 

1 

COUNT* 

$ t/ASENT 

0006 

REF 

70 

LAST 

841 

34,3375 

0 5355 

1 ATMAG 

TC 

P HASCHNG 

000  7 

34,3376 

00035 

1 

OCT 

00035 

0008 

REF 

141 

LAST 

840 

34, 3377 

0 6C60 

1 

TC 

I NTPRFT 

0009 

34,3400 

7 76  14 

1 

BON 

0010 

REF 

3 

LAST 

839 

34,3401 

04705 

l 

FLRCS 

001  I 

REF 

2 

LAST 

841 

34,3402 

60307 

0 

ASCENT 

0012 

34,3403 

45345 

1 

OLOAO 

DSU 

0013 

REF 

2 

LAST 

154 

34,3404 

0 3 5 L 4 

1 

ABDVCONV 

0014 

REF 

1 

34, 3405 

26  116 

0 

MINABDV 

0015 

34,3406 

43040 

1 

BMN 

CLEAR 

0016 

REF 

1 

34,3407 

60750 

0 

ASCTERM4 

001  7 

REF 

16 

LAST 

787 

34,3410 

04267 

0 

SURFFLAG 

0018  ' 

34,341  l 

67214 

1 

CLEAR 

SLOAD 

0019 

REF 

10 

LAST 

615 

34,3412 

02676 

1 

RENDWFLG 

0020 

REF 

1 

34,3413 

3 1451 

0 

B I T3H 

002  l 

34,3414 

77471 

0 

DDV 

EXIT 

002  2 

REF 

3 

LAST 

844 

34,3415 

03514 

1 

ABDVCONV 

0023 

REF 

327 

LAST 

827 

34,3416 

52  155 

1 

DXCH 

MPAC 

0024 

REF 

4 

LAST 

84  1 

34,3417 

53*641 

1 

OXCH 

1 /DV3 

002  5 

RFF 

4 

LAST 

841 

34,3420 

53*637 

0 

DXCH 

1/DV2 

0026 

REF 

4 

LAST 

84  1 

34,3421 

53*635 

1 

DXCH 

l/DVl 

002  7 

REF 

1 

34,3422 

53*571 

1 

DXCH 

l/DVO 

002  8 

REF 

142 

LAST 

844 

34,3423 

0 6060 

1 

TC 

INTPRFT 

0029 

34,3424 

43345 

1 

DLOAD 

DAD 

0030 

REF 

2 

LAST 

844 

34,3425 

03571 

1 

1 /DVO 

003  1 

REF 

5 

LAST 

844 

34 , 3426 

03635 

1 

1/DVL 

0032 

34,3427 

43215 

0 

DAD 

DAD 

0033 

REF 

5 

LAST 

844 

34,3430 

03637 

0 

1/DV2 

0034 

REF 

5 

LAST 

844 

34,3431 

03641 

l 

1/DV3 

003  5 

34,3432 

41205 

0 

OMP 

DMP 

0036 

REF 

4 

LAST 

842 

34,3433 

02256 

l 

VE 

0037 

REF 

1 

34,3434 

21011 

l 

2 SEC (9) 

003  8 

34,3435 

65252 

l 

SL  3 

POOL 

0039 

REF 

4 

LAST 

84  1 

34,3436 

02262 

0 

TBUP 

0040 

34,3437 

43342 

0 

SRI 

DAD 

0041 

34,3440 

77625 

0 

DSU 

0042 

REF 

1 

34,3441 

21006 

1 

6SECI  18  I 

0043 

REF 

5 

LAST 

844 

34,3442 

16262 

0 

STOOL 

TBUP 

0044 

REF 

5 

LAST 

844 

34,3443 

02256 

1 

VE 

004  5 

34,3444 

56342 

1 

SRI 

DDV 

004  6 

REF 

6 

LAST 

844 

34, 3445 

02262 

0 

TBUP 

004  7 

REF 

5 

LAST 

84  1 

34 , 3446 

36254 

1 
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AT 
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NO. 
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004  8 

REF  3 LAST  844 

34,3447 

60307 

0 

ASCENT 

0049 

34,3450 

00004 

0 BIT3H 

OCT 

4 

845 


GAP  ■ 


197 


PAGE 


846 


ASSEMBLE  REVISION  210  CF  AGO  PROGRAM  LUMINARY  BY  NASA  20211L2-161 
L ASCENT  GUIDANCE 


17:  11  MAR.  19,1971  FLY 
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P0050 


005  1 

30,2307 

BANK 

30 

0052 

REF 

2 

LAST 

40 

30,2000 

SETLOC 

ASENT 

0053 

30,2307 

BANK 

005  A 

REF 

2 

LAST 

40  TO 

40  : 

2 

2* 

COUNT* 

$ $/ASENT 

0055 

30,2307 

51575 

1 

ASCENT 

VLOAD 

ABVAL 

0056 

REF 

17 

LAST 

840 

30,2310 

03521 

1 

R 

0057 

REF 

2 

LAST 

124 

30,231 1 

26272 

1 

STHVL 

/R/MAG 

0058 

REF 

13 

LAST 

841 

30,2312 

03537 

0 

UNIT/R/ 

005  8 1 

30,2313 

53435 

0 

vxv 

UNIT 

00582 

REF 

3 

LAST 

842 

30,2314 

02600 

0 

QAXI  S 

00583 

REF 

1 

30,2315 

02606 

0 

STORE 

ZAXI SI 

0059 

30,2316 

72441 

0 

DOT 

SLl 

0060 

REF 

8 

LAST 

840 

30,2317 

03527 

1 

V 

Z . V = ZDOT *2 ( -8 ) . 

0061 

REF 

2 

LAST 

124 

30,2320 

26304 

1 

STUVL 

ZDOT 

ZDOT  *21  — 7) 

0062 

REF 

2 

LAST 

846 

30,2321 

02606 

0 

ZAXIS1 

006  3 

30,2322 

76435 

1 

VXV 

VSL1 

0064 

REF 

14 

LAST 

846 

30,2323 

03537 

0 

UNIT/R/ 

Z X UR  = LAXlS*2(-2) 

006  5 

REF 

2 

LAST 

124 

30,2324 

02274 

l 

STORE 

L AX  I S 

LAXIS*2(-1 ) 

0066 

30,2325 

72441 

0 

DOT 

SLl 

006  7 

REF 

9 

LAST 

846 

30,2326 

03527 

1 

V 

L.V  = YDOT  *2 ( — 8 1 . 

0068 

REF 

2 

LAST 

124 

30,2327 

36302 

0 

STCALL 

YDOT 

YDOT  * 21-71 

0069 

REF 

3 

LAST 

840 

30,2330 

573  15 

1 

YCOMP 

0070 

30,2331 

7 7 775 

1 

VLOAD 

007  l 

REF 

2 

LAST 

154 

30,2332 

03563 

1 

GDT1/2 

LOAD  GDTl/2*2(-7)M/CS. 

0072 

30,2333 

50341 

l 

V/ SC 

DOT 

0073 

REF 

1 

30,2334 

27  C 53 

l 

2SEC ( 18 ) 

0074 

REF 

15 

LAST 

846 

30,2335 

03537 

0 

UNIT/R/ 

G . UR*  2 ( 9 1 = GR*2 ( 9 ) . 

0075 

30,2336 

4 7315 

0 

PD  VL 

VXV 

STORF  IN  PDL(O) 

0076 

REF 

16 

LAST 

846 

30,2337 

03537 

0 

UNIT/R/ 

LOAD  UNIT/R/*2(-l ) . 

0077 

REF 

10 

LAST 

846 

30,2340 

03527 

1 

V 

UR*2 ( - 1 ) X V*  2 ( - 7 ) = H/R*2(-8). 

0078 

30,2341 

56236 

0 

VSO 

ODV 

H(2)/R(2)*2(-16) . 

0079 

REF 

3 

L AST 

846 

30,2342 

02272 

1 

/R/MAG 

H(2)/R<3)*2<9). 

0080 

30,2343 

43352 

1 

SLl 

DAD 

008  1 

30,2344 

77626 

0 

STADR 

0082 

REF 

2 

LAST 

124 

30,2345 

75471 

1 

STORE 

GEFF 

GEFF*  2 ( 101M/CS/CS 

0083 

30,2346 

45014 

0 

BOFF 

CALL 

IF  P7071FLG  = 1 ir.E.  P70  OR  P71) 

0084 

REF 

2 

LAST 

834 

30,2347 

04  742 

1 

P7071FLG 

CALL  ZDOTDCMP  TO  UPDATE  ZDOTD 

0085 

30,2350 

60352 

0 

*2 

ON  THE  BASIS  OF  THE  LAST  PP. 

0086 

REF 

1 

30,2351 

71620 

0 

ZDOTDCMP 

0087 

30,2352 

45345 

1 

+ 2 

DLOAD 

OSU 

0088 

REF 

5 

LAST 

840 

30,2353 

02270 

0 

ZDOTD 

0089 

REF 

3 

LAST 

846 

30,2354 

02304 

l 

ZDOT 

0090 

REF 

2 

LAST 

124 

30,2355 

02334 

1 

STORE 

DZDOT 

DZDOT  = (ZDOTD  - ZDOT 1 *2 1 7 1 M/CS  . 

009  1 

30,2356 

65361 

0 

VX  SC 

P DDL 

0092 

REF 

3 

LAST 

846 

30,2357 

02606 

0 

ZAXIS1 
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0093 

REF 

3 

LAST 

842 

30,2360 

C2266 

1 

YDOTD 

0094 

30,2361 

77625 

0 

DSU 

0095 

REF 

3 

LAST 

846 

30,2362 

02302 

1 

YDOT 

0096 

REF 

2 

LAST 

124 

30,2363 

02332 

1 

STORE 

DYDOT 

DYDOT  = (YDOTD  - YDOT ) *2 ( 7 ) M/C  S . 

0097 

30,2364 

65361 

0 

VXSC 

PDDL 

0098 

REF 

3 

LAST 

846 

30,2365 

C2274 

1 

LAXIS 

009  9 

REF 

5 

LAST 

840 

30, 2366 

02264 

0 

RDOTD 

0100 

30,2367 

77625 

0 

DSU 

010  1 

REF 

2 

LAST 

84  1 

30,2370 

03474 

0 

ROOT 

0102 

REF 

2 

LAST 

124 

30, 2371 

02330 

0 

STORE 

DRDOT 

DRDOT  = ( R COT  D — ROOT ) *2 ( 7 ) M/CS . 

0103 

30,2372 

53361 

0 

VXSC 

VAD 

0104 

REF 

17 

LAST 

846 

30,2373 

C3537 

0 

UNIT/R/ 

010  5 

30,2374 

76455 

1 

VAD 

VSL1 

0106 

30,2375- 

77626 

0 

STADR 

0107 

REF 

3 

LAST 

212 

30,2376 

74131 

1 

STORE 

VGVECT 

VG  = ( DRDOT ) R + ( DYDOT  ) L + (DZDOT)Z 

0108 

30,2377 

41345 

0 

DLOAD 

DMP 

LOAD  T GO 

0109 

REF 

IS 

LAST 

839 

30,2400 

035  l 7 

1 

T GO 

TGO  GEFF 

0110 

REF 

3 

LAST 

846 

30,2401 

02306 

0 

GEFF 

Oil  1 

30,2402 

76561 

1 

VXSC 

VSL1 

0112 

REF 

18 

LAST 

847 

30,2403 

C 3 53  7 

0 

UNIT/R/ 

TGO  GEFF  UR 

0113 

30,2404 

77645 

0 

BVSU 

0114 

REF 

4 

LAST 

847 

30,2405 

03646 

0 

VGVECT 

COMPENSATED  FOR  GEFF 

0115 

REF 

5 

LAST 

847 

30,2406 

03646 

0 

STORE 

VGVECT 

STORE  FOR  DOWNLINK 

0116 

30,2407 

76521 

0 

MX  V 

VSL1 

GET  VGBODY  FOR  N85  DISPLAY 

0117 

REF 

4 

LAST 

809 

30,24  10 

02137 

0 

XNBPIP 

0118 

REF 

12 

LAST 

753 

30,2411 

27502 

0 

STOVL 

VGBODY 

0119 

REF 

6 

LAST 

847 

30,2412 

03646 

0 

VGVECT 

0120 

30,2413 

43046 

1 

ABVAL 

BOFF 

MAGNITUDE  OF  VGVECT 

0121 

REF 

4 

LAST 

844 

30,2414 

04  745 

0 

FLRCS 

IF  F LRCS  =0 , DO  NORMAL  GUIDANCE 

0122 

REF 

1 

30,2415 

60424 

0 

MAINENG 

0123 

30,2416 

77671 

l 

DDV 

USE  T G0= VG/ AT  WITH  RCS 

0124 

REF 

1 

30,2417 

20001 

1 

AT/RCS 

0125 

REF 

20 

LAST 

847 

30,2420 

37517 

0 

STC ALL 

T GO 

THIS  WILL  8F  USED  ON  NEXT  CYCLE 

0126 

REF 

1 

30,2421 

71571 

1 

RPC0MP1 

COMPUTE  NEW  RP  FOR  NEXT  CYCLE. 

0127 

30,2422 

77650 

1 

GOTO 

0128 

REF 

1 

30,2423 

6C  746 

1 

ASCTERM2 

0129 

30,2424 

41471 

0 MAINENG 

DDV 

PUSH 

VG/VE  IN  PDL(O) 

0130 

REF 

6 

LAST 

844 

30,2425 

02256 

1 

VE 

0131 

30,2426 

44342 

1 

SRI 

8DSU 

l - VG  / 2 VE 

0132 

REF 

1 

30 ,2427 

1 7774 

0 

NEARONE 

0133 

30,2430 

41205 

0 

DMP 

DMP 

TBUP  VG ( 1— KT  VG/VE ) / V E 

0134 

REF 

7 

LAST 

844 

30, 2431 

02262 

0 

TBUP 

= TGO 

013  5 

30,2432 

77625 

0 

DSU 

COMPENSATE  FOR  TAILOFF 

0136 

REF 

4 

LAST 

841 

30, 2433 

02260 

1 

TTO 

0137 

REF 

21 

LAST 

847 

30,2434 

03517 

1 

STORE 

T GO 

0138 

30,2435 

57461 

0 

SR 

DCOMP 

0139 

30,2436 

20614 

0 

1 ID 

0140 

REF 

27 

LAST 

752 

30,2437 

17454 

1 

STODL 

TTOGO 

TG0*2 ( -2  8 ) C S 

014  1 

REF 

22 

LAST 

847 

30,2440 

03517 

1 

T GO 

0142 

30,2441 

4 5 214 

1 

BON 

DSU 

847 
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(0) 
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E7  S3 

014  3 

REF 

6 

LAST 

834 

30,2442 

03710 

1 

IDLEFLAG 

014  4 

REF 

1 

30,2443 

6C447 

0 

T2TFST 

014  5 

REF 

1 

30,2444 

2 1000 

l 

4SEC ( 17) 

( TGO  - 4 ) *2  C -l 7 1 CS. 

0146 

30,2445 

77640 

0 

BMN 

0147 

REF 

l 

30,2446 

71457 

1 

ENGOFF 

0148 

30,2447 

7 7 745 

1 

T2TEST 

DLOAD 

0149 

REF 

23 

LAST 

847 

30,2450 

03517 

1 

T GO 

J15 

30,2451 

50025 

0 

DSU 

8 MN 

IF  TGO  - T 2 NEG.,  GO  TO  CMPONENT 

0151 

REF 

1 

30,2452 

21002 

0 

T2A 

0152 

REF 

l 

30,2453 

6 C 607 

0 

C MPONENT 

0153 

30,2454 

45345 

1 

DLOAD 

DSU 

0154 

REF 

8 

LAST 

84  7 

30,2455 

02262 

0 

TBUP 

0155 

REF 

24 

LAST 

848 

30,2456 

03517 

l 

T GO 

0156 

30,2457 

45071 

0 

DDV 

CALL 

1-TGO/TBUP 

015  7 

REF 

9 

LAST 

848 

30,2460 

C2262 

0 

TBUP 

0158 

REF 

1 

30,2461 

61015 

1 

LOGSUB 

0159 

30,2462 

41461 

1 

SL 

PUSH 

-L  IN  PDL(O) 

(2) 

016  0' 

30,2463 

20206 

1 

5 

0161 

30, 2464 

44265 

0 

BDDV 

8DSU 

-TG0/L*2(-17) 

0162 

REF 

25 

LAST 

848 

30,2465 

03517 

1 

T GO 

0163 

REF 

10 

LAST 

848 

30,2466 

02262 

0 

TBUP 

TBUP  + TGO/L  = 012*2 (-17) 

0164 

30,2467 

43006 

0 

PUSH 

BON 

STORE  IN  PDLI2) 

(4) 

0165 

REF 

1 

30,2470 

C4703 

1 

F L PC 

IF  FL  PC  = 1,  GO  TO  CONST 

0166 

REF 

1 

30,2471 

6C500 

1 

NORATES 

016  7 

30,2472 

45345 

1 

DLOAD 

DSU 

0168 

REF 

26 

LAST 

848 

30, 2473 

C3517 

1 

T GO 

0169 

REF 

1 

30,2474 

21004 

0 

T 3 

0170 

30, 2475 

43C44 

0 

BPL 

SET 

FLPC  = l 

017  1 

REF 

1 

30,2476 

60505 

1 

RATES 

0172 

REF 

2 

LAST 

848 

30,2477 

04463 

1 

F L PC 

0173 

30,2500 

77745 

1 

NORATES 

DLOAD 

0174 

REF 

9 

LAST 

842 

30,2501 

06505 

1 

H I6ZER0S 

01  75 

REF 

2 

LAST 

124 

30,2502 

02342 

0 

STORE 

PRATE 

B = 0 

0176 

REF 

2 

LAST 

124 

30,2503 

36  344 

1 

STC ALL 

YRATE 

0 = 0 

0177 

REF 

1 

30,2504 

60567 

0 

CONST 

GO  TO  CONST 

0178 

30,2505 

45345 

1 

RATES 

DLOAD 

DSU 

0179 

REF 

27 

LAST 

848 

30,2506 

03517 

1 

TGO 

0180 

30,2507 

00003 

1 

0 20 

TGO  - D 1 2 = D2  1*2 ( - 1 7 ) 

018  1 

30,2510 

72406 

0 

PUSH 

SL1 

IN  PDLI4) 

(6) 

0182 

30,2511 

52421 

l 

8DSU 

SL3 

( 1/2TG0  - D21  ) *2 ( - l 3 ) = F 

* 21-13) 

0183 

REF 

28 

LAST 

848 

30,2512 

03517 

1 

TGO 

(8) 

0184 

30, 2513 

41325 

0 

POOL 

DMP 

IN  PDLI6) 

0185 

REF 

29 

LAST 

848 

30,2514 

03517 

l 

TGO 

0186 

REF 

3 

LAST 

84  7 

30,2515 

03474 

0 

ROOT 

RDOT  TGO  * 21-24) 

0187 

30,2516 

45215 

0 

DAD 

DSU 

R + RDOT  TGO 

>1  11 

RFF 

4 

LAST 

846 

30,2517 

02272 

1 

/R/MAG 

R + RDOT  TGO  - RCO 

0189 

REF 

4 

LAST 

842 

30,2520 

03631 

0 

RCO 

M P AC  = - DR*2 ( -24 1 . 

0190 

30,2521 

41325 

0 

PDDL 

OMP 

-DR  IN  PDL ( 8 ) 

( 10) 

019  1 

REF 

3 

LAST 

847 

30,2522 

02330 

0 

DRDOT 

l 

30,2523 

00005 

1 

04D 

D21  D RDOT  *21-24) 

GAP: 
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0193 

30,2524 

62415 

0 

DAO 

SL2 

( D21  DRDOT— DR)*2(-22> 

(8) 

0194 

30,2525 

56271 

0 

DDV 

DDV 

019b 

30,2526 

00007 

0 

06D 

(D21  DRDOT-DR  )/E*2(-9) 

0196 

REF 

30 

LAST 

848 

30,2527 

03517 

1 

T GO 

0197 

REF 

3 

LAST 

848 

30,2530 

02342 

0 

STORE 

PRATE 

B * 2 I 8 > 

0198 

30,2531 

71240 

1 

BMN 

OLOAD 

B>0  NOT  PERMITTED 

0199 

REF 

1 

30,2532 

60536 

1 

CHKBMAG 

0200 

REF 

10 

LAST 

84  8 

30,2533 

06505 

1 

HI6ZER0S 

020  1 

REF 

4 

LAST 

849 

30,2534 

36342 

1 

STCALL 

PRATE 

0202 

REF 

1 

30,2535 

6 C 5 50 

1 

PROK 

0203 

30,2536 

56202 

1 

CFKBMAG 

SR4 

DDV 

6*2(4) 

0204 

REF 

11 

LAST 

843 

30,2537 

02262 

0 

TBUP 

(B  / TAU)  * 2(21) 

0205 

30,2540 

51025 

1 

DSU 

8 PL 

0206 

REF 

1 

30,2541 

26  114 

1 

PRLIMIT 

( B/  TAU)  * 2(21)  MAX. 

0207 

REF 

2 

LAST 

849 

30,2542 

60  550 

1 

PROK 

0208 

30,2543 

41345 

0 

OLOAD 

DMP 

0209 

REF 

2 

LAST 

849 

.30,2544 

26  1 14 

1 

PRLIMIT 

0210 

REF 

12 

LAST 

849 

30,2545 

02262 

0 

TBUP 

B MAX . * 2(4) 

021  1 

30,2546 

77612 

1 

SL4 

BM AX*  2(8) 

0212 

' REF 

5 

LAST 

349 

30,2547 

02342 

0 

STORE 

PRATE 

0213 

30,2550 

77745 

1 

PROK 

DLOAD 

0214 

REF 

31 

LAST 

849 

30,2551 

03517 

1 

T GO 

0215 

30,2552 

43205 

1 

DMP 

DAD 

YDOT  T GO 

0216 

REF 

4 

LAST 

847 

30,2553 

02302 

1 

YDOT 

0217 

REF 

5 

LAST 

840 

30,2554 

02326 

1 

Y 

Y + YDOT  T GO 

0218 

30, 2555 

65225 

1 

DSU 

PDDL 

Y + YDOT  T GO  - YCO 

0219 

REF 

6 

LAST 

842 

30,2556 

03633 

1 

YCO 

MP AC  = - D Y*2 ( — 24 . ) IN  PDL(8) 

( 10) 

0220 

REF 

3 

LAST 

847 

30,2557 

02332 

1 

D YDOT 

0221 

30,2560 

43205 

1 

DMP 

DAD 

D21  D YDOT  - DY 

( 8 ) 

0222 

30,2561 

00005 

1 

04D 

0223 

30,2562 

56312 

1 

SL2 

DDV 

I D21  DYDOT  - DY)/E*2!-9) 

0224 

30,2563 

40271 

1 

DDV 

SETPD 

(D21  DYDOT  - DYl/F  TGO*2(8) 

0225 

REF 

32 

LAST 

849 

30,2564 

03517 

1 

T GO 

= 0*2(8) 

0226 

30,2565 

00005 

1 

04 

022  7 

REF 

3 

LAST 

848 

30,2566 

02344 

0 

STORE 

YRATE 

0228 

30,2567 

41345 

0 

CONST 

OLOAD 

DMP 

LOAD  B*2(3) 

0229 

REF 

6 

LAST 

849 

30,2570 

02342 

0 

PRATE 

B 012*21 —9 ) 

0230 

30,2571 

00003 

1 

0 2D 

0231 

30,2572 

56325 

0 

PDDL 

DDV 

012  B IN  PDL 1 4 ) 

(6) 

0232 

RFF 

4 

LAST 

848 

30,2573 

02330 

0 

DRDOT 

LOAD  DRDOT *2 ( -7 ) 

0233 

30,2574 

00001 

0 

OOD 

-DRDOT /L*2 (-7 ) 

0234 

30, 2575 

45302 

1 

SR  2 

DSU 

( - DRDOT / L-Dl 2 B)=A*2(-9) 

( 4) 

0235 

30,2576 

77626 

0 

STADR 

0236 

REF 

2 

LAST 

124 

30,2577 

61441 

1 

STODL 

PCONS 

0237 

REF 

4 

LAST 

849 

30, 2600 

02344 

0 

YRATE 

D*2(8 ) 

0238 

30,2601 

65205 

0 

DMIP 

PDDL 

D 1 2 D , EXCH  WITH  -L  IN  POL(O) 

(2,2) 

0239 

30,2602 

60465 

0 

BDD  V 

SR2 

-DYDOT /L  *2 (-9 ) 

0240 

REF 

4 

LAST 

849 

30,2603 

02332 

1 

D YDOT 

0241 

30,2604 

77625 

0 

DSU 

(-DYD0T/L-D12  D)=C*2(-9) 

0242 

30,2605 

00001 

0 

OOD 
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0243 

REF 

2 

LAST 

124 

30,2606 

02340 

1 

STORE 

YCONS 

0244 

30,2607 

43001 

1 

CMPONENT 

SETPD 

BOFF 

024  5 

30,2610 

00001 

0 

OOD 

0246 

REF 

3 

LAST 

846 

30, 2611 

04  742 

l 

P7071FLG 

0247 

30 , 2 6 L 2 

60615 

0 

+ 3 

0248 

30,2613 

77624 

1 

CALL 

0249 

REF 

1 

30,2614 

71575 

0 

RPC0MP2 

0250 

30,2615 

41345 

0 

+ 3 

DLOAD 

DMP 

0251 

REF 

1 

30,2616 

27053 

1 

100CS 

0252 

REF 

7 

LAST 

849 

30,2617 

02342 

0 

PRATE 

0253 

30,2620 

56215 

l 

DAD 

DDV 

0254 

REF 

3 

LAST 

849 

30,2621 

02336 

0 

PCONS 

0255 

REF 

13 

LAST 

849 

30,2622 

02262 

0 

TBUP 

0256 

30,2623 

45352 

1 

SL1 

DSU 

0257 

REF 

4 

LAST 

847 

30,2624 

02306 

0 

GEFF 

0258 

REF 

2 

LAST 

124 

30,2625 

16350 

0 

STOOL 

ATR 

0259 

REF 

2 

LAST 

850 

30,2626 

27053 

1 

100CS 

0260 

30,2627 

43205 

1 

DMP 

DAD 

026  1 

REF 

5 

LAST 

849 

30,2630 

02344 

0 

YRATE 

0262 

REF 

3 

LAST 

850 

30,2631 

02340 

1 

YCONS 

0263 

30,2632 

72471 

0 

DDV 

SL1 

0264 

REF 

14 

LAST 

850 

30,2633 

02262 

0 

TBUP 

0265 

REF 

4 

LAST 

841 

30, 2634 

02346 

l 

STORE 

ATY 

0266 

30,2635 

65361 

0 

VXSC 

POOL 

0267 

REF 

4 

LAST 

847 

30,2636 

022  74 

1 

LAXIS 

0268 

REF 

3 

LAST 

850 

30,2637 

02350 

0 

ATR 

0269 

30,2640 

53361 

0 

VXSC 

VAD 

0270 

REF 

19 

LAST 

84  7 

30,2641 

03537 

0 

UNIT/R/ 

0271 

30,2642 

41572 

1 

VSL  1 

PUSH 

0272 

30,2643 

65246 

1 

ABVAL 

POOL 

0273 

REF 

6 

LAST 

844 

30,2644 

02  2 54 

0 

AT 

0274 

30,2645 

45316 

1 

DSQ 

DSU 

0275 

30,2646 

0C043 

0 

340 

0276 

30,2647 

41525 

0 

POOL 

PUSH 

0277 

REF 

7 

LAST 

850 

30,2650 

02254 

0 

AT 

0278 

30,  265  1 

453  16 

1 

DSQ 

DSU 

0279 

30,2652 

00043 

0 

3 4D 

0280 

30,2653 

71240 

1 

BMN 

DLOAD 

0281 

REF 

1 

30,2654 

60660 

l 

NO-ATP 

0282 

30,2655 

00011 

1 

3D 

028  3 

30,2656 

52166 

1 

SORT 

GOTO 

0284 

REF 

1 

30,2657 

60666 

1 

AIMER 

0285 

30,2660 

55345 

0 

NO-ATP 

DLOAD 

BDDV 

0286 

30,2661 

00007 

0 

60 

0287 

30,2662 

77761 

1 

VXSC 

0288 

30,2663 

00001 

0 

OOD 

0289 

30,2664 

14001 

0 

STOOL 

OOD 

0290 

REF 

1 1 

LAST 

849 

30,2665 

06505 

l 

H 1 62 EROS 

029  1 

30,2666 

77765 

0 

AIMER 

SIGN 

0292 

REF 

3 

LAST 

846 

30, 2667 

02334 

1 

DZDOT 
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IF  P7071FLG  = 1 (I.E.  P70  OR  P71) 
COMPUTE  NEW  RP  FOR  NEXT  CYCLE. 


B I T— T 0 ) *2  I —9 ) 

( A+BI T-TO)  1*2  t — 9 ) 

( A +B ( T-TO  I )/TRUP*?(8) 


AT  R*2 (9) 


(C+DI  T-TO)  >*2 (-9) 


ATY*2 19) 

ATY  UY*2( 8)  (6 ) 


(0) 


AH*2 1 9 ) IN  POLIO) 

AH ( 2 ) IN  POL ( 34 ) 
AHMAG  IN  PDLI6) 

I AT ( 2 ) — A H I 2) ) *21181 
= A TP2  * 2 I 18) 


(6) 
I 8) 


I 12) 


(AT(2)KR(2)  — AHI2)  )*2(  18)  (10) 

= ATP3*2(  18) 

IF  AT  P 3 NEG , GO  TO  NO-ATP 
LOAD  ATP 2 , IF  ATP3  POS 

ATP*2 (9) 

KR  AT/AH  = KH  (8) 


KH  AH *2(9) 


STORE  NFW  AH  IN  PDL(O) 


GAP: 
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0293 

REF 

3 

LAST 

841 

30,2670 

02352 

1 

STORE 

ATP 

029  A 

30,2671 

77761 

1 

VXSC 

029  5 

REF 

4 

LAST 

846 

30,2672 

02606 

0 

ZAXIS1 

0296 

30,2673 

53372 

1 

VSL1 

VAD 

0297 

30,2674 

00001 

0 

OOD 

0298 

REF 

18 

LAST 

841 

30,2675 

03252 

1 

STORE 

UNFC/2 

0299 

30,2676 

43001 

1 

SETPD 

BON 

0300 

30,2677 

0C001 

0 

OOD 

0301 

REF 

3 

LAST 

841 

30, 2700 

04704 

0 

FLPI 

0302 

REF 

1 

30,2701 

6C210 

1 

P12RET 

0303 

30,2702 

77614 

1 

BON 

0304 

REF 

3 

LAST 

839 

30,2703 

04  701 

0 

FLVR 

0 30  5 

REF 

1 

30,2704 

60755 

0 

CHECKALT 

0306 

30,2705 

57575 

1 

MAINL INE 

VLOAO 

V COMP 

0307 

REF 

20 

LAST 

850 

30,2706 

03537 

0 

UNIT/R/ 

0308 

REF 

7 

LAST 

810 

30,2707 

17260 

0 

STOOL 

UNWC/2 

0309 

REF 

2 

LAST 

84  2 

30,2710 

03654 

0 

T XO 

0310 

30, 2 71  1 

51025 

1 

DSU 

BPL 

031 1 

REF 

17 

LAST 

818 

30,2712 

01234 

0 

P IPTIME 

0312 

REF 

1 

30,2713 

6C721 

0 

ASCTERM 

0313 

30,2714 

77614 

1 

BON 

0314 

REF 

2 

LAST 

836 

30,2715 

04  7 1 L 

1 

ROTFLAG 

0315 

REF 

1 

30,2716 

57275 

0 

ANG1CHEK 

0316 

30,2717 

77614 

1 

CLRXFLAG 

CLEAR 

0317 

REF 

4 

LAST 

798 

30,2720 

06666 

1 

XOVINFLG 

0322 

30,2721 

77776 

1 

ASCTERM 

EX  I T 

0323 

REF 

6 

LAST 

837 

30,2722 

3 0105 

0 

CA 

FLAGWRD9 

0324 

REF 

1 

30,2723 

7 4 733 

0 

MASK 

FLRCSBIT 

0325 

REF 

235 

LAST 

837 

30,2724 

10  000 

0 

CCS 

A 

0326 

REF 

1 

30,2725 

1 2747 

0 

TCF 

ASCTERM3 

0327 

REF 

143 

LAST 

844 

30,2726 

0 6060 

1 

TC 

INTPRFT 

0328 

30,2727 

77624 

1 

CALL 

0329 

REF 

4 

LAST 

816 

30,2730 

61072 

0 

F INDCDUW 

0330 

30,2731 

77776 

1 

ASCTERM1 

EXIT 

033  1 

REF 

7 

LAST 

851 

30,2732 

3 C 10  5 

0 

+ 1 

CA 

FLAGWRD9 

033  2 

REF 

2 

LAST 

851 

30,2733 

7 4733 

0 

MASK 

FLRCSBIT 

0333 

REF 

236 

LAST 

851 

30,2734 

10  000 

0 

CCS 

A 

0334 

REF 

2 

LAST 

85  1 

30,2735 

1 2747 

0 

TCF 

ASCTERM3 

0335 

REF 

13 

LAST 

811 

30, 2736 

3 0 104 

1 

CA 

FLAGWRD8 

0336 

REF 

3 

LAST 

811 

30,2737 

7 4733 

0 

MASK 

FLUNDBIT 

033  7 

REF 

237 

LAST 

851 

30,2740 

10  000 

0 

CCS 

A 

0338 

REF 

3 

LAST 

851 

30, 2741 

1 2747 

0 

TCF 

ASCTERM3 

03385 

REF 

5 

LAST 

812 

30,2742 

0 5156 

0 

TC 

VACRLEAS 

033  9 

REF 

1 

30,2743 

3 3012 

1 

CAF 

V06N94 

0340 

REF 

230 

LAST 

840 

30,2744 

0 4607 

1 

TC 

BANKCALL 

034  1 

REF 

1 

30,2745 

20436 

1 

CADR 

GODS  P 

0342 

30,2746 

77776 

1 

ASCTERM2 

EXIT 

0343 

REF 

129 

LAST 

836 

30,2747 

1 5146 

0 

ASCTERM3 

TCF 

ENDO  F JOB 

0344 

30,2750 

77776 

1 

ASCTERM4 

EXIT 

0345 

30,2751 

0 0C04 

0 

INHINT 
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ATP  Z.AXIS  *218). 

AT*2< 9 ) 

WILL  BE  OVERWRITTEN  IF  IN  VERT.  RISE. 


(XOVIMFLG) 


INSURE  THAT  THE  NOUN  63  DISPLAY  IS 
BYPASSED  IF  WE  ARE  IN  THE  RCS  TRIMMING 
MODE  OF  OPERATION 

BYPASS  DISPLAYS  IF  ENGINE  FAILURE  IS 
INDICATED. 
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0346 

REF 

42 

LAST 

841 

30,2752 

0 4665 

0 

TC 

I BNKC ALL 

034  7 

REF 

7 

LAST 

828 

30,2753 

40166 

l 

CADR 

STOPRATE 

0348 

REF 

l 

30,2754 

1 2732 

1 

TCF 

ASCTERMl 

0 349 

30,2755 

45345 

1 

CHECKALT 

DLD  AD 

DSU 

0350 

REF 

5 

LAST 

848 

30,2756 

02272 

1 

/R/MAG 

0351 

REF 

8 

L AST 

842 

30,2757 

02324 

0 

/LAND/ 

0352 

30,2760 

50025 

0 

DSU 

BMN 

0353 

REF 

1 

30,2761 

26120 

0 

25KFT 

0354 

REF 

1 

30,2762 

46453 

1 

CHECKYAW 

0355 

30,2763 

43014 

0 

EXI TVR 

CLEAR 

BON 

0356 

REF 

4 

LAST 

851 

30,2764 

04661 

1 

FLVR 

035  7 

REF 

3 

LAST 

85  1 

30,2765 

04711 

1 

ROTFLAG 

0358 

REF 

1 

30,2766 

6C705 

0 

MAINLINE 

0359 

30,2767 

43345 

1 

DLCIAD 

DAD 

0360 

REF 

18 

LAST 

851 

30,2770 

01234 

0 

PIPTIME 

0361 

REF 

l 

30,277  1 

25644 

0 

10SECS 

0362 

REF 

3 

LAST 

851 

30,2772 

37654 

l 

STC ALL 

TXO 

0363 

REF 

2 

LAST 

852 

30,2773 

60705 

0 

MAINLINE 

0364 

30,2774 

77614 

1 

EXIT VR1 

CLRGO 

0365 

REF 

4 

LAST 

852 

30,2775 

04631 

1 

ROTFLAG 

0366 

REF 

1 

30,2776 

6C763 

0 

EXITVR 

0367 

REF 

3 

LAST 

46 

27,2000 

SETLOC 

A SENT  1 

0368 

27,3275 

BANK 

0369 

REF 

1 

COUNT* 

$ $/ A SENT 

0370 

27,3275 

53575 

0 

ANG1CHEK 

VLOAD 

UNIT 

037  1 

REF 

19 

LAST 

851 

27,3276 

03252 

1 

UNFC/2 

03715 

27,3277 

77641 

1 

DOT 

0372 

REF 

5 

LAST 

847 

27,3300 

02  137 

0 

XNBPI P 

0373 

27,3301 

51025 

1 

DSU 

B PL 

0374 

REF 

2 

LAST 

127 

27,3302 

02566 

0 

C0STHET1 

037  5 

REF 

1 

27,3303 

57312 

0 

OFFROT 

0376 

27,3304 

50375 

0 

VLOAD 

DOT 

037  7 

REF 

6 

LAST 

852 

27,3305 

02137 

0 

XNBPIP 

0378 

REF 

21 

LAST 

85  1 

27,3306 

03537 

0 

UNIT/R/ 

0379 

27,3307 

50025 

0 

DSU 

BMN 

0380 

REF 

2 

LAST 

127 

27,3310 

02570 

1 

C0STHET2 

038  1 

REF 

1 

27,3311 

71453 

0 

KEEPVR1 

0382 

27,3312 

77614 

1 

OFFROT 

CLRGO 

0383 

REF 

5 

LAST 

852 

27,3313 

04631 

1 

ROTFLAG 

0384 

REF 

1 

27,3314 

607  1 7 

0 

C LRXFLAG 

0386 

REF 

1 

23,2000 

SETLOC 

ASENT7 

0387 

23,2453 

BANK 

038  8 

REF 

l 

COUNT* 

£ $/ AS  ENT 

0389 

REF 

2 

LAST 

852 

23,2453 

SETXFLAG 

= 

CHECKYAW 
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THE  DAP  COMMANDED  RATES. 


IF  H LT  25K  CHECK  Z AXIS 


E7  S3 

- HENCE  ZERO 


OR  I ENT  AT  ION. 
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0390 

23,2453 

77614 

1 

CHECKYAW 

SET 

039  1 

REF 

5 

LAST 

85  1 

23, 2454 

06466 

0 

XOVINFLG 

039? 

23,2455 

74345 

0 

DLOAD 

VXSC 

0393 

REF 

5 

LAST 

850 

23,2456 

02346 

1 

ATY 

0394 

REF 

5 

LAST 

850 

23,2457 

02274 

1 

LAXI  S 

0395 

23,2460 

74325 

0 

PDDL 

VXSC 

0396 

REF 

4 

LAST 

85  1 

23, 2461 

02352 

1 

ATP 

0397 

REF 

5 

LAST 

851 

23,2462 

02606 

0 

ZAXI SI 

0398 

23,2463 

53455 

0 

VAD 

UNIT 

0399 

23, 2464 

45325 

1 

PDDL 

DSU 

040  0 

REF 

4 

LAST 

848 

23,2465 

03474 

0 

RDOT 

040  1 

RFF 

1 

23,2466 

06473 

1 

40FPS 

040  2 

23,2467 

52044 

0 

BPL 

GOTO 

040  3 

REF 

1 

23,2470 

6C774 

0 

EX  ITVR1 

0404 

REF 

l 

23,2471 

71451 

1 

KEEPVR 

0409 

23,2472 

00017 

1 

40FPS 

2DEC 

0.12192  b 

040  9 

23,2473 

23305 

0 

0410 

34,3451 

BANK 

34 

041 1' 

REF 

2 

LAST 

842 

34,2000 

SETLOC 

A SENT  8 

0412 

34,3451 

BANK 

0413 

REF 

2 

LAST 

844  TO 

346  : 

44  44* 

COUNT* 

t$/ASENT 

0414 

34,3451 

45575 

1 

KEEPVR 

VLOAD 

STADR 

0415 

REF 

8 

LAST 

85  1 

34,3452 

74517 

1 

STORE 

UNWC/2 

0416 

34,3453 

77775 

1 

KEEP VR1 

VLOAD 

0417 

REF 

22 

LAST 

852 

34,3454 

03537 

0 

UNIT/R/ 

0418 

REF 

20 

LAST 

852 

34,3455 

37252 

0 

STC ALL 

UNFC/2 

0419 

REF 

2 

LAST 

851 

34,3456 

60721 

0 

ASCTERM 

0424 

34,3457 

77634 

0 

ENGhFF 

RTB 

042  5 

REF 

26 

LAST 

842 

34,3460 

21603 

1 

LOADTIME 

0426 

34,3461 

43225 

0 

DSU 

DAD 

042  7 

REF 

19 

LAST 

852 

34,3462 

01234 

0 

PIPTIME 

042  8 

REF 

28 

LAST 

847 

34,3463 

03454 

1 

TTOGO 

042  9 

34 ,3464 

77476 

1 

DCOMP 

EXIT 

0430 

REF 

11 

LAST 

793 

34,3465 

0 7300 

0 

TC 

TP AGREE 

043  1 

REF 

12 

LAST 

815 

34,3466 

3 5007 

0 

CAF 

E BANK  7 

043  2 

REF 

43 

LAST 

829 

34,3467 

54  C 03 

0 

TS 

EBANK 

0433 

REF 

33 

LAST 

849 

E7, 1516 

EBANK= 

T GO 

0434 

34, 3470 

0 C004 

0 

INHINT 

043  5 

REF 

328 

LAST 

844 

34,3471 

10  155 

1 

CCS 

MPAC  +1 

0436 

34,3472 

1 3475 

0 

TCF 

*3 

043  7 

34, 3473 

1 3475 

0 

TCF 

+ 2 

043  8 

REF 

160 

LAST 

832 

34,3474 

3 4746 

0 

CAF 

ZERO 

043  9 

REF 

42 

LAST 

832 

34,3475 

6 4744 

1 

AD 

B I T l 

0440 

REF 

2 

LAST 

160 

34,3476 

55 ' 644 

1 

TS 

ENGOFFDT 

044  1 

REF 

25 

LAST 

831 

34, 3477 

0 5 175 

1 

TC 

TWIDDLE 

0442 

REF 

1 

34,3500 

03512 

1 

ADRES 

ENG0FF1 
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197  PAGE  853 


USER'S  PAGE  NO.  10 


PROHIBIT  X-AXIS  OVERRIDE 


7 


RECALL  L OS V EC 


FROM  PUSHLIST 


FORCE  SIGN  AGREEMENT  ON  MPAC, 


CIA)  = DT  - 1 BIT 
CIA)  = 0 
CIA)  =0 

CIA)  = 1 BIT  OR  DT. 


E 7 S3 


MPAC  +1. 


GAP: 


AS  S EM8L  E REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021L12-161 


L ASCENT  GUIDANCE 


0993 

REF 

71 

LAST 

899 

39,3501 

0 5355 

1 

TC 

P HASCHNG 

0999 

39,3502 

97019 

1 

OCT 

97019 

099  5 

REF 

3 

LAST 

853 

39,3503 

76133 

1 

-GENADR 

ENGOFFDT 

0996 

REF 

39 

LAST 

853 

E7, 1516 

_ 

EBANK= 

T GO 

099  7 

REF 

2 

LAST 

853 

39,3509 

03512 

1 

2CADR 

ENG0FF1 

0997 

39,3505 

7C067 

1 

099  8 

REF 

L 99 

LAST 

851 

39,3506 

0 6060 

1 

TC 

INTPRET 

099  9 

39,3507 

52019 

0 

SET 

GOTO 

0950 

REF 

7 

LAST 

898 

39,3510 

C3970 

1 

IDLEFLAG 

0951 

REF 

2 

LAST 

898 

39,3511 

6C997 

0 

T2TEST 

0952 

REF 

93 

LAST 

852 

39,3512 

0 9665 

0 

ENGQFF1 

TC 

I BNKC ALL 

0953 

PEF 

1 

39,3513 

75552 

1 

CADR 

ENGIN0F2 

0959 

REF 

5 

LAST 

836 

39,3519 

3 5020 

0 

CAF 

PRI017 

0955 

REF 

21 

LAST 

777 

39,3515 

0 5063 

1 

TC 

NOVAC 

0956 

REF 

29 

LAST 

890 

E7 , 1955 

EBANK= 

WHICH 

0957 

REF 

3 

LAST 

792 

39, 3516 

03526 

0 

2C  ADR 

CUTOFF 

095  7 

39,3517 

7C067 

1 

095  8 

REF 

72 

LAST 

859 

39,3520 

0 5355 

1 

TC 

P HASCHNG 

0959 

39,3521 

07C29 

0 

OCT 

07029 

096  0 

39,3522 

17000 

1 

OCT 

1 7000 

096  1 

REF 

35 

LAST 

859 

E 7 , 1516 

EBANK= 

T GO 

0962 

REF 

9 

LAST 

859 

39, 3523 

03526 

0 

2C  ADR 

CUTOFF 

0962 

39,3529 

70067 

1 

0963 

REF 

57 

LAST 

83  1 

39,3525 

1 5263 

1 

TCF 

TASKOVER 

0969 

REF 

58 

LAST 

836 

39,3526 

0 5506 

L 

CUTOFF 

TC 

UPFLAG 

0965 

REF 

5 

LAST 

897 

39,3527 

00219 

0 

ADRES 

FLRCS 

0966 

REF 

1 

39,3530 

3 3597 

1 

-5 

CAF 

V16N99 

096  7 

REF 

231 

LAST 

851 

39,3531 

0 9607 

1 

TC 

BANKCALL 

096  8 

REF 

29 

LAST 

890 

39, 3532 

20971 

1 

CADR 

GOFLASH 

0969 

39,3533 

1 3536 

0 

TCF 

+ 3 

0970 

REF 

1 

39,3539 

1 3590 

1 

TCF 

CUTOFF  1 

0971 

39,3535 

1 3530 

0 

TCF 

-5 

097  2 

REF 

53 

LAST 

891 

39,3536 

0 9626 

1 

+ 3 

TC 

POSTJUMP 

097  3 

REF 

1 

39,3537 

71560 

1 

CADR 

T ERMA  SC 

0979 

39,3590 

0 0009 

0 

CUT0FF1 

INHINT 

0975 

REF 

99 

LAST 

859 

39,3591 

0 9665 

0 

TC 

I BNKC ALL 

0976 

REF 

7 

LAST 

787 

39,3592 

90159 

0 

CAOR 

ZATTEROR 

097  7 

REF 

95 

LAST  _ 

859 

39,3593 

0 9665 

0 

TC 

I BNKCALL 

0976 

REF 

5 

LAST  ' 

751 

39,3599 

90191 

1 

CADR 

SETMINDB 

0979 

REF 

59 

LAST 

859 

39,3595 

0 9626 

1 

TC 

POST  JUMP 

0980 

REF 

1 

39,3596 

71550 

l 

CADR 

CUT0FF2 

0981 

39,3597 

09  136 

1 

V 16N99 

VN 

1699 

0986 

REF 

73 

LAST 

859 

39,3550 

0 5355 

1 

CUTDFF2 

TC 

PHASCHNG 
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859 


DISABLE  DELTA-V  MONITOR 


SHUT  OFF  THE  FNGINE, 


SET  UP  A JOB  FOR  THE  ASCENT  GUIDANCE 


SET  FLRCS  FLAG. 


ZERO  ATTITUDE  ERRORS  BEFORE  REDUCING  DB 


GAP:  ASSEMBLE  REVISION  2 LO  OF  A GC  PROGRAM  LUMINARY  BY  NASA  202LL12-L61 

L ASCENT  GUIDANCE 


0487 

34,3551 

04024 

0 

OCT 

04024 

0488 

REF 

1 

34,3552 

3 35  70 

0 

CAF 

V16N85C 

0439 

REF 

232 

LAST 

854 

34,3553 

C 4607 

1 

TC 

8 ANKC ALL 

0490 

REF 

25 

LAST 

854 

34,3554 

20471 

1 

CADR 

GOFL ASH 

0491 

REF 

2 

LAST 

854 

34,3555 

1 3560 

0 

TCF 

TERMASC 

0492 

34,3556 

1 3560 

0 

TCF 

+ 2 

0493 

REF 

2 

LAST 

854 

34,3557 

1 3550 

0 

TCF 

CUT0FF2 

0494 

REF 

74 

LAST 

854 

34,3560 

0 5355 

1 

TERMASC 

TC 

P HASCHNG 

0495 

34,3561 

04024 

0 

OCT 

04024 

049  6 

34,3562 

0 0004 

0 

INHINT 

0497 

REF 

46 

LAST 

854 

34,3563 

0 4665 

0 

TC 

I BNKCALL 

049  8 

REF 

7 

LAST 

750 

34,3564 

40115 

0 

CADR 

RESTORDB 

0499 

REF 

80 

LAST 

841 

34, 3565 

0 5520 

0 

TC 

DOWNFLAG 

0500 

REF 

3 

LAST 

836 

34,3566 

00215 

l 

ADRES 

L ETABORT 

0501 

REF 

33 

LAST 

840 

34,3567 

1 6001 

1 

TCF 

GOTOPOOH 

050  2 

34,3570 

04125 

0 

V16N05C 

VN 

1685 

0503 

34,3571 

77745 

1 

RPC0MP1 

DLOAD 

0504 

REF 

12 

LAST 

850 

34,3572 

06505 

1 

HI6ZER0S 

0505 

REF 

4 

LAST 

850 

34,3573 

02336 

0 

STORE 

PCONS 

0506 

REF 

8 

LAST 

850 

34,3574 

02342 

0 

STORE 

PRATE 

0507 

34,3575 

41345 

0 

RPC0MP2 

DLOAD 

DMP 

0508 

REF 

9 

LAST 

855 

34,3576 

02342 

0 

PRATE 

0509 

REF 

36 

LAST 

854 

34,3577 

03517 

1 

TGO 

0510 

34,3600 

43  205 

1 

DMP 

DAD 

051  1 

REF 

2 

LAST 

672 

34,3601 

33646 

0 

THIRD 

0512 

REF 

5 

LAST 

855 

34,3602 

02336 

0 

PCONS 

0513 

34,3603 

41205 

0 

DMP 

DMP 

0514 

REF 

37 

LAST 

855 

34,3604 

03517 

1 

TGO 

0515 

REF 

38 

LAST 

855 

34,3605 

03517 

1 

TGO 

0516 

34,3606 

72471 

0 

DDV 

SL1 

0517 

REF 

15 

LAST 

850 

34,3607 

02262 

0 

TBUP 

051  8 

34,3610 

65215 

1 

DAD 

POOL 

0519 

REF 

6 

LAST 

852 

34,361 l 

02272 

1 

/R/MAG 

0520 

REF 

5 

LAST 

353 

34,3612 

03474 

0 

RDOT 

0521 

34,3613 

43205 

1 

DMP 

DAD 

0522 

REF 

39 

LAST 

855 

34,3614 

03517 

1 

TGO 

0523 

34,3615 

77626 

0 

STADR 

0524 

REF 

_ 3 

LAST 

836 

34,3616 

75201 

0 

STORE 

RP 

0525 

34,3617 

77616 

0 

RVQ 

0526 

34, 3620 

45020 

1 

ZDOTDCMP 

STQ 

CALL 

0527 

REF 

l 

34,3621 

02637 

1 

ASCSAVE 

0526 

REF 

2 

LAST 

835 

34, 3622 

71650 

1 

THETCOMP 

052  9 

34,3623 

43205 

1 

DMP 

DAD 

053  0 

REF 

2 

LAST 

127 

34, 3624 

02574 

0 

K PAR  M 

17:11  MAR.  19,1971  FLY  .197  PAGE  855 
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PROCEED 


RESTORE  DEADBAND  DESIRED  RY  ASTRONAUT. 


DISALLOW  ABORTS  AT  THIS  TIMF. 


FLRCS  = 1 (TRIM  MODE) 

SET  PCONS  = PRATE  = 0 SO  THAT 
RP  = R + ROOT  TGO 
FLRCS  = 0 (GUIDANCE  MODE) 

LEAVE  PCONS  ANO  PRATE  ALONE  SO  THAT 

RP  = R + RDOT  TGO  + ( PCONS*TGO**2 ) / 
(2  TBUP)  + ( PRATE*TGO**3 ) / (6  TBUP ) 


COMPUTE  CENTRAL  ANGLE 


(0) 


CENTRAL  ANGLE  IN  MPAC 


GAP:  ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L ASCENT  GUIOANCE 


0531 

REF 

3 

LAST 

836 

34,3625 

02572 

0 

J PAR  M 

0532 

34,3626 

41425 

l 

DSU 

PUSH 

0533 

REF 

4 

LAST 

855 

34, 3627 

02576 

1 

RP 

0534 

34,3630 

51025 

1 

DSU 

B PL 

0535 

REF 

2 

LAST 

126 

34,3631 

02560 

0 

RAMIN 

0536 

34,3632 

71635 

1 

+ 3 

0537 

34,3633 

65345 

0 

DLOAD 

PDDL 

0530 

RFF 

3 

LAST 

B56 

34,3634 

02560 

0 

RAMIN 

0539 

34,3635 

41345 

0 

+ 3 

OLD  AD 

DMP 

0540 

34,3636 

00001 

0 

OD 

054  1 

REF 

l 

34, 3637 

16025 

1 

M UM (—37) 

0542 

34,3640 

77725 

1 

PDDL 

0543 

34,3641 

41215 

1 

DAD 

DMP 

0544 

REF 

5 

LAST 

856 

34, 3642 

02576 

1 

RP 

0545 

REF 

6 

LAST 

856 

34,3643 

02576 

1 

RP 

0546 

34, 3644 

75465 

1 

BDD  V 

SORT 

054  7 

34,3645 

77626 

0 

STADR 

0548 

REF 

6 

LAST 

846 

34,3646 

41507 

0 

STCALL 

ZDOTD 

0549 

REF 

2 

LAST 

855 

34,3647 

02637 

1 

A SC  SAVE 

0550 

34,3650 

53575 

0 

THETCOMP 

VLOAD 

UNIT 

055  1 

REF 

18 

LAST 

846 

34,3651 

03521 

l 

R 

0552 

34, 3652 

53515 

0 

PDVL 

UNIT 

0553 

REF 

3 

LAST 

729 

34,3653 

01716 

0 

R ( CSM  ) 

0554 

34,3654 

47206 

0 

PUSH 

VXV 

0555 

34,3655 

00001 

0 

OD 

0556 

34,3656 

77641 

1 

DOT 

055  7 

REF 

6 

LAST 

842 

34,3657 

02316 

1 

WM 

0558 

34,3660 

24037 

0 

STOVL 

30D 

0559 

34,3661 

72441 

0 

DOT 

SL1 

0 56  0 

34,3662 

75326 

l 

ARCCOS 

S IGN 

0 56  1 

34,3663 

00037 

0 

3 OD 

0562 

34,3664 

77616 

0 

RVQ 

0564 

27,3315 

BANK 

27 

0565 

REF 

4 

LAST 

852 

27,2000 

SETLOC 

A S ENT l 

0566 

27,3315 

BANK 

0567 

REF 

2 

LAST 

852  TO 

852: 

16  16* 

COUNT  * 

$ $/ AS  EN T 

0568 

27,3315 

5C375 

0 

YCOMP 

VLOAD 

DOT 

0569 

REF 

23 

LAST 

853 

27,3316 

03537 

0 

UNIT/R/ 

0570 

REF 

4 

LAST 

846 

27,3317 

C2600 

0 

OAXI  S 

0571 

27,3320 

41312 

1 

SL2 

DMP 

0572 

REF 

5 

LAST 

846 

27,3321 

03631 

0 

RCO 

0573 

REF 

6 

LAST 

84  9 

27,3322 

02326 

1 

STORE 

Y 

0574 

27,3323 

77616 

0 

RVQ 

R0575 

0576 

30, 2777 

BANK 

30 

0577 

REF 

3 

LAST 

846 

30,2000 

SETLOC 

ASENT 

17: 11  MAR.  19, 1971  FLY 
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USFR • S PAGE  NO.  13 
RA  IN  MP AC  AND  IN  PUSHLIST 

RA  < RAMIN.  SET  RA  = RAMIN. 


E7  S3 

(2) 

(2) 


(0) 

UPDATE  ZDOTD  FOR  GUIDANCF  ANn  OOWNLINK. 


(6) 

( 12) 


(6) 
( 0) 


GAP: 

ASSEMBLE' 

REVISION 

210  GE  A GC  PROGRAM  LUMINARY 

BY  NASA  2021112-161 

17:11  MAR.  19,1971 

FLY 

.197  PAGE 

L 

ASCENT 

GUIDANCE 

USER'S  PAGE 

NO. 

1A  E 7 S3 

0578 

30,2777 

BANK 

GAP:  ASSEMBLE  REVISION  210  OE  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L ASCENT  GUIDANCE 


P0579 

ASCENT  GUIOANCE  CUNSTANTS 

0580 

REF  2 LAST  846 

33,3052 

100CS 

EQUALS  2SEC118) 

0581 

REF  1 

30,3001 

T2A 

EQUALS  2 SEC (17) 

0582 

30,2777 

00062 

0 

4SECI 17) 

2DEC  400  B— 17 

0582 

30,3000 

00000 

1 

0533 

30,3001 

00C31 

0 

2 SEC ( 17) 

2DEC  200  B-17 

0583 

30,3002 

00000 

1 

0584 

30,3003 

00175 

1 

T 3 

2DEC  1000  B-17 

0584 

30,3004 

00000 

1 

0585 

30,3005 

C0045 

0 

6 SEC ( 18) 

2DEC  600  8-13 

0585 

30,3006 

20000 

0 

0586 

30,3007 

00010 

0 

B IT4H 

OCT  10 

058  7 

30,3010 

14400 

0 

2 SEC ( 9 ) 

20EC  200  8-9 

0587 

30,301 l 

OOCOO 

1 

0588 

30,3012 

01536 

0 

V06N94 

VN  0694 

0589 

30,3013 

01514 

0 

VC6N76 

VN  0676 

0590 

30,3014 

01441 

1 

V06N33A 

VN  0633 

0591 

33,2113 

BANK  33 

059  2 

REF  1 

33,2000 

SETLOC  ASENT6 

0593 

33,2113 

BANK 

0594 

REF  1 

COUNT 4 $ $ / ASEN  T 

0595 

33,2113 

75751 

0 

PRLIMIT 

2DEC  -.0639 

0595 

33,2114 

4L  775 

1 

0596 

33,2115 

00022 

1 

M INABDV 

2DEC  .0356  B-5 

0596 

33,2116 

07212 

l 

059  7 

33,2117 

00007 

0 

25KFT 

20EC  7620  B- 24 

0597 

33,2120 

16  100 

1 
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(B/TBUP) MI N=—  . IF T .SEC  1-3) 


858 


10  PFRCENT  BIGGER  THAN  GRAVITY 


GAP: 

L 

P0599 

0600 

0601 

0602 

R0603 

R0604 

0605 

0606 

0607 

0608 

0609 

061  0 

061  1 

061  1 

0612 

0612 

0613 

0613 

0614 

0614 

0615 

0615 

0616 

0616 

0617 

061  7 

0618 

061  8 

0619 

0620 

0621 

0622 

0623 

0624 

0625 

0626 

0627 

062  8 

0629 

0630 

063  1 

0632 

0633 

0633 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
ASCENT  GUIDANCE 
THE  LOGARITHM  SUBROUTINE 


. 19,1971 

FLY 

SER'S  PAGE 

NO. 

.197  PAGE 
16  E7  S3 


24,3644 

BANK 

24 

REF 

1 

30,2000 

SETLOC 

FLOGSUB 

30,3015 

BANK 

INPUI  .. 

IN  MP AC 

OUTPUT  . 

LOG ( X ) 

IN  MPAC 

30,3015 

44301 

0 

LOGSUB 

NORM 

BDSU 

REF 

3 29 

LAST 

853 

30,3016 

00163 

0 

MPAC  +6 

REF 

2 

LAST 

847 

30,3017 

17774 

0 

NEARONE 

30,3020 

77776 

1 

EX  IT 

REF 

1 

30,3021 

0 7243 

0 

TC 

POLY 

30,3022 

00006 

1 

OEC 

6 

30,3023 

00000 

L 

2DEC 

. 0000000060 

30,3024 

00C02 

0 

30,3025 

76777 

l 

2DEC 

- .0312514377 

30, 3026 

77  175 

1 

30,3027 

77400 

0 

2DEC 

-.0155686771 

30,3030 

75416 

0 

30,3031 

77507 

0 

2DEC 

- .01  12502068 

30, 3032 

65515 

0 

30,3033 

77741 

0 

2DEC 

- .0018545108 

30,3034 

63547 

1 

30,3035 

77052 

0 

2DEC 

- .0286607906 

30,3036 

55373 

0 

30,3037 

01167 

0 

2DEC 

. 0385598563 

30,3040 

30361 

0 

30,3041 

76520 

1 

2DEC 

-.0419361902 

30,3042 

75267 

0 

REF 

161 

LAST 

853 

30,3043 

3 4 746 

0 

CAF 

ZERO 

REF 

3 30 

LAST 

859 

30,3044 

54  156 

1 

TS 

MPAC  +2 

30,3045 

0 0006 

1 

EXTEND 

REF 

1 

30,3046 

3 3062 

0 

DC  A 

CL0G2/32 

REF 

331 

LAST 

859 

30,3047 

52  155 

1 

DXCH 

MPAC 

REF 

76 

LAST 

826 

30,3050 

52  132 

0 

DXCH 

BUF  +1 

REF 

3 32 

LAST 

859 

30,3051 

3 0162 

1 

CA 

MPAC  +6 

REF 

9 

LAST 

825 

30,3052 

0 7330 

0 

TC 

SHORTMP 

REF 

333 

LAST 

859 

30,3053 

52  156 

1 

DXCH 

MPAC  +1 

REF 

334 

LAST 

859 

30,3054 

52  155 

1 

DXCH 

MPAC 

REF 

77 

LAST 

859 

30 ,3055 

52  132 

0 

DXCH 

BUF  +1 

REF 

335 

LAST 

859 

30,3056 

20  155 

1 

DAS 

MPAC 

REF 

145 

LAST 

854 

30, 3057 

C 6060 

1 

TC 

I NTPRFT 

30,3060 

43476 

0 

DCOMP 

RVQ 

30,3061 

OC  542 

L 

CLOG2/32 

2DEC 

. 0216608494 

30,3062 

34414 

1 

859 
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0001 

37,3401 

BANK 

37 

0002 

REF 

1 

37,2000 

setloc 

SERV1 

000  3 

37,3401 

BANK 

0004 

REF 

40 

LAST 

844 

E 7 , 1 5 1 5 

EBANK= 

DVCNTR 

R0005 

**$*********************************: 

* 

PREREAD 

***************************  *****  ****************************** 

R0007 

0008 

RFF 

1 

COUNT  * 

t$/SERV 

0009 

REF 

13 

LAST 

822 

37, 3401 

3 4750 

l 

PREREAD 

CAF 

SEVEN 

5.7  SPOT  TO  SKIP  L AST  R I AS  AFTER 

0010 

REF 

1 

37, 3402 

0 3530 

1 

TC 

GNUFAZE5 

RESTART. 

001  1 

REF 

3 

LAST 

815 

37,3403 

3 5022 

1 

CAF 

PR  102 1 

0012 

REF 

22 

LAST 

854 

37, 3404 

0 5063 

1 

TC 

NOVAC 

0013 

REF 

5 

LAST 

34  6 

E3 , 1460 

EBANK= 

NBDX 

0014 

REF 

1 

37,3405 

C3733 

0 

2CAUR 

LASTB IAS 

DO  LAST  GYRO  COMPENSATION  IN  FREE  FALL 

0014 

REF 

1 

37,3406 

14063 

l 

0015 

REF 

2 

LAST 

346 

37,3407 

0 3543 

0 

B 18 1 BIAS 

TC 

PIPASR  +3 

CLEAR  + READ  PIPS  LAST  TIME  IN  FREE  FALL 

AOOl  6 

DO  NOT  DESTROY  VALUE  OF  PIPTTMEl 

001  7 

REF 

18 

LAST 

837 

37, 3410 

4 C 103 

1 

CS 

F LAGWRD7 

001  8 

REF 

1 

37,341  l 

7 4764 

l 

MASK 

SUPER01 1 

SET  V37FLAG  AND  AVEGFLAG  (BITS  5 AND  6 

001  9 

REF 

19 

LAST 

860 

37,3412 

26  103 

1 

ADS 

p|  .ru!;nf 

OF  FLAGWRD7) 

002  0 

REF 

2 

LAST 

175 

37,3413 

4 4726 

1 

CS 

DRFTBIT  \ 

002  1 

REF 

15 

LAST 

810 

37,3414 

7 CC76 

1 

MASK 

FLAGWRD2  ) 

START  POWERED  FLITE  GYRO  COMPENSATION 

0022 

REF 

16 

LAST 

860 

37,3415 

54  076 

1 

TS 

FLAGWRD2  J 

BY  T3RUPT 

002  3 

REF 

17 

LAST 

839 

37,3416 

3 4742 

L 

CAF 

"four 

NO  LONGER  NEEDED 

0024 

REF 

2 

LAST 

1 l 1 

37,3417 

55' 256 

0 

TS 

PIPAGE 

002  5 

REF 

6 

LAST 

816 

37,3420 

3 7731 

0 

CAF 

PR  1022 

INITIALIZE  NAVIGATED  STATE  VECTORISM  COO 

0026 

REF 

36 

LAST 

816 

37,3421 

0 5076 

0 

TC 

F INDVAC 

RD)  FROM  MIDTOAVE  OUTPUTS  PRIOR  TO  FIRST 

002  7 

REF 

4 l 

LAST 

860 

E7,  1515 

E BANK  = 

DVCNTR 

AVERAGE  G. 

002  8 

RFF 

2 

LAST 

253 

37,3422 

03661 

0 

2CADR 

NORMLIZE 

002  8 

37,3423 

64067 

1 

002  9 

REF 

58 

LAST 

832 

37,3424 

3 4743 

0 

CA 

TWO 

5.2SP0T  FOR  REREADAC  AND  NORMLIZF 

0030 

REF 

1 

37, 3425 

0 3524 

1 

GORE ADAX 

TC 

GNUTFAZ5 

003  1 

REF 

3 

LAST 

792 

37, 3426 

3 4771 

1 

CA 

2 SECS 

WAIT  TWO  SECONDS  FOR  REAOACCS 

0032 

REF 

6 

LAST 

822 

37, 3427 

0 5226 

l 

TC 

VARDELAY 
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P0033 

R E AD  ACCS 

# : 

003  5 

REF 

1 

37,3430 

4 

3537 

1 

R E AD ACC  S 

CS 

0CT37771 

THIS  PIFCE  OF  CODING  ATTEMPTS  TO 

003  6 

REF 

2 

LAST 

230 

37,3431 

6 

0030 

1 

AD 

T I ME  5 

SYNCHRONIZE  READACCS  WITH  THE  DIGITAL 

0037 

REF 

238 

LAST 

851 

37,3432 

1C 

1 000 

0 

CCS 

A 

AUTOPILOT  SO  THAT  A PAXIS  RUPT  WILL 

0038 

REF 

82 

LAST 

825 

37,3433 

4 

4744 

0 

CS 

ONE 

OCCUR  APPROXIMATELY  70  MILLISECONDS 

0039 

37,3434 

1 

3436 

1 

TCF 

+ 2 

FOLLOWING  THE  READACCS  RUPT.  THE  70  MS 

0040 

REF 

83 

LAST 

86  1 

37,3435 

3 

4744 

1 

CA 

ONE 

OFFSET  WAS  CHOSEN  SO  THAT  THE  PAXIS 

0041 

REF 

3 

LAST 

861 

37,3436 

26 

. 030 

0 

+ 2 

ADS 

T IME5 

RUPT  WOULD  NOT  OCCUR  SIMULTANEOUSLY 

A 004  2 

WITH  ANY  OF  THE  8 SUBSEQUENT  P10,R11 

A0043 

INTERRUPTS  — THUS  MINIMIZING  THE  POSS- 

A0044 

I8ILITY  OF  LOSING  DOWNRUPTS. 

0045 

REF 

3 

LAST 

860 

37,3437 

0 

3 540 

0 

TC 

P IPASR 

READ  THF  PIPAS  AND  THEN  ZERO  THEM. 

0046 

REF 

14 

LAST 

822 

37, 3440 

3 

4747 

1 

PIPS  DON  E 

CA 

FIVE 

0047 

REF 

2 

LAST 

860 

37,3441 

0 

3530 

1 

TC 

GNUFAZE5 

004  8 

REF 

84 

LAST 

861 

37, 3442 

3 

4 744 

1 

RED05.5 

CAF 

ONE 

SHOWS  THAT  PIPAREAD  HAD  NOT  STARTED 

004  9 

REF 

3 

LAST 

860 

37,3443 

55 

•256 

0 

TS 

PIPAGE 

SO  THAT  RESTART  BEGINS  AT  READACCS. 

0050 

REF 

3 

LAST 

80  1 

37,3444 

3 

4727 

1 

CA 

PR  1020 

005  l 

REF 

37 

LAST 

860 

37,3445 

0 

5076 

0 

TC 

F INDVAC 

0052 

REF 

42 

LAST 

860 

E 7 , 1515 

EBANK= 

DVCNTR 

0053  • 

REF 

2 

LAST 

253 

37,3446 

02  121 

1 

2CADR 

SERVICER 

SET  UP  SFRVICER  JOB 

0053 

37,3447 

66067 

0 

0054 

REF 

19 

LAST 

740 

37,3450 

3 

4734 

0 

CA 

B I T9 

0055 

37,3451 

C 

0006 

1 

EXTEND 

0056 

REF 

28 

LAST 

833 

37,3452 

05 

Oil 

1 

WOR 

DSALMOUT 

TURN  ON  TEST  CONNECTOR  OUTBIT.AVE  G ON. 

0057 

REF 

20 

LAST 

860 

37,3453 

3 

0103 

0 

CA 

FLAGWRD7 

WAS  AVERAGE  G ASKED  TO  BE  TERMINATED? 

0058 

REF 

8 

LAST 

837 

37,3454 

7 

4740 

1 

MASK 

AVEGFBIT 

0059 

37,3455 

C 

0006 

1 

EXTEND 

0060 

REF 

1 

37,3456 

1 

3516 

1 

6ZF 

AVEGOUT 

YES:  SET  UP  FINAL  EXIT. 

0061 

REF 

6 

LAST 

812 

37,3457 

3 

C 102 

1 

CA 

FLAGWRD6 

NO:  IS  THIS  P6X  OR  P12? 

0062 

REF 

3 

LAST 

710 

37,3460 

7 

4735 

0 

MASK 

MUNFL3IT 

006  3 

37,3461 

0 

0006 

1 

EXTEND 

0064 

REF 

1 

37,3462 

l 

3514 

0 

BZF 

M AKEACCS 

NO:  BYPASS  LR  READ  AND  DISPLAYS 

0065 

REF 

23 

LAST 

833 

37,3463 

4 

0107 

0 

CS 

FLGWRD1 1 

YES:  DOES  SOMEONE  WANT  TO  BYPASS  LR  UPDT 

0066 

REF 

6 

LAST 

833 

37  r 3 464 

7 

4 726 

1 

MASK 

LRBYB IT 

0067 

37,3465 

0 

C 006 

1 

EXTEND 

006  8 

REF 

1 

37,3466 

1 

3473 

0 

B7F  . 

R10CALL 

YES:  BYPASS  LR  READINGS 

0069 

REF 

1 

37,3467 

3 

3536 

1 

CA 

1 . 75SEC 

A CALL  R 12  0.25  SEC  PRIOR  TO  NEXT  READACCS 

0070 

RFF 

30 

. LAST 

755 

37,3470 

C 

5205 

0 

TC 

WAITL 1ST 

] VELOCITY  LANDING  RADAR  READINGS  ARE  CENT 

0071 

REF 

6 

LAST 

735 

E7 , 1462 

EBANK= 

VSELECT 

/ EPED  AROUND  PIPTIME.  2 VELOCITY  AND  1 AL 

0072 

REF 

l 

37,3471 

03  142 

0 

2C  ADR 

R 12READ 

J TITUDE  READINGS  BEFORF  PIPTIME, 3 V AFTER 

0072 

REF 

1 

37,3472 

5 

2067 

1 
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0C73 

REF 

2 

LAST 

756 

37,3473 

1C  754 

0 

R IOC ALL 

CCS 

PHASE2 

0U7  4 

REF 

2 

LAST 

861 

37,3474 

l 3514 

0 

TCF 

MAKEACCS 

0075 

REF 

14 

LAST 

860 

37,3475 

3 4750 

1 

CAF 

SEVEN 

0076 

REF 

2 

LAST 

831 

37, 3476 

55' 055 

1 

TS 

PIPCTR 

0077 

REF 

17 

LAST 

792 

37,3477 

4 0025 

1 

CS 

T I ME  1 

0076 

REF 

15 

LAST 

861 

37,3500 

6 4747 

1 

AD 

F IVE 

0079 

REF 

2 

LAST 

231 

37,3501 

6 4725 

0 

AD 

NEG1/2 

0080 

REF 

3 

LAST 

862 

37,3502 

6 4725 

0 

AD 

NEG1/2 

008  1 

REF 

4 

LAST 

490 

37,3503 

57 ' 054 

l 

XCH 

TBASE2 

0082 

REF 

3 

LAST 

397 

37,3504 

3 4352 

1 

CAF 

D EC  1 7 

0083 

REF 

130 

LAST 

834 

37,3505 

54  001 

1 

TS 

L 

0084 

37,3506 

4 0000 

0 

COM 

0085 

REF 

6 

LAST 

831 

37,3507 

52  754 

0 

DXCH 

-PHASE2 

0086 

REF 

5 

LAST 

513 

37, 3510 

3 6007 

0 

CAF 

0CT24 

0067 

RFF 

31 

LAST 

861 

37,3511 

0 5205 

0 

TC 

WAITLIST 

008  6 

REF 

24 

LAST 

856 

E7, 1536 

EBANK= 

UNIT/R/ 

0089 

REF 

3 

LAST 

831 

37,3512 

02042 

0 

2CA0R 

R10.R11 

0089 

37,3513 

42067 

0 

0090 

REF 

18 

LAST 

860 

37,3514 

3 4742 

1 

MAKEACCS 

CA 

FOUR 

0091 

REF 

1 

37, 3515 

1 3425 

0 

TCF 

GORE ADA  X 

009  2 

37,3516 

0 

0006 

1 

AVEGOUT  EXTEND 

0093 

REF 

1 

37,3517 

3 

3535 

l 

DC  A 

AVOUTCAD 

0094 

REF 

5 

LAST 

836 

37,3520 

53 

•252 

1 

DXCH 

A VGE X I T 

0095 

REF 

19 

LAST 

86  2 

37, 3521 

3 

4742 

l 

CA 

FOUR 

0096 

REF 

2 

LAST 

860 

37,3522 

0 

3524 

1 

TC 

GNUTF  AZ5 

009  7 

REF 

58 

LAST 

854 

37,3523 

0 

5263 

0 

TC 

TASKOVER 

0096 

REF 

131 

LAST 

862 

37,3524 

54  001 

1 

GNUTFAZ5 

TS 

L 

0099 

REF 

18 

LAST 

862 

37,3525 

4 0025 

1 

CS 

T I ME  1 

0100 

REF 

1 

37,3526 

55*062 

0 

TS 

TBASE5 

010  l 

37,3527 

1 3531 

1 

TCF 

+ 2 

0102 

REF 

132 

LAST 

862 

37,3530 

54  001 

1 

GNUF AZE5 

TS 

L 

0103 

RFF 

133' 

LAST 

862 

37,3531 

4 C001 

l 

CS 

L 

0104 

REF 

2 

LAST 

225 

37,3532 

52  762 

0 

DXCH 

-PHASE5 

0105 

REF 

203 

LAST 

838 

37,3533 

0 0002 

0 

TC 

Q 

0106 

REF  43  LAST  861 

E7,  1515 

EBANK= 

DVCNTR 

0107 

REF  1 

37,3534 

03663  1 

AVOUTCAD  2CADR 

AVGENO 

0107 

REF  1 

37,3535 

44C67  0 
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PHASE  2 ACTIVATEO  - AVOID  MULTIPLE  RIO. 
SET  PIPCTR  FOR  4X/SEC  RATE. 

SET  TBASE2  .05  SECONDS  IN  THE  PAST. 


2 . 2 IS  POT  FOR  RIO.Rll 


FIRST  R 10 , R l 1 IN  .200  SECONDS. 


DO  PHASE  CHANGE  AND  RECALL  READACCS 


SET  UP  FINAL  SERVICER  EXIT 


SET  5.4  SPOT  FOR  REP.EAOAC  AND  SERVICER 
IF  REREADAC  IS  CALLED,  IT  WILL  EXIT 
END  TASK  WITHOUT  CALLING  READACCS 


SAVE  INPUT  IN  L 
SET  TBASE5 


SAVE  INPUT  IN  L 
-PHASE  IN  A,  PHASE  IN  L 
SET  -PHASE5.PHASE5 
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0108 

37,3536 

00257 

l 

1 .75SEC 

OEC 

175 

0109 

37,3537 

37771 

1 

0CT37771 

OCT 

37771 

0110 

33,2121 

BANK 

33 

0111 

REF 

A LAST 

46 

33,2000 

SETLOC 

SERVICES 

0112 

33,2121 

BANK 

0113 

REF 

A LAST 

46  TO 

47: 

12 

75* 

COUNT  * 

$ J./SERV 

17:11  MAR.  19, 

1971 

FLY 

.197  PAGE 

USER ' S 

PAGE 

NO  . 

4 E7  S3 

863 
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0117 

REF 

75 

LAST 

855 

33,2121 

0 5355 

1 

SERVICER  TC 

PHASCHNG 

RESTART  RF  REA  DAC  + 

SERVICER 

Oil  B 

33,2122 

16035 

0 

OCT 

16035 

0119 

33,2123 

20000 

0 

OCT 

20000 

0120 

REF 

44 

LAST 

862 

E7, 1515 

EBANK= 

OVCNTR 

012  1 

REF 

1 

33,2  124 

02132 

0 

2CADR 

GET  ABVAL 

0121 

REF 

1 

33,2125 

66067 

0 

0122 

REF 

3 

LAST 

800 

33,2126 

3 7737 

0 

CAF 

PR  103  1 

INITIALIZE  1/PIPADT 

IN  CASE  RESTART  HAS 

0123 

REF 

7 

LAST 

348 

33,2127 

55 ' 074 

1 

TS 

1 /PIPADT 

CAUSEO  LASTRIAS  TO 

BE  SKIPPEO. 

0124 

REF 

233 

LAST 

855 

33,2130 

0 4607 

1 

TC 

BANKCALL 

PIPA  COMPENSATION  CALL 

0125 

REF 

2 

LAST 

397 

33,2131 

15333 

0 

CAOR 

1/PIPA 

0126 

REF 

146 

LAST 

859 

33, 2132 

0 6060 

1 

GETABVAL 

TC 

I NTPRET 

0127 

33,2133 

51575 

1 

VLOAD 

ABVAL 

0128 

REF 

8 

LAST 

206 

33,2134 

0C325 

0 

DELV 

0129 

33,2135 

77776 

1 

EXI  T 

0130 

REF 

336 

LAST 

859 

33,2130 

3 0154 

1 

CA 

MP  AC 

013  1 

REF 

5 

LAST 

789 

33, 2137 

55' 245 

l 

TS 

ABDELV 

ABDELV  = CM/S  EC*2 ( — 14)  . 

0132 

33,2140 

0 0006 

1 

EXTEND 

0133 

REF 

1 

33,2141 

7 2072 

1 

MP 

KPIP 

0134 

REF 

4 

LAST 

844 

33,2142 

53*  514 

1 

DXCH 

ABDVCONV 

ABDVCONV  = M/CS  *21-5). 

0135 

33,2143 

0 0006 

1 

EXTEND 

0136 

REF 

12 

LAST 

835 

33,2144 

3 1244 

1 

DC  A 

MASS 

0137 

REF 

4 

LAST 

160 

33,2145 

53*571 

1 

DXCH 

MASS  1 

NO  MASS  MONITOR  ON  SURFACE. 

0138 

REF 

14 

LAST 

851 

33,2146 

4 0104 

0 

MASSMON 

CS 

F LAGWRD8 

ARE  WE  ON  THE  SURFACE? 

0139 

REF 

8 

LAST 

707 

33,2147 

7 4735 

0 

MASK 

SURFFBI T 

0140 

33,2150 

0 0006 

1 

EXTEND 

014  1 

REF 

1 

33,2151 

1 2202 

1 

BZF 

MQONSPOT 

YES:  BYPASS  MASS  MESS 

0142 

REF 

21 

LAST 

833 

33,2152 

3 0106 

0 

CA 

FLGWRD10 

NO:  WHICH  VEX  SHOULD  BE  USED? 

0143 

REF 

12 

LAST 

833 

33,2153 

7 4730 

0 

MASK 

APSFLBIT 

0144 

REF 

239 

LAST 

861 

33,2154 

1 ) 0 j 

0 

CCS 

A 

0145 

33,2155 

0 0006 

1 

EXTEND 

IF  EXTEND  IS  EXECUTED,  APSVEX  — > A 

0146 

REF 

3 

LAST 

84  1 

33,2156 

3 2001 

1 

DC  A 

APSVEX 

OTHERWISE  DPSVEX  — > A 

014  7 

REF 

204 

LAST 

862 

33,2157 

54  002 

1 

TS 

Q 

0148 

33,2160 

0 0006 

1 

EXTEND 

0149 

REF 

5 

LAST 

864 

33,2161 

3 1514 

0 

DC  A 

ABDVCONV 

0150 

33,2162 

0 C006 

1 

EXTEND 

015  l 

REF 

205 

LAST 

864 

33,2163 

10  002 

1 

DV 

Q 

WHERE  APPROPRIATE  VEX  RESIDES 

0152 

33,2164 

0 0006 

1 

EXTEND 

0153 

REF 

13 

LAST 

864 

33,2165 

7 1243 

1 

MP 

MASS 

0154 

REF 

5 

LAST 

864 

33,2166 

21 ' 571 

l 

DAS 

MASS  l 

0155 

REF 

18 

LAST 

793 

33,2167 

0 7124 

1 

TC 

DMP 

TP  MP  AC  = ABDELV  AT  2(14)  CM/SEC 

GAP: 
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0156 

REF 

3 

LAST 

819  • 

33,2170 

02073 

1 

ADRES 

KPIP1 

0157 

33,2171 

0 0006 

1 

EXTEND 

01572 

REF 

9 

LAST 

750 

33,2172 

3 1510 

1 

DCA 

DVTOTAL 

0 15  7 A 

REF 

337 

LAST 

86  A 

33,2173 

20  155 

1 

DAS 

MPAC 

01576 

REF 

338 

LAST 

865 

33 , 2 17 A 

52  155 

1 

DXCH 

M P AC 

01578 

REF 

1 

33,2  175 

53’ 17A 

0 

DXCH 

DVTEMP 

0158 

REF 

1 

33,2  176 

0 3A73 

1 

TC 

QUIKFAZ5 

01582 

33,2177 

0 0006 

1 

EXTEND 

0 15  8 A 

REF 

2 

LAST 

865 

33,2200 

3 1 17A 

1 

DCA 

DVTEMP 

01586 

REF 

10 

LAST 

865 

33,2201 

53' 510 

0 

DXCH 

DVTOTAL 

0159 

REF 

1 

33,2202 

0 2367 

1 

MCGNSPOT 

TC 

TMPTOSPT 

0160 

REF 

23A 

LAST 

86A 

33, 2203 

0 A607 

1 

TC 

B ANKCALL 

0161 

REF 

1 

' 33 , 220A 

A7607 

0 

CADR 

QUICTRIG 

0162  . 

REF 

1 

33,2205 

3 2343 

1 

CAF 

XNBPIPAO 

0163 

REF 

235 

LAST 

865 

33, 2206 

0 A607 

1 

TC 

B ANKCALL 

016A 

REF 

1 

33,2207 

20037 

1 

CADR 

FLESHPOT 

0165 

REF 

1 A 7 

LAST 

86A 

33,2210 

0 6060 

1 

TC 

I NTPRET 

0166 

33,2211 

A5014 

0 

AVER  AGEG 

BON 

CALL 

0167 

REF 

6 

LAST 

839 

33,2212 

03307 

0 

MUNFLAG 

0168 

REF 

1 

33,2213 

66  744 

0 

R VBOTH 

0169 

REF 

1 

33 , 2 2 1 A 

66710 

1 

CALCRVG 

0170 

33,2215 

77776 

1 

EXIT 

017  1 

REF 

2 

LAST 

865 

33,2216 

0 3 A 73 

1 

GQSERV 

TC 

0UIKFAZ5 

0172 

REF 

1 

33,2217 

0 2352 

1 

COPYCYCL 

TC 

COPYCYC 

AO  173 

CA 

ZERO 

0 1 7 A 

REF 

2 

LAST 

817 

33,2220 

55 • 157 

1 

TS 

P I PATMPX 

0175 

REF 

2 

LAST 

817 

33,2221 

55' 160 

0 

TS 

P IPATMPY 

0176 

REF 

2 

LAST 

817 

33, 2222 

55' 161 

1 

TS 

P I PATMPZ 

0177 

REF 

2 

LAST 

810 

33,2223 

4 4732 

1 

CS 

STEERBI T 

0178 

REF 

17 

LAST 

860 

33, 222A 

7 0076 

1 

MASK 

FLAGWRD2 

0179 

REF 

18 

LAST 

865 

33,2225 

54  076 

1 

TS 

F LAGWRD2 

0180 

REF 

3 , 

LAST 

757 

33, 2226 

3 4736 

1 

CAF 

IDLEFBI T 

0181 

REF 

21  ’ 

LAST 

861 

33,2227 

7 C 103 

1 

MASK 

FLAGWRD7 

0182 

REF 

2A0 

LAST 

86A 

33,2230 

10  COO 

0 

CCS 

A 

0183 

REF 

1 

33,2231 

1 2264 

L 

TCF 

NODVMON 1 

0 18  A 

REF 

7 

LAST 

861 

33,2232 

4 C 1 02 

0 

CS 

F LAGWRD6 

0185 

REF 

1 

33,2233 

7 4743 

l 

MASK 

AUXFLBIT 

0186 

REF 

2 A 1 

LAST 

865 

33, 223A 

10  COO 

0 

CCS 

A 

0187 

REF 

1 

33,2235 

1 2270 

1 

TCF 

N0DVM0N2 
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PAGE 

USER' S PAGE 

NO. 

6 

E7  S3 

DMP  BY  DP  KPIP1 

TO 

GFT 

MPAC  = ABDELV  AT 

2(7 

) M/CS 

SAVE  NEW  DVTOTAL 

FOR 

RESTARTS 

365 


COUS  AT  PIPTIME  LOADED  INTO  CDUSPOT  CELL 
SINES  AND  COSINES  OF  CDUSPOT. 


COMPUTE  BOD-TO-SM  MATRIX  (XNB) , AND 
STORE  INTO  XNBPIPAO. 


COMPUTE  LM  E,  CM  STATE  VECTORS  IN  LUNAR  G 
, DO  R 12  , DO  C0PYCYCL1,  RETURN  AT  COPYCL 
UPDATE  LM  STATE  VECTOR. 

RN  1 » VN 1 , MASS  1 =>  RN,VN,MASS. 

A IS  ZERO  ON  RETURN  FROM  COPYCYC 
STILL  UNDER  INHINT 

CLEAR  STEERSW  PRIOR  TO  DVMON . 


IS  DV  MONITOR  TO  BE  TURNED  ON? 

NO:  SET  AUXFLAG  TO  0 

ALLOW  ANOTHER  PASS  WITHOUT  DVMON? 

YES:  SET  AUXFLAG  TO  0 


GAP 


ASSEMBLE  REVISION  210  OH  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


SER\ 

? I C E R 

0188 

REF 

7 

LAST 

839 

33, 

,2236 

0189 

REF 

6 

LAST 

864 

33, 

,2237 

0190 

33, 

,2240 

0191 

REF 

1 

33, 

, 2241 

019  2 

REF 

19 

LAST 

865 

33, 

,2242 

0193 

REF 

3 

LAST 

865 

33, 

, 2243 

0194 

REF 

20 

LAST 

866 

33, 

,2244 

0195 

REF 

E‘5 

LAST 

861 

33, 

,2245 

0196 

REF 

45 

LAST 

864 

33, 

,2246 

0197 

REF 

22 

LAST 

864 

33, 

,2247 

019  8 

REF 

13 

LAST 

864 

33, 

,2250 

0199 

REF 

242 

LAST 

865 

33, 

,2251 

0200 

REF 

1 

33, 

,2252 

020  1 

REF 

20 

LAST 

861 

33, 

,2253 

020  2 

33, 

,2254 

0203 

REF 

3 

LAST 

202 

33, 

,2255 

0204 

33, 

,2256 

0205 

REF 

2 

LAST 

866 

33, 

,2257 

0206 

REF 

2 

LAST 

756 

33, 

,2260 

0207 

REF 

27 

LAST 

833 

33, 

,2261 

0208 

REF 

28 

LAST 

866 

33, 

,2262 

0209 

REF 

1 

33, 

2263 

0210 

REF 

2 

LAST 

865 

33, 

2264 

021  1 

REF 

8 

LAST 

865 

33, 

,2265 

0212 

REF 

9 

LAST 

866 

33, 

2266 

0213 

REF 

3 

LAST 

866 

33, 

2267 

0214 

REF 

10 

LAST 

866 

33, 

2270 

0215 

REF 

3 

LAST 

866 

33, 

2271 

0216 

REF 

1 1 

LAST 

866 

33, 

2272 

021  7 

REF 

4 

LAST 

866 

33, 

2273 

021  8 

REF 

3 

LAST 

865 

33, 

2274 

0219 

REF 

46 

LAST 

866 

33, 

,2275 

0220 

REF 

l 

33, 

,2276 

022  1 

REF 

1 

33, 

,2277 

0222 

REF 

2 

LAST 

866 

33, 

,2300 

0223 

REF 

76 

LAST 

864 

33, 

,2301 

0224 

33, 

,2302 

0225 

REF 

4 

LAST 

719 

33, 

,2303 

0226 

REF 

23 

LAST 

860 

33, 

, 2304 

022  7 

REF 

30 

LAST 

854 

E 7 , 

, 1455 

4 1250 

0 

DVMON 

CS 

DVTHRUSH 

6 1245 

0 

AO 

ABDELV 

0 0006 

1 

EXTFND 

6 2274 

1 

BZMF 

LOTHRUST 

4 CO  76 

1 

CS 

FLAGWRD2 

7 4732 

1 

MASK 

STEERBI T 

26  C 76 

1 

ADS 

F LAGWRD2 

3 4744 

1 

DVCNTSET 

CAF 

ONE 

55 ' 5 15 

0 

TS 

DVCNTR 

i 1106 

0 

CA 

FLGWRD10 

7 4730 

0 

MASK 

APSFL  BIT 

10  COO 

0 

CCS 

A 

l 2317 

1 

TCF 

USEJETS 

3 4734 

0 

CA 

8 I T9 

0 0006 

l 

EXTEND 

02  032 

l 

RAND 

CHAN32 

0 0006 

L 

EXTEND 

1231? 

l 

BZF 

USEJETS 

4 4727 

0 

USEGTS 

CS 

USEQRJTS 

7 0111 

I 

MASK 

DAPBOOLS 

54  111 

l 

TS 

DAPBOOLS 

l 2322 

l 

TCF 

SERVOUT 

4 4743 

1 

NODVMON 1 

CS 

AUXFLRI T 

7 C 1 02 

0 

MASK 

F LAGWRD6 

54  102 

0 

IS 

F LAGWRD6 

1 2317 

1 

TCF 

USEJETS 

4 0102 

0 

NQDVM0N2 

CS 

FLAGWRD6 

7 4743 

1 

MASK 

AUXFLRI T 

26  102 

0 

ADS 

FLAGWRD6 

l 2317 

1 

TCF 

USEJETS 

0 3473 

1 

LOTHRUST 

TC 

QUIKFAZ5 

1 1 • 515 

0 

CCS 

DVCNTR 

l 2310 

0 

TCF 

OECCNTR 

10  7 60 

1 

CCS 

PHASE4 

1 2322 

1 

TCF 

SERVOUT 

0 5355 

1 

TC 

PHASCHNG 

CC374 

1 

OCT 

00374 

3 7 7 34 

0 

CAF 

PRI025 

0 5063 

1 

TC 

NOVAC 

ER ANK= 

WHICH 
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USER'S  PAGE  ND.  7 E7  S3 

SUFFICIENT  THRUST  TO  STEER  WITH? 

NO:  THRUST  TOO  LO,  DECREMENT  DVCNTR 
YES:  SET  STEERSW  TO  ALLOW  GUIDANCE. 

ALLOW  TWO  PASSES  MAXIMUM  NOW  THAT 
THRUST  HAS  BEEN  DETECTED. 

IS  APSFLAG  SET? 

YES:  USF  RCS  TO  STEFR  ASCENT  STAGE. 
NO:  PITCH  GIMBAL  FAILURE? 

YES:  USE  RCS  TO  STEER  DESCENT  STAGE 
NO:  USE  GTS  TO  STEFR  DESCENT  STAGE. 


SET  AUXFLAG  TO  0. 


SET  AUXFLAG  TO  1. 


TWO  PASSES  OF  LO  THRUST? 
NO:  DECREMENT  DVCNTR. 

COMFAIL  JOB  ACTIVE? 

YES  WON'T  NEED  ANOTHER. 


4.37SP0T  FOR  COMFAIL 


GAP: 


ASSEMBLF  REVISION  210  OF 


A GC  PROGRAM  LUMINARY  BY  NASA 


202LII2-161 


L SERVICER 


0228 

REF 

2 

LAST 

253 

33,2305 

C2570 

1 

2CADR 

COMFAIL 

022  8 

33,2306 

74C67 

0 

0229 

REF 

3 

LAST 

866 

33,2307 

1 2322 

1 

TCF 

SERVOUT 

0230 

REF 

1 

33,2310 

55 ' 570 

0 

DECCNTR 

TS 

DVCNTR1 

0231 

REF 

4 

LAST 

866 

33,2311 

0 3473 

1 

TC 

QUIKFAZ5 

0232 

REF 

2 

LAST 

867 

33,2312 

3 1570 

1 

CA 

DVCNTR1 

0233 

REF 

47 

LAST 

866 

33,2313 

55' 515 

0 

TS 

DVCNTR 

0234 

33,2314 

0 0004 

0 

INHINT 

0235 

REF 

47 

LAST 

855 

33,2315 

0 4665 

0 

TC 

I BNKCALL 

0236 

REF 

8 

LAST 

852 

33,2316 

40166 

1 

CADR 

STOPRATE 

023  7 

REF 

29 

LAST 

866 

33,2317 

4 0111 

1 

USEJETS 

CS 

DAPBOOLS 

023  8 

REF 

3 

LAST 

866 

33,2320 

7 4727 

0 

MASK 

USEQRJTS 

0239 

REF 

30 

LAST 

867 

33,2321 

26  111 

1 

ADS 

DAPBOOLS 

0240 

33,2322 

0 0003 

1 

SERVOUT 

PFL INT 

024  1 

REF 

236 

LAST 

865 

33,2323 

0 4607 

1 

TC 

BANKCALL 

0242 

PFF 

1 

. 33,2324 

40463 

1 

CADR 

1 /ACCS 

0243 

REF 

11 

LAST 

283 

33,2325 

3 0167 

1 

CA 

PR  IORITY 

0244' 

REF 

9 

LAST 

445 

33,2326 

7 4775 

1 

MASK 

L0W9 

0245 

REF 

4 

LAST 

804 

33,2327 

54  166 

1 

TS 

PUSHLOC 

0246 

33,2330 

22  C07 

0 

ZL 

024  7 

REF 

24 

LAST 

827 

33,2331 

52  121 

1 

DXCH 

FIXLOC 

024  0 

REF 

5 

LAST 

867 

33,2332 

0 34  73 

1 

TC 

QUIKFAZ5 

0249 

REF 

20 

LAST 

853 

33,2333 

4 1234 

1 

CS 

PIPTIME 

0250 

REF 

19 

LAST 

862 

33,2334 

6 0025 

0 

AD 

T I ME  1 

0251 

RFF 

9 

LAST 

577 

33,2335 

6 4727 

1 

AD 

HALF 

0252 

REF 

10 

LAST 

867 

33,2336 

6 4727 

1 

AD 

HALF 

0253 

REF 

7 

LAST 

216 

33,2337 

57 ' 355 

0 

XCH 

S ERVDURN 

0254 

33,2340 

0 0006 

1 

EXTEND 

0255 

REF 

6' 

LAST 

862 

33,2341 

3 1252 

0 

DC  A 

AVGEXIT 

0256 

REF 

21 

LAST 

750 

33,2342 

52  006 

0 

DXCH 

Z 

0257 

REF 

7 

l AST 

852 

33,2343 

C2  136 

1 

XN BP  I PAD 

ECADR 

XNBPI P 

0258 

32,3656 

BANK 

32 

0259 

REF 

1 

22,2000 

SETLOC 

SERV2 

0260 

22,3663 

BANK 

0261 

REF 

1 

COUNT* 

$$/SERV 

0262 

REF 

21 

LAST 

867 

22,3663 

3 1234 

0 

AVGEND 

CA 

PIPTIME  ■ 

0263 

REF 

8- 

LAST 

8 64 

22,3664 

55'074 

1 

TS 

1 /PIPADT 

0264 

REF 

59 

LAST 

854 

22 , 3665 

0 5506 

1 

~T(>"—  ■ 

•tjijfLag 

0265 

REF 

1 

22, 3666 

0C036 

1 

ADRE  S 

DRIFTFLG 

0266 

REF 

237 

LAST 

867 

22,3667 

C 4607 

1 

TC 

BANKCALL 

0267 

REF 

1 

22, 3670 

1 7275 

1 

CADR 

P IPFREE 
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867 
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ESTABLISH  JOB  COMFAIL  FOR 
THRUST  FAIL  LOGIC. 


IF  THRUST  IS  LOW,  NO  STFERING  IS  DONE 
AND  THE  DESIRED  PATES  ARE  SET  TQ  ZERO. 

TELL  DAP  TO  USE  RCS  TO  STEFR. 


COMPUTE  VEHICLE 


MOMFNTS  OF  INERTIA. 


FIXLOC  AND  OVFIND 


SERVICER  DURATION  FOR  DOWNLINK 
EXIT  TO  SELECTED  ROUTINE  WHETHER  THERE 
IS  THRUST  OR  NOT.  THE  STATE  OF  STEEPSW 
WILL  CONVEY  THIS  INFORMATION. 


FINAL  AVERAGE  G 
SET  UP  COASTING 


FXIT, AVEGFLAG  SET. 

FLIGHT  GYRO  COMPENSATION 


SET  DRIFT  FLAG,  TERMINATE  POWERED  FLITE 
GYRO  COMPENSATION. 


GAP: 


ASSEMBLE  REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161 


SERVICER 

026  8 

REF 

21 

LAST 

866 

22 

0269 

22 

0270 

REF 

29 

LAST 

861 

22 

0271 

REF 

1 1 

LAST 

758 

22 

0272 

22 

0273 

22 

0274 

22 

0275 

REF 

148 

LAST 

865 

22 

0276 

22 

0277 

REF 

1 

22 

0278 

22 

0279 

REF 

7 

LAST 

865 

22 

0280 

REF 

1 

22 

0281 

22 

0282 

REF 

1 

22 

0283 

REF 

55 

LAST 

854 

22 

0284 

REF 

1 

22 

028  5 

REF 

1 

22 

4 4734 

1 

cs 

8 I T9 

C 0C06 

1 

EXTEND 

03  Oil 

1 

WAND 

DSALMOUT 

0 5331 

0 

TC 

2 PHSCHNG 

00005 

1 

OCT  , 

5 

05022 

1 

OCT 

05022 

20000 

0 

OCT 

20000 

0 6060 

1 

TC 

I NTPRET 

776  14 

1 

CLEAR 

03664 

0 

SWANDISP 

45014 

0 

CLEAR 

CALL 

03267 

1 

MUNFLAG 

27522 

1 

AVETOMID 

77414 

0 

CLEAR 

EXIT 

03671 

1 

V37FLAG 

0 4626 

l 

AVERTRN 

TC 

POSTJUMP 

10144 

1 

CADR 

V37RET 

OUTGOAVE 

= 

AVERTRN 

,3671 

,3672 

36  73 

,3674 

3675 

36  76 

3677 

3 700 

3 70  1 

3702 

3703 

3 704 

3705 

3 706 

3707 

3710 

3711 

3710 
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USER'S  PAGE  NO.  9 F7  S3 

TELL  WORLD  THAT  AVERAGEG  IS  NOW  OFF. 

GPOUP  5 OFF 
GROUP  2 ON 


SHUT  OFF  RIO  WHEN  SERVICER  FNDS. 
RESFT  MUNFLAG. 

BRING  CM  STATF  VECTOR  UP  TO  PIPTIME. 


GO  TO  V 37  LOGIC 


GAP:  ASSEMBLE  REVISION  210  QF  AGC  PROGRAM  LUMINARY  BY  NASA  2021I12-L61  L7 

L SERVICER 

P0287  SERVIOLE  IS  ENTERED  AFTtR  A PCODOO  SOFTWARE  RESTART.  SERVICER  CONTINUES 
R02877  TERMINATED.  ABORTS  MONITOR  CONTINUES  TO  RUN. 


0288 

REF 

1 

27,2000 

SETLOC 

SERV3 

0289 

27,3324 

BANK 

0290 

REF 

1 

COUNT* 

$$/SERV 

0291 

27,3324 

0 C006 

1 

SERVI DLE 

EXTEND 

0292 

REF 

1 

27, 3325 

3 3362 

0 

DC  A 

S VEXTADR 

0293 

REF 

7 

LAST 

867 

27,3326 

53' 252 

1 

DXCH 

AVGEX IT 

0294 

REF 

22 

LAST 

865 

27,3327 

4 0103 

1 

CS 

FLAGWRD7 

0295 

REF 

4 

LAST 

865 

27,3330 

7 4736 

0 

MASK 

IDLEFBI T 

0296 

REF 

23 

LAST 

869 

27,3331 

26  103 

1 

ADS 

FLAGWRD7 

029  7 

REF 

7 

LAST 

86  1 

27,3332 

3 4726 

0 

CAF 

LRBYBIT 

0298 

REF 

24 

LAST 

86  1 

27,3333 

54  107 

0 

TS 

FLGWRD1 1 

0299 

27,3334 

0 0006 

1 

EXTEND 

0300 

REF 

16 

LAST 

831 

27,3335 

3 4746 

0 

DC  A 

NEGO 

0301 

REF 

4 

LAST 

731 

27,3336 

52  752 

0 

DXCH 

-PHASE1 

0302 

REF 

12 

LAST 

866 

27,3337 

3 0102 

1 

CA 

F LAGWRD6 

0303 

REF 

4 

LAST 

861 

27,3340 

7 4735 

0 

MASK 

MUNFLBIT 

0304 

REF 

243 

LAST 

866 

27,3341 

1C  COO 

0 

CCS 

A 

0305 

27,3342 

1 3346 

1 

TCF 

+ 4 

0306 

27,3343 

0 0006 

1 

EXTEND 

0307 

REF 

17 

LAST 

869 

27,3344 

3 4746 

0 

DC  A 

NEGO 

030  8 

REF 

7 

LAST 

862 

27,3345 

52  754 

0 

DXCH 

-PHASE2 

0309 

27,3346 

0 C C 06 

1 

+ 4 

EXTEND 

0310 

REF 

18 

LAST 

869 

27,3347 

3 4 7 4& 

0 

DC  A 

NEGO 

031  1 

REF 

4 

LAST 

811 

27,3350 

52  756 

1 

DXCH 

-PHASE3 

0312 

27,3351 

C 0006 

1 

EXTEND 

0313 

REF 

19 

LAST 

869 

27,3352 

3 4746 

0 

DC  A 

NEGO 

0314 

RFF 

3 

LAST 

739 

27,3353 

52  764 

0 

DXCH 

-PHASE6 

0315 

REF 

2 

LAST 

235 

27,3354 

3 4755 

1 

CAF 

0CT33 

0316 

REF 

134 

LAST 

862 

27,3355 

54  001 

1 

TS 

L 

0317 

27,3356 

4 CCOO 

0 

COM 

0318 

REF 

8 

LAST 

834 

27,3357 

52  760 

1 

DXCH 

-PHASE4 

0319 

REF 

1 

27, 3360 

1 5636 

0 

TCF 

WHIMPER 

A0320 

A0321 

A0322 

A0323 
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BUT  GUIDANCE  AND  R12  ( IF  RUNNING)  ARE 


DISCONNECT  SERVICER  FROM  ALL  GUIDANCE 
DISCONNECT  THE  DELTA-V  MONITOR 
TERMINATE  R12  IF  RUNNING. 


DO  NOT  TURN  OFF  PHASE  2 IF  MUNFLAG  SET. 


4.33SP0T  FOR  GDPOOFIX 

PERFORM  A SOFTWARE  RF  STAR  T AND  PROCEED 
TO  GOTOPOOH  WHILE  SERVICER  CONTINUES  TO 
RUN,  ALBEIT  IN  A GROUND  STATE  WHERE 
ONLY  STATE-VECTOR  DEPENDENT  FUNCTIONS 
ARE  MAINTAINED. 


GAP:  ASSEMBLE  REVISION  210  CF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-16L 


SERVICER 

0 32  A 

REF 

A 8 

LAST 

867 

E 7 1 1 5 1 5 

0325 

REF 

7 

LAST 

83  A 

27,3361 

032  5 

27,3362 

0326 

32,3656 

0327 

REF 

1 

32,2000 

0328 

0329 

REF 

1 

32,3656 

0330 

REF 

77 

LAST 

866 

32,3656 

0331 

32,3657 

0332 

REF 

130 

LAST 

851 

32,3660 

EBANK= 

DVCNTR 

C 36  56  1 
6A067  1 

S VEX  T ADR  2CA0R 

SERVEXIT 

BANK 

32 

SETLOC 

SFRV 

8ANK 

COUNT* 

St/SERV 

0 5355 

1 

SERVEXIT  TC 

PHASCHNG 

00035 

1 

OCT 

00035 

1 51A6 

0 

TCF 

ENDOF JOB 
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PAGE  NO.  11 
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GAP:  ASSEMBLE  RFVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L SERVICER 


P0337 

NCRML I ZE 

AND 

COPYCYCL 

033  8 

REF 

149 

LAST 

868 

32,3661 

0 6060 

1 

NORMLIZE 

TC 

INTPRET 

0339 

32,3662 

43175 

0 

VLOAD 

BOFF 

0340 

REF 

3 

LAST 

156 

32,3663 

03545 

0 

RN1 

0341 

REF 

8 

LAST 

868 

32,3664 

03347 

1 

MUNFLAG 

0342 

REF 

1 

32,3665 

66344 

i 

NORML IZl 

0343 

32,3666 

64252 

0 

VSL6 

MX  V 

0344 

REF 

35 

LAST 

842 

32,3667 

01732 

0 

R EFSMMAT 

0345 

REF 

19 

LAST 

856 

32,3670 

37521 

0 

STC ALL 

R 

0346 

REF 

4 

LAST 

840 

32,3671 

67037 

1 

MUNGRAV 

0347 

32, 3672 

76575 

1 

VLOAD 

VSL1 

0348 

REF 

4 

LAST 

775 

32,3673 

03553 

1 

V N 1 

0349 

32,3674 

77721 

0 

MX  V 

0350 

REF 

36 

LAST 

871 

32,3675 

01732 

0 

REFSMMAT 

0351 

REF 

11 

LAST 

846 

32,3676 

03527 

1 

STORE 

V 

0352 

32,3677 

41535 

1 

SLOAD 

PUSH 

0352  1 

REF 

1 

32,3700 

01457 

0 

PBIASZ 

03522 

32,3701 

41535 

1 

SLOAD 

PUSH 

0353 

REF 

1 

32,3702 

C 1455 

1 

PBIASY 

03531 

32,3703 

55535 

1 

SLOAD 

VDEF 

0354 

REF 

2 

LAST 

114 

32,3704 

01453 

1 

P8I ASX 

03541 

32,3705 

77761 

1 

VXSC 

0355 

REF 

1 

32, 3706 

26641 

0 

B I ASF  ACT 

0355  1 ' 

REF 

4 

LAST 

819 

32,3707 

02616 

1 

STORE 

V B I AS 

0356 

32,3710 

77776 

1 

ASCSPOT 

EXIT 

035  7 

32,3711 

0 0006 

l 

EXTEND 

035  3 

REF 

20 

LAST 

869 

32,3712 

3 4746 

0 

DC  A 

NEGO 

0359 

REF 

8 

LAST 

869 

32,3713 

52  754 

0 

DXCH 

-PHASE2 

0360 

REF 

56 

LAST 

868 

32,3714 

0 4626 

1 

TC 

POST  JUMP 

0361 

REF 

1 

32,3715 

66347 

1 

CADR 

NORML I Z2 

0362 

33,2344 

BANK 

33 

0363 

REF 

5 

LAST 

863 

33,2000 

SETLOC 

SERVICES 

0364 

33,2344 

BANK 

0365 

REF 

5 

LAST 

863  TO 

867  : 

147  222* 

COUNT* 

$ $/SER V 

0366 

33,2344 

77624 

1 

NORM  L I Z 1 

CALL 

0367 

REF 

1 

33,2345 

66642 

1 

CALCGRAV 

0368 

33,2346 

77776 

1 

EXIT 

0369 

REF 

1 

33,2347 

3 2366 

0 

NCRML I Z 2 

CA 

E IGHTEEN 

0370 

REF 

2 

LAST 

865 

33,2350 

0 2353 

0 

TC 

COPYCYC  +1 

0371 

REF 

131 

LAST 

870 

33, 2351 

0 5146 

1 

TC 

ENDOF JOB 

R037  1 5 

COPYCYC 

PLACES  NEWLY  NAVIGATED 

STATE  VECTORS  AND  MASS 

INTO  DOWNL I 

0372 

REF  6 

LAST  862  33,2352  3 

6007  0 COPYCYC  CA 

0CT24 
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DO  NOT  USE  LUNAR  LANDING  AVERAGE  G 


LM  POS  VECTOR  IN  SM  COORD  AT  2(+24)M. 
USE  LUNAR  LANDING  AVERAGE  G ROUTINE. 


LM  VEL  VECTOR  IN  SM  COORD  AT  2I+71M/CS. 
COMPUTF  PIPA  BIAS  VECTOR  FOR  USE  BY 
P66R0D  AND  LANDING  ANALOG  DISPLAYS 


ONE  SECOND'S  BIAS  IN  UNITS  OF  2(7)  M/CS 
MAKE  SURE  GOUP  2 IS  OFF. 


DO  NOT  COPY  MASS  IN  NORMLIZE 


REG 


DFC  20 


GAP: 


ASSEMBLE  REVISION  210  GF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L SERVICER 


0373 

33,2353 

0 C004 

0 

+ 1 

INHINT 

0374 

REF 

4 

LAST 

345 

33,2354 

7 7770 

1 

+ 2 

MASK 

NEG1 

0375 

REF 

28 

LAST 

746 

33,2355 

54  061 

1 

TS 

I TEMPI 

0376 

33,2356 

C 0006 

1 

EXTENO 

0377 

REF 

25 

LAST 

872 

33,2357 

5 0061 

0 

INDEX 

I TEMPI 

0378 

REF 

4 

LAST 

871 

33,2360 

3 1545 

1 

DC  A 

RN1 

0379 

REF 

30 

LAST 

872 

33,2361 

50  061 

0 

INDEX 

I TEMP  1 

0380 

REF 

14 

LAST 

788 

33,2362 

53*220 

1 

DXCH 

RN 

0381 

REF 

31 

LAST 

872 

33,2363 

10  061 

1 

CCS 

I TEMPI 

0382 

REF 

3 

LAST 

871 

33,2364 

1 2354 

0 

TCF 

COPYCYC  +2 

0383 

REF 

206 

LAST 

864 

33,2365 

0 0002 

0 

TC 

Q 

0384 

33,2366 

0C022 

I 

E IGHTEEN 

DEC 

18 
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1971 
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RETURN  UNOFR  INHINT 


872 


GAP:  ASSEMBLE  REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L SERVICER 

P0385  a******************  pIpA  READER  a******************* 
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USER ' S PAGE  NO.  14 


R0386 


MOD  NO.  00  BY  D.  LICKLY  DEC. 9 1966 


R0387  FUNCTIONAL  DESCRIPTION 


R0388 
. R0390 

R0392 


SUBROUTINE  TO  READ  PIPA  COUNTERS,  TRYING  TO  BE  VERY  CAREFUL 
PIPA  READINGS  ARE  STORED  IN  THE  VECTOR  DELV.  THE  HIGH  ORDER 
RESTARTS  BEGIN  AT  REREADAC. 


SO  THAT  IT  WILL  BE  REST  ART  ABLE . 
PART  OF  EACH  C OMPONFNT  CONTAINS 


THE  PI 


R0393  AT  THE  END  OF  THE  PIPA  READER  THE  CDUS  ARE  READ  AND  STORED  AS  A 

R0394  VECTOR  IN  CDUTEMP.  THE  HIGH  ORDER  PART  OF  EACH  COMPONENT  CONTAINS 


R0395 

THE  CDU 

READING  I 

N 2S  COMP  IN 

THE  ORDER  CDUX.Y, 

,Z. 

THE 

THRUST 

R0396 

VECTOR 

ESTIMATOR 

IN  FINDCDUD 

REGU  IRES  THE  CDUS 

BE 

READ 

AT  PIPTIME 

R0397 

CALLING 

SEQUENCE 

AND  EXIT 

R0398 

CALL 

VI  A TC  , I 

SWCALL,  ETC. 

R0399 

EXIT 

IS  VIA  Q. 

R0400 

R0401  INPUT 

R0402  INPUT  IS  THROUGH  THE  COUNTERS  PIPAX,  PIPAY,  PIPAZ,  AND  TIME2. 

R0403  OUTPUT 

R0404  HIGH  ORDER  COMPONENTS  OF  THE  VECTOR  DELV  CONTAIN  THE  PIPA  READINGS. 

R0405  PIPTIME  CONTAINS  TIME  OF  PIPA  READING. 

R0406  DEBRIS  (ERASABLE  LOCATIONS  DESTROYED  BY  PROGRAM! 


R0407 

TEMX 

TEMY 

TEMZ 

PIPAGE 

040  8 
040  9 
0410 

REF 

2 

LAST 

860 

37,3540 

37,2000 

37,3540 

BANK 

SETLOC 

BANK 

37 

SERV1 

041  1 

REF 

2 

LAST 

860  TO 

863: 

95  95* 

COUNT* 

$ $ /SERV 

0412 

37,3540 

0 0006  1 P I PA  SR 

EXTEND 

PAGE  873 
E 7 S3 


A READING, 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L SERVICER 


0413 

REF 

27 

LAST 

833 

37,3541 

3 0025 

0 

DC  A 

T I ME  2 

0414 

REF 

9 

LAST 

799 

37,3542 

53*561 

0 

DXCH 

P IPTIMEL 

0415 

REF 

162 

LAST 

859 

37,3543 

4 4746 

l 

+ 3 

CS 

ZERO 

0416 

REF 

5 

LAST 

818 

37,3544 

55*253 

0 

TS 

TEMX 

0417 

REF 

4 

LAST 

818 

37,3545 

55 ' 254 

1 

TS 

TEMY 

0418 

REF 

4 

LAST 

818 

37,3546 

55 ' 255 

0 

TS 

TEMZ 

0419 

REF 

16  3 

LAST 

874 

37,3547 

3 4746 

0 

CA 

ZERO 

042  0 

REF 

4 

LAST 

396 

37,3550 

54  330 

0 

TS 

DELVZ 

042  1 

REF 

5 

LAST 

874 

37,3551 

54  331 

1 

TS 

DEL  VZ  +1 

042  2 

REF 

5 

LAST 

396 

37,3552 

54  326 

l 

TS 

DELVY 

042  3 

REF 

6 

LAST 

6 74 

37,3553 

54  327 

0 

TS 

OELVY  +1 

0424 

REF 

9 

LAST 

397 

37,3554 

54  325 

1 

TS 

DELVX  +1 

042  5 

REF 

4 

LAST 

861 

37,3555 

55' 256 

0 

TS 

P I PAGE 

0426 

37,3556 

0 0006 

1 

REP  I P 1 

EXTEND 

042  7 

REF 

12 

LAST 

817 

37,3557 

4 0040 

l 

DCS 

P IPAX 

042  8 

REF 

6 

LAST 

874 

37,3560 

53*254 

1 

DXCH 

TEMX 

042  9 

REF 

13 

LAST 

874 

37,3561 

52  040 

1 

DXCH 

P IPAX 

043  0 

REF 

10 

LAST 

874 

37,3562 

54  324 

0 

TS 

DELVX 

043  1 

REF 

7 

LAST 

874 

37,3563 

22  326 

0 

LXC.H 

DELVY 

043  2 

REF 

6 

LAST 

817 

37,3564 

•4* 

o 

o 

0 

REP  I P 3 

CS 

P IPAZ 

0433 

REF 

5 

LAST 

874 

37,3565 

57*255 

1 

XCH 

TEMZ 

0434 

REF 

7 

LAST 

874 

37,3566 

56  041 

1 

XCH 

PIPAZ 

0435 

REF 

6 

LAST 

874 

37,3567 

54  330 

0 

DCDELVZ 

TS 

DELVZ 

0436 

37, 35  70 

0 0006 

l 

REPIP4 

EXTEND 

043  7 

REF 

10 

LAST 

874 

37,3571 

3 1561 

1 

DC  A 

PIPTIME  1 

043  8 

RFF 

2 

LAST 

108 

37,3572 

53' 247 

0 

DXCH 

PGUIDE 

0439 

37,3573 

C 0006 

1 

EXTEND 

044  0 

REF 

22 

LAST 

867 

37,3574 

4 1234 

1 

DCS 

PIPTIME 

044  l 

REF 

3 

LAST 

874 

37,3575 

21*247 

0 

DAS 

PGUIDE 

044  2 

REF 

13 

LAST 

588 

37,3576 

3 0032 

0 

CA 

C DUX 

044  3 

REF 

2 

LAST 

576 

37,3577 

55*154 

1 

TS 

CDUTEMPX 

0444 

REF 

7 

LAST 

588 

37,3600 

3 0C33 

l 

CA 

CDUY 

044  5 

REF 

2 

LAST 

576 

3 7, 1 601 

55* 155 

0 

TS 

CDUTEMPY 

044  6 

REF 

10 

LAST 

369 

37,3602 

3 CC34 

0 

CA 

CDUZ 

044  7 

REF 

1 

37,3603 

55'  156 

0 

TS 

CDUTEMPZ 

044  8 

REF 

1 1 

LAST 

874 

37,3604 

3 0 324 

1 

CA 

DELVX 

044  9 

REF 

3 

LAST 

865 

37,3605 

55*  157 

1 

TS 

P IPATMPX 

045  0 

REF 

8 

LAST 

874 

37, 3606 

3 0326 

0 

CA 

DELVY 

045  1 

REF 

3 

L A S 1 

865 

37,3607 

55* 160 

0 

TS 

P IPATMPY 

0452 

REF 

7 

LAST 

874 

37,3610 

3 0330 

1 

CA 

DELVZ 

0453 

REF 

3 

LAST 

865 

37,3611 

55*  161 

1 

TS 

P I PATMPZ 

0454 

REF 

207 

LAST 

872 

37,3612 

0 0002 

0 

TC 

Q 
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CURRENT  TIME  POSITIVE  VALUF 
INITIALIZE  THESE  AT  NEG.  ZFRO. 


SHOW  PIPA  READING  IN  PROGRFSS 

X AND  Y PIPS  READ 

PIPAS  SET  TO  NEG  ZFRO  AS  READ. 

REPEAT  PROCESS  FOR  Z PIP 
COMPUTE  GUIDANCE  PERIOD  ‘ 


READ  CDUS  INTO  HIGH  ORDER  CDUTEMPS 


GAP: 

ASSEMBLE  REVISION  210 

OF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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L 

SERVICER 

USER'S  PAGE  NO.  16  E7  S3 

045  5 

REE 

5 

LAST 

874 

37, 3613 

11 ' 256 

0 

REREADAC 

CCS 

P IPAGE 

0456 

REF 

1 

37,3614 

1 3430 

1 

TCF 

READACCS 

PIP  READING  NOT  STARTED.  GO  TO  BEGINNING 

045  7 

REF 

1 

37,3615 

3 3653 

1 

CAF 

DONFADR 

SET  UP  RETURN  FROM  PIPASR 

0458 

REF 

2 C 8 

LAST 

874 

37,3616 

54  002 

1 

TS 

Q 

0459 

REF 

8 

LAST 

874 

37,3617 

10  330 

0 

CCS 

DELVZ 

0460 

REF 

1 

37,3620 

1 3570 

1 

TCF 

REPI P4 

Z DONE,  GO  DO  CDUS 

046  1 

37,3621 

1 3624 

0 

TCF 

+ 3 

Z NOT  DONE,  CHECK  Y. 

046  2 

REF 

2 

LAST 

875 

37,3622 

1 3570 

1 

TCF 

REPI P4 

0463 

REF 

3 

LAST 

875 

37,3623 

1 3570 

1 

TCF 

REPIP4 

0464 

37,3624 

22  C 07 

0 

ZL 

0465 

REF 

9 

LAST 

874 

37,3625 

10  326 

1 

CCS 

DELVY 

04b  6 

37,3626 

1 3631 

1 

TCF 

+ 3 

046  7 

REF 

1 

37, 3627 

1 3640 

1 

TCF 

CHKTEMX 

Y NOT  DONE,  CHECK  X. 

046  8 

37,3630 

1 3631 

1 

TCF 

+ 1 

0469 

REF 

8 

LAST 

874 

37,3631 

22  041 

1 

LXCH 

P IPAZ 

Y DONE,  ZERO  Z PIP. 

0470 

REF 

6 

LAST 

874 

37,3632 

1 1 1 255 

0 

CCS 

TEMZ 

0471 

REF 

7 

LAST 

875 

37,3633 

4 1255 

0 

CS 

TEMZ 

TEMZ  NOT  = -0,  CONTAINS  -PIPAZ  VALUE. 

Q472 

REF 

1 

37,3634 

l 3567 

l 

TCF 

DODELVZ 

0473 

37,3635 

1 3633 

0 

TCF 

-2 

0474 

KEF 

9 

LAST 

875 

37,3636 

22  330 

1 

LXCH 

DELVZ 

TEMZ  = -0,  L HAS  ZPIP  VALUE. 

0475 

REF 

4 

LAST 

875 

37,3637 

1 3570 

1 

TCF 

REP IP4 

0476 

REF 

7 

LAST 

874 

37,3640 

11 '253 

0 

CHKT EMX 

CCS 

T EMX 

HAS  THIS  CHANGED 

0477 

REF 

8 

LAST 

875 

37,3641 

4 1253 

0 

CS 

T EMX 

YES 

0478 

37,3642 

1 3645 

1 

TCF 

+ 3 

YES 

0479 

37,3643 

1 3641 

0 

TCF 

-2 

YFS 

0480 

REF 

1 

37,3644 

1 3556 

0 

TCF 

REprpi 

NO 

0481 

REF 

12 

LAST 

874 

37,3645 

54  324 

0 

TS 

DELVX 

0482 

REF 

5 

LAST 

874 

37,3646 

4 1254 

1 

CS 

TEMY 

0483 

REF 

10 

LAST 

875 

37,3647 

54  326 

1 

TS 

DELVY 

0484 

REF 

164 

LAST 

874 

37,3650 

4 4 746 

1 

CS 

ZERO 

ZERO  X AND  Y PIPS 

0485 

REF 

14 

LAST 

874 

37,3651 

52  040 

1 

DXCH 

PIPAX 

L STILL  ZERO  FROM  ABOVE 

0486 

REF 

1 

37,3652 

1 3564 

1 

TCF 

REP  I P3 

0487 

REF 

1 

37,3653 

03440 

1 

DONFADR 

GEN ADR 

P IPSDONE 

GAP: 

ASSEMBLE  REVISION  210 

OF  AGC  PROGRAM  LUMINARY  BY 

NASA  2021112-161 

L 

SERVICER 

048  8 

33,2367 

BANK 

33 

0489 

REF 

6 

LAST 

871 

33,2000 

SETLOC 

SERVICES 

0490 

33,2367 

BANK 

0491 

REF 

6 

LAST 

871  TO 

873: 

19  2 

41* 

COUNT* 

t $/SERV 

049  2 

REF 

3 

LAST 

874 

33,2367 

3 1155 

1 T MPTOSPT  CA 

CDUTEMPY 

0493 

REF 

1 

33,2370 

54  765 

1 

TS 

CDUSPOTY 

0494 

REF 

2 

LAST 

874 

33,2371 

3 1156 

1 

CA 

CDUTEMPZ 

049  5 

REF 

l 

33,2372 

54  767 

0 

TS 

CDUSPOT  Z 

0496 

RFF 

3 

LAST 

874 

33,2373 

3 1154 

0 

CA 

CDUTEMPX 

049  7 

REF 

1 

33,2374 

54  771 

1 

TS 

C DUS  POT  X 

049  8 

REF 

209 

LAST 

875 

33,2375 

0 0002 

0 

TC 

0 

0499 

33,2376 

BANK 

33 

0500 

REF 

7 

LAST 

876 

33,2000 

SETLOC 

SERVICES 

050  1 

33,2376 

BANK 

0502 

REF 

7 

LAST 

876  TQ 

876: 

7 248* 

COUNT* 

$ t/SERV 

R0  50  3 

HIGATASK 

IS  ENTERED 

APPROXIMATELY  6 

SECS  PRIOR 

TO  HIGATE  DURING  Tl 

R0504 

DESCENT 

PHASE. 

HIGATASK  SETS 

THE  HIGATE  FLAG 

IBIT11)  AND  THE  LR 

R0505 

FLAG 

(BITIO)  IN  LRSTAT . THE 

HIGATJOB  IS  SET  UP  TO  REPOSITION  THE 

R0506 

ANTENNA 

FROM  POSITION  1 TO  POSITION 

2.  IF  THE 

REPOSITIONING  IS 

R0507 

SUCCESSFUL  THE 

ALT  BEAM  AND  VELOCITY 

BEAMS  ARE 

TRANSFORMED  TO  THE 

R0508 

ORIENTATION  IN 

NB  COORDINATES 

AND  STORED  IN  ERASABLE. 

0509 

REF 

78 

LAST 

870 

33,2376 

0 5355 

1 HIGATASK  TC 

PHASCHNG 

0510 

33,2377 

00C51 

0 

OCT 

51 

051  1 

REF 

l 

33,2400 

3 7741 

1 

CA 

PR  1032 

0512 

REF 

38 

LAST 

861 

33,2401 

0 5076 

0 

TC 

F INDVAC 

0513 

REF 

5 

LAST 

576 

E7 , 1654 

EBANK= 

HMEAS 

0514 

REF 

1 

33,2402 

03561 

0 

2CADR 

HIGATJOB 

0514 

RFF 

1 

33,2403 

66067 

0 

0515 

REF 

25 

LAST 

869 

33, 2404 

4 C 1 07 

0 

CS 

FLGWRD1 l 

0516 

REF 

3 

LAST 

709 

33, 2405 

7 5006 

0 

MASK 

PR  103 

051  7 

REF 

26 

LAST 

876 

33,2406 

26  107 

0 

ADS 

FLGWRDl 1 

0518 

REF 

I 

33,2407 

1 2502 

0 

TC  F 

CONTSFRV 

17:11  MAR.  19 , 1971  FLY 
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THIS  SUBROUTINE,  CALLED  BY  AN  RTB  FROM 
INTERPRETIVE,  LOADS  THE  CDUS  CORRESPON- 
DING TO  PIPTIME  INTO  THF  CDUSPOT  VECTOR. 


BIT 


GAP: 


ASSEMBLb  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


SERVICER 


P0519  MUNRETRN  IS  THE  RETURN  LOC  FROM  SPECIAL  AVE  G ROUTINE  ( MUNRVG ) 

MUNRETRN  EXIT 


0520 

33,2410 

77776 

1 

052  l 

REF 

27 

LAST 

876 

33,2411 

4 

C 1 07 

0 

0522 

REF 

8 

LAST 

869 

33,2412 

7 

4726 

1 

0523 

33,2413 

0 

0006 

1 

0524 

REF 

1 

33,2414 

1 

2505 

1 

0525 

REF 

28 

LAST 

677 

33,2415 

4 

0107 

0 

0526 

REF 

1 

33,2416 

7 

4734 

1 

0527 

33,2417 

0 

0006 

1 

0528 

REF 

1 

33,2420 

1 

2432 

1 

0529 

33,2421 

0 

0006 

1 

0530 

REF 

i 

33,2422 

3 

3062 

0 

0531 

REF 

339 

LAST 

865 

33,2423 

20  155 

1 

0532 

REF 

244 

LAST 

■869 

33,2424 

10  000 

0 

0533 

REF 

1 

33,2425 

1 

2444 

0 

0534 

REF 

60 

LAST 

867 

33,2426 

0 

5506 

1 

0535 

REF 

6 

LAST 

853 

33,2427 

00311 

1 

053  6 

REF 

61 

LAST 

877 

33,2430 

0 

5506 

1 

053  7 

REF 

1 

33,2431 

00253 

0 

0538 

REF 

4 

LAST 

329 

33, 2432 

3 

1534 

1 

0539 

33,2433 

0 

0006 

1 

0540 

33,2434 

1 

2436 

0 

0541 

REF 

2 

LAST 

877 

33,2435 

1 

2444 

0 

0542 

REF 

5 

LAST 

877 

33,2436 

4 

1535 

l 

0543 

REF 

2 

LAST 

782 

33,2437 

6 

1451 

0 

0544 

33,2440 

0 

0006 

1 

054  5 

REF 

3 

LAST 

877 

33,2441 

6 

2444 

1 

0546 

REF 

81 

LAST 

355 

33,2442 

0 

5520 

0 

054  7 

REF 

3 

LAST 

284 

33,2443 

00254 

1 

0548 

REF 

29 

LAST 

877 

33,2444 

4 

0107 

0 

0549 

REF 

2 

LAST 

570 

33,2445 

7 

4733 

0 

0550 

33,2446 

0 

C006 

1 

0551 

REF 

2 

LAST 

876 

33,2447 

1 

2501 

0 

0552 

REF 

1 

33,2450 

3 

4767 

0 

0553 

33,2451 

0 

0006 

1 

0554 

REF 

21 

LAST 

785 

33,2452 

02  033 

0 

0555 

33,2453 

0 

0006 

1 

0556 

REF 

28 

LAST 

778 

33,2454 

7 

4733 

0 

0557 

REF 

245 

LAST 

877 

33,2455 

50  000 

1 

30KCHK 


LROFF? 


R 12 


POST  ST 


0558 

0559 


REF 


33.2456 

33.2457 


t 2457  1 
l 2462  1 


CS 

FLGWRD1 1 

MASK 

LRBYBIT 

EXTEND 

BZF 

C0PYCYC1 

CS 

FLGWRDll 

MASK 

XORFLBIT 

EXTEND 

BZF 

LROFF? 

EXTEND 

DC  A 

1-30KFT 

DAS 

MPAC 

CCS 

A 

TCF 

R 1 2 

TC 

UPFLAG 

ADR  F S 

XOVINFLG 

TC 

UPFLAG 

ADRES 

XORFLG 

CA 

HCALC 

EXTEND 

BZF 

+ 2 

TCF 

R 12 

CS 

HCALC  +1 

AD 

HLROFF 

EXTEND 

BZMF 

R 12 

TC 

DOWNFLAG 

ADRES 

LRINH 

CS 

FLGWRDll 

MASK 

NOLRRRI T 

EXTEND 

BZF 

CONTSERV 

CA 

B ITS6+7 

EXTEND 

RAND 

CHAN33 

EXTEND 

MP 

BIT10 

INDEX 

A 

TCF 

+ 1 

TCF 

511? 

1 
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BYPASS  LR  LOGIC  IF  BIT15  IS  SET. 
CHECK  IF  AT  30000  FT 


HCALC  IS  STILL  TN  MPAC  FROM  RVBOTH 
ALTITUDE  > 30KFT 

ALTITUDE  < 30KFT  SET  X-AXIS  OVERRIDE 


IF  HIGH  ORDER  PART  ZERO,  H < 3000  FT, 
SO  MAKE  CUTOFF  TEST 


IF  H < HLROFF , RESET  LR  PERMIT  FLAG 


TEST  LANDING  RADAR  POSITION  DISCRETES 


SHIFT  BITS  6+7  TO  BITS  1+2 


877 


A 


0 


BOTH  DISCRETES  PRESENT 


GAP:  ASSEMBLE  REVISION  210  CE  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-16L 


L SERVICER 


0560 

REF 

1 

33,2460 

1 2471 

0 

TCF 

POSCHNG? 

0561 

REF 

2 

LAST 

878 

33,2461 

1 2471 

0 

TCF 

POSCHNG? 

0562 

REF 

3 

LAST 

785 

33,2462 

1 1 ' 622 

l 

511? 

CCS 

5 11CTR 

0563 

REF 

1 

33,2463 

1 2467 

1 

TCF 

ST51 ICTR 

0564 

REF 

33 

LAST 

828 

33,2464 

0 5571 

1 

TC 

ALARM 

0565 

33,2465 

00511 

1 

OCT 

511 

0566 

REF 

165 

LAST 

875 

33,2466 

4 4746 

1 

CS 

ZERO 

0567 

REF 

4 

LAST 

878 

33,2467 

55 1 622 

1 

S T 5 1 1CTR 

TS 

5 1 ICTR 

0568 

REF 

3 

LAST 

877 

33,2470 

1 2501 

0 

TCF 

CONTSERV 

0569 

REF 

135 

LAST 

869 

33,2471 

54  C01 

l 

POSCHNG? 

TS 

L 

0570 

REF 

20 

LAST 

862 

33,2472 

3 4 742 

1 

CA 

FOUR 

057  1 

REF 

5 

LAST 

878 

33,2473 

55*622 

1 

TS 

511CTR 

0572 

REF 

2 

LAST 

157 

33,2474 

23*650 

0 

LXCH 

LRPOS 

0573 

REF 

3 

LAST 

878 

33,2475 

4 1650 

1 

CS 

LRPOS 

0574 

REF 

136 

LAST 

878 

33,2476 

6 0001 

0 

AD 

L 

0575 

33,2477 

0 0006 

1 

EXTEND 

0576 

REF 

1 

33,2500 

1 3064 

l 

BZF 

UPDATCHK 

0577 

33,2501 

0 0004 

0 

CONTSERV 

INHINT 

0578 

REF 

1 

33,2502 

4 3060 

0 

CS 

B ITS4-7 

0579 

KEF 

30 

LAST 

877 

33,2503 

7 0107 

0 

MASK 

FLGWRD1 l 

0580 

REF 

31 

LAST 

878 

33,2504 

54  107 

0 

TS 

FLGWRD1 l 
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A = l - POSITION  2 
A = 2 - POSITION  1 
IF  CONOI T ION  PERSISTS  FOR  FIVE 
CONSECUTIVE  PASSES, ISSUE  511  ALARM 


SET  CTR  TO  -0  TO  BYPASS  ALARM 


SET  511C.TR  TO  RE-ENABLE  511  ALARM 


UPDATE  LRPOS 

COMPARE  OLD  ANO  NEW  POSITIONS 


IF  OLDPOS  = NFWPOS , 

TRY  TO  UPDATE  WITH  LR  DATA 


CLEAR  LR  MEASUREMENT  MADE  DISCRETES. 


ASSEMBLE:  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  20211L2-161 


GAP: 


L SERVICER 

P0581 


0582 

REF 

6 

LAST 

867 

33,2505 

0 3473 

1 

CDPYCYC1  TC 

QUIKFAZ5 

0583 

REF 

25 

LAST 

867 

33,2506 

3 0120 

1 

CA 

FIXLOC 

0584 

REF 

5 

LAST 

867 

33, 2507 

54  166 

1 

TS 

PUSHLOC 

0585 

REF 

150 

LAST 

871 

33,2510 

0 6060 

1 

TC 

I NT  PR  ET 

0586 

33,2511 

51575 

1 

VLQAD 

ABVAL 

0587 

REF 

2 

LAST 

154 

33,2512 

03573 

0 

R IS 

0588 

33,2513 

45206 

1 

PUSH 

DSU 

0589 

REF 

9 

LAST 

852 

33,2514 

023  24 

0 

/LAND/ 

0590 

REF 

6 

LAST 

877 

33,2515 

03535 

1 

STORE 

HCALC 

059  I 

REF 

6 

LAST 

818 

33,2516 

03775 

1 

STORE 

HCALC1 

0592 

33,2517 

63261 

1 

SL 

PDVL 

0593 

33,2520 

20212 

1 

9D 

0594 

REF 

25 

LAST 

862 

33,2521 

03537 

0 

UNIT/R/ 

0595 

33,2522 

51435 

1 

VXV 

ABVAL 

0596 

REF 

4 

LAST 

840 

33,2523 

03601 

0 

VIS 

0597 

33,2524 

56316 

0 

DSO 

DDV 

0598  . 

33,2525 

00001 

0 

0 

0599 

33,2526 

63352 

0 

SL  1 

PDVL 

060  0 

REF 

26 

LAST 

879 

33,2527 

03537 

0 

UNIT/R/ 

0601 

33,2530 

72441 

0 

DOT 

S LI 

0602 

REF 

5 

LAST 

879 

33,2531 

03601 

0 

VIS 

060  3 

REF 

13 

LAST 

819 

33,2532 

03474 

0 

STORE 

HDOT  D I SP 

060  4 

33,2533 

63312 

1 

SL2 

PDVL 

0605 

REF 

3 

LAST 

879 

33,2534 

03573 

0 

R IS 

0606 

33,2535 

60505 

1 

VXM 

V SR4 

0607 

REF 

37 

LAST 

871 

33,2536 

01732 

0 

REFSMMAT 

0608 

REF 

5 

LAST 

872 

33,2537 

27545 

0 

STOVL 

RN1 

0609 

REF 

6 

LAST 

879 

33,2540 

03601 

0 

VIS 

0610 

33,2541 

76505 

0 

VXM 

VSL1 

061  1 

REF 

38 

LAST 

879 

33,2542 

01732 

0 

REFSMMAT 

0612 

REF 

5 

LAST 

871 

33, 2543 

27553 

1 

STOVL 

VN1 

061  7 

REF 

3 

LAST 

846 

33,2544 

03563 

1 

GDTI/2 

0618 

33 ,2545 

70251 

0 

VSU 

V/ SC 

0619 

REF 

5 

LAST 

871 

33,2546 

02616 

1 

VBI  AS 

0620 

REF 

1 

33,2547 

26637 

1 

GSCALE1 

062  1 

33,2550 

77776 

1 

EXIT 

0622 

33,2551 

0 0004 

0 

INHINT 

0623 

REF 

26 

LAST 

879 

33,2552 

50  120 

1 

INDEX 

FIXLOC 

0624 

33,2553 

52  C03 

0 

DXCH 

2 

0625 

REF 

2 

LAST 

157 

33,2554 

53  ■ 710 

1 

DXCH 

HCALCLAD 

0626 

REF 

27 

LAST 

879 

33,2555 

50  120 

1 

INDEX 

F IXLOC 

0627 

33,2556 

3 0004 

0 

CA 

4 

062  8 

REF 

2 

LAST 

157 

33,2557 

55' 713 

1 

TS 

DALTRATE 

17:11  MAR.  19, 

1971 
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PAGE 

NO. 
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BATTEN  DOWN  THE  HATCHFS 


ALTITUDE  IN  UNITS  OF  2(24)  METERS 
STORE  HCALCLAD  AT  PD  2 


STORE  OALTRATE  AT  PD  4 


HDOT  IN  UNITS  OF  2(7)  M/CS 
STORE  HDOTLAD  AT  PD  6 


POSITION  IN  REFERENCE  COORDINATES 


VELOCITY  IN  REFERENCE  COORDINATES 


G-VBIAS  IN  MP AC  UNITS  OF  2(-9)  M/CS/CS 

FETCH  HCALCLAD  FROM  PD  2 
ALTITUDE  (N  UNITS  OF  2(15)  METERS 
FETCH  DALTRATE  FROM  PD  4 


DALTRATE  IN  UNITS  OF  2(-9)  M/CS/CS 
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0629 

REF 

28 

LAST 

379 

33,2560 

50  120 

l 

INDEX 

F IXLOC 

FETCH  HDOTLAD  FROM  PD  6 

0630 

33,2561 

52  007 

1 

DXCH 

6 

063  1 

REF 

2 

LAST 

157 

33,2562 

53*712 

0 

DXCH 

HDOTLAD 

HDOTLAO  IN  UNITS  OF  215) 

M/CS 

0632 

REF 

390 

LAST 

877 

33,2563 

3 0159 

1 

CA 

MPAC 

FETCH  G-VB I AS  FROM  MPAC 

0633 

REF 

2 

LAST 

157 

33,2569 

55*676 

0 

TS 

G-VBI ASX 

0639 

REF 

391 

LAST 

830 

33,2565 

3 0157 

1 

CA 

MPAC 

+ 3 

0635 

REF 

2 

LAST 

157 

33,2566 

55 ' 677 

1 

TS 

G-VB I ASY 

0636 

REF 

392 

LAST 

880 

33,2567 

3 0161 

1 

CA 

MPAC 

+ 5 

063  7 

REF 

2 

LAST 

157 

33,2570 

55 ' 700 

0 

TS 

G-VBI ASZ 

G-VB I AS  IN  UNITS  OF  2(-9) 

M/CS/CS 

0638 

33,2571 

0 0006 

l 

EXTEND 

0639 

REF 

27 

LAST 

879 

33,2572 

3 1537 

1 

DC  A 

UNIT/R/ 

0690 

33,2573 

20  001 

1 

DDOUBL 

SCALE  FULL-SIZE  RUT  WATCH 

FOR  OVERFLOW 

0691 

33,2579 

59  000 

0 

QVSK 

0692 

33,2575 

1 2577 

1 

TCF 

+ 2 

■ 0693 

REF 

23 

LAST 

827 

33,2576 

3 9 729 

1 

CAF 

POSMAX 

0699 

REF 

2 

LAST 

157 

33,2577 

57' 719 

1 +2 

XCH 

RUN  I TX 

069  5 

33,2600 

0 0006 

1 

EXTEND 

0696 

REF 

28 

LAST 

880 

33,2601 

3 1591 

0 

UCA 

UNIT/R/ 

+ 2 

069  7 

33,2602 

20  001 

I 

DDOUBL 

SCALE  FULL-SIZE,  OVERFLOW 

MOST  UNLIKELY 

069  8 

REF 

2 

LAST 

157 

33,2603 

57*715 

0 

XCH 

RUNITY 

0699 

33,2609 

0 0006 

1 

EXTEND 

0650 

REF 

29 

LAST 

880 

33, 2605 

3 1593 

1 

DC  A 

UNIT/R/ 

+9 

0651 

33,2606 

20  001 

1 

DDOUBL 

SCALE  FULL-SIZE,  OVERFLOW 

MOST  UNLIKELY 

0652 

REF 

2 

LAST 

157 

33,2607 

57*  716 

0 

XCH 

RUNITZ 

0653 

REF 

29 

LAST 

869 

33,2610 

9 0103 

1 

cs 

FLAGWRD7 

INDICATE  TO  LANADISP  THAT 

THE  NUMBERS  IT 

0659 

REF 

1 

33,2611 

7 9 732 

1 

MASK 

SWANDBIT 

NEEDS  FROM  SERVICER  HAVE  BEEN  PROVIDED 

0655 

REF 

25 

LAST 

880 

33,2612 

26  103 

1 

ADS 

F LAGWRD7 

0656 

33,2613 

0 0006 

l 

EXTEND 

0657 

REF 

9 

LAST 

879 

33,2619 

3 1573 

1 

DC  A 

R IS 

LOAD  NEW  NAVIGATED  STATE 

VECTOR  INTO  R,V 

A06575 

VECTORS,  FOR  GUIDANCE. 

065  0 

REF 

20 

LAST 

07  l 

33,2615 

53*  521 

1 

DXCH 

R 

0659 

33,2616 

0 0006 

1 

EXTEND 

0660 

REF 

5 

LAST 

880 

33,2617 

3 1575 

1 

DC  A 

R IS  +2 

066  1 

REF 

21 

LAST 

880 

33,2620 

53*523 

0 

DXCH 

R +2 

066  2 

33,2621 

0 0006 

1 

EXTEND 

066  3 

REF 

6 

LAST 

880 

33,2622 

3 1577 

0 

DC  A 

R IS  +9 

0669 

REF 

22 

LAST 

880 

33,2623 

53' 525 

0 

DXCH 

R +9 

066  5 

33,2629 

0 0006 

l 

EXTEND 

0666 

REF 

7 

LAST 

879 

33,2625 

3 1601 

1 

DCA 

VIS 

066  7 

REF 

12 

LAST 

8 71 

33,2626 

53 ' 527 

1 

DXCH 

V 

066  0 

33,2627 

0 0006 

1 

EXTEND 

0669 

REF 

8 

LAST 

880 

33,2630 

3 1603 

0 

DCA 

VIS  +2 

0670 

REF 

13 

LAST 

880 

33,2631 

53' 531 

0 

DXCH 

V +2 

0671 

33,2632 

0 0C06 

1 

EXTEND 
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0672 

REF 

9 

LAST  880. 

33, 2633 

3 1605 

0 

DC  A 

VIS  +4 

0673 

REF 

14 

LAST  880 

33,2634 

53' 533 

1 

DXCH 

V +4 

0674 

REF 

1 

33,2635 

1 2217 

0 

TCF 

COPYCYCL 

R0675 

COPYCYC 1 

CONSTANTS: 

0676 

33,2636 

00031 

0 

GSCALE1 

2DEC 

100  B-16 

0676 

33,2637 

OCOOO 

1 

0677 

33,2640 

00000 

1 

BIAS  FACT 

2DEC 

.01  B-10 

0677 

33,2641 

05075 

0 
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COMPLETE  THE  COYPCYCL. 


GAP: 

L 

P0678 

R 068  1 

0682 

0683 

0684 

0685 

0686 

0687 

068  8 

068  9 

0690 

0691 

0692 

0693 

0694 

0695 

0696 

0697 

069  8 

0699 

070  0 

0701 

0702 

0703 

0 70  4 

0705 

0706 

0 70  7 

0708 

0 70  9 

0710 

071  1 

0712 

071  3 

0714 

0715 

0716 

071  7 

0718 

0719 

0720 

072  1 

0722 

0723 

0724 

0725 

0726 

072  7 
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33,2642 

41456 

0 

CALCGRAV 

UNIT 

PUSH 

SAVE  UNIT/R/  IN  PUSHLIST  (18) 

REF 

30 

LAST 

880 

33,2643 

03537 

0 

STORE 

UNIT/R/ 

33,2644 

67340 

l 

LXC  , 1 

SLOAD 

RTX2  = 0 IF  EARTH  ORBIT,  =2  IF  LUNAR. 

REF 

15 

LAST 

775 

33,2645 

02777 

1 

RTX2 

REF 

16 

LAST 

832 

33,2646 

03000 

l 

RTX2 

33,2647 

50C76 

0 

DCOMP 

BMN 

REF 

1 

33,2650 

66677 

1 

CALCGRV1 

33,2651 

5C375 

0 

VLOAD 

DOT 

( 12) 

REF 

9 

LAST 

842 

33,2652 

06477 

0 

UNITZ 

REF 

31 

LAST 

882 

33, 2653 

C3537 

0 

UNIT/R/ 

33,2654 

41552 

0 

SL  1 

PUSH 

(14) 

33,2655 

44316 

0 

DSO 

BDSU 

REF 

1 

33,2656 

26  741 

1 

DPI/20 

33,2657 

56325 

0 

PDOL 

DDV 

REF 

1 

33,2660 

26106 

1 

RESQ 

33,2661 

00043 

0 

340 

(RN)SO 

33,2662 

00041 

1 

STORE 

32D 

TEMP  FOR  (RE/RNISO 

33,2663 

4 1205 

0 

DMP 

DMP 

REF 

1 

33,2664 

26  110 

0 

20  J 

33,2665 

65361 

0 

VXSC 

PDDL 

REF 

32 

LAST 

882 

33,2666 

03537 

0 

UNIT/R/ 

33,2667 

4 1205 

0 

DMP 

DMP 

RFF 

1 

33,2670 

26  112 

1 

2 J 

33,2671 

00041 

1 

3 2D 

33,2672 

76561 

l 

VXSC 

V SL  1 

REF 

10 

LAST 

882 

33,2673 

C6477 

0 

UNITZ 

33,2674 

45455 

l 

VAD 

STADR 

REF 

2 

LAST 

776 

33,2675 

74256 

0 

STORE 

UNITGOBL 

33,2676 

41455 

0 

VAD 

PUSH 

MP AC  = UNIT  GRAVITY  VECTOR.  (18) 

33,2677 

60345 

0 

C ALCGRV1 

DLOAD 

NORM 

PERFORM  A NORMALIZATION  ON  RMAGSQ  IN 

33,2700 

00043 

0 

340 

OPDER  TO  BE  ABLE  TO  SCALE  THE  MU  FOR 

REF 

14 

LAST 

772 

33,2701 

>0  )50 

1 

X2 

MAXIMUM  PRECISION. 

33,2702 

53663 

1 

BDDV* 

SLR* 

REF 

1 

33,2703 

26  100 

1 

— MUDT  , 1 

33,2704 

56623 

0 

0 -2  ID  , 2 

33,2705 

45561 

1 

VXSC 

STADR 

REF 

4 

LAST 

879 

33,2706 

74214 

0 

STORE 

GOT 1/2 

SCALED  AT  2(+7)  M/CS 

33,2707 

77616 

0 

RVQ 

33,2710 

61375 

1 

C ALCR VG 

VLOAD 

VXM 

RFF 

9 

LAST 

864 

33,2711 

00325 

0 

DELV 

REF 

39 

LAST 

879 

33,2712 

01732 

0 

R EFSMMAT 

33,2713 

76561 

1 

VXSC 

V SL  1 

REF 

4 

LAST 

865 

33,2714 

26074 

0 

KPIP1 

RFF 

5 

l AST 

766 

33,2715 

C3527 

1 

STORE 

DELVREF 

33,2716 

4 1562 

0 

VSR  1 

PUSH 

33,2717 

41455 

0 

VAD 

PUSH 

(DV-OLDGOTI/2  TO  PO  SCALED  AT  2(+7)M/CS 

GAP: 

L 

0728 

0729 

0730 

0731 

0732 

073  3 

073  A 

0735 

0736 

0737 

073  8 

0739 

074C 

074  1 

0742 

0743 

0744 

0744 

074  5 

0745 


ASSEMBLE  REVISI 
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CF  AGC  PROGRAM  LUMINARY  BY 
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,197  PAGE 

SERVICER 

USER' S PAGE 

NO.  24 

E7  S3 

REF 

9 

LAST 

819 

33,2720 

01236 

1 

GDT/2 

33,2721 

65255 

0 

VAD 

P DDL 

REF 

8 

LAST 

757 

33,2722 

01226 

0 

VN 

RFF 

4 

LAST 

874 

33,2723 

01247 

1 

P GUI DE 

33,2724 

74261 

1 

SL 

VXSC 

33,2725 

20207 

0 

6D 

33,2726 

44055 

1 

VAD 

STQ 

REF 

15 

LAST 

872 

33,2727 

01220 

0 

RN 

33,2730 

00037 

0 

3 ID 

REF 

6 

LAST 

879 

33,2731 

37545 

1 

STCALL 

RN1 

TEMP 

STORAGE  OF 

RN  SCALED 

2I+29IM 

REF 

2 

LAST 

871 

33, 2732 

66642 

1 

C ALCGRAV 

33,2733 

53255 

0 

VAD 

VAD 

33,2734 

77655 

1 

VAD 

REF 

9 

LAST 

883 

33, 2735 

01226 

0 

VN 

REF 

6 

LAST 

879 

33 ,2736 

37553 

0 

STCALL 

VN  1 

TEMP 

STORAGE  OF 

VN  SCALED 

2 ( +7  ) M/CS 

33,2737 

0C037 

0 

3 1 D 

33,2740 

01463 

1 

DPI/20 

2DEC 

0.05 

33,2741 

06315 

0 

33,2742 

00010 

0 

SHIFT  11 

2DEC 

1 B-ll 

33,2743 

00000 

1 

883 


(18) 


GAP: 

L 

P0746 

Ru  74  8 

R0749 

R0750 

R075  1 

0752 

0753 

0754 

0755 

0756 

075  7 

0 75  8 

0759 

0760 

076  l 

0762 

0763 

0 764 

0765 

0766 

0 76  7 

0 76  8 

0 76  9 

0770 

077  1 

0772 

0773 

0774 

0775 

0776 

0 77  7 

0778 

0779 

0780 

078  L 

0782 

0783 

0784 

0785 

0786 

0787 

0 75  c 

0 78  9 

0790 

079  1 

0 792 

0 79  3 

0794 
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MUNRVG  IS  A SPECIAL  AVERAGE  G INTEGRATION  ROUTINE  USED  BY  THRUSTING 
PROGRAMS  WHICH  FUNCTION  IN  THE  VICINITY  OF  AN  ASSUMEO  SPHERICAL  MOON. 
THE  INPUT  AND  OUTPUT  QUANTITIES  ARE  REFERENCED  TO  THE  STABLE  MEMBER 
COORDINATE  SYSTEM. 


33,2744 

41575 

0 

RVBOTH 

VLOAD 

PUSH 

KEF 

3 

LAST 

729 

33,2745 

02310 

1 

G(CSM) 

CSM  GOT  1/ 2 FOR  LAST  PASS. 

33,2746 

65255 

0 

VAD 

PDDL 

REF 

3 

LAST 

729 

33,2747 

C 1 7 24 

1 

V(CSM) 

REF 

5 

LAST 

883 

33,2750 

01247 

1 

PGUIOE 

33,2751 

74271 

0 

DDV 

VXSC 

REF 

1 

33,2752 

26743 

0 

SHIFTll 

33,2753 

77655 

l 

VAD 

REF 

4 

LAST 

856 

33,2754 

01716 

0 

R ICSM) 

REF 

7 

LAST 

880 

33,2755 

37573 

1 

STCALL 

R IS 

= RCSM  + PGUIDEIVCSM  + GCSM)  AT  2I+24IM. 

REF 

5 

LAST 

87  1 

33,2756 

67037 

1 

MUNGRAV 

COMPUTE  LUNAR  GRAVITY  AT  CSM  ALTITUDE. 

33,2757 

53255 

0 

VAD 

VAD 

REF 

4 

LAST 

884 

33, 2760 

01724 

l 

V ICSM) 

33,2761 

77626 

0 

STADR 

REF 

10 

LAST 

881 

33, 2762 

74  176 

l 

STORE 

VIS 

= VCSM  + GCSM  + GDTl/2  AT  21+7IM/CS. 

33,2763 

77776 

1 

EXIT 

REE 

7 

LAST 

879 

33,2764 

0 3473 

1 

TC 

QUIKFAZ5 

REF 

151 

LAST 

879 

33,2765 

0 6060 

1 

TC 

INTPRET 

33,2766 

77775 

1 

VLOAD 

FOR  RESTART  PURPOSES. 

REF 

5 

LAST 

882 

33,2767 

03563 

l 

GOT  1 / 2 

REF 

4 

LAST 

884 

33,2770 

26310 

1 

STOVL 

GICSM) 

REF 

8 

LAST 

884 

33,2771 

03573 

0 

R1S 

REF 

5 

LAST 

884 

33,2772 

25716 

0 

STOVL 

R ICSM ) 

REF 

1 1 

LAST 

884 

33,2773 

03601 

0 

VIS 

REF 

5 

LAST 

834 

33,2774 

01724 

1 

STORE 

V(CSM) 

33,2775 

77776 

1 

EXIT 

REF 

8 

l AST 

884 

33,2776 

0 3473 

1 

TC 

QUIKFAZ5 

REF 

152 

LAST 

884 

33,2777 

0 6060 

l 

TC 

INTPRET 

33,3000 

74375 

0 

MUNRVG 

VLOAD 

VXSC 

REF 

10 

LAST 

882 

33,3001 

00325 

0 

DELV 

REF 

l 

33,3002 

26076 

1 

KPIP2 

33,3003 

53206 

0 

PUSH 

VAD 

1ST  PUSH:  DELV  IN  UNITS  OF  2(8)  M/CS 

REF 

10 

LAST 

883 

33,3004 

01236 

1 

GDT/2 

33,3005 

53206 

0 

PUSH 

VAD 

2ND  PUSH:  (DELV  + GDTl/2,  UNITS  OF  2(7) 

REF 

15 

LAST 

881 

33,3006 

03527 

1 

V 

( 1?) 

33,3007 

56325 

0 

PDDL 

DDV 

REF 

6 

LAST 

884 

33,3010 

01247 

1 

PGUIDE 

REF 

2 

LAST 

884 

33,3011 

26743 

0 

SHIFTll 

33,3012 

77761 

l 

VXSC 

33,3013 

77655 

l 

VAD 

REF 

23 

LAST 

830 

33,3014 

03521 

1 

R 

LM  POSITION  VECTOR  AT  2(24)M. 

REF 

9 

LAST 

884 

33,3015 

37573 

1 

STCALL 

R IS 

= R + PGUI DE ( V + DELV  + GDTl/2). 

REF 

6 

LAST 

884 

33,3016 

67037 

l 

MUNGRAV 

GAP:  ASSEMBLE  REVISION  210  GF  AGC  PROGRAM  LUMINARY  BY 
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0795 

33,3017 

53255 

0 

0796 

33,3020 

77655 

1 

0197 

REF 

16 

LAST 

884 

33,3021 

03527 

1 

0793 

REF 

12 

LAST 

884 

33,3022 

03601 

0 

0799 

33,3023 

77646 

0 

0800 

REF 

6 

LAST 

730 

33,3024 

27472 

0 

08001 

REF 

7 

LAST 

856 

33,3025 

02316 

1 

08002 

33, 3026 

72435 

0 

08003 

REF 

1C 

LAST 

884 

33,3027 

03573 

0 

08004 

REF 

2 

LAST 

157 

33,3030 

17702 

1 

0 801 

33,3031 

00045 

0 

0802 

33,3032 

47G25 

0 

0803 

REF 

10 

LAST 

879 

33,3033 

02324 

0 

0 804 

REF 

2 

LAST 

388 

33,3034 

21622 

l 

0805 

REF 

7 

LAST 

079 

33,3035 

37535 

0 

0806 

REF 

1 

33,3036 

66410 

1 

0807 

33,3037 

77656 

1 

MUNGRAV 

0808 

REF 

33 

LAST 

882 

33, 3040 

17537 

0 

0809  ■ 

33,3041 

0C043 

0 

0810 

33,3042 

55261 

1 

031  l 

33,3043 

2C207 

0 

0812 

REF 

1 

33,3044 

26  104 

0 

0813 

33,3045 

74205 

0 

0814 

REF 

3 

LAST 

884 

33,3046 

26743 

0 

0815 

REF 

34 

LAST 

885 

33,3047 

03537 

0 

0816 

REF 

6 

LAST 

884 

33,3050 

03563 

1 

081  7 

33,3051 

77616 

0 

0818 

REF 

1 

4767 

8 ITS6+7 

0819 

33,3052 

00014 

1 

2 SEC l 18) 

0319 

33,3053 

20000 

0 

0820 

33,3054 

COOOO 

1 

2SECI 28) 

0320 

33,3055 

00310 

0 

082  1 

33,3056 

00000 

1 

4SEC (28 ) 

0821 

33,3057 

00620 

0 

0822 

33,3060 

00110 

1 

B ITS4-7 

0823 

33,3061 

37767 

0 

1-30KFT 

0823 

33,3062 

02200 

1 

0824 

33,3063 

00102 

1 

66DEC 
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VAD 

VAD 

VAD 

(0) 

V 

LM  VELOCITY  VFCTOR  AT  2(+7)M/CS. 

STORE 

ABVAL 

VIS 

= V + GDTl/2  + DEL V 

STOVL 

ABVEL 

WM 

STORE  SPEED  FOR  LR  AND  DISPLAYS. 

VXV 

V SL2 
R1S 

STODL 

V SURF  ACE 
3 60 

SURFACE  VELOCITY  IN  UNITS  OF  2(5)  M/CS 

DSU 

RTB 

/LAND/ 

SGNAGREE 

STCALL 

HCALC 

FOR  NOW,  DISPLAY  WHETHER  POS  OR  NEG 

MUNRETRN 

GO  TO  LR  UPDATES  ROUTINE,  R12. 

UNIT 

AT  36D  HAVE  ABVAL(R),  AT  34D  R.R 

STODL 

UNIT/R/ 

34D 

SL 

BODV 

60 

- MUDTMUN 

DMP 

VXSC 
SHI  FT  1 1 
UNIT/R/ 

STORE 

RVO 

GDT1/2 

1/2GDT  SCALED  AT  2(7)M/CS. 

EQUALS 

SUPERUO 

LR  POSITION  DISCRETES 

20EC 

200  B-18 

20CT 

00000  00310 

2SEC  AT  2(28) 

2DEC 

400  B-23 

OCT 

1 10 

2DEC 

16768072  B-24 

DP POS MAX— 30 KFT 

DEC 

66 

GAP: 


197 


PAGE  886 
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P0825  


0826 

REF 

2 

LAST 

575 

33,3064 

3 4 741 

1 

UPDATCHK 

CA  \ 

^PNGEDBTL^ 

SEE  IF  ALT  READING  M AO E 

0 82  7 

REF 

32 

LAST 

878 

33,3065 

7 0107 

0 

MASK 

FTrfrtHrfffl 

0828 

33,3066 

0 0006 

1 

EXTEND 

0829 

REF 

1 

33,3067 

l 3261 

0 

BZF 

VMEASCHK 

NO  ALT  MEAS  THIS  CYCLE-CHECK  FOR  VEL 

0830 

REF 

9 

LAST 

884 

33,  3070 

0 3473 

1 

POSUPDAT 

TC 

QUIKFAZ5 

0831 

REF 

1 

33,3071 

0 3501 

0 

TC 

POSINDEX 

SET  XI  TO  PROPER  POSITION  AND  ZERO  PLIST 

0832 

REF 

153 

LAST 

884 

33, 3072 

0 6060 

1 

TC 

I NTPRET 

0 83  3 

33,3073 

61373 

1 

VLOAD* 

VXM 

0834 

REF 

1 

33,3074 

26003 

0 

HBEAMNB , 1 

0835 

REF 

8 

LAST 

86  7 

33,3075 

C2137 

0 

XNBP I P 

HBEAM  SM  AT  2(1) 

0836 

33,3076 

54325 

l 

POOL 

SL 

STORE  IN  PUSHLIST  AND  SCALE  HMEAS 

0837 

REF 

6 

LAST 

876 

33,3077 

03655 

1 

HMEAS 

0838 

33,3100 

2C207 

0 

60 

0839 

33,3101 

74205 

0 

DMP 

VXSC 

SLANT  RANGE  AT  2(22), PUSH  UP  FOR  HBEAM 

0840 

REF 

1 

33,3102 

26063 

0 

HSCAL 

TO  GET  SLANT  RANGE  VECTOR  AT  2(23)  M 

0841 

33,3103 

50206 

0 

PUSH 

DOT 

PUSH  NEG  OF  RADAR  ALTITUDE  BEAM  VECTOR 

0342 

REF 

35 

LAST 

885 

33,3104 

03537 

0 

UNIT/R/ 

ALTITUDE  AT  2(24)  METERS 

0843 

33,3105 

77625 

0 

DSU 

0843  1 

REF 

8 

LAST 

885 

33,3106 

03535 

1 

HCALC 

08432 

REF 

1 

33,3107 

03767 

1 

STORE 

TEMDELH 

STORE  PAPTIAL(TKUF)  DELTA  H,  AND 

0844 

33,3110 

77725 

1 

PDDL 

LOAD  NEG  OF  BEAM  Z 

R0845  ============= 

R0846  TERRAIN  MODEL 
R0847  ============= 


0 84  8 

33,3111 

43342 

0 

SR  1 

DAD 

0849 

REF 

18 

LAST 

809 

33,3112 

03641 

l 

LAND  +4 

0850 

33,3113 

54221 

1 

BDSU 

SL 

SCALE  RANGE  TO  UNITS  OF  2(18)  METERS 

0851 

REF 

1 1 

LAST 

885 

33, 3114 

03577 

1 

R IS  +4 

0852 

33,3115 

20207 

0 

6D 

0853 

33,3116 

77404 

1 

BO  VB 

EXIT 

0854 

REF 

13 

LAST 

374 

33,3117 

31765 

l 

S IGNMPAC 

PICK  UP  NEGMAX  UPON  OVERFLOW 

0855 

REF 

29 

LAST 

798 

33,3120 

4 0075 

1 

CS 

FLAGWRD1 

IS  NO  TERFLG  SET  ( 8Y  P66  OR  V68>? 

0856 

REF 

1 

33,3121 

7 4732 

1 

MASK 

NOTERBI T 

0857 

33,3122 

0 0006 

1 

EXTEND 

0858 

REF 

1 

33,3  123 

1 3161 

0 

BZF 

TERSK IP 

Y:  SKIP  TERRAIN  BUT  TRANSFER  OELTA  H 

0 85  9 

REF 

10 

LAST 

82  7 

33,3  124 

3 5005 

l 

CA 

EBANK5 

N:  PREPARE  TO  ACCESS  TERRAIN  TABLE 

0860 

REF 

44 

LAST 

853 

33,3125 

54  003 

0 

TS 

EBANK 

0861 

REF 

2 

LAST 

815 

E 5 , l 777 

EB ANK= 

END-E5 

0862 

REF 

166 

LAST 

878 

33,3126 

3 4746 

0 

CA 

ZERO 

INITIALIZE  MINUS  LAST  ABSCISSA  FOR 

0863 

REF 

3 

LAST 

99 

33,3127 

54  142 

1 

TS 

TEM2 

TERLOOP  WHICH  ADDS  THE  CONTRIBUTIONS 

0864 

REF 

21 

LAST 

878 

33,3130 

3 4 742 

1 

CA 

FOUR 

OF  FIVE  TERRAIN  SEGMENTS  TO  OELTA  H 

0865 

REF 

3 

LAST 

100 

33,3131 

54  145 

0 

TERLOOP  TS 

TEM5 
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0866 

REF 

343 

LAST 

880 

33,3132 

3 Cl 54 

1 

CA 

M P AC 

PICK  UP  CURRENT  RANGE  (NEG  BEFORE  SITE) 

0867 

REF 

137 

LAST 

878 

33,3133 

54  001 

1 

TS 

L 

0868 

REF 

4 

LAST 

886 

33,3134 

50  145 

1 

INDEX 

TEM5 

0869 

REF 

2 

LAST 

126 

33,3  135 

4 1522 

1 

CS 

ABSCO 

TERRAIN  ABSCISSAE  UNITS:  2(18)  METERS 

0870 

REF 

238 

LAST 

867 

33,3136 

0 4607 

1 

TC 

BANKCALL 

LIMIT  GIVEN  LIMITSU8  MUST  BE  POSITIVE 

0871 

REF 

3 

LAST 

815 

33,3137 

61713 

0 

FC  ADR 

L IMITSUB 

LIMIT  |RANGE|  <=  1 CURRENT  ABSCISSAl 

0872 

REF 

8 

LAST 

434 

33,3140 

54  144 

1 

TS 

TEM4 

SAVE  TO  COMPARE  WITH  CURRENT  ARSCISSA 

0873 

REF 

4 

LAST 

886 

33,3141 

6 0142 

0 

AD 

TEM2 

SUBTRACT  LAST  ABSCISSA 

0874 

33,3  142 

0 0006 

1 

EXTEND 

0875 

REF 

5 

LAST 

887 

33,3143 

5 0145 

1 

INDEX 

TEM5 

0876 

REF 

2 

LAST 

126 

33,3144 

7 1527 

1 

MP 

S LOPE  0 

SLOPE  UNITS:  2(6)  RADIANS.  RESOL:  3.9  MR 

087  7 

REF 

29 

LAST 

880 

33,3145 

50  120 

1 

INDFX 

FIXLOC 

ADD  CONTRIBUTION  OF  SEGMENT  TO  YIELD 

0878 

33,3146 

20  005 

0 

DAS 

4 

CORRECTED  DELTA  H IN  UNITS  2(24)  METERS 

0879 

REF 

9 

LAST 

348 

33,3141 

3 0141 

0 

CA 

T EM  1 

RETRIEVE  MINUS  CURR  ABSC  FROM  LIMITSUB* 

0880 

REF 

5 

LAST 

887 

33,3150. 

54  142 

1 

TS 

TEM2 

STORE  AS  MINUS  LAST  ABSC  FOR  NEXT  SEG 

R0831 

* NOTE: 

IF  WE 

HAVE 

FLOWN  BEYCND  THE 

LANDING  SITE  BY  MORE  THAN  THE 

R0882 

LENGTH  OF 

THE  SEGMENT  ADJACENT  TU  THE 

LANDING 

SITE,  CA  T EM  1 

R0883 

WILL 

RETRIEVE  - INSTEAD  CF  MINUS  THE  CURRENT  ABSCISSA  - 

R0884 

A ZERO  OR 

POSITIVE  REMAINDER 

. OF  THE  DIVISION  DONE  BY  LIMITSUB. 

R0885 

THIS 

RETRIEVAL  WILL 

CAUSE  AN 

IMMEDIATE 

BRANCH 

TO  TEREND, 

R0886 

WHICH 

IS  THE  DESIRED 

RESULT. 

HOWEVER , 

FLYING 

PAST  THE  LANDING 

R0887 

S ITE 

IS  IMPOSSIBLE  EXCEPT  IN 

P66  WHEN 

THE  TERRAIN  MODEL  IS  OFF, 

0888 

REF 

9 

LAST 

887 

33,3151 

6 0144 

0 

AD 

TEM4 

HAS  LM  FLOWN  PAST  CURRENT  ABSCISSA? 

0089 

33,3152 

C 0006 

1 

EXTEND 

0890 

33, 3153 

1 3 155 

1 

BZF 

+ 2 

0891 

REF 

1 

33,3154 

1 3157 

0 

TCF 

TEREND 

Y:  IGNORE  FURTHER  ABSCISSAE 

0892 

REF 

6 

LAST 

887 

33,3155 

10  145 

0 

CCS 

TEM5 

N:  IS  CURRENT  ABSCISSA  THE  LAST? 

0893 

REF 

1 

33,3156 

1 3131 

0 

TCF 

TERLOOP 

N:  REPEAT  TERRAIN  LOOP 

0894 

REF 

13 

LAST 

853 

33,3157 

3 5007 

0 TEREND 

CA 

EBANK7 

Y:  RESTORE  EBANK  AND  DEPART 

0895 

REF 

45 

LAST 

886 

33,3160 

54  003 

0 

TS 

EBANK 

0896 

REF 

3 

LAST 

820 

E7, 1777 

EBANK= 

END-E7 

0897 

33,3161 

0 0004 

0 TERSKIP 

INHINT 

SO  DOWNLINK  DATA  WILL  BE  TIME  HOMOGEN EOU 

0897  1 

REF 

30 

LAST 

887 

33,3162 

50  120 

1 

INDEX 

FIXLOC 

TRANSFER  COMPLETED  OELTA  H HOME 

0898 

33,3163 

52  005 

0 

DXCH 

4 

TO  BE  ACCESSED  BY  DISPLAYS,  TELFMETRY, 

089  9 

REF 

5 

LAST 

782 

33,3164 

53*665 

1 

DXCH 

DELTAH 

AND  POSITION  UPDATE . 

08991 

REF 

2 

LAST 

886 

33,3165 

53*767 

1 

DXCH 

TEMDELH 

TRANSFER  TRUE  DELTA  H TO  TRUDELH 

08992 

REF 

2 

LAST 

213 

33,3166 

53*  737 

1 

DXCH 

T RUDE  LH 

FOR  DOWNLINK 

08993 

33,3167 

0 0003 

1 

RELINT 

0900 

REF 

31 

LAST 

887 

33,3170 

3 0120 

1 

CA 

FIXLOC 

RESTORE  PUSHDOWN  POINTER  TO  ZERO 

0901 

REF 

6 

LAST 

879 

33,3171 

54  166 

1 

TS 

PUSHLOC 

GAP: 
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0902 

REF 

33 

LAST 

886 

33,3172 

3 0107 

l 

CA 

FLGWRD1 1 

* 

090  3 

REF 

1 

33,3173 

7 4732 

1 

MASK 

PSTHIBI T 

0904 

33,3174 

0 0006 

1 

EXTEND 

% 

0905 

REF 

1 

33,3175 

1 3215 

0 

BZF 

NOREASON 

090  6 

REF 

154 

LAST 

886 

33,3176 

0 6060 

1 

TC 

INTPRFT 

0907 

33,3177 

51545 

1 

DLOAD 

ABS 

% 

0908 

REF 

6 

LAST 

887 

33,3200 

03665 

1 

DELTAH 

0909 

33,3201 

62425 

0 

DSU 

SL2 

0910 

REF 

2 

LAST 

126 

33,3202 

02504 

1 

DELQFIX 

% 

091  1 

33,3203 

77425 

1 

OSU 

EXIT 

0912 

REF 

9 

LAST 

886 

33,3204 

03535 

1 

HCALC 

* 

0913 

REF 

3 

LAST 

785 

33,3205 

25*670 

1 

INCR 

LRLCTR 

0914 

REF 

1 

33,3206 

0 6744 

0 

TC 

BRANCH 

091  5 

REF 

1 

33,3207 

1 3513 

1 

TCF 

HFAIL 

* 

0916 

REF 

2 

LAST 

888 

33,3210 

1 3513 

1 

TC  F 

HFAIL 

091  7 

REF 

E 2 

LAST 

877 

33,3211 

0 5520 

0 

TC 

OOWNFLAG 

0918 

REF 

1 

33,3212 

00247 

0 

ADRES 

HFAILFLG 

* 

0919 

REF 

83 

LAST 

888 

33,3213 

0 5520 

0 

TC 

DOWNFLAG 

0920 

REF 

1 

33,3214 

00263 

0 

ADRES 

HFLSHFLG 

* 

092  l 

REF 

34 

LAST 

888 

33,3215 

4 0107 

0 

NOREASON 

CS 

FLGWRD1 1 

092  2 

REF 

2 

LAST 

811 

33,3216 

7 4735 

0 

MASK 

LR  INHBI  T 

092  3 

REF 

246 

LAST 

877 

33,3217 

10  COO 

0 

CCS 

A 

0924 

REF 

2 

LAST 

886 

33,3220 

1 3261 

0 

TCF 

V MEASCHK 

092  5 

REF 

155 

LAST 

888 

33,3221 

0 6060 

l 

TC 

I NTPRET 

* 

0926 

33,3222 

40545 

1 

POSUP 

DLOAD 

SR4 

092  7 

REF 

10 

LAST 

888 

33,3223 

03535 

1 

HCALC 

092  8 

33,3224 

77776 

l 

EX  I T 

• 

0929 

33,3225 

0 0006 

1 

EXTEND 

0930 

REF 

7 

LAST 

888 

33,3226 

3 1665 

0 

DC  A 

DELTAH 

093  1 

REF 

344 

LAST 

887 

33,3227 

52  155 

1 

DXCH 

MPAC 

0932 

REF 

1 

33,3230 

0 7565 

0 

TC 

ALSIGNAG 

0933 

33,3231 

0 CC06 

1 

EXTEND 

0934 

33,3232 

l 3234 

0 

BZF 

+ 2 

0935 

REF 

3 

LAST 

888 

33,3233 

1 3261 

0 

TCF 

VMEASCHK 

0936 

REF 

345 

LAST 

888 

33,3234 

54  156 

l 

TS 

MPAC  +2 

• 

0937 

REF 

138 

LAST 

887 

33,3235 

4 CCOl 

1 

CS 

L 

0938 

REF 

l 

33,3236 

6 1420 

0 

AD 

LRHMAX 

0939 

33,3237 

0 0006 

L 

EXTEND 

A 

094  0 

REF 

4 

LAST 

888 

33,3240 

6 3261 

l 

BZMF 

VMEASCHK 

094  1 

33,3241 

0 C006 

1 

EXTEND 

0942 

REF 

2 

LAST 

799 

33,3242 

7 1421 

0 

MP 

LRWH 

* 

094  3 

33,3243 

0 0C06 

1 

EXTEND 

094  4 

REF 

2 

LAST 

888 

33,3244 

11 • 420 

1 

DV 

LRHMAX 

0945 

REF 

4 

LAST 

477 

33,3245 

54  135 

1 

TS 

MPTEMP 

• 

0946 

REF 

1 

33,3246 

0 7334 

l 

TC 

SH0RTMP2 
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USER'S  PAGE  NO.  29  E7  S3 

IS  PSTHIBIT  SET  I 9Y  H I GAT  ASK ) ? 

DO  NOT  PERFORM  DATA  REASONABLENESS  TEST 
UNTIL  AFTER  HIGATE 


( A8S ( DEL TAH I - OQFIX)  2(24) 

SCALE  TO  2(22) 

(ABS(OELTAH)  - ( DQF I X + HCALC/4))  2(22) 


DELTA  H TOO  LARGE 
DELTA  H TOO  LARGE 
RESFT  HFAIL  FLAG 

TURN  OFF  ALT  FAIL  LAMP 


UPDATE  INHIBITED  - TEST  VELOCITY  ANYWAY 


RFSCALE  H TO  2(28)M 


STORE  DELTAH  IN  MPAC  AND 
BRING  HCALC  INTO  A , L 

IF  HIGH  PART  OF  HCALC  IS  NON  ZERO,  THEN 
HCALC  > HM  A X , 

SO  UPDATE  IS  BYPASSFO 
FOR  LATER  SHORTMP 

-H  AT  2 ( 1 A ) M 
HM AX  - H 

IF  H >HM  AX , BYPASS  UPDATE 
WHIHMAX  - H) 

WH I l - H/HMAX ) 


DELTAH  I WH I ( 1 


H/HMAX)  IN  MPAC 


GAP: 


ASSEMBLE  REVISION  210  OE  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L SERVICER 


094  7 

REF 

156 

LAST 

888 

33,3247 

0 6060 

1 

TC 

I NTPRET 

0948 

33,3250 

77752 

1 

SL1 

0949 

33,3251 

53361 

0 

VXSC 

VAD 

0950 

REF 

36 

LAST 

886  . 

33,3252 

03537 

0 

UNIT/R/ 

0951 

REF 

12 

LAST 

886 

33,3253 

C3573 

0 

R1S 

0952 

REF 

1 

33,3254 

C3657 

0 

STORE 

GNUR 

0953 

33,3255 

77776 

1 

EXIT 

0954 

REF 

10 

LAST 

886 

33,3256 

0 3473 

1 

TC 

QUIKFAZ5 

0955 

REF 

167 

LAST 

886 

33, 3257 

3 4 746 

0 

CA 

ZERO 

095  6 

REF 

1 

33, 3260 

0 3455 

0 

RUPDATED 

TC 

GNURVST 

095  7 

REF 

11 

LAST 

889 

33,3261 

0 3473 

1 

VMEASCHK 

TC 

QUIKFAZ5 

0958 

REF 

35 

LAST 

888 

33, 3262 

4 C 10  7 

0 

R 12THRU? 

cs 

F LGWRD1 1 

0959 

REF 

4 

LAST 

576 

33, 3263 

7 4742 

0 

MASK 

R 12RDBI T 

0960 

REF 

247 

LAST 

888 

33,3264 

10  COO 

0 

CCS 

A 

0961 

REF 

1 

33, 3265 

1 3271 

1 

TCF 

VELDATA? 

0962 

REF 

6 

LAST 

720 

33,3266 

10  067 

1 

CCS 

NEWJOB 

0963 

REF 

5 

LAST 

720 

33,3267 

0 5113 

1 

TC 

C HANG  1 

0964 

REF 

1 

33,3270 

1 3262 

0 

TCF 

R 12THRU? 

0965  ' 

REF 

36 

LAST 

889 

33,3271 

4 0107 

0 

VELDATA? 

CS 

FLGWRD1 1 

0966 

REF 

2 

LAST 

576 

33,3272 

7 4736 

0 

MASK 

VELDABI T 

0967 

REF 

248 

LAST 

889 

33,3273 

10  000 

0 

CCS 

A 

096  8 

REF 

1 

33,3274 

1 3433 

1 

TCF 

V ALT  CHK 

096  9 

REF 

2 

LAST 

886 

33,3275 

0 3501 

0 

VELUPDAT 

TC 

POSI NDEX 

0970 

REF 

7 

LAST 

861 

33,3276 

4 1462 

1 

CS 

VSELECT 

097  1 

REF 

139 

LAST 

888 

33, 3277 

54  001 

1 

TS 

L 

0972 

REF 

140 

LAST 

889 

33,3300 

26  001 

1 

ADS 

L 

0973 

REF 

141 

LAST 

889 

33,3301 

6 0001 

0 

AD 

L 

0974 

REF 

142 

LAST 

889 

33,3302 

6 0C01 

0 

AD 

L 

0975 

REF 

32 

LAST 

887 

33,3303 

50  120 

l 

INDEX 

F IXLOC 

0976 

REF 

23 

LAST 

827 

33,3304 

20  047 

0 

DAS 

XI 

0977 

REF 

1 57 

LAST 

889 

33, 3305 

0 6060 

1 

TC 

INTPRET 

0978 

33,3306 

61373 

1 

VLOAD* 

VXM 

0979 

REF 

I 

33,3307 

26011 

0 

VZBEAMN8 

0980 

REF 

9 

LAST 

886 

33,3310 

02137 

0 

XNBPI P 

098  1 

33,3311 

54325 

1 

POOL 

SL 

0982 

REF 

4 

LAST 

576 

33,3312 

03653 

1 

VMEAS 

098  3 

33,3313 

20215 

0 

1 2D 

0984 

33,3314 

63203 

0 

DMP  * 

PDVL 

0985 

REF 

1 

33, 3315 

51712 

1 

V Z SC  AL , 2 

0986 

REF 

13 

LAST 

885 

33,3316 

03601 

0 

V IS 

0907 

33,3317 

52352 

l 

VSL2 

VSU 

0988 

REF 

3 

LAST 

885 

33,3320 

03702 

1 

VSURFACE 

0989 

33,3321 

51406 

1 

PUSH 

ABVAL 

0990 

33,3322 

43202 

0 

SR4 

DAD 

0991 

REF 

2 

LAST 

125 

33,3323 

02401 

0 

VELBIAS 
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USER' S PAGE  NO.  30  E7  S3 

MOOE  IS  DP  FROM  ABOVE 

OELTAR  = DH ( W H ) ( 1 - H/HMAX)  UNIT/R/ 


RFSTART  AT  NEXT  LOCATION 
IS  PADAREAD  THROUGH  ? 


YES ; G 0 ON  WITH  UPDATE 
NO-WAIT 


IS  V READING  AVAILABLE? 

NO  SEE  IF  V READING  TO  BF  TAKEN 
SET  XI  AND  X2  AND  ZFRO  PUSHLIST 

-2  VSELECT  IN  L 
-6  VSELECT  IN  A 

XI  = -6  VSELECT (POS) , X2  = -2  VSELECT 


1 CONVERT  PROPER  V BEAM  FROM  NB  TO  SM 

SCALED  AT  2(1 ) 

STORE  IN  PD  0-5 

LOAD  VELOCITY  MEASUREMENT 

SCALE  TO  M/CS  AT  2(6) 

AND  STORE  IN  PD  6-7 
VELOCITY  AT  TIME  OF  READING 
SCALE  TO  2(5)  M/CS  AND  SUBTRACT 
MOON  ROTATION. 

STORE  IN  PD 

ABS ( V M ) / 8 + VELBTAS  AT  2(6) 


GAP: 

ASSEMBLE  REVISION  210 

CF  A GC  PROGRAM  LI 

UMINARY  BY 

L 

SERVICER 

0992 

33,3326 

26025 

0 

0993 

33,3325 

66261 

0 

0999 

33,3326 

00C01 

0 

0995 

33,3327 

51606 

1 

0996 

33,3330 

77625 

1 

0997 

33,3331 

0CC25 

0 

099  8 

REF 

3 

LAST 

785 

33,3332 

25*672 

0 

0999 

REF 

2 

LAST 

888 

33,3333 

0 6766 

0 

1000 

REF 

1 

33,3336 

1 3532 

l 

1001 

REF 

2 

LAST 

890 

33,3335 

l 3532 

1 

1002 

REF 

86 

LAST 

888 

33,3336 

0 5520 

0 

100  3 

REF 

1 

33,3337 

00266 

1 

1004 

REF 

85 

LAST 

890 

33,3360 

0 5520 

0 

1005 

REF 

1 

33,3361 

00262 

1 

1006 

REF 

37 

LAST 

889 

33,3362 

3 0107 

l 

100  7 

. REF 

1 

33,3363 

7 6731 

l 

1008 

33,3366 

0 C006 

1 

1009 

REF 

1 

33,3365 

l 3356 

1 

1010 

REF 

86 

LAST 

890 

33,3366 

0 5520 

0 

101  1 

REF 

1 

33,3367 

0C250 

0 

1012 

REF 

8 

LAST 

889 

33,3350 

3 1662 

0 

10  L 3 

REF 

5 

LAST 

577 

33,3351 

6 7767 

0 

1016 

33,3352 

0 0006 

1 

1015 

REF 

1 

33,3353 

1 3633 

l 

1016 

REF 

38 

LAST 

890 

33,3356 

6 0107 

0 VUPDAT 

101  7 

REF 

3 

LAST 

888 

33,3355 

7 6735 

0 

1018 

REF 

269 

LAST 

889 

33,3356 

10  COO 

0 

1019 

REF 

2 

LAST 

889 

33,3357 

1 3633 

1 

1020 

REF 

366 

LAST 

888 

33,3360 

56  155 

1 

1021 

REF 

7 

LAST 

885 

33,3361 

3 1671 

l 

1022 

REF 

1 

33,3362 

56  130 

1 

1023 

REF 

9 

LAST 

890 

33,3363 

3 1662 

0 

1026 

REF 

l 

33,3366 

56  131 

0 

102  5 

REF 

11 

LAST 

886 

33,3365 

3 5005 

l 

1026 

REF 

66 

LAST 

887 

33,3366 

56  003 

0 

1027 

REF 

2 

LAST 

126 

F5, 1512 

1028 

REF 

3 

LAST 

890 

33,3367 

6 1512 

1 

1029 

REF 

2 

LAST 

890 

33,3370 

6 C 1 30 

0 

1030 

33,3371 

0 0006 

1 

1031 

REF 

1 

33,3372 

6 3605 

0 

FLY 
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USER' S PAGE  NO.  31 


E 7 S3 


STOVL 

200 

STORE  IN  200  AND  PICK  UP  VM 

DOT 

BOSU 

0 

DELTAV  = V ME A S - VIEST) 

PUSH 

ABS 

DSU 

EXIT 

AbSIDV)  - (7.5  + A8S(VM)/8)> 

2 OD 

INCR 

LRMCTR 

TC 

BRANCH 

TCF 

VFAI  L 

DELTA  V TOO  LARGE  ALARM 

TCF 

VFAIL 

DELTA  V TOO  LARGE  ALARM 

TC 

OOWNFLAG 

RESET  HFAIL  FLAG 

ADRES 

VFAI LFLG 

-HT^- 

■wwwp-rft-] — ^ 

TURN  OFF  VEL  FAIL  LAMP 

ADRES 

V FLSHFLG  ) 

"cte  'TTgwRfnr' 

MASK 

VX  INHBIT 

EXTEND 

BZF 

VUPDAT 

IF  VX  INHIBIT  RESET,  INCORPORATE  DATA. 

TC 

DOWNFLAG 

ADRES 

VXINH 

R F SET  VX  INHIBIT 

CA 

VSELECT 

AD 

NEG2 

IF  VSELECT  = 2 (X  AXIS), 

EXTEND 

BYPASS  UPDATE 

BZF 

ENOVDAT 

CS 

FLGWRDll 

MASK 

LR  INHBI T 

CCS 

A 

TCF 

VALTCHK 

UPDATE  INHIBITED 

TS 

MP AC  +1 

CA 

ABVEL 

STORE  E 7 ERASABLES  NEEDED  IN  TEMPS 

TS 

ABVEL* 

CA 

VSELECT 

TS 

VSELECT* 

CA 

E BANK  5 

TS 

EBANK 

CHANGE  E8ANKS 

EBANK= 

LRVF 

CS 

LRVF 

AD 

ABVEL* 

IF  V < VF,  USE  WVF 

EXTEND 

BZMF 

USEVF 

GAP: 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L SERVICER 


103  2 

REF 

3 

LAST 

890 

33,3373 

4 

0130 

1 

CS 

ABVEL* 

1033 

REF 

2 

LAST 

126 

33,3374 

6 

1511 

0 

AD 

LRVMAX 

1034 

33,3375 

0 

0006 

1 

EXTEND 

103  5 

REF 

1 

33,3376 

6 

3410 

1 

BZMF 

WSTOR  -1 

1036 

33,3377 

0 

C 006 

1 

EXTEND 

1037 

REF 

2 

LAST 

890 

33,3400 

5 

0131 

1 

INDEX 

VSELECT* 

1038 

REF 

2 

LAST 

126 

33,3401 

7 

1513 

0 

MP 

LRWVZ 

1039 

33,3402 

0 

0006 

1 

EXTEND 

1040 

REF 

3 

LAST 

89  1 

33,3403 

11 

'511 

1 

DV 

LRVMAX 

1041 

REF 

2 

LAST 

89  1 

33,3404 

1 

3411 

1 

TCF 

WSTOR 

104  2 

REF 

3 

LAST 

89  1 

33,3405 

50 

1 131 

1 

USEVF 

INDEX 

V SELECT  * 

1043 

REF 

2 

LAST 

126 

33,3406 

3 

1516 

1 

CA 

LRWVFZ 

1044 

REF 

3 

LAST 

891 

33,3407 

1 

3411 

1 

TCF 

WSTOR 

1045 

REF 

168 

LAST 

889 

33,3410 

3 

4 746 

0 

-1 

CA 

ZERO 

1046 

REF 

347 

LAST 

890 

33,341  1 

54 

154 

0 

WSTOR 

TS 

MPAC 

1047 

. REF 

26 

LAST 

579 

33,3412 

4 

4736 

0 

CS 

BIT7 

104  8 

REF 

18 

LAST 

837 

33,3413 

6 

1010 

1 

AD 

MODREG 

1049 

33,3414 

0 

0006 

1 

EXTEND 

1050 

REF 

1 

33,3415 

6 

3420 

1 

BZMF 

GETGNUV 

1051 

REF 

2 

LAST 

126 

33,3416 

3 

1521 

0 

CA 

LRWVFF 

1052 

REF 

348 

LAST 

89  1 

33,3417 

54 

154 

0 

TS 

MPAC 

1053 

REF 

14 

LAST 

887 

33,3420 

3 

5007 

0 

GET  GNUV 

CA 

EBANK7 

1054 

REF 

47 

LAST 

890 

33,3421 

54 

003 

0 

TS 

EBANK 

1055 

REF 

3 

LAST 

890 

E7, 1471 

EBANK= 

ABVEL 

1056 

REF 

158 

LAST 

889 

33,3422 

0 

6060 

1 

TC 

INTPRET 

1057 

33,3423 

74205 

0 

DMP 

VX  SC 

1058 

33,3424 

77655 

1 

VAD 

1059 

REF 

14 

LAST 

889 

33, 3425 

03601 

0 

VIS 

106  0 

REF 

l 

33, 3426 

03657 

0 

STORE 

GNUV 

1061 

33,3427 

77776 

1 

EXIT 

1062 

REF 

12 

LAST 

889 

33,3430 

0 

3473 

1 

TC 

0UIKFAZ5 

1063 

REF 

15 

LAST 

810 

33,3431 

3 

6263 

0 

CA 

SIX 

1064 

REF 

2 

LAST 

889 

33,3432 

0 

3455 

0 

V UPDATED 

TC 

GNURVST 

1065 

REF 

3 

LAST 

890 

33,3433 

ENDVUAT 

= 

VALTCHK 

1066 

REF 

13 

LAST 

89  1 

33, 3433 

0 

34  73 

1 

VALTCHK 

TC 

QUIKFAZ5 

1067 

REF 

39 

LAST 

890 

33,3434 

4 

C 1 07 

0 

H IGATCHK 

CS 

FLGWRD1 1 

1068 

REF 

2 

LAST 

888 

33,3435 

7 

4732 

1 

MASK 

PSTHIBIT 

1069 

33,3436 

0 

0006 

1 

EXTEND 

1070 

REF 

4 

LAST 

878 

33,3437 

1 

2501 

0 

BZF 

CONTSERV 
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PAGE  891 


USER'S  PAGE  NO.  32  E5  S3 

VM  AX  - V 

IF  V > VMAX,  W = 0 

WV l VM AX  - V) 

WV(  1 - V/VMAX  ) 


USE  APPROPRIATE  CONSTANT  WFIGHT 


(=640 ) 

IF  IN  P66  USE  ANOTHER  CONSTANT 


CHANGE  EBANKS 

WIDELTA  V ) ( VBEAMSM ) UP  6-7,  0-5 
ADD  WEIGHTED  DELTA  V TO  VELOCITY 

DO  NOT  RE-UPDATE 

STORE  NEW  VELOCITY  VECTOR 

DO  NOT  REPEAT  ABOVE 
IS  PSTHIBIT  SET  (BY  HIGATASK)? 


YES: 


BYPASS  HIGATE  CHECK 


GAP: 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L 


SERVICER 


1071 

REE 

18 

LAST 

827 

33,3440 

3 

1642 

0 

CA 

TTF/8 

1072 

REF 

3 

LAST 

• 580 

33,3441 

6 

1427 

l 

AD 

RPCR  TIME 

1073 

33,3442 

0 

0006 

1 

EXTEND 

1074 

REF 

5 

LAST 

89  1 

33,3443 

6 

2 501 

1 

BZMF 

CONTSERV 

1075 

REF 

6 

LAST 

664 

33,3444 

3 

4732 

0 

CA 

E8ANK4 

1076 

REF 

48 

LAST 

89  1 

33,3445 

56 

003 

1 

XCH 

EBANK 

107  7 

REF 

143 

LAST 

3^89 

33,3446 

54 

001 

1 

TS 

L 

1078 

REF 

10 

L AST 

889 

E4, 1536 

EBANK= 

XNBPIP 

1079 

REF 

1 1 

LAST 

892 

33,3447 

4 

1536 

1 

CS 

X NBP  I P 

1080 

REF 

49 

LAST 

870 

F7 , 1515 

EBANK= 

DVCNTR 

108  1 

REF 

49 

LAST 

892 

33,3450 

22 

003 

1 

LXCH 

EBANK 

1082 

REF 

2 

LAST 

580 

33,3451 

6 

1430 

1 

AD 

RPCRTOSW 

1083 

33,3452 

C 

0006 

1 

EXTEND 

1084 

REF 

1 

33,3453 

6 

2376 

1 

BZMF 

HIGATASK 

1085 

REF 

6 

LAST 

892 

33,3454 

1 

2501 

0 

TCF 

CONTSERV 

1086 

REF 

78 

LAST 

859 

33,3455 

54  130 

1 

GNURVST  TS 

BUF 

1087 

33,3456 

0 0006 

1 

EXTEND 

1088 

REF 

2 

LAST 

889 

33,3457 

3 1657 

1 

DC  A 

GNUR 

1089 

REF 

79 

LAST 

892 

33,3460 

50  130 

0 

INDEX 

BUF 

1090 

REF 

13 

LAST 

839 

33,3461 

53' 573 

0 

DXCH 

R IS 

1091 

33,3462 

0 0006 

1 

EXTEND 

1092 

REF 

3 

LAST 

892 

33,3463 

3 1661 

1 

DCA 

GNUR 

+ 2 

1093 

REF 

80 

LAST 

892 

33,3464 

50  130 

0 

INDEX 

BUF 

1094 

REF 

14 

LAST 

892 

33,3465 

53*  575 

0 

DXCH 

R IS 

+ 2 

1095 

33,3466 

0 0006 

l 

EXTEND 

1096 

REF 

4 

LAST 

892 

33,3467 

3 1663 

0 

DCA 

GNUR 

+4 

109  7 

REE 

81 

LAST 

892 

33,3470 

50  130 

0 

INDFX 

BUF 

1098 

REF 

15 

LAST 

892 

33,3471 

53' 577 

1 

DXCH 

R IS 

+4 

1099 

REF 

210 

LAST 

876 

33,3472 

0 C002 

0 

TC 

Q 

1100 

REF 

3 

LAST 

829 

33,3473 

3 

5000 

l 

0UIKFAZ5  CA 

EBANK3 

L 10  1 

REE 

50 

LAST 

892 

33,3474 

56 

003 

1 

XCH 

EBANK 

1 102 

REF 

144 

LAST 

892 

33,3475 

52 

002 

1 

DXCH 

L 

1 10  3 

REF 

1 

E3 , 1446 

EB ANK= 

PHSNAME  5 

1 104 

REF 

2 

LAST 

892 

33,3476 

55 

•446 

1 

TS 

PHSNAME5 

1105 

REF 

51 

LAST 

892 

33,3477 

22 

003 

1 

LXCH 

EBANK 

1 106 

REF 

50 

LAST 

892 

E7, 1515 

EBANK= 

DVCNTR 

1 10  7 

REF 

250 

LAST 

890 

33,3500 

0 

0000 

1 

TC 

A 

1108 

REF 

33 

LAST 

889 

33, 3501 

3 

0120 

1 

POSINDEX  CA 

F I XL  DC 

1 109 

REF 

7 

LAST 

887 

33,3502 

54 

166 

1 

TS 

PUSHLOC 

1 HO 

REF 

43 

LAST 

853 

33,3503 

3 

4 744 

1 

CA 

B I T 1 

1 LI  1 

REF 

4 

LAST 

878 

33,3504 

7 

1650 

1 

MASK 

LRPOS 
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USER' S PAGE  NO.  33 


E 7 S3 


STORE  GNUR  (=GNUV)  IN  PIS  OR  VIS 
A = 0 FOR  R , A = 6 FOR  V 


SET  EBANK  3 
Q TO  A,  A TO  L 


SET  PUSHLIST  TO  ZERO 


*NOTF 


LRPOS 


1 FOR  POS  2 G VICE  VERSA 


GAP:  ASSEMBLE  REVISION  2 10  CF  A GC  PROGRAM  LUMINARY  BY 

L SERVICER 


1112 

REF 

251 

LAST 

892 

33,3505 

10 

000 

0 

1113 

REF 

2 

LAST 

440 

33,3506 

4 

4754 

1 

1114 

33,3507 

22 

007 

0 

1115 

REF 

34 

LAST 

892 

33,3510 

50 

120 

1 

1116 

REF 

24 

LAST 

889 

33,3511 

52 

C47 

0 

1117 

REF 

211 

LAST 

892 

33,3512 

0 

0002 

0 

1118 

REF 

62 

LAST 

877 

33,3513 

0 

5506 

1 

HFAIL 

1119 

REF 

2 

LAST 

888 

33,3514 

0C247 

0 

1120 

REF 

3 

LAST 

735 

33,3515 

4 

1671 

1 

1121 

33,3516 

0 

0006 

1 

1122 

REF 

1 

33,3517 

1 

3527 

0 

1123 

REF 

4 

LAST 

88  8 

33,3520 

6 

1670 

1 

1124 

REF 

2 

LAST 

575 

33,3521 

7 

7766 

0 

1125 

33,3522 

0 

0006 

1 

1126 

33,3523 

1 

3525 

1 

112  7 

REF 

2 

LAST 

893 

33,3524 

1 

3527 

0 

1128 

REF 

63 

LAST 

893 

33,3525 

0 

5 5 06 

1 

1129 

REF 

2 

LAST 

888 

33,3526 

00263 

0 

1130 

REF 

5 

LAST 

893 

33,3527 

3 

1670 

1 

NCRL I TE 

1131 

REF 

4 

LAST 

893 

33,3530 

55 

'671 

1 

1 132 

REF 

5 

LAST 

808 

33,3531 

1 

32  61 

0 

113  3 

REF 

64 

LAST 

893 

33, 3532 

0 

5 506 

1 

VFAI L j 

1 134 

REF 

2 

LAST 

890 

33,3533 

00246 

1 

1135 

REF 

3 

LAST 

785 

33,3534 

4 

1673 

0 

1136 

33,3535 

0 

0006 

1 

1137 

REF 

1 

33,3536 

1 

3546 

1 

1138 

REF 

4 

LAST 

890 

33,3537 

6 

1672 

0 

1139 

REF 

3 

LAST 

893 

33,3540 

7 

7766 

0 

1140 

33,3541 

0 

C0O6 

1 

1141 

33,3542 

1 

3544 

0 

1142 

REF 

2 

LAST 

893 

33,3543 

1 

3546 

1 

1143 

REF 

65 

LAST 

893 

33,3544 

0 

5506 

1 

1144 

REF 

2 

LAST 

890 

33,3545 

00262 

1 

1145 

REF 

5 

LAST 

893 

33, 3546 

3 

1672 

0 

NOLI TE 

1146 

REF 

4 

LAST 

893 

33,3547 

55 

•673 

0 

114  7 

REF 

10 

LAST 

890 

33,3550 

11 

'462 

1 

1 14  8 

REF 

2 

LAST 

890 

33,3551 

1 

3433 

1 

1149 

REF 

66 

LAST 

893 

33,3552 

C 

5 506 

1 

1150 

REF 

2 

LAST 

890 

33,3553 

00250 

0 

1151 

REF 

3 

LAST 

893 

33,3554 

1 

3433 

1 
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USFR'S  PAGE  NO.  34  E7  S3 


CCS 

A 

CS 

0CT30 

POS  2 , INDEX  = -24D 

ZL 

POS  1 , INDEX  = 0 , X2  = 0 FOR  BOTH 

INDEX 

F IXLOC 

DXCH 

XI 

SFT  XI, X2 

TC 

Q 

TC 

UPFLAG 

SET  HFAIL 

FLAG  FOR  DOWNLINK 

ADRES 

HFAILFLG 

CS 

LRRCTP 

EXTEND 

BZF 

NORLITE 

IF  R = 0, 

DO  NOT  TURN  ON  TRK  FAIL 

AD 

LRLCTR 

MASK 

NEG3 

EXTEND 

BZF 

+ 2 

IF  L-R  LT 

4,  DO  NOT  TURN  ON  TRK  FAIL 

TCF 

NORLITE 

TC 

UPFLAG 

AND  SET  BIT  TO  TURN  ON  TRACKER  FAIL  LITE 

ADRES 

HFLSHFLG 

CA 

LRLCTR 

TS 

LRRCTR 

SET  R = L 

TCF 

VMEASCHK 

TC 

UPFLAG 

SET  VFAIL 

FLAG  FOR  DOWNLINK 

V FA  I L FLG.J 

c s 

TR'SHT 

EXTEND 

BZF 

NOLITE 

IF  S = 0, 

DO  NOT  TURN  ON "TRACKER  FAIL 

AD 

LRMCTR 

M-S 

MASK 

NEG3 

TEST  FOR 

M-S  > 3 

EXTEND 

IF  M-S  > 

3,  THEN  -TWF 

llR  V RFADINGS  WERF  0 C>-*> 

BZF 

+ 2 

LAST  Fl 

NOLITE 

SOyTURN^ON  VELOCITY  FAIL  LIGHT 
AND  SET  BIT  TO  TURN  ON  TRACKER  FAIL  LITE 

TC 

UPFLAG^S 

ADRES 

V FLSHFLG  J 

CA 

LRMCTR 

SET  S = M 

TS 

LRSCTR 

CCS 

V SELECT 

TEST  FOR  Z 

COMPONENT 

TCF 

ENDVDAT 

NOT  Z,  DO 

NOT  SET  VX  INHIBIT 

TC  UPELAG  Z COMPONENT  - SET  FLAG  TO  SKIP  X 

ADRES  VXINH  COMPONENT, AS  ERROR  MAY  BE  DUE  TO  CROSS 

TCF  ENDVDAT  LOBE  LOCK  UP  NOT  DET  F CT  ED  ON  X AXIS. 
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PI  152 

1154 

33,3555 

BANK 

33 

1155 

REF 

8 

LAST 

876 

33,2000 

SETLOC 

SERVICES 

l 156 

33,3555 

BANK 

1157 

REF 

8 

LAST 

876 

TO  894: 

623  871# 

COUNT# 

$$/SERV 

1158 

REF 

51 

LAST 

892 

E 7 , 1 51 5 

EBANK= 

DVCNTR 

R 1 159 

HIGAT JOB 

IS  BEGUN 

WHEN  BOTH 

THE  TIME 

AND 

ANGLE  CRITERIA 

FOR  ANTENNA  REPOSITIONING  ARE  MET.  THE  JOB  INITIATES  THE 

R 1 16  1 

LANDING 

RADAR 

ANTENNA  REPOSITIONING 

ROUTINE.  DURING  THE 

REPOS  IT IONING, 

R l 2 IS  INHIBITTED  BY  THE  NOLRREAD  FLAG. 

R 1 163 

UPON 

COMPLETION  OF 

THE  REPOSI  TIOMNG 

, ( SUCCESSFUL 

OR  NOT) 

, THE  NOLRREAD 

FLAG  IS  CLEARED  AND  R12  CONTINUES. 

l 165 

33,3555 

0 0004 

0 

REREPOS 

INHINT 

ON  RESTAPT,  SET  FLAGS  AGAIN 

1 166 

REF 

40 

LAST 

891 

33,3556 

4 0107 

0 

CS 

FLGWRD1 1 

116  7 

REF 

4 

LAST 

876 

33,3557 

7 5006 

0 

MASK 

PR  103 

1168 

REF 

41 

LAST 

894 

33,3560 

26  107 

0 

ADS 

FLGWRDL1 

1169 

REF 

239 

LAST 

887 

33,3561 

0 4607 

1 

HIGATJOB 

TC 

8 ANKC ALL 

INITIATE  REPOSITIONING  ROUTINF 

1 170 

REF 

2 

LAST 

580 

33,3562 

53511 

1 

CAOR 

LRP0S2 

1171 

REF 

240 

LAST 

894 

33,3563 

0 4607 

1 

TC 

BANKCALL 

DELAY  UNTIL  FINISHED 

1 172 

REF 

12 

LAST 

589 

33,3564 

17733 

0 

CADR 

R ADSTALL 

1 173 

33,3565 

1 3566 

0 

TC  F 

+ 1 

IF  UNSUCCESSFUL,  R12  WILL  HANDLE  THINGS 

1174 

REE 

86 

l AST 

866 

33,3566 

3 4744 

1 

CA 

ONE 

INDICATE  POS  2 IS  EXPECTED 

1 175 

REF 

5 

LAST 

892 

33,3567 

55 ' 650 

1 

TS 

LRPOS 

1176 

REF 

87 

LAST 

890 

(3 , 5 5 70 

0 5520 

0 

TC 

DOWNFLAG 

RE-ENABLE  R12. 

11/7 

REF 

1 

33,3571 

00252 

1 

ADRES 

NOLRREAD 

1 1 7 B 

REF 

79 

LAST 

876 

33,3572 

0 5355 

1 

TC 

PHASCHNG 

CLEAR  RESTART  PROTECTION 

11/. 

33,3573 

00001 

0 

OCT 

l 

1 180 

REF 

132 

LAST 

871 

33,3574 

0 5 146 

l 

TC 

ENDOF JOB 

NtC  3 ■>  ■*>  > J 


GAP: 

L 

000  1 

0002 

000  3 

0004 

0005 

R0006 

ROOD  8 

R0C10 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

R0019 

R0020 

R002  1 

R0022 

0023 

0024 

002  5 

0026 

002  7 

0028 

0029 

003  0 

0031 

0032 

0033 

0034 

0035 

0036 

003  7 

0038 

0039 

0040 

0041 

0042 

0043 

0044 
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LANDING  ANALOG  DISPLAYS 


21, 2170 

BANK 

REF 

2 

LAST 

43 

21,2000 

SETLOC 

21,2170 

BANK 

REF 

4 

LAST 

887 

E7, 1777 

EBANK= 

REF 

2 

LAST 

44  TO 

44  : 

6 

6* 

COUNT  * 

USER*  S PAGE  NO.  1 EO  S3 

21 

RIO 


END-E7 

t$/R10 


LANADISP:  display  inertial  data  routine  for  descent  and  aborts  this  version  by  eyles 

$£##:£*  *£#£#£  ##**£*#  #£**=!< #*##****#**#  >Jc  # ^ * * % # ajc  ##  # % * # # if.  if  if  if  # * if  if  if  if  if  :Jc  if  if  if  if  j*c  if  if  if  * a{e  ajeajc  # a}c  # * a}:#  * # * £s*e  sje  jje  ajc*  * * # # # if  £ * £ * £ jjt 


REF 

2 

LAST 

831 

21,2170 

23' 722 

1 

LANADISP  LXCH 

P IPCTR1 

UPDATE  TBASE2  AND 

PIPCTR  SIMULTANEOUSLY 

REF 

20 

LAST 

867 

21,2171 

4 0025 

1 

cs 

T I ME  1 

REF 

5 

LAST 

862 

21,2172 

53 ' 055 

1 

DXCH 

TBASE2 

RFF 

26 

LAST 

880 

21,2173 

4 C 103 

1 

CS 

FLAGWRD  7 

IS  LANDING  ANALOG 

DISPLAYS  FLAG  SET? 

REF 

2 

LAST 

880 

21,2174 

7 4732 

1 

MASK 

SWANDBI T 

REF 

252 

LAST 

893 

21,2175 

10  000 

0 

CCS 

A 

REF 

1 

21,2176 

1 2654 

0 

TCF 

DISPRSET  +1 

NO:  GO  RESET 

COMPUTE  VELOCITY  VECTOR' 

if  if  j{c  5{c  j{c  ^adf^^ajsjJcjJsajej!;  &yf  if  jJsjJcfcaJcjfcjfcsJo!*  # # ;Jc  # ;jc  aji  a{:  a^  if  if  aje  a}<  sje  ajc  a}«  # a{c  ajc  jfta^afcajcafca^##  £ a}e  sj:  # aje  £ # # # ;|c  & af: ;{{ :$:  :{£  s{c  £ 

DO  EVERYTHING  POSSIBLE  BEFORE  READING  PIPAS. 


21,2177 

0 0006 

1 

EXTEND 

REF 

4 

LAST 

889 

21,2200 

4 1702 

1 

DCS 

VSURFACE 

REF 

2 

LAST 

158 

21,2201 

53' 721 

0 

DXCH 

VVECTX 

21,2202 

0 C006 

1 

EXTEND 

REF 

17 

LAST 

885 

2 1 , 2 20  3 

3 1527 

0 

DC  A 

V 

21,2204 

20  C01 

1 

DD0U8L 

21 ,2205 

20  001 

1 

DDOUBL 

REF 

3 

LAST 

895 

21,2206 

21' 721 

0 

DAS 

VVECTX 

21,2207 

0 0006 

1 

EXTEND 

REF 

5 

LAST 

895 

21,2210 

4 1704 

1 

DCS 

VSURFACE 

+ 2 

REF 

3 

LAST 

158 

21, 221  1 

53' 723 

1 

DXCH 

VVECTY 

21 ,2212 

0 0006 

1 

EXTEND 

REF 

18 

LAST 

895 

21,2213 

3 1531 

1 

DCA 

V 

+ 2 

21,2214 

20  001 

1 

DDOUBL 

21,2215 

2 0 001 

1 

DDOUBL 

REF 

4 

LAST 

895 

21,2216 

21 ' 723 

1 

DAS 

VVECTY 

21,2217 

0 C006 

1 

EXTEND 

REF 

6 

LAST 

895 

21,2220 

4 1706 

0 

DCS 

VSURFACE 

+ 4 

REF 

2 

LAST 

158 

21,2221 

53' 725 

1 

DXCH 

VVECTZ 

21,2222 

0 0006 

1 

EXTEND 

REF 

19 

LAST 

895 

21,2223 

3 1533 

0 

DCA 

V 

+ 4 

21,2224 

20  001 

l 

DDOUBL 

iAP : 

004  5 

0046 

10047 

004  8 

004  9 

0050 

005  1 

005? 

!005  3 

0054 

0055 

0056 

005  7 

005  8 

0059 

0060 

006  1 

0062 

0063 

0064 

0065 

006  6 

0067 

006  8 

10069 

0070 

007  1 

0072 

0073 

0074 

00  7 5 

0076 

0077 

0078 

0079 

0080 
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landing 

ANALOG 

DI SPLAYS 

USER*  S PAGE  NO.  2 

E7  S3 

21,2225 

20  C01 

1 

DDOUBL 

REF 

3 

LAST 

895 

21,2226 

21 ’ 725 

1 

DAS 

VVECTZ 

COMPUTE 

TIME  SINCE 

PIPTIME. 

REF 

23 

LAST 

874 

21,2227 

4 1234 

1 

CS 

PIPTIME  +1 

REF 

21 

LAST 

895 

21,2230 

6 0025 

0 

AD 

T IME  1 

REF 

1 1 

LAST 

86  7 

21,2231 

6 4727 

1 

AD 

HALF 

REF 

12 

LAST 

896 

21, 2232 

6 4 72  7 

1 

AD 

HALF 

REF 

2 

LAST 

157 

21,2233 

57' 717 

l 

XCH 

DT 

OT  SINCE  PIPTIME  IN  UNITS  OF 

2(14)  CS 

ADD 

IN  1 

PIPA  PULSES. 

REF 

4 

LAST 

874 

21, 2234 

3 1157 

0 

CA 

P I PATMPX 

REF 

15 

LAST 

875 

21,2235 

6 0037 

0 

AD 

P IPAX 

21,2236 

0 0006 

1 

EXTEND 

REF 

1 

21,2237 

7 2000 

1 

MP 

LANAKPI P 

REF 

4 

LAST 

895 

21,2240 

21*721 

0 

DAS 

VVECTX 

REF 

4 

LAST 

874 

21, 2241 

3 1 160 

1 

CA 

P I PATMPY 

REF 

6 

LAST 

396 

21,2242 

6 0040 

0 

AD 

P IPAY 

21,2243 

0 0006 

1 

EXTEND 

REF 

2 

LAST 

896 

21, 2244 

7 2000 

l 

MP 

LANAKPI P 

REF 

5 

LAST 

895 

21,2245 

21*723 

1 

DAS 

VVECTY 

REF 

4 

LAST 

8 74 

21, 2246 

3 1161 

0 

CA 

P I PATMPZ 

REF 

9 

LAST 

875 

21,2247 

6 0041 

l 

AD 

P IPAZ 

21,2250 

0 0006 

1 

EXTEND 

REF 

3 

LAST 

896 

21,2251 

7 2000 

1 

MP 

LANAKPIP 

REF 

4 

LAST 

896 

21,2252 

21 ' 725 

1 

QUARUUMP  DAS 

VVECTZ 

TAG  IS  FOR  EDITS 

F INALIY, 

. ADD  IN 

1 CONTR IBUT IONS 

OF  GRAVITY 

AND  PIPA  BIAS. 

REF 

3 

LAST 

880 

21, 2253 

3 1676 

l 

CA 

G-VB IASX 

G-VBI ASX  IS  IN  UNITS  OF 

2 (-9) 

m/CS/CS 

21,2254 

0 0006 

1 

EXTEND 

REF 

3 

LAST 

896 

21,2255 

7 1717 

0 

MP 

DT 

REF 

5 

LAST 

896 

21,2256 

21*721 

0 

DAS 

VVECTX 

VVECTX  IN  UNITS  OF  2(5) 

M/CS 

REF 

3 

LAST 

880 

21,2257 

3 1677 

0 

CA 

G-VBIASY 

G-VBIASY  IS  IN  UNITS  OF 

2 (-9) 

M/CS/C5 

21,2260 

0 CC06 

l 

EXTEND 

REF 

4 

LAST 

896 

21,2261 

7 1717 

0 

MP 

DT 

REF 

6 

LAST 

896 

21,2262 

21*  723 

1 

DAS 

VVECTY 

VVECTY  IN  UNITS  OF  2(5) 

M/CS 

REF 

3 

LAST 

880 

21,2263 

3 1700 

1 

CA 

G-VB I ASZ 

G-VBI ASZ  IS  IN  UNITS  OF 

2 (-9) 

M/CS/CS 

21,2264 

0 0006 

1 

EXTEND 

REF 

5 

LAST 

896 

21,2265 

7 1717 

0 

MP 

DT 

REF 

5 

LAST 

896 

21,2266 

21 ' 725 

1 

DAS 

VVECTZ 

VVECTZ  IN  UNITS  OF  2(5) 

M/CS 

COMPUTE  ALTITUDE  AND  ALT  I TUDE -R AT E 


GAP: 

L 

R0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

009  3 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

010  2 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

Oil  1 

0112 

R0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

012  1 

0122 

0123 

R 0 1 2 4 

R0125 

RO  126 
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LANDING 

ANALOG 

DISPLAYS 

USER'S  PAGE  NO.  3 E7 

S3 

********* 

***************************************** 

** 

REF 

3 

LAST 

880 

21,2267 

3 1714 

1 ALTSTUFF 

CA 

RUNI  TX 

COMPUTE  RADIAL  VELOCITY 

21,2270 

0 0006 

1 

EXTEND 

REF 

6 

LAST 

896 

21 , 2271 

7 1720 

1 

MP 

VVECTX 

REF 

2 

LAST 

158 

21,2272 

53' 727 

0 

DXCH 

ALTRATE 

REF 

4 

LAST 

897 

21,2273 

3 1714 

1 

CA 

RUNITX 

COMPUTE  THE  MORE  SENSITIVE  TFRM 

IN  DP 

21,2274 

0 C006 

1 

EXTEND 

REF 

7 

LAST 

897 

21,2275 

7 1721 

0 

MP 

VVECTX  +1 

REF 

145 

LAST 

892 

21,2276 

54  C01 

I 

TS 

L 

REF 

169 

LAST 

89  1 

21,2277 

3 4 746 

0 

CAF 

ZERO 

REF 

3 

LAST 

897 

21,2300 

21 ' 727 

0 

DAS 

ALTRATE 

REF 

3 

LAST 

880 

21,2301 

3 1715 

0 

CA 

RUNITY 

NOTE:  WITH  NORMAL  DESCENT  IMU  ALIGNMENT 

21,2302 

0 0006 

1 

EXTEND 

THIS  TERM  IS  ALWAYS  ZERO,  BUT 

ALTRATE 

REF 

7 

LAST 

896 

21,2303 

7 1722 

0 

MP 

VVECTY 

CAN  BF  DISPLAYED  DURING  ASCENT 

TOO 

REF 

4 

LAST 

897 

21, 2304 

21 ' 727 

0 

DAS 

ALTRATE 

REF 

3 

LAST 

880 

21,2305 

3 1716 

0 

CA 

RUNITZ 

21,2306 

0 0006 

1 

EXTEND 

REF 

6 

LAST 

896 

21,2307 

7 1724 

0 

MP 

VVECTZ 

REF 

5 

LAST 

697 

21,2310 

21 ' 727 

0 

DAS 

ALTRATE 

REF 

3 

LAST 

879 

21,2311 

3 1713 

0 

CA 

DALTRATE 

COMPENSATE  FOR  CHANGE  IN  DIRECTION  OF  R 

21,2312 

0 C006 

L 

EXTEND 

REF 

6 

LAST 

896 

21,2313 

7 1717 

0 

MP 

DT 

REF 

6 

LAST 

897 

21,2314 

21 ' 727 

0 

DAS 

ALTRATE 

ALTRATE  IN  UNITS  OF  2(5)  M/CS 

21,2315 

0 CC06 

1 

EXTEND 

REF 

7 

LAST 

897 

21,2316 

3 1727 

1 

DC  A 

ALTRATE 

REF 

1 

21,2317 

52  064 

l 

DXCH 

A LTRTEMP 

21,2320 

0 0006 

1 

EXTEND 

REF 

3 

LAST 

880 

21,2321 

3 1712 

1 

DC  A 

HDOTLAD 

REF 

2 

LAST 

897 

21,2322 

20  064 

1 

DAS 

ALTRTEMP 

AVERAGE  ALTRATE  IN  UNITS  OF  2(4) 

M/CS 

THE 

FOLLOWING 

COMPUTATION  FAILS  IF  DT 

EXCEEDS  20 

.47  SECONDS  (UNLIKELY) 

• 

REF 

7 

LAST 

897 

21,2323 

3 1717 

1 

CA 

DT 

21,2324 

0 0006 

1 

EXTEND 

REF 

40 

LAST 

838 

21,2325 

7 4741 

0 

MP 

BIT4 

REF 

146 

LAST 

897 

21,2326 

3 0001 

0 

CA 

L 

FETCH  DT  FROM  L IN  UNITS  OF  2(11 

) CS 

21,2327 

0 0006 

l 

EXTEND 

REF 

3 

LAST 

897 

21, 2330 

7 C C 63 

0 

MP 

ALTRTEMP 

REF 

2 

LAST 

158 

21,2331 

53*  731 

1 

DXCH 

ALTITUDE 

21,2332 

0 0006 

1 

EXTEND 

REF 

3 

LAST 

879 

21, 2333 

3 1710 

0 

DC  A 

HCALCLAD 

REF 

3 

LAST 

897 

21,2334 

21*731 

1 

DAS 

ALTITUDE 

ALTITUDE  IN  UNITS  OF  2(15)  METERS 

^Ifr***^*************#*##^  «***  %***$%$$*%*%  %*^  #«$**:$:*>!:**  **  =):  *£  **  * *** 

SEND  CUT  ALTITUDE-RATE  IF  POSSIBLE 

* J,\  **=!<  ***#  ***********  *********************************  ****  * ***  **  **  ****  * ** 
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L 

l ANOING 

ANALOG 

DISPLAYS 

0132 

REF 

30 

LAST 

886 

21,2335 

0133 

REF 

2 

LAST 

228 

21,2336 

0134 

REF 

253 

LAST 

895 

21,2337 

0135 

REF 

1 

21,2340 

0135  1 

REF 

39 

LAST 

823 

21,2341 

01352 

21,2342 

01353 

REF 

47 

LAST 

781 

21,2343 

01354 

21,2344 

01355 

REF 

2 

LAST 

895 

21,2345 

0137 

21,2346 

0138 

REF 

12 

LAST 

838 

21,2347 

0139 

21,2350 

0140 

KEF 

8 

LAST 

897 

21,2351 

0141 

21,2352 

0142 

21,2353 

0143 

21,2354 

0144 

21,2355 

0145 

REF 

1 

21,2356 

0146 

REF 

147 

LAST 

897 

21,2357 

0147 

21,2360 

0148 

REF 

2 12 

LAST 

893 

21,2361 

0149 

REF 

170 

LAST 

897 

21,2362 

0150 

REF 

148 

LAST 

898 

21,2363 

0151 

REF 

3 

LAST 

827 

21,2364 

0152 

REF 

149 

LAST 

898 

21,2365 

0153 

21,2366 

0154 

REF 

150 

LAST 

898 

21,2367 

0155 

21,2370 

0156 

REF 

1 

21 ,2371 

0157 

REF 

33 

l AST 

816 

21 ,2372 

0158 

21,2373 

0159 

REF 

13 

LAST 

898 

21,2374 

0160 

REF 

1 

21,2375 

AO  160  1 

A01602 

0161 

REF 

7 

LAST 

860 

21, 2376 

0162 

REF 

40 

LAST 

898 

21,2377 

0163 

21,2400 

0164 

REF 

14 

LAST 

898 

21,2401 

016  5 

REF 

4 

LAST 

897 

21,2402 

0166 

21,2403 

016  7 

REF 

1 

21,2404 

4 0075 

1 

CS 

FLAGWRD1 

7 4727 

0 

MASK 

D IDF  LB  I T 

10  000 

0 

CCS 

A 

l 2626 

0 

TCF 

DISPINIT 

3 4743 

0 

CAF 

BIT2 

0 0006 

1 

EXTEND 

02  C 12 

0 

RAND 

CHAN12 

0 C006 

1 

EXTEND 

1 2653 

1 

BZF 

0 I SPRSET 

0 C006 

1 

ALTRROUT 

EXTEND 

05  014 

l 

WOR 

CHAN14 

0 0006 

1 

EXTEND 

3 1727 

1 

DC  A 

ALTRATE 

20  001 

l 

DDOUBL 

20  001 

1 

DDOUBL 

20  001 

1 

DDOUBL 

0 0006 

l 

EXTEND 

7 2004 

0 

MP 

A LTRCON V 

56  001 

0 

XCH 

L 

6 0000 

1 

DOUBLE 

54  002 

l 

TS 

0 

3 4 746 

0 

CAF 

ZERO 

26  001 

1 

ADS 

L 

6 4726 

0 

AD 

NEGMAX 

54  001 

1 

TS 

L 

1 2371 

1 

TCF 

+ 3 

6 CCOl 

0 

AD 

L 

4 OCOO 

0 

COM 

56  060 

1 

+ 3 

XCH 

A LTM 

3 4742 

1 

CAF 

B IT3 

0 0006 

1 

EXTEND 

05  014 

l 

WOR 

CHAN14 

3 5745 

l 

CA 

TWELVE 

0 

5226 

1 

TC 

VARDELAY 

4 

4743 

l 

ALTROUT  CS 

BIT2 

0 

0006 

1 

EXTEND 

03 

1 014 

1 

WAND 

CHAN14 

3 

1731 

0 

CA 

ALTITUDE 

0 

0006 

1 

EXTEND 

7 

2005 

l 

MP 

ALTCONV 

17: 11  MAR.  19,1971  FLY  .197  PAGE  898 

USER'S  PAGE  NO.  A F7  S3 

IS  INITIALIZATION  IN  OROER? 

YES:  THEN  GO  00  IT 

NO:  ARE  RR  ERROR  COUNTERS  ENABLED? 

NO:  REINITIALIZE  DISPLAYS 

YES:  SIGNIFY  ALTITUDE-RATE  (BIT2  IN  A) 


RESCALE  ALTRATE  TO  UNITS  OF  2121  M/CS 

RESCALE  TO  UNITS  OF  .5  F/S/BIT 
ROUND  TO  NEAREST  .5  F/S 


DELAY  120  MS  FOR  DATA  OUTPUT 

NOTE  - THIS  DELAY  MUST  RE  GREATER  THAN 

100  MS  FOR  COMPATIBILITY  WITH  THE  L MS 


SIGNIFY  ALTITUDE 


GAP: 

ASSEMBLE  R 

EVISION  210 

GF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 

17:11  MAR.  19,1971  FLY  .197  PAGE  899 

L 

LANDING 

ANALOG 

DISPLAYS 

USER*  S PAGE  NO.  5 E7  S3 

0168 

REF 

151 

LAST 

898 

21,2405 

VJ1 

-P' 

O 

c 

1 

TS 

L 

0169 

REF 

171 

LAST 

898 

21,2406 

3 4 746 

0 

CAF 

ZERO 

0170 

REF 

1 

21,2407 

52  064 

1 

DXCH 

ALTTEMP 

0171 

REF 

5 

LAST 

898 

21,2410 

3 1730 

1 

CA 

ALTITUDE 

0172 

21,2411 

0 C006 

1 

EXTEND 

0173 

REF 

2 

LAST 

898 

21,2412 

7 2005 

1 

MP 

ALTCONV 

0174 

REF 

2 

LAST 

899 

21,2413 

20  064 

1 

DAS 

ALTTEMP 

ALTITUDE  IN  UNITS  OF  9.380  FEET/BIT 

0175 

REF 

3 

LAST 

899 

21, 2414 

52  064 

1 

DXCH 

ALTTEMP 

0176 

21,2415 

2 C 001 

1 

DDDUBL 

0177 

21 , 2416 

20  001 

1 

DDOUBL 

RESCALE  TO  UNITS  OF  2.345  FFET/BIT 

0178 

21,2417 

54  000 

0 

GVSK 

0179 

21,2420 

1 2424 

0 

TCF 

<-4 

NO  OVERFLOW:  -38420  < ALTITUDE  < +38420 

0180 

REF 

24 

LAST 

880 

21, 2421 

7 4724 

0 

MASK 

POSMAX 

RESET  OVERFLOW 

0 18  1 

REF 

36 

LAST 

548 

21,2422 

6 4726 

0 

AD 

B I T 1 5 

0182 

21,2423 

1 2430 

0 

TCF 

+ 5 

0183 

REF 

254 

LAST 

898 

21,2424 

10  000 

0 

+ 4 CCS 

A 

APPLY  LOWER  LIMIT  OF  POSITIVE  ZERO 

0184 

REF 

87 

LAST 

894 

21 ,2425 

6 4744 

1 

AD 

ONE 

0185 

21,2426 

1 2430 

0 

TCF 

+ 2 

0186 

REF 

172 

LAST 

899 

21, 2427 

3 4746 

0 

CAF 

ZERU 

0187 

REF 

2 

LAST 

898 

21,2430 

56  060 

1 

+ 5 XCH 

ALTM 

0138 

REF 

34 

LAST 

898 

21,2431 

3 4742 

1 

CAF 

8 IT3 

0189 

21,2432 

0 0006 

l 

EXTEND 

0190 

REF 

15 

LAST 

898 

21, 2433 

05  014 

1 

WOR 

CHAN  1 4 

R0191 

***** *** 

******************  ***  ****  ********  ************  ****  *************** 

R0192 

SEND 

CLT 

FORWARD  AND 

LATFRAL 

VELOCITIES 

R0 193 

**  ** 

* ******  ***#$*  if!***#**#*#  **  * ****$:(!*<!*$*  *#*$«*#*$ 

0194 

REF 

1 

21,2434 

0 2513 

1 

TC 

CROSCOMP 

FIRST  CALL  SUBROUTINE  TO  COMPUTE  THEM 

0195 

REF 

29 

LAST 

877 

21, 2435 

3 4733 

1 

CAF 

BIT10 

1/32  TO  ITEMP2  FOR  USE  AS  DIVISOR  BELOW 

0196 

REF 

11 

LAST 

745 

21,2436 

54  062 

l 

TS 

I TEMP 2 

0197 

REF 

1 

21,2437 

3 2001 

1 

CAF 

MAXVEL 

LIMIT  COMMAND  TO  198.645  F/S 

0198 

REF 

1 

21,2440 

22  070 

0 

LXCH 

FORVTEMP 

0199 

REF 

L 

21,2441 

0 2673 

1 

TC 

LADLIMIT 

0200 

REF 

2 

LAST 

899 

21,2442 

22  071 

1 

LXCH 

FORVTEMP  +1 

020  1 

21,2443 

0 0006 

1 

EXTEND 

RESCALE  TO  UNITS  OF  ONE  M/CS 

0202 

REF 

12 

LAST 

899 

21,2444 

10  062 

1 

DV 

I TEMP2 

0203 

21,2445 

0 0006 

1 

EXTEND 

RESCALE  TO  UNITS  OF  .5571  F/S/BIT 

0204 

REF 

1 

21, 2446 

7 2003 

1 

MP 

VELCONV 

0205 

REF 

152 

LAST 

899 

21,2447 

56  001 

0 

XCH 

L 

ROUND  TO  NEAREST  .5571  F/S 

0206 

21,2450 

6 0000 

1 

DOUBLE 

0207 

- REF 

213 

LAST 

898 

21, 245  1 

54  002 

1 

TS 

Q 

0208 

REF 

1 

21,2452 

1 2454 

l 

TCF 

FORVOUT 

0209 

REF 

153 

LAST 

899 

21,2453 

26  001 

1 

ADS 

L 

GAP:  ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  2021LI2-161 
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L 

LANDING 

ANALOG 

DISPLAYS 

USER'S  PAGE  NO.  6 E7  S3 

0210 

REF 

3 

LAST 

213 

21,2454 

4 1733 

0 

FORVOUT 

CS 

FORVMETR 

SUBTRACT  METER  INDICATOR  TO  GET  CHANGE 

0211 

REF 

154 

LAST 

899 

21 , 2455 

26  001 

1 

ADS 

L 

0212 

REF 

I 

21,2456 

3 2002 

1 

CA 

MAXDBITS 

0213 

REF 

2 

LAST 

899 

21,2457 

0 2673 

1 

TC 

LADL I MIT 

LIMIT  CHANGE  TO  ABOUT  300  F/S 

0214 

REF 

21 

LAST 

87  1 

21, 2460 

6 4745 

0 

AD 

NEGO 

0215 

REF 

1 

21,2461 

54  054 

1 

TS 

CDUSCMO 

0216 

REF 

4 

LAST 

900 

21,2462 

27' 733 

0 

ADS 

FORVMETR 

UPDATE  MFTER  INDICATOR 

0217 

REF 

2 

LAST 

899 

2 L , 2463 

3 2001 

1 

CAF 

MAXVEL 

LIMIT  COMMAND  TO  198.6.45  F/S 

0218 

REF 

1 

21,2464 

22  072 

1 

LXCH 

LATVEL 

0219 

REF 

3 

LAST 

900 

21,2465 

0 2673 

1 

TC 

LADL I M I T 

0220 

REF 

2 

LAST 

900 

21,2466 

22  073 

0 

LXCH 

LATVEL  +1 

022  l 

21,2467 

0 0006 

1 

EXTEND 

RESCALE  TO  UNITS  OF  ONE  M/CS 

0222 

REF 

13 

LAST 

899 

21,2470 

10  C 62 

l 

DV 

I TEMP2 

0223 

21,2471 

0 0006 

1 

EXTEND 

RESCALE  TO  UNITS  OF  .5571  F/S/BIT 

0224 

REF 

2 

LAST 

899 

21,2472 

7 2003 

1 

MP 

VELCONV 

0225 

REF 

155 

LAST 

900 

21 , 2473 

56  001 

0 

XCH 

L 

ROUND  TO  NEAREST  .5571  F/S 

022  6 

21,2474 

6 0000 

1 

DOUBLE 

0227 

REF 

214 

LAST 

899 

21,2475 

54  002 

1 

TS 

Q 

0228 

REF 

1 

21,2476 

1 2500 

1 

TCF 

LATVOUT 

0229 

REF 

l 56 

LAST 

900 

21,2477 

26  001 

1 

ADS 

L 

0230 

REF 

4 

LAST 

213 

21,2500 

4 1732 

1 

LATVOUT 

CS 

LATVMETR 

SUBTRACT  METFR  INDICATOR  TO  GET  CHANGE 

0231 

REF 

1 57 

LAST 

900 

21,2501 

26  001 

l 

ADS 

L 

0232 

REF 

2 

LAST 

900 

21,2502 

3 2002 

1 

CAF 

MAXDBITS 

0233 

REF 

4 

LAST 

900 

21,2503 

0 2673 

1 

TC 

LADL I M I T 

LIMIT  CHANGE  TO  ABOUT  300  F/S 

0234 

REF 

22 

LAST 

900 

21,2504 

6 4745 

0 

AD 

NEGO 

0235 

REF 

2 

LAST 

552 

21,2505 

54  053 

0 

TS 

CDUTCMD 

0236 

REF 

5 

LAST 

900 

21,2506 

27*732 

l 

ADS 

LATVMETR 

UPDATE  MFTER  INDICATOR 

0237 

REF 

l 

21,2507 

3 501  1 

1 

CAF 

BITSET 

SET  DRIVE  BITS 

0238 

21,2510 

0 0006 

1 

EXTEND 

0239 

REF 

16 

LAST 

899 

21,2511 

05  014 

1 

WOR 

CHAN  14 

0240 

REF 

59 

LAST 

862 

21,2512 

0 5263 

0 

LANADEND 

TC 

T ASKOVER 

R0  24  l *****$**********  i********#,***********  *#***$$«#*$***>!.*,*$  a***  «**<<***$*$**** 

R0242  SUBRUUT I NE  TO  COMPUTE  FORWARD  ANO  LATERAL  VELOCITIES 

R0243  *************************************  $*$***  *=***$:**  $***$# 

R0244  TEE  SCALARS  VHY  AND  VHZ,  COMPUTED  NEXT,  ARE  THE  VELOCITIES  ALONG  UNIT  VECTORS  UHYP  AND  UHZP,  UHYP  NORMAL 

R0246  TO  THE  PRE-PDI  ORBITAL  PLANE,  UHZP  IN  TURN  NORMAL  TO  UHYP  AND  THE  POSITION  VECTOR.  NOW  SINCE  FOR  THE  "LANDING 

R0248  ALIGNMENT"  OF  THE  IMU  rH1-  STABLE-MEMBER  Y-AXIS  IS  DEFINED  THE  SAME  WAY  AS  UHYP,  VVECTY  IS  PRECISELY  VHY. 

R025O  FURTHERMORE,  THE  Y-TERM  OF  THE  VHZ  COMPUTATION  DROPS  OUT,  AND  THE  FOLLOWING  USEFUL  EOUALITIFS  BECOME  T RUF : 

R0252  UHZPX  = - RUNITZ  AND  UHZPZ  = RUNITX.  DRAW  A PICTURE  TO  BE  CONVINCED. 

R0253  NOTE  THAT  IN  THIS  VERSION  CRCSS-»0 INTER  DISPLAYS  ARE  OUTPUT  DURING  ASCENT  AND  ABORTS  AS  WELL  AS  DESCENT. 

0255  REF  30  LAST  833  21,2513  4 0074  0 CROSCOMP  CS  FLAGWROO  IS  RIOFLAG  SET  TO  INDICATE  ASCENT? 

0256  REF  2 LAST  833  21,2514  7 4743  1 MASK  R10FLBIT 

0257  21,2515  0 C006  1 EXTEND 


GAP:  ASSEMBLE  REVISION  210  Of  AGO  PROGRAM  LUMINARY  BY 

L LANDING  ANALOG  DISPLAYS 


0258 

REF 

1 

21,2516 

1 

2615 

0 

0259 

REF 

4 

LAST 

897 

21,2517 

4 

1716 

1 

0260 

21,2520 

0 

0006 

1 

0261 

REF 

8 

LAST 

897 

21,2521 

7 

1720 

1 

0262 

REF 

1 

21,2522 

52 

066 

0 

0263 

REF 

5 

LAST 

897 

21,2523 

3 

1714 

1 

026'+ 

21,2524 

0 

C006 

1 

0265 

REF 

7 

LAST 

897 

21,2525 

7 

1724 

0 

0266 

REF 

2 

LAST 

90  1 

21, 2526 

20 

C66 

0 

0267 

REF 

6 

LAST 

901 

21,2527 

3 

1714 

1 

0268 

21,2530 

0 

0006 

1 

0269 

REF 

8 

LAST 

901 

21,2531 

7 

1725 

1 

0270 

REF 

158 

LAST 

900 

21,2532 

54 

001 

1 

0271 

REF 

173 

LAST 

899 

21,2533 

3 

4746 

0 

0272 

REF 

3 

LAST 

901 

21,2534 

20 

066 

0 

0273 

21,2535 

0 

C006 

1 

0274 

REF 

8 

LAST 

897 

21, 2536 

3 

1723 

0 

0275 

REF 

1 

21,2537 

52 

064 

1 

0276 

REF 

8 

LAST 

820 

21, 2540 

3 

5006 

1 

0277 

REF 

52 

LAST 

892 

21,2541 

54 

003 

0 

0278 

REF 

3 

LAST 

199 

E6, 1417 

027  9 

REF 

2 

LAST 

200 

21,2542 

3 

1420 

0 

0280 

21,2543 

0 

0006 

1 

0281 

REF 

4 

LAST 

901 

21, 2544 

7 

0065 

0 

0282 

REF 

3 

LAST 

899 

21,2545 

52 

071 

0 

0283 

REF 

4 

LAST 

90  1 

21,2546 

4 

1417 

0 

0284 

21,2547 

0 

0006 

1 

0285 

REF 

2 

LAST 

90  1 

21,2550 

7 

0063 

0 

0286 

REF 

4 

LAST 

901 

21,2551 

20 

071 

0 

0287 

REF 

3 

LAST 

90  1 

21, 2552 

3 

1420 

0 

0288 

21,2553 

0 

0006 

1 

0289 

REF 

5 

LAST 

90  1 

21, 2554 

7 

0066 

0 

0290 

REF 

14 

LAST 

900 

21,2555 

54 

062 

1 

029  1 

REF 

5 

LAST 

90  1 

21,2556 

4 

1417 

0 

0292 

21,2557 

0 

0006 

1 

0293 

REF 

3 

LAST 

901 

21,2560 

7 

0064 

1 

0294 

REF 

15' 

LAST 

901 

21,2561 

6 

0062 

0 

0295 

REF 

159 

LAST 

901 

21,2562 

54 

001 

1 

0296 

REF 

174 

LAST 

901 

21,2563 

3 

4746 

0 

029  7 

REF 

5 

LAST 

901 

21,2564 

20 

071 

0 

0298 

REF 

6 

LAST 

90  1 

21,2565 

3 

1417 

1 

0299 

21,2566 

0 

0006 

1 

0300 

REF 

6 

LAST 

901 

21 , 2567 

7 

0065 

0 

0301. 

REF 

3 

LAST 

900 

21,2570 

52 

073 

1 
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BZF 

APSLAD 

YES:  DISPLAY  LATVEL  IN  II 

cs 

RUNI TZ 

NO:  COMPUTE  DOWNRANGE  V 

EXTEND 

MP 

VVECTX 

DXCH 

VHZ 

CA 

RUNI TX 

EXTEND 

MP 

VVECTZ 

DAS 

VHZ 

CA 

RUNITX 

COMPUTE  THE  MORE  SENSITIV! 

EXTEND 

MP 

VVECTZ  +1 

TS 

L 

CAF 

ZERO 

DAS 

VHZ 

VHZ  IN  UNITS  OF  2(5)  M/CS 

EXTEND 
DC  A 

VVECTY 

DXCH 

VHY 

VHY  IN  UNITS  OF  2(5)  M/CS 

CAF 

EBANK6 

SWITCH  TO  DAP  EBANK 

TS 

E6ANK 

ER ANK= 

M22 

CA 

M32 

COS( AOG) 

EXTEND 

MP 

VHZ 

DXCH 

FORVTEMP 

CS 

M 22 

S I N ( AOG) 

EXTEND 

MP 

VHY 

DAS 

FORVTEMP 

CA 

M32 

cost AOG) 

EXTEND 

MP 

VHZ  + 1 

TS 

ITEMP2 

CS 

M 22 

SIN( AOG) 

EXTEND 

MP 

VHY  +1 

AD 

I TEMP2 

TS 

L 

CAF 

ZERO 

DAS 

FORVTEMP 

FORWARD  VELOCITY  IN  UNITS 

CA 

M22 

SIN(AOG) 

EXTEND 

MP 

VHZ 

DXCH 

LATVEL 
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L 

LANDING 

ANALOG 

D I SPLAYS 

0302 

REF 

9 

LAST 

90  1 

21,2571 

3 1420 

0 

CA 

M 32 

0303 

21 ,2572 

0 0006 

1 

EXTEND 

0309 

REE 

9 

LAST 

90  l 

21,2573 

7 0063 

0 

MP 

VHY 

0305 

REF 

9 

LAST 

90  1 

21,2574 

20  073 

l 

DAS 

LATVEL 

0306 

REF 

7 

LAST 

90  1 

21,2575 

3 1417 

1 

CA 

M22 

0307 

21,2576 

0 0006 

1 

EXTEND 

0308 

REF 

7 

LAST 

90  1 

21,2577 

7 CC66 

0 

MP 

V HZ 

+ 1 

0309 

REF 

16 

LAST 

901 

21 , 2600 

54  062 

1 

TS 

I TEMP2 

0310 

REF 

5 

LAST 

902 

21 , 2601 

3 1420 

0 

CA 

M32 

031  1 

21,2602 

0 0006 

1 

EXTEND 

0312 

REF 

5 

LAST 

90  2 

21,2603 

7 C064 

1 

MP 

VHY 

+ 1 

0313 

REF 

17 

LAST 

902 

21,2604 

6 0062 

0 

AD 

I TEMP2 

0319 

REF 

160 

LAST 

90  1 

21,2605 

54  001 

1 

TS 

L 

0315 

REF 

1 75 

LAST 

90  1 

21,2606 

3 4746 

0 

CAF 

ZERO 

0316 

REF 

5 

LAST 

902 

21,2607 

20  073 

1 

DAS 

LATVEL 

0317 

REF 

23 

LAST 

827 

21,2610 

24  006 

1 

INCR 

BBANK 

0318 

REF 

9 

LAST 

897 

E 7 , 1711 

EB ANK= 

HDOTLAD 

0319 

21,2611 

0 0006 

1 

CRUSSOUT 

EXTEND 

0320 

REF 

6 

LAST 

901 

21,2612 

3 0071 

1 

DC  A 

FORVTEMP 

032  1 

REF 

3 

LAST 

327 

21,2613 

53'  735 

0 

DXCH 

FORVEL 

0322 

REF 

215 

LAST 

900 

21,2614 

0 C002 

0 

TC 

Q 

032  3 

REF 

7 

LAST 

902 

21,2615 

54  070 

1 

APSLAD 

TS 

FORVTEMP 

0329 

REF 

8 

LAST 

902 

21,2616 

54  071 

0 

TS 

FORVTEMP 

+ 1 

0325 

21,2617 

0 C006 

1 

EXTEND 

0326 

REF 

9 

LAST 

90  l 

21,2620 

3 1723 

0 

DC  A 

VVECTY 

032  7 

REF 

6 

LAST 

902 

21,2621 

52  073 

1 

DXCH 

LATVEL 

0328 

21,2622 

0 0006 

1 

EXTEND 

0329 

REF 

7 

LAST 

895 

21,2623 

3 1704 

0 

DC  A 

VSURFACE 

+ 2 

0330 

REF 

7 

LAST 

902 

21,2624 

20  073 

1 

DAS 

LATVEL 

033  1 

REF 

1 

21,2625 

1 2611 

1 

TCF 

CROSSOUT 

R0332 

**#**##***♦ 

R0333 

LANUING 

ANALOG 

DISPLAYS  INITIALIZATION 

R0339 

At*********-#****#**###*#######******#*#*#* 

0335 

REF 

2 

LAST 

899 

21,2626 

0 2513 

1 

DISP INIT 

TC 

CROSCOMP 

0336 

REF 

31 

LAST 

898 

21, 2627 

4 0075 

1 

CS 

FLAGWRD1 

033  7 

REF 

3 

LAST 

898 

21,2630 

7 4727 

0 

MASK 

DIDFLBIT 

0338 

REF 

32 

LAST 

90  2 

21,2631 

26  075 

1 

ADS 

F LAGWRD1 

0339 

REF 

30 

LAST 

805 

21, 2632 

3 4735 

1 

CAF 

BIT8 

0390 

21,2633 

0 0006 

1 

EXTEND 

USER'S  PAGE  NO.  8 
COS ( AOG ) 


F6  S3 


SIN( AOG) 


Cost AOG) 


LATERAL  VELOCITY  IN  UNITS  OF  2(9)  M/CS 
RETURN  TO  SERVICER  ERANK 

MOVE  FORVTEMP  TO  FORVEL  FOR  OSKY  DISPLAY 


DURING  ASCENT  AND  ARORTS  COMF  HERE  TO 
DISPLAY  LATVEL  = SM  Y-AXIS  VELOCITY 


ADD  SURFACE  VELOCITY  BACK  IN  SO  APS 
LATVEL  DISPLAY  WILL  BE  IN  TRUE 
STABLE-MEMBER  COORDINATES 

REJOIN  THE  MAINSTREAM 


FIRST  COMPUTE  BUT  NOT  OUTPUT  VELOCITIES 
SET  DIOFLAG 


SET  DISPLAY  INERTIAL  DATA  OUTRIT 
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L 

LANDING 

ANALOG 

D I SPLAYS 

USER'S  PAGE  NO.  9 E7  S3 

0341 

REF 

48 

LAST 

898 

21, 2634 

05  C 1 2 

1 

WOR 

CHAN  1 2 

0342 

REF 

1 76 

LAST 

902 

21,2635 

4 4746 

1 

CS 

ZERO 

ZERO  METER  INDICATORS 

0343 

REF 

6 

LAST 

900 

21,2636 

55' 732 

1 

TS 

L ATVMETR 

034  4 

RFF 

5 

LAST 

900 

21,2637 

55 ' 733 

0 

TS 

FORVMETR 

0345 

REF 

41 

LAST 

897 

21,2640 

3 4741 

1 

CAF 

BIT4 

SET  UP  TASK  TO  FINISH  INITIALIZATION 

0346 

REF 

26 

LAST 

853 

2 1,  2641 

0 5175 

1 

TC 

TWIDDLE 

0347 

REF 

1 

21,2642 

02644 

0 

ADRES 

I NTLZE 

0348 

REF 

1 

21,2643 

1 2512 

1 

TCF 

LANADEND 

0349 

REF 

41 

LAST 

898 

21,2644 

3 4743 

0 

INTLZE 

CAF 

BIT2 

ENABLE  RR  ERROR  COUNTER 

0350 

21,2645 

0 0006 

1 

EXTEND 

035  1 

REF 

49 

LAST 

903 

21,2646 

05  012 

1 

WOR 

C HAN  1 2 

0352 

REF 

33 

LAST 

540 

21,2647 

4 1300 

1 

CS 

IMUDES33 

SET  INERTIAL  DATA  FLAG 

0353 

REF 

31 

LAST 

902 

21,2650 

7 4735 

0 

MASK 

BITS 

0354 

REF 

34 

LAST 

903 

21,2651 

27' 300 

1 

ADS 

I MODE  S33 

0355 

REF 

60 

LAST 

900 

21, 2652 

0 5263 

0 

TC 

T ASKOVER 

R0356 

R0357 

LANDING 

ANALOG 

DISPLAYS  RESET 

ROUTINE 

R0358 

*«=*: 

# ❖ * # * # # * ❖ * ❖ # * ^ # # # * * # ** 

# # # ;jc  sji  aje  ;Jc  j{s  sj 

a}:  # j|c  s{<  j{«  # jjeaje  # jjeaje  ^ £ s|s  sfcajc 

0359 

REF 

3 

LAST 

902 

21,2653 

0 2513 

1 

DI SPRSET 

TC 

CROSCOMP 

FIRST  COMPUTF  BUT  NOT  OUTPUT  VELOCITIES 

0360 

REF- 

4 

LAST 

902 

21,2654 

4 4 727 

0 

+ 1 

CS 

DIDFLBIT 

RESET  DIDFLAG 

036  1 

REF 

33 

LAST 

902 

21,2655 

7 0075 

1 

MASK 

FLAGWRD1 

0362 

REF 

34 

LAST 

903 

21,2656 

54  075 

1 

TS 

FLAGWRD1 

0363 

REF 

32 

LAST 

903 

21, 2657 

3 4735 

1 

CAF 

B IT8 

WAS  INERTIAL  DATA  JUST  DISPLAYED? 

0364 

REF 

35 

LAST 

903 

21,2660 

7 1300 

1 

MASK 

I MODE S33 

0365 

REF 

255 

LAST 

899 

21,2661 

10  000 

0 

CCS 

A 

0366 

REF 

42 

LAST 

903 

21,2662 

3 4 743 

0 

CAF 

BIT2 

YES:  DISABLE  RR  ERROR  COUNTER  AND 

0367 

REF 

33 

LAST 

903 

21 , 2663 

6 4735 

1 

AD 

B I T 8 

NO:  RESET  DISPLAY  INERTIAL  DATA  OUTBIT 

0360 

21,2664 

4 COOO 

0 

COM 

0369 

21,2665 

0 0006 

1 

EXTEND 

0370 

REF 

50 

LAST 

903 

21,2666 

03  012 

1 

WAND 

C HAN  1 2 

0371 

REF 

34 

LAST  . 

903 

21 , 2667 

4 4735 

0 

CS 

B I T 8 

0372 

REF- 

36 

LAST 

903 

21,2670 

7 1300 

1 

MASK 

I M0DES33 

0373 

REF 

37 

LAST 

903 

21,2671 

55 ' 300 

1 

TS 

I MODE  S33 

0374 

REF 

2 

LAST 

903 

21,2672 

1 2512 

1 

TCF 

L ANAUEND 

R0376  CONSTANTS  FOR  LANDING  ANALOG  DISPLAYS 
R0377  #****«*$*  ^S*#*****^#**#*********###*#***^ 

R0378  CONSTANTS  ON  A-CARDS  ARE  FOUND  IN  THE  CONTROLLED  CONSTANTS  SECTION 
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L 

LANDING  ANALOG 

DI SPLAYS 

USER'S  PAGE  NO.  10 

E7  S3 

A0379 

L ANAKP  IP 

DEC 

.0512 

SCALES  PIPAS  TO  UNITS  OF 

2(5) 

M/CS 

A038G 

MAXVFL 

OCT 

00466 

198.645  F/S  IN  UNITS  OF  2(5) 

M/CS 

A0381 

MAXD8ITS 

OCT 

0 1034 

ABOUT  300  F/S 

A0382 

VELCONV 

DEC 

.03594 

SCALES  VFL  AT  ONE  M/CS  TO 

.5571  F/S/BIT 

A0383 

ALTRCONV 

DEC 

. 16020 

SCALES  ALTR  AT  2(2)  M/CS 

TO  . 

5 F/S/BIT 

A0384 

ALTCONV 

OEC 

. 69954 

SCALES  ALT  [TUDE  AT  2(15) 

M TO 

9.38  F/BIT 

0385 

REF  2 LAST 

552  5011 

BITSET 

= 

PRI06 

CROSS-POINTER  DRIVE  BITS 

RQ336  ***#$$***#*#**#*#:*****$**  *#  ##$#$*  £##£$$*#  $$£ ********  ************  ******** 

R0337  SUBROUTINES 

R03B8  *****************************  *********  ********************************** 


0389 

REF 

32 

LAST 

872 

21,2673 

54  061 

1 

LADLIMIT  TS 

I TEMPI 

0390 

REE 

177 

LAST 

903 

21 ,2674 

3 4 746 

0 

CAF 

ZERO 

0391 

21,2675 

0 C 006 

1 

EXTEND 

0392 

REF 

33 

LAST 

904 

21,2676 

10  061 

1 

DV 

I TEMPI 

0393 

REF 

256 

LAST 

90  3 

21,2677 

10  000 

0 

CCS 

A 

0394 

REF 

34 

LAST 

904 

21,2  700 

22  061 

0 

LXCH 

I TEMPI 

0395 

21,2701 

1 2703 

0 

TCF 

+ 2 

0396 

21,2702 

1 2 705 

0 

TCF 

+ 3 

0397 

REF 

161 

LAST 

902 

21, 2703 

3 C001 

0 

CA 

L 

039  8 

REF 

216 

LAST 

902 

21,2704 

0 0002 

0 

TC 

0 

0399 

REF 

35 

LAST 

904 

21, 2705 

4 C061 

1 

CS 

I TEMPI 

040  0 

REF 

2 17 

LAST 

904 

21,2706 

0 0002 

0 

TC 

Q 

R040  I **************  ***************************  ***  4c  *********  ***  *********  ****** 

R0402  THE  END  OF  THE  LANOING  ANALOG  DISPLAYS 

R040  3 ************************************************************************ 
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USER’S  PAGE 

NO. 

1 EO  S3 

R0001  PROGRAM  NAME: 
R0002  MOO  NUMBER: 

R0003  MOD  AUTHOR: 


F 1NDCDUW 

l 68  07  15 

KLUMPP 


R0004 
ROOD  5 
R0006 
R0007 
R0008 
R0009 
R0010 
R001  l 
R0012 
R0013 


OBJECTS  OF  MOD:  1. 

2 . 


TO  SUPPLY  COMMANDED  GIMBAL  ANGLES  FOR  NOUN  22. 
TO  MAINTAIN  CORRECT  AND  CURRENT  THRUST 
DIRECTION  DATA  IN  ALL  MODES.  THIS  IS  DONE  BY 
FETCHING  FOR  THE  THRUST  DIRECTION  FILTER  THE 
CDUO'S  IN  PNGCS-AUTO , THE  CDU'S  IN  ALL  OTHER 
MODES. 

TO  SUBSTITUTE  A STOPRATE  FOR  THE  NORMAL 
AUTOPILOT  COMMANDS  WHENEVER 
1)  NOT  IN  PNGCS-AUTO,  OR 
21  ENGINE  IS  OFF. 


R00131  MOO  NUMBER:  2 


10  DECEMBER  1970 


R 001 3 2 MOO  ALTHOR:  P.  S.  WEISSMAN 


ROO 133  OBJECTIVE  OF  MOO:  TO  ISSUE  STEERING  COMMANDS  TO  THE  DAP  EVEN  WHEN  AGS  IS  INDICATED  (IN  CASE  THE  INDICA- 

R0013A1  T ION  IS  FALSE)  . 


ROO I A FUNCT  IFNAL  DESCRIPTION: 


R0015  FINDCDUW  PROVIDES  THE  INTERFACES  BETWEEN  THE  VARIOUS  POWERED  FL I TE  GUIDANCE  PROGRAMS 

R001 7 AND  TEE  DIGITAL  AUTOPILOT.  THE  INPUTS  TO  FINDCDUW  ARE  THE  THRUST  COMMAND  VECTOR 

R0019  AND  THE  WINDOW  COMMAND  VECTOR,  ANC  THE  OUTPUTS  ARE  THE  GIMBAL  ANGLE 

R0020  INCREMENTS,  THE  COMMANDED  ATTITUDE  ANGLE  RATFS,  AND  THF  COMMANDED 

R0021  ATTITUDE  LAG  ANGLES  (WHICH  ACCOUNT  FOR  THE  ANGLES  BY  WHICH  THE  BODY  WILL 

R0022  LAG  BEHIND  A RAMP  COMMAND  IN  ATTITUDE  ANGLE  DUE  TO  THE  FINITE  ANGULAR 

R0023  ACCELERATIONS  AVAILABLE). 

R002A  FINDCDUW  ALINES  THE  ESTIMATED  THRUST  VECTOR  FROM  THE  THRUST  DIRECTION 

R0025  FILTER  WITH  THE  THRUST  COMMAND  VECTOR,  AND,  WHEN  XOVINHIB  SET, 

R0026  ALINES  THE  +Z  HALF  OF  THE  LM  ZX  PLANF  WITH  THE  WINDOW  COMMAND  VECTOR. 
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GAP: 

L 

P002  7 

R0028 

R0029 

R0030 

R0031 

R0032 

R0033 

R0034 

R0035 

R0036 

R0037 

R0038 

R0039 

R0040 

R0042 

R0043 

R0044 

R0045 

R0046 
R0047 
R0048 
R0050 
R0051 
R0052 
ROUS  3 
R0054 
R0055 
R0056 
R005  7 
R0058 
R0059 
R0060 
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FLY 

.197  PAGE 

USER'S  PAGE 

NO. 

2 EO  S3 

INITIALIZATION:  A SINGLE  INTERPRETIVE  CALL  TO  INITCDUW  IS  REQUIRED 
BEFORE  EACH  GUIDEO  MANEUVER  USING  FINOCDUW. 

CALL:  INTERPRETIVE  CALL  TO  FINOCDUW  WITH  THE  THRUST  COMMAND 

VECTOR  IN  MPAC.  INTERPRETIVE  CALL  TO  FINOCDUW  -?  WITH 
THE  THRUST  COMMAND  VECTOR  IN  UNFC/2  AND  NOT  IN  MPAC. 

RETURNS:  NORMAL  INTERPRETIVE  IN  ALL  CASES 

1.  NORMALLY  ALL  AUTOPILOT  CMOS  ARE  ISSUED. 

2.  IF  NOT  PNGCS  AUTO,  DO  STOPRATE  AND  RETURN 
WITHOUT  ISSUING  AUTOPILOT  CMDS. 

3.  IF  ENGINE  OFF,  DO  STOPRATE  ANO  RETURN  WITHOUT 
ISSUING  AUTOPILOT  CMOS. 


ALARMS:  00401  IF  INPUTS  DETERMINE  AN  ATTITUDE  IN  GIMBAL  LOCK. 

FINOCDUW  DRIVES  CDUXO  AND  CDUYD  TO  THE  RQD  VALUES, 
BUT  DRIVES  CDUZO  ONLY  TO  THE  GIMBAL  LOCK  CONE. 
00402  IF  UNFC/2  CR  UNWC/2  PRODUCE  OVERFLOW  WHEN 

UNITIZED  USING  NORMUNIT.  FINDCDUW  ISSUES 
STOPRATE  AS  ONLY  INPUT  TO  AUTOPILOT. 


INPUTS: 


UNFC/2  THRUST  COMMAND  VECTOR,  NEED  NOT  BE  SEMI-UNIT. 

UNWC/2  WINDOW  COMMAND  VECTOR,  NEED  NOT  BE  SEMI-UNIT. 

OGABIAS  POSSIBLE  BIAS  FOR  OUTER  GIMBAL  ANGLE  (ZEROED  IN  INITCDUW), 
XOVINHIR  FLAG  DENOTING  X AXIS  OVERRIDE  INHIBITED. 

C SMDCCKD  FLAG  DENOTING  CSM  DOCKED. 


UNITS  OF  PI . 


OUTPUTS:  DELCDUX,Y,Z 

OMEGAPD , + 1 , +2 

DFLPER0R,+l,+2 

C PH  I * + 1 , +2  FOR  NCUN22 


DEBRIS:  FINDCDUW  DESTROYS  SINCDUX,Y,Z  AND  COSCDUX,Y,Z  BY 

WRITING  INTO  THESE  LOCATIONS  THE  SINES  AND  COSINES 
OF  THE  CDUD'S  IN  PNGCS-AUTU,  OF  THE  CDU'S  OTHERWISE. 
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P0061  INITIALIZATION  FOR  FINOCDUW 


0062 

30, 3063 

BANK 

30 

006  3 

REF 

1 

30,2000 

SETLOC 

FCDUW 

006  A 

30,3063 

BANK 

0065 

REF 

2 

LAST 

1 AO 

E6 , 1 6A5 

EBANK= 

ECDUW 

0066 

REF 

1 

COUNT  * 

$ $/FCDUW 

006  7 

30,3063 

77331 

0 

INITCDUW  SSP 

VLOAD 

0068 

REF 

2 

LAST 

810 

30 , 306 A 

03277 

0 

OGABI AS 

0069 

30, 3065 

00000 

1 

0 

0070 

REF 

10 

LAST 

819 

30,3066 

06503 

1 

UN  I T X 

007  1 

REF 

5 

LAST 

1 A 1 

30,3067 

03266 

0 

STORE 

UNFV/2 

0072 

REF 

9 

LAST 

853 

30,3070 

03260 

0 

STORE 

UNWC/2 

007  3 

30,3071 

77616 

0 

RVQ 

R007A  FINOCDUW  PRELIMINARIES 


0075 

30,3072 

77775 

1 

VLOAD 

0076 

REE 

21 

LAST 

853 

30,3073 

03252 

1 

UNFC/2 

0077 

30 , 30  7A 

A0200 

1 

FINDCOUW  BOV 

SETPD 

0078 

REF 

5 

LAST 

851 

30,3075 

6107A 

0 

F INDCDUW 

0079 

30,3076 

00C23 

0 

22 

0080 

30,3077 

77A20 

1 

ST  Q 

EXIT 

008  l 

REE 

2 

LAST 

1A0 

30,3100 

032A6 

1 

QCDUWUSR 

R0082 

MORE 

EAUSKEEP 

ING 

008  3 

REF 

1 

30,3101 

3 37A5 

1 

CA 

ECDUWL 

008  A 

RFF 

53 

LAST 

901 

30,3102 

56  003 

l 

XCH 

EBANK 

0085 

KEF 

2 

LAST 

1 AO 

30, 3103 

55 • 6A5 

0 

TS 

E CUUWUSR 

0086 

REE 

31 

LAST 

867 

30.310A 

3 0111 

0 

CA 

DAPBOOLS 

0087 

REF 

6 

LAST 

7A8 

30,3105 

7 A 730 

0 

MASK 

CSMDOCKD 

0088 

REF 

257 

LAST 

90  A 

30,3106 

10  000 

0 

CCS 

A 

0089 

REF 

88 

LAST 

899 

30,3107 

3 A 7 AA 

1 

CA 

ONE 

0090 

REF 

2 

LAST 

1 AO 

30,3110 

55 ' 6A  7 

1 

TS 

NDXCDUW 

0091 

REF 

1 

30,3111 

3 A 73A 

0 

CA 

XOVINHI B 

0093 

REF 

32 

LAST 

90  7 

30,3112 

7 cm 

I 

MASK 

DAPBOOLS 

009  A 

REF 

2 

LAST 

l AO 

30,3113 

55 ' 650 

1 

TS 

FLAGOODW 
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PAGF  907 


USER' S PAGE  NO. 


EO  S3 


FINOCDUW  -2:  ENTRY  WHEN  UNFC/2  PRE-STORO 
INPUT  VECTORS  NEED  NOT  BE  SFMI-UNIT 
FINDCOUW:  ENTRY  WHEN  UNFC/2  IN  MPAC 
INTERPRETER  NOW  INITIALIZED 
LOCS  0 THRU  21  FOR  DIRECTION  COSINE  MAT 

SAVE  RETURN  ADDRESS 


SET  EBANK 

SAVE  USER'S  EBANK 


CSMDOCKD  MUST  NOT  BE  BIT15 
INDEX  IF  CSM  DOCKED 

XOVINHIB  MUST  NOT  BE  BIT15 


FI AGOODW 


ANY  PNZ  NUMBER  IF  XOV  INHIBTO 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L FINOCDUW  - GUIOAP  INTERFACE 


P0095  FETCH  EASIC  DATA 


0096 

30,3114 

0 0004 

0 

INHINT 

009  7 

REF 

14 

LAST 

874 

30,3115 

3 0032 

0 

CA 

CDUX 

0098 

REF 

2 

LAST 

876 

30,3116 

54  771 

l 

TS 

CDUSPOTX 

0099 

REF 

8 

LAST 

874 

30,3117 

3 0033 

1 

CA 

CDUY 

0100 

REF 

2 

LAST 

876 

30,3120 

54  765 

1 

TS 

CDUSPOTY 

0101 

REF 

11 

LAST 

874 

30,3121 

3 C 034 

0 

CA 

CDUZ 

010  2 

REF 

2 

LAST 

876 

30,3122 

54  767 

0 

TS 

CDUSPOT  Z 

0103 

REF 

30 

LAST 

899 

30,3123 

3 4733 

1 

CA 

8 I T 10 

0104 

30,3124 

0 0006 

1 

EXTEND 

0105 

REF 

8 

LAST 

832 

30,3125 

02  030 

0 

RAND 

CHAN30 

0106 

REF 

258 

LAST 

907 

30,3126 

10  000 

0 

CCS 

A 

0107 

REF 

1 

30,3127 

1 3143 

0 

TCF 

PAUTNO 

0108 

REF 

56 

LAST 

781 

30,3130 

3 4727 

1 

CA 

BIT14 

0109 

30,3131 

0 0006 

1 

EXTFND 

0110 

REF 

7 

LAST 

823 

30,3132 

02  C 3 1 

1 

RAND 

CHAN31 

0111 

REF 

259 

LAST 

908 

30,3133 

10  000 

0 

CCS 

A 

0112 

REF 

2 

LAST 

908 

30,3134 

1 3143 

0 

TCF 

PAUTNO 

0114 

REF 

16 

LAST 

536 

30,3135 

3 1634 

1 

CA 

CDUXD 

0115 

REF 

3 

LAST 

906 

30,3136 

54  771 

l 

TS 

CDUSPOTX 

0116 

REF 

7 

LAST 

536 

30,3137 

3 1635 

0 

CA 

CDUYD 

0117 

REF 

3 

LAST 

908 

30,3140 

54  765 

1 

TS 

CDUSPOTY 

0118 

REF 

6 

LAST 

535 

30,3141 

3 1636 

0 

CA 

CDUZD 

0119 

REF 

3 

LAST 

908 

30,3142 

54  767 

0 

TS 

C DUSPOTZ 

17:11  MAR.  19,1971  FLY 
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USER'S  PAGE  NO.  A 


E6  S3 


RFLINT  AT  PAUTNO  ( TC  INTPRET) 

FETCH  CDUX , COUY , C DU Z IN  ALL  CASES,  BUT 
REPLACE  BELOW  IF  PNGCS  AUTO 


PNGCS  CONTROL  BIT 

NOT  PNGCS  (BITS  INVERTED) 

AUTO  MODE  BIT 

NOT  AUTO  (BITS  INVERTED) 

PNGCS  AUTO:  FETCH  CDU X D , C DUYD, COU ZD 


GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L FINOCDUW  - GUIOAP  INTERFACE 

P0120  FETCH  INPUTS 


012  1 

KEF 

159 

LAST 

891 

30,3143 

0 6060 

1 PAUTNO 

TC 

INTPKET 

0122 

30,3144 

77634 

0 

RTB 

0123 

REF 

9 

LAST 

809 

30,3  145 

21724 

0 

NORMUNI T 

0124 

REF 

1 

30,3146 

24001 

0 

STOVL 

UNX/2 

0125 

REF 

10 

LAST 

907 

30,3147 

03260 

0 

UNWC/2 

0126 

30,3150 

4 7034 

0 

RTB 

RTB 

0127 

KEF 

10 

LAST 

909 

30,3151 

21724 

0 

NORMUNIT 

0128 

REF 

2 

LAST 

865 

30,3152 

47607 

0 

OUICTRIG 

0129 

REF 

1 

30,3153 

24015 

0 

STOVL 

UNZ/2 

0130 

REF 

1 1 

LAST 

884 

30,3154 

0C325 

0 

DELV 

013  l 

30,3155 

53404 

1 

BOVS 

UNIT 

0132 

REF 

1 

30,3156 

61734 

0 

NOATTCNT 

0133 

30,3157 

45000 

0 

BOV 

CALL 

0134 

REF 

1 

30,3160 

61174 

1 

AFTRFLTR 

0135 

REF 

5 

LAST 

564 

30,3161 

47663 

1 

*SMNB* 

RO  136 

THRUST  1 

DIRECTION  FILTER 

0137 

30,3162 

777  76 

1 

EXIT 

0138 

REF 

1 

30,3163 

3 1667 

1 

CA 

UNFVY/2 

0139 

REF 

349 

LAST 

891 

30,3164 

22  157 

l 

LXCH 

MPAC 

0140 

REF 

l 

30,3  165 

0 3467 

1 

TC 

FLTRSUB 

014  I 

REF 

2 

LAST 

909 

30,3166 

55 1 667 

0 

TS 

UNFVY/2 

0142 

REF 

1 

30,3167 

3 16  71 

0 

CA 

UNFVZ/2 

0143 

REF 

350 

LAST 

909 

30,3170 

22  161 

1 

LXCH 

MPAC 

0144 

REF 

2 

LAST 

909 

30,3171 

0 3467 

1 

TC 

FLTRSUB 

014  5 

REF 

2 

LAST 

909 

30,3172 

55  1 671 

1 

TS 

UNFVZ/2 

0146 

REF 

160 

LAST 

909 

30, 3 173 

0 6060 

1 

TC 

I NTPRET 

17:11  MAR.  19,1971  FLY 
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USER'S  PAGE  NO.  5 E6  S3 

ENTERING  THRUST  CMD  STILL  IN  MPAC 
SEMI-UNIT  THRUST  CMD  AS  INITIAL  UNX/2 


ALWAYS  RQD  TO  OBTAIN  TRIGS  OF  CDUO'S 
SEMI-UNIT  WINDOW  CMO  AS  INITIAL  UNZ/2 


AT  LEAST  ONE  ENTERING  CMD  VCT  ZERO 

IF  UNIT  DELV  OVERFLOWS,  SKIP  FILTER 
YIELDS  UNIT (DELV)  IN  VEH  COORDS  FOR  FLTR 


FOR  RESTARTS,  UNFV/2  ALWAYS  TNTACT,  MPAC 
RENEWED  AFTER  RETURN  FROM  CALLFP, 
TWO  FILTER  UPOATES  MAY  BE  DONF. 
UNFV/2  NEED  NOT  BE  EXACTLY  SEMI-UNIT. 


COMPLETES  FILTER 


GAP : ASSEMBLE  KEVISION  210  OF  AGC  PROGRAM  LUMINAPY  BY  NASA  2021L12-161 


L F INDCDUW  - GUIOAP  INTERFACE 


P0147 

FIND 

A 

SUITABLE  WINDOW  POINTING  VECTOR 

0148 

30, 3174 

46135 

1 

AFTP  FLTR 

SLOAD 

BHIZ 

0149 

REF 

3 

LAST 

907 

30,3175 

03251 

1 

FLAGOODW 

0150 

REF 

1 

30,3176 

61202 

0 

FETCHZNB 

015  1 

30,3  177 

451  75 

0 

VLOAD 

CALL 

0152 

REF 

2 

LAST 

909 

30,3200 

00C15 

0 

UNZ/2 

0153 

REF 

1 

30,3201 

61507 

l 

UNWCTEST 

0154 

30,3202 

77775 

1 

F ETCHZNB 

VLOAD 

0155 

REF 

1 

30,3203 

02  153 

1 

ZNBPIP 

0156 

REF 

3 

LAST 

910 

30,3204 

34015 

1 

STC ALL 

UNZ/2 

0157 

REF 

2 

LAST 

910 

30,3205 

61507 

l 

UNWCTEST 

0158 

30,3206 

57575 

1 

VLOAD 

VCOMP 

0159 

REF 

12 

LAST 

892 

30,3207 

02137 

0 

XNBPI P 

0160 

REF 

4 

LAST 

910 

30,3210 

0CC15 

0 

STORE 

UNZ/2 

R0161 

COMPUTE 

THE  REQUIRED 

DIRECTION 

COSINE  MATRIX 

0162 

30,3211 

47375 

0 

DCMCL 

VLOAD 

VXV 

0163 

REF 

5 

LAST 

910 

30,3212 

0CC15 

0 

UNZ/2 

0164 

REF- 

2 

LAST 

909 

30,3213 

00001 

0 

UNX/2 

0165 

30 , 3 2 L 4 

4 1456 

0 

UNIT 

PUSH 

0166 

30,3215 

76435 

1 

VXV 

VSL1 

0167 

REF 

3 

LAST 

910 

30,3216 

00001 

0 

UNX/2 

0168 

REF 

6 

LAST 

910 

30,3217 

00015 

0 

STORE 

UNZ/2 

0169 

30,3220 

63361 

0 

VXSC 

PDVL 

0170 

REF 

3 

LAST 

909 

30,3221 

03272 

0 

UNFVZ/2 

0171 

30,3222 

51361 

1 

VXSC 

B VSU 

0172 

REF 

3 

LAST 

909 

30,3223 

03270 

1 

UNFVY/2 

0173 

30,3224 

53372 

1 

VSL  I 

VAD 

0174 

REF 

4 

LAST 

9 LO 

30,3225 

00C01 

0 

UNX/2 

0175 

30,3226 

77656 

l 

UN  I T 

0176 

REF 

5 

LAST 

910 

30,3227 

00001 

0 

STOKE 

UNX/2 

0177 

30,3230 

76435 

1 

VXV 

VSL1 

0178 

REF 

7 

LAST 

910 

30,3231 

0CC15 

0 

UNZ/2 

0179 

RFF 

1 

30,3232 

00007 

0 

STORE 

UNY/2 

0180 

30,3233 

47276 

1 

VCOMP 

VXV 

0181 

REF 

6 

LAST 

910 

30,3234 

00001 

0 

UNX/2 

0182 

30,3235 

77772 

0 

VSL  1 

0183 

REF 

8 

LAST 

910 

30,3236 

0CC15 

0 

STORE 

UNZ/2 

R 0 1 84 

COMPUTE 

THE  REQUIRED 

GIMBAL  ANGLES 

0185 

018b  REF 
0187 


30,3237 

30.3240 

30. 3241 


77624  1 
61517  0 
77776  1 


CALL 

EXIT 


1 


NB2CDUSP 
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IF  XOV  NOT  INHIBITED,  GO  FETCH  ZN8 


Z AND  -X  CAN'T  BOTH  PARALLEL  UNFC/2 


UNY/2  FIRST  ITERATION 


-UNZ/2  FIRST  ITERATION 

EXCHANGE  -UNFVZ/2  UNZ/2  FOR  UNY/2 

MUST  BE  SMALL 

YIELDS  -UNFVY/2  U N Y/2 -UNF VZ / 2 UNZ/2 
MUST  BE  SMALL 


TOTALLY  ELIMINATES  THRUST  POINTING  ERROR 
UNX/2 

-UNZ/2  WAS  STORED  HERE  RF  MEMBER 
UNY/2 


UNZ/2 


YIELDS  THE  ROD  GIMBAL  ANGLFS,  2'S,  PI 


GAP:  ASSEMBLE  REVISION  210  C’F  AGC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 

L FINDCDUW  - GUI UAP  INTERFACE 

PO 188  BIAS  CUTER  GIM8AL  ANGLE 


0189 

REF 

3 

LAST 

907 

30, 32A2 

3 1676 

l 

CA 

OGABI AS 

0190 

REF 

351 

LAST 

909 

30.32A3 

26  15A 

0 

ADS 

MPAC 

R 0 19  1 

LIMIT  THE  MIDDLE  GIMBAL  ANGLE 

S COMPUTE 

THE  UNLIMITED  GIMBAL  ANGLE  1 

019  2 

REF 

352 

LAST 

911 

30,32  AA 

3 0156 

0 

CA 

MPAC 

♦ 2 

0193 

REF 

16  2 

LAST 

90  A 

30 , 3 2 A5 

5A  C01 

1 

TS 

L 

019  A 

REF 

1 

30, 32A6 

3 3757 

1 

CA 

CDUZOLIM 

0195 

REF 

A 

LAST 

887 

30, 32A7 

0 3713 

1 

TC 

L I MIT  SUB 

0196 

REF 

353 

LAST 

91  1 

30,3250 

56  156 

0 

XCH 

MPAC 

+ 2 

0197 

30,3251 

0 0006 

1 

EXTEND 

0198 

REF 

35A 

LAST 

91  1 

30,3252 

20  156 

1 

MSU 

MPAC 

+ 2 

0199 

30,3253 

0 0006 

1 

EXTEND 

0200 

30.325A 

1 3256 

1 

BZF 

+ 2 

020  1 

REF 

1 

30,3255 

I 37A2 

1 

TCF 

ALARMMGA 

0202 

30,3256 

0 OOOA 

0 

MGARET 

INHINT 

0203 

30,3257 

22  007 

0 

ZL 

020  A 

REF 

59 

LAST 

860 

30,3260 

3 A 7 A3 

0 

CA 

TWO 

0205 

REF 

6 

LAST 

887 

30,3261 

5 A 1A2 

1 

DELGM8LP 

TS 

TEM2 

0206 

REF 

163 

LAST 

911 

30,3262 

3 0CO1 

0 

CA 

L 

020  7 

30,3263 

0 0006 

1 

EXTEND 

0208 

30.326A 

7 0000 

0 

SQUARE 

0209 

REF 

5 

LAST 

A29 

30,3265 

6 A 3 A 1 

0 

AD 

H 1 5 

0210 

30,3266 

0 0006 

1 

EXTEND 

021  1 

30,3267 

6 3272 

0 

BZMF 

+ 3 

0212 

REF 

178 

LAST 

90  A 

30,3270 

3 A 7A6 

0 

CA 

ZERO 

021  ? 

REF 

A 

LAST 

910 

30,3271 

55  1 650 

1 

TS 

FLAGOODW 

021 A 

REF 

7 

LAST 

911 

30,3272 

50  1A2 

0 

INOEX 

TEM2 

0215 

REF 

355 

LAST 

911 

30,3273 

3 015A 

I 

CA 

MPAC 

0216 

REF 

8 

LAST 

911 

30.327A 

5C  1A2 

0 

INDEX 

TEM2 

0217 

REF 

10 

LAST 

535 

30,3275 

5 A 321 

0 

TS 

C PH  I 

0218 

30,3276 

0 0006 

1 

EXTEND 

0219 

REF 

9 

LAST 

911 

30,3277 

5 0 1A2 

0 

INDEX 

TEM2 

0220 

REF 

17 

LAST 

908 

30,3300 

2 l • 634 

0 

MSU 

CDUXD 

022  1 

30,3301 

A OCOO 

0 

COM 

0222 

REF 

10 

LAST 

91  1 

30,3302 

50  1A2 

0 

INDEX 

TEM2 

0223 

REF 

2 

LAST 

1 A 1 

30,3303 

55' 673 

0 

TS 

-DELGMB 

022  A 

REF 

1 6 A 

LAST 

911 

30.330A 

5A  001 

1 

TS 

L 

0225 

REF 

11 

LAST 

911 

30,3305 

10  1 A 2 

1 

CCS 

TEM2 

022  6 

REF 

1 

, 

1 3261 

0 

TCF 

DELGMBLP 

C 
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USER' S PAGE  NO.  7 E6  S3 


LIMIT  THF  MGA 

CAN'T  LXCH:  N FED  UNLIMITED  MGA  FOR  ALARM 

YIELDS  LIMITED  MGA.  1 BIT  FRROR  POSSIBLE 
BECAUSE  USING  2'S  COMP.  WHO  CARFS? 

THIS  BETTER  YIELD  ZERO 


RELINT  AT  TC  INTPRET  AFTER  TCQCDUW 


TO  PREVFNT  FALSE  STARTS  ABOUT  X,  ZERO 
FLAGOODW  IF  DELGMRZ  OR  Y TOO  BIG. 

WITHIN  1 BIT  OF  -IAS  DEG  SQUARED) 


OUTPUTS  TO  NOUN22 


NO  MATTER  THAT  THESE  SLIGHTLY  DIFFERENT 
FROM  WHEN  WE  INITIALLY  FETCHED  THEM 


-UNLIMITED  GIMBAL  ANGLE  CHGS,  I'S,  PI 
FOR  PRECEDING  TEST  ON  NEXT  LOOP  PASS 


GAP:  ASSEM8LE  RFVISION  210  CF  ACC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L 

FINDCCUh 

- GU10AP  INTERFACE 

P0227 

BRANCHES 

TO  NO ATT CNT 

022  8 

KEF 

57 

LAST 

908 

30,3307 

3 4727 

1 

CA 

BIT14 

022  8 1 

30,3310 

0 0006 

1 

EXTENO 

02282 

REF 

8 

LAST 

908 

30,3311 

02  C31 

1 

RANO 

CHAN31 

02282 

REF 

260 

LAST 

908 

30,3312 

10  000 

0 

CCS 

A 

0229 

REF 

2 

LAST 

909 

30,3313 

1 3736 

1 

TCF 

NOATTCNT 

0230 

REF 

28 

LAST 

833 

30,3314 

3 0101 

1 

CA 

FLAGWRD5 

023  1 

REF 

6 

LAST 

833 

30,3315 

7 4736 

0 

MASK 

ENGONBIT 

0232 

30,3316 

0 C C 06 

l 

EXTEND 

0233 

REF 

3 

LAST 

912 

30,3317 

1 3736 

l 

BZF 

NOATTCNT 

PAGE  912 


17:11  MAR.  19,1971  FLY 
USER' S PAGE  NO. 
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AUTO  MODE  BIT 


NOT  AUTO 


ENGINF  NOT  ON 


GAP:  ASSEMBLE  REVISION  210  CP  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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L 

P0234 

R0235 
R0237 
R0239 
R024  1 

R0243 
R0244 
R024  5 
R0246 
R0247 

0248 

0249 
025C 

025  1 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

026  1 
0262 

0263 

0264 

0265 

0266 
0267 
0268. 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 
0281 

A0282 


F INOCDUW  - GUI  DAP  INTERFACE 


USER'S  PAGE  MO. 


E6  S3 


LIMIT  THE  ATTITUOE  ANGLE  CHANGES 

THIS  SECTION  LIMITS  THE  ATTITUOE  ANGLE  CHANG  F S ABOUT  A SET  OF  ORTHOGONAL  VEHICLE  AXES  X , Y PR  I ME , ZP R I ME . 

THESE  AXES  COINCIDE  WITH  THE  COMMANDED  VEHICLE  AXES  IF  AND  ONLY  IF  CDUXD  IS  ZERO.  THE  PR1MF  SYSTEM  IS 

THE  CCMMANDED  VEHICLE  SYSTEM  ROTATED  ABOUT  THE  X AXIS  TO  BRING  THE  Z AXIS  INTO  ALINEMENT  WITH  THE  MIDDLE  GIMBAL 

AXIS.  ATTITUDE  ANGLE  CHANGES  IN  THE  PRIME  SYSTEM  ARE  RELATED  TO  SMALL  GIMBAL  ANGLE  CHANGES  BY: 


* - 

DELATTX 

* 

* 1 SIN(CDUZD) 

0 

* 

* 

-DELGMBX  * 

* 

* 

* 

* 

* 

$ 

* — 

DELATTYPRIME  * = 

* 0 COS ( CDUZD 1 

0 

* 

* 

- DELGMBY  * 

* 

* 

* 

* 

* 

* 

* - 

DELATTZPRI 

ME  * 

* 

O 

o 

1 

-DELGMBZ  * 

REF 

3 

LAST 

911 

30,3320 

2 3 ' 6 75 

l 

LXCH 

-DELGMB 

+ 2 

SAME  AS  -DELATTZPRI ME  UNLIMITED 

REF 

3 

LAST 

907 

30,3321 

51' 647 

0 

INOEX 

NDXCDUW 

REF 

1 

30,3322 

3 3753 

0 

CA 

OAZMAX 

REF 

5 

LAST 

91  1 

30,3323 

0 3713 

l 

TC 

L IMITSUB 

REF 

4 

LAST 

913 

30,3324 

55 '675 

0 

TS 

-DELGMB 

+ 2 

-DELGMBZ 

REF 

5 

LAST 

913 

30,3325 

3 1674 

0 

CA 

-DELGMB 

+ 1 

30,3326 

0 0006 

1 

EXTEND 

REF 

3 

LAST 

493 

30,3327 

7 C 745 

0 

MP 

COSCDIJZ 

YIELDS  -DELATTYPRIME/2  UNLIMITED 

REF 

165 

LAST 

911 

30,3330 

54  001 

1 

TS 

L 

REF 

4 

LAST 

913 

30,3331 

51 ' 647 

0 

INDEX 

NDXCDUW 

REF 

1 

30,3332 

3 3755 

0 

CA 

DAY/2  MA  X 

REF 

6 

LAST 

913 

30,3333 

0 3713 

1 

TC 

L IMITSUB 

30,3334 

0 0006 

1 

EXTEND 

REF 

4 

LAST 

913 

30,3335 

10  745 

0 

OV 

CDSCDUZ 

REF 

6 

LAST 

913 

30,3336 

57 ' 674 

0 

XCH 

-DELGMB 

+ I 

-DELGMBY,  FETCHING  UNLIMITED  VALUE 

30,3337 

0 0006 

1 

EXTEND 

REF 

3 

LAST 

49  3 

30,3340 

7 C737 

0 

MP 

S INCDUZ 

30,3341 

20  001 

1 

DDOUBL 

30,3342 

4 COOO 

0 

COM 

30,3343 

0 0006 

1 

EXTEND 

YIELDS  +DELATTX  UNLIMITD,  MAG  < 180  DEG, 

REF 

7 

LAST 

913 

30,3344 

21 '673 

0 

MSU 

-DELGMB 

BASED  ON  UNLIMITED  DELGMBY. 

REF 

166 

LAST 

913 

30,3345 

54  001 

l 

TS 

L 

ONE  BIT  ERROR  IF  OPERANDS  IN  MSU 

REF 

5 

LAST 

913 

30,3346 

51'647 

0 

INDEX 

NDXCDUW 

OF  MIXED  SIGNS.  WHO  CARES? 

REE 

1 

30, 3347 

3 3753 

0 

CA 

DAXMAX 

REF 

7 

LAST 

913 

30,3350 

0 3713 

1 

TC 

L IMITSUB 

REF 

8 

LAST. 

913 

30, 335  1 

55*673 

0 

TS 

-DELGMB 

SAVE  LIMITED  +OELATTX 

REF 

5 

LAST 

91  1 

30,3352 

1 1 ' 650 

1 

CCS 

F LAGDODW 

REF 

9 

LAST 

913 

30,3353 

4 1673 

0 

CS 

-DELGMB 

FETCH  IT  BACK  CHGING  SIGN  IF  WINDOW  GOOD 

REF 

10 

LAST 

913 

30,3354 

55*673 

0 

TS 

-DELGMB 

OTHERWISE  USE  ZERO  FOR  -DELATTX 

REF 

11 

LAST 

913 

30,3355 

4 1674 

1 

CS 

-DELGMB 

+ 1 

30,3356 

0 0006 

1 

EXTEND 

REF 

4 

LAST 

913 

30,3357 

7 C 737 

0 

MP 

SINCDUZ 

30,3360 

20  001 

1 

DDOUBL 

YIELDS  -CNTRTB  TO  -DELATTX  FROM  -DELGMBY 

REF 

12 

LAST 

913 

30, 5361 

27*673 

0 

ADS 

-DELGMB 

-DELGMBX.  NO  OVERFLOW  SINCE  LIMITED  TO 

20DEGI l+SIN(70DEG)/C0S(70DEG) ) < 180DEG 


GAP: 

L ’ 

P0283 

R0284 

R0285 

R0286 

R0287 

R0288 

R0289 

R0291 

R0293 

029  5 

0296 

0297 

0298 

0299 

0300 

030  1 

0302 

0303 

030  A 

0305 

0306 

030  / 

030  8 

0309 

0310 

031  l 

0312 

0313 

031 A 

0315 

0316 

031  r 

0318 

0319 

0320 

032  1 

0322 

0323 

0324 

0325 

0326 

032  7 

0328 
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* 

CMEC-APO 

* 

-2 

-4 

SINCDUZ 

+ 0 

* 

* 

-DELGMBX 

* 

♦ 

* 

♦ 

* 

♦ 

* 

* 

CMEGAQO 

* = 

* 

+0 

-8 

COSCDUZ 

COSCDUX 

-4 

SINCDUX 

* 

-DELGMBY 

£ 

* 

* 

* 

* 

* 

* 

* 

CMEGARD 

* 

+ 0 

+ 8 

COSCDUZ 

SINCDUX 

-4 

COSCDUX 

* 

* 

-DELGMBZ 

* 

ATTirUOE  ANGLF  RATES  IN  UNITS  OF  PI/4  RAD/SEC  = K TRIG  FCNS  IN  UNITS  OF  2 X GIMBAL  ANGLE  RATES  IN  UNITS  OF 
PI/2  RAD/SEC.  THE  CONSTANTS  ARE  BASED  ON  DEL  GMB  BEING  THE  GIMBAL  ANGLE  CHANGES  IN  UNITS  OF  PI  RADIANS, 

AND  2 SECONDS  BEING  THE  COMPUTATION  PERIOD  (THE  PERIOD  BETWEEN  SUCCESSIVE  PASSES  THRU  FINDCDUW). 


REF 

13 

LAST 

913 

30,3362 

4 1673 

0 

cs 

-DELGMB 

REF 

7 

LAST 

381 

30,3363 

55 ' 642 

1 

TS 

OMEGAPO 

REF 

14 

LAST 

914 

30,3364 

4 16  74 

1 

CS 

-DELGMB 

30,3365 

0 0006 

1 

EXTEND 

REF 

5 

LAST 

913 

30,3366 

7 C 7 37 

0 

MP 

S INCDUZ 

30,3367 

20  001 

1 

DDOUBL 

REF 

8 

LAST 

914 

30,3370 

27' 642 

1 

ADS 

OMEGAPO 

REF 

9 

LAST 

914 

30, 3371 

27' 642 

1 

ADS 

UMEGAPD 

REF 

15 

LAST 

914 

30,3372 

4 1674 

1 

CS 

-DELGMB 

30,3373 

C 0006 

1 

EXTEND 

REF 

4 

LAST 

493 

30,3374 

7 C 74 7 

1 

MP 

COSCDUX 

30,3375 

20  001 

1 

DDUUBL 

30,3376 

0 CC06 

1 

EXTEND 

REF 

5 

LAST 

913 

30,3377 

7 0745 

0 

MP 

COSCDUZ 

REF 

4 

LAST 

38  1 

30,3400 

55 ' 643 

0 

TS 

OMEGAQD 

REF 

Ifc 

LAST 

914 

30,3401 

4 1675 

0 

CS 

-DELGMB 

30,3402 

0 0006 

1 

EXTEND 

REF 

3 

LAST 

493 

30, 3403 

7 C 74 1 

1 

MP 

S I NC  DUX 

REF 

5 

LAST 

914 

30,3404 

2 7 ' 643 

0 

ADS 

OMEGAQD 

REF 

6 

LAST 

914 

30,3405 

27 ' 643 

0 

ADS 

DMEGAOD 

REF 

7 

LAST 

914 

30,3406 

27 ' 643 

0 

ADS 

OMEGAQD 

REF 

17 

LAST 

914 

30,3407 

3 1674 

0 

CA 

-DELGMB 

30,3410 

0 0006 

1 

EXTEND 

REF 

4 

LAST 

914 

30,3411 

7 C 74 1 

1 

MP 

S INCDUX 

30,3412 

20  001 

1 

DDOUBL 

30,3413 

0 C006 

1 

EXTEND 

REF 

6 

LAST 

914 

30,3414 

7 0745 

0 

MP 

COSCDUZ 

REF 

3 

LAST 

38  1 

30,3415 

55 1 644 

1 

TS 

OMEGARD 

REF 

18 

LAST 

914 

30,3416 

4 1675 

0 

CS 

-DELGMB 

30,3417 

0 0006 

1 

EXTEND 

REF 

5 

LAST 

914 

30,3420 

7 0 74  7 

1 

MP 

COSCDUX 

REF 

4 

LAST 

914 

30,3421 

27' 644 

1 

ADS 

OMEGARD 

REF 

5 

LAST 

914 

30,3422 

2 7 ' 644 

1 

ADS 

OMEGARD 

REF 

6 

LAST 

914 

30, 3423 

27' 644 

1 

ADS 

OMEGARD 

914 
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P0329 

FINAL  TRANSFER 

0330 

REF 

60 

LAST 

911 

30,3424 

0331 

REF 

12 

LAST 

9 L 1 

30,3425 

0332 

REF 

13 

LAST 

915 

30,3426 

0333 

REF 

19 

LAST 

914 

30,3427 

0334 

30,3430 

0335 

REF 

1 

30,3431 

0336 

REF 

l 

30,3432 

0337 

REF 

14 

LAST 

915 

30, 3433 

0338 

REF 

4 

LAST 

140 

30,3434 

0339 

REF 

15 

LAST 

915 

30,3435 

0340 

REF 

10 

LAST 

914 

30,3436 

034  1 

REF 

89 

LAST 

90  7 

30,3437 

0342 

30,3440 

0343 

REF 

90 

LAST 

915 

30,3441 

0344 

30,3442 

0345 

REF 

16 

LAST 

91  5 

30,3443 

0346 

REF 

1 1 

LAST 

915 

30,3444 

034  7 

30,3445 

0348 

REF 

22 

LAST 

746 

30,3446 

0349 

30,3447 

0350 

REF 

17 

LAST 

915 

30,3450 

0351 

REF 

5 

LAST 

379 

30,3451 

0352 

REF 

167 

LAST 

913 

30,3452 

0 35  3 

REF 

1 

30,3453 

0354 

REF 

8 

LAST 

913 

30,3454 

0355 

REF 

18 

LAST 

915 

30,3455 

0356 

RFF 

3 

LAST 

381 

30,3456 

0357 

RFF 

IS 

LAST 

915 

30,3457 

0358 

REF 

1 

30,3460 

R0359 

HALSKFEPING  AND  RETURN 

0360 

REF 

3 

LAST 

907 

30,3461 

036  1 

REF 

54 

LAST 

907 

30,3462 

0362 

REF 

161 

LAST 

909 

30,3463 

0363 

30,3464 

0364 

30,3465 

0365 

REF 

3 

LAST 

907 

30,3466 

3 4 743 

0 

CA 

TWO 

54  142 

1 

CDUWXFR  TS 

TEM2 

50  142 

0 

INDEX 

TEM2 

3 1673 

1 

CA 

-OELGMB 

0 0006 

1 

EXTEND 

7 3760 

1 

MP 

DT/DELT 

0 3727 

0 

TC 

0NEST02S 

5C  142 

0 

INDEX 

TEM2 

55 ' 637 

0 

TS 

DELCDUX 

50  142 

0 

INDEX 

TEM2 

11 ’642 

1 

CCS 

OMEGAPD 

6 4 744 

1 

AD 

ONE 

1 3442 

1 

TCF 

+ 2 

6 4744 

1 

AD 

ONE 

0 0006 

1 

EXTEND 

5 0142 

0 

INDEX 

TEM2 

7 1642 

1 

MP 

OMEGAPD 

0 CC06 

1 

EXTEND 

7 4732 

1 

MP 

BIT11 

0 0006 

l 

EXTEND 

5 0142 

0 

INDEX 

TEM2 

11' 530 

1 

DV 

1 JACC 

54  001 

1 

TS 

L 

3 3755 

0 

CA 

DELERL1M 

0 3713 

1 

TC 

L IMITSUB 

50  142 

0 

INDEX 

TEM2 

55 ' 274 

0 

TS 

DELPEROR 

10  142 

1 

CCS 

TEM2 

1 3425 

0 

TCF 

CDUWXFR 

3 1645 

1 TCQCDUW 

CA 

ECDUWUSR 

54  003 

0 

TS 

EBANK 

0 6060 

l 

TC 

I NTPRET 

52001 

1 

SETPD 

GOTO 

00001 

0 

0 

03246 

1 

OCDUWUSR 

17: 1 1 MAR.  19,1971  FLY 
USER’S  PAGE  NO. 
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RATIO  OF  DAP  INTERVAL  TO  CDUW  INTERVAL 
ANGLE  INTERFACE 


WE  NOW  HAVE  A BS ( OMEG A PD  , Q D , RD I 


1/16 


UNITS  PI/4  RAD/SFC 


LAG  ANGLF  = OMEGA  ARS (OMEGA) /2  ACCEL 


RETURN  USER’S  EBANK 


NORMAL  AMD  ABNORMAL  RETURN  TO  USER 


GAP: 


ASSEMBLE  REVISION  2 LO  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L FINOCCUW  - GU I DAP  INTERFACE 


P0366 

THRUST  ’ 

VECTOR 

F IL TER 

SUBROUT 

INE 

036  7 

30, 3A67 

0 0006 

1 

FLTRSUB 

EXTEND 

0368 

REF 

20 

LAST 

915 

30.3A70 

22  1A2 

0 

OXCH 

T E M2 

0369 

REF 

3 

LAST 

99 

30, 3 A7  1 

5A  l A3 

0 

TS 

TEM3 

0370 

30 , 3472 

A 0000 

0 

COM 

0371 

REF 

168 

LAST 

915 

30.3A73 

6 0C01 

0 

AD 

L 

0372 

30.3A7A 

0 0006 

1 

EXTEND 

0373 

REF 

6 

LAST 

913 

30 , 3 A75 

5 1 6A7 

0 

INDEX 

NDXCDUW 

037  A 

REF 

1 

30 , 3 A 76 

7 3 7A6 

0 

MP 

GAINFLTR 

0375 

REF 

169 

LAST 

916 

30, 3A77 

5 A 001 

1 

TS 

L 

0376 

REF 

I 

30,3500 

3 3750 

0 

CA 

DUNFVL IM 

0377 

REF 

9 

LAST 

915 

30,3501 

0 3713 

l 

TC 

L IMITSUB 

0378 

REF 

A 

LAST 

916 

30,3502 

6 C 1 A3 

l 

AD 

TEM3 

0379 

REF 

170 

LAST 

916 

30,3503 

5 A 001 

1 

TS 

L 

0380 

REF 

l 

30 , 3 50 A 

3 3751 

1 

CA 

UNFVL IM 

038  1 

REF 

10 

LAST 

916 

30,3505 

0 3713 

1 

TC 

L IMITSUB 

0382 

REF 

21 

LAST 

916 

30,3506 

0 0 1A2 

0 

TC 

TEM2 

R0383 

SUBR 

TO 

TEST 

THE  ANGLE  BETWEEN  TEE  PROPOSED  WINDOW  AND 

THRUST  CMD 

038  A 

30,3507 

63AA1 

0 

UNWCTEST 

DOT 

DSQ 

0385 

REF 

7 

LAST 

910 

30,3510 

00001 

0 

UNX/2 

0386 

30,3511 

50025 

0 

DSIJ 

BMN 

0387 

REF 

1 

30,3512 

21753 

0 

DOTSWFMX 

0388 

REF 

l 

30,3513 

61211 

1 

DCMCL 

0389 

30.351A 

A3531 

I 

SSP 

RVU 

0390 

REF 

6 

LAST 

913 

30,3515 

03251 

1 

FLAGOODW 

0391 

30,3516 

ccooo 

1 

0 

17:  11  MAR.  19, 1971 


FLY 
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SAVE  ORIGINAL  OFFSET 

ONE  MCT,  NO  WOS,  CAN  BE  SAVEO  IF  NEG  OF 
ORIG  OFFSET  ARRIVES  IN  A,  BUT  IT'S 
NOT  WORTH  THE  INCREASED  OBSCURITY. 


I NCR  TO  OFFSET,  UNLIMITED 

SAME  LIMIT  FOP  Y AND  Z 

YIELDS  INCR  TO  OFFSFT , LIMITED 

ORIGINAL  OFFSET 

TOTAL  OFFSET,  UNLIMITED 

SAME  LIMIT  FOR  V AND  Z 

YIELDS  TOTAL  OFFSET,  LIMITED 


TS 


RVQ  FOR  ALT  CHOICE  IF  DOT  MAGN  TOO  LARGE 
ZEROING  WINDOW  GOOD  FLAG 


GAP: 


ASSEMBLE  REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161 


17:11  MAR.  19,1971  FLY 


197  PAGE  917 


L FINOCDUW  - GUIOAP  INTERFACE  USER'S  PAGE  NO.  13  E6  S3 

P0392  N02CDUSP  RETURNS  THE  2'S  COMPLEMENT,  PI,  SP  COU  ANGLES  X,Y,Z  IN  MPAC,+l,+2  GIVEN  THE  MATRIX  WHOSF  ROW  VECTORS 

R0394  ARE  THE  SEMI-UNIT  NAV  BASE  VECTORS  X,Y,Z  EXPRESSED  IN  STABLE  MEMBER  COORDINATES,  LOCATED  AT  0 IN  THE  PUSH  LIST. 


R0396 

NB2CDUSP 

USES 

ARCTRGSP  WHICH 

HAS  A MAXIMUM  ERROR 

OF  +-  4 

BITS. 

039  7 

30,3517 

63545 

0 

NB2CDUSP 

DLOAD 

DSQ 

039  B 

30,3520 

00003 

1 

2 

0399 

30,3521 

51021 

0 

BDSU 

B PL 

0400 

REF 

6 

LAST 

653 

30,3522 

06475 

1 

0P1/4TH 

040  l 

30,3523 

61526 

1 

♦ 3 

0402 

30,3524 

77745 

1 

DLOAD 

0403 

REF 

16 

LAST 

807 

30,3525 

06505 

1 

Z EROVECS 

IN  CASE  SIN  WAS  SLIGHTLY  > 1/2 

040  4 

30,3526 

77566 

1 

SORT 

EXIT 

YIELDS  COStCDUZ)  IN  UNITS  OF 

2 

0405 

30, 3527 

0 0006 

1 

EXTEND 

0406 

REF 

356 

LAST 

911 

30,3530 

3 0155 

0 

DC  A 

M P AC 

040  7 

30,3531 

20  001 

1 

DDOUBL 

040  8 

REF 

7 

LAST 

887 

30,3532 

54  145 

0 

TS 

TEM5 

0409 

30, 3533 

1 3536 

0 

TCF 

+ 3 

)41 

REF 

25 

LAST 

899 

30,3534 

3 4724 

l 

CA 

POSMAX 

OVERFLOW.  FETCH  POSMAX,  MPAC 

ALWAYS 

041  1 

REF 

8 

LAST 

917 

30,3535 

54  145 

0 

TS 

TEM5 

COStCDUZ ) IN  TEM5 , UNITS  1 

0412 

REF 

35 

LAST 

893 

30,3536 

50  120 

l 

INDEX 

F IXLOC 

0413 

30,3537 

3 0002 

0 

CA 

2 

0414 

REF 

357 

LAST 

91  7 

30,3540 

22  154 

1 

LXCH 

MPAC 

0415 

RFF 

1 

30,3541 

0 3606 

1 

TC 

ARCTRGSP 

0416 

REF 

358 

LAST 

917 

30,3542 

54  156 

1 

TS 

MPAC  +2 

CDUZ 

041  7 

REF 

1 79 

LAST 

911 

30,3543 

3 4 746 

0 

CA 

ZERO 

0418 

REF 

1 

30 ,3544 

0 3564 

0 

TC 

OVBYCOSM 

)4 1 9 

REF 

22 

LAST 

886 

30,3545 

3 4742 

1 

CA 

FOUR 

042  0 

REF 

2 

LAST 

917 

30,3546 

0 3564 

0 

TC 

OVBYCOSM 

042  1 

REF 

10 

LAST 

887 

30,3547 

4 0141 

1 

CS 

T EMI 

0422 

REF 

2 

LAST 

917 

30,3550 

C 3606 

1 

TC 

ARCTRGSP 

042  3 

REF 

359 

LAST 

917 

30,3551 

54  155 

1 

TS 

MPAC  +1 

CDUY 

0424 

REF 

42 

LAST 

903 

30,3552 

3 4741 

1 

CA 

B IT4 

0425 

REF 

3 

LAST 

917 

30,3553 

0 3564 

0 

TC 

OVBYCOSM 

0426 

REF 

1 

30,3554 

3 3563 

1 

CA 

160CT 

042  7 

REF 

4 

LAST 

9 17 

30,3555 

0 3564 

0 

TC 

OVBYCOSM 

042  8 

REF 

11 

LAST 

917 

30,3556 

4 0141 

1 

CS 

T EM  l 

0429 

REF 

3 

LAST 

917 

'30,3557 

C 3606 

1 

TC 

ARCTRGSP 

0430 

REF 

360 

LAST 

917 

30,3560 

54  154 

0 

TS 

MPAC 

C DUX 

0431 

REF 

162 

LAST 

915 

30, 3561 

0 6060 

1 

TC 

intpret 

0432 

30,3562 

77616 

0 

RVQ 

0433 

30,3563 

00016 

0 

160CT 

OCT 

16 
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P0434  THE  ELEMENTS  OF  THE  NAV  BASE  MATRIX  WHICH  WE  MUST  DIVIDE  BY  COS(MGA) 

R0435  ALREADY  CONTAIN  C0S1MGA1/2  AS  A FACTOR.  THEREFORE  THE  QUOTIENT  SHOULD 
R0436  ORDINARILY  NEVER  EXCEED  1/2  IN  MAGNITUDE.  BUT  IF  THE  MGA  IS  NEAR  PI/2 

R0437  THEN  COSIMGA)  IS  NEAR  ZERO,  AND  THERE  MAY  BE  SOME  CHAFF  IN  THE  OTHER 

R0438  ELEMENTS  OF  THE  MATRIX  WHICH  WOULD  PRODUCE  CHAOS  UNDER  DIVISION. 

R0439  8EF0RE  DIVIDING  WE  MAKE  SURE  COSIMGA)  IS  AT  LEAST  ONE  BIT  LARGER 

R0440  THAN  THE  MAGNITUDE  OF  THE  HIGH  ORDER  PART  OF  THE  OPERAND. 

R0441  IF  ONE  OR  MORE  DIVIDES  CANNOT  BE  PERFORMED,  THIS  MEANS  THAT  THE 

R0442  REQUIRED  MGA  IS  VERY  NEARLY  +-PI/2  AND  THEREFORE  THE  OTHER  GIMBAL 

R0443  ANGLES  ARE  I NlDET ER M I NAT E . THE  INNER  AND  OUTER  GIMBAL  ANGLES  RETURNED 
R0444  IN  THIS  CASE  WILL  BE  RANDOM  MULTIPLES  OF  PI/2. 


044  5 

REF 

36 

LAST 

917 

30,3564 

6 

C 1 20 

1 

DVBYCQSM 

AD 

FIXLOC 

0446 

REF 

1 

30,3565 

54 

116 

0 

TS 

ADDRWD 

ADRES  OF  OPERAND 

044  7 

REF 

2 

LAST 

918 

30,3566 

50 

116 

1 

INDEX 

ADDRWD 

FETCH  NFG  ABS  OF  OPERAND, 

AD  TEM5,  AND 

0448 

30,3567 

3 

0000 

1 

CA 

0 

SKIP  DIVIDE  IF  RESULT 

NEG  OR  ZERO 

0449 

30,3570 

0 

C006 

1 

EXTEND 

045  0 

30,3571 

6 

3573 

0 

BZMF 

+ 2 

0451 

30,3572 

4 

0000 

0 

COM 

045  2 

REF 

9 

LAST 

917 

30,3573 

6 

C 145 

1 

AD 

TEM5 

CIA)  ZEPO  OR  NEG,  CITEM5) 

ZFRO  OR  POS 

045  3 

30,3574 

0 

0006 

1 

EXTEND 

045  4 

REF 

1 

30,3575 

6 

3603 

1 

BZMF 

TSLSTCQ 

DIFFERENCE  At  WAYS  SMALL  IF 

BRANCH 

045  5 

30, 3576 

0 

0006 

l 

EXTEND 

TEM5  EXCEEDS  ABS  HIGH  ORDER  ° ART  OF 

0456 

REF 

3 

LAST 

918 

30,3577 

5 

0116 

l 

INDEX 

ADDRWD 

OPERAND  BY  AT  LEAST  ONE  BIT. 

045  7 

30,3600 

3 

0001 

0 

DC  A 

0 

THEREFORE  IT  EXCEEDS 

THF  OP  OPERAND 

045  8 

30,3601 

0 

0006 

1 

EXTEND 

AND  DIVISION  WILL  ALWAYS  SUCCFFD. 

0459 

REF 

10 

LAST 

918 

30,3602 

10 

145 

0 

DV 

TEM5 

046  0 

REF 

171 

LAST 

916 

30,3603 

54 

001 

1 

TSLCTCQ 

TS 

L 

0461 

REF 

12 

LAST 

917 

30,3604 

22 

141 

0 

LXCH 

TEM1 

0462 

REF 

218 

LAST 

904 

30,3605 

0 

0002 

0 

TC 

Q 

GAP: 

L 

P0463 

R0465 

R0467 

0469 

0470 

0471 

0472 

0473 

0474 

0475 

0476 

04  7 7 

04  7 8 

0479 

0480 

0481 

0482 

0483 

0484 

0485 

0486 

048  7 

0488 

0489 

0490 

0491 

0492 

049  3 

0494 

049  5 

049  6 

0497 

049  8 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 
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ARCTRGSP  RETURNS  THE  2'S  COMPLEMENT,  PI,  SP  ANGLE  IN  THE  A REGISTER  GIVEN  ITS  SINF  IN  A ANO  ITS  COSINE  IN  L IN 
UNITS  OF  2.  THE  RESULT  IS  AN  UNAMBIGUOUS  ANGLE  ANYWHERE  IN  THE  CIRCLE,  WITH  A MAXIMUM  ERROR  OF  + -4  BITS. 


THE 

ERROR  IS 

PROOUCEO  BY  THE 

subroutine 

SPARCSIN 

WHICH 

IS  USED  ONLY 

IN  THE  REGION  +-45  DEGREES. 

3 J , 3606 

0 0006 

1 

ARCTRGSP 

EXTEND 

REF 

1 

30,3607 

1 3651 

1 

RZF 

S INZERO 

TO  AVOID  DIVIDING  BY  ZFRO 

30, 3610 

0 0006 

1 

EXTEND 

REF 

10 

LAST 

887 

30, 3611 

2 2 144 

0 

QXCH 

TEM4 

REF 

22 

LAST 

916 

30,3612 

54  142 

l 

TS 

TEM2 

REF 

172 

LAST 

918 

30, 3613 

3 0001 

0 

CA 

L 

REF 

5 

LAST 

916 

30,3614 

54  143 

0 

TS 

TEM3 

REF 

180 

LAST 

917 

30,3615 

3 4 746 

0 

CA 

ZERO 

30,3616 

0 C006 

l 

EXTEND 

REF 

23 

LAST 

919 

30,3617 

10  142 

1 

DV 

TEM2 

30,3620 

C 0006 

1 

EXTEND 

REF 

l 

30,3621 

1 3640 

1 

BZF 

USECOS 

REF 

6 

LAST 

919 

30,3622 

10  143 

0 

CCS 

TEM3 

SIN  IS  SMALLER  OR  FOUAL 

REF 

181 

LAST 

919 

30,3623 

3 4746 

0 

CA 

ZERO 

30,3624 

1 3630 

0 

TCF 

+ 4 

REF 

24 

LAST 

919 

30,3625 

4 C 1 42 

1 

CS 

TEM2 

IF  COS  NEG,  REVERSE  SIGN  OF  SIN, 

REF 

25 

LAST 

919 

30, 3626 

54  142 

1 

TS 

TEM2 

ANGLE  = P I— ARC SI N I S I N ) 

REF 

4 

LAST 

898 

30,3627 

3 4726 

0 

CA 

NEGMAX 

PICK  UP  PI,  2'S  COMPLEMENT 

REF 

7 

LAST 

919 

30,3630 

54  143 

0 

TS 

T E M3 

WE  NO  LONGER  NEED  COS 

REF 

26 

LAST 

919 

30, 3631 

3 0142 

0 

CA 

TEM2 

REF 

2 

LAST 

804 

30,3632 

0 3656 

1 

TC 

SPARCSIN  -l 

REF 

2 

LAST 

915 

30,3633 

0 3727 

0 

TC 

0NEST02S 

30,3634 

0 0006 

l 

EXTEND 

REF 

8 

LAST 

919 

30,3635 

20  143 

0 

MSU 

TEM3 

REF 

3 

LAST 

919 

30,3636 

0 3727 

0 

IT02&TCQ 

TC 

0NEST02S 

RFF 

11 

LAST 

919 

30,3637 

0 0144 

0 

TC 

TEM4 

REF 

9 

LAST 

919 

30,3640 

4 0143 

0 

USECOS 

CS 

TEM3 

COS  IS  SMALLER 

REF 

3 

LAST 

9 L 9 

30,3641 

0 3656 

1 

TC 

SPARCSIN  -1 

ANGLE  = SIGN (SIN) (PI/2-ARCSINIC0S) ) 

REF 

13 

LAST 

896 

30,3642 

6 4727 

1 

AD 

HALF 

REF 

10 

LAST 

919 

30,3643 

54  143 

0 

TS 

TEM3 

WE  NO  LONGER  NEED  COS 

REF 

27 

LAST 

919 

30,3644 

10  142 

1 

CCS 

TEM2 

REF 

1 l 

LAST 

919 

30,3645 

3 0143 

1 

CA 

TEM3 

REF 

1 

30,3646 

1 3636 

0 

TCF 

1 T02&TCQ 

REF 

12 

LAST 

919 

30, 3647 

4 0143 

0 

CS 

TEM3 

REF 

2 

LAST 

919 

30,3650 

1 3636 

0 

TCF 

IT02CTC0 

REF 

173 

LAST 

919 

30,3651 

10  001 

1 

S INZERO 

CCS 

L 

REF 

182 

LAST 

919 

30,3652 

3 4 746 

0 

CA 

ZERO 

REF 

2 19 

LAST 

918 

30,3653 

0 C002 

0 

TC 

0 

REF 

5 

LAST 

919 

30,3654 

3 4726 

0 

CA 

NEGMAX 

PI,  2'S  COMP 

REF 

220 

LAST 

919 

30,3655 

0 0002 

0 

TC 

Q 

GAP: 

L 

P0509 

R0510 

R051 1 

R051  2 

0513 

051  A 

051  5 

0516 

0517 

051  8 

0519 

0520 

052  l 

0522 

0523 

0524 

0525 

0526 

052  7 

0528 

0529 

0530 

053  1 

0532 

0533 

0534 

0535 

0536 

0537 

0538 

053  9 

0540 

0541 
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SPARCSIN  TAKES  AN  ARGUMENT  SCALED  UNITY  IN  A AND  RETURNS  AN  ANGLE  SCALED 
18C  DEGREES  IN  A.  IT  HAS  BEEN  UNIT  TESTED  IN  THE  REGION  +-.94  (+-  70 
DEGREES)  AND  THE  MAXIMUM  ERROR  IS  +-5  BUS  WITH  AN  AVERAGE  TIME  OF 


450 

MICROSECONDS. 

SPARCSIN  - 

l 

TAKES 

THE 

ARGUMENT  SCALED  TWO. (BOB 

30,3656 

6 

0000 

1 

DOUBLE 

REF 

6 

LAST 

459 

30,3657 

54  C21 

0 

SPARCSIN 

TS 

SR 

30,3660 

1 

3664 

1 

TCF 

+ 4 

REF 

261 

LAST 

912 

30,3661 

50  COO 

1 

INDEX 

A 

REF 

1 

30, 3662 

4 

4725 

1 

CS 

LIMITS 

REF 

9 

LAST 

920 

30,3663 

54  021 

0 

TS 

SR 

30,3664 

0 

0006 

1 

EXTEND 

REF 

262 

LAST 

920 

30,3665 

7 

0000 

0 

MP 

A 

REF 

13 

LAST 

918 

30,3666 

54  141 

1 

TS 

T EMI 

30,3667 

0 

0006 

1 

EXTEND 

REF 

l 

30,3670 

7 

3712 

1 

MP 

DPL9 

REF 

1 

30,3671 

6 

3711 

0 

AD 

DPL  7 

30, 3672 

0 

0006 

1 

EXTEND 

RFF 

14 

LAST 

920 

30,3673 

7 

0141 

1 

MP 

T EM  1 

REF 

1 

30,3674 

6 

3710 

1 

AD 

0 PL5 

30,3675 

0 

0006 

1 

EXTEND 

REF 

15 

LAST 

920 

30,3676 

7 

0141 

1 

MP 

T EMI 

REE 

1 

30,3677 

6 

3707 

1 

AD 

DPL3 

30,3700 

0 

0006 

1 

EXTENO 

REF 

16 

LAST 

920 

30,3701 

7 

0141 

l 

MP 

T EMI 

REF 

1 

30,3702 

6 

3706 

0 

AD 

DPL1 

30,3703 

0 

0006 

1 

EXTEND 

REF 

10 

LAST 

920 

30,3704 

7 

0021 

0 

MP 

SR 

REF 

221 

LAST 

919 

30, 3705 

0 

0002 

0 

TC 

Q 

30,3706 

24406 

0 

D PL  1 

DEC 

10502 

30,3707 

00660 

1 

DPL3 

DEC 

432 

30, 3710 

16204 

0 

DPL5 

DEC 

7300 

30,3711 

50  744 

0 

DPL7 

DEC 

-11803 

30,3712 

20315 

l 

DPL9 

DEC 

8397 

920 
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P0542 

LIMITSUB 

LIMITS  THE 

MAGNITUDE 

OF  THE 

POSITIVE  OR 

NFGATIVE  VARIABL 

R0543 

ARRI V ING 

IN  L 

TO  THE  POSITIVE 

LIMIT 

ARRIVING  IN 

A . 

RO  544 

THE 

SIGNED  LIMITED 

VARIABLE  IS  RETURNED 

IN  A. 

R0545 

VERS  ICN 

COURTESY  HLGH  BLAIR-SMITH 

054  6 

REF 

17 

LAST 

920 

30,3713 

54  141 

1 

LIMITSUB 

TS 

T EM  1 

054  7 

KEF 

183 

LAST 

919 

30,3714 

3 4 746 

0 

CA 

ZERO 

054  8 

30,3  715 

0 0006 

1 

EXTEND 

0549 

REF 

18 

LAST 

921 

30,3716 

10  141 

1 

DV 

TEM1 

0550 

REF 

26  3 

LAST 

920 

30,3717 

10  COO 

0 

CCS 

A 

0551 

REF 

19 

LAST 

921 

30,3720 

22  141 

0 

LXCH 

T EM  1 

0552 

30,3721 

1 3 723 

0 

TCF 

+ 2 

0553 

30,3722 

1 3725 

0 

TCF 

+ 3 

0554 

REF 

174 

LAST 

919 

30,3723 

3 0001 

0 

CA 

L 

0555 

REF 

222 

LAST 

920 

30,3724 

0 0002 

0 

TC 

Q 

0556 

RFF 

20 

LAST 

9?  1 

30,3725 

4 0141 

1 

CS 

T EM  1 

0557 

REF 

223 

LAST 

92  1 

30,3726 

0 0002 

0 

TC 

Q 

R055B 

SUBROUTINE  TO 

CONVERT  I'S  COMF 

’ SP  TO 

2' 

S COMP 

0559 

REF 

264 

LAST 

921 

30,372  7 

10  000 

0 

0NEST02S 

CCS 

A 

0560 

REF 

91 

LAST 

915 

30,3730 

6 4744 

1 

AD 

ONE 

056  1 

REF 

224 

LAST 

921 

30,3731 

0 0002 

0 

TC 

0 

0562 

REF 

265 

LAST 

921 

30,3732 

4 COOO 

0 

CS 

A 

0563 

REF 

225 

LAST 

921 

30,3733 

0 0002 

0 

TC 

Q 

R0564 

NO  ATTITUDE  CONTROL 

0565 

REF 

34 

LAST 

878 

30,3734 

0 5571 

1 

NOATTCNT 

TC 

ALARM 

0566 

30,3735 

00402 

I 

OCT 

00402 

056  7 

30,3736 

0 0004 

0 

+ 2 

INH I NT 

0568 

REF 

48 

LAST 

867 

30,3737 

0 4665 

0 

TC 

I BNKCALL 

0569 

REF 

9 

LAST 

867 

30,3740 

40166 

1 

FC  ADR 

STOPRATE 

0570 

REF 

1 

30,3741 

1 34  61 

0 

TCF 

TCOCOUW 

R057  1 

middle  gimbal 

ANGLE 

alarm 

0572 

REF 

35 

LAST 

921 

30,3742 

0 5571 

l 

ALAR  MMGA 

TC 

ALARM 

0573 

30,3743 

CC401 

1 

OCT 

0 0401 

0574 

RFF 

1 

30,3744 

1 3256 

1 

TCF 

MGARFT 
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USER'S  PAGE  NO.  17  E6  S3 


NO  ATTITUDE  CONTROL 

COME  HERE  FOR  NOATTCNT  WITHOUT  ALARM 
RFLINT  AT  TC  INTPRET  AFTER  TCOCOUW 


921 


RETURN  TO  USEP  SKIPPING  AUTOPILOT  CMOS 


GAP 
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L 

FINDCCUW  - GU I DAP 

INTERFACE 

USER'S  PAGE  NO. 

18  E6  S3 

R0577 

CONSTANTS 

R0580 

ADDRESS  CONSTANTS 

0581 

REF  3 LAST  907 

30.37A5 

032A5 

1 

ECDUWL 

ECADR 

ECDUW 

R0582 

R0583 

THRLST  DIRECTION  FILTER  CONSTANTS 

058  A 

30 , 37A6 

06315 

0 

GAINFLTR 

DEC 

.2 

GAIN  FILTER  SANS  CSM 

0585 

30 , 3 7A7 

031A6 

l 

DEC 

. 1 

GAIN  FILTFR  WITH  CSM 

0586 

30,3750 

00071 

1 

DUN  F V L I M 

DEC 

.007  8-1 

7 MR  MAX  CHG  IN  F DIR 

IN  VEH  IN  2 SECS. 

A0587 

THIS  DOES  NOT  ALLOW  FOR  S/C  ROT  RATE. 

0588 

30,3751 

020AI 

0 

UNFVL  IM 

DEC 

.129  B-l 

129  MR  MAX  THRUST  OFFSET.  105  MR  TRAVEL 

A0589 

+ 1 OMR  DEFL  + 5MR  MECH  MOUNT  + 9MR  ABLATION. 

R0590 

R0591 

CONSTANTS  RELATED 

TO  GIMI3AL 

ANGLE  COMPUTATIONS 

0592 

30,3752 

01673 

1 

DOTSWFMX 

DEC 

.93302  B-A 

L IM  COLNPTY  OF  UNWC/2 

S UNFC/2  TO  85  OEG 

A0593 

LOWER  PART  COMES  FROM 

NEXT  CONSTANT 

059A 

30,3753 

03A3A 

1 

DAXMAX 

DEC 

. 11111111111 

DELATTX  LIM  TO  20  DEG 

IN  2 SECS,  l'S,  PI 

0595 

30, 375A 

00266 

0 

DEC 

.0111111111 

2 DEG  WHFN  CSM  DOCKED 

0596 

30,3755 

01616 

1 

DAY/2MAX 

DEC 

.05555555555 

LIKEWISE  FOR  DELATTY 

0597 

30,3756 

00133 

0 

DEC 

.0055555555 

0598 

REF  2 LAST  913 

30, 3753 

DAZMAX 

= 

DAXMAX 

LIKEWISE  FOR  DELATTZ 

0599 

30,3757 

1A3AA 

1 

CDUZDL  IM 

DEC 

.3888888888 

70  DEG  LIMIT  FOR  MGA , 

l'S,  PI 

R060  0 

R060  L 

CONSTANTS  FOR  DATA 

TRANSFER 

060  2 

30,3760 

01A63 

1 

DT/DELT 

DEC 

.05 

.1  SEC/2  SEC  WHICH  IS 

THE  AUTOPILOT 

A0603 

CONTROL  SAMPLF  PERIOD/ 

COMPUTATION  PERIOD 

060  A 

REF  2 LAST  913 

30,3755 

DELFRLIM 

- 

DAY/2MAX 

10  DEG  LIMIT  FOR  LAG  ANGLES,  l'S,  PI 

R0605 


***  END  OF  FLY 


197 


GAP 
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PS1-P53  USER'S  PAGE  NO.  1 EO  S3 

R0001 

R0003 

ROODS 

PROGRAM  NAME-  PROG52  DATE-  JAN  9,  1967 

MOD  NO-  0 LOG  SECTION-  P51-P53 

MODIFICATION  BY-  LO-NSKE  ASSEMBLY-  SUNOANCF  REV  46 

R0007 

FUNCTIONAL  DESCRIPTION- 

R000  8 
R0010 

ALIGNS  THE  I MU  TO  ONE  OF  THREE  ORIENTATIONS  SELECTED  BY  THE  ASTRONAUT.  THE  PRESENT  I MU  ORIENTATION  IS  KNOWN 
AND  IS  STORED  IN  REFSMMAT . THE  THREE  POSSIBLE  ORIENTATIONS  MAY  BE_ 

R001  1 

(A)  PREFERRED  OR IENT AT  ION 

R0012 

R0014 

AN  OPTIMUM  ORIENTATION  FOR  A PREVIOUSLY  CALCULATED  MANUEVER.  THIS  ORIENTATION  MUST  BE  CALCULATED  AND 
STORED  BY  A PREVIOUSLY  SFLECTEO  PROGRAM. 

R001  5 

( b ) NOMINAL  CRI ENT AT  ION 

R0016 
R001  7 

X = UNIT  ( R I 

-SM 

R0018 

R0019 

Y = UNIT  (V  X Rt 
SM 

R0020 

R0021 

Z = UNIT  (X  X Y ) 

SM  SM  SM 

R0022 

R0023 

R0025 

WHERE_ 

R = THE  GEOCENTRIC  RADIUS  VECTOR  AT  TIME  T(ALIGN)  SELECTED  BY  THE  ASTRONAUT 

R0026 
R002  8 

V = THE  INERTIAL  VELOCITY  VECTOR  AT  TIME  T(ALIGN)  SELECTED  BY  THE  ASTRONAUT 

R0029 

(C)  REFSMMAT  ORIENTATION 

R003  0 

(D)  LANCING  SITE  - THIS  IS  NOT  AVAILI6LE  IN  SUNDANCE 

R0031 

R0033 

R0035 

THIS  SELECTION  CORRECTS  THE  PRESENT  IMU  ORIENTATION.  THE  PKESFNT  ORIENTATION  DIFFERS  FROM  THAT  TO  WHICH  IT 
WAS  LAST  ALIGNED  ONLY  DUE  TO  GYRO  ORIFTII.E.  NEITHER  GIMBAL  LOCK  NOR  IMU  POWER  INTERRUPTION  HAS  OCCURED 
SINCE  THE  LAST  ALIGNMENT). 

R0036 

R0038 

R0040 

R0042 

R0044 

ROG'46 

R0048 

AFTER'  A IMU  ORIENTATION  HAS  BEEN  SELECTED  ROUTINE  S52.2  IS  OPERATED  TO  COMPUTE  THE  GIMBAL  ANGLES  USING  THE 
NEW  ORIENTATION  AND  THE  PRESENT  VEHICLE  ATTITUDE.  CAL52A  THFN  USES  THESE  ANGLES,  STORED  IN  THF T AD , + 1 , + 2 , TO 
COARSE  ALIGN  THE  IMU.  THE  STAR  SELECTION  ROUTINE,  R56,  IS  THEN  OPERATED.  IF  2 STARS  ARE  NOT  AVAILABLE  AN  ALARM 
IS  FLASHED  TO  NOTIFY  THE  ASTRONAUT.  AT  THIS  POINT  THE  ASTRONAUT  WILL  MANUEVER  THE  VEHICLE  AND  SELECT  2 STARS 
EITHER  MANUALLY  OR  AUTOMATICALLY.  AFTER  2 STARS  HAVE  BEEN  SELECTED  THE  IMU  IS  FINE  ALIGNED  USING  ROUTINE  R51.  IF 
THE  RENDEZVOUS  NAVIGATION  PROCESS  IS  OPE R AT I NG I INDI C ATED  BY  RNDVZFLG)  P20  IS  DISPLAYED.  OTHERWISE  POO  IS 
REQUESTED. 

R0049 

CALLING  SEQUENCE- 
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L P51-P53  USER'S  PAGE  NO.  2 

R0050  THE  PROGRAM  IS  CALLED  BY  THE  ASTRONAUT  BY  OSKY  ENTRY. 


R00t>  1 SUBROUTINES  CALLED- 


R0052 

1 . 

FLAGDOWN 

7. 

S52.2 

13. 

NEWMODEX 

R0053 

2 . 

R02BOTH 

8. 

CAL53A 

16. 

PRIOLARM 

R0056 

3. 

G0PERF6 

9. 

FLAGUP 

R0055 

6 . 

MATMOVE 

10. 

R 56 

R0056 

5. 

GOFLASH 

11. 

R 5 1 

R0057 

6 . 

S52.3 

12. 

G0PERF3 

R0058  NORMAL  EXIT  MODES- 
R0059  EXITS  TO  ENOOFJOB 


R0060  ALARM  CR  ABORT  EXIT  MODES- 
R0061  NONE 

R0062  OUTPUT- 

R 0 06 3 THE  FOLLOWING  MAY  BE  FLASHED  ON  THE  OSKY 

R0066  1.  IMU  ORIENTATION  CODE 

R0065  2.  ALARM  CODE  215  -PREFERRED  IMU  ORIENTATION  NOT  SPECIFIED 

R0066  3.  TIME  OF  NEXT  IGNITION 

R0067  6.  GIMBAL  ANGLES 

R0068  5.  ALARM  CODE  605  -TWO  STARS  NOT  AVAILABLE 

R0069  6.  PLEASE  PERFORM  POO 

R0070  THE  MODE  DISPLAY  MAY  BE  CHANGED  TO  20 

R0071  ERASAPLE  INITIALIZATION  REQUIRED- 

ROOT  2 PFRATFLG  SHOULD  BE  SET  IF  A PREFERRED  ORIENTATION  HAS  BFEN  COMPUTED. IF  IT  HAS  BEEN  COMPUTED  IT 

R0076  XSMD, YSMD, ZSMD. 

R0075  RNDVZFLG  INDICATES  WHETHER  THE  RENDEZVOUS  NAVIGATION  PROCESS  IS  OPERATING. 

R0077  DEBRIS- 


R0078 

WORK 

AREA 

0080 

REF 

' 2 

LAST 

26  1 

15,2000 

SETLOC  P50S 

0081 

15,2201 

BANK 

0082 

REF 

6 

LAST 

209 

E5 , 1755 

EBANK=  BESTI 

0083 

REF 

1 

COUNT  * lt/P52 

0086 

REF 

2 A 1 

LAST 

896 

15,2201 

0 6607 

1 PROG52 

TC  BANKCALL 

0085 

REF 

10 

LAST 

839 

15,2202 

33757 

1 

CADR  R02BOTH 

IMU  STATUS  CHECK 

0086 

REF 

1 

15, 2203 

3 6 761 

1 

CAF  PFRATBIT 

0087 

REF 

21 

LAST 

366 

1 5 , 2 2 06 

7 0076 

l 

MASK  FLAGWRD2 

IS  PFRATFLG  SET? 

0088 

REF 

266 

LAST 

921 

15,2205 

10  COO 

0 

CCS  A 

0089 

REF 

1 

15,2206 

0 2 2 1 L 

1 

TC  P52A 

YES 

EO  S3 


IS  STORED  IN 
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P51- 

-P53 

0090 

REF 

25 

LAST 

834 

15,2207 

3 

6266 

0 

0091 

REF 

2 

LAST 

924 

15,2210 

0 

2212 

1 

0092 

REF 

44 

LAST 

892 

15,2211 

3 

4 744 

1 

P52A 

0093 

REF 

6 

LAST 

659 

15,2212 

55 

< 144 

0 

009  4 

REE 

45 

LAST 

92  5 

15,2213 

3 

4744 

1 

P52B 

0095 

REF 

242 

LAST 

924 

15,2214 

0 

4607 

1 

0096 

REF 

1 

15, 2215 

20725 

0 

0097 

REF 

34 

LAST 

855 

15,2216 

0 

6 CO  1 

0 

0098 

15,2217 

1 

2224 

0 

0099 

REF 

1 

15,2220 

0 

2213 

0 

0100 

REF 

80 

LAST 

894 

15,2221 

0 

5355 

1 

0101 

15,2222 

00014 

1 

0102 

REF 

133 

LAST 

894 

15,2223 

0 

5146 

1 

0103 

REF 

7 

LAST 

925 

15, 2224 

3 

1144 

1 

0104 

REF 

26 

LAST 

925 

15, 2225 

7 

6266 

1 

0105 

REF 

267 

LAST 

924 

15,2226 

50 

000 

1 

0106 

15,2227 

0 

2230 

1 

0107 

REF 

1 

15,2230 

1 

2236 

0 

0108 

REF 

1 

15,2231 

1 

2310 

0 

0109 

REF 

1 

15,2232 

1 

2243 

1 

0110 

REF 

163 

LAST 

917 

15,2233 

0 

6060 

1 

P52E 

Oil  1 

15,2234 

77650 

1 

0112 

REF 

1 

15,2235 

32321 

0 

01125 

REF 

7 

LAST 

892 

15,2236 

3 

4732 

0 

0PT4 

0113 

REF 

55 

LAST 

915 

15,2237 

54 

C03 

0 

01133 

REF 

4 

LAST 

782 

E4 , 1426 

01135 

15,2240 

0 

0006 

1 

0114 

REF 

5 

LAST 

925 

15,2241 

3 

1427 

1 

0115 

REF 

2 

LAST 

925 

15,2242 

1 

2245 

1 

0116 

15,2243 

0 

0006 

1 

P52T 

0117 

REF 

23 

LAST 

900 

15, 2244 

3 

4 746 

0 

0118 

REF 

24 

LAST 

660 

15,2245 

53 

' 045 

0 

01184 

REF 

12 

LAST 

890 

15, 2246 

3 

5005 

1 

01186 

REF 

56 

LAST 

925 

15, 2247 

54 

C 03 

0 

01188 

REF 

4 

LAST 

214 

E5, 1774 

0119 

REF 

1 

15,2250 

3 

2325 

1 

0120 

REF 

243 

LAST 

925 

15,2251 

0 

4607 

1 

0121 

REF 

26 

LAST 

855 

15,2252 

2C471 

1 

0122 

REF 

35 

LAST 

925 

15,2253 

0 

6001 

0 

012  3 

15,2254 

0 

2256 

1 

0124 

15,2255 

0 

2250 

1 

0125 

REF 

25 

LAST 

925 

15,2256 

53 

'045 

0 

0126 

15,2257 

0 

0006 

1 

0127 

15,2260 

6 

2262 

0 

0128 

15,2261 

1 

2264 

1 

0129 

15,2262 

0 

0006 

1 

0130 

REF 

28 

LAST 

874 

15,2263 

3 

0 C25 

0 
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CAF 

THREE 

DISPLAY  REFSMMAT  OPTION  3 

TC 

P52A  +1 

CAF 

BIT1 

TS 

0PTIDN2 

CAF 

B IT1 

TC 

BANKCALL 

FLASH  OPTION  CODE  AMD  ORIENTATION  CODE 

CAOR 

GGPERF4R 

FLASH  V04N06 

TC 

GOTOPOOH 

TCF 

4-5 

V33-PROCEED 

TC 

P52B 

NEW  CODE  - NEW  ORIENTATION  CODE  INPUT 

TC 

PHASCHNG 

DISPLAY  RETURN 

OCT 

00014 

TC 

END0FJ03 

CA 

0PTI0N2 

MASK 

THREE 

INDEX 

A 

TC 

4-1 

TCF 

0PT4 

OPTION  4 LANDING  SITE 

TCF 

P52H 

OPTION  1 PREFERRED 

TCF 

P52T 

OPTION  2 NOMINAL 

TC 

INTPRET 

OPTION  3 REFSMMAT 

GOTO 

P52F 

GO  DO  R51 

CAF 

EBANK4 

SET  EBANK  TO  USE  TLAND 

TS 

EBANK 

EBANK= 

TL  AND 

EXTEND 

DCA 

TLAND 

IF  OPTION  4 DISPLAY  TLAND 

TCF 

P52T  4-2 

EXTEND 

DCA 

NEGO 

DXCH 

DSPTEM1 

CAF 

EBANK5 

RESTORE  EBANK  AFTER  USE  OF  TLAND 

TS 

EBANK 

EBANK= 

TAL IGN 

CAF 

V06N34* 

TC 

BANKCALL 

CADR 

GOFLASH 

TC 

GOTOPOOH 

TC 

4-2 

TC 

-5 

DXCH 

DSPTEM1 

EXTEND 

BZMF 

4-2 

IF  TIME  ZERO  OR  NEG  USE  TIME2 

TCF 

4-3 

EXTEND 

DCA 

T I ME2 
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P51- 

-P  53 

013  1 

REF 

5 

LAST 

925 

15,2264 

0132 

REF 

8 

LAST 

925 

15, 2265 

0133 

REF 

43 

LAST 

903 

15,2266 

0134 

REF 

268 

LAST 

925  . 

15,2267 

0135 

REF 

1 

15,2270 

0136 

REF 

164 

LAST 

92  5 

15,2271 

0137 

15,2272 

0138 

REF 

1 

15,2273 

53*775 

1 

OXCH 

TALIGN 

3 1144 

1 P52V 

CA 

0PTI0N2 

7 4743 

1 

MASK 

B IT2 

10  COO 

0 

CCS 

A 

0 2274 

1 

TC 

P52W 

0 6060 

1 

TC 

I NTPRET 

77650 

1 

GOTO 

32355 

0 

P52LS 
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OPTION  4 - GFT  LS  ORIENTATION 


GAP:  ASSEMBLE  REVISION  210  GF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L P51-P53 


P0139  START  ALIGNMENT 


0140 

REF 

165 

LAST 

926 

15,2274 

0 6060 

1 

P52W 

TC 

INTPRET 

0141 

15,2275 

45145 

0 

DLOAD 

CALL 

014  2 

REF 

6 

LAST 

926 

15,2276 

C2  775 

0 

T ALIGN 

0143 

REF 

1 

15,2277 

42740 

1 

S52.3 

0144 

15,2300 

77624 

1 

P52D 

CALL 

0145 

REF 

1 

15,2301 

42  707 

1 

S 52 , 2 

0146 

15,2302 

77776 

1 

EXIT 

0147 

REF 

2 

LAST 

500 

15, 2303 

3 5001 

0 

CAF 

V06N22 

0148 

REF 

244 

LAST 

925 

15,2304 

0 4607 

1 

TC 

BANKCALL 

0149 

REF 

27 

LAST 

925 

15,2305 

20471 

1 

CADR 

GOFLASH 

0150 

REF 

36 

LAST 

925 

15,2306 

0 6C01 

0 

TC 

GOTOPOOH 

015  1 

REF 

1 

15,2307 

1 2326 

0 

TC  F 

C OAR  STY  P 

0152 

REF 

166 

LAST 

927 

15,2310 

0 6060 

1 

P52H 

TC 

I NTPRET 

0153 

15,2311 

77650 

1 

GOTH 

0154 

REF 

1 

15,2312 

32300 

0 

P52D 

0155 

REF 

167 

LAST 

927 

15,2313 

0 6060 

1 

REGCOARS 

TC 

INTPRET 

0156 

15,2314 

77624 

1 

CALL 

0157 

REF 

1 

15,2315 

31316 

1 

C AL53A 

0158 

15,2316 

43014 

0 

COARSRET 

SET 

CLEAR 

0159 

REF 

2 

LAST 

683 

15, 2317 

C 1462 

0 

REFSMFLG 

0160 

REF 

2 

LAST 

764 

15,2320 

01273 

0 

PFRATFLG 

0161 

15,2321 

77624 

1 

P52F 

CALL 

0162 

REF 

1 

15,2322 

31C23 

1 

R 51 

0163 

15,2323 

7 7 776 

1 

P520UT 

EXIT 

0164 

REF 

37 

LAST 

927 

15,2324 

0 6001 

0 

TC 

GOTOPOOH 

0165 

REE 

5 

LAST 

743 

4777 

VB05N09 

= 

V05N09 

0166 

15,2325 

C 1442 

1 

V06N34* 

VN 

634 
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PICK  UP  ALIGN  TIME 
COMPUTE  NOMINAL  I MU 
ORIENTATION 

READ  VEHICLE  ATTITUDE  AND 
COMPUTE  GIMBAL  ANGLES 


DISPLAY  GIMBAL  ANGLES 


V33-PR0CEED,  SEE  IF  GYRO  TORQUE  COARSE 


DO  COARSF  ALIGN 
POUT INE 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


■ L P51-P53 


P0167 

CHECK  FCP 

: GRRO 

TORQUE 

COARSE 

ALIGNMENT 

0168 

REF 

1 

15,2326 

3 2354 

1 

COARSTYP 

CAF 

OCT  L 3 

0169 

REF 

245 

LAST 

927 

15,2327 

0 4607 

1 

TC 

BANKCALL 

0170 

REF 

5 

LAST 

735 

15,2330 

2C635 

0 

CAOR 

G0PERF1 

017  1 

REE 

38 

LAST 

927 

15,2331 

1 6001 

1 

TCF 

GOTOPOOH 

1172 

REF 

1 

15,2332 

1 2313 

0 

TC  F 

REGCOARS 

0173 

REF 

168 

LAST 

927 

15,2333 

0 6060 

1 

TC 

I NTPRET 

0174 

15,2334 

64375 

1 

VLOAD 

M XV 

0175 

REF 

5 

LAST 

156 

15,2335 

03607 

0 

X SMD 

0176 

REF 

40 

LAST 

882 

15,2336 

01732 

0 

R EFSMMAT 

0177 

15,2337 

77656 

1 

UNIT 

0178 

REF 

3 

LAST 

127 

15, 2340 

26665 

0 

STOVL 

XDC 

0179 

REF 

3 

LAST 

155 

15,2341 

03615 

0 

Y SMD 

0180 

15,2342 

53521 

1 

MX  V 

UNIT 

016  l 

REF 

41 

LAST 

928 

15,2343 

01732 

0 

REFSMMAT 

0182 

REF 

3 

LAST 

127 

15,2344 

26673 

1 

STOVL 

YDC 

0183 

REF 

3 

LAST 

155 

15,2345 

C3623 

0 

Z SMD 

018  4 

15,2346 

53521 

1 

MX  V 

UNIT 

0185 

REF 

42 

LAST 

928 

15,2347 

01732 

0 

REFSMMAT 

0186 

REF 

3 

LAST 

128 

15,2350 

36701 

1 

STC ALL 

Z DC 

0187 

REF 

1 

15,2351 

31174 

1 

GYCOARS 

) 1 

15,2352 

77650 

1 

GOTO 

0189 

REF 

I 

15,2353 

32323 

l 

P520UT 

0190 

15,2354 

CC013 

0 

0CT1  3 

OCT 

13 
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DISPLAY  V 50N25  WITH  COARSE  ALIGN  OPTION 

V34-T  ERM  INSOE 
V33-N0RMAL  COARSE 
V32-GYR0  TORQUE  COARSE 


GET  SM(DESIRED)  WRT  SMIPRESENTI 


GAP: 
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PO 19 1 CCMPUTE  LANDING  ORIENTATION  FOR  OPTION  4 


0192 

15,2355 

43014 

0 

P52LS 

0193 

REF 

4 

LAST 

737 

15,2356 

01463 

1 

0194 

REF 

2 

LAST 

660 

15,2357 

00662 

0 

0195 

15,2360 

77201 

1 

0196 

15,2361 

00001 

0 

0197 

REF 

10 

LAST 

842 

15,2362 

02021 

0 

0198 

15,2363 

4 1525 

0 

0199 

REF 

7 

LAST 

927 

15,2364 

C 2 775 

0 

0200 

REF 

6 

LAST 

925 

15,2365 

36027 

1 

0201 

REF 

3 

LAST 

842 

15,2366 

55716 

1 

0202 

15,2367 

77742 

0 

0203 

REF 

4 

LAST 

787 

15,2370 

16032 

1 

0204 

REF 

8 

LAST 

929 

15,2371 

02775 

0 

0205 

15,2372 

77624 

1 

0206 

REF 

1 

15,2373 

30455 

0 

0207 

15,2374 

53575 

0 

0208 

REF 

5 

LAST 

929 

15,2375 

02032 

1 

0209 

REF 

6 

LAST 

928 

15,2376 

37607 

1 

0210 

REF 

1 

15,2377 

11014 

1 

021 1 

15,2400 

77650 

1 

021  1 1 

REF 

2 

LAST 

927 

15,2401 

32300 

0 

02112 

REF 

1 

13,2000 

02113 

13,2374 

02114 

13,2374 

77773 

1 

MATMQVE 

021  1 5 

13,2375 

00001 

0 

02116 

13,2376 

1C001 

1 

021  1 7 

13,2377 

77773 

1 

02118 

13,2400 

0CC07 

0 

02119 

13,2401 

10C07 

1 

0212 

13,2402 

77773 

1 

0212  1 

13,2403 

00015 

0 

02122 

13,2404 

10015 

1 

02123 

13,2405 

77616 

0 
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SET 

C LEAR 

GET  LANDING  SITE  ORIENTATION 

LUNAFLAG 

ERADFLAG 

TO  PICK  UP  RLS 

SET  P D 

VLOAD 

0 

RLS 

PICK  UP  LANDING  SITE  VEC  IN 

MF 

PDDL 

PUSH 

TALIGN 

RLS  PD  0-5 

STC  ALL 

T LAND 

JAM  ALIGN  T IMF  IN  TL AND  FOR 

OPTION 

RP-TO-R 

TRANS  RLS  TO  REF 

VSR  2 
STOOL 

ALPHAV 

TALIGN 

INPUT  TO  LAT-LONG 

CALL 

N89DI SP 

VLOAD 

UNIT 

ALPHAV 

COMPUTE  LANDING  SITF  ORIENT 

( X SMD ) 

STC  A L L 

X SMD 

LSORIENT 

GOTO 

P52D 

NOW  GO  COMPUTE  GIMBAL  ANGLES 

SETLOC 

BANK 

P50S2 

VLOAD* 

0,1 

STORE 

0,2 

VLOAD* 

6D , 1 

STORE 

60,2 

VLOAD* 

l 2D  , 1 

STORE 

RVQ 

120,2 

929 
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L P51-P53 

P0213  SUBROUTINE  TO  CALCULATE  AND  DISPLAY  THE  LUNAR  LANDING  SITE 


0214 

REF 

. 4 

LAST 

264 

14,2000 

SETLOC 

P50S1 

021  5 

14,2455 

BANK 

0216 

REF 

16 

LAST 

400 

E 5 , 1642 

EB ANK= 

XSM 

0217 

14,2455 

77620 

0 

N89DI SP 

STQ 

0218 

REF 

2 

LAST 

128 

14,2456 

02  746 

0 

QMAJ 

0219 

REF 

1 

14,2457 

35242 

0 

STC ALL 

S IT  I ME 

0220 

REF 

3 

LAST 

787 

14,2460 

26406 

1 

LAT-LONG 

022  1 

14,2461 

7C545 

1 

DLOAD 

SRI 

0222 

REF 

3 

LAST 

326 

14,2462 

01122 

l 

LONG 

022  3 

REF 

3 

LAST 

329 

14,2463 

16711 

1 

STOOL 

LANDLONG 

0224 

REF 

3 

LAST 

326 

14,2464 

01124 

l 

ALT 

0223 

REF 

2 

LAST 

329 

14,2465 

16713 

0 

STODL 

LANDALT 

0226 

REF 

3 

LAST 

326 

14,2466 

01  120 

0 

LAT 

022  7 

REF 

3 

LAST 

329 

14,2467 

02707 

0 

STORE 

L ANOLAT 

0228 

14,2470 

77776 

1 

EXIT 

0229 

REF 

1 

14,2471 

3 2514 

0 

LSDI SP 

CAF 

V06N89* 

0230 

REF 

246 

LAST 

928 

14,2472 

0 4607 

1 

TC 

BANKCALL 

023  1 

REF 

28 

LAST 

927 

14,2473 

20471 

1 

CADR 

GOFLASH 

0232 

REF 

39 

LAST 

928 

14,2474 

1 6001 

1 

TCF 

GOTOPOOH 

0233 

14,2475 

1 2477 

0 

TCF 

+ 2 

0234 

REF 

1 

14,2476 

1 2471 

0 

TCF 

LSDI SP 

0235 

REF 

169 

LAST 

92  8 

14,2477 

0 6060 

1 

TC 

INTPRFT 

0236 

14,2500 

72545 

0 

DLOAD 

SL1 

0237 

REF 

4 

LAST 

930 

14,2501 

02711 

1 

LANDLONG 

0238 

REF 

4 

LAST 

930 

14,2502 

15  122 

1 

STODL 

LONG 

0239 

REF 

3 

LAST 

930 

14,2503 

02713 

0 

LANDALT 

0240 

REF 

4 

LAST 

930 

14,2504 

15124 

1 

STODL 

ALT 

024  l 

REF 

4 

LAST 

930 

14, 2505 

02707 

0 

L ANDLAT 

0242 

REF 

4 

LAST 

930 

14,2506 

15120 

0 

STODL 

LAT 

024  3 

REF 

2 

LAST 

930 

14,2507 

C 1242 

1 

SITIME 

0244 

14, 2510 

77624 

l 

CALL 

0245 

REF 

1 

14,2511 

26457 

0 

L ALOTORV 

0246 

14,2512 

77650 

1 

GOTO 

024  7 

REF 

3 

LAST 

930 

14,2513 

02746 

0 

QMAJ 

0248 

14,2514 

01531 

1 

VC6N89* 

VN 

689 
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STORE  TIME 


DISPLAY  LAT, LONG/2,  ALT 


V34-TERMINATE-EXIT  P57 

V33-PR0CEED-  ACCEPT  LS  DATA 

V 32  OR  E-  LOOK  AGAIN  AND/OP  LOAD  NEW  LS 


PICK  UP  TIME 

GET  RLS  BACK  FROM  LAT, LONG,  ALT 
RLS  B— 29  IN  MPAC  AND  ALPHAV 


GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 

!_■  P51-P53 


P0249 

R0250 

R0251 

R0252 

NAME  -S50  ALIAS  LCCSAM 
BY 

VINCENT 

FUNCTION  - COMPUTE  INPUTS  FOR  PICAPAR  AND  PLANET 

R 0263 

DEFINE 

R0254 

R0255 

R0256 

U = UNIT!  SUN  WRT  EARTH) 

ES 

R0257 

R0258 

U =UN I T ( MOON  WRT  EARTH) 

EM 

R0259 

R0260 

R =PQSIT ION  VECTOR  OF  LEM 

L 

R0  26  1 
R0262 

R =ME AN  DISTANCE  (334402KM)  BETWEEN  EARTH 

EM 

AND  MOON 

R0263 

P = R AT  I U R /(DISTANCE  SUN  TO  EARTH) 

>.00257125 

R0264  EM 

R0265  R =EQUATORIAL  RADIUSS  (6378.166KM)  OF  EARTH 

R0266  E 

R0267  LOCSAM  COMPUTES  IN  EARTH  INFLUENCE 

R0268 


R0269 

VSUN 

U 

R0270 

ES 

R0271 

VEARTH  = 

-UNI T ( R ) 

R0272 

L 

R0273 

VMOCN 

UNITIR  .U  - R ) 

R0274 

EM  EM  L 

R0275 

C SUN 

COS  90 

R0276 

CEARTH  = 

COS ( 5 + ARC S I N ( R /MAG 

R0277 

E 

R027  8 

CMCON 

CCS  5 

R 027  9 

R0280 

INPUT  - TIME 

IN  MP AC 

R0281 

OUTPUT  - LISTED  ABOVE 

R0282 

SUBROUTINES  - 

LSPOS, LEMPREC 

R0283 

DEBRIS  - VAC 

AREA  .TSIGHT 
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0284 

REF 

2 

LAST 

47  TO 

47  : 

8 

8* 

COUNT  * 

0285 

REF 

1 

14,2515 

S 50 

= 

0286 

14,2515 

77620 

0 

LOCSAM 

STQ 

0287 

REF 

4 

LAST 

264 

14, 2516 

02745 

0 

0288 

REF 

4 

LAST 

27  1 

14,2517 

37562 

1 

STC ALL 

0289 

REF 

1 

14,2520 

33646 

0 

0290 

14,2521 

77745 

1 

DLOAO 

0291 

REF 

5 

LAST 

932 

14,2522 

03562 

0 

0292 

REF 

47 

LAST 

839 

14,2523 

34041 

0 

STCALL 

0293 

REF 

10 

LAST 

839 

14,2524 

27115 

1 

0294 

14,2525 

61131 

0 

SSP 

0295 

REF 

10 

LAST 

724 

14,2526 

00052 

0 

0296 

14,2527 

00000 

1 

029  7 

REF 

1 

14,2530 

30552 

0 

0298 

14,2531 

74375 

0 

EARTCNTR 

VLOAO 

0299 

REF 

3 

LAST 

502 

14,2532 

02723 

0 

0300 

REF 

I 

14,2533 

3000 1 

0 

0301 

14,2534 

52372 

0 

VSL  1 

030  2 

REF 

26 

LAST 

840 

14,2535 

OCOOl 

0 

0303 

14,2536 

77656 

1 

UN  I T 

0304 

REF 

4 

LAST 

932 

14,2537 

26723 

0 

STOVL 

030  5 

REF 

27 

LAST 

932 

14,2540 

00001 

0 

0306 

14,2541 

57456 

1 

UNIT 

030  7 

REF 

3 

LAST 

128 

14,2542 

16707 

0 

STOOL 

0308 

REF 

1 

14,2543 

30005 

1 

0309 

14,2544 

77624 

1 

CALL 

0310 

REF 

l 

14,2545 

30604 

0 

031  1 

REF 

1 

14,2546 

14017 

1 

STOOL 

0312 

REF 

l 

14,2547 

30613 

0 

0313 

REF 

1 

14,2550 

34023 

l 

STCALL 

0314 

REF 

1 

14,2551 

30577 

1 

0315 

14,2552 

74375 

0 

MOONCNTR 

VLOAD 

0316 

REF 

5 

LAST 

932 

14,2553 

02723 

0 

031  7 

REF 

1 

14,2554 

30007 

0 

0318 

14,2555 

53445 

l 

B VS  U 

0319 

REF 

2 

LAST 

128 

14,2556 

02715 

0 

0320 

REF 

3 

LAST 

932 

14,2557 

26715 

0 

STOVL 

032  1 

REF 

6 

LAST 

932 

14,2560 

02723 

0 

0322 

14,7561 

53361 

0 

VXSC 

0323 

REF 

2 

LAST 

932 

14,2562 

30001 

0 

0324 

REF 

28 

LAST 

932 

14,2563 

OCOOl 

0 

0325 

14,2564 

57456 

1 

UNIT 

0326 

REF 

4 

LAST 

932 

14,2565 

26707 

0 

STOVL 

032  7 

REF 

29 

LAST 

932 

14,2566 

00001 

0 

0328 

14,2567 

57456 

1 

UNIT 

0329 

REF 

7 

LAST 

932 

14,2570 

16723 

0 

STOOL 

0330 

REF 

1 

14,2571 

30003 

1 

0331 

14,2572 

77624 

1 

CALL 

0332 

REF 

2 

LAST 

932 

14,2573 

30604 

0 

l L 1 2— 1 61 


$$/LOSAM 

LOCSAM 

QMIN 

TSIGHT 

LSPOS 

TSIGHT 
TDECL 
LEMPREC 
T IX, 2 

S 2 
0 

MCONCNTR 

vxsc 

V MOON 
RSUBEM 
VSU 
RATT 

V MOON 
RATT 
VCOMP 
VEARTH 
RSUBE 

OCCOS 

CEARTH 

CSS5 

C MOON 

ENDSAM 

VXSC 

V MOON 
ROE 
UNIT 

V SUN 

V SUN 

V MOON 
VAD 

RSUBEM 

RATT 

VCOMP 

VEARTH 

RATT 

VCOMP 

V MOON 
RSU8M 


OCCOS 


17:11  MAR.  19 
USER' 


, 1971 

LEMP50S 

.130  PAGE 

S PAGE 

NO.  10 
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932 
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P51- 

P 53 

0333 

REF 

2 

LAST 

932 

14,2574 

14023 

0 

STOOL 

C MOON 

0334 

REF 

2 

LAST 

932 

14, 2575 

3C613 

0 

CSSS 

033  5 

REF 

2 

LAST 

932 

14,2576 

00017 

1 

STORE 

CEARTH 

0336 

14,2577 

77745 

1 

ENDSAM 

DLOAD 

0337 

REF 

1 

14,2600 

30615 

0 

CSSUN 

0338 

REF 

1 

14,2601 

00021 

1 

STORE 

C SUN 

033  9 

14,2602 

77650 

1 

GOTO 

0340 

REF 

5 

LAST 

932 

14,2603 

02745 

0 

QMIN 

0341 

14,2604 

70471 

1 

occos 

DDV 

SRI 

0342 

14,2605 

00045 

0 

36D 

0343 

14,2606 

43336 

0 

ASIN 

DAD 

0344 

REF 

1 

14,2607 

30617 

1 

5 DEGREES 

0345 

14, 2610 

7C546 

1 

COS 

SRI 

0346 

14,2611 

77616 

0 

RVQ 

034  7 

0016 

CEARTH 

= 

14D 

034  8 

0020 

C SUN 

= 

1 60 

0349 

0022 

CMOUN 

= 

130 

0350 

14,2612 

C 7 760 

1 

CSS5 

2DEC 

. 2490475 

0350 

14,2613 

14473 

1 

035  1 

14,2614 

04000 

0 

CSSUN 

2DEC 

. 125 

0351 

14,2615 

COOOO 

1 

0352 

14,2616 

00343 

0 

5DEGREES 

2DEC 

.013888389 

035  2 

14, 2617 

21616 

0 

17:11  MAR.  19,1971  LEMP50S  .130  PAGE  933 
USER' S PAGE  NO.  11  E5  S3 


(COS  51/4 
(C0S60)/4 

SCALED  IN  REVS 


GAP: 

L 

P0353 

R0354 

R0355 

R0356 

R0357 

R0358 

R0359 

R0360 

R0361 

R0362 

R0363 

R0364 

KO  365 

R0366 

K0367 

R0368 

R0369 

R0370 

R037  1 

R037  2 

R0373 

R0374 

R 0 3 7 5 

R0376 

R0377 

R037  8 

R0379 

R0380 

R0381 

R0382 

R0383 

R0384 

R0385 

R0386 

R0387 

R 9 3 8 8 

R0389 

0390 

039  1 

0392 

039  3 

039  A 

0395 

0396 

039  7 

0398 

0399 

0400 

0 AO  l 

0A0  2 
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LEMP50S 


PAGE  93A 


P51-P53 


17: 11  MAR.  19,1971 


.130 


USFR'S  PAGE  NO.  12 


E5  S3 


PROGRAM  NAME  - R56 
MOD  1 

BY  KEN  VINCENT 


CATE  DEC  20  66 
LOG  SECTION  P51-P53 
ASSEMBLY  SUNDISK  REVAO 


FUNCTION 

THIS  PROGRAM  READ  THE  IMU-CDUS  AND  COMPUTES  THE  VEHICLE  ORIENTATION 
WITH  RESPECT  TO  INERTIAL  SPACE.  IT  THEN  COMPUTES  THE  SHAFT  AXIS  (SAX) 
WITH  RESPECT  TO  REFERENCE  INERTIAL.  EACH  STAR  IN  THE  CATALOG  IS  TESTED 
TO  DETERMINE  IF  IT  IS  OCCULTED  BY  EITHER  THE  EARTH, SUN  OR  MOON.  IF  A 
STAR  IS  NOT  OCCULTED  THEN  IT  IS  PAIRED  WITH  ALL  STAR  OF  LOWER  INDEX. 
THE  PAIRED  STAR  IS  TESTED  FOR  OCCUL T A T I ON . PAIRS  OF  STARS  THAT  PASS 
THE  OCCULT  AT  ION  TESTS  ARE  TESTED  FOR  GOOD  SEPARATION. A PAIR  OF  STARS 
HAVE  OrOO  SEPERAT  ION  IF  THE  ANGLE  BETWEEN  THEM  IS  LESS  THAN  100  DEGREES 
AND  MORE  THAN  50  DEGREES.  THOSE  PAIRS  WITH  GOOD  SEPARATION 

THEA  TESTED  TO  SEE  IT  THEY  LIE  IN  CURRENT  FIELD  OF  VIFw. (WITHIN 
50  DEC-PEESOF  SAX). THE  PAIR  WITH  MAX  SEPARATION  IS  CHOSEN  FROM 
THCSE  WITH  GOOD  S EP AR AT  ION , AN D IN  FIELD  OF  VIEW. 

CALLING  SEQUENCE 
L TC  BANKCALL 

L+l  CADR  R 56 

L+2  ERROR  RETURN  - NO  STARS  IN  FIELD  OF  VIEW 

L+3  NORMAL  RETURN 

OUTPUT 

BESTI »BESTJ  -SINGLE  PREC , I NT EGERS , ST AR  NUMBERS  TIMES  6 
VFLAG  - FLAG  BIT  SET  IMPLIES  NO  STARS  IN  FIELD  OF  VIEW 

INITIALIZATION 

DA  CALL  TO  LOCSAM  MUST  BE  MADE 

DEBRIS 
WORK  AREA 
X , Y , ZNB 
S I NCDU , COSCDU 


STARAD  - 

STAR 

+ 5 

REF 

1 

14,2620 

R 56 

= 

P ICAPAR 

REF 

1 

COUNT  * 

t S/R56 

REF 

11 

LAST 

743 

14,2620 

0 4636 

0 

P ICAPAR 

TC 

MAKECADR 

REF 

6 

LAST 

933 

14,2621 

55' 745 

1 

TS 

QMIN 

REF 

170 

LAST 

930 

14, 2622 

0 6C60 

1 

TC 

1NTPRET 

14, 2623 

45014 

0 

SET 

CALL 

REF 

1 

14,2624 

01465 

1 

VFLAG 

REF 

A 

LAST 

564 

14,2625 

47522 

1 

CDUTRIG 

14,2626 

77624 

l 

CAL  L 

REF- 

1 

14,2627 

20030 

0 

CALCSMSC 

14,2630 

71201 

1 

SETPD 

DLOAD 

14,2631 

OCOOl 

0 

0 

REF 

1 

14,2632 

24007 

0 

DPZERO 

gap:  assemble  REVISION  210  0 


L 

P 51- 

P 53 

0404 

REF  ' 

5 

LAST 

924 

0405 

0406 

REF 

3 

LAST 

393 

040  7 

REF 

1 

040  8 

REF 

3 

LAST 

386 

0409 

0410 
041  1 

0412 

0413 

REF 

2 

LAST 

935 

0414 

REF 

43 

LAST 

928 

0415 

REF 

1 

0416 

0417 

0418 

REF 

7 

LAST 

615 

0419 

0420 

0421 

REF 

11 

LAST 

932 

042  2 

REF 

1 

0423 
042  4 

REF 

1 

0425 

REF 

1 

0426 

REF 

2 

LAST 

935 

042  7 
042  8 

REF 

1 

0429 

REF 

1 

043  0 
043  1 
0432 

REF 

25 

LAST 

893 

0433 

REF 

1 

0434 
043  5 

REF 

2 

LAST 

935 

0436 

REF 

2 

LAST 

935 

0437 
043  8 

REF 

3 

LAST 

935 

0439 

REF 

2 

LAST 

935 

0440 

REF 

1 

0441 
044  2 

REF 

3 

LAST 

935 

0443 

0444 

REF 

4 

LAST 

935 

0445 

REF 

1 

044  6 
044  7 

REF 

2 

LAST 

935 

044  8 

REF 

5 

LAST 

935 

0449 

REF 

1 

0450 

0451 

REF 

1 

045  2 
045  3' 

REF 

3 

LAST 

935 

A GC  PROGRAM  LUMINARY  BY 


2633 

26756 

1 

2634 

02665 

0 

2635 

63361 

0 

2636 

24005 

1 

2637 

02  701 

0 

2 640 

74370 

0 

2641 

0C344 

1 

2642 

24005 

1 

2643 

77655 

1 

2 644 

53505 

1 

2645 

01732 

0 

2646 

02731 

0 

2647 

66331 

0 

2650 

00051 

0 

2651 

00006 

1 

2652 

00052 

0 

2653 

00006 

1 

2654 

52100 

1 

PIC1 

2655 

30657 

0 

2656 

3 C 7 74 

0 

2657 

50373 

0 

P IC2 

2660 

30347 

1 

2661 

02731 

0 

2662 

5CC25 

0 

2663 

30  7 73 

1 

2664 

3C654 

0 

2665 

77754 

1 

2666 

00C46 

0 

2667 

52104 

0 

P IC3 

2670 

3C672 

1 

2671 

30654 

0 

2672 

50373 

0 

P IC4 

2673 

47430 

0 

2674 

02731 

0 

2675 

50025 

0 

2676 

3C773 

1 

2677 

30667 

0 

2700 

47773 

1 

2701 

30347 

1 

2702 

47430 

0 

2703 

51025 

1 

2704 

3C771 

0 

2705 

30667 

0 

2706 

45173 

0 

2707 

30347 

1 

2710 

30746 

1 

2711 

77614 

1 

2712 

C 1 7 10 

0 

2713 

30654 

0 

2714 

45173 

0 

IF  , 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14: 

14. 

14 

14: 

14 

14. 

14. 

14 

14 

14 

14: 

14 

14 

14 

14 

14 

14 


NASA  202 

STOVL 

VXSC 

AXT  , 1 

VAD 

VXM 

STORE 

SSP 

T I X » 1 

VLOAD* 

DSU 

LXA,2 
T I X » 2 

VLOAD* 

DSU 

VLOAD* 

DSU 

VL0AD4 

BON 

VLOAD* 


1 12-161 
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LEMP50S  .130 


PAGE  935 


USER'S  PAGE  NO.  13 


E5  S3 


BEST  I 

XNB 

PDVL 

HALFDP 

ZNB 

VXSC 

228D  XI  = 37  X 6 +6 

HALFDP 

UNIT 

R EFSMMAT 

SAX  SAX  = SHAFT  AXIS 

SSP  S 1 =S2  = 6 

51 
6 

52 
6 

GOTO  MAJOR  STAR 

PIC2 
P ICEND 
DOT 

CATLOG, 1 
SAX 
BMN 
CSS33 
P IC1 

XI 

GOTO 
P IC4 
P IC1 
DOT 

CATLOG, 2 

SAX 

BMN 

CSS33 

PIC3 

DOT  * 

CATLOG, 1 
CATLOG, 2 
B PL 
CSS40 
P IC3 
CALL 

CATLOG, 1 
OCCULT 

CULTFLAG 
P IC1 
CALL 


GAP: 


ASSEMBLE  REVISION  210  CE  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


P51- 

P 53 

0454 

REF 

6 

LAST 

935 

14, 

0455 

REF 

2 

LAST 

935 

14, 

0456 

14, 

045  7 

REE 

2 

LAST 

935 

14, 

0458 

REF 

3 

LAST 

935 

14, 

0459 

14, 

0460 

REF 

2 

LAST 

934 

14, 

0461 

REF 

1 

14, 

0462 

14, 

0463 

REF 

6 

LAST 

935 

14, 

0464 

REF 

3 

LAST 

209 

14, 

0465 

14, 

0466 

REF 

7 

LAST 

936 

14, 

0467 

REF 

8 

LAST 

936 

14, 

046  8 

14, 

0469 

REF 

3 

LAST 

936 

14, 

0470 

REF 

1 

14, 

0471 

14, 

0472 

14, 

0473 

REF 

4 

LAST 

93  6 

14, 

0474 

14, 

0475 

REF 

7 

LAST 

936 

14, 

0476 

REF 

4 

LAST 

936 

14, 

0477 

14, 

0478 

REF 

5 

LAST 

936 

14, 

0479 

14, 

0480 

KEF 

l 

14, 

048  1 

REF 

1 

14, 

0482 

14, 

0483 

REF 

1 

14, 

0484 

14, 

0485 

REF 

2 

LAST 

936 

14, 

0486 

REF 

361 

LAST 

917 

14, 

0487 

14, 

048  8 

REF 

3 

LAST 

936 

14, 

0489 

REF 

362 

LAST 

936 

14, 

0490 

14, 

049  1 

REF 

4 

LAST 

936 

14, 

049  2 

REF 

3 

LAST 

936 

14, 

0493 

REF 

4 

LAST 

713 

14, 

0494 

14, 

049  5 

REF 

4 

LAST 

936 

14, 

0496 

REF 

5 

LAST 

936 

14, 

049  7 

REF 

3 

LAST 

933 

049  8 

14, 

0498 

14, 

0499 

14, 

049  9 

14, 

0500 

14, 

0501 

REF 

4 

LAST 

936 

14, 

47430 

0 

CATLOG, 2 

30746 

1 

OCCULT 

77614 

1 

BON 

01  710 

0 

CULTFLAG 

30667 

0 

P IC3 

776  14 

l 

STRATGY 

BONCLR 

01605 

0 

VFLAG 

30741 

0 

NEWPAR 

65  120 

1 

XCHX, 1 

XCHX, 2 

02755 

l 

BESTI 

02756 

1 

BEST  J 

4 7773 

1 

STRAT 

VLOAD* 

DOT* 

30347 

1 

CATLOG, 1 

47430 

0 

CATLOG, 2 

43006 

0 

PUSH 

BOFINV 

01545 

1 

VFLAG 

30725 

1 

STRAT  -3 

45345 

1 

DLOAD 

DSU 

77644 

1 

BPL 

30667 

0 

PIC3 

67130 

1 

NEWP AR 

SXA  , 1 

SXA,  2 

02755 

1 

BEST  I 

02756 

1 

BEST  J 

77650 

1 

GOTO 

30667 

0 

P IC3 

51321 

0 

OCCULT 

MX  V 

BVSU 

02707 

0 

CULTR  IX 

00017 

1 

CSS 

77654 

0 

BZE 

30765 

0 

CULTEO 

75240 

0 

BMN 

S IGN 

3C765 

0 

CULTED 

CO  160 

0 

MPAC  +3 

75240 

0 

BMN 

S IGN 

30765 

0 

CULTED 

00162 

1 

MPAC  +5 

43040 

1 

BMN 

CLRGO 

30765 

0 

CULTED 

C 1 630 

0 

CULTFLAG 

00052 

0 

QPRET 

77614 

l 

CULTEO 

SETGO 

01430 

1 

CULTFLAG 

00052 

0 

QPRET 

CSS 

= 

CEARTH 

05110 

1 

CSS40 

2DEC 

. 16070 

35052 

0 

05  110 

1 

CSS33 

2DEC 

. 16070 

35052 

0 

77414 

0 

P ICEND 

80  FF 

EXIT 

01745 

0 

VFLAG 

,2715 

2716 

,2717 

,2  720 

,2721 

,2722 

,2723 

,2724 

, 2725 

,2726 

,2727 

,2730 

,2731 

,2732 

2 733 

2734 

2735 

, 2736 

2737 

2 740 

2 741 

2742 

2743 

2 744 

2745 

2 746 

2747 

2750 

2751 

2752 

2753 

2754 

2755 

2756 

2757 

2760 

2761 

2762 

2 763 

2 764 

2765 

2 766 

2767 

0016 

2770 

2 771 

2772 

2773 

2 7 74 

2775 
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.130 


USER'S  PAGE  NO.  14 
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COS  50  / 4 


COS  50  / 4 


GAP: 
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L P51-P53 


0502 

REF 

1 

14,2776 

31000 

0 

P ICGXT 

0503 

REF 

1 

14,2777 

0 3021 

1 

TC 

P ICBXT 

0504 

14,3000 

73  150 

1 

P ICGXT 

LXA  , l 

LXA, 2 

0505 

REF 

8 

LAST 

936 

14,3001 

02755 

1 

BEST  I 

0506 

REF 

5 

LAST 

936 

14,3002 

02756 

1 

BESTJ 

0507 

14,3003 

47  7 75 

1 

VLOAD 

DOT* 

050  8 

REF 

4 

LAST 

935 

14, 3004 

02731 

0 

SAX 

0509 

REF 

9 

LAST 

936 

14,3005 

30347 

1 

CATLOG, 1 

0510 

14,3006 

47715 

1 

PDVL 

DOT* 

051  1 

REF 

5 

LAST 

937 

14,3007 

C2731 

0 

SAX 

0512 

REF 

10 

LAST 

937 

14,3010 

47430 

0 

CATLOG, 2 

0513 

14,3011 

77625 

0 

DSU 

0514 

14,3012 

66C44 

1 

BPL 

SXA,  1 

0515 

REF 

1 

14,3013 

31017 

0 

P ICNSWP 

0516 

REF 

6 

LAST 

93  7 

14,3014 

02756 

1 

BESTJ 

0517 

14,3015 

77734 

1 

SXA  ,2 

0518 

REF 

9 

LAST 

937 

14,3016 

02755 

1 

BEST  I 

0519 

14, 3017 

77776 

1 

P ICN  SV»P 

FXIT 

0520 

REF 

7 

LAST 

934 

14,3020 

25 ' 745 

0 

INCR 

QMIN 

0521 

REF 

8 

LAST 

937 

14,3021 

3 1745 

0 

P ICBXT 

CA 

QMIN 

0522 

REF 

3 

LAST 

506 

14,3022 

0 4613 

1 

TC 

SWCALL 

0523 

0000 

VPO 

- 

OD 

0524 

0006 

VO 

- 

6 D 

0525 

0014 

VI 

= 

1 2D 

0526 

0022 

V 2 

= 

1 3D 

0527 

0030 

V 3 

= 

2 4D 

0528 

0036 

DPO 

= 

30D 

0529 

0040 

DPI 

= 

32D 

17:11  MAR . 19, 

1971 
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L P51-P53 


P0530 

NAME 

- P 5 1 

FINE  ALIGN 

R053  1 

FUNCT ICN 

-TO  ALIGN  THE  STABLE 

MEMBER 

TO 

REFSMMAT 

R0532 

CALLING 

SEQ- 

CALL  R51 

R0533 

INPUT  - 

REFSMMAT 

R0534 

OUTPUT- 

GYRO 

TORQUE 

PULSES 

R0535 

SUBROUTINES  - 

LOCSAM, 

P I CAP  AR , 1 

<52  » R 53 , 

R54 

, R 55 

0536 

REF 

1 

COUNT  * 

t $/R5  1 

0537 

14,3023 

77620 

0 

R 5 1 

STQ 

0538 

REF 

4 

LAST 

930 

14,3024 

02746 

0 

QMAJ 

0539 

14, 3025 

77776 

l 

R 5 l . 1 

EXIT 

0540 

REF 

61 

LAST 

925 

14,3026 

0 5355 

1 

TC 

P HASCHNG 

054  1 

14,3027 

C4  024 

0 

OCT 

04024 

0542 

REF 

88 

LAST 

894 

14,3030 

0 5520 

0 

R51C 

TC 

OOWNF  LAG 

0542  1 

REF 

5 

LAST 

266 

14,3031 

00222 

0 

ADRES 

FLT59FLG 

05422 

REF 

2 

LAST 

139 

14, 3032 

3 4752 

0 

CAF 

OCT  1 5 

0543 

REF 

247 

LAST 

930 

14,3033 

0 4607 

1 

TC 

BANKCALL 

0544 

REF 

6 

LAST 

928 

14,3034 

2C635 

0 

CAOR 

G0PERF1 

0545 

REF 

40 

LAST 

930 

14, 3035 

0 6001 

0 

TC 

GOTOPOOH 

0546 

REF 

1 

14,3036 

0 3046 

0 

TC 

DOSAM 

054  7 

REF 

41 

LAST 

823 

14,3037 

4 4737 

1 

CS 

BIT6 

054  7 1 

REF 

3 6 3 

LAST 

936 

14,3040 

7 C 154 

0 

MASK 

M P AC 

05472 

REF 

269 

LAST 

926 

14,3041 

10  000 

0 

CCS 

A 

05473 

REF 

1 

14,3042 

1 3071 

0 

TCF 

R51E 

05474 

REF 

67 

LAST 

893 

14,3043 

0 5506 

1 

TC 

UPFLAG 

05475 

REF 

6 

LAST 

938 

14,3044 

0C222 

0 

ADRES 

FLT59FLG 

05476 

REF 

2 

LAST 

938 

14, 3045 

l 3071 

0 

TCF 

R51E 

0548 

REF 

17  1 

LAST 

934 

14, 3046 

0 6060 

1 

DOSAM 

TC 

I NTPRET 

0549 

14,3047 

43234 

0 

RTB 

DAD 

0550 

REF 

27 

LAST 

853 

14,3050 

21603 

1 

LOADTIME 

0551 

REF 

l 

14,3051 

31173 

0 

TSIGHT1 

0552 

14,3052 

77624 

1 

CALL 

0 55  3 

REF 

2 

LAST 

932 

14,3053 

30515 

0 

LOCSAM 

0554 

14,3054 

77776 

1 

EXIT 

0555 

REF 

248 

LAST 

938 

14,3055 

C 4607 

1 

TC 

BANKCALL 

0556 

REF 

1 

14,3056 

30620 

0 

CADR 

R 56 

0557 

REF 

L 

14,3057 

0 3C6 1 

0 

TC 

R51  I 

0558 

REF 

3 

LAST 

938 

14,3060 

0 3071 

1 

R 5 IF 

TC 

R51E 

0559 

REF 

36 

LAST 

921 

14,3061 

0 55  71 

1 

R51I 

TC 

ALARM 

0560 

14,3062 

00405 

0 

OCT 

405 

0561 

REF 

1 

14,3063 

3 4 777 

1 

CAF 

VB05N09 

0562 

REF 

249 

LAST 

938 

14,3064 

0 4607 

1 

TC 

BANKCALL 

0563 

REF 

29 

LAST 

930 

14, 3065 

2 0471 

1 

CADR 

GOFLASH 

0564 

REF 

41 

LAST 

938 

14,3066 

0 6001 

0 

TC 

GOTOPOOH 

0565 

REF 

4 

LAST 

938 

14, 3067 

0 3071 

1 

TC 

R 5 1 E 

0566 

REF 

1 

14, 3070 

0 3030 

1 

TC 

R51C 

0567 

REF 

184 

LAST 

521 

14,3071 

3 4 746 

0 

R51E 

CAF 

ZERO 

0568 

REF 

3 

LAST 

741 

14,3072 

55' 757 

1 

TS 

STARIND 

PAGE  938 
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.130 

E 5 S3 


ENTER 

V32-SET  FLT59FLG 


ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY 


GAP: 

L P51-P53 


0569 

REF 

172 

LAST 

938 

14, 3073 

0 6060 

1 

R5  1. 

0570 

.14,  3074 

77776 

1 

R 5 1 . 

0571 

REF 

82 

LAST 

938 

14,3075 

0 5355 

1 

0572 

14,3076 

04024 

0 

0573 

REF 

173 

LAST 

939 

14,3077 

0 6060 

1 

0574 

14,3100 

77624 

1 

0575 

REF 

1 

14,3101 

31603 

0 

0576 

14,3102 

77776 

1 

0577 

REF 

250 

LAST 

938 

14,3103 

0 4607 

1 

0578 

REF 

1 

14,3104 

16000 

0 

0579 

REF 

251 

LAST 

939 

14,3105 

0 4607 

1 

0580 

REF 

1 

14,3106 

17731 

1 

0581 

REF 

1 

14,3107 

0 5705 

0 

0582 

REF 

4 

LAST 

938 

14,3110 

11* 757 

1 

0583 

14,3111 

1 3113 

0 

0584 

REF 

1 

14,3112 

0 3156 

0 

0590 

REF 

83 

LAST 

939 

14,3113 

0 5355 

1 

0591 

14,3114 

04024 

0 

0592 

REF 

1 74 

LAST 

939 

14,3115 

0 6060 

1 

0593 

14,3116 

45145 

0 

059  4 

REF 

6 

LAST 

932 

14,3117 

03562 

0 

0595 

REF 

2 

LAST 

259 

14, 3120 

16607 

1 

0596 

14, 3121 

53521 

1 

0597 

REF 

44 

LAST 

935 

14,3122 

01732 

0 

0598 

REF 

12 

LAST 

329 

14,3123 

26715 

0 

0599 

REF 

2 

LAST 

151 

14,3124 

03554 

0 

0600 

14,3125 

53521 

1 

060  1 

REF 

45 

LAST 

939 

14,3126 

01732 

0 

0602 

REF 

13 

LAST 

939 

14, 3127 

26707 

0 

0603 

REF 

3 

LAST 

209 

14,3130 

02761 

0 

0604 

14,3131 

24007 

0 

0605 

REF 

6 

LAST 

267 

14,3132 

02767 

0 

0606 

14,3 133 

34015 

1 

0607 

REF 

1 

14,3134 

31265 

1 

060  8 

14,3135 

45014 

0 

0609 

REF 

3 

LAST 

262 

14,3  136 

0C354 

0 

0610 

REF 

1 

14,3137 

3 1 145 

0 

061 1 

REF 

1 

14,3140 

47424 

0 

0612 

14,3141 

77624 

1 

0613 

REF 

1 

14,3142 

31234 

0 

0614 

14,3143 

77614 

1 

0615 

REF 

3 

LAST 

927 

14,3 144 

01273 

0 

0616 

14,3145 

77776 

l 

R 5 IK 

0617 

REF 

2 

LAST 

191 

14,3  146 

3 5745 

1 

R51P 

0618 

REF 

252 

LAST 

939 

14,3147 

0 4607 

1 

0619 

REF 

7 

LAST 

938 

14,3  150 

20635 

0 

0620 

REF 

42 

LAST 

938 

14,3151 

C 6001 

0 

062  1 

REF 

2 

LAST 

938 

14,3152 

0 3C30 

1 

NASA  20211 12-L61  17:11  MAR.  19,1971  LEMP50S  .130  PAGE  939 

USER'S  PAGE  NO.  17  E5  S3 

TC  INTPRET 

EXIT 

TC  PHASCHNG 

OCT  04024 

TC  INTPRET 

CALL 

R 52  AOP  WILL  MAKE  CALLS  TO  SIGHTING 

EXIT 


TC 

BANKCALL 

CADR 

AOTMARK 

TC 

BANKCALL 

CADR 

OPTSTALL 

TC 

CURTAINS 

CCS 

STAR IND 

TCF 

+ 2 

TC 

R51 .4 

TC 

PHASCHNG 

OCT 

04024 

TC 

INTPRET 

DLOAD 

CALL 

TSIGHT 

PLANET 

MX  V 

UNIT 

REFSMMAT 

STOVL 

STARAD  +6 
PLANVEC 

MX  V 

UNIT 

REFSMMAT 

STOVL 

STARAD 

STARSAV1 

STOVL 

6D 

S TARSAV2 

STCALL 

1 2D 

R 54 

STAR 

DATA  TEST 

BOFF 

CALL 

FREEFLAG 
R 5 IK 
AXISGEN 

CALL 

R55 

GYRO 

TORQUE 

CLEAR 

PFRATFLG 

EXIT 

CAF 

OCT  14 

TC 

BANKCALL 

CADR 

G0PERF1 

TC 

GCTOPOOH 

TC 

R51C 

GAP:  ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  8Y  NASA  20211  12-L61 


P51- 

P53 

062  2 

REF 

175 

LAST 

939 

14,  3 

062  3 

14,3 

0624 

REF 

5 

LAST 

938 

14,3 

062  5 

REF 

176 

LAST 

940 

14,3 

062  6 

14,3 

0627 

REF 

7 

LAST 

939 

14,3 

0628 

REF 

4 

LAST 

939 

14,3 

0629 

14,3 

0630 

REF 

7 

LAST 

939 

14,3 

0631 

REF 

3 

LAST 

939 

14,  3 

0632 

REF 

3 

LAST 

939 

14,3 

063  3 

14,3 

0634 

REF 

5 

LAST 

939 

14,3 

0635 

14,3 

0636 

REF 

1 

14,3 

063  8 

14,  3 

0638 

14,3 

0 6060 

1 

TC 

INTPRET 

77650 

1 

GOTO 

02  746 

0 

QMAJ 

C 6060 

1 

R 5 1 . 4 

TC 

I NTPRFT 

77775 

1 

VLOAD 

02767 

0 

STARSAV2 

02761 

0 

STORE 

STARSAVl 

45  145 

0 

DLOAO 

CALL 

C 3 562 

0 

T SIGHT 

16607 

1 

PLANET 

03554 

0 

STORE 

PLANVEC 

52131 

0 

SSP 

GOTO 

C2760 

1 

STAR  I ND 

00001 

0 

1 

31074 

0 

P51.3 

00002 

0 

TSIGHT1 

2DEC 

36000 

06240 

1 

153 

1 5 A 

155 

156 

157 

160 

161 

162 

163 

164 

165 

166 

167 

170 

171 

172 

l 73 
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940 


6 MIN  TO 


MARKING 
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P0639 

GYRO  TORQUE  COARSE 

ALIGNMENT 

0640 

14,3174 

45020 

1 

GYCOARS 

STQ 

CALL 

064  1 

REF 

6 

LAST 

940 

14,3175 

02746 

0 

QMAJ 

0642 

REF 

1 

14,3176 

47232 

1 

CALCGTA 

0643 

14,3177 

43014 

0 

1 

C CLEA&. 

— CLEAR 

0644 

REF 

2 

LAST 

867 

14,3200 

C 1260 

1 

v — \ 

^DRIFTFLG  J 

0645 

REF 

3 

LAST 

927 

14,3201 

01662 

1 

REFSMFLG 

0646 

14,3202 

77776 

1 

EXIT 

0647 

REF 

1 

14,3203 

3 3233 

0 

CAF 

V16N20 

064  8 

REF 

253 

LAST 

939 

14,3204 

0 4607 

1 

TC 

BANKCALL 

0649 

REF 

2 

LAST 

512 

14,3205 

2 0444 

1 

CADR 

GODSPR 

0650 

REF 

1 

14,3206 

3 3264 

1 

CA 

R55CDR 

0651 

REF 

2 54 

LAST 

94  1 

14,3207 

0 4607 

1 

TC 

BANKCALL 

0652 

REF 

4 

LAST 

400 

14,3210 

17310 

0 

CADR 

I MUPULSE 

0653 

REF 

255 

LAST 

941 

14,3211 

0 4607 

1 

TC 

BANKCALL 

0654 

REF 

8 

LAST 

390 

14,3212 

17735 

0 

CADR 

I MUSTALL 

0655 

REF 

2 

LAST 

939 

14,3213 

0 5705 

0 

TC  ■ 

CURTAINS 

0656 

REF 

84 

LAST 

939 

14,3214 

0 5355 

1 

TC 

PHASCHNG 

065  7 

14,3215 

04024 

0 

OCT 

04024 

0658 

REF 

177 

LAST 

940 

14, 3216 

0 6060 

1 

TC 

INTPRFT 

0659 

14, 3217 

75160 

1 

AXC  , 1 

AXC,  2 

0660 

REF 

7 

LAST 

929 

14,3220 

03606 

1 

X SMD 

0661 

REF 

46 

LAST 

939 

14,3221 

01731 

0 

REFSMMAT 

0662 

14,3222 

77624 

1 

CALL 

0663 

REF 

1 

14,3223 

26374 

0 

MATMOVE 

0664 

14,3224 

43014 

0 

CLEAR 

SET 

0665 

REF 

4 

LAST 

939 

14,3225 

01273 

0 

P FRATFLG 

0666 

REF 

4 

LAST 

941 

14,3226 

01462 

0 

REFSMFLG 

0667 

14,3227 

77624 

1 

CALL 

066  8 

REF 

1 

14,3230 

31566 

0 

NCOARSE 

0669 

14,3231 

77650 

1 

GOTO 

0670 

REF 

2 

LAST 

939 

14,3232 

31145 

0 

R 5 IK 

0671 

14,3233 

04C24 

0 

V16N20 

VN 

1620 

17:11  MAR.  19,1971  LFMP50S  .130  PAGE 
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MONITOR  GIMBALS 


STORF  DESIRED  REFSMMAT 


SET  DRIFT  AND  INITIALIZE  1/PIPADT 


GAP: 


ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  2021H2-L61 


L P51-P53 

P0672  R55  GYRO  TOROUE 

R0673  FUNCT  ICN-COMPUTE  AND  SEND  GYRO  PULSES 

R067A  CALLING  SEU~  CALL  R55 

R0675  INPUT-  X » Y , Z DC—  REFSMMAT  WRT  PRESENT  STABLE  MEMBER 
R0676  OUTPUT-  GYRO  PULSES 

P.  0677  SUBROUTINES-  C AL  CGT  A , GOF  L AS  h , GOOSPR  , IMUF  INE,  I MUPULS  E , GOPE  R F L . 


0678 

REF 

1 

COUNT* 

$$/R55 

0679 

1A, 323A 

A5020 

1 

R55 

STQ 

CALL 

0680 

REF 

9 

LAST 

937 

1 A , 3235 

027A5 

0 

QMIN 

0681 

REF 

2 

LAST 

9A1 

LA, 3236 

A7232 

1 

CALCGTA 

0683 

1A, 3237 

77776 

1 

PULSEM 

EXIT 

068  A 

REF 

1 

1 A , 32 AO 

3 3263 

0 

R55.  1 

CAF 

V06N93 

0688 

REF 

256 

l AST 

9 A 1 

1 A,  3 2 A 1 

0 A607 

1 

TC 

BANKCALL 

0686 

REF 

30 

LAST 

938 

1 A , 3 2 A2 

20A71 

1 

CAOR 

GOFLASH 

068  7 

REF 

A3 

LAST 

939 

1A, 32A3 

0 6 CO  1 

0 

TC 

GOTOPOOH 

0688 

REF 

1 

1A.32AA 

0 32A6 

1 

TC 

R55.2 

0689 

REF 

1 

1A.32A5 

0 3260 

0 

TC 

R55RET 

0690 

REF 

85 

LAST 

9A1 

1 A,  3 2 A6 

0 5355 

1 

R55. 2 

TC 

P HASCHNG 

0691 

1A.32A7 

0C21A 

0 

OCT 

002 1 A 

0692 

REF 

2 

LAST 

9A  1 

1A , 3250 

3 326A 

1 

CA 

R55CDR 

069  3 

REF 

257 

LAST 

9A2 

l A,  3 2 5 1 

0 A607 

1 

TC 

BANKCALL 

069  A 

REF 

5 

LAST 

9A  1 

1 A, 3252 

L 7 3 10 

0 

CADR 

IMUPULSE 

0695 

REF 

258 

LAST 

9A2 

1A, 3253 

C A60 7 

1 

TC 

BANKCALL 

0696 

REF 

9 

LAST 

9 A I 

LA, 325A 

1 7735 

0 

CAOR 

1 MUSTALL 

0697 

REF 

3 

LAST 

9A1 

LA, 3255 

0 5705 

0 

TC 

CURTA  INS 

069  8 

REF 

86 

LAST 

9A2 

LA, 3256 

0 5355 

1 

TC 

PHASCHNG 

0699 

LA, 3257 

0A02A 

0 

OCT 

0A02A 

0700 

REF 

178 

LAST 

9A1 

1A, 3260 

0 6060 

1 

R55RET 

TC 

I NTPRET 

0701 

LA, 3261 

77650 

1 

GOTO 

0702 

REF 

10 

LAST 

9A2 

1A.3262 

027A5 

0 

OMIN 

0703 

1 A , 3 263 

01535 

0 

VC6N93 

VN 

0693 

070A 

REF 

12 

LAST 

AOO 

1A.326A 

C2737 

0 

R55CDR 

ECADR 

OGC 

0705 

REF 

1 

1A, 3265 

P.5  A 

= 

CHKSDAT  A 

L7: LI  MAR.  19 
USER  ' 
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LFMP50S 

.130  PAGE 

USER'S  PAGE 

NO.  21 

E5  S3 

P0706  CHKSC  AT  A 


R0725 

R0726 

R0727 

R0729 

R0731 


THE  ANGULAR  DIFFERENCE  IS  DISPLAYED  FOR  ASTRONAUT  ACCEPTENCE 
EXIT  MCOE  1.  FREEFLAG  SET  IMPLIES  ASTRONAUT  WANTS  TC  PROCEED 

2.  FREEFLAG  RESET  IMPLIES  ASTRONAUT  WANTS  TO  RECYCLE  ERANCE) 

OUTPUT  - l.VERB  6, NOUN  3-  DISPLAYS  ANGULAR  DIFFERENCE  BETWEEN  2 SETS  OF  STARS. 
2. STAR  VECTORS  FROM  STAR  CATALOG  ARE  LEFT  IN  6D  AND  12D. 


DATE-  JAN  9,  1967 


R0732 


ERASABLE  INITIALIZATION  REQUIRED  - 


R0733  1 .MARK  VECTORS  ARE  STORED  IN  STARAD  AND  STARAD  +6. 

R0734  2. CATALOG  VECTORS  ARE  STORED  IN  6D  AND  1 2D . 

R0735  DEBRIS  - 


0 73  6 

REF 

1 

COUNT* 

$ $/R  54 

0737 

14,3265 

50375 

0 

CHKSDATA 

VLOAD 

DOT 

0738 

REF 

14 

LAST 

939 

14, 3266 

C2707 

0 

STARAD 

1ST  CATALOG  STAR 

0739 

REF 

15 

LAST 

943 

14,3267 

02715 

0 

STARAD  +6 

2ND  CATALOG  STAR 

0740 

14,3270 

65552 

0 

SL1 

ACOS 

0741 

REF 

1 

14,  32  71 

24  C 2 5 

0 

STOVL 

THETA 

0742 

14,3272 

0CC07 

0 

6 

1ST  OBSERVED  STAR 

0743 

14,3273 

72441 

0 

DOT 

SL1 

0744 

14,3274 

00  C 1 5 

0 

1 2D 

2ND  OBSERVED  STAR 

0745 

14,3275 

45326 

1 

ACOS 

DSU 

0746 

REF 

2 

LAST 

943 

14,3276 

00C25 

0 

THETA 

0747 

14,3277 

77634 

0 

RTB 

0748 

REF 

3 

LAST 

885 

14,3300 

21622 

1 

SGNAGREE 

0749 

REF 

1 

14,3301 

01045 

1 

STORE 

N0RMTEM1 

OBSERVED  DIF  - CATALOG  DIF 

0750 

14,3302 

77414 

0 

SET 

EXIT 

075  1 

REF 

4 

LAST 

939 

14,3303 

0CC74 

1 

FREEFLAG 

0752 

REF 

1 

14,3304 

3 3315 

0 

CAF 

VB6N5 

0753 

REF 

259 

LAST 

94  2 

14,3305 

0 4607 

1 

TC 

8ANKCALL 

0754 

REF 

31 

LAST 

942 

14,3306 

20471 

1 

CADR 

GOFLASH 

0755 

REF 

44 

LAST 

942 

14,3307 

0 6001 

0 

TC 

GOTOPOOH 

V34 

0756 

REF 

1 

14,3310 

1 3313 

1 

TCF 

CHKOUT 

V33-PR0CEED 

075  7 

REF 

89 

LAST 

938 

14,3311 

0 5520 

0 

TC 

DOWNFLAG 

V32-R  EJECT  DATA-CLEAR  FLAG 

0758 

REF 

5 

LAST 

943 

14,3312 

00014 

1 

ADRES 

FREEFLAG 

0759 

REF 

179 

LAST 

94  2 

14, 3313 

0 6060 

1 

CHKOUT 

TC 

I NTPRET 

0760 

14,3314 

77616 

0 

RVQ 

0778 

14,3315 

C 1405 

1 

VB6N5 

VN 

605 

943 


GAP 
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1 


L P51-P53 

P0779  CAL53A 

R0780  FUNCTION  -COMPUTE  DESIRED  GIMeAL  ANGLES  AND  COARSE  ALIGN  IF  NECESSARY 
R0781  CALLING  SEQUENCE  - CALL  CAL53A 

R0782  INPUT  - X,Y,ZSMD  ,CDLX,Y,Z 

R0783  DESIRED  GIMBAL  ANGLES  - rHETAD,+l,+2 

R0784  OUTPUT  - THE  IMU  COORDINATES  ARE  STORED  IN  REFSMMAT 


R0785 

SUBROUT INES  - 

S52.2, 

IMUCOARSE 

: , IMUFI 

NE 

0786 

REF 

1 

COUNT* 

i $ / R 5 0 

0787 

14,3316 

77624 

l 

CAL53A 

CALL 

0788 

REF 

2 

LAST 

927 

14,3317 

42707 

1 

S52.2 

0789 

14, 3320 

66234 

1 

RTB 

SSP 

0790 

REF 

1 

14,332  1 

31370 

1 

RDCDUS 

079  l 

REF 

8 

L AST 

935 

14,3322 

CCC51 

0 

SI 

0792 

14,3323 

OOCOl 

0 

1 

0793 

14,3324 

40370 

1 

AXT  , 1 

SETPD 

0794 

14, 3325 

CC003 

1 

3 

0795 

14,3326 

C0C05 

1 

4 

0796 

14,3327 

7C543 

1 

CALOOP 

DLOAD* 

SRI 

0797 

REF 

14 

LAST 

390 

14,3330 

C0325 

0 

THETAD  +3D , 1 

0798 

14,3331 

7C523 

l 

POOL* 

SRI 

0799 

14,3332 

00005 

1 

4 , 1 

0800 

14,3333 

51425 

0 

DSU 

ABS 

080  1 

14,3334 

45206 

1 

PUSH 

DSU 

0802 

REF 

1 

14,3335 

31367 

1 

DEGRFE1 

0803 

14,3336 

71240 

1 

BMN 

DLOAD 

0804 

REF 

1 

14,3337 

31355 

0 

CAL00P1 

0805 

14,3340 

51025 

1 

DSU 

B PL 

0806 

REF 

I 

14,3341 

31370 

1 

DEG359 

0807 

REF 

2 

LAST 

944 

14,3342 

31355 

0 

CAL00P1 

0808 

14,3343 

77776 

1 

EXIT 

0809 

REF 

87 

LAST 

94  2 

14,3344 

0 5355 

1 

TC 

P HASCHNG 

0810 

14,3345 

C4024 

0 

OCT 

04024 

081  1 

REF 

18C 

LAST 

943 

14,3346 

0 6060 

1 

T.C 

INTPRET 

0812 

14,3347 

77624 

1 

COARFINE 

CALL 

0813 

REF 

1 

14,3350 

31542 

0 

COARSE 

0814 

1 4 , 3 35  L 

77624 

1 

CALL 

0815 

REF 

2 

LAST 

94  1 

14,3352 

31566 

0 

NCOARSE 

0816 

14,3353 

77650 

1 

GOTO 

0817 

REF 

1 

14,3354 

31357 

l 

F INEONLY 

0818 

14,3355 

77700 

0 

CALOnPl 

T I X , 1 

0819 

REF 

I 

14,3356 

31327 

0 

CALOOP 

0820 

14,3357 

75160 

1 

F INEONLY 

AXC  , 1 

AXC, 2 

082  l 

REF 

17 

LAST 

930 

14,3360 

02642 

0 

XSM 

0822 

REF 

47 

LAST 

941 

14,3361 

01731 

0 

REFSMMAT 

0823 

14,3362 

77624 

1 

CALL 

0824 

REF 

2 

LAST 

941 

14,3363 

26374 

0 

MATMOVE 

0825 

14,3364 

77650 

l 

GOTO 

0326 

REF 

l 

14,3365 

32316 

1 

COARSRET 

0837 

14,3366 

00056 

1 

DEGREE! 

DEC 

46 
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0838 

14,3367 

37722 

1 

DEG35S 

DEC 

16338 

083  9 

14,3370 

0 0004 

0 

RDCDUS 

INHINT 

0840 

REF 

15 

LAST 

908 

14,3371 

3 0032 

0 

CA 

COUX 

0841 

REF 

37 

LAST 

918 

14, 3372 

50  120 

1 

INDEX 

F IXLOC 

0842 

14,3373 

54  001 

1 

TS 

1 

0843 

REF 

9 

LAST 

908 

14,3374 

3 0C33 

1 

CA 

CDUY 

0844 

REF 

38 

LAST 

945 

14,3375 

50  120 

l 

INDEX 

F IXLOC 

0845 

14, 3376 

54  002 

1 

TS 

2 

0846 

REF 

12 

LAST 

908 

14,3377 

3 0C34 

0 

CA 

CDUZ 

084  7 

REF 

39 

LAST 

945 

14, 3400 

50  120 

1 

INOEX 

F IXLOC 

0 84  8 

14,3401 

54  003 

0 

TS 

3 

0849 

14,3402 

0 0003 

1 

RELINT 

0850 

REF 

2 

LAST 

827 

14,3403 

0 6102 

1 

TC 

DANZIG 

085  I 

REF 

1 

COUNT  * 

i $ / I NFL T 
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L 

P0852 

R0853 

R0855 

R0857 

R0858 

R0860 

R0862 

R0864 

R0  86  5 

R0866 

R0867 

R0868 

R0869 

R0870 

R0871 

R0872 

R0873 

R0874 

R0875 

R0876 

R0877 

RQ87B 

R0879 

R0880 

R088  1 

R0882 

R0  88  3 
R0884 

R0885 

R0886 

R0887 

R0888 

R0889 

R0890 

0891 


P51-P53  USER'S  PAGE  NO.  24  E5  S3 

NAME  - P51  - IMU  ORIENTATION  DETERMINATION 
MOD. NO. 1 23  JAN  67 

MOO  BY  STURLAUGSON 

FUNCT  ICNAL  DESCR  IPT  ICN 

DETERMINES  THE  INERTIAL  ORIENTATION  OF  THE  IMU.  THE  PROGRAM  IS  SELECTED  BY  DSKY  ENTRY.  THE  SIGHTING 
( AOTM ARK ) ROUT INE  IS  CALLtD  TO  COLLECT  AND  PROCESS  MARKED-STAR  DATA.  A0TMARMR53)  RETURNS  THF  STAR  NUMBER  ANT)  THE 
STAR  LCS  VECTOR  IN  S T ARAD  4-6 ■ TWO  STARS  ARE  THUS  SIGHTED.  THE  ANGLE  BETWEEN  THE  TWO  STARS  IS  THEN  CHECKED  AT 
CHKSE A T A ( R 54) . REFSMMAT  IS  THEN  COMPUTED  AT  AXISGEN. 

CALLING  SEQUENCE 

THE  PROGRAM  IS  CALLED  BY  THF  ASTRONAUT  BY  DSKY  ENTRY. 

SUBROUTINES  CALLED. 

G0PERF3 
GOPERF  1 
C-ODSPR 
I MLCOARS 
IMUF  IN20 
AC  T MARK  I R 5 3 ) 

CHKSDAT A I R54  ) 

MKRELEAS 

AXISGEN 

MATMOVE 

ALARMS 

NONE. 

ERASABLE  INITIALIZATION 

IMU  ZERO  FLAG  SHOULD  BE  SET. 

OUTPUT 

REFSMMAT 

PEFSMFLG 

DE8RIS 

WORK  AREA 
STARAD 
STAR  IND 
BEST  I 
PESTJ 


LOG  SECT  ION  - P51-P53 
ASSEMBLY  SUNDANCE  REV56 


REF 


1 


COUNT*  i S/P5 l 


GAP 


ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY 


L 

P51 

-P  5 3 

0892 

REF 

260 

LAST 

089  3 

REF 

, l 

0894 

REF 

3 

LAST 

0898 

REF 

261 

LAST 

0896 

RFF 

8 

LAST 

089  7 

REF 

45 

LAST 

089  8 

PEF 

1 

0899 

090C 

REF 

88 

LAST 

090  1 

REF 

185 

LAST 

U90  2 

REF 

15 

LAST 

0903 

REF 

16 

LAST 

0904 

REF 

17 

LAST 

090  5 

REF 

3 

LAST 

090  6 

REF 

262 

LAST 

0907 

REF 

3 

LAST 

0908 

REF 

1 

>'>'  •• 

REF 

263 

LAST 

0910 

REF 

4 

LASI 

091  1 
0912 

REF 

iei 

LAST 

0913 

0914 

REF 

2 

LAST 

091  5 
0916 

REF 

89 

LAST 

091  7 

REF 

2 

LAST 

0918 

0919 

REF 

90 

LAST 

0920 

0921 

REF 

182 

LAST 

0922 
092  3 

REF 

3 

LAST 

0924 

0925 

0926 
092  7 

REF 

6 

LAST 

092  8 
0929 

REF 

SI 

LAST 

0930 

REF 

264 

LAST 

0931 

RFF 

2 

LAST 

0932 

REF 

265 

LAST 

0933 

REF 

1 

0934 

REF 

4 

LAST 

093  5 

REF 

7 

LAST 

0936 

REF 

I 

0937 

REF 

183 

LAST 

943 

14,3404 

0 4607 

1 

14, 3405 

33634 

0 

938 

14,3406 

3 4752 

0 

94  7 . 

14,3407 

C 4607 

1 

939 

14,3410 

2C635 

0 

94  3 

14,3411 

0 6001 

0 

14, 3412 

l 3436 

l 

944 

14,3413 

0 5355 

1 

14,3414 

C4024 

0 

938 

14,3415 

3 4 746 

0 

944 

14,3416 

54  321 

0 

94  7 

14,3417 

54  322 

0 

94  7 

14,3420 

54  323 

1 

927 

14,3421 

3 5001 

0 

947 

14,3422 

C 4607 

1 

752 

14,3423 

20441 

l 

14,3424 

3 3541 

1 

947 

14,3425 

0 4607 

1 

94  7 

14,3426 

20441 

1 

944 

14,3427 

0 6C60 

1 

14,3430 

77624 

1 

94  4 

14,3431 

31542 

0 

14,3432 

77776 

1 

947 

14,3433 

0 5355 

l 

14,3434 

04024 

0 

245 

14,3435 

l 3406 

1 

94  7 

14,3436 

0 5355 

1 

14,3437 

00014 

l 

947 

14,3440 

0 6060 

1 

14,3441 

77624 

1 

944 

14, 3442 

31566 

0 

14,3443 

40331 

1 

94  0 

14,3444 

C2760 

1 

14,3445 

coooo 

1 

14,3446 

00001 

0 

14,3447 

77  7 76 

l 

94  7 

14,3450 

0 5355 

1 

14,3451 

04024 

0 

94  7 

14,3452 

0 4607 

I 

939 

14,3453 

16000 

0 

94  7 

14,3454 

C 4607 

1 

14,3455 

17  73  1 

1 

94  2 

14,3456 

C 5 705 

0 

94  7 

14,3457 

11*757 

1 

14,3460 

1 3466 

1 

94  7 

14,3461 

0 6C60 

1 

P51 


P51B 


P51C 
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TC 

BANKCALL 

IS  ISS  ON  - IF  NOT,  I MUCHK  WILL  SEND 

CADR 

I MUCHK 

ALARM  CODE  210  AND  EXIT  VIA  GOTOPOOH. 

CAF 

OCT  1 5 

TC 

BANKCALL 

CADR 

G0PERF1 

TC 

GOTOPOOH 

TERM. 

TCF 

P51B 

V 33 

TC 

PHASCHNG 

OCT 

04024 

CAF 

ZERO 

TS 

THETAD 

ZERO  THE  GIMBALS 

TS 

THETAD  +1 

TS 

THETAD  +2 

CAF 

V06N22 

TC 

BANKCALL 

CAOR 

GODSPRET 

CAF 

V41K 

NOW  DISPLAY  COARSF  ALIGN  VERB  41 

TC 

BANKCALL 

CADR 

GODSPRET 

TC 

I NTPRET 

CALL 

COARSE 

EXIT 

TC 

PHASCHNG 

OCT 

04024 

TCF 

P 51  F2 

TC 

PHASCHNG 

OCT 

00014 

TC 

I NTPRET 

CALL 

NCOARSE 

SSP 

SETPD 

STARIND 

0 

0 

INDEX-STAR  1 OR  2 

EXIT 

TC 

PHASCHNG 

OCT 

04024 

TC 

BANKCALL 

CADR 

AOTMARK 

R 53 

TC 

BANKCALL 

CADR 

AOTST  ALL 

TC 

CURTAINS 

CCS 

STARIND 

TCF 

P51D  +1 

TC 

INTPRET 

GAP: 
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093  8 

14,3462 

77775 

1 

0939 

REF 

8 

LAST 

940 

14,3463 

02767 

0 

0940 

REF 

5 

LAST 

940 

14,3464 

02761 

0 

0941 

14,3465 

77776 

1 

P 5 ID 

094  2 

REF 

92 

LAST 

94  7 

14,3466 

0 5355 

l 

0943 

14,3467 

04024 

0 

0944 

REF 

8 

LAST 

947 

14,3470 

1 L ' 757 

l 

094  5 

REF 

1 

14,3471 

1 3505 

0 

0946 

REF 

93 

LAST 

948 

14,3472 

0 5355 

1 

094  7 

14,3473 

04024 

0 

0948 

REF 

164 

LAST 

947 

14,3474 

0 6060 

1 

0949 

14, 3475 

45145 

0 

0950 

REF 

8 

LAST 

940 

14,3476 

03562 

0 

0951 

REF 

4 

LAST 

940 

14, 3477 

16607 

1 

0952 

REF 

4 

LAST 

940 

14,3500 

03554 

0 

0953 

14,3501 

77776 

1 

0954 

REF 

46 

LAST 

925 

14,3502 

3 4744 

1 

0955 

REF 

9 

LAST 

94  8 

14,3503 

55' 757 

1 

0956 

REF 

1 

14,3504 

1 3450 

1 

0957 

REF 

94 

LAST 

94  8 

14,3505 

0 5355 

1 

P51E 

0958 

14,3506 

04024 

0 

0959 

REF 

I es 

LAST 

948 

14,3507 

0 6060 

1 

0960 

14, 3510 

45145 

0 

0961 

REF 

9 

LAST 

948 

14,3511 

03562 

0 

0962 

REF 

5 

LAST 

94  8 

14, 3512 

16607 

1 

096  3 

14,3513 

24015 

0 

0964 

REF 

5 

LAST 

948 

14,3514 

03554 

0 

0965 

14,3515 

24007 

0 

0966 

REF 

6 

LAST 

948 

14,3516 

02761 

0 

0967 

REF 

16 

LAST 

943 

14,3517 

26707 

0 

0968 

REF 

9 

LAST 

94  8 

14,3520 

02767 

0 

0969 

REF 

17 

LAST 

94  8 

14,3521 

36715 

1 

0970 

REF  ■ 

2 

LAST 

942 

14,3522 

31265 

1 

0971 

14,3523 

774  14 

0 

0972 

REF 

6 

LAST 

943 

14,3524 

CC314 

1 

0973 

REF 

1 

14,3525 

31527 

0 

0974 

REF 

3 

LAST 

947 

14,3526 

C 3406 

0 

0975 

14,3527 

77624 

1 

P51G 

0976 

REF 

2 

LAST 

939 

14,3530 

47424 

0 

0977 

14, 3531 

75  160 

1 

097  8 

REF 

4 

LAST 

928 

14,3532 

02664 

1 

0979 

REF 

48 

LAST 

944 

14,3533 

OL  731 

0 

0980 

14,3534 

77624 

1 

098  1 

REF 

3 

LAST 

944 

14,3535 

26374 

0 

0982 

14,3536 

77414 

0 

0983 

REF 

5 

LAST 

941 

14,3537 

01462 

0 

0984 

REF 

4 fc 

LAST 

947 

14,3540 

0 6001 

0 

NASA  2021112-161 
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NO.  26 

E 5 S3 

VLOAD 

STARSAV2 

STORE 

EXIT 

S TAR  S A VI 

TC 

PHASCHNG 

OCT 

04024 

CCS 

STAR IND 

TCF 

P51E 

TC 

PHASCHNG 

OCT 

04024 

TC 

I NTPRET 

DLOAO 

CALL 

TSIGHT 

PLANET 

STORE 
EX  I T 

PLANVEC 

CAF 

B I T 1 

TS 

STAR IND 

TCF 

P 5 1C  +1 

TC 

PHASCHNG 

OCT 

04024 

TC 

I NTPRET 

DLOAO 

CALL 

TSIGHT 

PLANET 

STOVL 

1 2D 

PLANVEC 

STOVL 

6D 

STARSAV1 

STOVL 

STARAD 
STAR  S AV2 

STC ALL 

STARAD  +6 
CHKSDAT  A 

BON 

EXIT 

FREEFLAG 

P51G 

TC 

CALL 

P 5 1 +2 
AXISGEN 

AXC  , 1 
CALL 

AXC,  2 
XDC 

REFSMMAT 

MATMOVE 

SET 

EXIT 

R EFSMFLG 

TC 

GOTOPOOH 

DO  SECOND  STAR 


CHECK  STAR  ANGLES  IN  STAPAD  AMD 


COME  BACK  WITH  REFSMMAT  IN  XDC 


FINIS 


948 


GAP: 

L 

098  5 

0986 

0987 

0988 

0989 

0990 

0991 

0992 

0993 

0994 

0995 

0996 

099  7 

099  8 

0999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1 ' 1 

101  1 

1012 

1013 

1014 

1015 

1016 

101  7 

1018 
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14,3541 

12200 

0 

V41K 

VN 

4100 

14, 3542 

7 7776 

1 

COARSE 

EXIT 

PEF 

5 

LAST 

286 

14,3543 

3 1301 

1 

+ 1 

CA 

MODECADR 

14,3544 

0 C006 

l 

EXTEND 

REF 

1 

14,3545 

1 3552 

1 

6ZF 

DOCORS 

REF 

16 

LAST 

816 

14,3546 

3 4770 

0 

CAF 

1 SEC 

REF 

266 

LAST 

947 

14,3547 

0 4607 

1 

TC 

BANKCALL 

REF 

16 

LAST 

752 

14, 3550 

01736 

l 

CAOR 

DELAY JOB 

REF 

3 

LAST 

947 

14,3551 

1 3543 

1 

TCF 

COARSE  +1 

REF 

267 

LAST 

949 

14,3552 

C 4607 

1 

OOCORS 

TC 

BANKCALL 

REF 

4 

LAST 

390 

14, 3553 

16765 

1 

CADR 

I MUCOARS 

REF 

268 

LAST 

949 

14,3554 

C 4607 

1 

TC 

BANKCALL 

REF 

10 

LAST 

942 

14, 3555 

17  735 

0 

CADR 

I MUSTALL 

REF 

5 

LAST 

947 

14,3556 

C 5705 

0 

TC 

CURTAINS 

REF 

269 

LAST 

949 

14,3557 

C 4607 

1 

TC 

BANKCALL 

REF 

3 

LAST 

390 

14,3560 

17175 

1 

CADR 

I MUF INE 

REF 

27C 

LAST 

949 

14,3561 

0 4607 

1 

TC 

BANKCALL 

REF 

1 1 

LAST 

949 

14,3562 

1 7735 

0 

CAOR 

I MUSTALL 

REF 

6 

LAST 

949 

14,3563 

0 5705 

0 

TC 

CURTAINS 

REF 

186 

LAST 

94  8 

1 4 » 3564 

0 6060 

1 

TC 

I NTPRET 

14,3565 

776  16 

0 

RVQ 

14,3566 

77776 

1 

NCOARSE 

EXIT 

REF 

22 

LAST 

896 

14,3567 

3 0025 

0 

CA 

T I ME  1 

REF 

9 

LAST 

867 

14, 3570 

55 ' 074 

1 

TS 

l/PIPADT 

REF 

166 

LAST 

947 

14,3571 

4 4 746 

1 

CS 

ZERO 

REF 

16 

LAST 

896 

14, 3572 

54  037 

1 

TS 

PIPAX 

REF 

7 

LAST 

896 

14,3573 

54  040 

1 

TS 

PI  PAY 

REF 

10 

LAST 

896 

1 4 f 3 5 7 4 

54  041 

0 

TS 

P IPAZ 

REF 

187 

LAST 

949 

14,3575 

0 6C60 

1 

TC 

I NTPRET 

14,3576 

77775 

1 

VLOAD 

REF 

3 

LAST 

690 

14,3577 

24007 

0 

ZEROVFC 

REF 

24 

LAST 

395 

14,3600 

01472 

1 

-SJORE 

GCOMP 

14,3601 

43414 

1 

. set\. 

RVQ 

REF 

3 

LAST 

941 

14,3602 

01C60 

0 

DRI FTFLG 
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SEE  IF  IMU  DEVICE  IS  IN  USE. 
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P 1019 

NAME- 

S 52 

.2 

P 1020 

FUNCT  ION 

-COMPUTE  GIMBAL  ANGLES  FOR  DESIRED  SM  ANO  PRESENT  VEHICLE 

R 1 02  1 

CALL- 

CALL 

S52.2 

R 102  2 

INPUT 

- X 

, Y.2SMD 

R 102  3 

OUTPUT- 

OGC , IGC.MGC, 

rTHETAD, +1 

, + 2 

R1024 

SUBRCLT INES-CDUTR IG, 

iCALCSMSC, 

MATMOVE , 

r C ALC  G A 

1 U2  4 1 

REF 

1 

21,2000 

SETLOC 

P50S3 

10242 

21,2707 

BANK 

1025 

REF 

1 

COUNT* 

S i/S  52.  1 

1026 

2 1 , 2 70  7 

45020 

1 

S52.2  STO 

CALL 

1027 

REF 

7 

LAST 

941 

21,2710 

02746 

0 

QMAJ 

102  8 

REF 

5 

LAST 

934 

21,2711 

47522 

1 

CDUTRIG 

1029 

21,271 2 

77624 

1 

CALL 

L030 

REF 

2 

LAST 

934 

21,2713 

20C30 

0 

C ALCSMSC 

103  1 

21,2714 

66370 

0 

AXT  , 1 

SSP 

1032 

21,2715 

0GC22 

1 

180 

103  3 

REF 

9 

LAST 

94  4 

21,2716 

00051 

0 

S l 

1034 

21,2717 

00006 

1 

6D 

103  5 

21 ,2  720 

61373 

1 

S52.2A  VLOAD* 

VXM 

1036 

REF 

4 

LAST 

935 

21,2721 

02707 

0 

XNB  + 1 8D , 1 

1037 

REF 

49 

LAST 

948 

21,2722 

01732 

0 

R EFSMMAT 

1 ' 

21,2723 

77656 

1 

UNIT 

1039 

REF 

5 

LAST 

950 

21,2724 

C6707 

1 

STORE 

XNB  +180, 1 

1040 

21,2725 

77700 

0 

T I X , 1 

1 i 

REF 

I 

21,2726 

42720 

1 

S52.2A 

1042 

21,2  727 

75160 

l 

S52.2.1  AXC , 1 

AXC,  2 

1043 

REF 

8 

LAST 

941 

21 ,2  730 

03606 

1 

X SMD 

1044 

REF 

18 

LAST 

944 

21,2731 

02642 

0 

X SM 

104  5 

21,2732 

77624 

1 

CALL 

1046 

REF 

4 

LAST 

948 

21,2733 

26374 

0 

MATMOVE 

1047 

21 ,2734 

77624 

1 

CALL 

1048 

REF 

2 

LAST 

386 

21,2735 

47336 

1 

CALCGA 

1049 

21,2736 

77650 

1 

GOTO 

1050 

REF 

8 

LAST 

950 

21,2737 

02746 

0 

QMAJ 
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P1051  NAME-S5  2.3 

R 1052  FUNCTION  XSMO=  UNIT  R 

R 1 05 3 YSMD=  UNIT1V  X R) 

R 1 054  ZSMD=  UNITIXSMD  X YSMD) 


R1055 

CALL 

OLD AO  CALL 

R 1056 

TAL  IGN 

R 105  7 

S52. 

3 

R 1 05  8 

INPUT 

- 

TIME 

OF  ALIGNMENT  IN 

R 1059 

OUTPUT- 

X ,Y, 

l SMO 

R1060 

SUBROUTINES- 

CSMCONIC 

106  l 

REF 

1 

1062 

21,2740 

1063 

REF 

9 

LAST 

950 

21,2741 

106  4 

REF 

48 

LAST 

93  2, 

21,2742 

1065 

REF 

5 

LAST 

609 

21,2743 

1066 

21,2744 

106  7 

REF 

30 

LAST 

932 

21,2745 

1068 

REF 

9 

LAST 

950 

21,2746 

1069 

REF 

22 

LAST 

840 

21,2747 

1070 

21,2750 

107  1 

REF 

31 

LAST 

951 

21,2751 

1072 

REF 

4 

LAST 

928 

21 ,2752 

1073 

REF 

10 

LAST 

95  1 

21, 2753 

1074 

21,2754 

1075 

REF 

5 

LAST 

95  1 

21,2755 

1076 

REF 

4 

LAST 

928 

2L.2756 

1077 

REF 

10 

LAST 

95  1 

21,2757 

MP  AC 


77620 

0 S52.3 

COUNT  * 
STO 

$$/S52.3 

02746 

0 

QMAJ 

34041 

0 

STCALL 

T DEC  1 

27136 

0 

LEMCONIC 

53575 

0 

VLOAO 

UNIT 

00C01 

0 

RATT 

27607 

0 

STnVL 

X SMO 

00007 

0 

VATT 

5 3 435 

0 

VXV 

UNIT 

OOCOl 

0 

RATT 

27615 

0 

STOVL 

Y SMO 

03607 

0 

X SMD 

53435 

0 

VXV 

UNIT 

03615 

0 

Y SMO 

37623 

1 

STCALL 

Z SMO 

02746 

0 

QMAJ 
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L 

P51- 

P53 

P 1 07  8 

NAME 

-R52  (AUTOMATIC  OPTICS 

POSITIONING  ROUTINE) 

R1079 

FUNCT  ION 

-POINT 

THE 

AOT  OPTIC  AXIS  BY 

MANEUVERING 

THE  LEM 

1 TO  A NAV 

R1080 

STAR 

SELECTED  BY  ALIGNMENT  PROGRAMS  OR 

DSKY  INPUT 

R1081 

CALLING 

-CALL 

R 52 

R1082 

INPUT 

-BESTI 

AND 

BEST  J (STAR 

CODES 

TIMES  6) 

R 1 0 8 3 

OUTPUT 

-STAR 

CODE 

IN  BITS1-6, 

DETENT 

CODE  IN  BITS  7-9 

R 108  A 

(NO  CHECK 

IS  MADE  TO 

INSURE 

THE 

DETENT 

CODE  TO  BE  VALID 

R1085 

POINT  VSM- 

1/2  UNIT  NAV 

STAR  VEC 

IN  SM 

R 1086 

SCAXIS-AOT  OPTIC  AXIS 

VEC  IN 

1 N8 

X-Z  PLANE 

R 108  7 

SU8RDUT 

-R60LEM 

1087  1 

REF 

5 

LAST 

930 

14,2000 

SETLOC 

P50S1 

10872 

14,3603 

BANK 

1088 

REF 

1 

COUNT* 

$ $/R52 

1089 

14,3603 

77420 

1 

R52 

STQ 

EXIT 

1091 

REF 

1 

14,3604 

03665 

1 

SAVQR52 

1091 

REF 

4 3 

LAST 

917 

14,3605 

3 4741 

1 

CAF 

B IT4 

1091  1 

REF 

8 

LAST 

851 

14,3606 

7 0105 

1 

MASK 

FLAGWR09 

10912 

14,3607 

0 0006 

1 

EXTEND 

1091  3 

REF 

1 

14,3610 

1 3613 

1 

BZF 

D0R52 

1091  A 

REF 

27  1 

LAST 

949 

14,3611 

0 4607 

1 

TC 

BANKCALL 

10915 

REF 

l 

14,3612 

32402 

0 

CADR 

R 59 

10916 

REF 

10 

LAST 

94  8 

14,3613 

51' 757 

0 

00R52 

INDEX 

STARIND 

1092 

REF 

10 

LAST 

937 

14,3614 

3 1755 

1 

CA 

BESTI 

1093 

14,3615 

0 0006 

1 

EXTEND 

1094 

REF 

1 

14,3616 

7 3712 

1 

MP 

1/6TH 

1095 

REF 

35 

LAST 

903 

14,3617 

6 4735 

1 

AD 

B I T 8 

1096 

REF 

1 

14,3620 

55' 235 

0 

TS 

STARCODE 

1097 

REF 

1 

14,3621 

3 3713 

1 

R52A 

CAF 

V01N70 

1098 

REF 

272 

LAST 

952 

14,3622 

0 4607 

1 

TC 

BANKCALL 

1099 

REF 

32 

LAST 

943 

14,3623 

20471 

1 

CADR 

GOFL ASH 

l loo 

REF 

47 

LAST 

948 

14,3624 

C 6001 

0 

TC 

GOTOPOOH 

1 101 

REF 

1 

14,3625 

1 3627 

0 

TCF 

R52B 

1 LO  2 

REF 

1 

14,3626 

1 3621 

0 

TC  F 

R52A 

1103 

REF 

90 

LAST 

943 

L4.3627 

0 5520 

0 

R52B 

TC 

DOWNFLAG 

1 104 

REF 

7 

LAST 

749 

14,3630 

0C124 

0 

ADRES 

3AX I SFLG 

1 105 

REF 

2 

LAST 

952 

14,3631 

3 1235 

1 

CA 

STARCODE 

1106 

REF 

3 

LAST 

686 

14,3632 

7 7765 

0 

MASK 

H IGH9 

1107 

14,3633 

0 0006 

1 

EXTEND 

1 108 

REF 

22 

LAST 

868 

14,3634 

7 4734 

l 

MP 

B I T9 

1109 

REF 

175 

LAST 

921 

14,3635 

54  001 

1 

TS 

L 
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i no 

14,3636 

0 0006 

1 

in  i 

REF 

1 

14,3637 

6 3655 

1 

1112 

REF 

2 

LAST 

257 

14,3640 

6 5652 

0 

1113 

14,3641 

0 0006 

1 

1114 

REF 

2 

LAST 

953 

14,3642 

1 3655 

0 

1115 

REF 

25 

LAST 

274 

E 7 , 1551 

1116 

REF 

15 

LAST 

891 

14, 3643 

3 5007 

0 

1117 

REF 

57 

LAST 

92  5 

14,3644 

54  003 

0 

1118 

REF 

176 

LAST 

952 

14,3645 

50  001 

0 

1119 

REF 

4 

LAST 

258 

14,3646 

3 1403 

l 

1120 

REF 

177 

LAST 

953 

14,3647 

54  001 

1 

1121 

REF 

19 

LAST 

950 

E5 ,1642 

1122 

RFF 

13 

LAST 

925 

14,3650 

3 5005 

1 

1123 

REF 

58 

LAST 

953 

14,365  1 

54  003 

0 

1 12  4 

REF 

33 

LAST 

838 

14,3652 

3 4730 

1 

1125 

REF 

178 

LAST 

953 

14,3653 

56  001 

0 

1 126 

REF 

1 

14,3654 

1 3665 

0 

112  7 

REF 

l 

14,3655 

3 3714 

0 

1128 

REF 

273 

LAST 

952 

14,3656 

C 4607 

1 

1129 

REF 

33 

LAST 

952 

14,3657 

2047  1 

1 

1130 

REF 

48 

LAST 

952 

14,3660 

0 6001 

0 

1131 

14, 3661 

1 3663 

0 

1 132 

REF 

3 

LAST 

953 

14, 36o2 

1 3655 

0 

1133 

14,3663 

0 0006 

l 

1134 

REF 

4 

LAST 

329 

14,3664 

3 1345 

l 

1135 

REF 

40 

LAST 

945 

14,3665 

50  120 

1 

1136 

14, 3666 

52  Oil 

0 

1137 

REF 

188 

LAST 

949 

14, 3667 

0 6060 

l 

1138 

14,3670 

77624 

1 

1139 

REF 

2 

LAST 

259 

14,3671 

1 0557 

1 

1 140 

14,367? 

45034 

1 

1141 

REF 

28 

LAST 

938 

14,3673 

21603 

1 

114  2 

REF 

6 

LAST 

94  8 

14, 3674 

16607 

1 

1143 

14,3675 

53521 

1 

1 144 

REF 

50 

LAST 

950 

14,3676 

01732 

0 

1 14  5 

REF 

9 

LAST 

784 

14,3677 

03773 

1 

1146 

14,3700 

77776 

1 

114  7 

REF 

274 

LAST 

953 

14,3701 

0 4607 

I 

114  8 

REF 

6 

LAST 

784 

14,3702 

54125 

0 

114  9 

REF 

4 

LAST 

952 

14,3703 

3 7765 

1 

1150 

REF 

3 

L AST 

952 

14, 3704 

7 1235 

0 

I 151 

14,3705 

0 0006 

1 

1152 

RFF 

2 

LAST 

952 

14,3  706 

1 3621 

0 

GETAZEL 


AZEL 
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EXTENO 

BZMF 

GETAZEL 

CODE  0,  COAS  CALIBRATION 

AD 

NEG7 

EXTFND 

BZF 

GETAZEL 

CODE  7,  COAS  SIGHTING 

EBANK= 

XYMARK 

CA 

EBANK7 

TS 

EBANK 

INDEX 

L 

CA 

AOTAZ  -1 

PICK  UP  AZ  CORRESPONDING  TO  DETENT 

TS 

L 

EBANK= 

XSM 

CA 

EBANK5 

CHANGE  TO  EBANK5  BUT  DONT  DISTURB  L 

TS 

EBANK 

CA 

8IT13 

SET  ELV  TO  45  DEG 

XCH 

L 

SET  C I A ) = A Z » C ( L ) =45  DEG 

TCF 

AZEL 

GO  COMP  OPTIC  AX  IS 

CAF 

V06N87 

CODE  0 OR  7,  GET  AZ  AND  EL  KEY  IN 

TC 

BANKCALL 

CADR 

GOFLASH 

TC 

GOTOPOOH 

V34-TERM INATF 

TCF 

+ 2 

PROCEED-CALC  OPTIC  AXIS 

TCF 

GETAZEL 

ENTER-RECYCLE 

EXTEND 

OCA 

AZ 

PICK  UP  AZ  AMD  EL  IN  SP  2S  COMP 

INDEX 

F IXLOC 

JAM  AZ  AND  EL  IN  8 AND  9 OF  VAC 

DXCH 

8D 

TC 

I NTPRET 

CALL 

GO  COMPUTE  OPTIC  AXIS  AND  STORF  IN 

0 ANB 

SC  AX  IS  IN  NB  COORDS 

RTB 

CALL 

MX  V 

LOADTIME 

PLANET 

UNIT 

STORE 

REFSMMAT 

POINTVSM 

STORF  FOR  VECPOINT 

EX  IT 

TC 

BANKCALL 

CADR 

R60LEM 

GO  TORQUE  LEM  OPTIC  AXIS  TO  STAR  LOS 

CAF 

HIGH  9 

IF  COAS  CALIBRATION  CODE  0,  RECYCLE 

MASK 

STARCODE 

EXTEND 

BZF 

R52  A 

953 
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1153 

REF 

189 

LAST 

953 

14,3707 

0 6060 

1 

TC 

INTPRET 

1154 

1 4 , 3 7 L 0 

77650 

1 

GOTO 

1 155 

REF 

2 

LAST 

952 

14,3711 

03665 

1 

SAVQR52 

1156 

14,3712 

05253 

0 

l /6TH 

DEC 

. 1666667 

1157 

14,3713 

CC306 

l 

V 0 IN  70 

VN 

0170 

1158 

14,3714 

01527 

0 

V06N87 

VN 

687 
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■P  1 1 5 9 LUNAR  SURFACE  STAR  AQUISITION 


1161 

REF 

3 

LAST 

924 

15,2000 

SETLOC 

P50S 

1162 

15,2402 

BANK 

1163 

REF 

2 

LAST 

261  TO 

265  : 

155  155* 

COUNT* 

$S/R59 

1164 

RFF 

9 

LAST 

386 

15,2402 

4 0077 

0 

R 59 

cs 

FLAGWRD3 

1165 

REF 

3 

LAST 

224 

15,2403 

7 4730 

0 

MASK 

REFSMBIT 

IF  REFSMMAT  FLAG  CLEAR  BYPASS  STAR  AQUIR 

1166 

REF 

27C 

LAST 

938 

15,2404 

10  COO 

0 

CCS 

A 

1167 

REF 

1 

15,2405 

1 2 5 74 

1 

TCF 

R590UT 

NO  REFSMMAT  GO  TO  AOT MARK 

1168 

REF 

1 

15,2406 

3 2606 

0 

CAF 

V01N70* 

SELECT  STAR  CODE  FOR  ACQUISITION 

1169 

REF 

275 

LAST 

953 

15,2407 

0 4607 

1 

TC 

BANKCALL 

1 170 

REF 

34 

LAST 

953 

15,2410 

20471 

1 

CADR 

GOFLASH 

1171 

REF 

49 

LAST 

953 

15,2411 

0 6001 

0 

TC 

GOTO POOH 

V34-T  ERM INATE 

1172 

REF 

1 

15,2412 

1 2414 

0 

TCF 

R 59  A 

V33-PR0CFED 

1173 

REF 

2 

LAST 

952 

15,2413 

1 2402 

1 

TCF 

R 59 

V32-R  ECYCL  F 

1174 

REF 

190 

LAST 

954 

15,2414 

0 6060 

1 

R59A 

TC 

INTPRET 

1175 

15,2415 

45034 

1 

RTB 

CALL 

1175  1 

REF 

29 

LAST 

953 

15,2416 

21603 

1 

LOADTIME 

1 176 

REF 

7 

LAST 

953 

15,2417 

16607 

l 

PLANET 

GO  GET  CFLESTR I AL  BODY  IN  REF  COORDS. 

1177 

15,2420 

53521 

1 

MX  V 

UNIT 

1178 

REF 

5 1 

LAST 

953 

15,2421 

01732 

0 

REFSMMAT 

TRANSFORM  TO  NB  COORDS. 

1179 

15,2422 

77624 

1 

CALL 

1180 

REF 

4 

LAST 

788 

15,2423 

47640 

0 

CDU*SMNB 

1195 

REF 

3 

LAST 

252 

15,2424 

02  731 

0 

STORE 

STAR 

TEMP  STORE  STAR  VEC(NB) 

1 196 

15,2425 

77776 

l 

EXIT 

1197 

REF 

47 

LAST 

948 

15,2426 

3 4 744 

1 

CAF 

BIT1 

INITIALIZE  AZ  POSITION  CODE  TO  1 (-60) 

1 198 

REF 

2 

LAST 

328 

15,2427 

54  734 

0 

TS 

P CISC  ODE 

1199 

REF 

26 

LAST 

953 

E7, 1551 

EBANK= 

XYMARK 

1200 

REF 

16 

LAST 

953 

15,2430 

3 5C07 

0 

I NCAZ 

CA 

E8ANK7 

120  1 

REF 

59 

LAST 

953 

15,2431 

54  003 

0 

TS 

EBANK 

1202 

REF 

3 

LAST 

955 

15,2432 

50  734 

1 

INDEX 

POSCODE 

1203 

REF 

5 

LAST 

953 

15,2433 

3 1403 

1 

CA 

AOTAZ  -l 

PICK  UP  AZ  CORRESPONDING  TO  POSCODE 

1204 

REF 

179 

LAST 

953 

15,2434 

54  001 

1 

TS 

L 

1205 

REF 

20 

LAST 

953 

E5 , 1642 

E8ANK= 

XSM 

1206 

REF 

14 

LAST 

953 

15, 2435 

3 5005 

l 

CA 

EBANK5 

1207 

REF 

60 

LAST 

955 

15,2436 

54  003 

0 

TS 

EBANK 

1208 

REF 

34 

LAST 

953 

15,2437 

3 4730 

1 

CA 

BIT13 

SET  ELV  TO  45  DEG 

1209 

REF 

180 

l AST 

955 

15,2440 

56  001 

0 

XCH 

L 

SET  C ( A ) = A Z , C ( L ) =45  DEG 

1210 

REF 

11 

LAST 

942 

15,2441 

55' 745 

1 

TS 

QMIN 

STORE  QM I N= AZ  FOR  LATER 

121  1 

REF 

41 

LAST 

953 

15,2442 

50  120 

l 

INDEX 

F IXLOC 

1212 

15,2443 

52  Oil 

0 

DXCH 

8D 

JAM  AZ  IN  80,  45  OEG  IN  9D  FOR  OANB 
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1213 

REF 

191 

LAST 

955 

121  A 

1215 

1216 

REF 

3 

LAST 

953 

1217 

REF 

A 

LAST 

955 

121  B 

1219 

1220 

REF 

2 A 

LAST 

784 

1221 
122  2 

REF 

1 

122  3 
122  A 

REF 

1 

1225 

1226 
1227 

REF 

1 

122  8 

REF 

1 

1229 

1230 
123  1 
1232 

REF 

2 

LAST 

263 

1233 

REF 

25 

LAST 

956 

123A 

1235 

1236 

REF 

3 

LAST 

38 

1237 

1238 

1239 

REF 

26 

LAST 

956 

12A0 

1241 

REE 

27 

LAST 

956 

1242 

1243 

1244 
12A5 
12A6 

REF 

5 

LAST 

956 

12A7 

1248 

1249 

REF 

1 

1250 

1251 

1252 

1253 

REF 

2 

LAST 

261 

1254 

1255 

1256 

1257 

1258 

REF 

12 

LAST 

955 

15,2444 

0 6060 

1 

15,2445 

77624 

1 

15,2446 

1C557 

l 

15,2447 

50375 

0 

15,2450 

02731 

0 

15,2451 

03765 

0 

15,2452 

65552 

0 

15,2453 

0003  1 

0 

15,2454 

51C25 

1 

15,2455 

32611 

0 

15,2456 

32533 

0 

15,2457 

45345 

1 

15,2460 

0C031 

0 

15,2461 

32613 

1 

15,2462 

71240 

1 

15,2463 

32552 

1 

15,2464 

00031 

0 

15,2465 

42405 

0 

15,2466 

23773 

0 

15,2467 

24031 

0 

15,2470 

03765 

0 

15,2471 

53435 

0 

15, 2472 

24005 

1 

15,2473 

47206 

0 

15,2474 

03765 

0 

15,2475 

77676 

0 

15,2476 

63256 

0 

15,2477 

03765 

0 

15,2500 

53435 

0 

15,2501 

02731 

0 

15,2502 

50206 

0 

15,2503 

00C01 

0 

15,2504 

65552 

0 

15,2505 

24033 

1 

15,2506 

77641 

1 

15,2507 

71244 

0 

15,2510 

32515 

1 

15,2511 

32157 

0 

15,2512 

77625 

0 

15,2513 

00033 

1 

15,2514 

00033 

1 

15,2515 

7C535 

0 R59D 

15,2516 

02  746 

0 

15,2517 

41415 

1 

15,2520 

00033 

1 

15,2521 

77634 

0 
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TC 

I NTPRET 

CALL 

0 ANB 

GO  CALC  OPTIC  AXIS  WRT  NB 

VLOAO 

DOT 

STAR 

SCAXIS 

DOT  STAR  WITH  OA 

SL1 

ARCCOS 

STORE 

24D 

TEMP  STORE  AR  CCOS ISTAR.OPTAXISI 

DSU 

BPL 

DEG30 

SEE  IF  STAR  IN  AOT  F I F LD- OF- V I E W 

NXAX 

NOT  IN  FIELD  - TRY  NEXT  POSITION 

DLOAD 

DSU 
24D 
DEG. 5 

SEE  IF  STAR  AT  FIFLD  CENTER 

BMN 

DLOAD 

CALC  SPIRAL  AND  CURSOR 

ZSPCR 

GO  ZERO  CURSOR  AND  SPIRAL 

2 40 

GET  SPIRAL 

DMP 

SL4 

3/4 

12  SCALED  AT  16 

STOVL 

24D 

12(ARCC0S( AO. STAR) ) SCALED  IN  REVS 

SCAXIS 

OA 

VXV 

UNIT 

XUNIT 

PUSH 

VXV 

SCAXIS 

OA  X UNITX  PD  0-5 

VCOMP 

UNIT 

PDVL 

SCAXIS 

UNIT ( 0 A X ( 0 A X UNITX))  PD  6-11 

VXV 

UNIT 

STAR 

PUSH 

DOT 

1 / 2 ( 0 A X STAR)  PD  12-17 

0 

DOT  WITH  1/2I0A  X UNITX)  FOR  YROT 

SL1 

ARCCOS 

STOVL 

26D 

STORF  THET  SCALEO  IN  REVS 

DOT 

UP  12-17,  UP  6-11  FOR  C2 

BPL 

DLOAD 

R59D 

ABOUTONE 

IF  THET  NEG-GET  360-THET 

DSU 

26D 

STORE 

2 60 

3 60— T HET  SCALFD  IN  RFVS 

SLGAD 

SRI 

QMIN 

RESCALE  AZIN)  TO  REVS 

DAD 

PUSH 
2 60 

PUSH  YROT  + AZIN)  REVS 

956 


RTB 
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1259 

REF 

2 

LAST 

385 

15,2522 

21624 

1 

1 ST  02  S 

1260 

REF 

6 

LAST 

328 

15,2523 

15241 

1 

STODL 

CURSOR 

126  1 

15,2524 

00031 

0 

24D 

1262 

15,2525 

7 76  15 

0 

DAO 

1263 

15,2526 

77634 

0 

RTB 

1264 

REF 

3 

LAST 

957 

15,2527 

21624 

1 

1 ST02S 

1265 

REF 

4 

LAST 

328 

15,2530 

01242 

l 

STORE 

SPIRAL 

1266 

15,2531 

77776 

1 

EXIT 

1267 

REF 

1 

15,2532 

1 2556 

1 

TCF 

790 1 S P 

1273 

15,2533 

77776 

1 

N XAX 

EX  I T 

1274 

REF 

4 

LAST 

955 

15,2534 

24  734 

1 

INCR 

POSCODE 

1275 

REF 

5 

LAST 

957 

15,2535 

4 C 7 34 

0 

CS 

POSCODE 

1276 

REF 

15 

LAST 

862 

15,2536 

6 4750 

1 

AD 

SEVEN 

1277 

15,2537 

0 0006 

1 

EXTEND 

1278 

REF 

1 

15,2540 

6 2542 

0 

BZMF 

R59ALM 

1279 

REF 

1 

15,2541 

1 2430 

0 

TCF 

INCAZ 

1280 

REF 

37 

LAST 

93  8 

15,2542 

0 5571 

1 

R59ALM 

TC 

ALARM 

1281 

15,2543 

C0404 

1 

OCT 

404 

1282 

REF 

2 

LAST 

938 

15,2544 

3 4777 

1 

CAF 

V805N09 

1283 

REF 

276 

LAST 

955 

15,2545 

0 4607 

1 

TC 

BANKCALL 

1284 

REF 

35 

LAST 

955 

15,2546 

20471 

1 

CADR 

GOFLASH 

1285 

REF 

50 

LAST 

955 

15,2547 

1 6001 

1 

TCF 

GOTOPOOH 

1286 

REF 

2 

LAST 

955 

15,2550 

1 2 5 74 

1 

TCF 

R590UT 

1287 

REF 

3 

LAST 

955 

15,2551 

1 2402 

1 

TCF 

R 59 

1287  1 

15,2552 

77776 

l 

ZSPCR 

EX  I T 

12872 

REF 

187 

LAST 

949 

15,2553 

3 4746 

0 

CAF 

ZERO 

12873 

REF 

7 

LAST 

957 

15,2554 

55 ' 240 

1 

TS 

CURSOR 

12874 

REF 

5 

LAST 

957 

15,2555 

55 ' 24 1 

0 

TS 

SPIRAL 

1288 

REF 

l 

15,2556 

3 2607 

1 

7901 SP 

CAF 

V06N79 

1289 

REF 

277 

LAST 

957 

15,2557 

0 4607 

1 

TC 

BANKCALL 

1290 

REF 

36 

LAST 

95  7 

15,2560 

20471 

1 

CADR 

GOFLASH 

1291 

REF 

51 

LAST 

957 

15,2561 

1 6001 

l 

TCF 

GOTOPOOH 

1292 

REF 

1 

15,2562 

1 2564 

0 

TCF 

R59E 

1293 

REF 

4 

LAST 

957 

15,2563 

L 2402 

1 

TCF 

R 59 

1294 

REF 

16 

LAST 

957 

15,2564 

3 4750 

1 

R59E 

CAF 

SEVEN 

1295 

REF 

6 

LAST 

957 

15,2565 

7 C 734 

0 

MASK 

POSCODE 

1296 

15,2566 

0 0006 

1 

EXTEND 

1297 

REF 

27 

LAST 

891 

15,2567 

7 4736 

0 

MP 

B I T 7 

1298 

REF 

5 

LAST 

953 

15,2570 

4 7765 

0 

CS 

HIGH9 

1299 

REF 

15 

LAST 

328 

15,2571 

7 1235 

0 

MASK 

ACTCODE 

1300 

REF 

181 

LAST 

955 

15,2572 

6 0001 

0 

AD 

L 

130  1 

REF 

16 

LAST 

957 

15,2573 

55' 235 

0 

TS 

A OT  CODE 

1 1 

REF 

192 

LAST 

956 

1 5 , 2 5 74 

0 6060 

1 

R590UT 

TC 

INTPRET 

1302  1 

15,2575 

7 7414 

0 

BON 

EXIT 
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YROT  IN  1/2  REVS 
LOAD  SROT  IN  REVS 
12ISEP)  + YROT 


SPOT  IN  1/2  REVS 

GO  DISPLAY  CURSOR-SP IRAL-POS  CODE 


THIS  STAR  NOT  AT  ANY  POSITION 

THIS  STAR  CANT  BE  LOCATED  IN  AOT  FIELD 
DISPLAY  ALARM 


VB 34— TERM  INATF 

VB33-PROCEED,  GO  WITHOUT  AQUIRF 
V832-RECYCLE  AND  TRY  ANOTHER  STAR 


DISPLAY  CURSOR,  SPIRAL  AND  POS  CODE 
V34-T  ERM INATE 

V33-PROCEED  TO  MARK  ROUTINE 
V32-RECYCLE  TO  TOP  OF  R59  AGAIN 

GFT  DETENT  CODE  CORRESPONDING  TO  PnSCOOE 

DETENT  CODE  NOW  IN  L 
ISOLATE  STAR  NO  IN  BIT  1-6 


STORF  OETFNT  7-9 
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P51- 

-P53 

13022 

REF 

7 

LAST 

938 

15,2576 

13023 

REF 

3 

LAST 

954 

15,2577 

130  2 A 

REF 

278 

LAST 

957 

15,2600 

1303 

REF 

3 

LAST 

947 

15,2601 

1304 

REF 

279 

LAST 

958 

15,2602 

130  5 

REF- 

2 

LAST 

947 

15,2603 

1306 

REF 

7 

LAST 

949 

15,2604 

1307 

REF 

1 

15,2605 

1308 

15,2606 

1309 

15,2607 

1310 

15,2610 

1310 

15,2611 

131  1 

15,2612 

131  1 

15,2613 

1312 

15,2614 

04  7 13 

0 

FLT59FLG 

C3665 

1 

S AVQR52 

0 4607 

1 

TC 

BANKC ALL 

16C00 

0 

CADR 

AOTMARK 

0 4607 

1 

TC 

8ANKCALL 

17731 

1 

CADR 

AOTST  ALL 

0 5705 

0 

TC 

CURTAINS 

1 3073 

1 

TCF 

R59RET 

0C306 

1 

V01N70* 

VN 

1 70 

01517 

0 

VC6N79 

VN 

679 

02525 

1 

DEG30 

2DEC 

. 083333333 

12525 

0 

CCC26 

0 

DEG.  5 

2DEC 

.00138888 

30131 

1 

12525 

0 

DEG60 

OCT 

12525 

17:11  MAR.  19,1971  LFMP50S  .130  PAGF  958 

USER'S  PAGE  NO.  36  E5  S3 

IF  FLT59FLG  SET  GO  BACK  TO  R51  TO 
DO  AOTMARK 

SLEEP  TILL  SIGHTING  DONE 
BADEND  RETURN  FROM  AOTMARK 
RFTURN  TO  1 STAR  OR  2 STAR 

30  OEGRFSS 

.5  DEGRFSS  SCALED  IN  REVS 
60  DEG  CDU  SCALING 
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P 1 3 1 6 
R 13 1 7 
R 131  8 
R 1 3 1 9 
R 1 32  0 
R 132  1 
R 1 32  2 
R 1 32  3 
R1324 
R1325 


P51-P53 

NAME  - PLANET 

FUNCTIEN  -TO  PROVICE  THE  REFERENCE  VECTOR  FOR  THE  SIGHTED  CELESTIAL 
BODY.  STARS  ARE  FETCHED  FROM  THE  C AT ALOG , SUN , EARTH  AND 
MOON  ARE  CCMPUTED  BY  LOC S A M , PL ANET  VECTORS  ARE  ENTERED 
BY  OSDY  INPUT 


17:11  MAR.  19  » 197  L LEMP50S  .130  PAGE 
USER*  S PAGE  NO.  37  F5  S3 


CALL  - 


INPUT  - 
OUTPUT  - 


CALL 

PLANET 

TIME  IN  MP AC 
VECTOR  IN  MP AC 


SUBROUTINES  - LOCSAM 


11326 

DEBRIS  - 

VAC  , 

, STARAD 

- STARAD 

+ 17 

1327 

REF 

3 

LAST 

265 

07, 2000 

SETLDC 

AQTMARK1 

132  8 

07,2607 

BANK 

1329 

REF 

l 

COUNT* 

$$/R58 

1330 

REF 

10 

LAST 

948 

07, 2607 

03562 

0 

PLANET 

STORE 

TSIGHT 

1331 

07,2610 

77420 

1 

ST  Q 

EXIT 

133  2 

REF 

4 

LAST 

260 

07,2611 

02736 

1 

GCTR 

1333 

REF 

6 

LAST 

957 

07,2612 

4 7765 

0 

CS 

H I GH9 

1334 

REF 

17 

LAST 

957 

07,2613 

7 1235 

0 

MASK 

AOTCODE 

1335 

07,2614 

0 0006 

I 

EXTEND 

1336 

REF 

1 

07,2615 

7 6263 

1 

MP 

REVCNT 

133  7 

REF 

162 

LAST 

957 

07,2616 

56  001 

0 

XCH 

L 

133  8 

REF 

11 

LAST 

952 

07,2617 

51 ' 757 

0 

INDEX 

STAR  I NO 

1339 

REF 

1 1 

LAST 

952 

07,2620 

55’ 755 

0 

TS 

BESTI 

1340 

REF 

27  1 

LAST 

955 

07,2621 

10  COO 

0 

CCS 

A 

1341 

REF 

1 

07,2622 

1 2637 

0 

TCF 

NOTPLAN 

1342 

REF 

1 

07,2623 

3 2676 

1 

CAF 

VNPLANV 

1343 

REF 

280 

LAST 

958 

07, 2624 

0 4607 

1 

TC 

BANKCALL 

1344 

REF 

37 

LAST 

957 

07,2625 

204  7 1 

1 

CADR 

GOFLASH 

1345 

07,2626 

0 2623 

1 

TC 

-3 

1346 

07,2627 

0 2631 

1 

TC 

+ 2 

1347 

07,2630 

0 2623 

1 

TC 

-5 

1348 

REF 

193 

LAST 

957 

07,2631 

0 6060 

1 

TC 

INTPRFT 

1349 

07,2632 

74375 

0 

VLOAD 

VXSC 

1350 

REF 

18 

LAST 

948 

07,2633 

02707 

0 

STARAD 

1351 

REF 

1 

07,2634 

16700 

1 

1/SQR3 

1352 

07,2635 

52056 

0 

UNIT 

GOTO 

1352  1 

REF 

5 

LAST 

959 

07,2636 

02736 

1 

GCTR 

1353 

REF 

2 72 

LAST 

959 

07,2637 

4 CCOO 

0 

NOTPLAN 

CS 

A 

1354 

REF 

1 

07,2640 

6 2675 

1 

AD 

DEC227 

135  5 

07,2641 

0 0006 

1 

EXTEND 

1356 

REF 

1 

07,2642 

6 2653 

0 

BZMF 

C ALSAM1 

1357 

REF 

12 

LAST 

959 

07,2643 

51 ' 757 

0 

INDEX 

STARIND 

1358 

REF 

12 

LAST 

959 

07, 2644 

3 1 755 

1 

CA 

BESTI 

1359 

REF 

42 

LAST 

9 55 

C 7 , 2 645 

50  120 

1 

INDEX 

F I XLOC 

1360 

REF 

26 

LAST 

935 

07,2646 

54  046 

1 

TS 

XI 

1361 

REF 

194 

LAST 

959 

07,2647 

0 6060 

1 

TC 

I NTPRFT 

959 
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1362 

07,2650 

52173 

0 

VLOAD* 

GOTO 

1363 

REF 

11 

LAST 

937 

07,2651 

30347 

l 

CATLOG, 1 

1364 

KEF 

6 

LAST 

959 

07,2652 

02736 

1 

GCTR 

1365 

REF 

155 

LAST 

959 

C 7, 2653 

0 6C60 

1 

CALSAM1 

TC 

I NTPRET 

1366 

07, 2654 

45145 

0 

C ALSAM 

DLOAD 

CALL 

136  7 

REF 

1 1 

LAST 

959 

07, 2655 

C3562 

0 

TSIGHT 

1368 

REF 

3 

LAST 

938 

07,2656 

30515 

0 

L DCS AM 

1369 

07,2657 

77340 

0 

LXC  , 1 

VLOAD 

1370 

REF 

13 

LAST 

959 

07,2660 

02757 

0 

STAR INO 

137  1 

REF 

5 

LAST 

932 

07,2661 

02707 

0 

VEARTH 

1372 

07,2662 

24001 

0 

STOVL 

OD 

1373 

REF 

4 

LAST 

932 

07,2663 

02715 

0 

VSUN 

1374 

REF 

6 

LAST 

960 

07,2664 

26707 

0 

STOVL 

VEARTH 

1375 

07,2665 

00001 

0 

00 

1376 

REF 

5 

LAST 

960 

07,2666 

02715 

0 

STORE 

VSUN 

1377 

07,2667 

70143 

0 

DLO AO* 

L XC  , 1 

1378 

REF 

13 

LAST 

959 

0 7,2670 

02756 

1 

BEST  I , 1 

1379 

REF 

364 

LAST 

938 

07,2671 

00154 

1 

M P AC 

1380 

07,2672 

52173 

0 

VLOAD* 

GOTO 

1381 

REF 

19 

LAST 

959 

07,2673 

02343 

1 

STARAD  -2280 

1382 

REF 

7 

LAST 

960 

07,2674 

02736 

1 

GCTR 

1383 

07,2675 

00343 

0 

DEC227 

DEC 

227 

1384 

07,2676 

01530 

0 

VNPL ANV 

VN 

0688 

138  5 

REF 

4 

LAST 

861 

37,3543 

P IPSR INE 

= 

P I PA  SR  +3 

1385  1 

07,2677 

22363 

1 

1/SQR3 

2DEC 

. 57735021 

1385  1 

07,2700 

11623 

0 
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1 


FRANK  NOT  4 SO  DONT  L n AD  PIPTIMEl 
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P1386  GRAVITY  VECTOR  DETERMINATION  ROUTINE 
R 1 38  7 BY  KEN  VINCENT 

R 1388  FOR  DETAILED  DESCRIPTION  SEE  504GS0P  5. 6. 3. 2. 5 
R 1 38 9 THIS  PROGRAM  FINDS  THE  DIRECTION  OF  THE  MOONS  GRAVITY 
R 1 390  WHILE  THE  LM  I S ON  THE  MOONS  SURFACE.  IT  WILL  BE  USED 

R 139 1 FOR  LUNAR  SURFACE  ALIGNMENT.  THE  GRAVITY  VECTOR  IS 

R 1392  DETERMINED  BY  READING  THE  PIPAS  WITH  THE  IMU  AT  TWO 
R1393  PARTICULAR  OR  I ONT AT  I ONS . THE  TWO  READINGS  ARE  AVERAGED 
R l 394  AND  UNITIZED  AND  TRANSFORMED  TO  NB  COORDINATES.  THE  TWO 

R 1 395  ORIENTATION  WERE  CHOSEN  TO  REDUCE  BIAS  ERRORS  IN  THE 

R1396  READINGS. 

R1397 

R 1398  CALL- 

R 1399  TC  BANKCALL 

R 1 400  CADR  GVDETER 

R 140 1 INPUTS— 

R 140  2 PIPAS. CDUS 

R 1 40  3 OUTPUTS- 


R 1404 
R 1 40  5 
R 1 40  6 
R 140  7 
R 140  8 
R 140  9 
R 141 0 
R141 1 


STARSAV1  = UNIT  GRAVITY 
GSAV  = DITTO 

GRAVBIT  = 1 
SUBROUTINES— 

P1PASR,  IMUCOARS,  IMUF  INE, I MUST ALL , 1 / P I P A , DE L A Y JOB , CDUTR  IG 
*NBSM*  ,*SNMB*,  CALCG A » F OFL  ASH 


DEBRIS- 


VAC,  SAC,  ST  ARAD,  XSM.XNB.T  HET  AD,  DELV.COSCDU,  SI  NCDU 


14112 

REF 

4 

LAST 

955 

15 

,2000 

SETLOC 

P50S 

14113 

15 

,2615 

BANK 

14114 

REF 

1 

COUNT* 

$ $/P5  7 

1412 

REF 

1 

15, 

,2615 

3 3016 

0 GVDETER 

CAF 

42DEG 

1413 

REF 

18 

LAST 

947 

15, 

,2616 

54  321 

0 

TS 

THETAO 

1414 

15, 

,2617 

4 COOO 

0 

COM 

1415 

REF 

19 

LAST 

961 

15, 

,2620 

54  322 

0 

TS 

THETAD  +1 

1416 

REF 

1 

15, 

,262  1 

3 3017 

1 

CAF 

35DEG 

1417 

REF 

20 

LAST 

961 

15, 

2622 

54  323 

1 

TS 

THETAD  +2 

1418 

REF 

196 

LAST 

960 

15, 

2623 

0 6060 

1 

TC 

I NTPRET 

1419 

15, 

2624 

45014 

0 

CLEAR 

CALL 

1420 

REF 

6 

LAST 

948 

15, 

2625 

C 1 662 

1 

REFSMFLG 

142  1 

REF 

l 

15, 

2626 

32722 

1 

LUNG 

R 142  2 

FIND 

G 1 

:mBAL'  ANGLES 

WHICH  ROTATE  SM 

180DEG  ABOUT 

G VEC 

R1423 

R1424 

DEF 

INE 

G COOR 

SYS 

R 1 42  5 

- 

R 142  6 

X 

UNIT 

G 

R 1 42  7 

# 

- 

_ 

R 142  8 

M= 

Y = 

UNITEZSM  * 

X ) 

R1429 

- 

_ 

R 143  0 

Z 

UNIT 

(X  * 

Y ) 

R1431 

THEN 

ROTATED 

SM 

ViRJ 

PRESENT  IS 
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R1432 

R1433 

R 1 43  4 

1 , 0,0 

R1435 

* 

*T 

R 1 43  6 

XSM  = 

M 

0 

1 

o 

R 1 43  7 

R 1 43  8 

0,  o ,-i 

R 1 43  9 

R 144  0 

ALSO 

NB  WRT 

PRES 

SM  IS 

R 1 44  1 

R1442 

$ 

$ * 

R 1 44  3 

XNB  = 

NBSM  I 

R 1444 

* 

R 1 44  5 

G IMBAL 

ANGLES 

= CALCGAI  XSM 

R 1 44  6 

144  7 

REF 

5 

LAST 

96  1 

15,2000 

144  8 

15,2627 

1449 

REF 

2 

LAST 

961  TO 

962  : 

1450 

15,2627 

1451 

15,2630 

1452 

REF 

10 

LAST 

950 

15,2631 

1453 

15,2632 

1454 

15,2633 

1455 

REF 

11 

LAST 

962 

15,2634 

1456 

15,2635 

145  7 

REF 

4 

LAST 

956 

15,2636 

1458 

REF 

6 

LAST 

819 

15,2637 

1459 

REF 

6 

LAST 

950 

15,2640 

1460 

15,2641 

1461 

REF 

6 

LAST 

956 

15,2642 

146  2 

15,2643 

1463 

REF 

15 

LAST 

882 

15,2644 

1464 

REF 

7 

LAST 

962 

15,2645 

1465 

15,2646 

1466 

REF 

16 

LAST 

962 

15,264  7 

146  7 

15,2650 

146  8 

REF 

5 

LAST 

962 

15,2651 

146  9 

15,2652 

1470 

REF 

2 1 

LAST 

955 

15,2653 

1471 

15,2654 

1472 

REF 

1 

15,2655 

1473 

REF 

3 

LAST 

950 

15,2656 

1474 

15,2657 

1475 

REF 

1 

15,2660 

147  6 

REF 

20 

LAST 

960 

15,2661 

1477 

REF 

2 

LAST 

961 

15,2662 

1478 

15,2663 

1479 

RFF 

2 

LAST 

962 

15,2664 

1480 

15,2665 

148  1 

REF 

21 

LAST 

962 

15,2666 

# * 

=2  (X  X ) - 1/2  I * 
I J 


A 

, XNB  ) 


10 

10* 

SETLOC 

BANK 

COUNT* 

P50S 
$ $/ P57 

66370 

0 

AXT  ,1 

SSP 

0CC22 

1 

18D 

0CC5L 

0 

SI 

00006 

1 

6D 

77744 

0 

LXC  ,2 

00050 

1 

SI 

45  173 

0 GRAVEL 

VLOAD* 

CALL 

54000 

0 

XUNIT  -6,2 

47665 

1 

*NBSM* 

06707 

1 

STORE 

XNB  + 180,  1 

77775 

1 

VLOAD 

02731 

0 

STAR 

73744 

l 

LXC, 2 

VXSC* 

00047 

1 

X2 

75040 

1 

STAR  +6,2 

71  152 

1 

VS  L 2 

LXC, 2 

CC047 

1 

X2 

63047 

1 

VSU* 

I NCR, 2 

54000 

0 

XUNIT  -6,2 

00002 

0 

2D 

C6665 

1 

STORE 

XSM  + 18D, 1 

45100 

1 

T I X , 1 

CALL 

32635 

0 

GRAVEL 

47336 

1 

CALCGA 

74575 

0 

VLOAD 

VSR1 

02715 

0 

GOUT 

36723 

1 

STCALL 

STARAD  + 1 2D 

32722 

1 

LUNG 

74575 

0 

VLOAD 

VSR1 

02715 

0 

GOUT 

53455 

0 

VAD 

UNIT 

02723 

0 

STARAD  + l 2D 
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X 1 = 1 8 
Sl=  6 
X 2 , -2 


SIN  AND  COS  COMPUTED  IN  LUNG 


COMPLEMENT-  UNITX  ARE  BACKWARD  - 


OUTER  PRODUCT 


GAP: 
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1482 

REF 

7 

LAST 

948 

15,2667 

C2761 

0 

1483 

15, 2670 

77641 

1 

1484 

REF 

6 

LAST 

788 

.15,2671 

02222 

1 

1486 

15,2672 

65552 

0 

I486 

REF 

26 

LAST 

925 

15,2673 

01045 

L 

1437 

15,2674 

77776 

1 

1488 

REF 

5 1 

LAST 

952 

15,2675 

0 5520 

0 

1489 

REF 

7 

LAST 

94  8 

15,2676 

00014 

1 

1490 

REF 

1 

15,2677 

3 3015 

0 

1491 

REF 

281 

LAST 

959 

15,2700 

0 4607 

1 

1492 

REF 

38 

LAST 

959 

15,2701 

20471 

1 

1493 

REF 

52 

LAST 

957 

15,2702 

0 6001 

0 

1494 

REF 

l 

15,2703 

1 2706 

0 

1495 

REF 

68 

LAST 

938 

15,2704 

0 5506 

1 

149  6 

REF 

8 

LAST 

963 

15,2705 

00014 

1 

1497 

REF 

55 

LAST 

948 

15,2706 

0 5355 

1 PROG 

1498 

15,2707 

04024 

0 

1499 

REF 

197 

LAST 

96  1 

15,2710 

0 6060 

1 

1500 

15,2711 

77775 

1 

150  1 

REF 

8 

LAST 

963 

15,2712 

02761 

0 

1502 

REF 

7 

LAST 

963 

15,2713 

02222 

1 

1503 

15,2714 

77776 

1 

1504 

REF 

1 

15,2715 

3 4742 

1 

1505 

REF 

31 

LAST 

900 

15,2716 

7 OC  74 

0 

1506 

REF 

273 

LAST 

959 

15,2717 

1C  000 

0 

1507 

REF 

1 

1 5 , 2 7 20 

1 2615 

0 

1508 

REF 

1 

15,2721 

1 3535 

0 

1509 

15,2722 

77220 

1 LUNG 

1510 

REF 

13 

LAST 

956 

15,2723 

C2745 

0 

151  1 

REF 

4 

LAST 

949 

15,2724 

24007 

0 

1512 

REF 

1 

15,2725 

02707 

0 

1513 

15,2726 

77776 

1 

1514 

REF 

56 

LAST 

963 

15,2727 

0 5355 

1 

1515 

15,2730 

04024 

0 

1516 

REF 

198 

LAST 

963 

15,2731 

0 6060 

l 

1517 

15,2732 

77624 

1 

1518 

REF 

4 

LAST 

949 

15, 2733 

31542 

0 

1519 

15,2734 

77776 

1 

1520 

REF 

1 

15,2735 

3 3014 

1 

152  1 

REF 

8 

LAST 

960 

15,2736 

55 ' 736 

0 

152  2 

REF 

4 

LAST 

864 

15,2737 

3 7737 

0 

1523 

REF 

10 

LAST 

949 

15,2740 

55 1 C 74 

1 

1524 

REF 

282 

LAST 

963 

15,2741 

0 4607 

1 

1525 

REF 

1 

15,2742 

15751 

0 

1526 

REF 

57 

LAST 

96  3 

15,2743 

0 5355 

1 
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STORE 

STARSAV1 

DOT 

GSAV 

SL  1 

ACOS 

STORE 

EXIT 

DSPTEM1 

TC 

DOWNFLAG 

CLEAR  FREEFLAG  IN  CASE  OF  RECYCLE 

ADRES 

FREEFLAG 

CA 

DISGRVER 

TC 

BANKCALL 

CADR 

GOFLASH 

TC 

GOTOPOOH 

TCF 

PROGRAV 

VB33- PROCE  ED 

TC 

UPFLAG 

VB32-RECYCLE-ST0RE  GR A V AND  DO  IT  AGAIN 

ADRES 

FREEFLAG 

AND  SET  FREEFLAG  TO  SHOW  RECYCLE 

TC 

PHASCHNG 

OCT 

04024 

TC 

I NTPRET 

VLOAD 

STARSAV1 

STORE 
EX  IT 

GSAV 

CAF 

FREEFBI T 

IF  FREEFLAG  SET,  RE-COMPUTE  GRAVITY. 

MASK 

FLAGWROO 

CCS 

A 

TCF 

GVDETER 

SET 

TCF 

ATTCHK 

EXIT  FROM  GVDETER 

STQ 

VLOAD 

QMIN 

ZEROVEC 

STORE 

EXIT 

G ACC 

TC 

PHASCHNG 

OCT 

04024 

TC 

I NTPRET 

CALL 

COARSE 

FX  IT 
CA 

T/2SEC 

TS 

GCTR 

CA 

PRI031 

TS 

1/PIPADT 

TC 

BANKCALL 

CADR 

GCOMPZER 

INITIALIZE  COMPENSATION 

TC 

PHASCHNG 

GAP: 
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1527 

15,2744 

04C24 

0 

OCT 

04024 

1528 

REF 

2E3 

LAST 

963 

15,2745 

0 4607 

1 

TC 

BANKCALL 

152  9 

REF 

1 

15,2746 

77543 

0 

CADR 

P IPSRINE 

1530 

REE 

199 

LAST 

963 

15,2747 

0 6C60 

1 

TC 

I NTPRET 

1531 

15,2750 

77776 

1 

GREED 

EXIT 

1532 

REF 

4 

LAST 

860 

15,2751 

3 4771 

1 

CAF 

2SECS 

1533 

REF 

27 

LAST 

90  3 

15, 2752 

0 5175 

1 

TC 

TWIDDLE 

1534 

REF 

1 

15,2753 

02755 

1 

ADRES 

GRABGRAV 

1535 

REF 

134 

LAST 

925 

15,2754 

0 5146 

1 

TC 

ENDOF JOB 

153  6 

REF 

49 

LAST 

92  1 

15,2755 

0 4665 

0 

GRABGRAV 

TC 

I BNKC ALL 

153  7 

REF 

2 

LAST 

964 

15,2756 

77543 

0 

CADR 

P IPSRINE 

153  8 

REF 

2 

LAST 

741 

15,2757 

3 5014 

l 

CAF 

PR  1 0 13 

1539 

REF 

39 

LAST 

876 

15, 2760 

0 5076 

0 

TC 

F INDVAC 

1540 

REF 

22 

LAST 

962 

E5 , l 706 

EB ANK= 

STARAU 

1541 

REF 

1 

15,2761 

C2764 

0 

2CADR 

ADDGRAV 

1541 

REF 

1 

15,2762 

32065 

0 

1542 

REF 

61 

LAST 

903 

15,2763 

0 5263 

0 

TC 

T ASKOVER 

154  3 

REF 

2 £ 4 

LAST 

964 

15, 2764 

0 4607 

1 

ADDGRAV 

TC 

BANKCALL 

154  4 

REF 

3 

LAST 

864 

15, 2765 

L5333 

0 

CADR 

1/PI  PA 

154  5 

REF 

9 

LAST 

963 

15,2766 

25*  736 

1 

INCR 

GCTR 

154  6 

REF 

200 

LAST 

964 

15,2767 

0 6060 

1 

TC 

I NTPRET 

154  7 

15,2770 

53375 

0 

VLOAD 

VAD 

154  8 

REF 

12 

LAST 

909 

15,2771 

0C325 

0 

DELV 

154  9 

REF 

2 

LAST 

963 

15,2772 

C2707 

0 

G ACC 

1550 

REF 

3 

LAST 

964 

1 5 , 2 7 73 

02707 

0 

STORE 

G ACC 

1551 

15,2774 

5 C 135 

0 

SLOAD 

BMN 

1552 

REF 

10 

LAST 

964 

15,2775 

02737 

0 

GCTR 

1553 

REF 

1 

15,2776 

32750 

1 

GREED 

1554 

15,2777 

53575 

0 

VLOAD 

UNIT 

1555 

REF 

4 

LAST 

964 

15,3000 

02707 

0 

G ACC 

1556 

REF 

8 

LAST 

962 

15,3001 

36731 

1 

STC ALL 

STAR 

1557 

REF 

6 ' 

LAST 

950 

15,3002 

47522 

1 

CDUTR IG 

1558 

15,3003 

77624 

1 

CALL 

1559 

REF 

6 

LAST 

909 

15,3004 

47663 

1 

*SMNB* 

1560 

REF 

3 

LAST 

962 

15,3005 

02715 

0 

STORE 

GOUT 

1561 

15,3006 

17  7 76 

1 

EX  I T 

1562 

REF 

98 

LAST 

963 

15,3007 

0 5355 

1 

TC 

P HASCHNG 

1563 

15,3010 

04024 

0 

OCT 

04024 

1564 

REF 

2C1 

LAST 

964 

15,3011 

0 6060 

1 

QMINEXIT 

TC 

intpret 

1565 

15,3012 

77650 

1 

GOTO 

1566 

REF 

14 

LAST 

963 

15,3013 

C2745 

0 

QMIN 

1567 

15,3014 

77753 

0 

T/2SEC 

DEC 

-20 

156  8 

15,3015 

01404 

0 

DISGRVER 

VN 

0604 

156  9 

15,3016 

07357 

1 

42DEG 

OCT 

07357 
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DONT  NEED  TO  INHINY  THIS  USED  TO 
INITIALIZE  PIPAS  DONT  USE  DATA 

= MASK  7776  IN  BASIC  SO  DONT  CARE 

SET  UP  2 SEC  TASK  TO  READ  PIPAS 


RE-ESTABLISH  MAINLINE  JOB 


ACCUMULATE  G VECTOR 


TRANSFORM  IN  NB  COOR  AND  STORE 
IN  OUTPUT 
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1570 


15,3017 


06211  0 35DEG 


OCT 


0621  1 


GAP: 
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P 157 1 NAME  GYROTRIM 

R 1 57  2 

R 1 573  THIS  PROGRAM  COMPUTES  AND  SENDS  GYRO  COMMANOS  WHICH  CAUSE  THE  COUS 

R 1 574  TO  ATTAIN  A PRESCRIBED  SET  CF  ANGLES.  THIS  ROUTINE  ASSUMES  THE 

R 1 575  VEHICLES  ATTITUDE  REMAINS  STATIONARY  DURING  ITS  OPERATION. 

R 1576 


R 1 57  7 

CALL 

CALL 

R1578 

GYROTRIM 

R1579 
R 1 580 

INPUT 

THETAD,+l,+2  = DESIRED  COU  ANGLES 

R 1 58  1 

CDUX.CDUY.CDUZ 

R 1 58  2 
R 1 58  3 

OUTPUT 

- GYRO  TORQUE  PULSES 

R 1 584 

R l 58  5 SUBROUTINES-  TRG* NBS M , *NB SM 4 , CDUTR IG , A X I S C EN , C A LCGT A , 1 MUF I NE 

R 1 58  6 IMPULSE, IMUSTALL 


R 158  7 

- 

- 

- 

* 

* 

- 

R 1 58  8 

DEPRI S - 

- C DUS  POT 

, SINCDU  .COSCDU  , ' 

STARAD  , V AC  , 

, XDC  , 

OGC 

1589 

REF 

3 

LAST 

962  TO  966: 

121  131* 

COUNT* 

$t/P57 

1590 

15,3020 

71220 

1 

GYROTRIM 

STQ 

DLOAD 

1591 

REF 

15 

LAST 

964 

15,3021 

02745 

0 

QMIN 

1592 

REF 

21 

LAST 

96  1 

15,3022 

00322 

1 

THETAD 

1593 

15,3023 

65325 

0 

POOL 

POOL 

1594 

REF 

22 

LAST 

966 

15,3024 

00324 

l 

THETAD  + 2 

159  5 

REF 

23 

LAST 

966 

15,3025 

0C323 

0 

THETAD  +1 

1596 

15,3026 

77666 

1 

VOEF 

l 69  7 

REF 

17 

LAST 

599 

15,3027 

24766 

0 

STOVL 

COUS POT 

1598 

REF 

6 

LAST 

962 

15,3030 

24005 

1 

XUNI  T 

159  9 

15,3031 

77624 

1 

CALL 

1600 

REF 

5 

LAST 

600 

15,3032 

47656 

1 

T RG*N  BSM 

1601 

REF 

23 

LAST 

964 

15,3033 

26707 

0 

STOVL 

STARAD 

1602 

REF 

2 

LAST 

3 8 

15,3034 

24003 

1 

YUNIT 

1603 

15,3035 

77624 

1 

CALL 

1604 

REF 

7 

LAST 

962 

15,3036 

47665 

1 

*NBSM* 

1605 

REF 

24 

LAST 

966 

15,3037 

36  71  5 

1 

STC ALL 

STARAD  *6 

1606 

REF 

7 

LAST 

964 

15,3040 

47522 

l 

CDUTR IG 

160  7 

15,3041 

77624 

1 

CALL 

1608 

REF 

3 

LAST 

950 

15,3042 

20030 

0 

C ALCSMSC 

1609 

15,3043 

77775 

1 

VLOAD 

161  0 

REF 

7 

LAST 

962 

15,3044 

02665 

0 

XNB 

161  1 

15,3045 

24007 

0 

STOVL 

6 D 

1612 

REF 

3 

LAST 

386 

15,3046 

02673 

1 

YNB 

161  3 

15,3047 

34015 

1 

STC A L L 

1 2D 

1614 

REF 

3 

LAST 

948 

15,3050 

47424 

0 

AXISGEN 

1615 

15,3051 

77624 

1 

CALL 

1616 

REF 

3 

LAST 

942 

15,3052 

47232 

1 

CALCGTA 

1617 

15,3053 

77776 

1 

JOSTTRIM 

EX  I T 

1618 

REF 

I 

15,3054 

3 3063 

1 

CA 

GYRCDR 

1619 

REF 

285 

LAST 

964 

15,3055 

0 4607 

1 

TC 

BANKCALL 

1620 

REF 

6 

LAST 

942 

15,3056 

17310 

0 

CADR 

I MUPULSE 

17: U MAR.  19 
USER* 


1971 

LEMP50S 
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PAGE 

NO.  44 

E5  S3 
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P53 

162  1 

REF 

286 

1622 

KEF 

12 

1623 

REF 

Q 

1624 

REF 

1 

162  5 

REF 

13 

L AST 

966 

15,3057 

LAST 

949 

15,3060 

LAST 

958 

, 15,3061 

15,3062 

LAST 

942 

15,3063 

C A 607  1 
17735  0 

0 5705  0 

1 3011  0 

02737  0 GYRCDR 


TC 

BANKCALL 

CADR 

I MUSTALL 

TC 

CURTAINS 

TCF 

QMINEXI T 

ECADR 

OGC 
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967 


GAP: 

L 

P 162  6 

162  7 

162  8 

1629 

1630 

1631 

1632 

1633 

163  A 

163  3 

163  6 

163  7 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

164  8 

1649 

1650 

1651 

1652 

1653 

1654 
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PERFCPM  STAR  AQUISITION  AND  STAR  SIGHTINGS 


REF 

188 

LAST 

957 

15,3064 

3 4746 

0 

2STARS 

CAF 

ZERO 

INITALIZE  STARIND 

15,3065 

1 3067 

1 

TCF 

+ 2 

ZERO  FOR  1ST  STAR, 

, ONE  FOR  2ND  STAR 

REF 

48 

LAST 

955 

15,3066 

3 4744 

1 

1 STAR 

CAF 

8 I T 1 

REF 

14 

LAST 

960 

15,3067 

55' 757 

l 

TS 

STARIND 

REF 

99 

LAST 

964 

15,3070 

0 5355 

1 

TC 

PHASCHNG 

15,3071 

04024 

0 

OCT 

04024 

REF 

5 

last 

957 

15,307? 

1 2402 

1 

TCF 

R 59 

GO  DO  STAR  AOUIRE 

AND  ADT  MARK 

REF 

15 

LAST 

968 

15,3073 

3 1757 

0 

R59RET 

CA 

STARIND 

BACK  FROM  SURFACE 

MARKING 

15, 3074 

C 0006 

1 

EXTEND 

REF 

1 

15,3075 

l 3 106 

1 

8ZF 

ASTAR 

1ST  STAR  MARKED 

REF 

100 

LAST 

968 

15,3076 

0 5355 

1 

TC 

PHASCHNG 

15,3077 

04024 

0 

OCT 

04024 

REF 

202 

LAST 

964 

15,3100 

0 6060 

1 

TC 

INTPRET 

15, 3101 

45145 

0 

DLOAD 

CALL 

REF 

12 

LAST 

960 

15,3102 

03562 

0 

TSIGHT 

TIME  OF  2ND  MARK 

REF 

8 

LAST 

955 

15,3103 

16607 

l 

PLANET 

REF 

1 

15,3  104 

37254 

0 

STCALL 

VEC2 

STORE  2ND  CATALOG 

VEC  (REF) 

REF 

1 

15,3  105 

33  120 

1 

SURFLINE 

REF 

203 

LAST 

968 

15,3106 

0 6060 

1 

ASTAR 

TC 

INTPRET 

15,3107 

77775 

1 

VLOAD 

REF 

10 

LAST 

948 

15,3110 

02767 

0 

STAR  S AV2 

REF 

9 

LAST 

963 

15,3111 

02761 

0 

STORE 

STARSAVl 

1ST  OBSERVED  STAR 

( SM  ) 

15,3112 

45  145 

0 

DLOAD 

CALL 

REF 

13 

LAST 

968 

15,3113 

03562 

0 

TSIGHT 

TIME  OF  1ST  MARK 

REF 

9 

LAST 

968 

15,3114 

16607 

1 

PLANET 

REF 

2 

LAST 

14  1 

15,3115 

C3246 

1 

STORE 

V EC  1 

STORE  1ST  CATALOG 

VEC  (REF) 

15,3116 

77776 

1 

EXIT 

REF 

1 

15,3117 

1 3066 

0 

TCF 

1 STAR 

GO  GET  2ND  STAR  SIGHTING 

968 
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P 1 65  5 

DO 

FINE 

OR  COARSE 

ALIGNMENT  OF 

: [MU 

1656 

15,3120 

77131 

1 

SURFL INE 

SSP 

A XT  , 2 

1657 

REF 

12 

LAST 

935 

15,3121 

00052 

0 

S2 

' 1658 

15,3122 

00006 

1 

6 

1659 

15,3123 

00014 

1 

1 2D 

1660 

15,3124 

64373 

l 

WRTDES IR 

VLOAD* 

MXV 

1661 

REF 

3 

LAST 

968 

15,3125 

74515 

0 

V EC  1 +120,2 

166  2 

REF 

1 1 

LAST 

951 

1.5,3126 

03607 

0 

X SMO 

1663 

15,3127 

77656 

1 

UNIT 

1664 

REF 

25 

LAST 

966 

15,3130 

12723 

1 

STORE 

STARAD  +120,2 

166  5 

15,3131 

77773 

1 

VLOAD* 

1666 

REF 

10 

LAST 

96  8 

15,3132 

75002 

1 

STARSAVl  +12D.2 

166  7 

15,3133 

10023 

1 

STORE 

180,2 

1660 

15,3134 

43104 

0 

TIX  ,2 

BON 

1669 

REF 

1 

15,3135 

33124 

0 

WRTDES I R 

1670 

REF 

1 

15,3136 

04315 

1 

INITALGN 

1671 

REF 

1 

15,3 137 

33  145 

1 

INIT8Y 

1672 

15,3140 

77624 

1 

DOAL IGN 

CALL 

1673 

REF 

2 

LAST 

939 

15,3141 

31265 

1 

R 54 

1674 

15,3142 

77614 

1 

BOFF 

1675 

REF 

9 

LAST 

96  3 

15,3143 

CC  354 

0 

FREEFLAG 

1676 

REF 

1 

15,3144 

33225 

1 

P57POST 

1677 

15,3 145 

77624 

1 

I NITBY 

CALL 

1678 

REF 

4 

LAST 

966 

15,3146 

47424 

0 

AXISGEN 

1679 

15,3147 

7 76  24 

l 

CALL 

1680 

REF 

4 

LAST 

966 

15,3150 

47232 

l 

CALCGTA 

168  l 

15,3151 

77776 

1 

EXIT 

1682 

REF 

1 

15,3152 

3 4 743 

0 

CAF 

INITABIT 

1683 

REF 

15 

LAST 

864 

15,3153 

7 0104 

0 

MASK 

F L AGWRD3 

1684 

REF 

274 

LAST 

963 

15,3154 

10  000 

0 

CCS 

A 

1685 

REF 

1 

15,3155 

1 3164 

0 

TCF 

5DEGTEST 

1686 

REF 

1 

15,3156 

3 3273 

1 

CAF 

D I SPGYRO 

1687 

REF 

2 E 7 

LAST 

967 

15,3157 

C 4607 

1 

TC 

BANKCALL 

168  8 

REF 

39 

LAST 

963 

15,3160 

2C471 

l 

CADR 

GOFLASH 

1689 

REF 

53 

LAST 

963 

15,3161 

0 6 CO  1 

0 

TC 

GOTOPOOH 

1690 

REF 

2 

LAST 

969 

15,3162 

1 3164 

0 

TCF 

5DEGTEST 

1691 

REF 

2 

LAST 

969 

15,3163 

l 3226 

0 

TCF 

P57P0ST  +1 

1692 

REF 

204 

LAST 

968 

15,3164 

0 6060 

l 

5DEG  TEST 

TC 

I NTPRET 

1693 

15,3165 

40175 

0 

VLOAD 

BOV 

1694 

REF 

14 

LAST 

967 

15,3166 

C2740 

0 

OGC 

1695 

REF 

l 

15,3167 

33170 

l 

SURFSUP 

1696 

REF 

2 

LAST 

128 

15,3170 

02750 

1 

SURFSUP 

STORE 

OGCT 

169  7 

15,3171 

40141 

1 

V/SC 

BOV 

1 

REF 

2 

LAST 

933 

15, 3 172 

30617 

1 

5DEGREES 

1699 

REF 

1 

15,3173 

31715 

0 

COATRIM 

1700 

15,3174 

52131 

0 

SSP 

GOTO 

170  1 

REF 

16 

LAST 

966 

15,3175 

02746 

0 

QMIN 

1702 

REF 

1 

15,3176 

33200 

0 

SURFDISP 
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PICK  UP  VEC  IN  RFF,  TRANS  TO  DESIREO  SH 
VEC  IN  SM 

PICK  UP  VEC  IN  PRESENT  SM 

IF  INITIAL  PASS  (OPTION  0)  BYPASS  P 54 
DO  CHKSD AT  A 

ASTRO  DOES  NOT  LIKE  DATA  TEST  RESULTS 
GET  DESIRED  ORIENT  WR T PR E S . XDC  , YDC , Z DC 
GET  GYRO  TORO  ANGLES,  OGC.IGC.MGC 
IF  INITIAL  PASS  BYPASS  NOUN  93  DISPLAY 

DISPLAY  GYRO  TORO  ANGLES  V 06N93 
V34-T  ERMINATE 

VB33- PROCEED  TO  COARSE  OR  FINF 
VB32-REC YCL E , MAYBE  RE-ALIGN 


IF  ANGLES  GREATER  THAN  5 DFGS , DO  COARSE 


GAP: 
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1703 

REF 

l 

15,3177 

33053 

1 

JUSTTRIM 

ANGLES  LESS  THAN  50EG,  170  GYRO  TORO 

1704 

15,3200 

77776 

l 

SURFDISP 

EXIT 

1705 

REF 

101 

LAST 

968 

15,3201 

0 5355 

1 

TC 

PHASCHNG 

1706 

15,3202 

04C24 

0 

OCT 

04024 

1707 

REF 

2C5 

LAST 

969 

15,3203 

0 6060 

1 

TC 

INTPRET 

1708 

15,3204 

75  160 

1 

AXC  , 1 

AXC,  2 

1709 

REF 

12 

LAST 

969 

15,3205 

03  606 

1 

XSMO 

1710 

REF 

52 

LAST 

955 

15,3206 

01731 

0 

REFSMMAT 

171  1 

15,3207 

45014 

0 

SFT 

CALL 

1712 

REF 

7 

LAST 

961 

15,3210 

01462 

0 

R EFSMFLG 

1713 

REF 

5 

LAST 

950 

15,3211 

26374 

0 

MATMOVE 

1714 

15,3212 

77776 

1 

EX  IT 

1715 

REF 

9 

LAST 

926 

15,3213 

11 ' 144 

0 

CCS 

0PTI0N2 

IF  OPTION  ZERO  DO  FINISH 

1716 

REF 

1 

15,3214 

1 3216 

0 

TC  F 

B2F8 

1717 

REF 

3 

LAST 

969 

15,3215 

1 3226 

0 

TCF 

P57POST  +1 

1718 

REF 

2 

LAST 

969 

15,3216 

3 4 743 

0 

B2F8 

CAF 

INITABIT 

IF  INITIAL  FLAG  SET,  RE-CYCLE. 

l 719 

REF 

16 

LAST 

969 

15,3217 

7 0104 

0 

MASK 

FLAGWRD8 

172  0 

REF 

27  5 

LAST 

969 

15,3220 

10  COO 

0 

CCS 

A 

172  l 

REF 

1 

15,3221 

1 3543 

1 

TCF 

P57JUMP 

ITS  SET 

1722 

REF 

206 

LAST 

970 

15,3222 

0 6060 

1 

TC 

INTPRET 

1723 

15,3223 

77624 

1 

CALL 

1724 

REF 

2 

LAST 

788 

15,3224 

33470 

1 

REFMF 

GO  GET  ATTITUDE  VEC  IN  ME (YNBSAV, XNBSAV ) 

172  5 

15,3225 

77  776 

1 

P57POST 

EXIT 

1726 

REF 

3 

LAST 

939 

15,3226 

3 5745 

1 

CAF 

OCT  14 

DISPLAY  V50N2  5 CHK  CODE  14 

172  7 

REF 

288 

LAST 

969 

15,3227 

0 4607 

1 

TC 

BANKCALL 

172  8 

REF 

9 

LAST 

947 

15,3230 

20635 

0 

CADR 

G0PERF1 

1729 

REF 

54 

LAST 

969 

15,3231 

1 6001 

1 

TCF 

GOTOPOOH 

VB34- TERMINATE 

1730 

REF 

2 

LAST 

970 

15,3232 

1 3543 

1 

TCF 

P 57 JUMP 

VB33-PROCEED  TO  RE-ALIGN 

173  1 

REF 

44 

LAST 

926 

15,3233 

4 4743 

1 

CS 

BIT2 

TEST  TO  SE  IF  ALIGNED  BY  OPTION  2 

1 73  2 

REF 

10 

LAST 

970 

15,3234 

6 1144 

1 

AD 

0PTI0N2 

1733 

15,3235 

0 0006 

1 

EXTEND 

1734 

15,3236 

1 3240 

0 

BZF 

+ 2 

YES-GO  CALCULATE  LANDING  SITE 

173  5 

REF 

55 

LAST 

970 

15,3237 

1 6001 

1 

TCF 

GOTOPOOH 

NO-EXIT  P57 

173  6 

REF 

102 

LAST 

970 

15,3240 

0 5355 

1 

TC 

PHASCHNG 

RESTART  PLACE 

1737 

15,3241 

04024 

0 

OCT 

04024 

1738 

REF 

2C7 

LAST 

970 

15,3242 

0 6060 

1 

TC 

I NTPRET 

1739 

15,3243 

45175 

0 

VLOAD 

CALL 

USE  GN8 

174  0 

REF 

8 

LAST 

963 

15,3244 

02222 

1 

GSAV 

174  1 

REF 

2 

LAST 

708 

15,3245 

47653 

1 

CDU*NBSM 

GO  TO  SM  COORDS 

1742 

15,3246 

43  105 

1 

VXM 

SET 

ON  MOON  SO  SET  LUNAFLAG 

1743 

REF 

53 

LAST 

970 

15,3247 

01732 

0 

REFSMMAT 

G(RFF)  = (REFSMMAT)T  (NBSM)GNB 

1744 

REF 

5 

LAST 

929 

15,3250 

01463 

1 

LUNAFLAG 

174  5 

15,3251 

51515 

1 

PD  VI. 

ABVAL 

1746 

REF 

1 1 

LAST 

929 

15,3252 

02021 

0 

RLS 

174  7 

15,3253 

45561 

1 

VXSC 

STADR 

1 748 

REF 

6 

LAST 

929 

15,3254 

75745 

0 

STORE 

ALPHAV 

ALPHAV  = RLSMAG  * G(REF) 

1749 

15,3255 

47014 

1 

CLEAR 

RTB 

GAP:  ASSEMBLE  REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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1750 

REF 

3 

LAST 

929 

15,3256 

0C662 

0 

ERADFLAG 

175  1 

REF 

30 

LAST 

955 

15,3257 

21603 

1 

LOADT I ME 

1752 

15,3260 

77624 

1 

CALL 

1753 

REF 

2 

LAST 

929 

15,3261 

30455 

0 

N89DISP 

1754 

REF 

16 

LAST 

883 

15,3262 

01220 

0 

STORE 

RN 

1755 

15,3263 

65352 

0 

VSL2 

POOL 

1756 

REF 

3 

LAST 

930 

15,3264 

01242 

1 

S IT IME 

175  7 

15,3265 

77606 

1 

PUSH 

1 75  8 

REF 

24 

LAST 

896 

15,3266 

35234 

l 

STC ALL 

PIPTIME 

1759 

REF 

2 

LAST 

787 

15,3267 

51644 

0 

R-TO-RP 

1760 

REF 

12 

LAST 

970 

15,3270 

02C21 

0 

STORE 

RLS 

1 761 

15,3271 

77776 

1 

EXI  r 

176  2 

REF 

56 

LAST 

970 

15,3272 

1 6001 

1 

TCF 

GOTOPOOH 
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SUBROUTINE  TO  CALC  LS  ANO 
RN=RLS  8-29  = LM  POSITION 
R-TO-RP  GETS  R LS  B-27  AT 
TIME  STORED  IN  N890ISP 
TIME  AT  6-7  IN  PDLIST 
PIPTIME  = LM  STATE  TIME 

RLS  IN  MOON-FIXED  COORDS 


130  PAGE  971 
E5  S3 

GIVE  RLS  BACK 
0-5D  IN  PDLIST 


EXIT  P57 
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L 

P51- 

-P  53 

P 1 763 

COARSE 

AND  FINE  ALIGR 

1 IMU 

17635 

REF 

6 

LAST 

952 

l A » 2 000 

SETLOC 

P50S1 

1763  6 

1A, 3715 

BANK 

17637 

REF 

1 

COUNT* 

$ $/P  5 7 

1 76  A 

1 A t 3 71 5 

75160 

l 

COAT  RIM 

AXC  , 1 

AXC,  2 

176  5 

REF 

5 

LAST 

9 A 8 

1 A , 3 7 16 

0266A 

1 

XDC 

1766 

REF 

22 

LAST 

962 

1 A f 3 7 1 7 

026A2 

0 

XSM 

176  7 

1 A f 3 720 

7762A 

1 

CALL 

176  8 

REF 

6 

LAST 

970 

1A , 372 1 

2637A 

0 

MATMOVE 

1769 

1A, 3722 

7762A 

1 

CALL 

1770 

REF 

8 

LAST 

966 

1 A , 3 723 

A 7 52  2 

1 

CDUTR  IG 

1771 

1 A , 3 72 A 

7762A 

1 

CALL 

1772 

REF 

A 

LAST 

966 

1A.3725 

20030 

0 

CALCSMSC 

1773 

1 A , 3 726 

7762A 

1 

CALL 

1 77  A 

REF 

A 

LAST 

962 

1A, 3727 

A 7 3 3 6 

1 

C ALCGA 

1775 

1 A t 3 730 

77A1A 

0 

BOFF 

EXIT 

1 776 

REF 

2 

LAST 

969 

1A, 3731 

0A355 

0 

INITALGN 

1777 

REF 

1 

1 A , 3 732 

317  A A 

1 

CORSI T 

1778 

REF 

A 

LAST 

9A7 

1A.3733 

3 5001 

0 

CAF 

V06N22 

1779 

REF 

289 

LAST 

970 

1 A , 3 73A 

0 A607 

1 

TC 

8ANKCALL 

1780 

REF 

AO 

LAST 

969 

1 A , 3 73  5 

20A71 

1 

CADR 

GOFLASH 

1781 

REF 

57 

LAST 

971 

1 A , 3 73  6 

0 6001 

0 

TC 

GOTOPOOH 

1782 

1A, 3737 

1 3 7 A 1 

1 

TCF 

+ 2 

1 78  3 

1 A , 3 7A0 

1 3733 

L 

TC  F 

-5 

1 7 BA 

REF 

103 

LAST 

970 

1A.37A1 

0 5355 

1 

TC 

PHASCHNG 

1785 

1 A , 3 7 A 2 

OA  0?A 

0 

OCT 

0A02A 

1786 

REF 

2C8 

LAST 

970 

IA.37A3 

0 6060 

1 

TC 

I NTPRET 

178  7 

1A.37AA 

7 762  A 

1 

CORS IT 

CALL 

1788 

REF 

5 

LAST 

963 

1 A f 3 7A5 

315A2 

0 

COARSE 

173  3 

1 A , 3 7A6 

7762A 

1 

CALL 

1790 

REF 

A 

LAST 

9A7 

1 A , 3 7A  7 

31566 

0 

NCOARSE 

1 79  1 

1 A , 3 750 

7762A 

l 

CALL 

1792 

REF 

1 

l A , 3 75  1 

33020 

0 

G YROTRI M 

1793 

1 A f 3 752 

77650 

1 

GOTO 

1 79  A 

REF 

2 

LAST 

969 

1 A , 3 753 

33200 

0 

SURFDISP 

1 79  A 5 

REF 

6 

LAST 

962 

15,2000 

SETLOC 

P50S 

1 79  A 6 

15,3273 

BANK 

179A7 

REF 

4 

LAST 

966  TO 

972  : 

171  302* 

COUNT* 

$ t / P 5 7 

1795 

15,3273 

01535 

0 

D I SP  GYRO 

VN 

0693 
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IF  INITIAL  ALGNMENT  DISPLAY  FINAL 
GIMBAL  ANGLES  IF  COARSE  ANGLES  GREATER 
THAN  5 DEGREES 
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179  7 

REF 

290 

LAST 

972 

15,3274 

0 4607 

l 

P57 

TC 

BANKCALL 

179  8 

REF 

2 

LAST 

947 

15,3275 

33634 

0 

CADR 

IMUCHK 

1798  1 

REF 

S 2 

LAST 

963 

15,3276 

0 5520 

0 

TC 

DOWNFLAG 

17982 

REF 

8 

LAST 

958 

15,3277 

00222 

0 

ADRES 

FLT59FLG 

1799 

REF 

27 

LAST 

925 

15,3300 

3 6266 

0 

CAF 

THREE 

1800 

RFF 

11 

LAST 

970 

15,3301 

55' 144 

0 

TS 

0PTI0N2 

1801 

REF 

49 

LAST 

968 

15,3302 

3 4744 

1 

P570PT 

CAF 

B IT1 

180  2 

REF 

251 

LAST 

973 

15,3303 

0 4607 

1 

TC 

BANKCALL 

1803 

REF 

2 

LAST 

925 

15,3304 

20725 

0 

CAOR 

G0PERF4R 

1804 

PEF 

58 

LAST 

972 

15,3305 

0 6001 

0 

TC 

GOTOPOOH 

180  5 

REF 

1 

15,3306 

1 3313 

1 

TCF 

ALIGNOPT 

1806 

REF 

1 

15,3307 

L 3302 

1 

TCF 

P570PT 

180  7 

REF 

104 

LAST 

972 

15,3310 

0 5355 

1 

TC 

PHASCHNG 

1808 

15,3311 

OOC14 

1 

OCT 

00014 

180  9 

REF 

135 

LAST 

964 

15,3312 

0 5 146 

1 

TC 

ENDOF JOB 

181  0 

REF 

12 

LAST 

973 

15,3313 

3 1144 

1 

ALIGNOPT 

CA 

0PTI0N2 

181  1 

REF 

20 

LAST 

973 

15,3314 

7 6266 

1 

MASK 

THREE 

181  2 

REF 

276 

LAST 

970 

15,3315 

5C  000 

1 

INDEX 

A 

1813 

15,3316 

1 3317 

0 

TCF 

+ 1 

1814 

REF 

l 

15,3317 

1 3332 

1 

TCF 

TDISP 

1815 

REF 

1 

15,3320 

1 3373 

1 

TCF 

P ACKOPTN 

1816 

REF 

2 

LAST 

973 

15,3321 

1 3302 

1 

TCF 

P570PT 

1817 

REF 

209 

L A i I 

972 

15,3322 

0 6060 

1 

TC 

INTPRET 

181  8 

15,3323 

75  160 

1 

AX C , 1 

AXC,  2 

1819 

REF 

54 

LAST 

970 

15 , 3324 

01731 

0 

REFSMMAT 

1820 

REF 

13 

LAST 

970 

15,3325 

C3606 

l 

XSMD 

1821 

15,3326 

77624 

l 

CALL 

1822 

REF 

7 

LAST 

972 

15,3327 

26374 

0 

MATMOVE 

182  3 

15,3330 

77650 

1 

GOTO 

1824 

REF 

2 

LAST 

973 

15,333  1 

33372 

1 

P ACKOPTN 

1825 

REF 

2 10 

LAST 

973 

15,3332 

0 6C60 

1 

TDISP 

TC 

I NTPRET 

182  6 

15,3333 

77745 

1 

DLOAD 

182  7 

REF 

40 

LAST 

839 

15,3334 

03442 

0 

TIG 

1828 

REF 

27 

LAST 

963 

15,3335 

01045 

1 

P57A 

STORE 

DSPTEMl 

1829 

15,3336 

77776 

1 

EXIT 

1830 

REF 

2 

LAST 

' 925 

15,3337 

3 2325 

1 

P57AA 

CAF 

V06N34* 

183  1 

REF 

252 

LAST 

973 

15,3340 

0 4607 

1 

TC 

BANKCALL 

1832 

REF 

41 

LAST 

972 

15,3341 

2C471 

1 

CADR 

GOFLASH 

1833 

REF 

59 

LAST 

973 

15,3342 

l 6001 

l 

TCF 

GOTOPOOH 

183  4 

15, 3343 

1 3345 

l 

TCF 

+ 2 

1835 

REF 

1 

15,3344 

1 3337 

1 

TCF 

P57AA 

1836 

REF 

211 

LAST 

973 

15,3345 

0 6060 

1 

TC 

INTPRET 
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IS  ISS  ON  - IF  NOT,  IMUCHK  WILL  SEND 
ALARM  CODE  210  AND  EXIT  VIA  GOTOPOOH 


JAM  REFSMMAT  OPTION  3 FOR  INITIAL  DISP. 


FLASH  V04N06  FOR  ALIGNMENT  CODF 
V 34  TERMINATE 
V 33  PROCEED 
V32  RFCYCLE 


OPTION  4 LS  ORIENTATION 

OPTION  1 PREFERRED 

OPTION  2 INVALID  IN  P57,  RECYCLE 

OPTION  3 REFSMMAT 

JAM  REFSMMAT  IN  XSMD  LOC 


LOAD  ASCENT  TIME  FOR  DISPLAY 


DISPLAY  TALIGN,  TALIGN  : DSPTEMl 


V34— TERMINATE 


V832-RECYCLE 
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1837 

15,3346 

65234 

1 

1838 

REF 

31 

LAST 

971 

15,3347 

21603 

1 

1839 

REE 

28 

LAST 

973 

15,3350 

01045 

1 

1840 

15, 3351 

65254 

l 

1841 

REE 

1 

15,3352 

33362 

0 

1842 

15,3353 

51025 

1 

1843 

REF 

29 

LAST 

974 

15,3354 

01C45 

l 

1844 

REF 

2 

LAST 

974 

15,3355 

33362 

0 

184  5 

15,3356 

45545 

1 

1846 

REF 

41 

LAST  . 

973 

15,3357 

74335 

l 

184  7 

REF 

9 

LAST 

929 

15,3360 

36775 

1 

1848 

REF 

L 

15,3361 

33364 

0 

1849 

15,3362 

45545 

1 

P57C 

1850 

REF 

10 

LAST 

974 

15,3363 

75002 

l 

185  1 

REF 

49 

LAST 

95  1 

15,3364 

34041 

0 

P 570 

1852 

REF 

1 1 

LAST 

932 

15,3365 

27115 

1 

1853 

15,3366 

53575 

0 

1854 

REF 

32 

LAST 

951 

15,3367 

00001 

0 

1855 

REF 

14 

LAST 

973 

15,3370 

37607 

l 

1856 

REF 

2 

LAST 

929 

15,3371 

11014 

1 

1857 

15,3372 

77776 

1 

1858 

REE 

189 

LAST 

96  8 

15,3373 

3 4746 

0 

P ACKOPTN 

1859 

REF 

2 

LAST 

317 

15,3374 

55  1 144 

0 

I86  0 

REF 

3 

LAST 

974 

15,3375 

55'  145 

I 

1861 

REF 

4 

LAST 

955 

15,3376 

3 4730 

1 

1862 

REF 

10 

LAST 

955 

15,3377 

7 0077 

0 

1 d6  5 

REF 

277 

LAST 

973 

15,3400 

10  000 

0 

1864 

REF 

28 

LAST 

957 

15,3401 

3 4 736 

1 

186  5 

REF 

4 

LAST 

974 

15,3402 

27' 145 

1 

1866 

REF 

l 

15,3403 

3 4744 

1 

1867 

REF 

13 

LAST 

869 

15,3404 

7 C 102 

0 

186  8 

REF 

278 

LAST 

974 

15,3405 

10  000 

0 

1869 

REF 

44 

LAST 

952 

15,3406 

3 4741 

1 

1870 

REF 

5 

LAST 

974 

15,3407 

27' 145 

1 

187  1 

REF 

45 

LAST 

974 

15,3410 

3 4741 

1 

1872 

REF 

6 

LAST 

9 74 

15, 34  ll 

55'  143 

1 

1873 

REF 

1 

15,3412 

3 3633 

1 

DSPOPTN 

1874 

REF 

253 

LAST 

973 

15,3413 

0 4607 

1 

1875 

REF 

42 

LAST 

973 

15,3414 

20471 

1 

1876 

REF 

60 

LAST 

973 

15,3415 

1 6001 

1 

1877 

15,3416 

1 3420 

0 

1878 

REF 

1 

15,3417 

1 3412 

1 

1879 

REF 

5 

LAST 

974 

15,3420 

3 4730 

1 

1880 

REF 

1 1 

LAST 

974 

15,342  L 

7 C077 

0 

1881 

REF 

279 

LAST 

974 

15,3422 

10  000 

0 

1882 

REF 

1 

15,3423 

1 3523 

1 

1883 

REF 

2 

LAST 

974 

15,3424 

3 4 744 

l 

1884 

REE 

14 

LAST 

974 

15,3425 

7 0102 

0 
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RTB 

POOL 

LOADTIME 

DSPTEM1 

PUSH  CURRENT  TIME  AND  PICK  UP  KEY  IN 

BZE 

POOL 

P57C 

IF  KEY  IN  T IMF  ZERO-TALIGN= CUR RENT  TIME 

OSU 

B PL 

DSPTEM1 

P57C 

NOT  ZERO  SO  EXCHANGE  PD  WITH  DSPTEMl 

DLOAD 

STAOR 

IF  KEYIN  TIME  GREATER  THAN  CURRENT  TIME 

STORE 

TIG 

STORE  IT  IN  TIG 

STC ALL 

TALIGN 

P57D 

DLOAD 

STADR 

STORE 

TALIGN 

STC ALL 

T DEC  1 

LEMPREC 

COMPUTE  DESIRFD  I MU  ORIENTATION  STORE 

VLOAD 

UNIT 

RATT 

IN  X , Y , ZS  MD 

STC ALL 
EXIT 

X SMD 

LSORIENT 

CAF 

ZERO 

PACK  FLAC  BITS  FOR  OPTION  DISPLAY 

TS 

OPT  I ONI  +1 

JAM  ZERO  IN  ALIGNMENT  OPTION 

TS 

OPT  I ONI  3-2 

INITIALIZE  FLAG  BIT  CONFIGURATION 

CAF 

REFSMBIT 

MASK 

F LAGWRD3 

REFSMFLG 

CCS 

A 

CAF 

8 I T 7 

SET 

ADS 

OPTION!  +2 

CLEAR-JUST  ZFRO 

CAF 

ATTFLBI T 

MASK 

FLAGWRD6 

ATTFLG 

CCS 

A 

CAF 

B IT4 

SET 

ADS 

OPT  I ONI  +2 

CLEAR-ZFRO  IN  A 

CAF 

B IT4 

TS 

OPTIONl 

JAM  00010  IN  OPTIONl  FOR  CHECK  LIST 

CAF 

VB05N06 

DISPLAY  OPTION  CODE  AND  FLAG  BITS 

TC 

B ANKCALL 

CADR 

GOFLASH 

TCF 

GOTOPOOH 

VB34- TERMINATE 

TCF 

+ 2 

V33— PROCEED 

TCF 

D SPOPTN 

V32-P  ECYCLE 

CAF 

REFSMBIT 

MASK 

FLAGWRD3 

CCS 

A 

TCF 

GETLMATT 

SET,  GO  COMPUTE  LM  ATTITUDE 

CAF 

ATTFLBIT 

CLEAR-CHECK  ATTFLAG  FOR  STORED  ATTITUDE. 

MASK 

FLAGWRD6 
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1885 

REF 

280 

LAST 

974 

15,3426 

10  000 

0 

CCS 

A 

1886 

REF 

l 

15,3427 

1 3527 

0 

TCF 

8 YLMATT 

1887 

REF 

45 

LAST 

970 

15,3430 

3 4743 

0 

CAF 

8 IT2 

1888 

REF 

13 

LAST 

973 

15,3431 

7 1144 

0 

MASK 

0PTI0N2 

1889 

REF 

281 

LAST 

975 

15,3432 

10  000 

0 

CCS 

A 

1890 

REF 

2 

LAST 

975 

15,3433 

1 3527 

0 

TCF 

BYLMATT 

189  1 

REF 

38 

LAST 

957 

15,3434 

0 5571 

1 

TC 

ALARM 

1892 

15,3435 

CC  701 

1 

OCT 

701 

1893 

REF 

3 

LAST 

957 

15,3436 

3 4777 

1 

CAF 

VB05N09 

1894 

REF 

2 94 

LAST 

974 

15,3437 

0 4607 

1 

TC 

BANKCALL 

1895 

REF 

43 

LAST 

974 

15, 3440 

20471 

1 

CADR 

GOFLASH 

1896 

REF 

61 

LAST 

974 

15,3441 

l 6001 

1 

TCF 

GOTOPOOH 

1897 

REF 

2 

LAST 

974 

15,3442 

1 3412 

1 

TCF 

DSPOPTN 

189  8 

REF 

3 

LAST 

975 

15,3443 

1 3412 

1 

TCF 

DSPOPTN 
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ALLFLG  SET,  CHK  OPTION  FOR  GRAVITY  COMP 
SEE  IF  OPTION  2 OR  3 


OPTION  2 OR  3 BUT  DONT  HAVE  ATTITUDE 
OPTION  INCOMSISTANT  WITH  FLAGS— ALARM  701 

DISPLAY  ALARM  FOR  ACTION 


VB 34- TER  MI  NATE 

V33-PR0CFED  ********TEMPORARY 
VB32-RECYCLE  TO  OPTION  DISPLAY  V 05N06 
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P 1 899 

TRANSFORM  VFC1 

,2  FROM 

MOON  FIXED  TO  i 

REF 

AND  JAM 

BACK  IN 

VEC1.2 

1900 

15, 3 AAA 

A C 220 

0 

MFREF 

STQ 

SETPD 

190  l 

REF 

1 1 

l AST 

95  1 

15, 3AA5 

027A6 

0 

QMAJ 

1 

1 5 , 3 AA6 

OOCOl 

0 

0 

190  3 

15, 3AA7 

7 7 63  A 

0 

RTB 

190  A 

REF 

32 

LAST 

9 7 A 

15.3A50 

21603 

1 

LOADTIME 

190  6 

REF 

1A 

LAST 

96  8 

1 5 , 3 A5  1 

27562 

0 

STOVL 

TSIGHT 

1906 

REF 

A 

LAST 

969 

15.3A52 

C32A6 

1 

VEC  1 

1907 

1 5 , 3 A53 

A 1 52  5 

0 

POOL 

PUSH 

1908 

REF 

15 

t AST 

976 

15, 3A5A 

C3562 

0 

T SIGHT 

1909 

1 5 , 3 A55 

7762A 

1 

CALL 

191 

REF 

A 

LAST 

929 

15.3A56 

55  716 

1 

RP-TO-R 

191  1 

REF 

5 

LAST 

976 

15, 3A57 

272A6 

l 

STOVL 

VEC1 

1912 

REF 

2 

LAST 

968 

15, 3A60 

0325A 

1 

VEC2 

1913 

15, 3A61 

65201 

1 

SETPC 

P DDL 

191  A 

15,3  A62 

OOCOl 

0 

0 

1915 

REF 

16 

LAST 

976 

15, 3 A63 

03562 

0 

TSIGHT 

1916 

15.3A6A 

A5006 

0 

PUSH 

CALL 

191  7 

REF 

5 

LAST 

976 

15, 3 A65 

55716 

1 

RP-TO-R 

1918 

REF 

3 

LAST 

976 

15.3A66 

3725A 

0 

STC ALL 

V EC2 

1919 

REF 

12 

LAST 

976 

15, 3 A67 

C27A6 

0 

OMAJ 
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GAP: 

ASSEMBLE  REVISION  210 

OF  A GC  PROGRAM  LUMINARY  BY 

NASA  2021112-161 

17:11  MAR.  19 , 

1971 

LEMP50S 

.130  PAGE 

L 

P51- 

P53 

USFR 1 S 

PAGE 

NO.  55 

E5  S3 

P 192  0 

COMPUTE 

LM  ATTITUDE 

IN  MOON 

FIXED  COORDINATES 

USING  REFSMMAT  AND 

R192  1 

STORE  IN 

YNBSAV  AND 

ZN8SAV 

1922 

15,3470 

45020 

1 REFMF 

STO 

CALL 

192  3 

REF 

13 

LAST 

976 

15,3471 

02746 

0 

QMAJ 

192  4 

REF 

9 

LAST 

972 

15,3472 

47522 

1 

CDUTR  IG 

GET 

SIN  AND 

COS 

OF  CDUS 

1925 

15,3473 

40234 

0 

RTB 

SETPD 

192  6 

KEF 

33 

LAST 

976 

15,3474 

21603 

1 

LOADTIME 

192  7 

15,3475 

CC001 

0 

0 

1923 

REF 

17 

LAST 

976 

15,3476 

37562 

1 

STCALL 

TSIGHT 

1929 

REF 

5 

LAST 

972 

15,3477 

20030 

0 

C ALCSMSC 

GET 

YNB  IN 

SM 

1 

15,3500 

61375 

1 

VLOAD 

VXM 

193  t 

REF 

4 

LAST 

966 

15,3501 

02673 

1 

YNB 

1932 

REF 

55 

LAST 

973 

15,3502 

01732 

0 

REFSMMAT 

YNG 

i TO  REF 

1933 

15, 3503 

65256 

0 

UNIT 

PDDL 

1 < . 

RFF 

10 

LAST 

977 

15,3504 

03562 

0 

TSIGHT 

193  5 

15,3505 

45006 

0 

PUSH 

CALL 

1936 

REF 

3 

LAST 

97  1 

15,3506 

51644 

0 

R-TO-RP 

1937 

REF 

4 

LAST 

214 

15,3507 

26230 

1 

STOVL 

YNBSAV 

YNB 

TO  MF 

1938 

KEF 

4 

LAST 

935 

15,3510 

C2701 

0 

ZNB 

1939 

15,3511 

53505 

1 

VXM 

UNIT 

l • i 

REF 

56 

LAST 

977 

15,3512 

01732 

0 

REFSMMAT 

ZNB 

TO  RFF 

1941 

15,3513 

41525 

0 

PDDL 

PUSH 

1942 

REF 

19 

LAST 

977 

15,3514 

C3562 

0 

TSIGHT 

1943 

15,3515 

77624 

1 

CALL 

1944 

REF 

4 

LAST 

977 

15,3516 

51644 

0 

R-TO-RP 

ZNB 

TO  MF 

1945 

REF 

2 

LAST 

215 

15,  1517 

02236 

1 

STORE 

ZNBSAV 

1 

15,3520 

77614 

1 

SET  GO 

194  7 

REF 

1 

15,3521 

03036 

1 

ATTFLAG 

1948 

REF 

14 

LAST 

977 

15,3522 

02746 

0 

QMAJ 

I 


I 


I 


977 
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978 


195  0 

REF 

2 12 

LAST 

973 

15, 3523 

0 6060 

1 

GETLMATT 

TC 

INTPRET 

1951 

15,3524 

77624 

1 

CALL 

1952 

REF 

3 

LAST 

970 

15,3525 

33470 

1 

REFMF 

GO  TRANSFORM  TO  MF  IN  YNB S A V , ZN BS AV 

1953 

15,3526 

777  76 

1 

EXIT 

1954 

REF 

69 

LAST 

963 

15,3527 

0 5506 

1 

BYLMATT 

TC 

UPFLAG 

SET  INITIAL  ALIGN  FLAG 

1955 

REF 

3 

LAST 

972 

15,3530 

00205 

0 

ACRES 

INITALGN 

1956 

REF 

50 

LAST 

973 

15,3531 

3 4 744 

1 

CAF 

RIT1 

1957 

REF 

14 

LAST 

975 

15,3532 

7 1144 

0 

MASK 

0PTI0N2 

SEE  IF  OPTION  1 OR  3 

1958 

REF 

282 

LAST 

975 

15,3533 

IC  000 

0 

CCS 

A 

1959 

REF 

2 

LAST 

963 

15,3534 

1 2615 

0 

TC  F 

GVOETER 

OPTION  1 OR  2,  GET  GRAVITY 

1960 

REF 

1 C 5 

LAST 

973 

15,3535 

0 5355 

1 

ATTCHK 

TC 

PHASCHNG 

1961 

15,3536 

04024 

0 

OCT 

04024 

1962 

REF 

3 

LAST 

974 

15,3537 

3 4 744 

1 

CAF 

ATT  EL  B I T 

NOT  1 OR  3,  CHECK  ATTFLAG 

1963 

REF 

15 

LAST 

974 

15,3540 

7 C 102 

0 

MASK 

F LAGWRD6 

1964 

REF 

283 

LAST 

578 

15,3541 

10  000 

0 

CCS 

A 

1965 

REF 

1 

15,3542 

1 3557 

1 

TCF 

P570PT0 

GET  ALIGNMENT  VECS  FOR  OPTION  0 

1966 

REF 

1C6 

LAST 

978 

15, 3543 

0 5355 

1 

P57JUMP 

TC 

PHASCHNG 

196  7 

15,3544 

04024 

0 

OCT 

04024 

1963 

REF 

93 

LAST 

9 73 

15,3545 

0 5520 

0 

TC 

DOWNFLAG 

ATTFLG  CLEAR-RESET  IMTALIGN  FLAG 

1969 

REF 

4 

LAST 

978 

15,3546 

0C2O5 

0 

ADRES 

I NITALGN 

1970 

REF 

29 

LAST 

973 

15,3547 

3 6266 

0 

CAF 

THREE 

197  1 

KEF 

15 

LAST 

978 

15,3550 

7 1144 

0 

MASK 

0 PT I 0N2 

BRANCH  ON  OPTION  CODE 

1972 

REF 

284 

LAST 

978 

15,3551 

50  000 

1 

INDEX 

A 

1973 

15,3552 

1 3553 

0 

TCF 

+ 1 

1974 

REF 

2 

LAST 

978 

15,3553 

1 3557 

l 

TCF 

P570PT0 

OPTION  IS  0 

1975 

REF 

1 

15,3554 

l 3600 

0 

TCF 

P570PTI 

OPTION  IS  1 

1976 

REF 

1 

15,3555 

l 3616 

1 

TCF 

P570PT2 

OPTION  IS  2 

1977 

REF 

1 

15,3556 

1 3617 

0 

TCF 

P570PT3 

OPTION  IS  3 

GAP: 
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L 

P 5 1- 

-P  53 

P 19  78 

OPTION  C 

, GET 

TWO  ATTITUDE  VECS 

1979 

REF 

213 

LAST 

978 

15,3557 

0 6060 

l 

P57OPT0 

1980 

15,3560 

77775 

1 

198  1 

REF 

5 

LAST 

977 

15,3561 

02230 

1 

19B2 

REF 

6 

LAST 

976 

15,3562 

27246 

l 

1983 

REF 

3 

LAST 

9 77 

15,3563 

C2236 

1 

1984 

REF 

4 

LAST 

9 76 

15,3564 

37254 

0 

1985 

REF 

10 

LAST 

977 

15,3565 

47522 

1 

1986 

15,3566 

77624 

1 

19B7 

REF 

6 

LAST 

977 

15,3567 

20030 

0 

1988 

15,3570 

77775 

l 

1989 

REF 

5 

LAST 

977 

15,3571 

02673 

1 

1990 

REF 

1 1 

LAST 

969 

15,3572 

26761 

0 

SAMETYP 

199  l 

REF 

5 

LAST 

977 

15, 3573 

02701 

0 

1992 

REF 

1 1 

LAST 

968 

15,3574 

36767 

1 

1993 

REF 

1 

15,3575 

33444 

0 

1994 

15,3576 

77650 

1 

1995 

REF 

2 

LAST 

968 

15,3577 

33120 

1 

R 1996 

OPTION  1, 

, GET 

LANDING 

SITE  AND 

Z-ATTITUDE  VEC 

199  7 

REF 

214 

LAST 

979 

15,3600 

0 6060 

1 

P570PTI 

199  8 

15,3601 

53575 

0 

1999 

REF 

13 

LAST 

97  1 

15,3602 

02021 

0 

200  0 

REF 

7 

LAST 

979 

15,3603 

27246 

1 

200  1 

REF 

4 

LAST 

979 

15,3604 

02236 

l 

2002 

REF 

5 

LAST 

979 

15,3605 

37254 

0 

2003 

REF 

1 1 

LAST 

979 

15,3606 

47522 

l 

2004 

15,3607 

77624 

1 

2005 

RFF 

7 

LAST 

979 

15,3610 

20030 

0 

2006 

15,361  l 

45  175 

0 

200  7 

REF 

9 

LAST 

970 

15,3612 

02222 

l 

2008 

REF 

3 

LAST 

970 

15,3613 

47653 

1 

2009 

15,3614 

77650 

1 

2010 

REF 

1 

15,3615 

33572 

1 
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TC 

INTPRET 

VLOAD 

YNBSAV 

Y AND  Z ATTITUOE  WILL 

BE 

PUT 

IN  REF 

STOVL 

VEC1 

ZNBSAV 

STC ALL 

V EC2 
CDUTR  IG 

CALL 

CALCSMSC 

COMPUTE  SC  AXIS  WRT  PRESFNT 

SM 

VLOAD 

YNB 

STOVL 

STAR  S AV 1 
ZNB 

Y SC  AXIS  WRT  PRESENT 

SM 

STCALL 

STARSAV2 

Z SC  AXIS  WRT  PRESENT 

SM 

MFREF 

TRANSFORM  VFC1.2  FROM 

MF 

TO 

REF 

GOTO 

SURFL INE 

TC 

I NTPRET 

VLOAD 

UNIT 

RLS 

LANDING  SITE  VEC 

STOVL 

VEC1 

ZNBSAV 

Z ATT ITUDE  VEC 

STCALL 

V EC2 
CDUTR  IG 

CALL 

CALCSMSC 

GET  ZNB  AXIS  WRT  PRES 

SM 

FOR 

STARS A V2 

VLOAD 

CALL 

GSAV 

CDU*NBSM 

TRANS  GSAV  FROM  NB  TO 

SM 

FOR 

STARS A VI 

GOTO 

SAMETYP 

NOW  DC  SAME  AS  OPTION 

0 
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L 

P51- 

P53 

P201  1 

OPTION  2, 

, GET 

TWO-STAR  SIGHTINGS 

2012 

REF 

1 

15,3616 

1 306A 

1 

P570PT2 

TCF 

2STARS 

R2013 

OPTION  3, 

, GET 

LANDING 

SITE  VEC 

AND  ONE 

STAR  SIGHT 

ING 

201  A 

REF 

215 

LAST 

979 

15,3617 

0 6060 

1 

P570PT3 

TC 

INTPRET 

201  5 

15,3620 

53575 

0 

VLOAD 

UNIT 

2016 

REF 

1A 

LAST 

979 

15, 3621 

02021 

0 

RLS 

201  7 

REF 

8 

LAST 

979 

15,3622 

032A6 

1 

STORE 

VEC1 

2018 

REF 

6 

LAST 

979 

15,3623 

2725A 

1 

STOVL 

VEC2 

2019 

REF 

10 

LAST 

979 

15, 362A 

02222 

1 

GSAV 

2020 

15,3625 

7762A 

1 

CALL 

202  1 

REF 

A 

LAST 

9 79 

15,3626 

A7653 

1 

C DU*NBSM 

2022 

REF 

12 

LAST 

979 

15,3627 

36761 

l 

STC  ALL 

STARSAVl 

2023 

REF 

2 

LAST 

979 

15,3630 

3 3 AAA 

0 

MFREF 

202  A 

15,3631 

77776 

l 

EX  I T 

2025 

REF 

2 

LAST 

968 

15,3632 

1 3C66 

0 

TCF 

1 STAR 

2026 

15,3633 

01206 

l 

VB05N06 

VN 

5 06 
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00  SIGHTING  ON  2 STARS 


LANDING  SITE  VEC 

DUMMY  VEC2  FOR  2ND  CATALOG  STAR 
GR AVI TY  VFC  NB 

TRANS  GSAV  FROM  NB  TO  SM  FOR  STARSAVl 
STARSAV2  IS  STORED  AS  2ND  OBSERVED  STAR 


1STAR  GET  VFC?,STARSAV2,G0FS  TO  SURFLINE 
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P2027 

CHECK  1 MODE  S30 

TO 

VARIFY  IMU 

2028 

REF 

47 

LAST 

485 

15,3634 

2029 

REF 

23 

LAST 

952 

15,3635 

2030 

REF 

2E  5 

LAST 

978 

15,3636 

2031 

15,3637 

203  2 

REF 

39 

LAST 

975 

15,3640 

203  3 

15,3641 

2034 

REF 

62 

LAST 

975 

15,3642 

2035 

REF 

70 

LAST 

978 

15, 3643 

2 03  6 

REE 

5 

LAST 

400 

15,3644 

203  7 

REF 

5 

LAST 

553 

15,3645 

2039 

REF 

2 

LAST 

260 

04,2000 

2040 

04,3014 

2041 

REF 

l 

2042 

04,3014 

2043 

REF 

15 

LAST 

977 

04,3015 

2044 

REF 

6 

LAST 

842 

04,3016 

2045 

04,3017 

2046 

REF 

2 

LAST 

842 

04,3020 

204  7 

REF 

15 

LAST 

974 

04,3021 

2048 

04,3022 

2049 

REF 

5 

LAST 

95  1 

04,3023 

2050 

C4.3024 

2051 

REF 

16 

LAST 

98  1 

04,3025 

2052 

REF 

6 

LAST 

95  1 

04,3026 

205  3 

REF 

16 

LAST 

981 

04,3027 

IS  ON 


4 1277 

0 IMUCHK 

cs 

1 MODES30 

7 4734 

1 

MASK 

B I T9 

10  COO 

0 

CCS 

A 

1 3643 

1 

TCF 

+4 

0 55  71 

1 

TC 

ALARM 

00210 

1 

OCT 

2 10 

0 6001 

0 

TC 

GOTOPOOH 

0 5506 

1 

TC 

UPFLAG 

0CC07 

0 

ADRES 

I MUSE 

C 4622 

0 

TC 

SWRETURN 

SETLOC 

A0TMARK2 

BANK 
COUNT  * 

i t/P5  7 

77220 

1 

LSORIENT  STQ 

VLOAD 

02746 

0 

QMAJ 

Cl  555 

0 

RR.ECTCSM 

47235 

0 

VXV 

VXV 

01563 

0 

VRECTCSM 

03607 

0 

XSMD 

77656 

1 

UNIT 

03623 

0 

STORE 

ZSMD 

53435 

0 

VXV 

UNIT 

03607 

0 

XSMD 

37615 

1 

STCALL 

YSMD 

02746 

0 

QMAJ 
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IS  IMU  ON 
YFS 

NO,  SEND  ALARM  AND  EXIT 


SET  IMUSE  FLAG 
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R2000  NAME  - LSPOS  - LOCATE  SUN  AND  MOON  DATE  - 25  OCT  67 

R2002  *MOD  NO. 2 (DATE  OCT  70) 

R2004  MOD  BY  NEVILLE  ASSEMBLY  SUNDANCE 

R2006  FUNCTIONAL  DESCRIPTION 


R2007  COMPUTES  UNIT  POSITION  VECTOR  OF  THE  SUN  AND  MOON  IN  THE  BASIC  REFERENCE  SYSTEM.  THE  SUN  VECTOR  S IS 

R 2009  LOCATED  VIA  TWO  ANGLES.  THE  FIRST  ANGL E 1 0 BL I QU I T Y ) IS  THF  ANGLE  BETWEEN  THE  EARTH  FQUATOR  AND  THE  ECLIPTIC.  THF 

R2011  SECOND  ANGLE  IS  THE  LONG  I TUUE  OF  THF  SUN  MEASURED  IN  THE  ECLIPTIC. 

R201 2 THE  POSITION  VECTOR  OF  THE  SUN  IS 
R2013 

R2014  S= ( COS ( LUS ) , COSIOBL )*SIN< LOS) , S I N ( OR L ) *S I N ( LOS  I ) , WHERE 


R20L5 
R2016 
R201  7 
R2019 
R2020 
R2021 
R2022 
R2023 
R2024 
R2025 
R2026 
R2028 
R2029 
R2031 


LOS=LOS  +LOS  *1-(C  *SIN(2PI*T)/365.24  +C  *COS  t 2P  I*T)  /365 . 24 ) 

0 R 0 l 

LCS  (RAD)  IS  THF  LONGITUDE  OF  THE  SUN  FOR  MIDNIGHT  JUNE  30TH  OF  THE  PARTICULAR  YEAR. 

0 

LCS  (RAD/DAY)  IS  THE  MEAN  RATE  FOR  THE  PARTICULAR  YEAR. 

R 

LOS  AND  LOS  ARE  STORED  AS  LCSC  AND  LOSR  IN  RATESP. 

0 R 

COSIOBL)  AND  SIN(OBL)  ARE  STORED  IN  THE  MATRIX  KONMAT. 

T,  TIME  MEASURED  IN  DAY S ( 24  HOURS),  IS  STORED  IN  TIMEP. 

C AND  C ARE  FUDGE  FACTORS  TO  MINIMIZE  THE  DEVIATION.  THEY  ARE  STORED  AS  ONE  CONST AN T I CMOD ) , SINC.F 
01  221/2 
C *SIN(X)+C  *COS(X)  CAN  BE  WRITTEN  AS  (C  +C  ) *SIN(X+PHI),  WHERE  PHI=APCTAN(C  /C  ). 

0 1 0 1 10 


R2033  THE  MCON  IS  LOCATED  VIA  FOUR  ANGLES.  THE  FIRST  IS  THE  OBLIQUITY.  THE  SECONO  IS  THE  MEAN  LONGITUDF  OF  THE  MOON, 

R2035  MEASURED  IN  THE  ECLIPTIC  FROM  THE  MEAN  EQUINOX  TO  THE  MEAN  ASCENDING  NODE  OF  THE  LUNAR  ORBIT,  AND  THEN  ALONG  THE 

R2037  ORBIT.  THE  THIRD  ANGLF  IS  THE  ANGLE  BETWEEN  THE  ECLIPTIC  AND  THE  LUNAR  ORBIT.  THE  FOURTH  ANGLE  IS  THE  LONGITUDE 

R2039  OF  THE  NODE  OF  THE  MOON,  MEASURED  IN  THE  LUNAR  ORBIT.  LET  THESE  ANGLES  BE  OBL , LOM, I M , AND  LON  RESPECTIVELY. 


R2041  THE  SIMPLIFIED  POSITION  VECTOR  OF  THE  MOON  IS 
R2042 

R 204  3 M='(  CC  S l LOM ) , COS(OBL)*SIN(LCM)-SIN(OBL)*SIN<  I M ) *S I N ( LOM-LON ) , SIN(03L)*SIN( LOM )+COS (OBL )*SIN(  IM  ) * S I N ( LDM-LON  ) ) 

R2045  WHERE 

R2046  IL  M = LOM  + LOM  *T-(A  *SIN  2P I * T/ 2 7 . 554 5+A  *C OS ( 2P I * T/ 2 7 . 5 545 ) +8  *SIN  2PI*T/32+B  *C OS ( 2P I * T / 32 ) ) , AND 

R2048  0 R 0 1 0 1 

R2050  LCN=LON  + LON 

R2051  0 R 

R2052  A , A , B AND  B ARE  STORED  AS  AMOU  AND  BMOD  (SFE  DESCRIPTION  OF  CMOD,  ABOVE).  COSIOBL),  S I N ( OBL  ) *S I N ( I M ) , 
R2054  010  1 

R2055  SIN(OBL),  AND  COS < OBL ) *S I N ( I M)  ARE  STORED  IN  KONMAT  AS  Kl,  K2,  K3  AND  K4,  RESPECTIVELY.  LOM  , LOM  , LON  , LON 
R2057  ARE  SIOREC  AS  LOMO,  LCMR,  LONO,  AND  LONR  IN  RATESP.  0 P.  0 R 

R2059  TIE  THREE  PHIS  ARE  STORED  AS  AARG,  BARG,  AND  CARGISUN).  ALL  CONSTANTS  ARE  UPDATED  BY  YEAR. 

R2061  CALLING  SEQUENCE 


GAP:  ASSEMBLE  REVISION  2 LO  OF  A GC  PROGRAM  LUMINARY  BY  NASA  20 21  1 1 2- 1 £1 
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R2062  CALL  LSPOS.  RETURN  IS  VIA  GPRET. 
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R2063  ALARMS  OR  ABORTS 
R2064  NONE 

R2065  ERASABLE  INITIALIZATION  REQUIRED 


R2066  TEPEEM  - TIME  FROM  MIDNIGHT  1 JULY  PRECEDING  THE  LAUNCH  TO  THE  TIME  OF  THE  LAUNCH  (WHEN  THE  AGC  CLOCK  WENT 

R 206 B TO  ZERO).  TEPHEM  IS  TP  WITH  UNITS  OF  CENT I-S ECONDS . 

R2069  TIME2  AND  T I ME  1 ARE  IN  MPAC  AND  MPAC  +1  WHEN  PROGRAM  IS  CALLED. 

R2070  OUTPUT 


R2071  UNIT  POSITIONAL  VECTOR  OF  SUN  IN  VSUN.  (SCALED  8-1) 

R2072  UNIT  POSITIONAL  VECTOR  OF  MCON  IN  VMOON.  (SCALED  B- 1 ) 

R2073  SUBROUTINES  USED 

R2074  NONE 

R2C75  DEBRIS 


R2076 

CURRENT 

CORE 

SET  , 

iWORK  AREA 

AND  FREEFLAG 

2077 

04,3030 

BANK 

04 

2077C1 

REF 

2 

LAST 

54 

15,2000 

SETLOC 

EPHEM 

2077C2 

L 5 , 3 646 

RANK 

2078 

REF 

6 

LAST 

960 

E5 , 1714 

EBANK= 

VSUN 

20785 

REF 

1 

COUNT* 

$ t/EP  HEM 

20786 

REF 

2 

LAST 

932 

15,3646 

LUNPOS 

EQUALS 

LSPOS 

2079 

15,3646 

54201 

0 

LSPOS 

SETPD 

SR 

2080 

15,3647 

00001 

0 

0 

2082 

15,3650 

20617 

0 

14D 

TP 

2083 

15, 3651 

56371 

1 

TAD 

ODV 

2084 

REF 

3 

LAST 

254 

15, 3652 

C 1 707 

0 

TEPHEM 

TIME  OF  LAUNCH 

2086  *REF 

L 

15,3653 

32001 

l 

CSTODAY 

24  HOURS- 8 640 000 

CENT  I 

2087 

REF 

1 

15,3654 

00031 

0 

STORE 

T IMEP 

T IN  DAYS 

2088 

15,3655 

77170 

1 

AXT  , 1 

A X 1 ,2 

2089 

15,3656 

00000 

1 

0 

2090 

15,3657 

00000 

1 

0 

2091 

15,3660 

77614 

1 

CLEAR 

2092 

REF 

10 

LAST 

969 

15,366  1 

00  2 74 

0 

FREEFLAG 

SWITCH  BIT 

2093 

15,3662 

77745 

1 

POSI TA 

OLOAD 

2094 

REF 

l 

15,3663 

12004 

0 

KONMAT  +2 

ZEROS 

2095 

REF 

1 

15,3664 

00027 

1 

STORE 

GTMP 

2096 

15,3665 

4C745 

0 

POSI TB 

DLOAD 

DMP* 

2097 

REF 

2 

LAST 

983 

15,3666 

00031 

0 

T IMEP 

T 

2098 

REF 

1 

15,3667 

12030 

1 

VAL67  +4, 1 

1/27  OR  1/32  OR 

1 /365 
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2099 

15,3670 

42661 

0 

SL 

DAD* 

2100 

* 

15,3671 

20212 

1 

9D 

2101 

REF 

2 

LAST 

983 

15,3672 

12026 

0 

VAL67  +2,1 

AARG 

2102 

15,3673 

4C756 

1 

SIN 

DMP* 

SINIT/27+PHI ) OR  T/32  OR  T/365 

2103 

REF 

3 

LAST 

984 

15,3674 

12024 

1 

VAL67 ,1 

(A0**2+Al**2)**l/2SIN( X+PHIA) 

2104 

15,3675 

62015 

1 

DAO 

I NCR,  1 

PLUS 

2105 

REF 

2 

LAST 

983 

15,3676 

00027 

1 

GTMP 

( B0**2+Bl**2  1**l/2SINt  X + PHIB) 

2106 

15,3677 

7 7 7 7 L 

0 

DEC 

-6 

210  7 

REF 

3 

LAST 

984 

15,3700 

00027 

1 

STORE 

GTMP 

OR  (C0**?+Cl**2)**l/2SINI X+PHICI 

2108 

15,3701 

77614 

1 

BOFSET 

2109 

REF 

1 1 

LAST 

983 

15,3702 

0CC54 

0 

FREEFLAG 

2110 

REF 

1 

15,3703 

33665 

1 

POSITB 

211  1 

15,3704 

40745 

0 

POSI TO 

OLD  AD 

DMP* 

2112 

REF 

3 

LAST 

983 

15,3705 

00031 

0 

T I ME  P 

T 

2113 

REF 

l 

15,3706 

67752 

0 

RATESP.2 

LOMR, LOSR,LONR 

2114 

15,3707 

42661 

0 

SL 

DAD* 

2115 

* 

15,3710 

20207 

0 

6 D 

2116 

REF 

2 

LAST 

984 

15, 37  L 1 

67744 

1 

RATESP  +6,2 

LOMO, LOSO , LONO 

2117 

15,3712 

77625 

0 

DSU 

2118 

REF 

4 

LAST 

984 

15,3713 

00027 

l 

GTMP 

2119 

REF 

l 

15,3714 

10021 

0 

STORE 

STMP , 2 

LOM.LOS, LON 

2120 

15,3715 

63  135 

0 

SLOAD 

I NCR , 2 

212  1 

REF 

l 7 

LAST 

962 

15,3716 

00050 

1 

X2 

2122 

15,3717 

777  75 

1 

DEC 

-2 

2123 

15,3720 

53015 

0 

DAD 

BZE 

2124 

REF 

1 

15,3721 

32003 

0 

RCB-13 

PLUS  2 

2125 

REF 

1 

15,3722 

33752 

l 

POSITE 

2ND 

2126 

15,3723 

77644 

1 

BPL 

2127 

REF 

l 

15,3724 

33662 

0 

POSITA 

1ST 

2128 

15,3725 

45345 

1 

POSI TF 

DLOAD 

DSU 

3RD 

2129 

REF 

2 

LAST 

934 

15,3726 

1 

l 

STMP 

LOM 

2130 

REF 

3 

LAST 

934 

15,3727 

00025 

0 

STMP  +4 

LON 

2131 

15,3730 

65356 

l 

SIN 

POOL 

S I N I LOM— LON  1 

2132 

REF 

4 

LAST 

984 

15,3731 

00021 

1 

STMP 

2133 

15,3732 

65356 

1 

SIN 

POOL 

SIN  LOM 

2134 

REF 

5 

LAST 

984 

15,3733 

0CC21 

1 

STMP 

2135 

15,3734 

55546 

0 

COS 

VDEF 

COS  LOM 

2136 

15,3735 

53521 

L 

MX  V 

UNIT 

2137 

REF 

2 

LAST 

983 

15,3736 

12002 

0 

KONMAT 

K1 ,K2 ,K3 ,K4, 

213  8 

REF 

8 

LAST 

932 

15,3737 

02723 

0 

STORE 

V MOON 

2139 

15, 3740 

65345 

0 

DLOAC 

POOL 

2140 

REF 

3 

LAST 

984 

15,3741 

12004 

0 

KONMAT  +2 

ZERO 

214  1 

REF 

6 

LAST 

984 

15,3742 

0C023 

0 

STMP  +2 

2142 

15,3743 

65356 

1 

SIN 

PDDL 

SIN  LOS 

2143 

REF 

7 

LAST 

984 

15,3744 

00023 

0 

STMP  +2 

2144 

15,3745 

55546 

0 

COS 

VDEF 

COS  LOS 

2145 

15, 3746 

53521 

1 

MX  V 

UNIT 

2146 

REF 

4 

LAST 

984 

15,3747 

12002 

0 

KONMAT 

2147 

REF 

7 

LAST 

933 

15,3750 

02715 

0 

STORE 

V SUN 

2148 

15,3751 

77616 

0 

RVQ 
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21A9 

15,3752 

777A5 

1 

POSI TE 

DLOAD 

2150 

REF 

5 

LAST 

98  A 

15,3753 

1200A 

0 

KONMAT  +2 

2151 

REF 

5 

LAST 

98  A 

15.375A 

00027 

1 

STORE 

GTMP 

2152 

15,3755 

77650 

1 

GOTO 

2153 

REF 

1 

15,3756 

3370A 

1 

POSITD 

21536 

REF 

3 

LAST 

5A 

05,2000 

SETLOC 

EPHEMl 

2153  7 

05,3507 

BANK 

2 15  3 E 

REF 

2 

LAST 

53  TO 

5A : 

52 

52* 

COUNT* 

$ S/EPHEM 

216  3 

0020 

STMP 

EQUALS 

16D 

2 1 6 A 

0026 

GTMP 

EQUALS 

220 

2165 

0030 

T IMEP 

EQUALS 

2 AD 

***  END  OF  LERP50S  .130  *** 
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USER' S PAGE  NO.  1 EO  S3 


ROOOl 

R0002 

R0004 

ROOD  6 

R000  8 

ROOIO 

ROOl  1 

R0012 

ROOl  3 

ROOl  A 

ROOl  5 

ROOl  fa 

ROOl  7 

ROOl  8 

R0019 

R0020 

R0021 

R0022 

R002  3 

R0024 

R0025 

R0026 

R0027 

R0020 

R0029 

R0030 

R0031 

R0032 

R003  3 

R0034 

R0036 

R0038 

R0040 

R0042 

R004  3 

R004  7 

R0048 

R0049 

R0050 

R005  1 

R0052 

R00522 

R00525 

R0052 1 

R0053 

R0054 

R0055 

R0056 

R0058 

R0059 


PROGRAM  NAME-  DOWN  TELEMETRY  PROGRAM 

MOD  NO.-  0 TO  COMPLETELY  REWRITE  THE  DOWN  TELEMETRY  PROGRAM  AND  DOWNLINK  ERASABLE  DUMP  PROGRAM  FOR  THF 

PURPOSE  OF  SAVING  APPROXIMATELY  150  WORDS  OF  CORE  STORAGE. 

THIS  CHANGE  REQUIRES  AN  ENTIRELY  NEW  MFTHOD  OF  SPECIFYING  DOWNLINK  LISTS. REFER  TO  DOWNLINK 
LISTS  LOG  SECTION  FOR  MORE  DETAILS.  HOWEVER  THIS  CHANGE  WILL  NOT  AFFECT  THE  GROUNO  PROCESSING 
OF  DCWN  TELEMETRY  OATA. 

MOD  BY-  KILROY,  SMITH,  DEWITT 
CATE-  020CT67 

AUTHORS-  KILROY,  SMITH,  DEWITT,  DEWOLF,  FAGIN 
LOG  SECTION-  DOWN-T EL EMFT RY  PROGRAM 

FUNCTIONAL  DESCRIPTION-  THIS  ROUTINE  IS  INITIATED  BY  TELEMETRY  END 

PULSE  FROM  THE  DOWNLINK  TELEMETRY  CONVERTER.  THIS  PULSE  OCCURS 
AT  50  TIMES  PER  SEC ( EVERY  20  MS)  THEREFORE  DODOWNTM  IS 
EXECUTED  AT  THFSE  RATES.  THIS  ROUTINE  SELECTS  THE  APPROPRIATE 
AGC  DATA  TO  BE  TRANSMITTED  OOWNLINK  AND  LOADS  IT  INTO  OUTPUT 
CHANNELS  34  AND  35.  THE  INFORMATION  IS  THEN  GATED  OUT  FROM  THE 
LGC  IN  SERIAL  FASHION. 

THIS  PROGRAM  IS  COOED  FOR  A 2 SECOND  DOWNLIST.  SINCE  DOWNRUPTS 
OCCUR  EVERY  20MS  AND  2 AGC  COMPUTER  WORDS  CAN  BE  PLACED  IN 
CHANNELS  34  AND  35  DURING  EACH  DOWNRUPT  THE  PROGRAM  IS  CAPABLE 
OF  SENDING  200  AGC  WORDS  EVERY  2 SECONDS. 

CALLING  SEQUENCE-  NONE 

PROGRAM  IS  ENTERED  VIA  TCF  DODOWNTM  WHICH  IS  EXECUTED  AS  A 
RESULT  OF  A DOWNRUPT.  CONTROL  IS  RETURNED  VIA  TCF  RESUME  WHICH 
IN  EFFECT  IS  A RESUME. 

SUBROUTINES  CALLED-  NONE 
NORMAL  EXIT  MODE-  TCF  RESUME 
ALARM  CR  ABORT  EXIT  MODE-  NONE 
RESTART  PROTECTION: 

ON  A FRESH  START  AND  RESTART  THE  'STARTSUB'  SUBROUTINE  WILL  INITIALIZE  THE  DOWNLIST  POI NTER ( ACTUAL LY 
DNTMGOTO)  TO  THE  BEGINNING  OF  THE  CURRENT  DOWNL I ST ( I . E . CURRENT  CONTENTS  OF  DNLSTADR).  THIS  HAS  THE 
EFFECT  OF  IGNORING  THE  REMAINDER  UF  THE  DOWNLIST  WHICH  THE  DOWN-T EL E MET RY  PROGRAM  WAS  WORKING  ON  WHFN 
THE  RESTARTIOR  FRESH  START)  OCCURRED  AND  RESUME  DOWN  TELEMETRY  FROM  THE  BEGINNING  OF  THE  CURRENT 
DOWNLIST . 

ALSO  OF  INTEREST  IS  THE  FACT  THAT  ON  A RESTART  THE  AGC  WILL  ZERO  DOWNLINK  CHANNELS  13,  34  AND  35. 
DOWNLINK  LIST  SELECTION: 

THE  APPROPRIATE  DOWNLINK  LISTS  ARE  SELtCTED  BY  THE  FOLLOWING: 

1 . FRESH  START 

2.  V37FXXE  WHERE  XX  = THE  MAJOR  MODE  BEING  SELECTED. 

3.  UPDATE  PROGRAM ( P2 7 I 

4.  NON-V37  SELECTA8LE  TYPE  PROGRAMS ( E .G . AGS  I N I T I AL I Z AT  I ON ( SUND ANC E , LUM I NA R Y ) AND  P61-P62 
TRANSITION(COLOSSUS)  ETC.). 

DOWNLINK  LIST  RULES  AND  LIMITATIONS: 

READ  SECT  ION  ( S ) WHICH  FOLLOW  'DEBRIS'  WRITF.UP. 

OUTPUT-  EVERY  2 SECONDS  100  DOUBLE  PRECISION  WORDSII.E.  200  LGC 
COMPUTER  WORDS)  ARE  TRANSMITTED  VIA  OOWNLINK. 

ERASABLE  INITIALIZATION  REQUIRED-  NONE 

■DNTMGOTO'  AND  'DNLSTADR'  ARE  INITIALIZED  BY  THE  FRESH  START  PROGRAM. 

DEBRISIERASABLE  LOCATIONS  DESTROYED  BY  THIS  PROGRAM)- 

LDATALST  ,ONTMBUFF  TO  DNTMBUFF  <-2  ID  , T M I NO  EX  , DNQ . 
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DOWN-TELEMETRY  PROGRAM 


USER'S  PAGE  NO.  2 EO  S3 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021U2-I6I  17:11  MAR.  19,1971  SKIPPER  .131  PAGF  988 
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P0065  DODOWNTM  IS  ENTERED  EVERY  20  MS  BY  AN  INTERRUPT  TRIGGERED  BY  THE 
R0066  RECEIPT  OF  AN  ENOPULSE  FROM  THE  SPACECRAFT  TELEMETRY  PROGRAMMER. 


R0067 
R0068 
R0069 
R0070 
R0075 
R0076 
R0077 
R0078 
R0079 
R 0080 
R0081 
R0082 
R008  3 
R0084 
R0085 
R0086 
R0087 
K0088 
R0089 
R0090 
R0091 
R0092 
R0093 
R0094 
R0095 
R0096 
R0097 
R0098 
R0100 
R010  1 
RO 10  3 
RO  104 


NOTES  REGARDING  DOWNLINK  LISTS  ASSOCIATED  WITH  THIS  PROGRAM: 

1.  DOWNLISTS.  - DOWNLISTS  MUST  8E  COMPILEO  IN  THE  SAME  8ANK  AS  THE 
DOWN-TELEMETRY  PROGRAM.  THIS  IS  DONE  FOR  EASE  OF  CODING,  FASTER 
EXECUTION. 

2.  EACH  DOWNLINK  LIST  CONSISTS  OF  A CONTROL  LIST  AND  A NUMBER  OF 
SU8LISTS. 

3.  A SUBLIST  REFERS  TO  A SNAPSHOT  OR  DATA  COMMON  TO  THE  SAMF  OR  OTHER 
DOWNLINK  LISTS.  ANY  SUBLIST  CONTAINING  COMMON  DATA  NEEDS  TO  BE 
CODED  ONLY  ONCE  FOR  THE  APPLICABLE  DOWNLINK  LISTS. 

4.  SNAPSHOT  SUBLISTS  REFER  SPECIFICALLY  TO  HOMOGENOUS  DATA  WHICH  MUST  BE 
SAVED  IN  A BUFFER  DURING  ONE  DOWNRUPT. 

5.  THE  1DNADR  FOR  THE  1ST  WORD  OF  SNAPSHOT  DATA  IS  FOUND  AT  THE  END 

OF  EACH  SNAPSHOT  SUBLIST,  SINCE  THE  PROGRAM  CODING  SENDS  THIS  DP  WORD 
IMMEDIATELY  AFTER  STORING  THE  OTHERS  IN  THE  SNAPSHOT  SUFFER. 

6.  ALL  LISTS  ARE  COMBINATIONS  OF  CODED  ERASABLE  ADDRESS  CONSTANTS 
CREATED  FOR  THE  D0WNL1ST  PROGRAM. 

A.  1DNADR  1-WORD  DOWNLIST  ADDRESS. 

SAME  AS  ECADR,  BUT  USED  WHEN  THE  WORD  ADDRESSED  IS  THE  LEFT 

HALF  OF  A DOUBLE-PRFCI SION  WORD  FOR  DOWN  TELEMETRY. 

B.  2DNADR  - 6DNADR  N-WORO  DOWNLIST  ADDRESS,  N = 2 - 6. 

SAME  AS  IDNADR,  BUT  WITH  THE  4 UNUSED  BITS  OF  THE  ECADR  FORMAT 
FILLED  IN  WITH  0001-0101.  USED  TO  POINT  TO  A LIST  OF  N DOUBLE- 
PRECISION WORDS,  STORED  CONSECUTIVELY,  FOR  DOWN  TELEMETRY. 

C.  CNCHAN  DOWNLIST  CHANNEL  ADDRESS. 

SAME  AS  IDNADR,  BUT  WITH  PREFIX  BITS  0111.  USED  TO  POINT  TO 
A PAIR  OF  CHANNELS  FOR  DOWN  TELEMETRY. 

D.  DNPTR  DOWN  TELEMETRY  SUBLIST  POINTER. 

SAME  AS  CAF  BUT  TAGGED  AS  A CONSTANT.  USED  IN  CONTROL  LIST  TO  POINT  TO  A SUBLIST. 

CAUTION A DNPTR  CANNOT  BE  USED  IN  A SUBLIST. 

7.  THE  WORD  ORDER  CODE  IS  SET  TO  ZERO  AT  THE  BEGINNING  OF  EACH  DOWNLIST  (I.E.  CONTROL  LIST)  AND  WHFN 
A 'IDNADR  T I M E 2 ' IS  DETECTED  IN  THE  CONTROL  LIST! ONLY ) . 

8.  IN  THE  SNAPSHOT  SUBLIST  ONLY,  THE  ONAOR'S  CANNOT  POINT  TO  THE  FIRST  WORD  OF  ANY  EBANK. 


RO  106  DOWNLINK  LIST  RESTRICTIONS: 

RO  10  7 (THE  FOLLOWING  POINTS  MAY  BE  LISTED  ELSEWHERE  BUT  ARE  LISTED  HERE  SO  IT  IS  CLEAR  THAT  THE  S F THINGS  CANNOT  BE 

R0109  DONE  I 


RO  1 1 0 1.  SNAPSHOT  DOWNLIST: 

ROlll  ( A 1 CANNOT  CONTAIN  THE  FOLLOWING  ECADRSI1.E.  IDNADR 'SI:  0,  400,  1000,  1400,  2000,  2400,  3000,  3400. 

RO  1 1 3 IB)  CAN  CONTAIN  ONLY  lDNADR'S 


R 0 1 1 4 2.  ALL  DOWNLINKED  DAT  A I EX  CE  PT  CHANNELS)  IS  PICKED  UP  BY  A <DCA<SO  DOWNLINK  LISTS  CANNOT  CONTAIN  THE 

R0116  EQUIVALENT  OF  THE  FOLLOWING  ECADRSII.E.  IDNADRS ) : 377,  777,  1377,  1777,  2377,  27777,  3377,  3777. 

RO  1 1 8 I NOTE : THE  TERM  EQUIVALENT  • MEANT  THAT  THE  IDNADR  TO  6DNADR  WILL  BE  PROCESSED  LIKE  1 TO  6 FCADRS) 

RO  120  3.  CONTROL  LISTS  AND  SUBLISTS  CANNOT  HAVE  ENTRIES  = OCTAL  OOCOO  OR  OCTAL  77777 
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» L 

R0122 
9 RO 124 

R0125 

RO  12  6 

RO  12  7 

R0128 


OOWN- TELEMETRY  PROGRAM  USER'S  PAGE  NO.  A EO  S3 

A.  THE  ' IDNADR  T I ME2  ' WHICH  WILL  CAUSE  THE  DOWNLINK  PROGRAM  TO  SET  THE  WORDER  CODE  TO  3 MUST  APPEAR  IN  THE 
CONTROL  SECTION  OF  THE  QOWNLIST. 

5.  ' DNCHAN  O'  CANNOT  BE  USED. 

6.  • DNPTR  O'  CANNOT  BE  USED. 

7.  DNPTR  CANNOT  APPEAR  IN  A SUBLIST. 


R0129  EBANK  SETTINGS 

R0130  IN  THE  PROCESS  OF  SETTING  THE  EBANK I WHEN  PICKING  UP  DOWNLINK 
RO  13  2 'GAR8AGE  ' INTO  BITS15-12  OF  EBANK.  HUGH  BLAIR-SMITH  WARNS  US 
RO 1 3 A SIGNIFICANT  SOMEOAY  IN  THE  FUTURE.  IF/WHEN  THAT  HAPPENS,  THE 


DATA)  THE  DOWN 
THAT  BITS15-12 
PROGRAM  SHOULD 


TELEMETRY  PROGRAM  PUTS 
OF  EBANK  MAY  BECOME 
INSURE ( BY  MASKING  ETC.) 


R0136 

THAT 

8 ITS  15- 

-12  OF  EBANK  ARE 

ZERO. 

RO  13  7 

INITIAL  I Z AT  I ON 

REQUIRED-  TO 

INTERRUPT 

CURRENT  LIST  AND 

START  A NEW  ONE. 

R0138 

1 . 

ADRES 

GF  DOWNLINK  LIST  INTO 

DNLST  ADR 

RO  139 

2. 

NEGONE  INTO 

SUBLIST 

RO  1 AO 

3. 

NEGONE  INTO 

DNECAOR 

0 l A 2 

22,3712 

BANK 

22 

0 1A  3 

REF 

2 

LAST 

20  A 

C5, 2000 

SETLCC 

DOWNTFLM 

0 1A  A 

05,3507 

BANK 

0 1 A 5 

REF 

18 

LAST 

216 

0 3A0 

EBANK= 

DNTMBUFF 

0 1A  6 

REF 

1 

COUNT  * 

$ $/DPROG 

0 1A  7 

REF 

5 

LAST 

822 

05,3507 

5 A 016 

1 

DODOWNTM 

TS 

BANKRUPT 

0 l A 8 

05,3510 

0 0006 

1 

EXTEND 

0 1 A 9 

REF 

5 

LAST 

822 

05,3511 

22  012 

l 

QXCH 

QRUPT 

SAVE  Q 

0180 

KEF 

29 

LAST 

9 7 A 

05,3512 

3 A 7 36 

1 

CA 

B I T 7 

AT  THE  BEGINNING  OF  THF  LIST  THE  WORD 

01502 

05,3513 

0 0006 

1 

EXTEND 

ORDER  BIT  WILL  BE  SET  BACK  TO  ZERO. 

01503 

REF 

15 

LAST 

823 

05.351A 

02  013 

l 

RAND 

CHAN  13 

0 150  A 

REF 

2 E 6 

LAST 

981 

05,35  15 

10  000 

0 

CCS 

A 

01505 

REF 

A 

LAST 

300 

05,3516 

0 0335 

l 

TC 

DNTMGOTO 

015055 

REF 

6 

LAST 

823 

05,3517 

0 60AO 

0 

TC 

C 13ST  ALL 

01506 

REF 

30 

LAST 

989 

05, 3520 

3 A736 

L 

CA 

B IT7 

0151 

05,3521 

0 0006 

l 

EXTEND 

SET  WORD  OROFR  BIT  TO  1 ONLY  IF  IT 

0152 

REF 

16 

LAST 

989 

05,3522 

05  C 1 3 

0 

WOR 

CHAN13 

ALREADY  ISN'T. 

0153 

REF 

5 

LAST 

989 

05,3523 

0 0335 

1 

TC 

DNTMGOTO 

GO  TO  APPROPRIATE  PHASF  OF  PROGRAM 

01532 

REF 

3 

LAST 

989 

05,2000 

SETLCC 

DOWNTELM 

0 153  A 

05, 352A 

BANK 

015A 

REF 

3 

LAST 

575 

05.352A 

3 7770 

0 

DNPHASE1 

CA 

NEGONE 

INITIALIZE  ALL  CONTROL  WORDS 

0155 

REF 

2 

LAST 

102 

C5, 3525 

5 A 337 

1 

TS 

SUBL I ST 

WORDS  TO  MINUS  ONE 

0156 

REF 

A 

LAST 

102 

05,3526 

5 A 336 

0 

TS 

DNECADR 

015  7 

REF 

1 

03,3527 

3 365A 

0 

CA 

LDNPHAS2 

SET  DNTMGOTO  =0  ALL  SUBSEQUENT  DOWNRUPTS 
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0158 

REF 

6 

LAST 

989 

05,3530 

54  335 

0 

TS 

dntmgotq 

0159 

REF 

1 

05,3531 

1 3545 

l 

TCF 

NEWL I ST 

0160 

REF 

5 

LAST 

989 

05,3532 

10  336 

0 

0NPHASE2 

CCS 

DNECADR 

0161 

REF 

1 

05,3533 

0 3667 

0 

DCIONADR 

TC 

FETCH2WD 

0162 

REF 

29 

LAST 

925 

06,3534 

7 7 753 

0 

MINT  IME2- 

-1DNA0R 

T IME2 

016  3 

05,3535 

l 3536 

c 

TCF 

+ 1 

0164 

REF 

3 

LAST 

989 

05,3536 

10  337 

1 

CCS 

SUBLIST 

0165 

REF 

1 

05,3537 

1 3702 

0 

TCF 

NEXT  INSL 

0166 

05,3540 

74001 

0 

DNADR  OCR 

OCT 

74001 

016  7 

REF 

2 

LAST 

102 

05,354  1 

3 0334 

0 

CHKL I ST 

CA 

CTL 1ST 

0168 

05,3542 

0 0006 

1 

EXTEND 

0169 

REF 

2 

LAST 

990 

05, 3543 

6 3545 

0 

BZMF 

NEWL I ST 

0170 

REF 

I 

05,3544 

1 3552 

l 

TCF 

NEXT  I NCL 

017  1 

REF 

8 

LAST 

241 

05,3545 

50  333 

1 

NEWL I ST 

INDEX 

DNLSTCOD 

0172 

REF 

1 

05,3546 

3 2446 

0 

CA 

DNT  ABLE 

0173 

REF 

3 

LAST 

990 

05,3547 

54  334 

1 

TS 

CTLIST 

0174 

REF 

9 

LAST 

990 

C 5 , 3 550 

4 0333 

0 

CS 

DNLSTCOD 

0175 

REF 

1 

05,3551 

1 3771 

1 

TCF 

SENDID  +3 

0177 

REF 

4 

LAST 

990 

05,3552 

50  334 

0 

NEXT  I NCL 

INDEX 

CTLI ST 

0178 

05,3553 

3 0000 

1 

CA 

0 

0179 

REF 

287 

LAST 

989 

05, 3554 

10  000 

0 

CCS 

A 

0180 

REF 

5 

LAST 

990 

05,3555 

24  334 

0 

INCR 

CTLIST 

0181 

05,3556 

1 3562 

1 

TCF 

+ 4 

0182 

REF 

6 

LAST 

990 

05,3557 

56  334 

0 

XCH 

CTL I ST 

0183 

05,3560 

4 0000 

0 

COM 

0164 

REF 

7 

LAST 

990 

05,3561 

56  334 

0 

XCH 

CTL  I ST 

0L85 

REF 

288 

LAST 

990 

05,3562 

24  000 

1 

+4 

INCR 

A 

0186 

REF 

6 

LAST 

990 

05,3563 

54  336 

0 

TS 

DNECADR 

018  7 

REF 

I 

05,3564 

6 3534 

0 

AD 

M INTI ME2 

0188 

REF 

289 

LAST 

990 

05,3565 

10  000 

0 

CCS 

A 

0189 

REF 

1 . 

05,3566 

1 35  72 

0 

TCF 

SETWO  +1 

0190 

05,3567 

47777 

0 

MINB  1314 

OCT 

47777 

0191 

REF 

2 

LAST 

990 

05,3570 

1 3572 

0 

TCF 

SETWO  +1 

0192 

REF 

1 

05,3571 

0 3614 

1 

SETWO 

TC 

WCZERO 

0193 

REF 

7 

LAST 

990 

05,3572 

3 0336 

1 

♦ L 

CA 

DNECADR 

0194 

REF 

1 

05,3573 

6 3567 

0 

+ 2 

AD 

M INB1314 

0195 

05,3574 

0 0006 

l 

EXTEND 

0196 

REF 

2 

LAST 

990 

05,3575 

6 3667 

0 

BZMF 

FETCH2WD 

0197 

REF 

1 

05,3576 

6 7762 

0 

AO 

MIN812 

0198 

05,3577 

0 0006 

1 

EXTEND 

0199 

REF 

1 

05,3600 

6 3625 

0 

BZMF 

DODNPTR 

0200 

05,3601 

0 0006 

1 

DUDNCHAN 

TC 

6 

0201 

REF 

8 

LAST 

990 

05, 3602 

50  336 

1 

INDEX 

ONECADR 

0202 

05,3603 

44'000 

1 

INDEX 

0 -4000 

0203 

REF 

183 

LAST 

959 

05,3604 

54  001 

1 

TS 

L 

0204 

05,3605 

0 0006 

1 

TC 

6 

0205 

REF 

9 

LAST 

990 

05,3606 

50  336 

l 

INDEX 

DNECADR 
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USER'S  PAGE  NO.  5 EO  S3 

GO  TO  ONPHASE  2 

SENDING  OF  DATA  IN  PROGRESS 

YES  - THEN  FETCH  THE  NEXT  2 SP  WORDS 

NEGATIVE  OF  T I ME2  ION  ADR 

(ECADR  OF  3776  + 74001  = 77777) 

IS  THE  SUBLIST  IN  CONTROL 
YES 

DNADR  COUNT  AND  ECADR  DECREMENTFR 


IT  WILL  BE  NEGATIVF  AT  END  OF  LIST 


INITI AL IZE 
START  ING 


CTLIST  WITH 
ADDRESS  OF  NEW  L 1ST 


SET  POINTER  TO  PICK  UP  NEXT  CTI  1ST  WORD 
ON  NEXT  ENTRY  TO  PROG.  (A  SHOULD  NOT  =0) 
SET  CTLIST  TO  NEGATIVE  AND  PL AC E ( COD I NG ) 
UNCOMPLEMENTED  DNADR  INTO  A.  (FOR  LA) 

(ST  IN  ) 
(CTLIST) 

SAVE  DNADR 

TEST  FOR  TIME2  (NEG.  OF  ECADR) 

DON'T  SET  WORD  ORDER  CODE 

MINUS  BIT  13  AND  14  (CAN'T  GET  HERE) 

DON'T  SET  WORD  ORDER  CODE 

GO  SET  WORD  ORDER  CODE  TO  ZERO. 

RELOAO  A WITH  THE  DNADR. 

IS  THIS  A REGULAR  DNAOR? 

YES.  (A  MUST  NEVER  BE  ZERO) 

NO-  IS  IT  A POINTER  (DNPTR)  OR  A 
CHANNEL! DNCHAN) 

IT'S  A POINTER.  (A  MUST  NEVER  BE  ZERO) 
(EXECUTED  AS  EXTEND)  IT  S A CHANNEL 
(EXECUTED  AS  READ) 


(EXECUTED  AS  EXTEND) 
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0206 

05,3607 

A3' 777 

1 

INDEX 

0 —AO 01 

(EXECUTED  AS  READ) 

0207 

REF 

10 

LAST 

990 

05,3610 

5 A 336 

0 

TS 

DNECADR 

SET  DNECADR 

0208 

REF 

A 

LAST 

989 

05,3611 

3 7770 

0 

CA 

NEGONE 

TO  MINUS 

0209 

REF 

11 

LAST 

991 

05,3612 

56  336 

1 

XCH 

DNECADR 

WHILE  PRESERVING  A. 

0210 

REF 

1 

05,3613 

1 3715 

0 

TCF 

DNTMEXIT 

GO  SEND  CHANNELS 

021  l 

05 , 361 A 

0 0006 

1 

WOZERO 

EXTEND 

02111 

REF 

1 

05,3615 

23' 265 

1 

OXCH 

C 13QSAV 

021 1 15 

REF 

22 

LAST 

817 

05,3616 

' 22  070 

0 

LXCH 

RUPTREG  l 

021  1 2 

REF 

7 

LAST 

989 

05,3617 

0 60AO 

0 

TC 

C 13STALL 

021125 

REF 

23 

LAST 

991 

05,3620 

22  070 

0 

LXCH 

RUPTREG1 

02113 

REF 

31 

LAST 

989 

05,3621 

A A 736 

0 

CS 

BIT7 

0212 

05,3622 

0 0006 

1 

EXTEND 

0213 

REF 

17 

LAST 

989 

05,3623 

03  013 

0 

WAND 

CHAN  1 3 

SET  WORD  ORDER  CODE  TO  ZERO 

02 1 A 

REF 

2 

LAST 

991 

05, 362A 

0 1265 

1 

TC 

C 13QSAV 

0215 

REF 

12 

LAST 

991 

05, 3625 

50  336 

1 

DGDNPTR 

INDEX 

DNECADR 

DNECADR  CONTAINS  ADRES  OF  SIJRLIST 

0216 

05,3626 

c ocoo 

1 

0 

0 

CLEAR  AND  ADD  LIST  ENTRY  INTO  A. 

0217 

REF 

290 

LAST 

990 

05, 3627 

10  000 

0 

CCS 

A 

IS  THIS  A SNAPSHOT  SURLIST 

0218 

REF 

13 

LAST 

991 

05 , 3630 

3 0336 

1 

CA 

DNECADR 

NO,  IT  IS  A REGULAR  SUBLIST. 

0219 

REF 

1 

05,3631 

l 3701 

0 

TCF 

DOSUBLST 

A MUST  NOT  BE  ZERO. 

0220 

RFF 

1A 

LAST 

991 

05,3632 

56  336 

1 

XCH 

DNECADR 

YES,  IT  IS  A SNAPSHOT  SURLIST. 

022  1 

REF 

A 

LAST 

990 

05 , 3633 

5 A 337 

1 

TS 

SUBL I ST 

C( DNECADR)  INTO  SURLIST 

0222 

REF 

190 

LAST 

97  A 

0 5 , 3 6 3 A 

3 A 7 A6 

0 

CAF 

ZERO 

A INTO  A 

022  3 

RFF 

1 

05,3635 

56  336 

1 

XCH 

TMINDEX 

(NOTE..  TMINDEX  = DNECADR) 

R0224 

THE 

FOLLOWING  CODING 

(FROM  SNAPLCOP  TO 

SNAPEND1IS  FOR  THE  PURPOSE 

OF 

TAKING  A SNAPSHOT  OF  12  DP  REGISTERS. 

R0226 

THIS 

IS 

DONE  BY 

SAVING  11  DP 

REGISTERS 

IN  DM TM BUFF  AND 

SENDING  THE 

FIRST  OP  WORD  IMMEDIATELY. 

R0228 

THE 

SNAPSHOT  PROCESSING  IS  THE  MOST  TIME  CONSUMING  AND 

THEREFORE  THE 

CODING  AND  LIST  STRUCTURE  WERE  DESIGNF 

R0230 

10  MINIMIZE  TIME.  THE  TIME  OPTIMIZATION 

RESULTS 

IN  RULES  UNIQUE  TO 

THE 

SNAPSHOT  PORTION  OF  THE  DOWNLIST. 

R0232 

THESE  RULES  ARE 

R0233 

1 . 

ONLY 

1DNADR  • S 

CAN  APPEAR  IN  THE 

SNAPSHOT  SUBLIST 

R0234 

2. 

THE 

1DNADR' S 

CANNOT  REFER  TO  THE 

F IRST 

LOCATION  IN 

ANY 

BANK. 

0236 

REF 

6 1 

LAST 

955 

05,3636 

54  003 

0 

SNAPLOOP 

TS 

EBANK 

SET  EBANK 

023  7 

REF 

5 

LAST 

792 

05,3637 

7 4350 

1 

MASK 

L0W8 

I SOLATE  RELAT I VF 

ADDRESS 

023  8 

05,3640 

0 C006 

1 

EXTEND 

0239 

REF 

291 

LAST 

99  1 

05,3641 

5 CCOO 

l 

INDEX 

A 

0240 

E3, 1401 

EBANK= 

1401 

0241 

05,3642 

3 1402 

0 

DC  A 

1401 

PICK  UP  2 SNAPSHOT  WORDS. 

024  2 

REF 

19 

LAST 

989 

0340 

E B A M K = 

DNTMBUFF 

024  3 

REF 

2 

LAST 

991 

05,3643 

50  336 

1 

INDEX 

TMINDEX 

0244 

REF 

20 

LAST 

991 

05,3644 

52  341 

0 

DXCFI 

DNTMBUFF 

STORE  2 SNAPSHOT 

WORDS  IN 

BUFFER 

024  5 

REF 

3 

LAST 

991 

05,3645 

24  336 

1 

I NCR 

TMINDEX 

SET  BUFFER  INDEX 

FOR  NEXT 

2 

WORDS . 

0246 

REF 

4 

LAST 

991 

05,3646 

24  336 

l 

INCR 

TMINDEX 

024  7 

REF 

5 

LAST 

991 

05,3647 

24  337 

0 

SNAP  AGN 

INCR 

SUBLIST 

SET  POINTER  TO  NEXT  2 WORDS 

OF  SNA 
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024  8 

REF 

6 

LAST 

991 

05,3650 

50  337 

0 

INDEX 

SUBL I ST 

0249 

05,3651 

0 0000 

l 

0 

0 

0250 

REF 

292 

LAST 

991 

05,3652 

10  000 

0 

CCS 

A 

0251 

REF 

I 

05,3653 

1 3636 

0 

TCF 

SNAPLOOP 

0252 

REF 

1 

05,3654 

03532 

0 

LDNPHAS2 

GENADR 

DNPHASE2 

0253 

REF 

7 

LAST 

992 

05, 3655 

54  337 

1 

TS 

SUBLIST 

0254 

REF 

5 

LAST 

991 

05,3656 

3 7770 

0 

CA 

NEGONE 

0255 

REF 

15 

L A S I 

991 

05,3657 

54  336 

0 

TS 

ONECADR 

0256 

REF 

8 

LAST 

992 

05,3660 

56  337 

0 

XCH 

SUBLIST 

025  7 

REF 

62 

LAST 

991 

05,3661 

54  003 

0 

TS 

EBANK 

0258 

REF 

6 

LAST 

991 

05,3662 

7 4350 

l 

MASK 

L0W8 

0259 

05,3663 

0 0006 

1 

EXTEND 

0260 

REF 

293 

LAST 

992 

05,3664 

5 COOO 

1 

INOEX 

A 

0261 

E3, 1401 

EBANK= 

1401 

0262 

05,3665 

3 1402 

0 

DC  A 

1401 

0263 

REF 

21 

LAST 

991 

0340 

EBANK= 

DNTMBUFF 

0264 

REF 

2 

LAST 

991 

05,3666 

l 3715 

0 

SNAPEND 

TCF 

DNTMEX IT 

0265 

REF 

16 

LAST 

992 

05,3667 

3 0336 

1 

FETCH2WD 

CA 

DNECADR 

0266 

REF 

63 

LAST 

992 

05,3670 

54  003 

0 

TS 

EBANK 

0267 

REF 

7 

LAST 

992 

05,3671 

7 4350 

1 

MASK 

L0W8 

0268 

REF 

L 84 

LAST 

990 

05, 3672 

54  001 

1 

TS 

L 

0269 

REF 

1 

05,3673 

3 3 540 

0 

CA 

DNADRDCR 

027  0 

REF 

17 

LAST 

992 

05,3674 

26  336 

0 

ADS 

DNECADR 

0271 

05,3675 

C 0006 

1 

EXTEND 

0272 

REF 

l £ 5 

LAST 

992 

05,3676 

5 0001 

0 

INDEX 

L 

0273 

E3, 1400 

EB ANK= 

1400 

0274 

05,3677 

3 1401 

0 

DCA 

1400 

0275 

REF 

22 

LAST 

992 

0340 

EBANK= 

DNTMBUFF 

0276 

REF 

3 

LAST 

992 

05,3700 

L 3715 

0 

TCF 

DNTMEX I T 

0277 

REF 

9 

LAST 

992 

05,3701 

54  337 

1 

DOSUBLST 

TS 

SUBL I ST 

0278 

REF 

10 

LAST 

992 

05,3702 

50  337 

0 

NEXT  I NSL 

INDEX 

SUBLIST 

0279 

05,3703 

0 COOO 

1 

0 

0 

0280 

REF 

254 

LAST 

992 

05,3704 

10  000 

0 

CCS 

A 

0281 

REF 

1 1 

LAST 

992 

05,3705 

24  33  7 

0 

I NCR 

SUBL I ST 

0282 

05,3706 

1 3712 

1 

TCF 

+ 4 

0283 

REF 

12 

LAST 

992 

05,3707 

54  337 

1 

TS 

SUBLIST 

0284 

REF 

6 

LAST 

992 

05,3710 

3 7770 

0 

CA 

NEGONE 

028  5 

REF 

13 

1 V T 

992 

05,3711 

56  337 

0 

XCH 

SUBLIST 

0286 

REF 

295 

LAST 

992 

05,3712 

24  000 

1 

+4 

INCR 

A 

0287 

REF 

10 

LAST 

992 

05,3713 

54  336 

0 

TS 

DNECADR 

0288 

REF 

3 

LAST 

990 

05, 3714 

1 3573 

1 

TCF 

SETWO  +2 

A0289 

A0290 

0291 

05,3715 

0 0006 

1 

DNTMEX I T 

EXTEND 

0292 

REF 

l 

05,3716 

01  034 

l 

WRITE 

DNTM1 

0293 

REF 

186 

LAST 

992 

05,3717 

3 0001 

0 

CA 

L 

0294 

05,3720 

0 0006 

1 

TMEX I TL 

EXTENO 
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= CA  SSSS  (SSSS  = NEXT  ENTRY  IN  SUBLIST) 
TEST  FOR  LAST  TWO  WORDS  OF  SNAPSHOT. 

NOT  LAST  TWO. 

YES,  LAST.  SAVE  A. 

SET  DNECADR  AND 

SUBLIST  POINTERS 

TO  NEGATIVE  VALUES. 


PICK  UP  FIRST  2 WORDS  OF  SNAPSHOT. 
NOW  GO  SEND  THEM. 

SET  EBANK 

ISOLATE  RELATIVE  ADDRESS 
DECREMENT  COUNT  AND  ECADR 


PICK  UP  2 DATA  WORDS 
NOW  GO  SEND  THEM. 

SET  SUBLIST  POINTER 

= CA  SSSS  (SSSS  = NEXT  ENTRY  IN  SUBLIST) 

IS  IT  THE  END  OF  THE  SUBLIST 

NO- 


SAVE A. 

SET  SUBLIST  TO  MINUS 
RETRIEVE  A. 

SAVE  DNADR 

GO  USE  COMMOA  COO  I NG ( PR OB L EMS  WOULD 
OCCUR  IF  THE  PROGRAM  ENCOUNTERED  A 
DNPTR  NOW) 

DOWN-TELEMETRY  EXIT 

TO  SEND  A + L TO  CHANNELS  34  + 35 

RESPECTIVELY 
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L 

DOWN- 

TFLEMETRY 

PROGRAM 

USER'S  PAGE  NO. 

8 

EO  S3 

0295 

REF 

1 

05,3721 

01  035  0 

WRITE 

DNTM2 

0296 

REF 

19 

LAST 

822 

05,3722 

1 5272  1 

T MRESUME 

TCF 

RESUME 

EXIT  TELEMETRY  PROGRAM 

VI  A 

RESUME. 

029  7 

REF 

2 

LAST 

544 

7762 

MINB12 

EQUALS 

-1/8 

993 
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L 

P0301 
R0302 
R0304 
R 030  6 
R0308 
R0310 
R0312 
R0313 
RO  31  5 
R0316 
R031  7 
R0320 
R0321 
RO  32  2 
R0323 
R0324 
R0325 
R0328 
R0329 
R0331 
R0333 

R0335 

R0336 

R0338 

R0339 

R0340 
R 0 34  2 
R0344 
K0346 
R0347 
R0349 
R0351 
R0353 
R0354 
R0355 
R0356 

R0358 

RQ359 

R0360 

R0361 

R0363 

RQ365 

R0366 

0368 

0369 

0370 
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SUBROLTINE  NAME-  DNOUMP 

FUNCTIONAL  DESCRIPTION  - TO  SEND  (DUMP)  ALL  8 RANKS  OF  ERASABLE  STORAGE  TWICE.  BANKS  ARE  SENT  ONE  AT  A TIME 
EACH  BANK  IS  PRECEEDED  BY  AN  ID  WORD,  SYNCH  BITS,  ECADR  AND  TIME1  FOLLOWED  BY  THE  256D  WORDS  OF  EACH 
EBANK.  EBANKS  ARE  DUMPED  IN  ORDER  I I . E.  EBANK  0 FIRST,  THEN  E BANK  1 ETC.) 

CALLING  SEQUENCE-  THE  GROUND  OR  ASTRONAUT  BY  KEYING  V74E  CAN  INITIALIZE  THF  DUMP. 

AFTER  KEYING  IN  V74E  THE  CURRENT  DOWNLIST  WILL  BE  IMMEDIATELY  TERMINATED  AND  THF  DOWNLINK  ERASABLE  DUMP 
WILL  BEGIN. 

ONCE  INITIATED  THE  DOWNLINK  ERASABLE  DUMP  CAN  BE  TERMINATED  (AND  INTERRUPTED  DOWNLIST  REINSTATED)  ONLY 
BY  THE  FOLLOWING: 

1.  A FRESH  START 

2.  COMPLETION  OF  BOTH  COMPLETE  DUMPS 

3.  AND  INVOLUNTARILY  BY  A RESTART. 

NORMAL  fxit  mode-  tcf  DNPHASE 1 

ALARM  OR  ABORT  MODE-  NONE 
♦SUBROUTINES  CALLED-  NONE. 

ERASAELE  INITIALIZATION  REQUIREC- 
NONE 

DEBRIS-  DUMPLOC,  DUMPSW,  DNTMGOT C , EBANK  AND  CENTRAL  REGISTERS 

TIMING-  TIME1IN  SECS)  = I ( NO. DUMPS )* (NO . EBANKS ) * ( WDSPEREBANK  t-  NO.IDWDS))  / NO.WDSPERSEC 
TIME!  IN  SECS)  = ( 4 )*(  8 )*  ( 256  + 4 ) / 100 

THUS  TIME! IN  SECS  TO  SEND  DUMP  OF  ERASABLE  4 TIMES  VIA  DOWNLINK)  = 83.2  SECONDS 


STRUCTURE  OF  ONE  EBANK  AS  IT  IS  SENT  BY  OOWNL INK  PROGRAM- 

( R EM  INDER-TH I S ONLY  DESCRIBES  ONE  OF  THE  8 EBANKS  X 4 (DUMPS)  = 32  EBANKS  WHICH  WILL  BF  SENT  RY  DNOUMP) 
DOWNLIST  W 


WORO 

TAKEN 

FROM 

CONTENTS 

OF 

FXAMPLF 

0 

COMMENTS 

1 

ERASID 

0177X 

0 

DOWNLIST 

I.D.  FOR  DOWNLINK  ERASABLE 

DUMP 

( X=7  CSM,  6 LM) 

2 

LOW  I DCOD 

77  340 

1 

DOWNL INK 

SYNCH 

B I TS. 

(SAME  ONE  USED  IN  ALL  OTHER 

DOWNL ISTS ) 

3 

DUMPLOC 

13400 

1 

(SEE  NOTES  ON  DUMPLOC) 1=  3RD  ERAS  DUMP, 

3400=  ECADR  OF  5TH  WD 

4 

T IME  l 

14120 

1 

TIME  IN 

CENTI SECONDS 

5 

FIRST 

WORD 

OF 

EBANK 

X 

03400 

1 

IN 

TH  I S 

EXAMPLE 

THIS 

WORD  = CONTENTS 

OF 

E 7 , 1400 

(ECADR  3400) 

6 

2ND 

WORD 

OF 

EBANK 

X 

00  142 

1 

IN 

THIS 

EXAMPLE 

THIS 

WORD  = CONTENTS 

OF 

E 7 , 140 1 

(ECADR  3401) 

7 

3RD 

WORD 

OF 

EBANK 

X 

00  142 

1 

1 

1 

IN 

THIS 

EXAMPLE 

THIS 

WORD  = CONTENTS 

OF 

E 7 , 1402 

(ECADR  3402) 

2 60D 

256TH 

WORD 

OF 

EBANK 

X 

03777 

1 

1 

1 

IN 

TH  IS 

EXAMPLE 

THIS 

WORD  = CONTENTS 

OF 

F 7, 1777 

(ECADR  3777) 

NOTE-  DUMPLOC  CONTAINS  THE  COUNTER  AND  ECADR  FOR  EACH  WORD  BEING  SENT. 

THE  BIT  STRUCTURE  CF  DUMPLOC  IS  FOLLOWS 

X = NOT  USED 

X ABC  FEE  RRRRRRRR  ABC  = ERASABLE  DUMP  COUNTERII.E.  ABC  = 0,1,2  OR  3 WHICH  MEANS  THAT 

COMPLETE  ERASABLE  DUMP  NUMBER  1,2,3  OR  4 RESPECTIVELY  IS  IN  PROGRESS) 
EE  E = EBANK  BITS 

RRRRRRRR  = RELATIVE  ADDRESS  WITHIN  AN  EBANK. 


REF 

191 

LAST 

991 

05,3723 

3 4746 

0 

DNDUMP I 

CA 

ZERO 

INITIALIZE  DOWNLINK 

REF 

1 

05,3724 

54  336 

0 

TS 

DUMPLOC 

ERASABLE  DUMP 

REF 

2 

LAST 

990 

05,3725 

0 3766 

0 

+ 2 

TC 

SENDID 

GO  SEND  ID  AND  SYNCH  BITS 

GAP: 
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0371 

REF 

1 

05,3726 

3 3735 

0 

0372 

REF 

7 

LAST 

990 

05,3727 

54  335 

0 

0373 

REF 

23 

LAST 

949 

05,3730 

3 0025 

0 

0374 

REF 

167 

LAST 

992 

05,3731 

56  C01 

0 

0375 

REF 

2 

LAST 

994 

05,3732 

3 0336 

1 

0376 

REF 

4 

LAST 

992 

05,3733 

1 3715 

0 

0377 

REF 

1 

05,3734 

03736 

0 

LONDUMP 

0378 

REF 

1 

05,3735 

03750 

0 

L DNDUMP 1 

0379 

REF 

61 

LAST 

915 

05,3736 

3 4743 

0 

DNDUMP 

0380 

REF 

3 

LAST 

995 

05,3737 

26  336 

0 

0381 

REF 

8 

LAST 

992 

05,3740 

7 4350 

1 

0382 

REF 

256 

LAST 

992 

05,3741 

10  000 

0 

0383 

REF 

1 

05,3742 

1 3 752 

0 

0384 

REF 

4 

LAST 

995 

05,3743 

3 C336 

1 

0385 

REF 

35 

LAST 

955 

05,3744 

7 4730 

0 

0386 

05,3745 

0 0006 

l 

0387 

REF 

2 

LAST 

300 

05,3  746 

1 3725 

0 

0390 

REF 

2 

LAST 

234 

05,3747 

1 3524 

0 

0391 

REF 

1 

05,3750 

3 3734 

1 

UNDUMP l 

0392 

REF 

8 

LAST 

995 

05,3751 

54  335 

0 

0393 

REF 

5 

LAST 

595 

05,3752 

3 C 336 

1 

DNDUMP2 

0394 

REF 

64 

LAST 

992 

05,3753 

54  003 

0 

0395 

REF 

9 

LAST 

995 

05,3754 

7 4350 

1 

0396 

REF 

226 

LAST 

92  1 

05,3  755 

54  002 

1 

039  7 

REF 

24 

LAST 

925 

05,3756 

3 4745 

0 

0398 

REF 

186 

LAST 

995 

05,3  757 

54  001 

1 

0399 

RFF 

227 

LAST 

995 

05,3760 

50  C 02 

0 

040  0 

E3 , 1400 

0401 

05,3761 

7 1401 

1 

0402 

REF 

189 

LAST 

995 

05,3762 

56  COl 

0 

0403 

REF 

228 

LAST 

995 

05,3763 

50  002 

0 

0404 

05,3764 

7 1400 

0 

040  5 

REF 

23 

LAST 

992 

0340 

040  6 

REF 

5 

LAST 

995 

05,3765 

1 3715 

0 

040  7 

05, 

,3  766 

0 

0006 

1 SENDID 

040  8 

REF 

9 

LAST 

995 

05, 

,3767 

22 

335 

1 

040  9 

REF 

1 

C5, 

,3  770 

3 

5002 

0 

0410 

REF 

L 90 

LAST 

995 

05, 

,3771 

54 

001 

1 

041  l 

REF 

2 

LAST 

990 

05, 

,3772 

0 

3614 

1 

0412 

REF 

1 

05, 

,3773 

3 

2045 

1 

0413 

REF 

19  1 

LAST 

995 

05, 

,3774 

56 

001 

0 

0414 

REF 

6 

LAST 

995 

05, 

,3  775 

1 

3715 

0 

131  PAGE  995 
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CA 

LDNDUMP1 

SET  DNTMGOTO 

TS 

DNTMGOT  0 

TO  LOCATION  FOR  NEXT  PASS 

CA 

T I ME  1 

PLACE  TIMEl 

XCH 

L 

INTO  L 

CA 

DUMPLOC 

AND  EC ADR  OF  THIS  EBANK  INTO  A 

TCF 

DNTMEXI T 

SEND  DUMPLOC  AND  TIMEl 

ADRES 

DNDUMP 

ACRES 

DNDUMP l 

CA 

TWO 

INCREMENT  ECADR  IN  DUMPLOC 

ADS 

DUMPLOC 

TO  NEXT  DP  WORD  *0  BE 

MASK 

L0W8 

DUMPED  AND  SAVE  IT. 

CCS 

A 

IS  THIS  THE  BEGINNING  OF  A NFW  EBANK 

TCF 

DN0UMP2 

NO-  THEN  CONTINUE  DUMPING 

CA 

DUMPLOC 

YES-  IS  THIS  THE  END  OF  THF 

MASK 

B I T 13 

SECOND  COMPLETE  ERASABLE  OUMP? 

EXTEND 

BZF 

DNDUMP I +2 

NO  - GO  BACK  AND  INITIALIZE  NEXT  BANK 

TCF 

DNPHASE 1 

YES  - SEND  DOWNLIST  AGAIN 

CA 

LDNDUMP 

SET  DNTMGOTO 

TS 

DNTMGOT  0 

FOR  WORDS  3 TO  256D  OF  CUPRENT  EBANK 

CA 

DUMPLOC 

TS 

EBANK 

SET  EBANK 

MASK 

L0W8 

ISOLATE  RELATIVE  ADDRESS. 

TS 

Q 

(NOTE:  MASK  INSTRUCTION  IS  USED  TO  PICK 

CA 

NEGO 

UP  ERASABLE  REGISTERS  SO  THAT  EDITING 

TS 

L 

REGISTERS  20-23  WILL  NOT  BE  ALTERED.) 

INDEX 

Q 

EBANK= 

1400 

PICK  UP  LOW  ORDER  REGISTER  OF  PAIR 

MASK 

1401 

OF  ERASABLE  REGISTERS. 

XCH 

L 

INDEX 

0 

PICK  UP  HIGH  ORDER  REGISTER  OF  PAIR 

MASK 

1400 

OF  ERASABLE  REGISTERS. 

E8ANK= 

DNTMBUFF 

TCF 

DNTMEXIT 

GO  SEND  THEM 

EXTEND 

**ENTRANCE 

USED  BY  ERASABLE  DUMP  PROG.** 

QXCH 

DNTMGOTO 

SET  DNTMGOTO  SO  NEXT  TIME  PROG  WILL 

GO 

CAF 

ERASID 

TO  LOCATION 

FOLLOWING  : TC  SENDID: 

TS 

L 

**ENTRANCE 

USED  BY  REGULAR  DOWNLINK 

PG** 

TC 

WOZERO 

GO  SET  WORD 

ORDER  CODE  TO  ZERO 

CAF 

LOWIDCOO 

PLACE  SPECIAL  ID  CODE  INTO  L 

XCH 

L 

AND  ID  BACK 

INTO  A 

TCF 

DNTMFXIT 

SEND  DOWNLIST  ID  CODE ( S ) . 

GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  202UI2-161 


L7:ll  MAR.  19,1971  SKIPPER  .131  PAGE  996 


L INTER-BANK  COMMUNICATION  USER'S  PAGE  NO.  1 FO  S3 


R0001 

THE 

FOLLOWING 

ROUTINE  CAN  BE  USED  TO  CALL  A SUBROUTINE 

IN  ANOTHER  BANK.  IN  THE  BANKCALL  VERSION,  THF 

R0003 

CAOR  OF 

THE  SUBROUTINE 

IMMEDIATELY  FOLLOWS  THE 

TC  BANKCALL  INSTRUCTION,  WITH  CIA)  AND  CIO  PRESERVED. 

000  5 

A607 

8L0CK 

02 

000  5 5 

REF  1 

COUNT* 

$$/BANK 

0006 

REF  6 

LAST 

506 

A 60  7 

52  134 

0 

BANKCALL 

DXCH 

BUF2 

SAVE  INCOMING  A , L . 

000  7 

REF  229 

LAST 

995 

A610 

50  002 

0 

INDEX 

Q 

PICK  UP  CADR. 

000  8 

4611 

3 0000 

1 

CA 

0 

0009 

REF  230 

LAST 

996 

4612 

24  002 

0 

I NCR 

Q 

SO  WE  RETURN  TO  THE  LOC.  AFTER  THE  CADR 

R0010 

SWCALL  IS  IDENTICAL 

TO  RANKCALL 

, EXCEPT 

THAT  THE  CADR 

ARRIVES  IN  A. 

0012 

REF  192 

LAST 

995 

4613 

54  001 

1 

SWCALL 

TS 

L 

0013 

REF  A 

LAST 

578 

4614 

22  004 

0 

LXCH 

FBANK 

SWITCH  BANKS,  SAVING  RETURN. 

001 A 

REF  8 

LAST 

7A6 

4615 

7 5003 

0 

MASK 

LOW  10 

GET  SUB-ADDRESS  OF  CADR. 

001  5 

REF  231 

LAST 

996 

4616 

56  002 

0 

XCH 

Q 

A , L NOW  CONTAINS  DP  RETURN. 

0016 

REF  7 

LAST 

996 

4617 

52  134 

0 

DXCH 

BUF2 

RESTORING  INPUTS  IF  THIS  IS  A BANKCALL. 

001  7 

REF  232 

LAST 

996 

4620 

50  002 

0 

INDEX 

Q 

0018 

4621 

0 2000 

0 

TC 

10000 

SETTING  0 TO  SWRETURN. 

0019 

REF  8 

LAST 

996 

4622 

56  134 

1 

SWRETURN 

XCH 

BUF2  +1 

COMES  HERE  TO  RETURN  TO  CALLER.  C(A,L) 

0020 

REF  5 

LAST 

996 

4623 

56  004 

0 

XCH 

FBANK 

ARE  PRESERVED  FOR  RETURN. 

002  1 

REF  9 

LAST 

996 

4 624 

56  134 

1 

XCH 

BUF2  +1 

002  2 

REF  10 

LAST 

996 

4625 

0 0133 

0 

TC 

BUF2 

R0023 

THE 

FOLLOWING 

ROUTINE 

: CAN  BE 

USED  AS  A UNILATERAL 

JUMP 

WITH  C ( A , L ) PRESERVED 

AND  THE 

CADR  IMMEDIATELY 

R002  5 

FOLLOWING 

. THE 

TC  POSTJUMP  INSTRUCTION. 

0026 

REF 

233 

LAST 

996 

4626 

56  C02  0 

PCSTJUMP  XCH 

Q 

SAVE  INCOMING 

C ( A ) . 

002  7 

REF 

297 

LAST 

995 

4627 

50  000  1 

INDEX 

A 

GET  CADR. 

0028 

4630 

3 0000  1 

CA 

0 

R0029 

BANK JUMP  IS  THE  SAME 

AS  POSTJUMP,  EXCEPT  THAT 

THE 

CADR 

ARRIVES  IN  A. 

003  1 

REF 

6 

L AST 

996 

463  1 

54  004  1 

BANK  JUMP  TS 

FBANK 

0032 

REF 

9 

LAST 

996 

4632 

7 5003  0 

MASK 

LOW  10 

0033 

REF 

234 

LAST 

996 

4633 

56  002  0 

XCH 

Q 

RESTORING  INPUT  CIA) 

IF  THIS  WAS  A 

0034 

REF 

235 

LAST 

996 

4634 

50  002  0 

Q+10000  INDEX 

Q 

POSTJUMP. 

0035 

4635 

1 2000  1 

PR  10 1 2 TC  F 

10000 

PR  101 2 = TC  F 

10000 

= 12000 
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P0036 

THE 

FOLLOWING 

ROUT  I 

NE 

GETS 

THE 

RETURN  CAOR  SAVED  BY  SWCALL  OR  BANKCALL  AND  LEAVES  IT  IN  A 

0038 

REF 

10. 

LAST 

996 

4636 

3 

5003 

1 

MAKECADR  CAF 

L 0W1 0 

0039 

REF 

11 

LAST 

996 

4637 

7 

0133 

1 

MASK 

8UF2 

0040 

REF 

12 

LAST 

997 

4640 

6 

C 134 

1 

AD 

BUF2  +1 

004  1 

REF 

2 36 

LAST 

996 

4641 

0 

0002 

0 

TC 

Q 

00465 

REF 

5 

LAST 

888 

4642 

54  135 

1 

SUPDACAL  ts 

MPTEMP 

004  7 

REF 

7 

LAST 

996 

4643 

56  004 

0 

XCH 

FBANK 

SET  FBANK  FOR  DATA. 

004  7 5 

4644 

0 0006 

1 

EXTEND 

0048 

REF 

1 1 

LAST 

57  1 

4645 

04  007 

1 

ROR 

SUPER8NK 

SAVE  FBANK  IN  BITS  15-11,  AND 

00485 

REF 

6 

LAST 

997 

4646 

56  135 

0 

XCH 

MPTEMP 

SUPERBANK  IN  BITS  7-5. 

0049 

REF 

11 

LAST 

997 

4647 

7 5003 

0 

MASK 

L OW 10 

00495 

REF 

193 

LAST 

996 

4650 

56  001 

0 

XCH 

L 

SAVE  REL.  ADR.  IN  BANK,  FETCH  SUPERBITS. 

0050 

4651 

0 0004 

0 

INHINT 

BECAUSE  RUPT  DOES  NOT  SAVE  SUPFRBANK . 

00505 

4652 

C 0C06 

1 

EXTEND 

005  1 

REF 

12 

LAST 

997 

4653 

01  007 

l 

WRITE 

SUPERBNK 

SET  SUPERBANK  FOR  DATA. 

0052 

REF 

194 

LAST 

997 

4654 

50  001 

0 

INDEX 

L 

005  2 5 

4655 

3 2000 

0 

CA 

1 0000 

PINBALL  (FIX  MEM  DISP)  PREVENTS  DC A HERE 

0053 

REF 

7 

LAST 

997 

4656 

56  135 

0 

XCH 

MPTEMP 

SAVE  1ST  WD,  FETCH  OLD  FBANK  AND  SBANK. 

00534 

4657 

0 0006 

1 

EXTEND 

00535 

REF 

13 

LAST 

997 

4660 

01  C07 

l 

WkITE 

SUPERBNK 

RESTORE  SUPERBANK. 

0054 

4661 

0 0003 

1 

REL INT 

00545 

REF 

8 

LAST 

997 

4662 

54  C04 

1 

TS 

FBANK 

RESTORE  FBANK. 

0055 

REF 

8 

LAST 

997 

4663 

3 0135 

0 

CA 

MPTEMP 

RECOVER  FIRST  WORD  OF  DATA. 

00555 

4664 

0 0002 

0 

RETURN 

24  WDS.  DATACALL  516  MU,  SUPDACAL  432  MU 
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L INTER-BANK  COMMUNICATION  USER'S  PAGE  NO.  3 EO  S3 


P0056 

THE 

FOLLOWING 

ROUTINES  ARE 

IDENTICAL  TO 

BANKCALL  AND  SWCALL 

EXCEPT  THAT  THEY  ARE  USED  IN  INTERRUPT. 

0058 

REE  5 

LAST 

818 

466  5 

52  073 

1 

I BNKCALL 

DXCH 

RUPTREG3 

USES  RUPTREG3, 4 FOR  DP  RETURN  ADDRESS. 

0059 

REF  237 

LAST 

997 

4666 

50  002 

0 

INDEX 

0 

0060 

466  7 

3 COOO 

1 

CAF 

0 

0061 

REF  238 

LAST 

998 

4670 

24  C02 

0 

INCR 

Q 

0062 

REE  1 S 5 

LAST 

997 

4671 

54  001 

1 

I SWC ALL 

TS 

L 

0063 

REF  9 

LAST 

997 

4672 

22  C04 

0 

LXCH 

FBANK 

0064 

REF  12 

LAST 

997 

4673 

7 5003 

0 

MASK 

L0W10 

0065 

REF  239 

LAST 

998 

4674 

56  C02 

0 

XCH 

0 

0066 

REF  6 

LAST 

998 

4675 

52  073 

1 

DXCH 

RUPTREG3 

006  7 

REF  240 

LAST 

998 

46  7 6 

50  002 

0 

INDEX 

Q 

006  8 

4677 

0 2000 

0 

TC 

10000 

0069 

REF  3 

LAST 

97 

4700 

56  073 

0 

I SWRFTRN 

XCH 

RUPTREG4 

0070 

REF  10 

LAST 

998 

4701 

56  004 

0 

XCH 

FBANK 

007  1 

REF  4 

LAST 

998 

4702 

56  C 73 

0 

XCH 

RUPTRFG4 

0072 

REF  7 

LAST 

998 

4703 

0 0072 

1 

TC 

RUPTREG3 

R0090 

2.  USPRC  ADR  ACCESSES  INTERPRETIVE  CODING 

IN  OTHER 

THAN 

THE  USER’S  FBANK.  THE  CALLING  SEQUENCE  IS  AS  FOLLOWS: 

A0092 

L 

TC 

USPRCADR 

A0093 

L + l 

CADR 

INTPRETX 

INTPRETX  IS  THE  INTERPRETIVE  CODING 

A0094 

RETURN  IS  TO  L+2 

0103 

REF  5 

LAST 

473 

4704 

54  164 

0 

USPRC ADR 

TS 

LOC 

SAVE  A 

0104 

REF  36 

LAST 

952 

4705 

3 4735 

1 

CA 

B I T 8 

0105 

REF  7 

LAST 

468 

4 706 

54  023 

1 

TS 

EDOP 

EXIT  INSTRUCTION  TO  EDOP 

0106 

REF  24 

LAST 

902 

4707 

3 0006 

1 

CA 

BBANK 

0107 

REF  1 

4710 

54  165 

1 

TS 

BANKSET 

USER'S  BBANK  TO  BANKSET 

0108 

REF  241 

LAST 

998 

4 7 L 1 

50  C02 

0 

INDEX 

Q 

0109 

4712 

3 0000 

1 

CA 

0 

0110 

REF  11 

LAST 

998 

4 713 

54  C04 

1 

TS 

FBANK 

INTERPRETIVE  BANK  TO  FBANK 

0111 

REF  13 

LAST 

998 

4 714 

7 5003 

0 

MASK 

LOW  10 

YIELDS  INTERPRETIVE  RELATIVE  ADDRESS 

0112 

REF  242 

LAST 

998 

4715 

56  002 

0 

XCH 

Q 

INTERPRETIVE  ADDRESS  TO  Q,  FETCHING  L+I 

0113 

REF  6 

LAST 

998 

4716 

56  164 

1 

XCH 

LOC 

L+l  TO  LOC,  RETRIEVING  ORIGINAL  A 

0114 

REF  l 

4717 

1 4634 

0 

TC  F 

Q+10000 
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L INTER-6  ANK  COMMUNICATION 


USER'S  PAGE  NO.  4 EO  S3 


P01I7 
R 0 1 1 9 
RU120 
R012  1 

RO  12  2 
R0124 
R0126 
RO  12  8 
R0130 
R0132 
RO  134 
RO  136 
RO  13  8 
RO  14  2 
RO  144 


THERE  ARE  FOUR  POSSIBLE  SETTINGS  FOR  CHANNEL  07.  (CHANNEL  07  CONTAINS  THE  SUPERRANK  SETTING.) 


SUPERBANK 

■SETTING 

S-REG.  VALUE 

PSEUDO-FIXED 
BANK  NUMBERS 

OCTAL  PSEUDO 
ADDRESSES 

SUPERBANK 

3 

OXX 

2000  - 3777 

30  - 37 

70000 

- 107777 

(WHERE  XX  CAN  RE  ANYTHING  AND 
WILL  USUALLY  RE  SEEN  AS  11) 

SUPERBANK 

4 

100 

2000  - 3777 

40  - 47 

110000 

- 127777 

( AS  FAR  AS  IT  CAN  BE  SEEN, 
ONLY  BANKS  40-43  WILL  EVER  BE 
AND  ARE  PRESENTLY  AVAILABLE) 

SUPERBANK 

5 

101 

2000  - 3777 

50  - 57 

130000 

- 147777 

(PRESENTLY  NOT  AVAILABLE  TO 
THE  USER) 

SUPERBANK 

6 

1 10 

2000  - 3777 

60  - 67 

150000 

- 167777 

(PRESENTLY  NOT  AVAILABLE  TO 
THE  USER) 

***  TF-IS 
SUPERBANK 

ROUTINE  MAYBE  CALLED  BY  ANY 
SHOULD  USE  SUPERSW.  *** 

PROGRAM  LOCATED  IN 

BANKS  00 

- 27.  I . 

E.,  NO  PROGRAM  LIVING  IN  ANY 

R0145  SUPERSW  MAYBE  CALLED  IN  THIS  FASHION: 


RO  146 
R014  7 
RO  148 
RO  14  9 
RO  150 


CAF 

TCR 


ABBCUN 

SUPERSW 


RO  1 5 l 


OR  IN  THIS  FASHION 


WHERE  — ABBCON  B8C0N 
(THE  SUPERBNK  BITS  ARE  IN 


SOMETHIN  — 
THE  BBCON ) 


RO  152 
RO  15  4 
RO  15  5 
R 0 1 5 7 
RO  15  9 
RO  16  1 


CAF  SUPERSFT  WHERE  SUPERSET  IS  ONE  OF  THE  FOUR  AVAILABLE 

TCR  SUPERSW  SUPERBANK  BIT  CONSTANTS: 


. • . 

• . . 

SUPER01 1 

OCTAL 

60 

. 

. 

SUPER  100 

OCTAL 

100 

• 

• 

SUPER10 1 

OCTAL 

120 

SUPER  110 

OCTAL 

140 

0163 

4720 

0 

0006 

1 

SUPERSW  EXTEND 

0164 

A0165 

REF 

14 

LAST 

997 

4721 

01 

007 

1 

WR  I T E 

SUPERBNK 

WRITE  8 1 TS  7-6-5  OF  THE  ACCUMULATOR  INTO 
CHANNEL  07 

>16< 
AO  16  7 

REF 

243 

LAST 

998 

4722 

0 

0002 

0 

TC 

0 

TC  TO  INSTRUCTION  FOLLOWING 
TC  SUPERSW 

GAP: 
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l 

INTERPRETER 

USER' S PAGE  NO.  1 EO  S3 

ROOO  1 

SECTION  1 DISPATCHER 

R0002 

ENTRY  TO  THE  INTERPRETER.  INTPRET  SFTS 

LOC  TO 

THE  FIRST 

INSTRUCTION,  BANKSET  TO  THE  BRANK  OF  THE 

R0004 

OBJECT  INTERPRETIVE 

GRAM, 

AND  INT8IT15  TO  THE 

BIT15 

CONTENTS  OF 

FB  ANK.  INTERPRETIVE  PROGRAMS  MAY  BE  IN 

ROOO  6 

VIRTUALLY  ALL  HANKS 

PRESENT  i 

UNDER  ANY 

' SUPER-BANK 

SFTTING,  WITH  THE 

RESTRICTION  THAT  PROGRAMS  IN  HIGH  BANKS 

ROOO  8 

I 8IT15  OF  F BANK  = 1 ) 

DO 

NOT 

REFER  TO 

LOW 3 ANK  S , AND  VICE 

-VERSA.  THE 

INTERPRETER  DOES  NOT  SWITCH  SUPERBANKS. 

ROOLO 

E-BANK  SWITCHING  OCCURS 

WHENEVER  GENERAL 

ERASABLE  (100 

- 3777)  IS 

ADDRESSED. 

0012 

6060 

BLOCK 

03 

0013 

REF 

1 

COUNT  * 

$ $/ 1 NTER 

00135 

6060 

0 0003 

1 

INTPRET 

RFL I NT 

0014 

6 061 

0 0006 

1 

EXTEND 

SET  LOC  TO  THE  WORD  FOLLOWING  THE  TC. 

0015 

REF 

7 LAST  998 

6062 

22  164 

1 

OXCH 

LOC 

0016 

REF 

25  LAST  998 

6063 

3 0006 

L 

+ 2 

CA 

BBANK 

INTERPRETIVE  BRANCHES  FINISH  HERE . 

0017 

REF 

2 LAST  998 

6064 

54  165 

1 

TS 

8ANKSET 

0018 

REF 

37  LAST  899 

6065 

7 4726 

1 

MASK 

B I T 1 5 

GET  1 5TH  BIT  FOR  INDEXABLE  ADDRESSES. 

0019 

REF 

4 LAST  98 

6066 

54  115 

0 

TS 

INTBIT15 

0020 

REF 

8 LAST  998 

6067 

54  023 

1 

TS 

E OOP 

MAKE  SURE  NO  INSTRUCTIONS  LFFT  nVER 

002  l 

REF 

1 

6070 

1 6 11  L 

1 

TCF 

NEWOPS 

PICK  UP  OP  CODE  PAIR  AND  BEGIN. 

0022 

REF 

26 

LAST 

1000 

6071 

22 

006 

1 

I NTRSM 

LXCH 

BBANK 

RESUME  SUSPENDED  INTERPRETIVE 

JOB 

0023 

REF 

2 16 

LAST 

980 

6072 

1 

6063 

0 

TCF 

INTPRET  +3 

R0024 

DLOAD 

LOADS 

MPAC , MP  AC 

+ 1, 

LEAVING  ZERO 

IN  MPAC 

+ 2. 

002  5 

6073 

0 

0006 

1 

DLOAD 

EXTEND 

0026 

REF 

4 

LAST 

918 

6074 

5 

0116 

1 

INDEX 

ADDRWD 

002  7 

6075 

3 

0001 

0 

DC  A 

0 

LOAD 

DP  Cl 

I C (ADDRWD) ) INTO  MPAC 

, MP  AX  +1 

0028 

REF 

365 

LAST 

960 

6076 

52 

155 

1 

SL0AD2 

DXCH 

MPAC 

0029 

REF 

152 

LAST 

994 

6077 

3 

4746 

0 

CAF 

ZERO 

ZERO 

MPAC 

+ 2 
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L INTERPRETER  USFR'S  PAGE  NO.  2 EO  S3 

' P0030  AT  THE  END  OF  MOST  INSTRUCTIONS,  CONTROL  IS  GIVEN  TO  DANZIG  TO  DISPATCH  THE  NEXT  OPERATION. 


003  2 

REF 

366 

LAST 

1000 

6100 

54  156 

1 

TS 

MPAC  +2 

AND  DECLARE  DP  MODE 

0033 

REF 

10 

LAST 

827 

6101 

54  163 

1 

NEWMODE 

TS 

MODE 

PROLOGUE  FOR  MODE-CHANGING  INSTRUCTIONS 

003  A 

REF 

3 

LAST 

1000 

6102 

3 0165 

0 

OANZ  IG 

CA 

BANKSFT 

SET  BRANK  BEFORE  TESTING  NEWJOB  SO  THAT 

0035 

REF 

27 

LAST 

1000 

6103 

54  006 

0 

TS 

BBANK 

IT  MAY  BE  SAVED  DIRECTLY  BY  CHANJOB. 

0036 

REF 

9 

LAST 

1000 

6104 

10  023 

1 

NOIBNKSW 

CCS 

E OOP 

SEE  IF  AN  ORDER  CODE  IS  LEFT  OVER  FROM 

003  7 

RFF 

l 

6105 

1 6120 

0 

TCF 

OPJUMP 

THE  LAST  PAIR  RETRIEVED.  IF  SO,  EXECUTE 

A0038 

EDOP  IS  SFT  TO  ZERO  ON  ITS  RE-EDITING. 

003  S 

REF 

7 

LAST 

889 

6106 

10  067 

1 

CCS 

NEW JOB 

SEE  IF  A JOB  OF  HIGHER  PRIORITY  IS 

0040 

REF 

1 

6107 

1 5117 

L 

TCF 

CHANG2 

PRESENT,  AND  IF  SO,  CHANGE  JOBS. 

004  L 

REF 

8 

LAST 

1000 

6110 

24  164 

1 

INCR 

LOC 

ADVANCF  THE  LOCATION  COUNTER. 

R0042 

ITRACE  (1) 

REFERS  TO 

"NEWOPS 

. 

004  3 

REF 

9 

LAST 

1001 

6111 

50  164 

1 

NEWOPS 

INDEX 

LOC 

ENTRY  TO  BEGIN  BY  PICKING  OP  CODE  PAIR. 

0044 

6112 

3 0000 

1 

CA 

0 

MAY  BE  AN  OPCODE  PAIR  OR  A STORE  CODE. 

0045 

REF 

298 

LAST 

996 

6113 

10  000 

0 

CCS 

A 

TEST  SIGN  AND  GET  DABS(A). 

0046 

REF 

1 

6114 

1 6403 

1 

TCF 

DOSTORE 

PROCESS  STORE  CODF. 

0047 

6115 

00177 

0 

L0W7 

OCT 

177 

004  8 

REF 

10 

LAST 

1001 

6 116 

54  023 

1 

TS 

EDUP 

OP  CODE  PAIR.  LEAVE  THE  OTHER  IN  EDOP 

004  9 

REF 

6 

LAST 

46  8 

6117 

7 6115 

0 

MASK 

L0W7 

WHERE  CCS  EDOP  WILL  HONOR  IT  NEXT. 

0050 

REF 

9 

LAST 

475 

6 120 

54  020 

1 

OPJUMP 

TS 

C YR 

LOWWD  ENTERS  HERE  IF  A RIGHT-HAND  OP 

0051 

REF 

1C 

LAST 

1001 

6121 

10  020 

1 

CCS 

C YR 

CODE  IS  TO  BE  PROCESSED.  TFST  PREFICES. 

0052 

REF 

I 

6122 

1 6270 

0 

TCF 

0PJUMP2 

TEST  SECOND  PREFIX  BIT. 

0053 

REF 

l 

6 123 

1 6 7 64 

0 

TCF 

EXIT 

+0  OP  CODE  IS  EXIT. 
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L INTERPRETER  USER'S  PAGE  NO.  3 EO  S3 


P0054 

PROC 

ESS  ADORE 

SSES  WHICH  MAY 

BE 

DIRECT, 

INDEXED, 

, OR  REFERENCE 

THE  PUSHDOWN  LIST. 

0056 

REF 

51 

LAST 

978 

6124 

7 4744 

0 

ADDRESS 

MASK 

8 IT1 

SEE  IF  ADDRESS  IS  INDEXED.  CYR  CONTAINED 

005  7 

REF 

299 

LAST 

1001 

6125 

10  000 

0 

CCS 

A 

400XX , SO  BIT  1 IS  NOW  AS  IT  WAS  IN  CYR. 

0058 

REF 

1 

6 126 

1 6167 

0 

TCF 

INDEX 

FORM  INDEXED  ADDRESS. 

0059 

REF 

10 

LAST 

1001 

6127 

50  164 

1 

DIRADRES 

INDEX 

LOC 

LOOK  AHEAD  TO  NEXT  WORD  TO  SEE  IF 

0060 

6130 

4 0001 

1 

CJCT4000  1 

CS 

1 

ADDRESS  IS  GIVEN. 

0061 

REF 

300 

LAST 

1002 

6 131 

10  000 

0 

CCS 

A 

0062 

REF 

1 

6132 

1 6236 

1 

TCF 

PUSHUP 

IF  NOT. 

0063 

6133 

777  73 

1 

NEG4 

DEC 

-4 

0064 

REF 

1 1 

last 

1002 

6 134 

24  164 

l 

INCR 

LOC 

IF  SO,  TO  SHOW  WE  PICKED  UP  A WORD. 

0065 

REF 

5 

LAST 

1000 

6135 

54  116 

0 

TS 

ADDRWD 

GAP: 

L 

P0066 

R0068 

R0070 

0072 

0073 

0074 

0075 

0076 

0077 

007  8 

0079 

0080 

008  1 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

009  1 

0092 

009  3 

0094 
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INTERPRETER  USER'S  PAGE  NO.  4 EO  S3 

FINAL  DIGESTION  OF  DIRECT  ADOKESSES  OF  OP  CODES  WITH  01  PREFIX  IS  DONE  FERE.  IN  EACH  CASE,  THF 
REQUIRED  12-BIT  SUB-ADDRESS  IS  LEFT  IN  ADDRWD , WITH  ANY  REQUIRED  E OR  F RANK  SWITCHING  DONF . ADDRESSES  LESS 


THAN 

45D 

ARE 

TAKEN  to 

BE  REL 

ATIVE  TO 

THE 

WORK  AREA.  THE 

UP  CODE  IS  NUW 

IN  BITS  1-5  OF  CYR  WITH  BIT  14  = 1. 

REF 

1 

6136 

6 6272 

0 

AD 

-ENDVAC 

SEE  IF  ADDRESS  RELATIVE  TO  WORK  AREA. 

REF 

301 

LAST 

1002 

6137 

10  000 

0 

CCS 

A 

REF 

1 

6140 

6 7764 

0 

AD 

-ENDERAS 

IF  NOT,  SEF  IF  IN  GENERAL  ERASABLE. 

REF 

l 

6141 

1 6146 

0 

TCF 

I ERASTST 

REF 

43 

LAST 

959 

6142 

3 0120 

1 

NETZ  FRO 

CA 

F I XL GC 

IF  SO,  LEAVE  THE  MODIFIED  ADDRFSS  IN 

REF 

6 

LAST 

1002 

6143 

26  116 

0 

ADS 

ADDRWD 

ADDRWD  AND  DISPATCH. 

REF 

l l 

LAST 

1001 

6144 

50  020 

0 

I TR  1 5 

INDEX 

C YR 

THIS  INDEX  MAKES  THE  NEXT  INSTRUCTION 

REF 

1 

6145 

7 6314 

0 

7 

INDJUMP  -l 

TCF  INDJUMP  + OP,  EDITING  CYR. 

6146 

0 0006 

1 

I ERASTST 

EXTEND 

REF 

l 

6147 

6 6157 

1 

BZMF 

GEADDR 

GO  PROCESS  GENERAL-FRASABLE  ADDRESS. 

REF 

14 

LAST 

998 

6150 

7 5003 

0 

MASK 

L0W10 

FIXED  BANK  ADDRESS.  RESTORE  AND  ADD  B15 

REF 

15 

LAST 

1003 

6151 

6 5003 

1 

AD 

L0W10 

SWITCH  RANKS  AND  LEAVE  SURADDRESS  IN 

REF 

7 

LAST 

1003 

6152 

56  116 

1 

XCH 

ADDRWD 

ADDRWD  FOR  OPERAND  RETRIEVAL.  (THIS 

REF 

5 

LAST 

1000 

6153 

6 0115 

1 

AD 

INTBIT15 

METHOD  PRECLUDES  USF  nF  THE  LAST 

REF 

12 

LAST 

998 

6154 

54  004 

1 

TS 

F BANK 

LOCATION  IN  EACH  EBANK.) 

REF 

12 

LAST 

1003 

6155 

50  020 

0 

I TR  1 2 

INDEX 

CYR 

REF 

2 

LAST 

1003 

6156 

7 6314 

0 

7 

INDJUMP  -1 

REF 

10 

LAST 

995 

6157 

7 4350 

1 

GEADDR 

MASK 

L 0W8 

REF 

3 

LAST 

475 

6160 

6 5000 

1 

AD 

OCT  1400 

REF 

8 

LAST 

1003 

6161 

56  116 

1 

XCH 

ADDRWD 

REF 

65 

LAST 

995 

6162 

54  003 

0 

TS 

EBANK 

REF 

13 

LAST 

1003 

6 163 

50  C20 

0 

I TRIO 

INDEX 

CYR 

REF 

3 

LAST 

1003 

6164 

7 6314 

0 

7 

INDJUMP  -1 
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L INTERPRETER  USER'S  PAGE  NO.  5 EO  S3 

P0095  THE  FOLLOWING  ROUTINE  PROCESSES  INTERPRETIVE  INDEXED  ADDRESSES.  AN  INTERPRETER  INDEX  REGISTFR  MAY 

R0097  CONTAIN  THE  ADDRESS  CF  ANY  ERASABLE  REGISTER  10-42  BEING  RELATIVE  TO  THE  VAC  AREA)  OR  ANY  INTERPRETIVE  PROGRAM 


R0099 

BANK 

, OR 

ANY 

INTEGER 

IN  THAT 

0100 

REF 

1 

6165 

010  1 

REF 

14 

LAST 

1003 

6166 

010  2 

REF 

44 

LAST 

1003 

6167 

0103 

REF 

1 

6 170 

0104 

REF 

12 

LAST 

1002 

6171 

0105 

REF 

13 

LAST 

1004 

6 172 

0106 

6173 

0107 

REF 

3C2 

LAST 

1003 

6174 

0108 

REF 

2 

LAST 

1004 

6175 

0109 

6176 

0110 

REF 

9 

LAST 

1003 

6177 

Oil  1 

REF 

1 

6200 

0112 

6201 

0113 

REF 

1 

6202 

0114 

REF 

6 

LAST 

1003 

6203 

0115 

REF 

10 

LAST 

1004 

6204 

0116 

REF 

3 

LAST 

1004 

6205 

0117 

REF 

27 

LAST 

959 

6206 

0118 

REF 

11 

l AST 

1004 

6207 

0119 

REF 

7 

LAST 

959 

6210 

0120 

6211 

012  1 

REF 

1 

6212 

1122 

REF 

2 

LAST 

1004 

6213 

0123 

6214 

0124 

REF 

1 

6215 

0125 

REF 

12 

LAST 

1004 

6216 

0126 

REF 

13 

LAST 

1003 

6217 

0127 

REF 

16 

LAST 

1003 

6220 

0128 

REF 

1 

6221 

0129 

REF 

13 

LAST 

1004 

6222 

0130 

REF 

15 

LAST 

1004 

6223 

0131 

REF 

4 

LAST 

1003 

6224 

0132 

REF 

45 

LAST 

1004 

6225 

0133 

REF 

1 

6226 

0134 

REF 

4 

LAST 

1003 

6227 

0135 

REF 

14 

LAST 

1004 

6230 

0136 

REF 

66 

LAST 

1003 

6231 

0137 

REF 

11 

LAST 

1003 

6232 

0138 

REF 

15 

LAST 

1004 

6233 

3 7754 

0 

DODLO AD* 

CAF 

DLOAU  * 

54  020 

1 

TS 

CYR 

3 C 120 

1 

I NDF  X 

CA 

F IXLOC 

54  130 

1 

TS 

INDEXLOC 

24  164 

1 

I NCR 

LOC 

50  164 

1 

INDEX 

LOC 

4 0000 

0 

CS 

0 

10  000 

0 

CCS 

A 

24  130 

0 

INCR 

INDEXLOC 

16  177 

1 

NOOP 

54  1 16 

0 

TS 

ADDRWD 

7 7763 

0 

MASK 

H IGH4 

0 CC06 

1 

EXTFND 

1 6205 

1 

BZF 

I NOE  X 2 

3 0115 

1 

CA 

INTBIT  15 

26  116 

0 

ADS 

ADDRWD 

50  130 

0 

INDEX2 

INDEX 

INDEXLOC 

4 0046 

1 

CS 

X 1 

26  116 

0 

ADS 

ADDRWD 

7 7765 

0 

MASK 

HIGH9 

0 0006 

1 

EXTEND 

l 6225 

0 

BZF 

I NDWORK 

7 7763 

0 

MASK 

HIGH4 

0 0006 

1 

EXTEND 

1 6227 

1 

BZF 

INDERASE 

3 0116 

1 

CA 

ADDRWD 

54  004 

1 

TS 

FBANK 

7 5003 

0 

MASK 

LOWIO 

6 4732 

0 

AD 

2K 

54  116 

0 

TS 

ADDRWD 

50  020 

0 

ITR1  1 

INDEX 

CYR 

3 63  14 

1 

3 

I NO JUMP  -1 

3 0120 

1 

I NDWORK 

CA 

F IXLOC 

1 6233 

1 

TCF 

ITR13  -1 

3 5000 

l 

INDERASE 

CA 

OCT  1 400 

56  116 

1 

XCH 

ADDRWD 

54  003 

0 

TS 

EBANK 

7 4350 

1 

MASK 

L0W8 

26  116 

0 

-1 

ADS 

ADDRWD 

STOOL*  COMES  HERE  TO  PROCESS  LOAD  ADR. 
(STOVL*  ENTERS  HERE). 

SET  UP  INDEX  LOCATION. 

(ADDRESS  ALWAYS  GIVEN). 

INDEX  2 TF  ADDRESS  STORED  COMPLEMENTFO . 

14  BIT  ADDRESS  TO  ADDRWD. 

IF  ADDRESS  GREATER  THAN  2K,  ADD  INTBIT15 


DO  AUGMENT,  IGNORING  AND  CORRECTING  OVF. 
SEE  IF  ADDRESS  IS  IN  WORK  ARFA. 

SEE  IF  IN  FIXED  BANK. 

IN  FIXED  - SWITCH  BANKS  AND  CREATE 
SUB-ADDRESS. 


MAKE  ADDRWD  RELATIVE  TO  WORK  AREA. 
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1005 


0139 

0140 


REF  16  LAST  1004 
REF  5 LAST  1004 


6234  5C  020  0 ITR13 

6235  3 6314  1 


INDEX  CYR 
3 INDJUMP  -1 
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P0141  PUSH-UP  ROUTINES.  WHEN  NO  OPERANC  ADDRESS  IS  GIVEN,  THE  APPROPRIATE  OPERAND  IS  TAKFN  FROM  THE  PUSH-DOWN 

R0143  LIST.  IN  MOST  CASES  THE  MODE  OF  THE  RESULT  (VECTOR  OR  SCALAR)  OF  THE  LAST  ARITHMETIC  OPERATION  PERFORMED 

R0145  IS  THE  SAME  AS  THE  TYPE  OF  OPERAND  DESIRED  (ALL  ADD/SUBTRACT  ETC.).  EXCEPTIONS  TO  THIS  GENERAL  RULE  ARE  I ISTFD 

R0147  BELOW  (NOTE  THAT  IN  EVERY  CASE  TEE  MODE  REGISTER  IS  LEFT  INTACT): 

R0148  1.  VXSC  AND  V/ SC  WANT  THE  OPPOSITE  TYPE  OF  OPERAND,  E.G.,  IF  THE  LAST  OPERATION  YIFLDED  A VECTOR 


RO  150 

RESULT, 

VXSC 

WANTS 

A 

SCALAR. 

RO 15  1 

2. 

THE  LOAD 

CODES  SHOULO  LOAD 

THE  ACCUMULATOR 

INDEPENDENT 

OF  THF  RESULT  OF  THE  LAST  OPERATION.  THIS 

RO  153 

INCLUDES 

VLOAD,  DLOAD 

, TLOAD , 

PDDL  , 

AND 

PDVL  (NO 

PUSHUP 

WITH  SLOAD) 

• 

R0154 

3. 

SOME  , 

AR I THMET  IC 

OPERATIONS 

REQUIRE 

A STANDARD  TYPE  OF 

OPERAND  REGARDLESS  OF  THE  PREVIOUS  OPERATION. 

R0156 

THIS 

i INCLUDES 

SIGN 

WANTING  OP 

AND  TAD  REQUIP,  I NG 

TP. 

0157 

REF 

2 

LAST 

742 

6236 

3 4351 

1 

PUSHUP 

CAF 

OCT23 

IF  THE  LOW  5 BITS  OF  CYR  AR F LFSS  THAN 

0150 

REF 

17 

LAST 

1005 

6237 

7 0020 

1 

MASK 

CYR 

20,  THIS  OP  RFQUI RES  SPECIAL  ATTENTION. 

0159 

REF 

1 

6240 

6 6243 

1 

AD 

-OCT l 0 

(NO  -0) . 

0160 

REF 

303 

LAST 

1004 

6241 

10  COO 

0 

CCS 

A 

0161 

REF 

1 

6242 

1 6254 

0 

TCF 

REGUP 

FOR  ALL  COOES  GREATER  THAN  OCT  7. 

0162 

6 243 

7 7 767 

1 

— OCT  10 

OCT 

-10 

0163 

REF 

1 

6244 

6 6133 

0 

AD 

NEG4 

WE  NOW  HAVE  7 - OP  C0DE(M0D4).  SEE  IF 

0164 

REF 

3 04 

LAST 

1006 

6245 

10  000 

0 

CCS 

A 

THE  OP  CODE  ( M0D4 ) IS  THREE  (REVERSE). 

0165 

REF 

3C5 

LAST 

1006 

6246 

50  000 

1 

INDEX 

A 

NO  - THE  MODE  IS  DEE  IN  I TE  . PICK  UP  THE 

0166 

REF 

1 

6247 

4 6265 

1 

cs 

NO.WDS 

0167 

REF 

2 

LAST 

1006 

6250 

1 6256 

1 

TCF 

REGUP  +2 

0168 

REF 

11 

LAST 

1001 

6251 

50  163 

0 

INDEX 

MODE 

FOR  VXSC  AND  V/SC  WF  WANT  THE  REQUIRED 

0169 

REF 

2 

LAST 

959 

6252 

4 6263 

1 

CS 

REVCNT 

PUSHLOC  DECREMENT  WITHOUT  CHANGING  THE 

0170 

REF 

3 

LAST 

1006 

6253 

1 6256 

1 

TCF 

REGUP  +2 

MODE  AT  THIS  TIME. 

0171 

REF 

12 

LAST 

1006 

6254 

50  163 

0 

REGUP 

INDEX 

MODE 

MOST  ALL  OP  CODES  PUSHUP  HFRF. 

0172 

REF 

2 

LAST 

1006 

6255 

4 6265 

1 

CS 

NO.WDS 

0173 

REF 

8 

LAST 

892 

6256 

26  166 

1 

+ 2 

ADS 

PUSHLOC 

0174 

REF 

16 

LAST 

I i 

6257 

54  116 

0 

TS 

ADDRWD 

0175 

REF 

18 

LAST 

1006 

6260 

50  C20 

0 

I TR  1 4 

INDEX 

CYR 

0176 

REF 

6 

LAST 

1005 

626  1 

7 6314 

0 

7 

INDJUMP  -1 

(THF  INDEX  MAKES  THIS  A TCF.) 

0177 

6262 

0 0 C 0 2 

0 

oct 

2 

REVERSE  PUSHUP  DECREMENT.  VFCTOR  TAKES  2 

0178 

6263 

00006 

1 

REVCNT 

OCT 

6 

WORDS,  SCALAR  TAKES  6. 

0179 

6264 

00006 

1 

OCT 

6 

0180 

6265 

00002 

0 

NO.WDS 

OCT 

2 

CONVENTIONAL  DECREMENT  IS  6 WORDS  VECTOR 

018  l 

6266 

00003 

1 

0CTAL3 

OCT 

3 

2 IN  DP,  AND  3 IN  TP. 

01.82 

6267 

00006 

1 

OCT 

6 
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PO  18  3 

TEST 

THE  SECOND  PREF  IX  BIT 

TO 

SEE  IF  THIS  IS  A 

MISCELLANEOUS  OR  A UNARY/SHORT  SHIFT  OPERATION. 

0185 

REF 

19 

LAST 

1006 

6270 

10  020 

l 

0PJUMP2 

CCS 

CYR 

TEST  SECOND  PREFIX  BIT. 

0186 

REF 

1 

6271 

1 6304 

1 

TCF 

0PJUMP3 

TEST  THIRD  BIT  TO  SEE  IF  UNARY  OR  SHIFT. 

0187 

6272 

77722 

0 

-ENDVAC 

DEC 

-45 

R0188 

THE  FOLLOWING  ROUTINE  PROCESSES  ADORESSES  OF  SUFFIX  CLASS 

10.  THEY  ARE  BASICALLY  WORK  AREA  ADDRESSES 

R0190 

IN 

THE 

RANGE  0 

- 52, 

ERASABLE 

ECAOR 

CONSTANTS  FROM  100  - 

- 3777,  AND 

FC  ADR  S ABOVE  THAT.  ALL  15  BITS  ARE  AVAILABLE 

P.0192 

IN 

CONTRAST  TO 

SUFFIX 

1,  IN  WHICH  ONLY 

THE  LOW  ORDER  14 

ARE  AVAILABLE. 

019  3 

REF 

1 A 

LAST 

1004 

6273 

24  164 

1 

15BITADR 

INCR 

LOC 

(ENTRY  HERE  FROM  STCALL). 

0194 

REF 

15 

LAST 

1007 

6274 

5 0 164 

1 

INDEX 

LOC 

PICK  UP  ADDRESS  WORD. 

0195 

6275 

3 0000 

1 

CA 

0 

0196 

REF 

6 

LAST 

100 

6276 

54  117 

1 

TS 

POLISH 

WE  MAY  NEED  A SUBADDRESS  LATER. 

0197 

REF 

1 

6277 

3 5C04 

0 

CAF 

LOW7+2K 

THESE  INSTRUCTIONS  ARE  IN  BANK  1. 

0198 

REF 

14 

LAST 

1004 

6300 

54  C 04 

1 

TS 

F8ANK 

0199 

REF 

20 

LAST 

1007 

6301 

7 0020 

1 

MASK 

CYR 

0200 

REF 

306 

LAST 

1006 

6302 

50  000 

1 

I TR  7 

INDEX 

A 

0201 

REF 

1 

6303 

1 6355 

0 

TCF 

M ISC  JUMP 

GAP: 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  202H12-I6L 


17:11  MAR.  19,1971  SKIPPER 


l3l  PAGE  1008 


L INTERPRETER  USER'S  PAGE  NO.  9 EO  S3 

P0202  COMPLETE  THE  DISPATCHING  OF  UNARY  AND  SHORT  SHIFT  OPERATIONS. 


0203 

REF 

15 

LAST 

1007 

6304 

54  004 

l 0PJUMP3 

TS 

FBANK 

CALL  IN  BANK  0 (RITS  11-15  OF  A ARE  0.) 

R0204 

I TRACE  (6) 

REFERS  TO 

"OP JUM 

P3  " . 

020b 

REF 

2 1 

LAST 

1007 

6305 

10  020 

1 

CCS 

C YR 

TEST  THIRD  PREFIX  BIT. 

0206 

REF 

3C7 

LAST 

1007 

6306 

50  000 

1 

INDEX 

A 

THE  DECREMENTED  UNARY  CODE  IS  IN  BITS 

0207 

REF 

1 

6307 

1 2000 

l 

TCF 

UNAJUMP 

1-4  OF  A (ZERO,  EXIT,  HAS  BE FN  DETECTFD) 

0208 

REF 

13 

LAST 

100  6 

6310 

10  163 

1 

CCS 

MODE 

ITS  A SHORT  SHIFT  CODE.  SEE  IF  PRESENT 

0209 

REF 

1 

63  11 

1 2017 

1 

TCF 

SHORTT 

SCALAR  OR  VECTOR. 

0210 

REF 

2 

LAST 

1008 

63  12 

1 2017 

l 

TCF 

SHORT  T 

021  1 

REF 

1 

6313 

1 2121 

0 

TCF 

SHORTV 

CALLS  THE  APPROPRIATE  ROUTINE. 

0212 

REF  1 

4341 

F BANKMSK 

EQUALS 

BANKMASK 

0213 

REF  25  LAST  347 

6314 

OC 122  0 LVBUF 

ADRES 

VBUF 

GAP: 

L 

P0216 

0216 

0217 

0218 

0219 

0220 

022  1 

0222 

0223 

0226 

0225 

0226 

022  7 

022  8 

0229 

0230 

023  1 

0232 

0233 

023  6 

0235 

0236 

023  7 

0238 

0239 

0260 

026  1 

0262 

0263 

0266 

0265 

0 26  6 

026  7 

0268 


ASSEMBLE  REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161 


17:11  MAR.  19,1971  SKIPPER  .131 


PAGE  1009 


INTERPRETER  USER'S  PAGE  NO.  10  EO  S3 

THE  FOLLOWING  IS  THE  JUMP  TABLE  FOR  CP  CODES  WHICH  MAY  HAVE  INDEXABLE  ADDRESSES  OR  MAY  PUSH  UP. 


REF 

1 

6315 

1 

6526 

l 

INDJUMP  TCF 

VLOAD 

00 

- 

LOAD  MP AC  WITH  A VECTOR. 

REF 

1 

6316 

l 

7112 

0 

TCF 

TAD 

01 

TRIPLE  PRECISION  ADD  TO  MPAC. 

REF 

1 

6317 

1 

76  76 

0 

TCF 

S IGN 

02 

COMPLEMENT  MPAC  (V  OR  SC)  IF  X NEG. 

REF 

1 

6320 

l 

7622 

0 

TCF 

VXSC 

03 

- 

VECTOR  TIMES  SCALAR. 

REF 

1 

632  1 

1 

6726 

1 

TCF 

CGOTO 

06 

COMPUTED  GO  TO. 

REF 

2 LAST  369 

6322 

1 

6511 

0 

TCF 

T LOAD 

05 

LOAD  MPAC  WITH  TRIPLE  PRECISION. 

REF 

1 

6323 

1 

6073 

1 

TCF 

D LOAD 

06 

- 

LOAD  MPAC  WITH  A DP  SCALAR. 

REF 

1 

6326 

l 

7665 

0 

TCF 

V/ SC 

07 

- 

VECTOR  DIVIDED  BY  SCALAR. 

REF 

l 

6325 

1 

6522 

0 

TCF 

SLOAD 

10 

- 

LOAD  MPAC  IN  SINGLE  PRECISION. 

REF 

l 

6326 

1 

6661 

0 

TCF 

SSP 

11 

- 

SET  SINGLE  PRECISION  INTO  X. 

REF 

1 

6327 

1 

6566 

0 

TCF 

POOL 

12 

PUSH  DOWN  MPAC  AND  RE-LOAD  IN  DP. 

REF 

1 

6330 

l 

7355 

1 

TCF 

M X V 

13 

- 

MATRIX  POST-MULTIPLIED  BY  VFCTOR. 

REF 

1 

6331 

1 

6600 

0 

TCF 

PDVL 

16 

- 

PUSH  DOWN  AND  VECTOR  LOAD. 

REF 

1 

6332 

1 

6667 

0 

TCF 

CCALL 

15 

- 

COMPUTED  CALL. 

REF 

1 

6333 

1 

7360 

1 

TCF 

VXM 

16 

- 

MATRIX  PRE-MULT  I PL IED  BY  VECTOR. 

REF 

1 

6336 

1 

7637 

0 

TCF 

TSLC 

17 

~ 

NORMALIZE  MPAC  (SCALAR  ONLY). 

REF 

1 

6335 

1 

7615 

0 

TCF 

DMPR 

20 

- 

OP  MULTIPLY  AND  ROUND. 

REF 

1 

6336 

1 

7620 

0 

TCF 

DDV 

21 

- 

DP  DIVIDE  8Y . 

KEF 

l 

6337 

1 

7626 

1 

TCF 

BDOV 

22 

- 

DP  DIVIDE  INTO. 

REF 

1 

6360 

1 

7662 

1 

TCF 

GSHIFT 

23 

- 

GENERAL  SHIFT  INSTRUCTION. 

REF 

1 

6361 

1 

6772 

l 

TCF 

VAD 

26 

- 

VECTOR  ADD. 

REF 

I 

6362 

1 

6770 

0 

TCF 

VSU 

25 

VECTOR  SURTRACT. 

REF 

l 

6363 

1 

7C57 

0 

TCF 

BVSU 

26 

- 

VECTOR  SUBTRACT  FROM. 

REF 

1 

6366 

1 

7352 

0 

TCF 

DOT 

27 

- 

VECTOR  DOT  PRODUCT. 

REF 

1 

6365 

1 

7501 

0 

TCF 

V XV 

30 

- 

VECTOR  CROSS  PRODUCT. 

REF 

1 

6366 

l 

7666 

l 

TCF 

V PRO  J 

31 

- 

VECTOR  PROJECTION. 

REF 

1 

6367 

1 

7026 

0 

TCF 

DSU 

32 

- 

DP  SUBTRACT. 

REF 

1 

6350 

1 

7103 

0 

TCF 

BDSU 

33 

- 

DP  SUBTRACT  FROM. 

REF 

1 

6351 

1 

7016 

0 

TCF 

DAD 

36 

- 

DP  ADD. 

6352 

1 

6352 

l 

TCF 

35 

- 

AVAILABLE 

REF 

1 

6353 

1 

7613 

0 

TCF 

DMP1 

36 

- 

DP  MULTIPLY. 

REF 

1 

6356 

1 

7636 

0 

TCF 

SETPD 

37 

- 

SET  PUSH  DOWN  POINTER  (DIRECT  ONLY) 

CODES  10  AND  16  MUST  NOT  PUSH  UP.  CODE  06  MAY  BE  USED  FOR  VECTOR  OECLARE  BEFORE  PUSHUP  IF  DESIRED. 


GAP: 

L 

P0250 

025  2 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

026  1 

0262 

026  3 

0264 

0265 

0266 

0267 
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THE  FOLLOWING  JUMP  TABLE  APPLIES  TO  INOEX,  BRANCH,  ANO  MISCELLANEOUS  INSTRUCTIONS. 


REF  1 

6355 

1 

2350 

1 

M I SC JUMP  TCF 

A XT 

00 

- 

ADDRESS  TO  INDEX  TRUE. 

REF  1 

6356 

1 

2355 

l 

TCF 

A XC 

01 

- 

ADDRESS  TO  INDEX  COMPLEMENTED. 

REF  1 

6357 

1 

2 360 

1 

TCF 

LX  A 

02 

LOAD  INDEX  FROM  ERASABLE. 

REF  1 

6360 

1 

2364 

0 

TCF 

L XC 

03 

LOAD  INDEX  FROM  COMPLEMENT  OF  ERAS 

REE  1 

6361 

1 

2370 

0 

TCF 

S X A 

04 

- 

STORE  INDEX  IN  FRASABLF. 

REF  1 

6362 

1 

2376 

0 

TCF 

XCHX 

05 

- 

EXCHANGE  INDEX  WITH  ERASABLE. 

REF  1 

6363 

l 

2412 

0 

TCF 

I NCR 

06 

- 

INCREMENT  INDEX  REGISTER. 

REF  1 

6364 

I 

2421 

0 

TCF 

T IX 

07 

- 

TRANSFER  ON  INDFX. 

REF  l 

6365 

1 

2404 

1 

TCF 

X AD 

10 

- 

INDEX  REGISTER  ADD  FROM  ERASABLE. 

REF  1 

6366 

1 

2415 

1 

TCF 

XSU 

11 

- 

INDEX  SUBTRACT  FROM  ERASARLE. 

REF  1 

6367 

1 

2473 

l 

TCF 

BZE/GOTO 

12 

- 

BRANCH  ZERO  AND  GOTO. 

REF  1 

6370 

1 

2 500 

1 

TCF 

BPL/BMN 

13 

BRANCH  PLUS  AND  BRANCH  MINUS. 

REF  1 

6371 

1 

2453 

0 

TCF 

RTB/BHI Z 

14 

- 

RETURN  TD  BASIC  AND  BRANCH  HI  ZERO 

REF  1 

6372 

1 

2513 

0 

TCF 

CALL/ ITA 

15 

- 

CALL  AND  STORE  QPRET . 

REF  1 

6373 

1 

2522 

1 

TCF 

SW/ 

16 

- 

SWITCH  INSTRUCTIONS  AND  AVAILABLE. 

REF  l 

6374 

1 

2463 

0 

TCF 

BOV ( B ) 

17 

- 

BRANCH  ON  OVERFLOW  TO  BASIC  OR  INT 

« 
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L INTERPRETER 

P0268  THE  FOLLOWING  JUMP  TABLE  APPIES  TO  UNARY  INSTRUCTIONS. 


026  9 

REF 

2 LAST 

1000  TO  101 l: 

205  205* 

COUNT* 

$ $/ I NTER 

02  7C 

00,2000 

BANK 

0 

0271 

REF 

L 

00,2000 

1 

3207 

0 UNAJUMP 

TCP 

SQRT 

0272 

REF 

1 

00,2001 

l 

3530 

0 

TCF 

SINE 

0273 

PEE 

1 

00,2002 

1 

3517 

0 

TCF 

COSINE 

027A 

REF 

1 

00,2003 

1 

36  10 

L 

TCF 

ARCSIN 

0275 

REF 

1 

00.200A 

I 

3612 

0 

TCF 

ARCCOS 

0276 

REF 

1 

00,2005 

1 

3 17A 

l 

TCF 

DSO 

0277 

REF 

1 

00,2006 

1 

2116 

1 

TCF 

ROUND 

0278 

REF 

1 

00,2007 

1 

7711 

0 

TCF 

COMP 

0279 

REF 

L 

00, 20L0 

1 

3232 

0 

TCF 

VDEF 

0280 

REF 

1 

00,2011 

1 

3023 

1 

TCF 

UNIT 

0281 

REF 

1 

00,2012 

1 

3176 

0 

TCF 

A8VALABS 

0282 

REF 

1 

00,2013 

1 

32A5 

0 

TCF 

VSQ 

0283 

REF 

1 

00 , 20 1 A 

1 

6375 

1 

TCF 

STADR 

028  A 

REF 

1 

00,2015 

1 

3 2 7A 

1 

TCF 

RVQ 

0285 

REF 

l 

00,2016 

1 

32A7 

1 

TCF 

PUSH 
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00  - EXIT  - DETECTED  FARLIER. 

01  - SQUARE  ROOT. 

02  - SIN. 

03  - COS. 

OA  - ARC  SIN. 

05  - ARC  COS. 

06  - DP  SQUARE. 

07  - ROUND  TO  DP. 

10  - COMPLEMENT  VECTOR  OR  SCALAR. 

11  - VECTOR  DEFINE. 

12  - UNIT  VECTOR. 

13  - LENGTH  OF  VECTOR  OR  MAG  OF  SCALAR. 

LA  - SQUARE  OF  LENGTH  OF  VECTOR. 

15  - PUSH  UP  ON  STORE  CODE. 

16  - RETURN  VIA  QPRET . 

17  - PUSH  MPAC  DOWN. 
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P0236  SECTION  2 LOAD  AND  STORE  PACKAGE. 

R02B7  A SET  OF  EIGHT  STORE  CODES  IS  PROVIDED  AS  THE  PRIMARY  METHOD  OF  STORING  THE  MULTI-PURPOSE 

R0289  ACCUMULATOR  (MPAC).  IF  IN  THE  DANZIG  SECTION  LOC  REFERS  TO  AM  A L GE 8R AI CA L L Y POSITIVF  WORD,  IT  IS  TAKEN  AS  A 
R0291  STORE  CODE  WITH  A CORRESPONDING  ERASA8LE  ADDRESS.  MOST  OF  THESE  CODES  ARE  TWO  ADDRESS,  SPECIFYING  THAT  THE  WORD 

R0293  FOLLOWING  THE  STORE  CODE  IS  TO  BE  USED  AS  AN  ADDRESS  FROM  WHICH  TO  RE-LOAD  MPAC.  FOUR  OPTIONS  ARE  AVAILABLE: 


R0295 

l . 

STORE 

STORE 

MPAC.  THE  E ADDRESS  MAY  BE  INDEXED. 

R0297 

2. 

STODL 

STORE 

MPAC  AND  RE-LOAD  IT  IN  OP  WITH  THE  NEXT 

ADDRESS  (THE  LOAD  MAY  BE  INDEXED). 

R 0299 

3. 

STOVL 

STORE 

MPAC  AND  RE-LOAD  A VECTOR  (AS  ABOVE). 

R0301 

A. 

STCALL 

STORE 

AND  DO  A CALL  (BOTH  ADDRESSES  MUST  8E  DIRECT  HERE). 

R0303 

STODL  AND  STOVL 

WILL  TAKE  FROM  THE  PUSH-DOWN  LIST  IF  NO  LOAD  ADDRESS 

IS  GIVEN. 

0305 

6375 

BLOCK 

3 

0306 

REF 

3 

LAST  1 

Oil  TO 

1012  : 

15  220* 

COUNT* 

$ $/ 1 NTER 

0307 

REF 

A 

LAST 

1001 

6375 

3 0165 

0 

STADR 

CA 

BANKSET 

THE  STADR  CODE  (PUSHUP  UP  ON  STORF 

0308 

REF 

16 

LAST 

1008 

6376 

5 A OOA 

1 

TS 

F BANK 

ADDRESS)  ENTERS  HERE. 

0309 

REF 

16 

LAST 

1007 

6377 

2A  16A 

1 

I NCR 

LOC 

0310 

REF 

17 

LAST 

1012 

6A00 

50  16A 

1 

ITR1 

INDEX 

LOC 

THE  STORECODE  WAS  STORED  COMPLEMENTED  Tn 

031  1 

6 AO  1 

A 0000 

0 

CS 

0 

MAKE  IT  LOOK  LIKE  AN  OPCODE  PAIR. 

0312 

REF 

7 

LAST 

992 

6 A02 

6 7770 

0 

AD 

NEGONE 

(YUL  CANT  REMOVE  l BECAUSE  OF  EARLY  CCS) 

031  3 

REF 

17 

LAST 

1006 

6A0  3 

5A  116 

0 

DOST  ORE 

TS 

ADDRWD 

031  A 

REF 

7 

LAST 

A 76 

6A0A 

7 A 3 A 7 

1 

MASK 

L0W1 1 

ENTRY  FROM  DISPATCHER.  SAVE  THE  ERASABLE 

0315 

REF 

18 

LAST 

1012 

6A05 

56  116 

1 

XCH 

ADDRWD 

ADDRESS  AND  JUMP  ON  THE  STORE  CODE  NO. 

0316 

REF 

l 

6 A06 

7 7 7 A3 

1 

MASK 

812T1A 

031  7 

6 AO  7 

0 0006 

1 

EXTEND 

0318 

REF 

38 

LAST 

823 

6 A 1 0 

7 A7A0 

1 

MP 

B IT5 

EACH  TRANSFER  VECTOR  ENTRY  IS  TWO  WORDS. 

0319 

REF 

3C  8 

LAST 

1008 

6 A 1 1 

50  000 

1 

I TRO 

INDEX 

A 

032  0 

REF 

1 

6A12 

1 6 A 1 3 

0 

TCF 

S TOR JUMP 
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P0321 

STORE 

CODE 

JUMP  TABLE 

CALLS  THE 

APPROPRIATE 

STORING  ROUTINE 

AND  EXITS  TO  DANZIG  OR  TO 

ADDRFSS  WITH 

R0323 

A SUPPLIED  OPERATION 

CODE  . 

R0323  1 

STORE 

STORE 

,1  AND  STORE 

,2  RETURN 

TO  DANZIG, 

THUS  RESETTING  THE  EBANK  TO  ITS  STATE  AT  INTPRET. 

032  4 

REF 

1 

6413 

0 

6443 

1 STORJUMP  TC 

STORE 

STORE . 

032  5 

REF 

3 

LAST 

945 

6414 

1 

6102 

0 

TC  F 

DANZIG 

PICK  UP  NEW  OP  CODE ( S I . 

0326 

REF 

1 

6415 

0 

6435 

0 

TC 

STORE ,1 

032  7 

REF 

4 

LAST 

1013 

6416 

l 

6102 

0 

TC  F 

DANZIG 

032  8 

REF 

1 

6417 

0 

6440 

1 

TC 

STORE  ,2 

0329 

REF 

5 

LAST 

1013 

6420 

1 

6102 

0 

TCF 

DANZIG 

0330 

REF 

2 

LAST 

1013 

6421 

0 

6443 

1 

TC 

STORE 

STODL . 

033  1 

REF 

1 

6422 

l 

650L 

l 

TCF 

DODLOAD 

0332 

REF 

3 

LAST 

1013 

642  3 

0 

6443 

l 

TC 

STORE 

STOOL  WITH  INDEXED  LOAD 

ADDRESS. 

0333 

REF 

1 

6424 

l 

6165 

1 

TCF 

DODLOAD* 

0334 

REF 

4 

LAST 

1013 

6425 

0 

6443 

1 

TC 

STORE 

STOVL . 

0335 

REF 

1 

6426 

1 

6 5 04 

1 

TCF 

DOVLOAD 

033  6 

REF 

5 

LAST 

1013 

6427 

0 

6443 

I 

TC 

STORE 

STOVL  WITH  INDEXED  LOAD 

ADDRESS . 

0337 

REF 

1 

6430 

1 

6507 

1 

TCF 

DOVLOAD* 

0338 

REF 

6 

LAST 

1013 

6431 

0 

6443 

1 

TC 

STORE 

STOTC . 

0339 

REF 

2 

LAST 

291 

6432 

3 

4757 

0 

CAF 

CALLCODE 

0340 

REF 

22 

LAST 

100  8 

6433 

54 

C 20 

1 

TS 

CYR 

034  l 

REF 

1 

6434 

l 

6273 

0 

TCF 

1 5BITADR 

GET  A 15  BIT  AODRESS. 
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0343 

REF 

46 

LAST 

1004 

6435 

50  120 

1 

STORE  , 1 

INDEX 

F IXLOC 

0344 

REF 

28 

LAST 

1004 

6436 

4 0046 

1 

CS 

XI 

0345 

REF 

1 

6437 

l 6442 

1 

TCE 

PRESTORE 

0346 

REF 

47 

LAST 

1014 

6440 

50  120 

1 

STORE,  2 

INDEX 

F IXLOC 

034  7 

REF 

18 

LAST 

984 

6441 

4 0C47 

0 

CS 

X 2 

0348 

REF 

19 

LAST 

1012 

6 442 

26  116 

0 

PRESTORE 

ADS 

AODRWD 

0349 

RFF 

20 

LAST 

1014 

6443 

4 C 1 1 6 

0 

STORE 

CS 

ADDRWD 

0350 

REF 

1 

6444 

6 4763 

1 

AD 

DEC45 

0351 

REF 

309 

LAST 

1012 

6445 

10  000 

0 

CCS 

A 

0352 

REF 

48 

LAST 

1014 

6446 

3 0120 

1 

CA 

F IXLOC 

0353 

REE 

l 

6447 

1 6454 

0 

TCF 

AHEAD5 

0354 

REF 

5 

LAST 

1004 

6450 

3 5000 

l 

CA 

0CT1400 

0355 

REF 

21 

LAST 

1014 

6451 

56  1 16 

1 

XCH 

ADDRWD 

0356 

REF 

67 

LAST 

1004 

6452 

54  003 

0 

TS 

EBANK 

0357 

REF 

12 

LAST 

1004 

6453 

7 4350 

1 

MASK 

L0W8 

0358 

REF 

22 

LAST 

1014 

6454 

26  116 

0 

AHEAD5 

ADS 

ADDRWD 

17: 11  MAR.  19,1971 
USER'S  PAGE 


SKIPPER 
NO.  15 


.131  PAGE  1014 
EO  S3 


RESULTANT  AODPESS  IS  IN  ERASABLE. 

DOES  THE  ADDRESS  POINT  TO  THE  WORK  AREA? 
YES. 

NO.  SET  E BANK  6 MAKE  UP  SUBADDRESS. 
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USER ' S PAGE  NO.  16 


P0359  STORING  ROUTINES.  STORE  DP,  TP,  OR  VECTOR  AS  INDICATED  BY  MODE. 


0360 

6455 

0 0006 

l 

STARTSTO 

EXTEND 

R0361 

ITRACE  (5) 

REFERS  TO 

"STARTSTO1 

1 . 

0362 

REF 

367 

LAST 

100  1 

6456 

3 0155 

0 

DCA 

M P AC 

0363 

REF 

23 

LAST 

1014 

6457 

50  116 

1 

INDEX 

ADDRWD 

0364 

6460 

52  001 

1 

DXCH 

0 

0365 

REF 

14 

LAST 

1008 

6461 

10  163 

l 

CCS 

MODE 

0366 

REF 

1 

6462 

1 6475 

0 

TCF 

T STORE 

0367 

REF 

244 

LAST 

999 

6463 

0 0002 

0 

TC 

0 

0368 

6464 

0 0006 

l 

VSTfJRE 

EXTEND 

0369 

REF 

368 

LAST 

1015 

6465 

3 0160 

0 

DCA 

MPAC  +3 

0370 

REF 

24 

LAST 

1015 

6466 

50  116 

l 

INDEX 

ADDRWD 

0371 

6467 

52  003 

0 

DXCH 

2 

0372 

6470 

0 0006 

1 

EXTEND 

0373 

REF 

369 

LAST 

1015 

6471 

3 0162 

1 

DCA 

MPAC  +5 

0374 

REF 

25 

LAST 

1015 

6472 

50  116 

1 

INDEX 

ADDRWD 

0375 

6473 

52  005 

0 

DXCH 

4 

0376 

REF 

245 

LAST 

1015 

64  / 4 

0 CC02 

0 

TC 

Q 

0377 

REF 

370 

LAST 

1015 

6475 

3 0156 

0 

T STORE 

CA 

MPAC  +2 

0370 

REF 

26 

LAST 

1015 

6476 

50  116 

1 

INDEX 

ADDRWD 

0379 

6477 

54  002 

1 

TS 

2 

0380 

REF 

246 

LAST 

1015 

6500 

0 0002 

0 

TC 

Q 

MUST  BE  STORFO  IN  ANY 


EO  S3 


EVENT . 
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P0381  ROUTINES  TO  BEGIN  PROCESSING  OF  THE  SECOND 

R0383  ITSELF. 


0384 

REF 

1 

6501 

3 

7753 

1 

DPDLOAD 

CAF 

0385 

REF 

23 

LAST 

1013 

6502 

54 

C20 

l 

TS 

0386 

REF 

1 

6503 

l 

6127 

1 

TCF 

0387 

REF 

1 

6 504 

3 

4726 

0 

DOVLOAD 

CAF 

0388 

REF 

24 

LAST 

1016 

6505 

54 

020 

1 

TS 

0389 

REF 

2 

L AST 

1016 

6506 

1 

6 127 

1 

TCF 

0390 

REF 

1 

6507 

3 

6130 

0 

DCVLOAD* 

CAF 

0391 

REF 

2 

LAST 

1013 

6510 

1 

6166 

1 

TCF 

2021112-161  17:11  MAR.  19,1971  SKIPPER  .131  PAGE  1016 
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ADDRESS  ASSOCIATED  WITH  ALL  STORE-TYPE  CODES  EXCEPT  STORE 


DLOADCOD 

CYR 

DIRADRES  GO  GET  A DIRECT  AODRESS. 

V LOADCOD 
CYR 

DIRADRES 

VLOAD* 

DODLOAD*  +1 


PROLOGUE  TO  INDEX  ROUTINE 
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P0392 

THE  F 

OLLOW I NG 

LOAD 

INSTRUCT  i 

IONS 

, ARE  PROVIDED  FOR  LOADING 

0394 

REF 

27 

LAST 

1015 

6511 

50  116 

1 

TLOAD 

INDEX 

ADDRWD 

0395 

6512 

3 0002 

0 

CA 

2 

0396 

REF 

37  1 

LAST 

1015 

6513 

54  156 

1 

TS 

MPAC  +2 

0397 

6514 

0 0006 

1 

EXTEND 

039  8 

REF 

28 

LAST 

1017 

6515 

5 0116 

1 

INDEX 

ADDRWD 

0399 

6516 

3 0001 

0 

DC  A 

0 

040  0 

REF 

372 

LAST 

1017 

6517 

52  155 

1 

DXCH 

MPAC 

0401 

REF 

92 

LAST 

921 

6520 

3 4744 

1 

T MODE 

CAF 

ONE 

040  2 

REF 

1 

6521 

1 6101 

0 

TCF 

NEWMODE 

040  3 

6522 

22  007 

0 

SLOAD 

ZL 

0404 

REF 

29 

LAST 

1017 

6523 

50  116 

1 

INDEX 

ADDRWD 

0405 

6524 

3 0000 

1 

CA 

0 

0406 

REF 

1 

6525 

1 6C76 

1 

TCF 

SL0AD2 

0407 

6526 

0 0006 

1 

VLOAD 

EXTEND 

0408 

REF 

30 

LAST 

1017 

6527 

5 0116 

1 

INDEX 

ADDRWD 

040  9 

6530 

3 0001 

0 

DC  A 

0 

04 1 C 

REF 

373 

LAST 

1017 

6531 

52  155 

1 

DXCH 

MPAC 

041  1 

6532 

0 0006 

1 

ENDVLOAD 

EXTEND 

0412 

REF 

31 

LAST 

1017 

6533 

5 0116 

1 

INDEX 

ADDRWD 

0413 

6534 

3 0003 

1 

DC  A 

2 

0414 

REF 

374 

LAST 

1017 

6535 

52  160 

1 

DXCH 

MPAC  +3 

0415 

6536 

0 0006 

1 

+4 

EXTEND 

0416 

REF 

32 

LAST 

1017 

6537 

5 C 1 16 

1 

INDEX 

ADDRWD 

041  7 

6540 

3 0005 

1 

DC  A 

4 

0418 

REF 

375 

LAST 

1017 

6541 

52  162 

0 

DXCH 

MPAC  +5 

0419 

REF 

93 

LAST 

1017 

6542 

4 4744 

0 

V MOD  E 

cs 

ONE 

042  0 

REF 

2 

LAST 

1017 

6543 

1 6101 

0 

TCF 

NEWMODE 
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MULTI-PURPOSE  ACCUMULATOR  MPAC. 


LOAD  A TRIPLE  PRECISION  ARGUMENT  INTO 
THE  FIRST  THREE  MPAC  REGISTERS,  WITH  THE 
CONTENTS  OF  THE  OTHfcP  FOUR  IRRELEVANT. 


DECLARE  TRIPLE  PRECISION  MODE. 

LO  AO  A STNGLF  PRECISION  NUMBER  INTO 
MPAC,  SETTING  MPAC+1,2  TO  ZERO.  THE 
CONTENTS  OF  THE  REMAINING  MPAC  REGISTERS 
ARE  IRRELEVANT. 

LOAD  A DOUBLE  PRECISION  VECTOR  INTO 
MPAC.+l,  MPAC+3,4,  AND  MPAC+5,6.  THE 
CONTENTS  OF  MPAC  +2  ARE  IRRELEVANT. 


PD VL  COMES  HERE  TO  FINISH  UP  FOR  OP,  TP. 


TPDVL  FINISHES  HERE. 


OECLARE  VECTOR  MODE 


GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161  l 

L INTERPRETER 

P0421  THE  FOLLOWING  INSTRUCTIONS  ARE  PROVIDED  FOR  STORING  OPERANDS 


R042  3 

1 . 1 

>USH 

PUSHDOWN 

AND  NO  LOAD. 

R0424 

2.  I 

3DPL 

PUSHDOWN 

AND  DOUBLE  PRECISION  LOAD 

R042  5 

3.  1 

PDVL 

PUSHDOWN 

AND  VECTOR  LOAD. 

042  6 

6544 

0 0006 

1 

P DDL  EXTEND 

042  7 

REF  33 

LAST 

1017 

6545 

5 0116 

1 

INDEX 

ADDRWD 

042  8 

6546 

3 0001 

0 

DC  A 

0 

0429 

REF  376 

LAST 

101  7 

6547 

52  155 

1 

DXCH 

MPAC 

043  0 

REF  9 

LAST 

1006 

6550 

50  166 

0 

INDEX 

PUSHLOC 

0431 

6551 

52  001 

1 

DXCH 

0 

043  2 

REF  15 

LAST 

1015 

6552 

50  163 

0 

INDEX 

MODE 

043  3 

REF  3 

LAST 

1006 

6553 

3 6265 

0 

CAF 

NO.WDS 

0434 

REF  10 

LAST 

1018 

6554 

26  166 

1 

ADS 

PUSHLOC 

0435 

REF  16 

LAST 

1018 

6555 

10  163 

1 

CCS 

MODE 

0436 

REF  l 

6556 

1 6573 

1 

TCE 

ENDTPUSH 

0437 

REE  1 

6557 

l 6571 

0 

TCF 

ENDDPUSH 

043  8 

REF  17 

LAST 

1018 

6560 

54  163 

l 

TS 

MODE 

043  9 

REF  377 

LAST 

1018 

6561 

54  156 

L 

ENDVPUSH  TS 

MPAC  +2 

044  0 

REF  370 

LAST 

1018 

6562 

52  160 

1 

DXCH 

MPAC  +3 

0441 

REF  11 

LAST 

1018 

6563 

50  166 

0 

INDEX 

PUSHLOC 

0442 

6564 

51' 775 

0 

DXCH 

0 -4 

044  3 

REF  379 

LAST 

1018 

6565 

52  162 

0 

DXCH 

MPAC  +5 

0444 

REF  12 

LAST 

1018 

6566 

50  166 

0 

INDEX 

PUSHLOC 

0445 

6567 

51 ' 777 

1 

DXCH 

0 -2 

044  6 

REF  6 

LAST 

1013 

6570 

1 6102 

0 

TCF 

DANZIG 

0447 

REF  380 

LAST 

1018 

6571 

54  156 

l 

ENDDPUSH  TS 

MPAC  +2 

044  8 

REF  7 

LAST 

1018 

6572 

1 6102 

0 

TCF 

DANZIG 

0449 

REF  18 

LAST 

1018 

6573 

54  163 

1 

ENDTPUSH  TS 

MODE 

0450 

REF  381 

LAST 

1018 

6574 

56  156 

0 

XCH 

MPAC  +2 

045  L 

REF  13 

LAST 

1018 

6575 

50  166 

0 

+2  INDEX 

PUSHLOC 

0452 

6576 

53' 777 

0 

TS 

0 -1 

045  3 

REF  8 

LAST 

1018 

6577 

1 6102 

0 

TCF 

DANZIG 
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N THE  PUSHDOWN  LIST: 


LOAD  MPAC.+l,  PUSHING  THE  FORMER 
CONTENTS  DOWN. 


ADVANCE  THE  PUSHDOWN  POINTER  APPPO- 
PR  I AT  ELY . 


NOW  DP. 

PUSH  DOWN  THE  REST  OF  THE  VECTOR  HERF. 


SET  M P AC  +2  TO  ZERO  AND  EXIT  ON  DP. 


ON  TRIPLE,  SET  MPAC  +2  TO  ZERO,  PUSHING 
DOWN  THE  OLD  CONTENTS 
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L INTERPRETER 


P0454 

PDVL 

- PUSHDOWN  AND 

VECTOR 

LOAD. 

0455 

6600 

0 0006 

1 

PDVL 

EXTEND 

0456 

REF 

34 

LAST 

10  L 8 

6601 

5 01  16 

1 

INDEX 

ADDRWD 

045  7 

6602 

3 OCOl 

0 

DCA 

0 

0453 

REF 

382 

LAST 

1018 

6603 

52  155 

1 

DXCH 

MPAC 

0459 

REF 

14 

LAST 

1018 

6604 

50  166 

0 

INDEX 

PUSHLOC 

046  0 

6605 

52  001 

l 

DXCH 

0 

046  1 

REF 

19 

LAST 

1018 

6606 

50  163 

0 

INDEX 

MODE 

0462 

REF 

4 

LAST 

1018 

6607 

3 6265 

0 

CAF 

NO.WDS 

0463 

REF 

15 

LAST 

1019 

6610 

26  166 

1 

ADS 

PUSHLOC 

0464 

REF 

20 

LAST 

1019 

6611 

10  163 

1 

CCS 

MODE 

046  5 

REF 

1 

66  12 

1 6631 

1 

TCF 

TPOVL 

0466 

REF 

1 

6613 

1 6532 

1 

TCE 

ENDVLOAD 

0467 

6614 

0 0006 

l 

VPDVL 

EXTEND 

046  B 

RFF 

35 

LAST 

1019 

6615 

5 0116 

1 

INDEX 

ADDRWD 

046  9 

6616 

3 0003 

1 

DCA 

2 

047  0 

REF 

363 

LAST 

1019 

6617 

52  160 

1 

DXCH 

MPAC  +3 

0471 

REF 

16 

LAST 

1019 

6620 

50  166 

0 

INDEX 

PUSHLOC 

0472 

6621 

51 • 775 

0 

DXCH 

0 -4 

0473 

6622 

C CC06 

1 

EXTEND 

0474 

REF 

36 

LAST 

1019 

6623 

5 0116 

1 

INDEX 

ADDRWD 

0475 

6624 

3 0005 

1 

DCA 

4 

0476 

REF 

364 

LAST 

1019 

6625 

52  162 

0 

DXCH 

MPAC  +5 

0477 

REF 

17 

LAST 

1019 

6626 

50  166 

0 

INDEX 

PUSHLOC 

0478 

6627 

51 ' 777 

1 

DXCH 

0 -2 

0479 

REF 

9 

LAST 

1018 

6630 

1 6102 

0 

TCF 

DANZIG 

0480 

6631 

0 0006 

1 

TPDVL 

EXTEND 

0481 

REF 

37 

LAST 

1019 

6632 

5 0 116 

1 

INDEX 

ADDRWD 

0482 

6633 

3 0003 

1 

DCA 

2 

0483 

REF 

365 

LAST 

1019 

6634 

52  160 

1 

DXCH 

MPAC  +3 

0484 

REF 

386 

LAST 

1019 

6635 

3 0156 

0 

CA 

MPAC  +2 

0485 

REF 

18 

LAST 

1019 

6636 

50  166 

0 

INDEX 

PUSHLOC 

0486 

663  7 

53 ' 777 

0 

TS 

0 -1 

0487 

REF 

2 

LAST 

1019 

6640 

1 6536 

0 

TCF 

ENDVLOAD 

R0488 

SSP  1 

: STORE 

SINGLE  PRECISION 

1 IS 

EXECUTED 

i HERE. 

0489 

REF 

18 

LAST 

1012 

664  1 

24  164 

1 

SSP 

I NCR 

LOC 

0490 

REF 

19 

LAST 

1019 

6642 

50  164 

l 

INDEX 

LOC 

0491 

6643 

3 0000 

1 

CA 

0 

0492 

REF 

38 

LAST 

1019 

6644 

50  116 

1 

STURE1 

INDEX 

ADDRWD 

0493 

6645 

54  COO 

0 

TS 

0 
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RELOAD  M p AC  AND  PUSH  DOWN  ITS  CONTENTS. 


ADVANCE  THE  PUSHDOWN  POINTER. 

TEST  PAST  MODE. 

JUST  LOAD  LAST  FOUR  REGISTERS  ON  DP. 
PUSHDOWN  AND  RE-LOAD  LAST  TWO  COMPONENTS 


ON  TP,  WE  MUST  LOAD 
BEFORE  STORING  MPAC 
PUSHUP. 


THE  Y COMPONENT 
+2  INCASE  THIS  IS  A 


IN  DP. 


+4 


PICK  UP  THE  WORD  FOLLOWING  THE  GIVEN 
ADDRESS  AND  STORE  IT  AT  X. 

SOME  INDEX  AND  MISCELLANEOUS  OPS  END 
HERE. 


GAP: 

ASSEMBLE  REVISION  210 

CF  AGC  PROGRAM  LUMINARY 

BY  NASA  20211 12-161 

17:  11  MAR.  19,1971 

SKIPPER  .131 

PAGE  1020 

L 

INTERPRETER 

USER'S  PAGE 

NO.  21 

FO  S3 

0494 

REE  10  LAST  1019 

6646  1 6102  0 

TCP  DANZIG 
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L INTERPRETER 

P049  5 SEQUENCE  CHANGING  AND  SUBROUTINE  CALLING  CPTICNS. 

R0496  THE  FOLLOWING  OPERATIONS  ARE  AVAILABLE  FOR  SEQUENCING  CHANGING 


R049  8 

1 . 

GOTO 

GO  TO. 

R 0499 

2. 

CALL 

CALL 

SUBROUTINE 

SETTING 

QPRET. 

R0500 

3. 

CGUTO 

COMPUTED  GO  TO. 

R050  1 

4. 

CCALL 

COMPUTED  CALL. 

R0502 

7. 

B PL 

BRANCH 

IF  MP AC 

POSITIVE 

OR  ZERO. 

R0503 

8. 

BZF 

BRANCH 

IF  MP AC 

ZERO. 

R0504 

9. 

BMN 

8 RANCH 

IF  MP  A C 

NEGATIVE 

NON-ZERO. 

0505 

REF 

20 

LAST 

1019 

6647 

24  164 

1 

CCAL  L 

INCR 

LOC 

0506 

REF 

21 

LAST 

102  1 

6650 

50  164 

1 

INDEX 

LOC 

050  7 

6651 

3 0000 

1 

CAF 

0 

0508 

REF 

39 

LAST 

1019 

6652 

50  116 

1 

INDEX 

ADDRWD 

0509 

6653 

6 COOO 

1 

AD 

0 

0510 

REF 

1 7 

LAST 

1012 

6654 

54  004 

1 

TS 

r BANK 

051  1 

REF 

17 

LAST 

1004 

6655 

7 5003 

0 

MASK 

L0W10 

0512 

REF 

3 10 

LAST 

1014 

6656 

50  000 

1 

INDEX 

A 

0513 

6657 

3 2000 

0 

CAF 

10000 

0514 

REF 

7 

LAST 

1007 

6660 

54  117 

1 

TS 

POLISH 

0515 

REF 

5 

LAST 

1012 

6661 

3 0165 

0 

CALL 

CA 

BANKSET 

0516 

REF 

2 

LAST 

1008 

6662 

7 4341 

1 

MASK 

B ANKMASK 

0517 

REF 

3 

LAST 

102  1 

6663 

6 4341 

0 

AD 

BANKMASK 

0518 

REF 

22 

LAST 

1021 

6664 

6 0164 

1 

AD 

LOC 

0519 

REF 

49 

LAST 

1014 

6665 

50  120 

1 

INDEX 

F I XLOC 

0520 

REF 

6 

LAST 

936 

6666 

54  052 

1 

TS 

QPRET 

0521 

REF 

8 

LAST 

1021 

6667 

3 0117 

0 

GOTO 

CA 

POLISH 

0522 

REF 

3 

LAST 

1004 

6670 

7 7763 

0 

+ 1 

MASK 

H I GH4 

0523 

6671 

0 0006 

1 

EXTEND 

0524 

REF 

1 

6672 

1 6703 

I 

BZF 

GOTOFRS 

0525 

REF 

6 

LAST 

1021 

6673 

3 0165 

0 

+4 

CA 

BANKSET 

0526 

REF 

28 

LAST 

1001 

6674 

54  006 

0 

TS 

BBANK 

052  7 

REF 

9 

LAST 

1021 

6675 

3 0117 

0 

CA 

POLISH 

0528 

REF 

18 

LAST 

102  1 

6676 

54  C04 

1 

TS 

F6ANK 

0529 

REF 

18 

LAST 

102  1 

6677 

7 5003 

0 

MASK 

LOW  10 

0530 

REF 

2 

LAST 

1004 

6700 

6 4 732 

0 

AD 

2K 

053  1 

REF 

23 

LAST 

1021 

6701 

54  164 

0 

TS 

LOC 

0532 

REF 

2 17 

LAST 

1000 

6702 

1 6063 

0 

TCF 

INTPRET  + 

0533 

E 3 , 1400 

EBANK= 

1400 

0534 

REF 

10 

LAST 

1021 

6 703 

3 0117 

0 

GOTOERS 

CA 

POLISH 

0535 

REF 

2 

LAST 

1003 

6 704 

6 6272 

0 

AD 

-ENDVAC 

0536 

REF 

311 

LAST 

102  1 

6705 

10  000 

0 

CCS 

A 

0537 

REF 

1 1 

LAST 

1021 

6706 

3 0117 

0 

CA 

POLISH 

053  8 

REF 

1 

6707 

1 6716 

0 

TCF 

GOTOGE 

USER'S  PAGE  NO.  22  FO  S3 


BRANCHING,  AND  CALLING  SUBROUTINES: 


MAINTAIN  LOC  FOR  QPRET  COMPUTATION. 

GET  BASE  ADDRESS  OF  CADR  LIST. 

ADD  INCREMENT. 

SELECT  DESIRED  CADR. 


FOR  ANY  OF  THE  CALL  OPTIONS,  MAKE  UP  THE 
ADDRESS  OF  THE  NEXT  OP-CODE  PAIR/STORE 
CODE  AND  LEAVE  IT  IN  QPRFT.  NOTE  THAT 
BANKM ASK  = -(2000  - l ) . 


BASIC  BRANCHING  SEQUENCE. 


SEE  IF  ADDRESS  POINTS  TO  FIXED  OR  ERAS. 
SET  EBANK  PART  OF  RBANK.  NEXT,  SET  UP 
FRANK.  THE  COMBINATION  IS  PICKED  UP  S 
PUT  INTO  BANKSET  AT  INTPRET  +2. 


SO  YUL  DOESN'T  CUSS  THE  "CA  1400"  BELOW. 

THE  GIVEN  ADDRESS  IS  IN  ERASABLE  - SEE 
IF  RELATIVE  TO  THE  WORK  AREA. 

GENERAL  ERASABLE. 


GAP: 


ASSEMBLE  RFVISION  210  CF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L INTERPRETER 


0539 

REF 

50 

LAST 

1021 

6710 

3 0120 

1 

CA 

F IXLQC 

0 540 

REF 

12 

LAST 

1021 

6711 

6 C 1 17 

0 

AD 

POLISH 

0541 

REF 

312 

LAST 

1021 

6712 

50  000 

1 

INDEX 

A 

0542 

6713 

3 0000 

1 

CA 

0 

0543 

REF 

13 

LAST 

1022 

6714 

54  117 

1 

TS 

POLISH 

0544 

REF 

l 

67  15 

1 6670 

l 

TCF 

GOTO  +1 

0545 

REF 

68 

LAST 

1014 

6716 

54  003 

0 

GOTOGE 

TS 

EBANK 

0546 

REF 

13 

LAST 

1014 

6717 

7 4350 

1 

MASK 

L0W8 

054  7 

REF 

3 13 

LAST 

1022 

6720 

50  000 

1 

INDEX 

A 

0548 

6721 

3 1400 

l 

CA 

1400 

0549 

REF 

14 

LAST 

1022 

6722 

54  117 

1 

TS 

POLISH 

0550 

REF 

2 

LAST 

102  2 

o723 

1 6670 

1 

TCF 

GOTO  +1 

0551 

REF 

24 

LAST 

102  1 

6724 

50  164 

1 

CGQTO 

INDEX 

LOC 

0552 

6725 

3 0001 

0 

CA 

1 

0553 

REF 

40 

LAST 

102  1 

6726 

50  116 

1 

INDEX 

ADDRWD 

0554 

6 72  7 

6 COOO 

l 

AD 

0 

0555 

REE 

19 

LAST 

102  1 

6730 

54  004 

1 

TS 

F BANK 

0556 

REF 

19 

LAST 

1021 

6731 

7 5003 

0 

MASK 

L0W10 

0557 

REE 

314 

LAST 

1022 

6732 

50  000 

1 

INOEX 

A 

0558 

6733 

3 2000 

0 

CA 

10000 

0559 

REF 

15 

LAST 

1022 

6734 

54  117 

1 

TS 

POLISH 

0560 

REF 

3 

LAST 

1022 

6735 

l 6670 

1 

TCF 

GOTO  +1 

0561 

REF 

7 

LAST 

1021 

6736 

3 0165 

0 

S W BRANCH 

CA 

BANKSET 

0562 

REF 

20 

LAST 

1022 

6737 

54  004 

1 

TS 

F8ANK 

0563 

REF 

25 

LAST 

1022 

6740 

50  164 

1 

INDEX 

LOC 

0564 

6741 

3 0001 

0 

CA 

1 

0565 

REF 

16 

LAST 

1022 

6742 

54  117 

1 

TS 

POL  I SH 

0566 

REF 

4 

LAST 

1022 

6743 

1 6670 

l 

TCF 

GOTO  +1 
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WORK  AREA. 

USE  THE  GIVEN  ADDRESS  AS  THE  ADDRESS  OF 
THE  BRANCH  ADDRESS. 

ALLOWS  ARBITRARY  INDIRECTNESS  LEVELS. 

USE  THE  GIVEN  ADDRESS  AS  THE  ADDRESS  OF 
THE  BRANCH  ADDRESS. 


COMPUTED  GO  TO.  PICK  UP  ADDRESS  OF  CADR 
LIST. 

ADD  MODIFIER. 

SELECT  GOTO  ADDRESS. 


WITH  ADDRESS  IN  A. 

SWITCH  INSTRUCTIONS  WHICH  ELECT  TO 
BRANCH  COME  HERE  TO  DO  SO. 


GAP: 


ASSEMBLE  REVISION  210  GE  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L INTERPRETER 


P0567 

TRI PLE 

PRECISION 

BRANCHING  ROUTINE.  IF  CALLING  TC  IS 

R0569 

L + l 

IE 

MPAC 

IS 

GREATER  THAN  ZERO. 

R0570 

L + 2 

IF 

MPAC 

IS 

EQUAL  TO  +0  OR  -0. 

R0571 

L + 3 

IF 

MPAC 

IS 

LESS  THAN  ZERO. 

0572 

REF 

387 

LAST 

1019 

6744 

10  154 

0 

BRANCH 

CCS 

MPAC 

0573 

REF 

247 

LAST 

1015 

6745 

0 0002 

0 

TC 

Q 

0574 

6 746 

1 6750 

1 

TCF 

+ 2 

0575 

REF 

L 

6 74  7 

1 6762 

0 

TCF 

NEG 

0576 

REF 

388 

LAST 

1023 

6750 

10  155 

1 

CCS 

MPAC 

+ 1 

0577 

REF 

248 

LAST 

1023 

6 751 

0 0002 

0 

TC 

Q 

0578 

6752 

1 6754 

0 

TCF 

+ 2 

0579 

REF 

2 

LAST 

1023 

6753 

1 6762 

0 

TCF 

NEG 

0500 

REF 

389 

LAST 

1023 

6754 

10  156 

1 

CCS 

MPAC 

+2 

0581 

REF 

249 

LAST 

1023 

6755 

0 0002 

0 

TC 

Q 

0582 

6756 

1 6760 

1 

TCF 

+ 2 

0583 

REF 

3 

l AST 

1023 

6757 

1 6762 

0 

TCF 

NEG 

0584 

REF 

250 

LAST 

1023 

6760 

50  002 

0 

Q + l 

INDEX 

Q 

0585 

6761 

0 0001 

0 

TC 

1 

0586 

REF 

251 

LAST 

1023 

6762 

50  0C2 

0 

NEG 

INDEX 

Q 

0587 

6 76  3 

0 0002 

0 

TC 

2 

0588 

REF 

4 

LAST 

1023 

6762 

Q+2 

= 

NEG 

R058S 

ITRACE  (3) 

REFERS  TO 

"EXIT''. 

0590 

REF 

8 

LAST 

1022 

6 7 64 

3 

0165 

0 

EXIT 

CA 

BANKSET 

0591 

REF 

29 

LAST 

1021 

6765 

54 

006 

0 

TS 

0 BANK 

0592 

REF 

26 

LAST 

1022 

6766 

50 

164 

1 

INDEX 

LOC 

0593 

6767 

0 

C001 

0 

TC 

1 
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RETURN  IS  AS  FOLLOWS: 


ON  ZERO. 


IF  FIRST  NON-ZERO  REGISTER  WAS  NFGATIVE. 


RESTORE  USER'S  BANK  SETTING,  AND  LEAVE 
INTERPRETIVE  MODE. 
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L 

INTERPRETER 

USER'S  PAGE  NO.  25 

P0594 

SECTION 

3 - 

ADD/SUBTRACT 

PACKAGE . 

R0595 

THE 

FOLLOWING  OPERATIONS  ARE 

PROVIDED  FOR  ADDING 

TO  AND  SUBTRACTING  FROM  THE  MULTI-PUPPO 

R0597 

M P AC  : 

R0598 

1 . 

0 AD 

D0U8LE 

PRECISION 

ADD. 

R0599 

2. 

OSU 

DOUBLE 

PRECISION 

SUBTRACT . 

R0600 

3. 

RDSU 

CCUBLE 

PRECISION 

SUBTRACT 

FROM. 

R060  1 

4. 

TAD 

TRIPLE 

PRECISION 

ADD. 

R0602 

5. 

VAD 

VECTOR 

AUD. 

R0603 

6. 

VSU 

VECTOR 

SUBTRACT. 

R0604 

7. 

BVSU 

VECTOR 

SUBTRACT  FROM. 

R0605 

THE  INTEPPRETIVE  OVERFLOW 

INDICATOR  OV FIND  IS  SET 

NON-ZERO 

IF  OVERFLOW  OCCURS  IN  ANY  OF  THF  ABOVF 

0607 

REE 

38 

LAST 

LOOO 

6770 

3 4726 

0 

VSU 

CAF 

BIT15 

CHANGES 

0 TO 

DCS. 

060  8 

6771 

l 6773 

0 

TCF 

+ 2 

0609 

REF 

9 

LAST 

833 

6772 

3 4346 

1 

VAD 

CAE 

P R 1030 

CHANGES 

0 TO 

DCA . 

0610 

REF 

41 

LAST 

1022 

6773 

26  116 

0 

ADS 

ADDRWD 

061  1 

6 7 74 

0 0006 

1 

EXTEND 

0612 

REF 

42 

LAST 

1024 

6775 

5 0116 

1 

INDEX 

ADDRWD 

0613 

REF 

2 

LAST 

393 

6776 

00  003 

1 

READ 

H [SCALAR 

DC  A 2 

OR 

DCS  2 

0614 

REF 

390 

LAST 

1023 

6777 

20  160 

1 

DAS 

MPAC  +3 

0615 

7000 

0 0006 

L 

EXTFNO 

CHECK  OVERFLOW. 

061  6 

7001 

1 7003 

1 

BZF 

+ 2 

061  7 

REF 

1 

7002 

0 7035 

0 

TC 

OVERFLWY 

061  8 

7003 

0 0006 

1 

EXTEND 

0619 

REF 

43 

LAST 

1024 

7004 

5 0116 

1 

INDEX 

ADDRWD 

0620 

REF 

2 

LAST 

223 

7005 

00  005 

1 

READ 

CHAN5 

DC  A 4 

OR 

DCS  4 

062  1 

REF 

391 

LAST 

1024 

7006 

20  162 

0 

DAS 

MPAC  +5 

0622 

7007 

0 0006 

1 

EXTENO 

062  3 

7010 

1 7012 

1 

BZF 

+ 2 

0624 

REF 

l 

7011 

0 7032 

1 

TC 

OVERFLWZ 

0625 

7012 

0 C006 

1 

EXTEND 

0626 

REF 

44 

LAST 

1024 

7013 

5 0116 

1 

INDEX 

ADDRWD 

062  7 

REF 

12 

LAST 

738 

7014 

00  001 

0 

READ 

LCHAN 

OCA  0 

OR 

DCS  0 

062  8 

REF 

1 

7U 1 5 

1 7021 

1 

TCF 

ENDVXV 

0629 

7016 

0 C006 

1 

DAD 

EXTEND 

0630 

REF 

45 

LAST 

1024 

7017 

5 0116 

1 

INDEX 

ADDRWD 

063  l 

7020 

3 0001 

0 

DC  A 

0 

0632 

RFF 

392 

LAST 

1024 

7021 

20  155 

1 

ENDVXV 

DAS 

MPAC 

VXV  F INISHES 

HERE  . 

0633 

7022 

C 0006 

1 

EXTEND 

0634 

REF 

1 1 

LAST 

1020 

7023 

l 6102 

0 

BZF 

DANZ IG 

GAP:  ASSEMBLE  REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-L6L 

L INTERPRETER 


0635 

REF  1 

7026 

0 7060  1 SETOVF 

TC 

OVERFLOW 

0636 

REF  12  LAST  1026 

7025 

1 6102  0 

TCF 

DANZIG 

17: U MAR.  19,1971  SKIPPFR  .131  PAGE 
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L INTERPRETER 


0637 

7026 

0 0006 

1 

DSU 

EXTEND 

0630 

REF 

46 

LAST 

1024 

7027 

5 0116 

1 

INDEX 

ADDRWD 

063  9 

7030 

4 0001 

1 

DCS 

0 

0640 

REF 

2 

LAST 

1024 

7031 

1 7021 

1 

TCF 

ENDVXV 

0641 

REF 

196 

LAST 

998 

7032 

54  001 

1 

OVER  FLWZ 

TS 

L 

064  2 

REF 

16 

L AST 

062 

7033 

3 4747 

l 

CAE 

FIVE 

0643 

7034 

1 7037 

0 

TCF 

+ 3 

0644 

REF 

197 

LAST 

1026 

7035 

54  001 

1 

OVERFLWY 

TS 

L 

064  6 

REF 

30 

LAST 

978 

7036 

3 6266 

0 

CAF 

THREE 

0646 

REF 

198 

LAST 

1026 

7037 

56  001 

0 

XCH 

L 

064  7 

REF 

315 

LAST 

1022 

7040 

5C  000 

1 

OVERFLOW 

INDEX 

A 

064  8 

REF 

2 

LAST 

920 

7041 

4 4725 

1 

CS 

LIMITS 

0649 

REF 

82 

LAST 

89  2 

7042 

54  130 

1 

TS 

BUF 

0650 

704  3 

0 C006 

1 

EXTEND 

0651 

REF 

316 

LAST 

1026 

7044 

24  000 

1 

AUG 

A 

0652 

REF 

199 

LAST 

1026 

7045 

50  001 

0 

INDEX 

L 

0653 

REF 

393 

LAST 

1024 

7046 

26  155 

1 

ADS 

M P AC  +1 

0654 

7047 

54  007 

1 

TS 

7 

065  5 

REF 

193 

LAST 

1000 

7050 

3 4746 

0 

CAF 

ZERO 

0656 

REF 

83 

LAST 

1026 

7051 

6 0130 

0 

AD 

BUF 

0657 

REF 

200 

LAST 

1026 

7052 

50  001 

0 

INDEX 

L 

0658 

REF 

394 

LAST 

1026 

7053 

26  154 

0 

ADS 

M P AC 

0659 

7054 

54  007 

1 

TS 

7 

066  0 

REF 

252 

LAST 

1023 

7055 

0 OC02 

0 

TC 

0 

066  1 

REF 

1 

7056 

l 7173 

l 

TCF 

SET0VF2 

0662 

7057 

0 0006 

1 

BVSU 

EXTEND 

0663 

REF 

47 

LAST 

1026 

7060 

5 0116 

1 

INDEX 

ADDRWD 

0664 

7061 

3 0003 

1 

DC  A 

2 

0665 

REF 

355 

LAST 

1026 

7062 

52  160 

1 

DXCH 

M P AC  +3 

0666 

7063 

0 0006 

1 

EXTEND 

0667 

7064 

4 0001 

1 

DCOM 

0668 

REF 

396 

LAST 

1026 

7065 

20  160 

1 

DAS 

MPAC  +3 

0669 

7066 

0 0006 

l 

EXTEND 

0670 

7067 

l 7071 

1 

6ZF 

+ 2 

0671 

KEF 

2 

LAST 

1024 

7070 

0 7035 

0 

TC 

OVERFLWY 

0672 

7071 

0 0006 

1 

EXTEND 

0673 

REF 

48 

LAST 

1026 

7072 

5 0116 

1 

INDEX 

ADDRWD 

0674 

7073 

3 0005 

1 

DC  A 

4 

0675 

REF 

35  7 

LAST 

1026 

7074 

52  162 

0 

DXCH 

MPAC  +5 

0676 

7075 

0 0006 

1 

EXTEND 

0677 

7076 

4 0001 

1 

DCOM 

067  8 

REF 

398 

LAST 

1026 

7077 

20  162 

0 

DAS 

MPAC  +5 

0679 

7100 

0 0006 

l 

EXTEND 

0680 

7101 

1 7103 

0 

8ZF 

*2 

0681 

REF 

2 

LAST 

1024 

7 102 

0 7032 

1 

TC 

OVERFLWZ 

i 
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ENTRY  FOR  THFRD  COMPONENT. 

ENTRY  FOR  SECONO  COMPONENT. 

ENTRY  FOR  1ST  COMP  OR  DP  t L = 0 ) . 
PICK  UP  POSMAX  OR  NEGMAX. 

FORCF  OVERFLOW. 


NO  OVERFLOW  EXIT. 
SET  OVFIND  AND  EXIT 


GAP: 


ASSEMBL  E REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 


t,  INTERPRETER 


0682 

7103 

0 

C 006 

1 8 CSU 

EXTEND 

0683 

REF 

49 

LAST 

1026 

1104 

5 

0116 

1 

INDEX 

ADDRWD 

0684 

7105 

3 

0001 

0 

DC  A 

0 

0685 

REF 

399 

LAST 

1026 

7106 

52 

! 155 

1 

DXCH 

M P AC 

0686 

7107 

0 

0006 

l 

EXTEND 

0687 

7110 

4 

0001 

1 

DCOM 

0688 

REF 

3 

LAST 

1026 

7111 

1 

7021 

1 

TCF 

ENDVXV 
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GAP:  ASSEMBLE  REVISION  210  GF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L INTERPRETER 

P0689  TRIPLE  PRECISION 

0690  7 


069  1 

REF 

50 

LAST 

1027 

7 

C692 

7 

0693 

REF 

400 

LAST 

1027 

7 

0694 

REF 

51 

LAST 

1028 

7 

069  6 

7 

0696 

REF 

401 

LAST 

1028 

7 

069  7 

REF 

4 C 2 

LAST 

1028 

7 

069  8 

REF 

13 

LAST 

1025 

1 

REF  1 7 


ROUTINE. 


0 

0006 

1 TAD 

EXTEND 

5 

C 1 16 

1 

INDEX 

ADDRWD 

3 

0002 

0 

OCA 

1 

20 

156 

1 

DAS 

MPAC  +1 

50 

116 

L 

INDEX 

ADDRWD 

6 

0000 

l 

AD 

0 

6 

0154 

1 

AD 

MPAC 

54 

154 

0 

TS 

MPAC 

1 

6102 

0 

TCF 

DANZIG 

1 

7024 

l 

TCF 

SETOVF 

ADO 

112 

113 

114 

115 

116 

117 

120 

121 

122 

123 


0699 
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ADD  MINOR  PARTS  FIRST. 


SET  OVFIND  IF  SUCH  OCCURS. 


GAP: 

L 

P0700 

R0701 

R0703 

R0705 

R070  7 

R0709 

R0710 

R07L  2 

071 A 

0715 

0716 

071  7 

0718 

0719 

0720 

072  1 

0722 

0723 

072  A 

0725 

0726 

072  7 

0 72  8 

0729 

0730 

073  1 

0 73  2 

0733 

073  A 

0735 

0736 

0737 

0738 

0739 

07A0 
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INTERPRETER  USER'S  PAGE  NO.  30  F3  S3 

ARITHMETIC  SUBROUTINES  RFQUIREO  IN  FIXED-FIXED. 


1. 

DMPSUB 

DOUBLE  PRECISION 

MULTIPLY.  MULTIPLY  THE  CONTENTS  OF  MPAC.+l  BY  THE  DP  WORD  WHOSE  ADDRESS 

IS  IN 

ADDRWD 

AND 

LEAVE  A 

TR I PLE 

PRECISION  RFSULT  IN  MPAC. 

2. 

POUNDSUB 

ROUND 

THE  TRIPLE 

PRECISCN  CONTENTS  OF  MPAC 

TO  DOUBLE  PRECISION. 

3. 

DOTSUB 

TAKE 

THE  DOT 

PRODUCT  OF 

THE  VECTOR  IN  MPAC 

AND  THE  VECTOR  WHOSE  ADDRESS  IS  IN  ADDRWD 

AND  LEAVE  THE 

: TRIPLE  PRECISION 

RESULT  IN  MPAC. 

A . 

POLY 

USING 

THE  CONTENTS  OF  MPAC  AS  A 

DP  ARGUMENT 

, EVALUATE  THE  POLYNOMIAL  WHOSE  DEGREE  AND 

COEFFICIENTS 

IMMEDIATELY 

FOLLOW 

THE  TC  POLY 

INSTRUCTION  (SEE  ROUTINE  FOR  DETAILS.) 

REF 

253 

LAST 

1026 

7 1 2 A 

50  002 

0 

DMP 

INDEX 

0 

BASIC  SUBROUTINE  FOR  USE  BY  PINBALL,  ETC 

7125 

3 0000 

1 

CAF 

0 

ADRES  OF  ARGUMENT  FOLLOWS  TC  DMP 

REF 

25A 

LAST 

1029 

7126 

2A  002 

0 

I NCR 

Q 

REF 

52 

LAST 

1028 

7127 

5A  116 

0 

-1 

TS 

ADDRWD 

(PROLOGUE  FOR  SETTING  ADDRWD.) 

REF 

53 

LAST 

1029 

7130 

50  116 

1 

DMPSUB 

INDEX 

ADDRWD 

GET  MINOR  PART  OF  OPERAND  AT  C(ADORWD). 

7131 

3 OCOl 

0 

CA 

1 

REF 

AO  3 

LAST 

1028 

7 132 

5A  156 

I 

TS 

MPAC  +2 

THIS  WORKS  FOP  SQUARING  MPAC  AS  WELL. 

REF 

15A 

LAST 

1026 

7133 

3 A 7A6 

0 

CAF 

ZERO 

SET  MPAC  +1  TO  ZERO  SO  WF  CAN  ACCUMULATE 

REF 

A 0 A 

LAST 

1029 

7 13  A 

56  155 

0 

XCH 

MPAC  +1 

THE  PARTIAL  PRODUCTS  WITH  DAS 

REF 

9 

LAST 

997 

7 135 

5 A 135 

1 

TS 

MPTEMP 

INSTRUCT  IONS. 

7136 

0 0006 

1 

EXTFND 

REF 

AC  5 

LAST 

1029 

7137 

7 0156 

1 

MP 

MPAC  +2 

MINOR  OF  MPAC  X MINOR  OF  C< ADDRWD). 

REF 

A06 

LAST 

1029 

7 1A0 

56  156 

0 

XCH 

MPAC  +2 

DISCARD  MINOR  PART  OF  ABOVE  RESULT  AND 

7 1A1 

0 0006 

1 

EXTEND 

FORM  MAJOR  OF  MPAC  X MINOR  OF  C (ADDRWD ) . 

REF 

AC  7 

LAST 

1029 

71A2 

7 015A 

0 

MP 

MPAC 

REF 

ACE 

LAST 

1029 

71A3 

20  156 

1 

DAS 

MPAC  +1 

GUARANTFED  NO  OVERFLOW. 

REF 

5A 

LAST 

1029 

7 1AA 

50  116 

1 

INDEX 

ADDRWD 

GET  MAJOR  PART  OF  ARGUMENT  AT  C(AODPWD). 

71A5 

3 0000 

1 

CA 

0 

REF 

10 

LAST 

1029 

7 1A6 

56  135 

0 

XCH 

MPTEMP 

SAVE  AND  BRING  OUT  MINOR  OF  MPAC. 

7 1A7 

0 C006 

1 

DMPSUB2 

EXTEND 

REF 

1 1 

LAST 

1029 

7150 

7 0135 

l 

MP 

MPTEMP 

MAJOR  OF  C ( ADDRWD ) X MINOR  OF  MPAC. 

REF 

A 09 

LAST 

1029 

7151 

20  156 

1 

DAS 

MPAC  +1 

ACCUMULATE,  SETTING  A TO  NET  OVERFLOW  . 

REF 

A 10 

LAST 

1029 

7152 

56  15A 

1 

XCH 

MPAC 

SETTING  MPAC  TO  0 OR  +-1. 

7153 

0 C 006 

1 

EXTEND 

REF 

12 

LAST 

1029 

7 15  A 

7 0135 

1 

MP 

MPTEMP 

MAJOR  OF  MPAC  X MAJOR  OF  C ( ADDRWD ) . 

REF 

A 1 1 

LAST 

1029 

7155 

20  155 

1 

DAS 

MPAC 

GUARANTEED  NO  OVERFLOW. 

REF 

255 

LAST 

1029 

7156 

0 0002 

0 

TC 

Q 

49  MCT  = .573  MS.  INCLUDING  RETURN. 
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P0741 

ROUND 

MP  AC 

TO  DOUBLE 

PRECISION, 

, SETTING 

OVF  I NO 

ON  THE  RARE 

EVENT  OF  OVERFLOW. 

0743 

REF 

IS  5 

LAST 

1029 

7157 

3 4746 

0 

ROUNDSUB 

CAF 

ZERO 

SET  MPAC  +2=0  FOR  SCALARS 

AND 

CHANGE 

0 744 

REF 

21 

LAST 

1019 

7160 

54  163 

1 

+ 1 

TS 

MODE 

MODE  TO  DP. 

0745 

REF 

4 12 

LAST 

1029 

7161 

56  156 

0 

VROUND 

XC.H 

M P AC 

+ 2 

BUT  WE  NEFDNT  TAKE  THE  TIME 

FOR 

VECTORS. 

0746 

7162 

6 COOO 

1 

DOUBLE 

0 14  1 

REF 

2C  1 

LAST 

1026 

7163 

54  001 

1 

TS 

L 

0748 

REF 

256 

LAST 

1029 

7164 

0 C002 

0 

TC 

Q 

0749 

REE 

413 

LAST 

1030 

7165 

6 0155 

0 

AD 

MPAC 

+ 1 

ADD  ROUNDING  BIT  IF  MPAC  +2 

WAS 

GREATER 

0750 

REF 

4 14 

LAST 

1030 

7166 

54  155 

1 

TS 

MPAC 

+ 1 

THAN  .5  IN  MAGNITUDE. 

0751 

REF 

257 

LAST 

1030 

7167 

0 0002 

0 

TC 

Q 

0752 

REE 

4 15 

LAST 

1030 

7170 

6 C 154 

1 

AD 

MPAC 

PROPAGATE  INTERFLOW. 

075  3 

REF 

416 

LAST 

1030 

7 171 

54  154 

0 

TS 

MPAC 

0754 

REF 

258 

LAST 

1030 

7 172 

0 0002 

0 

TC 

Q 

0755 

REF 

4 

LAST 

328 

7173 

54  121 

1 

SET0VF2 

TS 

OVFIND 

( R ARE ) . 

0756 

REF 

259 

LAST 

1030 

7174 

0 0002 

0 

TC 

Q 

GAP: 

L 

P0757 

R0759 

R 076  1 

0763 

0764 

0765 

0766 

0767 

0768 

0769 

0770 

077  1 

077? 

0773 

0774 

0775 

0776 

0777 

0778 

0779 

0780 

0781 

0782 

0783 

0784 

0785 

0786 

0787 

0788 

0789 

0 790 

0 79  1 

079? 

079  3 

0794 

0795 
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THE  DOT  PRODUCT  SUBROUTINE  USUALLY  FORMS  THE  DOT  PRODUCT  OF  THE  VECTOR  IN  MPAC  WITH  A STANDARD  SIX 
REGISTER  VECTOR  WHOSE  ADDRESS  IS  IN  ADDRWD.  IN  THIS  CASE  C(DOTINC)  ARE  SET  TO  2.  VXM,  HOWEVER,  SETS  C(DOTINC)  TO 
6 SO  THAT  DOTSUB  DOTS  MPAC  WITH  A COLUMN  VECTOR  OF  THE  MATRIX  IN  QUESTION  IN  THIS  CASE. 


REF 

6 2 

LAST 

995 

7175 

3 4743 

0 

PREDOT 

CAF 

TWO 

PROLOGUE  TO  SET  DOTINC  TO  2. 

REF 

4 

LAST 

99 

7 176 

54  136 

L 

TS 

DOT  I NC 

7177 

0 0006 

1 

DOTSUR 

EXTEND 

REF 

5 

LAST 

99 

7200 

22  137 

1 

QXCH 

DOTRET 

SAVE  RETURN. 

REF 

I 

7201 

0 7130 

1 

TC 

DMPSUB 

DOT  X COMPONENTS. 

REF 

4 17 

LAST 

1030 

7202 

52  160 

1 

DXCH 

MPAC  +3 

POSITION  Y COMPONENT  OF  MPAC  FOR 

REF 

418 

LAST 

1031 

7203 

52  155 

1 

DXCH 

MPAC 

MULTIPLICATION  WHILE  SAVING  RESULT 

REF 

64 

LAST 

1026 

7204 

52  131 

0 

DXCH 

RUF 

THREE  WORD  BUFFER,  BUF. 

REF 

4 19 

LAST 

103  1 

7205 

3 0156 

0 

CA 

MPAC  +2 

REF 

85 

LAST 

1031 

7206 

54  132 

0 

TS 

BUF  +2 

REF 

5 

LAST 

1031 

7207 

3 0136 

0 

CA 

DOT  INC 

ADVANCE  ADDRWD  TO  Y COMPONENT  OF 

REF 

55 

LAST 

1029 

7210 

26  116 

0 

ADS 

ADDRWD 

OTHER  ARGUMENT. 

REF 

2 

LAST 

103  1 

7211 

0 7130 

1 

TC 

DMPSUB 

REF 

420 

LAST 

1031 

7212 

52  156 

1 

DXCH 

MPAC  +1 

ACCUMULATE  PARTIAL  PRODUCTS. 

REF 

86 

LAST 

1031 

7213 

20  132 

0 

DAS 

BUF  +1 

REF 

42  1 

LAST 

1031 

7214 

6 C 1 54 

1 

AD 

MPAC 

REF 

87 

LAST 

1031 

7215 

6 0130 

0 

AD 

RUF 

REF 

88 

LAST 

103  1 

7216 

54  130 

l 

TS 

BUF 

7217 

1 7221 

0 

TCF 

+ 2 

REF 

5 

LAST 

1030 

7220 

54  121 

1 

TS 

OVFIND 

IF  OVERFLOW  OCCURS. 

REF 

422 

LAST 

1031 

7221 

52  162 

0 

DXCH 

MPAC  +5 

MULTIPLY  l COMPONENTS. 

REF 

423 

LAST 

1031 

7222 

52  155 

1 

DXCH 

MPAC 

REF 

6 

LAST 

1031 

7223 

3 C 1 36 

0 

CA 

DOTINC 

REF 

56 

LAST 

1031 

7224 

26  116 

0 

ADS 

ADDRWD 

REF 

3 

LAST 

1031 

7225 

0 7130 

1 

TC 

DMPSUB 

REF 

89 

LAST 

1031 

7226 

52  132 

0 

ENDDOT 

DXCH 

BUF  +1 

LFAVE  FINAL  ACCUMULATION  IN  MPAC. 

REF 

424 

LAST 

1031 

7227 

20  156 

1 

DAS 

MPAC  +1 

REF 

425 

LAST 

1031 

7230 

6 0154 

1 

AD 

MPAC 

REF 

90 

LAST 

1031 

7231 

6 0130 

0 

AD 

BUF 

REF 

426 

LAST 

1031 

7232 

54  154 

0 

TS 

MPAC 

REF 

6 

LAST 

1031 

7233 

0 0137 

1 

TC 

DOTRET 

REF 

2 

LAST 

1025 

7234 

0 7040 

1 

TC 

OVERFLOW 

ON  OVERFLOW  HERE. 

REF 

7 

LAST 

1031 

7235 

0 0137 

1 

TC 

DOTRFT 
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P 0 796  DOUBLE  PRECISION  POLYNOMIAL  EVALUATOR 

R0797  N N— 1 

R0798  THIS  ROUTINE  EVALUATES  A X + A X + ...  + A X + A LEAVING  THE  OP  RESULT  IN  MPAC  ON  EXIT. 

R080C  N N-L  1 0 

R0801  THE  ROUTINE  HAS  TWO  ENTRIES 


R0802  1.  ENTRY  THRU  POWRSERS.  THE  COEFFICIENTS  MAY  BE  EITHER  IN  FIXED  OR  ERASABLE,  THE  CALL  IS  BY 

R0804  TC  POWRSERS,  AND  THE  RETURN  IS  TO  LOCITC  POWRSERSI+l.  THE  ENTERING  DATA  MUST  BF  AS  FOLLOWS 


A0806 

A 

SP 

LOC-3 

ADDRESS  FOR  REFERENCING  COEF  TABLE 

A0807 

L 

SP 

N-l 

N IS  THE  DEGREE  OF  THE  POWER  SERIES 

A0808 

MPAC 

DP 

X 

ARGUMENT 

A0809 

L0C-2N 

DP 

A t 0) 

A08L0 

... 

A081  1 

LOC 

DP 

AIN) 

R0812 

2.  ENTRY  THRU 

POLY. 

THE  CALL 

TO  POLY  ANC 

l THE  ENTERING  DATA 

MUST  BE  AS  FOLLOWS 

AOS  1 4 

MPAC 

DP 

X 

ARGUMENT 

A0815 

LOC 

TC 

POLY 

A081  6 

LOC+1 

SP 

N-l 

A0817 

LOC  + 2 

DP 

A (0) 

A0818 

. . . 

A0819 

L0C+2N+2 

DP 

AIN) 

RETURN  IS  TO  L0C+2N+4 

0820 

7236 

0 0006 

1 

POWRSERS 

EXTFND 

0821 

REF 

1 

7237 

22  141 

0 

QXCH 

POLYRET 

RETURN  ADDRESS 

0822 

REF 

17 

LAST 

1022 

7 240 

54  117 

1 

TS 

POLISH 

POWER  SERIES  ADDRESS 

0823 

REF 

l 

7241 

22  140 

1 

LXCH 

POLYCNT 

N-l  TO  COUNTER 

0824 

REF 

1 

7242 

l 7253 

0 

TCF 

POLYCOM 

SKIP  SET  UP  BY  POLY 

0825 

REF 

260 

LAST 

1030 

7243 

50  002 

0 

POLY 

INDEX 

Q 

0826 

7244 

3 OCOO 

1 

CAF 

0 

0827 

REF 

2 

LAST 

1032 

7245 

54  140 

0 

TS 

POLYCNT 

N-l  TO  COUNTER 

082  B 

7246 

6 0000 

1 

DOUBLE 

0829 

REF 

2 1 1 

LAST 

1032 

7247 

6 0CO2 

0 

AD 

Q 

0830 

REF 

18 

LAST 

1032 

7250 

54  117 

1 

TS 

POLISH 

L ( A I N ) ) — 3 TO  POL  ISH 

0331 

REF 

17 

LAST 

1026 

7251 

6 4747 

l 

AD 

F IVE 

0832 

REF 

2 

LAST 

1032 

7252 

54  141 

L 

TS 

POLYRET 

STORE  RETURN  ADDRESS 

0833 

REF 

1 

7253 

3 6314 

1 

POLYCOM 

CAF 

L VBUF 

INCOMING  X WILL  BE  MOVED  TO  VBUF,  SO 

0834 

REF 

57 

LAST 

103  1 

7254 

54  116 

0 

TS 

ADDRWD 

SET  ADDRWD  SO  DMPSUB  WILL  MPY  BY  VBUF 

0835 

7255 

0 0006 

l 

EXTENO 

0836 

REF 

19 

LAST 

1032 

7256 

5 0117 

0 

INDEX 

POLISH 

083  7 

7257 

3 0C04 

0 

DC  A 

3 

GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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0838 

REF 

427 

LAST 

103  1 

7260 

52  155 

1 

DXCH 

MPAC 

083  9 

REF 

26 

LAST 

1008 

7261 

52  123 

0 

DXCH 

VBUF 

0840 

REF 

1 

7262 

1 7266 

0 

TCF 

P0LY2 

0 84  1 

REF 

3 

LAST 

1032 

7263 

54  140 

0 

POLYLOOP 

TS 

POLYCNT 

0842 

REF 

63 

LAST 

1031 

7264 

4 4743 

1 

CS 

TWO 

C84  3 

REF 

20 

LAST 

1032 

7265 

26  117 

1 

ADS 

POLISH 

0844 

REF 

4 

LAST 

1031 

7266 

0 7130 

1 

P0LY2 

TC 

DMPSU8 

084  5 

7267 

0 C006 

1 

EXTEND 

0846 

REF 

21 

LAST 

1033 

7270 

5 0117 

0 

INDEX 

POLISH 

0847 

7271 

3 0C02 

0 

OCA 

1 

084  8 

REF 

428 

LAST 

1033 

7272 

20  155 

1 

DAS 

MPAC 

0849 

REF 

4 

LAST 

1033 

7273 

10  140 

0 

CCS 

POLYCNT 

0850 

REF 

1 

72  74 

1 7263 

0 

TCF 

POLYLOOP 

0851 

REF 

3 

LAST 

1032 

7275 

0 C 1 4 1 

0 

TC 

POLYRET 
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USER'S  PAGE  NO.  34  E3  S3 

LOAD  AIN)  INTO  MPAC, 

SAVING  X IN  VBUF 

SAVE  DECREMENTED  LOOP  COUNTER 
REGRESS  COEFFICIENT  POINTFR 
MULTI  PLY  BY  X 

ADD  IN  NEXT  COEFFICIENT 

USERS  RESPUNS  I8IL  ITY  TO  ASSURF  NO  OVFLOW 
RETURN  CALLER 
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P0852 

MISCELLANEOUS  MULTI- 

-PRECIS ICN 

ROUTINES 

REQUIRED  IN  FIXED- 

FIXED  BUT  NOT  USED  BY  THE  INTERPRETER. 

085358 

REF 

156 

LAST 

1030 

7276 

3 4 746 

0 

DPAGREE 

CAF 

ZERO 

DOUBLE  PRECISION  ENTRY  - 

085359 

KEF 

429 

LAST 

1033 

7277 

54  156 

l 

TS 

MPAC  +2 

ZFRO  LOW-ORDER  WORD 

0854 

REF 

262 

LAST 

103  2 

7300 

22  C02 

0 

TPAGREE 

LXCH 

0 

FORCE  SIGN  AGREEMENT  AMONG  THE  TRIPLF 

0 85  5 

REF 

3 

LAST 

890 

7301 

0 6 744 

0 

TC 

BRANCH 

PRECISION  CONTENTS  OF  MPAC.  RF  TURN  I NG 

0856 

REF 

1 

7302 

1 7306 

1 

TCF 

ARG+ 

WITH  SIGNUM  OF  THE  INPUT  IN  A. 

0857 

REF 

1 

7303 

1 7326 

0 

TC  F 

ARGZERO 

0858 

REF 

26 

LAST 

917 

7304 

4 4724 

0 

CS 

POSMAX 

IF  negat ive. 

0855 

7305 

1 7307 

0 

TCF 

+ 2 

0860 

REF 

27 

LAST 

1034 

7306 

3 4724 

1 

ARG+ 

CAF 

POSMAX 

0861 

KEF 

263 

LAST 

1034 

7307 

54  002 

1 

TS 

0 

0862 

7310 

0 0006 

1 

EXTENO 

0863 

REF 

3 17 

LAST 

1026 

7311 

24  COO 

1 

AUG 

A 

FORMS  4 — l . 0 . 

0864 

KEF 

430 

LAST 

1034 

7312 

6 Cl  56 

0 

AD 

MPAC  +2 

0865 

REF 

42  1 

LAST 

1034 

7313 

54  156 

1 

TS 

MPAC  +2 

0866 

REF 

197 

LAST 

1034 

7314 

3 4746 

0 

CAF 

ZERO 

0867 

REF 

2 64 

LAST 

1034 

7315 

6 0002 

0 

AD 

0 

0868 

REF 

432 

LAST 

1034 

7316 

6 0155 

0 

AD 

MPAC  +1 

0869 

REF 

433 

LAST 

1034 

7317 

54  155 

1 

TS 

MPAC  +1 

0870 

REF 

198 

LAST 

1034 

7320 

3 4746 

0 

CAF 

ZERO 

087  1 

REF 

265 

LAST 

1034 

7321 

6 0002 

0 

AD 

Q 

0 STILL  HAS  POSMAX  OR  NEGMAX  IN  IT. 

0872 

REF 

434 

LAST 

1034 

7322 

6 0154 

1 

AD 

MPAC 

0873 

REF 

435 

LAST 

1034 

7323 

54  1 54 

0 

ARGZER02 

TS 

MPAC 

ALWAYS  SKIPPING  UNLESS  ARGZERO. 

0874 

REF 

436 

LAST 

1034 

7324 

54  155 

1 

TS 

MPAC  +1 

0875 

KEF 

2C2 

LAST 

1030 

7325 

0 OCOl 

0 

TC 

L 

RETURN  VIA  L. 

0876 

REF 

437 

LAST 

1034 

7326 

54  156 

1 

ARGZERO 

TS 

MPAC  +2 

SET  ALL  THREE  MPAC  REGISTERS  TO  ZERO. 

0877 

REF 

1 

7327 

1 7323 

0 

TCF 

ARGZER02 

R0878 

SHORT M P MULTIPLIES 

THE  TP  CONTENTS  OF  MIPAC  BY 

THE  SINGLE 

PRECISION  NUMBER  ARRIVING  IN  A. 

0880 

REF 

13 

LAST 

102  9 

7330 

54  135 

1 

SHORTMP 

TS 

M PTE  MP 

088  1 

7331 

0 0006 

1 

EXTEND 

0882 

REF 

43  8 

LAST 

1034 

7332 

7 0156 

1 

MP 

MPAC  +2 

0883 

REF 

439 

LAST 

1034 

7333 

54  156 

l 

TS 

MPAC  +2 

0884 

REF 

199 

LAST 

1034 

7334 

3 4746 

0 

SH0RTMP2 

CAF 

ZERO 

SO  SUBSEQUENT  DAS  WILL  WORK. 

0885 

REF 

440 

LAST 

1034 

7335 

56  155 

0 

XCH 

MPAC  +1 

0886 

REF 

1 

7336 

1 7 147 

0 

TCF 

DMPSUB2 

* 

,47 

ST  _ 

X 

- * / 

y 

° 4^ 

''S  A 

V< 

r j 

? : 

•r 

<3 

6 

cf  4^ 

* 7 

4 
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L INTERPRETER  USER'S  PAGE  NO.  36  E3  S3 

P0B8 7 DMPNSUB  MULTIPLIES  THE  DP  FRACTION  ARRIVING  IN  MPAC  BY  THE  SP 

R0888  INTEGER  ARRIVING  IN  A.  1 HE  DP  PRODUCT  DEPARTS  BOTH  IN  MPAC  AND  IN 

RO 889  A AND  L.  NOTE  THAT  DMPNSUB  NORMALLY  INCREASES  THE  MAGNITUDE  OF  THE 

R0890  CONTENTS  OF  MPAC.  THE  CUSTOMER  MUST  INSURE  THAT  B( A ) X B ( MPAC , MP AC+ 1) 

R0891  AND  BIA)  X B(MPAC)  ARE  LESS  THAN  1 IN  MAGNITUDE,  WHERE  B,  AS  IS  OBVIOUS, 

R0892  INDICATES  THE  ARRIVING  CONTENTS. 


0893 

REF 

1 

7337 

54  135 

1 

DMPNSUB  TS 

DMPNTEMP 

0894 

7340 

0 0006 

1 

EXTEND 

0895 

REF 

44  1 

LAST 

1034 

7341 

7 0155 

1 

MP 

MPAC  +1 

0896 

REF 

442 

LAST 

1035 

734  2 

52  155 

1 

DXCH 

MPAC 

LOW  PRODUCT  TO  MPAC,  HIGH 

FACTOR  TO  A 

0897 

7343 

0 0006 

1 

EXTEND 

0898 

REF 

2 

LAST 

1035 

7344 

7 0135 

1 

MP 

DMPNTEMP 

089  9 

REF 

203 

LAST 

1034 

7345 

3 0001 

0 

CA 

L 

0900 

REF 

443 

LAST 

1035 

7346 

26  154 

0 

ADS 

MPAC 

COMPLETING  THE  PROOUC.T  IN 

MPAC 

0901 

7347 

0 0006 

1 

EXTEND 

090  2 

REF 

444 

LAST 

1035 

7350 

3 0155 

0 

DC  A 

MPAC 

BRINGING  THE  PRODUCT  INTO 

A AND  L 

0903 

REF 

266 

LAST 

1034 

7351 

C 0002 

0 

TC 

0 

GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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L INTERPRETER 


USER'S  PAGE  NO.  37  E3  S3 


P090  A MISCELLANEOUS  VECTOR  OPERATIONS.  INCLUDED  HERE  ARE  THE  FOLLOWING: 


R0905 

1 . 

OOT 

R0906 

2. 

VXV 

R0907 

3. 

VXSC 

R0908 

A. 

V/ SC 

R0909 

5. 

V PRO  J 

R0910 

6. 

VXM 

R091  1 

7. 

MX  V 

CP  VECTOR  DOT  PRODUCT. 


DP  VECTOR 
CP  VECTOR 
DP  VECTOR 
DP  VECTOR 
CP  VECTOR 
DP  VECTOR 


CROSS  PRODUCT. 

TIMES  SCALAR. 

DIVIDED  BY  SCALAR. 
PROJECTION.  ( (MPAC.XIMPAC 
POST-MULTIPLIED  BY  MATRIX. 
PRE-MULTIPLIED  BY  MATRIX. 


) . 


0912 

REF 

1 

7352 

0 

7175 

0 

DOT 

TC 

PREDOT 

DO  THE  DOT 

PRODUCT  AND  EXIT,  CHANGING 

0913 

REF 

200 

LAST 

103A 

7353 

3 

A 7A6 

0 

DMODE 

CAF 

ZERO 

THE  MODE  TO 

DP  SCALAR. 

09 1 A 

REF 

3 

LAST 

1017 

735A 

1 

6101 

0 

TC  F 

NEWMODE 

0915 

REF 

6 A 

LAST 

1033 

7355 

3 A 7 A3 

0 

M X V 

CAF 

TWO 

SET  UP  MATINC  AND  DOT  INC 

FOR  ROW 

0916 

REF 

6 

LAST 

100 

7356 

5 A 1 AO 

0 

TS 

MATINC 

VECTORS. 

0917 

REF 

1 

7357 

1 7 3 63 

1 

TCF 

VXM/MXV 

GO  TO  COMMON  PORTION. 

091  8 

REF 

7 

LAST 

A32 

7360 

A A35A 

0 

VXM 

CS 

TEN 

SET  MATINC  AND  DOTINC  TO 

REFER  TO  MATRIX 

0919 

REF 

7 

LAST 

1036 

7361 

5 A 1 AO 

0 

TS 

MATINC 

AS  THREE  COLUMN  VECTORS. 

0920 

REF 

16 

LAST 

89  1 

7362 

3 6263 

0 

CAF 

S I X 

GAP: 


ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY 


L INTERPRETER 


P092I  COMMON  PORTION  OF  MXV  AND  VXM. 


0922 

REF 

7 

LAST 

1031 

7363 

54  136 

1 

R0923 

ITRACE  (2) 

REFERS  TO 

" VXM/M 

XV 

092  A 

REF 

1 

7364 

0 7553 

0 

092  5 

REF 

l 

7365 

0 7177 

i 

0926 

7366 

0 0006 

l 

092  7 

REF 

27 

LAST 

1033 

7367 

3 0123 

l 

0928 

REF 

A A5 

LAST 

1035 

7370 

52  155 

1 

0929 

REF 

13 

LAST 

997 

73  71 

52  134 

0 

0930 

7372 

0 0006 

l 

093  1 

REF 

28 

LAST 

103  7 

7373 

3 0125 

1 

0932 

REF 

AA6 

LAST 

1037 

7374 

52  160 

l 

0933 

7375 

0 0C06 

1 

093  A 

REF 

29 

LAST 

1037 

7376 

3 0127 

0 

0935 

REF 

AA7 

LAST 

1037 

7377 

52  162 

0 

0936 

REF 

8 

LAST 

1036 

7400 

3 0140 

l 

093  7 

REF 

58 

LAST 

1032 

7 401 

26  116 

0 

0938 

REF 

2 

LAST 

1037 

7402 

0 7177 

1 

093  9 

REF 

30 

LAST 

1037 

7403 

52  123 

0 

09A0 

REF 

AA8 

LAST 

1037 

7404 

52  155 

1 

09A  1 

REF 

3 1 

LAST 

1037 

7405 

52  125 

0 

09A2 

REF 

A A9 

LAST 

1037 

7406 

52  160 

1 

09A  3 

REF 

32 

LAST 

1037 

7407 

52  127 

1 

09A  A 

REF 

A 50 

LAST 

1037 

7410 

52  162 

0 

09A  5 

REF 

9 

LAST 

1037 

7411 

3 0140 

1 

09A6 

REF 

59 

LAST 

1037 

7412 

26  116 

0 

09A  7 

REF 

3 

LAST 

1037 

7413 

0 7 177 

1 

09A  8 

REF 

1A 

LAST 

1037 

7414 

52  ! 34 

0 

09A  9 

REF 

A 5 1 

LAST 

1037 

7415 

52  155 

1 

0950 

REF 

A 52 

LAST 

1037 

7416 

52  162 

0 

095  1 

REF 

33 

LAST 

1037 

7417 

52  125 

0 

0952 

REF 

A 5 3 

LAST 

1037 

7420 

52  160 

l 

0953 

REF 

1A 

LAST 

1028 

7421 

l 6102 

0 

VXM/MXV 
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USER'S  PAGE  NO.  3B 


F3  S3 


TS 

DOTINC 

TC 

MPACVBUF 

SAVE  VECTOR  IN  MPAC  FOR  FURTHER  USE. 

TC 

DOTSUB 

GO  DOT  TO  GET  X COMPONENT  OF  ANSWER. 

EXTEND 

DCA 

V BUF 

MOVE  MPAC  VECTOR  BACK  INTO  MPAC,  SAVING 

OXCH 

MPAC 

NEW  X COMPONENT  IN  BUF2. 

DXCH 

BUF2 

EXTEND 

DCA 

VBUF  +2 

DXCH 

MPAC  +3 

EXTEND 

DCA 

VBUF  +4 

DXCH 

MPAC  +5 

CA 

MATINC 

INITIALIZE  ADDRWD  FOR  NEXT  DOT  PRODUCT. 

ADS 

ADORWD 

FORMS  BASE  ADDRESS  OF  NEXT  COLUMN(ROW). 

TC 

DOTSUB 

DXCH 

VBUF 

MOVE  GIVFN  VECTOR  BACK  TO  MPAC,  SAVING  Y 

DXCH 

MPAC 

COMPONENT  OF  ANSWER  IN  VBUF  +2. 

DXCH 

VBUF  +2 

DXCH 

MPAC  +3 

DXCH 

VBUF  +4 

OXCH 

MPAC  +5 

CA 

MATINC 

FORM  ADDRESS  OF  LAST  COLUMN  OR  ROW. 

ADS 

ADDRWD 

TC 

DOTSUB 

DXCH 

BUF2 

ANSWER  NOW  COMPLETE.  PUT  COMPONENTS  INTO 

DXCH 

MPAC 

PROPER  MPAC  REGISTERS. 

DXCH 

MPAC  +5 

DXCH 

VBUF  +2 

DXCH 

MPAC  +3 

TC  F 

DANZIG 

EXIT. 

GAP: 


ASSEMBLE  REVISION  210  CP  AGC  PROGRAM  LUMINARY  8Y  NASA  2021112-161 


L 

INTERPRETER 

P095A 

VXSC 

- VECTOR 

0955 

REF 

22 

LAST 

1030 

0956 

REF 

1 

0957 

REF 

2 

LAST 

1038 

095  B 

REF 

5 

LAST 

1033 

0959 

REF 

1 

0960 

REF 

A5A 

LAST 

1037 

0961 

REF 

A55 

LAST 

1038 

0962 

REF 

A 56 

LAST 

1038 

0963 

REF 

6 

LAST 

1038 

096  A 

REF 

2 

LAST 

1038 

0965 

REF 

A57 

LAST 

1038 

0966 

REF 

A58 

LAST 

1038 

096  7 

REF 

A5S 

LAST 

1038 

0968 

REF 

7 

LAST 

1038 

0969 

REF 

3 

LAST 

1038 

0970 

REF 

A60 

LAST 

1038 

097  1 

REF 

A6  l 

LAST 

1038 

0972 

REF 

A 62 

LAST 

1038 

0973 

REF 

A63 

LAST 

1038 

097A 

REF 

15 

LAST 

1037 

TIMES 

SCALAR. 

7A22 

10  163 

l 

VXSC 

CCS 

7A23 

L 7A5L 

1 

TCF 

7 A2A 

1 7A51 

1 

TCF 

7A25 

0 7130 

L 

vvxsc 

TC 

7A2  6 

0 7161 

0 

TC 

7A27 

52  160 

1 

DXCH 

7A30 

52  155 

1 

DXCH 

7 A3  1 

52  160 

1 

DXCH 

7 A32 

0 7130 

1 

TC 

7A33 

0 7161 

0 

TC 

7 A3A 

52  162 

0 

DXCH 

7 A3  5 

52  155 

1 

DXCH 

7 A 36 

52  162 

0 

DXCH 

7 A3  7 

0 7130 

1 

TC 

7 A AO 

0 7161 

0 

TC 

7AA1 

52  155 

1 

VROTATEX 

DXCH 

7 AA  2 

52  162 

0 

DXCH 

7 AA3 

52  160 

1 

DXCH 

7 AAA 

52  155 

l 

DXCH 

7AA5 

L 6102 

0 

TCF 

MODE 

ovxsc 

ovxsc 

DMPSUB 
VROUND 
MPAC  +3 
M P AC 
MPAC  +3 

DMPSUB 
VROUND 
MPAC  +5 
MPAC 
MPAC  +5 

DMPSUB 

VROUND 

MPAC 

MPAC  +5 

MPAC  + 3 

MPAC 

DANZIG 
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USER 1 S PAGE  NO.  39  E3  S3 


TEST  PRESENT  MODE. 

SEPARATE  ROUTINE  WHFN  SCALAR  IS  IN  MPAC. 


COMPUTE  X COMPONENT 
AND  ROUND  IT. 

PUT  Y COMPONENT  INTO  MPAC  SAVING  MPAC  IN 
MPAC  +3. 


DO  SAME  FOR  Y AND  Z COMPONFNTS. 


EXIT  USED  TO  RESTORE  MPAC  AFTER  THIS 
TYPE  OF  ROTATION.  CALLED  BY  VECTOR  SHIFT 
RIGHT,  V/SC,  ETC. 


GAP:  ASSEMRL  E REVISION  2 10  OF  AGO  PROGRAM  LUMINARY  BY  NASA  20211  12-161 


L INTERPRETER 


P0975 

DP  VECTOR 

PROJECTION 

ROUT  IN 

E. 

0976 

REF 

2 

LAST 

103  6 

7 446 

0 7175 

0 

VPROJ  TC 

PREDOT 

0977 

REF 

23 

LAST 

917 

7447 

4 4742 

0 

CS 

FOUR 

0978 

REF 

60 

LAST 

L037 

7450 

26  116 

0 

ADS 

ADDRWD 

R0979 

VXSC 

WHEN 

SCALAR  ARRIVES  IN 

MPAC  AND  VECTOR  IS 

AT  X . 

0980 

7451 

0 0006 

1 

OVXSC  EXTEND 

0981 

REF 

464 

LAST 

1038 

7452 

3 C 1 55 

0 

DC  A 

MPAC 

0982 

REF 

465 

LAST 

1039 

7453 

52  160 

1 

DXCH 

MPAC  +3 

0983 

REF 

8 

LAST 

1038 

7454 

0 7130 

l 

TC 

DMPSUB 

0984 

REF 

4 

LAST 

1038 

7455 

0 7161 

0 

TC 

VROUND 

0985 

REF 

65 

LAST 

1036 

7 45  6 

3 4 743 

0 

CAF 

TWO 

0986 

REF 

61 

LAST 

1039 

7457 

26  116 

0 

ADS 

ADDRWD 

098  7 

7460 

0 0006 

1 

EXTEND 

0988 

REF 

466 

LAST 

1039 

7461 

3 C 1 60 

0 

DC  A 

MPAC  +3 

0989 

REF 

467 

LAST 

1039 

7462 

52  155 

1 

DXCH 

MPAC 

0990 

REF 

466 

LAST 

1039 

7463 

52  162 

0 

DXCH 

MPAC  +5 

099  1 

REF 

9 

LAST 

1039 

7464 

0 7130 

1 

TC 

DMPSUB 

0992 

REF 

5 

LAST 

1039 

7465 

0 7161 

0 

TC 

VROUND 

0993 

REF 

66 

LAST 

1039 

7466 

3 4743 

0 

CAF 

TWO 

0994 

REF 

62 

LAST 

1039 

7467 

26  1 16 

0 

ADS 

ADDRWD 

0995 

REF 

469 

LAST 

1039 

7470 

52  160 

1 

DXCH 

MPAC  +3 

099  6 

REF 

470 

LAST 

1039 

7471 

52  155 

1 

DXCH 

MPAC 

0997 

REF 

471 

LAST 

1039 

7472 

52  160 

1 

DXCH 

MPAC  +3 

0998 

REF 

10 

LAST 

1039 

74  73 

0 7130 

1 

TC 

DMPSUB 

0999 

REF 

6 

LAST 

1039 

7474 

0 7161 

0 

TC 

VROUND 

1000 

REF 

472 

LAST 

1039 

7475 

52  155 

1 

DXCH 

MPAC 

1001 

REF 

473 

LAST 

1039 

7476 

52  162 

0 

DXCH 

MPAC  +5 

100  2 

REF 

4 74 

LAST 

1039 

7477 

52  155 

1 

DXCH 

MPAC 

1003 

REF 

1 

7500 

1 6542 

0 

TC  F 

VMODE 

17:11  MAR.  19,1971  SKIPPER 
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(MPAC.X)MPAC  IS  COMPUTEO  AND  LEFT  IN 
MPAC.  00  DOT  ANO  FALL  INTO  OVXSC. 


SAVE  SCALAR  IN  MPAC  +3  ANO  GET  X 
COMPONENT  OF  ANSWER. 


ADVANCE  ADORWO  TO  Y C OMPONFNT  OF  X. 


PUT  SCALAR  BACK  INTO  MPAC  AND  SAVF 
X RESULT  IN  MPAC  +5. 


TO  Z COMPONENT. 

BRING  SCALAR  BACK,  PUTTING  Y RESULT  IN 
THE  PROPER  PLACE. 


PUT  Z COMPONENT  IN  PROPER  PLACE,  ALSO 
POSIT  10NING  X. 


MODE  HAS  CHANGED  TO  VECTOR 


GAP:  ASSEMBLE  REVISION  210  DF  AGO  PRGGRAM  LUMINARY  BY  NASA  202III2-161 

L INTERPRETER 


P 1 004 

THE  VECTOR 

CROSS  PRO CUC T ROUTINE  CALCULATES  (X 

M -X  M , 

R 1 00  6 

3 2 2 3 

K 1 00  8 

MPAC 

, AND 

X THE 

VECTOR  AT  THE 

GIVEN  ADDRESS. 

1009 

7501 

0 0C06 

1 VXV 

FXT  END 

1010 

REF 

475 

LAST 

1039 

7502 

3 0162 

1 

DC  A 

MPAC  +5 

101  1 

REF 

4 76 

LAST 

1040 

7503 

52  155 

1 

DXCH 

MPAC 

1012 

REF 

34 

LAST 

1037 

7 504 

52  123 

0 

DXCH 

VBUF 

1013 

REF 

11 

LAST 

1039 

7505 

0 7 130 

1 

TC 

DMPSUB 

1014 

7506 

0 0006 

1 

EXTEND 

1015 

REF 

477 

LAST 

10  40 

7507 

4 Cl 60 

1 

DCS 

MPAC  +3 

1016 

REF 

478 

LAST 

1040 

7510 

52  155 

1 

DXCH 

MPAC 

1017 

REF 

35 

LAST 

1040 

7511 

52  125 

0 

DXCH 

VBUF  +2 

101  8 

REF 

12 

LAST 

1040 

7512 

0 7130 

1 

TC 

DMPSUB 

1019 

REF 

67 

LAST 

1039 

7513 

3 4743 

0 

CAF 

TWO 

1020 

REF 

63 

LAST 

1039 

7514 

26  116 

0 

ADS 

ADDRWD 

102  1 

7515 

0 0006 

1 

EXTEND 

1022 

REF 

479 

LAST 

1040 

7516 

4 0162 

0 

DCS 

MPAC  +5 

1023 

REF 

480 

LAST 

1040 

7517 

52  155 

1 

DXCH 

MPAC 

1024 

REF 

481 

LAST 

1040 

7520 

52  162 

0 

DXCH 

MPAC  +5 

1025 

REF 

13 

LAST 

1040 

7521 

0 7130 

1 

TC 

DMPSUB 

1026 

7522 

0 0006 

1 

EXTEND 

1027 

REF 

36 

LAST 

1040 

7523 

3 0123 

l 

DCA 

VBUF 

1028 

REF 

4 E 2 

LAST 

1040 

7524 

52  155 

1 

DXCH 

MPAC 

1029 

REF 

37 

LAST 

1040 

7525 

52  127 

1 

DXCH 

VBUF  +4 

1030 

REF 

14 

LAST 

1040 

7526 

0 7130 

1 

TC 

DMPSUB 

1031 

REF 

68 

LAST 

1040 

7 52  7 

3 4743 

0 

CAF 

TWO 

1032 

REF 

64 

LAST 

1040 

7530 

26  116 

0 

ADS 

ADDRWD 

1033 

7531 

0 0006 

1 

EXTEND 

1034 

KEF 

38 

LAST 

1040 

7532 

4 0123 

0 

DCS 

VBUF 

1035 

REF 

483 

LAST 

1040 

7533 

52  155 

1 

DXCH 

MPAC 

1036 

REF 

484 

LAST 

1040 

7534 

20  162 

0 

DAS 

MPAC  +5 

1037 

7535 

0 0006 

1 

EXTEND 

1038 

7536 

1 7540 

0 

BZF 

+ 2 

1039 

REF 

3 

LAST 

1026 

7537 

0 7032 

1 

TC 

OVERFLWZ 

1040 

REF 

15 

LAST 

1040 

7540 

0 7 130 

1 

TC 

DMPSUB 

104  l 

REF 

39 

LAST 

1040 

7541 

52  125 

0 

DXCH 

VBUF  +2 

1042 

REF 

485 

LAST 

1040 

7542 

52  160 

1 

DXCH 

MPAC  +3 

1043 

REF 

486 

LAST 

1040 

7543 

52  155 

1 

DXCH 

MPAC 

1044 

REF 

487 

LAST 

1040 

7544 

20  160 

1 

DAS 

MPAC  +3 

104  5 

7545 

0 0006 

1 

EXTEND 

1046 

7546 

1 7550 

l 

BZF 

*2 
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-X  M ,X  M -X  M ) WHERE  M IS  THE  VECTOR  IN 
3 3 1 2 1 12 


FORM  UP  M3  X 1 , LEAVING  Ml  IN  VRUF. 


BY  XI  . 


CALCULATE  -XIM2,  SAVING  X1M3  IN  VRUF  +2. 


ADVANCE  AODRWD  TO  X2. 

PREPARE  TO  GET  -X2M3,  SAVING  -X1M2  IN 
M P AC  +5. 

GET  X2M1,  SAVING  -X2M3  IN  VRUF  +4. 


ADVANCF  ADDRWD  TO  X3. 


GFT  -X3M1,  ADDING  X2MI  TO  MPAC  +5  TO 
COMPLETE  THE  Z COMPONENT  OF  THE  ANSWER. 


MOVE  X 1M 3 TO  MPAC  +3  SETTING  UP  FOR  X3M2 
AND  ADD  -X3M1  TO  MPAC  +3  TO  COMPLETE  THE 
Y COMPONENT  OF  THE  RESULT. 


GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L INTERPRETER 


104  7 

REF 

3 

LAST 

1026 

7547 

0 7035 

0 

TC 

OVERT  LWY 

1048 

REF 

16 

LAST 

1040 

7550 

0 7130 

l 

TC 

DMPSUB 

1049 

REF 

40 

LAST 

1040 

7551 

52  127 

1 

DXCH 

V BUF 

+4 

1050 

REF 

4 

LAST 

1027 

7552 

l 7021 

1 

TCF 

ENDVXV 

105  1 

THE  MPACVBUF 

SUBROUTINE  SAV 

ES 

THE  VECTOR  IN  MPAC  IN 

VBUF 

1053 

7553 

0 0006 

1 

MPACVBUF  EXTEND 

1054 

REF 

488 

LAST 

1040 

7554 

3 0155 

0 

DC  A 

MPAC 

1055 

REF 

4 1 

LAST 

1041 

7555 

52  123 

0 

DXCH 

VBUF 

1056 

7556 

0 0006 

1 

EXTEND 

1057 

REF 

489 

LAST 

1041 

7557 

3 0160 

0 

DC  A 

MPAC 

+ 3 

1058 

REF 

42 

LAST 

1041 

7560 

52  125 

0 

DXCH 

VBUF 

+ 2 

1059 

7561 

0 0006 

1 

FXTENO 

1060 

REE 

490 

LAST 

1041 

7562 

3 0162 

1 

DC  A 

MPAC 

+5 

1061 

REF 

43 

LAST 

1041 

7563 

52  127 

1 

DXCH 

VBUF 

+4 

1062 

REF 

267 

LAST 

1035 

7564 

0 0002 

0 

TC 

9 

,1063 

DOUBLF  PRECISION  SIGN  AGREE 

ROUTINE.  ARRIVE 

WITH  INPUT  IN 

1065 

REF 

3 18 

LAST 

1034 

7565 

10  000 

0 

ALSIGNAG 

CCS 

A 

106  6 

REF 

1 

7566 

1 7572 

L 

TCF 

UPPOS 

1067 

REF 

268 

LAST 

1041 

7567 

0 0002 

0 

TC 

Q 

1068 

REF 

1 

7570 

1 7602 

0 

TCF 

UPNEG 

1069 

KEF 

269 

LAST 

1041 

7571 

0 0002 

0 

TC 

0 

1070 

REF 

2C4 

LAST 

1035 

7572 

56  001 

0 

UPPOS 

XCH 

L 

1071 

REF 

14 

LAST 

919 

7573 

6 4727 

1 

AD 

HALF 

1072 

REF 

15 

LAST 

104  1 

7574 

6 4727 

1 

AD 

HALF 

1073 

RFF 

319 

LAST 

1041 

7575 

54  000 

0 

TS 

A 

1074 

7576 

1 7600 

1 

TCF 

+ 2 

1075 

REF 

2C5 

LAST 

1041 

7577 

24  001 

0 

INCR 

L 

1076 

REF 

206 

LAST 

1041 

7600 

56  C01 

0 

XCH 

L 

1077 

REF 

270 

LAST 

1041 

7601 

0 0002 

0 

TC 

Q 

1078 

REF 

2C7 

LAST 

1041 

7602 

56  001 

0 

UPN  EG 

XCH 

L 

1079 

REF 

6 

LAST 

919 

7603 

6 4726 

0 

AD 

NEGMAX 

1080 

REF 

8 

LAST 

1012 

7604 

6 7770 

0 

AD 

NEGONE 

1081 

RFF 

320 

LAST 

104  1 

7605 

54  000 

0 

TS 

A 

1082 

7606 

l 7610 

0 

TCF 

+ 2 

1083 

REF 

2 C 8 

LAST 

1041 

7607 

24  OOl 

0 

INCR 

L 

1084 

REF 

209 

LAST 

1041 

7610 

56  001 

0 

XCH 

L 

1085 

7611 

4 0000 

0 

COM 

1086 

REF 

271 

LAST 

1041 

7612 

0 0C02 

0 

TC 

Q 
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GO  ADO  -X2M3  TO  X3M2  TO  COMPLETE  THE  X 
COMPONENT  (TAIL  END  OF  DAD). 

ITHOUT  CLOBBERING  MPAC. 

CALLED  BY  MXV,  VXM,  AND  UNIT. 


RETURN  TO  CALLER. 


A+L.  OUTPUT  IS  IN  A + L. 

TEST  UPPER  PART. 

IT  IS  POSITIVE 
ZERO 

NEGAT I VE 
ZERO 

SAVE  DECREMENTED  UPPER  PART. 


SKIPS  ON  OVERFLOW 

RESTORE  UPPER  TO  ROIGINAL  VALUF 
SWAP  A+L  BACK. 


SAVE  COMPLEMENTED  + DECREMENTED  UPPER  PT 


DONT  INCREMENT  IF  NO  OVERFLOW. 


MAKE  NEGATIVE  AGAIN 


17:11  MAR.  19,1971  SKIPPER  .131  PAGE  104? 


GAP: 


P 1087 

1089 

1090 

1091 
109? 
109  3 

1094 

1095 
109  6 

109  7 

1098 

1099 

1 100 

1 10  1 
1 102 
1 103 
1 10  4 
1 105 

1 10  6 
1107 
1 10  8 

1 109 

1110 
111  1 

1112 

1113 

1114 


AS S E MtSL t REVISION  210  CF  AGO  PROGRAM  LUMINARY  BY  NASA  20211  12-161 
INTERPRETER 


USER'S  PAGE  NO.  43  E3  S3 


INTERPRETIVE  INSTRUCTIONS  WHOSE  EXECUTION  CONSISTS  OF  PRINCIPALLY  CALLING  SURROUTINFS. 


REF 

17 

LAST 

1041 

7613 

0 7130 

1 

0MP1 

TC 

DMPSU8 

DMP  INSTRUCTION. 

REF 

16 

LAST 

1038 

7614 

1 6102 

0 

TCF 

DANZIG 

REF 

18 

LAST 

1042 

7615 

0 7130 

1 

DMPR 

TC 

DMPSUB 

REF 

1 

7b  1 6 

0 7160 

1 

TC 

ROUNOSUB  +1 

(CIA)  = +0) . 

REF 

17 

LAST 

1042 

7617 

1 6102 

0 

TCF 

DANZIG 

7620 

0 0006 

1 

DDV 

EXTEND 

REF 

65 

LAST 

1040 

7621 

5 0116 

1 

INDEX 

ADDRWD 

MOVE  DIVIDEND  INTO  BUF. 

7622 

3 0001 

0 

DC  A 

0 

REF 

2 

LAST 

1009 

7623 

1 7630 

l 

TCF 

BDDV  +4 

7624 

0 0006 

l 

BDDV 

EXTEND 

MOVE  DIVISOR  INTO  MPAC  SAVING  MPAC,  THE 

KFF 

66 

LAST 

1042 

7625 

5 0116 

1 

INDEX 

ADDRWD 

DIVIDEND,  IN  BUF. 

7626 

3 OCOl 

0 

DC  A 

0 

REF 

491 

I AST 

1041 

7627 

52  155 

1 

OXCH 

M P AC 

REF 

91 

LAST 

1031 

7630 

52  131 

0 

+4 

DXCH 

BUF 

REF 

201 

LAST 

1036 

763  1 

3 4746 

0 

CAF 

ZERO 

DIVIDE  ROUTINES  IN  BANK  0. 

REF 

21 

LAST 

1022 

7632 

54  004 

1 

TS 

F8ANK 

REF 

2 

LAST 

826 

7633 

1 2353 

1 

TCF 

DDV/BODV 

REF 

67 

LAST 

1042 

7634 

3 0116 

1 

SETPD 

CA 

ADDRWD 

MUST  SFT  TO  WORK  ARFA,  OR  FBANK  TROUBLE. 

REF 

19 

LAST 

1019 

7635 

54  166 

1 

TS 

PUSHLOC 

REF 

1 

7636 

1 6104 

0 

TCF 

N0I6NKSW 

NO  FBANK  SWITCH  REQUIRED. 

REF 

202 

LAST 

1042 

7637 

3 4 746 

0 

TSLC 

CAF 

ZERO 

SHIFTING  ROUTINES  LOCATED  IN  BANK  00. 

REF 

22 

LAST 

1042 

7640 

54  004 

1 

TS 

F BANK 

REF 

1 

7641 

1 217? 

0 

TCF 

TSLC2 

REF 

7 

LAST 

1001 

7642 

3 6115 

1 

GSHI FT 

CAF 

L0W7 

USED  AS  MASK  AT  GENSHIFT.  THIS  PROCESSES 

REF 

23 

LAST 

1042 

7643 

54  004 

1 

TS 

FBANK 

ANY  SHIFT  INSTRUCTION  (EXCEPT  TSLC)  WITH 

REF 

1' 

7644 

l 2214 

0 

TCF 

GENSHIFT 

AN  ADDRESS  (ROUTINFS  IN  BANK  0). 

GAP:  ASSEMBLE  REVISION  2 10  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L INTERPRETER 


P1115 

THE 

FOLLOWING  IS  THE 

PROLOGUE 

TO  V/ SC.  IF  THE 

PRESENT  MODE 

R1 11  7 

ANO 

CALLS  THE 

V/ SC 

ROUTINE  IN 

BANK  0 

IF  THE  PRESENT  MODE  IS  SCALAR 

R 11 1 9 

THE 

SCALAR  IN 

MPAC 

IN  BUF  BEFORE  CALLING  THE  V/ SC  ROUTINE  IN  BANK  0 

00 

1120 

REF 

23 

LAST 

1038 

7645 

10  163 

l 

V/SC  CCS 

MODE 

1121 

REF 

l 

7646 

L 7657 

0 

TCF 

DV/SC 

£ 

1122 

REF 

2 

LAST 

1043 

7 64  7 

1 7657 

0 

TCP 

DV/SC 

CM 

1123 

7650 

0 0006 

1 

VV/SC  EXTEND 

crW 

1124 

REF 

63 

LAST 

1042 

76  51 

5 0116 

l 

INDEX 

AODRWD 

1125 

7652 

3 0001 

0 

DC  A 

0 

a 

1126 

REF 

92 

LAST 

1042 

7653 

52  131 

0 

V/ SCI  DXCH 

BUF 

w 

1127 

REF 

203 

LAST 

1042 

7654 

3 4 746 

0 

CAF 

Z FRO 

1128 

REF 

24 

LAST 

1042 

7655 

54  004 

1 

TS 

F BANK 

• 

1129 

REF 

1 

7656 

1 2654 

0 

TCF 

V/SC  2 

1130 

7657 

0 0006 

l 

DV/SC  EXTEND 

A 

l 131 

REF 

69 

LAST 

1043 

7660 

5 0116 

l 

INDEX 

AODRWD 

1132 

7661 

3 0003 

1 

DC  A 

2 

1133 

REF 

492 

LAST 

1042 

7662 

52  160 

1 

DXCH 

MPAC  +3 

A 

1134 

7663 

0 0006 

1 

EXTEND 

w 

1135 

REF 

70 

LAST 

1043 

7 664 

5 0116 

1 

INDEX 

ADDRWO 

1136 

7665 

3 0005 

1 

DCA 

4 

• 

1 137 

REF 

493 

LAST 

1043 

7666 

52  162 

0 

DXCH 

MPAC  +5 

1138 

REF 

94 

LAST 

1017 

7667 

4 4 744 

0 

CS 

ONE 

1 139 

REF 

24 

LAST 

1043 

7670 

54  163 

l 

TS 

MODE 

1140 

7671 

0 CC06 

1 

EXTEND 

1 14  1 

REF 

71 

LAST 

1043 

7672 

5 0116 

1 

INDEX 

ADDRWO 

1 142 

7673 

3 0001 

0 

DCA 

0 

1 143 

REF 

494 

LAST 

1043 

7674 

52  155 

1 

DXCH 

MPAC 

• 

1144 

REF 

1 

7675 

1 7653 

1 

TCF 

V/SC1 
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S VECTOR,  IT  SAVES  THE  SCALAR  AT  X IN  BUF 
IT  MOVES  THF  VECTOR  AT  X INTO  MPAC,  SAVING 

MOVE  VECTOR  INTO  MPAC. 

IN  BOTH  CASES,  VECTOR  IS  NOW  IN  MPAC  ANO 
SCALAR  IN  BUF. 


CHANGE  MODE  TO  VFCTOR  . 


FINISH  PROLOGUE  AT  COMMON  SECTION. 


GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-L61 


L INTERPRETER 

PU45  SIGN  AND  COMPLEMENT  INSTRUCTIONS. 


1146 

REF 

72 

LAST 

1043 

7676 

50  116 

1 

SIGN 

INDEX 

ADDRWD 

114  7 

7677 

10  000 

0 

CCS 

0 

1 148 

REF 

18 

LAST 

1042 

7700 

1 6 102 

0 

TCF 

DANZIG 

1 149 

7 701 

l 7703 

0 

TCF 

+ 2 

l 150 

REF 

2 

LAST 

1011 

7702 

1 7711 

0 

TCF 

COMP 

1151 

REF 

73 

LAST 

1044 

7 703 

50  116 

1 

INDEX 

ADDRWD 

1152 

7704 

10  001 

1 

CCSL 

CCS 

1 

1153 

REF 

19 

LAST 

1044 

7705 

1 6102 

0 

TCF 

DANZ IG 

1 154 

REF 

20 

LAST 

1044 

7706 

1 6102 

0 

TCF 

DANZIG 

1 155 

REF 

3 

LAST 

1044 

7707 

1 7711 

0 

TCF 

COMP 

1156 

REF 

21 

LAST 

1044 

7710 

1 6102 

0 

TC  F 

DANZIG 

1157 

7711 

0 0006 

1 

CGMP 

EXTEND 

1158 

REF 

455 

LAST 

1043 

7712 

4 0155 

l 

DCS 

MPAC 

1159 

REF 

496 

LAST 

1044 

7713 

52  155 

1 

DXCH 

MPAC 

1160 

REF 

25 

LAST 

1043 

7714 

10  163 

1 

CCS 

MODE 

1161 

REF 

I 

7715 

l 7726 

l 

TCF 

DCOMP 

1162 

REF 

2 

LAST 

1044 

7716 

1 7726 

1 

TCF 

OCOMP 

1 163 

7717 

0 0006 

l 

EXTEND 

1 164 

REF 

497 

LAST 

1044 

7720 

4 0160 

1 

DCS 

MPAC  +3 

1 165 

REF 

458 

LAST 

1044 

7721 

52  160 

1 

DXCH 

MPAC  +3 

1 166 

7722 

0 0006 

1 

EXTEND 

1 167 

REF 

495 

LAST 

1044 

7723 

4 0162 

0 

DCS 

MPAC  +5 

1 168 

REF 

500 

LAST 

1044 

7724 

52  162 

0 

DXCH 

MPAC  +5 

1 169 

REF 

22 

LAST 

1044 

7725 

1 6102 

0 

TCF 

DANZIG 

1170 

REF 

501 

LAST 

1044 

7 726 

4 C 1 56 

1 

DCOMP 

CS 

MPAC  +2 

117  1 

REF 

502 

LAST 

1044 

7727 

54  156 

1 

TS 

MPAC  +2 

1172 

REF 

23 

LAST 

1044 

7730 

1 6102 

0 

TCF 

DANZIG 
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CALL  COMP  INSTRUCTION  IF  WORD  AT  X IS 
NEGATIVE  NON-ZERO. 

DO  THE  COMPLEMENT. 


COMPLEMENT  DP  MPAC  IN  EVERY  CASE. 

EITHER  COMPLEMENT  MPAC  +3  OP  THE  REST  OF 
THE  VECTOR  ACCUMULATOR. 

VECTOR  COMPLEMENT. 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  RY  NASA  2021L12-161 


L INTERPRETER 


PL  173 

THE 

FOLLOWING  SHORT 

SHIFT  CODES  REQUIRE  NO  ADDRESS  WORD: 

R1  174 

1. 

SRI  TO  SR4 

SCALAR 

SHIFT 

RIGHT. 

R 1 17  5 

2. 

SR 1R  TO  SR4R 

SCALAR 

SHIFT 

RIGHT  AND  ROUND. 

R 1 1 76 

3. 

SL1  TO  SL4 

SCALAR 

SHIFT 

LEFT  . 

R1  17  7 

4. 

SLIR  TO  SL4R 

SCALAR 

SH  1 FT 

LEFT  AND  ROUND. 

R1  178 

5. 

VSR  1 TO  VSR8 

VECTOR 

SHIFT 

R IGHT  < ALWAYS  ROUNDS ) . 

Rl  179 

6. 

VSH  TO  VSL8 

VECTOR 

SHIFT 

LEFT  (NEVER  ROUNDS). 

R1 180 

THE 

FOLLOWING  CODES 

REQUIRE  AN  ADDRESS  WHICH  MAY  BE  INDEXED 

R 1 18  1 

1. 

SR 

SCALAR 

SHIFT 

RIGHT. 

R 1 182 

2. 

SRR 

SCALAR 

SHIFT 

RIGHT  AND  ROUND. 

Rl  183 

3 . 

SL 

SCALAR 

SHIFT 

LEFT. 

Rl  184 

4. 

SLR 

SCALAR 

SHIFT 

LEFT  AND  ROUND. 

R 118  5 

5. 

VSR 

VECTOR 

SHIFT 

RIGHT. 

Rl  186 

6. 

VSL 

VECTOR 

SHIFT 

LEFT  . 

Rl  L8  7 

* IF  THE  ADDRESS  IS  INDEXED, 

AND  THE 

INDFX  1 

MODIFICATION  RESULTS  IN  , 

R1L89  ABSOLUTE  VALUE  OF  THE  COUNT  IS  OONE  IN  THE  OPPOSITE  DIRECTION. 


1190 

1191 

RFF 

1 

1192 

REF 

17 

1 193 

REF 

25 

1194 

REF 

11 

1195 

REF 

26 

1196 

REE 

1 

1197 

1198 

REF 

12 

1 199 

REF 

53 

1200 

REF 

14 

1201 

REF 

27 

1202 

REF 

1 

1203 

REE 

4 

1204 

REF 

15 

1205 

1206 

REF 

5C3 

1207 

REF 

504 

120  8 

REF 

16 

1209 

1210 

REF 

5C5 

00,2017 

LAST 

1036 

00,2017 

LAST 

1016 

00,2020 

LAST 

920 

00,2021 

LAST 

1045 

00,2022 

00,2023 

00,2024 

LAST 

1045 

00,2025 

LAST 

912 

00,2026 

LAST 

1034 

10,2027 

LAST 

1045 

00,2030 

00,2031 

LAST 

1036 

00,2032 

LAST 

1045 

00,2033 

00,2034 

LAST 

1044 

00,2035 

LAST 

IC45 

00,2036 

LAST 

1045 

00,2037 

00,2040 

LAST 

1045 

00,2041 

3 6263 

0 

SHORTT 

7 C 020 

1 

54  021 

0 

10  020 

1 

1 2101 

1 

00024 

1 

SRDOV 

5C  021 

1 

TSSR 

3 4727 

1 

54  135 

1 

10  020 

1 

0 2050 

0 

R IGHTR 

1 6101 

0 

3 C 1 35 

0 

MP AC  SHR 

0 0006 

1 

7 C 156 

1 

54  156 

1 

+ 3 

3 C 135 

0 

0 OC06 

1 

7 0154 

0 

BANK 

00 

COUNT* 

3>$/INTER 

CAF 

s ix 

MASK 

CYR 

TS 

SR 

CCS 

CYR 

TCF 

TSSL 

DEC 

20 

INDEX 

SR 

CAF 

B IT14 

TS 

MPTEMP 

CCS 

CYR 

TC 

MPACSRND 

TCF 

NEWMODE 

CA 

MPTEMP 

EXTEND 

MP 

MPAC  +2 

TS 

MPAC  +2 

CA 

MPTEMP 

EXTEND 

MP 

MPAC 
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* 


NEGATIVE  SHIFT  COUNT,  A SHIFT  OF  THF 


SCALAR  SHORT  SHIFTS  COME  HERF.  THE  SHIFT 
COUNT-1  IS  NOW  IN  BITS  2-3  OF  CYR.  THE 
ROUNDING  HIT  IS  IN  BIT1  AT  THIS  POINT. 

SEE  IF  RIGHT  OR  LEFT  SHIFT  DESIRED. 

SHIFT  LEFT. 

MPTEMP  SETTING  FOR  SP  BFFORE  DDV . 

GET  SHIFTING  BIT. 


SEE  IF  A ROUND  IS  DESIRED. 

YES  - SHIFT  RIGHT  AND  ROUND. 

SET  MODE  TO  DP  I C ( A)  = 0) . 

DO  A TRIPLE  PRECISION  SHIFT  RIGHT. 


(EXIT  FROM  SORT  AND  ABVAL). 


SHIFT  MAJOR  PART  INTO  A , L AND  PLACE  IN 


GAP: 


ASSEMBLE  REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY  NASA  202L112-161 


L 

INTERPRETER 

121  1 

REF 

5(6 

LAST 

1045 

00,2042 

52  155 

1 

DXCH 

MPAC 

1212 

REF 

17 

LAST 

1045 

00,2043 

3 C 135 

0 

CA 

MPTEMP 

1213 

00,2044 

0 0006 

1 

EXTEND 

1214 

REF 

210 

LAST 

104  l 

00,2045 

7 COOL 

1 

MP 

L 

1215 

REF 

507 

LAST 

1046 

00,2046 

20  156 

1 

DAS 

MPAC  +1 

1216 

REF 

24 

LAST 

1044 

00,2047 

l 6102 

0 

TCF 

DANZIG 

R121  7 

MPAC 

SHIFT 

RIGHT  ANO 

ROUND  : 

SUBROUTINES. 

1218 

REF 

5C8 

LAST 

1046 

00,2050 

3 0156 

0 

MPACSRND 

CA 

MPAC  +2 

1219 

00,2051 

0 0006 

1 

EXTEND 

1220 

REF 

18 

LAST 

1046 

00,2052 

7 0135 

1 

MP 

MPTEMP 

1221 

REF 

509 

LAST 

1046 

00,2053 

56  155 

0 

XCH 

MPAC  +1 

1222 

00,2054 

0 0006 

1 

EXTEND 

1223 

REF 

19 

LAST 

1046 

00,2055 

7 0135 

1 

MP 

MPTEMP 

1224 

REF 

510 

LAST 

1046 

00,2056 

56  155 

0 

XCH 

MPAC  +1 

122  5 

REF 

21  1 

LAST 

1046 

00,2057 

6 0001 

0 

AD 

L 

1226 

00,2060 

6 0000 

1 

VSHR2 

DOUBLE 

1227 

REF 

511 

LAST 

1046 

00,2061 

54  156 

l 

TS 

MPAC  +2 

1228 

00,2062 

1 2064 

0 

TCF 

+ 2 

1229 

REF 

512 

LAST 

1046 

00,2063 

26  155 

1 

ADS 

MPAC  +1 

1230 

REF 

2C4 

LAST 

104  3 

00,2064 

3 4746 

0 

CAE 

Z ERO 

1231 

REF 

513 

LAST 

1046 

00,2065 

54  156 

1 

TS 

MPAC  +2 

1 2 

REF 

514 

LAST 

1046 

00,2066 

56  154 

1 

XCH 

MPAC 

1233 

00,2067 

0 0006 

1 

EXTEND 

1234 

RFF 

20 

LAST 

1046 

00,2070 

7 0135 

1 

MP 

MPTEMP 

1235 

REF 

5 15 

LAST 

1046 

00,2071 

20  155 

1 

DAS 

MPAC 

1236 

REF 

272 

LAST 

1041 

00,2072 

0 0002 

0 

TC 

0 

1237 

REF 

21 

LAST 

1046 

00,2073 

3 0135 

0 

VSHRRND 

CA 

MPTEMP 

1238 

00,2074 

0 0006 

1 

EXTEND 

12  J 

REF 

516 

LAST 

1046 

00,2075 

7 0155 

1 

MP 

MPAC  +1 

1240 

REF 

517 

LAST 

1046 

00,2076 

54  L55 

1 

TS 

MPAC  +1 

124  1 

REF 

212 

LAST 

1046 

00,2077 

56  001 

0 

XCH 

L 

1242 

REF 

1 

00,2100 

1 2060 

1 

TCF 

VSHR2 

17:11  MAR.  19,1971  SKIPPER 
USER' S PAGE  NO.  47 
MP AC, +1. 


.131  PAGE  1046 
E3  S3 


ORIGINAL  CIMPAC  +1) . 
GUARANTEED  NO  OVERFLOW. 


WE  HAVE  TO  DO  ALL  THREE  MULTIPLIES  SINCE 
MP  AC  +1  ANO  MP AC  +2  MIGHT  HAVE  SIGN 
DISAGREEMENT  WITH  A SHIFT  RIGHT  OF  1. 


TRIAL  MINOR  PART. 


(FINISH  VECTOR  COMPONENT  SHIFT  RIGHT 
AND  ROUND. 

GUARANTEED  NO  OVERFLOW. 


SETTING  TO  ZERO  SO  FOLLOWING  DAS  WORKS. 


AGAIN  NO  OVERFLOW. 


ENTRY  TO  SHIFT  RIGHT  ANO  ROUND  MPAC  WHEN 
MP  AC  CONTAINS  A VECTOR  COMPONENT. 


GO  ADD  ONE  IF  NECESSARY  AND  FINISH 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  20211 12-161 


L INTERPRETER 


P 124  3 ROUTINE  FOR  SHORT  SCALAR  SHIFT  LEFT  (AND  MAYBE  ROUND). 


124  4 

REF 

13 

LAST 

1045 

00,2101 

3 0021 

l 

T SSL 

CA 

SR 

1245 

REF 

22 

LAST 

1046 

00,2102 

54  135 

1 

+ 1 

TS 

MPTEMP 

1246 

00,2103 

0 0006 

1 

+ 2 

EXTEND 

1247 

REF 

518 

LAST 

1046 

00,2104 

3 0156 

0 

DC  A 

M P AC  +1 

124  8 

REF 

519 

LAST 

1047 

00,2105 

20  156 

l 

DAS 

MPAC  +1 

1249 

REF 

520 

LAST 

1047 

00,2106 

6 0 1 54 

1 

AD 

M P AC 

1250 

REF 

521 

LAST 

1047 

00,2 107 

6 0154 

1 

AD 

MPAC 

1251 

REF 

522 

LAST 

104  7 

00,2110 

54  154 

0 

TS 

MPAC 

1252 

00,2111 

1 2113 

1 

TCF 

+ 2 

1253 

REF 

6 

LAST 

1031 

00,2112 

54  121 

1 

TS 

OVFIND 

A 1 2 5 4 

1255 

REF 

23 

LAST 

1047 

00,2113 

10  135 

1 

CCS 

MPTEMP 

1256 

REF 

2 

LAST 

1045 

00,2114 

1 2102 

l 

TCF 

T SSL  +1 

1257 

REF 

28 

LAST 

1045 

00, 2115 

10  020 

1 

CCS 

CYR 

1258 

REF 

2 

LAST 

1042 

00,2116 

0 7157 

0 

ROUND 

TC 

R0UNDSU8 

1254 

REF 

25 

LAST 

1046 

00 , 2 1 L7 

1 6102 

0 

TCF 

DANZIG 

1260 

REF 

26 

LAST 

1047 

00,2120 

1 6102 

0 

TCF 

DANZIG 

17:  L 1 MAR.  19,1971  SKIPPER  .131 


PAGE  1047 


USER'S  PAGE  NO.  48  E3  S3 


GET  SHIFT  CnUNT  FOR  SR. 


ENTRY  HERE  FROM  SL  FOR  SCALARS. 
SHIFTING  LEFT  ONF  PLACE  AT  A TIME  IS 
FASTER  THAN  DOING  THE  WHOLE  SHIFT  WITH 
MULTIPLIES  ASSUMING  THAT  FREQUENCY  OF 
SHIFT  COUNTS  GOES  DOWN  RAPIDLY  AS  A 
FUNCTION  OF  THEIR  MAGNITUDE. 

OVERFLOW.  (LEAVES  OVERFLOW-CORRECTED 
RESULT  ANYWAY). 

LOOP  ON  DECREMENTED  SHIFT  COUNT. 


SEE  IF  ROUND  WANTED . 

YFS  - ROUND  AND  EXIT. 

SL  LEAVES  A ZERO  IN  CYR  FOP  NO  ROUND. 
NO  - EXIT  IMMEDIATE 


GAP: 


ASSEMBLE  REVISION  210  CF  AGO  PROGRAM  LUMINARY  8Y  NASA  2021U2-161 


L INTERPRETER 

P 126 l VFCTOR  SHIFTING  ROUTINES. 


126  2 

REF 

2 

LAST 

243 

00,2121 

3 4750 

1 

SHORTV 

CAF 

L0W3 

1263 

REF 

29 

LAST 

1047 

00,2122 

7 0020 

l 

MASK 

CYR 

1264 

REF 

24 

LAST 

1047 

00,2123 

54  135 

1 

TS 

MPTEMP 

1265 

REF 

30 

LAST 

1048 

00,2124 

10  020 

1 

CCS 

CYR 

1266 

REF 

1 

00,2125 

1 2 145 

1 

TCF 

VSSL 

1267 

00,2126 

0 0 176 

1 

0CT176 

OCT 

176 

1268 

REF 

25 

LAST 

1048 

00,2  127 

50  135 

0 

V SSR 

INDEX 

MPTEMP 

1269 

REF 

59 

LAST 

1045 

00,2130 

3 4727 

1 

CAF 

B IT14 

1270 

REF 

26 

LAST 

1048 

00,2131 

54  135 

1 

TS 

MPTEMP 

1271 

REF 

1 

00,2132 

0 2073 

l 

TC 

VSHRRND 

1272 

REF 

5 23 

LAST 

1047 

00,2133 

52  155 

l 

DXCH 

M P AC 

1273 

REF 

524 

LAST 

1048 

00,2134 

52  160 

l 

DXCH 

M P AC  +3 

1274 

REF 

525 

LAST 

1048 

00,2135 

52  155 

1 

DXCH 

MPAC 

1275 

REF 

2 

LAST 

1048 

00,2136 

0 2073 

l 

TC 

VSHRRND 

1276 

REF 

526 

LAST 

1048 

00,2137 

52  155 

1 

DXCH 

MPAC 

1277 

REF 

527 

LAST 

1048 

00,2140 

52  162 

0 

DXCH 

MPAC  +5 

1278 

REF 

528 

LAST 

1048 

00,2141 

52  155 

1 

DXCH 

MPAC 

1279 

RFF 

3 

LAST 

1048 

00,2142 

0 20  73 

l 

TC 

VSHRRND 

1280 

REF 

I 

00,2  143 

l 7441 

0 

TCF 

V ROT A TEX 

17=11  MAR.  19,1971  SKIPPER  .131  PAGE  1048 


USER'S  PAGE  NO.  49  E3  S3 

SAVE  3 BIT  SHIFT  COUNT  - 1 WITHOUT 
EDITING  CYR. 

SEE  IF  LEFT  OR  RIGHT  SHIFT. 

VECTOR  SHIFT  LEFT. 

USED  IN  PROCESSED  SHIFTS  WITH  - COUNT. 

(ENTRY  FROM  SR).  PICK  UP  SHIFTING  BIT. 
MPTEMP  CONTAINS  THE  SHIFT  COUNT  - 1. 

SHIFT  X COMPONENT. 

SWAP  X AND  Y COMPONENTS. 

SHIFT  Y COMPONENT. 

SWAP  Y AND  Z COMPONENTS. 

SHIFT  Z COMPONENT. 

RESTORF  COMPONENTS  TO  PROPER  PLACES. 


GAP: 

ASSEMBLE 

REVISION  210 

GF  A GC  PROGRAM  LUMINARY  BY 

NASA  2021112-161 

17:11  MAR.  19,1971 

SKIPPER  .131  PAGE  1049 

L 

INTERPRETER 

USER'S  PAGE 

NO.  50  E3  S3 

P1281 

VECTOR 

SHIFT 

LEFT  - 

DONE  ONE 

PLACE  AT  A TIME. 

1282 

REF 

27 

LAST 

1048 

00,2144 

54  135 

1 -1 

TS 

MPTEMP 

SHIFT ING  LOOP. 

1203 

00,2145 

0 0006 

1 VSSL 

EXTEND 

128  A 

REF 

529 

LAST 

1048 

00,2146 

3 0155 

0 

DC  A 

M P AC 

1285 

REF 

530 

LAST 

1049 

00,2  147 

20  155 

l 

DAS 

MPAC 

1286 

00,2150 

0 0006 

1 

EXTENO 

1207 

00,2151 

1 2153 

0 

BZF 

+ 2 

1288 

REF 

3 

LAST 

1031 

00,2152 

0 7040 

l 

TC 

OVERFLOW 

1289 

00,2153 

0 0C06 

l 

EXTEND 

1290 

REF 

531 

LAST 

1049 

00, 2154 

3 0160 

0 

DC  A 

MPAC  +3 

129  1 

REF 

532 

LAST 

1049 

00,2155 

20  160 

1 

DAS 

MPAC  +3 

1292 

00,2156 

0 0006 

1 

EXTEND 

129  5 

00,2157 

1 2161 

1 

BZF 

+ 2 

1294 

REF 

4 

LAST 

1041 

00,2160 

0 7035 

0 

TC 

OVERFLWY 

1295 

00,2161 

0 0006 

1 

EXTEND 

129  6 

REF 

533 

LAST 

1049 

00,2162 

3 0162 

1 

DC  A 

MPAC  +5 

1297 

REF 

534 

LAST 

1049 

00,2163 

20  162 

0 

DAS 

MPAC  +5 

1298 

00,2164 

0 C006 

1 

EXTEND 

1299 

00,2165 

1 2167 

1 

BZF 

+ 2 

1 3 ' 

REF 

4 

LAST 

1040 

00,2166 

0 7032 

1 

TC 

OVERFLWZ 

1301 

REF 

28 

LAST 

1049 

00,2167 

10  135 

1 

CCS 

MPTEMP 

LOOP  ON  DECREMENTED  SHIFT  COUNTER. 

i 

REF 

2 

LAST 

1048 

00,2170 

1 2144 

0 

TCF 

VSSL  -1 

130  3 

REF 

27 

LAST 

1047 

00,2171 

1 6102 

0 

TC  F 

DANZIG 

EXIT. 

GAP: 


ASSEMBLE  REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161 


17:11  MAR.  19,1971  SKIPPER  .131  PAGE  1050 


L INTERPRETER  USER'S  PAGE  NO.  51  F3  S3 

P 1 30  4 T SLC  - TRIPLE  SHIFT  LEFT  AND  COUNT.  SHIFTS  MPAC  LEFT  UNTIL  GREATER  THAN  .5  IN  MAGNITUDE,  LEAVING 


K 1306 

THE 

COFPLE  MENT 

OF  THE 

NUMBER 

OF 

SHIFTS 

REQUIRED 

IN  X . 

1307 

REF 

29 

LAST 

1049 

00,2172 

54 

135 

1 

TSLC2 

TS 

MPTEMP 

START  BY  ZEROING  SHIFT  COUNT  (IN  A NOW) 

1308 

REF 

4 

LAST 

1034 

00,2173 

0 

6 744 

0 

TC 

BRANCH 

EXIT  WITH  NO  SHIFTING  IF  ARGUMENT  ZERO. 

1309 

00,2174 

1 

2 176 

L 

TCF 

+ 2 

1310 

REF 

1 

00,2175 

1 

2212 

0 

TCF 

ENDTSLC 

STORES  ZERO  SHIFT  COUNT  IN  THIS  CASF. 

131  1 

REF 

12 

LAST 

853 

00, 2176 

0 

7300 

0 

TC 

TPAGREE 

MAY  CAUSE  UPSHIFT  OF  ONE  EXTRA  PLACE. 

1312 

REF 

535 

LAST 

1049 

00,2177 

3 

Cl  54 

1 

CA 

MPAC 

BEGIN  NORMALIZATION  LOOP. 

1313 

REF 

1 

00,2200 

l 

2207 

1 

TCF 

T SLCTEST 

1314 

REF 

30 

LAST 

1050 

00,2201 

24 

135 

0 

TSLCLOOP 

INCR 

MPTEMP 

increment  shift  COUNTER. 

L 31  5 

00,2202 

0 

0006 

I 

EXTEND 

1316 

REF 

536 

LAST 

1050 

00,2203 

3 

0156 

0 

DC  A 

MPAC  +1 

1317 

REF 

537 

LAST 

1050 

00,2204 

20 

156 

1 

DAS 

MPAC  +1 

1318 

REF 

538 

LAST 

1050 

00,2205 

6 

0154 

1 

AD 

MPAC 

1319 

REF 

539 

LAST 

1050 

00,2206 

26 

154 

0 

ADS 

MPAC 

132  0 

C 0,2207 

6 

0000 

1 

T SLCTEST 

DOUBLE 

SEE  IF  (ANOTHER)  SHIFT  IS  REQUIRED. 

132  1 

00,2210 

54 

COO 

0 

OVSK 

1322 

REF 

1 

00,2211 

1 

2201 

1 

TCF 

TSLCLOOP 

YFS  - INCREMENT  COUNT  AND  > SH I F T AGAIN. 

1323 

REF 

31 

LAST 

1050 

00,2212 

4 

0135 

1 

ENDTSLC 

CS 

MPTEMP 

1324 

REF 

1 

00,2213 

1 

6644 

0 

TCF 

STORE  1 

STORE  SHIFT  COUNT  AND  RETURN  TO  DANZIG. 

GAP:  ASSEMBLE  REVISION  210  OE  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


17:11  MAR.  19,1971  SKIPPER  .131 


PAGE  1051 


L INTERPRETER 


USER'S  PAGE  NO.  52  E3  S3 


P 132 5 THE  FOLLOWING  ROUTINES  PROCESSES  THE  GENERAL  SHIFT  INSTRUCTIONS  SR,  SRR , SL,  AND  SLR. 

R1J2/  THE  GIVEN  ADDRESS  IS  DECODED  AS  FOLLOWS: 


R 1 32  8 BITS  1-7  SHIFT  COUNT  (SUBADDRESS)  LESS  THAN  125  DECIMAL. 

R 1 32  9 BIT  B PSEUDO  SIGN  BIT  (DETECTS  CHANGE  IN  SIGN  IN  INDEXED  SHIFTS). 

R 1 33 1 BIT  9 0 FOR  LEFT  SHIFT,  AND  1 FOR  RIGHT  SHIFT. 

R 133  2 BIT  10  1 FOR  TERMINAL  ROUND  ON  SCALAR  SHIFTS,  0 OTHERWISE. 

R1333  BITS  11-13  0. 

R 1334  BIT  14  1. 

R1335  BIT  15  0. 

R1336  THE  ABOVE  ENCODING  IS  DONE  BY  THE  YUL  SYSTEM. 


1337 

REF 

74 

LAST 

1044 

00,2214 

7 

0116 

0 

GENSHIFT  MASK 

AODRWD 

GET  SHIFT  COUNT,  TESTING  FDR  ZFRO. 

1338 

REF 

321 

LAST 

1041 

00, 2215 

10 

000 

0 

CCS 

A 

(ARRIVES  WITH  C ( A ) = L0W7). 

133  9 

REF 

1 

00,2216 

1 

2224 

0 

TCF 

GENSHFT2 

IF  NON-ZERO,  PROCEED  WITH  DECREMENTED  CT 

1340 

REF 

31 

LAST 

908 

00,22  17 

3 

4733 

1 

CAF 

B IT  10 

ZERO  SHIFT  COUNT.  NO  SHIFTS  NEEDED  BUT 

134  1 

REF 

75 

LAST 

1051 

00,2220 

7 

0116 

0 

MASK 

ADDRWD 

WE  MIGHT  HAVF  TO  ROUND  MPAC  ON  SLR  AND 

1342 

REF 

322 

LAST 

1051 

00,2221 

10 

000 

0 

CCS 

A 

SRR  ( SCALAR  ONLY) . 

1343 

REF 

3 

LAST 

1047 

00,2222 

0 

7157 

0 

TC 

ROUNDSUB 

1344 

REF 

28 

LAST 

1049 

00,2223 

1 

6 102 

0 

TCF 

DANZIG 

1345 

REF 

32 

LAST 

1050 

00,2224 

54 

135 

1 

GENSHFT2  TS 

MPTEMP 

DECREMENTED  SHIFT  COUNT  TO  MPTEMP. 

134  6 

REF 

37 

LAST 

998 

00,2225 

3 

4735 

1 

CAF 

B IT8 

TEST  MEANING  OF  LOW  SEVEN  BIT  COUNT  IN 

134  7 

00,2226 

0 

0006 

1 

EXTEND 

MPTEMP  NOW. 

1348 

REF 

76 

LAST 

1051 

00,2227 

7 

C 116 

0 

MP 

AODRWD 

1349 

REF 

1 

00,2230 

7 

6266 

1 

MASK 

L0W2 

JUMPS  ON  SHIFT  DIRECTION  (BIT8)  AND 

1350 

REF 

323 

LAST 

1051 

00,2231 

50 

000 

1 

INDEX 

A 

1351 

00,2232 

1 

2233 

0 

TCF 

+ 1 

ORIGINAL  SHIFT  DIRECTION  (BIT  9). 

1352 

REF 

1 

00,2233 

1 

2332 

0 

TCF 

R IGHT- 

NEGATIVE  SHIFT  COUNT  FOR  SL  OR  SLR. 

1353 

REF 

1 

00,2234 

1 

2342 

1 

TCF 

LEFT 

SL  OR  SLR. 

1354 

REF 

l 

00,2235 

l 

2336 

l 

TCF 

LEFT- 

NEGATIVE  SHIFT  COUNT  WITH  SR  OR  SRR. 

GAP: 


ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L INTERPRETER 


P1355 

GENERAL  SHI  FT  P I GHT  . 

1356 

REF 

26 

LAST 

1044 

00,2236 

10  163 

1 

R I GHT 

CCS 

MODE 

1357 

REF 

l 

00,2237 

1 2277 

0 

TCF 

GENSCR 

1358 

REF 

2 

LAST 

1052 

00,2240 

l 2277 

0 

TCF 

GENSCR 

1359 

REF 

33 

LAST 

1051 

00,2241 

3 0135 

0 

CA 

MPTEMP 

136  0 

REF 

1 

00,2242 

6 3733 

0 

VP  IGHT2 

AD 

N EG  1 2 

1361 

00,2243 

0 C006 

1 

EXTEND 

1362 

REF 

1 

00,2244 

6 2127 

1 

BZMF 

VSSR 

1363 

REF 

9 

LAST 

1041 

00,2245 

6 7 7 70 

0 

AD 

NEGONF 

1 364 

REF 

34 

LAST 

1052 

00,2246 

54  135 

l 

TS 

MPTEMP 

1365 

REF 

2C5 

LAST 

1046 

00, 2247 

3 4 746 

0 

CAF 

ZERO 

1366 

REF 

2 13 

LAST 

1046 

00,2250 

54  001 

1 

TS 

L 

1367 

REF 

5 40 

LAST 

105C 

00,2251 

56  154 

1 

XCH 

M P AC 

136  8 

REF 

541 

LAST 

1052 

00,2252 

56  155 

0 

XCH 

MPAC  +1 

1369 

REF 

1 

00,2253 

0 2272 

1 

TC 

SETROUNO 

1370 

REF 

542 

LAST 

1052 

00,2254 

20  155 

l 

DAS 

MPAC 

A137  1 

1372 

REF 

543 

LAST 

1052 

00,2255 

56  157 

L 

XCH 

MPAC  +3 

1373 

REF 

544 

LAST 

1052 

00,2256 

56  160 

0 

XCH 

MPAC  +4 

1374 

REF 

2 

LAST 

1052 

00,2257 

C 2272 

1 

TC 

SETROUND 

1375 

REF 

545 

LAST 

1052 

00,2260 

20  160 

1 

DAS 

MPAC  +3 

1376 

REF 

546 

LAST 

1052 

00,2261 

56  161 

1 

XCH 

MPAC  +5 

1377 

REF 

547 

LAST 

1052 

00,2262 

56  162 

1 

XCH 

MPAC  +6 

1378 

REF 

3 

LAST 

105  2 

00,2263 

0 2272 

1 

TC 

SETROUND 

1379 

REF 

548 

LAST 

1052 

00,2264 

20  162 

0 

DAS 

MPAC  +5 

1380 

REF 

35 

LAST 

1052 

00,2265 

10  135 

1 

CCS 

MPTEMP 

138  L 

REF 

36 

LAST 

1052 

00,2266 

54  135 

1 

TS 

MPTEMP 

138  2 

REF 

1 

00,2267 

1 2242 

0 

TCF 

VRIGHT2 

1383 

00,2270 

04604 

1 

B I ASLO 

DEC 

.2974  8- 

1384 

REF 

29 

LAST 

1051 

00,2271 

l 6102 

0 

TCF 

OANZ IG 

1385 

00,2272 

6 0000 

1 

S FT  ROUND  DOUBLE 

1386 

REF 

549 

LAST 

1052 

00,2273 

54  156 

1 

TS 

MPAC  +2 

1387 

KEF 

2C6 

LAST 

1052 

00,2274 

3 4746 

0 

CAF 

ZERO 

1388 

REF 

2 14 

LAST 

1052 

00,2275 

56  001 

0 

XCH 

L 

1389 

REF 

273 

LAST 

1046 

00,2276 

0 0 C02 

0 

TC 

Q 
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SEE  IF  VECTOR  OR  SCALAR. 


SEE  IF  SHIFT  COUNT  LESS  THAN  140. 


IF  SO,  BRANCH  AND  SHIFT  IMMEDIATELY. 

IF  NOT,  REDUCE  MPTEMP  BY  A TOTAL  OF  14, 
AND  DO  A SHIFT  RIGHT  AND  ROUND  BY  14. 
THE  ROUND  AT  THIS  STAGE  MAY  INTRODUCE  A 
ONE  BIT  ERROR  IN  A SHIFT  RIGHT  15D. 


X COMPONENT  NOW  SHIFTED,  SO  MAKE  UP  THE 
ROUNDING  QUANTITY  (0  IN  A AND  0 OR  +- 1 
IN  LI. 

REPEAT  THE  ABOVE  PROCESS  FOR  Y AND  7. 


NO  OVERFLOW  ON  THESE  ADDS. 


SFE  IF  DONE,  DOING  FINAL  DECREMENT. 


SORT  CONSTANT 


MAKES  UP  ROUNDING  QUANTITY  FROM  ARRIVING 
CIA).  L IS  ZERO  INITIALLY. 


RETURN  AND  DO  THE  DAS,  RESETTING  L TO  0 


GAP: 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY 


L INTERPRETER 


P 1 39  0 

PROCESS  SR 

1391 

REF 

3 7 

LAST 

1052 

1392 

REF 

2 

LAST 

1052 

1393 

1394 

REF 

1 

1395 

REF 

10 

LAST 

1052 

1396 

REF 

38 

LAST 

1053 

1397 

REF 

207 

LAST 

1052 

1398 

REF 

550 

LAST 

1052 

1399 

REF 

551 

LAST 

1053 

1400 

REF 

552 

LAST 

1053 

1401 

REF 

39 

LAST 

1053 

1402 

REF 

40 

LAST 

1053 

1403 

REF 

3 

LAST 

1052 

1404 

1405 

REF 

32 

LAST 

1051 

1406 

REF 

77 

LAST 

1051 

1407 

REF 

3 24 

LAST 

1051 

1408 

REF 

4 

LAST 

1051 

1409 

REF 

30 

LAST 

1052 

1410 

REF 

41 

LAST 

1053 

141  1 

REF 

60 

LAST 

1048 

1412 

REF 

42 

LAST 

1053 

1413 

REF 

33 

LAST 

1053 

1414 

REF 

78 

LAST 

1053 

1415 

REF 

325 

LAST 

1053 

141  6 

REF 

L 

1417 

REF 

1 

SRR 

FCR  SCALARS 

• 

2277 

3 C135 

0 

GENSCR 

2300 

6 3733 

0 

+ 1 

2301 

0 0C06 

1 

230  2 

6 2322 

0 

2303 

6 7 770 

0 

+4 

2304 

54  135 

1 

2305 

3 4746 

0 

2306 

56  154 

1 

2307 

56  155 

0 

2310 

54  156 

1 

2311 

10  135 

1 

2 312 

54  135 

1 

2313 

0 2300 

0 

2314 

22650 

1 

SLOP  EH  I 

2315 

3 4733 

1 

2316 

7 C 1 16 

0 

2317 

1C  000 

0 

2 3 20 

0 7157 

0 

2321 

1 6102 

0 

2322 

50  135 

0 

DOSSHFT 

2323 

3 4727 

1 

2324 

54  135 

1 

2325 

3 4733 

1 

2326 

7 0116 

0 

2 J 2 7 

10  000 

0 

2330 

1 2031 

0 

2331 

L 2033 

1 

AND 

00 

CO 

'00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00, 

00, 

00, 

00, 

00, 

00, 

00, 

00, 

00, 

00, 

00, 


ASA  2021112-161 
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CA 

M PTE  MP 

SEE  IF  THE  ORIGINAL  SHIFT  COUNT  WAS  LESS 

AD 

N EG  1 2 

THAN  14D. 

EXTEND 

BZMF 

DOSSHFT 

DO  THE  SHIFT  IMMEDIATELY  IF  SO. 

AD 

NEGONE 

IF  NOT,  DECREMENT  SHIFT  COUNT  BY  140  AND 

TS 

M PTE  MP 

SHIFT  MPAC  RIGHT  14  PLACES. 

CAF 

ZERO 

XCH 

MPAC 

XCH 

M P AC  +1 

TS 

MPAC  +2 

CCS 

MPTEMP 

SEE  IF  FINISHED,  DO  FINAL  DECREMENT . 

TS 

M PTE  MP 

TC 

GENSCR  +1 

DEC 

.5884 

SORT  CONSTANT. 

CAF 

BIT10 

FINISHED  WITH  SHIFT.  SEE  IF  ROUND 

MASK 

ADDRWD 

WANTED. 

CCS 

A 

TC 

ROUNDSUB 

TCF 

DANZIG 

DO  SO  AND/OR  EXIT. 

INDEX 

MPTEMP 

PICK  UP  SHIFTING  BIT. 

CAF 

B IT14 

TS 

MPTEMP 

CAF 

BIT10 

SEE  IF  TERMINAL  ROUND  DESIRED. 

MASK 

ADDRWD 

CCS 

A 

TCF 

R IGHTR 

YES. 

TCF 

MPACSHR 

JUST  SHIFT  RIGHT. 

GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L INTERPRETER 

p 141 8 PROCESS  THE  RIGHT-  (SLtR)  WITH  A NEGATIVE  COUNT),  LEFT- 


142  0 

REF 

43 

LAST 

1053 

00,2332 

4 

0135 

L 

R IGHT- 

CS 

MPTEMP 

142  1 

REF 

1 

00,2333 

6 

2126 

0 

AD 

0CT176 

142  2 

REF 

44 

LAST 

1054 

00,2334 

54 

135 

1 

TS 

MPTEMP 

142  3 

REF 

1 

00,2335 

1 

2236 

0 

TCF 

R IGHT 

1424 

REF 

2 

LAST 

1054 

00,2336 

4 

2126 

1 

LEFT- 

CS 

0CT1 76 

1425 

REF 

45 

LAST 

1054 

00,2337 

6 

0135 

0 

AD 

MPTEMP 

142  6 

00,2340 

4 

0 000 

0 

COM 

142  7 

REF 

46 

LAST 

1054 

00,2341 

54 

135 

1 

TS 

MPTEMP 

1428 

REF 

27 

LAST 

1052 

00,2342 

10 

163 

1 

LEFT 

CCS 

MODE 

1429 

REF 

1 

00,2343 

1 

2346 

0 

TCF 

GENSCL 

1430 

REF 

2 

LAST 

1054 

00,2344 

1 

2 3 46 

0 

TCF 

GENSCL 

1431 

REF 

3 

LAST 

1049 

00,2345 

1 

2 145 

1 

TCF 

V SSL 

1432 

REF 

79 

LAST 

1053 

00,2346 

4 

C 116 

0 

GENS  CL 

CS 

ADDRWD 

1433 

00,2347 

0 

0006 

1 

EXTEND 

1434 

REF 

42 

LAST 

938 

00,2350 

7 

4737 

1 

MP 

BIT6 

1435 

REF 

31 

LAST 

1048 

00,2351 

54 

020 

1 

TS 

CYR 

1436 

REF 

3 

LAST 

1047 

00,2352 

1 

2103 

0 

TCF 

TSSL  +2 

17:11  MAR.  19,1971  SKIPPER  .131  PAGE  1054 
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AND  LEFT  OPTIONS. 

GET  ABSOLUTE  VALUE  - 1 OF  SHIFT  COUNT 
UNDERSTANDING  THAT  BIT8  (PSEUDO-SIGN) 

WAS  1 INITIALLY. 

DO  NORMAL  SHIFT  R IGHT  . 

SAME  PROLOGUE  TO  LEFT  FOR  INDEXFD  RIGHT 
SHIFTS  WHOSE  NET  SHIFT  COUNT  IS  NEGATIVE 


SINCE  LEFT  SHIFTING  IS  SONF  ONE  PLACE  AT 
A TIME,  NO  COMPARISON  WITH  14  NEED  BE 
OONE . FOR  SCALARS,  SEE  IF  TERMINAL  ROUND 
DESIRED.  FOR  VECTORS,  SHIFT  IMMEDIATELY. 

PUT  ROUNDING  BIT  (BIT  10  OF  ADORWD (INTO 
BIT  15  OF  CYR  WHFRE  THE  ROUNDING  BIT  OF 
A SHORT  SHIFT  LEFT  WOULD  BE 


DO  THE  SHIFT 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L INTERPRETER 
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P1437  SCALAR  DIVISION  INSTRUCTIONS,  DOV  AND  BDDV , ARE  EXECUTED  HERE.  AT  THIS  POINT,  THE  DIVIDEND  IS  IN  MPAC 


R1439 

AND 

THE 

DIVISOR  IN 

BUF . 

14-4  0 

REF 

55 

LAST 

1043 

00,2353 

4 4744 

0 

DDV/BDDV 

cs 

ONE 

INITIALIZATION. 

1441 

REF 

1 

00,2354 

54  136 

1 

TS 

DVSIGN 

+-1  FOR  POSITIVE  QUOTIENT  - -0  FOR  NEG. 

1442 

REF 

1 

00,2355 

54  137 

0 

TS 

DVNORMCT 

DIVIDEND  NORMALIZATION  COUNT. 

1443 

REF 

1 

00,2356 

54  140 

0 

TS 

MAXD VSW 

NEAR-ONE  DIVIDE  FLAG. 

1444 

REF 

93 

LAST 

1043 

00,2357 

10  130 

1 

CCS 

BUF 

FORCE  BUF  POSITIVE  WITH  THE  MAJOR  PART 

144  5 

REF 

1 

00,2360 

1 2516 

0 

TCF 

BUFPOS 

NON-ZERO. 

1446 

00,2361 

1 23  63 

1 

TCF 

+ 2 

1447 

REF 

1 

00,2362 

1 2531 

0 

TCF 

BUFNEG 

1443 

REF 

553 

LAST 

1053 

00,2363 

54  156 

1 

BUFZ ERO 

TS 

MPAC  +2 

ZERO  THIS. 

144  9 

REF 

13 

LAST 

1050 

00,2364 

0 7300 

0 

TC 

TPAGREE 

FORCE  SIGN  AGREEMENT  BEFORE  OVERFLOW 

1450 

REF 

554 

LAST 

1055 

00,2365 

10  154 

0 

CCS 

MPAC 

TEST  TO  SEE  IF  MPAC  NON-ZFRO.  (TOO  RIG) 

1451 

REF 

1 

00,2366 

1 2414 

0 

TCF 

0 VF  + 

MAJOR  PART  OF  DIVIDEND  IS  POSITIVE  NON-O 

1452 

00,2367 

1 2371 

1 

TCF 

+ 2 

145  3 

REF 

2 

LAST 

1055 

00,2370 

1 2413 

1 

TCF 

0 VF+  -1 

MAJOR  PART  OF  DIVIDEND  IS  NEG.  NON-ZERO 

1454 

REF 

94 

LAST 

1055 

00,2371 

56  131 

1 

XCH 

BUF  +1 

SHIFT  DIVIDEND  AND  DIVISOR  LFFT  14. 

1455 

REF 

95 

LAST 

1055 

00,2372 

56  130 

0 

XCH 

BUF 

1456 

REF 

555 

LAST 

1055 

00,2373 

56  155 

0 

XCH 

MPAC  +1 

1457 

REF 

556 

LAST 

1055 

00,2374 

56  154 

1 

XCH 

MPAC 

1458 

REF 

96 

LAST 

1055 

00,2375 

1C  130 

1 

CCS 

8UF 

TRY  AGAIN  ON  FORMER  MINOR  PART. 

1459 

REF 

1 

00,2376 

1 2422 

0 

TCF 

BUF+ 

1460 

00,2377 

1 2401 

1 

TCF 

+ 2 

OVERFLOW  ON  ZERO  DIVISOR. 

146  1 

REF 

1 

00, 2400 

1 2416 

1 

TCF 

BUF- 

1462 

REF 

557 

LAST 

1055 

00,2401 

4 C 1 54 

0 

CS 

MPAC 

SIGN  OF  MPAC  DETERMINES  SIGN  OF  RESULT. 

1463 

00,2402 

0 C006 

1 

SGNDVOVF 

EXTEND 

1464 

00,2403 

6 2405 

1 

BZMF 

+ 2 

1465 

REF 

2 

LAST 

1055 

00,2404 

24  136 

0 

I NCR 

DVSIGN 

NEGMAX  IN  MPAC  PERHAPS. 

1466 

REF 

28 

LAST 

1034 

00,2405 

3 4724 

l 

DVOVF 

CAF 

POSMAX 

ON  DIVISION  OVERFLOW  OF  ANY  SORT,  SET 

1467 

REF 

558 

LAST 

1055 

00,2406 

54  154 

0 

TS 

MPAC 

SET  DP  MPAC  TO  +— POSMAX . 

1468 

REF 

l 

00,2407 

0 2630 

0 

TC 

FINALDV  +3 

1469 

REF 

96 

LAST 

1055 

00,2410 

3 4 744 

1 

CAF 

ONE 

SET  OVERFLOW  INDICATOR  AND  EXIT. 

1470 

REF 

7 

LAST 

1047 

00,2411 

54  121 

1 

TS 

OVFIND 

1471 

REF 

31 

LAST 

1053 

00,2412 

0 6102 

1 

TC 

DANZIG 

1472 

REF 

3 

LAST 

1055 

00,2413 

24  136 

0 

- 1 

INCR 

DVSIGN 

1473 

REF 

97 

LAST 

1055 

00,2414 

4 0131 

0 

0 VF+ 

CS 

BUF  +1 

LOAD  LOWFR  ORDER  PART  OF  DIVISOR. 

1474 

REF 

1 

00,2415 

1 2402 

1 

TCF 

SGNDVOVF 

GET  SIGN  OF  RESULT. 

1475 

00,2416 

0 0006 

1 

BUF- 

EXTEND 

IF  BUF  IS  NEGATIVE, 

COMPLEMENT  IT  AND 

1476 

REF 

98 

LAST 

1055 

00,2417 

4 0131 

0 

DCS 

BUF 

MAINTAIN  DVSIGN  FOR 

FINAL  QUOTIENT  SIGN. 

1477 

REF 

99 

LAST 

1055 

00,2420 

52  131 

0 

DXCH 

BUF 

1478  ' 

REF 

4 

LAST 

1055 

00,2421 

24  136 

0 

INCR 

DVSIGN 

NOW  -0. 

ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  8Y  NASA  202L112-16L 


GAP: 

L INTERPRETER 


1479 

REF 

559 

LAST 

1055 

00,2422 

10 

154 

0 

8UF+ 

CCS 

MPAC 

1480 

REF 

1 

00,2423 

l 

2437 

1 

TCF 

MPAC 

1481 

00,2424 

1 

2426 

1 

TCF 

+ 2 

1482 

REF 

1 

00,2425 

1 

2433 

0 

TCF 

MPAC 

1483 

REF 

560 

LAST 

1056 

00,2426 

10 

155 

1 

CCS 

MPAC 

1484 

REF 

2 

LAST 

1056 

00,2427 

1 

2437 

1 

TCF 

MPAC 

1485 

REF 

32 

LAST 

1055 

00,2430 

1 

6 102 

0 

TCF 

DANZ 

1486 

REF 

2 

LAST 

1056 

00,2431 

1 

2433 

0 

TCF 

MPAC 

1487 

REF 

33 

LAST 

1056 

00,2432 

1 

6102 

0 

TCF 

DANZ 

1488 

00,2433 

0 

CC06 

1 

MPAC- 

EXTEND 

1489 

REF 

56  1 

LAST 

1056 

00,2434 

4 

C 1 55 

1 

DCS 

MPAC 

1490 

REF 

562 

LAST 

1056 

00,2435 

52 

155 

1 

DXCH 

MPAC 

1491 

REF 

5 

LAST 

1055  , 

CO, 2436 

24 

136 

0 

INC  R 

DVS  I 
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USER'S  PAGE  NO. 

57 

E3 

FORCE  MPAC  POSITIVE, 

CHECKING 

FOR 

DIVIDEND  IN  THE  PROCESS. 


EXIT  IMMEDIATELY  ON  ZERO  DIVIDEND 

FORCE  MP AC  POSITIVE  AS  BUF  IN  BUF 
NOW  +1  OR  -0. 


S3 

ZERO 


GAP: 


ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 


L INTERPRETER 


1492 

REF 

563 

LAST 

1056 

00,2437 

4 C 1 54 

0 

MPAC  + 

CS 

MP  AC 

1493 

REF 

l 1 

LAST 

1053 

00,2440 

6 7770 

0 

AD 

NEGONE 

1494 

REF 

100 

LAST 

1055 

00,2441 

6 C 1 30 

0 

AD 

BUF 

1495 

REF 

326 

LAST 

1053 

00,2442 

10  000 

0 

CCS 

A 

1496 

REF 

1 

00,2443 

1 2505 

1 

TCF 

DVNORM 

149  7 

00,2444 

6C001 

0 

-1/2  + 2 

OCT 

60001 

1498 

00,2445 

1 2446 

1 

TCF 

+ 1 

1499 

REF 

16 

LAST 

1041 

00,2446 

3 4727 

1 

CAF 

HALF 

1500 

00,2447 

6 COOO 

1 

DOUBLE 

1501 

REF 

564 

LAST 

1057 

00,2450 

6 0155 

0 

AD 

MPAC  +1 

150  2 

REF 

565 

LAST 

IC57 

00,2451 

54  155 

1 

TS 

M P AC  +1 

1503 

REF 

2C8 

LAST 

1053 

00,2452 

3 4 746 

0 

CAF 

ZERO 

1504 

RFF 

29 

LAST 

1055 

00,2453 

6 4724 

1 

AD 

POSMAX 

1505 

REF 

566 

LAST 

1057 

00,2454 

26  154 

0 

ADS 

MPAC 

1506 

REF 

17 

LAST 

1057 

00,2455 

3 4727 

1 

CAF 

HALF 

1507 

00,2456 

6 COOO 

l 

DOUBLE 

150  8 

REF 

101 

LAST 

1057 

00,2457 

6 C 13  1 

l 

AD 

BUF  +1 

1509 

REF 

102 

LAST 

1057 

00,2460 

54  131 

0 

TS 

BUF  +1 

1510 

REF 

209 

LAST 

1057 

00,2461 

3 4 746 

0 

CAF 

ZERO 

151  1 

REF 

30 

LAST 

1057 

00,2462 

6 4724 

l 

AD 

POSMAX 

1512 

REF 

1C3 

LAST 

1057 

00,2463 

26  130 

1 

ADS 

BUF 

1513 

REF 

567 

LAST 

1057 

00,2464 

4 C 1 54 

0 

CS 

MPAC 

1514 

REF 

1C4 

LAST 

1057 

00,2465 

6 0130 

0 

AD 

BUF 

1515 

REF 

327 

LAST 

1057 

00,2466 

10  000 

0 

CCS 

A 

1516 

REF 

2 

LAST 

1057 

00,2467 

1 2505 

1 

TCF 

DVNORM 

151  7 

REF 

15 

LAST 

1037 

00,2470 

OC133 

0 

L BUF  2 

ADRES 

BUF2 

1518 

REF 

1 

00,2471 

1 2405 

0 

TCF 

DVOVF 

1519 

REF 

2 

LAST 

1055 

00,2472 

54  140 

0 

TS 

MAXDVSW 

152  0 

REF 

568 

LAST 

1057 

00,2473 

4 0155 

1 

CS 

MPAC  +1 

152  l 

REF 

1 C 5 

LAST 

1057 

00,2474 

6 C 13  1 

I 

AD 

BUF  +1 

1522 

00,2475 

0 0006 

1 

EXTEND 

1523 

REF 

2 

LAST 

1057 

00,2476 

6 2405 

1 

BZMF 

DVOVF 

152  4 

REF 

3 

LAST 

1057 

00,2477 

1 2505 

l 

TCF 

DVNORM 
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USFR 1 S PAGE  NO.  58  E3  S3 

CHECK  FOR  OIVTSION  OVERFLOW.  IF  T HF 
MAJOR  PART  OF  THE  DIVIDEND  IS  LFSS  THAN 
THE  MAJOR  PART  OF  THE  DIVISOR  BY  AT 
LEAST  TWO,  WE  CAN  PROCEFD  IMMEDIATELY 
WITHOUT  NORMALIZATION  PRODUCING  A DVMAX. 
USED  IN  SQRTSUB . 

IF  THE  ABOVE  DOES  NOT  HOLD,  FORCE  SIGN 
AGREEMENT  IN  NUMERATOR  ANO  DENOMINATOR 
TO  FACILITATE  OVERFLOW  AND  NFAR-ONE 
CHECKING. 


SAMF  FOR  BUF. 


CHECK  MAGNITUDE  OF  SIGN-CORRECTED 
OPERANDS . 

DIVIDE  OK  - WILL  NOT  BECOME  MAXDV  CASE. 

DIVISOR  NOT  LESS  THAN  DIVIDEND  - OVF. 

IF  THE  MAJOR  PARTS  OF  THE  DIVIDEND  AND 
DIVISOR  ARF  FOUAL,  A SPECIAL  APPROXIMA- 
TION IS  USED  (PROVIDED  THE  DIVISION  IS 
POSSIBLF,  OF  COURSE) . 


IF  NO  OVERFLOW 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L INTERPRETER 


1525 

00,2500 

0 0006 

1 

BUFNORM 

EXTEND 

152  6 

REF 

2 

LAST 

1055 

00,2501 

24  137 

1 

AUG 

DVNORMCT 

1527 

00,2502 

0 0006 

1 

EXTEND 

1528 

REF 

106 

LAST 

1057 

00,2503 

3 0131 

1 

DC  A 

BUF 

1529 

REF 

l C 7 

LAST 

1058 

00,2504 

20  131 

0 

DAS 

BUF 

1530 

REF 

1 C 8 

LAST 

1058 

00,2505 

3 0130 

0 

DVNDRM 

CA 

BUF 

1531 

00,2506 

6 COOO 

1 

DOUBLE 

153  2 

00,2507 

54  COO 

0 

OVSK 

1533 

REF 

1 

00,2510 

1 2500 

1 

TCF 

BUFNORM 

153  A 

REF 

569 

LAST 

1057 

00,2511 

52  155 

1 

DXCH 

M P AC 

1535 

REF 

3 

LAST 

1058 

00,2512 

50  137 

1 

INDEX 

DVNORMCT 

153  6 

REF 

1 

00,2513 

0 2565 

0 

TC 

MAXTEST 

153  7 

REF 

570 

LAST 

1058 

00,2514 

54  156 

1 

TS 

MPAC  +2 

153  8 

REF 

34 

LAST 

1056 

00,2515 

1 6102 

0 

TCF 

DANZIG 

1 53  9 

REF 

328 

LAST 

1057 

00,2516 

10  000 

0 

BUFPOS 

CCS 

A 

1 540 

REF 

2 

LAST 

1055 

00,2517 

1 2422 

0 

TCF 

BUF+ 

1541 

REF 

109 

LAST 

1058 

00,2520 

4 0131 

0 

CS 

BUF  +1 

1542 

00,2521 

0 0006 

1 

EXTEND 

154  3 

REF 

3 

LAST 

1058 

00,2522 

6 2422 

1 

BZMF 

BUF  + 

154  4 

REF 

18 

LAST 

1057 

00, 2523 

3 4727 

1 

CA 

HALF 

1545 

00,2524 

6 0000 

1 

+ 6 

DOUBLE 

154  6 

REF 

1 10 

LAST 

1058 

00,2525 

26  131 

0 

ADS 

BUF  +1 

154  7 

REF 

210 

LAST 

1057 

00,2526 

3 4 746 

0 

CA 

ZERO 

154  8 

REF 

111 

LAST 

1058 

00,2527 

54  130 

1 

TS 

BUF 

1549 

REF 

1 

00,2530 

1 2363 

1 

TCF 

BUFZERO 

1550 

REF 

329 

LAST 

1058 

00,2531 

10 

1 COO 

0 BUFNEG 

CCS 

A 

1551 

REF 

2 

LAST 

1055 

00,2532 

1 

2416 

1 

TCF 

BUF- 

155  2 

REF- 

112 

LAST 

1058 

00,2533 

3 

C 131 

1 

CA 

BUF  +1 

1553 

00,2534 

0 

0006 

l 

EXTEND 

1554 

REF 

3 

LAST 

1058 

00,2535 

6 

2416 

0 

BZMF 

BUF- 

1555 

REF 

19 

LAST 

1058 

00,2536 

4 

4727 

0 

CS 

H ALF 

1556 

REF 

2 

LAST 

1055 

00,2537 

1 

2524 

1 

TCF 

BUFPDS 
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USER' S PAGE  NO.  59  E3  S3 

ADD  -1  TO  AUGMENT  SHIFT  COUNT  AND  SHIFT 
LEFT  ONE  PLACE. 


SEE  IF  DIVISOR  NORMALIZED  YET. 

NO  - SHIFT  LFFT  ONE  AND  TRY  AGAIN. 

CALL  DIVIDEND  NORMALIZATION  SEQUENCE 
PRIOR  TO  DOING  THE  DIVIDE. 

RFTURNS  WITH  DIVISION  DONE  AND  CIA)  = 0. 


TO  BUF+  IF  BUF  IS  GREATER  THAN  +1. 

IF  BUF  IS  +1,  FORCING  SIGN  AGREEMENT 
MAY  CAUSE  BUF  TO  BECOME  ZFRO. 

BRANCH  IF  SIGNS  AGREE. 

SIGNS  DISAGREE.  FORCE  AGREEMENT. 


TO  BUF-  IF  BUF  IS  LESS  THAN  -1. 

IF  BUF  IS  -1,  FORCING  SIGN  AGREEMENT 
MAY  CAUSE  BUF  TO  BECOME  ZERO. 

BRANCH  IF  SIGNS  AGRFE. 

SIGNS  DISAGREE.  FORCE  AGREEMENT . 


GAP: 


ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-lfcl 


L INTERPRETER 


P 1557 

THE 

FOLLOWING  ARE  PROLOGUES 

TO 

SHIFT  THE  DIVIDEND  ARRIVI 

1559 

REF 

14 

LAST 

1047 

00,2540 

22 

021 

1 

-21  D 

LXCH 

SR 

1560 

00,2541 

0 

C006 

1 

EXTEND 

1561 

REF 

20 

LAST 

1058 

00,2542 

7 

4727 

0 

MP 

HALF 

1562 

REF 

215 

LAST 

1052 

00,2543 

56 

001 

0 

XCH 

L 

1563 

REF 

15 

LAST 

1059 

00,2544 

6 

0021 

1 

AD 

SR 

1564 

REF 

216 

LAST 

1059 

00,2545 

56 

001 

0 

XCH 

L 

156  5 

REF 

1 

00,2546 

L 

2 5 7 L 

1 

TCF 

GENDDV  +1 

156  6 

00,2547 

20 

001 

1 

DDGUBL 

156  7 

00,2550 

20 

001 

1 

DD0U8L 

1568 

00, 2551 

20 

C01 

1 

DOOUBL 

156  9 

00,2552 

20 

001 

1 

DDOUBL 

1570 

00,2553 

20 

001 

1 

DDOUBL 

1571 

00,2554 

20 

001 

1 

DDDUBL 

1572 

00,2555 

20 

001 

1 

DDOUBL 

1573 

00,2556 

20 

COl 

1 

DDOUBL 

1574 

00,2557 

20 

001 

1 

DDOUBL 

1575 

00,2560 

20 

001 

1 

DDOUBL 

1576 

00,2561 

20 

001 

1 

DDOUBL 

1577 

00,2562 

20 

001 

1 

DDOUBL 

1578 

00,2563 

20 

001 

1 

DDOUBL 

1579 

REF 

571 

LAST 

1058 

00,2564 

52 

155 

1 

DXCH 

MPAC 

1580 

REF 

3 

LAST 

1057 

00,2565 

10 

140 

0 

MAXT  EST 

CCS 

MAXDVSW 

1581 

00,2566 

06552 

0 

B I ASH  I 

DEC 

.4192  8-1 

158? 

REF 

1 

00,2567 

1 

2642 

1 

TCF 

M A X D V 

17:11  MAR.  19,1971  SKIPPER 
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USER'S  PAGE  NO.  60  E3  S3 

IN  A AND  L BFFORE  THE  DIVIDE. 

SPECIAL  PROLOGUE  FOR  UNIT  WHEN  THE 
LENGTH  OF  THE  ARGUMENT  WAS  NOT  LESS  THAN 
.5.  I N THIS  CASE,  EACH  COMPONENT  MUST  BE 
SHIFTED  RIGHT  ONE  TO  PRODUCE  A HALF-UNIT 
VECTOR. 

WITH  DP  DIVIDEND  IN  A , L . 

PROLOGUE  WHICH  NORMALIZES  THE  DIVIDEND 
WHEN  IT  IS  KNOWN  THAT  NO  DIVISION 
OVERFLOW  WILL  OCCUR. 


0 IF  MAJORS  MIGHT  BE  =,  -1  OTHFRWISE. 
SORT  CONSTANTS 

CHECK  TO  SEE  IF  THEY  ARE  NOW  EQUAL. 


GAP: 

L 

P 1 583 

R 1 585 

R1586 

R 1 58  7 

R 1 58  9 

R 1 59  1 

R L 593 

R 1 59  5 

R 1 59  7 

R 1599 

R1601 

1603 

1604 

1605 

1606 

1607 

160  8 

1609 

1610 

161  1 

1612 

1613 

1614 

1615 

1616 

161  7 

161  8 

A l 61  9 
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INTERPRETER  USER'S  PAGE  NO.  61  E3  S3 

THE  FOLLOWING  IS  A GENERAL  PURPOSE  DOUBLE  PRECISION  DIVISION  ROUTINE.  IT  DIVIDES  MPAC  BY  BUF  AND  LEAVES 
THE  RESULT  IN  MPAC.  THE  FOLLOWING  CONDITIONS  MUST  BE  SATISFIED: 

L.  THE  DIVISOR  IBUF)  MUST  BE  POSITIVE  AND  NOT  LESS  THAN  .5. 

2.  THE  DIVIDEND  (MPAC)  MUST  BE  POSITIVE  WITH  THE  MAJOR  PART  OF  MPAC  STRICTLY  LESS  THAN  THAT  OF  BUF 
(A  SPECIAL  APPROXIMATION,  MAXDV , IS  USED  WHEN  THE  MAJOR  PARTS  ARE  EQUAL). 

UNDERSTANDING  THAT  A/B  = Q + SIR/B)  WHERE  S = 2 ( — 14 ) AND  Q AND  R ARE  QUOTIENT  AND  REMAINDER,  RESPEC- 
TIVELY, THE  FOLLOWING  APPROXIMATION  IS  OBTAINED  BY  MULTIPLYING  ABOVE  AND  BELOW  BY  C - SD  AND  NEGLECTING  TERMS  OF 
ORDER  S-SQUARED  (POSSIBLY  INTRODUCING  ERROR  INTO  THE  LOW  TWO  BITS  OF  THE  RESULT).  SIGN  AGREFMENT  IS  UNNECESSARY. 


A + 

SB  . 

(R  - 

QD) 

A + SB 

— = Q 

+ S( 

--)  WHERE 

: Q 

AND  R 

ARE  QUOTIENT  AND 

REMAINDER  OF  RESPECTIVELY. 

c + 

SD 

( c 

) 

C 

REF 

572 

LAST 

1059 

00,2570 

52  155 

l 

GFNDDV 

DXCH 

MPAC 

WE  NEED  A AND  B ONLY  FOR  FIRST  DV. 

00,2571 

0 0006 

i 

+ 1 

EXTEND 

(SPECIAL  UNIT  PROLOGUE  ENTERS  HERE). 

REF 

113 

LAST 

1058 

00,2572 

10  130 

l 

DV 

BUF 

A NOW  CONTAINS  Q AND  L,  R. 

REF 

573 

LAST 

1060 

00,2573 

52  155 

l 

DXCH 

MPAC 

REF 

574 

LAST 

1060 

00,2574 

4 0154 

0 

cs 

MPAC 

FORM  DIVIDEND  FOR  MINOR  PART  OF  RESULT. 

00,2575 

0 0006 

1 

EXTEND 

REF 

1 14 

LAST 

1060 

00,2576 

7 0131 

0 

MP 

BUF  +1 

REF 

575 

LAST 

1060 

00,2577 

6 0155 

0 

AD 

MPAC  +1 

OVERFLOW  AT  THIS  POINT  IS  POSITIVE  SINCE 

00,2600 

54  000 

0 

OVSK 

R IS  POSITIVE  IN  EVERY  CASE. 

00,2601 

1 2606 

1 

TCF 

+ 5 

00,2602 

0 0006 

1 

EXTEND 

OVERFLOW  CAN  BE  REMOVED  BY  SUBTRACTING  C 

REF 

1 15 

LAST 

1060 

00,2603 

60  130 

0 

SU 

BUF 

(BUF)  ONCE  SINCE  R IS  ALWAYS  LESS  THAN  C 

REF 

576 

LAST 

1060 

00,2604 

24  154 

1 

INC  R 

MPAC 

IN  THIS  CASE.  INCR  COMPENSATES  SUBTRACT. 

REF 

1 

00,2605 

1 2610 

0 

TCF 

+ DOWN 

(SINCE  CIA)  IS  STILL  POSITIVE). 

00,2606 

0 C006 

1 

+ 5 

EXTENO 

CIA)  CAN  BE  MADE  LESS  THAN  C IN  MAGNI- 

REF 

1 

00,2607 

6 2620 

1 

BZMF 

-UP 

TUDE  BY  DIMINISHING  IT  BY  C (SINCE  C IS 

NOT  LESS  THAN  .5)  UNLESS  CIA)  = 0. 


gap:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L INTERPRETER 


1620 

00,2610 

0 

0006 

i 

+ DOWN 

EXTEND 

162  1 

REF 

116 

LAST 

1060 

OO, 2611 

60 

130 

0 

su 

BUF 

1622 

00,2612 

0 

0006 

l 

EXTEND 

1623 

00,2613 

1 

2616 

0 

BZF 

+3 

1626 

00,2614 

0 

C C 06 

1 

EXTEND 

1625 

REF 

1 

00,2615 

6 

2624 

0 

BZMF 

ENDMAXDV 

162  6 

REF 

577 

LAST 

1060 

00,2616 

24 

154 

1 

+ 3 

INCR 

MP  AC 

1627 

REF 

2 

LAST 

1055 

00,2617 

1 

2625 

0 

TCF 

F INALOV 

162  8 

00,2620 

0 

00  06 

1 

-UP 

EXTEND 

1629 

REF 

3 

LAST 

1061 

00  ,262  1 

1 

2630 

1 

BZF 

FINALDV  +3 

1630 

00,2622 

0 

0006 

1 

EXTEND 

1631 

REF 

578 

LAST 

1061 

00,2623 

26 

154 

0 

DIM 

M P AC 

163  2 

REF 

1 17 

LAST 

1061 

00,2624 

6 

C 130 

0 

ENDMAXDV 

AD 

BUF 

17:11  MAR.  19,1971 


SKIPPER  .131 


PAGE  1061 


USER'S  PAGE  NO.  62 


E3  S3 


IF  POSITIVE,  REDUCE  ONLY  IF  NECESSARY 
SINCE  THE  COMPENSATING  INCR  MIGHT  CAUSE 
OVERFLOW. 

DONT  SUBTRACT  UNLESS  RESULT  IS  POSITIVE 
OR  ZERO. 

KEEP  SUBTRACT  HERE  AND  COMPENSATE. 


IF  ZERO,  SET  MINOR  PART  OF  RFSULT  TO 
ZERO. 

IF  NEGATIVE,  ADD  C TO  A,  SUBTRACTING  ONE 
TO  COMPENSATE.  DIM  IS  OK  HERF  SINCE  THE 
MAJOR  PART  NFVER  GOES  NEGATIVE. 


GAP: 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  8Y  NASA  2021112-161 


L INTERPRETER 


1633 

00,2625 

22  007 

0 

F INAL  D V 

ZL 

1634 

00,2626 

0 0006 

1 

EXTEND 

1635 

REF 

118 

LAST 

1061 

00,2627 

10  130 

1 

DV 

BUF 

1636 

REF 

579 

LAST 

1061 

00,2630 

54  155 

1 

+ 3 

TS 

MPAC  +1 

163  7 

REF 

6 

LAST 

1056 

00,2631 

10  136 

1 

CCS 

DVSIGN 

1638 

REF 

274 

LAST 

1052 

00,2632 

0 C 002 

0 

TC 

Q 

1639 

REF 

275 

LAST 

1062 

00,2633 

0 CC02 

0 

TC 

0 

1 64  C 

REF 

276 

LAST 

1062 

00,2634 

0 C002 

0 

TC 

Q 

1641 

00,2635 

0 0006 

1 

EXTEND 

1642 

REF 

580 

LAST 

1062 

00,2636 

4 C 1 55 

1 

DCS 

MPAC 

164  3 

REF 

561 

LAST 

1062 

00,2637 

52  155 

1 

DXCH 

MPAC 

1644 

REF 

211 

LAST 

1058 

00,2640 

3 4746 

0 

CAF 

ZERO 

1645 

REF 

277 

LAST 

1062 

00,2641 

0 0002 

0 

TC 

Q 

17:11  MAR.  19,1971  SKIPPER  .131 
USER'S  PAGE  NO.  63 
DO  DV  TO  OBTAIN  MINOR  PART  OF 


PAGE  1062 
E3  S3 
RESULT. 


LEAVE  R F SUL T POSITIVE  UNLESS  C(DVSIGN)  = 

-0  . 


SO  WE  ALWAYS  RETURN  WITH  CIA) 


0 


GAP: 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  202LI12-L6L 


L 7 : 1 1 MAR.  19,1971  SKIPPER  .131  PAGE  1063 


> L 


INTERPRETER 


USER'S  PAGE  NO.  64  E3  S3 


P 1 646  IF  THE  MAJOR  PARTS  OF  TFE  DIVISOR  AND  DIVIDEND  ARE  EQUAL,  BUT  THE  MINOR  PARTS  ARE  SUCH  THAT  THE 

* R1648  DIVIDEND  IS  STRICTLY  LESS  THAN  THE  DIVISOR  IN  MAGNITUDE,  THE  FOLLOWING  APPROXIMATION  IS  USED.  THE  ASSUMPTIONS 

R1650  ARE  TFE  SAME  AS  THE  GENERAL  ROUTINF  WITH  THE  ADDITION  THAT  SIGN  AGREEMENT  IS  NECESSAPY  (B,  C,  £ D POSITIVE). 


R 1652 

C + SB  . 

(C  + 

B - D) 

R 165  3 

= 

37777  <■  S< 

j 

R 1 654 

C + SD 

( 

C ) 

R 1 65  5 

THE  DIVISION  MAY 

BE  PERFORMED 

IMMEDIATELY  SINCE  B IS  STRICTLY  LESS  THAN  D AND  C IS  NOT  LESS  THAN  .5. 

165  7 

REF 

582 

LAST 

1062 

00,2642 

4 

0154 

0 

MAXDV 

CS 

M P AC 

SEE  IF  MAXDV  CASE  STILL  HOLDS  AFTER 

1 65  B 

REF 

1 19 

LAST 

1062 

00,2643 

6 

0130 

0 

AD 

BUF 

NORMALIZAT ION. 

1659 

00,2644 

0 

0006 

1 

EXTEND 

166  0 

00,2645 

1 

2647 

1 

BZF 

F 2 

166  1 

REF 

2 

LAST 

1059 

00,2646 

1 

2570 

0 

TCF 

GENDDV 

MPAC  NOW  LESS  THAN  BUF  - DIVIDE  AS  USUAL 

1662 

REF 

31 

LAST 

1057 

00,2647 

3 

4724 

1 

+ 2 

CAF 

POSMAX 

SET  MAJOR  PART  OF  RESULT. 

1663 

REF 

583 

LAST 

1063 

00,2650 

54 

154 

0 

TS 

MPAC 

1664 

REF 

120 

LAST 

1063 

00,2651 

4 

C 131 

0 

CS 

BUF  +1 

FORM  DIVIDEND  OF  MINOR  PART  OF  RESULT. 

1665 

REF 

5 E 4 

LAST 

1063 

00,2652 

6 

C 1 55 

0 

AD 

MPAC  +1 

1666 

REF 

2 

LAST 

1061 

00,2653 

1 

2624 

1 

TCF 

ENDMAXDV 

GO  ADD  C AND  DO  DIVIDE,  ATTACHING  SIGN 

A 1 66  7 BEFORE  EXITING. 


GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 

L INTERPRETER 

P 1 66 8 VECTOR  DIVIDEO  BY  SCALAR,  V/SC,  IS  EXECUTED  HERE.  THE  VECTOR 


1670 

REF 

97 

LAST 

1055 

00,2654 

4 4 744 

0 

V/SC2 

cs 

ONE 

1671 

REF 

4 

LAST 

1058 

00,2655 

54  137 

0 

TS 

D VNORMCT 

1672 

REF 

44 

LAST 

1041 

00,2656 

54  127 

1 

TS 

VBUF  +5 

1673 

REF 

1 

00,2657 

0 3010 

0 

TC 

VECAGREE 

1674 

REF 

121 

LAST 

1063 

00,2660 

52  131 

0 

DXCH 

BUF 

1675 

REF 

2 

LAST 

888 

00,2661 

0 7565 

0 

TC 

ALSIGNAG 

1676 

REF 

122 

LAST 

1064 

00,2662 

52  131 

0 

DXCH 

BUF 

1677 

REF 

123 

LAST 

1064 

00,2663 

10  130 

1 

CCS 

BUF 

1678 

REF 

1 

00,2664 

1 2721 

0 

TCF 

/ BUF  + 

1679 

00,2665 

1 2667 

0 

TC  F 

+ 2 

1680 

REF 

1 

00,2666 

1 2715 

1 

TCF 

/ 8UF- 

1661 

REF 

124 

LAST 

1064 

00,2667 

56  131 

1 

XCH 

BUF  +1 

1682 

REF 

125 

LAST 

1064 

00,2670 

56  130 

0 

XCH 

BUF 

1683 

REF 

5 £ 5 

LAST 

1063 

00,2671 

56  155 

0 

XCH 

MPAC  +1 

1684 

REF 

5 £ 6 

LAST 

1064 

00,2672 

56  154 

1 

XCH 

M P AC 

1685 

00,2673 

0 0006 

1 

EXTEND 

1686 

00,2674 

1 2676 

0 

BZF 

+ 2 

1687 

REF 

3 

LAST 

1057 

00,2675 

1 2405 

0 

TCF 

DVOVF 

1688 

REF 

587 

LAST 

1064 

00,2676 

56  160 

0 

XCH 

MPAC  +4 

1689 

REF 

588 

LAST 

1064 

00,2677 

56  157 

1 

XCH 

MPAC  +3 

1690 

00,2700 

0 0006 

1 

EXTEND 

1691 

00,2701 

1 2703 

0 

BZF 

+ 2 

1692 

REF 

4 

LAST 

1064 

00,2702 

1 2405 

0 

TCF 

DVOVF 

1693 

REF 

589 

LAST 

1064 

00,2703 

56  162 

1 

XCH 

MPAC  +6 

1694 

REF 

590 

LAST 

1064 

00,2704 

56  161 

1 

XCH 

MPAC  +5 

1695 

00, 2705 

0 0006 

1 

EXTEND 

1696 

00,2  706 

1 2710 

1 

BZF 

*2 

1697 

REF 

5 

LAST 

1064 

00,2707 

1 2405 

0 

TCF 

DVOVF 

1698 

REF 

126 

LAST 

1064 

00, 2710 

10  130 

1 

CCS 

BUF 

1699 

REF 

2 

LAST 

1064 

00,2711 

1 2721 

0 

TCF 

/ BUF  + 

170  0 

REF 

6 

LAST 

1064 

00,2712 

1 2405 

0 

TCF 

DVOVF 

1701 

REF 

2 

LAST 

1064 

00,2713 

1 2715 

1 

TCF 

/BUF- 

170  2 

REF 

7 

LAST 

1064 

00,2714 

1 2405 

0 

TCF 

DVOVF 

1703 

00,2715 

0 CC 06 

1 

/BUF- 

EXTEND 

1704 

REF 

127 

LAST 

1064 

00,2716 

4 0131 

0 

DCS 

BUF 

170  5 

REF 

128 

LAST 

1064 

00,2717 

52  131 

0 

DXCH 

BUF 

1706 

REF 

45 

LAST 

1064 

00,2720 

24  127 

0 

I NCR 

VBUF  +5 

: 1 1 MAP.  19,1971  SKIPPER  .131  PAGE  1064 


USER' S PAGE  NO.  65  E3  S3 

IS  NOW  IN  MP AC  WITH  SCALAR  IN  BUF. 

INITIALIZE  DIVIDEND  NORMALIZATION  COUNT 
AND  DIVISION  SIGN  REGISTER. 

FORCE  SIGN  AGREEMENT  IN  VECTOR 

SIGN  AGREE  BUF 

FORCE  DIVISOR  POSITIVE  WITH  MAJOR  PART 
NON-ZERO  (IF  POSSIBLE). 

SHIFT  VECTOR  AND  SCALAR  LEFT  14. 

CHECK  FOR  OVERFLOW  IN  EACH  CASE. 


ZERO  DIVISOR  - OVERFLOW. 


ON  NEGATIVE,  COMPLEMENT  BUF  AND  MAINTAIN 
DV  SIGN  IN  VBUF  +5. 


GAP: 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY 


L INTERPRETER 


170  7 

00,2721 

0 0006 

1 

/euF  + 

1708 

REF 

129 

LAST 

1064 

00,2722 

3 C 13  1 

1 

1709 

REF 

16 

LAST 

1057 

00,2723 

52  134 

0 

1710 

RFF 

1 

00,2724 

1 2732 

1 

171  1 

00,2725 

0 C006 

1 

/NOR M2 

1712 

REF 

5 

LAST 

1064 

00,2726 

24  137 

1 

1713 

00,2727 

C OC  06 

1 

1714 

REF 

130 

LAST 

1065 

00,2730 

3 0131 

1 

1715 

REF 

131 

LAST 

1065 

00,2731 

20  131 

0 

1716 

REF 

132 

LAST 

1065 

00,2732 

3 0130 

0 

/NORM 

171  7 

00,2733 

6 0000 

1 

1718 

00,2734 

54  COO 

0 

1719 

REF 

1 

00,2735 

t 2725 

1 

1720 

REF 

1 

00,2736 

0 2750 

1 

1721 

REF 

591 

LAST 

1064 

00,2737 

52  160 

1 

1 72  2 

REF 

592 

LAST 

1065 

00,2740 

52  155 

1 

1723 

REF 

553 

LAST 

1065 

00,2741 

52  160 

1 

1724 

REF 

2 

LAST 

1065 

00,2742 

0 2750 

1 

172  5 

REF 

594 

LAST 

1065 

00,2743 

52  162 

0 

1 72  6 

REF 

555 

LAST 

1065 

00,2744 

52  155 

1 

172  7 

REF 

596 

LAST 

1065 

00,2745 

52  162 

0 

172  8 

REF 

3 

LAST 

1065 

00,2746 

0 2750 

1 

172  9 

REF 

2 

LAST 

1048 

00,2747 

1 7441 

0 
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USER'S  PAGE  NO.  66 


E 3 S3 


EXTEND 

DC  A 

BUF 

LEAVE  ABStORIG  DIVISOR)  IN  BUF  2 

DXCH 

BUF2 

FOR  OVERFLOW  TESTING 

TCF 

/NORM 

NORMALIZE  DIVISOR  IN  BUF. 

EXTEND 

IF  LESS  THAN  .5,  AUGMENT  DVNORMCT  AND 

AUG 

DVNORMCT 

DOUBLE  DIVISOR. 

EXTEND 

DC  A 

BUF 

DAS 

BUF 

CA 

BUF 

SEE  IF  DIVISOR  NORMALIZED. 

DOUBLE 

OVSK 

TCF 

/ NOR  M2 

DOUBLE  AND  TRY  AGAIN  IF  NOT. 

TC 

V/SCDV 

DO  X COMPONENT  DIVIDE. 

DXCH 

M P AC  +3 

SUPPLY  ARGUMENTS  IN  USUAL  SEQUENCE. 

DXCH 

MPAC 

DXCH 

M P AC  +3 

TC 

V/SCDV 

Y COMPONENT. 

DXCH 

MPAC  +5 

DXCH 

MPAC 

DXCH 

MPAC  +5 

TC 

V/SCDV 

Z COMPONENT. 

TCF 

VROTATEX 

GO  RF-ARRANGE  COMPONENTS  BEFORE  FXIT. 

GAP: 


ASSEMBLE  REVISION  210  GF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-lfcl 


L INTERPRETER 


P1730 

SUBROUTINE 

USED  BY  ’ 

V/SC  TO  1 

DIVIDE  VECTOR 

1 COMPONENT  IN  MP 

173  2 

REF 

46 

LAST 

1064 

00,2750 

3 C 127 

0 

V/SCDV 

CA 

VBUF  +5 

1733 

REF 

7 

LAST 

1062 

00,  275  1 

54  136 

1 

TS 

DVSIGN 

1734 

REF 

597 

LAST 

1065 

00,2752 

10  154 

0 

CCS 

MPAC 

1735 

REF 

1 

00,2753 

1 2767 

1 

TCF 

/ MPAC+ 

1736 

00,2754 

1 2756 

0 

TCF 

+ 2 

173  7 

REF 

1 

00,2755 

1 2763 

0 

TCF 

/ MPAC— 

173  8 

REF 

558 

LAST 

1066 

00,2756 

10  155 

1 

CCS 

MPAC  +1 

1739 

REF 

2 

LAST 

1066 

00,2757 

1 2767 

1 

TCF 

/ MP AC+ 

1740 

REF 

278 

LAST 

1062 

00,2760 

0 0002 

0 

TC 

0 

1741 

REF 

2 

LAST 

1066 

00,2761 

1 2763 

0 

TCF 

/MPAC— 

174  2 

REF 

279 

LAST 

1066 

00,2762 

0 0002 

0 

TC 

Q 

1743 

00,2763 

0 0006 

1 

/ MPAC— 

EXTEND 

1744 

REF 

599 

LAST 

1066 

00,2764 

4 0155 

I 

DCS 

MPAC 

1745 

REF 

600 

LAST 

1066 

00,2765 

52  155 

1 

DXCH 

MPAC 

174  6 

REF 

8 

LAST 

1066 

00,2766 

24  136 

0 

INC  R 

DVSIGN 

1747 

REF 

98 

LAST 

1064 

00,2767 

4 4 744 

0 

ZMPAC+ 

CS 

ONE 

174  8 

REF 

4 

LAST 

1055 

00,2770 

54  140 

0 

TS 

MAXDVSW 

1749 

REF 

601 

LAST 

1066 

00,277  l 

4 0154 

0 

CS 

MPAC 

175< 

REF 

17 

LAST 

1065 

00,2772 

6 0133 

0 

AD 

BUF2 

175  1 

REF 

330 

LAST 

1058 

00,2773 

10  000 

0 

CCS 

A 

1752 

REF 

1 

00,2774 

1 3004 

l 

TCF 

DDVC ALL 

1 753 

00,2775 

1 2777 

0 

TCF 

+ 2 

1754 

REF 

8 

LAST 

1064 

00,2776 

1 2405 

0 

TCF 

DVOVF 

1755 

REF 

5 

LAST 

1066 

00,2777 

54  140 

0 

TS 

MAXDVSW 

1756 

REF 

602 

LAST 

1066 

00,3000 

4 0155 

1 

CS 

MPAC  +1 

1757 

REF 

18 

LAST 

1066 

00,3001 

6 0134 

1 

AD 

BUF2  +1 

1758 

00,3002 

0 0006 

1 

EXTEND 

1759 

REF 

9 

LAST 

1066 

00,3003 

6 2405 

1 

BZMF 

DVOVF 

1760 

REF 

603 

LAST 

1066 

00,3004 

52  155 

1 

DDVCALL 

DXCH 

MPAC 

1761 

REF 

6 

LAST 

1065 

00,3005 

50  137 

1 

INDEX 

D VNORMCT 

1762 

REF 

2 

LAST 

1058 

00,3006 

1 2565 

1 

TCF 

MAXTEST 
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USER'S  PAGE  NO.  67  E3  S3 

+1  BY  THE  SCALAR  GIVEN  IN  BUF . 

REFLECTS  SIGN  OF  SCALAR. 

FORCE  MP AC  POSITIVE,  EXITING  ON  ZERO. 


USUAL  COMPLEMENTING  AND  SETTING  OF  SIGN. 


INITIALIZE  NEAR-ONE  SWITCH. 


CHECK  POSSIBLE  OVERFLOW. 
UNNURMALIZED  INPUT  DIVISOR. 

NOT  NEAR-ONE 

+0  IS  JUST  POSSIBLE 

NO  HOPE 

SIGNAL  POSSIBLE  NEAR-ONF  CASE 
SEE  IF  DIVISION  CAN  BE  DONE 


CALL  PRE-DIVIDE  NORMALIZATION 


GAP: 


ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  3Y  NASA  20211  12-161 


L INTERPRETER 


176  3 

00,3007 

32506 

0 

SLGPELO 

DEC 

. 8324 

1764 

REF 

280 

LAST 

1066 

00,3010 

56  002 

0 

VECAGREE 

XCH 

Q 

1765 

REF 

6C4 

LAST 

1066 

00,3011 

52  155 

1 

DXCH 

MPAC 

1766 

REF 

3 

LAST 

1064 

00,3012 

0 7565 

0 

TC 

ALSIGNAG 

1767 

REF 

6C5 

LAST 

1067 

00,3013 

52  155 

1 

DXCH 

MPAC 

176  8 

REF 

606 

LAST 

1067 

00,3014 

52  160 

1 

DXCH 

MPAC  +3 

1769 

REF 

4 

LAST 

106  7 

00,3015 

0 7565 

0 

TC 

ALSIGNAG 

1770 

REF 

607 

LAST 

1067 

00,3016 

52  160 

1 

DXCH 

MPAC  +3 

1771 

REF 

6C8 

LAST 

1067 

00,3017 

52  162 

0 

DXCH 

MPAC  +5 

1772 

REF 

5 

LAST 

1067 

00,3020 

0 7565 

0 

TC 

ALSIGNAG 

1773 

REF 

609 

LAST 

1067 

00,3021 

52  162 

0 

DXCH 

MPAC  +5 

1774 

REF 

33  1 

LAST 

1066 

00,3022 

0 0000 

1 

TC 

A 

17:11  MAR.  19,1971  SKIPPER  .131 
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USER'S  PAGF  NO.  68  F3  S3 

SAVE  Q IN  A 
SIGNAGREE  MPAC 

SIGN  AGREE  MPAC  +3 

SIGNAGREE  MPAC  +5 


GAP: 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY 


L INTERPRETER 


P 1 77  5 

THE 

FOLLOWING  ROUTINE  EXECUTES 

THE  UNIT 

1777 

REF 

2 

LAST 

1064 

00,3023 

0 3010 

0 

UNI  T 

1778 

REF 

2 

LAST 

1037 

00,3024 

0 7553 

0 

1779 

REF 

2 12 

LAST 

1062 

00,3025 

3 4746 

0 

l 78  0 

REF 

8 

LAST 

1055 

00,3026 

56  121 

0 

1781 

REF 

2 1 

LAST 

921 

00,3027 

54  141 

1 

178  2 

REF 

1 

00,3030 

0 3317 

1 

1783 

REF 

22 

LAST 

1068 

00,3031 

3 C 141 

0 

1784 

REF 

9 

LAST 

1068 

00,3032 

56  121 

0 

1785 

00,3033 

0 0006 

1 

1786 

00,3034 

1 3036 

0 

l 73  7 

REF 

10 

LAST 

1066 

00,3035 

1 2405 

0 

1708 

00,3036 

0 0006 

1 

1789 

REF 

6 10 

LAST 

1067 

00,3  03  7 

3 Cl  55 

0 

1790 

REF 

51 

LAST 

1022 

00,3040 

50  120 

1 

1791 

REF 

1 

00,3041 

52  043 

1 

1792 

REF 

1 

00,3042 

0 3343 

0 

1 793 

REF 

611 

LAST 

1068 

00,3043 

10  154 

0 

1794 

00,3044 

1 3051 

1 

1795 

REF 

217 

LAST 

1059 

00,3045 

54  001 

1 

1796 

RFF 

52 

LAST 

1068 

00,3046 

50  120 

l 

1 /9  7 

REF 

1 

00,3047 

52  045 

1 

179  8 

REF 

1 1 

LAST 

1068 

00,3050 

1 2405 

0 

1799 

REF 

1 

00,3051 

4 4310 

0 

18' 

REF 

47 

LAST 

1054 

00,3052 

6 0135 

0 

1801 

REF 

332 

LAST 

1067 

00,3053 

10  COO 

0 

1802 

00,3054 

4 0000 

0 

1803 

REF 

l 

00,3055 

1 3133 

1 

1804 

REF 

1 

00,3056 

1 3065 

0 

180  5 

REF 

1 

00,3057 

4 4752 

l 

1806 

REF 

48 

LAST 

106e 

00,3060 

54  135 

1 

1807 

REF 

612 

LAST 

1068 

00,3061 

3 0154 

1 

180  8 

REF 

218 

LAST 

1068 

00,3062 

54  001 

1 

SMALL2 

180  9 

REF 

213 

LAST 

1068 

00,3063 

3 4746 

0 

1810 

REF 

1 

00,3064 

1 3112 

l 

181  1 

REF 

49 

LAST 

1068 

00,3065 

10  135 

1 

LARGE 

1812 

REF 

1 

00,3066 

1 3074 

0 

1813 

REF 

1 

00,3067 

4 2024 

1 

1814 

REF 

50 

LAST 

1068 

00,3070 

54  135 

1 

1815 

00,3071 

0 0006 

1 

1816 

REF 

613 

LAST 

1068 

00,3072 

3 0155 

0 

2021112-161 
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USER' S PAGE  NO.  69  E3  S3 


INSTRUCTION,  WHICH 

TAKES  THE  UNIT  OF  THF  VECTOR  IN  MPAC. 

TC 

VECAGREE 

FORCE  SIGN  AGREEMENT  IN  VECTOR 

TC 

MPACVBUF 

SAVE  ARGUMENT  IN  VBUF 

CAF 

ZERO 

MUST  SENSE  OVERFLOW  IN  FOLLOWING  DOT. 

XCH 

OVFIND 

TS 

T EM  1 

TC 

VSQSUB 

DOT  MPAC  WITH  ITSELF. 

CA 

T EM  1 

XCH 

OVFIND 

EXTEND 

BZF 

+ 2 

TCF 

DVOVF 

EXTEND 
DC  A 

M P AC 

LEAVE  THE  SQUARE  OF  THE  LENGTH  OF  THE 

INDEX 

FIXLOC 

ARGUMENT  IN  LVSQUARE. 

DXCH 

LVSQUARE 

TC 

SQPTSUB 

GO  TAKE  THE  NORMALIZED  SQUARE  ROOT. 

CCS 

M P AC 

CHECK  FOR  UNIT  OVERFLOW. 

TCF 

+ 5 

MPAC  IS  NOT  LESS  THAN  .5  UNLESS 

TS 

L 

INDEX 

F IXLOC 

DXCH 

LV 

TCF 

DVOVF 

INPUT  TO  SORT  SUB  WAS  0. 

CS 

FOURTEEN 

SEE  IF  THE  INPUT  WAS  SO  SMALL  THE  THE 

AD 

MPTEMP 

FIRST  TWO  REGISTERS  OF  THE  SQUARE  WERE  0 

CCS 

A 

COM 

IF  SO,  SAVF  THE  NEGATIVE  OF  THE  SHIFT 

TCF 

SMALL 

COUNT  -15D. 

TCF 

LARGE 

(THIS  IS  USUALLY  THE  CASE.) 

CS 

THIRTEEN 

IF  THE  SHIFT  COUNT  WAS  EXACTLY  14,  SET 

TS 

MPTEMP 

THE  PRE-DIVIDE  NORM  COUNT  TO  -13D. 

CA 

MP  AC 

SHIFT  THE  LENGTH  RIGHT  14  BEFORE  STORING 

TS 

L 

(SMALL  FXITS  TO  THIS  POINT). 

CAF 

ZERO 

TCF 

L ARGE2 

GO  TO  STORE  LENGTH  AND  PROCEED. 

CCS 

MPTEMP 

MOST  ALL  CASES  COME  HFRE. 

TCF 

L ARGE3 

SEE  IF  NO  NORMALIZATION  WAS  REQUIRFD  BY 

CS 

SRDDV 

SQRT , AND  IF  SO,  SET  UP  FOR  A SHIFT 

TS 

MPTEMP 

RIGHT  l BF  FOP  E DIVIDING  TO  PRODUCE 

EXTEND 

THE  DESIRED  HALF  UNIT  VECTOR. 

DCA 

M P AC 

GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161  17:11  MAR.  19,1971  SKIPPER  .131  PAGE 
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1069 


1817  REF 


2 LAST  1068 


00,3073  1 3112  1 


TCF 


LARGE2 


GAP: 


ASSEMBLE  REVISION  210  CE  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L INTERPRETER 


1818 

00,3074 

4 0000 

0 

L ARGE3 

COM 

1819 

REF 

51 

LAST 

1068 

00,3075 

54  135 

1 

TS 

M PTE  MP 

1820 

00,3076 

4 OCOO 

0 

COM 

182  1 

REF 

3 33 

LAST 

1068 

00,3077 

50  COO 

1 

INDEX 

A 

1822 

REF 

6 1 

LAST 

1053 

00,3100 

3 4727 

1 

CAF 

B 1 T 14 

1823 

REF 

133 

LAST 

1065 

CO, 3101 

54  130 

1 

TS 

BUF 

1824 

00,3102 

0 C006 

1 

EXTEND 

1825 

REF 

614 

LAST 

1068 

00,3103 

7 0155 

1 

MP 

M P AC  +1 

182  6 

REF 

134 

LAST 

1070 

00,3104 

56  130 

0 

XCH 

BUF 

182  7 

00,3105 

0 0006 

1 

EXTEND 

1828 

REF 

6 15 

LAST 

1070 

00,3106 

7 C 154 

0 

MP 

M P AC 

1829 

RFF 

219 

LAST 

1068 

00,3107 

56  001 

0 

XCH 

L 

1830 

REF 

135 

LAST 

1070 

CO, 3110 

6 0130 

0 

AD 

BUF 

183  1 

REF 

220 

LAST 

1070 

00,3111 

56  C01 

0 

XCH 

L 

183  2 

REF 

53 

LAST 

1068 

00,3112 

50  120 

1 

LARGE2 

INDEX 

F IXLOC 

1333 

REF 

2 

LAST 

1068 

00,3113 

5 2 04  5 

1 

DXCH 

LV 

1834 

REF 

99 

LAST 

1066 

00,31  14 

4 4744 

0 

CS 

ONE 

1835 

REF 

6 

LAST 

1066 

00,3115 

54  140 

0 

TS 

MAXDVSW 

1836 

REF 

47 

LAST 

1066 

00,3116 

52  123 

0 

DXCH 

V BUF 

183  7 

RFF 

6 16 

LAST 

1070 

00,3117 

52  155 

1 

DXCH 

MPAC 

1838 

REF 

136 

LAST 

1070 

00,3120 

52  131 

0 

DXCH 

BUF 

1839 

REF 

1 

00,3121 

0 3151 

1 

TC 

UNITDV 

1840 

REF 

48 

LAST 

1070 

00,3122 

52  125 

0 

DXCH 

VBUF  +2 

1841 

REF 

617 

LAST 

1070 

00,3123 

52  155 

1 

DXCH 

MPAC 

1842 

REF 

6 18 

LAST 

1070 

00,3124 

52  160 

1 

DXCH 

MPAC  +3 

184  3 

REF 

2 

LAST 

1070 

00,3125 

0 3151 

1 

TC 

UNITDV 

1844 

REF 

49 

LAST 

1070 

00,3126 

52  127 

1 

DXCH 

VBUF  +4 

184  5 

REF 

619 

LAST 

1070 

00,3127 

52  155 

1 

DXCH 

MPAC 

1846 

REF 

620 

LAST 

1070 

00,3130 

52  162 

0 

DXCH 

MPAC  +5 

184  7 

REF 

3 

LAST 

1070 

00,3131 

0 3151 

1 

TC 

UNITDV 

184  8 

REF 

3 

LAST 

1065 

00,3  132 

1 7441 

0 

TCF 

VROTATEX 

17:11  MAR.  19,1971  SKIPPER  .131  PAGE  1070 

USER'S  PAGE  MO.  71  E3  S3 

LEAVE  NEGATIVE  OF  SHIFT  COUNT-1  FOR 
PREDIVIDE  LEFT  SHIFT. 

PICK  UP  REQUIRED  SHIFTING  BIT  TO  UNNORM- 
ALIZE THE  SQRT  RFSULT. 


(UNNORMALIZE  THE  SQRT  FOR  LV). 


LENGTH  NOW  STORED  IN  WORK  AREA. 


NO  MAXDV  CASES  IN  UNIT. 

PREPARE  X COMPONENT  FOR  DIVIDE,  SETTING 
LENGTH  OF  VECTOR  AS  DIVISOR  IN  BUF. 


DO  Y AND  Z IN  USUAL  FASHION  SO  WE  CAN 
EXIT  THROUGH  VROTATEX. 


AND  EXIT 


GAP:  ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  202U12-L6I  I7:IL  MAR.  19,1971  SKIPPER  .131  PAGE  1071 

L INTERPRETER  USER'S  PAGE  NO.  72  E3  S3 

P1849  IF  THE  LENGTH  OF  THE  ARGUMENT  VECTOR  WAS  LESS  THAN  21-28),  EACH  COMPONENT  MUST  BF  SHIFTED  LEFT  AT  LEAST 

R 185 1 14  PLACES  BEFORE  THE  DIVIDE.  NOTE  THAT  IN  THIS  CASE,  THE  MAJOR  PART  OF  EACH  COMPONENT  IS  ZERO. 


1853 

REF 

52 

LAST 

1070' 

00,3133 

54 

13  5 

1 

SMALL 

TS 

MPTEMP 

NEGATIVE  OF 

PRE-DIVIDE  SHIFT  COUNT 

1854 

REF 

214 

LAST 

1068 

00,3134 

3 

4746 

0 

CAF 

ZERO 

SHIFT  EACH 

COMPONENT  LEFT  14. 

1855 

REF 

50 

LAST 

1070 

00,3135 

56 

123 

1 

XCH 

VBUF  +1 

1856 

REF 

51 

LAST 

1071 

00,3136 

56 

122 

0 

XCH 

VBUF 

185  7 

REF 

52 

LAST 

1071 

00,3137 

56 

125 

1 

XCH 

VBUF  +3 

1858 

REF 

53 

LAST 

1071 

00,3140 

56 

124 

0 

XCH 

VBUF  +2 

185  9 

REF 

54 

LAST 

1071 

00,3141 

56 

127 

0 

XCH 

VBUF  +5 

1860 

REF 

55 

LAST 

1071 

00,3142 

56 

126 

1 

XCH 

VBUF  +4 

1061 

REF 

53 

LAST 

1071 

00,3143 

4 

0135 

1 

CS 

MPTEMP 

186  2 

REF 

334 

LAST 

1070 

00,3144 

50 

000 

1 

INDEX 

A 

186  3 

REF 

62 

LAST 

1070 

00,3 145 

3 

4727 

1 

CAF 

BIT  14 

1864 

00,3146 

0 

C006 

1 

EXTEND 

186  5 

REF 

621 

LAST 

1070 

00,3147 

7 

C 154 

0 

MP 

M P AC 

186  6 

REF 

1 

00,3150 

1 

3062 

1 

TCF 

SMALL2 

186  7 

REF 

4 

LAST 

947 

4752 

THIRTEEN 

— 

OCT  1 5 

186  8 

RFF 

2 

LAST 

267 

4310 

FOURTEEN 

= 

OCT  1 6 

1869 

REF 

13 

LAST 

472 

4310 

OCT  1 6 

= 

R 1D1 

GAP: 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  202IL12-I61 
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P 1870 

THE 

FOLLOWING  ROUTINE  SETS  1 

JP 

THE  CALL 

TO  THE 

DIVIDE  ROUTINES. 

L871 

REF 

622 

LAST 

107  l 

00,3151 

10  154 

0 

UNITDV 

CCS 

MPAC 

FORCE  MPAC  POSITIVF  IF  POSSIBLE,  SETTING 

1372 

REF 

1 

00,3152 

1 3170 

0 

TCF 

UMPAC+ 

DVSIGN  ACCORDING  TO  THE  SIGN  OF  MPAC 

1873 

00,3 153 

l 3155 

1 

TCF 

+ 2 

SINCE  THE  DIVISOR  IS  ALWAYS  POSITIVE 

1074 

RFF 

1 

00,3154 

1 3162 

0 

TCF 

UMPAC- 

HERE. 

1875 

REF 

623 

LAST 

1072 

00,3155 

10  155 

1 

CCS 

M P AC  +1 

1876 

REF 

2 

LAST 

1072 

00,3156 

1 3170 

0 

TCF 

UMPAC-t- 

1877 

REF 

281 

LAST 

1067 

00,3157 

C C002 

0 

TC 

Q 

EXIT  IMMEDIATELY  ON  ZERO. 

187  8 

REF 

2 

LAST 

1072 

00,3160 

1 3162 

0 

TCF 

UMPAC- 

1879 

REF 

262 

LAST 

1072 

00,3  16  l 

0 C 002 

0 

TC 

Q 

1880 

REF 

215 

LAST 

1071 

00,3162 

4 4746 

1 

UMPAC- 

CS 

ZERO 

IF  NEGATIVE,  SET  -0  IN  CVSIGN  FOR  FINAL 

1881 

REF 

9 

LAST 

1066 

00,3163 

54  136 

1 

TS 

D VS  I GN 

COMPLEMENT . 

1882 

00,3164 

0 0006 

1 

EXTENO 

1883 

REF 

6 24 

LAST 

1072 

00,3165 

4 C 155 

1 

DCS 

MPAC 

PICK  UP  ABSOLUTE  VALUE  OF  ARG  AND  JUMP. 

1884 

REF 

54 

LAST 

1071 

00,3166 

50  135 

0 

INOEX 

MPTEMP 

1885 

REF 

3 

LAST 

1066 

00,3167 

1 2 5 64 

0 

TCF 

MAXTEST 

-1 

1886 

REF 

10 

LAST 

1072 

00,3170 

54  136 

1 

UMPAC+ 

TS 

DVSIGN 

SET  DVSIGN  FOR  POSITIVE  QUOTIENT. 

188  7 

REF 

625 

LAST 

1072 

00,3171 

52  155 

1 

DXCH 

MPAC 

1888 

REF 

55 

LAST 

1072 

00,3  172 

50  135 

0 

INDEX 

MPTEMP 

1809 

REF 

4 

LAST 

1072 

00, 3173 

1 2564 

0 

TCF 

MAXTEST 

-1 

ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


GAP: 

L INTERPRETER 

PI 890  MISCELLANEOUS  UNARY  OPERATIONS. 


1891 

REF 

1 

o 

o 

0 3300 

1 

DSQ 

TC 

DSQSUB 

1892 

REF 

35 

LAST 

1058 

00,3175 

1 6102 

0 

TCF 

DANZIG 

1893 

'i-  F 

28 

LAST 

1054 

00,3176 

10  163 

1 

ABVAL  A BS 

CCS 

MODE 

1894 

REF 

3 

LAST 

826 

00,3177 

1 3226 

0 

TCF 

ABS 

1895 

REF 

4 

LAST 

1073 

00,3200 

1 3226 

0 

TCF 

ABS 

1896 

REF 

2 

LAST 

1068 

00,3201 

0 3317 

i 

ABVAL 

TC 

VSQSUB 

189  7 

REF 

29 

LAST 

1073 

00,3202 

22  163 

0 

LXCH 

MODE 

1898 

00,3203 

0 0006 

1 

EXTEND 

1899 

REF 

626 

LAST 

1072 

00,3204 

3 0155 

0 

DC  A 

MPAC 

1900 

REF 

54 

LAST 

1070 

00,3205 

50  120 

1 

INDEX 

F IXLOC 

1901 

REF 

2 

LAST 

1068 

00,3206 

52  C43 

1 

DXCH 

LVSQUARE 

17:11  MAR.  19,1971  SKIPPER 


in  PAGE  1073 


USER*  S PAGE  NO.  74 


E 3 S3 


SQUARE  THE  DP  CONTENTS  OF  MPAC. 


ABVAL  OR  ABS  INSTRUCTION. 
DO  ABS  ON  SCALAR. 


DOT  MPAC  W ITH  ITSELF. 

MODE  IS  NOW  DP  (L  ZERO  AFTER  DAS). 

STORE  SQUARE  OF  LENGTH  IN  WORK  AREA. 


k 
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INTERPRETER 


USER'S  PAGE  NO.  75 


E3  S3 


PI  90  2 
K 190  3 
R 1 904 
R 1906 
R 1 90  8 
R 191  0 
R 1 9 1 2 
R 1 91  4 
R 191  6 
R 1 91  7 
R 191  9 


PROGRAM  DESCRIPTION-  SUBROUTINE  SORT 

FUNCTIONAL  DESCRIPTION-DOUBLE  PRECISION  SQUARE  ROOT  ROUTINE 

THIS  PROGRAM  TAKES  THE  SQUARE  ROOT  OF  THE  27  OR  28  MOST  SIGNIFICANT  BITS  IN  THE  TRIPLE  PRECISION  SET  OF 
NUMBERS-MP  AC.MPAC-1  ,AND  MPAC  + 2.  THE  ROOT  IS  RETURNED  DOUBLE  PRECIS-ION  IN  MPAC  AND  MPAC+l. 

WARNING-  THIS  SUBROUTINE  USES  A TRIPLE  PRECISION  INPUT.  THE  PROGRAMMER  MUST  ASSURE  THE  CONTENTS  OF  MPAC+2 
ESPECIALLY  IF  THE  CONTENTS  OF  MPAC  IS  SMALL  OR  ZERO.  FOR  DETAILS  SEF  STG  MEMO  NO. 949. 


CALLING  SEQUENCE-  IN  INTERPRETIVE  MODE  I.E.,  FOLLOWING  TC  I NTPRE  T , SORT 
INPUT  SCALING  THE  BINARY  POINT  IS  ASSUMED  TO  THE  RIGHT  OF  BIT  15.  THE 
SUBROUTINES-  GENSCR , MPAC SHR , SQRT SUB , ABORT 

ABORT  EXIT  MODE-  ABORTS  ON  NEGATIVE  INPUT  -1.2X10E-4  (77775  OCTAL) 
DISPLAYS  ERROR  CODE  1302 


R 1920 

TC 

ABORT 

R 1 92  l 

OCT 

1302 

R 192  2 

DEBRIS  - 

LOCATIONS 

BUF .MPTEMP 

' , ADCRWO  i 

ARE  US EO 

1923 

REF 

2 

LAST 

1068 

00,3207 

0 3343 

0 

SORT 

TC 

SQRTSUB 

1924 

REF 

56 

LAST 

1C  72 

00,3210 

10  135 

1 

CCS 

MPTEMP 

1925 

10,3211 

1 3213 

0 

TC  F 

+ 2 

1926 

REF 

36 

LAST 

1073 

00,3212 

1 6102 

0 

TC  F 

DANZ  IG 

1927 

REF 

3 

LAST 

1053 

00,32  13 

6 3 733 

0 

AD 

NEG12 

1928 

00,3214 

0 OC06 

l 

EXTEND 

192  9 

RFF 

1 

00,3215 

6 3221 

0 

BZMF 

SQRTSHFT 

1930 

00, 3216 

22  007 

0 

ZL 

1931 

REF 

80 

LAST 

1054 

( 0,3217 

22  1 16 

l 

LXCH 

ADDRWD 

1932 

REF 

4 

LAST 

1053 

00,3220 

1 2303 

1 

TCF 

GENSCR  +4 

1933 

REF 

57 

LAST 

1074 

00, 3221 

5C  135 

0 

SQRTSHFT 

INDEX 

MPTEMP 

193  4 

REF 

39 

LAST 

1024 

00,3222 

3 4726 

0 

CAE 

BIT15 

1935 

REF 

58 

LAST 

10/4 

00,3223 

54  135 

1 

TS 

MPTEMP 

193  6 

REF 

216 

LAST 

1072 

00,3224 

3 4746 

0 

CAE 

Z FRO 

193  7 

REF 

2 

LAST 

1053 

00,3225 

l 2036 

1 

TCF 

M P AC  S HR  +3 

1938 

REF 

5 

LAST 

1050 

00,3226 

0 6 744 

0 

ABS 

TC 

BRANCH 

193  9 

REF 

37 

LAST 

1074 

00,3227 

1 6102 

0 

TCF 

DANZIG 

1940 

REF 

38 

LAST 

1074 

00,3230 

1 6102 

0 

TCF 

DANZIG 

194  1 

REF 

4 

LAST 

1044 

00,3231 

1 7711 

0 

TCF 

COMP 

NO  ADDRESS  IS  ALLOWED 
ANSWER  IS  RETURNED  WITH  THF  SAME  SCALING 

OR  LESS. 


TAKE  THE  SQUARE  ROOT  OF  MPAC. 

RETURNED  NORMALIZED  SQUARE  ROOT.  SEE  IF 
ANY  UN-NORMALIZATION  REQUIRED  ANO  EXIT 
IF  NOT. 

A RIGHT  SHIFT  OF  MORE  THAN  13  COULD  BE 
REQUIRED  IF  INPUT  WAS  ZERO  IN  MPAC,+1. 
GOES  HERE  IN  MOST  CASES. 

IF  A LONG  SHIFT  IS  REQUIRED,  GO  TO 
GFNERAL  RIGHT  SHIFT  ROUTINES. 

ADDRWD  WAS  ZERO  TO  PREVENT  ROUND. 

SELECT  SHIFTING  BIT  AND  EXIT  THROUGH 
SHIFT  ROUTINES. 

TO  ZERO  MPAC  + 2 IN  THE  PROCESS. 


TEST  SIGN  OF  MPAC  AND  COMPLEMFNT  IF 


► 


GAP: 
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L INTERPRETER 


194  2 

REF 

24 

LAST 

1039 

00,3232 

4 

4742 

0 

VDEF 

CS 

FOUR 

194  3 

REF 

20 

LAST 

1042 

00,3233 

26 

166 

1 

ADS 

PUSHLOC 

194  4 

00,3234 

0 

0006 

1 

EXTEND 

1945 

REF 

335 

LAST 

107  1 

00,3235 

5 

CCOO 

1 

INDEX 

A 

1946 

00,3236 

3 

0003 

1 

OCA 

2 

1947 

REF 

627 

LAST 

1073 

00,3237 

52 

160 

1 

DXCH 

MPAC  +3 

1948 

00,3240 

0 

0006 

1 

EXTEND 

194  9 

REF 

21 

LAST 

1075 

00,3241 

5 

C 1 66 

0 

INDEX 

PUSHLOC 

1950 

00,3242 

3 

CC01 

0 

DC  A 

0 

1951 

REF 

628 

LAST 

1075 

00,3243 

52 

162 

0 

DXCH 

MPAC  +5 

1952 

REF 

2 

LAST 

1039 

00,3244 

1 

6542 

0 

TCF 

VMODE 

1953 

REF 

3 

LAST 

1073 

00,3245 

0 

3317 

1 

VSQ 

TC 

VSQSUB 

1954 

REF 

1 

00,3246 

1 

7353 

1 

TCF 

DMODE 

1955 

00,3247 

0 

0006 

1 

PUSH 

EXTEND 

1956 

REF 

629 

LAST 

1075 

00,3250 

3 

0155 

0 

DC  A 

MPAC 

1957 

REF 

22 

LAST 

1075 

CO, 3251 

50 

166 

0 

INDEX 

PUSHLOC 

195  8 

00,3252 

52 

001 

1 

DXCH 

0 

1959 

REF 

30 

LAST 

1073 

00,3253 

50 

163 

0 

INDEX 

MODE 

1960 

REF 

5 

LAST 

1019 

00,3254 

3 

6265 

0 

CAF 

NO.WDS 

196  1 

REF 

23 

LAST 

1075 

00,3255 

26 

166 

1 

ADS 

PUSHLOC 

1962 

REF 

31 

LAST 

1075 

00,3256 

10 

163 

1 

CCS 

MODE 

1963 

REF 

1 

00,3257 

1 

3272 

1 

TCF 

T PUSH 

1964 

REF 

39 

LAST 

1074 

00,3260 

1 

6 102 

0 

TCF 

DANZIG 

196  5 

00,3261 

0 

0006 

1 

EXTEND 

1966 

REF 

630 

LAST 

1075 

00,3262 

3 

C 1 60 

0 

DC  A 

MPAC  +3 

1967 

REF 

24 

LAST 

1075 

00,3263 

50 

166 

0 

INDEX 

PUSHLOC 

1968 

00,3264 

51 

• 775 

0 

DXCH 

0 -4 

1969 

00,3265 

0 

C 006 

1 

EXTEND 

1970 

REF 

631 

LAST 

1075 

00,3266 

3 

0162 

1 

DC  A 

MPAC  +5 

197  1 

REF 

25 

LAST 

1075 

00,3267 

50 

166 

0 

INDEX 

PUSHLOC 

1972 

00,3270 

51 

•777 

1 

DXCH 

0 -2 

1973 

REF 

40 

LAST 

1075 

00,3271 

1 

6102 

0 

TCF 

DANZIG 

1974 

REF 

632 

LAST 

1075 

00,3272 

3 

C 1 56 

0 

T PUS  H 

CA 

MPAC  +2 

1975 

REF 

2 

LAST 

1013 

00, 3273 

1 

6575 

1 

TCF 

ENDTPUSH 

1976 

REF 

55 

LAST 

1073 

00,3274 

50 

120 

l 

RVQ 

INDEX 

F IXLOC 

1977 

REF 

7 

LAST 

1021 

00,3275 

3 

CC52 

0 

CA 

QPRET 

1978 

REF 

22 

LAST 

1033 

00,3276 

54 

1 17 

1 

TS 

POLISH 

197  9 

REF 

5 

LAST 

1022 

00,3277 

1 

6673 

1 

TCF 

GOTO  +4 
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VECTOR  OFF  I NE  - ESSENTIALLY  TREATS 
SCALAR  IN  MPAC  AS  X COMPONENT,  PUSHES  UP 
FOR  Y AND  THEN  AGAIN  FOR  Z. 


MODE  IS  NON  VECTOR. 

DOT  MPAC  WITH  ITSELF. 

MODE  IS  NOW  DP. 

PUSH  DOWN  MPAC  LEAVING  IT  LOADED. 

PUSH  DOWN  FIRST  TWO  REGISTERS  IN  EACH 

INCREMENT  PUSHDOWN  POINTFR. 


PUSH  DOWN  MPAC  +2. 

DONE  FOR  DP. 

ON  VECTOR,  PUSH  DOWN  Y AND  Z COMPONENTS. 


RVQ  - RETURN  IVA  QPRET. 


(ASSUME  QPRET  POINTS  TO  FIXED  ONLY.) 


GAP: 
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L INTERPRETER 


P 1 98  0 

THE  F 

ULLOWING  SUBROUTINES  ARE 

USED  IN  SQUARING 

MPAC,  I 

R1982 

SPECIAL 

CASES 

OF  DMPSU8  AND  1 

DOTSUB,  1 

3U  T 

IN  TO  SAVE  SOME 

TIME. 

1983 

REF 

633 

LAST 

1075 

00,3300 

3 C 1 55 

0 

OSQSUB  CA 

MPAC  +1 

1984 

CO, 3301 

0 0006 

1 

EXTEND 

1985 

00,3302 

7 OCOO 

0 

SQUARE 

1936 

REF 

634 

LAST 

1076 

00,3303 

54  156 

l 

TS 

MPAC  +2 

1987 

REF 

2 17 

LAST 

1074 

00,3304 

3 4 746 

0 

CAF 

ZERO 

1988 

REF 

6 35 

LAST 

1076 

00,3305 

56  155 

0 

XCH 

MPAC  +1 

1989 

CO, 3306 

0 C006 

1 

EXTEND 

1990 

REF 

636 

LAST 

1076 

00,3307 

7 C 1 54 

0 

MP 

MPAC 

1991 

00,3310 

20  001 

1 

DDOUBL 

1992 

REF 

637 

LAST 

1076 

00,3311 

20  156 

1 

DAS 

MPAC  +1 

1993 

REF 

638 

LAST 

1076 

00,3312 

56  154 

1 

XCH 

MPAC 

1994 

00,3313 

0 C C 06 

1 

EXTEND 

1995 

00,3314 

7 OCOO 

0 

SQUARE 

1996 

REF 

639 

LAST 

1076 

00,3315 

2C  155 

1 

DAS 

MPAC 

1997 

REF 

263 

LAST 

1072 

00,3316 

0 0002 

0 

TC 

Q 

199  8 

00,3317 

0 0006 

1 

VSQSUB  EXTEND 

1999 

REF 

8 

LAST 

1031 

00,3320 

22  137 

1 

QXCH 

DOTRET 

2000 

REF 

2 

LAST 

1073 

00,3321 

0 3300 

L 

TC 

DSQSUB 

2001 

REF 

640 

LAST 

1076 

00,3322 

52  160 

1 

DXCH 

MPAC  +3 

2002 

REF 

641 

LAST 

1076 

00,3323 

52  155 

1 

DXCH 

MPAC 

2003 

REF 

137 

LAST 

1070 

00,3324 

52  131 

0 

DXCH 

BUF 

2004 

REF 

642 

LAST 

1076 

00,3325 

3 0156 

0 

CA 

MPAC  +2 

2005 

REF 

138 

LAST 

1076 

00,3326 

54  132 

0 

TS 

BUF  +2 

2006 

REF 

3 

LAST 

1076 

00,3327 

0 3300 

1 

TC 

DSQSUB 

2007 

REF 

643 

LAST 

1076 

00,3330 

52  156 

1 

DXCH 

MPAC  +1 

2008 

REF 

139 

LAST 

1076 

00,3331 

20  132 

0 

DAS 

BUF  +1 

2009 

REF 

644 

LAST 

1076 

00,3332 

6 0154 

1 

AD 

MPAC 

2010 

REF 

140 

LAST 

1076 

00,3333 

6 0130 

0 

AD 

BUF 

201  l 

REF 

141 

LAST 

1076 

00,3334 

54  130 

1 

TS 

BUF 

2012 

00,3335 

1 3337 

l 

TCF 

+ 2 

2013 

REF 

10 

LAST 

1068 

00,3336 

54  121 

1 

TS 

OVFIND 

2014 

REF 

645 

LAST 

1076 

00,3337 

52  162 

0 

DXCH 

MPAC  +5 

2015 

REF 

646 

LAST 

1076 

00,3340 

52  155 

1 

DXCH 

MPAC 

2016 

REF 

4 

LAST 

1076 

00,3341 

0 3300 

1 

TC 

DSQSUB 

201  7 

REF 

1 

00,3342 

1 7226 

1 

TCF 

ENDDOT 
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USER' S PAGE  NO.  77  E3  S3 

BOTH  THF  SCALAR  AND  VECTOR  SENSE.  THFY  ARE 

SQUARES  THE  SCALAR  CONTENTS  OF  MPAC 

FORM  2 (CROSS  TERM). 

AND  MAYBF  OVERFLOW. 

AND  SET  A TO  NET  OVERFLOW. 


DOTS  THE  VECTOR  IN  MPAC  WITH  ITSELF. 
SQUARE  THE  X COMPONENT. 

SO  WE  CAN  END  IN  DOTSUR. 

SQUARE  Y COMPONENT. 


IF  OVERFLOW. 


SQUARE  Z COMPONENT 
END  AS  IN  DOTSUB. 
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L INTERPRETER  USER'S  PAGE  NO.  78  E3  S3 

P 201 8 DOUBLE  PRECISION  SQUARE  ROOT  ROUTINE.  TAKE  TEE  SQUARE  ROOT  OF  THE  TRIPLE  PRECISION  (MPAC  +2  USED  ONLY 

R2020  IN  NORMALIZATION)  CONTENTS  OF  MPAC  AND  LEAVE  THE  NORMALIZED  RESULT  IN  MPAC  (C(MPAC)  GREATER  THAN  OR  EQUAL  TO 
R 202  2 .5).  THE  RIGHT  SHIFT  COUNT  (TO  UNNORMALIZE)  IS  LEFT  IN  MPTEMP . 


2023 

REF 

2 18 

LAST 

1076 

00,3343 

3 4746 

0 

SORT  SUB  CAF 

ZERO 

START  BY  ZEROING  RIGHT  SHIFT  COUNT. 

2024 

REF 

55 

LAST 

1074 

00,3344 

54  135 

1 

TS 

MPTEMP 

2025 

REF 

647 

LAST 

1076 

00,3345 

10  154 

0 

CCS 

MPAC 

CHECK  FOP  POSITIVE  ARGUMFNT , SHIFTING 

2026 

REF 

1 

00,3346 

1 3405 

1 

TCF 

SMPAC+ 

FIRST  SIGNIFICANT  MPAC  RFGISTER  INTO 

202  7 

00,3347 

1 3351 

1 

TCF 

+ 2 

MPAC  ITSELF. 

2028 

REF 

1 

00,3350 

1 3373 

1 

TCF 

SQRTNEG 

SEE  IF  MAG  OF  ARGUMENT  LESS  THAN  101-4 

202  9 

REF 

648 

LAST 

1077 

00,3351 

56  156 

0 

XCH 

MPAC  +2 

MPAC  IS  ZERO  - SHIFT  LEFT  14. 

2030 

REF 

649 

LAST 

1077 

00,3352 

56  155 

0 

XCH 

MPAC  +1 

203  1 

REF 

6 50 

LAST 

1077 

00,3353 

54  154 

0 

TS 

MPAC 

203  2 

REF 

17 

LAST 

957 

00,3354 

3 4750 

1 

CAF 

SEVEN 

AUGMENT  RIGHT  SHIFT  COUNTER. 

203  3 

REF 

60 

LAST 

1077 

00,3355 

54  135 

1 

TS 

MPTEMP 

2034 

REF 

651 

LAST 

1077 

00,3356 

10  154 

0 

CCS 

MPAC 

SEE  IF  MPAC  NOW  PNZ. 

2035 

REF 

2 

LAST 

1077 

00,3357 

1 3405 

1 

TCF 

SMPAC+ 

2036 

00,3360 

1 3362 

1 

TCF 

<-2 

2037 

REF 

1 

00,3361 

1 3376 

1 

TCF 

ZEROANS 

NEGATIVE  BUT  LESS  THAN  101-4)  IN  MAG. 

2038 

REF 

652 

LAST 

1077 

00,3362 

56  155 

0 

XCH 

MPAC  +1 

ZERO  - SHIFT  LEFT  14  AGAIN. 

2039 

REF 

653 

LAST 

1077 

00,3363 

54  154 

0 

TS 

MPAC 

2040 

REF 

18 

LAST 

1077 

00,3364 

3 4750 

1 

CAF 

SEVEN 

AUGMENT  RIGHT  SHIFT  COUNTER. 

2041 

REF 

61 

LAST 

1077 

00,3365 

26  135 

l 

ADS 

MPTEMP 

2042 

REF 

654 

LAST 

1077 

00,3366 

10  154 

0 

CCS 

MPAC 

2043 

REF 

3 

LAST 

1077 

00,3367 

1 3405 

1 

TCF 

SMPAC+ 

2044 

REF 

284 

LAST 

1076 

00,3370 

0 0002 

0 

TC 

Q 

SQRT(O)  = 0. 

2045 

REF 

2 

LAST 

1077 

00,3371 

1 3376 

1 

TCF 

ZEROANS 

2046 

REF 

1 

00,3372 

1 3453 

1 

TCF 

F IXROOT 

DO  NOT  LEAVE  SQRTSUB  WITH  -0  IN  MPAC. 

2047 

REF  336 

LAST 

1075 

00,3373 

10  000 

0 

SQRTNEG 

CCS 

A 

ARGUMENT  IS  NEGATIVF,  8UT  SEF  IF  SIGN- 

2048 

REF  1 

00,3374 

1 3402 

0 

TCF 

SQRTABRT 

CORRECTFD  ARGUMFNT  IS  LESS  THAN  1 0 ( -4 ) 

2049 

REF  655 

LAST 

1077 

00,3375 

10  155 

1 

CCS 

MPAC  +1 

IN  MAGNITUDE.  IF  SO,  CALL  ANSWER  ZERO. 

2050 

REF  219 

LAST 

1077 

00,3376 

3 4 746 

0 

ZEROANS 

CAF 

ZERO 

FORCE  ANSWER  TO  ZERO  HERE. 

2051 

REF  2 

LAST 

1077 

00,337 1 

1 3453 

1 

TCF 

F IXROOT 

2052 

REF  2 

LAST 

1077 

00,3400 

1 3402 

0 

TCF 

SQRTABRT 

2053 

REF  3 

LAST 

1077 

00,3401 

1 3453 

1 

TCF 

F IXROOT 

2054 

REF  27 

LAST 

1023 

00,3402 

52  165 

1 

SQRTABRT 

DXCH 

LOC 

2054  1 

REF  1 

00,3403 

0 5722 

0 

TC 

POODUOl 

2055 

00,3404 

21302 

0 

OCT 

21302 

2056 

REF  1 

00,3405 

6 2444 

1 

SMPAC+ 

AD 

- 1/2+2 

SEE  IF  ARGUMENT  GREATER  THAN  OR  EQUAL 

GAP: 
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L INTERPRETER 


205  7 

00,3406 

0 0006 

1 

EXTEND 

2058 

REF 

1 

00,3407 

6 3456 

0 

BZMF 

SRTEST 

2059 

REF 

656 

LAST 

1077 

00,3410 

52  155 

1 

DXCH 

M P AC 

2060 

KEF 

16 

LAST 

1059 

00,3411 

22  021 

1 

LXCH 

SR 

2061 

00,3412 

0 0006 

1 

EXTEND 

2062 

REF 

21 

LAST 

1059 

00,3413 

7 4727 

0 

MP 

HALF 

2063 

REF 

657 

LAST 

1078 

00,3414 

52  155 

1 

DXCH 

MP  AC 

2064 

REF 

17 

LAST 

1078 

00,3415 

56  021 

1 

XCH 

SR 

2065 

REF 

658 

LAST 

1078 

00,3416 

26  155 

1 

ADS 

MP AC  +1 

2066 

REF 

1 

00,3417 

3 2314 

0 

ARGHI 

CAF 

SLOPEHI 

2067 

00,3420 

0 0006 

1 

EXTEND 

2068 

REF 

659 

LAST 

1078 

00,3421 

7 0154 

0 

MP 

MPAC 

2069 

REF 

1 

00,3422 

6 2566 

0 

AD 

B I ASH  I 

2070 

REF 

142 

LAST 

1076 

00, 3423 

54  130 

1 

+4 

TS 

BUF 

2071 

REF 

660 

LAST 

1078 

00,3424 

3 0154 

1 

CA 

MPAC 

2072 

00,3425 

22  007 

0 

ZL 

2073 

00,3426 

0 CC 06 

1 

EXTEND 

2074 

REF 

143 

LAST 

1078 

00,3427 

10  130 

1 

DV 

BUF 

2075 

00,3430 

0 0006 

1 

EXTEND 

2076 

REF 

22 

LAST 

1078 

00,3431 

7 4727 

0 

MP 

HALF 

2077 

REF 

144 

LAST 

1078 

00,3432 

26  130 

1 

ADS 

BUF 

2078 

00,3433 

0 C006 

1 

EXTEND 

2079 

REF 

23 

LAST 

1078 

00,3434 

7 4727 

0 

MP 

HALF 

2080 

REF 

661 

LAST 

1078 

00,3435 

52  155 

1 

DXCH 

MPAC 

2081 

00, 3436 

0 0006 

1 

EXTEND 

2082 

REF 

145 

LAST 

1078 

00,3437 

1C  130 

1 

DV 

BUF 

208  3 

REF 

146 

LAST 

1078 

00,3440 

54  131 

0 

TS 

BUF  +1 

2084 

REF 

220 

LAST 

1077 

00,3441 

3 4746 

0 

CAF 

ZERO 

2085 

REF 

221 

LAST 

1070 

00,3442 

56  001 

0 

XCH 

L 

2086 

00,3443 

0 C006 

1 

EXTEND 

2087 

REF 

147 

LAST 

1078 

00,3444 

10  130 

1 

DV 

BUF 

2088 

REF 

222 

LAST 

1078 

00,3445 

54  001 

1 

TS 

L 

2089 

REF 

148 

LAST 

1078 

00,3446 

3 C 13 1 

1 

CA 

BUF  +1 

2090 

REF 

662 

LAST 

1078 

00,3447 

20  155 

1 

DAS 

MPAC 

2091 

00,3450 

0 0006 

1 

EXTEND 

2092 

REF 

1 

00,3451 

1 3455 

1 

BZF 

T CQBNKOO 

2093 

REF 

32 

LAST 

1063 

00,3452 

3 4724 

1 

CAF 

POSMAX 

2094 

REF 

663 

LAST 

1078 

00,3453 

54  154 

0 

F IXROOT 

TS 

MPAC 

2095 

REF 

664 

LAST 

1078 

00,3454 

54  155 

1 

TS 

MPAC  +1 

2096 

REF 

265 

LAST 

1077 

00,3455 

0 0002 

0 

T CQBNKOO 

TC 

Q 

17:11  MAR.  19,1971  SKIPPER  .131  PAGE  1078 
USER'S  PAGE  NO.  79  E3  S3 

.5. 

IF  SO,  SEE  IF  LESS  THAN  .25. 

WE  WILL  TAKE  THF  SQUARE  ROOT  OF  MPAC/2. 
SHIFT  RIGHT  1 AND  GO  TO  THE  SORT  ROUTINE 


GUARANTEED  NO  OVERFLOW. 

ARGUMENT  BETWEEN  .25  AND  .5.  GET  A 
LINEAR  APPROXIMATION  FOR  THIS  RANGE. 

XO/2  = (MPAC/2) (SLOPEHI)  + BIASHI/2. 

XO/2  (APGLO  ENTERS  HERE). 
SINGLF-PRECISION  THROUGHOUT. 


(MPAC/2I/IX0/2) 

XI  = XO/2  + . 5IMPAC/2 ) /(XO/2 ) . 


FORM  UP  Xl/2. 

SAVE  AND  BRING  OUT  ARGUMENT. 

TAKE  DP  QUOTIENT  WITH  XI. 

SAVE  MAJOR  PART  OF  QUOTIENT. 

FORM  MINOR  PART  OF  QUOTIENT  USING 
(REMA I NDER , 0 ) . 


IN  PREPARATION  FOR  DAS. 

X2  = Xl/2  + ( MPAC/2 ) X l 
OVERFLOWS  IF  ARG.  NEAR  POSMAX. 


RETURN  TO  CALLER  TO  UNNORMALTZF,  ETC 


GAP: 
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2097 

REF 

1 

00,3456 

6 4730 

1 

SRTEST 

AD 

QUARTER 

2098 

00,3457 

0 0006 

1 

EXTENO 

2099 

REF 

1 

00,3460 

6 3502 

0 

BZMF 

S QRTNORM 

2100 

REF 

665 

LAST 

1078 

00,3461 

52  155 

1 

DXCH 

MPAC 

2101 

REF 

18 

LAST 

1078 

00,3462 

22  021 

1 

LXCH 

SR 

2102 

00,3463 

0 0006 

1 

EXTEND 

2103 

REF 

24 

LAST 

1078 

00,3464 

7 4 727 

0 

MP 

HALF 

2104 

REF 

666 

LAST 

1079 

00, 3465 

52  155 

l 

DXCH 

MPAC 

2105 

REF 

19 

LAST 

1079 

00,3466 

56  021 

1 

XCH 

SR 

2106 

REF 

667 

LAST 

1079 

00,3467 

26  155 

1 

ADS 

MPAC  +1 

2107 

REF 

1 

00,3470 

3 3007 

0 

ARGLO 

CAF 

SLDPELO 

2108 

00,3471 

0 0006 

l 

EXTEND 

2109 

REF 

668 

LAST 

1079 

00,3472 

7 0154 

0 

MP 

MPAC 

2110 

REF 

1 

00,3473 

6 2270 

0 

AD 

B IASLO 

2111 

REF 

1 

00,3474 

1 3423 

0 

TCF 

ARGHI  +4 

2112 

00,3475 

0 0006 

1 

SQRTNM2 

EXTEND 

2113 

REF 

669 

LAST 

1079 

00,3476 

3 0156 

0 

OCA 

MPAC  +1 

2114 

REF 

6 70 

LAST 

1079 

00 , 34  Z 7 

20  156 

1 

DAS 

MPAC  +1 

2115 

REF 

671 

LAST 

1079 

00,3500 

6 0154 

1 

AD 

MPAC 

2116 

REF 

672 

LAST 

1079 

00, 350  l 

26  154 

0 

ADS 

MPAC 

211  7 

REF 

62 

LAST 

1077 

00,3502 

24  135 

0 

SORTNCRM 

INCR 

MPTEMP 

2118 

00, 3503 

0 0006 

1 

EXTEND 

2119 

REF 

673 

LAST 

1079 

00,3504 

3 Cl  56 

0 

DC  A 

MPAC  +1 

2120 

REF 

6 74 

LAST 

1079 

00, 3505 

20  156 

l 

DAS 

MPAC  +1 

2121 

REF 

675 

LAST 

1079 

00,3506 

6 0154 

l 

AD 

MPAC 

2122 

REF 

676 

LAST 

1079 

00,3507 

26  154 

0 

ADS 

MPAC 

2123 

00,3510 

6 0000 

1 

DOUBLE 

212  4 

REF 

18 

LAST 

4 76 

00,3511 

54  022 

0 

TS 

CYL 

2125 

REF 

19 

LAST 

1079 

00,3512 

10  022 

0 

NORMTEST 

CCS 

CYL 

2126 

REF 

20 

LAST 

L079 

00,3513 

10  022 

0 

CCS 

CYL 

2127 

REF 

1 

00,3514 

1 3475 

0 

TCF 

SQRTNM2 

2128 

REF 

2 

LAST 

1079 

00,3515 

1 3417 

1 

TCF 

ARGHI 

2129 

REF 

1 

00,3516 

1 3470 

0 

TCF 

ARGLO 
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ARGUMENT  WAS  LESS  THAN  .5,  SEE  IF  LESS 
THAN  .25. 

IF  SO,  BEGIN  NORMALIZATION. 

IF  BE  TWFEN  .5  AND  .25,  SHIFT  RIGHT  1 AND 
START  AT  ARGLO. 


NO  OVERFLOW. 

(NORMALIZED)  ARGUMENT  BETWEEN  .125  ANO 
.25 


BEGIN  SQUARE  ROOT. 

SHIFT  LEFT  2 AND  I NCR  E MFN  T RIGHT  SHIFT 
COUNT  (FOR  TERMINAL  UNNOR M AL I Z AT  I ON  I . 


(NO  OVERFLOW) . 

FIRST  TIME  THROUGH,  JUST  SHIFT  LEFT  l 
(PUTS  IN  EFFECTIVE  RIGHT  SHIFT  SINCE 
WE  WANT  MPAC/2 I . 


(AGAIN  NO  OVERFLOW) . 


SEF  IF  ARGUMENT  NOW  NORMALIZED  AT 
GREATER  THAN  .125. 

NO  - SHIFT  LEFT  2 MORE  AND  TRY  AGAIN. 
YES  - NOW  BETWEEN  .5  AND  .25. 

ARGUMENT  NOW  BETWEEN  .25  ANO  .125. 


GAP:  ASSEMBLE  RFVISIQN  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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P2130  TRIGONOMETRIC  FUNCTION  PACKAGE. 

R2  13  1 THE  FOLLOWING  TRIGONOMETRIC  FUNCTIONS  ARE  AVAILABLE  AS  INTERPRETIVE  OPERATIONS: 


R2133 

1. 

SIN 

COMPUTES 

(1/2ISINEI2  PI  MPAC). 

R2134 

2 . 

COS 

COMPUTES 

( 1/2  )COS INE ( 2 PI  MPAC) . 

R2135 

3. 

ASIN 

COMPUTES 

( 1/2PI  ) ARCS INEI2  MPAC  ) . 

R2136 

4. 

ACOS 

COMPUTES 

(1/2PI  IARCC0SINE12  MPAC) 

R2137 

SIN-ASIN  AND 

COS-ACOS  ARE 

MUTUALLY  INVERSE,  IE  SINIASIN(X))  = X. 

2138 

REF 

6 

LAST 

1074 

00,3517 

0 

6 744 

0 

COSINE 

TC 

BRANCH 

FINOS  COSINE  USING  THE  IDENTITY 

2139 

00,3520 

1 

3523 

1 

TCF 

+ 3 

COS(X)  = SINIPI/2  - A B S ( X ) ) . 

2140 

REF 

1 

00,3521 

1 

3526 

1 

TCF 

PRESINE 

2141 

REF 

2 

LAST 

1080 

00,3522 

1 

3526 

1 

TCF 

PRESINE 

2142 

00,3523 

0 

CC06 

1 

+3 

EXTEND 

214  3 

REF 

677 

LAST 

1079 

00,3524 

4 

C 1 55 

1 

DCS 

MPAC 

2144 

REF 

678 

LAST 

1080 

00,3525 

52 

155 

1 

DXCH 

MPAC 

2145 

REF 

2 

LAST 

1079 

00,3526 

3 

4730 

1 

PRES INE 

CAF 

QUARTER 

PI/2  SCALED. 

2146 

REF 

679 

LAST 

1080 

00,3527 

26 

154 

0 

ADS 

MPAC 

2147 

REF 

630 

LAST 

1080 

00,3530 

52  155 

1 

SINE 

DXCH 

MPAC 

DOUBLE  ARGUMENT. 

2148 

00,3531 

20  001 

1 

DDOUBL 

2149 

00,3532 

54  COO 

0 

OVSK 

SEE  IF  OVERFLOW  PRESENT. 

2150 

00,3533 

1 3536 

0 

TCF 

+ 3 

IF  MOT,  ARGUMENT  OK  AS  IS. 

2151 

00,3534 

0 0006 

1 

EXTEND 

IF  SO,  WE  LOST  (OR  GAINED)  PI,  SO 

2152 

00,3535 

4 0001 

1 

DCOM 

COMPLEMENT  MPAC  USING  THE  IDENTITY 

A2153 

SIN(X-(+)PI)  = SIN(-X). 

2154 

REF 

681 

LAST 

1080 

00,3536 

52  155 

1 

+ 3 

DXCH 

MPAC 

2155 

REF 

682 

LAST 

1080 

00,3537 

3 0154 

1 

CA 

MPAC 

SEE  TF  ARGUMENT  GREATER  THAN  .5  IN 

2156 

00,3540 

6 0000 

1 

DOUBLE 

MAGNITUDE.  IF  SO,  REDUCE  IT  TO  LESS  THAN 

2157 

REF 

223 

LAST 

1078 

00,3541 

54  001 

1 

TS 

L 

.5  (+-PI/2  SCALED)  AS  FOLLOWS: 

2158 

REF 

1 

00,3542 

1 3553 

0 

TCF 

SN1 

2159 

REF 

337 

LAST 

1077 

00,3543 

50  000 

1 

INDEX 

A 

IF  POSITIVE,  FORM  PI  - X,  IF  NEGATIVE 

2160 

REF 

4 

LAST 

862 

00,3544 

3 4726 

0 

CAF 

NEG1/2  +1 

USE  -PI  - X. 

2161 

00,3545 

6 COOO 

1 

DOUBLE 

2162 

00,3546 

0 C006 

1 

EXTEND 

2163 

REF 

663 

LAST 

1080 

00,3547 

60  154 

1 

SU 

MPAC 

GUARANTEED  NO  OVERFLOW. 

2164 

REF 

664 

LAST 

1080 

00,3550 

54  154 

0 

TS 

MPAC 

2165 

REF 

665 

LAST 

1080 

00, 3551 

4 0155 

1 

CS 

MPAC 

+ 1 

2166 

REF 

686 

LAST 

1080 

00,3552 

54  155 

1 

TS 

MPAC 

+1 

GAP:  ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY 
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2167 

00,3553 

C 0006 

1 

2 168 

REF 

687 

LAST 

1080 

00,3554 

3 C 1 55 

0 

2169 

REF 

19 

LAST 

1066 

00, 3555 

52  134 

0 

2170 

REF 

5 

LAST 

1076 

00,3556 

0 3300 

1 

2171 

REF 

2 

LAST 

859 

00,3557 

0 7243 

0 

2172 

00,3560 

0CC03 

1 

2173 

00,3561 

14441 

0 

2173 

00,3562 

37325 

1 

2174 

00,3563 

53250 

0 

2174 

00,3564 

60  764 

1 

2175 

00,3565 

12  146 

I 

2175 

00,356b 

21276 

1 

2176 

00,3567 

75466 

1 

2176 

00,3570 

71471 

0 

2177 

00,3571 

00236 

0 

2177 

00,3572 

32757 

0 

2178 

REF 

1 

00,3573 

3 2470 

0 

2179 

REF 

19 

LAST 

1042 

00,3574 

0 7127 

1 

2180 

00,3575 

C C006 

1 

2181 

REF 

688 

LAST 

1081 

00,3576 

3 0156 

0 

2182 

REF 

689 

LAST 

1081 

00,3577 

20  156 

1 

2 183 

REF 

690 

LAST 

1081 

00,3600 

6 C 1 54 

1 

2104 

REF 

69  1 

LAST 

1081 

00,3601 

26  154 

0 

2185 

00, 3602 

0 0006 

1 

2186 

REF 

692 

LAST 

1081 

00,3603 

3 C 1 56 

0 

2137 

REF 

693 

LAST 

1081 

00,3604 

20  156 

1 

2188 

REF 

69  4 

LAST 

1081 

00,3605 

6 C 1 54 

l 

2189 

REF 

695 

LAST 

1081 

00,3606 

26  154 

0 

2190 

REF 

41 

LAST 

1075 

00,3607 

1 6102 

0 

SN1 
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EXTEND 
DC  A 

MPAC 

SET  UP 

TO  EVALUATE  HASTINGS  POLYNOMIAL 

DXCH 

8UF2 

TC 

DSQSUB 

SQUARE 

MPAC. 

TC 

POLY 

EVALUATE  FOURTH  DRDFR  POLYNOMIAL. 

DEC 

3 

2DEC 

+ .3926990796 

2DEC 

- .64596371  11 

2DEC 

+.318758717 

2DEC 

- .074780249 

2DFC 

+ .009694988 

CAF 

LBUF2 

MULTIPLY 

BY  ARGUMENT  AND  SHIFT  LEFT  2 

TC 

DMPSUB  -1 

EXTEND 

DC  A 

MPAC  +1 

DAS 

MPAC  +1 

AD 

MPAC 

ADS 

MPAC 

NE  ITHER 

SHIFT  OVERFLOWS. 

EXTEND 

DC  A 

MPAC  +1 

DAS 

MPAC  +1 

AD 

MPAC 

ADS 

MPAC 

TCF 

0 ANZ  IG 

GAP:  ASSEMBLE  RFVISION  210  CF  A GC  PROGRAM  LUMINARY  BY 
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P2191  ARCSIN/ARCCOS  ROUTINE. 


2192 

REF 

1 

00, 3610 

3 

3631 

0 

ARCS  IN 

2193 

00,3611 

1 

3613 

1 

2194 

REF 

1 

00,3612 

3 

3713 

1 

ARCCOS 

2195 

REF 

1 

00,3613 

54 

136 

1 

2196 

REF 

7 

LAST 

108  C 

00,3614 

0 

6744 

0 

2197 

REF 

1 

00,3615 

1 

3625 

1 

2198 

REF 

1 

00,3616 

1 

3 731 

0 

2199 

00,3617 

0 

C006 

1 

2200 

REF 

696 

LAST 

1081 

00, 3620 

4 

0155 

1 

2201 

REF 

697 

LAST 

1082 

00,3621 

52 

155 

1 

2202 

REF 

1 

00,3622 

3 

3734 

1 

2203 

REF 

2 

LAST 

1082 

00,3623 

56 

136 

0 

2204 

REF 

1 

00, 3624 

54 

137 

0 

2205 

REF 

25 

LAST 

1079 

00,3625 

4 

4727 

0 

ACOSST 

2206 

REF 

698 

LAST 

1082 

00,3626 

6 

0154 

1 

2207 

REF 

338 

LAST 

1080 

00,3627 

10 

COO 

0 

2208 

REF 

1 

00,3630 

1 

3721 

1 

2209 

REF 

1 

00,3631 

1 

3707 

0 

LASINEX 

2210 

REF 

1 

00,3632 

1 

3642 

0 

221  1 

REF 

699 

LAST 

1082 

00,3633 

10 

155 

1 

2212 

REF 

221 

LAST 

1078 

00,3634 

3 

4 746 

0 

2213 

REF 

1 

00,3635 

1 

3637 

1 

2214 

REF 

2 

LAST 

1082 

00,3636 

1 

3642 

0 

2215 

REF 

700 

LAST 

1082 

00,3637 

54 

155 

l 

AC0S=0 

2216 

REF 

701 

LAST 

1082 

00,3640 

54 

154 

0 

2217 

REF 

3 

LAST 

1082 

00,3641 

0 

0136 

0 

2218 

00,3642 

0 

0006 

1 

AC0SST2 

2219 

REF 

702 

LAST 

1082 

00,3643 

4 

C 1 55 

1 

2220 

REF 

26 

LAST 

1082 

00,3644 

6 

4727 

1 

222  1 

REF 

7C3 

LAST 

1082 

00,3645 

52 

155 

1 

2222 

REF 

20 

LAST 

108  1 

00,3646 

52 

134 

0 

2223 

REF 

3 

LAST 

1074 

00,3647 

0 

3343 

0 

2224 

REF 

63 

LAST 

1079 

00,3650 

10 

135 

1 

2225 

REF 

1 

00,3651 

1 

3714 

1 
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CAF 

LASINFX 

COMPUTE  ARCSIN  BY  USING  THE  IDENTITY 

TCF 

+ 2 

ARCS  I N ( X ) = PI/2  - ARCCOS  t X ) . 

CAF 

LDANZ IG 

(EXITS  IMMEDIATELY). 

TS 

ESCAPE 

TC 

BRANCH 

TEST  SIGN  OF  INPUT. 

TCF 

ACOSST 

START  IMMEDIATELY  IF  POSITIVE. 

TCF 

ACOSZERO 

ARCCOS  ('0 ) = PI/2  = .25. 

EXTEND 

IF  NEGATIVE,  USE  THE  IDENTITY 

DCS 

M P AC 

ARCCOS ( X ) = PI  - ARCCOS(-X),  FORCING 

DXCH 

M P AC 

ARGUMENT  POSITIVE. 

CAF 

TCSUBTR 

SET  E X I T TO  DO  ABOVE  BEFORE 

XCH 

ESCAPE 

ARCSIN/ARCCOS  CONSIDERATIONS. 

TS 

ESCAPE2 

cs 

HALF 

TEST  MAGNITUDE  OF  INPUT. 

AD 

MPAC 

CCS 

A 

TCF 

ACOSOVF 

THIS  IS  PROBABLY  AN  OVERFLOW  CASE. 

TCF 

ASINEX 

TCF 

AC0SST2 

NO  OVERFLOW  - PROCEED. 

CCS 

MPAC  +1 

IF  MAJOR  PART  IS  .5,  CALL  ANSWER  0 

CAF 

ZERO 

UNLESS  MINOR  PART  NEGATIVE. 

TCF 

AC0S=0 

TCF 

AC0SST2 

TS 

MPAC  +1 

TS 

MPAC 

TC 

ESCAPE 

EXTEND 

NOW  THAT  ARGUMENT  IS  IN  PROPER  RANGE, 

DCS 

MPAC 

BEGIN  COMPUTATION.  USE  HASTINGS 

AD 

HALF 

APPROXIMATION  ARCCOS(X)  = SQRT ( 1- X ) P ( X ) 

DXCH 

MPAC 

IN  A SCALED  VERSION  WHERE  P ( X ) IS  A 

DXCH 

BUF2 

SEVENTH  ORDER  POLYNOMIAL. 

TC 

SQRTSUB 

RETURNS  WITH  NORMALIZED  SQUARE  ROOT. 

CCS 

MPTEMP 

SEE  IF  UN-NORMALIZATION  REQUIRFD. 

TCF 

ACOSSHR 

IF  SO. 
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2226 

REF 

704 

LAST 

1082 

00,3652 

52  155 

1 

ACUS3 

DXCH 

MPAC 

SET  UP  FCR  POLYNOMIAL 

EVALUATION. 

2227 

REF 

21 

LAST 

1082 

00,3653 

52  134 

0 

OXCH 

BUF2 

2228 

REF 

7C5 

LAST 

1083 

00,3654 

52  155 

1 

DXCH 

MPAC 

2229 

REF 

3 

LAST 

1081 

00,3655 

0 7243 

0 

TC 

POLY 

2230 

00,3656 

00006 

1 

DEC 

6 

2231 

00,3657 

13240 

0 

2DEC 

+.353553385 

COEFFICIENTS  ARE  C 2 ( + I) / P I SORT ( 2 ) WHERE 

2231 

00,3660 

23630 

0 

2232 

00,3661 

74721 

0 

2DEC* 

- .0483017006 

R + l*  I 

2232 

00,3662 

47775 

1 

2233 

00,3663 

02440 

0 

2DEC* 

+ .0200273085 

B+2*  WHERE  C STANDS  FOR  ORIGINAL  COEFFS. 

2233 

00,3664 

20237 

0 

223  A 

00,3665 

75067 

l 

2DEC* 

- .01  12931863 

B+3* 

2239 

00 , 3666 

7 C 742 

1 

2235 

00,3667 

03436 

0 

2DEC* 

+.00695311612 

8+4* 

2235 

00, 3670 

26756 

1 

2236 

00,3671 

74037 

0 

2DEC* 

-.00384617957 

B + 5* 

2236 

00,3672 

57640 

1 

223  7 

00,3673 

03046 

0 

2DEC* 

+.001501297736  B+6* 

223  7 

00,3674 

C 7 143 

0 

2238 

00,3675 

76654 

1 

2D  EC* 

-.000284160334  B+7* 

2238 

00,3676 

42244 

0 

2239 

REF 

2 

LAST 

1081 

00,3677 

3 2470 

0 

CAF 

LBUF2 

DO  final  multiply  AND 

GO  TO  ANY 

2240 

REF 

20 

LAST 

1081 

00,3700 

0 7127 

l 

TC 

DMPSUB  -1 

FPILOGUF  SEQUENCFS. 

2241 

REF 

4 

LAST 

1082 

00,3701 

0 C 136 

0 

TC 

ESCAPE 

2242 

00,3702 

0 0006 

1 

SUBTR 

EXTEND 

EPILOGUE  FOR  NEGATIVE 

INPUTS  TO  ARCCOS. 

2243 

REF 

706 

LAST 

1083 

00,3703 

4 0155 

1 

DCS 

MPAC 

2 244 

REF 

27 

L AST 

1082 

00,3704 

6 4727 

1 

AD 

HALF 

FORMS  PI  - ARCCOS(-X) 

= ARCCOS (X) . 

2245 

REF 

7C7 

LAST 

1083 

00,3705 

52  155 

1 

DXCH 

MPAC 

2246 

REF 

2 

LAST 

1082 

00,3706 

0 C 137 

1 

TC 

E SCAPE2 

GO  TO  POSSIBLE  ARCSIN 

EPILOGUE. 

224  7 

00, 3707 

0 C006 

1 

ASINEX 

EXTEND 

2248 

REF 

7C8 

LAST 

1083 

00,3710 

4 0155 

1 

DCS 

MPAC 

ARCSIN  EPILOGUE  - GET 

ARCSIN ( X ) 

2249 

REF 

3 

LAST 

1080 

00,3  71  1 

6 4730 

1 

AD 

QUARTER 

= PI/ 2 - ARCCOSI X ) . 

2250 

REF 

7C9 

LAST 

1083 

00,3712 

52  155 

1 

DXCH 

MPAC 

2251 

REF 

42 

LAST 

1081 

00,3713 

1 6102 

0 

LCANZ IG 

TCF 

DANZIG 

PAGF  1084 


GAP: 

ASSEMBLE  1 

REVISION  210 

OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161 

17:11  MAR.  19,1971  SKIPPER  .131 

L 

INTERPRETER 

USER'S  PAGE  NO.  85 

2252 

REF 

335 

LAST 

1082 

00,3714 

50  000 

1 

ACOSSHR 

INDEX 

A 

THE  SHIFT  RIGHT  IS  LESS  THAN 

2253 

REF 

63 

LAST 

1071 

00,3715 

3 4727 

1 

CAF 

B I T 14 

THE  INPUT  WAS  NON-ZERO  DP. 

2254 

REF 

64 

LAST 

1082 

00,3716 

54  135 

1 

TS 

MPTEMP 

2255 

REF 

4 

LAST 

1048 

00,3717 

0 2073 

1 

TC 

VSHRRND 

DP  SHIFT  RIGHT  AND  ROUND. 

2256 

REF 

1 

00,3720 

1 3652 

l 

TCF 

AC0S3 

PROCE  ED. 

2257 

00,3721 

0 0006 

1 

ACOSOVF 

EXTEND 

IF  MAJOR  PART  WAS  ONLY  1 MORE 

2258 

REF 

2 

LAST 

1082 

00,3722 

1 3637 

l 

BZF 

AC0S=0 

CALL  ANSWER  ZERO. 

2259 

00,3723 

0 0C06 

1 

ACOSABRT 

EXTEND 

IF  OVERFLOW,  CALL  ANSWFR  ZERO 

2259  1 

REF 

28 

LAST 

1077 

00,3724 

3 0165 

0 

DC  A 

LOC 

SOUND  AN  ALARM. 

22592 

REF 

1 

00,3725 

0 5726 

1 

TC 

ALARM  1 

22593 

00,3726 

01301 

1 

OCT 

1301 

2260 

RFF 

222 

LAST 

1082 

00,3727 

3 4 746 

0 

CAF 

ZERO 

2260  1 

REF 

3 

LAST 

1084 

00,3730 

1 3637 

1 

TCF 

ACOS=0 

2261 

REF 

4 

LAST 

1083 

00,3731 

3 4730 

1 

ACOSZERO 

CAF 

QUARTER 

ACOSIO)  = PI/2. 

2262 

REF 

4 

LAST 

1084 

00,3732 

1 3640 

l 

TCF 

A COS  =0  +1 

SET  MPAE  AND  EXIT  VIA  ESCAPE. 

226  3 

00,3733 

7 7763 

0 

NEG12 

DEC 

-12 

2264 

REF 

1 

00,3734 

l 3702 

0 

TCSUBTR 

TCF 

SUBTR 

F3  S3 
4 SINCE 

THAN  .5, 
BUT 


GAP: 
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L INTERPRETER 


P2265 

THE 

FOLLOWING 

INSTRUCTIONS  ARE  AVAILABLE  FOR  SETTING,  MODIFYING 

R2267 

1. 

A XT 

ADDRESS  TO  INDEX  TRUE. 

R2268 

1 . 

A XC 

ADDRESS  TO  INDEX  COMPLEMENTED. 

R 2 269 

3. 

LXA 

LOAD  INDEX  F R CM 

ERASABLE. 

R2270 

4. 

LXC 

LOAD  INDEX  COMPLEMENTED  FROM  FRASABLE. 

R2271 

5. 

S X A 

STORE  INDEX  IN 

ERASABLE. 

R2272 

6. 

XC  HX 

EXCHANGE  INDEX 

REIGSTER  WITH  ERASABLE. 

R2273 

7. 

incr 

INCREMENT  INDEX 

REGISTER. 

R2274 

8. 

X AO 

ERASABLE  ADO  TO 

INDEX  REGISTFR. 

R2275 

9. 

XSU 

ERASABLE  SUBTRACT  FROM  INDEX  REGISTER. 

R227  6 

10. 

TIX 

BRANCH  ON  INDEX 

REGISTER  AND  DECREMENT. 

2277 

01,2350 

BANK 

01 

2278 

REF 

1 

COUNT* 

$ $/ 1 NTER 

2279 

REF 

1 

01,2350 

0 2445 

0 

AXT 

TC 

T AGSUB 

2280 

REF 

23 

LAST 

1075 

01, 2351 

3 C 1 1 7 

0 

CA 

POLISH 

2281 

REF 

4 

LAST 

1004 

01,2352 

50  130 

0 

XSTORE 

INDEX 

I NDEXLOC 

2282 

REF 

29 

LAST 

1014 

01,2353 

54  C46 

1 

TS 

XI 

2283 

REF 

43 

LAST 

1083 

01,2354 

1 6102 

0 

TCF 

DANZ  IG 

2284 

REF 

2 

LAST 

1085 

01,2355 

0 2445 

0 

A XC 

TC 

TAGSUB 

2285 

REF 

24 

LAST 

1085 

01,2356 

4 0117 

1 

CS 

POLISH 

2286 

REF 

1 

01,2357 

0 2352 

1 

TC 

XSTORE 

2287 

REF 

1 

01,2360 

0 2433 

1 

LXA 

TC 

1 5ADRERS 

2288 

REF 

25 

LAST 

1085 

01,2361 

50  117 

0 

INDEX 

POLISH 

2289 

01,2362 

3 0000 

1 

CA 

0 

2290 

REF 

2 

LAST 

1085 

01,2363 

1 2352 

0 

TCF 

XSTORE 

2291 

REF 

2 

LAST 

1085 

01 , 2364 

0 2433 

1 

LXC 

TC 

1 5ADRERS 

2292 

REF 

26 

LAST 

1085 

01,2365 

50  117 

0 

INDEX 

POLISH 

2293 

01,2366 

4 COOO 

0 

CS 

0 

2294 

REF 

3 

LAST 

1085 

01 ,2367 

1 2352 

0 

TCF 

XSTORE 

2295 

REF 

3 

LAST 

1035 

01,2370 

0 2433 

1 

SXA 

TC 

15 ADR  EP  S 

2296 

REF 

5 

LAST 

1085 

01,2371 

50  130 

0 

INDEX 

I NDEXLOC 

2297 

REF 

30 

LAST 

1085 

01,2372 

3 CC46 

0 

CA 

X 1 

2298 

REF 

27 

LAST 

1085 

01,2373 

50  117 

0 

MST0RE1 

INDEX 

POLISH 

2299 

01,2374 

54  000 

0 

TS 

0 

2300 

REF 

44 

LAST 

1085 

01,2375 

1 6102 

0 

TCF 

DANZIG 

USER'S  PAGE  NO.  86  . E3  S3 

, AND  BRANCHING  ON  INDEX  REGISTERS: 


SELECT  APPROPRIATE  INDEX  REGISTER. 
CONTAINS  C(FIXLOC)  OR  C(FIXL0C)+1. 


LOAD  INDEX  REGISTER  FROM  ERASABLE. 

LOAD  NDX  REG  FROM  ERASABLE  COMPLEMENTED. 
STORE  INDEX  REGISTER  IN  ERASABLE. 


GAP: 

L 

230  1 

2302 

2303 

230  A 

2305 

2306 

2307 

2 30  8 

2309 

2310 

231  1 

2312 

2313 

2314 

2315 

2316 

231  7 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

232  7 

2328 

2329 
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INTERPRETER 


USER'S  PAGE  NO.  87  E3  S3 


REF 

4 

LAST 

1085 

01,2376 

0 2433 

1 

X CHX 

TC 

15ADRERS 

EXCHANGE 

INDEX  REGISTER  WITH 

ERASABLE. 

REF 

28 

LAST 

1085 

01,2377 

50  117 

0 

INOEX 

POLISH 

01,2400 

3 COOO 

1 

CA 

0 

REF 

6 

LAST 

1085 

01,2401 

50  130 

0 

INDEX 

I NDEXLOC 

REF 

31 

LAST 

1085 

01,2402 

56  C46 

0 

XCH 

XI 

REF 

1 

01 , 2403 

1 2373 

0 

TCF 

MST0RE1 

REF 

5 

LAST 

1086 

01,2404 

0 2433 

1 

X AD 

TC 

15ADRERS 

ADD  ERASABLE  TO  INDEX  REGISTER. 

REF 

29 

LAST 

1086 

01,2405 

50  117 

0 

INDEX 

POLISH 

01 ,2406 

3 0000 

1 

CA 

0 

REF 

7 

LAST 

1086 

01,2407 

50  130 

0 

X AD2 

INDEX 

I NDEXLOC 

REF 

32 

LAST 

1086 

01 , 2410 

26  046 

1 

ADS 

XI 

IGNOR ING 

OVERFLOWS. 

REF 

45 

LAST 

1085 

01,2411 

1 6102 

0 

TCF 

DANZIG 

REF 

3 

LAST 

1085 

01,2412 

0 2445 

0 

I NCR 

TC 

TAGSU8 

INCREMENT 

INDEX  REGISTER. 

REF 

30 

LAST 

1086 

01,2413 

3 0117 

0 

CA 

POLISH 

REF 

1 

01,2414 

1 2407 

l 

TCF 

XAD2 

REF 

6 

LAST 

1086 

01,2415 

0 2433 

l 

XSU 

TC 

1 5ADRERS 

SUBTR  ACT 

ERASABLE  FROM  INDEX 

REGISTER. 

REF 

31 

LAST 

1086 

01,2416 

50  117 

0 

INDEX 

POLISH 

01,2417 

4 0000 

0 

cs 

0 

REF 

2 

LAST 

1086 

01,2420 

1 2407 

l 

TCF 

XAD2 

REF 

4 

LAST 

1086 

01 , 2421 

0 2445 

0 

T I X 

TC 

TAGSUB 

BRANCH  AND  DECREMENT  ON  INDEX. 

REF 

8 

LAST 

1086 

01,2422 

50  130 

0 

INDEX 

I NDEXLOC 

REF 

12 

LAST 

962 

01,2423 

4 0050 

0 

CS 

SI 

REF 

9 

LAST 

1086 

01,2424 

50  130 

0 

INDEX 

I NDEXLOC 

REF 

33 

LAST 

1086 

01,2425 

6 C 046 

0 

AD 

XI 

01,2426 

0 0006 

l 

EXTEND 

NO  OPERATION  IF  DECREMENTED  INDEX  IS 

REF 

46 

LAST 

1086 

01,2427 

6 6102 

1 

BZMF 

DANZ  IG 

NEGATIVE  OR  ZERO. 

REF 

10 

LAST 

1086 

01,2430 

50  130 

0 

DOT  I XBR 

INDEX 

I NDEXLOC 

REF 

34 

LAST 

1086 

01 , 2431 

56  046 

0 

XCH 

XI 

IGNORING  OVERFLOWS. 

REF 

6 

LAST 

1075 

01, 2432 

1 6667 

1 

TCF 

GOTO 

DO  THE  BRANCH  USING  THE  CADR  IN  POLI 

GAP: 

ASSEMBLE 

REVISION  210 

CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

17:11  MAR.  19,1971  SKIPPER 

.131  PAGE  1087 

L 

INTERPRETER 

USER'S  PAGE  NO.  88 

E3  S3 

P2330 

SUBROUTINE 

TO  CONVERT 

AN  ERASABLE  ADDRESS  (11 

BITS)  TO  AN 

EBANK  SETTING  AND  SUBADDRESS. 

233  2 

REE 

32 

LAST 

1086 

01,2433 

4 C 1 1 7 

1 

15ADRERS  CS 

POLISH 

2333 

REF 

2 

LAST 

1014 

01,2434 

6 4763 

1 

AD 

DEC45 

2334 

REF 

340 

LAST 

1034 

01,2435 

10  000 

0 

CCS 

A 

DOES 

THE  ADDRESS  POINT  TO 

THE  WORK  AREA? 

2335 

REF 

56 

LAST 

1075 

01,2436 

3 C 120 

1 

CA 

F I XLOC 

YES. 

ADD  FIXLOC.  EBANK 

OK  AS  IS. 

2336 

01,2437 

1 2444 

0 

TCF 

+ 5 

2337 

REF 

6 

LAST 

1014 

01, 2440 

3 5000 

1 

CA 

0CT1400 

NO. 

SET  EBANK  G MAKE  UP 

SUBADDRESS . 

2333 

REF 

33 

LAST 

1087 

01,2441 

56  117 

0 

XCH 

POLISH 

2339 

REF 

69 

LAST 

1022 

01,2442 

54  003 

0 

TS 

EBANK 

2340 

REF 

14 

LAST 

1022 

01, 2443 

7 4350 

1 

MASK 

L0W8 

234  1 

REF 

34 

LAST 

1037 

01,2444 

26  117 

1 

+ 5 ADS 

POLISH 

FALL 

INTO  TAGSUB,  AND  RETURN  VIA  0. 

R2342 

SUBROUTINE 

WHICH  SETS 

1 THF  ADDRESS  OF  THE  SPECIFIED  INDEX 

IN  I NDEXLOC 

. (ACTUALLY,  THE  ADDRESS  -380.) 

2 344 

REF 

57 

LAST 

1087 

01,2445 

3 C 120 

1 

TAGSUB  CA 

F I XLOC 

2345 

REF 

11 

LAST 

1086 

01,2446 

54  130 

1 

TS 

I NOE  XLOC 

2346 

REF 

32 

LAST 

1054 

01,2447 

10  020 

1 

CCS 

C YR 

BIT  15  SPECIFIES  INDEX. 

2347 

REF 

12 

LAST 

1087 

01,2450 

24  130 

0 

INCR 

I NDEXLOC 

0 MEANS  US F X2. 

2348 

REF 

286 

LAST 

1078 

01,2451 

0 0002 

0 

TC 

Q 

2349 

REF 

287 

LAST 

1087 

01,2452 

0 0002 

0 

TC 

Q 

1 FOR 

XI . 

GAP: 

L 

P2350 

R2352 

R2354 

R2356 

R2353 

R2360 

R2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

237  7 
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MISCELLANEOUS  OPERATION  CODES  WITH  DIRECT  ADDRESSES.  INCLUDED  HERE  ARE: 


ITA 

CALL 

RTB 

BHIZ 

BOV 

GOTO 


STORE  QPRET  (RETURN  ADDRESS)  IN  ERASABLE. 

CALL  A SUBROUTINE,  LEAVING  RETURN  IN  QPRET. 

RETURN  TO  BASIC  LANGUAGE  AT  THE  GIVEN  ADDRESS. 

BRANCH  IF  THE  HIGH  ORDER  OF  MPAC  IS  ZERO  (SINGLE  PRECISION) 
eRANCH  ON  OVERFLOW. 

SIMPLE  SEQUENCE  CHANGE. 


REF 

33 

LAST 

1087 

01: 

r 2453 

10 

020 

i 

RTB/ 

BHIZ 

CCS 

REF 

35 

LAST 

1087 

01 

,2454 

3 

C 1 1 7 

0 

RTB 

CA 

REF 

4 

LAST 

937 

01 

, 2455 

0 

4612 

0 

TC 

REF 

7 10 

LAST 

1083 

01, 

,2456 

10 

154 

0 

BHIZ 

CCS 

REF 

47 

LAST 

1086 

01 

,2457 

1 

6102 

0 

TCF 

REF 

7 

LAST 

1086 

01, 

, 2460 

1 

6667 

1 

TC  F 

KEF 

48 

LAST 

1088 

01. 

,2461 

1 

6102 

0 

TCF 

REF 

8 

LAST 

1088 

01, 

, 2462 

1 

6667 

1 

TCF 

REF 

11 

LAST 

1076 

01, 

,2463 

10 

121 

1 

> 

o 

CO 

B) 

CCS 

01, 

,2464 

1 

24  66 

0 

TCF 

REF 

49 

LAST 

1088 

01, 

,2465 

1 

6102 

0 

TCF 

REF 

12 

LAST 

1088 

01, 

, 2466 

54 

121 

1 

TS 

REF 

34 

LAST 

1088 

01, 

,2467 

10 

020 

1 

CCS 

REF 

1 

01, 

, 2470 

1 

2454 

1 

TCF 

01, 

,2471 

00360 

1 

B5T0 

B8 

OCT 

REF 

9 

LAST 

1088 

01, 

, 2472 

1 

6 6 6 7 

1 

TCF 

CYR 

POLISH 

SWCALL  -1  SO  A "TC  Q"  FROM  ROUTINF  LEADS  TO  DANZIG 

MPAC 

DANZIG 

GOTO 

DANZIG 

GOTO 

OVFIND  BRANCH  ON  OVERFLOW  TO  BASIC  OR  INTERP. 

+ 2 

DANZIG 

OVFIND 

CYR 

RTB  IF  BASIC. 

3 60 
GOTO 


GAP: 
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2378 

REF 

35 

LAST 

1088 

01,2473 

1C 

I 020 

1 

BZE/ GOTO 

CCS 

CYR 

2379 

REF 

' 8 

LAST 

1082 

01, 2474 

0 

6744 

0 

TC 

BRANCH 

2380 

REF 

50 

LAST 

1088 

01 ,2475 

1 

6 102 

0 

TCF 

DANZIG 

238  1 

REF 

10 

LAST 

1088 

01,2476 

1 

6667 

1 

TC  F 

GOTO 

2382 

REF 

51 

LAST 

1083 

01, 2477 

1 

6102 

0 

TCF 

DANZIG 

2383 

REF 

36 

LAST 

1089 

01,2500 

1C 

i 020 

1 

BPL/BMN 

CCS 

CYR 

2384 

REF 

1 

01,2501 

1 

2507 

0 

TCF 

BPL 

2385 

01,2502 

12000 

1 

5 B 10 

DEC 

5 B+10 

2386 

REF 

9 

LAST 

1089 

0 1, 2503 

0 

6 744 

0 

TC 

BRANCH 

2387 

REF 

52 

LAST 

1089 

01,2504 

1 

6 102 

0 

TCF 

DANZIG 

2388 

REF 

53 

LAST 

1089 

01,2505 

1 

6102 

0 

TCF 

DANZ IG 

2389 

REF 

11 

LAST 

1089 

01,2506 

1 

6667 

1 

TCF 

GOTO 

2390 

REF 

10 

LAST 

1089 

01,2507 

0 

6 744 

0 

BPL 

TC 

BRANCH 

2391 

REF 

12 

LAST 

1089 

01,2510 

1 

6667 

1 

TCF 

GOTO 

2392 

REF 

13 

LAST 

1089 

01,2511 

1 

6667 

1 

TCF 

GOTO 

2393 

REF 

54 

LAST 

1089 

01,2512 

1 

6 102 

0 

TCF 

DANZ IG 

2394 

REF 

37 

LAST 

1089 

01,2513 

10 

020 

1 

CALL/ ITA 

CCS 

CYR 

239  5 

REF 

1 

01,2514 

1 

6661 

1 

TCF 

CALL 

2396 

REF 

7 

LAST 

459 

01,2515 

0 

5701 

1 

TC 

CCSHOLE 

2397 

REF 

7 

LAST 

1086 

01,2516 

0 

2433 

l 

TC 

1 5ADRERS 

2398 

REF 

58 

LAST 

1087 

01,2517 

50 

120 

1 

INDEX 

F IXLOC 

2399 

REF 

8 

LAST 

1075 

01,2520 

3 

OC  52 

0 

CA 

QPRET 

2400 

REF 

2 

LAST 

1086 

01,2521 

1 

2373 

0 

TCF 

MST0RF1 

17:11  MAR.  19,1971  SKIPPER  .131  PAGE  1089 

USER'S  PAGE  NO.  90  E3  S3 

SEE  WHICH  OP-COOE  IS  OESIRFO. 

DO  BZE. 

DO  GOTO. 


SHIFTS  OP  CODE  IN  SWITCH  INSTRUCTION  ADR 
DO  BMN. 

ONLY  IF  NNZ. 

IF  POSITIVE  OR  ZERO. 


STORE  QPPET . (TAGSUB  AFTER  1SADRERS  IS 
SLOW  IN  THIS  C ASF , BUT  SAVFS  STORAGE.) 
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USER'S  PAGE  NO.  91 


.131  PAGE  1090 
E3  S3 


P2401 

THE  FOLLOWING 

OPERATIONS  ARE  AVAILABLE 

FOR 

ALTERING  AND 

TESTING  INTERPRETIVE  SWITCHES 

R2403 

00 

BONSFT 

SET  A SWITCH  AND  DO 

A GOTO  IF  IT 

WAS 

ON. 

R2404 

01 

SETGO 

SET  A SWITCH  AND  DO 

A GOTO. 

R240  5 

C2 

BOFSET 

SET  A SWITCH  AND  DO 

A GOTO  IF  IT 

WAS 

OFF 

R 240  6 

03 

SET 

SET  A SWITCH. 

R2407 

C4 

BON  I NV 

INVERT  A SWITCH 

AND 

BRANCH  IF  IT 

WAS 

ON. 

R2408 

C5 

I NVGO 

INVERT  A SWITCH 

AND 

DO  A GOTO. 

R2409 

06 

BOFINV 

INVERT  A SWITCH 

AND 

BRANCH  IF  IT 

WAS 

OFF 

R241C 

C 7 

INVERT 

INVERT  A SWITCH 

• 

R241  1 

10 

BONCLR 

CLEAR  A SWITCH 

AND 

BRANCH  IF  IT 

WAS 

ON. 

R 24 1 2 

1 1 

CLRGO 

CLEAR  A SWITCH 

AND 

DO  A GOTO. 

R2413 

12 

BOFCLR 

CLEAR  A SWITCH 

AND 

BRANCH  IF  IT 

WAS 

OFF. 

R 24 1 4 

13 

CLEAR 

CLEAR  A SWITCH. 

R2415 

14 

BON 

BRANCH  IF  A SWITCH 

WAS  ON. 

R2416 

16 

BOFF 

BRANCH  IF  A SWITCH 

WAS  OFF. 

R2417 

THE  ADDRESS 

SUPPLIED  WITH  THE  SWITCH 

INSTRUCTION  IS  INTERPRETED  AS  FOLLOWS: 

R2419 

BITS  1-4 

SWI  ICH 

BIT  NUMBER  l 1-15  ) . 

R2420 

BITS  5-8 

SWITCH 

OPERATION  NUMBER. 

R2421 

BITS  9- 

SWI TCH 

WORD  NUMBER  (UP  TO 

64 

SWITCH  WORDS) . 

R2422 

THE  ADDRESS 

ITSELF 

IS  MADE  UP  BY  THE 

YUL 

SYSTEM  ASSEMBLER.  THE  BRANCH 

INSTRUCTIONS  REQUIRE  TWO 

R 2424 

ADDRESSES,  THE  SECOND 

TAKEN 

AS  THE  DIRECT  (OR 

I NDIRFCT  IF  IN  ERASABLE)  ADDRESS 

OF  THE  BRANCH. 

2426 

REF 

2 

LAST 

740 

01,2522 

3 4 7 53 

1 

SWITCHES  CAF 

L0W4 

LEAVE  THE  SWITCH  BIT  IN  SWBIT  . 

2427 

REF 

36 

LAST 

1088 

01,2523 

7 0117 

1 

MASK 

POLISH 

2428 

REF 

341 

LAST 

1087 

01,2524 

50  COO 

1 

INDEX 

A 

2429 

REF 

40 

LAST 

1074 

01 , 2525 

3 4726 

0 

CAF 

BIT15 

(NUMBER  FROM  LEFT  TO  RIGHT.) 

2430 

REF 

1 

01,2526 

54  131 

0 

TS 

SWBIT 

243  l 

REF 

32 

LAST 

991 

01,  2527 

3 4736 

1 

CAF 

B I T 7 

LEAVE  THF  SWITCH  NUMBER  IN  SWWORD. 

2432 

01,2530 

0 C006 

1 

EXTEND 

2433 

REF 

37 

LAST 

1090 

01,2531 

7 C 1 1 7 

1 

MP 

POLISH 

2434 

REF 

1 

01,2532 

54  130 

1 

TS 

SWWORD 

243  5 

01,2533 

0 0004 

0 

INHINT 

DURING  SWITCH  CHANGE  SO  RUPT  CAN  USE 

243  6 

REF 

342 

LAST 

1090 

01,2534 

50  000 

1 

INDE  X 

A 

LEAVE  THF  SWITCH  WORD  ITSELF  IN  L. 

243  7 

REF 

40 

LAST 

567 

01,2535 

3 C074 

1 

CA 

STATE 

2438 

REF 

288 

LAST 

1087 

01,2536 

54  002 

1 

TS 

Q 

Q WILL  BE  USED  AS  A CHANNEL. 
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INTERPRETER 

2439 

REF 

23 

LAST 

915 

01, 2537 

244  0 

01,2540 

244  1 

REF 

38 

LAST 

1090 

01,2541 

2442 

REF 

1 

01,2542 

244  3 

REF 

343 

LAST 

1090 

01,2543 

244  4 

01,2544 

244  5 

REF 

2 

LAST 

1090 

01,2545 

2446 

01,2546 

244  7 

REF 

1 

01,2547 

244  8 

REF 

1 

01,2550 

2449 

REF 

3 

LAST 

1091 

01, 255  1 

2450 

01,2552 

2451 

REF 

2 

LAST 

1091 

01,2553 

2452 

REF 

2 

LAST 

1091 

01,2554 

2453 

REF 

4 

LAST 

1091 

01,2555 

2454 

REF 

269 

LAST 

1090 

01,2556 

2455 

REF 

2 

LAST 

1090 

01,2557 

2456 

REF 

4 l 

LAST 

1090 

01,2560 

3 4732 

0 

CAF 

BIT11 

0 C006 

1 

EXTENO 

7 0117 

1 

MP 

POLISH 

7 2602 

0 

MASK 

B3T0B4 

50  000 

1 

INDEX 

A 

1 2545 

0 

TCF 

+ 1 

3 0131 

l 

+ 1 

CA 

SWBIT 

0 0006 

1 

EXTEND 

04  002 

1 

ROR 

QCHAN 

1 2557 

0 

TCF 

SWSTDKE 

3 C 1 3 1 

1 

+ 5 

CA 

SWBIT 

0 C006 

l 

EXTEND 

06  C02 

0 

RXOR 

QCHAN 

1 2557 

0 

TCF 

SWSTORE 

4 0131 

0 

+ 9D 

CS 

SWBIT 

7 C002 

1 

MASK 

Q 

50  130 

0 

SWSTORE 

INDEX 

SWWORD 

54  074 

0 

TS 

STATE 

USER' S PAGE  NO.  92  E3  S3 

DISPATCH  SWITCH  BIT  OPERATION  AS  IN  BITS 
7-8  OF  POL  ISH. 

GETS  4X2— B I T CODE. 

00  - SET  SWITCH  IN  QUESTION. 

01  - INVERT  SWITCH. 

10  - CLEAR. 

NEW  SWITCH  WORD. 
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INTERPRETER 

2457 

01,2561 

2458 

REF 

36 

LAST 

995 

01, 2562 

2459 

01,2563 

2460 

REF 

39 

LAST 

1091 

01,2564 

2461 

REF 

2 

LAST 

1091 

01,2565 

2462 

REF 

344 

LAST 

1091 

01,2566 

2463 

01,2567 

2464 

REF 

290 

LAST 

1091 

01,2570 

2465 

REF 

5 

LAST 

1091 

01,2571 

2466 

REF 

345 

LAST 

L092 

01,2572 

2467 

REF- 

1 

01,2573 

246  8 

REF 

1 

01,2574 

2469 

REF 

2 

LAST 

1092 

01 , 2575 

2470 

REF 

8 

LAST 

1089 

01,2576 

247  1 

REF 

9 

LAST 

1092 

01,2577 

247? 

REF 

291 

LAST 

109  2 

01,2600 

2473 

REF 

1 

01 , 2601 

2474 

01,2602 

2475 

REF 

29 

LAST 

1084 

01,2603 

2476 

REF 

1 

01,2522 

2477 

REF 

55 

LAST 

1089 

01,2604 

0 

C 003 

1 

+ 13  D 

REL  INT 

3 

4730 

1 

CAF 

BIT13 

0 

0006 

1 

EXTEND 

7 

C 1 1 7 

1 

MP 

POLISH 

7 

2602 

0 

MASK 

B3T0B4 

50 

000 

1 

INDEX 

A 

1 

2570 

0 

TCF 

+ 1 

4 

0002 

1 

+ 1 

CS 

Q 

7 

C131 

0 

TEST 

MASK 

SWBIT 

1C 

i COO 

0 

CCS 

A 

l 

2603 

1 

TCF 

SWSKI P 

1 

6736 

l 

+ 5 

TCF 

SWBRANCH 

1 

2603 

1 

TCF 

SWSKIP 

0 

5701 

1 

TC 

CCSHOLE 

0 

5701 

1 

TC 

CCSHOLE 

3 

0C02 

0 

+90 

CA 

Q 

1 

2571 

1 

TCF 

TEST 

00014 

1 

B3T0B4 

OCT 

0014 

2 4 

164 

1 

SWSKIP 

INCR 

LOC 

SW/ 

EQUALS 

SWITCHES 

1 

6102 

0 

+ 13D 

TCF 

DANZ IG 

USFP'S  PAGE  NO.  93  E3  S3 

11  - NOOP. 

DISPATCH  SEQUCE  CHANGING  OR  BRANCHING 
CODE. 

ORIGINALLY  STORED  IN  BITS  5-6. 

00  - BRANCH  IF  ON. 

01  - GO  TO. 

HERE  ONLY  ON  BIT  15. 

10  - BRANCH  IF  OFF. 


11  - NOOP. 
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0002 

4723 

37777 

1 

DPOSMAX 

OCT 

37777 

MUST  PRECEDE 

POSMAX 

0003 

4724 

37777 

1 

POSMAX 

OCT 

37777 

0004 

REF 

5 LAST  1080 

4 72  5 

LIMITS 

= 

NEG1/2 

000  7 

4725 

57777 

1 

NEG1/2 

OCT 

-20000 

USED  BY  SIN 

ROUTINE  (MUST 

A 000  8 
R0009 

BIT  TABLE 

LOCATIONS  IN 

FRONT  OF  BIT 

0010 

4726 

40000 

0 

BIT15 

OCT 

40000 

001  l 

4727 

20000 

0 

BIT14 

OCT 

20000 

0012 

4730 

10000 

0 

BIT13 

OCT 

10000 

0013 

473  L 

04000 

0 

BIT12 

OCT 

04000 

0014 

4732 

02000 

0 

BIT1  1 

OCT 

02000 

0015 

4733 

01000 

0 

BIT10 

OCT 

01000 

0016 

4734 

00400 

0 

6 I T9 

OCT 

00400 

0017 

4735 

00200 

0 

3IT8 

OCT 

00200 

0018 

4 73  6 

00100 

0 

B IT7 

OCT 

00100 

0019 

4737 

00040 

0 

B IT6 

OCT 

00040 

0020 

4740 

00020 

0 

BIT5 

OCT 

00020 

002  1 

4741 

00C10 

0 

B IT4 

OCT 

00010 

0022 

4 742 

00004 

0 

B IT3 

OCT 

00004 

0023 

4743 

00002 

0 

B IT2 

OCT 

00002 

0024 

4 744 

00001 

0 

BIT1 

OCT 

00001 

R0025 

DO  NOT  DESTROY 

THIS 

COMBINATION 

1,  SINCE 

IT  IS  USED  IN 

DOUBLE  PRECISION 

INSTRUCTIONS. 

002  7 

4745 

77  777 

0 

NEGO 

OCT 

-0 

MUST  PRECEDE  ZERO 

0028 

4 746 

OCCOO 

1 

ZERO 

OCT 

0 

MUST  FOLLOW  NEGO 

A0029 

BIT1 

OCT 

00001 

A 003  0 

NO.WDS 

OCT 

2 

INTER  PRETER 

A0031 

OCT  AL  3 

OCT 

3 

INTERPRETER 

A0032 

R301 

OCT 

4 

PINBALL 

0033 

4747 

0C005 

1 

F I VF 

OCT 

5 

A0034 

R EVCNT 

OCT 

6 

INTER  PRETER 

0035 

4750 

0CC07 

0 

SEVEN 

OCT 

7 

A0036 

B IT4 

OCT 

00010 

A0037 

R2D1 

OCT 

1 1 

PINBALL 

003  7 5 

REF  6 LAST 

472 

4311 

OCT  1 1 

= 

R2D1 

P20S 

A 003  8 

8INC0N 

DEC 

10 

PINBALL  (OCTAL 

0039 

4751 

00013 

0 

ELEVEN 

DEC 

11 

A 0040 

0CT14 

OCT 

14 

ALARM  AND  ABORT  (FILLER) 

0040  1 

4752 

00015 

0 

OCT  1 5 

OCT 

15 

A0041 

R ID  1 

OCT 

16 

PINBALL 

0043 

4 753 

00017 

1 

L0W4 

OCT 

17 

GAP: 

ASSEMBLE 

REVISION  210 

OF  AGC  PROGRAM  LUMINARY  BY  NASA 

2021112-161 

17:11  MAR.  19,1971 

SKIPPER 

.131  PAGE 

L 

FIXED-FIXED  CONSTANT 

POOL 

USER*  S PAGE 

NO.  2 

EO  S3 

A 004  4 

B IT5 

OCT 

00020 

A0045 

ND1 

1 if  T 

21 

PINBALL 

A0046 

VD1 

OCT 

23 

PINBALL 

A004  7 

0CT24 

OCT 

24 

SERVICE  ROUTINES 

A004  8 

MD1 

OCT 

25 

PINBALL 

00485 

4 754 

C0030 

1 

BITS4&5 

OCT 

30 

A0049 

0CT31 

OCT 

31 

SERVICE  ROUTINES 

0049  1 

4755 

00033 

1 

DCT33 

OCT 

33 

00492 

REF  3 

LAST 

869 

4755 

DEC27 

= 

OCT33 

00493 

4 756 

00035 

l 

UCT35 

OCT 

35 

004  9 4 

REF  2 

LAST 

740 

4756 

DEC29 

= 

OCT35 

005  0 

4757 

00032 

0 

CALLCQDE 

OCT 

00032 

A005  1 

L0W5 

OCT 

37 

PINBALL 

A0052 

33DEC 

DEC 

33 

PINBALL 

(OCTAL 

41  ) 

A0053 

34DEC 

DEC 

34 

PINBALL 

(OCTAL 

42) 

0054 

4760 

00045 

0 

TBUILDFX 

DEC 

37 

BUILDUP  FOR  CONVIENCE  IN 

DAPTESTING 

0055 

4 761 

00046 

0 

TOECAYFX 

DEC 

38 

CONVENIENCE  FOR  D APTE  STING 

A005  b 

B IT6 

OCT 

00040 

0057 

4762 

00050 

1 

0CT50 

OCT 

50 

0058 

4 763 

00055 

l 

0EC45 

DEC 

45 

0059 

4764 

00060 

1 

SUPER011 

OCT 

60 

BITS  FOR  SUPFRBNK 

SFTT  ING 

Oil  . 

0060 

4765 

00062 

0 

. 5SEC 

DEC 

50 

A0061 

B IT7 

OCT 

00100 

0062 

REF  33 

LAST 

1090 

4 736 

SUPER  100 

= 

B IT7 

BITS  FOR  SUPFRBNK 

SETT  ING 

100 

A0063 

(LAST  4K  OF  ROPE) 

0064 

4 766 

00120 

1 

SUPER  101 

OCT 

120 

BITS  FOR  SUPERBNK 

SETT  ING 

101 

A0065 

OCT  1 2 1 

OCT 

121 

SERVICE  ROUTINES 

A0066 

(FIRST  SK  OF  ACM) 

0067 

4767 

00140 

l 

SUPFR  110 

OCT 

140 

BITS  FOP  SUPERBNK 

SETTING 

110. 

A0068 

(LAST  8K  OF  ACM) 

0069 

4770 

OO  144 

0 

1 SEC 

DEC 

100 

A0070 

L0W7 

OCT 

177 

INTERPRETER 

A0071 

B IT8 

OCT 

00200 

A0072 

UT215 

OCT 

215 

ALARM  AND  ABORT 

A0073 

8,5 

OCT 

00220 

P20-P25  SUNDANCE 

0074 

4771 

C0310 

0 

2 SECS 

DEC 

200 

A0075 

L0W8 

OCT 

377 

PINBALL 

A0076 

B I T9 

OCT 

00400 

007  7 

4772 

00401 

1 

GN/CCODE 

OCT 

00401 

SET  S/C  CONTROL  SWITCH  TO 

G/N 

0079 

4773 

00454 

1 

3 SEC  S 

DEC 

300 

0080 

4774 

C0620 

0 

4SECS 

DEC 

400 

00801 

4775 

00777 

0 

L0W9 

OCT 

777 

A0081 

8 I T 10 

OCT 

01000 

A0082 

5.5DFGS 

DEC 

.03056 

P20-P25  SUNDANCE 

(OCTAL 

00765 ) 

A0083 

0CT1 103 

OCT 

1 103 

ALARM  AND  ABORT 

0084 

4776 

01124 

1 

C5/2 

DEC 

.0363551 

(OCTAL 

01124) 

0085 

4777 

01211 

1 

V05N09 

VN 

0509 

I SAME  AS  OCTAL  1211) 

0086 

5000 

C 1 400 

1 

OCT  1400 

OCT 

0 1400 

00865 

5001 

01426 

0 

V06N22 

VN 

0622 

1094 


I 
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A0087 

M ID5 

OCT 

1740 

00875 

5002 

01776 

0 

BITS2-10 

OCT 

1776 

0088 

5003 

01777 

1 

L0W10 

OCT 

1777 

A0089 

B IT1  1 

OCT 

02000 

A 0090 

2K+3 

OCT 

2003 

0091 

5004 

02177 

1 

L0W7+2K 

OCT 

2177 

0092 

5005 

02400 

1 

EBANK5 

OCT 

02400 

0093 

5006 

03000 

1 

P R 103 

OCT 

03000 

0094 

5007 

03400 

0 

EBANK7 

OCT 

03400 

A0095 

L0W1 1 

OCT 

3777 

A0096 

B IT  1 2 

OCT 

04000 

A0097 

RELTAB 

OCT 

04025 

0098 

5010 

C5000 

1 

PRI05 

OCT 

05000 

009  9 

5011 

06000 

1 

PRI06 

OCT 

06000 

0100 

5012 

C7C00 

0 

PRI07 

OCT 

07000 

A0102 

B IT1  3 

OCT 

10000 

AO  103 

OCT 

10003 

A0104 

13,7,2 

OCT 

10102 

0105 

5013 

1 1C00 

1 

PRI01 1 

OCT 

11000 

AO  10  6 

PRI012 

OCT 

12000 

0107 

5014 

13000 

0 

PRI013 

OCT 

13000 

0108 

5015 

14000 

1 

PRI014 

OCT 

14000 

AO  10  9 

OCT 

14031 

0110 

5016 

15000 

0 

PRI015 

OCT 

1 5000 

0111 

5017 

16000 

0 

PRI016 

OCT 

16000 

AO  11  2 

85DEGS 

DEC 

. 45556 

0113 

5020 

17000 

1 

PRI01 7 

OCT 

17000 

0114 

5021 

17770 

1 

OCT  1 7 770 

OCT 

17770 

AO  1 1 5 

8IT14 

OCT 

20000 

AO  11  6 

OCT 

20033 

0117 

5022 

21000 

1 

PRI021 

OCT 

21000 

01175 

7731 

BLOCK 

03 

01176  REF  1 

COUNT  * 

$ $/FCONS 

0118 

7731 

22000 

1 

PR  1022 

OCT 

22000 

0119 

7732 

23000 

0 

P R 10  2 3 

OCT 

23000 

0120 

7733 

24000 

1 

PR  1024 

OCT 

24000 

AO  12  1 

5/8+1 

OCT 

24001 

A0122 

OCT 

2401  7 

0123 

7734 

25000 

0 

P R 102  5 

OCT 

25000 

0124 

7 73  5 

26C00 

0 

PRI026 

OCT 

26000 

0125 

7 736 

27000 

1 

PR  1027 

OCT 

27000 

AO  12  6 

CHRPRIO 

OCT 

30000 

A0127 

OCT 

30036 

0126 

7 73  7 

31000 

0 

PR  1031 

OCT 

31000 

0129 

7 740 

31103 

1 

Cl/2 

DEC 

. 7053134 

0130 

7 741 

32000 

0 

PR  1032 

OCT 

32000 

013  1 

7742 

33000 

1 

PRI033 

OCT 

33000 

0132 

7743 

34000 

0 

PR  1034 

OCT 

34000 

AO  133 

OCT 

34034 

17:11  MAR.  19,1971  SKIPPFR 
USER' S PAGE  NO.  3 
PINBALL 


.131  PAGE  1095 
EO  S3 


PINBALL 

OP  CODE  MASK  + BANK  1 F9ANK  SETTING. 


PINBALL 

T4RUPT 


T4RUPT  RELTAB  + 1D 

P20-P25  SUNDANCE 

BANKC ALL 

T4RUPT  RELTAB  + 20 

P20-P25  SUNDANCE  {OCTAL  16450) 


T4RUPT  RELTAB  +3D 


SERVICE  ROUTINES 


SINGLE  PRECISION  SUBROUTINES 
T4RUPT  RELTAB  +4D 


PINBALL 

T4RUPT  RELTAB  + 5D 

(OCTAL  31103) 


T4RUPT 


RFLTAB  + 6D 
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0134 

7 744 

35000 

1 

PR  103  5 

OCT 

3 5000 

0135 

7745 

36000 

1 

PRI036 

OCT 

36000 

0136 

7 746 

37000 

0 

PRI037 

OCT 

37000 

0137 

7747 

37401 

0 

63/64+1 

OCT 

3 7401 

AO  13  8 

MID7 

OCT 

37600 

0139 

7750 

37766 

1 

0CT37766 

OCT 

37766 

0140 

7751 

37774 

1 

GCT37774 

OCT 

37774 

0141 

7752 

37776 

0 

0CT37776 

OCT 

37776 

AO  141  1 

DPOSMAX 

OCT 

37777 

AO  14  2 

BIT15 

OCT 

40000 

A0143 

0CT4000 1 

OCT 

40001 

0144 

7 75  3 

40014 

0 

DLOADCOD 

OCT 

40014 

0145 

7754 

40015 

1 

DLOAD* 

OCT 

40015 

AO  14  6 

OCT 

40023 

01465 

7755 

40040 

1 

BIT15+6 

OCT 

40040 

01466 

7756 

40200 

1 

OCT40200 

OCT 

40200 

AO  14  7 

OCT 

44035 

AO  14  8 

OCT 

50037 

AO  14  9 

OCT 

54000 

01495 

7757 

57777 

1 

-BIT  14 

OCT 

57777 

AO  15  0 

RELTAB11 

OCT 

60000 

015  1 

7760 

65552 

0 

C3/2 

DFC 

- .3216147 

0152 

7761 

7CC00 

0 

13,14,15 

OCT 

70000 

0153 

7762 

73777 

1 

- 1/8 

OCT 

73777 

0154 

7 763 

74000 

1 

HIGH4 

OCT 

74000 

0155 

7764 

74056 

1 

-ENDERAS 

DEC 

-2001 

AO  15  6 

H I 5 

OCT 

76000 

0157 

7765 

77700 

0 

HIGH9 

OCT 

77700 

AO  15  8 

-ENDVAC 

DEC 

-45 

AO  159 

-OCT  1 0 

OCT 

- 10 

AO  16  1 

NEG4 

DEC 

-4 

0162 

7766 

Qj774 

NEG3 

DEC 

-3 

0163 

7767 

mrr 

•f 

NEG2 

OCT 

77775 

0164 

7770 

77776 

1 

NEGONE 

DEC 

-1 

17:11  MAR.  19,1971  SKIPPER 
USFRi S PAGE  NO.  4 


.131  PAGE  1096 
EO  S3 


PINBALL 


INTERPRETER  ( CS  1 INSTRUCTION) 
T4RUPT  RELTAB  +70 


T4RUPT  RELTAB  +8D 
T4RUPT  RELTAB  +9D 

T4RUPT  RELTAB  +10D 


T4RUPT 


(OCTAL  65552) 


(OCTAI  74056) 

PINBALL 

INTERPRETER  (OCTAL  77722) 

(OCT  77767) 
(OCTAL  77773) 


gap:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-161  17:  1 1 MAR.  19,1971  SKIPPER  .131  PAGE  1097 

L FIXED-FIXED  CONSTANT  POOL  USER'S  PAGE  NO.  5 EO  S3 

P0165  DEFINED  BY  EQUALS 

R0166  IT  HOULD  BE  TO  THE  USERS  ADVANTAGE  TO  OCCASIONALLY  CHECK  ANY  OF  THESE  SYMBOLS  IN  ORDER  TO  PREVENT  ANY 


KO 16 8 ACCIDENTAL  DEFINITION  CHANGES. 


0169 

REF 

5 

LAST 

872 

7770 

MINUS1 

= 

0170 

REF 

12 

LAST 

1057 

7770 

NEGl 

= 

0171 

REF 

52 

LAST 

1002 

4 744 

ONE 

= 

0172 

REF 

A6 

LAST 

975 

4743 

TWO 

= 

0173 

REF 

1 

6266 

THREE 

= 

017A 

REF 

31 

LAST 

1026 

6266 

L0W2 

= 

0175 

REF 

35 

LAST 

899 

4742 

FOUR 

= 

0176 

REF 

3 

LAST 

1006 

6263 

SIX 

= 

0177 

REF 

19 

LAST 

1077 

4750 

L0W3 

= 

0178 

REF 

A6 

LAST 

974 

4741 

EIGHT 

= 

0175 

REF 

7 

LAST 

1093 

4311 

NINE 

= 

0180 

REF 

A 

LAST 

515 

4354 

TEN 

= 

0181 

REF 

3 

LAST 

740 

4751 

NOUTCON 

= 

0182 

REF 

15 

LAST 

471 

4351 

0CT23 

= 

01825 

REF 

3 

LAST 

785 

4353 

0CT25 

= 

0183 

REF 

3A 

LAST 

1053 

4 73  3 

PRI01 

= 

0 18  A 

REF 

7 

LAST 

1087 

5000 

E BANK 3 

= 

0185 

REF 

2A 

LAST 

109  1 

4732 

P R 102 

= 

0186 

REF 

1 

4 766 

OCT  1 2 0 

- 

0187 

REF 

2 

LAST 

885 

4767 

OCT  140 

= 

0188 

REF 

25 

LAST 

1097 

4732 

2K 

= 

0189 

REF 

26 

LAST 

1097 

4732 

EBANK4 

= 

0190 

REF 

29 

LAST 

829 

4731 

P R 104 

= 

019  1 

REF 

5 

LAST 

894 

5006 

EBANK6 

= 

0192 

REF 

37 

LAST 

1092 

4 730 

QUARTER 

= 

0193 

REF 

38 

LAST 

1097 

4730 

PRIOIO 

= 

01935 

REF 

1 

7704 

OCTlOOOl 

= 

0 19  A 

REF 

28 

LAST 

1083 

4727 

P0S1/2 

= 

0195 

REF 

6 A 

LAST 

1084 

4727 

P R 10  20 

= 

0196 

REF 

65 

LAST 

1097 

4727 

HALF 

= 

0197 

REF 

5 

LAST 

433 

4346 

PR  10  30 

= 

0198 

REF 

10 

LAST 

1024 

4346 

BIT13-14 

= 

01985 

REF 

3 

LAST 

1009 

6512 

0CT30002 

= 

0199 

REF 

1 

7743 

8 12T  14 

= 

0200 

REF 

A 1 

LAST 

1090 

4726 

NEGMAX 

= 

020  1 

REF 

A2 

LAST 

109  7 

4726 

VLOADCOO 

= 

0202 

REF 

2 

LAST 

231 

6130 

VLOAO* 

= 

0203 

REF 

2 

LAST 

166 

4101 

OCT60000 

= 

020  A 

REF 

6 

LAST 

911 

4341 

BANKMASK 

= 

NEG1 

NEGONE 

B I T 1 

B I T 2 

0CTAL3 

THREE 

B IT3 

RE  VC NT 

SEVEN 

RITA 

R2D1 

B INCON 

ELEVEN 

VD1 

MD1 

BIT10 

OCT  1400 

8 I T 1 1 

SUPER  101 

SUPER110 

BITll 

BIT11 

B IT  1 2 

PR  103 

B IT  1 3 

8 I T 1 3 

CCSL 

HALF 

B I T 1 A 

B IT  1A 

CHRPRIO 

P R 1 030  INTERPRETER  USES  IN  PROCESSING  STORECODE 

TLOAD  +1 

P R 103 A 

BIT15 

B I T 1 5 

OCTAOOOl 

RELTAB1 1 

H IB 


GAP : 


ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021L12-161 
L INTERPRETIVE  CONSTANTS 


0001 

REF 

1 

23,2000 

SETLOC 

I NTPRET 1 

0002 

23,2474 

BANK 

0003 

REF 

1 

COUNT* 

$$/ 1 CONS 

000  4 

23,2474 

10000 

0 

0P1/4TH 

20EC 

.25 

0004 

23,2475 

coooo 

1 

0005 

23,2476 

oocoo 

1 

UNITZ 

2DEC 

0 

0005 

23,2477 

ocooo 

1 

000  6 

23,2500 

ccooo 

1 

UNITY 

2DEC 

0 

0006 

23,2501 

00000 

1 

0007 

23,2502 

20000 

0 

UN  I T X 

2DEC 

. 5 

0007 

23,2503 

00000 

1 

0008 

23,2504 

00000 

1 

ZEROVECS 

2DEC 

0 

0008 

23,2505 

coooo 

1 

0009 

23,2506 

00000 

1 

2DEC 

0 

0009 

23,2507 

coooo 

1 

0010 

23,2510 

oocoo 

1 

2DEC 

0 

0010 

23,2511 

00000 

1 

001  1 

REF 

11  LAST  907 

23,2502 

DPHALF 

= 

UNITX 

0012 

23,2512 

37777 

1 

OPPOSMAX 

OCT 

37777 

0013 

23,2513 

37777 

1 

OCT 

37777 

17: 11  MAR.  19,1971 


SKIPPER  .131 


PAGE  1098 


USFR'S  PAGE  NO. 


EO  S3 


gap:  assemble  REVISION  210  OF  AGO  PROGRAM  LUMINARY  8Y  NASA  2021LL2-161 


L 

INTERPRETIVE 

CONSTANTS 

P0014 

INTERPRETIVE 

CONST 

ANTS  IN  THE 

OTHER  1 

HALF-MEMORY 

0015 

REF  1 

12,2000 

SETLOC 

I NTPRET2 

0016 

12,2000 

BANK 

001  7 

REF  1 

COUNT* 

St/ICONS 

vil 

12,2000 

ooooo 

1 

ZUNIT 

2DEC 

0 

0018 

12,2001 

00000 

1 

0019 

12,2002 

ooooo 

1 

YUNIT 

2DEC 

0 

001  9 

12,2003 

ooooo 

l 

0020 

12,2004 

2CC00 

0 

XUNI  T 

2DEC 

. 5 

0020 

12,2005 

ooooo 

1 

002  1 

12,2006 

ooooo 

1 

ZEROVEC 

2DEC 

0 

002  1 

12,2007 

ooooo 

l 

002  2 

12,2010 

ooooo 

l 

2DEC 

0 

0022 

12 ,201 1 

ooooo 

1 

0023 

12,2012 

occoo 

1 

2DEC 

0 

0023 

12,2013 

ooooo 

1 

002  A 

12,2014 

77777 

0 

OCT 

77777 

0025 

12,2015 

77771 

0 

DEC-6 

DEC 

-6 

0026 

12,2016 

77763 

0 

DEC-12 

DEC 

-12 

0027 

12,2017 

37777 

1 

LODPMAX 

2DCT 

3777737777 

002  7 

12,2020 

37777 

1 

0028 

12,2021 

37  7 77 

l 

L0DPMAX1 

20  CT 

3 777737777 

0028 

12,2022 

37777 

1 

0029 

REF  5 LAST 

963 

12,2006 

ZERODP 

= 

ZEROVEC 

0030 

REF  7 LAST 

966 

12,2004 

HALFOP 

= 

X UN  I T 

L 7 : 1 1 MAR.  19,1971  SKIPPER  .131  PAGE  1099 


USER'S  PAGE  NO. 


EO  S3 


-0,-6, -12  MUST  REMAIN  IN  THIS  ORDER 
THESE  TWO  CONSTANTS  MUST  REMAIN 


ADJACENT  AND  THE  SAME  FOP  INTEGRATION 


GAP: 


ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  202L112-L6L 


L SINGLE  PRECISION  SUBROUTINES 


0001  5023  BLOCK  02 

R0002  SINGLE  PRECISION  SINE  AND  COSINE 


000  2 5 

REF 

1 

COUNT  4 

$*/ INTER 

0003 

REF 

2S 

LAST 

1097 

5023 

6 4727 

1 

SPCOS 

AD 

HALF 

0004 

REF 

1 

5024 

55' 075 

0 

SPSIN 

TS 

TEMK 

0005 

REF 

1 

5025 

1 5027 

0 

TCF 

SPT 

0006 

REF 

2 

LAST 

1100 

5026 

4 1075 

0 

CS 

TEMK 

0007 

5027 

6 0000 

1 

SPT 

DOUBLE 

0008 

REF 

3 

LAST 

1100 

5030 

55' C75 

0 

TS 

TEMK 

0009 

REF 

1 

5031 

1 5042 

0 

TCF 

POLLEY 

0010 

REF 

4 

LAST 

1100 

5032 

57*075 

1 

XCH 

TEMK 

001  1 

REF 

5 

LAST 

1100 

5033 

51*075 

1 

INDEX 

TEMK 

0012 

REF 

3 

LAST 

1026 

5034 

6 4725 

0 

AD 

LIMITS 

0013 

5035 

4 0000 

0 

COM 

0014 

REF 

6 

LAST 

1100 

5036 

6 1075 

1 

AD 

TEMK 

001  5 

REF 

7 

LAST 

1100 

5037 

55*075 

0 

TS 

TEMK 

0016 

REF 

2 

LAST 

1100 

5040 

1 5042 

0 

TCF 

POLLEY 

001  7 

REF 

1 

5 041 

1 5060 

0 

TCF 

ARG90 

0018 

5042 

0 0006 

1 

POLLEY 

EXTEND 

0019 

REF 

8 

LAST 

1100 

5043 

7 1075 

0 

MP 

TEMK 

0020 

REF 

1 

5044 

55' 076 

0 

TS 

SO 

0021 

5045 

0 0006 

1 

EXTEND 

0022 

REF 

1 

5046 

7 4776 

1 

MP 

C 5/2 

0023 

REF 

1 

5047 

6 7760 

1 

AD 

C 3/  2 

0024 

5050 

0 0G06 

1 

EXTEND 

0025 

REF 

2 

LAST 

1100 

5051 

7 1076 

0 

MP 

SQ 

0026 

REF 

1 

5052 

6 7 740 

0 

AD 

Cl/2 

0027 

5053 

0 0006 

1 

EXTEND 

0028 

REF 

9 

LAST 

1100 

5054 

7 1075 

0 

MP 

TEMK 

0029 

5055 

20  001 

1 

DDOUBL 

0030 

REF 

10 

LAST 

1 100 

5056 

55*075 

0 

TS 

TEMK 

003  1 

REF 

292 

LAST 

1092 

5057 

0 0002 

0 

TC 

0 

0032 

REF 

346 

LAST 

1092 

5060 

50  000 

1 

ARG90 

INDEX 

A 

0033 

REF 

4 

LAST 

1100 

5061 

4 4725 

1 

CS 

LIMITS 

0034 

REF 

293 

LAST 

1100 

5062 

0 0002 

0 

TC 

Q 

17:11  MAR.  19.197L  SKIPPER  .131  PAGE  1100 
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ARGUMENTS  SCALED  AT  PI 


RESULT  SCALED  AT  l 


GAP: 
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ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L EXECUTIVE  USER'S  PAGE  NO.  1 EO  S3 


0001 

5063 

BLOCK 

02 

R0002 

TO  ENTER  A JUB 

REQUEST  REQUIRING  NO  VAC 

AREA: 

000  2 5 

REF 

1 

COUNT  * 

$ $/E  XEC 

00025 

5063 

0 0004 

0 

NOVAC 

INHINT 

000  3 

REF 

1 

5064 

6 5155 

0 

AD 

FAKEPRET 

LOC 1 M P AC  +6)  - LOC(QPPET) 

0003  1 

REF 

3 

LAST 

381 

5065 

54  063 

0 

TS 

NEWPRIO 

PRIORITY  OF  NEW  JOB  + NOVAC  C(FIXLOC) 

000  A 

5066 

0 0C06 

1 

EXTEND 

0005 

REF 

254 

LAST 

1100 

5067 

5 0002 

0 

INDEX 

Q 

Q WILL  BF  UND ISTUR8ED  THROUGHOUT. 

0006 

5070 

1 

0 

DCA 

0 

2CADR  OF  JOB  ENTERED. 

000  7 

REF 

1 

5071 

52  C66 

0 

DXCH 

NEWLOC 

000  8 

REF 

1 

5072 

3 5154 

1 

CAF 

EXEC BANK 

000  9 

REF 

25 

LAST 

1043 

5073 

56  004 

0 

XCH 

F BANK 

0010 

REF 

1 

5074 

54  061 

l 

TS 

EXECTEM 1 

001 1 

REF 

1 

5075 

1 2631 

0 

TCF 

NOVAC  2 

ENTER  EXECUTIVE  BANK. 

R0012 

TO  ENTER  A JOB 

REQUEST  REQUIRING  A VAC 

AREA  - E 

.G.,  ALL 

(PARTIALLY)  INTERPRETIVE  JOBS. 

0014 

5076 

0 0004 

0 

F INOVAC 

INHINT 

00145 

REF 

4 

LAST 

1101 

5077 

54  063 

0 

TS 

NEWPRIO 

0015 

5100 

0 0006 

1 

EXTEND 

0016 

REF 

255 

LAST 

1101 

5101 

5 0002 

0 

INDEX 

Q 

0017 

5 102 

3 0001 

0 

DCA 

0 

0018 

REF 

2 

LAST 

1 10  1 

5 103 

52  066 

0 

SPVAC IN 

DXCH 

NEWLOC 

0019 

REF 

2 

LAST 

1101 

5104 

3 5154 

1 

CAF 

EXECBANK 

0020 

REF 

26 

LAST 

1101 

5105 

56  004 

0 

XCH 

FBANK 

002  1 

REF 

1 

5 106 

1 2605 

1 

TCF 

F INDVAC2 

OFF  TO  EXECUTIVE  SW I T CHED-BANK . 

R002  1 1 

TO  ENTER  A FINDVAC  W 

ITH  THE 

PRIORITY  IN 

NEWPRIO  TO  THE 

2C ADR  ARRIVING  IN  A AND  L: 

R002 125 

USERS 

OF  SPVAC 

MUST 

INHINT  BEFORE  STORING  IN  NEWPRIO. 

002  13 

REF 

256 

LAST 

1101 

5107 

56  002 

0 

SPVAC 

XCH 

Q 

002  14 

REF 

6 

LAST 

890 

5110 

6 7767 

0 

AD 

NEG2 

00215 

REF 

257 

LAST 

1101 

5111 

56  C 02 

0 

XCH 

Q 

002  1 £ 

REF 

1 

5112 

1 5103 

1 

TCF 

SPVAC IN 

R0022 

TO  SUSPEND  A BASIC  JC8  SO  A 

HIGHER  PRIORITY  JOE 

i MAY  BE 

SERVICED: 

0024 

REF 

298 

LAST 

1101 

5113 

22  002 

0 

CHANG1 

LXCH 

Q 

002  5 

REF 

3 

LAST 

1101 

5114 

3 5154 

1 

CAF 

EXECBANK 

002  6 

REF 

30 

LAST 

1023 

5115 

56  006 

1 

XCH 

B BANK 

002  7 

REF 

1 

5116 

1 2712 

0 

TCF 

CHANJOB 

R0030 

TO  SUSPEND  AN 

INTERPRETIVE  JOB: 

003  1 

REF 

30 

LAST 

1092 

5117 

4 Cl 64 

0 

CHANG2 

CS 

LOC 

NEGATIVE  LOC  SHOWS  JOB  = INTERPRETIVE. 

R 003 1 5 

ITRACE  (4)  REFERS  TO 

"CHANG2 

it  ' 

0032 

REF 

224 

LAST 

1080 

5120 

54  001 

1 

TS 

L 

GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-lfcl 
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L EXECUTIVE  USER'S  PAGE  NO.  2 EO  S3 


0033 

REF 

A 

LAST 

1101 

5121 

3 

5 15A 

1 

+2 

CAF 

EXECBANK 

003  3 5 

REF 

31 

LAST 

1101 

5 122 

5 A 

006 

0 

TS 

B BANK 

003  A 

REF 

2 

LAST 

1101 

5123 

1 

2711 

0 

TCF 

CHANJOB  -I 

GAP: 
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17:11  MAR.  19,1971  SKIPPER 


PAGE  1103 


.131 

L EXECUTIVE  USER'S  PAGE  NO.  3 EO  S3 


P0035  TO  VOLUNTARILY  SUSPEND  A JOB  UNTIL  THE  COMPLETION  OF  SOME  ANTICIPATED  EVENT  (I/O  EVENT  ETC.): 


0037 

REF 

31 

LAST 

L 10  1 

5124 

54  164 

0 

JOBSLEEP  TS 

LOC 

003  8 

REF 

5 

LAST 

1102 

5125 

3 5154 

1 

CAF 

EXECBANK 

0039 

REF 

27 

LAST 

1101 

5126 

54  004 

1 

TS 

FBANK 

0040 

REF 

1 

5127 

1 3002 

1 

TCF 

J08SLP1 

R0041 

TO  AWAKEN 

A JOB  PUT 

TO  SLEEP 

' IN 

i THE  ABOVE  FASHION: 

0042 

5130 

0 0004 

0 

JOBWAKE  INHINT 

0042  1 

REF 

3 

LAST 

1 101 

5131 

54  065 

0 

TS 

NEWLOC 

004  3 

REF 

69 

LAST 

1040 

5132 

4 4743. 

1 

CS 

TWO 

FXIT  IS  VIA  FINDVAC/NOVAC  PROCEDURES. 

0044 

REF 

299 

LAST 

1101 

5 133 

26  002 

1 

ADS 

Q 

0045 

REF 

6 

LAST 

11  13 

5134 

3 5154 

1 

CAF 

EXECBANK 

0046 

REF 

28 

LAST 

1103 

5135 

56  C04 

0 

XCH 

FBANK 

0047 

REF 

1 

5136 

1 3027 

0 

TCF 

J0BWAKE2 

R0048 

TU  CHANGE 

THE  PRIORITY  OF  A 

JOB 

. CURRENTLY  UNDER  EXECUTION: 

0049 

5 137 

0 0004 

0 

PRIOCHNG  INHINT 

NEW  PRIORITY  ARRIVES  IN  A.  RETURNS  TO 

0050 

REF 

5 

LAST 

1101 

5140 

54  063 

0 

TS 

NEWPR  10 

CALLER.  AS  SOON  AS  NEW  JOB  PRIORITY  IS 

0051 

REF 

7 

LAST 

1103 

5 141 

3 5154 

1 

CAF 

EXECBANK 

HIGHFST.  PREPARE  FOR  POSSIBLE  BASIC- 

0052 

REF 

32 

LAST 

1102 

5142 

56  CC6 

1 

XCH 

BBANK 

STYLE  CHANGE- JOB. 

0053 

REF 

9 

LAST 

1023 

5143 

54  165 

1 

TS 

3ANKSET 

0054 

REF 

300 

LAST 

.1103 

5144 

3 0002 

0 

CA 

Q 

0055 

RFF 

1 

5145 

1 3076 

l 

TCF 

PR  I0CH2 

R0058 

TO  REMOVE 

A JOB  FROM 

EXECUTIVE 

CONSIDERATIONS : 

0059 

REF 

8 

LAST 

1103 

5146 

3 5154 

1 

ENDOFJQB  CAF 

EXECBANK 

0060 

REF 

29 

LAST 

1103 

5147 

54  004 

1 

TS 

FBANK 

006  1 

REF 

1 

5150 

1 3107 

0 

TCF 

ENDJ0B1 

0062 

REF 

2 

LAST 

1101 

5151 

3 0061 

0 

ENDFIND  CA 

E XECTEM1 

RFTURN  TO  CALLER  AFTER  JOB  ENTRY 

0063 

REF 

30 

LAST 

1103 

5152 

5 4 004 

1 

TS 

FBANK 

COMPLETE. 

0064 

REF 

2 

LAST 

537 

5153 

1 6762 

0 

TCF 

Q + 2 

0066 

REF 

2 

LAST 

1101 

5154 

02605 

0 

F XEC8ANK  CADR 

F INDVAC2 

00662 

REF 

711 

LAST 

1088 

5 155 

00110 

1 

FAKEPRET  ADRES 

MPAC  -36D 

LOCIMPAC  +6)  - LOC(OPRET) 

R00665 

TO  CHANGE 

A "FINDVAC 

" JOB  TC 

l A 

"NOVAC"  — RELEASE  ITS  VAC 

AR  EA: 

00666 

REF 

12 

LAST 

867 

5156 

3 0167 

1 

VACRLEAS  CA 

PRIORITY 

CHANGE  TO  NOVAC  VALUE 

006662 

REF 

2 

LAST 

243 

5157 

7 7746 

1 

MASK 

PR  1037 

006664 

REF 

2 

LAST 

1101 

5160 

6 5155 

0 

AD 

FAKEPRET 

006666 

REF 

13 

LAST 

1103 

5161 

56  167 

1 

XCH 

PRIORITY 

006668 

REF 

10 

LAST 

867 

5162 

7 4775 

1 

MASK 

L0W9 

00667 

REF 

347 

LAST 

1100 

5163 

10  COO 

0 

CCS 

A 

006672 

REF 

348 

LAST 

1103 

5 164 

50  000 

1 

INDEX 

A 

006674 

5165 

54  000 

0 

TS 

0 

RELEASE  VAC  AREA 

006676 

REF 

3 C 1 

LAST 

1103 

5166 

0 0002 

0 

TC 

Q 

GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L EXECUTIVE 

P0067  LOCATE  AN  AVAILABLE  VAC  AREA. 


006  8 

01,2605 

BANK 

01 

00605 

REF 

l 

COUNT  * 

$ $/EXEC 

006  9 

REF 

3 

LAST 

1103 

01 , 2605 

54  061 

L 

FINDVAC2  TS 

EXECTEM1 

0070 

REF 

4 

LAST 

255 

01 ,2606 

10  400 

1 

CCS 

V AC1USE 

0071 

REF 

1 

01, 2607 

l 2624 

1 

TCF 

VACFOUND 

0072 

REF 

3 

LAST 

255 

01 , 2610 

10  454 

0 

CCS 

VAC2USE 

0073 

REF 

2 

LAST 

1104 

01,2611 

1 2624 

1 

TCF 

VACFOUND 

0074 

REF 

3 

LAST 

255 

01,2612 

10  530 

0 

CCS 

VAC3USE 

0075 

REF 

3 

LAST 

1104 

01,2613 

1 2624 

1 

TCF 

VACFOUND 

0076 

REF 

3 

LAST 

255 

01,2614 

10  604 

1 

CCS 

VAC4USE 

007  7 

REF 

4 

LAST 

1104 

01,2615 

1 2624 

l 

TCF 

VACFOUND 

0078 

REF 

3 

LAST 

255 

01,2616 

10  660 

0 

CCS 

V AC5USE 

0079 

REF 

5 

LAST 

1104 

01, 2617 

1 2624 

L 

TCF 

VACFOUND 

00792 

REF 

4 

LAST 

1 104 

01,2620 

22  061 

0 

LXCH 

EXECTEM1 

00794 

REF 

302 

LAST 

1103 

01,2621 

3 C 002 

0 

CA 

0 

0080 

REF 

3 

LAST 

255 

01,2622 

0 5712 

0 

TC 

B A I LOUT  1 

0081 

0 1,2623 

31201 

0 

OCT 

31201 

0082 

REF 

70 

LAST 

1103 

01,2624 

6 4743 

0 

VACFOUND  AD 

TWO 

0083 

01,2625 

22  007 

0 

ZL 

0084 

REF 

349 

LAST 

1103 

01,2626 

50  000 

1 

INDEX 

A 

0035 

01,2627 

21*777 

0 

LXCH 

0 -1 

0086 

REF 

6 

LAST 

1103 

01,2630 

26  C63 

0 

ADS 

NEWPR in 

008  7 

REF 

223 

LAST 

1084 

01,2631 

3 4 746 

0 

N0VAC2  CAF 

ZERO 

0088 

REF 

5 

LAST 

473 

01 , 2632 

54  064 

1 

TS 

LOCCTR 

0089 

REF 

1 

01,2633 

3 2640 

1 

CAF 

NO. CORES 

0090 

REF 

1 

01,2634 

54  C 62 

L 

N0VAC3  TS 

E XECTFM2 

0091 

REF 

6 

LAST 

1104 

01,2635 

50  C 64 

0 

INDEX 

L OCCTR 

0092 

REF 

14 

LAST 

1 1 

01,2636 

10  167 

0 

CCS 

PRIORITY 

0093 

REF 

1 

01,2637 

l 2700 

0 

TCF 

NEXTCORE 

0094 

01,2640 

00007 

0 

NO.enRES  DEC 

7 

0095 

REF 

2 

LAST 

1 104 

01,2641 

l 2700 

0 

TCF 

NEXTCORE 

A0096 


17:11  MAR.  19,1971  SKIPPER 


131  PAGE  1104 


USER'S  PAGE  NO.  4 


EO  S3 


(SAVE  CALLER'S  BANK  FIRST.) 


NO  VAC  AREAS 

RESERVE  THIS  VAC  AREA  BY  STORING  A ZERO 
IN  ITS  VAC  USE  REGISTER  ANO  STORE  THE 
ADORESS  OF  THE  FIRST  WORD  OF  IT  IN  THE 
LOW  NINE  BITS  OF  THE  PRIORITY  WORD. 


NOVAC  ENTERS  HERE.  FIND  A CORE  SET. 
SEVEN  SETS  OF  ELEVEN  REGISTERS  EACH. 


EACH  PRIORITY  REGISTER  CONTAINS  -0  IF 
THE  CORRESPONDING  CORE  SET  IS  AVAIL ABl  F . 


AN  ACTIVE  JOB  HAS  A POSITIVE  PRIORITY 
BUT  A DORMANT  JOB'S  PRIORITY  IS  NEGATIVE 


GAP:  ASSEMBLE  REVISION  2 10  GE  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 


L • EXECUTIVE 


0097 

REF 

7 

LAST 

1104 

01,2642 

3 0063 

1 

CORFOUND  CA 

NEWPR 10 

0098 

REF 

7 

LAST 

1104 

01,2643 

50  064 

0 ’ 

INDEX 

LOCCTR 

0099 

REF 

15 

LAST 

1104 

01,2644 

54  167 

0 

TS 

PRIORITY 

0100 

REF 

11 

LAST 

1103 

01,2645 

7 4775 

i 

MASK 

L0W9 

0101 

REF 

8 

LAST 

1105 

01,2646 

50  064 

0 

INDEX 

LOCCTR 

0102 

REF 

26 

LAST 

1075 

01,2647 

54  166 

l 

TS 

PUSHLOC 

0103 

REF 

9 

LAST 

1105 

01,2650 

10  064 

l 

CCS 

LOCCTR 

0104 

REF 

l 

01,2651 

1 2665 

l 

TCF 

SETLOC 

0105 

REF 

13 

LAST 

1088 

01,2652 

54  121 

l 

TS 

OVFIND 

0106 

REF 

27 

LAST 

1105 

01 , 2653 

3 C 1 66 

0 

CA 

PUSHLOC 

010  7 

REF 

59 

LAST 

1089 

01,2654 

54  120 

0 

TS 

FIXLOC 

0108 

RFF 

8 

LAST 

1001 

01,2655 

10  067 

1' 

SPECTEST  CCS 

NEWJOB 

0109 

REF 

2 

LAST 

1105 

01,2656 

1 2665 

1 

TCF 

SETLOC 

0110 

REF 

10 

LAST 

1092 

01,2657 

0 5 701 

1 

TC 

CCSHOLE 

0111 

REF 

11 

LAST 

1105 

01,2660 

0 5701 

1 

TC 

CCSHOLE 

0112 

REF 

9 

LAST 

1105 

01,2661 

54  067 

1 

TS 

NEWJOR 

0113 

REF 

4 

LAST 

1103 

01,2662 

52  066 

0 

DXCH 

NEWLOC 

0114 

REF 

32 

LAST 

1103 

01,2663 

52  165 

1 

DXCH 

LOC 

0115 

REF 

1 

01 , 2664 

1 5151 

0 

TCF 

ENDFI NO 

0116 

REF 

5 

LAST 

1105 

01 , 2665 

52  066 

0 

SETLOC  DXCH 

NEWLOC 

0117 

REF 

10 

LAST 

1105 

01,2666 

50  064 

0 

INDEX 

LOCCTR 

0118 

REF 

33 

LAST 

1105 

01,2667 

52  165 

1 

DXCH 

LOC 

0119 

REF 

10 

LAST 

1105 

01,2670 

50  067 

0 

INDEX 

NEWJOB 

0120 

REF 

16 

LAST 

1105 

01,2671 

4 C 1 67 

0 

CS 

PRIOR ITY 

0121 

REF 

8 

LAST 

1105 

01 , 2672 

6 CC63 

1 

AD 

NEWPR 10 

0122 

01,2673 

0 C006 

1 

EXTEND 

0123 

REF 

2 

LAST 

1105 

01,2674 

6 5151 

1 

BZMF 

ENDFIND 

0124 

REF 

11 

LAST 

1105 

01 , 2675 

3 0C64 

0 

CA 

LOCCTR 

0125 

REF 

11 

LAST 

1105 

01 , 2676 

54  067 

1 

TS 

NEWJOB 

0126 

REF 

3 

LAST 

1105 

01,2677 

1 5151 

0 

TCF 

ENDFIND 

0127 

REF 

1 

01,2700 

3 3037 

0 

NEXT  COR  E CAF 

CORE  INC 

0128 

REF 

12 

LAST 

1 105 

01,2701 

26  064 

l 

ADS 

LOCCTR 

0129 

REF 

2 

LAST 

1104 

01,2702 

10  062 

1 

CCS 

E XECTEM2 

0130 

REF 

1 

01,2703 

1 2634 

0 

TCF 

N0VAC3 

01302 

REF 

5 

LAST 

1104 

01,2704 

22  061 

0 

LXCH 

EXECTEM1 

0130  4 

REF 

303 

LAST 

1104 

01,2705 

3 0002 

0 

CA 

Q 

0131 

REF 

4 

LAST 

1104 

01,2706 

0 5712 

0 

TC 

B A I LOUT  1 

0132 

01,2707 

31202 

0 

OCT 

31202 

17:11  MAR.  19,1971  SKIPPER  .131  PAGE  1105 

USER*  S PAGE  NO.  5 EO  S3 

SET  THE  PRIORITY  OF  THIS  JOB  IN  THE  CORE 
SET'S  PRIORITY  REGISTER  AND  SET  THE 
JOB'S  PUSH-DOWN  POINTER  AT  THE  BEGINNING 
OF  THE  WORK  AREA  AND  OVERFLOW  INDICATOR 

OFF  TO  PREPARE  FOR  INTERPRETIVE  PROGRAMS 

IF  CORE  SET  ZERO  IS  BEING  LOADED,  SET  UP 
OVFIND  AND  FIXLOC  IMMEDIATELY  . 


SEE  IF  ANY  ACTIVE  JOBS  WAITING  (RARE). 
MUST  BE  AWAKFNED  BUT  UNCHANGFD  JOB. 


+0  SHOWS  ACTIVE  JOB  ALREADY  SET. 


SET  UP  THE  LOCATION  REGISTERS  FOR  THIS 


THIS  INDEX  INSTRUCTION  INSURES  THAT  THE 
HIGHEST  ACTIVE  PRIORITY  WILL  BE  COMPARED 
WITH  THE  NEW  PRIORITY  TO  SEE  IF  NEWJOB 
SHOULD  BE  SET  TO  SIGNAL  A SWITCH. 

LOCCTR  IS  LEFT  SET  AT  THIS  CORE  SET  IF 
THE  CALLER  WANTS  TO  LOAD  ANY  MPAC 
REGISTERS,  ETC. 


MO  CORE  SETS  AVAILABLE 


GAP: 


ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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L EXECUTIVE  USER'S  PAGE  NO.  6 EO  S3 

P0133  THE  FOLLOWING  ROUTINE  SWAPS  CORE  SET  0 WITH  THAT  WHOSE  RELATIVE  ADDRESS  IS  IN  NFWJOR. 


01345 

REF 

34 

LAST 

1105 

01,2710 

22 

164 

1 

-2 

LXCH 

LOC 

0135 

KEF 

10 

LAST 

1103 

01,2711 

30 

165 

0 

-1 

CAE 

BANKSET 

BANKSET,  NOT  BBANK , HAS  RIGHT  CONTENTS 

0136 

01,2712 

0 

C004 

0 

CHANJOB 

INHINT 

01362 

01,2713 

0 

C006 

1 

FXT  END 

0 136  A 

REF 

15 

LAST 

999 

01,2714 

04 

007 

1 

ROR 

SUPERBNK 

PICK  UP  CURRENT  SBANK  FOR  BBCON 

01366 

REF 

225 

LAST 

1101 

01,2715 

56 

C01 

0 

XCH 

L 

LOC  IN  A AND  BBCON  IN  L. 

01366 

REF 

12 

LAST 

1105 

01,2716 

50 

067 

0 

+4 

INDEX 

NEWJOB 

SWAP  LOC  AND  BANKSET. 

0137 

REF 

35 

LAST 

1 106 

01,2717 

52 

165 

1 

DXCH 

LOC 

0138 

REF 

36 

LAST 

1106 

01,2720 

52 

165 

1 

DXCH 

LOC 

01382 

REF 

11 

LAST 

1106 

01,2721 

30 

165 

0 

CAE 

BANKSET 

0 13  8 A 

01,2722 

0 

0006 

1 

FX  TEND 

01386 

REF 

16 

LAST 

1106 

01,2723 

01 

00  7 

1 

WRITE 

SUPERBNK 

SET  SBANK  FOR  NEW  JOB. 

0139 

REF 

712 

LAST 

l 103 

01,2  724 

52 

155 

1 

DXCH 

MP  AC 

SWAP  MULTI-PURPOSE  ACCUMULATOR  AREAS. 

0 1A0 

REF 

13 

LAST 

1106 

01, 2725 

50 

067 

0 

INDEX 

NEWJOB 

0 1 A 1 

REF 

7 13 

LAST 

1106 

01,2726 

52 

155 

1 

DXCH 

MPAC 

01A2 

REF 

714 

LAST 

1106 

01,2727 

52 

155 

1 

DXCH 

M P AC 

0143 

REF 

715 

LAST 

1 106 

01 ,2730 

52 

157 

0 

DXCH 

MPAC  +2 

0 14  A 

REF 

14 

LAST 

1106 

01,2731 

50 

067 

0 

INDEX 

NEWJOB 

0145 

REF 

7 16 

LAST 

1106 

01,2732 

52 

157 

0 

DXCH 

MPAC  +2 

0146 

REF 

7 17 

LAST 

1 106 

01,2733 

52 

157 

0 

DXCH 

MPAC  +2 

0147 

REF 

718 

LAST 

1106 

01,2734 

52 

161 

0 

DXCH 

MPAC  +4 

0148 

REF 

15 

LAST 

1 106 

01,2735 

50 

C67 

0 

INDEX 

NEWJOB 

0149 

REF 

719 

LAST 

1106 

01,2736 

52 

161 

0 

DXCH 

MPAC  +4 

0150 

REF 

720 

LAST 

1106 

01,2737 

52 

161 

0 

DXCH 

MPAC  +4 

015  1 

REF 

721 

LAST 

1106 

01,2740 

52 

163 

1 

DXCH 

MPAC  +6 

0152 

REF 

16 

LAST 

1 106 

01,2741 

50 

067 

0 

INDEX 

NEWJOB 

0153 

REF 

722 

LAST 

1106 

01,2742 

52 

163 

l 

DXCH 

MPAC  +6 

0154 

REF 

723 

LAST 

1106 

01,2743 

52 

163 

l 

DXCH 

MPAC  +6 

0155 

REF 

224 

LAST 

1 1 0 A 

01,2744 

3 

A 746 

0 

CAF 

ZERO 

0156 

REF 

14 

LAST 

1 105 

01,2745 

56 

121 

0 

XCH 

OVFIND 

MAKE  PUSHLOC  NEGATIVF  IF  OVFIND 

NZ. 

0157 

01,2746 

0 

0006 

1 

EXTEND 

0158 

01,2747 

1 

2752 

1 

BZF 

+ 3 

0159 

REF 

28 

LAST 

1105 

01,2750 

4 

C 1 66 

1 

CS 

PUSHLOC 

0160 

REF 

29 

LAST 

1106 

01,2751 

54 

166 

1 

TS 

PUSHLOC 

0161 

REF 

3C 

LAST 

1 106 

01,2752 

52 

167 

0 

DXCH 

PUSHLOC 

0162 

REF 

17 

LAST 

1106 

01,2753 

50 

067 

0 

INDEX 

NEWJOB 

0163 

REF 

31 

LAST 

1106 

01,2754 

52 

167 

0 

DXCH 

PUSHLUC 

0164 

REF 

32 

LAST 

1106 

0 l ,2  755 

52 

167 

0 

DXCH 

PUSHLOC 

SWAPS  PUSHLOC  AND  PPIORITY. 

0165 

KEF 

12 

LAST 

1 105 

01,2756 

3 

4775 

0 

CAF 

L0W9 

SET  F I XL OC  TO  BASE  OF  VAC  AREA. 

0166 

REF 

17 

LAST 

1105 

01,2757 

7 

C 167 

0 

MASK 

PRIORITY 

0167 

REF 

60 

LAST 

1105 

01,2760 

54 

120 

0 

TS 

F IXLOC 

0168 

REF 

33 

LAST 

1106 

01,2761 

10 

166 

1 

CCS 

PUSHLOC 

SET  OVERFLOW  INDICATOR  ACCORDING 

TO 

0169 

REF 

225 

LAST 

1106 

01,2762 

3 

4746 

0 

CAF 

ZERO 

0170 

REF 

1 

01,2763 

l 

2770 

1 

TCF 

ENDPRCHG  -1 

GAP: 


ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021L12-161 


t.  EXECUTIVE 


0171 

REF 

34 

LAST 

110  6 ■ 

01,2764 

4 C 1 66 

1 

CS 

PUSHLOC 

0172 

REF 

. 35 

LAST 

1107 

01,2765 

54  166 

1 

TS 

PUSHLOC 

0173 

REF 

100 

LAST 

1070 

01,2766 

3 4 744 

1 

CAF 

ONE 

0174 

REF 

15 

LAST 

1106 

01 ,2767 

56  121 

0 

XCH 

OVFIND 

0175 

REF 

18 

LAST 

1106 

01 ,2770 

54  067 

1 

TS 

NEWJOB 

0176 

01,2771 

0 C003 

1 

ENDPRCHG  RELINT 

0177 

REF 

37 

LAST 

1106 

01,2772 

52  165 

1 

DXCH 

LOC 

0178 

01,2773 

0 0006 

1 

EXTEND 

0179 

01,2774 

6 2 7 76 

0 

BZMF 

+ 2 

0180 

01,2775 

52  006 

0 

DTCB 

17: 1 1 MAR.  19 ,1971 


SKIPPER  .131  PAGE  1107 


USER' S PAGE  NO. 


EO  S3 


BASIC  JOBS  HAVE  POSITIVE  ADDRESSES,  SO 
DISPATCH  WITH  A DTCB . 

IF  INTERPRETIVE,  SET  UP  F BANK , FTC. 


GAP:  ASSEMBLE  REVISION  210  OH  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L EXECUTIVE 


018  1 

01,2776 

4 0000 

0 

COM 

0182 

REF 

101 

LAST 

1107 

01 , 2777 

6 4744 

1 

AD 

ONE 

0183 

REF 

3 8 

LAST 

1107 

01,3000 

54  164 

0 

TS 

LOC 

0186 

REF 

1 

01,3001 

1 6071 

0 

TCF 

INTRSM 

R0187 

COMPLETE  JOBSLEEP  PREPARATIONS 

• 

0188 

01,3002 

0 0004 

0 

JOBS  LP l 

INHINT 

0189 

REF 

18 

LAST 

1106 

01,3003 

4 0167 

0 

CS 

PRIORITY 

0190 

REF 

19 

LAST 

1108 

01,3004 

54  167 

0 

TS 

PRIORITY 

0191 

REF 

8 

LAST 

1042 

01,3005 

3 6115 

1 

CAF 

L0W7 

0192 

REF 

33 

LAST 

1103 

01,3006 

7 0006 

0 

MASK 

BBANK 

0192  1 

01,3007 

0 0006 

1 

EXTEND 

019  2 2 

REF 

17 

LAST 

1106 

01,3010 

04  007 

1 

POR 

SUPERBNK 

0193 

REF 

12 

LAST 

1 106 

01,3011 

54  165 

1 

TS 

B ANKSET 

0 1 9 A 

REF 

226 

LAST 

1106 

01,3012 

4 4746 

1 

CS 

ZERO 

0195 

REF 

149 

LAST 

1078 

01,3013 

54  131 

0 

JOBS  L P2 

TS 

BUF  +1 

0196 

REF 

1 

01,3014 

1 3124 

1 

TCF 

E J SC  AN 

0196  1 

01,3015 

0 0004 

0 

NUCHANG2 

INHINT 

019611 

REF 

19 

LAST 

1107 

01,3016 

10  067 

1 

CCS 

NEWJOB 

019612 

01,3017 

1 3022 

0 

TCF 

+ 3 

019613 

01,3020 

0 0003 

1 

REL  INT 

019614 

REF 

1 

01,3021 

1 3220 

0 

TCF 

AOVAN  +2 

01962 

REF 

7 1 

LAST 

1104 

01,3022 

3 4743 

0 

CAF 

TWO 

01963 

01,3023 

0 0006 

1 

EXTEND 

01964 

REF 

30 

LAST 

868 

01 ,3024 

05  Oil 

1 

WOR 

D SALMOUT 

01965 

REF 

39 

LAST 

1108 

01,3025 

52  165 

1 

DXCH 

LOC 

01966 

REF 

3 

LAST 

1102 

01,3026 

1 2716 

l 

TCF 

CHANJOB  + 4 

17:11  MAR.  19,1971  SKIPPER  .131  PAGE  1108 
USER'S  PAGE  NO.  8 EO  S3 

FPILOGUE  TO  JOB  CHANGE  FOR  INTERPRETIVE 
RESUME  . 


NNZ  PRIORITY  SHOWS  JOB  ASLEEP. 


SAVE  OLD  SUPERBANK  VALUE. 


HOLDS  - HIGHEST  PRIORITY. 

SCAN  FOR  HIGHEST  PRIORITY  ALA  ENDOF JOB  . 

QUICK...  DONT  LET  NEWJOB  CHANGE  TO  +0  . 

NFWJOB  STILL  PNZ 

NEWJOB  HAS  CHANGED  TO  +0.  WAKE  UP  JOB 
VIA  NUDIPECT.  (VERY  RARE  CASF.) 


TURN  ON  ACTIVITY  LIGHT 
AND  SAVE  ADDRESS  INFO  FOR  BENEFIT  OF 
POSS  IBLE  SLEEPING  JOB. 


GAP:  ASSEMBLE  REVISION  2 LO  CF  AGC  PROGRAM  LUMINARY  BY  NASA  202I112-L6I 

L EXECUTIVE 

PQ197  TO  WAKE  UP  A JOB,  EACH  CORE  SET  IS  FOUND  TO  LOCATE  ALL  JOBS 


K0199 

LOC 

REGISTER  OF  ANY 

SUCH  JOB 

MATCHES 

THAT  SUPPLIED  BY  THE  CALLER, 

R020  l 

LOCCTR 

IS  SET 

TO  -1 

AND  NO  FURTHER  ACTION  TAKES 

PLACE. 

0202 

REF 

6 

LAST 

1105 

01,3027 

54  061 

1 

J0BWAKE2 

TS 

E XECTEM1 

0203 

REF 

227 

LAST 

1108 

01,3030 

3 4746 

0 

CAF 

ZERO 

0204 

REF 

13 

LAST 

1105 

01,3031 

54  C 64 

L 

TS 

LOCCTR 

0205 

REF 

2 

LAST 

1 104 

01,3032 

3 2640 

1 

CAF 

NO. CORES 

0206 

REF 

3 

LAST 

1105 

01 , 3033 

54  062 

1 

J0BWAKE4 

TS 

EXECTEM2 

0207 

REF 

14 

LAST 

1 109 

01, 3034 

50  C64 

0 

INDEX 

LOCCTR 

020  8 

REF 

20 

LAST 

1108 

01,3035 

10  167 

0 

CCS 

PRIORITY 

0209 

REF 

1 

01,3036 

1 3041 

0 

TCF 

J0BWAKE3 

0210 

01,3037 

00014 

1 

CORE  INC 

DEC 

12 

021  1 

REF 

1 

01,3040 

1 3050 

0 

TCF 

WAKETEST 

0212 

REF 

2 

LAST 

1105 

01,3041 

3 3037 

0 

J0BWAKE3 

CAF 

CORE  INC 

0213 

REF 

15 

LAST 

1109 

01,3042 

26  064 

1 

ADS 

LOCCTR 

0214 

REF 

4 

LAST 

1109 

01,3043 

10  062 

1 

CCS 

EXECTEM2 

0215 

REF 

1 

01,3044 

1 3033 

0 

TCF 

J0BWAKE4 

0216 

REF 

1C2 

LAST 

1108 

01,3045 

4 4 744 

0 

CS 

ONE 

0217 

REF 

16 

LAST 

1109 

01,3046 

54  064 

1 

TS 

LOCCTR 

021  8 

REF 

4 

LAST 

1105 

01, 3047 

1 5151 

0 

TCF 

ENDF I ND 

0219 

REF 

6 

LAST 

1105 

01 , 3050 

4 0065 

0 

W AKETEST 

CS 

NEWLOC 

0220 

REF 

17 

LAST 

1109 

01 , 3051 

50  C 64 

0 

INDEX 

LOCCTR 

0 22  1 

REF 

40 

LAST 

1108 

01,3052 

6 0164 

1 

AD 

LOC 

0222 

01 ,3053 

0 0006 

1 

EXTEND 

0223 

01,3054 

1 3056 

0 

BZF 

+ 2 

0224 

REF 

2 

LAST 

1109 

01 ,3055 

1 3041 

0 

TCF 

J0BWAKE3 

0225 

REF 

13 

LAST 

1109 

01 ,3056 

50  064 

0 

INDEX 

LOCCTR 

0226 

REF 

21 

LAST 

1109 

01,3057 

4 C 1 67 

0 

CS 

PRIORITY 

0227 

REF 

9 

LAST 

1105 

01 ,3060 

54  063 

0 

TS 

NEWPR 10 

022  8 

REF 

19 

LAST 

1109 

01,3061 

50  064 

0 

INDEX 

LOCCTR 

022  9 

REF 

22 

LAST 

1109 

01,3062 

54  167 

0 

TS 

PRIORITY 

0230 

REF 

1 

01,3063 

4 4341 

1 

CS 

F BANKMSK 

0231 

REF 

7 

LAST 

1109 

01,3064 

7 0065 

0 

MASK 

NEWLOC 

0232 

REF 

3 

LAST 

1021 

01,3065 

6 4732 

0 

AD 

2 K 

0233 

REF 

8 

LAST 

1 109 

01,3066 

56  065 

1 

XCH 

NEWLOC 

0234 

REF 

2 

LAST 

1 109 

01,3067 

7 4341 

1 

MASK 

F BANKMSK 

0235 

REF 

20 

LAST 

1 109 

01 , 3070 

50  064 

0 

INDEX 

LOCCTR 

0236 

REF 

13 

LAST 

1108 

01,3071 

6 0165 

0 

AD 

8ANKSET 

023  7 

REF 

9 

LAST 

1 109 

01,3072 

54  066 

0 

TS 

NEWLOC  +1 

0238 

REF 

2 1 

LAST 

1109 

01,3073 

10  064 

1 

CCS 

LOCCTR 

0239 

REF 

3 

LAST 

1105 

01,3074 

1 2665 

1 

TCF 

SETLOC 

0240 

REF 

1 

01,3075 

l 2655 

1 

TCF 

SPECTEST 
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WHICH  ARE  ASLEEP.  IF  THF  FCAOR  IN  THE 
T JOB  IS  AWAKENED.  IF  NO  JOB  IS  FOUND, 

BEGIN  CORE  SET  SCAN. 


ACTIVE  JOB  - CHECK  NEXT  CORE  SET. 

12  REGISTERS  PER  CORE  SET. 

SLEEPING  JOB  - SEE  IF  CADR  MATCHES. 


EXIT  IF  SLEEPING  JOB  NOT  FOUND. 


IF  MATCH. 

EXAMINE  NEXT  CORE  SET  IF  NO  MATCH. 
RE-COMPLEMENT  PRIORITY  TO  SHOW  JOB  AWAKE 


MAKE  UP  THE  2CADR  OF  THE  WAKE  ADDRESS 
USING  THE  CADR  IN  NEWLOC  AND  THE  EBANK 
HALF  OF  BBANK  SAVED  IN  BANKSFT . 


SPECIAL  TREATMENT  IF  THIS  JOB  WAS 
ALREADY  IN  THF  RUN  (0)  POSITION. 


GAP: 
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L EXECUTIVE  USER'S  PAGE  NO.  10  FO  S3 


P0241 

PRIORITY  CHANGE.  CHANGE  THE 

CONTENTS  OF 

PRIORITY  AND  SCAN  FOR 

THF 

JOB 

OF  HIGHEST  PRIORITY. 

0243 

REF 

41 

LAST 

1109 

01,3076 

54  164 

0 PRI0CH2 

TS 

LOC 

0244 

REF 

228 

LAST 

1109 

01,3077 

3 4 746 

0 

CAF 

ZERO 

SET 

FLAG  TO  TELL  ENDJOB  SCANNER 

0245 

REF 

150 

LAST 

1108 

01 , 3 100 

54  130 

1 

TS 

BUF 

JOB 

I S 

STILL  HIGHEST  PRIORITY. 

0246 

REF 

13 

LAST 

1106 

01,3101 

3 4775 

0 

CAF 

LQW9 

0247 

REF 

23 

LAST 

1109 

01,3102 

7 C 167 

0 

MASK 

PRIORITY 

0248 

REF 

10 

LAST 

1109 

01,3103 

6 C063 

1 

AD 

NEW°R 10 

0249 

REF 

24 

LAST 

1110 

01,3104 

54  167 

0 

TS 

PRIORITY 

0250 

01,3105 

4 0000 

0 

COM 

025  1 

REF 

1 

01 ,3  106 

l 30  13 

1 

TCF 

J06SLP2 

AND 

TO 

EJSCAN . 

THIS 
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P0252 

RELEASE  THIS  CORE  SET  AND  VAC 

AREA  AND 

SCAN  FOR  THE  JOS 

OF  HIGHEST  ACTIVE  PRIORITV. 

0254 

01,3107 

0 0004 

0 

ENDJ0B1 

INHINT 

0255 

REF 

229 

LAST 

1110 

01,3110 

4 4 746 

1 

CS 

ZERO 

0256 

REF 

151 

LAST 

1110 

01,3111 

54  131 

0 

TS 

BUF  +1 

0257 

REF 

25 

LAST 

1110 

01,3112 

56  167 

1 

XCH 

PRIORITY 

0258 

REF 

14 

LAST 

1110 

01,3113 

7 4775 

1 

MASK 

L0W9 

0258  1 

REE 

226 

LAST 

1106 

01,3114 

54  001 

1 

TS 

L 

02582 

REF 

3 

LAST 

1103 

01,3115 

4 5155 

1 

CS 

F AKEPRET 

025821 

REF 

227 

LAST 

1111 

01,3116 

6 C001 

0 

AD 

L 

02583 

01,3117 

0 0006 

1 

EXTEND 

02584 

REF 

2 

LAST 

1108 

01,3120 

6 3124 

0 

BZMF 

EJSCAN 

NOVAC  ENDOFJOB 

0259 

KEF 

228 

LAST 

11  LI 

01,3121 

10  001 

l 

CCS 

L 

0260 

REF 

350 

LAST 

1104 

01,3122 

50  000 

1 

INDEX 

A 

026  1 

01,3123 

54  000 

0 

TS 

0 

0262 

REF 

26 

LAST 

1111 

01,3124 

10  203 

1 

EJSCAN 

CCS 

PRIORITY 

+ 12D 

0263 

REF 

1 

01,3125 

0 3175 

1 

TC 

E J 1 

0264 

REF 

12 

LAST 

1105 

01,3126 

0 5701 

1 

TC 

CCSHOLE 

0265 

01,3127 

1 3130 

1 

TCF 

+ 1 

0266 

REF 

27 

LAST 

1111 

01,3130 

10  217 

1 

CCS 

PRIORITY 

+24D  EXAMINE  EACH  PRIORITY  REGISTER  TO  FIND 

0267 

REF 

2 

LAST 

1 1 L 1 

01,3131 

0 3175 

1 

TC 

E J 1 

THE  JOB  OF  HIGHEST  ACTIVE  PRIORITY. 

0268 

REF 

13 

LAST 

llll 

01,3132 

0 5701 

1 

TC 

CCSHOLE 

0269 

01,3133 

1 3134 

0 

TCF 

+ 1 

0270 

REF 

23 

LAST 

1111 

01,3134 

10  233 

1 

CCS 

PRIORITY 

+ 36D 

0271 

REF 

3 

LAST 

llll 

01,3135 

0 3 175 

1 

TC 

E J 1 

0272 

REF 

29 

LAST 

llll 

01,3136 

67610 

l 

-CCSPR 

-CCS 

PRIORITY 

0273 

01,3137 

1 3140 

0 

TCF 

+ 1 

0274 

REF 

30 

LAST 

llll 

01,3140 

10  247 

1 

CCS 

PRIORITY 

+ 48D 

0275 

REF 

4 

LAST 

llll 

01,3141 

0 3175 

1 

TC 

E J 1 

0276 

REF 

14 

LAST 

llll 

01,3142 

0 5701 

1 

TC 

CCSHOLE 

0277 

01,3143 

1 3 144 

1 

TCF 

■H 

0278 

REF 

31 

LAST 

llll 

01,3144 

10  263 

1 

CCS 

PRIORITY 

+ 60D 

0279 

REF 

5 

LAST 

llll 

01,3145 

0 3175 

l 

TC 

E J 1 

0280 

REF 

15 

LAST 

llll 

01,3146 

0 5701 

1 

TC 

CCSHOLE 

0281 

01,3147 

1 3150 

1 

TCF 

+ 1 

0282 

REF 

32 

LAST 

llll 

01,3150 

10  277 

1 

CCS 

PRIORITY 

+ 72D 

0283 

REF 

6 

LAST 

llll 

01,3151 

0 3175 

1 

TC 

E J1 

0284 

REF 

16 

LAST 

llll 

01,3152 

0 5701 

l 

TC 

CCSHOLE 

0285 

01,3153 

1 3154 

0 

TCF 

+ 1 

0285  1 

REF 

33 

LAST 

llll 

01,3154 

10  313 

1 

CCS 

PRIORITY 

+ 84D 

GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L EXECUTIVE 


02852 

REF 

7 

LAST 

1 1 1 1 

01,3155 

C 

3 175 

1 

TC 

E J 1 

02853 

REF 

17 

LAST 

11  11 

01 ,3156 

0 

5701 

1 

TC 

CCSHOLE 

02854 

01,3157 

1 

3160 

1 

TCF 

+ 1 
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GAP: 
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L EXECUTIVE 


P0286 

EVALUATE 

THE  RESULTS 

OF  THE 

SCAN. 

0287 

REF 

152 

LAST 

1111 

01,3160 

10  131 

0 

CCS 

BUF  +1 

0288 

REF 

18 

LAST 

1112 

01,3161 

0 5701 

1 

TC 

CCSHOLE 

0289 

REF 

19 

LAST 

1113 

01,3162 

0 5701 

l 

TC 

CCSHOLE 

0290 

01,3163 

1 3165 

l 

TCF 

*2 

0291 

REF 

3 

LAST 

235 

01,3164 

l 3210 

0 

TCF 

DUMMY  JOB 

0292 

REF 

153 

LAST 

1113 

01,3165 

10  130 

l 

CCS 

8UF 

0293 

01,3166 

l 3170 

0 

TCF 

+ 2 

0294 

REF 

2 

LAST 

1106 

01,3167 

1 2770 

1 

TCF 

E NDPRCHG 

0295 

REF 

351 

LAST 

ini 

01,3170 

50  000 

1 

INDEX 

A 

0296 

01,3171 

2' 7777 

0 

CAF 

0 -l 

0297 

REF 

1 

01,3172 

6 3136 

0 

AD 

-CC  S PR 

0298 

REF 

20 

LAST 

1108 

01,3173 

54  067 

l 

TS 

NEWJOB 

0299 

REF 

4 

LAST 

1108 

01,3174 

l 2710 

1 

TCF 

CHANJOB  - 

0300 

REF 

154 

LAST 

1113 

01,3175 

54  132 

0 

E Jl 

TS 

BUF  +2 

0301 

REF 

155 

LAST 

1113 

01,3176 

6 C 1 3 1 

l 

AD 

BUF  +1 

030  2 

REF 

352 

LAST 

1113 

01,3177 

10  000 

0 

CCS 

A 

0303 

REF 

156 

LAST 

1113 

OL, J200 

4 0132 

0 

cs 

BUF  +2 

0304 

REF 

l 

01,3201 

l 3204 

0 

TCF 

E J2 

0305 

01,3202 

13  203 

1 

NOOP 

0306 

REF 

3 

LAST 

1103 

01, 3203 

1 6762 

0 

TCF 

Q + 2 

0308 

REF 

157 

LAST 

1113 

01,3204 

54  131 

0 

E J2 

TS 

BUF  + 1 

0309 

REF 

3C4 

LAST 

1105 

01,3205 

3 0C02 

0 

CA 

0 

0310 

REF 

158 

LAST 

1113 

01,3206 

54  130 

1 

TS 

BUF 

031  1 

REF 

4 

LAST 

1113 

01, 3207 

l 6762 

0 

TCF 

Q + 2 
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SEE  IF  THERE  ARE  ANY  ACTIVE  JOBS  WAITING 


BUF  IS  ZERO  IF  THIS  IS  A PPIOCHNG  AND 
CHANGED  PRIORITY  IS  STILL  HIGHFST. 


OTHERWISE,  SET  NEWJOB  TO  THE  RELATIVE 
ADDRESS  OF  THE  NEW  JOB'S  CORE  SET. 


- OLD  HIGH  PRIORITY. 


NEW  HIGH  PR  IORITY 


GAP: 


ASSEMBLE  RFVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L 

EXECUTIVE 

P0314 

IDLING  AND 

COMPUTER 

ACTIVITY  (GREEN)  LIGHT  MAINTENANCE. 

R0316 

BUT 

RATHER  A ' 

SUBROUTINE  OF  THE  EXECUTIVE. 

0318 

REF 

4 

LAST 

302 

1361 

EBANK= 

selfret 

0319 

REF 

230 

LAST 

1111 

01,3210 

4 4746 

1 

DUMMYJOB 

CS 

ZERO 

0320 

REF 

21 

LAST 

1113 

01,3211 

54  067 

1 

TS 

NEWJOB 

0321 

01,3212 

0 CC03 

1 

RELINT 

0322 

REF 

72 

LAST 

1108 

01,3213 

4 4743 

1 

CS 

TWO 

032  3 

01,3214 

0 0006 

1 

EXTEND 

0324 

REF 

31 

LAST 

1108 

01,3215 

03  Oil 

1 

WAND 

D SALMOUT 

0328 

REF 

22 

LAST 

1114 

01,3216 

10  067 

1 

ADVAN 

CCS 

NEWJOB 

0329 

REF 

1 

01 ,32  17 

1 3015 

1 

TCF 

NUCHANG2 

0330 

REF 

73 

LAST 

1114 

01,3220 

3 4743 

0 

CAF 

TWO 

0331 

REF 

1 

01,3221 

l 3230 

1 

TCF 

NUDIRECT 

0335 

REF 

6 

LAST 

217 

01,3222 

25' 356 

0 

INC  R 

DUMLOOPS 

033  6 

REF 

5 

LAST 

1114 

01,3223 

3 1361 

1 

CA 

SELFRET 

033  7 

REF 

229 

LAST 

1 1 1 1 

01,3224 

54  COl 

1 

TS 

L 

033  8 

REF 

1 

01, 3225 

3 3227 

0 

CAF 

SELFBANK 

0339 

REF 

5 

LAST 

613 

01,3226 

1 5170 

0 

TCF 

SUPOXCHZ 

0340 

REF 

6 

LAST 

1114 

1361 

E B A N K = 

SELFRET 

034  1 

REF 

3 

LAST 

303 

01,3227 

66102 

1 

SELFBANK 

BBCON 

SELFCHK 

0342 

01,3230 

0 0006 

1 

NUDI RFCT 

EXTEND 

0343 

REF 

32 

LAST 

1114 

01,3231 

05  Oil 

1 

WOR 

D SALMOUT 

0344 

REF 

42 

LAST 

1110 

01,3232 

52  165 

1 

DXCH 

LOC 

034  5 

REF 

6 

LAST 

1114 

01,3233 

1 5167 

0 

TCF 

SUPDXCHZ 

0346 

5167 

BLOCK 

2 

034  7 

REF 

2 

LAST 

1101  TO  1104: 

68 

58* 

COUNT* 

tt/EXEC 

R034  8 

SUPDXCHZ 

- ROUTINE 

TO  TRANSFER  TO  SUPERBANK. 

R0349 

CALLING 

SEQUENCE 

A0350 

TCF 

SUPDXCHZ 

035  l 

REF 

230 

LAST 

1114 

5167 

56  001 

0 

SUPDXCHZ 

XCH 

L 

0352 

5170 

0 0006 

1 

+ 1 

EXTEND 

0353 

REF 

18 

LAST 

1108 

5171 

01  007 

1 

WRITE 

SUPERBNK 

0354 

REF 

34 

LAST 

1108 

51  72 

54  006 

0 

TS 

BBANK 

0355 

REF 

231 

LAST 

1114 

5173 

0 0001 

0 

TC 

L 

0356 

5174 

77677 

1 

NEG100 

OCT 

77677 
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THE  IDLING  ROUTINE  IS  NOT  A JOB  IN  ITSELF, 

SELF-CHECK  STORAGE  IN  EBANK. 

SET  NEWJOB  TO  -0  FOR  IDLING. 

TURN  OFF  THE  ACTIVITY  LIGHT. 

IS  A NEWJOB  ACTIVE  ? 

YES...  ONE  REQUIRING  A CHANGE  JOR. 

NEW  JOB  ALREADY  IN  POSITION  FOR 
EXECUTION. 

COUNT  DUMMY  JOB  LOOPS  FOR  DOWNLINK 

PUT  RETURN  ADDRESS  IN  L. 

+ 1 AND  DISPATCH  JOB. 


TURN  THt  GREEN  LIGHT  BACK  ON. 

JOBS  STARTED  IN  THIS  FASHION  MUST  BE 

IN  FIXED-FIXED  SO  OTHERS  MAY  USE. 

WITH  2CADR  OF  DESIRED  LOCATION  IN  A + L . 


BASIC 


GAP: 
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L 

R0001 
R0003 
R0005  • 
R 000  7 2 

R00073 

R000759 

R000  8 
R0009 
R001  1 
R0013 

R0014 

R0016 

R001  7 
R0018 
ROOl  9 
R0020 
R0021 
R0022 
R0023 

R0024 

R0025 

R0026 

R0027 

R0028 

R0029 

R0030 

R0031 

R0032 

R0033 

R0034 

R0035 

R0036 

R0037 

R0039 

R0040 

R0041 

R0042 

R00421 

R00422 

R00423 

R00425 


WAITLIST 


USER'S  PAGE  NO.  1 EO  S3 


PROGRAM  DESCRIPTION  DATE  - 10  OCTOBER  1966 

MOD  NO  - 2 LOG  SECTION  - WAITLIST 

MUD  .BY  - MILLER  (DTMAX  INCREASED  TO  162.5  SEC)  ASSFMBLY  SUNBURST  REV  5 

MOD  3 BY  KERNAN  (INHINT  INSERTED  AT  WAITLIST)  2/28/68  SKIPPER  REV  4 

MOD  4B Y KERNAN  (TWIUDLE  IN  54)  3/23/63  SKIPPER  REV  13. 


FUNCTIONAL  DESCRIPTION- 

PART  OF  A SECTION  OF  PROGRAMS , -W A I TL I ST , T ASKCVER , T3RUPT , USED  TO  CALL  A PROGRAM,  (CALLED  A TASK), 
WHICH  IS  TO  BEGIN  IN  C ( A > CENT  I SECONDS . WAITLIST  UPDATES  TIME3,  LST1  AND  LST2.  THE  MEANING  OF  THESE  LISTS 
FOLLOW. 


C ( T I ME3  ) = 16384  - ( T 1 -T ) CENT  I SECONDS  , !T  = PRESENT  TIME,  T 1-TIME  FOR  T ASK  1 ) 


C(LSTL) 

= 

— ( T2— T 1 ) +1 

C ( L S T 1 

+ 1 ) 

= 

-( T3-T2  )+l 

CtLSTl 

+ 2 ) 

- 

-( T4-T3 )+l 

CILST1 

+ 6 ) 

• 

-( T8-T7I+1 

CILSTl 

+ 7) 

= 

-(T9-T8J+1 

C ( L ST2 ) 

= 

2CADR  OF 

TASK1 

CILST2 

+ 2 ) 

2C ADR  OF 

TASK2 

C ( LST2 

+ 14) 

2C.ADR  OF 

TASK8 

C1LST2 

+ 16) 

= 

2C ADR  OF 

TASK9 

WARN  I NGS- 


1)  1 <=  CIA)  <=  16250D  II  CENT  I SECOND  TO  162.5  SEC) 

2)  9 TASKS  MAXIMUM 

3)  TASKS  CALLED  UNDER  INTERRUPT  INHIBITED 

4)  TASKS  END  BY  TC  TASKOVER 

CALLING  SEQUENCE- 

L-l  CA  DELTAT  (TIME  IN  CENTISECONDS  TO  TASK  START) 

L TC  WAITLIST 

L+l  2C ADR  DESIRED  TASK 

L+2  (MINOR  OF  2C  ADR ) 

L+3  RELINT  (RETURNS  HERE) 


TWIDDLE- 


TWIDDLE  IS  FOR  USE  WHEN  THE  TASK  BEING  SET  UP  IS  IN  THE  SAME  EBANK  AND  FBANK  AS  THE  USER.  IN 
SUCH  CASES,  IT  IMPROVES  UPON  WAITLIST  BY  ELIMINATING  THE  NEED  FOR  THE  BBCON  HALF  OF  THE  2C ADR , 


GAP: 
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L 

R00427 

R0043 
R0043  1 
R00432 
R00433 

R00439 

R0044 

R004  5 

R0046 

R0047 

R0048 

R0049 

R0050 

R005  1 

R0052 

R0053 

R0054 

R0055 

R0056 

R005  7 
R0059 

R0060 
R006  1 
R0062 
R0063 
K0064 
R0066 
R0067 
R0068 
K0069 
R0071 

R0072 

R0074 

R0076 


0077 


ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

WAITLIST  USER'S  PAGE  NO.  2 EO  S3 

SAVING  A WORD.  TWIDDLE  IS  LIKE  WAITLIST  IN  EVERY  RESPECT  EXCEPT  CALLING  SEQUENCE,  TO  WIT- 

L — 1 CA  DELTAT 

L TC  TWIDDLE 

L + l ACRES  DESIRED  TASK 

L+2  RELINT  (RETURNS  HERE) 

NORMAL  EXIT  MODES- 

AT  L+3  OF  CALLING  SEQUENCE 
ALARM  CR  ABORT  EXIT  MODES- 
TC  ABORT 

OCT  1203  (WAITLIST  OVERFLOW  - TOO  MANY  TASKS) 


ERASABLE  INITIALIZATION  REQUIRED- 


ACCOMPLISHED  BY  FRESH  START, — L ST  2 , . ..,  LST2  +16  = ENDT  ASK 

L ST  1 , . . . , LST1  +7  =NEG  1/2 


OUTPUT — 

L ST  1 AND  LST2  UPDATED  WITH  NEW  TASK  AND  ASSOCIATED  TIME. 

DEBR  IS- 

CENTRALS-  A , Q , L 

OTHER  - WAITEXIT,  WAITADR,  WAITTEMP,  WAITBANK 
DETAILED  ANALYSIS  OF  TIMING- 


CONTROL  WILL  NOT  BE  RETURNED  TO  THE  SPECIFIED  ADDRESS  (2CA0RI  IN  EXACTLY  DELTA  T CEN T I S EC OND S . 
THE  APPROXIMATE  TIME  MAY  BE  CALCULATED  AS  FOLLOWS 

LET  TO  = THE  TIME  OF  THE  TC  WAITLIST 

LET  TS  = TO  +147U  + COUNTER  INCREMENTS  (SET  UP  TIME) 

LET  X = TS  -(100TS1/100  (VARIANCE  FROM  COUNTERS) 

LET  Y = LENGTH  OF  TIME  OF  INHIBIT  INTERRUPT  AFTER  T3RUPT 

LET  Z = LENGTH  OF  TIME  TO  PROCESS  TASKS  WHICH  ARE  DUE  THIS  T3RUPT  BUT  DISPATCHED  EARLIER. 

(Z=C,  USUALLY) 

LET  DELTO  = THE  ACTUAL  TIME  TAKEN  TO  GIVE  CONTROL  TO  2C ADR 
THEN  DELTD  = TS+DELTA  T -X  +Y  +Z  +1.05MS*  +COUNTERS* 

*-TFE  TIME  TAKEN  BY  WAITLIST  ITSELF  AND  THE  COUNTER  TICKING  DURING  THIS  WAITLIST  TIMF. 


IN  SHORT,  THfc  ACTUAL  TIME  TO  RETURN  CONTROL  TO  A 2CADR  IS  AUGMENTED  BY  THE  TIME  TO  SET  UP  THE  TASK:S 
INTERRUPT,  ALL  COUNTERS  TICKING,  THE  T3RUPT  PROCESSING  TIME,  THE  WAITLIST  PROCESSING  TIME  AND  THE  POSSIBILITY 
OF  OTHER  TASKS  INHIBITING  THE  INTERRUPT. 


5175 


BLOCK  02 
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L WAITLIST 


0078 

REF 

14 

LAST 

232 

E3 

, 1400 

EBANK= 

L ST  1 

0079 

REF 

1 

COUNT* 

$ $/W  A I T 

00795 

5175 

0 0004 

0 

TWIDDLE 

INHINT 

0080 

REF 

232 

LAST 

1114 

5 176 

54  001 

1 

TS 

L 

000  1 

REF 

33 

LAST 

1078 

5177 

3 4724 

1 

CA 

POSMAX 

0082 

REF 

305 

LAST 

1113 

5200 

26  002 

1 

ADS 

Q 

0003 

REF 

35 

LAST 

1114 

5201 

3 0006 

l 

CA 

BBANK 

00832 

5202 

0 0006 

1 

EXTEND 

0083  A 

REF 

19 

LAST 

1114 

5203 

04  007 

1 

ROR 

SUPERBNK 

0084 

REF 

233 

LAST 

1117 

5204 

56  001 

0 

XCH 

L 

00849 

5205 

0 0004 

0 

WAITL  1ST 

INHINT 

0085 

REF 

3C6 

LAST 

1117 

5206 

56  C02 

0 

XCH 

Q 

0086 

REF 

1 

5207 

54  061 

1 

TS 

WAITEXIT 

0087 

5210 

0 0006 

1 

EXTEND 

0088 

REF 

2 

LAST 

1117 

5211 

5 0061 

0 

INDEX 

WAITEXIT 

0089 

5212 

3 CC01 

0 

DC  A 

0 

0090 

REF 

1 

5213 

54  C 63 

0 

-l 

TS 

W A I T ADR 

0091 

REF 

1 

52  14 

3 5222 

0 

DLY2 

CAF 

W AITBB 

0092 

REF 

36 

LAST 

1117 

5215 

56  006 

1 

XCH 

BBANK 

009  3 

REF 

1 

5216 

1 3234 

0 

TCF 

WAIT2 

R0094 

RETURN  TO 

CALLER  AFTER  TASK 

INSERTION: 

0095 

REF 

3 

LAST 

1117 

5217 

52  062 

1 

LVWTLIST 

DXCH 

WAITEXIT 

0096 

REF 

74 

LAST 

1114 

5220 

6 4743 

0 

AD 

TWO 

009  7 

5221 

52  006 

0 

DTCB 

0099 

REF 

15 

LAST 

1117 

E3, 

, 1400 

EBANK= 

L ST  1 

0100 

REF 

2 

LAST 

1117 

5222 

02C63 

0 

WAIT8B 

BBCON 

WAIT2 

R0101 

RETURN  TO 

CALLER  + 2 

AFTER  WAITING  DT  SPECIFIED 

AT  CALLER  + 

0102 

REF 

3C7 

LAST 

1117 

5223 

50  002 

0 

FIXDELAY 

INDEX 

Q 

010  3 

5224 

3 0000 

l 

CAF 

0 

0104 

REF 

3C8 

LAST 

1117 

5225 

24  002 

0 

INCR 

Q 

R0105 

RETURN  TO 

CALLER  +1 

AFTER  WAITING  THE  DT 

AS  ARRIVING  IN  A. 

0106 

REF 

309 

LAST 

1117 

5226 

56  002 

0 

VARDELAY 

XCH 

Q 

0107 

REF 

2 

LAST 

1117 

5227 

54  063 

0 

TS 

WAIT  ADR 

0108 

REF 

37 

LAST 

1117 

5230 

3 0006 

1 

CA 

BBANK 

0109 

5231 

0 0006 

1 

EXTEND 

0110 

REF 

20 

LAST 

1117 

5232 

04  007 

1 

ROR 

SUPERBNK 

0111 

REF 

234 

LAST 

1117 

5233 

54  001 

1 

TS 

L 

0112 

REF 

1 

5234 

3 5237 

l 

CAF 

DELAYEX 

0113 

REF 

4 

LAST 

1117 

5235 

54  061 

1 

TS 

WAITEXIT 

0114 

REF 

1 

5236 

1 5214 

1 

TCF 

DLY2 
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TASK  LISTS  IN  SWITCHED  E BANK. 

SAVE  DELAY  TIME  IN  L 
CREATING  OVERFLOW  AND  Q-l  IN  0 


SAVE  DELTA  T IN  0 AND  RETURN  IN 
WA  ITEX  IT  . 

IF  TWIDDLING,  THE  TS  SKIPS  TO  HERE 
PICK  UP  ?C ADR  OF  TASK. 

BBCON  WILL  REMAIN  IN  L 

ENTRY  FROM  FIXDELAY  AND  VARDELAY. 


BOTH  ROUTINES  MUST  BE  CALLED  UNDER 
WAITLIST  CONTROL  AND  TERMINATE  THE  TASK 
IN  WHICH  THEY  WERE  CALLED. 

DT  TO  Q.  TASK  ADRES  TO  WA  I T ADR . 

BBANK  IS  SAVED  DURING  DELAY. 

ADD  SBANK  TO  BRCON. 

GO  TO  TASKOVER  AFTER  TASK  ENTRY. 


GAP: 
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WAITL  1ST 

USER'S  PAGE  NO. 

A 

F 3 S3 

0115 

REF  <2  LAST-  96A 

5237 

1 5261  0 DELAYEX  TCF 

TASKOVER  -2 

RETURNS  TO  TASKOVER 
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L WAITLIST  USER'S  PAGE  NO.  5 E3  S3 

R0116  ENOTASK  MUST  BE  ENTERED  IN  FIXED-FIXED  SO  IT  IS  DISTINGUISHABLE  BY  ITS  ADRES  ALONE. 


aim 

KEF 

16 

LAST 

1117 

E3. 

,1400 

0119 

REF 

1 

5240 

72535 

1 

ENDT ASK 

0119 

REF 

1 

5241 

73714 

1 

0120 

REF 

22 

LAST 

924 

5242 

10  076 

1 

SVCT3 

0121 

REF 

63 

LAST 

1 1 18 

5243 

1 

5263 

1 

0122 

REF 

64 

LAST 

1119 

5244 

1 

5263 

1 

0123 

' 

5 245 

1 

5246 

0 

01231 

REF 

3 

LAST 

233 

5246 

1 1 ' 301 

0 

CKIMUSE 

01232 

REF 

1 

5247 

1 

5260 

1 

01233 

5250 

1 

5253 

1 

012  3 A 

REF 

2 

LAST 

11  19 

5251 

1 

5260 

1 

01235 

REF 

3 

LAST 

1119 

5252 

1 

5260 

1 

0124 

REF 

1 

5253 

3 

7744 

1 

+ 3 

0125 

REF 

24 

LAST 

866 

5254 

0 

5063 

1 

0126 

REF 

6 

LAST 

860 

E 3 i 

, 1460 

0127 

REF 

1 

5255 

03625 

0 

0127 

REF 

1 

5256 

14063 

1 

0128 

REF 

65 

LAST 

1119 

5257 

1 

5263 

1 

0128  1 

REF 

15 

LAST 

777 

5260 

0 5223 

1 SVCT3X 

01202 

5261 

00764 

1 

01283 

REF 

2 

LAST 

1119 

5262 

0 5242 

0 

EBANK= 

2CADR 

L ST1 
SVCT3 

CCS 

TCF 

TCF 

TCF 

FLAGWRD2 
TASKOVER 
TASKOVER 
+ 1 

DRIFT  FLAG 

CCS 

TCF 

TCF 

TCF 

TCF 

IMUCADR 
S VCT3X 
+ 3 

S VCT3X 
S VCT3X 

DON'T  DO  NBDONLY  IF  SOMEONE  ELSE  IS 
IMUSTALL. 

CAF 

TC 

EBANK= 
2C  ADR 

PR  103  5 
NUVAC 
NBDX 
NBDONLY 

COMPENSATE  FOR  NBD  COEFFICIFNTS  ONLY 
ENABLE  EVERY  81.93  SECONDS 

TCF 

TASKOVER 

TC 

DEC 

TC 

F IXDELAY 
500 
S VCT3 

DELAY  MAX  OF  2 TIMES  FOR  IMUZERO. 
CHECK  DRIFT  FLAG  AGAIN. 
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L 

PO  129 

U 130 
013  1 
013  2 
01322 
0 13  2 A 
01326 

013  3 

013  A 
0135 

A0136 
A 013  7 
AO  13  8 

0139 

0140 

R 0 14  1 

0142 

0143 

0144 

0145 

014  6 

0147 

0140 

R0149 
R0150 
RO 15  1 
RO  15  2 

0153 

0154 

0155 

0156 

0157 

0158 

0159 


WAITLIST  USER'S  PAGE  NO.  6 E3  S3 

BEGIN  TASK  INSERTION. 


01,3234 

BANK 

0 1 

REF 

1 

COUNT* 

$ $ /W  A I T 

REF 

1 

01,3234 

54 

062 

1 

WAIT2 

TS 

WAIT8ANK 

BBANK  OF  CALLING  PROGRAM. 

REF 

3 1C 

LAST 

1117 

01,3235 

3 

0002 

0 

CA 

Q 

01,3236 

0 

0006 

1 

EXTEND 

REF 

1 

01,3237 

6 

3525 

0 

BZMF 

W A I TPOOH 

REF 

2 

LAST 

230 

01,3240 

4 

CC26 

1 

CS 

T IME3 

RFF 

38 

LAST 

1051 

01,3241 

6 

4735 

1 

AD 

B IT8 

BIT  8 = OCT  200 

REF 

353 

LAST 

1113 

01,3242 

10 

COO 

0 

CCS 

A 

TEST  200  - C ( T IME3 ) 

• 

IF  POSITIVE, 

IT  MEANS 

THAT  TIME3  OVERFLOW 

HAS  OCCURRED  PRIOR  TO 

CS 

TIME3 

AND  THAT 

C1TIME3) 

= T - 

T 1 , INSTEAD  OF 

1.0  - ( T 1 - T) . THE 

FOLLOWING 

FOUR 

ORDERS  SET  CIA) 

= TO  - T1  + 1 

IN  EITHER  CASE. 

REF 

3 

LAST 

1097 

01,3243 

6 

6130 

0 

AD 

□CT4000 1 

OVERFLOW  HAS  OCCURRED, 

. SET 

CIA)  = 

REF 

354 

LAST 

1120 

01,3244 

4 

CCOO 

0 

CS 

A 

T - T 1 + 1.0-  201 

NORMAL 

CASE  ( C ! A ) 1 

S1NZ ) YIELDS 

SAME  C( A) 

: -(  -( 1 

.0-1 Tl- 

T) ) + 200)  - 1 

REF 

1 

01 , 3245 

6 

33  73 

0 

AD 

OCT4020 1 

REF 

311 

LAST 

1120 

01,3246 

6 

CC02 

0 

AD 

Q 

RESULT  = TD  - T 1 + 

1. 

REF 

355 

LAST 

1120 

01,3247 

10 

COO 

0 

CCS 

A 

TEST  TD  - T1  + 1 

REF 

17 

LAST 

1119 

01,3250 

6 

1400 

1 

AD 

LST1 

IF  TD  - T 1 POS,  GO 

TO 

WTLST5 

WITH 

REF 

1 

01,3251 

1 

3313 

1 

TCF 

WTLST5 

CIA)  = I TD  - Tl)  + 

C ( LST1 ) = 

TD-T  2+  1 

01 , 3252 

13 

253 

1 

NOOP 

REF 

312 

LAST 

1120 

01,3253 

4 

0002 

1 

CS 

Q 

NOTE  TEAT  THIS  PROGRAM  SECTION  IS  NEVER  ENTERED  WHEN  T-Tl  G/E  -1, 
SINCE  TD-T1+1  = (TD-T)  + (T-Tl+1),  AND  DELTA  T = TD-T  G/E  +1  . (G/E 

SYMBOL  MEANS  GREATER  THAN  OR  EQUAL  TO).  THUS  THERE  NEEO  BE  NO  CON- 
CERN OVER  A PREVIOUS  OR  IMMINENT  OVERFLOW  OF  T I ME  3 HERE. 


REF 

1 

01,3254 

6 

4727 

1 

AD 

P0S1/Z 

WHEN 

TD  IS  NEXT,  FORM  QUANTITY 

REF 

2 

LAST 

1120 

01,3255 

6 

4727 

l 

AD 

P0S1/2 

1.0 

- DELTA  T = 1 .0  - I TD  - T ) 

REF 

3 

LAST 

1120 

01 , 3256 

56 

C26 

0 

XCH 

T I ME  3 

REF 

7 

LAST 

1041 

01,3257 

6 

4 726 

0 

AD 

NEGMAX 

REF 

313 

LAST 

1120 

01,3260 

6 

0002 

0 

AD 

Q 

1.0  - 

DELTAT  T NOW  COMPLETE. 

01,3261 

0 

0006 

1 

EXTEND 

ZERO 

INDEX  Q. 

01 ,3262 

22 

007 

0 

QXCH 

7 

I ZQ) 
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L WAITLIST 


016C 

REF 

18 

LAST 

1120 

01 ,3263 

57 ' 400 

1 WTLST4 

XCH 

L ST  1 

0161 

REF 

19 

LAST 

1121 

01,3264 

57 ' 401 

0 

XCH 

L ST  1 

+ 1 

0162 

REF 

20 

LAST 

1121 

01,3265 

57 ' 402 

0 

XCH 

LST1 

+ 2 

0163 

REF 

21 

LAST 

1121 

01,3266 

57' 403 

1 

XCH 

L ST  1 

+3 

0164 

REF 

22 

LAST 

1121 

01,3267 

57*404 

0 

XCH 

LST1 

+4 

0165 

REF 

23 

LAST 

1121 

01,3270 

57 ' 405 

1 

XCH 

L ST  1 

+5 

0166 

REF 

24 

LAST 

1121 

01,3271 

57  * 406 

1 

XCH 

LST1 

+6 

0167 

REF 

25 

LAST 

1121 

01,3272 

57*407 

0 

XCH 

LST1 

+ 7 

0168 

REF 

3 

LAST 

1117 

01,3273 

3 0063 

1 

CA 

W A I T ADR 

0169 

REF 

314 

LAST 

1120 

01,3274 

50  C02 

0 

INDEX 

Q 

0170 

01,3275 

1 3276 

0 

TCF 

+ 1 

0171 

REF 

2.4 

LAST 

746 

01 ,3276 

53*411 

0 

DXCH 

LST2 

0172 

REF 

25 

LAST 

1121 

01,3277 

53*413 

1 

DXCH 

LST2 

+2 

0173 

REF 

26 

LAST 

1121 

01,3300 

53*415 

1 

DXCH 

LST2 

+4 

0174 

REF 

27 

LAST 

1121 

01,3301 

53 ' 4 1 7 

0 

DXCH 

LST2 

+6 

0175 

REF 

28 

LAST 

1121 

01,3302 

53*421 

0 

DXCH 

LST2 

+ 8D 

0176 

REF 

29 

LAST 

1121 

01,3303 

53*423 

1 

DXCH 

LST2 

+ 10D 

0177 

REF 

30 

LAST 

1121 

01,3304 

53*425 

1 

DXCH 

LST2 

+ 1 2D 

0178 

REF 

31 

LAST 

1121 

01 ,3305 

53*427 

0 

DXCH 

L ST2 

+ 14D 

0179 

REF 

32 

LAST 

1121 

01,3306 

53 • 431 

1 

DXCH 

LST2 

+ 16D 

0180 

REF 

3 

LAST 

232 

01,3307 

6 5240 

1 

AD 

ENDTASK 

A0181 

0182 

01,3310 

0 0006 

1 

EXTEND 

0183 

REF 

1 

01,3311 

1 5217 

1 

BZF 

LVWTLIST 

0184 

REF 

1 

01,3312 

1 3366 

0 

TCF 

WT  ABORT 
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(MINOR  PART  OF  TASK  CADR  HAS  BEEN  IN  L.) 


AT  END,  CHECK  THAT  CILST2+10)  IS  STD 


END  ITEM,  AS  CHECK  FOR  EXCEEDING 
THE  LFNGTH  OF  THE  LIST. 

DUMMY  TASK  ADRES  SHOULD  BE  IN  FIXED- 
FIXED  SO  ITS  ADRES  ALONE  DISTINGUISHES 

IT. 
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L WAITLIST 


0185 

REF 

356 

LAST 

1120 

01,3313 

10  000 

0 

WTLST5 

CCS 

A 

0186 

REF 

26 

LAST 

1121 

01,3314 

6 1401 

0 

AD 

LST1  +1 

0187 

01,3315 

1 3321 

0 

TCF 

+ 4 

0188 

REF 

1C3 

LAST 

1 109 

01,3316 

6 4 744 

1 

AD 

ONE 

0189 

REF 

1 

01,3317 

0 3377 

1 

TC 

WTLST2 

0190 

01,3320 

OOCOl 

0 

OCT 

1 

0191 

REF 

357 

LAST 

1122 

01,3321 

10  COO 

0 

+ 4 

CCS 

A 

019  2 

REF 

27 

LAST 

1122 

01, 3322 

6 1402 

0 

AD 

LST1  +2 

0193 

01,3323 

1 3327 

0 

TCF 

+ 4 

0194 

REF 

104 

LAST 

1122 

01,3324 

6 4744 

1 

AD 

ONE 

0195 

REF 

2 

LAST 

1122 

01,3325 

0 3377 

1 

TC 

WTLST2 

0196 

0 1 ,3326 

00002 

0 

OCT 

2 

0197 

REF 

358 

LAST 

1122 

01,3327 

10  COO 

0 

+ 4 

CCS 

A 

0198 

REF 

28 

LAST 

1122 

01,3330 

6 1403 

1 

AD 

LST1  +3 

0199 

01,3331 

1 3335 

0 

TCF 

+ 4 

0200 

REF 

105 

LAST 

1122 

01,3332 

6 4744 

1 

AD 

ONE 

0201 

REF 

3 

LAST 

1122 

01,3333 

0 3377 

1 

TC 

WTLST2 

020  2 

01,3334 

00C03 

1 

OCT 

3 

020  3 

REF 

355 

LAST 

1 122 

01,3335 

10  000 

0 

+ 4 

CCS 

A 

0204 

REF 

29 

LAST 

1122 

01,3336 

6 1404 

0 

AD 

L ST  1 +4 

0205 

01,3337 

1 3343 

1 

TCF 

+ 4 

0206 

REF 

1C6 

LAST 

1122 

01,3340 

6 4744 

1 

AD 

ONE 

0207 

' REF 

4 

LAST 

1122 

01,3341 

0 3377 

1 

TC 

WTLST2 

0208 

01,3342 

00004 

0 

OCT 

4 

0209 

REF 

360 

LAST 

1122 

01,3343 

10  000 

0 

+ 4 

CCS 

A 

0210 

REF 

30 

LAST 

1122 

01,3344 

6 1405 

1 

AD 

LST 1 +5 

021  1 

01,3345 

1 3351 

1 

TCF 

+ 4 

0212 

REF 

1 C 7 

LAST 

1 122 

01,3346 

6 4 744 

1 

AD 

ONE 

0213 

REF 

5 

LAST 

1122 

01,3347 

0 3377 

1 

TC 

WTLST2 

0214 

01,3350 

C0005 

1 

OCT 

5 

0215 

REF 

361 

LAST 

1122 

01,335  1 

10  000 

0 

+4 

CCS 

A 

0216 

REF 

31 

LAST 

1122 

01,3352 

6 1406 

1 

AD 

L ST  1 +6 

021  7 

01,3353 

1 3357 

1 

TCF 

+ 4 

021  8 

REF 

108 

LAST 

1122 

01,3354 

6 4744 

1 

AD 

ONE 

0219 

REF 

6 

LAST 

1122 

01,3355 

0 3377 

1 

TC 

WTLST2 

0220 

01 ,3356 

0C006 

1 

OCT 

6 

17:11  MAR.  19,1971  SKIPPER  .131  PAGE  1122 
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TEST  TO  - T2  + 1 


TEST  TO  - T3  + 1 


TEST  TD  - T4  + l 


TEST  TD  - T5  + 1 


TEST  TD  - T6  + 1 


TEST  TD 


T7  + 1 


GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L WAITLIST 


0221 

REF 

3 62 

LAST 

1122 

01,3357 

10  000 

0 

+ 4 

CCS 

A 

0222 

REF 

32 

LAST 

1122 

01,3360 

6 1407 

0 

AD 

L ST  1 +7 

0223 

01,3361 

1 3365 

0 

TCF 

+ 4 

022  A 

REF 

1C9 

LAST 

1122 

01 ,3362 

6 4 744 

1 

AD 

ONE 

022  5 

REF 

7 

LAST 

1122 

01,3363 

0 3377 

1 

TC 

WTLST2 

0226 

01,3364 

00007 

0 

OCT 

7 

022  7 

REF 

363 

LAST 

1123 

01,3365 

1C  COO 

0 

+4 

CCS 

A 

0228 

REF 

I 

01,3366 

0 3374 

1 

WTABGRT 

TC 

FILLED 

0229 

01,3367 

13  370 

1 

NOOP 

0230 

REF 

1 10 

LAST 

1123 

01,3370 

6 4744 

1 

AD 

ONF 

023  l 

REF 

B 

LAST 

1123 

01,3371 

0 3377 

1 

TC 

WTLST2 

0232 

01,3372 

00010 

0 

OCT 

10 

0233 

01,3373 

40201 

0 

0CT40201 

OCT 

40201 

17:11  MAR.  19,1971  SKIPPER 
USER*  S PAGE  NO.  9 


.131  PAGE  1123 
E 3 S3 


CAN'T  GET  HERE 


GAP 


ASSEMBLE  REVISION  210  CE  AGC  PROGRAM  LUMINARY  BY  NASA  202LU2-161 
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L 

WA  ITL  1ST 

USFP'S  PAGE  NO. 

10 

E3  S3 

02332 

REF  5 

LAST 

1117 

01,3374 

52  062 

1 FILLED 

DXCH 

WA  ITEX IT 

02334 

REF  5 

LAST 

1105 

01, 3375 

0 5712 

0 

TC 

B A I LOUT  1 

NO  ROOM  IN  THE  INN 

023  3 6 

01,3376 

31203 

1 

OCT 

31203 

GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 


17:11  MAR.  19,1971  SKIPPER  .131  PAGE 


L 

W4ITL  1ST 

P0234 

THE  ENTRY 

' TO  WTLST2 

JUST  PRECEDING  OCT 

N IS  FOR  T LE 

TD  LE  T 

R0235 

N 

N+l 

R0236 

(LE  MEANS 

, LESS  THAN 

OR  EQUAL 

TO).  AT 

ENTRY , C( A)  = -(TO  - T + 1 ) 

R0237 

N + l 

R0238 

THE  L ST  1 

ENTRY  -IT 

- T +1  ) 

IS  TO  BE 

REPLACED  BY  -(TO  - 

- T + 1)  , AN' 

R0239 

N+  1 N 

N 

R0240 

THE  ENTRY 

' -IT  - TD  + 1 1 IS 

TO  BE  INSERTED  IMMEDIATELY 

FOLLOWING. 

R 024 1 

N+l 

0242 

REF  1 

01,3377 

5 4 064 

1 

WTLST2  TS 

WAITTEMP 

0243 

REF  315 

LAST  1121 

01 , 3400 

50  002 

0 

INDEX 

Q 

0244 

01,3401 

3 0000 

1 

CAF 

0 

0245 

REF  316 

LAST  1125 

01 , 3402 

54  002 

1 

TS 

Q 

0246 

REF  111 

LAST  1123 

01,3403 

3 4744 

1 

CAF 

ONE 

0247 

REF  2 

LAST  1125 

01 , 3404 

6 0064 

0 

AD 

WAITTEMP 

0248 

REF  317 

LAST  1125 

01,3405 

50  002 

0 

INDEX 

Q 

0249 

REF  33 

LAST  1123 

01,3406 

27 '377 

1 

ADS 

L ST  1 -1 

0250 

KEF  3 

LAST  1125 

01,3407 

4 0064 

1 

CS 

WAITTEMP 

0251 

REF  318 

LAST  1125 

01,3410 

50  002 

0 

INDEX 

0 

0252 

REF  1 

01,3411 

1 3263 

1 

TCF 

WTLST4 

R0253 

C ( T IME3  ) 

= 1.0  - ( T 1 

- T) 

R0254 

C1LST1  ) 

= - ( T2  - 

T 1 ) + 1 

R0255 

C1LST1+1) 

= - ( T3  - 

T2)  + 1 

R0256 

C ( LST  1 + 2 ) 

= - ( T4  - 

T3 ) + 1 

R0257 

CILST1+3) 

= - ( T5  - 

T4 ) + 1 

R0258 

C ( LS  T 1 + 4 ) 

= - ( T6  - 

T 5 ) + 1 

R0259 

C ( LST2 

) = 20 ADR 

T ASK  1 

R0260 

C ( LST2+2 

) = 2CADR 

TASK2 

R026  1 

C ( LST2+4 

) = 2CADR 

TASK3 

R0262 

C ( LST2+6 

) = 2CADR 

TASK4 

R0263 

C ( LST2+8 

) = 2C ADR 

TASK5 

R0264 

CILST2+10)  = 2CADR 

TASK6 

USER'S  PAGE  NO.  11 


E3  S3 


CIA)  = -(TO  - T 


INDEX  VALUE  INTO  Q. 


+ 1 ) 


C(  A) 


■ I T D - T ) + 1 . 
N 


1125 


GAP:  ASSEMBLE  REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L ' WAITLIST 


P0265 

ENTERS  HERE 

ON  T3  RUPT  TO  DISPATCH  WAITLISTED 

TASK. 

0266 

01,3412 

0 0006 

1 

T 3 RUPT 

EXTEND 

0267 

REF 

21 

LAST 

1117 

01,3413 

04  007 

1 

ROR 

SUPERBNK 

0268 

REF 

6 

LAST 

989 

01,3414 

54  016 

1 

TS 

BANKRUPT 

0269 

01,3415 

0 0006 

1 

EXTEND 

0270 

REF 

6 

LAST 

989 

01,3416 

2 2 012 

1 

QXCH 

ORUPT 

0271 

REF 

6 

LAST 

1093 

01,3417 

3 4 725 

0 

T3RUPT2 

CAF 

NEG1/2 

0272 

REF 

34 

LAST 

1125 

01 , 3420 

57 1 407 

0 

XCH 

LST1 

+7 

0273 

REF 

35 

LAST 

1126 

01,3421 

57 ' 406 

1 

XCH 

LST1 

+ 6 

0274 

REF 

36 

LAST 

1126 

01,3422 

57 1 405 

1 

XCH 

L ST  1 

+ 5 

0275 

REF 

37 

LAST 

1126 

01,3423 

57 ' 404 

0 

XCH 

Lsn 

+4 

0276 

REF 

38 

LAST 

1126 

01,3424 

57' 403 

1 

XCH 

L ST  1 

+ 3 

0277 

REF 

39 

LAST 

1126 

01,3425 

57 ' 402 

0 

XCH 

LST  1 

+ 2 

0278 

REF 

40 

LAST 

1126 

01,3426 

57' 401 

0 

XCH 

L ST  1 

+ 1 

0279 

REF 

41 

LAST 

1126 

01,3427 

57 ' 400 

1 

XCH 

L ST  l 

0280 

REF 

34 

LAST 

1117 

01,3430 

6 4724 

1 

AD 

POSMAX 

0281 

REF 

4 

LAST 

1120 

01,3431 

26  026 

1 

ADS 

T IME3 

0282 

REF 

4 

LAST 

581 

01,3432 

54  332 

1 

TS 

RUPTAGN 

0283 

REF 

231 

LAST 

1114 

01,3433 

4 4746 

1 

CS 

ZERO 

0 284 

REF 

5 

LAST 

1126 

01,3434 

54  332 

1 

TS 

RUPTAGN 

0285 

01,3435 

0 C006 

1 

EXTEND 

0286 

REF 

4 

LAST 

1121 

01,3436 

4 5241 

1 

DCS 

ENDTASK 

0287 

REF 

33 

LAST 

112  1 

01,3437 

53 ' 431 

1 

DXCH 

LST2 

+ 16D 

0288 

REF 

34 

LAST 

1 126 

01,3440 

53' 427 

0 

DXCH 

LST2 

+ 14D 

0289 

REF 

35 

LAST 

1126 

01,3441 

53 ' 425 

1 

DXCH 

LST2 

+ 12D 

0290 

REF 

36 

LAST 

1126 

01,3442 

53*423 

1 

DXCH 

LST2 

+ 10D 

0291 

REF 

37 

LAST 

1126 

01,3443 

53*421 

0 

DXCH 

LST2 

+ 80 

0292 

REF 

38 

LAST 

1126 

01,3444 

53 ' 417 

0 

DXCH 

LST2 

+6 

0293 

REF 

39 

LAST 

1126 

01,3445 

53' 415 

1 

DXCH 

LST2 

+4 

0294 

REF 

40 

LAST 

1126 

01,3446 

53 ' 41 3 

l 

DXCH 

LST2 

+2 

0295 

REF 

41 

LAST 

1126 

01,3447 

53 ' 41 1 

0 

DXCH 

LST2 

0296 

REF 

235 

LAST 

1117 

01,3450 

56  C01 

0 

XCH 

L 

0297 

01,3451 

0 C 0 06 

1 

EXTEND 

0298 

REF 

22 

LAST 

1126 

01,3452 

01  007 

1 

WRITE 

SUPERBNK 

0299 

REF 

236 

LAST 

1126 

01,3453 

56  C01 

0 

XCH 

L 

0300 

01,3454 

52  006 

0 

DTCB 
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READ  CURRENT  SUPERBANK  VALUE  AND 
SAVE  WITH  E AND  F BANK  VALUES. 


DISPATCH  WAITLIST  TASK. 


1.  MOVE  UP  L ST  1 CONTENTS,  ENTERING 
A VALUE  OF  1/2  +1  AT  THE  BOTTOM 
FOR  T6-T5,  CORRESPONDING  TO  THE 
INTERVAL  81.91  SEC  FOR  ENDTASK. 

2.  SET  T 3 = 1.0  - T2  -T  USING  LIST  1 
SO  T3  WONT  TICK  DURING  UPDATE. 


SETS  RUPTAGN  TO  +1  nN  OVERFLOW. 
DISPATCH  TASK. 


SET  SUPERBANK  FROM  BBCON  OF  2C ADR 
RESTORE  TO  L FOR  DXCH  Z. 


GAP: 


ASSEMBLE  REVISION  2 LO  CF  A GC  PROGRAM  LIMINARY  BY  NASA  20211  12-161 


L WAITLIST 

P0301.  RETURN,  AFTER  EXECUTION  OF  T3  OVERFLOW  TASK: 


0302 

5263 

BLUCK 

02 

0303 

REF 

2 

LAST 

1117.  TO 

1120: 

54 

54* 

COUNT* 

$ $/W  AIT 

0304 

REF 

6 

LAST 

1126 

5263 

1C  332 

1 

TASKOVER 

CCS 

RUPTAGN 

0305 

REF 

2 

LAST 

1117 

5 264 

3 5222 

0 

CAF 

WAITBB 

0306 

REF 

33 

LAST 

1117 

5265 

54  C06 

0 

TS 

8 BANK 

0307 

REF 

1 

5266 

1 3417 

1 

TCF 

T3RUPT2 

0308 

REF 

7 

LAST 

1126 

5267 

3 0C16 

0 

CA 

BANKRUPT 

0309 

5270 

0 0006 

L 

EXTEND 

0310 

REF 

23 

LAST 

1126 

5271 

01  007 

1 

WRITE 

SUPERBNK 

031  1 

5272 

0 CC06 

1 

RESUME 

EXTEND 

0312 

REF 

7 

LAST 

1126 

5273 

22  012 

1 

QXCH 

QRUPT 

031  3 

REF 

8 

LAST 

1127 

5274 

3 0016 

0 

N COR  S M 

CA 

BANKRUPT 

0314 

REF 

39 

LAST 

1127 

5275 

56  C06 

1 

XCH 

BBANK 

031  5 

REF 

11 

LAST 

164 

5276 

52  Oil 

0 

NOQBRSM 

DXCH 

ARUPT 

03155 

5277 

0 0003 

l 

REL  INT 

0316 

5300 

5 OC  1 7 

1 

RESUME 
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IF  +1  RETURN  TO  T3RUPT,  IF  -0  RESUME. 
DISPATCH  NEXT  TASK  IF  IT  WAS  DUE. 


RESTORF  SUPFR  BANK  BEFORE  RESUME  IS  DON  F 


GAP: 

► I 

P03L  7 

R0318 

R0319 

R0320 

R0321 

R0322 

R0324 

R0326 

R0328 

R0329 
A0330 
A0331 
A0332 
A 033  3 

R0334 

R0335 

R0336 

R0337 

R0338 

R0339 

R0340 
R0341 
R 034  2 
R0343 
R0344 

R0345 
R0346 
R034  7 
R0348 

R0349 

R0350 

R0351 

R0352 

R0353 

R0354 

0355 

0356 
035  7 


ASSEMBLE  REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161  17:11  MAR.  19,1971  SKIPPER  .131  PAGE  1128 

WAITLIST  USER'S  PAGE  NO.  14  E3  S3 

LONGCALL 

PROGRAM  DESCRIPTION  DATE-  17  MARCH  1967 

PROGRAM  WRITTEN  BY  W.H.  VANDEVER  LOG  SECTION  WAITLIST 

MOD  BY-  R.  MELANSCN  TO  ADD  DOCUMENTATION  ASSEMBLY  SUNDISK  REV.  100 

FUNCTIONAL  DESCRIPTION- 

LONGCALL  IS  CALLED  WITH  THE  DELTA  TIME  ARRIVING  IN  A , L SCALED  AS  TIME2.TIME1  WITH  THE  2CADR  OF  THE  TASK 
IMMEDIATELY  FOLLOWING  THE  TC  LONGCALL.  FOR  EXAMPLE,  IT  MIGHT  BE  DONE  AS  FOLLOWS  WHERE  TIMELOC  IS  THE  NAMF  OF 
A DP  REGISTER  CONTAINING  A DELTA  TIME  AND  WHERE  TASKTODO  IS  THE  NAME  OF  THE  LOCATION  AT  WHICH  LONGCALL  IS  TO 
START 


CALLING  SEQUENCE- 


EXTEND 

DC  A TIMELOC 

TC  LONGCALL 

2C ADR  TASKTODO 


NORMAL 
1 ) . 
2)  . 
3 ) . 


EXIT  MODE- 
TC  WAITLIST 

DTCB  (TO  L+3  OF  CALLING  ROUTINE  1ST  PASS  THRU  LONGCYCLI 
DTCB  (TO  TASKfJVER  ON  SUBSEQUENT  PASSES  THRU  LONGCYCL) 


ALARM  OR  ABORT  EXIT  MODE- 
NO  NE 

OUTPUT- 

LONGTIME  AND  LONGTIME+1  = DELTA  TIME 
LCNGEXIT  AND  LONGEXIT+1  = RETURN  2CA0R 
LONGCADR  AND  LONGCADR+1  = TASK  2CADR 
A = SINGLE  PRECISION  TIME  FOR  WAITLIST 


ERASABLE  INITIALIZATION- 

A = MOST  SIGNIFICANT  PART  CF  DELTA  TIME 
L = LEAST  SIGNIFICANT  PART  OF  DELTA  TIME 
Q = ADDRESS  OF  2C ADR  TASK  VALUE 


DEBRIS- 
A , Q , L 

LCNGC ADR  AND  LONGCADR+1 
LONGEXIT  AND  LONGEXIT+1 
LONGTIME  AND  LONGTIME+1 

***  TEE  FOLLOWING  IS  TO  BE  IN  FIXED-FIXED  AND  UNSWITCHED  ERRASIBLE  *** 


REF  42  LAST  1126 
REF  1 


5301  BLOCK  02 

E3 , 1400  EBANK=  LST1 

5301  53' 153  0 LONGCALL  DXCH  LONGTIME 


OBTAIN  THE  DELTA  TIME 


0358 


5302 


0 0006  1 


EXTEND 


OBTAIN  THE  2C  ADR 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L WAITLIST 


0359 

REF 

3 19 

LAST 

1125 

5303 

5 0002 

0 

NDX 

Q 

0360 

5304 

3 0001 

0 

DCA 

0 

036  1 

REF 

1 

5305 

53 • 147 

0 

DXCH 

LONGCADR 

0362 

5306 

0 0006 

1 

EXTEND 

0363 

REF 

l 

5307 

3 5312 

l 

OCA 

LGC.L2CDR 

0364 

5310 

52  006 

0 

DTCB 

0365 

REF 

43 

LAST 

1128 

E 3 , 1400 

EBANK= 

IST1 

0366 

REF 

1 

5311 

03455 

0 

LGCL2CDR 

2CADR 

LNGCALL2 

0366 

REF 

l 

5312 

02063 

0 

R0367 

**  * 

THE 

FOLLOWING  MAY  BE  IN  A 

SWITCHED 

BANK,  INCLUDING 

ITS  ERASABLE 

0368 

01,3455 

BANK 

01 

0369 

REF 

2 

LAST 

1120  TO 

1127: 

145  145* 

COUNT  * 

$ S/WA I T 

0370 

REE 

1 

01 , 3455 

23*435 

1 

LNGCALL2 

LXCH 

LONGEXI T 

+ 1 

0371 

REF 

75 

LAST 

1117 

01,3456 

3 4743 

0 

CA 

TWO 

0372 

REF 

320 

LAST 

1129 

01 , 3457 

26  002 

1 

ADS 

Q 

0373 

RFF 

2 

LAST 

1 129 

01,3460 

55 ' 434 

1 

TS 

LONGEXI T 

0373  1 

REF 

2 

LAST 

1128 

01,3461 

3 1152 

0 

CA 

LONGTIME 

03732 

REF 

364 

LAST 

1123 

01 , 3462 

10  COO 

0 

CCS 

A 

03733 

REF 

1 

01 , 3463 

l 3471 

1 

TCF 

LONGCYCL 

03734 

01,3464 

1 3466 

1 

TCF 

+ 2 

03735 

REF 

1 

01 , 3465 

1 3523 

1 

TCF 

LONGPOOH 

03736 

REF 

3 

LAST 

1129 

01,3466 

3 1153 

1 

+ 2 

CA 

LONGTIME 

+ 1 

0373  7 

01,3467 

0 C006 

l 

EXTEND 

03738 

REF 

2 

LAST 

1129 

01 , 3470 

6 3523 

0 

BZMF 

LONGPOOH 

R0374 

***  WAITLIST 

TASK  LONGCYCL  * 

: * * 

0375 

01,3471 

0 0006 

l 

LONGCYCL 

EXTEND 

0376 

REF 

1 

01,3472 

4 3503 

0 

DCS 

DPBI T14 

0377 

REF 

4 

LAST 

1129 

01,3473 

21  ' 153 

0 

DAS 

LONGT IME 

037  8 

REF 

5 

LAST 

1129 

01,3474 

11 ' 153 

0 

CCS 

LONGTIME 

+ l 

0379 

REF 

1 

01,3475 

1 3513 

1 

TCF 

MUCHTIME 

A0380 

A038  1 

A0382 

A0383 

A0334 

0385 

01,3476 

13  477 

1 

NOOP 

0386 

01,3477 

1 3500 

0 

TCF 

+ 1 

0387 

REF 

6 

LAST 

1129 

01,3500 

11*  152 

1 

CCS 

LONGTIME 

0388 

REF 

2 

LAST 

1 129 

01,3501 

1 3513 

l 

TCF 

MUCHTIME 

0389 

01,3502 

CCCOO 

l 

DPBI T 14 

OCT 

00000 

0390 

01 , 3503 

20000 

0 

OCT 

20000 

A0391 
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NOW  GO  TO  THF  APPROPRIATE  SWITCHED  BANK 
FOR  THE  REST  OF  LONGCALL 


*** 


SAVE  THE  CORRECT  BB  FOR  RFTURN 
OBTAIN  THE  RFTURN  ADDRESS 


CHECK  FOR  LEGITIMATE  DELTA-TIMF 

HI-OROEP  OK  — > ALL  IS  OK. 

HI-ORDER  ZERO  — > CHECK  LO-ORDER. 

H I -ORDER  NEG.  — > NEG.  DT 

CHECK  l.U— ORDER  FOR  ZERO  OR  NEGATIVE  . 

BAD  DELTA-TIME.  ABORT 


CAN  WE  SUCCESFULLY  TAKE  ABOUT  1.25 
MINUTES  OFF  OF  LONGTIME 


THE  REASON  IBG  BEHIND  THIS  PART  IS 
INVOLVED,  TAKING  INTO  ACCOUNT  THAT  THE 
WORDS  MAY  NOT  BE  SIGNED  CORRECTED  (DP 
BASIC  INSTRUCTIONS 

DO  NOT  SIGN  CORRECT)  ANO  THAT  WE  SUBTRAC 
TED  BIT14  (l  OVER  HALF  THE  POS.  VALUE 
REPRESENT! BLF  IN  SINGLE  WORD) 

CAN:T  GET  HERF  ********** 


LONGCALL 


GAP: 


ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L WAITLIST 


0392 

REF 

66 

LAST 

1097 

01 ,3504 

3 4 727 

1 

LASTTIME 

CA 

BIT14 

0393 

REF 

7 

LAST 

1129 

01,3505 

27'  153 

0 

ADS 

LONGT IME 

0395 

REF 

28 

LAST 

964 

01,3506 

0 5175 

L 

TC 

TWIDDLE 

0396 

REF 

44 

LAST 

1129 

E3 , 1400 

EBANK= 

L ST  1 

039  7 

REF 

1 

01,3507 

03520 

0 

ADRES 

GETCADR 

0399 

REF 

1 

01,3510 

3 3522 

1 

LONGRTRN 

CA 

TSKOVCDR 

0400 

REF 

3 

LAST 

1129 

01,3511 

53*435 

0 

DXCH 

LONGEXI T 

0401 

01,3512 

52  006 

0 

DTCB 

040  2 

REF 

67 

LAST 

1130 

01,3513 

3 4727 

1 

MUCHTIME 

CA 

8 IT  14 

0404 

REF 

32 

LAST 

862 

01,3514 

0 5205 

0 

TC 

WAITLIST 

040  5 

REF 

45 

LAST 

1130 

E3 , 1400 

EBANK= 

L ST  1 

0406 

REF 

2 

LAST 

1129 

01,3515 

03471 

0 

2C  ADR 

LONGCYCL 

0406 

01,3516 

02063 

0 

040  8 

REF 

1 

01,3517 

1 3510 

l 

TC  F 

LONGRTRN 

R0409 

| 

WAITLIST 

' TASK  GETCADR  • 

0410 

REF 

2 

LAST 

1 129 

01,3520 

53' 147 

0 

G FTC  A DR 

DXCH 

LONGCADR 

0411 

REF 

7 

LAST 

1114 

01,3521 

1 5167 

0 

TCF 

SUPDXCHZ 

0412 

REF 

66 

LAST 

1119 

01,3522 

05  263 

0 

TSKOVCDR 

GENADR 

TASKOVER 

0413 

REF 

4 

LAST 

1130 

01,3523 

53 '435 

0 

LDNGPOOH 

DXCH 

LONGEX IT 

0414 

01,3524 

1 3526 

1 

TCF 

+ 2 

0415 

REE 

6 

LAST 

1124 

01,3525 

52  062 

1 

WAI TPOOH 

DXCH 

WAITFXI T 

041  6 

REF 

2 

LAST 

1077 

01, 3526 

0 5722 

0 

+ 2 

TC 

POODOOl 

041  7 

01,3527 

21204 

1 

OCT 

21204 
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USER'S  PAGE  NO.  16 


E3  S3 


GET  BACK  THE  CORRECT  DELTA  TFOR  WAITLIST 


SET  IT  UP  SO  THAT  ONLY  THE  FIRST  EXIT  IS 
TO  THE  CALLER  OF  LONGCALL 
THE  REST  ARE  TO  TASKOVER 

WE  HAVE  OVER  OUR  ABOUT  1.25  MINUTES 
SO  SET  UP  FOR  ANOTHER  CYCLE  THROUGH  HERE 


MOW  EXIT  PROPERLY 

GET  THE  LONGCALL  THAT  WE  WISHFO  TO  START 
AND  TRANSFER  CONTROL 


GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 


* L LATITUDE  LONGITUDE  SUBROUTINES 


^ R0001  SUBROUTINE  TO  CONVERT  RAO  VECTOR  AT  GIVEN  TIME  TO  LA  T , LONG  AND  ALT 

R0002  CALLING  SEQUENCE 

* R0003  L-l  CALL 

R0004  L LAT-LONG 

R0005  SUBROUTINES  USED 


R0006  R-TO-RP, ARCT AN, SETGAMM A, SETRE 

R0007  ERASABLE  INIT.  REQ. 

R0008  AXO.-AYO  ,AZO,TEPHEM  (SET  AT  LAUNCH  TIMF) 

R0009  ALPHAV  = POSITION  VECTOR  METERS  B-29 
R0010  MPAC — TIME  (CSECS  8-28) 

R0011  ERADFLAG  =1,  TO  COMPUTE  EARTH  RADIUS,  =0  FOR  FIXED  EARTH  RADIUS 
R 0 0 1 2 LUNAFLAG=0  FOP  EARTH,  l FOR  MCON 

R0013  OUTPUT 

R0014  LATITUDE  IN  LAT  (REVS.  B-C) 

R0015  LONGITUDE  IN  LONG  (REVS.  B-0) 


R0016 

ALTITUDE 

IN  ALT  METERS  8-29 

001  7 

30,3761 

BANK 

30 

001  8 

REF 

1 

13,2000 

SETLOC 

L ATLONG 

0019 

13,2406 

BANK 

0020 

REF 

1 

COUNT* 

U/LT-LG 

0021 

REF 

7 

LAST 

970 

E4, 1431 

EB AN  K= 

ALPHAV 

0022 

13,2406 

40220 

0 

LAT-LONG 

STQ 

SETPD 

0023 

REF 

2 

LAST 

150 

13,2407 

C3674 

1 . 

I NCORPEX 

0024 

13,2410 

0C001 

0 

OD 

002  5 

13 , 241  1 

24007 

0 

STOVL 

6D 

0026 

REF 

8 

LAST 

113  1 

13,2412 

02032 

1 

ALPHAV 

002  7 

13,2413 

51406 

1 

PUSH 

ABVAL 

0028 

REF 

2 

LAST 

118 

13,2414 

16070 

1 

STOOL 

ALPHAM 

0029 

REF 

6 

LAST 

1099 

13,2415 

24007 

0 

ZEROVEC 

0030 

13,2416 

71414 

0 

BOFF 

COS 

003  1 

REF 

6 

LAST 

970 

13,2417 

01743 

0 

LUNAFLAG 

0032 

REF 

1 

13,2420 

26421 

l 

C ALLRTRP 

0033 

13,2421 

77624 

1 

C ALLRTRP 

CALL 

0034 

REF 

5 

LAST 

977 

13,2422 

51644 

0 

R-TO-RP 

0035 

13,2423 

77656 

l 

UNIT 

0036 

REF 

9 

LAST 

1131 

13,2424 

36032 

0 

STC ALL 

ALPHAV 

003  7 

REF 

1 

13,2425 

26605 

0 

SETGAMMA 

0038 

13,2426 

77624 

1 

CALL 

0039 

REF 

1 

13,2427 

26615 

1 

SETRE 

0040 

13,2430 

63545 

0 

ULOAD 

DSQ 

004  1 

REF 

10 

LAST 

113  1 

13,2431 

02032 

1 

ALPHAV 

0042 

13,2432 

63525 

0 

PDDL 

DSQ 

004  3 

REF 

1 1 

LAST 

113  1 

13,2433 

02034 

1 

ALPHAV  +2 

0044 

13, 2434 

7 5415 

0 

DAD 

SQRT 

17 : 1 1 MAR.  19,1971  SKIPPER 
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SAVE  TIME  IN  6-7D  FOR  R-TO-RP 
0-50=  R FOR  R-TO-RP 

ABS.  VALUE  OF  R FOR  ALT  FORMULA  BELOW 
SET  MP AC=0  FOR  EARTH, NON-ZFRO  FOR  MOON 
USE  COS(O)  TO  GET  NON-ZERO  IN  MPAC 
0 = EAR  TH, 1 = M00N 


RP  VECTOR  CONVERTED  FROM  R B-29 
UNIT  RP  8-1 

U2  = 1/2  SINL  FOR  SETRF  SUBR  B FLOW 
SET  GAMMA=R2/A2  FOR  EARTH, =1  FOR  MOON 
SCALED  8-1 
CALC  RE  MFTFRS  B-29 


GAP: 


ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  8Y  NASA  20211  12-16L 


L LATITUOE  LONGITUDE  SUBROUTINES 


0045 

13,2435 

76405 

1 

DMP 

SL1R 

0046 

REF 

1 

13,2436 

00011 

1 

GAMRP 

004  7 

REF 

7 

LAST 

600  . 

13,2437 

14021 

1 

STOOL 

COSTH 

0048 

REF 

12 

LAST 

1131 

13,2440 

02  036 

0 

ALPHAV 

+4 

004  9 

REF 

7 

LAST 

600 

13,2441 

34023 

1 

STCALL 

S INTH 

0050 

REF 

4 

LAST 

600 

13,2442 

26545 

1 

ARCTAN 

005  1 

REF 

5 

LAST 

930 

13,2443 

15120 

0 

STOOL 

LAT 

0052 

REF 

13 

LAST 

1 132 

13,2444 

02032 

1 

ALPHAV 

0053 

REF 

8 

LAST 

1132 

13,2445 

14021 

1 

STOOL 

COSTH 

0054 

REF 

14 

LAST 

1 132 

13,2446 

02034 

1 

ALPHAV 

+ 2 

0055 

REF 

8 

LAST 

1 132 

13,2447 

34023 

1 

STCALL 

S INTH 

0056 

REF 

5 

LAST 

1132 

13,2450 

26545 

1 

ARCTAN 

0057 

REF 

5 

LAST 

930 

13,2451 

15  122 

1 

STOOL 

LONG 

0058 

REF 

3 

LAST 

1131 

13,2452 

02070 

1 

ALPHAM 

0059 

13,2453 

77625 

0 

DSU 

0060 

REF 

2 

LAST 

150 

13,2454 

03673 

0 

ERADM 

006  1 

REF 

5 

LAST 

930 

13 , 2455 

35124 

0 

STCALL 

ALT 

0062 

REF 

3 

LAST 

1131 

13,2456 

03674 

1 

I NCORPEX 

17:11  MAR.  19,1971  SKIPPER  .131  PAGE  1132 
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COS(LAT)  B-l 
SIN(LAT)  B-l 
LAT  BO 

COS ( LONG ) B-l 
SIN(LONG)  B-l 

LONG.  REVS  B-0  IN  RANGE  -1/2  TO  1/2 
ALT=  R-PE  METERS  FS-29 
EXIT  WITH  ALT  METERS  B-29 


GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L - LATITUDE  LONGITUDE  SUBROUTINES 

P0063  SUBROUTINE  TO  CONVERT  LAT, LONG, ALT  AT  GIVEN  TIME  TO  RADIUS  VECTOR 
R0064  CALLING  SEQUENCE 

R0065  L-l  CALL 

R0066  L L ALUTORV 

R0067  SUBROUTINES  USED 

R0068  SETGAMMA, SETRE .RP-TO-R 

R0069  ERASABLE  INIT.  REQ. 

R0070  AXU,AYO,AZO,TEPHEM  SET  AT  LAUNCH  TIME 

R0071  LAT — LATITUDE  (REVS  BO) 

R0072  LONG — LONGITUDE  (REVS  BO) 

R0073  ALT — ALTITUDE  (METERS)  B-29 
R0074  MPAC — TIME  (CSECS  B-28) 

R0075  ERADFLAG  =1  TO  COMPUTE  EARTH  RADIUS,  =0  FOR  FIXED  EARTH  RADIUS 

R0076  LUNA  FLAG=0  FOR  EARTH,  1 FOR  MOON 

R0077  OUTPUT 

R0078  R-VECTOR  IN  ALPHAV  (METERS  B-29) 


0079 

13,2457 

40220 

0 

L ALOTORV 

STQ 

SETPD 

0080 

REF 

4 

LAST 

1132 

13,2460 

03674 

1 

INCORPEX 

008  1 

13,2461 

00001 

0 

OD 

0082 

13,2462 

34007 

1 

STCALL 

6 D 

0083 

REF 

2 

LAST 

113  1 

13,2463 

26605 

0 

SETGAMMA 

0084 

13,2464 

73545 

l 

DLOAD 

S IN 

0085 

KEF 

6 

LAST 

1132 

13 , 2465 

01120 

0 

LAT 

0086 

13, 2466 

65275 

1 

DM  PR 

PDDL 

0087 

REF 

2 

LAST 

1132 

13,2467 

CC01 1 

1 

GAMRP 

0088 

REF 

7 

LAST 

1133 

13,2470 

01120 

0 

LAT 

0089 

13, 2471 

65346 

0 

COS 

PDDL 

0090 

REF 

6 

LAST 

1132 

13,2472 

01122 

1 

LONG 

0091 

13,2473 

57356 

0 

SIN 

DMPR 

0092 

13, 2474 

71525 

0 

PDDL 

COS 

009  3 

REF 

8 

LAST 

1 133 

13,2475 

01120 

0 

LAT 

0094 

13,2476 

71525 

0 

PDDL 

COS 

0095 

REF 

7 

LAST 

1133 

13,2477 

01  122 

1 

LONG 

0096 

13,2500 

55475 

1 

DMPR 

V DEF 

0097 

13,2501 

41456 

0 

UNI  T 

PUSH 

009  8 

REF 

15 

LAST 

1132 

13,2502 

36032 

0 

STCALL 

ALPHAV 

0099 

REF 

2 

LAST 

1131 

13,2503 

26615 

1 

SETRE 

0100 

13,2504 

43145 

0 

DLOAD 

BOFF 

0101 

REF 

7 

LAST 

1131 

13 , 2505 

24007 

0 

ZEROVEC 

0102 

REF 

7 

LAST 

113  1 

13,2506 

01743 

0 

LUNAFLAG 

010  3 

REF 

1 

13,2507 

2651  1 

0 

C ALLRPRT 

0104 

13,2510 

77746 

1 

COS 

010  5 

13,2511 

77624 

1 

C ALLRPRT 

CALL 

0106 

REF 

6 

LAST 

976 

13,2512 

55716 

1 

RP-TO-R 

0107 

REF 

16 

LAST 

1133 

13,2513 

1 6032 

1 

STOOL 

ALPHAV 

0108 

REF 

3 

LAST 

1132 

13, 2514 

03673 

0 

ERAOM 
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LAT, LONG, ALT  TO  R VECTOR 


6-7D=  TIME  FOR  RP-TO-R 

GAMMA  = B2/A2  FOR  EARTH,  1 FOR  MOON  B- 1 

COS ( LONG )COS( LAT ) IN  MPAC 
UNIT  RP=  SINlLONG)CnS(LAT)  2-3D 

PD  2 GAMMA*S I N (L  AT ) 0-1D 

0-1  D=  GAMMA*SIN(L AT)  B-2 

PD  A 2— 3D=C0S { L AT  ) B- l TEMPORARILY 

PD  2 

PD  4 2-3D=SIN(L0NG )COS (LAT)  B-2 

PD  6 4-5D=C0S ( L AT ) B- 1 TEMPORARILY 

PD  4 MPAC=  COS(LONG)COSILAT)  B-2 

0-5D=  UNIT  RP  FOR  RP-TO-R  SUBR. 

ALPHAV  +4=  SINL  FOR  SETRF  SURR. 

RE  METERS  B-29 

SET  MPAC=0  FOR  EARTH, NON-ZERO  FOR  MOON 


USE  COS(O)  TO  GET  NON-ZERO  IN  MPAC 


EXIT  WITH  UNIT  R VECTOR  IN  MPAC 


GAP: 


ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  L2-161 
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t 

LATITUDE 

LONGITUDE 

SUBROUTINES 

U SF  R 1 S PAGE  NO.  4 

0109 

13,2515 

74215 

1 

DAD 

VXSC 

(RE  + ALT) (UNIT  R)  METERS 

0110 

REF  6 

LAST  1132 

13,2516 

01124 

1 

ALT 

Oil  1 

REF  17 

LAST  1133 

13,2517 

02032 

1 

ALPHAV 

0112 

13,2520 

77772 

0 

VSL  1 

R METERS  B-29 

0113 

REF  18 

LAST  1134 

13,2521 

36032 

0 

STC ALL 

ALPHAV 

EXIT  WITH  R IN  METFRS  B-29 

0114 

REF  5 

LAST  1133 

13,2522 

03674 

1 

INCORPEX 

R0115 

SUBROUTINE  TO  COMPUTE  EARTH  l 

RADIUS 

ROll  6 

INPUT 

R0117 

1/2  SIN  LAT  IN  ALPHAV  +4 

ROll  8 

OUTPUT 

R0119 

EARTH 

RADIUS  IN  ER ADM  AND  i 

MPAC  (METERS  B-29) 

0120 

13,2523 

63545 

0 

GETERAD 

DLOAD 

DSQ 

012  1 

REF  19 

LAST  1134 

13,2524 

02036 

0 

ALPHAV  +4 

SIN**2(L) 

0122 

13,2525 

44352 

0 

SL1 

RDSU 

0123 

REF  1 

13,2526 

24005 

1 

DPI/2 

COS** 2 ( L ) 

0124 

13,2527 

44275 

1 

DMPR 

BDSU 

0125 

REF  1 

13,2530 

26544 

0 

EE 

0126 

REF  2 

LAST  1134 

13,2531 

24005 

1 

DPI/2 

0127 

13,2532 

75465 

1 

BDDV 

SORT 

0128 

REF  1 

13,2533 

26540 

1 

B2XSC 

0129 

13,2534 

77622 

1 

SR4R 

0130 

REF  4 

LAST  1133 

13,2535 

03673 

0 

STORE 

ER  ADM 

0131 

13,2536 

77616 

0 

RVO 

P0131 1 

THE  F CL  LOW I NG  CONSTANTS  WERE 

COMPUTED  1 

WITH  A=6 378166,8= 

6356784  METERS 

R0131 2 

R2XSC=  B**2  SCALED 

B-51 

R01313 

B2 / A2=  E**2/A#*2  SCALED  B-l 

R01314 

EE=(  1-B**2/A**2 ) SCALED  B-0 

0132 

13,2537 

0C446 

1 

B2XSC 

2DEC 

.0179450689 

B**2  SCALED  B-51 

0132 

13,2540 

00305 

1 

013  3 

REF  8 

LAST  1099 

12,2004 

DPI/2 

= 

XUNIT 

0134 

13,2541 

17711 

0 

B2/A2 

2DEC 

.9933064884  B-l 

GAMM A=  B**2/A**2  B-l 

0134 

13 , 2542 

05254 

1 

0135 

13,2543 

OC  155 

0 

EE 

2DEC 

6.6935116  E— 3 

( 1-B**2/A**2 ) B-0 

0135 

13,2544 

25250 

1 

30 


E4  S3 


GAP: 


ASSEMBLE  REVISION  210  GF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L LATITUDE  LONGITUDE  SUBROUTINES 

P0137  ARCTAN  SUBROUTINE 


R0138  CALLING  SEQUENCE 

RO 139  SIN  THETA  IN  SINTH  B-l 

R0140  COS  THETA  IN  COSTH  B-l 

R0141  CALL  ARCTAN 

RO 14  2 OUTPUT 


RO  143 

ARCTAN 

THETA 

IN  i 

MP AC  AND  THETA  3-0 

IN 

RANGE  -1/2  TO 

+ 1/2 

0144 

13,2545 

77600 

1 

ARCTAN 

BOV 

014  5 

REF 

1 

13,2546 

26547 

0 

CLROVFLW 

0146 

13,2547 

6 3 545 

0 

CLROVFLW 

DLO  AD 

DSQ 

0147 

REF 

9 

LAST 

1132 

13,2550 

00023 

0 

S INTH 

0148 

13,2551 

63525 

0 

PDDL 

DSQ 

0149 

REF 

9 

LAST 

1132 

13,2552 

00021 

1 

COSTH 

0150 

13,2553 

77615 

0 

DAD 

0151 

13,2554 

75454 

0 

BZE 

SORT 

0152 

REF 

1 

13,2555 

26573 

1 

ARCT  ANX  X 

0153 

13,2556 

40065 

0 

BDD  V 

BOV 

0154 

REF 

10 

LAST 

1135 

13,2557 

00023 

0 

SINTH 

0155 

REF 

1 

13,2560 

26600 

0 

AT  AN  = 90 

0156 

13,2561 

67542 

0 

SP1 

ASIN 

0157 

REF 

3 

LAST 

943 

13,2562 

00025 

0 

STORE 

THETA 

0158 

13,2563 

50125 

1 

PDDL 

BMN 

0159 

REF 

10 

LAST 

1135 

13,2564 

00021 

1 

COSTH 

0160 

REF 

l 

13,2565 

26567 

1 

NEGCOS 

0161 

13,2566 

43545 

1 

DLOAD 

RVQ 

016  2 

13,2567 

57545 

1 

NEGCOS 

DLO  AD 

DCOMP 

0163 

13,2570 

43244 

1 

BPL 

DAD 

0164 

REF 

1 

13,2571 

26575 

1 

NEGOUT 

0165 

REF 

3 

LAST 

1134 

13,2572 

24005 

1 

DP  1/  2 

0166 

REF 

4 

LAST 

1 135 

13,2573 

00025 

0 

ARCT ANXX 

STORE 

THETA 

0167 

13,2574 

77616 

0 

RVQ 

0168 

13,2575 

52025 

1 

NEGOUT 

DSU 

GOTO 

0169 

REF 

4 

LAST 

1 135 

13,2576 

24005 

1 

DP  1/2 

0170 

REF 

2 

LAST 

1135 

13,2577 

26573 

1 

ARCT  ANXX 

0171 

13,2600 

75345 

1 

AT  AN  = 90 

DLOAD 

S IGN 

0172 

REF 

1 

13,2601 

1 1040 

0 

L0DP1/4 

0173 

REF 

11 

LAST 

1 135 

13,2602 

00023 

0 

S INTH 

0174 

REF 

5 

LAST 

1135 

13,2603 

00025 

0 

STORE 

THETA 

0175 

13,2604 

77616 

0 

RVQ 

0176 

REF 

2 

LAST 

934 

12,2006 

2DZER0 

= 

DPZERO 
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0/0  SET  THE  TA  = 0 


GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 


L LATITUDE  LONGITUDE  SUBROUTINES 

P 0 1 7 7 SETGAMMA  SUBROUTINE  .... 


R0178 

SUBROUTINE  TO  SET  GAMMA  FOR 

THE  LAT- 

LUNG 

- AND  LALOTOR V 

SUBROUTINES 

R0179 

GAMMA 

= B**2/A**2  FOR  EARTH 

( B—  1 ) 

R0180 

gamma 

= 1 FOR  MOON  ( B— 1 ) 

R0181 

CALLING 

SEQUENCE 

R0182 

L 

CALL 

RO  18  3 

L + l 

SETGAMMA  . 

R0184 

INPUT 

RO  18  5 

LUNA FL AG  = 0 FOR  EARTH,  = 1 FOR 

MCON 

R0186 

OUTPUT 

RO  18  7 

GAMMA 

IN  GAMRP  (8-1) 

0188 

13,2605 

43145 

0 

SETGAMMA 

ULOAD 

BOFF 

0 1 8 5 

REF  1 

13,2606 

26542 

0 

B2/A2 

0190 

REF  8 

LAST  1133  13,2607 

01743 

0 

LUNAFLAG 

0191 

REF  1 

13,2610 

26613 

1 

SETGMEX 

019  2 

13,2611 

77  735 

0 

SLUAD 

0193 

REF  1 

13,2612 

24005 

1 

1 B1 

0194 

REF  3 

LAST  1133  13,2613 

00011 

1 

SETGMEX 

STORE 

GAMRP 

0195 

13,2614 

77616 

0 

RVQ 

0196 

0010 

GAMRP 

= 

8 D 
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USER'S  PAGE  NO.  6 


E4  S3 


BRANCH  FOR  EARTH 
EARTH  GAMMA 


MOON  GAMMA 


GAP: 


ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 


17:11  MAR.  19,1971  SKIPPER  .131 


PAGE  1137 


L LATITUDE  LONGITUDE  SUBROUTINES  USER'S  PAGE  NO. 

P0197  .....SETRE  SUBROUTINE  

R 0 19 8 SUBROUTINE  TO  SET  RE  (EARTH  OR  MOON  RADIUS) 

R0199  RE=  RM  FOR  MOON 

R0200  RE=  RREF  FOR  FIXED  EARTH  RADIUS  CR  COMPUTED  RF  FOR  FISCHER  ELLIPSOID 

R0201  CALLING  SEQUENCE 

R 020  2 L CALL 

R0203  L+l  SETRE 

R0204  SUBROUTINES  USED 
R0205  GETERAD 

R0206  INPUT 

R 020 7 ERADFLAG=0  FOR  FIXED  RE,  1 FCR  COMPUTED  RE 

R0208  ALPHAV  +4=  1/2  S INL  IF  GETERAD  IS  CALLED 

R0209  LUNAFLAG=0  FOR  EARTH, =1  FOR  MOON 


E4  S3 


R0210  OUTPUT 


R021  1 

ERADM= 

504RM 

FOR  i 

MOON  (METERS 

B-29) 

R0212 

ER ADM= 

ERAD 

OR  COMPUTED  RF  FOR  EARTH 

(METERS  B- 

29) 

0213 

13 , 26L  5 

71220 

1 

SETRE 

STQ 

D LOAD 

0214 

REF 

1 

13,2616 

OOC51 

0 

SETREX 

0215 

REF 

1 

13,2617 

10003 

0 

504RM 

0216 

13,2620 

71214 

0 

BON 

D LOAD 

BRANCH  FOR 

MOON 

021  7 

REF 

9 

LAST 

1136 

13,2621 

01703 

1 

LUNAFLAG 

0218 

REF 

1 

13,2622 

26632 

1 

T STRLSRM 

0219 

REF 

1 

13,2623 

10001 

1 

ERAD 

022  0 

13,2624 

45014 

0 

BOFF 

CALL 

ER ADFLAG=0 

FOR  FIXED  RE , 1 FOR  COMPUTED 

022  1 

REF 

4 

LAST 

971 

13,2625 

00  742 

0 

ERADFLAG 

0222 

REF 

1 

13,2626 

26630 

0 

SETRXX 

0223 

REF 

1 

13,2627 

26523 

1 

GETERAD 

0224 

REF 

5 

LAST 

1134 

13,2630 

37673 

1 

SETKXX 

STCALL 

ERADM 

EXIT  WITH 

RE  OR  RM  METERS  B-29 

0225 

REF 

2 

LAST 

1137 

13,2631 

00051 

0 

SETREX 

0226 

13,2632 

77214 

0 

TSTRLSRM 

BON 

VLOAD 

ER  ADFLAG=0 

, SE T RO=RLS 

0227 

REF 

5 

LAST 

1137 

13,2633 

00702 

l 

ERADFLAG 

= 1 

RO  = RM 

0228 

REF 

2 

LAST 

1137 

13,2634 

26630 

0 

SETRXX 

0229 

REF 

15 

LAST 

980 

13,2635 

02021 

0 

RLS 

0230 

13,2636 

64446 

0 

ABV4L 

SR2R 

SCALE  FROM 

8-27  TO  B-29 

0231 

13,2637 

77650 

1 

GOTO 

0232 

REF 

3 

LAST 

1137 

13,2640 

26630 

0 

SETRXX 

0233 

REF 

13 

LAST 

969 

0051 

SETREX 

= 

S2 
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P0001  RP-TO-R  SUBROUTINE  

R0002  SUBROUTINE  TO  CONVERT  RP  (VECTOR  IN  PLANETARY  COORDINATE  S YSTEM , E I THER 
R0003  EARTH-FIXED  OR  MOON-FIXED)  TO  R (SAME  VECTOR  IN  THE  BASIC  REF.  SYSTEM) 

R0004  R = MT (T )*(RP+LPXRP)  MT  = M MATRIX  TRANSPOSE 

R0005  CALLING  SEQUENCE 

R0006  L CALL 

R0007  L+l  RP-TO-R 

R0008  SUBROUTINES  USED 
R0009  EARTFMX,MOONMX,EAKTHL 

R0010  ITEMS  AVAILABLE  FROM  LAUNCH  DATA 

ROOU  5 04  LM=  THE  L I BRAT  I ON  VECTOR  L OF  THE  MOON  AT  TIME  T I M SUBL , EXP RESS ED 

R0012  IN  THE  MOON-FIXED  COORD.  SYSTEM  RADIANS  BO 

R0013  ITEMS  NECESSARY  FOR  SUBR.  USED  (SEE  DESCRIPTION  OF  SUBR  . ) 

R 0 0 1 4 INPUT 

R0015  M P A. C = 0 FOR  EARTH, NON-ZERO  FOR  NOON 

R0016  0-5D=  RP  VECTOR 

R0017  6-70=  TIME 


R0018  OUTPUT 

R0019  MPAC=  R VECTOR  METERS  B-29  FOR  EARTH,  S-27  FOR  MOON 


0020 

REF 

1 

26,2000 

SETLOC 

P L ANT  IN  L 

002  1 

26,3716 

BANK 

0022 

REF 

2 

LAST 

54  TO 

163: 

20 

20* 

COUNT* 

* S/LUROT 

0023 

26,3716 

46020 

1 

RP-TD-R 

STQ 

BHIZ 

0024 

REF 

1 

26,3717 

00050 

l 

RPREX  IT 

0025 

REF 

1 

26,3720 

55733 

0 

RPTORA 

0026 

26,3721 

77624 

1 

CALL 

COMPUTE  M MATRIX  FOR  MOON 

0027 

REF 

1 

26,3722 

51674 

0 

MOONMX 

L P = LM  FOR  MOON  RADIANS  BO 

002  8 

26,3723 

77775 

1 

VLOAD 

0029 

REF 

1 

26,3724 

02013 

1 

504LM 

0030 

26,3725 

53235 

0 

RPTORB 

VXV 

V AD 

0031 

REF 

1 

26,3726 

00001 

0 

504RPR 

0032 

REF 

2 

LAST 

1138 

26,3727 

00001 

0 

504RPR 

0033 

26,3730 

52  105 

1 

VXM 

GOTO 

0034 

REF 

1 

26,3731 

00025 

0 

MMATRIX 

M P AC= R = MT ( T )* (RP  + LPXRP ) 

0035 

REF 

l 

26,3732 

51662 

1 

RPRPXXXX 

RESFT  PUSHLOC  TO  0 BEFORE  EXITING 

0036 

26,3733 

77624 

1 

RPTORA 

CALL 

EARTH  COMPUTATIONS 

003  7 

REF 

1 

26,3734 

55743 

1 

E ARTHMX 

M MATRIX  B-l 

003  8 

26,3735 

77624 

1 

CALL 

0039 

REF 

1 

26,3736 

15765 

1 

EARTH! 

L VECTOR  RADIANS  BO 

0040 

26,3737 

76521 

0 

MXV 

VSL1 

|_P=M(T)*L  RAD  B — 0 

004  1 

REF 

2 

LAST 

1138 

26,3740 

0CC25 

0 

MMATRIX 
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0042 

0043 

REF 

1 

26.3741 

26. 3742 

77650  1 
55725  1 

GOTO 

RPTORB 

00432 

REF 

1 

24,2000 

SETLOC 

PLANT  IN 

00434 

00436 

REF 

1 

24,3644 

BANK 
COUNT  * 

$ $ /L  UROT 
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P0044  R-TO-RP  SUBROUTINE  

R0045  SUBROUTINE  TO' CONVERT  R (VECTOR  IN  REFERENCE  COORD.  SYSTEM)  TO  RP 
R0046  (VECTOR  IN  PLANETARY  COORD  SYSTEM)  EITHER  EARTH-FIXED  OR  MOON-FIXED 

R0047  RP=M (T ) * ( R-LXR ) 

R0048  CALLING  SEQUENCE 

R0049  L CALL 

R0050  L+l  R-TO-RP 

R0051  SUBROUTINES  USED 
R0052  E ARTFM  X , MOON MX , EARTH L 

K0053  INPUT 

R0054  M P AC=  0 FOR  EART H, NON-ZERO  FOR  MCON 

R0055  0-50=  R VECTOR 

R0056  6-7D=  TIME 

R0057  ITEMS  AVAILABLE  FROM  LAUNCH  DATA 

R0058  5 04  L M=  THE  L I BRAT  I ON  VECTOR  L OF  THE  MOON  AT  TIME  T IMSUBL , E XP R ESS  ED 

R0059  IN  THE  MOON-FIXED  COORD.  SYSTEM  RADIANS  BO 

R0060  ITEMS  NECESSARY  FOR  SUBROUTINES  USED  (SEE  DESCRIPTION  OF  SUBR.) 

R0061  OUTPUT 


R0062 

MPAC 

= RP 

VECTOR  METERS  B-29  1 

FOR  EART! 

H, 

B- 27  FOR 

MOON 

006  3 

24,3644 

46020 

1 

R-TO-RP 

STQ 

BHIZ 

0064 

REF 

2 

LAST 

1138 

24,3645 

OCG50 

1 

RPREXIT 

0065 

REF 

1 

24,3  646 

51666 

0 

RTORP A 

0066 

24,3647 

77624 

1 

CALL 

006  7 

REF 

2 

LAST 

1138 

24,3650 

51674 

0 

MO ON MX 

0068 

24,3651 

61375 

1 

VLOAD 

VXM 

0069 

REF 

2 

LAST 

1138 

24,3652 

02013 

1 

504LM 

L P = LM 

0070 

REF 

3 

LAST 

1138 

24,3653 

00025 

0 

MMATRIX 

0071 

24,3654 

77772 

0 

VSL  1 

L=MT(T)*LP  RADIANS  BO 

0072 

24,3655 

51235 

1 

RTORPB 

VXV 

B VSU 

0073 

REF 

3 

LAST 

1 138 

24,3656 

00001 

0 

504RPR 

0074 

REF 

4 

LAST 

1 140 

24,3657 

00001 

0 

504RPR 

0075 

24,3660 

77721 

0 

MXV 

M ( T ) * ( R— L X R ) B— 2 

0076 

REF 

4 

LAST 

1140 

24,3661 

00025 

0 

MMATR IX 

0077 

24,3662 

40372 

0 

RPRPXXXX 

VSL1 

SETPO 

0078 

24,3663 

00001 

0 

OD 

0079 

24,3664 

77650 

1 

GOTO 

0080 

REF 

3 

LAST 

1140 

24,3665 

0CC50 

1 

RPREXIT 

0081 

24,3666 

77624 

1 

RTORP A 

CALL 

EARTH  COMPUTATIONS 

0082 

REF 

2 

LAST 

1138 

24,3667 

55743 

1 

E ART  HMX 

0083 

24,3670 

77624 

I 

CALL 

0084 

REF 

2 

LAST 

1138 

24,3671 

15765 

1 

EARTHL 

0085 

24,3672 

77650 

1 

GOTO 

MP AC=  L= ( — AX,-AY,0)  RAD  B 

0086 

REF 

1 

24,3673 

51655 

0 

RTORPB 

GAP: 
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POOS 7 MOONMX  SUBROUTINE  

* R0088  SUBROUTINE  TO  COMPUTE  THE  TRANSFORMATION  MATRIX  M FOR  THE  MOON 


R0089  CALLING  SEQUENCE. 

* R0090  L CALL 

R0091  L+l  MOONMX 

* R0092  SUBROUTINES  USED 

R0093  NEWANGLE 


USER' S PAGE  NO.  4 EO  S3 


R0094  INPUT 
R0095  6-7D=  TIME 

R0096  ITEMS  AVAILABLE  FROM  LAUNCH  DATA 

R0097  B SUBO , BOOT 

R0098  TIM SUBO, NO DIO, NO DDOT, FSUBG , FOOT 

R0099  CCS  1=  COS ( I ) B-l 

R0100  S I N 1=  SIN!  I ) B-l 

R0101  I IS  THE  ANGLE  BETWEEN  THE  MEAN  LUNAR  EQUATORIAL  PLANE  AND  THE 


R01G2 

PLANE  OF 

THE 

ECLIPTIC 

11  DEGREE 

32.1 

MINUTES  ) 

R0103 

OUTPUT 

R0104 

MMATR IX= 

3X3 

M MATRIX  B-l 

(STORED 

IN 

VAC 

AREA) 

010  5 

24,3674 

40220 

0 

MOONMX  STQ 

SETPD 

0106 

REF 

1 

24,3675 

00051 

0 

EARTHMXX 

0107 

24,3676 

0CC11 

1 

8D 

0108 

24,3677 

77770 

1 

AXT  , 1 

B REQUIRES  SL  0, 

SL  5 IN  NEWANGLE 

0109 

24,3700 

00005 

1 

5 

0110 

24,3701 

65345 

0 

DLOAD 

PDDL 

PD  10D 

8-9D=8S  UBO 

0111 

REF 

1 

24,3702 

14017 

1 

8 SUBO 

10-11D=  BOOT 

0112 

REF 

1 

24,3  703 

14011 

1 

BOOT 

0113 

24,3704 

45006 

0 

PUSH 

CALL 

PD  12  D 

0114 

REF 

1 

24,3705 

51743 

0 

NEWANGLE 

EXIT  WITH  PD  8D 

AND  M P AC=  B REVS  BO 

0115 

24,3706 

71406 

0 

PUSH 

COS 

PD  10  D 

0116 

REF 

1 

24,3707 

14041 

1 

STOOL 

COB 

PD  8D  COS ( B ) 

B-l 

0117 

24,3710 

77756 

0 

SIN 

S IN  I B ) 

8-1 

0118 

REF 

1 

24,3711 

14043 

0 

STOOL 

SOB 

SETUP 

INPUT  FOR  NEWANGLE 

0119 

REF 

1 

24,3712 

14015 

0 

F SUBO 

8—  9D=  F SUBO 

0120 

24,3  713 

41525 

0 

PDDL 

PUSH 

PD  10  D THEN  1 2D 

10-1 1D=FD0T 

0121 

REF 

1 

24,3714 

14007 

0 

FOOT 

0122 

24,3715 

45  170 

0 

AXT,  1 

CALL 

F REQUIRES  SL  l, 

SL  6 IN  NEWANGLE 

0123 

24,3716 

00004 

0 

4 

0124 

REF 

2 

LAST 

1141 

24,3717 

51743 

0 

NEWANGLE 

EXIT  WITH  PD  8D 

AND  M P AC=  F REVS  BO 

0125 

REF 

1 

24,3720 

14027 

1 

STOOL 

AVECTR  +2 

SAVE  F TEMP 

0126 

REF 

1 

24,3721 

14013 

0 

NODIO 

8- 90= NOD  10 

0127 

24,3722 

41525 

0 

POOL 

PUSH 

PD  10  D THEN  120 

10-11D= NODDOT 

0128 

REF 

1 

24,3723 

14005 

1 

NODDOT 

M P AC=  T 

0129 

24,3724 

45170 

0 

AXT  , 1 

CALL 

NODE  REQUIRES  SL 

0,  SL  5 IN  NEWANGLE 

0130 

24,3725 

00005 

1 

5 

013  1 

REF 

3 

LAST 

1141 

24,3  726 

5 1 743 

0 

NEWANGLE 

EXIT  WITH  PD  8 □ 

AND  M P AC=  NODI  REVS  BO 
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0132 

24,3727 

71406 

0 

0133 

24,3730 

77606 

1 

0134 

REF 

2 

LAST 

114  1 

24,3731 

00025 

0 

0135 

24,3732 

76405 

1 

0136 

REF 

2 

LAST 

1141 

24,3733 

00041 

1 

0137 

REF 

1 

24,3734 

14035 

1 

0138 

24,3735 

76405 

1 

0139 

REF 

2 

LAST 

1141 

24,3736 

00043 

0 

0140 

REF 

2 

LAST 

1142 

24,3737 

14037 

0 

0141 

24,3  740 

41556 

1 

0142 

24,3741 

52076 

1 

0143 

REF 

1 

24,3742 

53712 

0 

01475 

25,3712 

01476 

REF 

1 

25,2000 

014  7 7 

25,3712 

01476 

REF 

1 

0148 

REF 

3 

LAST 

1142 

25,3712 

14033 

1 

0148  1 

REF 

3 

LAST 

1142 

25,3713 

00027 

1 

01482 

REF 

1 

25,3714 

14007 

0 

01483 

25,3715 

76405 

1 

01484 

REF 

3 

LAST 

1142 

25,3716 

00041 

1 

01485 

REF 

4 

LAST 

1 142 

25,3717 

14027 

1 

0149 

REF 

1 

25,3720 

00011 

1 

0150 

25,3721 

76405 

1 

015  I 

REF 

3 

LAST 

1142 

25,3722 

00043 

0 

0152 

REF 

5 

LAST 

1 142 

25,3723 

14031 

0 

0153 

REF 

13 

LAST 

855 

25,3724 

06505 

l 

0154 

25,3725 

57525 

1 

0155 

REF 

4 

LAST 

1 142 

25,3726 

0CC43 

0 

0156 

25, 3727 

63325 

0 

0157 

REF 

4 

LAST 

1142 

25,3730 

00041 

1 

0158 

REF 

4 

LAST 

1142 

25,3731 

00033 

1 

0159 

25,3732 

63361 

0 

0160 

REF 

1 

25,3733 

14003 

1 

0161 

REF 

1 

25,3734 

00011 

1 

0162 

25,3735 

53361 

0 

0163 

REF 

1 

25,3736 

14001 

0 

0164 

25,3737 

77772 

0 

0165 

REF 

5 

LAST 

1140 

25,3740 

24041 

1 

0166 

25,3741 

63361 

0 

0167 

REF 

2 

LAST 

1142 

25,3742 

14003 

1 

0168 

REF 

5 

LAST 

1 142 

25,3743 

00033 

1 

0169 

25,3744 

52361 

1 

0170 

REF 

2 

LAST 

1142 

25,3  745 

14001 

0 

0171 

25,3746 

65372 

1 

0172 

REF 

2 

LAST 

1142 

25,3  74  7 

00007 

0 

0173 

25,3750 

74346 

0 

0174 

REF 

I 

25,3751 

00011 

1 

0175 

25,3  752 

73525 

1 
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PUSH 

COS 

PD 

10  D 

8-90=  NODI  REVS  BO 

PUSH 

STORE 

AVECTR 

PD 

12  D 

1 0-  1 ID  = COS ( NOD  I ) B-l 

OMP 

SL1R 

COB 

COS (NOD  I)  R 

STOOL 

BVECTR  +2 

PD 

10  D 

20-25 D=AVECTR=  COB*SIN (NOD  I ) 

DMP 

SL1R 

SOB 

SOB*S I N (NOD  I ) 

STOOL 

BVECTR  +4 

PD 

8D 

SIN 

PUSH 

PD 

10D 

-SIN (NODI)  B- 

DCOMP 

GOTO 

MOONMXA 

26-3  1D=BVECTR=  COV^COS (NOD  I ) 

BANK 

25 

SETLOC 

PLANT  IN3 

BANK 
COUNT  =5= 

$$/LUROT 

STOOL 

BVECTR 

PD 

80 

SOB*COS(NODI ) 

AVECTR  +2 

MOVE  F 

FROM  TEMP  LOC.  TO  504F 

STOOL 

5 04F 

DMP 

SL1R 

COB 

STOOL 

AVECTR  +2 

SINNOOI 

8- 

90= S I N ( NOD  I ) B-l 

DMP 

SL1R 

SOB 

STOOL 

AVECTR  +4 

0 

H I6ZER0S 

8- 1 3D=  CVECTR=  -SOB  B-l 

PDDL 

DCOMP 

SOB 

PD 

10D 

COB 

PDDL 

PDVL 

COB 

BVECTR 

PD 

12  D 

THEN  PO  14D 

VXSC 

PDVL 
S INI 
CVECTR 

PD 

20  D 

BVECTR *SIN I B— 2 

VXSC 

VAD 

COSI 

PO 

14D 

CVECTR  *COS I B-2 

VSL  1 
STOVL 

MMATRIX  + 1 2D 

PD 

8D 

M2=BVECTR*SINI *CVECTR*COSI  B-l 

VXSC 

PDVL 
S INI 
BVECTR 

PD 

14D 

CVECTR  *S IN  I B-2 

VXSC 

VSU 

COSI 

PD 

8D 

BVECTR  *COS I B-2 

VSL  1 

PDDL 

PD 

14D 

5 04F 

8- 

13D  = 0VECTR=BVECTR*C0S!-CVECTR*S IN  I R- 

COS 

VXSC 

DVECTR 

PDDL 

SIN 

PD 

20  D 

14-190=  DVECTR*COSF  B-2 

gap:  ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  202UL2-L61  17:11  MAR.  19,1971  SKIPPER  .131  PAGE  1143 


I L -PLANETARY  INERTIAL  ORIENTATION 


USER' S PAGE  NO.  6 EO  S3 


0176 

REF 

3 

LAST 

1142 

25,3753 

00007 

0 

504F 

0177 

25,3754 

52361 

1 

VXSC 

VSU 

PD  14  D AVECTR*S INF  R-2 

0178 

REF 

6 

LAST 

1142 

25,3  755 

00025 

0 

A VECTR 

0179 

25,3756 

77772 

0 

VSL  1 

0180 

REF 

6 

LAST 

1142 

25,3757 

14033 

1 

STOOL 

MMATRIX  +6 

M 1 = AVECTR*SINF-DVECTR*COSF  B- 1 

0181 

REF 

4 

LAST 

1143 

25,3  760 

00007 

0 

504F 

0182 

25,3761 

74356 

1 

SIN 

VXSC 

PD  8D 

0183 

25,3762 

71525 

0 

POOL 

COS 

PD  14D  8-13D=0VECTR*SINF  R-2 

0184 

REF 

5 

LAST 

1143 

25,3763 

0 C 0 0 7 

0 

504F 

0185 

25,3764 

53361 

0 

VXSC 

VAD 

PO  8D  AVECTR*COSF  R-2 

0186 

REF 

7 

LAST 

1143 

25,3765 

00025 

0 

A VECTR 

0187 

25,3766 

57572 

0 

VSL  1 

VCOMP 

0188 

REF 

7 

LAST 

1143 

25,3767 

34025 

1 

STCALL 

MMATRIX 

M0=  - (AVECTP*COSF+DVECTR*SINF)  R-] 

0139 

REF 

2 

LAST 

1141 

25,3770 

00051 

0 

E ARTHMXX 

RO 190 

COMPUTE 

X = X0+<  XDOT ) (T+TO ) 

R0191 

8-9D 

= XO  (REVS 

B-0)  , 

PUSHLOC 

SET  AT  1 2D 

R0192 

10-110=; 

XDOT  (REVS/CSEC)  SCALED  6+23  l 

FOR 

W EARTH, 

B+28  FOR 

NODDOT  AND 

BDOT 

R0193 

AND  i 

3+27  FOR 

FDOT 

R0194 

X 1= 

DIFFERENCE 

IN  23 

AND  SCAL  IMG  OF  , 

XDOT 

, =0  FOR 

WEARTH, 

5 FOR  NODDOT 

AND 

R0195 

BOOT  AND  4 FOR 

FDOT 

RO  19  6 

6-70 

= T 

(CSEC  B 

-28  ) , 

T I MS  U80= 

(CSEC  8- 

-42 

TRIPLE 

PREC. ) 

01962 

24,3743 

BANK 

24 

01964 

REF 

2 

LAST 

1139 

24,2000 

SETLOC 

PLANTIN 

01966 

24,3  743 

BANK 

0197 

24,3743 

54345 

1 

NEWANGLE  DLUAD 

SR 

ENTER  PD  120 

0198 

24,3  744 

0 C 007 

0 

6 D 

0199 

24,3745 

2 C 6 1 7 

0 

14D 

0200 

24,3746 

72371 

1 

TAD 

T LOAD 

CHANGE  MODE  TO  TP 

020  1 

REF 

1 

24,3747 

01707 

0 

T IMSUBO 

0202 

REF 

724 

LAST 

1106 

24,3750 

00155 

0 

M P AC 

0203 

REF 

1 

24,3751 

14017 

1 

STOOL 

T I MSUBM 

T+TO  CSEC  B— 42 

0204 

REF 

2 

LAST 

1 143 

24, 3752 

00020 

0 

TIMSUBM  +1 

0205 

24,3753 

77605 

1 

DMP 

PD  10 D MULT  BY  XDOT  IN  10-110 

0206 

24,3  754 

43257 

0 

SL* 

DAD 

PD  8D  ADD  XO  IN  8-9D  AFTER  SHIFTING 

0207 

24,3  755 

20206 

1 

5,1 

SUCH  THAT  SCALING  IS  B-0 

0208 

24,3756 

67206 

1 

PUSH 

SLOAD 

PD  10  D SAVE  PARTIAL  (XO+XOOT*T)  IN  8-9D 

0209 

REF 

3 

LAST 

114  3 

24,3757 

0C017 

1 

T I MSUBM 

0210 

24,3760 

41261 

1 

SL 

DMP 

0211 

24,3761 

20212 

1 

9D 

0212 

24,3  762 

00013 

0 

10D 

XDOT 

0213 

24,3763 

43257 

0 

SL* 

DAD 

PD  8D  SHIFT  SUCH  THAT  THIS  PART  OF  X 

0214 

24,3764 

20213 

0 

10D,  1 

IS  SCALED  REVS/CSEC  B-0 

02141 

24,  3 765 

77600 

1 

BOV 

TURN  OFF  OVERFLOW  IF  SET  BY  SHIFT 

02142 

24,3  766 

51767 

0 

+ 1 

INSTRUCTION  BEFORE  EXITING 

0215 

24,3767 

77616 

0 

RVQ 

MPAC=X=  XO+I XOOT ) (T+TO ) REVS  BO 

GAP: 
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P0216  EARTHMX  SUBROUTINE  

R0217  SUBROUTINE  TO  COMPUTE  THE  TRANSFORMATION  MATRIX  M FOR  THE  EARTH 

R0218  CALLING  SEQUENCE 

R0219  L CALL 

R0220  L+l  EARTHMX 

R0221  SUBROUTINES  USED 
R0222  NEWANGLE 

R0223  INPUT 

R0224  INPUT  AVAILABLE  FROM  LAUNCH  DATA  AZO  REVS  B-0 

R0225  TEPHEM  CSEC  B-42 

R0226  6-70=  TIME  CSEC  B-28 


R0227  OUTPUT 

R0228  MMAT  R I X=  3X3  M MATRIX  B- 1 (STORED  IN  VAC  AREA) 


02282 

26,3743 

02284 

REF 

2 

LAST 

1138 

26,2000 

022  8 £ 

26,3743 

022  8 £ 

REF 

3 

LAST 

1138  TO 

1 139  : 

21  4 

- 1 ❖ 

0229 

26,3743 

40220 

0 

0230 

REF 

3 

LAST 

1143 

26,3744 

OC051 

0 

023  1 

26,3745 

0C011 

1 

0232 

26,3746 

7 7 770 

1 

0233 

26,3747 

CCCOO 

1 

0234 

26,3750 

65345 

0 

0235 

REF 

1 

26,3751 

14023 

0 

0236 

REF 

1 

26,3752 

14021 

1 

0237 

26,3753 

45006 

0 

0238 

REF 

4 

LAST 

1141 

26,3754 

51743 

0 

0239 

26,3  755 

41401 

1 

0240 

26,3756 

00023 

0 

0241 

26,3757 

65346 

0 

0242 

REF 

1 

26,3760 

00023 

0 

0243 

26,3761 

65356 

1 

0244 

REF 

14 

LAST 

1142 

26, 3762 

06505 

1 

0245 

26,3763 

73525 

1 

0246 

REF 

2 

LAST 

1144 

26,3764 

0C023 

0 

0247 

26,3765 

65276 

1 

0248 

REF 

3 

LAST 

1 144 

26,3766 

00C23 

0 

0249 

26,3767 

63346 

0 

0250 

REF 

L5 

LAST 

1144 

26, 3770 

06505 

1 

0251 

26,3771 

41525 

0 

0252 

REF 

5 

LAST 

503 

26, 3772 

06503 

1 

0253 

26,3773 

77650 

1 

0254 

REF 

4 

LAST 

1144 

26,3774 

00051 

0 

BANK 

26 

SETLOC 

PLANT  INI 

BANK 
COUNT  * 

$ F/LUROT 

STQ 

SETPD 

AXT  , 1 
DLOAD 

EARTHMXX 

8D 

0 

PDDL 

PUSH 

AZO 

WEARTH 

CALL 

SETPD 

NEWANGLE 

PUSH 

COS 

1 8D 
PDDL 

SIN 

504AZ 

PDDL 

PDDL 

H I6ZFR0S 
SIN 

DCUMP 

504AZ 

PDDL 

COS 

5 04AZ 
PDVL 

PDDL 

HI6ZER0S 

PUSH 

GOTO 

H IDPHALF 
EARTHMXX 

SET  8— 9D=AZ0 

10-1 l D=WFARTH 

FOR  SL  5,  AND  SL 

10 

IN 

LEAVING  PD  SET 

AT 

120 

1 8 -19  0=504  A Z 

CO  S ( A 

20-37D=  MMATP I X=  — S I N ( A 

0 


. 131 

EO  S3 


NEWANGLE 
FOR  NEWANGLE 

Z)  SIN(AZ)  0 
Z ) COS ( AZ ) 0 8-1 
0 1 


EARTHMXX 


GAP:  ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  8Y  NASA  20211  12-161 

L PLANETARY  INERTIAL  ORIENTATION 

P0255  EARTHL  SUBROUTINE  

R0256  SUBROUTINE  TO  COMPUTE  L VECTOR  FOR  EARTH 

R0257  CALLING  SEQUENCE 

R0258  L CALL 

R0259  L+l  EARTHL 


17:11  MAR.  19,1971  SKIPPER 
USER' S PAGE  NO.  8 


.131  PAGE  1145 
EO  S3 


R0260  INPUT 


R0261 

AXO, 

i A YO 

SET 

AT  LAUNCH  TIME 

WITH  AYO 

IMMEDIATELY 

FOLLOWING  AXO  IN 

R0262 

OUTPUT 

R0263 

-AX 

R0264 

MP  AC= 

-AY 

RADIANS  8-0 

R0265 

0 

0265  C 5 

06,3765 

BANK 

06 

0265  1 

REF 

1 

06,2000 

SETLOC 

E ARTHLOC 

0265  15 

06,3  765 

BANK 

02652 

REF 

1 

COUNT  * 

$ t/LUROT 

0266 

06,3  165 

5 7 545 

1 EARTHL 

DLOAD 

DCOMP 

0267 

REF 

1 

06,3766 

01714 

1 

AXO 

0268 

REF 

1 

06,3767 

14017 

1 

STOOL 

504LPL 

0269 

REF 

1 

06,3770 

01712 

1 

-AYO 

0270 

REF 

2 

LAST 

1145 

06,3771 

14021 

1 

STOOL 

504LPL  +2 

0271 

REF 

4 

LAST 

334 

06,3772 

24007 

0 

L06ZER0S 

0272 

REF 

3 

LAST 

1145 

06, 3773 

24C23 

0 

STOVL 

504LPL  +4 

0273 

REF 

4 

LAST 

1145 

06,3774 

00017 

1 

504LPL 

0274 

06,3775 

77616 

0 

RVQ 

GAP: 
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P0275 

CONSTANTS 

AND 

ERASABLE  ASSIGNMENTS 

0276 

REF  5 

LAST 

1135 

12,2004 

1 B 1 

= 

DPI/2 

0279 

REF  13 

LAST 

1086 

0050 

RPREXIT 

= 

SI 

0280 

RFF  14 

LAST 

1137 

0051 

EARTHMXX 

= 

S 2 

0281 

0000 

504RPR 

= 

OD 

0282 

0010 

S INNODI 

= 

8 D 

0283 

0010 

DVECTR 

= 

8D 

028  A 

0010 

CVECTR 

= 

8D 

0205 

0022 

5 04AZ 

= 

18D 

0286 

0016 

TIMSU8M 

= 

1 40 

0287 

0016 

504LPL 

= 

14D 

0288 

0024 

A VECTR 

= 

2 OD 

0289 

0032 

BVECTR 

= 

2 6D 

0290 

0024 

MMATR  IX 

= 

2 OD 

0291 

0040 

COB 

= 

3 2D 

0292 

0042 

SOB 

= 

340 

0293 

0006 

5 04F 

= 

6 D 
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1 SCALFD  B— 1 

R-TO-RP  AND  P.  P-TO-R  SUBR  EXIT 
EARTHMX, MOONMX  SUBR.  EXITS 
6 REGS  R OR  PP  VECTOR 

2 SIN (NODI ) 

6 D VECTOR  MOON 

6 C VECTR  MOON 

2 AZ 

3 TTMF  SUB  M (MOON)  T+TO  IN  GETAZ 

6 L OR  LP  VECTOR 

6 A VECTOR  (MOON) 

6 B VECTOR  (MOON) 

18  M MATRIX 

2 COS(B)  B-l 

2 SINIR)  B-l 

2 F (MOON) 


GAP: 

L 

P0001 

R0002 

R0003 

R0004 

R0005 

R0006 

R0007 

R OOO  8 

R0009 

R0010 

R001  1 

R0012 

R0013 

R0014 

R001  5 

R0016 

R0017 

R0018 

R0019 

R0020 

R002  1 

R0022 

0023 

0024 

0023 

0026 

002  7 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

003  7 

003  8 

0039 

0040 

004  1 

0042 

0043 
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MEASUREMENT  INCORPORATION 


USbP'S  PAGE  NO. 


EO  S3 


INCpRPl — PERFORMS  THE  SIX  DIMENSIONAL  STATE  VECTOR  DEVIATION  FOR  POSITI 
ON  AND  VELOCITY  OR  THE  NINE  DIMENSIONAL  DEVIATION  OF  POS I T I ON , VEL 0 C I T Y , A 
NO  RADAR  OR  LANDMARK  BIAS. THE  OUTPUT  OF  THE  BVECTOR  ROUTINE  ALONG  WITH  T 
HE  ERROR  TRANSITION  MATRIX(W)  ARE  USED  AS  INPUT  TO  THE  ROUTINE. THE  DEV  I A 
TICN  IS  OBTAINED  BY  COMPUTING  AN  ESTIMATED  TRACKING  MEASUREMENT  FROM  THE 
CURRENT  STATE  VECTOR  AND  COMPARING  IT  WITH  AN  ACTUAL  TRACKING  MEASURFMEN 
T AND  APPLYING  A STATISTICAL  WEIGHTING  VECTOR. 

INPUT 

DMENFLG  = 0 6D I ME  NS  I ON AL  BVECTOR  1=  9DI MENS  IONAL 
W = ERROR  TRANSITION  MATRIX  6X6  OR  9X9 
VARIANCE  = VARIANCE  (SCALAR) 

DELTAQ  = MEASURED  DE V I AT  ION ( SC AL A R ) 

BVECTOR  = 6 OR  9 DIMENSIONAL  BVECTOR 


GUTPUT 

DELTAX  = STATE  VECTOR  DEVIATIONS  6 OR  9 DIMENSIONAL 

ZI  = VECTOR  USED  FOR  THE  INCORPORATION  6 OR  9 DIMENSIONAL 
GAMMA  = SCALAR 

CMEGA  = OMEGA  WEIGHTING  VECTOR  6 OR  9 D1MENTI0NAL 
CALLING  SEQUENCE 
L CALL  INC0RP1 


NORMAL  EXIT 

L+l  OF  CALLING  SEQUENCE 


REF  1 


37,3654 

23,2000 

23,2514 


BANK  37 
SETLOC  MEASINC 
BANK 


REF 


COUNT*  $ $ / I NCOR 


REF 

18 

LAST 

616 

m 

U1 

-P' 

o 

o 

EBANK= 

W 

23,2514 

77620 

0 

I NC0RP1 

STQ 

REF 

1 

23,2515 

02767 

0 

EGRESS 

23,2516 

66370 

0 

AXT  , 1 

SSP 

23,2517 

0 C 0 66 

1 

54D 

REF 

14 

LAST 

1 146 

23,2520 

00051 

0 

S 1 

23,2521 

OC022 

1 

l 8D 

X 

II 

CD 

4> 

in 

II 

CO 

23,2522 

66374 

1 

AXT , 2 

SSP 

23,2523 

00022 

1 

1 8D 

REF 

15 

LAST 

1146 

23,2524 

OOC52 

0 

S 2 

23,2525 

00006 

1 

6 

1X2=  18 

S2=  6 

23,2526 

63775 

1 

Z 123 

VLQAD 

M X V* 

REF 

23 

LAST 

601 

23,2527 

03525 

0 

BVECTOR 

BVECTOR 

(0) 

REF 

19 

LAST 

1147 

23,2530 

02467 

0 

W +540,1 

REF 

2 

LAST 

13  1 

23,2531 

12665 

1 

STORE 

ZI  + l 8D , 2 

23,2532 

77775 

1 

VLOAD 

REF 

24 

LAST 

1147 

23,2533 

03533 

l 

BVECTOR  +6 

BVECTOR 

( 1 ) 

GAP: 

ASSEMBLE  1 

REVISION  210 

OF  AGC  PROGRAM  LUMINARY  BY 

L 

MEASUREMENT  INCORPORATION 

0049 

23,2534 

52717 

1 

004  5 

REF 

20 

LAST 

1147 

23 , 2535 

02555 

0 

004  6 

REF 

3 

LAST 

1 147 

23, 2536 

75112 

1 

004  7 

REF 

4 

LAST 

1148 

23,2537 

12665 

1 

0048 

23,2540 

77775 

1 

0049 

REE 

25 

LAST 

1147 

23,2541 

03541 

1 

0050 

23,2542 

52717 

1 

005  1 

REF 

21 

LAST 

1148 

23,2543 

02643 

1 

0052 

REF 

5 

LAST 

1148 

23,2544 

75112 

1 

0053 

REE 

6 

LAST 

1148 

23,2545 

12665 

1 

0054 

23,2546 

77700 

0 

0055 

REE 

1 

23,2547 

46550 

0 

0056 

23,2  550 

43104 

0 

INC0R1 

0057 

REF 

1 

23,2551 

46526 

1 

0058 

REF 

3 

LAST 

603 

23,2552 

02706 

1 

0059 

REF 

1 

23,2553 

46557 

1 

0060 

23,2554 

77775 

1 

0061 

REE 

17 

LAST 

9 17 

23,2555 

06505 

1 

0062 

REE 

7 

LAST 

1 148 

23, 2556 

02657 

1 

0063 

23,2557 

77201 

1 

INC0R1A 

0064 

23,2560 

00001 

0 

0065 

REE 

8 

LAST 

1148 

23,2561 

02643 

1 

0066 

23,2562 

47036 

1 

0067 

REF 

6 

LAST 

602 

23,2563 

21643 

0 

0068 

23,2564 

47515 

0 

0 06  9 

REF 

9 

LAST 

1148 

23,2565 

02651 

1 

0070 

23,2566 

76234 

0 

0071 

REF 

7 

LAST 

1148 

23,2567 

21643 

0 

0072 

23,2570 

47515 

0 

0073 

REF 

10 

LAST 

1148 

23,2571 

02657 

1 

0074 

23,2572 

76234 

0 

0075 

REF 

8 

LAST 

1148 

23,2573 

21643 

0 

0076 

23,2574 

77171 

0 

0077 

REF 

11 

LAST 

602 

23,2575 

02707 

0 

0078 

23,2576 

OCOOO 

1 

0079 

REF 

2 

LAST 

131 

23,2577 

02665 

0 

0080 

23,2600 

40151 

0 

008  1 

REF 

12 

LAST 

1148 

23,2601 

02707 

0 

0082 

23,2602 

46603 

0 

0083 

REF 

1 

23,2603 

02670 

1 

0084 

23,2604 

77654 

0 

0085 

REF 

1 

23,2605 

46614 

0 

0086 

23,2606 

40112 

1 

INCC1R1B 

0087 

REF 

2 

LAST 

1148 

23,2607 

46614 

0 

0088 

REF 

2 

LAST 

1148 

23,2610 

02670 

1 

0089 

23,2611 

52114 

1 

0090 

23,2612 

00001 

0 

0091 

REF 

l 

23,2613 

46606 

0 

0092 

23,2614 

61551 

1 

INCOR 1C 

0093 

REF 

3 

LAST 

1 148 

23, 2615 

02665 

0 

20211 12-161 
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F5  S3 


MXV* 

V AD* 

W +108D , 1 
ZI  + 1 8D , 2 

STORE 

VLOAD 

ZI  + 1 8D , 2 

B VECTOR  + 12D 

BVECTOR  (2) 

MX  V* 

V AD* 

W +1620,1 

ZI  + 1 8D  , 2 

8(0)*W+B( 1 )*( W+54)+B( 2)*( W+108 ) FIRST 

STORE 

T I X , 1 

ZI  + 1 8D , 2 
INC0R1 

ZI  THEN  Z2  THEN  Z3 

TIX  ,2 

BON 

VLOAD 

Z 123 
DMENFLG 
I NC0R1A 

ZEROVECS 

LOOP  FOR  Z 1 , Z2  » Z3 

STORE 

ZI  + 1 2D 

SETPD 

VLOAD 

0 

ZI 

VSQ 

RTB 

TPMOOE 

PDVL 

VSQ 
Z I +6 

RTB 

TAD 

TPMODE 

PDVL 

VSQ 

ZI  + 1 2D 

RTB 

TAD 

TPMODE 

TAD 

A X T , 2 

VARIANCE 

0 

STORE 

TRIPA 

Z I *2  + Z 2*2  + Z3*2  + VARIANCE 

TLOAD 

BOV 

VARIANCE 

+ 1 

CLEAR  OVFIND 

STORE 

BZE 

TEMPVAR 
INCOR 1C 

TEMP  STORAGE  FOR  VARIANCE 

SL2 

BOV 

INCOR 1C 

STORE 

TEMPVAR 

I NCR, 2 

GOTO 

DEC 

1 

I NC0R1B 

TLOAC 

ROUND 

TRIPA 


GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  202I1L2-16L 
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0094 

23,2616 

75405 

1 

DMP 

SORT 

0095 

REF 

3 

LAST 

1148 

23,2617 

02670 

1 

TEMPVAR 

0096 

23,2620 

76257 

0 

SL* 

TAD 

0097 

23,2621 

57576 

l 

0,2 

0098 

REF 

4 

LAST 

1148 

23,2622 

02665 

0 

TRIPA 

0099 

23,2623 

63101 

1 

NORM 

I NCR, 2 

0100 

REF 

19 

LAST 

1014 

23,2624 

00050 

1 

X 2 

0101 

23,2625 

77775 

1 

DEC 

-2 

010  2 

23,2626 

77134 

1 

SX  A , 2 

A XT , 2 

0103 

REF 

2 

LAST 

119 

23,2627 

02102 

0 

NGRMGAM 

0104 

23,2630 

0C242 

0 ■ 

1 62D 

0105 

23,2631 

40265 

1 

BDDV 

SETPD 

0106 

REF 

7 

LAST 

917 

23,2632 

06475 

1 

DP1/4TH 

0107 

23,2633 

00001 

0 

0 

0108 

REF 

2 

LAST 

15  1 

23,2634 

03500 

1 

STORE 

GAMMA 

0109 

23,2635 

60  351 

0 

TLOAD 

NORM 

0110 

REF 

5 

LAST 

1149 

23,2636 

02665 

0 

TRIPA 

Oil  1 

REF 

35 

LAST 

1086 

23,2637 

00047 

1 

XI 

0112 

23,2640 

65345 

0 

DLOAC 

PDDL 

0113 

REF 

725 

LAST 

1143 

23,2641 

00155 

0 

MPAC 

0114 

REF 

8 

LAST 

602 

23,2642 

03547 

1 

DELTAQ 

0115 

23,2643 

77701 

1 

NORM 

0116 

REF 

15 

LAST 

1147 

23,2644 

0C051 

0 

SI 

0117 

23,2645 

7C460 

1 

XSU,  1 

SRI 

0118 

REF 

16 

LAST 

1149 

23,2646 

00050 

1 

SI 

0119 

23,2647 

41471 

0 

DDV 

PUSH 

01193 

23,2650 

77650 

1 

GOTO 

01196 

REF 

1 

23,265  1 

45712 

1 

NEWZCOMP 

0120 

23,2652 

77731 

1 -3 

SSP 

0121 

REF 

16 

LAST 

1147 

23,2653 

00052 

0 

S 2 

0122 

23,2654 

00066 

1 

54D 

0123 

23,2655 

60775 

1 INC0R2 

VLOAD 

VXM* 

0124 

REF 

11 

LAST 

1 148 

23,2656 

02643 

1 

Z I 

0125 

REF 

22 

LAST 

1148 

23,2657 

75134 

0 

W + 1 62D , 2 

0126 

23,2660 

77206 

0 

PUSH 

VLOAD 

012  7 

REF 

12 

LAST 

1149 

23,2661 

02651 

1 

Z I +6 

0128 

23,2662 

53303 

1 

VXM* 

VAD 

0129 

REF 

23 

LAST 

1149 

23, 2663 

75112 

1 

W +1800,2 

0130 

23,2664 

77206 

0 

PUSH 

VLOAD 

0131 

REF 

13 

LAST 

1149 

23,2665 

02657 

1 

ZI  + 1 2D 

0132 

23,2666 

53303 

1 

VXM* 

VAD 

0133 

REF 

24 

LAST 

1149 

23,2667 

75070 

1 

W +1980,2 

0134 

23,2670 

61006 

0 

PUSH 

T IX, 2 

0135 

REF 

1 

23,2671 

46655 

0 

I NC0R2 

0136 

23,2672 

45575 

1 

VLOAD 

STADR 

0137 

REF 

2 

LAST 

151 

23,2673 

74260 

0 

STORE 

OMEGA  +12D 

0138 

23,2674 

45575 

1 

VLOAD 

STADR 

0139 

REF 

3 

LAST 

1149 

23,2675 

74266 

0 

STORE 

OMEGA  +6 

0140 

23,2676 

45575 

1 

VLOAD 

STADR 

014  1 

REF 

4 

LAST 

1149 

23,2677 

74274 

0 

STORE 

OMEGA 

17:11  MAR.  19,1971  SKIPPER  .131  PAGE  1149 
USER' S PAGE  NO.  3 E5  S3 


NORMALIZATION  COUNT  -2  FOR  GAMMA 


PD  0-1  = NORM  (A  I 


PD  0-1  = OELTAQ/A 


COMPUTE  0MEGA1, 2, 3 


PD  2 — 7 =0 ME G A 1 , 8-13  = OMEGA2 ,14-1 9 = 0MFGA 3 


GAP: 

L 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0L53 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 
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USER' S PAGE  NO . 4 


.131  PAGE  1150 
E5  S3 


23,2700 

77214 

0 

REF 

4 

LAST 

1148 

23,2701 

02706 

1 

REF 

1 

23,2702 

46705 

1 

REF 

18 

LAST 

1148 

23,2703 

06505 

1 

REF 

5 

LAST 

1149 

23,2704 

03517 

1 

23,2705 

66374 

1 

23,2706 

00022 

l 

REF 

17 

LAST 

1 149 

23,2707 

0CC52 

0 

23,2710 

00006 

1 

23,2711 

77773 

1 

REF 

6 

LAST 

1150 

23,2712 

74252 

1 

23,2713 

53761 

1 

23,2714 

00001 

0 

23,2715 

2020  L 

0 

REF 

5 

LAST 

606 

23,2716 

12707 

1 

23, 2717 

77304 

0 

REF 

1 

23,2720 

46711 

1 

REF 

6 

LAST 

1150 

23,2721 

02673 

1 

23,2722 

77732 

1 

REF 

7 

LAST 

1150 

23,2723 

02673 

1 

23,2724 

77650 

1 

REF 

2 

LAST 

1147 

23,2725 

02767 

0 

BON  V LOAD 

DMENFLG 

INCOR2A8 

ZEROVECS 

STORE  OMEGA  +120 
I NCOR2A8  AXT.2  SSP 
1 80 
S 2 

' 6 
INC0R3  VLOAC* 

OMEGA  +180,2 
VX SC  VSL* 

0 DELTAQ/A 

0,1 

STORE  DELTAX  +18D,2 
T I X , 2 VLOAD 
I NC0R3 
DELTAX  +6 

VSL3 

STORE  DELTAX  +6 
GOTO 

EGRESS 
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GAP: 

L 

P0164 
R0165 
R0166 
R0167 
R0168 
R0169 
R0170 
RO  17  1 
R 0 1 7 2 
RO  17  3 
RO  174 
RO  17  5 

RO  176 
RO  17  7 

R0178 
RO  17  9 

R0180 
RO  18  1 


MEASUREMENT  INCORPORATION 

INC0FP2  -INCORPORATES  THE  COMPUTED  STATE  VECTOR  DEVIATIONS  INTO  THE 
ESTIMATED  STATE  VECTOR.  THE  STATE  VECTOR  UPDATED  MAY  BE  FOR  EITHER  THE 
LEM  OR'  THE  CSM. DETERMINED  BY  FLAG  VEHUPFLG. ( ZERO  = LEM)  (1  = CSM) 

INPUT 

PERMANENT  STATE  VECTOR  FOR  EITHER  THE  LEM  OR  CSM 
VEHUPFLG  = UPDATE  VEHICLE  0=LEM  1=CSM 
W = ERROR  TRANSITION  MATRIX 

DELTAX  = COMPUTED  STATE  VECTOR  DEVIATIONS 

DMENFLG  = SIZE  OF  W MATRIX  (ZERO  =6X6)  (1=9X9) 

GAMMA  = SCALAR  FOR  ‘INCORPORATION 

ZI  = VECTOR  USED  IN  INCORPORATION  . 

OMEGA  = WEIGHTING  VECTOR 

OUTPUT 

UPCATED  PERMANENT  STATE  VECTOR 

CALLING  SEQUENCE 
L CALL  INC0RP2 


NORMAL  EXIT 

L+l  OF  CALLING  SEQUENCE 


USER • S PAGE  NO.  5 E5  S3 


0182 

REF 

1 

23,2000 

0183 

23,2726 

0184 

REF 

2 

LAST 

1147  TO 

1151: 

0185 

23, 2 726 

0186 

REF 

3 

LAST 

1150 

23,2727 

0187 

REF 

27 

LAST 

783 

23,2730 

0188 

23,2731 

0139 

REF 

7 

LAST 

1150 

23,2732 

0190 

REF 

3 

LAST 

1149 

23,2733 

0191 

REF 

2 

LAST 

131 

23,2734 

0192 

REF 

8 

LAST 

115  1 

23,2735 

0193 

23,2736 

0194 

REF 

4 

LAST 

115  1 

23,2737 

0195 

REF 

2 

LAST 

13  1 

23,2740 

0196 

REF 

9 

LAST 

1151 

23,2741 

0197 

23,2  742 

0198 

REF 

5 

LAST 

115  1 

23,2743 

0199 

REF 

2 

LAST 

13  1 

23,2744 

0200 

23,2745 

0201 

REF 

1 

23,2746 

0202 

REF 

2 

LAST 

110 

23,2747 

0203 

REF 

1 

23, 2750 

0204 

REF 

232 

LAST 

1126 

23,2751 

0205 

REF 

1 

23,2752 

0206 

REF 

1 

23,2753 

020  7 

REF 

107 

LAST 

978 

23,2754 

SETLOC  ME AS  I NC 1 
BANK 

138  138*  COUNT*  $ $/ 1 NCOR 


45020 

1 

I NCQRP2 

STQ 

CALL 

02767 

0 

EGRESS 

27447 

0 

INTSTALL 

74375 

0 

VLOAD 

VXSC 

03503 

1 

OMEGA 

03500 

1 

GAMMA 

267  13 

0 

STGVL 

0MEGAM1 

03511 

1 

OMEGA  +6 

77761 

1 

VXSC 

03500 

1 

GAMMA 

26721 

1 

STOVL 

0MEGAM2 

03517 

1 

OMEGA  +12D 

77761 

1 

VXSC 

03500 

1 

GAMMA 

02  727 

1 

STORE 

0MEGAM3 

77776 

1 

EX  I T 

3 3227 

0 

CAE 

54DD 

55' 315 

0 

TS 

W I X A 

55 ' 316 

0 

TS 

W I X8 

3 4746 

0 

CAF 

ZERO 

5 5 1 3 1 7 

1 

TS 

Z IXA 

55 1 320 

0 

TS 

Z IXB 

0 5355 

1 

F AZA 

TC 

P HASCHNG 

CALC.  GAMMA  * OMEGAl.2,3 


INITIAL  IX  1 SETTING  FOR  W MATRIX 


INITIAL  IX  2 SETTING  FOR  Z COMPONENT 


GAP: 
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0208 

23,2755 

04022 

0 

OCT 

04022 

0209 

REF 

71 

LAST 

981 

23,2756 

0 5506 

1 

TC 

UPFLAG 

0210 

REF 

2 

LAST 

713 

23,2757 

0C236 

0 

ADRES 

REINTFLG 

0212 

REF 

2 

LAST 

1151 

23,2760 

3 1316 

1 FAZA1 

CA 

W IXB 

0213 

REF 

3 

LAST 

115  1 

23,2761 

55 ' 315 

0 

TS 

W I X A 

0214 

REF 

2 

LAST 

115  1 

23, 2762 

3 1320 

1 

CA 

Z IXB 

0215 

REF 

2 

LAST 

115  1 

23,2763 

55' 317 

1 

TS 

Z IXA 

0216 

REF 

218 

LAST 

1021 

23,2764 

0 6060 

1 

TC 

I NTPRET 

0217 

23,2765 

73150 

1 

LXA  , 1 

LXA, 2 

0218 

REF 

4 

LAST 

1152 

23,2766 

01315 

1 

W IXA 

0219 

REF 

3 

LAST 

1152 

23, 2767 

01317 

0 

Z IXA 

0220 

23,2  770 

70731 

0 

SSP 

DLOAD* 

022  1 

REF 

17 

LAST 

1149 

23,2771 

00051 

0 

SI 

0222 

23,2772 

00006 

1 

6 

0223 

REF 

14 

LAST 

1149 

23,2773 

75134 

0 

Z I , 2 

0224 

23,2774 

60276 

1 

DCOMP 

NORM 

0225 

REF 

18 

LAST 

1150 

23,2775 

00052 

0 

S 2 

0226 

23,2776 

6 5 161 

1 

VXSC 

XCHX, 2 

0227 

REF 

3 

LAST 

1151 

23,2777 

02713 

0 

0MEGAM1 

0228 

REF 

19 

LAST 

1152 

23,3000 

0005  1 

0 

S2 

0229 

23,3001 

5 7144 

1 

LXC  , 2 

X AD , 2 

0230 

REF 

20 

LAST 

1149 

23,3002 

00047 

1 

X2 

0231 

REF 

3 

LAST 

1149 

23,3003 

02  102 

0 

NORMGAM 

0232 

23,3004 

65057 

0 

VSL* 

XCHX , 2 

0233 

23,3005 

57576 

1 

0,2 

0234 

REF 

20 

LAST 

1152 

23 ,3006 

00051 

0 

S 2 

0235 

23,3007 

77653 

l 

VAD* 

0236 

REF 

25 

LAST 

1149 

23,3010 

02467 

0 

W + 54D , 1 

023  7 

REF 

1 

23,3011 

02735 

1 

STORE 

HOLDW 

0238 

23,3012 

57543 

1 

DLOAD* 

DCOMP 

0239 

REF 

15 

LAST 

1152 

23,3013 

75134 

0 

ZI  ,2 

0240 

23,3014 

74301 

0 

NORM 

VXSC 

0241 

REF 

21 

LAST 

1152 

23,3015 

00052 

0 

S 2 

0242 

REF 

3 

LAST 

115  1 

23,3016 

02721 

1 

0MEGAM2 

0243 

23,3017 

71124 

0 

XCHX , 2 

LXC  , 2 

0244 

REF 

22 

LAST 

1152 

23,3020 

00051 

0 

S2 

0245 

REF 

21 

LAST 

1152 

23,3021 

00047 

l 

X2 

0246 

23, 3022 

53674 

1 

X AD , 2 

VSL* 

0247 

REF 

4 

LAST 

1152 

23,3023 

02102 

0 

NORMGAM 

0248 

23,3024 

57576 

l 

0,2 

0249 

23,3025 

52724 

1 

XCHX, 2 

VAD* 

0250 

REF 

23 

LAST 

1152 

23,3026 

00051 

0 

S 2 

0251 

REF 

26 

LAST 

1152 

23,3027 

02555 

0 

W +1080,. 

0252 

REF 

2 

LAST 

1152 

23,3030 

02  743 

0 

STORE 

HOLDW  +6 

0253 

23,3031 

7 7614 

1 

BOFF 

0254 

REF 

5 

LAST 

1150 

23,3032 

02746 

0 

DMENFLG 

0255 

REF 

1 

23,3033 

47053 

1 

FAZ8 

0256 

23,3034 

57543 

1 

DLOAD* 

DCOMP 

0257 

REF 

16 

LAST 

1152 

23,3035 

75134 

0 

Z I ,2 

0258 

23,3036 

74301 

0 

NORM 

VXSC 

17:11  MAR.  19,1971  SKIPPER  .131  PAGE  1152 


USER' S PAGE  NO.  6 E5  S3 


START  FIRST  PHASE  OF  INC0RP2 
TO  UPDATE  6 OR  9 DIM.  W MATRIX  IN  TEMP 


CALC  UPPFR  3X9  PARTITION  OF  W MATRIX 


CALC  M I DDL  F 3X9  PARTITION  OF  W MATRIX 


BRANCH  IF  6 DIMENSIONAL 


CALC  LOWER  3X9  PARTITION  OF  W MATRIX 


GAP: 

L 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

027  2 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 

0281 

0232 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

030  1 

0302 

0303 

0304 

0305 

0306 

0307 

0308 
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•MEASUREMENT  INCORPORATION  USER'S  PAGE  NO.  7 E5  S3 


REF 

24 

LAST- 

1152 

23,3037 

00052 

0 

S2 

REF 

3 

LAST 

115  1 

23,3040 

02727 

1 

0MEGAM3 

23,3041 

71124 

0 

XCHX  ,2 

L XC  , 2 

REF 

25 

LAST 

1153 

23,3042 

0CC51 

0 

S 2 

REF 

22 

LAST 

1152 

23,3043 

0C047 

1 

X 2 

23, 3044 

53674 

1 

XAD , 2 

VSL* 

REF 

5 

LAST 

1152 

23,3045 

02  102 

0 

NORMGAM 

23,3046 

57576 

1 

0,2 

23,3047 

52724 

1 

XCHX, 2 

VAO* 

REF 

26 

LAST 

1153 

23,3050 

00051 

0 

S 2 

REF 

27 

LAST 

1152 

23,3051 

02643 

1 

W +1620,1 

REF 

3 

LAST 

1152 

23,3052 

02751 

0 

STORE 

HOLDW  +12D 

23,3053 

77624 

l 

F AZB 

CALL 

REF 

16 

LAST 

603 

23,3054 

51770 

0 

GRP2PC 

23,3055 

77776 

1 

EXIT 

REF 

5 

LAST 

1 152 

23,3056 

3 1315 

1 

FAZB1 

CA 

W I XA 

START  2ND 

PHASE  OF  INC0RP2  TO  TRANSFER 

REF 

1 

23,3057 

6 3230 

0 

AD 

6DD 

T EMP 

REG  TO  PERM  W MATRIX 

REF 

3 

LAST 

1152 

23,3060 

55 ' 3 16 

0 

TS 

W I XB 

REF 

4 

LAST 

1152 

23,3061 

3 1317 

0 

CA 

Z I XA 

REF 

2 

LAST 

230 

23, 3062 

6 7767 

0 

AD  ■ 

M INUS2 

REF 

3 

LAST 

1152 

23,3063 

55 '320 

0 

TS 

Z I XB 

REF 

219 

LAST 

1152 

23,3064 

0 6060 

1 

TC 

I NTPRET 

23,3065 

66350 

1 

L X A , 1 

SSP 

REF 

6 

LAST 

1153 

23,3066 

01315 

1 

W I X A 

REF 

18 

LAST 

1152 

23,3067 

C0051 

0 

SI 

23,3070 

00006 

1 

6 

23,3071 

77775 

1 

VLOAD 

REF 

4 

LAST 

1153 

23,3072 

02735 

1 

HOLDW 

REF 

28 

LAST 

1153 

23 ,3073 

06467 

1 

STORE 

W +54D, 1 

23,3074 

77775 

1 

VLOAD 

REF 

5 

LAST 

1153 

23,3075 

02743 

0 

HOLDW  +6 

REF 

29 

LAST 

1153 

23,3076 

06555 

1 

STORE 

W + 1 08D , 1 

23,3077 

77214 

0 

BOFF 

VLOAD 

REF 

6 

LAST 

1152 

23,3100 

02  746 

0 

DMENFLG 

REF 

1 

23,3101 

47111 

0 

FAZB5 

REF 

6 

LAST 

1153 

23,3102 

02751 

0 

HOLDW  + 1 2D 

REF 

30 

LAST 

1153 

23,3103 

06643 

0 

STORE 

W +1 62D  , 1 

23,3104 

52100 

1 

FAZB2 

T I X , 1 

GOTO 

23,3105 

47  107 

1 

+ 2 

REF 

1 

23,3106 

47117 

0 

FAZC 

DONF  WITH 

W MATRIX.  UPDATE  STATE  VECTOR 

23,3107 

77634 

0 

RTB 

REF 

1 

23,3110 

46  7 54 

0 

FAZA 

23,3111 

43335 

0 

F AZB  5 

SLOAD 

DAD 

REF 

4 

LAST 

1153 

23,3112 

01321 

0 

Z I XB 

REF 

1 

23,3113 

07232 

0 

1200 

23,3114 

52030 

0 

BHIZ 

GOTO 

REF 

2 

LAST 

1153 

23,3115 

47117 

0 

FAZC 

REF 

1 

23,3  116 

47104 

1 

F AZB2 

23,3117 

77624 

1 

FAZC 

CALL 

REF 

17 

LAST 

1153 

23,3120 

51770 

0 

GRP2PC 

GAP:  ASSEMBLE  REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY  NASA  20211I2-L61 
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0309 

23,3121 

53375 

0 

0310 

REF 

5 

LAST 

602 

23,3122 

01701 

0 

031  1 

REF 

8 

LAST 

1150 

23,3123 

02701 

0 

0312 

REF 

2 

LAST 

151 

23,3  124 

03472 

0 

0313 

23,3125 

47014 

1 

0314 

REF 

12 

LAST 

601 

23,3126 

OC  707 

1 

0315 

REF 

1 

2‘3, 312  7 

47217 

0 

0316 

REF 

1 

23,3130 

27026 

0 

0317 

23,3131 

77C04 

0 

FAZAB 

0318 

REF 

2 

LAST 

5 83 

23,3132 

57756 

1 

0319 

23,3133 

ocooo 

1 

0320 

23,3134 

77014 

1 

0321 

REF 

5 

LAST 

720 

23,3  135 

04344 

0 

0322 

23,3136 

47  140 

1 

0323 

23,3137 

00002 

0 

0324 

23,3140 

53775 

1 

0325 

REF 

9 

LAST 

1154 

23,3141 

02665 

0 

0326 

23,3142 

57205 

1 

0327 

23,3143 

4 C 055 

0 

0328 

REF 

4 

LAST 

333 

23,3144 

01521 

0 

0329 

REF 

1 

23,3 145 

47157 

1 

0330 

REF 

5 

LAST 

1154 

23,3 146 

25521 

0 

0331 

REF 

10 

LAST 

1154 

23,3147 

02673 

1 

0332 

23 ,3150 

53257 

1 

0333 

23,3151 

57202 

0 

0334 

REF 

4 

LAST 

333 

23,3152 

01527 

0 

0335 

23,3153 

77600 

1 

0336 

REF 

1 

23,3154 

47163 

0 

033  7 

REF 

5 

LAST 

1154 

23,3155 

35527 

1 

0338 

REF 

1 

23,3156 

47172 

0 

0339 

23,3157 

53375 

0 

FAZAB1 

0340 

REF 

13 

LAST 

784 

23, 3160 

01535 

0 

0341 

REF 

11 

LAST 

1154 

23,3161 

02665 

0 

0342 

REF 

14 

LAST 

1154 

23,3162 

01535 

0 

0343 

23,3163 

53375 

0 

FAZAB2 

0344 

REF 

1 1 

LAST 

784 

23,3164 

01543 

1 

0345 

REF 

12 

LAST 

1154 

23,3165 

02673 

1 

0346 

REF 

12 

LAST 

1154 

23,3166 

01543 

1 

0347 

23,3167 

45  134 

0 

0346 

REF 

3 

LAST 

309 

23,3170 

02030 

0 

0349 

REF 

1 

23,3171 

27720 

1 

034  91 

23,3172 

77624 

1 

FAZAB3 

03492 

REF 

13 

LAST 

1153 

23,3173 

51770 

0 

0350 

23,3174 

47014 

1 

0351 

REF 

13 

LAST 

1154 

23,3  175 

00707 

1 

0352 

REF 

1 

23,3176 

47222 

0 

0353 

REF 

2 

LAST 

38 

23,3177 

27005 

1 

0354 

23,3200 

77624 

1 

0355 

REF 

1 

23,3201 

26C70 

l 

0356 

23,3202 

77624 

1 

FAZAB4 

USER ' S PAGE  NO.  8 E5  S3 


VLOAD 

VAD 

START 

3RD  PHASE  OF  INC0RP2 

X 789 

7TH, 8TH, 9TH, COMPONENT  OF  STATE  VECTOR 

DELTAX  + 1 2 D 

INCORPORATION  FOR  X789 

STORE 

TX789 

BON 

RTB 

V EHUPFLG 

DOCSM 

MOVEPLEM 

BO  VB 

A XT  , 2 
TCDANZ IG 
0 

BOFF 

A XT  , 2 
MOONTHIS 
+ 2 
2 

VLOAD 

VSR* 

DELTAX 

0-7,2 

B27  IF 

MOON  ORBIT,  B29  IF  EARTH 

VAD 

BOV 

TDELTAV 

FAZAB1 

STOVL 

TDELTAV 
DELTAX  +6 

B5  IF 

MOON  ORBIT,  B7  IF  EARTH 

VSR* 

VAD 

0-4,2 

TNIJV 

BOV 

FAZAB2 

STC ALL 

TNUV 

FAZAB3 

VLOAD 

VAD 

RCV 

DELTAX 

STORE 

RCV 

VLOAD 

VAD 

VCV 

DELTAX  +6 

STORE 

VCV 

SX  A , 2 

CALL 
P BODY 
RECTIFY 

CALL 

GRP2PC 

BON 

RTB 

V EHUPFLG 
DOCSM l 
MOVEALEM 

CALL 

SVDWN2 

STORE 

DOWNLINK  STATE  VECTOR 

CALL 
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0357 

REF 

15 

LAST 

1154 

23 , 3203 

51770 

0 

GRP2PC 

0358 

23,3204 

77214 

0 

BOFF 

V LOAD 

0359 

KEF 

7 

LAST 

1153 

23,3205 

02746 

0 

DMENFLG 

0360 

REF 

1 

23,3206 

47211 

0 

FAZAB5 

036  1 

REF 

3 

LAST 

1154 

23,3207 

03472 

0 

T X709 

0362 

REF 

6 

LAST 

1154 

23,3210 

01701 

0 

STORE 

X789 

0363 

23,3211 

66  150 

0 

FAZAB5 

LX  A , 1 

SXA,  1 

0364 

REF 

4 

LAST 

1151 

23,3212 

02767 

0 

EGRESS 

0365 

REF 

9 

LAST 

1089 

23,3213 

00052 

0 

QPRET 

0366 

23,3214 

77776 

1 

EXIT 

0367 

REF 

57 

LAST 

871 

23,3215 

0 4626 

1 

TC 

POST  JUMP 

0368 

REF 

3 

LAST 

617 

23,3216 

27460 

0 

CADR 

INTWAKE 

0369 

23,3217 

52034 

1 

OOCSM 

RTB 

GOTO 

0370 

REF 

1 

23,3220 

26761 

0 

MOVE  PCSM 

0371 

REF 

1 

23,3221 

47131 

1 

FAZAB 

0372 

23,3222 

45034 

1 

DOCSM 1 

RTB 

CALL 

0373 

REF 

1 

23,3223 

26732 

0 

MOVEACSM 

0374 

REF 

2 

LAST 

309 

23,3224 

26114 

1 

SVDWN1 

0375 

23,3225 

77650 

1 

GOTO 

0376 

REF 

1 

23,3226 

47202 

1 

FAZAB4 

0377 

REF 

19 

LAST 

1150 

23,2504 

ZERUO 

= 

ZEROVECS 

0378 

23,3227 

OC  066 

1 

54DD 

DEC 

54 

0375 

23,3230 

77771 

0 

6 DD 

DEC 

-6 

0380 

23,3231 

0CC14 

l 

1 2DD 

DEC 

12 

0400 

REF 

1 

22,2000 

SETLOC 

RENDEZ 

040  1 

22 ,3  712 

BANK 

040  2 

REF 

1 

COUNT* 

$ $/ 1 NCOR 

0403 

22,3712 

51575 

1 

NEWZCOMP 

VLO  A C 

ABVAL 

040  4 

REF 

17 

LAST 

1152 

22,3713 

02643 

1 

Z I 

040  5 

REF 

1 

22,3714 

24  045 

0 

STOVL 

NORMZI 

0406 

REF 

18 

LAST 

1155 

22,3715 

02651 

1 

Z I +6 

040  7 

22,3716 

41446 

1 

ABVAL 

PUSH 

040  8 

22,3717 

50025 

0 

DSU 

BMN 

040  9 

REF 

2 

LAST 

1155 

22,3720 

00045 

0 

NORMZI 

0410 

22,3721 

45724 

1 

+ 3 

041  1 

22,3722 

45  545 

1 

DLOAO 

STADR 

0412 

REF 

3 

LAST 

1155 

22,3723 

77732 

1 

STORE 

NORMZ I 

0413 

22,3724 

51575 

1 

VLO  AD 

ABVAL 

0414 

REF 

19 

LAST 

1155 

22,3725 

02657 

1 

ZI  + l 2D 

0415 

22,3726 

45206 

1 

PUSH 

DSU 

0416 

REF 

4 

LAST 

1155 

22,3  72  7 

00045 

0 

NORMZI 

041  7 

22,3730 

71240 

1 

BMN 

DLOAD 

0418 

22,3731 

45734 

0 

+ 3 

0419 

22,3732 

77626 

0 

ST  ADR 

0420 

REF 

5 

LAST 

1155 

22,3733 

77732 

1 

STORE 

NORMZI 

042  1 

22,3734 

66  145 

1 

DLOAD 

SXA,  1 

042  2 

REF 

6 

LAST 

1155 

22 ,3  735 

00045 

0 

NORMZI 

042  3 

REF 

7 

LAST 

1155 

22,3736 

OC044 

1 

NORMZI 

0424 

22,3737 

62101 

0 

NORM 

I NCR , 1 

17:11  MAR.  19,1971  SKIPPER 
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6 DIMENSIONAL 
9 DIMENSIONAL 


EX  IT 


STORE  DOWNLINK  STATE  VECTOR 


LARGEST  ABVAL 


SAVE  XI 


GAP: 

L 

0425 

0426 

042  7 

042  8 

042  9 

0430 

0431 

0432 

0433 

0434 

043  5 

0436 

043  7 

043  8 

043  9 

0440 

0441 

0442 

044  3 

0444 

044  5 

0446 

0447 

044  8 

0449 

045  0 

0451 

0452 

0453 
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REF 

36 

LAST 

1149 

22,3740 

00047 

1 

XI 

22,3741 

0CC02 

0 

DEC 

2 

22,3742 

53775 

1 

VLOAD 

VSL* 

REF 

2C 

LAST 

1155 

22,3743 

02643 

1 

ZI 

22,3744 

20201 

0 

0,1 

REF 

21 

LAST 

1156 

22,3745 

26643 

1 

STOVL 

ZI 

REF 

22 

LAST 

1156 

22,3746 

02651 

1 

Z I +6 

22,3747 

77657 

0 . 

VSL* 

22,3  750 

20201 

0 

0,1 

REF 

23 

LAST 

1156 

22,3751 

26651 

1 

STOVL 

ZI  + 6 

REF 

24 

LAST 

1156 

22,3752 

02657 

1 

ZI  +12D 

22,3  753 

66057 

0 

VSL* 

SXA  , 1 

22,3754 

20201 

0 

0,1 

REF 

8 

LAST 

1155 

22,3755 

00045 

0 

NORMZI  +1 

SAVE  SHIFT 

REF 

25 

LAST 

1156 

22,3756 

02657 

1 

STORE 

ZI  + 1 2D 

22,3757 

54  150 

1 

LX  A , 1 

XSU,  1 

REF 

6 

LAST 

1153 

22,3760 

02102 

0 

NORMGAM 

REF 

9 

LAST 

1156 

22,3761 

00045 

0 

NORMZI  +1 

22,3762 

77660 

1 

XSU,  1 

REF 

10 

LAST 

1156 

22,3763 

00045 

0 

NORMZI  +1 

22 ,3  764 

70130 

1 

SXA , 1 

' LXC, 1 

REF 

7 

LAST 

1156 

22,3765 

02102 

0 

NORMGAM 

REF 

11 

LAST 

1156 

22,3766 

00C45 

0 

NORMZI  +1 

22,3767 

40270 

0 

XAO , 1 

SETPD 

REF 

12 

LAST 

1156 

22,3770 

00044 

1 

NORMZI 

22,3771 

00003 

1 

2D 

22,3772 

77650 

1 

GOTO 

REF 

2 

LAST 

1149 

22, 3773 

46652 

1 

INC0R2  -3 

0044 

NORM Z I 

= 

3 6D 

1 156 
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P0001  PROGRAM  DESCRIPTION  - ENTIRE  CCNIC  SUBROUTINE  LOG  SECTION 
R0003  MOD  NO.  - 0 

R0005  MOD  BY  KRAUSE 

R0007 


DATE  - 1 SEPTEMBER  1967 

LOG  SECTION  - CONIC  SUBROUTINES 

ASSEMBLY  - COLOSSUS  REVISION  88 


R0008  FUNCTIONAL  DESCRIPTION  - go  » 92 

5 >/ V V'  V v \!  Ki 

R0009  1 ...THE  FOLLOWING  SET. OF . SUBROUTINES.  SOLVE  VARIOUS  PROBLEMS  - INVOLVING-  THE  TRAJECTORY -PRODUCED  BY  A CENTRAL 

R0011  INVERSE-SQUARE  FORCE  ACTING  ON  A POINT  MASS,  AS  OUTLINED  IN  THE  CMC  AND  LGC  LUNAR  LANDING!  MISSION  GSOP , SECTION 

R0013  5.5.  1.2  . A GENERAL  USAGE  POI NT-OF-V I EW  WAS  TAKEN  IN  FORMULATING,  MECHANIZING,  AND  SCALING  THE  SUBROUTINES, 

R0015  RATHER  THAN  OPTIMIZING  EACH  FOR  A PARTICULAR  USE.  THEREFORE,  MULTIPLE  USAGE  CAN  BE  MADE  OF  THE  SUBROUTINES 

R0017  INVOLVING  ANY  REALISTIC  SET  OF  CONSTRAINTS.  IT  SHOULD  BE  NOTED  THAT  ONLY  ONE  SET  OF  CODING  IS  USED,  WHETHER  THE 

R0019  EARTH,  MOON,  OP  ANY  CTHER  CELESTIAL  BODY  IS  SPECIFIED  AS  THE  CENTRAL  BODY  OF  THE  PROBLEM,  PROVIDED  ONE  OBSERVES 

R0021  THE  INHERENT  SCALE  CHANGE  REQUIRED  IN  POSITION,  VELOCITY,  MU,  AND  TIME,  AS  OUTLINED  IN  MISSION  PROGRAMMING 

R0023  DEFINITION  MEMO  NO.  10.  THIS  CAN  BE  ACCOMPLISHED  BY  SIMPLY  ADDING  TO  THE  MUTABLE  AND  INITIALIZING  THE  SUBROU- 
R0025  TINES  APPROPRIATELY. 

R0026  OLE  TO  THE  UNIFORMITY  OF  THE  EQUATIONS  INVOLVED,  CODING  WAS  MINIMIZED  BY  TREATING  INDIVIDUAL  EQUATIONS  AND 

R0028  BLOCKS  OF  EQUATIONS  AS  SUBROUTINES  OF  LOWER  RANK  WHENEVER  POSSIBLE.  AS  A RESULT,  THREE  BY-PRODUCTS  SUBROUTINES, 
R0030  DIRECTLY  USABLE  AS  INDEPENDENT  SUBROUTINES,  WERE  GENERATED. 


R0031  RESTRICTIONS  - 

R0032  THE  ONLY  LIMITATION  IN  THE  SCOPE  OF  PROBLEM  WHICH  CAN  BE  SOLVED  BY  A PARTICULAR  SUBROUTINE  IS  THE  SCALING 

R003A  LIMIT  OF  EACH  PARAMETER  AS  SPECIFIED  IN  THE  GSOP.  THESE  SCALING  LIMITS  WERE  CHOSEN  SO  THAT  ALL  FEASIBLE  TRAJEC- 

R0036  TORIES  COULD  BE  HANDLED. 

R0037  SINCE  THE  SUBROUTINES  (EXCEPT  KEPLER)  USE  COMMON  SUBROUTINES  OF  LOWER  RANK  WHICH  USE  ERASABLE  OTHFR  THAN 

R0039  THE  PLSHLIST  (DUE  TO  ITS  LIMITED  SIZE)  AND  COMMON  INTERPRETIVE  SWITCHES,  THF  CONIC  SUBROUTINES  CANNOT  BE  ALLOWED 

R0041  TO  INTERRUPT  EACH  OTHER.  IT  IS  UP  TO  THE  USER  TO  GUARANTEE  THIS  CONDITION. 

R0043 
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P0044 

R0046 

R0048 

R0050 


R00502 


R 005 03 


R0051 

R0052 

P0054 

R0056 

R0058 

R0060 

R0062 

R0063 

R0065 

R0065  l 

R00653 

R0066 

R0067 
K0068 
R007  1 
R0073 
R0075 

R0076 

R0078 

R0080 

R0081 


R0082 

R0083 

R0005 

R0086 


R0087 

R0088 
R0089 
R0090 
R009  1 
R0092 


CONIC  SUBROUTINES 


USER'S  PAGE  NO.  2 FO  S3 


PROGRAM  DESCRIPTION  - KEPLER  SUBROUTINE 


DATE  - 11  OCTOBER  1967 


MOD  NO.  -1  LOG  SECTION  - CONIC  SUBROUTINES 
MOD  BY  KRAUSE  ASSEMBLY  - COLOSSUS  103  AND  SUNDANCE  222 
MOD  NO.  - 2 (AUGUST  1963  I BY  ROBERTSON:  TO  PERMIT  BACKDATING  BY  MORE  THAN  ONE  ORBITAL  PERIOD. 


MOD  NO.  - 3 (DEC  1968)  BY  ROBERTSON:  SUPPRESSION  OF  X-MODULO-ING 


MOD.  NO.  - 4 (JAN  1969)  BY  ROBERTSON:  CLEAR  OVFIND  AT  KEPLER  ENTRY 


FUNCTIONAL  DESCRIPTION  - 

THIS  SUBROUTINE,  GIVEN  AN  INITIAL  STATE  VECTOR  AND  THE  DESIRED  TRANSFER  TIME  THROUGH  WHICH  THE  STATE  IS  TO 
BE  UPCATED  ALONG  A CONIC  TRAJECTORY,  COMPUTES  THE  NEW,  UPDATED  STATE  VECTOR.  THE  TRAJECTORY  MAY  BE  ANY  CONIC 
SECTION  - CIRCULAR,  ELLIPTIC,  PARABOLIC,  HYPERBOLIC,  OR  RECTILINEAR  WITH  RESPECT  TO  THE  EARTH  OR  THE  MOON.  THF 
USE  OF  THE  SUBROUTINE  CAN  BE  EXTENDED  USING  OTHER  PRIMARY  BODIES  BY  SIMPLE  ADDITIONS  TO  THE  MUTABLE  WITHOUT 
INTRODUCING  ANY  CODING  CHANGES,  ACCEPTING  THE  INHERENT  SCALE  FACTOR  CHANGES  IN  POSITION  AND  VELOCITY.  AN  ITERA- 
TION TECHNIQUE  IS  UTILIZED  IN  THE  COMPUTATION. 

IF  A NEGATIVE  T I ME- 0 F- F L I GHT  IS  INPUT,  THE  PROGRAM  WILL  SOLVE  FOR  THE  STATF  WHICH  WOULD  BE  PRODUCED  BY 
EXTRAPOLATING  THE  POSITION  BACKWARD  IN  TIME. 

IF  THE  ABSOLUTE  VALUE  OF  THF  DESIRED  TRANSFER  TIME  EXCEEDS  THE  ORBITAL  PERIOD,  THE  SUBROUTINE,  THROUGH  A 
MODULAR  TECHNIQUE,  WILL  COMPUTE  THE  STATE  CORRESPONDING  TO  THE  DESIRED  TIME  (WHETHER  POSITIVE  OR  NEGATIVE). 


THE  RESTRICTIONS  ARE  - 

1.  (PREVIOUS  RESTRICTION  ON  THE  NEGATIVE  DESIRED  TRANSFER  TIME  IS  NOW  DELETED.) 

2.  THE  PARAMETERS  IN  THE  PROBLEM  CANNOT  EXCEED  THEIR  SCALING  LIMITS  AS  SPECIFIED  IN  THE  GSOP.  IF 
ANY  OF  THESE  LIMITS  ARE  EXCEEOED,  THE  RESULTING  SOLUTION  WILL  BE  MEANINGLESS. 


THE  NUMBER  OF  ITERATIONS  AND,  THEREFORE,  THE  COMPUTATION  SPEED  IS  DEPENDENT  ON  THE  ACCURACY  OF  THF 
GUESS,  XKEPNEW . THE  AGC  COMPUTATION  TIME  IS  APPROXIMATELY  .061  SECONDS  FOR  INITIALIZATION,  .065  SECONDS  FOR  THE 
FINAL  COMPUTATIONS,  PLUS  .003  SECONDS  FOR  EACH  ITERATION. 


REFERENCES  - 

R-479,  MISSION  PROGRAMMING  DEFINITION  MEMO  NO.  10,  LUNAR  LANDING  MISSION  GSOP,  SECTION  5.5,  SGA 
MEMO  67-4. 


INPUT  - ERASABLE  INITIALIZATION  REQUIRED 

* SCALE  FACTOR  * 

VARIABLE* IN  POWERS  OF  2*  DESCRIPTION  AND  REMARKS 

* * 

RRECT  * +29  FOR  EARTH*DP  INITIAL  POSITION  VECTOR  IN  METERS 

* +27  FOR  MOON  * 
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L 

R0093 
R0094 
R009  5 
R0097 
R009  8 
R00987 
R0099 
R0100 
R0101 
R0101  7 
RO 102 
RO  103 
R 0 10  5 
R0106 


R0107 
R0108 
RO  10  9 


ROll  0 

RO  1 1 1 
ROll  3 
R0114 

ROll  5 
ROll  7 
R0119 
R0120 


RO  12  1 
RO  12  2 
RO  12  3 


R0124 

RO  12  5 
R 0 12  6 
RO  12  7 
R 0 1 2 8 
K0129 
RO  13  0 
R0131 
R0132 
R 0 1 3 4 
RO  13  6 


CCNIC  SUBROUTINES 


USER'S  PAGE  NO. 


EO  S3 


VRECT 


+7  FOR  EARTH  *DP  INITIAL  VELOCITY  VECTOR 
+5  FOR  MOON  * 


IN  METERS/CENTISECOND 


XI  (3801*  NONE 
* 

TAU. 


* 
* 

XKEPNEW  * 
* 
* 


+ 28 


re 

XPREV 


+ 17 
+ 16 


+ 28 

+ 17 
+ 16 


FOR 

FOR 


FOR 

FOR 


*INDEX  REGISTFR  SET  TO  -20  OR  -100  ACCORDING  TO  WHETHER  THE  EARTH  OR  MOON, 

*RESPECTI VEL Y , IS  THE  CENTRAL  BODY 
^DESIRED  TRANSFER  TIME  IN  CENTISECONDS  (DP) 

* MAY  BE  POS  OR  NFG  AND  ABSOLUTE  VALUE  MAY  BE  GREATER  OR  LESS  than  ONE  ORBITAL  PERIOD. 

EARTH*DP  GUESS  OF  ROOT  X nF  KEPLERS  EQN  IN  SORT ( MET ERS ) . SIGN  SHOULD  AGREE  WITH  THAT  OF  TAU. 

MOON  * AND  ABS  VALUE  SHOULD  BE  LESS  THAN  THAT  CORRESPONDING  TO  A PERIOD, VIZ,  2PI  SQRT1SEMI- 

* MAJOR  AXIS), FOR  SPEED  OF  CONV ERGENC E , RUT  IF  EITHER  CONDITION  FAILS,  XKEPNEW  IS  RESET 

* BY  KEPLER  TO  A POOR  BUT  VALID  GUESS. 

*DP  PREV.  VALUE  OF  TIME  IN  CENTISECS.  MUST  BE  LFSS  THAN  ONE  ORBITAL  PERIOD. 

EAR  TH*DP  PREV.  VALUE  OF  X IN  SORT ( METERS ) . MUST  BE  LESS  THAN  AN  X CORRESPONDING  TO  ONE 

MOON  * ORBITAL  PER  I OD , V I Z , 2P I SORTI SEMI-MAJOR  AXIS) 


SUBROUTINES  CALLED 
DELT  IMF 


CALLING  SEQUENCE  AND  NORMAL  EXIT  MODES  - 

KEPRTN-2  GOTO  MUST  BE  IN  INTERPRETIVE  MODE  BUT  OVFIND  ARBITRARY. 

KEPRTN-1  KEPLER  RETURNS  WITH  XPREV  IN  MPAC.  PL  IS  AT  0. 

KEPP-TN  ...  CONTINUE 

KEPLER  MUST  NOT  BE  CALLED  DIRECTLY  SINCE  AN  INTERRUPTION  OF  IT  WOULD  DESTROY  THE  ERASABLES  IT  NEEDS  TO  COMPLETE 
THE  INTERRUPTED  JOB.  THEREFORE  THE  USER  MUST  CALL  CSMCONIC  OR  LEMCONIC  WHICH  GUARANTEES  NO  INTERRUPTS  AMD  WHICH 
ALSO  CALLS  KEPPREP  TO  COMPUTF  A GUESS  OF  XKEPNEW. 


ABORT  EXIT  MODES  - 
NCNE 


OUTPUT  - 


* SCALE  FACTOR  * 

VARIABLE*™  POWERS  OF  2*  DESCRIPTION  AND  REMARKS 

* * 

RCV  * +29  FOR  EARTH*D  P TERMINAL  POSITION  VECTOR  IN  METERS 

* +27  FOR  MOON  * 

VCV  * +7  FOR  EARTH  *DP  TERMINAL  VELOCITY  VECTOR  IN  METER S /C EN T I S EC 

* +5  FOR  MOON  * 

TC  * +28  *DP  TRANSFER  TIME  IN  CENTISECS  TO  WHICH  KEPLER  CONVERGED.  ALWAYS  LESS  THAN  ONF  PERIOD. 

XPREV  * +17  FOR  EARTH*DP  VALUE  OF  X IN  SQRT(METERS)  TO  WHCIH  KFPLER  CONVERGED.  ALWAYS  LESS  THAN  THE  X 

* +16  FOR  MOON  * CORRESPONDING  TO  ONE  PERIOD. 


GAP: 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021 l 12- 1 fcl 


L 7: 1 1 MAR.  19 , 1971 


L 

R0137 
R013  8 


R0139 

R0140 

R0141 
RO  142 
R0143 
R 0 144 
RO  14  5 
R0146 
RO  147 
RO  14  8 
R 0 14  8 1 
RO  14  8 3 

RO  149 
RO  150 
R0152 


SKIPPER  .131 

CONIC.  SUBROUTINES  USER'S  PAGE  NO.  4 

FOR  CTFER  OUTPUT  WHICH  MAY  BE  OF  USE,  SEE  DEBRIS. 


DEBRIS  - 

PARAMETERS  WHICH  MAY  BE  OF  USE  - 

* SCALE  FACTOR  * 

VARIA8LE*IN  POWERS  OF  2*  DESCRIPTION  AND  REMARKS 

$ * 

URRECT  * +1  * D P UNIT  VECTOR  OF  INITIAL  POSITION 

R 1 * +29  FOR  EARTH*DP  MAGNITUDE  OF  INITIAL  POSITION  IN  METERS 

* +27  FOR  MOON  * 

ALPHA  * -22  FOR  EARTH* DP  INVERSE  OF  SEMIMAJOR  AXIS  IN  1/METERS 

* -20  FOR  MOON  * 

TMCDULC  * +28  *DP  INTEGRAL  NUMBER  OF  PERIODS  IN  CENTISECS.  WHICH  WAS  SUBTRACTED  FROM  TAU.  TO 

* * TAU . OF  LESS  THAN  ONE  PERIOD. 

PARAMETERS  OF  NO  USE  - 

DP  PARAMETERS  - EPSILONT,  DEL  X , CELT,  RCNORM , XMODULO,  PLUS  PUSHLIST  REGISTERS  0 THROUGH  390. 


PAGE  1160 
EO  S3 


PRODUCE  A 
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L 

P0153 

R0155 

R0157 

R0159 


R0160 

R0161 
RO 163 
R0165 
R0167 
RO  16  9 
RO  17  1 
RO  17  2 

R0173 
RO  174 
R0175 
R0177 
R0179 
RO  180 
R0132 
R0184 
RO  18  5 
R0187 
RO  18  9 
R0191 


RO  192 
R0193 
RO  19  5 
RO  19  6 


RO  19  7 

RO  19  8 
R0199 
R0200 
R0201 
R0202 
R0203 
R0204 
R0205 
R0206 
R0208 
R0209 
R021  1 


CONIC  SUBROUTINES 

PROGRAM  DESCRIPTION  - LAMBERT  SUBROUTINE 
MOD  NO.  - 0 
MOD  BY  KRAUSE 


USER'S  PAGE  NO.  5 EO  S3 

DATE  - 1 SEPTEMBER  1967 

LOG  SECTION  - CONIC  SUBROUTINES 

ASSEMBLY  - COLOSSUS  REVISION  88 


FUNCTIONAL  DESCRIPTION  - 

THIS  SUBROUTINE  CALCULATES  THE  INITIAL  VELOCITY  REQUIRED  TO  TRANSFER  A POINT-MASS  ALONG  A CONIC  TRAJECTORY 
FRCM  AN  INITIAL  POSITION  TO  A TERMINAL  POSITION  IN  A PRESCRIBED  TIME  INTERVAL.  THE  RESULTING  TRAJECTORY  MAY  BE 
A SECTION  OF  A CIRCLE,  ELLIPSE,  PARABOLA,  OR  HYPERBOLA  WITH  RESPECT  TO  THF  EARTH  OR  the  MOON.  THE  USF  OF  THF 
SUBROUTINE  CAN  BE  EXTENDED  USING  OTHER  PRIMARY  BODIES  BY  SIMPLE  ADDITIONS  TO  THE  MUTABLE  WITHOUT  INTRODUCING  ANY 
CODING  CHANGES,  ACCEPTING  THE  INHERENT  SCALE  FACTOR  CHANGES  IN  POSITION  AND  VELOCITY.  AM  ITERATION  TECHNIQUE  IS 
UTILIZED  IN  THE  COMPUTATION. 


THE  RESTRICTIONS  ARE  - 

1.  RECTILINEAR  TRAJECTORIES  CANNOT  BE  COMPUTED. 

2.  AN  ACCURACY  DEGRADATICN  OCCURS  AS  THE  COSINE  OF  THE  TRUE  ANOMALY  DIFFERENCE  APPROACHES  +1.0. 

3.  THE  ANGLE  BETWEEN  ANY  POSITION  VECTOR  AND  ITS  VELOCITY  VECTOR  MUST  BE  GREATER  THAN  1 DEGREE  47.5  MINUTES 
AND  LESS  THAN  178  DEGREES  12.5  MINUTES. 

4.  NEGATIVE  TRANSFER  TIME  IS  AMBIGUOUS  AND  WILL  RESULT  IN  NO  SOLUTION. 

5.  THE  PARAMETERS  IN  THE  PROBLEM  MUST  NOT  EXCEED  THEIR  SCALING  LIMITS  SPECIFIED  IN  THE  GSOP.  IE  THF 
LIMITS  ARE  EXCEEDED,  THE  RESULTING  SOLUTION  WILL  BE  MEANINGLESS. 

THE  NUMBER  OF  ITERATIONS  AND,  THEREFORE,  THE  COMPUTATIONS  SPEED  IS  DEPENDENT  ON  THE  ACCURACY  OF  THE  FIRST 
GUESS  CF  THE  INDEPENDENT  VARIABLE,  COGA.  THE  AGC  COMPUTATION  TIME  IS  APPROXIMATE- 

LY . 1 C 5 SECONDS  FOR  INITIALIZATION,  .069  SECONDS  FOR  FINAL  COMPUTATIONS,  PLUS  .205  SECONDS  FOR  EACH  ITERATION. 


REFERENCES  - 

R-479,  MISSION  PROGRAMMING  DEFINITION  MEMO  NO.  10,  LUNAR  LANDING  MISSION  GSOP-SEC.T ION  5.5,  SGA  MEMO  67-8, 
SGA  MEMO  67-4. 


INPUT  - ERASABLE  INITIALIZATION  REQUIRED 


* SCALE  FACTOR  * 
VARIABLE*^  POWERS  OF  2* 


DESCRIPTION  AND  REMARKS 


* 


* 


R1VEC 


* +29  FOR  EARTH*DP 


INITIAL  POSITION  VECTOR  IN  METERS 


* +27  FOR 
R2VEC  * +29  FOR 

* +27  FOR 
TOESIRED*  +28 

XI  (380*  NONE 


* 

GECMSCN  * NONE 
GUESSW  * NONE 


MOCN  * 

EARTH*DP  TARGET  OR  TERMINAL  POSITION  VECTOR  IN  METERS 
MOON  * 

*DP  DESIREO  TRANSFER  TIME  IN  CENTISECONDS 

* I NDEX  REGISTER  SET  TO  -2D  OR  - 10D  ACCORDING  TO  WHETHER  THF  EARTH  OR  MOON, 

^RESPECTIVELY  , IS  THE  CENTRAL  BODY 

*SP  +.5  IF  DESIRED  TRANSFER  ANGLE  IS  LESS  THAN  180  DEGREES,  -.5  IF  GREATER  THAN  130  DEG. 
* AN  INTERPRETER  SWITCH  TO  BE  SET  IF  NO  GUESS  OF  COGA  IS  AVAILABLE,  CLEAR  IF  A GUESS  OF 
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L 

CONIC  SUBROUT  1 1 

R0213 

R0214 

R0216 

COGA  * 

+ 5 

R0217 

NORMSW  * 

NONE 

R0219 

* 

R0220 

UN  * 

+ 1 

R0222 

* 

R0224 

VTARGTAG* 

NONE 

R0226 

* 

R0227 

ITERCTR  * 

NONE 

R02271 

R02272 

❖ 

R02273 

R02274 

USER'S  PAGE  NO.  6 EO  S3 


*COGA  IS  TO  BE  USED  BY  LAMBERT 

*DP  GUESS  CF  COT ANGNT  OF  FLIGHT  PATH  ANGLE  (MEASURED  FROM  VERTICAL).  THIS  WILL  BE 
^IGNORED  IF  GUESSW  IS  SET. 

* AN  INTERPRETER  SWITCH  TO  BE  SET  IF  UN  IS  TO  BE  AN  INPUT  TO  THE  SUBROUTINE,  CLEAR  IF 
^LAMBERT  IS  TO  COMPUTE  ITS  OWN  NORMAL  (UN). 

*DP  UNIT  NORMAL  TO  THE  DESIRED  ORBIT  PLANE  IN  THE  DIRECTION  OF  THF  RFSULTING  ANGULAR 
^MOMENTUM  VECTOR'.  THIS  WILL  BE  IGNORED  IF  NORMSW  IS  CLEAR. 

* A S.P.  TAG  TO  BE  SET  TO  ZERO  IF  LAMBERT  IS  TO  COMPUTE  THE  VELOCITY  AT  R2VEC  AS  WELL  AS 
* AT  R1VEC. 

£ A S.P.  COUNTER  WHICH  SPECIFIES  THE  MAXIMUM  NUMBER  OF  ITERATIONS  ALLOWABLE. 

* ( AN  ITERATION  MEANS  A PASS  THRU  KEPLER  EQN  (DELTIME).  AT  LEAST  ONE  OF  THESE  MUST 
“ALWAYS  OCCUR,  EVEN  IF  COGA  CORRESPONDING  TO  SOLUTION  WERF  INPUT  AS  A GUESS.) 

^TWENTY  ITERATIONS  ARE  SUFFICIENT  TO  SOLVE  ALL  PROBLEMS  INCLUDING  THOSE  WITHOUT  GUESS. 


R0228  SUBRCL  TINES  CALLED  - 

R0229  GEOM , GET  X,  DFLTIME,  ITERATOR,  LAMENTER  (PART  OF  NEWSTATE) 

R0230 


R0231  CALLING  SEQUENCE  AND  NORMAL  EXIT  MODES  - 


R0232 

L 

CALL 

MUST  BE  IN  INTERPRETIVE  MODE  RUT  OVFIND  ARBITRARY. 

R0234 

L + L 

LAMBERT 

RETURNS  WITH  PL  AT  0 AND  WITH  VVFC  IN  MPAC  IF  VTARGTAG 

WAS 

NON-ZERO  OR  VTARGFT 

R023  6 

IN  MPAC  IF  VTARGTAG  WAS  ZERO 

R0237 

L + 2 

BON 

CONTINUE  IF  SOLNSW  CLEAR  SINCF  SOLUTION  IS  ACCEPTABLE 

R0239 

L + 3 

SOLNSW 

R0240 

L + 4 

LAMABORT 

R0241 

IF 

A LAMBERT  RESULT 

IS  TO 

BE  A FIRST  GUESS  FOR  the  NEXT  LAMBERT  CALCULATION,  COGA 

MUST 

BE  PRESERVED  AND 

R0243 

GUESSW 

MUST  BE  CLEAR  FOR 

EACH 

SUCCEEDING  LAMBERT  CALL. 

R0244 


R0245  ABORT  EXIT  MODES  - 

R0246  IF  SOLNSW  WAS  SET  UPON  EXITING,  EITHER  LAMBERT  WAS  ASKED  TO  COMPUTE  A 

R0248  WAS  TOO  SMALL  TO  PRODUCE  A REALISTIC  TRANSFER  BETWEEN  R1VEC  AND  R2VEC.  IN 


R0260 

ACCORDING  TO  THE 

NEEDS  OF  THE 

PARTICULAR  USER.  THE 

ABORT  EXIT 

MODE 

MAY  BE 

R0252 

LAMABORT  DLOAD 

ABS 

A MEASURE  OF 

PROXIMITY 

TO  0 

OR 

R0253 

1-CSTH 

360  DEGREES. 

R0254 

DSU 

BMN 

R0255 

ONEB IT 

R0256 

CHANGER2 

CHANGE  R2VEC 

DIRECTION 

SLIGHTLY. 

R0257 

DLOAD 

DAD 

R0258 

TOES IRED 

R0259 

SOMET IME 

R0260 

STCALL 

TOES  IRED 

INCREASE  TDES I RED 

R0261  LAMBERT 

R0262 


TRANSFER  TOO  NEAR  0 OR  360  DEG,  OR  T 
EITHER  CASE  THE  FIX  MUST  BE  MADE 
CODED  AS  ... 
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R0263 
R0264 
R0265 
R 026  6 
R0267 
R 026  9 
R0270 
R0272 
R0273 
R0275 
R0276 
R0277 


R0278 

R0279 

K0280 
R0281 
R0282 
R0283 
R0284 
R0285 
R 0 2 8 6 
R0289 
R0290 
R0291 
R0292 
R0293 
R0294 

R0295 
R029  b 
R0298 
R0300 


CCNIC  SUBROUTINES 


USER' S PAGE  NO.  7 EO  S3 


OUTPUT  - 

* SCALE  FACTOR  * 

VARIABLE* IN  POWERS  OF  2*  DESCRIPTION  AND  REMARKS 


# 

V VEC  * +7  FOR 

* +5  FOR 
VTARGET  * + 7 FOR 

* +5  FOR 
SOLNSW  * NONE 

FOR  CTFER  OUTPUT 


* 

EARTH  *DP  INITIAL  VELOCITY  VECTOR  IN  MET E RS /CENT  I SECOND  REQUIRED  TO  SATISFY  THE  BOUNDARY  VALUE 
MOON  ^PROBLEM. 

EARTH  *UP  RESULTANT  VELOCITY  VECTOR  AT  R 2 VEC  IN  M ETE R S/C E NT  I SEC OND . 

MOON  * 

^INTERPRETER  SWITCH  WHICH  IS  SET  IF  THE  SUBROUTINE  CANNOT  SOLVE  THE  PROBLFM , CLEAR  IF  THE 
^SOLUTION  EXISTS. 

WHICH  MAY  BE  OF  USE,  SEE  DEBRIS. 


DEBRIS  - 

PARAMETERS  WHICH  MAY  BE  CF  USE 


* SCALE  FACTOR  * 
VARIABLE* IN  POWERS  OF  2* 
* * 


DESCRIPTION  AND  REMARKS 

SIN  OF  ANGLE  BETWEEN  R1VEC  AND  R2VEC 

COSINE  OF  ANGLE 

1-CSTH 

COTAN  OF  INITIAL  REQUIRED  FLIGHT  PATH  ANGLE  MEASURED  FROM  VERTICAL 
RATIO  OF  SEMILATUS  RECTUM  TO  INITIAL  RADIUS 
RATIO  OF  INITIAL  RADIUS  TO  SEM  IMAJOR  AXIS 
INITIAL  RADIUS  IN  ME  TF  RS 

UNIT  VECTOR  OF  R1VEC 


I— R HO,  TPREV,  TERRLAMB,  R2,  RTNLAMB  (SP),  PLUS  PUSHLIST  REGISTER  0 THROUGH  41D 
ADDITIONAL  INTERPRETIVE  SWITCHES  USED  - INFINFLG,  360SW,  SLOPESW,  ORDERSW 


SNTH 

* 

+ 1 

*DP 

CSTH 

* 

+ 1 

*DP 

1-CSTH  * 

+ 2 

*DP 

COGA 

* 

+ 5 

*DP 

P 

❖ 

+4 

*DP 

R 1 A 

+ 6 

*DP 

R 1 ( 32D ) * 

+29 

FOR  EARTH*DP 

* 

+27 

FOR  MOON  * 

UR  1 

* 

+ 1 

*UP 

U 2 

❖ 

+ 1 

*DP 

PARAMETERS  OF  NO  USE 

DP  PARAMETERS 

- EPS  I LONL , ! 
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* L CONIC  SUBROUTINES 


USER'S  PAGE  NO.  8 EO  S3 


P0301  . PROGRAM  DESCRIPTION  - TIME-THETA  SUBROUTINE 

R0303  MOD  NO.  - 0 

R0305  MOD  BY  KRAUSE 

R0307 


DATE  - 1 SEPTEMBER  1967 

LOG  SECTION  - CONIC  SUBROUTINES 

ASSEMBLY  - COLOSSUS  REVISION  88 


R0308  FUNCTIONAL  DESCRIPTION  - 

R0309  THIS  SUBROUTINE,  GIVEN  AN  INITIAL  STATE  VECTOR  AND  A DESIRED  TRUE-ANOMAL Y-D 1 F F ER ENCE  THROUGH  WHICH  THE 

R0311  STATE  IS  TO  BE  UPDATED  ALONG  A CONIC  TRAJECTORY,  CALCULATES  THE  CORRESPONDING  T I ME-OF-FL I GHT  AND,  IN  ADDITION, 

R0313  PROVIDES  THE  OPTION  CF  COMPUTING  THE  NEW  UPDATED  STATE  VECTOR.  THE  RESULTING  TRAJECTORY  MAY  BE  A SECTION  OF  A 

R0315  CIRCLE,  ELLIPSE,  PARABOLA,  OR  HYPERBOLA  WITH  RESPECT  TO  THE  EARTH  OR  THE  MOON.  THE  USE  OF  THE  SUBROUTINE  CAN  BE 

R0317  EXTENDED  USING  OTHER  PRIMARY  BODIES  BY  SIMPLE  ADDITIONS  TO  THE  MUTABLE  WITHOUT  INTRODUCING  ANY  CODING  CHANGES, 

R0319  ACCEPTING  THE  INHERENT  SCALE  FACTOR  CHANGES  IN  POSITION  AND  VELOCITY. 

R0320 


R032  1 
R0322 
R0324 
R0325 
R032  7 

R0328 

R0329 


THE  RESTRICTIONS  ARE  - 

1.  THE  ANGLE  BETWEEN  ANY  POSITION  VECTOR  AND  ITS  VELOCITY  VECTOR  MUST  BE  GREATER  THAN  1 DEGREF  47.5  MINUTES 
AND  LESS  THAN  178  DEGREES  12.5  MINUTES. 

2.  THE  PARAMETERS  IN  THE  PROBLEM  MUST  NOT  EXCEED  THEIR  SCALING  LIMITS  SPECIFIED  IN  THE  GSOP.  IF  THF  LIMITS 
ARE  EXCEEDED,  THE  RESULTING  SOLUTION  WILL  RE  MEANINGLESS. 

THE  AGC  COMPUTATION  TIME  IS  APPROXIMATELY  .292  SECONDS. 


R3330  REFERENCES  - 

R0331  R-479,  MISSION  PROGRAMMING  DEFINITION  MEMO  NO.  10,  LUNAR  LANDING  MISSION  GSOP-SECTION  5.5,  SGA  MEMO  67-8. 

R0333 


R0334  INPUT  - ERASABLE  I N I T I AL IZAT I C N REQUIRED 


R0335 
R0336 
R0337 
R0338 
R0339 
R0340 
R0341 
RO  34  2 
R0344 
R0345 
R0  34  7 
R0348 
R 035  0 
R0351 


* SCALE  FACTOR  * 

VARIABLE* I N POWERS  OF  2*  DESCRIPTION  AND  REMARKS 

* * 


R V EC  * +29  FOR  EARTH*DP  INITIAL  POSITION  VECTOR  IN  METERS 

* +27  FOR  MOON  * 

V VEC  * +7  FUR  EARTH  *DP  INITIAL  VELOCITY  VECTOR  IN  MET E RS /CE NT  I SEC OND 

* +5  FOR  MOON  * 


SNTH  * +1 

CSTH  * +1 

PVSW  * NONE 

* 

XI  ( 3 8D ) *NONE 
* 


*DP  SINE  OF  TRUE-ANOMALY-D IFFERENCE  THROUGH  WHICH  THE  STATE  IS  TO 
*DP  COSINE  OF  THE  ANGLE 

* AN  INTERPRETIVE  SWITCH  TO  BE  SET  IF  ONLY  TIME  IS  TO  BE  AN  OUTPUT 
*IS  TO  BE  COMPUTED  ALSO. 

* I NDEX  REGISTER  TO  BE  SET  TO  -2D  OR  - 1 OD  ACCORDING  TO  WHETHER  THE 
*R  ESP  ECT I V EL Y , IS  THE  CENTRAL  BODY. 


BE  UPDATED 

CLEAR  IF  THE  NEW  STATE 
FARTH  CR  MOON, 


R0352 


SUBROL  TINES  CALLED 
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R0355  CALLING  SEQUENCE  AND  NORMAL  EXIT  MODES  - 
R0356  IF  ONLY  TIME  IS  DESIRED  AS  OUTPUT  - 

R035  / L SET  CALL  MUST  BE  IN  INTERPRETIVE  MODE  BUT  OVFIND  ARBITRARY. 

R0359  L+l  RVSW 

R0360  L + 2 TIMETHET  RETURN  WITH  PL  AJ  0 AND  T IN  MPAC 

R0361  L+3  ...  CONTINUE 

R0362 

R0363  IF  THE  UPDATE  STATE  VECTOR  IS  DESIRED  AS  WELL  - 

MUST  8E  IN  INTERPRETIVE  MODE  BUT  OVFIND  ARBITRARY. 


R0364 

L 

CLEAR 

CALL 

R0366 

L + l 

RVSW 

R0367 

R0369 

L + 2 

T IMETHET 

R0370 

L + 3 

STOVL 

NEWVVEC 

R0371 

L + 4 

STADR 

R0372 

L+5 

STORE 

NEWRVFC 

R0374 
R 0375 

L+6 

... 

R0376 

ABORT 

EXIT  MOOES 

R037  7 
R0379 
R0336 


RETURNS  WITH  PL  AT  6.  THE  INITIAL  POSITION  VECTOR  IS  IN  00  OF  THE  PIJSHLIST  AND 
THE  INITIAL  VELOCITY  VECTOR  IN  MPAC. 

NEWVVEC  AND  NEWRVEC  ARE  SYMBOLIC  REPRESENTATIONS  OF  THE  USERS  LOCATIONS. 
CONTINUE 


IF  COGAFLAG  AND/OR  INFINFLG  IS  SET  AT  THE  EXIT  TO  TIME-THETA,  TIME-THETA  WILL  TRANSFER  TO  POODOO  WITH 
AN  ALARM  CODE  (ORIGINALLY  006071,  AND  NOT  RETURN  TO  THE  CALLING  PROGRAM.  (PCP  692  AMD  721). 


R 038  7 
R038  8 
R0389 
R0390 
R0391 
R0392 
R0394 
RQ396 
R0398 


OUTPUT  - 


* SCALE  FACTOR  * 

VARIABLE* IN  POWERS  OF  2*  DESCRIPTION  AND  REMARKS 

^ # 


T (300)  * +28 
INFINFLG*  NONE 
* 

COGAFLAG*  NONE 
* 


*DP  TRANSFER  TIME  IN  CENTISECONDS 

*AN  INTERPRETIVE  SWITCH  WHICH  IS  SET  IF  THE  TRANSFER  ANGLF  REQUIRES  CLOSURE 
* I NF I N I TY  (NO  SOLUTION),  CLEAR  IF  A PHYSICAL  SOLUTION  IS  POSSIBLE. 

* AN  INTERPRETIVE  SWITCH  WHICH  IS  SET  IF  RESTRICTION  1 HAS  BEEN  VI OLATFD  (NC 
*CLEAR  IF  NUT. 


THROUGH 
SOLUTION ) , 


R0399  IN  ADC  I T ION , IF  RVSW  IS  CLEAR,  THE  FOLLOWING  ARE  OUTPUT- 

R0400  MPAC  - * +7  FOR  EARTH  *DP  TERMINAL  VELOCITY  VECTOR  IN  METERS/CENT  I SEC . 

R0401  MPAC  +5*  +5  FOR  MOON  * 

R0402  OD  - 5D  * +29  FOR  E ARTH*DP  TERMINAL  POSITION  VECTOR  IN  METERS  (PL  AT  6D) 
R0403  * +27  FOR  MOON  * 


R0404  FOR  CTFER  OUTPUT  WHICH  MAY  BE  OF  USE,  SEE  DEBRIS. 
R 040  5 


GAP:  ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  RY  NASA  20211  12-161 

L CCNIC  SUBROUTINES 


17:11  MAR.  19,1971  SKIPPER 
USER'S  PAGE  NO.  10 


.131  PAGE  1166 
EO  S3 


R0406  • DEBRIS  - 

R0407  PARAMETERS  WHICH  MAY  BE  CF  USE  - 


R 040  8 
R0409 
R0410 


* SCALE  FACTOR  * 
VARIABLE*IN  POWERS  OF  2* 


DESCRIPTION  AND  REMARKS 


R 04 1 1 

R 1 ( 32D ) 

* 

+ 29 

FOR 

EARTH*DP 

MAGNITUDE  OF  INITIAL  POSITION 

VECTOR 

R041  3 

+ 27 

FOR 

MOON  * 

R0414 

R 1 A 

❖ 

+ 6 

*DP 

RATIO  OF  R 1 TO 

SEMIMAJOR  AXIS 

(NEG. 

R0416 

P 

❖ 

+ 4 

*DP 

RATIO  OF  SEMILATUS  RECTUM  TO  1 

R 1 

R04 1 7 

COGA 

❖ 

+ 5 

*DP 

COTAN  OF  ANGLE 

BETWEEN  RVEC  AND  VVEC 

R0419 

UR  1 

* 

+ 1 

*DP 

UNIT  VECTOR  OF 

RVEC 

R0420 

U2 

* 

+ 1 

*0P 

UNIT  VECTOR  OF 

VVEC 

R042  1 

UN 

* 

+ 1 

*DP 

UNIT  VECTOR  OF 

UR  1*U2 

RVEC , IN  METERS 


FOR  HYPERBOLIC  TRAJECTORIES! 


R0422 


R0423  PARAMETERS  OF  NO  USE  - 


R0424 

R0426 

R0427 


SP  PARAMETERS  - RTNTT  , GEOMSGN, 
ADDITIONAL  INTERPRETIVE  SWITCHES 


RTNPRM,  MAGVEC2=R2  (DP), 
USED  - NORM S W , 360SW 


PLUS  PUSHLIST  LOCATIONS  0-110,  14D-21D,  24D-39D,  41D 
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P042  8 
R0430 
R0432 
R0434 


R0435 

R043  6 
R043  8 
R0440 
R0442 
R0444 
R 0446 
R0447 
R0449 
R045  1 

R0452 
R0453 
R045  5 
R0456 
R045  8 
R0458  1 
R 045  8 3 
R04585 
R045  8 7 

R0459 

R0460 


R046  1 
R0462 
R0464 


R0465 

R0466 
R0467 
R0468 
R0469 
R0470 
R047  l 
R0472 
R0473 
R0475 
R0476 
R0478 


CONIC  SUBROUTINES 

■PROGRAM  DESCRIPTION  - TIME-RADIUS  SUBROUTINE 
MOD  NO.  -1 
MOD  BY  KRAUSE' 


USER'S  PAGE  NO.  11  EO  S3 

DATF  - 11  OCTOBER  1967 

LOG  SECTION  - CONIC  SUBROUTINES 
ASSEMBLY  - COLOSSUS  REVISION  88 


FUNCTIONAL  DESCRIPTION  - 

THIS  SUBROUTINE,  GIVEN  AN  INITIAL  STATE  VECTOR  AND  A DESIRED  RADIUS  TO  WHICH  THE 
STATE  IS  TO  BE  UPDATED  ALONG  A CCNIC  TRAJECTORY,  CALCULATES  THE  CORRESPONDING  TI ME-OF-FL I GHT  AND,  IN  ADDITION, 
PROVIDES  THE  OPTION  OF  COMPUTING  THE  NEW  UPDATED  STATE  VECTOR.  THE  RESULTING  TRAJECTORY  MAY  BE  A SECTION  OF  A 
CIRCLE,  ELLIPSE,  PARABOLA,  OR  HYPERBOLA  WITH  RESPECT  TO  THE  EARTH  OR  THE  MOON.  THE  USE  OF  THE  SUBROUTINE  CAN  BE 
EXTENDED  USING  OTHER  PRIMARY  BODIES  BY  SIMPLE  ADDITIONS  TO  THE  MUTABLE  WITHOUT  INTRODUCING  ANY  CODING  CHANGES, 
ACCEPTING  THE  INHERENT  SCALE  FACTOR  CHANGES  IN  POSITION  AND  VELOCITY. 

IF  THE  DESIRED  RADIUS  IS  BEYOND  THE  RADIUS  OF  APOCENTER  OF  THE  CONIC  OR  BELOW  THE  RADIUS  OF  PER ICFNTER , 
APSESW  WILL  BE  SET  AND  THE  SUBROUTINE  WILL  RETURN  THE  APOCENTER  OR  PERICENTER  SOLUTION,  RESPECTIVELY. 


THE  RESTRICTIONS  ARE  - 

1.  THE  ANGLE  BETWEEN  ANY  POSITION  VECTOR  AND  ITS  VELOCITY  VECTOR  MUST  BE  GREATER  THAN  1 DEGREE  47.5  MINUTES 
AND  LESS  THAN  178  DEGREES  12.5  MINUTES. 

2.  THE  PARAMETERS  IN  THE  PROBLEM  MUST  NOT  EXCEED  THEIR  SCALING  LIMITS  SPECIFIED  IN  THE  GSOP.  IF  THE  LIMITS 
ARE  EXCEEDED,  THE  RESULTING  SOLUTION  WILL  BE  MEANINGLESS. 

3.  AN  ACCURACY  DEGRADATION  OCCURS  AS  THE  SENSITIVITIES  OF  TIME  AND  UPDATED  STATE  VECTOR  TO  CHANGES  IN 
ROES  I RED  INCREASE.  THIS  WILL  OCCUR  NEAR  EITHER  APSIS  OF  THE  CONIC  AND  WHEN  THE  CONIC  IS  NEARLY  CIRCULAR.  IN 
PARTICULAR,  IF  THE  CONIC  IS  AN  EXACT  CIRCLE,  THE  PROBLEM  IS  UNDEFINED  AND  THE  SUBROUTINE  WILL  ABORT. 


TEE  AGC  COMPUTATION  TIME  IS  APPROXIMATELY  .363  SECONDS 


REFERENCES  - 

R-479 , MISSION  PROGRAMMING  DEFINITION  MEMO  NO.  10,  LUNAR  LANDING  MISSION  GSOP-SECTION  5.5,  SGA  MEMO  67-8. 


INPUT  - ERASABLE  INITIALIZATION  REQUIRED 


* SCALE  FACTOR  * 

VARIABLE* IN  POWERS  OF  2*  DESCRIPTION  AND  REMARKS 

* * 


RVEC  * +29  FOR  EARTH*DP  INITIAL  POSITION  VECTOR  IN  METERS 

* +27  FOR  MOON  * 

VVEC  * +7  FOR  EARTH  *DP  INITIAL  VELOCITY  VECTOR  IN  MET ERS/CENT I SECOND 

* +5  FOR  MOON  * 

RDES I RED*  +29  FOR  E ART  H*  DP  TERMINAL  RADIAL  DISTANCE  ON  CONIC  TRAJECTORY  FOR  WHICH  TRANSFER  TIME  IS  TO  BE 

* +27  FOR  MOON  ^COMPUTED. 

SGNRDCT  * NONE  *SP  TAG  SET  TO  +.5  OR  -.5  ACCORDING  TO  WHETHER  THE  RADIAL  VELOCITY  AT  RDESIRFD  IS  TO  BE 

* ^POSITIVE  OR  NEGATIVE,  RESPECTIVELY.  THIS  TAG  REDUCES  THE  DOUBLE-VALUED  PROBLEM  TO  A 


GAP: 

L 

R0480 
R048  1 
R0483 
R0484 
R0486 
R0487 


R0488 
R0489 
R049  0 


R 049  1 

R 0492 
R0493 
R0495 
R0496 
R0497 
R 049  8 

R0499 
R0500 
R0502 
R 050  3 
R050  5 
R0506 
R0507 
R0508 
R0510 
R051  1 


R0512 
R051  3 
R0515 
R0522 


R0523 
R0524 
K0525 
R 052  6 
R0527 
R0528 
R0530 
R0532 
R0534 
R0535 
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XI  ( 3 8U  ) *NONE 

RVSW  * NONE 
* 
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^SINGLE-VALUED  PROBLEM. 

* I NDE  X REGISTER  TO  BE  SET  TO  -20  OR  -10D  ACCORDING  TO  WHETHER  THE  EARTH  OP.  MOON, 
♦RESPECTIVELY,  IS  THE  CENTRAL  BODY. 

*AN  INTERPRETIVE  SWITCH  TO  BE  SET  IF  ONLY  TIME  IS  TO  BE  AN  OUTPUT,  CLEAR  IE  THE  NEW  STATE 

♦ IS  TO  BE  COMPUTED  ALSO. 


SUBROUTINES  CALLED  - 

PARAM,  GEOM  , GETX , DELTIME,  NEWSTATE 


CALLING  SEQUENCE  AND  NORMAL  EXIT  MODES  - 
IF  ONLY  TIME  IS  DESIRED  AS  OUTPUT  - 

L SET  CALL  MUST  BE  IN  INTERPRETIVE  MODE  BUT  OVEIND  ARBITRARY. 

L+l  RVSW 

L+2  TIMERAD  RETURN  WITH  PL  AT  0 AND  T IN  MPAC 

L+3  ...  CONTINUE 


IF  THE  UPDATF  STATE  VECTOR  IS  DESIRED  AS  WELL  - 

MUST  BE  IN  INTERPRETIVE  MODE  BUT  OVEIND  ARBITRARY. 


L 

CLEAR 

CALL 

L + l 

RVSW 

L + 2 

TIMERAD 

L + 3 

STOVL 

NEWVVEC 

L + 4 

STADR 

L + 5 

STORE 

NEWRVEC 

L + fc 

... 

ABORT 

EXIT  MODES 

RETURNS  WITH  PL  AT  6.  THE  INITIAL  POSITION  VECTOR  IS  IN  OD  OF  THE  PUSHLIST  AND 
THE  INITIAL  VELOCITY  VECTOR  IN  MPAC. 

NEWVVEC  AND  NEWRVEC  ARE  SYMBOLIC  REPRESENTATIONS  OF  THE  USFRS  LOCATIONS. 
CONTINUE 


IF  SOLNSW  AND/OR  COGAFLAG  AND/OR  INFINFLG  IS  SET  AT  THE  EXIT  TO  TIME-RADIUS,  TIME-RADIUS  WILL  TRANSFER 
TO  POODOO  WITH  AN  ALARM  CODE  (ORIGINALLY  00607),  AND  NOT  RETURN  TO  THE  CALLING  PROGRAM.  (PCR  692  & 721) 


OUTPUT  - 


* SCALE  FACTOR  * 

VARI ABLE* IN  POWERS  OF  2*  DESCRIPTION  AND  REMARKS 

$ if  


T ( 30D ) * +28 
INFINFLG*  NONE 
$ 

COGAFLAG*  NONE 
* 

APSESW  * NONE 


*DP  TRANSFER  TIME  IN  CENTISECONDS 

* AN  INTERPRETIVE  SWITCH  WHICH  IS  SET  IF  RDESIRED  AND  SGNRDOT  REQUIRE  CLOSURE  THROUGH 
* I NF I N I T Y (NO  SOLUTION),  CLEAR  IF  A PHYSICAL  SOLUTION  IS  POSSIBLE. 

*AN  INTERPRETIVE  SWITCH  WHICH  IS  SET  IF  RESTRICTION  1 HAS  RFFN  VIOLATED  (NO  SOLUTION), 
*CLEAR  IF  NOT. 

*AN  INTERPRETIVE  SWITCH  WHICH  IS  SET  IF  RDESIRED  WAS  GREATER  THAN  RADIUS  OF  APOCENTER  OR 
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R0537 

R0539 

R0541 

R0541  1 

R05413 

R0541 5 

R0S42 

R0543 

R0544 

R0545 

R0546 

R0547 

R0548 

R0549 


I 

» 

I 


❖ 

♦ ' 

♦ ' 

SOLNSW  * NONE 


* LESS  THAN  RADIUS  OF  PERICENTER.  THE  APOCENTER  OR  PERICENTER  SOLUTION,  RESPECTIVELY, 

♦ WILL  THEN  BE  RETURNED.  THE  SWITCH  IS  CLEAR  IF  ROES IR  ED  WAS  BETWEEN  PERICENTER  AND 
♦APOCENTER. 

♦AN  INTERPRETIVE  SWITCH  WHICH  IS  SET  IF  THE  CONIC  IS  SO  CLOSE  TO  A CIRCLE  THAT  THE  TERMIN 
♦POINT  IS  AMBIGUOUS,  VIOLATING  RESTRICTION  3.  IF  FCCENTRICITY  IS  GREATER  THAN  2-TO-THE- 
♦MINUS-18,  THE  SWITCH  IS  CLEAR. 


IN  ADDITION,  IF  RVSW  IS  CLEAR,  THE  FOLLOWING  ARE  OUTPUT- 

M P AC  - * +7  FOR  EARTH  ♦ DP  TERMINAL  VELOCITY  VECTOR  IN  METER S /C ENT  I SEC  . 

MPAC  +54  +5  FOR  MOON  * 

OD  - 5D  * +29  FOR  EARTHYDP  TERMINAL  POSITION  VECTOR  IN  METERS  (PL  AT  6D) 
♦ +27  FOP  MOON  * 


FOR  OTHER 


OUTPUT  WHICH  MAY  BE  OF  USE, 


SEE  DEBRIS. 


R0550  DEBRIS  - 


R0551  PARAMETERS  WHICH  MAY  BE  OF  USE  - 


R0552 

❖ 

SCALE  FACTOR  * 

R0553 

VARIABLE*IN  POWERS  OF  2* 

R0554 

R 1 ( 

32D)* 

+29 

FOR  EARTH*DP 

R0555 

R0557 

4* 

+ 27 

FOR  MOON  * 

R0558 

R 1 A 

* 

+ 6 

♦ DP 

R0560 

P 

* 

+4 

♦ DP 

R056  1 

COGA 

* 

+ 5 

♦ DP 

R0563 

UR  1 

+ 1 

♦ DP 

R0564 

U2 

* 

+ 1 

♦ DP 

R0565 

UN 

* 

+ 1 

♦ DP 

R0566 

CSTH 

* 

+ 1 

♦ DP 

R0568 

R0569 

SNTH 

* 

+ 1 

♦ DP 

DESCRIPTION  AND  REMARKS 


MAGNITUDE  OF  INITIAL  POSITION  VECTOR,  RVEC,  IN  METERS 

RATIO  OF  R 1 TO  SEMIMAJOR  AXIS  (NEG.  FOR  HYPERBOLIC  TRAJECTORIES) 

RATIO  OF  SEMILATUS  RECTUM  TO  R 1 

COTAN  OF  ANGLE  BETWEEN  PVEC  AND  VVEC 

UNIT  VECTOR  OF  RVEC 

UNIT  VECTOR  OF  VVEC 

UNIT  VECTOR  OF  UR1*U2 

COSINE  OF  TRUE  ANOMALY  DIFFERENCE  BETWEEN  RVEC  AND  ROESIRFD. 

SINE  OF  TRUE  ANOMALY  DIFFERENCE. 


R 0 5 7 0 
R057  1 
R 0 57  3 
R 0 574 


PARAMETERS  OF  NO  USE  - 
SP  PARAMETERS  - RTNTT , GEOMSGN , 
ADDITIONAL  INTERPRETIVE  SWITCHES 


RTNPRM,  MAGVEC2=R2  (DP), 
USED  - NORMSW , 360SW 


PLUS  PUSHLIST  LOCATIONS  0-110,  14D-21D,  24D-39D, 


4 1 D 


GAP: 

* L 

P0575 

R0577 

R0579 

R0581 


R0582 

R0563 
R 0585 
R0587 
R0589 
R0591 
R0592 

R0593 

R0594 

R9596 

R0598 

R0600 

R060  l 
R0602 


K0603 

R06C4 

R0606 


R0607 

R0608 
R0609 
R0610 
R061  1 
R0612 
R0613 
R0614 
R0615 
R061  t 
R061  8 


R061  9 
R0620 
R062  1 


R0622 
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PROGRAM  DESCRIPTION  - APSIDES  SUBROUTINE 
MOD  NO.  - 0 
MOD  BY  KRAUSE 


DATE  - 1 SEPTEMBER  1967 

LOG  SECTION  - CONIC  SUBROUTINES 

ASSEMBLY  - COLOSSUS  REVISION  88 


FUNCTIONAL  DESCRIPTION  - 


THIS  SUBROUTINE,  GIVEN  AN  INITIAL  STATE  VECTOR  CALCULATES  THE  RADIUS  OF  PER IC  ENT  FR 
ECCENTRICITY  OF  THE  RESULTING  CONIC  TRAJECTORY,  WHICH  MAY  BE  A STRAIGHT  LINE, 

CIRCLE,  ELLIPSE,  PARABOLA,  OR  HYPERBOLA  WITH  RESPECT  TO  THE  EARTH  OR  THE  MOON.  THE  USE 
EXTENDED  USING  OTHER  PRIMARY  BODIES  BY  SIMPLE  ADDITIONS  TO  THE  MUTABLE  WITHOUT  INTRODUCE 
ACCEPTING  THE  INHERENT  SCALE  FACTOR  CHANGES  IN  POSITION  AND  VELOCITY. 


AND  OF 

OF  THE 
NG  ANY 


APOCENTER  AND  THE 

SUBROUTINE  CAN  BE 
COOING  CHANGES, 


THE  RESTRICTIONS  ARE  - 

1.  IF  APOCENTER  IS  BEYOND  THE  SCALING  OF  POSITION,  THE  SCALE  FACTOR  LIMIT  (536,870,910  METERS  WITH  RESPECT 
TO  THE  EARTH  OR  134,217,727.5  METERS  WITH  RESPECT  TO  THE  MOON)  WILL  BE  RETURNED. 

2.  THE  PARAMETERS  IN  THE  PROBLEM  MUST  NOT  EXCEED  THEIR  SCALING  LIMITS  SPECIFIED  IN  THE  GSOP.  IF  THE  LIMITS 
ARE  EXCEEDED,  THE  RESULTING  SOLUTION  WILL  BE  MEANINGLESS. 

TEE  AGC  COMPUTATION  TIME  IS  APPROXIMATELY  .103  SECONDS. 


REFERENCES  - 

MISSION  PROGRAMMING  DEFINITION  MEMO  NO.  10,  LUNAR  LANDING  MISSION  GSOP-SECTION  5.5 


INPUT  - ERASABLE  INIT IAL IZATICN  REQUIRED 


* SCALE  FACTOR  * 
VARIABLE* IN  POWERS  OF  2* 
* * 


DESCRIPTION  AND  REMARKS 


RVEC 

* 

+29  FOR 

EARTH* DP 

INIT 

IAL 

POSITION 

VECTOR 

IN 

MET 

ERS 

+27  FOR 

MOCN 

V VEC 

* 

+ 7 FOR 

EARTH 

*D  P 

INIT 

IAL 

VELOCITY 

VECTOR 

IN 

MET 

ERS/CENTI SECOND 

* 

+ 5 FOR 

MOON 

* 

XI  (380) *NONE 
* 


♦INDEX  REGISTER  TO  BE  SET  TO  -2D  OR  - 1 OD  ACCORDING  TO  WHFTHER  THE  EARTH  CR  MOON, 
♦RESPECTIVELY,  IS  THE  CENTRAL  BODY. 


SUBROUTINES 

PARAM, 


CALLED  - 
GEOM 


CALLING  SEQUENCE  AND  NORMAL  EXIT  MODES  - 
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L CCMC  SUBROUTINES 


R0623 

IF 

CNLY  TIME 

IS  DESIRED 

AS  OUTPUT  - 

R0624 

L 

CALL 

MUST  BE 

IN  INTERPRET 

R0626 

L+l 

APSIDES 

RETURNS 

WITH  PL 

AT  0 

R0628 

L + 2 

STOOL 

APOAPSE 

R0629 

L + 3 

^0 

R0630 

L + 4 

STORE 

PERI  APSE 

APOAPSE 

AND 

R0632 

R0633 

L + 5 

• • • 

CONTINUE 

USER ’ S PAGE  NO.  15  EO  S3 

IVE  MODE  BUT  OVFIND  ARBITRARY. 

, RADIUS  OF  APOCENTER  IN  MPAC  AND  RADIUS  OF  PERICENTFR  IN  OD 
PER IAPSE  ARE  SYMBOLIC  REPRESENTATIONS  OF  THE  USERS  LOCATIONS 


R0634  OUTPUT  - 

R0635  * SCALE  FACTOR  * 

R0636  VAR  I ABL  E* IN  POWERS  OF  2*  DESCRIPTION  AND  REMARKS 

R063  7 * * 

R0638  MPAC  * +29  FOR  EARTH*DP  RADIUS  OF  APOCENTER  IN  METERS 
R0639  * +27  FOR  MOCN  * 

R0640  OD- 1 D * +29  FOR  EARTH*UP  RADIUS  OF  PERICENTER  IN  METERS 
R064  1 * +27  FOR  MOON  * 

R0642  ECC  * +3  *DP  ECCENTRICITY  OF  CONIC  TRAJECTORY. 

R0643  FOR  OTHER  OUTPUT  WHICH  MAY  BE  OF  USE,  SEE  DEBRIS. 

R0644 


R0645  DEBRIS  - 


R0646 


PARAMETERS  WHICH  MAY  BE  OF  USE  - 


R0647 
R0648 
R0649 
R0650 
R0652 
K0653 
R0655 
R0656 
R0658 
R0659 
R0660 
R066  1 
R0662 
R0663 


* SCALE  FACTOR  * 

VAR  I ABL  E* IN  POWERS  OF  2* 
* * 

R 1 l 32D ) * +29  FOR  EARTH*DP 

* +27  FOR  MOON  * 


R 1 A * +6  *DP 
P * +4  *DP 
COGA  * +5  *DP 
UR  1 * +1  *0P 
U2  * +1  *DP 
UN  * +1  *DP 


MAGVEC2  * +7  FOR  EARTH  *DP 
* +5  FOR  MOON  * 


DESCRIPTION  AND  REMARKS 


MAGNITUDE  OF  INITIAL  POSITION  VECTOR,  RVEC,  IN  METERS 

RATIO  OF  R 1 TO  SEMIMAJOR  AXIS  (NEG.  FOR  HYPERBOLIC  TRAJECTORIES) 

RATIO  OF  SEMILATUS  RECTUM  TO  R1 

COTAN  OF  ANGLE  BETWEEN  RVEC  AND  VVEC 

UNIT  VECTOR  OF  RVEC 

UNIT  VECTOR  OF  VVEC 

UNIT  VECTOR  OF  URl*U2 

MAGNITUDE  OF  VVEC 


R0664  PARAMETERS  OF  NO  USE  - 

R0665  SP  PARAMETERS  - RTNAPSE,  GEOMSGN,  RTNPRM , PLUS  PUSHLIST  LOCATIONS  0-5,10D-llD,  14D-21D,  31D-38D. 

R0667  ADDITIONAL  INTERPRETIVE  SWITCHES  USED  - NORMSW 

R0668 


GAP: 

L 

0670 

0671 

0672 

0678 

0679 

0680 

063  1 

0683 

0689 

0685 

0686 

0687 

0688 

0689 

0690 

0691 

069  2 

0693 

0699 

0695 

0696 

0697 

0698 

0699 

0700 

070  1 

0702 

0703 

0709 

0705 

0706 

0707 

0708 

0709 

0710 

071  1 

0712 

0713 

0719 

0715 

0716 

0717 

0718 

0719 
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12,2023 

8ANK 

REF 

1 

COUNT* 

$$/CQNI C 

REF 

2 

LAST 

130 

E5, 1721 

E8ANK= 

UR1 

12,2023 

9C001 

1 

KEPLERN  SETPO 

BOV 

12,2029 

00001 

0 

0 

12,2025 

29026 

0 

+ 1 

12,2026 

77773 

1 

VLOAD* 

REF 

9 

LAST 

696 

12,2027 

10005 

0 

MUTABLE , 1 

12,2030 

29017 

1 

STOVL 

19D 

REF 

9 

LAST 

713 

12,2031 

C 1 503 

0 

RRECT 

12,2032 

66256 

0 

UNIT 

SSP 

REF 

2 

LAST 

69  1 

12,2033 

00027 

1 

ITERCTR 

12,2039 

00029 

l 

2 OD 

REF 

2 

LAST 

130 

12,2035 

16697 

0 

STOOL 

URRECT 

12,2036 

0CC95 

0 

36D 

REF 

5 

LAST 

693 

12,2037 

29091 

1 

STOVL 

R 1 

REF 

5 

LAST 

1172 

12,2090 

01503 

0 

RRFCT 

12,2091 

76991 

1 

DOT 

SL1R 

REF 

3 

LAST 

510 

12,2092 

01511 

0 

VRECT 

12,2093 

76905 

1 

DMP 

SL1R 

REF 

1 

12,2099 

00C23 

0 

1/ROOTMU 

REF 

1 

12,2095 

29093 

0 

STOVL 

KEPC1 

REF 

9 

LAST 

1172 

12,2096 

01511 

0 

VRECT 

12,2097 

57236 

1 

VSQ 

DMPR 

REF 

1 

12,2050 

00017 

1 

1/MU 

12,2051 

52905 

1 

DMP 

SL3 

REF 

6 

LAST 

1172 

12,2052 

0 fi  P 9 1 

1 

R 1 

12,2053 

61925 

0 

DSU 

ROUND 

REF 

1 

12,2059 

11036 

1 

Dl/69 

REF 

1 

12,2055 

00095 

0 

STORE 

KEPC2 

12,2056 

79921 

0 

BDSU 

SR1R 

REF 

2 

LAST 

1172 

12,2  C57 

1 1036 

1 

Dl/69 

12,2060 

77671 

1 

DDV 

REF 

7 

LAST 

1172 

12,2061 

00091 

1 

R 1 

REF 

1 

12,2062 

00011 

1 

STORE 

ALPHA 

12,2063 

71299 

0 

BPL 

OLOAD 

REF 

1 

12,2069 

29073 

0 

1 REV 

REF 

1 

12,2065 

11059 

0 

-50SC 

12,2066 

90C71 

0 ’ 

DDV 

BOV 

REF 

2 

LAST 

1172 

12,2067 

00011 

l 

ALPHA 

REF 

1 

12,2070 

29077 

1 

STOREMAX 

12,2071 

52  166 

1 

SORT 

GOTO 

REF 

2 

LAST 

1172 

12,2072 

29077 

1 

STOREMAX 

12,2073 

55366 

1 1 REV 

SORT 

8DDV 

1/ROOTMU  (-17  OR  -19) 

C 1=R. V/ROOTMU  (+17  OR  +16) 


1/MU  (-39  OR  -28) 


C2=RV.V/MU  -1  (+6) 


ALPHA= I 1-C2I/RI  (-22  OR  -20) 

MAXIMUM  X DEPENOS  ON  TYPE  OF  CONIC 
-50SC  (+12) 


GAP: 
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0720 

REF 

1 

12,2074 

11056 

1 

2 P I SC 

0721 

12,2075 

77600 

1 

BOV 

0722 

REF 

3 

LAST 

1172 

12,2076 

24077 

1 

STUREMAX 

0723 

REF 

1 

12,2077 

0C013 

0 

S TOREMAX 

STORE 

XMAX 

072  A 

12, 2100 

65205 

0 

DMP 

PDDL 

0725 

REF 

2 

LAST 

1172 

12,2101 

00023 

0 

1/ROOTMU 

0726 

REF 

3 

LAST 

1172 

12,2102 

00011 

1 

ALPHA 

0727 

12,2103 

65301 

0 

NORM 

PDDL 

0728 

REF 

37 

LAST 

1156 

12,2104 

00047 

1 

XI 

0729 

12,2105 

56257 

1 

SL* 

DDV 

0 73  C 

12,2106 

20173 

0 

0-6,1 

0731 

12,2107 

50000 

1 

BOV 

BMN 

0732 

REF 

1 

12,2110 

24124 

0 

MODDONE 

073  3 

REF 

? 

LAST 

1173 

12,2111 

24  124 

0 

MODDONE 

0734 

12, 2112 

51525 

1 

PERIODCH 

PDDL 

ABS 

0735 

REF 

2 

LAST 

119 

12,2113 

02074 

0 

T AU. 

0736 

12,2114 

50025 

0 

OSU 

BMN 

0737 

12,2115 

00C01 

0 

OD 

0738 

REF 

3 

LAST 

1173 

12,2116 

24124 

0 

MODDONE 

0739 

12,2117 

77765 

0 

SIGN 

0740 

REF 

3 

LAST 

1173 

12,2120 

02074 

0 

TAU. 

0741 

REF 

4 

LAST 

1173 

12,2121 

16074 

0 

STODL 

tAu. 

0750 

12,2122 

77650 

1 

GOTO 

0751 

REF 

1 

12, 2 123 

24112 

0 

PERIODCH 

0752 

12,2124 

71201 

1 

MODDONE 

SETPD 

DLOAD 

0753 

12,2125 

00001 

0 

0 

0754 

REF 

2 

LAST 

119 

12,2126 

02  121 

1 

XKEPNEW 

0755 

REF 

1 

12,2127 

00025 

0 

STORE 

X 

07555 

12,2 130 

52  165 

0 

SIGN 

BZE 

0756 

REF 

5 

LAST 

1173 

12,2131 

02074 

0 

TAU. 

07565 

REF 

1 

12,2132 

24302 

0 

B ADX 

0757 

12,2133 

51440 

0 

BMN 

ABS 

07575 

REF 

2 

LAST 

1173 

12,2134 

24302 

0 

B ADX 

0758 

12,2135 

5 IC25 

1 

DSU 

BPL 

07585 

REF 

2 

LAST 

1173 

12,2136 

00013 

0 

XMAX 

0759 

REF 

■y 

LAST 

1173 

12,2137 

24302 

0 

B ADX 

07595 

12,2140 

51145 

0 

STORBNDS 

DLOAD 

BPL 

0760 

REF 

6 

LAST 

1173 

12,2141 

02C74 

0 

TAU. 

07605 

REF 

1 

12, 2142 

24152 

1 

STOREMIN 

0761 

12,2143 

57545 

1 

DLUAD 

DCOMP 

076  15 

REF 

3 

LAST 

1173 

12,2144 

0CC13 

0 

XMAX 

0762 

REF 

1 

12,2145 

14C  15 

0 

STODL 

XMIN 

0762  5 

REF 

1 

12,2146 

24007 

0 

KEPZERO 

0 76  3 

REF 

4 

LAST 

1173 

12,2147 

00013 

0 

STORE 

XMAX 

07635 

12,2150 

77650 

1 

GOTO 

0764 

REF 

1 

12,2151 

24  155 

0 

DXCOMP 

07645 

12,2152 

7 7 745 

1 

STOREM  IN 

DLOAD 

0765 

REF 

2 

LAST 

1173 

12,2153 

24007 

0 

KEPZERO 

07655 

REF 

2 

LAST 

1173 

12,2154 

00015 

0 

STORE 

XMIN 

0 76  6 

12,2155 

57345 

1 

DXCOMP 

DLOAD 

DMPR 

17:11  MAR.  19,1971  SKIPPER 
USER'S  PAGE  NO.  17 
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.131  PAGE  1173 
F5  S3 


MPAC=  PER IOD 
OD=PER IOD 


GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L CCNIC  SUBROUTINES 


0767 

REF 

7 

LAST 

1173 

12,2156 

02074 

0 

T AU. 

0 76  8 

REF 

1 

12,2157 

11047 

1 

BEF22 

07665 

12,2160 

77646 

0 

ABS 

0 76  9 

REF 

1 

12,2161 

16170 

0 

STOOL 

EPSILONT 

0770 

REF 

1 

12,2162 

01553 

0 

XPREV 

0779 

12,2163 

77621 

1 XDIFF 

BDSU 

0780 

REF 

2 

LAST 

1173 

12,2164 

00025 

0 

X 

0731 

REF 

2 

LAST 

130 

12,2165 

02643 

1 

STORE 

DELX 

0782 

12,2166 

63545 

0 KEPLOOP 

DLO  AD 

DSQ 

0763 

REF 

3 

LAST 

1174 

12,2167 

00025 

0 

X 

0784 

12,2170 

41501 

0 

NORM 

PUSH 

0785 

REF 

38 

LAST 

1173 

12,2171 

00047 

1 

XI 

0786 

12, 2 172 

53605 

1 

DMP 

SRR* 

0787 

REF 

4 

LAST 

1173 

12,2173 

00011 

1 

ALPHA 

0788 

12,2174 

21573 

0 

0-6,1 

0789 

REF 

1 

12,2175 

34031 

1 

STCALL 

XI 

0790 

REF 

1 

12,2176 

24421 

0 

DELT  IME 

0791 

12,2177 

44200 

0 

BOV 

BDSU 

0792 

REF 

1 

12,2200 

24311 

1 

T IMEOVFL 

0793 

REF 

0 

LAST 

1174 

12,2201 

02C74 

0 

TAU. 

0794 

REF 

2 

LAST 

130 

12,2202 

02645 

1 

STORE 

DELT 

0795 

12,2203 

44246 

1 

ABS 

BDSU 

0796 

REF 

2 

LAST 

1174 

12,2204 

02170 

0 

EPSILONT 

0797 

12,2205 

71244 

0 

BPL 

DLOAD 

0798 

REF 

1 

12,2206 

24333 

1 

KEPCONVG 

0799 

REF 

3 

LAST 

666 

12, 2207 

CCC37 

0 

T 

0800 

12,2210 

6C225 

1 

DSU 

NORM 

0601 

REF 

2 

LAST 

115 

12,2211 

01551 

1 

TC 

0802 

REF 

39 

LAST 

1174 

12,2212 

00047 

1 

XI 

0803 

12,2213 

60325 

0 

PDDL 

NORM 

0804 

REF 

3 

LAST 

1174 

12,2214 

02643 

1 

DELX 

0805 

REF 

23 

LAST 

1153 

12,2215 

00050 

1 

X2 

0806 

12,2216 

41260 

0 

XSU,  1 

DMP 

0 80  7 

REF 

24 

LAST 

1174 

12,2217 

00047 

l 

X 2 

0808 

REF 

3 

LAST 

1174 

12,2220 

02645 

1 

DELT 

0809 

12,2221 

56257 

1 

SLR* 

DDV 

0810 

12,2222 

21202 

1 

1,1 

081  1 

12,2223 

41542 

1 

SRI 

PUSH 

0812 

12,2224 

71244 

0 

BPL 

DLOAD 

0813 

REF 

1 

12,2225 

24246 

1 

POSDELX 

0814 

REF 

4 

LAST 

L 1 74 

12,2226 

00C25 

0 

X 

0815 

REF 

5 

LAST 

1173 

12,2227 

CC013 

0 

STORE 

XMAX 

0816 

12,2230 

45221 

1 

BDSU 

DSU 

0817 

REF 

3 

LAST 

1 L73 

12,2231 

00015 

0 

XMIN 

0818 

12,2232 

51000 

0 

BOV 

BPL 

0819 

REF 

1 

12,2233 

24240 

1 

NDXCHNGE 

0820 

REF 

2 

LAST 

1 1 74 

12,2234 

24240 

1 

NDXCHNGE 

0821 

12,2235 

52  145 

0 

DLOAD 

GOTO 
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USFR ' S PAGE  NO.  18 


E5  S3 


X = XKF  P 

OD  = XS  0 (+34  OR  +32  — N 1 ) PL  AT  2 


X I =AL  PHA  XSO  (+6) 

UNLIKELY 
DE  LT=  DEL INDEP 


OD=TR  I AL  DEL X 


PL  AT  2 


MO VF  MAX  BOUND  IN 


PL  AT  0 


GAP: 


ASSEMBLt  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L CGNIC  SUBROUTINES 


0822 

12,2236 

0CC01 

0 

OD 

0823 

REF 

1 

12,2237 

24  2 60 

0 

NEWDELX 

0824 

12 , 2240 

45345 

1 

NDXCHNGE  DLOAD 

DSU 

0825 

REF 

4 

LAST 

1174 

12,2241 

00C15 

0 

XMIN 

0826 

REF 

5 

LAST 

1174 

12,2242 

00025 

0 

X 

0827 

12,2243 

52075 

1 

DM  PR 

GOTO 

0828 

REF 

1 

12,2244 

11052 

0 

DP97 10 

0829 

REF 

2 

LAST 

1175 

12,2245 

24260 

0 

NEWDELX 

0330 

12,2246 

77745 

1 

POSDELX 

DLOAD 

0831 

REF 

6 

LAST 

1175 

12,2247 

00025 

0 

X 

0832 

REF 

5 

LAST 

1175 

12,2250 

00C15 

0 

STORE 

XMIN 

0833 

12, 2251 

45221 

1 

BDSU 

DSU 

0834 

REF 

6 

LAST 

1174 

12,2252 

00C13 

0 

XMAX 

0835 

12,2253 

50000 

1 

BOV 

BMN 

0836 

REF 

1 

12, 2254 

24274 

0 

P DXCHNGE 

0837 

REF 

2 

LAST 

1175 

12,2255 

24274 

0 

PDXCHNGE 

0838 

12,2256 

77745 

1 

DLOAD 

0839 

12,2257 

00001 

0 

OD 

0840 

REF 

4 

LAST 

1174 

12,2260 

02643 

1 

NEWDELX 

STORE 

OELX 

0841 

12,2261 

43254 

0 

BZE 

DAD 

0842 

REF 

2 

LAST 

1174 

12,2262 

24333 

1 

K EPCONVG 

0843 

REF 

7 

LAST 

1175 

12,2263 

00025 

0 

X 

0 844 

REF 

8 

LAST 

1175 

12, 2264 

14025 

0 

STODL 

X 

0845 

REF 

4 

LAST 

1174 

12,2265 

00037 

0 

T 

0846 

REF 

3 

LAST 

1174 

12, 2266 

01551 

1 

STORE 

TC 

0847 

12,2267 

46034 

1 

BRNCHCTR 

RTB 

BHIZ 

0848 

REF 

1 

12,2270 

24644 

1 

CHECKCTR 

0849 

REF 

3 

LAST 

1175 

12,2271 

24333 

1 

KEPCONVG 

0850 

12,2272 

77650 

1 

GOTO 

0851 

REF 

1 

12,2273 

24  166 

0 

KEPLOOP 

0852 

12,2274 

45345 

1 

PDXCHNGE  DLOAD 

DSU 

0853 

REF 

7 

LAST 

1175 

12,2275 

00013 

0 

XMAX 

0854 

REF 

9 

LAST 

1175 

12,2276 

00C25 

0 

X 

0855 

12,2277 

52075 

1 

DMPR 

GOTO 

0856 

REF 

2 

LAST 

1175 

12,2300 

11052 

0 

DP9/ 10 

0857 

REF 

3 

LAST 

1175 

12, 2301 

24260 

0 

NEWDELX 

0858 

12,2302 

7G545 

1 BADX 

DLOAD 

SRI 

0859 

REF 

8 

LAST 

1175 

12,2303 

00C13 

0 

XMAX 

0860 

12,2304 

77765 

0 

SIGN 

0861 

REF 

9 

LAST 

1174 

12,2305 

C2074 

0 

TAU. 

0862 

REF 

10 

LAST 

1175 

12,2306 

00025 

0 

STORE 

X 

0863 

12,2307 

77650 

1 

GOTO 
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USER'S  PAGE  NO.  19  E5  S3 


TO  FORCE  M P AC  +2  TO  ZERO 


MOVE  MIN  BOUND  IN 


PI  AT  0 


TTERATF 


TO  FORCE  MPAC  +2  TO  ZERO 


GAP: 


ASSEMBLE  REVISION  210  CE  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L CCNIC  SUBROUTINES 


0864 

REF 

1 

12,2310 

24  140 

1 

STORBNDS 

0879 

12,2311 

5C145 

1 

T IMEOVFL 

DLOAO 

BMN 

0880 

REF 

11 

LAST 

1175 

12,2312 

00025 

0 

X 

08805 

REF 

1 

12, 2313 

24330 

1 

NEGTOVFL 

0881 

RFF 

9 

LAST 

1175 

12,2314 

00013 

0 

STORE 

XMAX 

0382 

12,2315 

7C545 

1 

CMNTO VFL 

DLOAD 

SRI 

0883 

REF 

5 

LAST 

1 175 

12,2316 

02643 

1 

DELX 

0884 

REF 

6 

LAST 

1176 

12,2317 

02643 

1 

STORE 

DELX 

0885 

12,2320 

442  54 

1 

BZE 

BDSU 

08855 

REF 

l 

12,2321 

02111 

1 

KEPRTN 

0886 

REF 

12 

LAST 

1176 

12,2322 

00025 

0 

X 

0837 

REF 

13 

LAST 

1176 

12,2323 

1 4 C 2 5 

0 

STOOL 

X 

0888 

REF 

4 

LAST 

1175 

12,2324 

01551 

1 

TC 

0889 

REF 

5 

LAST 

1175 

12,2325 

00037 

0 

STORE 

T 

0890 

12,2326 

77650 

1 

GOTO 

0891 

REF 

1 

12,2327 

24267 

1 

BRNCHCTR 

0891  1 

REF 

6 

LAST 

1175 

12,2330 

0CC15 

0 

NEGTOVFL 

STORE 

XMIN 

08912 

12,2331 

77650 

1 

GOTO 

08913 

REF 

1 

12,2332 

24315 

0 

CMNTOVFL 

0892 

12,2333 

44545 

0 

K EPCONVG 

DLOAD 

SR4R 

0893 

REF 

8 

LAST 

1172 

12,2334 

00041 

1 

R 1 

0894 

12,2335 

74225 

1 

DSU 

VXSC 

0895 

REF 

1 

12,2336 

00035 

1 

X SQC ( X I ) 

0896 

REF 

3 

LAST 

1172 

12 , 2337 

02647 

0 

URRECT 

0897 

12,2340 

65372 

1 

VSL  1 

PDDL 

0898 

REF 

14 

LAST 

1176 

12,2341 

0C025 

0 

X 

0899 

12,2342 

6C316 

0 

DSQ 

NORM 

0900 

REF 

40 

LAST 

1174 

12,2343 

00047 

1 

XI 

0901 

12,2344 

57275 

0 

DM  PR 

DMPR 

0902 

REF 

3 

LAST 

1173 

12,2345 

00023 

0 

1 /ROOTMU 

090  3 

REF 

15 

LAST 

1176 

12,2346 

00025 

0 

X 

0904 

12,2347 

53605 

L 

DMP 

SRR* 

0905 

REF 

1 

12,2350 

00033 

1 

S ! X I ) 

0906 

12,2351 

21572 

1 

0-7,1 

0907 

12,2352 

77621 

1 

BDSU 

0908 

REF 

6 

LAST 

1176 

12,2353 

C0037 

0 

T 

0909 

12,2354 

74352 

0 

SL1 

VXSC 

0910 

REF 

5 

LAST 

1172 

12,2355 

01511 

0 

VRECT 

091  1 

12,2356 

53372 

1 

VSL  1 

VAU 

0912 

12,2357 

77712 

0 

VSL4 

0913 

REF 

15 

LAST 

1154 

12,2360 

01535 

0 

STORE 

RCV 

0914 

12,2361 

60246 

1 

ABVAL 

NORM 

0915 

REF 

25 

LAST 

1174 

12,2362 

00050 

1 

X2 

0916 

REF 

1 

12,2363 

14043 

0 

STODL 

RCNORM 

0917 

REF 

2 

LAST 

1174 

12,2364 

00031 

0 

XI 

0918 

12,2365 

45275 

0 

DMPR 

DSU 

0919 

REF 

2 

LAST 

1176 

12,2366 

00033 

1 

S ( X I ) 

0920 

REF 

1 

12,2367 

1 1034 

0 

01/128 
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USER'S  PAGE  NO.  20  E5  S3 

X WAS  TOO  BIG 


0D=(R l-XSQCt X I ) SURRECT  ( + 33  OR  +3  1) 


PL  AT  0 


RCV  ( +29  OR  +27) 


GAP: 


ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-1  61 


L CCNIC  SUBROUTINES 


0921 

12,2370 

76405 

1 

DIMP 

SL1R 

0922 

REF 

1 

12,2371 

00021 

1 

ROOTiMU 

092  3 

12,2372 

53605 

1 

DM  P 

S LR* 

0924 

REF 

16 

LAST 

1176 

12,2373 

00C25 

0 

X 

0925 

12,2374 

56601 

0 

0 -3,2 

0926 

12,2375 

74271 

0 

DDV 

VXSC 

092  7 

REF 

2 

LAST 

1176 

12,2376 

00043 

0 

RCNORM 

0928 

REF 

4 

LAST 

1176 

12,2377 

02647 

0 

URRECT 

0929 

12, 2400 

65372 

1 

VSL  1 

POOL 

0930 

REF 

2 

LAST 

1176 

12,2401 

00035 

1 

XSQC  ( XI  ) 

0931 

12,2402 

56257 

1 

SLR* 

DOV 

0932 

12,2403 

56602 

0 

0-4,2 

0933 

REF 

3 

LAST 

1177 

12,2404 

00043 

0 

RCNORM 

0934 

12 , 2405 

74221 

0 

BDSU 

VXSC 

0935 

REF 

1 

12,2406 

11050 

1 

01/256 

0936 

REF 

6 

LAST 

1 176 

12,2407 

C 1 5 1 1 

0 

VRECT 

093  7 

12,2410 

42455 

0 

VAD 

VSL8 

0938 

12,2411 

77626 

0 

STADR 

0939 

REF 

13 

LAST 

1154 

12,2412 

62234 

0 

STQDL 

VCV 

0940 

REF 

7 

LAST 

1176 

12,2413 

00037 

0 

T 

0943 

REF 

5 

LAST 

1176 

12 , 2414 

15551 

1 

STOOL 

TC 

0944 

REF 

17 

LAST 

1177 

12,2415 

00025 

0 

X 

0947 

REF 

2 

LAST 

1174 

12,2416 

01553 

0 

STORE 

XPREV 

0948 

12,2417 

77650 

1 

GOTO 

094  9 

REF 

2 

LAST 

l L76 

12, 2420 

02111 

1 

KEPRTN 
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USER'S  PAGE  NO.  21  E5  S3 


OD=UR  RECT ! X I S ( X I ) — 1 > X ROOTMU/RCV  ( + 15 
OR  +13)  PL  AT  6 


PL  AT  0 


VCV  ( +7  OR  +5 ) 


GAP: 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY 


CONIC  SUBROUTINES 


0950 

12.2A21 

77776 

1 

0951 

REF 

A 

LAST 

1083 

12 ,2 A22 

0 7 2A3 

0 

0952 

12.2A23 

00010 

0 

0953 

12.2A2A 

02525 

1 

0953 

12.2A25 

12526 

0 

095  A 

12,2  A26 

67356 

0 

095  A 

12, 2A27 

75666 

0 

0955 

12 , 2A30 

15001 

1 

0955 

12, 2A31 

23771 

1 

0956 

12 , 2 A32 

6A3A2 

0 

0956 

12 , 2 A33 

A367A 

0 

0957 

12, 2A3A 

C6563 

1 

095  7 

12 , 2 A35 

0A6A5 

1 

095  8 

12, 2A36 

75173 

0 

0958 

12, 2A37 

52672 

0 

0959 

12 , 2 AAO 

00656 

1 

0959 

12, 2AA1 

1 A 3 3 1 

0 

0960 

12 , 2 AA2 

77633 

1 

0960 

12.2AA3 

A0512 

0 

096  1 

12, 2AAA 

00023 

0 

096  1 

12 , 2AA5 

11210 

1 

0962 

12 , 2 A A6 

7777A 

0 

0962 

12,2  AA7 

67506 

0 

0963 

REF 

220 

LAST 

1153 

12 , 2A50 

0 6060 

1 

096A 

REF 

3 

LAST 

1176 

12, 2A51 

1AC33 

1 

0965 

REF 

3 

LAST 

1176 

12, 2A52 

00031 

0 

0966 

12, 2A53 

77776 

1 

0967 

REF 

5 

LAST 

1178 

12, 2A5A 

C 7 2A3 

0 

096  8 

12 , 2A55 

00010 

0 

0969 

12.2A56 

01000 

0 

0969 

12, 2A57 

00000 

1 

0970 

12.2A60 

72525 

0 

0970 

12, 2A61 

52506 

0 

0971 

12 ,2A62 

13301 

1 

0971 

12, 2A63 

15337 

1 

0972 

12, 2A6A 

62776 

0 

0972 

12.2A65 

5 A 7 3 3 

1 

0973 

12.2A66 

11176 

1 

0973 

12 , 2 A67 

13267 

0 

097  A 

12.2A70 

73A10 

0 

097  A 

12, 2A71 

5167A 

0 

0975 

12 , 2 A 72 

01AA6 

0 

0975 

12 , 2A73 

336A1 

1 

0976 

12, 2A7A 

77A51 

1 

0976 

12  , 2A75 

65233 

0 

0977 

12, 2A76 

00055 

1 

0977 

12, 2A77 

37266 

1 

0978 

12,2500 

77767 

1 

0978 

12,2501 

52336 

0 

0979 

REF 

221 

LAST 

1178 

12,2502 

0 6060 

1 

OELT IME 


SA  2021 112-161  17:11  MAR.  19,1971  SKIPPER  .131  PAGE  1178 

USER'S  PAGE  NO.  22  E5  S3 


EX  I T 
TC 
DEC 
2DEC 

MP  AC=  X I (+6),  00=XSQ  ( +3A  OR  +32  -N  1 ) 

POLY 

8 

•08333333A 

2DEC 

- .26666668A 

2DEC 

. A063A9 155 

2DEC 

- .361198675 

2DEC 

. 2101532A2 

2DEC 

- .086221951 

2DEC 

. 026268812 

2DEC 

- .0061633  16 

2DEC 

. 001 1773A2 

2DEC 

- .000199055 

TC 

STOOL 

EXIT 

INTPRET 
S ( X I I 
XI 

TC 

DEC 

2DEC 

POLY 

8 

. 031250001 

2DEC 

-.166666719 

2DEC 

. 355555A13 

2DEC 

- . A063A7A 10 

2DEC 

. 28396209A 

2DEC 

- . 1A0U789A 

2DEC 

. 0A92A7387 

2DEC 

- .013081923 

2DEC 

. 002806389 

2DEC 

- . 000  52  9A  1 A 

TC 

I NTPRET 

GAP: 


ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY 


L CCNIC  SUBROUTINES 


0930 

12,2503 

53605 

1 

0981 

12,2504 

00001 

0 

0982 

12,2505 

21574 

1 

0983 

REF 

3 

LAST 

1177 

12,2506 

00035 

1 

0984 

12,2507 

72405 

0 

0985 

REF 

2 

LAST 

1172 

12,2510 

00C43 

0 

0986 

12,2511 

65234 

1 

0937 

REF 

9 

LAST 

1148 

12,2512 

21643 

0 

0988 

12, 2513 

53605 

l 

0989 

REF 

4 

LAST 

1178 

12,2514 

00033 

1 

0990 

12,2515 

21574 

1 

0991 

12,2516 

72405 

0 

0992 

REF 

2 

LAST 

1 172 

12,2517 

00045 

0 

0993 

12,2520 

65234 

1 

0994 

REF 

10 

LAST 

1179 

12, 252  1 

21643 

0 

0995 

REF 

9 

LAST 

1176 

12,2522 

00041 

1 

0996 

12,2523 

76261 

0 

0997 

12,2524 

20607 

1 

0998 

12,2525 

41301 

0 

0999 

REF 

41 

LAST 

1176 

12,2526 

00047 

1 

1000 

REF 

18 

LAST 

1 177 

12,2527 

00025 

0 

100  1 

12,2530 

76257 

0 

1002 

12,2531 

20576 

1 

100  3 

12,2532 

57232 

0 

1004 

REF 

4 

LAST 

1176 

12,2533 

00023 

0 

1005 

REF 

8 

LAST 

1177 

12,2534 

00037 

0 

1006 

12,2535 

77616 

0 
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j 
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USER  1 S PAGE  NO.  23 

E5  S3 

DMP 

SRR* 

OD 

0-5,1 

PL  AT  0 

STORE 

X SQC { XI  ) 

XSQC(XI)  (+33  OR  +31) 

DMP 

SL1 

KEPC1 

RTB 

P DDL 

XCH  WITH  PL.  OD=C 1 XSO  C(XI) 

(+49  OR  +46 

TPMODE 

PL  AT  0,3 

OMP 

SRR* 

s ( xi ) 

0-5,1 

DMP 

S LI 
KEPC2 

RTB 

PDDL 
TPMODE 
R 1 

3D=C2  XSO  SOIII  (+35  OR  +33) 

PL  AT  6 

SR 

TAD 

PL  AT  3 

6 

NORM 

DMP 

TO  PRESERVE  SIGNIF. 

XI 

X 

SR* 

TAD 

0-3,1 

X (C2  XSO  S (XT ) +R1 ) ( +49  OP 

+46)  PL  AT  0 

SL4R 

DM  PR 

1 /ROOTMU 

STORE 

RVQ 

T 

GAP: 


ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L CCMC  SUBROUTINES 


1007 

12,2536 

71214 

0 

I TERATOR 

BONCLR 

DLOAD 

1008 

REE 

1 

12,2537 

00614 

1 

SLOPE  SW 

1009 

REF 

1 

12,2540 

24606 

l 

F IRSTIME 

1010 

REF 

1 

12,2541 

00037 

0 

DEP 

101  1 

12,2542 

6C225 

1 

DSU 

NORM 

1012 

REF 

3 

LAST 

130 

12,2543 

02762 

0 

DEPREV 

1013 

REF 

42 

LAST 

1179 

12,2544 

00047 

1 

XI 

1014 

12,2545 

60325 

0 

PDDL 

NORM 

1013 

REF 

1 

12,2546 

00015 

0 

DEL  IN DEP 

1016 

REF 

26 

LAST 

1176 

12,2547 

CCC50 

1 

X 2 

1017 

12,2550 

41260 

0 

XSU,  1 

DMP 

1018 

REE 

27 

LAST 

1180 

12,2551 

00047 

1 

X 2 

1019 

RFF 

3 

LAST 

130 

12, 2552 

C2760 

1 

DELDEP 

1020 

12,2553 

56257 

1 

SLR* 

DDV 

1021 

12,2554 

21202 

L 

1,1 

1022 

12,2555 

43  142 

1 

SP1 

80FF 

1023 

REF 

1 

12,2556 

04351 

1 

ORDERSW 

1024 

REF 

1 

12,2557 

24562 

0 

SGNCHECK 

1025 

12 ,2560 

75246 

0 

ABS 

S IGN 

1026 

RFF 

4 

LAST 

1180 

12,2561 

C2760 

1 

DELDEP 

1027 

12,2562 

51006 

0 

SGNCHECK 

PUSH 

B PL 

1028 

REF 

1 

12,2563 

24620 

0 

POSDEL 

1029 

12,2564 

43  145 

0 

DLOAD 

BON 

1030 

REF 

l 

12,2565 

02766 

1 

INDEP 

103  1 

REF 

2 

LAST 

1180 

12,2566 

04311 

0 

ORDERSW 

1032 

RFF 

1 

12,2567 

24571 

1 

MINCHECK 

103  3 

REF 

1 

12,2570 

00017 

1 

STORE 

MAX 

1034 

12,2571 

45221 

1 

M INCHECK 

BDSU 

DSU 

1035 

REF 

1 

12,2572 

00011 

1 

MIN 

1036 

12,2573 

51000 

0 

BUV 

B PL 

103  7 

REF 

1 

12,2574 

24600 

1 

MODNGDEL 

1038 

REF 

2 

LAST 

1180 

12,2575 

24600 

1 

MODNGDEL 

1039 

12,2576 

77650 

1 

GOTO 

1040 

REF 

1 

12,2577 

24632 

0 

DELOK 

104  1 

12,2600 

45345 

1 

MODNGDEL  DLOAD 

DSU 

1042 

REF 

2 

LAST 

1180 

12,2601 

0C011 

1 

MIN 

1043 

REF 

2 

LAST 

1180 

12, 2602 

02766 

1 

INDEP 

1044 

12,2603 

52005 

0 

DMP 

GOTO 

1045 

REE 

3 

LAST 

1175 

12,2604 

11052 

0 

DP9/10 

1046 

REF 

1 

12,2605 

24634 

0 

NEWDEL 

1047 

12,2606 

41345 

0 

EIRSTIME  DLOAD 

DMP 

1048 

REF 

3 LAST  1180 

12,2607 

00C11 

1 

MIN 

1049 

REF 

1 

12,2610 

00051 

0 

TWFEK IT 

1050 

12,261  1 

41325 

0 

PDDL 

DMP 

17:11  MAR.  19,1971  SKIPPER 
USER'S  PAGE  NO.  24 


.131  PAGE  1180 
E5  S3 


PL  UP  2 


IN  CASE  2ND  DERIV.  CHANGED  SIGN,  MUST 
DISREGARD  IT  TO  FIND  MIN. 

TRIAL  DELINDEP  PL  DOWN  2 


IF  NOT  2ND  ORDER,  CAN  MOVE  MAX  BOUND  IN. 


TRIAL  DELINDEP  WOULD  EXCEED  MIN  BOUND 


DLOAD  TWFEKITI40D)  SENSITIVE  TO  CHANGE 
S2I41D)  SHOULDNT  CONTAIN  HI  ORDER  ONES 


GAP: 


ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L CCNIC  SUBROUTINES 


1051 

REF 

2 

LAST 

1180 

12,2612 

00017 

1 

MAX 

1052 

REF 

2 

LAST 

1180 

12,2613 

0CC51 

0 

TWEEKIT 

1053 

12,2614 

77625 

0 

DSU 

105  4 

12,2615 

52165 

1 

SIGN 

GOTO 

1055 

REF 

5 

LAST 

1180 

12,2616 

02  160 

1 

DELDEP 

1056 

REF 

2 

LAST 

1180 

12,2617 

24562 

0 

SGNCHECK 

1057 

12,2620 

43145 

0 

POSDEL 

DLOAD 

BON 

1058 

REF 

3 

LAST 

1180 

12,2621 

02766 

1 

I NDEP 

1059 

REF 

3 

LAST 

1180 

12,2622 

C4311 

0 

ORDER  SW 

1060 

REF 

1 

12,2623 

24625 

0 

MAXCHECK 

1061 

REF 

4 

LAST 

1180 

12,2624 

00011 

1 

STORE 

MIN 

1062 

12, 2625 

45221 

1 

MAXCHECK 

BDSU 

DSU 

1063 

REF 

3 

LAST 

118  1 

12,2626 

0CC17 

1 

MAX 

1064 

12,2627 

50000 

1 

BOV 

BMN 

1065 

REF 

1 

12,2630 

24636 

1 

MODPSDEL 

1066 

REF 

2 

LAST 

1181 

1 2 , 2 63  1 

24636 

1 

MODPSDEL 

1067 

12,2632 

77745 

1 

DELOK 

DLOAD 

1068 

12,2633 

00001 

0 

OD 

1069 

REF 

2 

LAST 

1180 

12,2634 

00015 

0 

NEWDEL 

STORE 

DELI NDEP 

1070 

12,2635 

77616 

0 

RVQ 

1071 

12,2636 

45345 

1 

MODPSDEL  DLOAD 

DSU 

1072 

REF 

4 

LAST 

1181 

12,2637 

0C017 

1 

MAX 

1073 

REF 

4 

LAST 

1181 

12,2640 

02766 

1 

I NDEP 

1074 

12 ,2641 

52005 

0 

DMP 

GOTO 

1075 

REF 

4 

LAST 

1180 

12 , 2642 

11052 

0 

DP9/10 

1076 

REF 

2 

LAST 

1180 

12,2643 

24634 

0 

NEWDEL 

1077 

REF 

112 

LAST 

1125 

12,2644 

4 4744 

0 

CHECKCTR  CS 

ONE 

1078 

REF 

61 

LAST 

1106 

12,2645 

50  120 

1 

INDEX 

F IXLOC 

1079 

REF 

3 

LAST 

1172 

12,2646 

6 0026 

0 

AD 

I TERCTR 

1080 

REF 

62 

LAST 

1181 

12,2647 

50  120 

1 

INDEX 

F IXLOC 

1081 

REF 

4 

LAST 

1181 

12,2650 

54  026 

1 

TS 

I TERCTR 

1002 

REF 

726 

LAST 

1149 

12,2651 

54  1 54 

0 

TS 

MPAC 

1083 

REF 

56 

LAST 

1092 

12,2652 

0 6102 

1 

TC 

DANZ IG 
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IF  NOT  2ND  ORDER,  CAN  MOVE  MIN  ROUND  IN 


GAP: 


ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


17:11  MAR.  19,1971  SKIPPER 


131  PAGE  1182 


L CCNIC  SUBROUTINES 


1084 

12,2653 

44543 

0 

NEWST  ATE 

DLOAD 

1085 

REF 

10 

LAST 

1179 

12,2654 

00041 

1 

1089 

12,2655 

74225 

1 

DSU 

1090 

REF 

4 

LAST 

1179 

12,2656 

00035 

1 

1091 

REF 

3 

LAST 

1172 

12,2657 

C2722 

1 

1092 

12,2660 

65372 

1 

VSL  1 

1093 

REF 

19 

LAST 

1179 

12,2661 

00025 

0 

1094 

12,2662 

60316 

0 

DSQ 

1095 

REF 

43 

LAST 

1180 

12,2663 

CC047 

1 

1096 

12,2664 

57275 

0 

DMPR 

1097 

REF 

5 

LAST 

1179 

12,2665 

0CC23 

0 

1098 

REF 

20 

LAST 

1182 

12,2666 

00025 

0 

1099 

12,2667 

53605 

1 

DMP 

1 100 

REF 

5 

LAST 

1179 

12,2670 

00033 

1 

110  1 

12,2671 

21572 

1 

110  2 

12,2672 

77621 

1 

BDSU 

1103 

REF 

9 

LAST 

1179 

12,2673 

00037 

0 

1 104 

12,2674 

74352 

0 

SL1 

110  5 

REF 

1C 

LAST 

698 

12,2675 

02  744 

1 

1106 

12,2676 

53372 

1 

VSL  1 

1107 

12,2677 

41512 

1 

VSL4 

1108 

12,2700 

7 7 646 

0 

ABVAL 

1109 

12,2701 

77701 

1 

L AMENTER 

NORM 

1110 

REF 

44 

LAST 

1182 

12,2702 

00047 

1 

1111 

REF 

1 

12,2703 

16720 

0 

STOOL 

1112 

REF 

4 

LAST 

1178 

12,2704 

00031 

0 

1113 

12,2705 

45205 

1 

DMP 

1114 

REF 

6 

LAST 

1182 

12,2706 

00033 

1 

1115 

REF 

2 

LAST 

1176 

12,2707 

11034 

0 

1116 

12,2710 

76405 

1 

DMP 

1117 

REF 

2 

LAST 

1177 

12,2711 

00021 

1 

1118 

12,2712 

53605 

1 

DMP 

1119 

REF 

21 

LAST 

1182 

12,2713 

00025 

0 

1120 

12,2714 

21176 

1 

1121 

12,2715 

74271 

0 

DDV 

1122 

REF 

2 

LAST 

1182 

12,2716 

02720 

0 

1 123 

REF 

4 

LAST 

1182 

12,2717 

02722 

1 

1 124 

12,2720 

65372 

1 

VSL  1 

1125 

REF 

5 

LAST 

1182 

12,2721 

00035 

1 

1126 

12,2722 

56257 

1 

SLR* 

1127 

12,2723 

21175 

L 

1128 

REF 

3 

LAST 

1182 

12 ,2  724 

02720 

0 

1129 

12,2725 

77621 

1 

BDSU 

1130 

REF 

2 

LAST 

1 177 

12,2726 

11050 

1 

1131 

12,2727 

53361 

0 

VXSC 

1 132 

REF 

11 

LAST 

1182 

12,2730 

02  744 

1 

1 133 

12,2731 

43412 

1 

VSL  8 

R 1 13  A 


USER'S  PAGE  NO.  26  E5  S3 

SR4R 
R 1 

VXSC 
XS0C1XI ) 

UR  1 

P DDL  0D=( R 1— XSQC (XI) ) UR  1 (+33  OR  31)  PL  AT  6 

X 

NORM 

XI 

DMPR 

1/ROOTMU 

X 

SRR* 

S ( X I ) 

0-7,1 

T 

VXSC 
V VEC 

VAD  PL  AT  0 

PUSH 


XI 
R 2 
X I 
DSU 
S ( X I ) 

D 1/  128 
SL1R 
ROOTMU 
SLR* 

X 

0-3,1 
VXSC 
R 2 
UR  1 

PDDL  6D=V2 VEC  PART  (+15  OR  13)  PL  AT  12 

XSQC ( XI ) 

DDV 

0-4,1 

R2 

D 1/256 

VAD  PL  AT  6 

V VEC 

RVQ 


GAP: 


ASSEMBLE  REVISION  210  OF  A GC  PRCGRAM  LUMINARY  BY  NASA  20211  12-1  61 


L CCNIC  SUBROUTINES 


1135 

REF 

3 

LAST 

47 

04,2000 

SET  L CC 

CONI C SI 

1136 

04,3030 

BANK 

1 137 

REF 

2 

LAST 

47 

TO  48: 

16 

16* 

COUNT  * 

$ $/CON I C 

P 1 13  8 

DO 

NCT 

DISTURB 

THE 

ORDER  OF 

THESE  CDS, 

OVERLAYS 

HAVE  BFEN  MADE. 

1139 

04,3030 

00000 

1 

BEE17 

DEC 

0 

1140 

04,3031 

04C00 

0 

01/8 

2DEC 

1.0  B-3 

1140 

04,3032 

00000 

1 

1141 

04,3033 

00200 

0 

Dl/128 

2DEC 

1.0  B— 7 

1 14  1 

04,3034 

00000 

1 

1 142 

04,3035 

00400 

0 

D 1/64 

2DEC 

1.0  B— 6 

1142 

04,3036 

00000 

1 

1143 

04,3037 

10000 

0 

Dl/4 

2DEC 

1.0  8-2 

1143 

04,3040 

00000 

1 

1144 

04,3041 

02000 

0 

Dl/16 

2DEC 

1.0  B-4 

1 144 

04,3042 

00000 

1 

114  5 

04,3043 

01000 

0 

01/32 

2DEC 

1.0  B-5 

1145 

04,3044 

00000 

1 

1 146 

04,3045 

00020 

0 

01/1024 

2DEC 

1.0  B-10 

1146 

04,3046 

00000 

1 

1147 

04,3047 

00100 

0 

D 1/2  56 

2DEC 

1 .0  B-8 

1147 

04,3050 

00000 

l 

1148 

04,3051 

34631 

1 

DP9/  10 

2DEC 

. 9 

1148 

04,3052 

23146 

0 

1149 

REF 

5 

LAST 

1 145 

12,2006 

K EPZERO 

EQUALS 

L 06ZER0S 

1150 

04,3053 

77467 

1 

-50SC 

2D  EC 

-50.0  B-12 

1150 

04,3054 

71777 

0 

1151 

04,3055 

03110 

1 

2PISC 

2DEC 

6.28318530  B 

1151 

04,3056 

17665 

1 

1152 

REF 

1 

04,3042 

BEE19 

EQUALS 

Dl/32  -1 

L 153 

REF 

3 

LAST 

1182 

04, 3046 

BEE22 

EQUALS 

Dl/256  -1 

1154 

04,3057 

OGOOO 

1 

ONEBIT 

2DEC 

1.0  B-28 

1154 

04,3060 

0CC01 

0 

1 155 

04,3061 

37767 

0 

COGUPL IM 

2DEC 

.999511597 

1155 

04,3062 

37737 

0 

1156 

04,3063 

40010 

1 

COGLOLIM 

2DEC 

-.999511597 

1156 

04,3064 

40040 

1 

R 1 15  7 


17:  11  MAR.  lg , 

1971 

SKTPPER 

.131  PAGE  1183 

USER' S 

PAGE 

NO.  27 

E5  S3 

KEEP  WITH  01/8  20EC  1. OB-17  (0000004000) 


6 


2DEC  1.0  B-19  (00000  01000) 
20EC  1.0  B— 22  (00000  00100) 


GAP: 

ASSEMBLE 

REVISION  210 

CF  AGC  PROGRAM  LUMINARY  8Y  NASA  2021112-161 

17:11  MAR.  19,1971  SKIPPER 

.131  PAGE  1184 

L 

CONIC 

SUBROUTINES 

USFR • S PAGE  NO.  28 

E 5 S3 

1158 

REF 

2 

LAST 

1171 

12,2000 

SETLOC 

CONICS 

1159 

12,2732 

BANK 

1160 

REF 

2 

LAST 

1172  TO 

1183: 

455  455* 

COUNT* 

$ $/CONI C 

116  1 

12,2732 

40220 

0 

TIMETHET 

STQ 

SETPO 

PL  AT  0 

1 162 

REF 

1 

12,2733 

02710 

0 

RTNTT 

1163 

12,2734 

0C001 

0 

0 

11638 

12,2735 

77600 

1 

BOV 

11636 

12,2736 

24737 

1 

+ 1 

1 164 

12,2737 

63375 

0 

A 

VLOAD 

PDVL 

SETUP  FOR  PARAM  CALL 

PL  AT  6 

1 165' 

REF 

8 

LAST 

698 

12,2740 

02655 

0 

RVEC 

1166 

REF 

12 

LAST 

1182 

12,2741 

02744 

1 

V VEC 

1167 

12,2742 

77624 

1 

CALL 

1 16  8 

REF 

1 

12,2743 

11065 

1 

P ARAM 

1169 

12,2744 

45000 

0 

BOV 

CALL 

PL  AT  0 

1170 

REF 

1 

12,2745 

24764 

1 

COGAOVFL 

1 17  1 

REF 

1 

12,2746 

24767 

1 

GETX 

1172 

12,2747 

43145 

0 

C QMMNOUT 

DLOAD 

BON 

1173 

REF 

5 

LAST 

1182 

12,2750 

0003  1 

0 

X I 

1174 

REF 

1 

12,2751 

C4310 

1 

INF INFLG 

1 175 

REF 

1 

12,2752 

25752 

0 

ABTCGNIC 

1176 

12,2753 

45014 

0 

CLEAR 

CALL 

1177 

REF 

l 

12,2754 

04273 

0 

COGAFLAG 

1178 

REF 

2 

LAST 

1174 

12,2755 

24421 

0 

DELT IME 

1179 

12,2756 

45014 

0 

BON 

CALL 

1180 

REF 

7 

LAST 

666 

12,2757 

C 3 7 0 6 

0 

R VSW 

1181 

REF 

2 

LAST 

1184 

12,2760 

02710 

0 

RTNTT 

1182 

REF 

1 

12,2  761 

24653 

1 

NEWSTATE 

1 183 

12,2762 

77650 

1 

GOTO 

1 184 

REF 

3 

LAST 

1184 

12,2763 

02710 

0 

RTNTT 

1185 

12,2764 

77614 

1 

COGAOVFL 

SETGO 

1186 

REF 

2 

LAST 

1184 

12 , 2765 

04033 

0 

COGAFLAG 

1187 

REF 

2 

LAST 

1184 

12,2766 

25752 

0 

ABTCGNIC 

11872 

04,3065 

BANK 

4 

11874 

REF 

4 

LAST 

1183 

04,2000 

SET  L CC 

CONIC SI 

11876 

04,3065 

BANK 

11878 

REF 

3 

LAST 

1183  TO 

1184: 

29 

45* 

COUNT* 

$$ /CONIC 

1188 

04,3065 

43020 

1 

PARAM 

STQ 

CLEAR 

MP AC=  V 1VEC , 0D=R 1 VEC 

PL 

AT 

6 

1189 

REF 

2 

LAST 

13  C 

04,3066 

02753 

1 

RTNPRM 

1 190 

REF 

7 

LAST 

774 

04,3067 

03665 

1 

NORMSW 

1 190  1 

04,3070 

77614 

1 

CLEAR 

1 1902 

REF 

3 

LAST 

1184 

04,3071 

04273 

0 

COGAFLAG 

1191 

04,3072 

45131 

0 

SSP 

CALL 

1192 

REF 

7 

LAST 

7 75 

04,3073 

02673 

1 

GEOMSGN 

1193 

04,3074 

27777 

0 

37777 

GAMMA  ALWAYS  LESS  THAN 

1R0DEG 

1 194 

REF 

1 

04,3075 

11131 

1 

GEOM 

MP AC=  SNGA  (+1),  0D=CS  G A 

(+1)  PL 

AT 

2 

1 195 

04,3076 

14045 

0 

STODL 

3 6D 

36D=S IN  GAMMA  ( +1 ) 

PL 

AT 

0 

1196 

04,3077 

56261 

1 

SR 

DDV 

GAP: 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 
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1197 

04,3100 

2C606 

0 

5 

1198 

04,3101 

00045 

0 

36D 

1199 

REF 

3 

LAST 

131 

04,3102 

32766 

1 

STOVL* 

COGA 

1200 

REF 

5 

LAST 

1172 

04,3103 

10005 

0 

MUTABLE 

1201 

REF 

2 

LAST 

1172 

04,3104 

14017 

1 

STOOL 

l/MU 

1202 

REF 

3 

LAST 

130 

04,3105 

02720 

0 

MAGVEC2 

1203 

04,3106 

6C316 

0 

DSQ 

NORM 

1204 

REF 

45 

LAST 

1182 

04,3107 

00047 

1 

XI 

1205 

04,3110 

41275 

1 

DMPR 

DMP 

1206 

REF 

3 

LAST 

1185 

04,3111 

00017 

1 

1 / MU 

1207 

REF 

1 1 

LAST 

1182 

04,3112 

00041 

1 

R 1 

1208 

04,3113 

77657 

0 

SRR  * 

1209 

04,3114 

21576 

0 

0-3,1 

1210 

04,3115 

44206 

0 

PUSH 

BOSU 

121  1 

REF 

2 

LAST 

1183 

04,3116 

11044 

1 

D 1/32 

1212 

REF 

4 

LAST 

693 

04,3117 

16742 

1 

STnOL 

R 1A 

1213 

04,3120 

60205 

0 

DMP 

NORM 

1214 

04,3121 

00045 

0 

36D 

1215 

REF 

46 

LAST 

1185 

04,3122 

00047 

1 

XI 

1216 

04,3123 

53605 

1 

DMP 

SR* 

1217 

04,3124 

00045 

0 

36D 

1218 

04,3125 

2C575 

1 

0 -4,1 

1219 

REF 

4 

LAST 

641 

04,3126 

02740 

0 

STORF 

P 

1220 

04,3127 

77650 

1 

GOTO 

1221 

REF 

3 

LAST 

1184 

04,3130 

02753 

1 

RTNPRM 

17:11  MAR.  19,1971  SKIPPER 
USER'S  PAGE  NO.  29 


.131  ° AGE  1185 

E5  S3 


0D=R1  VISQ/MU  (+6)  PL  AT  2 

R 1 A (+6)  PL  AT  C 


P (+4  ) 
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1225 

04  ,3131 

77656 

1 

G EOM 

UNIT 

1226 

REF 

2 

LAST 

130 

04, 3132 

16712 

1 

STOOL 

U2 

122  7 

04,3133 

00045 

0 

36D 

1228 

REF 

4 

LAST 

1185 

04,3134 

26720 

0 

STOVL 

MAGVEC2 

1229 

04,3135 

77656 

1 

UNIT 

1230 

REF 

5 

LAST 

1182 

04,3136 

02722 

1 

STORE 

UR  1 

1231 

04,3137 

72441 

0 

DOT 

SL1 

1232 

REF 

3 

LAST 

1186 

04,3140 

02712 

1 

U2 

1233 

04,3141 

7 7 725 

1 

PDDL 

1234 

04,3142 

00045 

0 

36D 

1235 

REF 

12 

LAST 

1185 

04,3143 

24041 

1 

STOVL 

R 1 

1236 

REF 

6 

LAST 

1186 

04,3144 

02722 

1 

UR1 

1237 

04,3145 

76435 

1 

VXV 

VSL1 

1238 

REF 

4 

LAST 

1186 

04,3146 

02712 

1 

U2 

1239 

04,3147 

75214 

1 

BON 

S IGN 

1240 

REF 

8 

LAST 

1184 

04,3150 

03705 

0 

NORMSW 

1241 

REF 

1 

04,3151 

11163 

0 

HAVENORM 

1242 

REF 

8 

LAST 

1184 

04,3152 

02673 

1 

GEOMSGN 

1243 

04,3153 

40056 

0 

UNIT 

BOV 

1244 

REF 

1 

04,3154 

11161 

1 

COLINEAR 

1245 

REF 

6 

LAST 

775 

04, 3155 

16674 

0 

UNITNORM 

STOOL 

UN 

1246 

04,3156 

00045 

0 

36D 

1247 

04,3157 

43565 

0 

SIGN 

RVQ 

124  8 

REF 

9 

LAST 

1186 

04,3160 

02673 

1 

GEOMSGN 

1249 

04,3161 

52162 

0 COLINEAR  VSR  1 

GOTO 

1250 

REF 

1 

04,3162 

11155 

0 

UNITNORM 

1251 

04,3163 

75246 

0 

HAVENORM  ABVAL 

S IGN 

1252 

REF  10  LAST  1186 

04, 3164 

02673 

1 

GEOMSGN 

1253 

04,3165 

77616 

0 

RVQ 
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USER'S  PAGE  NO.  30  E5  S3 

MP  AC=  V2VEC  , OD=R  1 VEC  PL  AT  6 

U2  (+  1 ) 

Pl.  AT  0 

UR  1 ( +1 ) 

OD=CSTH  (+1)  PL  AT  2 

R 1 ( + 29  OR  +27) 


UN  1+1) 

MP AC=  SNTH  (+1),  34D=SNTH. SNTH  (+2) 


MP  AC  = SNT  H (+1),  34D=SNTH. SNTH  (+2) 
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L 

CONIC  SUBROUTINES 

USER'S  PAGE  NO.  31 

E5 

S3 

1254 

12,2767 

BANK 

12 

1255 

REF 

3 

LAST 

1184 

12,2000 

SET  LCC 

CONICS 

1256 

12,2767 

BANK 

12565 

REF 

3 

LAST 

1184  TO 

1184  : 

29  484* 

COUNT  * 

$ $ /CON  I C 

1257 

12,2767 

66374 

1 

GETX 

AXT  ,2 

SSP 

ASSUMES  P (+4)  IN  MPAC 

1258 

12,2770 

00C03 

1 

3 

1259 

REF 

27 

LAST 

1153 

12,2771 

00052 

0 

S2 

1260 

12,2772 

00001 

0 

1 

126  1 

12,2773 

77614 

1 

CLEAR 

1262 

REF 

1 

12,2774 

04276 

0 

360SW 

1263 

12, 2775 

65366 

1 

SORT 

PDDL 

0D=SQRT( P) 

PL  AT 

1264 

REF 

5 

LAST 

665 

12,2776 

02732 

0 

C STH 

126  5 

12,2777 

44342 

1 

SRI 

BOSU 

1266 

REF 

2 

LAST 

38 

12,3000 

1 1040 

0 

D 1/4 

1267 

12,3001 

54325 

1 

PDDL 

SRR 

PL 

AT  4D 

1268 

REF 

7 

LAST 

665 

12,3002 

02730 

1 

SNTH 

1269 

12,3003 

21607 

0 

6 

1270 

12,3004 

77671 

1 

DDV 

PL 

AT  2 

1271 

12,3005 

77600 

1 

BOV 

1272 

REF 

1 

12,3006 

25122 

1 

360CHFCK 

1273 

12,3007 

41225 

1 

DSU 

DMP 

1274 

REF 

4 

LAST 

1185 

12,3010 

C2766 

1 

COGA 

PL  AT 

1275 

12,3011 

40132 

0 

SL2R 

BOV 

1276 

REF 

2 

LAST 

1187 

12,3012 

25  122 

1 

3 60CHECK 

1277 

12,3013 

63406 

0 

WLOOP 

PUSH 

DSQ 

0 D=W  (+5) 

PL  AT 

1270 

12,3014 

65351 

0 

TLOAD 

PDDL 

2D=WS  Q ( + 10) 

PL  AT 

1279 

REF 

727 

LAST 

1181 

12,3015 

00155 

0 

M P AC 

1280 

REF 

5 

LAST 

1185 

12,3016 

02742 

1 

R 1A 

1281 

12,3017 

76202 

0 

SR4 

TAD 

PL 

AT  2 

1282 

12,3020 

75440 

0 

BMN 

SORT 

1283 

REF 

1 

12,3021 

25205 

1 

INFINITY 

1284 

12,3022 

43  3 06 

0 

ROUND 

DAD 

PL 

AT  00 

1285 

12,3023 

61000 

0 

BOV 

T I X , 2 

1286 

REF 

1 

12,3024 

25120 

0 

RESETX2 

1287 

REF 

1 

12,3025 

25013 

1 

WLOOP 

1288 

12,3026 

40065 

0 

BDD  V 

BOV 

1289 

REF 

3 

LAST 

1182 

12,3027 

11034 

0 

Dl/128 

1290 

REF 

2 

LAST 

1187 

12,3030 

25205 

1 

INFINITY 

1291 

12,3031 

41440 

1 

POLYCUEF  BMN 

PUSH 

0D=l/W  (+2)  OR  1 6/W  (+6) 

PL  AT  2 

129  2 

REF 

3 

LAST 

1107 

12,3032 

25205 

1 

INFINITY 

1293 

12,3033 

77716 

1 

DSO 

1294 

12,3034 

41301 

0 

NORM 

DMP 

1295 

REF 

47 

LAST 

1185 

12, 3035 

00047 

1 

XI 

129  6 

REF 

6 

LAST 

1187 

12,3036 

02742 

1 

R 1A 

1297 

12,3037 

77457 

1 

SRR* 

EXIT 

1298 

12,3040 

21567 

0 

O 

0 

1 

o 

1299 

REF 

6 

LAST 

1178 

12,3041 

0 7243 

0 

TC 

POLY 

» 
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1300 
130  1 
130  1 

1302 

1302 

1303 

1303 
1 30  A 

1304 
130  5 

1305 

1306 

1306 

1307 
130  7 


1308 
130  9 
1310 

REF 

222 

LAST 

1178 

131  1 

REF 

2 

LAST 

1187 

1312 

REF 

1 

1313 

1314 

1315 

REF 

48 

LAST 

1187 

1316 

REF 

7 

LAST 

1187 

1317 

1318 

REF 

6 

LAST 

1184 

1319 

1320 

1321 

1322 

REF 

13 

LAST 

1186 

1323 

1324 

REF 

22 

LAST 

1182 

1325 

1326 

REF 

49 

LAST 

1138 

3" 

1327 

REF 

5 

LAST 

1185 

1328 

1329 

1330 

REF 

14 

LAST 

1138 

1331 

REF 

5 

LAST 

1187 

133  2 

REF 

3 

LAST 

1179 

2" 

133  3 
1334 

REF 

8 

LAST 

1188 

1335 

REF 

3 

LAST 

1172 

1336 

REF 

2 

LAST 

1134 

1337 

REF 

3 

LAST 

1179 

1338 


12,3042 

00005 

1 

12,3043 

20000 

0 

12,3044 

00000 

1 

12,3045 

72525 

0 

12,3046 

52471 

1 

12,3047 

03  146 

1 

12,3050 

15003 

0 

12,3051 

75556 

0 

12,3052 

45210 

0 

12,3053 

01615 

1 

12,3054 

13553 

0 

12,3055 

76371 

0 

12,3056 

63777 

0 

12,3057 

01232 

0 

12,3060 

27367 

0 

12,3061 

0 6060 

1 

12,3062 

76405 

1 

12,3063 

43006 

0 

12,3064 

04316 

l 

12,3065 

25172 

1 

12,3066 

6C316 

0 X COMMON 

12,3067 

00047 

1 

12,3070 

53605 

1 

12,3071 

02742 

1 

12,3072 

21565 

1 

12,3073 

14031 

0 

12,3074 

00041 

1 

12,3075 

75542 

0 

12,3076 

41306 

1 

12,3077 

77632 

0 

12,3100 

00025 

0 

12,3101 

60316 

0 

12,3102 

00047 

1 

12,3103 

41325 

0 

12,3104 

C2740 

0 

12,3105 

00041 

1 

12,3106 

75452 

0 

12,3107 

56405 

0 

12,31 LO 

C2766 

1 

12,3111 

14043 

0 

12,3112 

02742 

1 

12,3113 

43021 

0 

12,3114 

11036 

1 

12,3115 

04270 

0 

12,3116 

00045 

0 

12,3117 

77616 

0 

2021112-161 
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DEC 

20EC 

2D  EC 

2DEC 

2DEC 

2DEC 

2DEC 

2DEC 

TC 

DMP 

PUSH 

DSQ 

DMP 

STODL 

SR  l 
ROUND 
SL4R 
STORE 

DSQ 

PDDL 

SL  3 
DMP 

STODL 

BDSU 

STORE 

RVQ 


USER'S  PAGE  NO.  32  E5  S3 


5 


. 5 


- . 166666770 
. 100000392 

- .071401086 
. 055503292 

- .047264098 
. 040694204 
INTPRET 

SL1R  PL  AT  OD 

BON 

360SW 

TRUE360X 

NORM 

XI 

SRR* 

R l A 

0 -12D, 1 

XI  XI  (+6) 


R 1 

SQRT 

DMP 

X 


X (+17  OR  +16) 


PL  AT  0 


NORM 

XI 

DMP  0D=XS  Q (+34  OR  +32  -Nil  PL  AT  2 

P 

R 1 

SQRT 

SL3R 

COGA 

KEPCl 

R 1 A 

CLEAR 

D 1/64 

INFINFLG 

KEPC2 


GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L CCNIC  SUBROUTINFS 


1339 

12,3120 

77774 

0 

RESETX2 

AXT  , 2 

1340 

12,3121 

00C03 

1 

3 

1341 

12,3122 

51001 

1 

360CHECK 

SETPD 

BPL 

1342 

12,3123 

CC001 

0 

OD 

134  3 

REF 

1 

12,3124 

25  127 

1 

I NVRSEQN 

1344 

12,3125 

77614 

1 

SET 

1345 

REF 

3 LAST  1188 

12,3126 

04076 

1 

360SW 

1346 

12,3127 

75545 

1 

INVRSEQN 

DLOAO 

SORT 

134  7 

REF 

6 

LAST 

1188 

12,3130 

C2740 

0 

P 

1348 

12,3131 

41325 

0 

PDIJL 

DMP 

1349 

REF 

8 

LAST 

1187 

12,3132 

C2730 

1 

S NTH 

135  0 

REF 

6 

LAST 

,1188 

12,3133 

C2766 

1 

COGA 

1351 

12,3134 

65352 

0 

SL1 

P DDL 

1352 

REF 

6 

LAST 

1187 

12,3135 

02732 

0 

CSTH 

1353 

12,3136 

43202 

0 

SR  4 

DAD 

1354 

REF 

3 

LAST 

1185 

12,3137 

11044 

1 

Dl/32 

1355 

12,3140 

41225 

1 

DSU 

DMP 

1356 

12,3141 

55301 

0 

NORM 

BDDV 

1357 

REF 

50 

LAST 

1188 

12,3142 

00047 

1 

XI 

1358 

REF 

9 

LAST 

1189 

12,3143 

02730 

1 

S NTH 

1359 

12,3  144 

51457 

0 

SLR* 

ABS 

1360 

12,3145 

21174 

0 

0-5,1 

1361 

12,3146 

63406 

0 

PUSH 

DSO 

136  2 

12,3147 

14043 

0 

STOOL 

34D 

1363 

REF 

1 

12,3150 

11042 

1 

Dl/16 

1364 

12,3151 

63406 

0 

1 / InL  OOP 

PUSH 

DSO 

1365 

12,3152 

65234 

1 

RTB 

P DDL 

1366 

REF 

11 

LAST 

1179 

12,3153 

21643 

0 

TPMODE 

1367 

REF 

9 

LAST 

1188 

12,3154 

02742 

1 

R 1 A 

1368 

12,3155 

40405 

1 

DMP 

SR4 

1369 

12,3156 

00043 

0 

34D 

1370 

12,3157 

77771 

0 

TAD 

1371 

12,3160 

75440 

0 

BMN 

SORT 

1372 

REF 

4 

LAST 

1187 

12,3161 

25205 

1 

INFINITY 

1373 

12,3162 

77615 

0 

DAD 

1374 

12,3163 

60304 

0 

T I X , 2 

NORM 

1375 

REF 

1 

12,3164 

25151 

0 

l/WLOOP 

1376 

REF 

5 1 

LAST 

1189 

12,3165 

00047 

1 

XI 

1377 

12,3166 

77665 

1 

BDDV 

1378 

12,3167 

52057 

1 

SLR* 

GOTO 

1379 

12,3170 

21172 

0 

0-7,1 

1380 

REF 

1 

12,3171 

25031 

1 

POLYCOEF 

1381 

12,3172 

50145  1 

TRUE360X  DLOAD  BMN 

1382 

REF  10  LAST  1189 

12,3173 

02742  1 

R 1A 
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OD=SORT ( P ) (+2) 

2D=SNTH  COGA  (+5) 

NOTE:  NEAR  360  CASE 

0D= 1 / W (-1) 

2D=G  (+4! 


PL  AT  2 
PL  AT  4 

PL  AT  2,0 

TREATED  DIFFERENTLY 
PL  AT  2 

PL  AT  4 
PL  AT  7 


PL  AT  4 
PL  AT  2 


PL  AT  0 


GAP: 
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1383 

REF 

5 

LAST 

1189 

12,3174 

25205 

1 

INFINITY 

1384 

12,3175 

60366 

1 

SORT 

NORM 

1385 

REF 

52 

LAST 

1189 

12,3176 

00047 

1 

XI 

1386 

12,3177 

53665 

1 

BDD  V 

SL* 

1387 

REF 

2 

LAST 

1173 

12,3200 

11056 

1 

2 P I SC 

138  8 

12,3201 

20176 

0 

0-3,1 

1389 

12,3202 

41425 

1 

DSU 

PUSH 

1390 

12,3203 

77650 

1 

GOTO 

1391 

REF 

1 

12, 3204 

25066 

0 

X COM MON 

1392 

12,3205 

40001 

1 

I NFI N I TY 

SETPD 

BOV 

1393 

12,3206 

0 0C01 

0 

0 

1394 

REF 

1 

12,3207 

25  2 10 

0 

OVFLCLR 

1395 

12,3210 

43414 

1 

OVFLCLR 

SET 

RVQ 

1396 

REF 

3 

LAST 

1188 

12,3211 

04070 

1 

I NFINFLG 
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PAGE  1190 


USER'S  PAGE  NO.  34  F5  S3 


0D=2P  I/SQRTIK1A)  -X  PL  AT  0,2 


NO  SOLUTION  EXISTS  SINCE  CLOSURE  THROUGH 
INFINITY  IS  REQUIRED 
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.131  PAGF  1191 
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1397 

12,3212 

4C220 

0 

LAMBERT  STQ 

SETPO 

1398 

REF 

5 

LAST 

130 

12,3213 

02710 

0 

RTNLAMB 

1399 

12,3214 

00001 

0 

OD 

13995 

12,3215 

77600 

1 

BOV 

13996 

12,3216 

25217 

1 

+ 1 

1400 

12,3217 

76614 

0 

CLEAR 

V LOAD* 

140  1 

REF 

1 

12,3220 

02674 

0 

SOLNSW 

1403 

REF 

6 

LAST 

1185 

12,3221 

10005 

0 

MUTABLE, 1 

1404 

REF 

4 

LAST 

1185 

12,3222 

14017 

1 

STOOL 

1/MU 

1405 

REF 

3 

LAST 

690 

12,3223 

02671 

0 

TDFSIREO 

1406 

12,3224 

77675 

0 

DM  PR 

1407 

REF 

1 

12,3225 

11043 

0 

B EE  1 9 

1408 

REF 

2 

LAST 

130 

12,3226 

02764 

0 

STORE 

E PS  I LON L 

1409 

12,3227 

77214 

0 

SET 

V LOAD 

1410 

REF 

2 

LAST 

1180 

12,3230 

00474 

0 

S LOPE  SW 

1411 

REF 

6 

LAST 

692 

12,3231 

02655 

0 

R 1VEC 

1412 

12,3232 

45115 

0 

PDVL 

CALL 

OD=R 1 VEC  ( +29  OR  +27) 

PL 

AT 

6 

1413 

REF 

10 

LAST 

692 

12,3233 

02663 

0 

R2VEC 

MP AC=R2VEC  (+29  OR  +27) 

1414 

REF 

2 

LAST 

1184 

12,3234 

11131 

1 

GEOM 

1415 

REF 

10 

LAST 

1189 

12,3235 

16  730 

1 

STOOL 

SNTH 

0 D=CS  T H ( + 1) 

PL 

AT 

2 

1416 

REF 

5 

LAST 

1186 

12,3236 

02720 

0 

MAGVEC2 

1417 

12,3237 

65301 

0 

NORM 

PDDL 

PL 

AT 

4 

1418 

REF 

53 

LAST 

1190 

12,3240 

00047 

1 

XI 

1419 

REF 

15 

LAST 

1188 

12,3241 

0004 1 

l 

R 1 

1420 

12,3242 

56342 

1 

SRI 

DDV 

PL 

AT 

2 

142  1 

12,3243 

65257 

1 

SL* 

PDDL 

DXCH  WITH  OD,  0D=R1/R2  (+7) 

PL 

AT 

0,2 

1422 

12,3244 

20173 

.0 

0-6,1 

1423 

12,3245 

77626 

0 

STADR 

1424 

REF 

7 

LAST 

1139 

12 , 3246 

75045 

1 

STORE 

CSTH 

CSTH  (+1) 

1425 

12,3247 

44342 

1 

SRI 

BDSU 

1426 

REF 

3 

LAST 

1187 

12,3250 

11040 

0 

Dl/4 

142  7 

REF 

2 

LAST 

130 

12, 325 1 

02734 

0 

STORE 

1-CSTH 

1-CSTH  (+2) 

142  8 

12,3252 

53106 

0 

ROUND 

BZE 

1429 

REF 

1 

12,3253 

25473 

0 

360LAMB 

1430 

12,3254 

65301 

0 

NORM 

PDDL 

PL 

AT 

4 

1431 

REF 

54 

LAST 

1191 

12,3255 

OC047 

1 

XI 

1432 

12,3256 

00001 

0 

OD 

1433 

12, 3257 

56342 

1 

SRI 

DDV 

PL 

AT 

2 

1434 

12,3260 

75457 

0 

SL* 

SORT 

1435 

12,3261 

20176 

0 

0-3,1 

143  6 

12,3262 

54325 

1 

PDDL 

SR 

2D=S0RT( 2R1/R21 1-CSTH ) ) (+5) 

PL 

AT 

4 

1437 

REF 

11 

LAST 

1191 

12,3263 

02730 

1 

SNTH 

1438 

12,3264 

20607 

1 

6 

1439 

12,3265 

43271 

1 

DOV 

DAD 

PL 

AT 

2 

1440 

REF 

3 

LAST 

1191 

12,3266 

02734 

0 

1-CSTH 

1440  1 

12,3267 

17  626 

0 

STADR 

14402 

REF 

1 

12,3270 

77760 

0 

STORE 

COGAMAX 

1441 

12,3271 

50000 

1 

BOV 

BMN 

IF  OVFL,  COGAMAX=COGUPL IM 

1442 

REF 

1 

12,3272 

25277 

1 

U P L I M 

IF  NEG,  USE  EVEN  IF  LT  COGLOLIM, 

, SINCE 

GAP: 


ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  8Y  NASA  2021LL2-161 


L CCMC  SUBROUTINES 


1442  1 

REF 

1 

12,3273 

25302 

1 

MAXCOGA 

14422 

12, 3274 

5CC25 

0 

DSU 

BMN 

1442  3 

REF 

1 

12,3275 

11062 

0 

COGUPLIM 

14424 

REF 

2 

LAST 

1192 

12,3276 

25302 

1 

MAXCOGA 

14425 

12,3277 

77745 

1 

UPLIM 

□LOAD 

1442  e 

REF 

2 

LAST 

1192 

12,3300 

11062 

0 

COGUPLIM 

144  2 7 

REF 

2 

LAST 

119  1 

12,3301 

00017 

1 

STORE 

COGAMAX 

1443 

12,3302 

77745 

1 

MAXCOGA 

DLOAD 

1444 

REF 

8 

LAST 

1191 

12,3303 

C2732 

0 

CSTH 

144  5 

12,3304 

45261 

0 

SR 

DSU 

1446 

12,3305 

20607 

1 

6 

1447 

12,3306 

77626 

0 

STADR 

1448 

REF 

2 

LAST 

130 

12,3307 

6 1041 

0 

STOOL 

C STH-RHO 

144  9 

REF 

11 

'LAST 

1186 

12,3310 

02673 

1 

GEOMSGN 

1450 

12,3311 

71240 

1 

BMN 

DLOAD 

1451 

REF 

l 

12,3312 

25513 

1 

LOLIM 

1452 

REF 

3 

LAST 

1192 

12,3313 

02736 

1 

C STH-RHO 

1453 

12,3314 

56352 

0 

SL1 

DDV 

1454 

REF 

12 

LAST 

1191 

12,3315 

C2730 

1 

SNTH 

1455 

12,3316 

77600 

1 

BOV 

1456 

REF 

2 

LAST 

1192 

12,3317 

25513 

1 

LOLIM 

1457 

REF 

1 

12,3320 

00011 

1 

M INCOGA 

STORE 

COGAM  IN 

1458 

12, 3321 

66214 

0 

80N 

SSP 

1459 

REF 

3 

LAST 

691 

12,3322 

00  715 

1 

GUESSW 

1460 

REF 

1 

12,3323 

25477 

1 

NOGUESS 

1461 

REF 

3 

LAST 

1181 

12,3324 

00051 

0 

TWEEK IT 

1462 

12,3325 

00001 

0 

00001 

1463 

12,3326 

77745 

1 

DLOAD 

1464 

REF 

7 

LAST 

1189 

12,3327 

C2766 

1 

COGA 

1465 

12,3330 

77605 

1 

LAMBLOOP  DMP 

1466 

REF 

13 

LAST 

1192 

12,3331 

C2730 

1 

SNTH 

1467 

12,3332 

45342 

0 

SRI 

DSU 

1468 

REF 

4 

LAST 

1192 

12,3333 

02736 

l 

C STH-RHO 

1469 

12,3334 

65301 

0 

NORM 

P DDL 

1470 

REF 

55 

LAST 

1191 

12,3335 

00047 

1 

XI 

1471 

REF 

4 

LAST 

1191 

12,3336 

02734 

0 

1-CSTH 

1472 

12, 3337 

56257 

1 

SL* 

DDV 

1473 

12,3340 

20170 

0 

0 -9D , 1 

1474 

12,3341 

53C40 

0 

BMN 

BZE 

1475 

REF 

1 

12,3342 

25427 

1 

NEGP 

1476 

REF 

2 

LAST 

1192 

12,3343 

25427 

1 

NEGP 

147  7 

REF 

7 

LAST 

1189 

12,3344 

16740 

0 

STODL 

P 

1478 

REF 

0 

LAST 

1192 

12,3345 

02766 

1 

COGA 

1479 

12,3346 

43316 

1 

DSQ 

DAD 

1400 

REF 

1 

12,3347 

11046 

0 

01/ 1024 

1481 

12,3350 

4 1301 

0 

NORM 

DMP 

1482 

REF 

56 

LAST 

1192 

12,3351 

00047 

1 

X 1 

1483 

REF 

8 

LAST 

1 192 

12,3352 

C2  740 

0 

P 

17:11  MAR.  19,1971  SKIPPER  .131  PAGE  1192 

USFR'S  PAGE  NO.  36  F5  S3 

THIS  WOULO  BE  RESET  IN  LAMBLOOP 
IF  COGAMAX  GT  COGUPLIM,  COGAMAX=COGUPL IM 

OTHERWISE  OK,  SO  GO  TO  MAXCOGA 

COGUPL IM=. 999511597  = MAX  VALUE  OF  COGA 
NOT  CAUSING  OVFL  IN  R 1 A CALCULATION 

PL  AT  0 


COGAM  I N ( + 5) 


OD  = SN  TH  COGA- ICSTH-RHO)  (+7+CIX1))  PL=2 
1-CSTH  (+2)  PL  AT  0 


P= ( 1-CSTH) /( SNTH  COGA- ( C S TH-PHO ) ) (+4) 


GAP: 


ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161  17:11  MAR.  19,1971  SKIPPER  .131  PAGE  1193 


L CCNIC  SUBROUTINES 


USER' S PAGE  NO.  37  E5  S3 


1484 

12,3353 

44257 

1 

SR* 

BDSU 

1485 

12,3354 

205  71 

0 

0 -8D,1 

1486 

REF 

4 

LAST 

1189 

12,3355 

11044 

1 

D 1/32 

148  7 

REF 

11 

LAST 

1 189 

12,3356 

16742 

1 

STOOL 

R 1A 

1488 

REF 

9 

LAST 

1 192 

12,3357 

02  740 

0 

P 

1489 

12,3360 

45000 

0 

BOV 

CALL 

1490 

REF 

1 

12,3361 

25432 

0 

H I ENERGY 

1491 

REF 

2 

LAST 

1184 

12,3362 

24767 

1 

GETX 

1492 

12,3363 

77745 

1 

DLOAD 

1493 

REF 

10 

LAST 

1182 

12,3364 

C0C37 

0 

T 

1494 

REF 

1 

12, 3365 

16762 

0 

STOOL 

TPRFV 

1495 

REF 

7 

LAST 

1188 

12,3366 

0CC31 

0 

XI 

1496 

12,3367 

45014 

0 

BON 

CALL 

1497 

REF 

4 

LAST 

1190 

12,3370 

04310 

1 

I NF INFLG 

1498 

REF 

3 

LAST 

1192 

12,3371 

25427 

1 

NEGP 

1499 

REF 

3 

LAST 

1184 

12,3372 

24421 

0 

DELT IME 

1500 

12,3373 

44200 

0 

BOV 

BDSU 

1501 

REF 

1 

12,3374 

25447 

1 

RIGTIME 

1502 

REF 

4 

LAST 

1191 

12,3375 

02671 

0 

TOES IRED 

1503 

REF 

1 

12,3376 

02  760 

1 

STORE 

TERRLAMB 

1504 

12,3377 

44246 

1 

ABS 

BDSU 

1505 

REF 

3 

LAST 

1191 

12,3400 

02  764 

0 

EPS  I LONL 

1506 

12,3401 

47044 

1 

BPL 

RT8 

1507 

REF 

1 

12 , 3402 

25516 

1 

INITV 

1508 

REF 

2 

LAST 

1175 

12, 3403 

24644 

1 

CHECKCTR 

1509 

12,3404 

43030 

O' 

BHI  Z 

BON 

15091 

REF 

1 

12,3405 

25460 

1 

SUFFCHEK 

15092 

REF 

3 

LAST 

1191 

12,3406 

00  7 14 

0 

SLOPESW 

15093 

REF 

l 

12,3407 

25415 

0 

GOITER 

15094 

12,3410 

45345 

1 

DLOAD 

DSU 

15095 

REF 

11 

LAST 

1193 

12,3411 

0CC37 

0 

T 

15096 

REF 

2 

LAST 

1 193 

12,3412 

02762 

0 

TPREV 

15097 

12,3413 

77654 

0 

BZE 

1510 

REF 

2 

LAST 

1193 

12,3414 

25460 

1 

SUFFCHEK 

15105 

12,3415 

77624 

1 GOITER 

CALL 

151  1 

REF 

1 

12,3416 

24536 

1 

I TERATOR 

1512 

12,3417 

53  145 

1 

DLOAD 

BZE 

1513 

REF 

728 

LAST 

1187 

12,3420 

00  155 

0 

M P AC 

1514 

REF 

3 

LAST 

1193 

12,3421 

25460 

1 

SUFFCHEK 

1515 

12,3422 

77615 

0 

DAD 

1516 

REF 

9 

LAST 

1192 

12,3423 

02766 

1 

COGA 

1517 

REF 

10 

LAST 

1193 

12,3424 

02766 

1 

STORE 

COGA 

151  8 

12,3425 

77650 

1 

GOTO 

1519 

REF 

1 

12,3426 

25330 

0 

L AMBLCJOP 

1520 

12,3427 

51145 

0 NEGP 

DLOAD  BPL 

1521 

REF 

1 

12,3430 

00015 

0 

DCOGA 

1522 

REF 

1 

12,343  1 

25452 

0 

LOENERGY 

R 1 A=2-P( 1+COGA  COG A ) (+6) 


HAVE  EXCEEDED  THEORET ICAL  BOUNDS 


IMPOSSIBLE  TRAJECTORY  DUE  TO  INACCURATE 
BOUND  CALCULATION.  TRY  NEW  COGA. 


GAP:  ASSEMBLE  REVISION  2 LO  OF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L CCNIC  SUBROUTINES 


1523 

12,3432 

71201 

1 

HIENERGY 

SETPD 

DLOAD 

1524 

12,3433 

00001 

0 

0 

152  5 

REF 

11 

LAST 

1 193 

12,3434 

02766 

i 

COGA 

1526 

REF 

2 

LAST 

1192 

12,3435 

00C11 

i 

STORE 

COGAM  IN 

1527 

12,3436 

70545 

l 

COMMONLM 

DLOAD 

SRI 

1528 

REF 

2 

LAST 

1193 

12,3437 

00015 

0 

DCOGA 

1529 

REF 

3 

LAST 

1 194 

12,3440 

00015 

0 

STORE 

DCOGA 

1530 

12,3441 

44254 

1 

BZE 

BDSU 

1530  1 

REF 

4 

LAST 

1193 

12, 3442 

25460 

1 

SUFFCHEK 

1531 

REF 

12 

LAST 

1194 

12, 3443 

02  766 

1 

COGA 

153  2 

REF 

13 

LAST 

1194 

12,3444 

02766 

1 

STORE 

COGA 

1533 

12,3445 

77650 

1 

GOTO 

1534 

REF 

2 

LAST 

1193 

12,3446 

25330 

0 

LAMBLOOP 

1535 
153  6 

REF 

3 

LAST 

1193 

12,3447 

12,3450 

77745 

02762 

1 BIGTIME 

0 

DLOAD 

TPREV 

1537 

REF 

12 

LAST 

1193 

12,3451 

00037 

0 

STORE 

T 

153  8 

12,3452 

71201 

1 

LCENERGY  SETPD 

DLOAD 

1539 

12,3453 

00001 

0 

0 

1540 

REF 

14 

LAST 

1194 

12,3454 

02766 

1 

COGA 

1541 

REF 

3 

LAST 

1192 

12,3455 

00017 

1 

STORE 

COGAMAX 

1542 

12,3456 

77650 

1 

GOTO 

1543 

REF 

1 

12,3457 

25436 

1 

COMMONL 

1544 

12,3460 

51545 

1 

SUFFCHEK 

DLOAD 

ABS 

154  5 

REF 

2 

LAST 

1193 

12,3461 

02760 

1 

TERRL AMB 

1546 

12,3462 

41325 

0 

PDDL 

DMP 

1547 

REF 

5 

LAST 

L 193 

12,3463 

02671 

0 

TDES I RED 

1548 

REF 

1 

12,3464 

11031 

0 

B EE  1 7 

1549 

12,3465 

45215 

0 

DAD 

DSU 

1550 

REF 

1 

12,3466 

11060 

1 

ONEBIT 

1551 

12,3467 

43044 

0 

BPL 

SETGO 

1552 

REF 

2 

LAST 

1193 

12,3470 

25516 

1 

I N IT  V 

1553 

REF 

2 

LAST 

1191 

12,3471 

02434 

0 

SOLNSW 

1554 

REF 

3 

LAST 

1194 

12,3472 

25516 

1 

INITV 

1555 

12,3473 

43001 

1 

3 60L  AMB 

SETPD 

SETGO 

1556 

12,3474 

00001 

0 

0 

1557 

REF 

3 

LAST 

1194 

12,3475 

02434 

0 

SOLNSW 

1558 

REF 

6 

LAST 

119  1 

12,3476 

02710 

0 

R TNLAMB 

1559 

12,3477 

71331 

0 NOGUESS 

SSP 

DLOAD 

1560 

REF 

4 

LAST 

1192 

12,3500 

00051 

0 

TWEEK  IT 

1561 

12,3501 

10000 

0 

20000 

1562 

REF 

3 

LAST 

1194 

12,3502 

3 3011 

1 

COGAM  IN 

1563 

12, 3503 

65342 

1 

SRI 

PDDL 

17:11  MAR.  19,1971  SKIPPER  .131  PAGE  1194 

USER'S  PAGE  NO.  38  E5  S3 

HIGH  ENERGY  TRAJECTORY  RESULTEO 

IN  OVEL  OF  P OR  R 1 A , OR  XI  EXCEEDING  50. 
THIS  IS  THE  NEW  BOUND. 

USE  DCOGA/2  AS  DECREMENT 


RESTART  THIS  LOOP 


LOW  ENERGY  TRAJECTORY  RESULTFD 

IN  OVERFLOW  OF  TIME. 

THIS  IS  THE  NEW  BOUND. 


PL  AT  2D 


PL  AT  OD 


LAMBERT  CANNOT  HANDLE  CSTH=1 


PL  AT  2 


GAP: 

L 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1503 

1584 

1585 

1586 

1587 

1508 

1509 

1590 

1591 

159  2 

1593 

1594 

1595 

1596 

1597 

159  9 

1 60  ( 

160  1 

1602 

1603 

1604 

1605 

160  6 

1607 

1608 

1609 

161  0 


ASSEMBLE  REVISION  210 

OF  AGC  PROGRAM  LUMINARY 

BY  NASA  2021112-161 

17: 11  MAR.  19,1971 

SKIPPER 

.131  PAGF  1195 

CCNIC 

SUBROUTINES 

USER'S  PAGE 

NO.  39 

E5  S3 

REF 

4 LAST 

1194 

12,3504 

00017 

1 

COGAMAX 

12,3505 

43342 

0 

SRI 

DAO 

12,3506 

77626 

0 

STADR 

PL  AT  0 

REF 

15  LAST 

1 194 

12,3507 

75011 

0 

STORE 

COGA 

REF 

4 LAST 

1194 

12,3510 

00015 

0 

STORE 

DCOGA 

12 , 3 5 L 1 

77650 

1 

GOTO 

REF 

3 LAST 

1194 

12,3512 

25330 

0 

L AM8  LOOP 

REF 

1 

12.3513 

12.3514 

52  145 
11064 

0 LOLIM 
0 

DLOAD  GOTO 

COGLOLI M 

COGLOLIM=-. 999511 597 

REF 

1 

12,3515 

25320 

1 

MINCOGA 

12,3516 

60345 

0 INITV 

DLOAD 

NORM 

REF 

16 

LAST 

1191 

12,3517 

00041 

1 

R 1 

REF 

57 

LAST 

1192 

12,3520 

00047 

1 

XI 

12,3521 

70525 

1 

PDDL 

SRI 

PL 

AT 

2 

REF 

10 

LAST 

1193 

12,3522 

C2740 

0 

P 

12,3523 

77671 

1 

DDV 

PL 

AT 

0 

12,3524 

75457 

0 

SL* 

SORT 

12,3525 

20175 

0 

0-4,1 

12,3526 

72405 

0 

DMP 

S LI 

REF 

3 

LAST 

1182 

12, 3527 

00021 

1 

ROOT  MU 

12,3530 

41206 

0 

PUSH 

DMP 

OD=VT  AN  (+7) 

PL 

AT 

2 

REF 

16 

LAST 

1195 

12,3531 

02766 

1 

COGA 

12,3532 

74261 

1 

SL 

VXSC 

12,3533 

20206 

1 

5 

REF 

7 

LAST 

1186 

12,3534 

02722 

i 

UR  1 

12,3535 

77725 

l 

PDDL 

XCH  WITH  OD 

PL 

AT 

0,6 

12,3536 

76561 

l 

VXSC 

VSL  1 

REF 

7 

LAST 

1186 

12,3537 

02674 

0 

UN 

12,3540 

53235 

0 

VXV 

VAD 

PL 

AT 

0 

REF 

8 

LAST 

1195 

12,3541 

02722 

1 

UR  1 

12,3542 

77772 

0 

VSL  1 

REF 

13 

LAST 

1184 

12,3543 

02744 

1 

STORE 

V VFC 

12,3544 

53135 

0 

SLOAD 

BZE 

REF 

5 

LAST 

69  2 

12,3545 

02702 

0 

VTARGTAG 

REF 

1 

12,3546 

25551 

1 

TARGETV 

12,3547 

77650 

1 

GOTO 

REF 

7 

LAST 

1 194 

12,3550 

02710 

0 

RTNLAMB 

12,3551 

45145 

0 TARGETV 

DLOAD 

CALL 

REF 

6 

LAST 

1 19  1 

12,3552 

02720 

0 

MAGVEC2 

REF 

1 

12,3553 

24701 

1 

LAMENTER 

REF 

4 

LAST 

693 

12,3554 

02703 

1 

STORE 

V T AR  GET 

12,3555 

77650 

1 

GOTO 

REF 

8 

LAST 

1 195 

12,3556 

02710 

0 

RTNLAMB 

GAP:  ASSEMBLE  REVISION  21C  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


17:11  MAR.  19,1971  SKIPPER  .131  PAGE  1196 


L CONIC  SUBROUTINES 


161  1 

12,3557 

40220 

0 

TIMERAD  STQ 

1612 

REF 

1 

12,3560 

02710 

0 

1613 

12,3561 

00001 

0 

16135 

12,3562 

77600 

1 

BOV 

1613  6 

12,3563 

25564 

1 

1614 

12,3564 

63375 

0 

VLOAD 

161  5 

REF 

9 

LAST 

1184 

12,3565 

02655 

0 

1616 

REF 

14 

LAST 

1195 

12,3566 

02744 

1 

1617 

12,3567 

77624 

1 

CALL 

161  8 

REF 

2 

LAST 

1184 

12,3570 

11065 

1 

1619 

12,3571 

71200 

0 

BOV 

162  0 

REF 

2 

LAST 

1184 

12,3572 

24764 

1 

1621 

REF 

5 

LAST 

1193 

12,3573 

1 1044 

l 

1622 

12,3574 

41225 

1 

DSU 

162  3 

REF 

12 

LAST 

1193 

12,3575 

02742 

1 

1624 

REF 

11 

LAST 

1195 

12,3576 

02  740 

0 

1625 

12,3577 

41366 

1 
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INTEGRATION  INITIALIZATION  USER'S  PAGE  NO.  1 FO  S3 

1.0  INTRODUCTION 


FRCM  A USERS  POINT  OF  VIEW,  ORBITAL  INTEGRATION  IS 
PROGRAM.  THE  SAME  ENTRANCES  TC  THE  PROGRAM  WILL  BE 
OUTPUT  WILL  STILL  BE  VIA  THE  PUSHLIST.  THE  PRIMARY 
TERMINATING  INTEGRATION  AT  A SPECIFIC  FINAL  RADIUS 
SIDE  THE  LUNAR  SPHERE  OF  INFLUENCE. 


ESSENTIALLY  THE  SAME  AS  THE  278  INTEGRATION 
MAINTAINED,  THE  SAME  STALLING  ROUTINE  WILL  BE  USED  AND 
DIFFERENCES  TO  A USER  INVOLVE  THE  ADDED  CAPABILITY  OF 
AND  THE  DIFFERENCE  IN  STATE  VECTOR  SCALING  INSIDE  AND  OUT- 


IN  ORDER  TO  MAKE  THE  CSMILFM1PREC  AND  CSM I LEM ) COM IC  ENTRANCES  SIMILAR  TO  FLIGHT  278,  THE  INTEGRATION  PROGRAM 
WILL  ITSELF  SET  THE  FINAL  RADIUS  (RFINAL)  TO  0 SO  THAT  REACHING  THE  DESIRED  TIME  ONLY  WILL  TFRMINATE 
INTEGRATION.  THE  CP  REGISTER  RFINAL  MUST  BE  SET  BY  USERS  OF  INTEGRVS  AND  INTEGRV,  AND  MUST  BE  DONE  AFTER  THE 
CALL  TC  INTSTALL. 

WHEN  THE  LM  IS  ON  THE  LUNAR  SURFACE  (INDICATED  BY  LUNAR  SURFACE  FLAG  SET)  CALLS  TO  LFMCONIC,  LEMPREC,  AND 
INTEGRV  WITH  VINFLAG  = 0 WILL  RESULT  IN  THE  USE  OF  THE  PLANETARY  INERTIAL  ORIENTATION  SUBROUTINES  TO  PROVIDE 
BOTH  THE  LMS  POSITION  AND  VELOCITY  IN  THE  REFERENCE  COORDINATE  SYSTEM. 

THE  PROGRAM  WILL  PROVIDE  OUTPUT  AS  IF  INTEGRATION  WAS  USED.  THAT  IS,  THE  PUSHLIST  WILL  BE  SET  AS  NOTED  BELOW  AND 
THE  PERMANENT  STATE  VECTUR  UPDATED  WHEN  SPECIFIED  BY  AN  INTEGRV  CALL. 


USERS  CF  INTEGRVS  DESIRING  INTEGRATION  (INTYPFLG  = 0)  SHOULD  NOTE  THAT  THE  OBLATENESS  PERTURBATION  COMPUTATION 
IN  LUNAR  ORBIT  IS  TIME  DEPENDENT.  THEREFORE,  THE  USER  SHOULD  SUPPLY  AN  INITIAL  STATE  VECTOR  VALID  AT  SOMF  REAL 
TIME  ANC  THE  DESIRED  TIME  ITDEC1)  ALSO  AT  SOME  REAL  TIME.  FOR  CONIC  , , I NTEGR AT  ION , , THE  USER  MAY  STILL  USE  ZFRO 
AS  THE  INITIAL  TIME  AND  DELTA  TIME  AS  THE  DESIRED  TIME. 

2 . C GENERAL  DESCRIPTION 


THE  INTEGRATION  PROGRAM  OPERATES  AS  A CLOSED  INTERPRETIVE  SUBROUTINE  AND  PERFORMS  THESE  FUNCTIONS 

1)  INTEGRATES  (PRECISION  OR  CONIC)  EITHER  CSM  OR  LM  STATE  VECTOR 

2)  INTEGRATES  THE  W-MATRIX 

3)  PERMANENT  OR  TEMPORARY  UPDATE  OF  THE  STATE  VECTOR 


THERE  ARE  SIX  ENTRANCES  TO  THE  INTEGRATION  PROGRAM.  FOUR  OF  THESE  (CSMPREC,  LEMPREC,  CSMCONIC,  LFMCONIC)  SET 
ALL  THE  FLAGS  REQUIRED  IN  THE  INTEGRATION  PROGRAM  ITSELF  TO  CAUSE  THE  PRECISION  OR  CONIC  INTEGRATION  (KEPLER)  OF 
THE  LM  OR  CSM  STATE  VECTOR,  AS  THE  NAMES  SUGGEST.  ONE  ENTRANCE  (INTEGRVS)  PERMITS  THE  CALLING  PROGRAM  TO 
PROVIDE  A STATE  VECTCR  TO  BE  INTEGRATED.  THE  CALLING  PROGRAM  MUST  SET  THE  FLAGS  INDICATING  (1)  PRECISION  OR 
CONIC  INTEGRATION,  (2)  IN  OR  OUT  OF  LUNAR  SPHERE,  (3)  MIDCOURSE  OR  NOT,  AND  THE  INTEGRATION  PROGRAM  COMPLETES 
THE  FLAG  SETTING  TO  BYPASS  W-MATRIX  INTEGRATION.  THE  LAST  ENTRANCE  (INTEGRV,  USED  IN  GENFRAL  BY  THE 
NAVIGATION  PROGRAMS)  PERMITS  THE  CALLER  TO  SET  FIVE  FLAGS  (NUT  MOONFLAG  OR  MIDFLAG)  BUT  NOT  TO  INPUT  A ST  AT  F 
VECTOR.  ANY  PROGRAM  WHICH  CALLS  INTEGRVS  OR  INTEGRV  MUST  CALL  INTSTALL  BEFORE  IT  SETS  THE  INTEGRATION  FLAGS 
AND/OR  STATE  VECTOR. 


THREE  SETS  OF  42  REGISTERS  AND  2 FLAGS  ARE  USED  FOR  THE  STATE  VECTORS.  TWO  SETS,  WHICH  MAY  NOT  BE  OVERLAYED,  ARE 
USED  FCR  THE  PERMANENT  STATE  VECTORS  FOR  THE  CSM  AND  LM.  THE  THIRD  SET,  WHICH  MAY  BE  OVERLAYED  WHEN  INTEGRATION 
IS  NOT  BEING  DONE,  IS  USED  IN  THE  COMPUTATIONS. 


THE  PERMANENT  STATE  VFCTORS  WILL  BE  PERIODICALLY  UPDATED  SO  THAT  THE  VECTORS  WILL  NOT  RE  OLDER  THAN  4 TIMFSTFPS. 
THE  PERMANENT  STATE  VECTORS  WILL  ALSO  BE  UPDATED  WHENEVER  THE  W-MATRIX  IS  INTEGRATED  OR  WHEN  A CALLER  OF  INTEGRV 
SETS  STATEFLG  I THF  NAVIGATION  PROGRAMS  P20,  P22.) 
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R0082 
R0083 
R0084 
R0085 
R0086 
R0088 
R0090 
R0092 
R0094 
R0096 
R0097 
R0098 
R0099 
R0100 
R0101 
R010  3 
RO 10  5 
R0107 
R0109 
RO  1 1 0 
RO  1 1 1 
R0112 
R0113 
R0114 
R0115 
RO  1 1 7 
RO  119 
RO  12  1 
RO  12  2 
RO  123 
R0124 
RO  12  5 
RO  12  6 
RO  12  7 
RO  12  8 
R0129 
R0130 
RO  13  1 
R 0 1 3 2 
R 0 1 3 3 
R 0 1 3 4 
R 0 13  8 
RO  13  6 
RO  13  7 
RO  13  8 
R 0 1 3 9 
R 0 140 
RO  14  1 
RO  14  2 
R0143 


APPENDIX  B OF  THE  USERS  GUIDE  LISTS  THE  STATE  VECTOR  QUANTITIES. 

2.1  RESTARTS 

PHASE  CHANGES  WILL  BE  MAOt  IN  THE  INTEGRATION  PROGRAM  ONLY  FOR  THE  INTEGRV  ENTRANCE  (I.E.,  WHEN  THE  W-MATRIX  IS 
INTEGRATED  OR  PERMANENT  STATE  VECTOR  IS  UPDATED.)  THE  GROUP  NUMBER  USED  WILL  BE  THAT  FOR  THE  P20-25  PROGRAMS 
(I.E.,  GR0UP2 ) SINCE  THE  INTEGRV  ENTRANCE  WILL  ONLY  BE  USED  BY  THESE  PROGRAMS.  IF  A RESTAPT  OCCURS  DURING  AN 
INTEGRATION  OF  THE  STATE  VECTOR  ONLY,  THE  RECOVERY  WILL  BE  TO  THE  LAST  PHASE  IN  THE  CALLING  PROGRAM.  CALLING 
PROGRAMS  WHICH  USE  THE  INTEGRV  OR  INTEGRVS  ENTRANCE  OF  INTEGRATION  SHOULD  ENSURE  THAT  IF  PHASE  CHANGING  IS  DONE 
THAT  IT  IS  PRIOR  TO  SETTING  THE  INTEGRATION  INPUTS  IN  THE  PUSHLIST. 

THIS  IS  BECAUSE  THE  PUSHLIST  IS  LOST  DURING  A RESTART. 

2.2  SCALING 

THE  INTEGRATION  ROUTINE  WILL  MAINTAIN  THE  PERMANENT  MEMORY  STATE  VECTORS  IN  THE  SCALING  AND  UNITS  DEFINFD  IN 
APPENDIX  B OF’  THE  USERS  GUIDE.  THE  SCALING  OF  THE  OUTPUT  POSITION  VECTORDE PENDS  ON  THE  ORIGIN  OF  THE  COORDINATE 
SYSTEM  AT  THE  DESIRED  INTEGRATION  TIME.  THE  COORDINATE  SYSTEM  TRANSFORMATION  WILL  BE  DONE  AUTOMATICALLY  ON 
MULTIPLE  TIMESTEP  ENCKE  INTEGRATION  ONLY.  THUS  IT  IS  POSSIBLE  TO  HAVE  OUTPUT  FROM  SUCCESSIVE  INTEGRATIONS  IN 
DIFFERENT  SCALING. 

HOWEVER,  RATT,  VATT  WILL  ALWAYS  BE  SCALEO  THE  SAME. 

3.0  INPUT/OUTPUT 


PROGRAM  INPUTS  ARE  THE  FLAGS 
PENDIX  B OF  THE  USERS  GUIDE, 
FOR  INTEGRVS,  THE  RCV.VCV,  TE 


DESCRIBED  IN  APPENDIX  A AND  THE  PERMANENT  STA 
PLUS  THE  DESIRED  TIME  TO  INTEGRATE  TO  IN  TDEC 
T OF  THE  TEMPORARY  STATE  VECTOR  MUST  BE  SET, 


TE 

VECTOR 

QUANTITIES 

DE 

1 ( 

A 

PUSH 

L 1ST 

LOCAT 

ION 

PLU 

S 

MOONFLAG 

AND  M I 

DFL 

SCRIBED 

) . 

AG 


IN  AP- 


FOR  SIMULATION  THE  FOLLOWING  QUANTITIES  MUST  BE  PRESET  


EARTH  MOON 
29  27 


RRECTCSMI LEM ) 

- RECTIFIED 

POSITION 

VECTOR 

METERS 

2 

2 

7 

5 

VRECTCSM1 LEM) 

- RECTIFIED 

VELOCITY 

VECTOR 

M/CSEC 

2 

2 

28 

28 

TETCSM(LEM) 

- TIME  STAT 

E VECTOR 

IS  VALID 

C SEC 

2 

2 

CUSTOMARILY  0,  BUT  NOTE  LUNAR 
ORBIT  DEPENDENCE  ON  REAL  TIME. 


DELTAVCSM(LEM)  - POSITION  DEVIATION 
0 IF  TCCSM ( LEM ) = 0 


22  18 
METERS  2 2 


NUVCSMILEM)  - VELOCITY  DEVIATION 
0 IF  TCCSM(LEM)  = 


3 -1 

M/CSEC  2 2 


0 
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RO 144 

29 

27 

R0145 

RCVCSMI LEM! 

- CONIC  POSITION 

METERS 

2 

2 

RO  146 

EQUALS  RRECTCSMI LEM)  IF 

RO  147 

TCCSMI LEM ) = C 

RO  14  8 

RO  149 

7 

5 

RO  150 

VCVCSMt  LEM ) 

- CONIC  VELOCITY 

M/CSEC 

2 

2 

R0151 

EQUALS  VRECTCSMI LEM)  IF 

RO  152 

TCCSMILEM)  = 0 

R0153 

R0154 

28 

28 

R0155 

TCCSMI LEM ) 

- TIME  SINCE  RECTIFICATION 

C SEC  S 

2 

2 

RO  15  6 

CUSTOMARILY  0 

RO  15  7 

RO  15  8 

1/2 

17 

16 

RO  159 

XKEPCSMI LEM ) 

- ROOT  OF  KEPLERS 

EQUAT ION 

M 

2 

2 

RO  160 

0 IF  TCCSMILEM) 

= 0 

R0161 

RO  162 

CMCCNFLG 

- PERMANENT  FLAGS 

CORRESPONDING 

0 

0 

RO  16  3 

CM  IDFLAG 

TO  MOONFLAG  AND 

MIDFLAG 

0,1 

0,1 

RO  164 

LMCCNFLG 

C = CSM,  L = LM 

0 

0 

RO  16  5 

LM  IDFLG 

0,1 

0,1 

R0166 

RO  16  7 

SORFFLAG 

- LUNAR  SURFACE  FLAG 

0,  1 

0,1 

RO  16  8 

RO  169 

IN  ADDITION,  IF 

(L)CMIDFLAG  IS  SET, 

THE  INITIAL  INPUT  VALUES  FOR 

LUNAR 

RO  170 

SOLAR  EPHEMER I OES  SUBROUTINE  AND  PLANETARY  INERTIAL 

. ORIENTATION 

SUB- 

R0171 

ROUTINE  MUST  BE 

PRESET  . 

R 0 1 72 

RO  17  3 

OUTPUT 

RO  174 

AFTER  EVERY  CALL 

. TO  INTEGRATION 

RO  17  5 

EARTH 

MOON 

R0176 

29 

29 

RO  17  7 

OD  RATT 

POSITION 

METERS 

2 

2 

R0178 

7 

7 

R0179 

6D  VATT 

VELOC  I TY 

M/CSEC 

2 

2 

RO  18  0 

28 

28 

RO  18  1 

12D  TAT 

TIME 

2 

2 

R0182 

29 

27 

RO  18  3 

1 4 D R ATT  1 

POSITION 

METFRS 

2 

2 

RO  184 

7 

5 

RO  18  5 

2 0 D VATT1 

VELOC  IT Y 

M/CSEC 

2 

2 

RO  186 

3 2 

36 

30 

R0187 

260  MU(P) 

MU 

M /CS 

2 

2 

RO  18  8 

R0189 

XI 

MUTABLE  ENTRY 

-2 

-10D 

RO  190 

RO  19  1 

X2 

COORD  I NT 

RO  192 

X 2 

COORDINATE  SYSTEM  ORIGEN 

0 

2 

R0193 

I THIS,  NOT  MOONFLAG, 

SHOULD  BE 

GAP:  ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 

L INTEGRATION  INITIALIZATION 


19 , 1971 

SK 

IPPER 

.131  PAGE 

R'S  PAGE 

NO 

. 4 

EO  S3 

R0194 
R0195 
RO 196 
R019T 
R0198 
R0199 
R0200 
R020  1 
R0202 
R0203 
R0204 
R0205 
R0206 
R0207 
R020  8 
R0209 
R0210 
R021  1 
R021  2 


USED  TO  DETERMINE  ORIGIN.) 

IN  ADDITION  TO  THE  ABOVE,  THE  PERMANENT  STATE  VECTOR  IS  UPDATED  WHENEVER 
STATEFLG  WAS  SET  AND  WHENEVER  A W-MATRIX  IS  TO  BE  INTEGRATED.  THE  PUSH 
COUNTER  IS  SET  TO  0 AND  CVERFLOW  IS  CLEARED  BEFORE  RETURNING  TO  THE 
CALLING  PROGRAM. 

4.0  CALLING  SEQUENCES  AND  SAMPLE  CODE 


A)  PRECISION  ORBITAL  INTEGRATION.  CSMPR EC , LEMPR EC  ENTRANCES 


STORE  TIME  TO  95T5791T5  T 
CALL 

CSMPREC  ICR  LEMPREC) 

RFTURN 


L-X 
L 

L + l 
L + 2 
INPUT 

TDEC1  (PD  3 2D ) TIME  TO  INTEGRATE  TO. 
OUTPUT 

THE  DATA  LISTED  IN  SECTION  3.0  PLUS 


95  PUS  L9ST  ( T 4 5 3 1 ) 


28 


. CENT  I S ECONDS  SCALED  2 


R0213 

RQVV 

POSITION  VECTOR  CF  VEHICLE  WITH 

RESPECT 

R0214 

BODY 

. ..  METERS  B— 29  ONLY  IF  MIDFLAG  = 

01  MO FLAG 

R0215 

B)  CONIC  I 

NTEGR AT  I ON . CSMCCNIC,  LEMCONIC  ENTRANCES 

R0216 

L-X 

STORE 

TIME  IN  PUSH  LIST  (TDEC1) 

R021  7 

L 

CALL 

R0218 

L + l 

CSMCONIC  (OR  LEMCONIC) 

R0219 

INPUT/OUTPUT 

R0220 

SAME 

AS  PRECI 

SION  INTEGRATION,  EXCEPT 

RQVV  NOT 

R0221 

C)  INTEGRATE  GIVEN 

STATE  VECTOR.  I NTEGRVS  ENTRANCE 

R0222 

CALL 

R0223 

INTSTALL 

R0224 

V LOAD 

R0225 

POSITION  VECTOR 

R0226 

STGVL 

RCV 

R0227 

VELOCITY  VECTOR 

R0228 

STOOL 

VCV 

R0229 

TIME  STATE  VECTOR  VALID 

R0230 

STOOL 

TET 

R0231 

FINAL  RADIUS 

R0232 

STORE 

RF  INAL 

R023  3 

S ET ( CLEAR ) SET ( CLEAR ) 

R0234 

I NTYPFLAG 

R0235 

MOONFL AG 

R0236 

SET (CLEAR ) DLOAD 

R0237 

DESIRED  TIME 

R0238 

S TC ALL 

T DEC  1 

R0239 

I NTEGRVS 

R0240 

INPUT 

R0241 

RCV 

POSITION  VECTOR 

METERS 

R0242 

VC  V 

VELOCITY  VECTOR 

M/CSEC 

R0243 

TET 

TIME  OF  STATE  VECTORtMAY  = 0) 

CSEC  R- 

1205 
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R0244 

TDEC1 

TIME  TO  INTEGRATE  TO 

CSEC  B-28  (PD  32D ) 

R0245 

(MAY  BE  INCREMENT  IF 

T ET=0 ) 

R 0246 

CUTPUT 

R0247 

SAME  AS  FOR  PRECISION  CR  CONIC  INTEGRATION, 

R0243 

DEPENDING  ON  INTYPFLG. 

R0249 

D)  INTEGRATE 

STATE  VECTOR. INTGRV  ENTRANCE 

R0250 

L-X 

STORE  TIME  IN  PUSH  LI 

ST  ( TOE C 1 ) (MAY  BE  DONE  AFTER 

CALL  TO 

R0252 

L— 8 

CALL 

R0253 

L-7 

R0254 

L-6 

SET ( CLEAR ) SET(CLEAR) 

R0255 

L-5 

VINTFLAG 

1=CSM,  0=LM 

R0256 

L-4 

INTYPFLAG 

1=C0N I C » 0=PREC I S ION 

R0257 

L-3 

SETICLEAR)  SET(CLEAR) 

R0258 

L-2 

DI MOFLAG 

1 = W— M A T R I X , 0 = N0  W-MATRIX 

R0259 

L-l 

D60R9FLG 

1=9X9,  0=6X6 

R0260 

L 

SET  DLCAD 

R0261 

L + l 

STATEFLG 

DESIRE  PERMANENT  UPDATE 

R0262 

L + 2 

FINAL  RAD. 

OF  STATE  VECTOR 

R0263 

L+3 

STCALL  RF  INAL 

R0264 

L + 4 

INTEGRV 

R0265 

L 

CALL 

NORMAL  USE — WILL  UPDATE  STATE 

R0266 

L + l 

INTEGRV 

VECTOR  IF  DIMOFLAG= 1 .( STATEFLG  IS 

R026  7 

L + 2 

RETURN 

ALWAYS  RESET  IN  INTEGRATION 

AFTER 

R0268 

IT  IS  USED. ) 

R0269 

INPUT 

R0270 

TDEC1  ( 

PD  3 2D ) TIME  TO  INTEGRATE  TO  CSEC  B-28 

R0271 

OUTPUT 

R0272 

SAME  AS 

FCR  PRECISION  OP  CONIC  INTEGRATION 

R0273 

THE  PROGRAM  WILL  SET  MOONFLAG, 

MIDFLAG  DEPENDING  ON 

R 0 2 7 4 

THE  PERMANENT  STATE  VECTOR  REPRESENTATION. 

0274  1 

11,2403 

BANK 

11 

02742 

REF 

3 

LAST 

247 

13,2000 

SET  LQC 

INTI  NIT 

02743 

13,2641 

BANK 

02744 

REF 

7 

LAST 

981 

E3 , 1554 

EBANK= 

RRECTCSM 

02745 

REF 

3 

LAST 

247  TO 

250: 

34 

36* 

COUNT  * 

JS/INTIN 

0275 

REF 

1C8 

LAST 

1151 

13,2641 

0 5355 

1 

STATE INT 

TC 

PHASCHNG 

0276 

13,2642 

OC052 

0 

OCT 

00052 

0277 

REF 

10 

LAST 

777 

13,2643 

3 5010 

0 

CAF 

PRI05 

0278 

REF 

40 

LAST 

964 

13, 2644 

0 5076 

0 

TC 

FINDVAC 

0279 

REF 

8 

LAST 

1206 

E3 , 1554 

EBANK= 

RRECTCSM 

0280 

REF 

2 

LAST 

25  1 

13,2645 

02650 

0 

2C  ADR 

STAT INTI 

0280 

13,2646 

26063 

0 

0281 

REF 

67 

LAST 

1130 

13,2647 

0 5263 

0 

TC 

TASKOVER 

0282 

REF 

223 

LAST 

1188 

13,2650 

0 6060 

1 

STAT I NT  1 

TC 

I NTPRET 

0283 

13,2651 

47014 

1 

BON 

RTB 

0283  1 

REF 

2 

LAST 

310 

13,2652 

04712 

1 

QU  IT  FLAG 

02832 

REF 

1 

13,2653 

26711 

1 

NOINT 

0284 

RFF 

34 

LAST 

977 

13,2654 

21603 

1 

LOADTIME 

0286 

REF 

50 

LAST 

974 

13,2655 

00041 

1 

STORE 

T DEC  1 

KILL  INTEGRATION  UNTIL  NF  XT  POO. 
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032  3 

13,2656 

77624 

1 

CALL 

0324 

REF 

28 

LAST 

1151 

13 ,2657 

27447 

0 

INTSTALL 

0325 

13,2660 

45014 

0 

SET 

CALL 

03251 

REF 

4 

LAST 

713 

1 3 ,2661 

01076 

1 

NODOFLAG 

0326 

REF 

7 

LAST 

603 

13,2662 

26702 

0 

S ET I FLGS 

0327 

13,2663 

52  C 14 

0 

SET 

GOTO 

032  8 

REF 

2 

LAST 

240 

13,2664 

01460 

1 

POOHFLAG 

03282 

REF 

1 

13,2665 

26C26 

1 

STATEUP 

0356 

13,2666 

00003 

1 

600SECS 

2DEC 

60000 

0356 

13,2667 

25  140 

0 

0404 

13,2670 

77414 

0 

ENDI NT 

CLEAR 

EXIT 

040  5 

REF 

4 

LAST 

603 

13,2671 

01672 

0 

STATEFLG 

040  8 

REF 

109 

LAST 

1206 

13,2672 

0 5355 

1 

TC 

PHASCHNG 

0409 

13,2673 

20032 

1 

OCT 

20032 

041  1 

13,2674 

0 0006 

1 

EXTENO 

0412 

REF 

2 

LAST 

250 

13,2675 

3 2667 

1 

DC  A 

600SECS 

0413 

REF 

4 

LAST 

729 

13,2676 

0 5301 

0 

TC 

LONGCALL 

0414 

REF 

4 

LAST 

309 

E3 , 1626 

EBANK= 

RRECTHI S 

0415 

REF 

3 

LAST 

251 

13,2677 

02641 

0 

2CADR 

STATEINT 

041  5 

13,2700 

26063 

0 

0416 

REF 

136 

LAST 

973 

13, 2701 

0 5146 

1 

TC 

ENDOF JOB 

0426 

13,2702 

43014 

0 

SET! FLGS 

SFT 

CLEAR 

042  7 

REF 

5 

LAST 

1207 

13,2703 

01472 

1 

STATEFLG 

0428 

REF 

16 

LAST 

783 

13,2704 

01673 

1 

I NTYPFLG 

0429 

13,2705 

43014 

0 

CLEAR 

CLEAR 

0430 

REF 

14 

LAST 

659 

13,2706 

01676 

1 

D IMOFLAG 

0430  1 

REF 

8 

LAST 

603 

13,2707 

01675 

1 

D60R9FLG 

04302 

13,2710 

77616 

0 

RVQ 

04303 

13,2711 

7 77  76 

1 

NOINT 

EXIT 

04304 

REF 

110 

LAST 

1207 

13,2712 

0 5355 

1 

TC 

PHASCHNG 

04305 

13,2713 

0CCO2 

0 

OCT 

00002 

043  0 6 

REF 

54 

LAST 

978 

13,2714 

0 5520 

0 

TC 

DOWNFLAG 

043  0 7 

REF 

3 

LAST 

1206 

13,2715 

0C221 

0 

ADRES 

QUITFLAG 

043  0 8 

REF 

137 

LAST 

1207 

13,2716 

0 5146 

1 

TC 

ENDOF  JOB 

R0431  ATOPCSM  TRANSFERS  RRECT  TO  RRECT  +41  TO  RRECTCSM  TO  RRECTCSM  +41 


R0432  CALLING  SEQUENCE 

R0433  L CALL 

R0434  L+l  ATOPCSM 

R0435  NORMAL  EXIT  AT  L+2 


0436 

13,2717 

47020 

0 ATOPCSM 

STQ 

RTB 

043  7 

RFF 

28 

LAST 

1187 

13,2720 

00051 

0 

S 2 

043  8 

RFF 

2 

LAST 

1155 

13,2721 

26732 

0 

MOVE ACSM 

043  9 

13,2722 

45014 

0 

SET 

CALL 

0440 

REF 

7 

LAST 

713 

13,2723 

04063 

0 

C MOONFLG 

0441 

REF 

3 

LAST 

1155 

13,2724 

26  114 

1 

S VDWN1 
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0442 

13,2725 

43014 

0 

BON 

CLRGO 

0443 

REF 

14 

LAST 

783 

13,2726 

0C303 

1 

MOONFLAG 

0444 

REF 

29 

LAST 

1207 

13,2727 

00051 

0 

S2 

0445 

REF 

8 

LAST 

1207 

13,2730 

04223 

0 

CMOONFLG 

0446 

REF 

30 

LAST 

1208 

13,2731 

00051 

0 

S 2 

0447 

REF 

1 

13,2732 

0 3074 

1 

MOVE  ACSM  TC 

SETBANK 

044  8 

REF 

2 

LAST 

115 

13,2733 

55 ' 500 

1 

TS 

DIFEQCNT 

044  9 

REF 

3 

LAST 

1208 

13,2734 

51 • 500 

0 

INDEX 

D IFEQCNT 

0450 

REF 

6 

LAST 

1172 

13,2735 

3 1502 

1 

CA 

RRECT 

045  1 

REF 

4 

LAST 

1208 

13, 2736 

51 ' 500 

0 

INDEX 

DIFEQCNT 

0452 

REF 

9 

LAST 

1206 

13,2737 

55' 554 

0 

TS 

RRECTCSM 

045  3 

REF 

5 

LAST 

1208 

13,2740 

11 ' 500 

1 

CCS 

DIFEQCNT 

0 454 

REF 

3 

LAST 

1207 

13,2741 

1 2733 

0 

TCF 

MOVE  ACS  M 

0455 

REF 

57 

LAST 

1181 

13,2742 

0 6102 

1 

TC 

DANZIG 

R0456 

PTOACSM 

TRANSFERS  RRECTCSM  TO 

RRECTCSM 

+41  TO  RRECT  TO 

RRECT  +41 

R0457 

CALLING 

SEQUENCE 

R0458 

L 

CALL 

R0459 

PTOACSM 

R0460 

NORMA 

L 

EXIT  AT 

L+2 

046  1 

13,2743 

43034 

1 

PTOACSM 

RTB 

BON 

0462 

REF 

2 

LAST 

1155 

13,2744 

26761 

0 

MOVE  PCSM 

046  3 

REF 

9 

LAST 

1208 

13,2745 

04  3 03 

0 

CMOONFLG 

046  4 

REF 

1 

13,2746 

26754 

0 

SETMOON 

0465 

13,2747 

66214 

0 

C LRMOON 

CLEAR 

SSP 

0466 

REF 

15 

LAST 

1208 

13,2750 

00263 

0 

MUONFLAG 

0467 

REF 

4 

LAST 

1154 

13,2751 

C2031 

1 

P80DY 

046  8 

13,2752 

00000 

1 

0 

0469 

13,2753 

77616 

0 

RVQ 

0470 

13,2  754 

66214 

0 

SETMOON 

SET 

SSP 

0471 

REF 

16 

LAST 

1208 

13,2755 

00063 

1 

MOONFLAG 

047  2 

REF 

5 

LAST 

1208 

13,2756 

02031 

1 

P BODY 

0473 

13,2757 

00002 

0 

2 

0474 

13,2760 

77616 

0 

RVQ 

0475 

REF 

2 

LAST 

1208 

13,2761 

0 3C74 

1 

MUVEPCSM 

TC 

SETBANK 

0476 

REF 

6 

LAST 

1208 

13,2762 

55' 500 

1 

TS 

DIFEQCNT 

047  7 

REF 

7 

LAST 

1208 

13,2763 

51 ' 500 

0 

INDEX 

DIFEQCNT 

0478 

REF 

10 

LAST 

1208 

13,2764 

3 1554 

1 

CA 

RRECTCSM 

0479 

REF 

8 

LAST 

1208 

13,2765 

51 ' 500 

0 

INDEX 

DIFEQCNT 

0480 

REF 

7 

LAST 

1208 

13,2766 

55' 502 

0 

TS 

RRECT 

048  l 

REF 

9 

LAST 

1208 

13,2767 

1 1 • 500 

1 

CCS 

DIFEQCNT 

0482 

REF 

3 

LAST 

1208 

13,2770 

l 2762 

1 

TCF 

MOVE  PCSM 

0483 

REF 

58 

LAST 

1208 

13,2771 

0 6102 

1 

TC 

DANZ  IG 

INITIALIZE  INDEX 


IS  TRANSFER  COMPLETE 
NO-LOOP 

COMPLETE-  RETURN 


R0484 


ATOPLEM 


TRANSFERS  RRECT  TO  RRECT 


+41  TO  RRECTLEM  TO  RRECTLEM  +41 
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048  5 

13,2772 

47020 

0 

ATOPLEM 

STQ 

RTB 

0486 

REF 

31 

LAST 

1208 

13,2773 

00051 

0 

S2 

0487 

REF 

3 

LAST 

1154 

13,2774 

27005 

1 

MOVEALEM 

0488 

13,2775 

450  14 

0 

SET 

CALL 

0489 

REF 

3 

LAST 

596 

13,2776 

04064 

1 

LMOONFLG 

0490 

REF 

2 

LAST 

1154 

13,2777 

26070 

1 

S VDWN2 

0491 

13,3000 

43014 

0 

BON 

CLRGO 

0492 

REF 

17 

LAST 

1208 

13,3001 

00303 

1 

MOONFLAG 

0493 

REF 

32 

LAST 

1209 

13,3002 

00051 

0 

S 2 

0494 

REF 

4 

LAST 

1209 

13,3003 

04224 

1 

LMOONFLG 

049  5 

REF 

33 

LAST 

1209 

13,3004 

00C51 

0 

S2 

049  6 

REF 

3 

LAST 

1208 

13,3005 

0 3074 

1 

MOVEALEM 

TC 

SETBANK 

0497 

REF 

10 

LAST 

1208 

13,3006 

55 ' 500 

1 

TS 

DIFEQCNT 

049  8 

REF 

11 

LAST 

1209 

13, 3007 

51 ' 500 

0 

INDEX 

DIFEOCNT 

0499 

REF 

8 

LA'ST 

1208 

13,3010 

3 1502 

1 

CA 

RRECT 

0500 

REF 

12 

LAST 

1209 

13,3011 

51 • 500 

0 

INDEX 

DIFEQCNT 

0501 

REF 

2 

LAST 

1 16 

13,3012 

55 ' 626 

0 

TS 

RRECTLEM 

0502 

REF 

13 

LAST 

1209 

13,3013 

1 1 ' 500 

1 

CCS 

D I FEQCNT 

0503 

REF 

4 

LAST 

1209 

13,3014 

1 3006 

0 

TCF 

MOVFALEM  +1 

0504 

REF 

59 

LAST 

1208 

13,3015 

0 6102 

1 

TC 

DANZ  IG 

R0505 

PTCALEM 

TRANSFERS 

RRECTLEM 

TO  RRECTLEM 

+41  TO  RRECT  TO 

RRECT  +41 

0506 

13,3016 

47014 

1 

PTOALEM 

BON 

RTB 

0507 

REF 

17 

LAST 

844 

13,3017 

04307 

1 

SURFFLAG 

0508 

REF 

1 

13,3020 

2 703  7 

0 

U SEP  I OS 

0509 

REF 

2 

LAST 

1154 

13,3021 

27026 

0 

MOVEPLEM 

0510 

13,3022 

52014 

0 

BON 

GOTO 

051  1 

REF 

5 

LAST 

1209 

13,3023 

C4304 

1 

LMOONFLG 

0512 

REF 

2 

LAST 

1208 

13,3024 

26754 

0 

SETMOON 

0513 

REF 

1 

13 , 3025 

26747 

1 

CLRMOON 

0514 

REF 

4 

LAST 

1209 

13,3026 

0 3074 

1 

MOVEPLEM 

TC 

SETBANK 

0515 

REF 

14 

LAST 

1209 

13,3027 

55' 500 

1 

TS 

DIFEQCNT 

0516 

REF 

15 

LAST 

1209 

13,3030 

51 ' 500 

0 

INDEX 

DIFEQCNT 

0517 

REF 

3 

LAST 

1209 

13,3031 

3 1626 

1 

CA 

RRECTLEM 

0518 

REF 

16 

LAST 

1209 

13 , 3032 

51 ' 500 

0 

INDEX 

DIFEQCNT 

0519 

REF 

9 

LAST 

1209 

13,3033 

55 • 502 

0 

TS 

RRECT 

0520 

REF 

17 

LAST 

1209 

13,3034 

11 ' 500 

1 

CCS 

DIFEQCNT 

052  1 

REF 

3 

LAST 

1209 

13,3035 

1 3027 

0 

TCF 

MOVEPLEM  +1 

0522 

REF 

60 

LAST 

1209 

13,3036 

0 6102 

1 

TC 

DANZ IG 

0523 

13,3037 

77201 

1 USEPIOS 

SET  P D 

V LOAD 

0524 

13,3040 

00001 

0 

0 

0525 

REF 

16 

LAST 

1137 

13,3041 

02021 

0 

RLS 

0526 

13,3042 

41525 

0 

PDDL 

PUSH 

0527 

REF 

5 1 

LAST 

1206 

13,3043 

0CC41 

1 

TDEC1 

052  8 

REF 

16 

LAST 

784 

13  ,3044 

15517 

0 

STODL 

TET 

0529 

REF 

1 

13,3045 

27762 

1 
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0530 

13,3046 

77624 

1 

0531 

REF 

7 

LAST 

1133 

13,3047 

55716 

1 

0532 

REF 

16 

LAST 

1176 

13,3050 

25535 

0 

0533 

REF 

2 

LAST 

38 

13,3051 

24001 

0 

0534 

13,3052 

14001 

0 

0535 

REF 

17 

LAST 

1209 

13,3053 

01517 

0 

0536 

13,3054 

14007 

0 

0537 

REF 

2 

LAST 

1209 

13,3055 

27762 

1 

053  8 

13,3056 

45014 

0 

05381 

REF 

18 

LAST 

1209 

13,3057 

0C063 

1 

0539 

REF 

8 

LAST 

1210 

13,3060 

55716 

1 

0540 

13,3061 

74235 

0 

0541 

REF 

17 

LAST 

1210 

13,3062 

01535 

0 

0542 

REF 

1 

13,3063 

26001 

1 

0543 

REF 

14 

LAST 

1177 

13,3064 

25543 

1 

0544 

REF 

8 

LAST 

1133 

13,3065 

24007 

0 

0545- 

REF 

6 

LAST 

1154 

13,3066 

01521 

0 

0 54  6 

13,3067 

67  174 

1 

0547 

13,3070 

00002 

0 

0548 

REF 

6 

LAST 

1208 

13,3071 

02030 

0 

0549 

REF 

6 

LAST 

1154 

13,3072 

35527 

1 

055  0 

REF 

1 

13,3073 

27215 

1 

0552 

REF 

1 

13,3074 

3 3100 

0 

SETBANK 

0553 

REF 

40 

LAST 

1127 

13,3075 

54  006 

0 

0554 

REF 

1 

13,3076 

3 3505 

l 

0555 

REF 

32  1 

LAST 

1129 

13,3077 

C 0002 

0 

0556 

REF 

11 

LAST 

1208 

E3 , L 5 54 

0557 

REF 

10 

LAST 

658 

13,3100 

26063 

0 

I NTBANK 

CALL 

RP-TO-R 
STOVL  RCV 

ZUNIT 
STOOL  00 
TET 

STODL  60 
5/8 

SET  CALL  NEEDED  FOR  SETTING  XI  ON  EXIT 

MOONFLAG 
RP-TO-R 
VXV  VXSC 

RCV 

OMEGMOON 
STOVL  VCV 

Z EROVEC 
STORE  TDELTAV 
AXT , 2 S X A , 2 
2 

P BODY 

STCALL  TNUV 

A-PCHK 

CAE  INTBANK 

TS  BBANK 

CAF  FORTYONE 

TC  Q 

E B A N K = R RECTCSM 
BBCON  INTEGRV 


R0558  SPECIAL  PURPOSE  ENTRIES  TO  ORBITAL  INTEGRATION.  THESE  ROUTINES  PROVIDE  ENTRANCES  TO  INTEGRATION  WITH 
R0560  APPROPRIATE  SWITCHES  SET  OR  CLEARED  FOR  THE  DESIRED  INTEGRATION. 


R0561  CSMPREC  AND  LEMPREC  PERFORM  ORBIT  INTEGRATION  BY  THE  ENCKE  MHTHQD  TO  THE  TIME  INDICATED  IN  TDECL 

R0563  ACCELERATIONS  DUE  TO  OBLATENESS  ARE  INCLUDED.  NO  W-MATRIX  INT . IS  DONE. 

R0564  THE  PERMANENT  STATE  VECTOR  IS  NCT  UPDATED. 

R0565  CSMCONIC  AND  LEMCONIC  PERFORM  ORBIT  INTEG.  BY  KEPLERS  METHOD  TO  THE  TIME  INDICATED  IN  TDEC1 
R0567  NO  DISTURBING  ACCELERATIONS  ARE  INCLUDED.  IN  THE  PROGRAM  FLOW  THE  GIVEN 

R 056  8 STATt  VECTOR  IS  RECTIFIED  BEFORE  SOLUTION  OF  KEPLERS  EQUATION 


R0569 
R0570 
RO  57  1 
R0572 
R0573 
R0574 


THE  ROUTINES  ASSUME  THAT  THE  CSM  (L 
SWITCHES  SET  PRIOR  TO  ENTRY  TO  THE 


CSMPREC 

CSMCONIC 

LEM 

VINTFLAG 

SET 

SET 

CL 

INTYPFLG 

CLEAR 

SET 

CL 

DIMOFLAG 

CLEAR 

CLEAR 

CL 

EM)  STATE  VECTOR  IN  P-MEM  IS  VALID. 

MAIN  INTEG.  PROG  ARE  AS  FOLLOWS 

PREC  LEMCONIC 

EAR  CLEAR 

EAR  SET 

EAR  CLEAR 


R0575  CALLING  SEQUENCE 
R0576  L-X  STORE  TDEC1 
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R 057  7 

L 

CALL 

( STCALL  TO  EC  1 ) 

R0578 

L + l 

CSMPREC  (CSMCONIC,  LEMPREC,  LEMCONIC) 

R0579 

NORM  AL 

EXIT 

TO  L+2 

R0580 

SUBROUTINES  CALLED 

R058  l 

INTEGRV1 

R0582 

PRECOUT  FOR 

CSMPREC  AND  LEMPREC 

R0583 

CONICOUT  FOR  CSMCONIC  AND 

LEMCONIC 

R0584 

OUTPUT  - 

SEE 

PAGE  2 

OF  THIS  LOG  SECTION 

R0585 

INPUT 

R0586 

TDEC  1 

TIME 

TO  INTEGRATE  TO 

. CSECS 

i B- 

■28 

0587 

13,3101 

45020 

1 

CSMPREC 

STQ 

CALL 

0588 

REF 

60 

LAST 

1198 

13,3102 

00046 

0 

XI 

0589 

REF 

29 

LAST 

1207 

13,3103 

27447 

0 

INTSTALL 

0590 

13,3104 

43  130 

1 

SX  A , 1 

SET 

0591 

REF 

2 

LAST 

119 

13,3105 

02101 

0 

l RETURN 

0592 

REF 

19 

LAST 

658 

13, 3106 

0 1474 

1 

V INTFLAG 

0593 

13,3107 

43014 

0 

IFLAGP 

SET 

CLEAR 

0594 

REF 

3 

LAST 

248 

13,3110 

01467 

0 

PREC I FLG 

0595 

REF 

15 

LAST 

1207 

13,3111 

01676 

1 

D IMOFLAG 

0596 

13,3112 

77614 

1 

CLRGO 

0596  1 

REF 

17 

LAST 

1207 

13.31L3 

01633 

0 

I NTYPFLG 

05962 

REF 

1 

13,3114 

27  174 

0 

I NTEGRV1 

0597 

13,3115 

45020 

1 

LEMPREC 

STQ 

CALL 

0598 

REF 

61 

LAST 

1211 

13,3116 

OC  046 

0 

XI 

0599 

REF 

30 

LAST 

1211 

13,3117 

27447 

0 

INTSTALL 

0600 

13,3120 

43  130 

1 

SX  A , 1 

CLRGO 

060  1 

REF 

3 

LAST 

1211 

13,3121 

02101 

0 

I RETURN 

0602 

REF 

20 

LAST 

12  L 1 

13,3122 

01634 

1 

V INTFLAG 

0603 

REF 

1 

13,3123 

27107 

1 

I FLAGP 

0604 

13,3124 

45020 

1 

CSMCONIC 

STQ 

CALL 

060  5 

REF 

62 

LAST 

1211 

13,3125 

0C046 

0 

XI 

0606 

REF 

31 

LAST 

1211 

13,3126 

27447 

0 

I NTST  ALL 

0607 

13,3127 

43130 

1 

SX  A , 1 

SET 

0608 

REF 

4 

LAST 

1211 

13,3130 

02101 

0 

1 RETURN 

060  9 

REF 

21 

LAST 

1211 

13,3  13  1 

01474 

1 

V INTFLAG 

0610 

13,3132 

43014 

0 

I FLAGC 

CLEAR 

SETGO 

061  1 

REF 

16 

LAST 

121  1 

13,3133 

01676 

1 

D IMOFLAG 

0612 

REF 

18 

LAST 

12  11 

13,3134 

01433 

1 

I NTYPFLG 

0613 

REF 

2 

LAST 

1211 

13,3135 

27  174 

0 

I NTEGRV1 

0614 

13,3136 

45020 

1 

LEMCONIC 

STQ 

CALL 

0615 

REF 

63 

LAST 

1211 

13,3137 

00046 

0 

X 1 

0616 

REF 

32 

LAST 

1211 

13,3140 

27447 

0 

I NT  S T AL  L 

0617 

13,3141 

43  130 

1 

SXA  , 1 

CLRGO 
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0618 

REF 

5 

LAST 

1211 

13,3 142 

02101 

0 

I RETURN 

0619 

REF 

22 

LAST 

1211 

13,3143 

01634 

t' 

VINTFLAG 

0620 

REF 

1 

13,3144 

27  132 

1 

I FLAGC 

062  1 

13,3145 

66  214 

0 

INTEGRVS  SET 

SSP 

062  2 

REF 

4 

LAST 

121  1 

13,3146 

01467 

0 

PREC IFLG 

0623 

REF 

7 

LAST 

1210 

13,3147 

02031 

1 

PBODY 

0624 

13,3150 

00000 

1 

0 

0625 

13,3151 

66214 

0 

60F 

SSP 

0626 

REF 

19 

LAST 

1210 

13,3152 

0C343 

0 

MOONFLAG 

0627 

13,3153 

27156 

0 

+ 3 

0628 

REF 

8 

LAST 

1212 

13,3154 

02031 

1 

PBODY 

0628  1 

13,3155 

0C002 

0 

2 

062  9 

13,3156 

77220 

1 

STQ 

V LOAD 

0630 

REF 

6 

LAST 

1212 

13,3  157 

02101 

0 

I RETURN 

063  1 

REF 

9 

LAST 

1210 

13,3160 

24007 

0 

ZEROVEC 

0632 

REF 

7 

LAST 

1210 

13,3  161 

01521 

0 

STORE 

TDELTAV 

0633 

REF 

7 

LAST 

1210 

13,3162 

35527 

1 

STC ALL 

TNUV 

0634 

REF 

2 

LAST 

1154 

13,3163 

27720 

1 

RECTIFY 

0635 

13,3164 

43014 

0 

CLEAR 

SET 

0636 

REF 

17 

LAST 

1211 

13,3165 

01676 

1 

DIMOFLAG 

063  7 

REF 

1 

13 ,3 166 

04062 

1 

NEWIFLG 

06371 

13,3167 

77614 

1 

SET  GO 

0637  2 

REF 

1 

13,3170 

C4020 

1 

RPQFLAG 

063  8 

REF 

1 

13,3171 

27206 

0 

ALOADED 

R0639 

INTEGRV 

IS  AN 

ENTRY 

TO  ORBIT 

INTEGRATION 

WHICH  PERMITS 

THE  CALLER 

R0640  NORMALLY  THE  NAVIGATION  PROGRAM  , TO  SET  THE  INTEG.  FLAGS.  THE  ROUTINE 
R0641  IS  ENTERED  AT  INTEGRVI  BY  CSMPREC  ET.AL.  AND  AT  ALOADED  BY  INTEGRVS. 
R0642  THE  ROUTINE  SETS  UP  A-MEMORY  IF  ENTERED  AT  INTEGRV, 1 AND  SETS  THE  INTEG. 
R0643  PROGRAM  FOR  PRECISION  OR  CONIC 


R0644 

R0645 

R0646 

R0647 

R0648 

R0649 

R0650 

R0651 

R0652 

R0653 

R0654 

K0655 

R0656 

R0657 

R0658 

R0659 

R0660 

R0661 

R0662 


THE  CALLER  MUST  FIRST  CALL  INTSTALL  TO  CHECK  IF  INTEG.  IS  IN  USE  BEFORE 
SETTING  ANY  FLAGS. 

THE  FLAGS  WHICH  SHOULD  BE  SET  OR  CLEARED  ARE 

VINTFLAG  (IGNORED  WHEN  ENTERED  FROM  INTEGRVS) 

INTYPFLG 

DIMOFLAG 

D60R9FLG 

CALLING  SEQUENCE 
L-X  CALL 

L-Y  INTSTALL 

L-l  SET  OR  CLEAR  ALL  FOUR  FLAGS.  ALSO  CAN  StT  STATFFLG  IF  DESIRED 
AND  DIMOFLAG  IS  CLEAR. 

L CALL 

L+l  INTEGRV 

INITI AL I Z AT  ION 
FLAGS  AS  ABOVE 

STORE  TIME  TO  INTEGRATE  TO  IN  TDEC1 
OUTPUT 

RATT  AS 
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R 066  3 VATT  DEFINED 

R0664  TAT  BEFORE 


066  5 

13,3172 

77620 

0 

INTEGRV 

ST  Q 

0666 

REF 

7 

LAST 

1212 

13,3173 

02  101 

0 

I RETURN 

0667 

13,3174 

43014 

0 

INTEGRVi 

SET 

SET 

0668 

REF 

2 

LAST 

1212 

13,3175 

04060 

0 

RPQFLAG 

0669 

REF 

2 

LAST 

1212 

13,3176 

04062 

1 

NEW  I FLG 

0670 

13,3177 

77731 

1 

I NTEGRV2 

SSP 

0671 

REF 

10 

LAST 

1155 

13,3200 

00053 

1 

QPRET 

0672 

REF 

2 

LAST 

1212 

13,3201 

27206 

0 

ALOADED 

0673 

13,3202 

52014 

0 

BON 

GOTO 

0674 

REF 

23 

LAST 

1212 

13,3203 

01714 

1 

VINTFLAG 

0675 

REF 

1 

13, 3204 

26743 

0 

PTOACSM 

0676 

REF 

2 

LAST 

309 

13,3205 

27C  16 

0 

PTOALEM 

0677 

13,3206 

7 7 745 

1 

ALOADED 

DLOAD 

0678 

REF 

52 

LAST 

1209 

13,3207 

0C041 

1 

T DEC  1 

0679 

REF 

2 

LAST 

107 

13,3210 

01115 

0 

STORE 

TDEC 

0680 

13,3211 

52C14 

0 

BOFF 

GOTO 

0681 

REF 

19 

LAST 

1211 

13,3212 

01753 

1 

I NTYPFLG 

0682 

REF 

1 

13,3213 

27315 

0 

TESTLOOP 

0683 

REF 

1 

13,3214 

27301 

0 

RVCON 

0684 

13,3215 

7 7 414 

0 

A—  PC  HK 

BOF 

EXIT 

0685 

REF 

6 

LAST 

1207 

13,3216 

01752 

0 

S TATE  FLG 

0636 

REF 

1 

13,3217 

27236 

0 

RECTOUT 

0687 

REF 

111 

LAST 

1207 

13, 3220 

0 5355 

1 

TC 

PHASCHNG 

0688 

13,3221 

04022 

0 

OCT 

04022 

0689 

REF 

72 

LAST 

1152 

13,3222 

0 5506 

1 

TC 

UPFLAG 

0690 

REF 

3 

LAST 

1152 

13,3223 

00236 

0 

ADRES 

REINTFLG 

0692 

REF 

224 

LAST 

1206 

13,3224 

0 6060 

1 

TC 

INTPRET 

0693 

13,3225 

77731 

1 

SSP 

0694 

REF 

11 

LAST 

1213 

13,3226 

0C053 

1 

QPRET 

069  5 

REF 

1 

13,3227 

27234 

1 

PHEX IT 

0696 

13,3230 

52  C 14 

0 

BON 

GOTO 

0697 

REF 

24 

LAST 

1213 

13,3231 

01714 

1 

VINTFLAG 

0693 

REF 

3 

LAST 

5 10 

13,3232 

26717 

1 

ATOPCSM 

0699 

REF 

2 

LAST 

38 

13,3233 

26772 

1 

ATOPLEM 

0700 

13,3234 

77624 

1 

PHEX IT 

CALL 

0701 

REF 

20 

LAST 

1155 

13,3235 

51770 

0 

GRP2PC 

0702 

13 ,3236 

45001 

1 

RECTOUT 

SETPD 

CALL 

0703 

13,3237 

0C001 

0 

0 

0704 

REF 

3 

LAST 

1212 

13,3240 

27720 

1 

RECTIFY 

0705 

13,3241 

53775 

1 

VLOAD 

VSL* 

0706 

REF 

10 

LAST 

1209 

13,3242 

C 1 503 

0 

RRECT 

0707 

13,3243 

57576 

1 

0,2 

070  8 

13,3244 

5 3 715 

1 

PDVL 

VSL* 

0709 

REF 

7 

LAST 

1 177 

13,3245 

01511 

0 

VRECT 

0710 

13,3246 

57576 

1 

0,2 

071  1 

13,3247 

62325 

0 

POOL 

PDVL 
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PHASE  CHANGE  HAS  OCCURRED  BETWEEN 
INTSTALL  AND  INTWAKF 


RATT  TO  PDO 


VATT  TO  PD6 


TAT  TO  PD1 2 
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0712 

REF 

18 

LAST 

1210 

13,3250 

C 1 5 1 7 

0 

TET 

0713 

REF 

11 

LAST 

1213 

13,3251 

01503 

0 

RRECT 

0714 

13,3252 

64715 

0 

PDVL 

P DDL* 

071  5 

REF 

8 

LAST 

1213 

13,3253 

01511 

0 

VRECT 

0716 

REF 

2 

LAST 

690 

13,3254 

51770 

0 

MUEARTH, 2 

0717 

13,3255 

76006 

0 

PUSH 

A XT , 1 

0718 

13,3256 

77765 

0 

DEC 

-10 

0719 

13,3257 

76014 

0 

BON 

A XT , 1 

0720 

REF 

20 

LAST 

1212 

13,3260 

00303 

1 

MOONFLAG 

0721 

13,3261 

27263 

0 

+ 2 

0722 

13,3262 

77775 

1 

DEC 

-2 

0723 

13,3263 

40  301 

1 

INTEX  IT 

SETPD 

BOV 

072  4 

13,3264 

0CC01 

0 

0 

0725 

13,3265 

27266 

0 

+ 1 

07251 

13,3266 

43014 

0 

CLEAR 

CLEAR 

07252 

REF 

2 

LAST 

332 

13,3267 

046  76 

1 

AVEMIDSW 

07253 

REF 

5 

LAST 

1212 

13,3270 

01667 

1 

PREC IFLG 

0 7254 

13,3271 

77614 

1 

CLEAR 

07255 

REF 

7 

LAST 

1213 

13,3272 

01672 

0 

STATEFLG 

0726 

13,3273 

77535 

1 

SLOAD 

EXIT 

0 72  7 

REF 

3 

LAST 

1213 

13,3274 

02102 

0 

I RETURN 

0 72  8 

REF 

729 

LAST 

1193 

13,3275 

3 0154 

1 

CA 

MPAC 

0729 

REF 

63 

LAST 

1181 

13,3276 

50  120 

1 

INDEX 

F IXLOC 

0730 

REF 

12 

LAST 

1213 

13,3277 

54  052 

1 

TS 

QPRET 

073  1 

REF 

4 

LAST 

1155 

13,3300 

0 3460 

0 

TC 

I NTWAKE 

R0732 

RVCON  SETS  UP 

ORBIT 

INTEGRATION  TO  DC 

1 A 

CONIC  SOLUTION 

FOR  POSITION 

R0733 

VELOCITY 

FOR  ' 

IHE  INTERVAL  ITET 

-TCEC  ) 

0734 

13,3301 

45345 

1 

RVCON 

DLOAD 

DSU 

0735 

REF 

3 

LAST 

1213 

13,3302 

01115 

0 

T DEC 

0736 

REF 

19 

LAST 

1214 

13,3303 

01517 

0 

TET 

0737 

REF 

10 

LAST 

1175 

13,3304 

36074 

1 

STCALL 

T AU. 

0736 

REF 

4 

LAST 

12  13 

13,3305 

27720 

1 

RECTIFY 

0739 

13,3306 

77624 

1 

CALL 

0740 

REF 

1 

13,3307 

22403 

0 

KEPPREP 

0741 

13,3310 

43345 

1 

DLOAD 

DAD 

0742 

REF 

6 

LAST 

1177 

13,3311 

01551 

1 

TC 

0743 

REF 

20 

LAST 

1214 

13,3312 

01517 

0 

TET 

0744 

REF 

21 

LAST 

1214 

13,3313 

35517 

1 

STCALL 

TET 

0745 

REF 

2 

LAST 

1213 

13,3314 

27236 

0 

RECTOUT 
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ALLOW  UPOATF  OF  DOWNLINK  STATE  VECTOR 
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L INTEGRATION  INITIALIZATION 


PO  745  5 

TESTLOOP 

0746 

13,3315 

43014 

0 

TESTLOOP 

07462 

REF 

4 

LAST 

120  7 

13, 3316 

04752 

0 

07463 

13,3317 

27322 

1 

07464 

REF 

8 

LAST 

1214 

13,3320 

01632 

1 

07465 

REF 

1 

13,3321 

27263 

0 

07466 

13 , 3322 

73001 

1 

+3 

0 74  7 

13,3323 

OOC  13 

0 

0 74  8 

REF 

9 

LAST 

1212 

13,3324 

02030 

0 

0749 

13,3325 

51575 

1 

0750 

REF 

18 

LAST 

1210 

13, 3326 

01535 

0 

0751 

13,3327 

43006 

0 

0752 

REF 

1 

13,3330 

00262 

1 

075  3 

13,3331 

5C023 

0 

0754 

REF 

1 

13,3332 

53755 

0 

0755 

13,3333 

27336 

1 

0756 

13,3334 

77614 

1 

0757 

REF 

2 

LAST 

1215 

13,3335 

00062 

0 

0758 

13,3336 

41345 

0 

NORF INAL 

0759 

13,3337 

00013 

0 

0760 

13,3340 

0C043 

0 

0761 

13,3341 

55762 

1 

0762 

REF 

3 

LAST 

1214 

13,3342 

51770 

0 

0763 

13,3343 

41366 

1 

0 76  4 

REF 

1 

13,3344 

25762 

0 

0765 

13,3345 

40442 

1 

0766 

13,3346 

54345 

1 

0767 

REF 

73C 

LAST 

1214 

13,3347 

0C155 

0 

0768 

13,3350 

20220 

0 

0769 

13,3351 

40006 

0 

0770 

REF 

1 

13,3352 

27377 

1 

0771 

13,3353 

5C021 

1 

0772 

REF 

1 

13,3354 

27446 

1 

0773 

REF 

2 

LAST 

1215 

13,3355 

27377 

1 

0774 

13, 3356 

45345 

1 

0T/2C0MP 

0775 

REF 

4 

LAST 

1214 

13,3357 

01115 

0 

0776 

REF 

22 

LAST 

1214 

13,3360 

01517 

0 

0777 

13,3361 

54234 

0 

0778 

REF 

4 

LAST 

943 

13,3362 

21622 

1 

0779 

13,3363 

20211 

1 

0780 

REF 

2 

LAST 

119 

13 , 3364 

02076 

1 

0781 

13,3365 

51400 

1 

0702 

REF 

1 

13,3366 

27403 

0 

0783 

13,3367 

50025 

0 

0784 

13,3370 

00015 

0 

0785 

REF 

1 

13,3371 

27407 

1 

0786 

13,3372 

75345 

1 

USEMAXDT 

0787 

13,3373 

OOC  1 5 

0 

0788 

REF 

3 

LAST 

1215 

13,3374 

02076 

1 
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BOF 

C LRGO 
OUITFLAG 

+ 3 

STATEFLG 

INTEXIT 

STOP  INTEGRATION 

SETPD 

L X A , 2 

10D 

PBODY 

VLOAD 

ABVAL 

RCV 

PUSH 

C LEAR 
MIDFLAG 

RC  TO  10D 

DSU* 

BMN 
R ME , 2 
+ 3 

M I DFL  AG=0  IF  R G.T. 

RMP 

SET 

MIDFLAG 

DLOAD 

DMP 

10D 

34D 

SR  1R 

DDV* 

MUEARTH , 2 

SORT 

DMP 

.3D 

SR3 

SR4 

DT  IS  TRUNCATFD  TO 

A MULTIPLE 

DLOAD 

SL 

MPAC 

15D 

OF  128  CSECS . 

PUSH 

BOV 

MAXDT 

BDSU 

BMN 

DT/2MAX 

MAXDT 

□ LOAD 

DSU 

TDEC 

TET 

RTB 

SL 

SGNAGREE 

8D 

STORE 

QT/2 

8-19 

BOV 

ABS 

GETMAXDT 

DSU 

BMN 
1 2D 

POOHCHK 

IS  TIME  TO  INTEG.  TO 

GR  THAN  MAXTIME 

DLOAD 

S IGN 
L 2D 
DT/2 
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0789 

REF 

4 

LAST 

1215 

13,3375 

36076 

0 

STC ALL 

0790 

REF 

2 

LAST 

1215 

13,3376 

27407 

1 

0791 

13,3377 

65345 

0 

MAXDT 

DLOAD 

0792 

REF 

2 

LAST 

1215 

13,3400 

27446 

l 

0793 

13,3401 

77650 

1 

GOTO 

0794 

REF 

1 

13,3402 

27356 

1 

0795 

13,3403 

77634 

0 

GETMAXDT 

RTB 

0796 

REF 

14 

LAST 

886 

13,3404 

31765 

1 

079  7 

REF 

5 

LAST 

1216 

13, 3405 

36076 

0 

STC ALL 

0798 

REF 

1 

13,3406 

27372 

1 

0799 

13,3407 

51545 

1 

POOHCHK 

DLOAD 

0800 

REF 

6 

LAST 

1216 

13,3410 

02076 

1 

0801 

13,3411 

50025 

0 

DSU 

0802 

REF 

1 

13,3412 

27444 

0 

0803 

REF 

2 

LAST 

1210 

13 ,3413 

27215 

1 

0804 

13,3414 

43014 

0 

BOFF 

0805 

REF 

3 

LAST 

1207 

13,3415 

01740 

0 

0806 

REF 

1 

13,3416 

23307 

1 

0807 

REF 

6 

LAST 

1214 

13,3417 

C 1 7 0 7 

0 

0808 

REF 

2 

LAST 

1216 

13,3420 

23307 

1 

0809 

13,3421 

45345 

1 

DLOAD 

0810 

REF 

7 

LAST 

1216 

13,3422 

02076 

1 

081  1 

13,3423 

00015 

0 

0812 

13,3424 

43040 

1 

BMN 

0813 

REF 

3 

LAST 

1216 

13,3425 

27215 

1 

0814 

REF 

3 

LAST 

1213 

13,3426 

04242 

1 

0815 

REF 

3 

LAST 

1216 

13,3427 

23307 

1 

0816 

13,3430 

45345 

1 

DLOAD 

0817 

REF 

5 

LAST 

1215 

13,3431 

01115 

0 

031  8 

REF 

23 

LAST 

1215 

13,3432 

01517 

0 

0818  1 

13,3433 

77640 

0 

BMN 

08182 

REF 

2 

LAST 

1215 

13,3434 

27263 

0 

0819 

13,3435 

4C525 

1 

PDDL 

0820 

REF 

8 

LAST 

1216 

13,3436 

02076 

1 

0821 

13,3437 

44322 

1 

SR2R 

0822 

13,3440 

52040 

1 

BMN 

0823 

REF 

3 

LAST 

1216 

13,3441 

27263 

0 

0824 

REF 

4 

LAST 

1216 

13,3442 

23307 

1 

0825 

13,3443 

ocooo 

1 

DT/2M  IN 

2DEC 

0825 

13,3444 

01400 

1 

0826 

13,3445 

14  152 

1 

DT/2MAX 

2DEC 

0826 

13,3446 

00000 

1 

0828 

13,3447 

777  76 

1 

I NT  ST  ALL 

EXIT 

0831 

REF 

1 

13,3450 

3 0106 

0 

CA 

0833 

REF 

1 

13,3451 

7 3521 

0 

MASK 

0834 

13,3452 

C 0006 

1 

EXTEND 

0835 

REF 

1 

13,3453 

1 3513 

1 

BZF 

0837 

REF 

1 

13,3454 

3 3520 

0 

CAF 

0838 

REF 

4 

LAST 

479 

13, 3455 

0 5124 

0 

TC 

0839 

13,3456 

77776 

1 

INTWAKEO 

EXIT 

DT/2 

POOHCHK 

POOL 

DT/2MAX 

DT/2 COMP 

S IGNMPAC 
DT/2 

U SEMAXDT 
ABS 
DT/2 
BMN 

DT/2MIN 
A — PC  HK 
BON 

POOHFLAG 
T IMESTEP 
PREC  IFLG 
TIME  STEP 
OSU 
DT/2 
120 

BOFCLR 
A-PCHK 
NEW  I F LG 
T IMESTEP 
DSU 
T DEC 
TET 

INTEX IT 
SR4 
DT/2 
BDSU 
GOTO 
INTEX  IT 
TIMESTEP 
3 B-2  0 

4000  E2  B 


R ASFLAG 
INTBITAB 

OKTOGRAB 

WAKESTAL 

JOBSLEEP 
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EXCHANGE  DT/2MAX  WITH  COMPUTED  MAX. 


NO  BACKWARDS  INTEGRATION 
WHEN  IN  POO 


NO  BACKWARD  INTEGRATION 


IS  4( DT)  LSITDEC  - TET) 

NO 


20 


IS  THIS  STALL  AREA  FREE 


YES 
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08395 

REF 

1 

13,3457 

1 3500 

0 

TCF 

I NTWAKE1 

0840 

REF 

2 

LAST 

1216 

13,3460 

4 0106 

1 

INTWAKE 

CS 

R ASF  L AG 

0841 

REF 

1 

13,3461 

7 4736 

0 

MASK 

RE  INTBIT 

0842 

REF 

365 

LAST 

1129 

13,3462 

10  000 

0 

CCS 

A 

0843 

REF 

2 

LAST 

1217 

13,3463 

0 3 500 

1 

TC 

INTWAKE1 

0844 

REF 

64 

LAST 

1214 

13, 3464 

50  120 

1 

INDEX 

F IXLOC 

0845 

REF 

13 

LAST 

1214 

13,3465 

3 0052 

0 

CA 

OPRET 

0348 

REF 

6 

LAST 

895 

13,3466 

5 5 1 054 

0 

TS 

TBASE2 

0849 

REF 

l 12 

LAST 

1213 

13,3467 

0 5355 

1 

TC 

PHASCHNG 

0850 

13,3470 

04022 

0 

OCT 

04022 

0851 

REF 

7 

LAST 

1217 

13,3471 

3 1054 

1 

CA 

T BAS  E 2 

0852 

REF 

65 

LAST 

1217 

13,3472 

50  120 

1 

INDEX 

F IXLOC 

0853 

REF 

14 

LAST 

1217 

13,3473 

54  052 

1 

TS 

QPRET 

0854 

REF 

2 

LAST 

1217 

13, 3474 

3 4736 

1 

CAF 

RE  INTBI T 

0855 

REF 

3 

LAST 

1217 

13,3475 

7 0106 

1 

MASK 

R ASFLAG 

0856 

13, 3476 

C 0006 

1 

EXTEND 

0 85  7 

REF 

1 

13,3477 

1 3516 

1 

BZF 

GOBAC 

0861 

REF 

2 

LAST 

1216 

13,3500 

3 3520 

0 

I NTWAKE1 

CAF 

WAKESTAL 

0862 

13,3501 

0 CC04 

0 

INHINT 

0863 

REF 

5 

LAST 

480 

13,3502 

0 5130 

0 

TC 

JOBWAKE 

0864 

REF 

22 

LAST 

1 109 

13,3503 

10  064 

l 

CCS 

LOCCTR 

0 86  5 

REF 

3 

LAST 

1217 

13,3504 

1 3500 

0 

TCF 

INTWAKE1 

0866 

13,3505 

00051 

0 

FORT YONE 

DEC 

41 

0868 

REF 

2 

LAST 

1216 

13,3506 

4 3521 

0 

CS 

I NTB I TAB 

0869 

REF 

4 

LAST 

1217 

13,3507 

7 0106 

1 

MASK 

R ASF  L AG 

0870 

REF 

5 

LAST 

1217 

13,3510 

54  106 

1 

TS 

R ASFLAG 

0371 

13,3511 

0 0003 

1 

RELINT 

0872 

REF 

2 

LAST 

1217 

13,3512 

1 3516 

1 

TCF 

GOBAC 

0874 

REF 

3 

LAST 

227 

13,3513 

3 4727 

1 

OKTOGRAB 

CAF 

INTFLBIT 

08745 

13,3514 

0 0004 

0 

INHINT 

0875 

REF 

6 

LAST 

1217 

13,3515 

26  106 

1 

ADS 

R ASFLAG 

0376 

REF 

225 

LAST 

1213 

13,3516 

0 6060 

1 

GOBAC 

TC 

I NTPRET 

0877 

13,3517 

77616 

0 

RVQ 

0888 

REF 

33 

LAST 

1211 

13, 3520 

27450 

0 

WAKESTAL 

CADR 

I NTSTALL 

0892 

13,3521 

20100 

1 

INTBITAB 

OCT 

20100 
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IS  THIS  INT  ST  ALLED  ROUTINE  TO  BE 
RESTARTED 

NO 

YES,  DONT  RESTART  WITH  SOMEONE  ELSFS  Q 


DONT  INTWAKE  IF  WE  CAME  HERE  VIA  RESTART 


RELEASE  STALL  AREA 
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P0895 

R0896 

R0897 

R0898 

R0899 

R0900 

R090  1 

R0902 


0903 

0904 

090  5 

0906 

0907 

0908 

0909 

0910 

091  1 

0912 

0913 

0914 
091  5 
0916 
091  7 
091  8 

0923 

0924 

0925 

0926 

0927 

0928 

0929 
093  0 

0931 

0932 

0933 

0934 

0935 

0936 

0937 

0938 

0939 


INTEGRATION  INITIALIZATION  USER'S  PAGE  NO.  17  E3  S3 

AVETCMID 

THIS  ROUTINE  PERFORMS  THE  TRANSITION  FROM  A THRUSTING  PHASE  TO  THE  COAST 
PHASE  BY  INITIALIZING  THIS  VEHICLES  PERMANENT  STATE  VECTOR  WITH  THE 
VALUES  LEFT  BY  THE  AVERAGEG  ROUTINE  IN  RN , VN , P I PT  IME  . 

BEFORE  THIS  IS  DONE  THE  W-MATRIX,  IF  ITS  VALID  ( ORWF  LAG  OR  RENDWFLG  IS 
SET)  IS  INTEGRATED  FORWARD  TO  PIPTIME  WITH  THE  PRE-THRUST  STATE  VECTOR. 

IN  ADDITION,  THE  OTHER  VEHICLE  IS  INTEGRATED  (PERMANENT)  TO  PIPTIME. 

FINALLY  TRKMKCNT  IS  ZEROED 


REF 

4 

LAST 

1206 

13,2000 

SETLOC 

INTINIT 

13,3522 

BANK 

REF 

4 

LAST 

1206  TO 

1218: 

433  469* 

COUNT* 

$*/INTIN 

. 

13, 3522 

43020 

1 

A VETOMID 

STQ 

BON 

REF 

5 

LAST 

1155 

13, 3523 

02767 

0 

EGRESS 

REF 

11 

LAST 

844 

13,3524 

02716 

0 

RENDWFLG 

REF 

1 

13,3525 

27571 

1 

I NT/W 

W-MATRIX  VALID  ,G0  INTEGRATE  IT 

13,3526 

77614 

1 

BON 

REF 

1 

13,3527 

01711 

1 

ORBWFLAG 

REF 

2 

LAST 

1218 

13,3530 

27571 

1 

I NT/W 

W-MATRIX  VALID  ,G0  INTEGRATE  IT 

13,3531 

45145 

0 

OTHERS 

DLOAD 

CALL 

Gfc  T SET  FOR  OTHER  VEHICLE  INTEGRATION 

REF 

25 

LAST 

971 

13,3532 

01234 

0 

PIPTIME 

DESIRED  TIME 

REF 

34 

LAST 

1217 

13,3  533 

27447 

0 

INTSTALL 

13,3534 

45014 

0 

SET 

CALL 

REF 

25 

LAST 

1213 

13,3535 

01474 

1 

V INTFLAG 

CM 

REF 

8 

LAST 

1207 

13,3536 

26702 

0 

SETIFLGS 

SETS  UP  NONE  W-MAT.  PERMANENT  INTFG . 

REF 

53 

LAST 

1213 

13,3537 

34041 

0 

STCALL 

TDEC1 

REF 

1 1 

LAST 

1210 

13,3540 

27172 

0 

I NTEGRV 

13,3541 

45  174 

1 

AXT,  2 

CALL 

NOW  MOVE  PROPERLY  SCALE  R N , UN  AS  WELL 

REF 

13,3542 

00002 

0 

2 

PIPTIME  TO  INTEGRATION  ERASABLES. 

35 

LAST 

1218 

13,3543 

27447 

0 

I NTSTALL 

13,3544 

77014 

1 

BON 

AXT, 2 

REF 

6 

LAST 

1154 

13,3545 

C4304 

1 

M'OONTHI  S 

13,3546 

27550 

1 

+ 2 

13,3547 

00000 

1 

0 

13,3550 

53775 

1 

VLOAD 

VSR* 

REF 

17 

LAST 

971 

13,3551 

01220 

0 

RN 

13,3552 

57176 

0 

0,2 

REF 

12 

LAST 

1214 

13,3553 

01503 

0 

STORE 

RRECT 

REF 

19 

LAST 

1215 

13,3554 

15535 

0 

STODL 

RCV 

REF 

26 

LAST 

1218 

13,3555 

C1234 

0 

PIPTIME 

REF 

24 

LAST 

1216 

13,3556 

255  17 

0 

STOVL 

TET 

REF 

10 

LAST 

883 

L 3 , 3557 

01226 

0 

VN 
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0940 

13,3560 

45057 

1 

0941 

13,3561 

57176 

0 

094  2 

REF 

3 

LAST 

713 

13,3562 

27734 

1 

0943 

13,3563 

66234 

1 

0944 

REF 

1 

13,3564 

2 7 005 

1 

0945 

REF 

12 

LAST 

755 

13,3565 

03463 

0 

0946 

13,3566 

00000 

1 

0947 

13,3567 

77650 

1 

094  8 

REF 

2 

LAST 

1 155 

13,3570 

4721  1 

0 

0949 

13,3571 

45  145 

0 INT/W 

0950 

REF 

27 

LAST 

1218 

13,3572 

01234 

0 

095  1 

REF 

36 

LAST 

1218 

13,3573 

27447 

0 

0952 

13,3574 

43014 

0 

0953 

REF 

18 

LAST 

1212 

13,3575 

01476 

0 

0954 

REF 

3 

LAST  ' 

1214 

13,3576 

04476 

0 

0955 

13,3577 

43014 

0 

0956 

REF 

9 

LAST 

1207 

13,3600 

01475 

0 

0957 

REF 

26 

LAST 

1218 

13,3601 

Cl  674 

0 

096  4 

REF 

54 

LAST 

1218 

13,3602 

34C41 

0 

0965 

REF 

12 

LAST 

1218 

13,3603 

27  172 

0 

0966 

13,3604 

77650 

1 

0967 

REF 

1 

13,3605 

27531 

0 
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V SR* 

CALL 

0,2 

MINIRECT 

FINISH  SETTING  UP  STATE  VECTOR 

RTB 

SSP 

GOTO 

MOVATHI S 
TRKMKCNT 
0 

FAZAB5 

PUT  TEMP  STATE  VECTOR  INTO  PERMANENT 

DLOAD 

CALL 

PIPTIME 

INTSTALL 

INTEGRATE  W THRU  BURN 

SET 

SET 

D IMOFLAG 

DO  W- MATRIX 

AVEMIDSW 

SO  WONT  CLOBBER  RN , VM , P IP T I ME 

SET 

CLEAR 

D60R9FLG 

9X9  FOR  LM 

V INTFLAG 

LM 

STCALL 

T DEC  1 
INTEGRV 

GOTO 

OTHERS 

NOW  GO  DO  THE  OTHER  VEHICLE 

GAP: 
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L 

P0968 

R0969 
R097  0 
R097  1 
R0972 
R0973 
R0974 

R0975 

R0976 

R0977 

R0978 

R0979 

R0980 


R098  1 

R0982 

R0983 

R0984 

098  A 1 

09842 

09843 

0985 

0986 

0987 

0988 

0989 

0989  1 
09892 
09093 

0990 

0991 

0992 

0993 

0994 

0995 

0996 

099  7 
099  8 

0999 

1000 


INTEGRATION  INITIALIZATION  USER'S  PAGE  NO.  19  E3  S3 

MICT0AV1 

THIS  ROUTINE  INTEGRATES  (PRECISION)  TO  THE  TIME  SPECIFIED  IN  TDEC1. 

IF,  AT  THE  END  OF  AN  INTEGRATION  TIME  STEP,  CURRENT  TIME  PLUS  A DELTA 
TIME  (SEE  T IMEDtLT ... ..BASED  CN  TFE  COMPUTATUCN  TIME  FOR  ONE  TIME  STEP) 

IS  GREATER  THAN  THE  DESIRED  TIME,  ALARM  1703  IS  SET  AND  THE  INTEGRATION 
IS  DONE  TO  THE  CURRENT  TIME. 

RETURN  IS  IN  BASIC  TO  THE  RETURN  ADDRESS  PLUS  ONE. 

IF  THE  INTEGRATION  IS  FINISHED  TO  THE  DESIRED  TIME,  RETURN  IS  IN  BASIC 
TO  THE  RETURN  ADDRESS 

IN  EITHER  CASE  , BEFORE  RETURNING,  THE  EXTRAPOLATED  STATE  VECTOR  IS  TRAN 
FERRED  FROM  R , V AT T TO  R, VN1-P IPTIME1  IS  SET  TO  THE  FINISHING  INTEGRA- 
TION TIME  AND  MPAC  IS  SET  TO  THE  CELTA  TIME 

TAT  MINUS  CURRENT  TIME. 


MIDT0AV2 

THIS  ROUTINE  INTEGRATES  THIS  VEHICLES  STATE  VECTOR  TO  THE  CURRENT  TIME. 
NO  INPUTS  ARE  REQUIRED  OF  THE  CALLER.  RETURN  IS  IN  BASIC  TO  THE  RETURN 
ADDRESS  WITH  THE  ABOVE  TRANSFERS  TO  R , VN 1 -PI PT I ME  1- AND  MPAC  DONE 


REF 

1 

21,2000 

21,2760 

REF 

1 

REF 

1 

E7, 1744 
21,2760 

REF 

2 

LAST 

1220 

21,2761 

REF 

1 

21,2762 

REF 

1 

21,2763 

REF 

5 

LAST 

1218 

13,2000 

13,3606 

REF 

5 

LAST 

1218  TO 

1220  : 

13,3606 

REF 

3 

LAST 

1220 

13,3607 

REF 

2 

LAST 

1220 

13,3610 
13,361  1 

REF 

35 

LAST 

1206 

13,3612 

REF 

1 

13.3613 

13.3614 

REF 

55 

LAST 

1219 

13,3615 

REF 

1 

13.3616 

13.3617 

REF 

1 

13,3620 

SETLOC  ORBIT  AL5 
BANK 

COUNT*  tt/INTIN 
EBANK=  I RFTURN1 


43020 

1 

M IDT0AV2 

STQ 

CLRGO 

03744 

0 

I RETURN1 

04634 

1 

MIDIFLAG 

27621 

1 

ENTMID2 

SETLOC 

INTINIT 

BANK 

52  521* 

COUNT  * 

$ $/ I NT  I N 

43020 

1 

M IDT OAV 1 

STQ 

SET 

03744 

0 

I RETURN l 

04474 

1 

MI  DIF  LAG 

43234 

0 

RTB 

DAD 

21603 

1 

LOAOT IME 

11171 

0 

TIMEDELT 

51021 

0 

BDSU 

B PL 

00041 

1 

T DEC  1 

27625 

0 

ENTMI D1 

77624 

1 

CALL 

27711 

0 

NOTIME 

INTEGRATE  TO  PRESENT  T IMF  PLUS  TIMEDELT 


INTEGRATE  TO  TDEC1 


INITIAL  CHECK,  IS  TDEC1  IN  THE  FUTURE 


Y5S 

NO,  SET  ALARM,  SWITCH  TO  MIDT0AV2 
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1001 

13,3621 

43234 

0 

ENTM 102 

RTB 

DAD 

1002 

REF 

36 

LAST 

1220 

13,3622 

21603 

1 

LOADTIME 

100  3 

REF 

2 

LAST 

1220 

13,3623 

11171 

0 

TIMEDELT 

1004 

REF 

56 

LAST 

1220 

13,3624 

00C41 

1 

STORE 

T DEC  1 

1005 

13,3625 

77624 

1 

ENTM 101 

CALL 

1006 

REF 

37 

LAST 

1219 

13,3626 

27447 

0 

INTSTALL 

1007 

13,3627 

45014 

0 

CLEAR 

CALL 

1008 

REF 

19 

LAST 

1219 

13,3630 

01676 

1 

DIMOFLAG 

NO  W-MATRIX 

1009 

REF 

1 

13,3631 

26066 

0 

THISVINT 

1010 

13,3632 

43014 

0 

CLEAR 

SET 

101  1 

REF 

20 

LAST 

121  3 

13,3633 

01673 

1 

I NTYPFLG 

1012 

REF 

1 

13, 3634 

04475 

0 

M IDAVELG 

LET  INTEG.  KNOW  THE  CALL  IS  FOR  MIDTOAV 

1013 

13,3635 

77624 

1 

CALL 

1014 

REF 

13 

LAST 

1219 

13,3636 

27172 

0 

I NTEGRV 

GO  INTEGRATE 

1015 

13,3637 

77214 

0 

CLEAR 

V LOAD 

1016 

REF 

2 

LAST 

1221 

13,3640 

046  75 

1 

MIOAVFLG 

1017 

REF 

33 

LAST 

974 

13,3641 

00001 

0 

RATT 

1018 

REF 

7 

LAST 

883 

13,3642 

27545 

0 

STOVL 

RN1 

1019 

REF 

23 

LAST 

951 

1 3,  3 643 

00007 

0 

VATT 

1020 

REF 

7 

LAST 

883 

13,3644 

17553 

1 

STOOL 

VN1 

1021 

REF 

15 

LAST 

782 

13,3645 

0CC15 

0 

TAT 

1022 

REF 

11 

LAST 

874 

13,3646 

03561 

0 

STORE 

PIPTIME1 

1022  1 

13,3647 

66134 

1 

SX  A , 2 

S X A , 1 

10222 

REF 

17 

LAST 

882 

13,3650 

02777 

1 

RTX2 

10223 

REF 

13 

LAST 

762 

13,3651 

02776 

0 

RTX  1 

1023 

13,3652 

77776 

1 

EXIT 

1024 

13,3653 

0 0004 

0 

INHINT 

1025 

13,3654 

0 0006 

1 

EXTEND 

1026 

REF 

30 

LAST 

990 

13,3655 

4 0025 

1 

DCS 

T IME2 

1027 

REF 

731 

LAST 

1215 

13,3656 

20  155 

1 

DAS 

MPAC 

1028 

REF 

14 

LAST 

1055 

13,3657 

C 7300 

0 

TC 

TPAGREE 

1029 

REF 

4 

LAST 

1220 

13,3660 

3 1744 

1 

CA 

I RETURN! 

1030 

REF 

14 

LAST 

743 

13,3661 

0 4631 

1 

TC 

BANK JUMP 

1031 

13,3662 

47014 

1 

CKMI02 

BOF 

RTB 

1032 

REF 

3 

LAST 

1220 

13,3663 

04754 

0 

MIDIFLAG 

1033 

REF 

1 

13,3664 

27701 

1 

MID2 

1034 

REF 

37 

LAST 

1221 

13,3665 

21603 

1 

LOADTIME 

1035 

13,3666 

44215 

1 

DAD 

BDSU 

103  6 

REF 

3 

LAST 

1221 

13,3667 

11171 

0 

TIMEDELT 

1037 

REF 

6 

LAST 

1216 

13,3670 

01115 

0 

TDEC 

1038 

13,3671 

45044 

0 

BPL 

CALL 

1039 

REF 

2 

LAST 

1213 

13,3672 

27315 

0 

TESTLOOP 

YES 

1040 

REF 

2 

LAST 

1220 

13,3673 

27711 

0 

NOTIME 

1041 

13,3674 

43234 

0 

T IME INC 

RTB 

DAD 

1042 

REF 

38 

LAST 

122  1 

13,3675 

21603 

1 

LOADTIME 

1043 

REF 

4 

LAST 

1221 

13,3676 

11171 

0 

TIMEDELT 
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1044 

REF 

7 

LAST 

122  1 

13,3677 

35115 

1 

STCALL 

T DEC 

104  5 

REF 

3 

LAST 

1221 

13,3700 

27315 

0 

TESTLOOP 

1046 

13,3701 

45345 

L 

MID2 

DLOAD 

DSU 

1047 

REF 

8 

LAST 

1222 

13,3702 

01115 

0 

TDEC 

1048 

REF 

25 

LAST 

1218 

13,3703 

01517 

0 

TET 

1049 

13,3704 

45246 

0 

ABS 

DSU 

1050 

REF 

1 

13,3705 

11167 

1 

3CSFCS 

1051 

13,3706 

52040 

1 

BMN 

GOTO 

1052 

REF 

4 

LAST 

1216 

13,3707 

27215 

1 

A-PCHK 

1053 

REF 

1 

13,3710 

27674 

1 

T I ME  INC 

1054 

13,3711 

77414 

0 

NOTIME 

CLEAR 

EXIT 

1055 

REF 

4 

LAST 

1221 

13,3712 

04674 

0 

MIDIFLAG 

1056 

REF 

5 

LAST 

1221 

13,3713 

25' 744 

1 

INCR 

I RETURN  1 

105  7 

REF 

40 

LAST 

98  1 

13,3714 

0 5571 

1 

TC 

ALARM 

105  8 

13,3715 

C 1 703 

1 

OCT 

1703 

1059 

REF 

226 

LAST 

1217 

13,3716 

0 6060 

1 

TC 

INTPRET 

1060 

13,3717 

77616 

0 

RVQ 

10601 

REF 

1 

04,2000 

SETLOC 

UPDATE2 

10602 

04,3166 

BANK 

10603 

REF 

1 

COUNT* 

$ $/ I NT  I N 

1061 

04,3166 

00000 

1 

3CSECS 

2DEC 

3 

106  1 

04,3167 

00003 

1 

1062 

04,3170 

00000 

1 

T IMEDELT 

2DEC 

2000 

1062 

04,3171 

03720 

1 

1066 

REF 

4 

LAST 

983 

E3 , 1 706 

EBANK= 

TEPHEM 

1067 

REF 

2 

LAST 

1222  TO 

1222: 

4 

4* 

COUNT  * 

$5/ INTIN 

1072 

REF 

2 27 

LAST 

1222 

04, 3172 

0 6060 

1 

I NTWAKEU 

TC 

INTPRET 

1073 

04,3173 

53  135 

0 

SLOAD 

BZE 

1074 

REF 

4 

LAST 

223 

04,3174 

01502 

1 

UPSVFLAG 

1075 

REF 

1 

04, 3 175 

11241 

0 

! NTWAKUP 

l 37  6 

04,3176 

77775 

1 

VLOAD 

107  7 

REF 

13 

LAST 

1218 

04,3177 

01503 

0 

RRECT 

1078 

REF 

20 

LAST 

1218 

C4 , 3200 

25535 

0 

STOVL 

RCV 

1079 

REF 

9 

LAST 

1214 

04,3201 

01511 

0 

VRECT 

1080 

04,3202 

77624 

1 

CALL 

1081 

REF 

5 

LAST 

1214 

04,3203 

27735 

0 

RECTIFY 

1082 

04,3204 

51535 

0 

SLOAD 

ABS 

1083 

REF 

5 

LAST 

1222 

04,3205 

01502 

1 

UPSVFLAG 

1084 

04,3206 

53025 

0 

DSU 

BZE 

1085 

REF 

1 

04,3207 

11250 

0 

IJPMNSVCD 

1086 

REF 

1 

04,3210 

11215 

1 

INTWAKEM 

1087 

04,3211 

43174 

1 

AXT  ,2 

CLRGO 

1088 

04,3212 

00000 

1 

DEC 

0 
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TOO  LATE 

SET  ERROR  EXIT  (CALLOC  +2) 
INSUFFICIENT  TIME  FOR  INTEGRATION  — 
TIG  WILL  BE  SLIPPFD... 


IS  THIS  A C SM /LEM  STATE  VECTOR  UPDATE 
REQUEST.  IF  NOT  GO  TO  INTWAKUP. 


MOVE  RRECT ( 6 ) AND  VRECTI6)  INTO 

RCVI6)  AND  VCVI6)  RESPECTIVELY. 

NOW  GO  TO  'RECTIFY  +130'  TO 
STORE  VRECT  INTO  VCV  AND  ZERO  OUT 
TDELTAVI 6)  ,TNUV( 6) , TC ( 2 ) AND  XKEPI2) 
COMPARE  ABSOLUTE  VALUE  OF  'UPSVFLAG' 

TO  'UPDATE  MOON  STATE  VECTOR  CODE' 

TO  DETERMINE  WHETHER  THE  STATE  VECTOR  TO 
BE  UPDATED  IS  IN  THE  EARTH  OR  LUNAR 

SPHERE  OF  INFLUENCE 

EARTH  SPHERE  OF  INFLUENCE. 


GAP: 
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1089 

REF 

21 

LAST 

1214 

04,3213 

0C223 

1 

MOONFLAG 

1090 

REF 

1 

04,3214 

11220 

1 

INTWAKEC 

1091 

04,3215 

43  174 

1 

INTWAKEM 

AXT  , 2 

SET 

1092 

04,3216 

0CC02 

0 

DEC 

2 

1093 

REF 

22 

LAST 

1223 

04,3217 

00063 

1 

MOONFLAG 

1094 

04,3220 

50135 

0 

INTWAKEC 

SLOAD 

BMN 

A 109  5 

109  6 

REF 

6 

LAST 

1222 

04,3221 

01502 

1 

UPSVFLAG 

1097 

REF 

1 

04,3222 

11230 

0 

I NTWAKLM 

1098 

04,3223 

77624 

1 

CALL 

1099 

REF 

4 

LAST 

1213 

04, 3224 

26717 

1 

ATOPCSM 

1100 

04, 3225 

5 2 C 14 

0 

CLEAR 

GOTO 

1101 

REF 

2 

LAST 

1218 

04,3226 

01671 

0 

ORBWFLAG 

1 102 

REF 

1 

04,3227 

11232 

1 

INTWAKEX 

1103 

04,3230 

77624 

1 

I ntwaklm 

CALL 

1 104 

REF 

3 

LAST 

1213 

04,323 1 

26772 

1 

ATOPLEM 

1105 

04,3232 

77414 

0 

intwakex 

CLEAR 

EXIT 

1 106 

REF 

12 

LAST 

1218 

04, 3233 

02676 

1 

R ENDWFLG 

11061 

REF 

233 

LAST 

115  1 

04,3234 

3 4746 

0 

CAF 

ZERO 

11062 

04,3235 

0 0006 

1 

EXTEND 

11063 

REF 

2 

LAST 

222 

04, 3236 

01  C77 

0 

WRITE 

CHAN77 

11068 

REF 

7 

LAST 

1223 

E3 , 1 50  1 

EBANK= 

UPSVFLAG 

1107 

REF 

8 

LAST 

1223 

04,3237 

55 ’ 501 

0 

TS 

UPSVFLAG 

1108 

REF 

228 

LAST 

1222 

04,3240 

0 6060 

1 

TC 

INTPRET 

1109 

04,3241 

77624 

1 

intwakup 

CALL 

1110 

REF 

3 

LAST 

713 

04,3242 

27456 

0 

I NTW  AKEO 

1111 

04, 3243 

77776 

1 

EXIT 

1112 

REF 

1 13 

LAST 

1217 

04,3244 

0 5355 

1 

TC 

PHASCHNG 

1113 

04,3245 

04026 

1 

OCT 

04026 

1114 

REF 

1 

04,3246 

0 3714 

0 

TC 

UPOUT  +1 

1115 

C4, 3247 

0CC02 

0 

UPMNSVCD 

OCT 

2 

1 116 

04,3250 

00000 

1 

OCT 

0 

1116  5 

REF 

1 

24,2000 

SETLOC 

ORBI TAL4 

11166 

24,3770 

BANK 

11167 

REF 

1 

COUNT  * 

1 $/ I NT I N 

1117 

24,3770 

77420 

1 GRP2PC 

STQ 

EXIT 

1118 

REF 

2 

LAST 

131 

24,3771 

02711 

1 

GRP2SVQ 

1119 

REF 

1 14 

LAST 

1223 

24,3772 

0 5355 

l 

TC 

PHASCHNG 

1120 

24,3773 

04022 

0 

OCT 

04022 

1121 

REF 

229 

LAST 

1223 

24,3774 

0 6060 

1 

TC 

INTPRET 

17:11  MAR.  19,1971  SKIPPER 


131  PAGE  1223 


USER'S  PAGE  NO.  22  E3  S3 


LUNAR  SPHERE  OF  INFLUENCE. 


COMMON  CODING  AFTER  X2  INITIALIZED  AND 
MOONFLAG  SETIOR  CLEARED). 

IS  THIS  A REQUEST  FOR  A LEM  OR  CSM 

STATE  VECTOR  UPDATE 

UPDATE  CSM  STATE  VECTOR 


UPDATE  LM  STATE  VFCTOR 


ZERO  CHANNEL  77 


RELFASE  : GR AB : OF  ORBIT  INTFG 


GAP: 

L 

1122 
1 123 
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INTEGRATION  INITIALIZATION 

USFR'S  PAGE  NO. 

23 

E 3 S3 

24,3775 

REF  3 LAST  1223  24,3776 

77650  1 
02711  1 

GOTO 

GRP2SVQ 

GAP: 
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L ORBITAL  INTEGRATION 


ROOO  1 

DELETE 

0002 

13,3720 

0003 

REF 

1 

11,2000 

0004 

11,2403 

000  5 

REF 

1 

R0006 

DELETE 

000  7 

11,2403 

40354 

1 

0008 

REF 

10 

LAST 

1215 

11,2404 

C2C30 

0 

0009 

11,2405 

00001 

0 

0010 

11,2406 

75543 

1 

001  1 

REF 

4 

LAST 

1215 

11,2407 

51770 

0 

0012 

11,2410 

53515 

0 

0013 

REF 

21 

LAST 

1222 

11,2411 

01535 

0 

0014 

11,2412 

60325 

0 

0015 

11,2413 

0C045 

0 

0016 

REF 

64 

LAST 

1211 

11,2414 

00047 

1 

0017 

11,2415 

77  1 15 

1 

0018 

11 , 2416 

65241 

0 

0019 

REF 

15 

LAST 

1210 

11,2417 

Cl  543 

1 

0020 

REF 

11 

LAST 

1214 

11 ,2420 

02074 

0 

0021 

11,2421 

6C225 

1 

002  2 

REF 

7 

LAST 

1214 

11,2422 

01551 

1 

0023 

REF 

19 

LAST 

1153 

11,2423 

0C051 

0 

0024 

11 ,2424 

77742 

0 

0025 

11,2425 

65271 

0 

0026 

11 , 2426 

00003 

1 

002  7 

11,2427 

41405 

0 

0028 

11,2430 

00005 

1 

0029 

11, 2431 

65316 

0 

0030 

11,2432 

00005 

1 

003  1 

11,2433 

64716 

0 

0032 

REF 

5 

LAST 

1225 

1 1 ,2434 

51770 

0 

003  3 

11,2435 

4C442 

1 

0034 

11,2436 

47515 

0 

0035 

REF 

16 

LAST 

1225 

11,2437 

C 1 543 

1 

0036 

1 1 , 2440 

44205 

0 

0037 

11, 2441 

00045 

0 

0038 

11,2442 

41271 

0 

0039 

11,2443 

C0003 

1 

0040 

11,2444 

53605 

1 

0041 

REF 

1 

11,2445 

11254 

1 

0042 

11, 2446 

2C176 

0 

004  3 

11,2447 

43260 

1 

0044 

REF 

20 

LAST 

1225 

11,2450 

00050 

1 

0045 

1 1 , 245  l 

45257 

0 

0046 

11,2452 

20211 

1 

004  7 

11,2453 

41205 

0 

0048 

11,2454 

0CC01 

0 

0049 

11,2455 

00005 

1 

0050 

11,2456 

53657 

0 

KEPPREP 
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BANK  13 
SETLOC  ORBITAL 
BANK 

COUNT*  $ $/ORBI T 


LX  A , 2 

SETPD 

PBODY 

0 

DLOAD* 

SORT 

MUEA  KTH , 2 

PDVL 

UNIT 

RCV 

POOL 

NORM 

36D 

XI 

PDVL 

DOT 

P DDL 
VCV 
T AU. 

DSU 

NORM 

TC 

SI 

SRI 

DDV 

P DDL 
2D 

DMP 

PUSH 

4D 

DSQ 

PDDL 

4D 

DSQ 

P DDL* 

MUE A RTH , 2 

SR3 

SR4 

PDVL 

V SQ 
VCV 

DMP 

BDSU 

36D 

DDV 

DMP 

20 

DMP 

SL* 

DP2/3 

0-3,1 

XSU,  1 

DAD 

SI 

SL* 

DSU 
8D , 1 

DMP 

DMP 

OD 

4D 

SL* 

SL* 

SQRT(MU)  (+18  OR  +15) 

OD 

PL 

2D 

PL 

8D 

NORM  R (+29  OR  +27  - 

N 1 ) 2D 

PL 

4D 

F*SQRT (MU) ( +7  OR+5)  4D  PL  60 

( + 28) 


FSl+6  +N1-N2)  6D  PL  80 

( F S ) S 0 ( + 12  +2 ( N1-N2 ) ) 8D  PL  100 

SSQ/MUI-20R  +2 ( N1-N2 ) ) 100  PL  120 


PREALIGN  MU  ( +43  OR  +37)  120  PL  140 

PL  120 
PL  100 

-(  1/R-ALPHA) (+12  +3N1-2N2) 


10L ( 1 /R- ALPHA ) ( +13  +21N1-N2)) 

2 ( FS) SQ  - ETCETRA  PL  8D 

XI  = N2-N1 

-FS+2(FS)SQ  ETC  (+6  +N1-N2) 


PL  60 


GAP: 
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0051 

11,2457 

20211 

1 

8 D , 1 

0052 

11,2460 

20201 

0 

0,1 

0053 

11,2461 

65215 

1 

DAO 

P DDL 

005  A 

REF 

2 

LAST 

115 

1 1 , 2462 

01553 

0 

XKEP 

0055 

11,2463 

53605 

1 

DMP 

SL* 

0056 

11,2464 

oooot 

0 

OD 

0057 

11,2465 

20202 

0 

1 , 1 

0058 

11,2466 

43204 

0 

BOVB 

DAD 

0059 

REF 

3 

LAST 

1154 

11,2467 

57756 

1 

TCDANZ IG 

0060 

11,2470 

77626 

0 

STADR 

0061 

REF 

3 

LAST 

1173 

11,2471 

75656 

0 

STORE 

XKEPNEW 

0062 

11 , 2472 

740  20 

0 

STQ 

A XC  , 1 

0063 

REF 

3 

LAST 

1177 

11, 2473 

G 2 1 1 1 

1 

KEPRTN 

0064 

11,2474 

00012 

1 

DEC 

10 

006  5 

11,2475 

74014 

1 

BON 

A XC , 1 

0066 

REF 

23 

LAST 

1223 

1 1 , 2476 

00303 

1 

MOONFLAG 

0067 

REF 

1 

11,2477 

24023 

0 

KEPLERN 

0068 

11,2500 

00002 

0 

DEC 

2 

0069 

11,2501 

77650 

1 

GOTO 

0070 

REF 

2 

LAST 

1226 

11,2502 

24023 

0 

KEPLERN 
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PL  6D 


Sl+17  OR  +16) 
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007  1 

11,2503 

66350 

1 FBR3 

LX  A , 1 

SSP 

007  2 

REF 

18 

LAST 

1209 

11,2504 

C 1 500 

0 

D IFEQCNT 

0073 

REF 

21 

LAST 

1225 

11,2505 

00051 

0 

SI 

0074 

1 1 ,2506 

77762 

1 

DEC 

-13 

0075 

11,2507 

54  345 

1 

DLOAD 

SR 

0076 

REF 

9 

LAST 

1216 

11,2510 

02076 

1 

DT/2 

0077 

11,2511 

2C612 

0 

9D 

0078 

11,2512 

61500 

0 

T I X , 1 

ROUND 

0079 

11,2513 

22514 

1 

+ 1 

0030 

11,2514 

43206 

1 

PUSH 

DAD 

008  1 

REF 

8 

LAST 

1225 

11,2515 

01551 

1 

TC 

0032 

REF 

12 

LAST 

1225 

11,2516 

16074 

0 

STOOL 

TAU. 

0083 

11,2517 

7 7615 

0 

DAD 

0084 

REF 

26 

LAST 

1222 

11,2520 

01517 

0 

TFT 

0085 

REF 

27 

LAST, 

1227 

1 1 , 252  1 

35517 

1 

STCALL 

TET 

0086 

REF 

2 

LAST 

1214 

l 1 ,2522 

22403 

0 

KEPPREP 

17:11  MAR.  19,1971 


SKIPPER  .131  PAGE  1227 


USER*  S PAGE  NO.  3 EO  S3 


GAP: 
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L ORBITAL  INTEGRATION 

P0037  AGC  R CL  T I NE  TO  COMPUTE  ACCELERATION  COMPONENTS 


0088 

11,2523 

73150 

1 ACCOMP 

0089 

REF 

11 

LAST 

1225 

11,2524 

02030 

0 

0090 

REF 

12 

LAST 

1228 

11,2525 

02030 

0 

0091 

11,2526 

77775 

1 

0092 

REF 

10 

LAST 

1212 

11,2527 

24007 

0 

0093 

REF 

2 

LAST 

118 

11,2530 

26062 

1 

0094 

REF 

20 

LAST 

1134 

11,2531 

02032 

1 

0095 

11,2532 

53257 

1 

0096 

11,2533 

57605 

0 

0097 

REF 

22 

LAST 

1225 

1 1 ,2534 

01535 

0 

0098 

REF 

2 

LAST 

118 

11,2535 

02040 

1 

0099 

11, 2536 

65014 

1 

0100 

REF 

20 

LAST- 

1221 

11,2537 

01756 

1 

0101 

11,2540 

22545 

0 

0102 

REF 

19 

LAST 

1227 

11,2541 

01500 

0 

0103 

REF 

6 

LAST 

120 

11,2542 

12123 

1 

0104 

11,2543 

77  124 

0 

0105 

REF 

20 

LAST 

1228 

11,2544 

01500 

0 

0106 

11,2545 

53575 

0 

0107 

REF 

21 

LAST 

1228 

1 1 , 2546 

02032 

1 

0108 

REF 

22 

LAST 

1228 

1 1,2547 

16032 

1 

0109 

11,2550 

00045 

0 

0110 

REF 

4 

LAST 

1132 

11,2551 

36C70 

0 

0111 

REF 

1 

11 ,2552 

22653 

1 

0112 

11,2553 

661  75 

1 

0113 

REF 

3 

LAST 

1228 

11,2554 

02040 

1 

0114 

REF 

34 

LAST 

1209 

11,2555 

00051 

0 

0115 

REF 

23 

LAST 

1228 

11,2556 

16032 

1 

0116 

REF 

2 

LAST 

118 

11,2557 

02072 

0 

0117 

REF 

5 

LAST 

1228 

11,2560 

02070 

1 

0118 

11,2561 

71214 

0 

0119 

REF 

3 

LAST 

1215 

11,2562 

00342 

1 

0120 

REF 

1 

11,2563 

23024 

0 

0121 

REF 

28 

LAST 

1227 

11,2564 

01517 

0 

0122 

11,2565 

77624 

1 

0123 

REF 

3 

LAST 

983 

11,2566 

3 3 646 

0 

0124 

11,2567 

72174 

0 

0125 

11,2570 

00002 

0 

0126 

REF 

35 

LAST 

1228 

11,2571 

00051 

0 

012  7 

11,2572 

7 7614 

l 

012  8 

REF 

24 

LAST 

1226 

11,2573 

00343 

0 

0129 

11,2574 

22577 

1 

0130 

11,2575 

77076 

0 

013  1 

11 ,2576 

00000 

1 

013  2 

REF 

4 

LAST 

1228 

11,2577 

02040 

1 

0133 

REF 

3 

LAST 

119 

1 1 ,2600 

26  104 

0 

0134 

11,2601 

00003 

1 

NASA  20211 12-lfcl 
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LX  A , 1 

VLOAO 

STOVL 

VSL* 

STORE 

BOF 

STORE 
XCHX  ,2 

VLOAD 

STODL 

STCALL 

VLOAD 

STODL 

STORE 

BOF 

CALL 
AXT  , 2 

BOF 

VCOMP 

STORE 

STOVL 


USER'S  PAGE  NO.  A EO  S3 


L X A , 2 
PBOOY 
P BODY 

ZEROVEC 

FV 

ALPHAV 

VAD 

0 -7,2 
RCV 
BETAV 
XCHX , 2 
D IMOFLAG 
+ 5 

DIFEQCNT 
VECTAB, 2 

D IFFOCNT 
UNIT 
ALPHAV 
ALPHAV 
3 6D 

ALPHAM 
GAMCOMP 
S X A , 1 
BETAV 
S 2 

ALPHAV 

BETAM 

ALPHAM 

DLOAD 

MIDFLAG 

OBLATE 

TET 

LSPOS 
LXA,  1 

2 

S 2 

MOONFLAG 
+ 3 

AXT,  2 
0 

BETAV 

RPOV 

20 


GAP: 


ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY 


L 

ORBITAL 

INTEGRATION 

0135 

REF 

4 

LAST 

119 

0136 

0137 

REF 

19 

LAST 

891 

0138 

0139 

REF 

1 

3140 

0141 

REF 

21 

LAST 

1228 

0142 

0143 

REF 

1 

0144 

REF 

24 

LAST 

1228 

0145 

REF 

6 

LAST 

1228 

0146 

0147 

0148 

0149 

REF 

5 

LA, ST 

1228 

0150 

REF 

21 

LAST 

1228 

0151 

REF 

7 

LAST 

1228 

0153 

0154 

REF 

22 

LAST 

1229 

0155 

0156 

0157 

0158 

REF 

4 

LAST 

1228 

0159 

REF 

3 

LAST 

1213 

0160 

REF 

25 

LAST 

1228 

016  1 
0162 

0163 

0164 

REF 

5 

LAST 

1229 

0165 

REF 

6 

LAST 

1229 

0166 

0167 

0168 

0169 

0170 

0171 

REF 

2 

LAST 

1228 

0172 

REF 

7 

LAST 

1229 

017  3 

REF 

6 

LAST 

1229 

0174 

REF 

3 

LAST 

1229 

0175 

0176 

0177 

REF 

2 

LAST 

1228 

0178 

0179 

REF 

7 

LAST 

1229 

0180 

0181 

0182 

0183 

0184 

0185 

REF 

7 

LAST 

1229 

11,2602 

02113 

0 

11,2603 

45335 

0 

1 1 ,2604 

01011 

0 

11,2605 

11256 

0 

11,2606 

43030 

0 

11,2607 

22612 

1 

11,2610 

01756 

1 

11,2611 

72625 

0 

11,2612 

74375 

0 

1 1, 2613 

02032 

1 

11,2614 

02070 

1 

11,2615 

52257 

0 

11,2616 

57175 

0 

11,2617 

02040 

1 

11,2620 

77724 

0 

11,2621 

01500 

0 

11,2622 

12131 

1 

11,2623 

77724 

0 

11 ,2624 

01500 

0 

11,2625 

62175 

0 

GETRPSV 

11,2626 

02  104 

0 

1 1,2627 

00004 

0 

11,2630 

43014 

0 

11,2631 

04260 

1 

11,2632 

00343 

0 

11,2633 

22640 

0 

11,2634 

53261 

1 

11,2635 

2C612 

0 

11,2636 

02113 

0 

11,2637 

02113 

0 

11,2640 

77624 

1 

11,2641 

22653 

1 

11 , 2642 

62174 

1 

11,2643 

OC  004 

0 

1 1 ,2644 

00004 

0 

11,2645 

77775 

1 

11,2646 

02113 

0 

11,2647 

36040 

0 

11,2650 

22653 

1 

11 ,2651 

77650 

1 

11,2652 

23024 

0 

11,2653 

74575 

0 

GAMCOMP 

11,2654 

02040 

1 

11,2655 

4C236 

1 

11,2656 

00001 

0 

11,2657 

61501 

1 

11 , 2660 

00040 

0 

11,2661 

6C325 

0 

11,2662 

02070 

1 

11,2663 

00041 

1 

ASA  202L112-L61 
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STORE 

RPSV 

SLOAD 

DSU 

MODREG 

OCT27 

8HI  Z 

BOF 

1-3 

DIMOFLAG 

GETRPSV 

VLOAD 

VXSC 

ALPHAV 

ALPHAM 

VSR* 

vsu 
1,2 
8 ETA  V 

XCHX, 2 

DIFEQCNT 

STORE 

VECTAB  +6,2 

XCHX  ,2 

DIFEQCNT 

VLOAD 

I NCR , 1 

RPQV 

4 

CLEAR 

BOF 

RPQFLAG 
MOONFLAG 
+ 5 

VSR 

VAD 

9D 

RPSV 

STORE 

RPSV 

CALL 

GAMCOMP 

AXT  , 2 

I NCR , 1 

4 

4 

VLOAD 

RPSV 

ST  C ALL 

BETAV 

GAMCOMP 

GOTO 

OBLATE 

VLOAD 

VSR  1 
BETAV 

VSQ 

SETPO 

0 

NORM 

ROUND 
3 ID 

PDDL 

NORM 
ALPHAM 
3 2D 

NORMED  B SQUARED  TO  PD  LIST 
NORMALIZE  (LESS  ONE)  LENGTH  OF  ALPHA 
SAVING  NORM  SCALE  FACTOR  IN  XI 


GAP: 


ASSEMBLE  REVISION  210  OF  A GG  PROGRAM  LUMINARY  BY 


L ORBITAL  INTEGRATION 


0186 

1 1,2664 

63342 

1 

0187 

REF 

8 

LAST 

1229 

11,2665 

02040 

1 

0188 

11,2666 

77656 

1 

0189 

REF 

9 

LAST 

123  0 

11,2667 

16C40 

1 

0190 

11,2670 

OC  045 

0 

0191 

REF 

3 

LAST 

1228 

11,2671 

02072 

0 

0192 

11, 2672 

55301 

0 

0193 

11,2673 

00042 

1 

0194 

11,2674 

41562 

0 

0195 

11,2675 

77743 

1 

0196 

REF 

1 

11,2676 

27760 

0 

0197 

REF 

22 

LAST 

1227 

1 1 , 2677 

00051 

0 

0198 

11,2700 

57124 

1 

0199 

REF 

23 

LAST 

1230 

11 ,2701 

00050 

1 

0200 

11, 2702 

00040 

0 

0201 

11,2703 

71264 

1 

0202 

11 ,2704 

00041 

1 

020  3 

11,2705 

0C003 

1 

0204 

11 , 2706 

65057 

0 

020  5 

11,2707 

57177 

1 

0206 

REF 

24 

LAST 

1230 

11,2710 

00050 

1 

0207 

11,2711 

74406 

0 

0208 

11,2712 

5C315 

0 

0209 

REF 

25 

LAST 

1229 

11,2713 

02032 

1 

0210 

REF 

10 

LAST 

1230 

11,2714 

02040 

1 

021  1 

11,2715 

44372 

1 

0212 

11,2716 

57206 

1 

0213 

11,2717 

CC005 

1 

0214 

11,2720 

77752 

1 

0215 

11,2721 

43206 

1 

0216 

REF 

1 

11,2722 

25766 

1 

021  7 

11,2723 

75406 

1 

0218 

11 ,2724 

41475 

1 

0219 

1 L , 2 725 

00013 

0 

0220 

11 ,2726 

43352 

1 

022  l 

REF 

2 

LAST 

1230 

11,2727 

25766 

1 

0222 

11,2730 

43325 

1 

0223 

11,2731 

00013 

0 

0224 

REF 

3 

LAST 

935 

11,2732 

24005 

1 

0225 

11,2733 

72475 

1 

0226 

11,2734 

00011 

1 

0227 

11,2735 

562  15 

1 

022  8 

REF 

1 

11,2736 

25760 

1 

0229 

1 1,2737 

0 CO  1 7 

1 

0230 

11,2740 

74275 

1 

023  1 

11,2741 

C0007 

0 

0232 

REF 

11 

LAST 

1230 

11,2742 

02040 

1 

0233 

11,2743 

64515 

1 

0234 

REF 

26 

LAST 

1230 

11,2744 

02032 

1 

0235 

11,2745 

41455 

0 
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SRI 

PDVL 

UNIT 

BETAV 

CIPDL+2)  = ALMOST  NORMED  ALPHA 

STODL 

BETAV 
3 6D 

STORE 

BETAM 

NORM 

BDDV 
3 3D 

FORM  NORMALIZED  QUOTIENT  ALPHAM/BETAM 

SR  1R 
DLOAD* 

PUSH 

ASCALE, 1 

CIPDL+2)  = ALMOST  NORMALIZED  RHO. 

STORE 

SI 

XCHX, 2 

X AD , 2 
SI 
3 2D 

XSU , 2 

DLOAD 
3 3D 
2D 

SP* 

XCHX, 2 
0-1,2 
SI 

PUSH 

SR1R 

RHO/4  TO  4D 

PDVL 

DOT 

ALPHAV 

BETAV 

SL1R 

BDSU 

(RHO/4)  - 21 ALPHAV/2. RETAV/2 ) 

PUSH 

SL1 

DMPR 

4 

TO  PDL+6 

PUSH 

DAD 

DQUARTER 

PUSH 

SORT 

DMPR 

PUSH 

10D 

SLl 

DAD 

DQUARTER 

PDDL 

DAD 

10D 

HALFDP 

(1/41+21  (Q+D/4)  TO  PD+14D 

OMPR 

SLl 

8D 

DAD 

DDV 

THREE/8 

14D 

DMPR 

VXSC 

6 

BETAV 

- 

PDVL 

VSR3 

ALPHAV 

I G/2 ) ( C ( PD+4 ) ) B/2  TO  PD+16D 

VAD 

PUSH 

A 1 2 + C ! PD+16D ) TO  PD  + 16D 

GAP: 
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L ORBITAL  INTEGRATION 


0236 

1 1,2746 

41345 

0 

DLOAD 

DMP 

0237 

11,2747 

00001 

0 

0 

0233 

11,2750 

00015 

0 

1 2D 

0239 

11,2751 

61501 

1 

NORM 

ROUND 

0240 

11,2752 

00C37 

0 

3 OD 

024  1 

11,2753 

40665 

0 

BDD  V 

DMP* 

0242 

11,2754 

00003 

1 

2 

024  3 

REF 

6 

LAST 

1225 

11,2755 

51770 

0 

MUFARTH , 2 

0244 

l 1 , 2756 

74276 

1 

DCOMP 

VXSC 

0245 

11,2757 
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1 

GOTO 

0459 

REF 

1 

11,3276 

23057 

l 

COMTERM 

042  8 

11 ,3277 

57435 

1 

MATR I X 

VXV 

VCOMP 

042  9 

REF 

3 

LAST 

1140 

1 1,3300 

02013 

1 

5 04LM 

0430 

11,3301 

77655 

1 

VAD 

0431 

11,3302 

43505 

0 

VXM 

R VO 

043  2 

REF 

8 

LAST 

1143 

11 , 3303 

00025 

0 

MMATRIX 

0433 

REF 

1 

11,3304 

23473 

0 

DIFEOTAB 

CADR 

D IFEQ+O 

0434 

REF 

1 

1 1, 3305 

23477 

1 

CADR 

D IFEQ  + l 

043  5 

REF 

1 

11,3306 

23510 

1 

CADR 

D IFEQ+2 

043  6 

11 , 3307 

77214 

0 

T IMESTEP 

BOF 

V LOAD 

0437 

REF 

4 

LAST 

1228 

11,3310 

00342 

l 

MIDFLAG 

043  8 

REF 

1 

11,3311 

23340 

1 

RECTEST 

043  9 

REF 

23 

LAST 

1228 

11,3312 

01535 

0 

RCV 

044  0 

11,3313 

4 1241 

0 

DOT 

DMP 

0441 

REF 

17 

LAST 

1225 

11,3314 

01543 

1 

VCV 

044  2 

REF 

10 

LAST 

1227 

11,3315 

C2076 

1 

DT/2 

0443 

11,3316 

77640 

0 

RMN 

0444 

REF 

2 

LAST 

1235 

11,3317 

23340 

1 

RECTEST 

044  5 

11,3320 

43014 

0 

BON 

BOF 

0446 

REF 

28 

LAST 

1234 

11,3321 

OC  303 

1 

MOONFLAG 

044  7 

REF 

l 

11,3322 

23415 

0 

LUNSPH 

044  8 

REF 

5 

LAST 

123  1 

11,3323 

04340 

L 

RPQFLAG 

044  9 

REF 

1 

11,3324 

23412 

1 

EARSPH 

0450 

11,3325 

45145 

0 

DLOAD 

CALL 

045  1 

REF 

32 

LAST 

1232 

11,3326 

01517 

0 

TFT 

0452 

REF 

4 

LAST 

1228 

11,3327 

33646 

0 

LSPOS 

045  3 

REF 

5 

LAST 

1229 

11,3330 

02104 

0 

STORE 

RPQV 
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ROUTINE  TRANSLATES  FROM  PLANETARY 
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RPQV  IN  MP AC 
RPQV 
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L 

ORBITAL 

INTEGRAT ION 

0454 

11,3331 

77754 

1 

LXA  ,2 

0455 

REF 

15 

LAST 

1235 

11,3332 

C2030 

0 

P BOD  Y 

0456 

11,3333 

51445 

0 

I NLUNCHK 

BVSU 

ABVAL 

0457 

REF 

24 

LAST 

1235 

11,3334 

01535 

0 

RCV 

045  8 

11,3335 

50025 

0 

DSU 

BMN 

0459 

REF 

1 

11,3336 

27770 

1 

R SPHERE 

0460 

REF 

1 

11 , 3337 

23432 

0 

DOSW ITCH 

046  1 

11,3340 

51575 

1 

RECTEST 

VLOAD 

ABVAL 

0462 

REF 

9 

LAST 

1231 

11,3341 

01521 

0 

TDELTAV 

0463 

11,3342 

7 7600 

1 

BOV 

0464 

REF 

1 

11,3343 

23366 

0 

CALLRFCT 

046  5 

11,3344 

51025 

1 

DSU 

BPL 

046  6 

REF 

3 

LAST 

956 

11,3345 

23773 

0 

3/4 

046  7 

REF 

2 

LAST 

1236 

11,3346 

23366 

0 

CALLRECT 

046  8 

11,3347 

53615 

0 

DAD 

SLY 

0469 

REF 

4 

LAST 

1236 

11,3350 

23773 

0 

3/4 

0470 

11,3351 

57605 

0 

O 

1 

PO 

0471 

11,3352 

45271 

1 

DDV 

DSU 

0472 

11,3353 

00C13 

0 

10D 

0473 

REF 

1 

11,3354 

27766 

0 

RECRATIO 

0474 

11,3355 

77244 

0 

BPL 

VLOAD 

047  5 

REF 

3 

LAST 

1236 

11,3356 

23366 

0 

CALLRECT 

0476 

REF 

8 

LAST 

1212 

11,3357 

01527 

0 

TNUV 

0477 

11,3360 

45246 

0 

ABVAL 

DSU 

0478 

REF 

5 

LAST 

1236 

11,3361 

23773 

0 

3/4 

0479 

11,3362 

77600 

1 

BOV 

0480 

REF 

4 

LAST 

1236 

11, 1363 

23366 

0 

CALLRECT 

0481 

1 1 ,3364 

77640 

0 

BMN 

0482 

REF 

1 

11,3365 

23370 

1 

INTGRATE 

048  3 

11,3366 

77624 

1 

CALLRECT 

CALL 

0484 

REF 

7 

LAST 

123  1 

11,3367 

27720 

1 

R ECT  IFY 

0485 

11,3370 

77775 

1 

INTGRATE 

VLOAD 

0486 

REF 

9 

LAST 

1236 

11,3371 

01527 

0 

TNUV 

0487 

REF 

1 

11,3372 

25134 

0 

STOVL 

ZV 

0488 

REF 

10 

LAST 

1236 

11,3373 

01521 

0 

TDELTAV 

0489 

REF 

2 

LAST 

107 

11,3374 

01126 

0 

STORE 

YV 

0490 

11,3375 

77614 

1 

CLEAR 

049  1 

REF 

1 

11,3376 

00261 

1 

JSWITCH 

0492 

11,3377 

66375 

0 

DIFEQO 

VLOAD 

SSP 

0493 

REF 

3 

LAST 

1236 

11,3400 

01126 

0 

YV 

0494 

REF 

24 

LAST 

1235 

11 , 3401 

01501 

1 

DIFEQCNT 

0495 

11,3402 

00000 

1 

0 

0496 

REF 

32 

LAST 

1235 

11, 3403 

16032 

1 

STOOL 

ALPHAV 

049  7 

REF 

3 

LAST 

1135 

11,3404 

24007 

0 

DPZERO 

0498 

REF 

3 

LAST 

123  1 

11,3405 

02100 

1 

STORE 

H 

0499 

1 1 ,3406 

52014 

0 

BON 

GOTO 

050C 

REF 

2 

LAST 

1236 

11,3407 

0030 1 

0 

JSWITCH 

0501 

REF 

1 

11,3410 

23  712 

1 

DOW.  . 

0502 

REF 

1 

11,3411 

22523 

0 

ACCOMP 

0 50  3 

11,3412 

52175 

0 

E ARSPH 

VLOAD 

GOTO 
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RECTIFY  IF 
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EXCEEDS  3/4  IN  MAGNITUDE 

OR 

2)  ABVALI TDELTAV)  EQUALS  OR  EXCEEDS 
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START  H AT  ZFPO 
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0504 

REF 

6 

LAST 

1235 

11,3413 

02104 

0 

RPQV 

0505 

REF 

1 

11,3414 

23333 

0 

I NLUNCHK 

0506 

11,3415 

6C545 

0 

LUNSPH 

DLOAD 

SR2 

0507 

11,3416 

0CC13 

0 

10D 

050.8 

11,3417 

50025 

0 

DSU 

BMN 

0509 

REF 

2 

LAST 

1236 

11,3420 

27770 

1 

R SPHERE 

0510 

REF 

3 

LAST 

1235 

11,3421 

23340 

1 

RECTEST 

051  1 

11,3422 

71214 

0 

BOF 

DLOAD 

0512 

REF 

6 

LAST 

1235 

11,3423 

C4340 

1 

RPQFLAG 

0513 

REF 

2 

LAST 

1236 

11,3424 

23432 

0 

DOSW ITCH 

0514 

REF 

33 

LAST 

1235 

11,3425 

C 1 5 1 7 

0 

TET 

051  5 

11,3426 

77624 

1 

CALL 

0516 

REF 

2 

LAST 

502 

11,3427 

33646 

0 

LUNPOS 

0517 

11,3430 

77676 

0 

VCOMP 

0518 

REF 

7 

LAST 

1237 

11,3431 

02104 

0 

STORE 

RPQV 

0519 

11 , 3432 

77624 

1 

DOSW I TCH 

CALL 

0520 

REF 

1 

11,3433 

23436 

1 

OR  I GCHNG 

052  1 

11 ,3434 

77650 

1 

GOTO 

0522 

REF 

2 

LAST 

1236 

11,3435 

23370 

1 

I NTGRATE 

0523 

11 ,3436 

45020 

1 

OR  IGCHNG 

STQ 

CALL 

0524 

REF 

3 

LAST 

119 

11,3437 

02111 

1 

ORIGEX 

0525 

REF 

8 

LAST 

1236 

11,3440 

27720 

1 

RECTIFY 

0526 

11,3441 

53775 

1 

VLOAD 

VSL* 

0527 

REF 

25 

LAST 

1236 

11,3442 

01535 

0 

RCV 

0528 

1 1 , 3443 

57576 

1 

0,2 

0529 

11,3444 

53651 

0 

VSU 

VSL* 

0530 

REF 

8 

LAST 

1237 

11,3445 

02104 

0 

RPQV 

053  1 

11,3446 

57574 

0 

2,2 

0532 

REF 

14 

LAST 

1222 

11,3447 

01503 

0 

STORE 

RRECT 

0533 

REF 

26 

LAST 

1237 

11,3450 

C 1 535 

0 

STORE 

RCV 

0537 

11,3451 

57414 

1 

BOF 

VCOMP 

0538 

REF 

29 

LAST 

123  5 

11,3452 

0C343 

0 

MOONFLAG 

053  9 

11 , 3453 

23454 

0 

+ 1 

0540 

11,3454 

53715 

1 

PDVL 

VSL* 

054  1 

REF 

18 

LAST 

1235 

11,3455 

C 1 543 

1 

VCV 

0542 

11,3456 

57576 

l 

0,2 

0543 

11,3457 

77651 

0 

VSU 

0544 

11,3460 

77657 

0 

VSL* 

0545 

11,3461 

5 7 574 

0 

0 +2,2 

0546 

REF 

10 

LAST 

1222 

11,3462 

01511 

0 

STORE 

VRECT 

0547 

REF 

19 

LAST 

1237 

11 , 3463 

01543 

1 

STORE 

VCV 

0540 

11,3464 

67154 

0 

LXA  , 2 

S XA , 2 

0549 

REF 

4 

LAST 

1237 

1 1 , 3465 

02111 

1 

ORIGEX 

0550 

REF 

15 

LAST 

1217 

11,3466 

00052 

0 

OPRET 

0551 

11,3467 

52014 

0 

BON 

GOTO 

0552 

REF 

30 

LAST 

1237 

11,3470 

00303 

1 

MOONFLAG 

0553 

REF 

2 

LAST 

1209 

11,3471 

26747 

1 

CLRMOON 

0554 

REF 

3 

LAST 

1209 

11, 3472 

26754 

0 

SETMOON 
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L ORBITAL  INTEGRATION  USER'S  PAGE  NO.  1A 

P055  5 THE  RECTIFY  SUBROUTINE  IS  CALLED  BY  THE  INTEGRATION  PROGRAM  AND  OCCASIONALLY  BY  THE  MEASUREMENT 

R0557  ROUTINES  TO  ESTABLISH  A NEW  CONIC. 


0556 

13,3720 

BANK 

13 

0555 

REF 

2 

LAST 

A8 

13,2000 

SETLOC 

0RBITAL2 

0560 

13,3720 

BANK 

056  1 

13,3720 

7735A 

0 

RECTIFY 

LX  A , 2 

V LOAD 

0562 

REF 

16 

LAST 

1236 

13,3721 

C2030 

0 

PBODY 

0563 

REF 

11 

LAST 

1236 

13,3722 

01521 

0 

TDELTAV 

056  A 

13,3723 

53257 

1 

VS  L* 

V AD 

0565 

- 

1 3 , 3 72  A 

57605 

0 

0 

1 

-4 

r\j 

0566 

REF 

' 27 

LAST 

1237 

13,3725 

01535 

0 

RCV 

056  7 

REF 

15 

LAST 

1237 

13,3726 

01503 

0 

STORE 

RRECT 

0568 

REF 

28 

LAST 

1238 

13,3727 

25535 

0 

STOVL 

RCV 

0565 

REF 

10 

LAST 

1236 

13,3730 

01527 

0 

TNUV 

0570 

13,3731 

53257 

1 

VS  L* 

VAD 

0571 

13,3732 

57602 

L 

0 -A,  2 

0572 

REF 

20 

LAST 

1237 

13,3733 

015A3 

1 

VCV 

0573 

REF 

11 

LAST 

1237 

13 , 373A 

01511 

0 

MINI RECT 

STORE 

VRECT 

057A 

REF 

21 

LAST 

1238 

13,3735 

255A3 

1 

STOVL 

VCV 

0575 

REF 

11 

LAST 

1228 

13 ,3  736 

2A007 

0 

ZEROVEC 

0576 

REF 

12 

LAST 

1238 

13,3737 

01521 

0 

STORE 

TDELTAV 

0577 

REF 

11 

LAST 

1238 

13,3  7A0 

15527 

0 

STOOL 

TNUV 

0578 

REF 

12 

LAST 

1238 

1 3 , 3 7A 1 

2A007 

0 

ZEROVEC 

0579 

REF 

10 

LAST 

1231 

13,3  7A2 

01551 

1 

STORE 

TC 

0580 

REF 

3 

LAST 

1226 

13 , 3 7A3 

01553 

0 

STORE 

XKEP 

0531 

1 3 , 3 7AA 

77616 

0 

RVQ 

0582 

1 1 , 3 A73 

BANK 

1 1 

0583 

REF 

2 

LAST 

1225 

11,2000 

SETLOC 

ORBITAL 

058A 

11.3A73 

BANK 

EO  S3 

I NCOR  PORAT ION 
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L 

P0585 

R 0 58  7 

0589 

0590 

0591 

0592 

0593 

0594 

0595 

0596 

0597 

0598 

0599 

0600 

0601 

0602 

0603 

0604 

0605 

0606 

060  7 

060  8 

060  9 

0610 

061  1 

0612 

0613 

0614 

0615 

0616 

0617 

0618 

0619 

062  0 

0621 

0622 

062  3 

0624 

0625 

0626 

0627 

062  8 

0629 

0630 

063  1 

063  2 

063  3 

0634 

0635 
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THE  THREE  DIFEO  ROUTINES  - DIFEQ+O,  OIFEQ+12,  AND  DIFEQ+24  - ARE  ENTEREDTO  PROCESS  THE  CONTRIBUTIONS  AT  THE 
BEGINNING,  MIDDLE,  AND  END  OF  THE  TIMESTEP,  RESPECTIVELY.  THE  UPDATING  IS  DONE  BY  THE  NYSTROM  METHOD . 


11,3473 

64575 

1 

DIFEQ+O 

VLOAD 

VSR3 

REF 

9 

LAST 

1235 

11,3474 

02062 

1 

F V 

REF 

2 

LAST 

1 L8 

11,3475 

36046 

0 

STC  ALL 

PHIV 

REF 

1 

11,3476 

23653 

0 

D IFEQCOM 

11,3477 

74575 

0 

D IFEQ  + 1 

VLOAD 

V SR  1 

REF 

10 

LAST 

1239 

11,3500 

02062 

1 

F V 

11, 3501 

53206 

0 

PUSH 

VAD 

REF 

3 

LAST 

1239 

1 1,3502 

02046 

1 

PHIV 

REF 

2 

LAST 

118 

11,3503 

26054 

l 

STOVL 

PSIV 

11,3504 

53362 

0 

VSR  1 

VAD 

REF 

4 

LAST 

1239 

11,3505 

02046 

1 

PHIV 

REF 

5 

LAST 

1239 

11, 3506 

36046 

0 

STC ALL 

PHIV 

REF 

2 

LAST 

1239 

11,3507 

23653 

0 

D IFEQCOM 

11,3510 

57345 

1 

DIFEQ+2 

DLOAD 

DMPR 

REF 

4 

LAST 

1236 

1 L , 3 5 1 1 

02  100 

1 

H 

REF 

2 

LAST 

1225 

11,3512 

11254 

1 

DP2/3 

11,3513 

74206 

0 

PUSH 

VXSC 

REF 

6 

LAST 

1239 

11,3514 

02046 

1 

PHIV 

11,3515 

53372 

1 

VSL  1 

VAD 

REF 

2 

LAST 

1236 

11,3516 

01134 

0 

zv 

11,3517 

53361 

0 

VXSC 

VAD 

REF 

5 

LAST 

1239 

11,3520 

02  100 

1 

H 

REF 

4 

LAST 

1236 

11,3521 

01126 

0 

Y V 

REF 

5 

LAST 

1239 

11,3522 

25126 

0 

STOVL 

YV 

REF 

1 1 

LAST 

1239 

11,3523 

02062 

1 

FV 

11,3524 

53322 

1 

VSR3 

VAD 

REF 

3 

LAST 

1239 

11,3525 

02054 

1 

PSIV 

11,3526 

76561 

1 

VXSC 

VSL1 

11,3527 

77655 

1 

VAD 

REF 

3 

LAST 

1239 

11,3530 

01134 

0 

ZV 

REF 

4 

LAST 

1239 

11,3531 

01134 

0 

STORE 

ZV 

11,3532 

45014 

0 

BOFF 

CALL 

REF 

3 

LAST 

1236 

1 1 ,3533 

00341 

1 

J SWITCH 

REF 

1 

11,3534 

23604 

1 

ENDSTATE 

REF 

21 

LAST 

1213 

11,3535 

51770 

0 

GRP2PC 

11,3536 

77354 

0 

LX  A , 2 

VLOAD 

REF 

2 

LAST 

107 

11,3537 

01  116 

0 

COLREG 

REF 

5 

LAST 

1239 

1 1 , 3540 

01134 

0 

ZV 

1 1,3541 

77732 

1 

VSL  3 

REF 

31 

LAST 

1153 

11,3542 

12467 

1 

STORE 

W +54D , 2 

1 1,3543 

77775 

1 

VLOAD 

REF 

6 

LAST 

1239 

11,3544 

01126 

0 

YV 

11,3545 

40 132 

0 

VSL3 

BOV 

REF 

1 

11,3546 

23676 

1 

W MAT END 

REF 

32 

LAST 

1239 

11,3547 

12401 

1 

STORE 

W , 2 

11,3550 

77624 

1 

CALL 

REF 

22 

LAST 

1239 

11,3551 

51770 

0 

GRP2PC 

ADJUST  W-POS I T ION  FOR  STORAGE 


1239 
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L 

0636 

063  7 

063  8 

0639 

064  0 

0641 

0642 

0643 

0644 

064  5 

0646 

0647 

064  8 

064  9 

0650 

0651 

0652 

0653 

0654 

0655 

0656 

0657 

0658 

0659 

0660 

066  1 

0662 

0663 

0664 

0665 

0666 

066  7 

066  8 

066  9 

0670 

0671 

0672 

0673 

0674 

0675 

0676 

0677 

0678 

0679 

0680 

0681 

0682 

0683 
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11,3552 

66354 

0 

LX  A , 2 

SSP 

REF 

3 

LAST 

1239 

11,3553 

01116 

0 

COLREG 

REF 

37 

LAST 

1231 

1 1 , 3554 

00052 

0 

S 2 

11,3555 

OOCOO 

1 

0 

11,3556 

67114 

1 

INCR , 2 

S X A , 2 

11,3557 

00006 

1 

6 

REF 

7 

LAST 

1239 

11,3560 

01125 

0 

YV 

11,3561 

45104 

0 

T I X , 2 

CALL 

REF 

1 

11,3562 

23647 

0 

R ELOADSV 

RFF 

23 

LAST 

1239 

11,3563 

51770 

0 

GRP2PC 

1 1,3564 

67154 

0 

LX  A , 2 

S XA , 2 

REF 

8 

LAST 

1240 

11,3565 

01125 

0 

YV 

REF 

4 

LAST 

1240 

11,3566 

01116 

0 

COLRFG 

11,3567 

77624 

1 

NEXT  COL 

CALL 

REF 

24 

LAST 

1240 

11,3570 

51770 

0 

GRP2PC 

11,3571 

76754 

0 

LXA  ,2 

V LOAD  4 

REF 

5 

LAST 

1240 

11 , 3572 

01116 

0 

COLREG 

REF 

33 

LAST 

1239 

11,3573 

75376 

1 

W ,2 

11 ,3574 

77722 

0 

VSR  3 

ADJUST  W-POSITION  FOR 

INTFGRAT  ION 

REF 

9 

LAST 

1240 

11,3575 

01126 

0 

STORE 

YV 

11, 3576 

76  173 

0 

VLOAD* 

AXT , 1 

REF 

34 

LAST 

1240 

11,3577 

75310 

1 

W +54D , 2 

11,3600 

CCOOO 

1 

0 

11,3601 

77722 

0 

VSR  3 

ADJUST  W-VELOC IT Y FOR 

INTEGRATION 

REF 

6 

LAST 

1239 

l 1 ,3602 

35134 

1 

STCALL 

ZV 

REF 

1 

11,3603 

23377 

0 

DIFEQO 

1 1 ,3604 

77200 

0 

ENDSTATE 

BOV 

VLOAD 

REF 

3 

LAST 

1235 

11,3605 

22776 

1 

GOBAQUE 

REF 

7 

LAST 

1240 

1 1 , 3606 

01134 

0 

ZV 

REF 

12 

LAST 

1238 

11,3607 

25527 

0 

STOVL 

TNUV 

REF 

10 

LAST 

1240 

11,3610 

01126 

0 

YV 

REF 

13 

LAST 

1238 

11,3611 

01521 

0 

STORE 

TDELTAV 

11,3612 

43014 

0 

BON 

BOFF 

REF 

3 

LAST 

1221 

11,3613 

04  715 

0 

M IDAVFLG 

REF 

1 

11,3614 

27662 

0 

CKMID2 

CHECK  FOR  MID2  BEFORE 

GOING  TO  TIMEINC 

REF 

22 

LAST 

1229 

11,3615 

01756 

1 

0 IMOFLAG 

REF 

5 

LAST 

1231 

1 1, 3616 

27315 

0 

TESTLOOP 

11,3617 

77776 

1 

EXIT 

REF 

115 

LAST 

1223 

11,3620 

0 5355 

1 

TC 

PHASCHNG 

11,3621 

04022 

0 

OCT 

04022 

PHASE  1 

REF 

73 

LAST 

1213 

1 1 , 3622 

0 5506 

1 

TC 

UPFL AG 

PHASF  CHANGE  HAS  OCCURRED  BETWEEN 

REF 

4 

LAST 

121  3 

11, 3623 

00236 

0 

ADRES 

REINTFLG 

INTSTALL  AND  INTWAKE 

REF 

230 

LAST 

1223 

1 1 , 3624 

0 6060 

1 

TC 

INTPRFT 

11 ,3625 

77731 

1 

SSP 

REF 

16 

LAST 

1237 

11,3626 

00053 

1 

QPRFT 

REF 

1 

11,3627 

2 3 634 

1 

AMOVED 

1 1 ,3630 

52014 

0 

BON 

GOTO 

REF 

27 

LAST 

1219 

11,3631 

01714 

1 

V INTFLAG 

GAP: 
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L 

ORBITAL 

INTEGRATION 

0684 

REF 

5 

LAST 

1223 

11,3632 

26717 

1 

ATOPCSM 

0685 

REF 

4 

LAST 

1223 

11, 3633 

26772 

1 

ATOPLEM 

0686 

11 , 3634 

66214 

0 AMOVED 

SET 

SSP 

0687 

REF 

4 

LAST 

1239 

11,3635 

0C061 

0 

J SWITCH 

0688 

REF 

6 

LAST 

1240 

11,3636 

01117 

1 

COLREG 

0639 

11,3637 

77741 

0 

DEC 

-30 

0690 

1 1, 3640 

66214 

0 

BOFF 

SSP 

0691 

REF 

10 

LAST 

1219 

11,3641 

01755 

1 

D60R9FLG 

0692 

REF 

1 

11,3642 

23  56  7 

1 

NEXT  COL 

0693 

REF 

7 

LAST 

1241 

11,3643 

01117 

1 

COLREG 

0694 

11,3 644 

77717 

0 

DEC 

-48 

0695 

11,3645 

77650 

1 

GOTO 

0696 

REF 

2 

LAST 

1241 

1 l ,3646 

23567 

1 

NEXTCOL 

0697 

1 1,3647 

77745 

1 

RELOADSV 

DLOAD 

0698 

REF 

9 

LAST 

1222 

11,3650 

01115 

0 

TDEC 

0699 

REF 

57 

LAST 

122  1 

11,3651 

34041 

0 

STCALL 

TDEC1 

0700 

REF 

1 

11,3652 

27177 

0 

INTEGRV2 

0701 

11,3653 

43345 

1 

DIFEQCOM 

DLOAD 

DAD 

0702 

REF 

11 

LAST 

12  35 

11,3654 

02076 

1 

DT/2 

0703 

REF 

6 

LAST 

1239 

11,3655 

02100 

1 

H 

0704 

11,3656 

66  110 

1 

INCR , 1 

S X A , 1 

0705 

11,3657 

77763 

0 

DEC 

-12 

0706 

REF 

25 

LAST 

1236 

11, 3660 

Cl  500 

0 

DIFEQCNT 

0707 

REF 

7 

LAST 

124  1 

11,3661 

02100 

1 

STORE 

H 

0708 

11,3662 

74561 

0 

VX  SC 

V SR  1 

0709 

REF 

12 

LAST 

1239 

11,3663 

02062 

1 

F V 

0710 

11,3664 

74255 

0 

VAD 

VXSC 

0711 

REF 

8 

LAST 

1240 

11,3665 

01134 

0 

l V 

0712 

REF 

0 

LAST 

1241 

11,3666 

02  100 

1 

H 

0713 

11,3667 

77655 

1 

VAD 

0714 

REF 

11 

LAST 

1240 

11,3670 

01126 

0 

Y V 

0715 

REF 

33 

LAST 

1236 

1 1,3671 

02C32 

1 

STORE 

ALPHAV 

0 716 

11,3672 

52  C 1 4 

0 

BON 

GOTO 

0717 

REF 

5 

LAST 

1241 

11,3673 

CC301 

0 

J SWITCH 

0718 

REF 

2 

LAST 

1236 

11,3674 

23712 

1 

DOW.  . 

0719 

REF 

1 

11,3675 

22503 

L 

FBR3 

0720 

1 1 ,3676 

43014 

0 

WMAT  END  CLEAR 

CLEAR 

0721 

REF 

23 

LAST 

1240 

11,3677 

01676 

l 

DIMOFLAG 

0722 

REF 

3 

LAST 

1223 

11,3700 

01671 

0 

ORBWFLAG 

0723 

11 ,3701 

77614 

1 

CLEAR 

0724 

REF 

13 

LAST 

1223 

11,3702 

02676 

1 

RENDWFLG 

0725 

11 ,3703 

77414 

0 

SET 

EXIT 

0726 

REF 

9 

LAST 

1215 

11,3704 

01472 

1 

STATEFLG 

0727 

REF 

41 

LAST 

1222 

11,3705 

0 5571 

1 

TC 

ALARM 

0728 

11,3706 

00421 

0 

OCT 

421 

0729 

REF 

231 

LAST 

1240 

11,3707 

0 6060 

1 

TC 

I NTPRET 
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USER' S PAGE  NO.  17 


EO  S3 


RELOAD  TEMPORARY  STATE  VECTOR 
FROM  PERMANENT  IN  CASE  OF 

BY  STARTING  AT  INTFGRV2. 
INCREMENT  H AND  DIFEQCNT. 


DIFEQCNT  SET  FOR  NEXT  ENTRY. 


DONT  INTEGRATE  W THIS  T IMF 
INVALIDATE  W 


PICK  UP  STATE  VECTOR  UPDATE 


GAP: 
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131  PAGE  1242 


ORBITAL 

INTEGRAT  IUN 

USER' S PAGE  NO.  18 

FO  S3 

0730 

0731 

REF  6 

LAST  1240 

11.3710 

11.3711 

77650  1 
27315  0 

GOTO 

TESTLOOP 

FINISH  INTEGRATING  STATE 

VECTOR 

GAP: 

L 

P 073  2 

R0734 

R0  73  6 

0 73  8 

0739 

0740 

0741 

0742 

0743 

0744 

0 74  5 

0746 

0747 

0748 

0 74  9 

0750 

075  1 

0 752 

0753 

0754 

0755 

0756 

0757 

0 75  8 

0759 

0760 

0761 

0 76  2 

0763 

0 76  4 

0 765 

0766 

0767 

0 76  8 

0769 

0770 

0771 

0772 

0773 

0774 

0775 

0776 

0777 

0778 

0779 

0780 

0781 

0782 

0783 

0784 
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ORBITAL  INTEGRATION  USER'S  PAGE  NO.  19  EO  S3 

ORBITAL  ROUTINE  FOR  EXTRAPOLATION  OF  THE  W MATRIX.  IT  COMPUTES  THE  SECOND  DERIVATIVE  OF  EACH  COLUMN  POSITION 
VECTOR  OF  THE  MATRIX  AND  CALLS  THE  NYSTROM  INTEGRATION  ROUTINES  TO  SOLVETHE  DIFFERENTIAL  EQUATIONS.  THE  PROGRAM 
USES  A TABLE  OF  VEHICLE  POSITION  VECTORS  COMPUTED  DURING  THE  INTEGRATION  OF  THE  VEHICLES  POSITION  AND  VELOCITY. 


11,3712 

7C754 

0 

DOW..  LXA , 2 

D LOAD* 

REE 

17 

LAST 

1238 

11,3713 

02030 

0 

P BODY 

REF 

7 

LAST 

123  1 

11,3714 

51770 

0 

MUEARTH, 2 

REF 

4 

LAST 

1230 

11,3715 

36072 

1 

STCALL 

8ETAM 

REF 

1 

11,3716 

23740 

0 

DOW. . 1 

REF 

13 

LAST 

1241 

11,3717 

02062 

1 

STORE 

FV 

11,3720 

62014 

0 

BOF 

I NCR , 1 

REF 

5 

LAST 

1235 

11,3721 

0C342 

1 

MIDFLAG 

REF 

3 

LAST 

1234 

11,3722 

23262 

0 

N BRANCH 

11 ,3723 

77771 

0 

DEC 

-6 

11,3724 

7C744 

1 

LXC  ,2 

DLOAD* 

REF 

13 

LAST 

1243 

11,3725 

02030 

0 

PBODY 

REF 

8 

LAST 

1243 

11,3726 

51772 

1 

MUEARTH  -2,2 

REF 

5 

LAST 

1243 

11 ,3727 

36C72 

1 

STCALL 

BETAM 

REF 

2 

LAST 

1243 

11,3730 

23740 

0 

DOW. . 1 

11,3731 

50414 

0 

BON 

V SR6 

REF 

31 

LAST 

1237 

11,3732 

0C303 

1 

MOONFLAG 

11 ,3733 

23734 

0 

+ 1 

11, 3734 

77655 

1 

VAD 

REF 

14 

LAST 

1243 

11,3735 

02  C 62 

1 

FV 

REF 

15 

LAST 

1243 

11,3736 

36062 

0 

STCALL 

FV 

REF 

4 

LAST 

1243 

11 ,3  737 

23262 

0 

NBRANCH 

11,3740 

6C575 

0 

DOW. . 1 VLOAD 

V SR4 

REF 

34 

LAST 

124  1 

1 1 , 3 74 1 

02032 

1 

ALPHAV 

11,3742 

53513 

0 

PDVL* 

UNIT 

REF 

8 

LAST 

1229 

11,3743 

C2  123 

0 

VEC.TAB,  1 

11,3744 

46315 

1 

PDVL 

V PRO  J 

REF 

35 

LAST 

1243 

11,3745 

02032 

1 

ALPHAV 

1 1 ,3746 

52361 

1 

VXSC 

VSU 

REF 

6 

LAST 

1236 

11,3747 

23773 

0 

3/4 

11,3750 

60325 

0 

PDDL 

NORM 

11,3751 

00045 

0 

36D 

REF 

3 8 

LAST 

1240 

11,3752 

00052 

0 

S 2 

11,3753 

63406 

0 

PUSH 

DSQ 

11,3754 

77605 

1 

DMP 

1 1 ,3755 

65301 

0 

NORM 

PDDL 

11,3756 

00043 

0 

34D 

REF 

6 

LAST 

1243 

11,3757 

02  C 72 

0 

BETAM 

1 1 ,3760 

56342 

1 

SRI 

DDV 

11 ,3761 

17761 

1 

VXSC 

1 1 , 3762 

5 7 154 

0 

LXA, 2 

XAD, 2 

REF 

39 

LAST 

1243 

11,3763 

00051 

0 

S 2 

REF 

40 

LAST 

1243 

11,3764 

0C051 

0 

S 2 

11,3765 

57074 

0 

XAD , 2 

XAD,  2 

REF 

41 

LAST 

1243 

11,3766 

00051 

0 

S 2 

11,3767 

00042 

1 

34D 

11,3770 

43457 

0 

VSL* 

RVQ 
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L ORBITAL  INTEGRATION 


USER' S PAGE  NO.  20 


EO  S3 


0785 

11,3771 

57606 

0 

0 -8D » 2 

0787 

REF 

1 

12,2000 

SETLOC 

0RBITAL1 

0788 

12,3755 

BANK 

078  9 

12,3755 

04631 

1 

3/5 

2DEC 

. 6 8-2 

0789 

12,3756 

2314o 

0 

0790 

12,3757 

14000 

1 

THREE/8 

2DEC 

. 375 

0790 

12,3760 

00000 

1 

0791 

12,3761 

02314 

0 

.3D 

2DEC 

.3  B— 2 

0791 

12,3762 

31463 

1 

0792 

12,3763 

01400 

1 

3/64 

2DEC 

3 B—  6 

079  2 

12,3764 

OCOOO 

1 

0793 

12,3765 

10000 

0 

DPI/4 

2DEC 

. 25 

0793 

12,3766 

00000 

1 

0794 

REF 

2 

LAST 

1197 

12,3765 

DOUARTER 

EQUALS 

DPI/4 

079  5 

REF 

3 

LAST 

1244 

12,3765 

P0S1/4 

EQUALS 

DPI/4 

0796 

12,3767 

03000 

1 

3/32 

2DEC 

3 B-5 

0796 

12,3770 

coooo 

1 

0797 

12, 3771 

36000 

1 

15/16 

2DEC 

15.  B -4 

079  7 

12,3772 

00000 

1 

07982 

05,3776 

BANK 

05 

0 7983 

REF 

3 

LAST 

1 238 

11,2000 

SETLOC 

ORBITAL 

07984 

11,3772 

BANK 

07986 

11,3772 

3G000 

1 

3/4 

2DEC 

3.0  B -2 

07986 

11,3773 

00000 

1 

0799 

11,3774 

22525 

0 

7/12 

2DEC 

. 5833333333 

0799 

11,3775 

12525 

0 

07992 

REF 

2 

LAST 

1244 

12,2000 

SETLOC 

0RBITAL1 

07994 

12,3773 

BANK 

0800 

1 2 , 3 7 73 

22000 

I 

9/16 

2DEC 

9 8-4 

0800 

12,3774 

CCOOO 

1 

08002 

REF 

1 

04,2000 

SETLOC 

0RBITAL3 

08004 

04,3251 

BANK 

080  l 

04,3251 

01200 

l 

5/128 

2DEC 

5 B-7 

0801 

04,3252 

00000 

1 

0802 

REF 

13 

LAST 

1238 

12,2006 

DPZERO 

EQUALS 

ZEROVEC 

0803 

04,3253 

25252 

0 

DP2/3 

2DEC 

. 6666666667 

0803 

04,3254 

25253 

1 

0804 

REF 

3 

LAST 

1239 

04,3253 

2/3 

EQUALS 

DP2/3 

0805 

04,3255 

00C27 

1 

0CT2  7 

OCT 

27 

0806 

13,3745 

RANK 

13 

0807 

REF 

3 

LAST 

1238 

13,2000 

SETLOC 

ORBI TAL2 

0808 

13,3745 

BANK 

R0809 

IT  IS 

VITAL  THAT  THE 

FOLLOWI NG 

CCNST < 

ANTS 

. NOT  BE 

SHUFFLED 

0810 

13,3745 

77764 

1 

DEC 

-11 

081  1 

13,3746 

77775 

1 

DEC 

-2 

0812 

13,3747 

77766 

0 

DEC 

-9 

**************************************** 


GAP: 

4. 

0813 

0814 

0815 

0816 

0817 

0818 

0819 

0820 

082  1 

0822 

0822 

0823 

0823 

0824 

0824 

0825 

0 82  5 

0826 

0826 

0 82  7 

0827 

0828 

0829 

0830 

0831 

0832 

0833 

0834 

0835 

0836 

0837 

0838 
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ORBITAL 


REF  8 


INTEGRATION 


USER'S  PAGE  NO.  21  EO  S3 


13,3750 

77771 

0 

DEC 

-6 

13,3751 

77775 

1 

DEC 

-2 

13,3752 

77775 

1 

DEC 

-2 

13,3753 

00000 

1 

DEC 

0 

13,3754 

77763 

0 

DEC 

-12 

13,3755 

77766 

0 

DEC 

-9 

13,3756 

77773 

1 

DEC 

-4 

13,3757 

77770 

1 

ASCALE 

DEC 

-7 

13,3760 

77771 

0 

DEC 

-6 

13,3761 

24000 

1 

5/8 

2DEC 

5 B-3 

13,3762 

OCOOO 

1 

13,3  763 

74631 

0 

-1/12 

2DEC 

-.1 

13,3764 

63  145 

1 

13,3765 

0C243 

1 

RECR ATIO 

2DEC 

.01 

13,3766 

32703 

1 

13,3767 

03654 

0 

RSPHERE 

2DEC 

64373 .76 

E3 

B-29 

13,3770 

21000 

1 

13,3771 

03654 

0 

RDM 

2DEC 

16093.44 

E3 

B-27 

13,3772 

21000 

1 

13,3773 

04627 

0 

RDE 

2DEC 

80467.20 

E 3 

B-29 

13,3774 

25200 

1 

0000 

RATT 

EQUALS 

OD 

0006 

VATT 

EQUALS 

6D 

0014 

TAT 

EQUALS 

1 2D 

0016 

R ATT  1 

EQUALS 

14D 

0024 

VATT  1 

EQUALS 

2 OD 

0032 

MUt  P ) 

EQUALS 

26D 

0040 

T DEC  1 

EQUALS 

32D 

0016 

URP  V 

EQUALS 

14D 

0022 

COSPHI/2 

EQUALS 

URPV  +4 

0024 

UZ 

EQUALS 

2 OD 

0032 

TVEC 

EQUALS 

26D 

GAP: 
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L 

INFLIGHT 

ALIGNMENT 

ROUTINES 

000  l 

22,3774 

BANK 

22 

0002 

REF 

2 

LAST 

336 

23,2000 

SETLOC 

I NFL  I GHT 

000  3 

23,3232 

BANK 

0004 

REF 

23 

LAST 

972 

E 5 , 1642 

EBANK= 

X SM 

R0005 

CALCGTA 

COMPUTES  THE  GYRO  TORQUE  ANGLES 

REQUIRED 

TO  BRING  THE  STA 

R0007 

THE 

INPUT  IS 

THE  DESIRED  STABLE  MEMBER 

COORDINATES  REFERRED  TO  PR 

R0009 

HALF 

-LNIT  VECTORS  ARE  STORED  AT  XDC, 

YDC,  AND  Z DC . 

R0010 

THE 

OUTPUTS  ARE  THE 

THREE  GYRO 

TORQUING 

ANGLES  Tr 

l BE  APPLIED  TO  Tl 

R0012 

MGC , 

ANO 

OGC 

RESPECT IVELY . 

0013 

REF 

1 

COUNT  * 

$ S / I NFL  T 

0014 

23,3232 

71220 

1 

CALCGTA 

ITA 

□ LOAD 

0015 

REF 

42 

LAST 

1243 

23,3233 

00C51 

0 

S 2 

0016 

REF 

6 

LAST 

972 

23,3234 

02665 

0 

X DC 

0017 

23, 3235 

65325 

0 

POD  L 

POOL 

0018 

PEE 

16 

LAST 

1144 

23,3236 

06505 

1 

H I6ZER0S 

0019 

REF 

7 

LAST 

1246 

23,3237 

02671 

0 

XOC  +4 

0020 

23, 3240 

55476 

1 

DCOMP 

VDEF 

002  1 

23,3241 

77656 

1 

UNIT 

0022 

REF 

1 

23,3242 

14027 

1 

STODL 

Z PR  I ME 

0023 

REF 

2 

LAST 

1246 

23,3243 

0C027 

1 

Z PRIME 

0024 

23,3244 

77742 

0 

SRI 

002  5 

REF 

12 

LAST 

1135 

23,3245 

14  023 

0 

STODL 

SINTH 

0026 

REF 

3 

LAST 

1246 

23,3246 

0 003  3 

1 

Z PR  I ME  +4 

0027 

23,3247 

7 7 742 

0 

SRI 

002  8 

REF 

11 

LAST 

1135 

23,3250 

34021 

0 

STC ALL 

COSTH 

0029 

REF 

4 

LAST 

334 

23,3251 

47303 

1 

ARCTR IG 

0030 

REF 

4 

LAST 

209 

23,3252 

16742 

1 

STODL 

IGC 

0031 

REF 

8 

LAST 

1246 

23,3253 

02667 

1 

XDC  +2 

0032 

23,3254 

77742 

0 

SRI 

0033 

REF 

13 

LAST 

1246 

23,3255 

1 4 C 23 

0 

STODL 

SINTH 

0034 

REF 

4 

LAST 

1246 

23,3256 

0C027 

1 

ZPRIME 

003  5 

23,3257 

65205 

0 

DMP 

POOL 

0036 

REF 

9 

LAST 

1246 

23,3260 

02671 

0 

XDC  +4 

003  7 

REF 

5 

LAST 

1246 

23,3261 

00033 

1 

ZPRIME  +4 

0038 

23,3262 

45205 

1 

DMP 

DSU 

0039 

REF 

10 

LAST 

1246 

23,3263 

02665 

0 

XDC 

0040 

23,3264 

77626 

0 

ST  A DR 

0041 

REF 

12 

LAST 

1246 

23,3265 

43756 

1 

STC ALL 

COSTH 

0042 

REF 

5 

LAST 

1246 

23,3266 

47303 

1 

ARCTR IG 

USER  * S PAGE  NO. 


EO  S3 


PUSHDOWN  00-03, 16D-27D, 34D-37D 
X DC  = (XD1  XD2  XD3) 

YDC  = 1 YD1  YD2  YD 3 ) 

ZDC  = (ZD1  ZD2  ZD3 ) 


ZP  = UNTTI-XD3  0 XD1)  = IZPl  ZP2  ZP 


S INI  I GO  = ZP1 


COS(  l GO  = ZP3 


Y GYRO  TORQUING  ANGLE  FRACTION  OF 
SIN(MGC)  = XD2 

PDOO  = ( ZP 1 ) ( XD3 ) 

MP AC  = ( ZP3 ) C XOl > 

COS(MGC)  = MP AC  - PDOO 


IGC  , 


3) 


REV. 


GAP: 
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004  3 

REF 

3 

LAST 

209 

23, 3267 

26744 

1 

STOVL 

MGC 

0044 

REF 

6 

LAST 

1246 

23,3270 

00027 

1 

Z PR  I ME 

0045 

23,3271 

77641 

1 

DOT 

0046 

REF 

4 

LAST 

928 

23,3272 

02701 

0 

Z DC 

004  7 

REF 

13 

LAST 

1246 

23,3273 

24021 

1 

STOVL 

COST  H 

004  8 

REF 

7 

LAST 

1247 

23,3274 

0C027 

1 

ZPRI ME 

0049 

23,3275 

77641 

1 

DOT 

0050 

REF 

4 

LAST 

928 

23,3276 

02673 

1 

Y DC 

0051 

REF 

14 

LAST 

1246 

23,3277 

34023 

1 

STC ALL 

S INTH 

0052 

REF 

6 

LAST 

1246 

23,3300 

47303 

1 

ARCTR IG 

0053 

REF 

15 

LAST 

969 

23, 3301 

36740 

1 

STC ALL 

OGC 

0054 

REF 

43 

LAST 

1246 

23,3302 

00051 

0 

S 2 

17:11  MAR.  19,1971  SKIPPER  .131  PAGE  1247 
USER ' S PAGE  NO.  2 E5  S3 

Z GYRO  TORQUING  ANGLE  FRACTION  OF  REV. 


COStOGC)  = ZP  . Z DC 


SINIOGCI  = ZP  . Y DC 

X GYRO  TORQUING  ANGLE  FRACTION  OF  REV. 


GAP: 
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L INFLIGHT  ALIGNMENT  ROUTINES  USER'S  PAGE  NO.  3 E5  S3 


R0055 

ARCTR  IG 

COMPUTES  AN 

ANGLE  GIVEN  TEE 

SINE 

AND 

COSINE  OF 

THIS  ANGLE. 

R0056 

THE 

INPUTS  ARE  SIN/4 

AND  COS/4 

STORED  DP 

AT  SINTH  AND 

COSTH. 

R0057 

THE 

OUTPUT  IS 

THE  CALCULATED  ANGLE  BETWEEN  +. 

5 AND  - . 5 

REVOLUTIONS 

AND  STORED  AT  THETA.  THE  OUTPUT  IS  ALSO 

R0059 

AVAILABLE  AT 

MPAC  . 

0060 

23,3303 

51545 

1 

ARCTRIG  DLOAD 

ABS 

PUSHDOWN  16D-21D 

006  1 

REF 

15 

LAST 

1247 

23,3304 

00C23 

0 

SINTH 

0062 

23,3305 

5C025 

0 

DSU 

BMN 

0063 

REF 

1 

23,3306 

07517 

0 

QTSN45 

ABSISIN/4)  - SINI45I/4 

0064 

REF 

1 

23,3307 

47316 

0 

TR  I G 1 

IF  (-45,45)  OR  (135,-135) 

0065 

23,3310 

72545 

0 

DLOAD 

S LI 

(45,135)  OR  (-135,-45) 

0066 

REF 

14 

LAST 

1247 

23,3311 

00021 

1 

COSTH 

0067 

23,3312 

75326 

1 

ACOS 

S IGN 

0068 

REF 

16 

LAST 

1248 

23,3313 

00023 

0 

SINTH 

0069 

REF 

6 

LAST 

1135 

23,3314 

00025 

0 

STORE 

THETA 

X = ARCCOS ( COS ) WITH  S I GN (SIN) 

0070 

23,3315 

77616 

0 

RVQ 

0071 

23,3316 

72545 

0 

TRIG! 

DLOAD 

SL1 

(-45,45)  OR  (135,-135) 

0072 

REF 

17 

LAST 

1243 

23,3317 

00023 

0 

SINTH 

0073 

23,3320 

77  736 

0 

ASIN 

0074 

REF 

7 

LAST 

1248 

23,3321 

14  025 

0 

STOOL 

THETA 

X = ARCS  IN ( S I N ) WITH  SIGN(SIN) 

0075 

REF 

15 

LAST 

1248 

23,3322 

00021 

1 

COSTH 

0076 

23,3323 

77640 

0 

BMN 

0077 

REF 

1 

23,3324 

47327 

1 

TRIG2 

IF  (135,-135) 

0078 

23,3325 

43545 

1 

DLOAD 

RVO 

0079 

REF 

8 

LAST 

1248 

23,3326 

00025 

0 

THETA 

X = ARCSINISIN)  (-45,45) 

0080 

23,3327 

75345 

1 

TRIG2 

DLOAD 

S IGN 

( 135,-135) 

008  1 

REF 

6 

LAST 

1 144 

23,3330 

06503 

1 

HIDPHALF 

0082 

REF 

18 

LAST 

1248 

23,3331 

00023 

0 

SINTH 

0083 

23,3332 

77625 

0 

DSU 

0084 

REF 

9 

LAST 

1248 

23,3333 

0CC25 

0 

THETA 

0085 

REF 

10 

LAST 

1248 

23,3334 

0CC25 

0 

STORE 

THETA 

X = .5  WITH  SIGN(SIN)  - ARCSINISIN) 

0086 

23,3335 

77616 

0 

RVO 

(+)  - (+)  OR  (-)  - 

GAP: 

L 

R0087 

R0088 

R0089 


l 
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17: 11  MAR.  19,1971 
USER'S  PAGE 


SKIPPER 
NO.  4 


.131  PAGE 
F 5 S3 


SMNB,  NBSM,  AND  AXISROT,  WHICH  USED  TO  APPEAR  HERE,  HAVE  BEEN 
COMBINED  IN  A ROUTINE  CALLED  AX*SR*T,  WHICH  APPEARS  AMONG  THE  POWERED 
FLIGHT  SUBROUTINES. 


1249 
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L INFLIGHT  ALIGNMENT  ROUTINES  USER'S  PAGE  NO.  5 E5  S3 

R0090  CALCGA  COMPUTES  THE  CDU  DRIVING  ANGLES  REQUIRED  TO  BRING  THE  STABLE  MEMBER  INTO  THE  DESIRED  ORIENTATION. 

R0092  THE  INPUTS  ARE  1)  THE  NAVIGATION  BASE  COORDINATES  REFERRED  TO  ANY  COORDINATE  SYSTEM.  THE  THREE  HALF-UNIT 

R0094  VECTORS  ARE  STORED  AT  XNS.YNB,  AND  ZNB.  2)  THE  DESIRED  STABLE  MEMBER  COORDINATES  REFFRRED  TO  THE  SAME 
R0096  COORDINATE  SYSTEM  ARE  STORED  AT  XSM,  YSM,  AND  ZSM. 

R0097  THE  OUTPUTS  ARE  THE  THREE  CDU  DRIVING  ANGLES  AND  ARE  STORED  SP  AT  THETAD,  THETAD  +1,  AND  THETAD  +2. 


0099 

23,3336 

77601 

0 

CALCGA 

SETPD 

PUSHDOWN 

00-05, 

16D-21D 

, 34D-37D 

0100 

23,3337 

00001 

0 

0 

0101 

23,3340 

47375 

0 

VLOAD 

VXV 

0102 

REF 

8 

LAST 

966 

23,3341 

02665 

0 

XNB 

XNB  = OGA 

( OUTER 

GIMBAL 

AXIS) 

0103 

REF 

2 

LAST 

127 

23,3342 

02651 

1 

YSM 

YSM  = IGA 

( INNER 

GIMBAL 

AXIS) 

0104 

23,3343 

4 1456 

0 

UNIT 

PUSH 

PDO  = UNIT (OGA  X 

IGA)  = 

MGA 

0105 

23,3344 

44C41 

1 

DOT 

I TA 

010  6 

REF 

6 

LAST 

979 

23,3345 

02701 

0 

ZNB 

0107 

REF 

44 

LAST 

1247 

23,3346 

0C051 

0 

S 2 

0108 

REF 

16 

LAST 

1248 

23,3347 

24C21 

1 

STOVL 

COSTH 

COS(OG)  = 

MG  A . 

ZNB 

0109 

23,3350 

0C001 

0 

0 

0110 

23,3351 

77641 

1 

DOT 

0111 

REF 

6 

LAST 

979 

23,3352 

C2673 

1 . 

YNB 

0112 

REF 

19 

LAST 

1248 

23, 3353 

34023 

1 

STCALL 

S INTH 

SIN(OG)  = 

MGA  . 

YNB 

0113 

REF 

7 

LAST 

1247 

23,3354 

47303 

1 

ARCTR  IG 

0114 

REF 

16 

LAST 

1247 

23, 3355 

26740 

0 

STOVL 

OGC 

0115 

23,3356 

00001 

0 

0 

0116 

23,3357 

50235 

0 

VXV 

DOT 

PROV I S ION 

FOR  MG 

ANGLF  OF  90  DEGREES 

0117 

REF 

9 

LAST 

1250 

23,3  360 

02665 

0 

XNB 

0118 

REF 

3 

LAST 

1250 

23,3361 

02651 

1 

YSM 

0119 

23,3362 

77752 

1 

SL1 

0120 

REF 

17 

LAST 

1250 

23,3363 

24021 

1 

STOVL 

COSTH 

COS( MG ) = 

IGA  . 

(MGA  X OGA) 

0121 

REF 

4 

LAST 

1250 

23,3364 

02651 

1 

YSM 

0122 

23,3365 

77641 

1 

DOT 

0123 

REF 

10 

LAST 

1250 

23,3366 

02665 

0 

XNB 

0124 

REF 

20 

LAST 

1250 

23,3367 

34023 

1 

STCALL 

S INTH 

SIN(MG)  = 

IGA  . 

OGA 

0125 

REF 

0 

LAST 

1250 

23,3370 

47303 

1 

ARCTRIG 

0126 

REF 

4 

LAST 

1247 

23,3371 

02744 

1 

STORE 

MGC 

0127 

23,3372 

45246 

0 

ABS 

DSU 

0128 

REF 

1 

23,3373 

07521 

0 

. 166. . . 

0129 

23,3374 

77644 

1 

BPL 

0130 

REF 

1 

23, 3375 

47414 

0 

GIML0CK1 

IF  ANGLE  GREATER 

THAN  60 

DEGREES 

0131 

23,3376 

50375 

0 

C ALCGA1 

VLOAD 

DOT 

0132 

REF 

2 

LAST 

127 

23,3377 

0265  7 

1 

ZSM 

0133 

23,3400 

00C01 

0 

0 

0134 

REF 

18 

LAST 

1250 

23, 3401 

24021 

1 

STOVL 

COSTH 

COS( I G ) = 

ZSM  . 

MGA 

0135 

REF 

24 

LAST 

1246 

23,3402 

02643 

1 

XSM 

GAP: 
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0136 

23,3403 

4544 1 

1 

DOT 

0137 

REF 

21 

LAST 

1250 

23,3404 

43754 

0 

STCALL 

0138 

REF 

9 

LAST 

1250 

23,3405 

47303 

1 

0139 

REF 

5 

LAST 

1246 

23,3406 

26742 

1 

STOVL 

0140 

REF 

17 

LAST 

1250 

23,3407 

02740 

0 

0141 

23,3410 

77634 

0 

RTB 

01415 

REF 

4 

LAST 

498 

23,3411 

21630 

1 

0143 

REF 

24 

LAST 

966 

23,3412 

34322 

0 

STCALL 

0144 

REF 

45 

LAST 

1250 

23,3413 

0C051 

0 

014  5 

23,3414 

77776 

1 

GIML0CK1  EXIT 

0146 

REF 

42 

LAST 

1241 

23,3415 

0 5571 

1 

TC 

014  7 

23,3416 

00401 

1 

OCT 

0148 

REF 

74 

LAST 

1240 

23,3417 

0 5506 

1 

TC 

0149 

REF 

3 

LAST 

386 

23,3420 

00056 

1 

ADRES 

0150 

REF 

232 

LAST 

1241 

23,3421 

0 6060 

l 

TC 

0151 

0152 


23.3422  77650  1 GOTO 

23.3423  47376  0 


STADR 
S INTH 
ARCTR IG 

IGC 

OGC 

V 1ST02S 
THETAD 
S 2 


ALARM 
0 0401 
UPFLAG 
GLOKF A I L 

INTPRET 


REF 


1 


C ALCGA1 
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USER'S  PAGE  NO.  6 E5  S3 

SIN(IG)  = XSM  . MGA 


GIMBAL  LOCK  HAS  OCCURFD 
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L INFLIGHT  ALIGNMENT  ROUTINES  USER'S  PAGE  NO.  7 E5  S3 

R0153  AXISGEN  COMPUTES  THE  COORDINATES  CF  ONE  COORDINATE  SYSTEM  REFERRED  TO  ANOTHER  COORDINATE  SYSTEM. 

R0155  THE  INPUTS  ARE  1)  THE  STAR1  VECTOR  REFERRED  TO  COORDINATE  SYSTEM  A STORED  AT  STARAD.  2)  THE  STAR2  VECTOR 

RO 15  7 REFERRED  TO  COORDINATE  SYSTEM  A STORED  AT  STARAD  +6.  3)  THE  STAR1  VECTOR  REFERRED  TO  COORDINATE  SYSTFM  B STORED 

R 0 1 5 9 AT  LOCATION  6 OF  THE  VAC  AREA.  A)  THE  STAR2  VECTOR  REFERRED  TO  COORDINATE  SYSTFM  B STORED  AT  LOCATION  12D  OF 

RO 16 1 THE  VAC  AREA. 

RO 16 2 THE  OUTPUT  DEFINES  COORDINATE  SYSTEM  A REFERRED  TO  COORDINATE  SYSTEM  B.  THE  THREE  HALF-UNIT  VECTORS  ARE  STORFD 

RO 164  AT  LOCATIONS  XDC,  XDC  +6,  XDC  +120,  AND  STARAD,  STARAD  +6,  STARAD  +120. 


0165 

23,3424 

66370 

0 

AXISGEN 

AXT,  1 

SSP 

PUSHDOWN  00- 

30D, 34D-37D 

0166 

REF 

26 

LAST 

969 

23,3425 

C2714 

1 

STARAD 

+6 

0167 

REF 

29 

LAST 

1233 

23,3426 

00051 

0 

SI 

0168 

REF 

27 

LAST 

1252 

23,3427 

02700 

1 

STARAD 

—6 

0169 

23 ,3430 

77601 

0 

SETPD 

0170 

23,3431 

00001 

0 

0 

0171 

23,3432 

46773 

0 

AXISGEN1 

VLOAD* 

VXV* 

06D 

UA  = SI 

0172 

REF 

28 

LAST 

1252 

23,3433 

02723 

0 

STARAD 

+120,1 

STARAD 

+00D 

UB  = 

si 

0173 

RFF 

29 

LAST 

1252 

23,3434 

02731 

0 

STARAD 

+ 18D,  1 

0174 

23,3435 

77656 

1 

UNIT 

12D 

VA  = UNIT! SI 

X S 2 ) 

0175 

REF 

30 

LAST 

1252 

23, 3436 

06731 

i 

STORE 

STARAD 

Q 

CO 

+ 

STARAD 

+06D 

VB  = 

UN  I T I S 1 

0176 

23,3437 

77773 

l 

VLOAD* 

0177 

REF 

31 

LAST 

1252 

23,3440 

C2723 

0 

STARAD 

+ 1 2 D , 1 

0178 

23, 3441 

76433 

1 

VXV* 

VSL  1 

0179 

REF 

32 

LAST 

1252 

23,3442 

02731 

0 

STARAD 

+18D, l 

18D 

WA  = UA 

X VA 

0180 

REF 

33 

LAST 

1252 

23,3443 

06737 

1 

STORE 

STARAD 

+240,1 

STARAD 

+ 120 

W8  = 

UB  X VB 

0101 

23,3444 

77700 

0 

T I X , 1 

0182 

REF 

1 

23,3445 

47432 

1 

AXI SGEN1 

0103 

23,3446 

66  160 

0 

AXC  , 1 

SXA,  1 

0184 

23,3447 

00006 

1 

6 

0185 

23,3450 

00036 

1 

3 OD 

0186 

23,3451 

66370 

0 

AXT  , 1 

SSP 

0187 

23,3452 

00022 

1 

18D 

0188 

REF 

30 

LAST 

1252 

23,3453 

00051 

0 

SI 

0189 

23,3454 

00006 

1 

6 

0190 

23,3455 

66374 

1 

AXT,  2 

SSP 

0191 

23,3456 

00006 

1 

6 

019  2 

REF 

46 

LAST 

1251 

23,3457 

00052 

0 

S 2 

0193 

23,3460 

00C02 

0 

2 

0194 

23,3461 

76720 

0 

AXISGEN2 

XCFIX  , 1 

VLOAD* 

019  5 

23,3462 

00036 

1 

3 OD 

X 1 =— 6 

X2  = + 6 

X 1 = — 6 

X 

l\J 

II 

+ 

X 

II 

1 

o 

0 196 

23,3463 

00001 

0 

0,1 

GAP: 

L 

0197 

0198 

0199 

020  0 

0201 

0202 

0203 

020  A 

0205 

0206 

0207 

0208 

0209 

0210 

021  1 

0212 

0213 

021  A 

0215 

0216 

0217 

0218 

0219 

0220 

0221 

0222 
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USER' S PAGE  NO.  8 


23,3464 

62757 

0 

vxsc* 

PDVL* 

REF 

34 

LAST 

1252 

23,3465 

75062 

1 

STARAD 

+ 6,2 

23,3466 

00007 

0 

6, 1 

23,3467 

77757 

1 

vx  sc* 

REF 

35 

LAST 

1253 

23,3470 

75054 

1 

STARAD 

+ 1 2D 

23,3471 

30031 

0 

STOVL* 

24D 

23,3472 

00015 

0 

1 2D , 1 

23,3473 

53357 

0 

VXSC* 

V AD 

REF 

36 

LAST 

1253 

23,3474 

75046 

1 

STARAD 

+ 1 8 D 

23,3475 

76455 

1 

VAO 

VSL1 

23,3476 

00031 

0 

24D 

23,3477 

53520 

0 

XCHX  , 1 

UNIT 

23,3500 

00036 

1 

3 OD 

REF 

11 

LAST 

1246 

23,3501 

06707 

1 

STORE 

XDC  +18D, 1 

23,3502 

77700 

0 

T I X , 1 

REF 

1 

23,3503 

47504 

0 

AXISGEN3 

23,3504 

77704 

1 

AXIS  GEN3  T I X , 2 

REF 

1 

23,3505 

47461 

1 

AXISGFN2 

23 , 3506 

77775 

1 

VLOAD 

REF 

12 

LAST 

1253 

23,3507 

02665 

0 

XDC 

REF 

3 7 

LAST 

1253 

23,3510 

26707 

0 

STOVL 

STARAD 

REF 

5 

LAST 

1247 

23,3511 

02673 

1 

YDC 

REF 

38 

LAST 

1253 

23,3512 

26715 

0 

STOVL 

STARAD 

+ 6 

REF 

5 

LAST 

1247 

23,3513 

02701 

0 

Z DC 

REF 

39 

LAST 

1253 

23,3514 

02723 

0 

STORE 

STARAD 

+ 1 2 D 

23,3515 

77616 

0 

RVQ 

J= (U  A ) ( U R l ) J= ( UA ) ( UB2 ) 


K= I V A ) ( V B 1 ) J = ( V A ) ( V B 2 ) 


L= ( W A ) ( W R 1 ) J=  1 WA ) ( WB2) 


XDC  = L+J  + K YDC  = L+J+K 


E5  S3 

J=(UA) ( UB3 ) 


J= ( VA ) ( VB3  ) 


J= I WA) ( WB3 ) 


ZDC  = L+J+K 
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0281 

0281 

0282 

0282 


23. 3516 

23.3517 

23.3520 

23.3521 


05520  0 QTSN45  2DEC 
26C75  1 

05252  1 .166...  2DEC 

25253  1 


. 1768 

• 166666666  7 


9 


I 
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iff 

> 

I 

I 

» 

1 

I 

%' 

> 

i 

» 

3" 

» 

i 

2" 

» 

► 

I" 

> 
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POWERED  FL  IGHT 

SUBROUTINES 

USER'S  PAGE 

NO.  1 

EO  S3 

000  1 

14,3754 

BANK 

14 

SAME  FBANK  AS  THE 

F INDCDUD 

SUB-PROGRAM 

0002 

REF 

1 

23,2000 

SETLOC 

POWFL ITE 

0003 

23,3522 

BANK 

0004 

REF 

1 

0142 

EBANK= 

DEXDEX 

0005 

REF 

1 

COUNT* 

$ S/POWFL 

ROOD 6 CUUTRIG,  C0UTRIG1,  CDUTRIG2,  AND  CD*TR*GS  ALL  COMPUTE  THE  SINES  AND 

R0007  COSINES  OF  THR.EE  2'S  COMPLEMENT  ANGLES  AND  PLACE  THE  RESULT,  DOUBLE 
R0008  PRECISION,  IN  THE  SAME  ORDER  AS  THE  INPUTS,  AT  SINCDU  AND  COSCDU.  AN 

R0009  ADDITIONAL  OUTPUT  IS  THE  l'S  COMPLEMENT  ANGLES  AT  CDUSPOT.  THESE 

R0010  ROUTINES  GO  OUT  OF  THEIR  WAY  TO  LEAVE  THF  MPAC  AREA  AS  THEY  FIND  IT, 

R0011  EXCEPT  FOR  THE  GENERALLY  UNIMPORTANT  MPAC  +2.  THEY  DIFFER  ONLY  IN 

R0012  WHERE  THEY  GET  THE  ANGLES,  AND  IN  METHOD  OF  CALLING. 

R0013  CDUTRIG  (AND  CCUTRIG1,  WHICH  CAN  BE  CALLED  IN  BASIC)  COMPUTE  THE 

R0014  SINES  AND  COSINES  FR CM  THE  CURRENT  CONTENTS  OF  THE  CDU  REGISTERS. 

R0015  THE  CONTENTS  OF  CDUTEMP,  ETC.,  ARE  NOT  TOUCHED  SO  THAT  THEY  MAY 

R0016  CONTINUE  TO  FORM  A CONSISTENT  SET  WITH  THE  LATEST  PIPA  READINGS. 

R0017  C0UTRIG1  IS  LIKE  CDUTRIG  EXCEPT  THAT  IT  CAN  BE  CALLED  IN  BASIC. 

R0018  CD*TR*GS  FINDS  CDU  VALUES  IN  CDUSPOT  RATHER  THAN  IN  CDUTEMP.  THIS 

R0019  ALLOWS  USERS  TO  MAKE  TRANSFORMATIONS  USING  ARBITRARY  ANGLES,  OR  REAL 
R0020  ANGLES  IN  AN  ORDER  OTHER  THAN  X Y Z.  A CALL  TO  THIS  ROUTINE  IS 

R0021  NECESSARY  IN  PREPARATION  FOR  A CALL  TO  AX*SR*T  IN  EITHER  OF  ITS  TWO 

R0022  MODES  ( SMNB  OR  NBSM) . SINCE  AX*SR*T  EXPECTS  TO  FIND  THE  SINES  AND 
R0023  COSINES  IN  THE  ORDER  Y Z X THE  ANGLES  MUST  HAVE  BEEN  PLACED  IN  CDUSPOT 

R0024  IN  THIS  CRDER . CD*T||GS  NEED  NOT  BE  REPEATED  WHEN  AX*SR*T  IS  CALLED 

R0025  MORE  THAN  ONCE,  PROVIDED  THE  ANGLES  HAVE  NOT  CHANGED.  NOTE  THAT  SINCE 

R0026  IT  CLOBBERS  BUF2  (IN  THE  SINE  AND  COSINE  ROUTINES)  CD*TR*GS  CANNOT  BE 

R0027  CALLED  USING  8ANKCALL . SORR'Y. 


R0028  CD*TR*G  IS  LIKE  CD*TR*GS  EXCEPT  THAT  IT  CAN  BE  CALLED  IN 

R0029  INTERPRETIVE. 


0030 

23,3522 

77776 

1 

C OUT R IG 

EXIT 

0031 

REF  1 

23,3523 

0 3532 

0 

TC 

CDUTR IGS 

003  2 

REF  233 

LAST 

1251 

23,3524 

0 6060 

1 

TC 

I NTPRET 

003  3 

23,3525 

77616 

0 

RVO 

0034 

23,3526 

77776 

1 

CD*TR*G 

EXIT 

0035 

REF  1 

23,3527 

0 3540 

0 

TC 

CD*TR*GS 

0036 

REF  234 

LAST 

1256 

23,3530 

0 6060 

1 

TC 

INTPRET 

0037 

23,3531 

77616 

0 

RVQ 

0038 

REF  16 

LAST 

945 

23,3532 

3 0032 

0 

CDUTR IGS 

CA 

C DUX 

0039 

REF  18 

LAST 

966 

23,3533 

54  771 

1 

TS 

CDUSPOT  +4 

004  0 

REF  10 

LAST 

945 

23,3534 

3 0033 

1 

CA 

CDUY 

004  1 

REF  19 

LAST 

1256 

23,3535 

54  765 

1 

TS 

CDUSPOT 

;ap: 

0042 

004  3 

0044 

0045 

0046 

004  7 

004  8 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

006  1 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 
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ASSEMBLE  REVISION  210  OF 

POWERED  FLIGHT  SUBROUTINES  USER'S  PAGE  NO.  2 EO  S3 


REF 

13 

LAST 

945 

23,3536 

3 0034 

0 

CA 

CDUZ 

REF 

20 

LAST 

1256 

23,3537 

54  767 

0 

TS 

C DUS  POT  +2 

23,3540 

0 0006 

1 

CD*TR*GS 

EXTEND 

REE 

28 

LAST 

919 

23,3541 

22  142 

0 

QXCH 

TEM2 

REF 

25 

LAST 

1075 

23,3542 

3 4742 

1 

CAE 

FOUR 

REF 

18 

LAST 

1045 

23,3543 

7 6263 

1 

TR*GL**P 

MASK 

SIX 

MAKE  IT 

FVEN  AND  SMALLER 

REF 

13 

LAST 

919 

23,3544 

54  143 

0 

TS 

T E M3 

REF 

14 

LAST 

1257 

23,3545 

50  143 

L 

INDEX 

T E M3 

REF 

21 

LAST 

1257 

23, 3546 

3 0765 

0 

CA 

C DUS  POT 

REF 

734 

LAST 

1235 

23,3547 

52  155 

1 

DXCH 

MPAC 

STORING 

2'S  COMP  ANGLF,  LOADING  MPAC 

REF 

56 

LAST 

1071 

23,3550 

52  127 

1 

DXCH 

VBUF  +4 

STORI NG 

MPAC  FOR  LATER  RESTORATION 

REF 

4 

LAST 

. 826 

23,3551 

0 4704 

0 

TC 

USPRCADR 

REF 

15 

LAST 

590 

23,3552 

21606 

1 

CAOR 

CDULOGIC 

23,3553 

0 0006 

1 

EXTEND 

REF 

735 

LAST 

1257 

23,3554 

3 0155 

0 

DC  A 

MPAC 

REF 

15 

LAST 

1257 

23,3555 

50  143 

1 

INDEX 

TEM3 

REF 

22 

LAST 

1257 

23,3556 

52  766 

1 

DXCH 

C DUS  POT 

STORING 

1' S COMPLEMENT  ANGLE 

REF 

5 

LAST 

1257 

23,3557 

C 4704 

0 

TC 

USPRCADR 

REF 

2 

LAST 

1011 

23,3560 

01517 

0 

CAOR 

COSINE 

REF 

736 

LAST 

1257 

23,3561 

52  155 

1 

DXCH 

MPAC 

REF 

16 

LAST 

1257 

23,3562 

50  143 

1 

INDEX 

TEM3 

REF 

4 

LAST 

103 

23,3563 

52  744 

1 

DXCH 

COSCDU 

STORING 

COSINE 

23,3564 

0 0006 

1 

EXTENO 

REF 

17 

LAST 

1257 

23,3565 

5 C 143 

1 

INDEX 

TEM3 

REF 

23 

LAST 

1257 

23,3566 

3 0766 

0 

DC  A 

C DUS  POT 

LOADI NG 

1'S  COMPLEMENT  ANGLE 

REF 

6 

LAST 

1257 

23,3567 

0 4 704 

0 

TC 

USPRCADR 

REF 

2 

LAST 

1011 

23,3570 

01531 

l 

CADR 

SINE  +1 

SINE  +1 

FXPECTS  ARGUMENT  IN  A AND  L 

REF 

57 

LAST 

1257 

23,3571 

52  127 

1 

DXCH 

VBUF  +4 

BR  INGING 

UP  PRIOR  MPAC  TO  BE  RESTORED 

REF 

737 

LAST 

1257 

23,3572 

52  155 

l 

DXCH 

MPAC 

REF 

18 

LAST 

1257 

23,3573 

50  143 

1 

INDEX 

TEM3 

REF 

4 

LAST 

103 

23,3574 

52  736 

1 

DXCH 

S INCDU 

REF 

19 

LAST 

1257 

23,3575 

10  143 

0 

CCS 

TEM3 

REF 

1 

23,3576 

1 3543 

1 

TC  F 

TR*GL«*p 

REF 

29 

LAST 

1257 

23,3577 

0 0142 

0 

TC 

TEM2 
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P0076 

R007  8 
R0080 
R0082 
R0084 
R0086 

00891 

00892 

00893 
0089  A 

00895 

00896 

0089  7 

0090 

0090  1 
00902 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

009  8 

0099 

0100 

010  1 
010  2 

0103 

0104 
010  5 
0106 
010  7 
0108 
0109 

0109  1 

0110 
0110  1 


POWERED  FLIGHT  SUBROUTINES  USER'S  PAGE  NO.  3 EO  S3 


QUICTRIG,  INTENDED  FOR  GUIDANCE  CYCLE  USt  WHERE  TIME  IS  CRITICAL,  IS  A MUCH  FASTER  VERSION  OF  CD*TR*GS. 
OUICTRIG  COMPUTES  AND  STORES  THE  SINES  AND  COSINES  OF  THE  2'S  COMPLEMENT  ANGLES  AT  CDUSPOT,  CDUSPOT  +2, 

AND  CDUSPOT  +4.  UNLIKE  CD*TR*GS,  QUICTRIG  DOES  NOT  LEAVE  THE  l'S  COMPLEMENT  VERSIONS  OF  THE  ANGLES  IN 


CDUSPCT.  QUICTRIG'S  EXECUTION  TIME  IS  4.1  MS;  THIS 
CALLED  FROM  INTERPRETIVE  AS  AN  RTS  OP-CODE,  OR  FROM  BAS 


23,3600 

0 CC04 

0 

Q TPROLOG 

INHINT 

REF 

17 

LAST 

1256 

23,3601 

3 C032 

0 

CA 

REF 

4 

LAST 

908 

23,3602 

54  771 

1 

TS 

REF 

11 

LAST 

1256 

23,3603 

3 CC33 

1 

CA 

REF 

4 

LAST 

908 

23,3604 

54  765 

1 

TS 

REF 

14 

LAST 

1257 

23,3605 

3 0034 

0 

CA 

REF 

4 

LAST 

908 

23,3606 

54  767 

0 

TS 

23,3607 

C 0004 

0 

QUICTRIG 

INHI NT 

23,3610 

0 0CO6 

1 

EXTEND 

REF 

36 

LAST 

904 

23  ,361  1 

22  061 

0 

QXCH 

REF 

26 

LAST 

1257 

23,3612 

3 4742 

1 

CAF 

REF 

19 

LAST 

1257 

23,3613 

7 6263 

1 

+ 4 

MASK 

REF 

IS 

LAST 

902 

23,3614 

54  062 

1 

TS 

REF 

19 

LAST 

1 258 

23,3615 

50  062 

0 

INDEX 

REF 

24 

LAST 

1257 

23,3616 

3 C 765 

0 

CA 

REF 

3 

LAST 

199 

23,3617 

0 5024 

1 

TC 

23,3620 

C 0006 

1 

EXTEND 

REF 

68 

LAST 

1130 

23,3621 

7 4727 

0 

MP 

REF 

20 

LAST 

1258 

23,3622 

50  062 

0 

INDEX 

REF 

5 

LAST 

1257 

23,3623 

52  736 

1 

DXCH 

REF 

21 

LAST 

1258 

23,3624 

50  C62 

0 

INDEX 

REF 

25 

LAST 

1258 

23,3625 

3 C 7 65 

0 

CA 

REF 

3 

LAST 

200 

23,3626 

0 5023 

0 

TC 

23,3627 

0 0006 

1 

EXTEND 

REF 

69 

LAST 

1258 

23,3630 

7 4727 

0 

MP 

RFF 

22 

LAST 

1258 

23,3631 

50  062 

0 

INDEX 

REF 

5 

LAST 

1257 

23,3632 

52  744 

1 

DXCH 

REF 

23 

LAST 

1258 

23,3633 

10  062 

1 

CCS 

REF 

3 

LAST 

909 

23,3634 

1 3613 

1 

TCF 

REF 

37 

LAST 

1258 

23,3635 

3 0061 

0 

CA 

23,3636 

0 0003 

1 

REL  INT 

REF 

366 

LAST 

1217 

23,3637 

0 0000 

1 

TC 

IS  10  TIMES  AS  FAST  AS  CD*TR*GS.  QUICTRIG  MAY  BE 
IC  VIA  BANKCALL  OR  IBNKCALL. 


CDUX 

C DUS  POT  X 
CDUY 

C DUS  POT Y 
CDUZ 

CDUSPOT  Z 

INHINT  SINCE  DAP  USES  THE  SAME  TEMPS 

I TEMPI 

FOUR 

SIX 

TTEMP2 
I TEMP2 
CDUSPOT 
SPSIN 

BIT14  SCALE  DOWN  TO  MATCH  INTERPRETER  OUTPUTS 

I TEMP2 

S INC DU 

I TEMP2 

CDUSPOT 

SPCOS 

B IT14 
I TEMP2 
COSCDU 
I TEMP2 
QUICTRIG  +4 
I TEMPI 

A 
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L 

R011  1 


R0113 

R0114 

R0127 

R012B 

R0129 

R0130 

R0131 
R0132 
R 0 1 3 3 
RO  134 

R013  5 
RO  136 

RO 13  6 1 

01362 

01363 

01364 

0137 

013  8 

0139 

0140 

0141 

014  2 
0143 
014  4 

0145 

0146 

0147 

014  8 

0149 

0150 

0151 

0152 

RO  15  3 
R0154 
RO  15  5 

RO  156 
RO  15  7 


POWERED  FLIGHT  SUBROUTINES  USFR'S  PAGE  NO.  4 EO  S3 

********************************************  *******************  * *********************  ***  ************************ 


THESE  INTERFACE  ROUTINES  MAKE  IT  POSSIBLE  TO  CALL  AX*SR*T,  ETC.,  IN 
INTER PRET I VF.  LATER,  WHERE  POSSIBLE,  THEY  WILL  BE  ELIMINATED. 

THESE  INTERFACE  ROUTINES  ARE  PERMANENT.  ALL  RESTORE  USER'S  EBANK 
SETTING.  ALL  ARE  STRICT  INTERPRETIVE  SUBROUTINES,  CALLED  USING  "CALL", 
RETURNING  VIA  QPRET.  ALL  EXPECT  AND  RETURN  THE  VECTOR  TO  BE  TRANSFOR- 
MED INTERPRETER-STYLE  IN  MPAC;  COMPONENTS  AT  MPAC  , MPAC  + 3 , AND  MPAC  +5. 

TRG*SMNB  AND  TR  G*N8S  M BOTH  EXPECT  TO  SEE  THE  2'S  COMPLEMENT  ANGLES 
AT  CDLSPCT  (ORDER  Y Z X,  AT  CDUSPOT,  CDUSPOT  +2,  AND  CDUSPOT  +4;  ODD 
LOCATIONS  NEED  NOT  BE  ZEROED).  TRG*N  BSM  DOES  THE  NB  TO  SM  TRANSFOR- 
MATION; TRG*SMNB,  VICE  VERSA. 

CDU*NBSM  DOES  ITS  TRANSFORMATION  USING  THE  PRESENT  CONTENTS  OF 
THE  C DU  COUNTERS.  OTHERWISE  IT  IS  LIKE  TRG*NBSM. 

CDU*SMNB  IS  THE  COMPLEMENT  OF  CDU*N3SM. 


23,3640 

77776 

1 

CDU*SMNB 

EXIT 

REF 

2 

LAST 

1256 

23,3641 

0 3532 

0 

TO 

CDUTR IGS 

REF 

1 

23,3642 

1 3645 

1 

TCF 

C*MM*Nl 

23,3643 

77776 

1 

TRG*  SMNB 

EXIT 

REF 

2 

LAST 

1256 

23,3644 

0 3540 

0 

TO 

cd*tr*gs 

REF 

3 

LAST 

1068 

23,3645 

0 7553 

0 

C*MM*N1 

TO 

MPACVBUF 

AX*SR*T  EXPECTS 

VECTOR  IN  VBUF 

REF 

32 

LAST 

1097 

23,3646 

4 6266 

1 

CS 

THREE 

SIGNAL  FOR  SM  TO 

NB 

TRANSFORMATION 

REF 

1 

23,3647 

0 3667 

0 

C*MM*N2 

TO 

AX*SR*T 

REF 

235 

LAST 

1256 

23,3650 

0 6060 

1 

TO 

I NTPRET 

23,3651 

43575 

1 

VLOAD 

R VQ 

REF 

58 

LAST 

1257 

23 , 3o52 

00123 

1 

V BUF 

23,3653 

77776 

1 

CDU*NBSM 

EXIT 

REF 

3 

LAST 

1259 

23,3654 

0 3532 

0 

TO 

CDUTR IGS 

REF 

1 

23,3655 

1 3660 

0 

TCF 

C*MM*N3 

23,3656 

77776 

1 

TRG^NBSM 

EXIT 

REF 

3 

LAST 

1259 

23,3657 

0 3540 

0 

TO 

CD*TR*GS 

REF 

4 

LAST 

1259 

23,3660 

0 7553 

0 

C*MM*N3 

TO 

MPACVBUF 

FOR  AX*SR*T 

REF 

33 

LAST 

1259 

23,3661 

3 6266 

0 

CA 

THREE 

SIGNAL  FOR  NB  TO 

SM 

TRANSFORMATION 

REF 

1 

23,3662 

1 3647 

0 

TCF 

C*MM*N2 

*NBSM*  AND 

*SMNB* 

EXPECT 

TO  SEE 

THE 

SINES  AND 

i COSINES  ( AT  SINCDU 

AND  OOSCDU ) RATHER  THAN  THE  ANGLES  THEMSELVES.  OTHERWISE  THEY  ARE 
LIKE  TRG*NBSM  ANO  TRG*SMNB. 

NOTE  THAT  JUST  AS  CD*TR*GS  NEED  BE  CALLED  ONLY  ONCE  FOR  EACH  SERIES 
OF  TRANSFORMATIONS  USING  THE  SAME  ANGLES,  SO  TOO  ONLY  ONE  OF  TRG*NBSM 
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R 0 1 5 8 

AND  TRGYSMNB  MEED 

BE  CALLED  FOR  EACH 

SERIES. 

FOR  SUBSEQUENT  TRANSFOR 

RO  139 

MAT  I ONS  USE  *NRSM* 

AND  *SMNB*. 

016  0 

23,3663  77776 

1 

* SMN  8* 

EX  I T 

0161 

REF  2 LAST  1239 

23,3664  1 3645 

1 

TCF 

C*MM*N1 

0162 

23,3665  77776 

1 

*NBSM* 

EXIT 

0163 

REF  2 LAST  1259 

23,3666  1 3660 

0 

TCF 

C*MM*N3 

RO  16  4 

AX*SR*T  COMBINES  THE  OLO  SMN8 

AND 

NBSM  . 

FOR  THE 

NB  TO  SM 

R0165  TRANSFORMATION,  ENTER  WITH  +3  IN  A.  FOR  SM  TO  NB,  ENTER  WITH  -3. 

R0166  THE  VECTOR  TO  BE  TRANSFORMED  ARRIVES,  AND  IS  RETURNED,  IN  VBUF. 

R0167  AX*SR*T  EXPECTS  TO  FIND  THE  SINES  AND  COSINES  OF  THE  ANGLES  OF  ROTATION 

R0168  AT  SINCDU  AND  COSCDU,  IN  THE  ORDER  Y Z X.  A CALL  TO  CO*TR*GS,  WITH 

RO 169  THE  2 ' S COMPLEMENT  ANGLES  (ORDER  Y Z X ) AT  CDUSPOT,  WILL  TAKE  CARE  OF 

R0170  THIS.  HERE  IS  A SAMPLE  CALLING  SEQUENCE:- 


R017  1 

TC 

CDUTRIGS 

RO  1 72 

CS 

THREE 

("CA  THREE"  FOR  NBSM) 

RO  17  3 

TC 

A X*  SR*  T 

R 0 1 74  THE  CALL  TO  CD*TR*GS  NEED  NOT  BE  REPEATED,  WHEN  AX*SR*T  IS  CALLED  MORE 

RO 17  5 THAN  ONCE,  UNLESS  THE  ANGLES  HAVE  CHANGED. 

RO 17  6 A X*  SR*  T IS  GUARANTEED  SAFE  ONLY  FOR  VECTORS  OF  MAGNITUDE  LESS  THAN 

R 0 1 7 7 UNITY.  A LOOK  AT  THE  CASE  IN  WHICH  A VECTOR  OF  GREATER  MAGNITUDE 

R0178  HAPPENS  TO  LIE  ALONG  AN  AXIS  OF  THE  SYSTEM  TO  WHICH  IT  IS  TO  BE  TRANS- 

R 0 1 7 9 FORMED  CONVINCES  ONE  THAT  THIS  IS  A RESTRICTION  WHICH  MUST  BE  ACCEPTED 


0180 

REF 

2 

LAST 

1256 

23,3667 

54  142 

1 

AX*SR*T 

TS 

DEXDEX 

WHERF  IT  BECOMES  THE  INDEX 

OF  INDEXES 

013  1 

23,3670 

C 0006 

1 

EXTEND 

0182 

REF 

1 

23,3671 

22  145 

1 

QXCH 

RTNSAVER 

0183 

REF 

3 

LAST 

1260 

23,3672 

10  142 

1 

R*TL**P 

CCS 

DEXDEX 

+ 3 — > 

0 -3  — > 

2 

0184 

REF 

4 

LAST 

1260 

23,3673 

4 C 1 42 

1 

CS 

DEXDEX 

THUS:  +2  — > 

l -2  — > 

1 

0185 

REF 

34 

LAST 

1259 

23,3674 

6 6266 

0 

AD 

THREE 

+ 1 — > 

2 -1  — > 

0 

0186 

23,3675 

C 0006 

1 

EXTEND 

0187 

REF 

367 

LAST 

1258 

23,3676 

5 0000 

1 

INDEX 

A 

0188 

REF 

1 

23,3677 

3 3756 

0 

DC  A 

INDEXI 

0189 

REF 

1 

23,3700 

52  144 

1 

OXCH 

DEXI 

0190 

REF 

1 13 

LAST 

113  1 

23,3701 

3 4744 

1 

CA 

UNE 

0191 

REF 

159 

LAST 

1 113 

23,3702 

54  130 

1 

TS 

BUF 

0192 

23,3703 

0 0006 

1 

EXTEND 

019  3 

REF 

2 

LAST 

100 

23,3704 

5 0143 

1 

INDEX 

DEXI 

0194 

REF 

59 

LAST 

1259 

23,3705 

4 0123 

0 

DCS 

VBUF 

0195 

REF 

1 

23,3706 

1 3710 

0 

TCF 

L OOP  1 

REALLY  BE  A 

SUBTRACT,  AND 

VICE  VERSA 

0196 

REF 

160 

LAST 

1260 

23,3707 

52  131 

0 

LOOP  2 

DXCH 

BUF 

LOADING  VECTOR 

COMPONENT,  STORING  INDEX 
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0197 

REF 

738 

LAST 

1257 

23,3710 

52  155 

1 

LOOP  1 

DXCH 

M P AC 

0198 

REF 

1 

23,3711 

3 3 7 54 

1 

CA 

SINESLOC 

0199 

REF 

3 

LAST 

1260 

23,3712 

6 0143 

1 

AD 

DEX1 

0200 

REF 

81 

LAST 

1074 

23,3713 

54  116 

0 

TS 

ADDRWD 

020  1 

REF 

21 

LAST 

1083 

23,3714 

0 7130 

1 

TC 

DMPSUB 

0202 

REF 

5 

LAST 

1260 

23,3715 

10  142 

1 

CCS 

DEXDEX 

0203 

REF 

739 

LAST 

1261 

23,3716 

52  155 

1 

DXCH 

MPAC 

0204 

23,3717 

1 3722 

1 

TC  F 

+ 3 

0205 

23,3720 

0 0006 

1 

EXTEND 

0206 

REF 

740 

LAST 

126  1 

23,3721 

4 C 1 55 

1 

DCS 

MPAC 

0207 

REF 

1 

23,3722 

52  160 

1 

DXCH 

TERM1TMP 

0208 

REF 

20 

LAST 

1256 

23,3723 

3 6263 

0 

CA 

SIX 

0209 

REF 

82 

LAST 

1261 

23,3724 

26  116 

0 

ADS 

ADDRWD 

0210 

23,3725 

0 0006 

1 

EXTEND 

021  1 

REF 

161 

LAST 

1260 

23,3726 

5 0130 

0 

INDEX 

BUF 

0212 

REF 

4 

LAST 

126  1 

23,3727 

5 0143 

1 

INDEX 

DEX1 

0213 

REF 

60 

LAST 

1260 

23,3730 

3 0123 

1 

DC  A 

V BUF 

0214 

REF 

741 

LAST 

126  1 

23,3731 

52  155 

1 

DXCH 

MPAC 

0215 

REF 

22 

LAST 

1261 

23,3732 

0 7130 

1 

TC 

DMPSUB 

0216 

REF 

742 

LAST 

1261 

23,3733 

52  155 

1 

DXCH 

MPAC 

0217 

REF 

2 

LAST 

126  1 

23,3734 

20  160 

1 

DAS 

TERM1TMP 

0218 

REF 

3 

LAST 

126  1 

23,3735 

52  160 

1 

DXCH 

TERM1TMP 

0219 

23,3736 

20  001 

1 

DDOUBL 

0220 

REF 

162 

LAST 

126  1 

23,3737 

50  130 

0 

INDEX 

BUF 

0221 

REF 

5 

LAST 

126  1 

23,3740 

50  143 

1 

INDEX 

DEX1 

0222 

REF 

61 

LAST 

1261 

23,3741 

52  123 

0 

DXCH 

VBUF 

0223 

REF 

163 

LAST 

126  1 

23,3742 

52  131 

0 

DXCH 

BUF 

0224 

REF 

368 

LAST 

1260 

23,3743 

10  000 

0 

CCS 

A 

0225 

REF 

1 

23,3744 

1 3707 

0 

TC  F 

L00P2 

0226 

23 ,3745 

0 0006 

1 

EXTEND 

022  7 

REF 

6 

LAST 

1261 

23,3746 

26  142 

L 

DIM 

DEXDEX 

0228 

REF 

7 

LAST 

1261 

23,3747 

10  142 

1 

T STPOINT 

CCS 

DEXDEX 

0229 

REF 

1 

23,3750 

1 3672 

0 

TC  F 

r*TL**P 

0230 

REF 

2 

LAST 

1260 

23,3751 

0 C 145 

1 

TC 

RTNSAVER 

023  1 

REF 

2 

LAST 

1261 

23,3752 

1 3672 

0 

TCF 

R*TL**P 

023  2 

REF 

3 

LAST 

126  1 

23,3  753 

0 0145 

1 

TC 

RTNSAVER 

0233 

REF 

6 

LAST 

1258 

23, 3754 

0C735 

0 

SINESLOC 

ADRES 

SINCDU 

0234 

23,3755 

00004 

0 INDEX  I 

DEC 

4 

0235 

23,3756 

00002 

0 

DEC 

2 

0236 

23,3757 

. OOCOO 

1 

DEC 

0 
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MULTIPLY  BY  S INICDUANGLE) 
NBSM  CASE 
SMNB  CASE 


SINCDU  AND  COSCDU  (EACH  6 WORDS)  MUST 
BE  CONSECUTIVE  AND  IN  THAT  ORDER 


MULTIPLY  BY  COSt  CDUANGLE ) 


LOADING  INDEX,  STORING  VECTOR  COMPONENT 
'CAUSE  THAT'S  WHERE  THE  INDEX  NOW  IS 

DECREMENT  MAGNITUDE  PRESERVING  SIGN 
ONLY  THE  BRANCHING  FUNCTION  IS  USED 


FOR  USE  IN  SETTING  ADDRWD 


**  ******** 

********** 

********** 


**  ******** 
*****  sit  **** 
**  ******** 


DON'T 

TOUCH 

THESE 


GAP: 
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L POWERED  FLIGHT  SUBROUTINES  USER'S  PAGE  NO.  7 EO  S3 


023  7 

23,3760 

00C04 

0 

DEC 

4 

****=)!  ****!)<  CONSTANTS  ***$$*$$*$ 

R0238 

£ 5}e  jje  # * jji  Jje# sjt  #={c  £ * # * # aj£  # : 

% **  # # s}=  3}c  ^caCc  * # ❖ * * 

£ % # * * # # £ # £ ^ * $ * * £ * # £ % # * * * # # jje  # 5*e  # # * sjs  * * * * * * * £ £ ^ £ # £ £ # # ^ £ £ # £ 

024  0 

10,2030 

BANK 

10 

0241 

REF 

1 

10,2000 

SET  LGC 

FLESHLOC 

0242 

10,2030 

BANK 

0243 

REF 

1 

COUNT* 

$ $ /POWF  L 

R0244 

RCUTINE  FLESHPOT 

COMPUTES 

THE  BODY- 

■STABLE  MEMBER  TRANSFORMATION 

MATRIX  (COMMONLY  CALLED  XNB)  AND  STORES 

R0246 

I T 

IN  THE  LOCATIONS 

SPEC  I FI  ED 

BY  THE 

ECAOR  ENTERING  IN 

A. 

0247 

10,2030 

77776 

1 

C ALCSMSC 

EX  I T 

024  8 

REF 

255 

LAST 

975 

1 D , 2031 

0 4607 

1 

TC 

BANKCALL 

024  81 

REF 

2 

LAST 

865 

10,2032 

2C036 

0 

CADR 

FLESHPOT  -1 

02482 

REF 

236 

LAST 

1259 

10,2033 

0 6060 

1 

TC 

INTPRET 

02483 

10,2034 

77616 

0 

RVQ 

0249 

REF 

11 

LAST 

1250 

10, 2035 

02664 

1 

XNBEC ADR 

ECADR 

XNB 

0250 

REF 

1 

10,2036 

3 2035 

0 

-1 

CAF 

XNBECADR 

0251 

REF 

30 

LAST 

1257 

10,2037 

54  142 

l 

FLESHPOT 

TS 

TEM2 

0252 

REF 

70 

LAST 

1087 

10,2040 

56  003 

1 

XCH 

EBANK 

0253 

REF 

31 

LAST 

1262 

10,2041 

56  142 

0 

XCH 

TEM2 

0254 

REF 

15 

LAST 

1087 

10,2042 

7 4350 

1 

MASK 

LOWS 

0255 

REF 

3 

LAST 

1097 

10,2043 

6 5000 

1 

AD 

0CT1400 

0256 

REF 

23 

LAST 

1068 

10,2044 

54  141 

1 

TS 

T EMI 

0257 

10,2045 

0 0006 

1 

EXTEND 

0258 

REF 

3 

LAST 

493 

10,2046 

3 C 744 

0 

DC  A 

COSCDUY 

0259 

REF 

743 

LAST 

126  1 

10,2047 

52  155 

1 

DXCH 

MPAC 

0260 

REF 

19 

LAST 

864 

10,2050 

0 7124 

1 

TC 

DMP 

026  1 

REF 

7 

LAST 

914 

10,2051 

00745 

1 

ADRES 

COSCDUZ 

0262 

REF 

744 

LAST 

1262 

10,2052 

52  155 

1 

DXCH 

MPAC 

0263 

10,2053 

20  001 

1 

DDOUBL 

0264 

REF 

24 

LAST 

1262 

10,2054 

50  141 

0 

INDEX 

T EMI 

0265 

10,2055 

52  001 

1 

DXCH 

0 

= COSY  COSZ 

0266 

10,2056 

0 C006 

1 

EXTEND 

0267 

REF 

6 

LAST 

914 

10,2057 

3 0740 

1 

DC  A 

S INCDUZ 

0268 

REF 

25 

LAST 

1262 

10,2060 

50  141 

0 

INDEX 

TEM1 

0269 

10 ,2061 

52  003 

0 

DXCH 

2 

= SINZ 

0270 

10, 2062 

0 0006 

1 

EXTEND 

0271 

REF 

3 

LAST 

49  3 

10,2063 

4 0736 

1 

DCS 

SINCDUY 

0272 

REF 

745 

LAST 

1262 

10,2064 

52  155 

1 

DXCH 

MPAC 

0273 

REF 

23 

LAST 

1261 

10,2065 

0 7 130 

1 

TC 

DMPSUB 

ADDRWD  SET  TO  COSCDUZ 

GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY 

L POWERED  FLIGHT  SUBROUTINES 


0274 

REF 

746 

LAST 

1262 

10,2066 

52  155 

1 

0275 

10,2067 

20  001 

1 

0276 

REF 

26 

LAST 

1262 

10,2070 

50  141 

0 

0277 

10,2071 

52  C 05 

0 

0278 

10,2072 

0 0006 

1 

0279 

REF 

5 

LAST 

914 

10,2073 

4 0742 

1 

0280 

REF 

747 

LAST 

1263 

10,2074 

52  155 

1 

0281 

REF 

24 

LAST 

1262 

10,2075 

0 7130 

1 

0282 

REF 

748 

LAST 

1263 

10,2076 

52  155 

1 

0283 

10,2077 

20  001 

1 

0284 

REF 

745 

LAST 

1263 

10,2100 

52  160 

1 

0285 

10,2101 

0 0006 

1 

0286 

REF 

6 

LAST 

1263 

10,2102 

4 C 742 

1 

0287 

REF 

750 

LAST 

1263 

10,2103 

52  155 

1 

0288 

REF 

20 

LAST 

1262 

10,2104 

0 7124 

1 

0289 

REF 

7 

LAST 

1262 

10,2105 

00737 

1 

0290 

10,2106 

0 0006 

1 

0291 

REF 

75  1 

LAST 

1263 

10,2107 

4 0155 

1 

0292 

REF 

752 

LAST 

1263 

10,2110 

52  162 

0 

0293 

REF 

21 

LAST 

1263 

10,2111 

0 7 124 

1 

0294 

REF 

4 

LAST 

1262 

10,2112 

0C735 

0 

0295 

REF 

753 

LAST 

1263 

10,2113 

52  155 

1 

0296 

10,2114 

20  001 

1 

0297 

10,2115 

20  001 

1 

0298 

REF 

754 

LAST 

1263 

10,2116 

52  162 

0 

0299 

REF 

755 

LAST 

1263 

10,2  117 

52  155 

1 

030  0 

REF 

22 

LAST 

1263 

10,2120 

0 7124 

1 

0301 

REF 

4 

LAST 

1262 

10,2121 

OC  743 

1 

030  2 

REF 

756 

LAST 

1263 

10,2122 

52  155 

1 

0303 

10,2123 

20  001 

1 

0304 

10,2124 

20  001 

1 

0305 

REF 

164 

LAST 

1261 

10,2125 

52  131 

0 

0306 

10,2126 

0 0006 

1 

0307 

REF 

5 

LAST 

1263 

10,2127 

3 0 744 

0 

0308 

REF 

757 

LAST 

1263 

10 ,2  130 

52  155 

1 

0309 

REF 

23 

LAST 

1263 

10,2131 

0 7124 

1 

0310 

REF 

6 

LAST 

914 

10,2132 

0 C 74  7 

0 

0311 

REF 

758 

LAST 

1263 

10,2133 

52  155 

1 

0312 

10,2134 

20  0.01 

1 

0313 

REF 

759 

LAST 

1263 

10,2  135 

20  162 

0 

0314 

10,2136 

0 C006 

1 

0315 

REF 

5 

LAST 

1263 

10,2137 

3 0736 

0 

0316 

REF 

760 

LAST 

1263 

10,2140 

52  155 

1 

031  7 

REF 

25 

LAST 

1263 

10,2141 

0 7130 

1 

0318 

REF 

761 

LAST 

1263 

10,2142 

52  155 

1 

NASA  2021112-161 
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DXCH 

MPAC 

DDOUBL 

INDEX 

T EMI 

DXCH 

4 

= - SINY  COSZ 

EXTEND 

DCS 

S INC DUX 

DXCH 

MPAC 

TC 

DMPSUB 

ADDRWD  SET  TO 

COSCDUZ  STILL 

DXCH 

MPAC 

DDOUBL 

DXCH 

MPAC 

+ 3 

EXTEND 

DCS 

S INCDUX 

DXCH 

MPAC 

TC 

DMP 

ADRES 

S INCDUZ 

EXTEND 

DCS 

MPAC 

DXCH 

MPAC 

+ 5 

TC 

DMP 

ADRES 

S INCDUY 

DXCH 

MPAC 

DDOUBL 

DDOUBL 

DXCH 

MPAC 

+ 5 

DXCH 

MPAC 

TC 

DMP 

ADRES 

COSCDUY 

DXCH 

MPAC 

DDOUBL 

DDOUBL 

DXCH 

BUF 

EXTEND 

DCA 

COSCDUY 

DXCH 

MPAC 

TC 

DMP 

ADRES 

COSCDUX 

DXCH 

MPAC 

DDOUBL 

DAS 

MPAC 

+ 5 

EXTEND 

DCA 

S INCDUY 

DXCH 

MPAC 

TC 

DMPSUB 

ADDRWD  SFT  TO 

COSCDUX 

DXCH 

MPAC 

GAP: 


ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY 


L POWERED  FLIGHT  SUBROUTINES 


0319 

10,2143 

20 

001 

1 

0320 

REF 

165 

LAST 

1263 

10,2144 

20 

131 

0 

0321 

REF 

166 

LAST 

1264 

10,2145 

52 

131 

0 

0322 

REF 

762 

LAST 

1263 

10,2146 

52 

155 

1 

0323 

10,2147 

0 

0006 

1 

0324 

REF 

763 

LAST 

1264 

10,2150 

3 

0155 

0 

0323 

REF 

27 

LAST 

1263 

10,2151 

50 

141 

0 

0326 

10,2152 

52 

015 

1 

032  7 

10,2153 

0 

C C 06 

1 

032  8 

REF 

764 

LAST 

1264 

10,2154 

3 

C 1 60 

0 

0329 

REF 

28 

LAST 

1264 

10,2155 

50 

141 

0 

033  0 

10,2156 

52 

017 

0 

0331 

10,2157 

0 

0006 

1 

0332 

REF 

765 

LAST 

12  64 

10,2160 

3 

0162 

1 

0333 

REF 

29 

LAST 

1264 

10,2161 

50 

141 

0 

0334 

10,2162 

52 

021 

0 

033  5 

REF 

30 

LAST 

1264 

10,2163 

3 

0141 

.0 

0336 

REF 

83 

LAST 

1261 

10,2164 

54 

116 

0 

033  7 

10,2165 

0 

0006 

1 

0338 

REF 

22 

LAST 

867 

10, 2166 

3 

0006 

1 

033  9 

REF 

27 

LAST 

1258 

10,2167 

6 

4742 

1 

0340 

REF 

43 

LAST 

1114 

10,2170 

52 

165 

1 

0341 

REF 

39 

LAST 

1120 

10,2171 

3 

4735 

1 

0342 

REF 

1 1 

LAST 

1001 

10,2172 

54 

023 

l 

0343 

REF 

2 

LAST 

1009 

10,2173 

1 

7501 

0 

034  4 

REF 

766 

LAST 

1264 

10,2  174 

52 

155 

1 

0343 

10,2175 

2C 

001 

1 

0346 

REF 

31 

LAST 

1264 

10,2176 

50 

141 

0 

034  7 

10,2177 

52 

007 

1 

034  8 

REF 

767 

LAST 

1264 

10,2200 

52 

160 

1 

0349 

10,2201 

20 

001 

1 

0350 

REF 

32 

LAST 

1264 

10,2202 

50 

141 

0 

0351 

10,2203 

52 

Cll 

0 

0352 

REF 

768 

LAST 

1264 

10,2204 

52 

162 

0 

0353 

10,2205 

20 

C01 

1 

0354 

REF 

33 

LAST 

1264 

10,2206 

50 

141 

0 

0355 

10,2207 

52 

013 

1 

0356 

REF 

32 

LAST 

1262 

10,2210 

3 

0142 

0 

035  7 

REF 

71 

LAST 

1262 

10,2211 

54 

003 

0 

0358 

REF 

6 

LAST 

981 

10,2212 

1 ■ 

4622 

1 
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DDOUBL 

DAS 

BUF 

DXCH 

BUF 

DXCH 

M P AC 

EXTEND 
DC  A 

M P AC 

INDEX 

TEM1 

DXCH 

14 

= SINY  COSX  + 

SINX 

SINZ 

COSY 

EXTEND 
DC  A 

M P AC 

+ 3 

INDEX 

TEM1 

DXCH 

16 

= - SINX  COSZ 

EXTEND 
DC  A 

MPAC 

+ 5 

INDEX 

TEM1 

DXCH 

20 

= COS  X COSY  - 

SINX 

SINY 

SINZ 

CA 

TEM1 

TS 

ADDRWD 

EXTEND 
DC  A 

Z 

AD 

FOUR 

DXCH 

LOC 

CAF 

B IT8 

TS 

E OOP 

TCP 

VXV 

DXCH 

DDOUBL 

MPAC 

INDEX 

T EMI 

DXCH 

6 

DXCH 

DDOUBL 

MPAC 

+ 3 

INDEX 

TEM1 

DXCH 

10 

DXCH 

MPAC 

+ 5 

DDOUBL 

INDEX 

TEM1 

DXCH 

12 

CA 

TEM2 

TS 

EBANK 

TCF 

SWRETURN 

GAP: 

L 

R0001 
R0003 
ROOP  5 

R0006 
R000  7 
R0009 

ROOL  1 
ROOl  2 
R0014 

ROOl  6 
ROOl  8 
R002  0 
R0021 
R002  3 
R0025 
R0027 
R0029 
R 003  1 
R0032 
R0034 

A0035 

A0036 

A003  7 
0038 

003  9 
A 004  0 

0041 

A0042 

004  3 
A 004  4 

004  5 
A 004  6 

004  7 

0048 

0049 
A0050 

005  1 

0052 

0053 
A 0 05  4 

0055 

0056 
A005  7 

0058 

0059 


ASSEMBLE  REVISION  210  CE  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

TIME  OF  FREE  FALL 

THE  TFF  SUBROUTINES 
KNOW  WHICH  ORIGIN  APPLIES.  I 
APPROPRIATE  SCALE  LEVEL  FOR  ' 

EARTH  ORIGIN 


MOON  ORIGIN 


ALL  LATA 


BE  USED  IN  E 

ITHER 

EARTH  OR 

i THE  USEP  WHO 

KNOWS 

, AND  WHO 

PROPER  PRIMAR 

Y BODY 

• 

POSITION 

-29 

METE 

VELOCITY 

-7 

METE 

l/SQRT (MU  ) 

+ 17 

SORT 

POSITION 

-27 

METE 

VELOCITY 

-5 

METE 

l/SQRT (MU  ) 

+ 14 

SORT 

D FROM  ANY  TF 

F SUBROUTINE  WI 
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USER' S PAGE  NO.  1 EO  S3 

ERED  COORDINATES.  THE  TFF  ROUTINES  NEVER 
. RONE,  VONE  ANO  l/SQRTIMU)  AT  THE 


THE  FREE  FALL  TIME  IS  RtTURNED  IN  CENTISECONDS  AT  (-28) 
LEAVE  IT 


HE  LEVELS  ABOVE.  IN  ALL  CASES, 
WILL  GFNERATE  VONE/RTMU  AND 


PROGRAM  TFF/ CONIC 

IN  VONE'  AT  (+10)  IF  EARTH  ORIGIN  AND  (+9)  IF  MOON  ORIGIN. 

THE  USER  MUST  STORE  THE  STATE  VECTOR  IN  RONE,  VONE  AND  MU  IN  THE  FORM  1/SQRT(MU)  IN  TFF/PTMU 
AT  THE  PROPER  SCALE  BEFORE  CALLING  TFF/CONIC.  SINCE  RONE,  VONE  ARE  IN  THE  F XT  ENDED  VERB  STORAGE  AREA, 

EXTENDED  VERBS,  AND  RELEASE  THEM  WHEN  FINISHED. 

AND  CALC/TPER  ASSUME  THAT  THE  TERMINAL  RADIUS  IS  LESS  THAN  THE  PRESENT 
REMOVED  BY  A 15  W CODING  CHANGE,  BUT  AT  PRESENT  IT  IS  NOT  DEEMED  NFCFSSARY . 


THE  USER  MUST  ALSO  LOCK  JUT  THE 
PROGRAMS  CALC/TFF 

RADIUS.  THIS  RESTRICTION  CAN  BE 


THE  FOLLOWING 


ERASABLE 

QUANTITIES  ARE  USED 

BY  THE  TFF  ROUTINES 

, AND  ARE  LOCATED 

IN  THE  PUSH  LIST. 

BELOW 

E : IS  USED  FOR 

EARTH 

ORIGIN  SCALE 

M:  IS  USED  FOR 

MOON 

ORIGIN  SCALE 

TFFSW 

= 

1 19D 

8 I T 1 

0 = CALCTFF 

1 = 

CALCTPER 

0012 

TFFDELQ 

= 

1 OD 

Q2-Q1 

F: 

(-16)  M: 

(-15) 

0014 

R MAG  1 

= 

1 20 

ABVAL(RN)  M 

E: 

(-29)  M: 

(-27) 

R PER 

= 

14D 

PERIGEE  RADIUS  M 

E: 

(-29)  M: 

(-27) 

0016 

TFFQ1 

= 

1 40 

R.V  / SORT  I MU  F ) 

E: 

(-16)  M: 

(-15) 

S DEL  F / 2 

SIN(THETA)  / 2 

0016 

CDELF/2 

= 

14D 

COS ( T HET  A 1 /2 

RAPO 

= 

16D 

APOGEE  RADIUS  M 

E: 

(-29)  M: 

(-27) 

0020 

NRTERM 

= 

16D 

TERMINAL  RADIUS  M 

E: 

(-29+NR ) 

M: 

(-27+NR) 

0022 

RTERM 

= 

18D 

TERMINAL  RADIUS  M 

E: 

(-29)  M: 

(-27) 

0024 

TFFVSQ 

= 

200 

-(V  SQUARED/MU) 

1/M 

E:  (20) 

M:  (18 

0026 

TFF1/ALF 

= 

220 

SFM I MAJ  AXIS  M 

E:  ( 

-22-2  NA) 

M:  ( 

-20-2  NA) 

0030 

TFFRTALF 

= 

2 4D 

SORT ( ALF A ) E:  (10+NA) 

M:  ( 9 + N 

A) 

0 03  2 

TFFALFA 

= 

26D 

ALFA  1/M  E:  (26-NR) 

M:  (24- 

NR  ) 

0034 

TFFNP 

= 

280 

SEMI  LATUS  RECTUM 

M 

E:  (-38+2 

NR) 

M:  (-36+2 

NR  ) 

0036 

TFF/RTMU 

= 

3 OD 

1/ SOR  T ( MU ) 

E: 

(17)  M: 

( 14) 

0040 

NRMAG 

= 

3 2D 

PRESENT  RADIUS  M 

E: 

(-29+NR) 

M: 

(-27+NR) 

0042 

TFFX 

= 

34D 

0044 

TFFTEM 

= 

36D 

TEMPORARY 

GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-16L 
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L TIME  OF  FREE  FALL 


A0060 

REGISTERS  SI 

A006  1 

I NDE  X 

REGIST 

A 006  2 

L ISHED 

IN  TF 

A 006  3 

SUBROU 

TINES. 

A 006  4 

-NR 

A0065 

-NA 

USER'S  PAGE  NO.  2 EO  S3 

, S2  ARE  UNTOUCHED  BY  AMY  TFF  SUBROUTINE 

ERS  XI,  X 2 ARE  USED  BY  ALL  TFF  SUBROUTINES.  THEY  ARE  ESTA8- 
F/CONIC  AND  MUST  BE  PRESERVED  BETWEEN  CALLS  TO  SUBSEQUENT 

C(X1)  = NORM  COUNT  OF  RM AG 
C ( X 2 ) = NORM  COUNT  OF  SQRT ( ABS ( ALF A ) ) 


SKIPPER  .131  PAGE  1267 


GAP: 


ASSEM8LE  REVISION  210  CF  AGC  PROGRAM  LUMINARY 


BY  NASA  20211L2-161 


17: 11  MAR.  19,1971 


L 


TIME  OF  FREE  FALL 


USER' S PAGE  NO.  3 


EO  S3 


P0066 


R0067 

SUBROUT 

INE 

NAME:  TFFCONIC 

DATE:  01.2 

R0069 

MOD  NO: 

0 

LOG  SECTION: 

R007  1 

MOD  BY: 

RR 

BAIRNSFATHER 

R0072 

MOD  NO: 

1 

MOD 

BY: 

RR  BAIRNSFATHER 

DATE: 

11 

APR 

67 

R0073 

MOD  NC: 

2 

MOD 

BY: 

RR  BAIRNSFATHER 

DATE: 

21 

NOV 

67 

ADD  MOON  MU. 

R0075 

MOD  NO: 

3 

MOD 

BY: 

RR  BAIRNSFATHER 

DATE: 

21 

MAR 

68 

ACCEPT  DIFFER 

R0077 

FUNCTIONAL 

DESCRI PT1CN: 

THIS  SUBROUTINE 

IS  CALLED  TO 

COMPUTE 

THOSE 

CONIC  PARAMET 

R0079 

SUBROUTINES  AND 

TO 

ESTABLISH  THEM  IN 

THE  PUSH  LIST 

AREA. 

THE  PARAMETERS  ARE 

R0081  THE  EQUATIONS  ARE 


R0082  - - - 

R0083  H = RN*VN  ANGULAR  MOMEN 

ROOS5  - - 


R0086 

LCP  = H.H  / MU 

SEMI  LATUS 

RE 

R0088 

R0089 

ALFA  = 2/RN  - VN . VN  / MU 

RECIPROCAL 

SE 

9.67 

TIME  OF  FREE  FALL 


ENT  EARTH/MOON  SCALES 
ERS  REQUIRED  BY  THE  TFF 
LISTED  UNDER  OUTPUT. 

TUM 

CTUM 

MI  MAJ  AXIS,  SIGNED 


R009  1 
R0092 
R0093 
R0094 
R0095 
R0096 
R0098 
R0100 
RO 10  2 
R0104 
R0105 
RO  10  7 
RO  10  9 
R011  1 
R0112 


AND  ALFA  IS  POS  FOR  ELLIPTIC 
0 


ORBITS 

FOR  PARABOLIC  ORBITS 
NFG  FOR  HYPERBOLIC  ORBITS. 

SUBROUT  INE  ALSO  COMPUTES  AND  SAVES  RMAG . 

CALLING  SEQUENCE: 

TFFCONIC  EXPECTS  CALLER  TO  ENTER  WITH  CORRECT  GRAVITATIONAL  CONSTANT  IN  MPAC,  IN  THE  FORM 
1 / SORT ( MU ) . PROGRAM  WILL  SAVE  IN  TFF/RTMU  . THE  SCALE  IS  DETERMINED  BY  WHFTHER  EARTH  OR  MOON 
ORIGIN  IS  USED.  THE  CALLER  MUST  LOCK  OUT  THE  EXTENDED  VERBS  BEFORE  PROVIDING  ST  AT  F VECTOR  IN  RONE, 
VONE  AT  PROPER  SCALE.  THE  EXTENDED  VERBS  MUST  BE  RESTORED  WHFN  THE  CALLER  IS  FINISHED  USING  THE 
TFF  ROUTINES. 

ENTRY  POINT  TFFCONMU  EXPECTS  THAT  TFF/RTMU 
TO  SPECIFY  MU:  DLOAD  CALL 

YOURMU  1/RTMU  E:  117)  M:  (14)  TFFCONMU 

TFFCONIC 

PUSHLOC  = PDL  + O , ARBITRARY  IF  LEQ  LSD 


IS  ALREADY  LOADED. 

IF  MU  ALREADY  STORED: 
E:  117)  M:  (14) 


CALL 


RO  1 1 3 

SUBROUTINES  CALLEO 

: NONE 

R0114 

NORMAL  EXIT  MODES: 

R VQ ' 

R0L1  5 

ALARMS:  NONE 

RO  1 1 6 

OUTPUT:  THE  FOLLOWING  ARE  STORED  IN  THE  PUSH  LIST  AREA. 

R01L7 

RMAG 1 E: 

(-29)  M:(-2 

7)  M RN,  PRESENT  RADIUS  LENGTH. 

RO  11  8 

NRMAG  E: 

(-29+NR) 

M RMAG,  NORMALIZED 

RO  1 1 9 

M : 

(-27+NR) 

RO  12  0 

XI 

-NR,  NORM  COUNT 

RO  12  1 

TFFNP  E: 

(-38+2NR ) 

M LCP,  SEMI  LATUS  RECTUM,  WEIGHTED  BY  NR. 

RO  123 

M: 

(-36+2NR ) 

RO  12  4 

TFF/RTMU 

E: ( 17)  M: 

(14)  1 /SQR  T ! MU ) 

R0123 

TFFVSO  E: 

(20)  M : ( 1 8 

) 1/M  -(V  SQ/MU):  PRESENT  VELOC I T Y , NORML I ZED 

RO  127 

TFFALFA 

E:  (26-NR) 

1/M  ALFA,  WEIGHTED  BY  NR 

RO  12  8 

M:  (24-NR) 

R0129 

TFFRTALF 

E:  (10+NA) 

SQRT(ALFA),  NORMALIZED 

RO  13  0 

M:  (9+NA) 

FOR  VGAMCALC 
FOR  VGAMCALC 


GAP: 


ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 


L TIME  OF  FREE  FALL 


RO  13  l 

X2 

-NA,  NORM  COUNT 

RO  13  2 

TFF1/ALF 

E:  (-22-2NA)  SIGNED 

SEMI  MAJ  AXIS,  WEIGHTED  BY 

R0133 

M:  (-20-2NA) 

RO  13  4 

PUSHLOC 

AT  PDL+O 

RO  13  5 

THE  FOLLOWING  IS  STORED  IN  GENERAL  ERASABLE 

RO  13  6 

VONE'  E 

: ( 1 0 ) M : ! 9 ) V/RT1MU),  NORMALIZED  VELOCITY 

RO  13  7 

ERASABLE 

INITIALIZATION  REQUIRED: 

RO  13  8 

RONE  E 

: (- 29 ) M : ( - 27  ) M 

STATE  VECTOR 

R0140 

VONE  E 

: (-7 ) M : ( — 5 ) M/CS 

STATE  VECTOR 

R0142 

TFF/RTMU 

E : ! 17  ) M : ( 14 ) 

1/RT(CS  SQ/M  CURE) 

RO  144 
RO  145 

DEBR IS: 

QPRET, 

PCL+O  ...  PDL+3 

0146 

33,3575 

BANK 

33 

0147 

REF 

1 

27,2000 

SETLGC 

TOF-FF 

0148 

27,3363 

BANK 

0149 

REF 

2 

LAST 

48  TO 

48: 

2 

2* 

COUNT  * 

$ $ / T F F 

0150 

REF 

4 

LAST 

720 

27,3363 

00037 

0 

TFFCONIC 

STORE 

TFF/RTMU 

0151 

27, 3364 

53575 

0 

TFFCONMU 

VLOAD 

UNIT 

0152 

REF 

15 

LAST 

723 

27,3365 

02200 

l 

RONE 

0153 

27,3366 

77  725 

1 

PDDL 

0154 

27,3367 

00C45 

0 

3 6D 

0155 

REF 

1 

27,3370 

00015 

0 

STORE 

RMAG1 

0156 

27,3371 

77701 

1 

NORM 

0157 

REF 

68 

LAST 

1233 

27,3372 

00047 

1 

XI 

0158 

REF 

1 

27,3373 

24041 

1 

STD  VL 

NRMAG 

0159 

REF 

10 

LAST 

723 

27,3374 

02206 

1 

VONE 

0160 

27,3375 

77761 

1 

VXSC 

0161 

REF 

5 

LAST 

1268 

27,3376 

00C37 

0 

TFF/RTMU 

0162 

REF 

1 

27,3377 

02161 

0 

STORE 

VONE  ' 

0163 

27,3400 

47361 

0 

VXSC 

VXV 

0164 
A 0 1 fa  5 

REF 

2 

LAST 

1268 

27,3401 

0CC41 

1 

NRMAG 

0166 

27,3402 

47572 

1 

VSL  1 

VSQ 

016  7 
AO  16  8 

REF 

1 

27,3403 

14035 

1 

STOOL 

TFFNP 

0169 

REF 

1 

27, 3404 

06475 

1 

TFF1 /4 

0170 

27,3405 

63271 

0 

DDV 

PDVL 

017  1 

REF 

3 

LAST 

1268 

27,3406 

0004 1 

1 

NRMAG 

0172 

REF 

2 

LAST 

1268 

27,340  7 

02161 

0 

VONE  ' 

017  3 

27,3410 

57436 

1 

VSQ 

DCOMP 

0174 
AO  17  5 

REF 

1 

27,3411 

00025 

0 

STORE 

T FF VSQ 

0176 

27,3412 

43257 

0 

SR* 

DAD 
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USER'S  PAGF  NO.  A EO  S3 


LEFT  BY  CALLER 
LEFT  BY  CALLER 
IF  ENTER  VIA  TFFCONMU . 


1/SQRT (MU)  E:  117)  M:  (14) 

COME  HERE  WITH  TFFRTMU  LOAOED. 

SAVED  RN.  M E:  (-29)  M:  (-27) 

UR/2  TO  PDL+O,  +5 

MAGNITUDE 

M E:  1-29)  M : (-27) 


-NR 

RM AG  M E:  (-29+NR)  M:  (-27+NR) 

SAVED  VN.  M/CS  E:  (-7)  M:  (-5) 

E:  (17)  M:  (14) 

VN/SQRT ( MU ) E:  (10)  M:  (9) 


E:  (-29+NR)  M:  (-27+NR) 

UR/2  FROM  PDL 

BEFORE:  E:(-19+NR)  M:(-18+NRI 

LC  P M E: ! -38+2NR ) M:(-36+2NR) 

SAVE  ALSO  FOR  VGAMCALC 

(2/RMAG)  1/M  E : ( 26-NR  ) M.M24-NR) 

RM AG  M E : ( -29+NR ) M:(-27+NR) 

SAVED  VN.  E:  (10)  M:  (9) 

KEEP  MPAC+2  HONEST  FOR  SORT. 

-( V SO/MU)  E: (20)  M: ( 18) 

SAVE  FOR  VGAMCALC 


GAP: 


ASSEMBLE  REVISION  210  CF  ACC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L TIME  OF  FREE  FALL 


0177 

27,3413 

20573 

1 

0 

1 

o 

0178 

27,3414 

77626 

0 

STADR 

AO  17  9 

0180 

REF 

1 

27,3415 

77744 

0 

STORE 

TFFALFA 

0181 

27,3416 

41457 

1 

SL* 

PUSH 

0132 

27, 3417 

20173 

0 

0-6,1 

0183 

27,3420 

7 5446 

0 

ABS 

SORT 

0184 

27,3421 

77701 

1 

NORM 

0185 

REF 

29 

LAST 

1234 

27,3422 

0CC50 

1 

X 2 

0186 

REF 

1 

27,3423 

00031 

0 

STORE 

TFFRTALF 

0187 

27, 3424 

75316 

1 

DSQ 

SIGN 

AO  18  8 

0109 

27,3425 

55254 

1 

BZE 

BDDV 

0190 

27,3426 

57430 

1 

+ 2 

0191 

REF 

2 

LAST 

1268 

27, 3427 

06475 

1 

TFF1/4 

0192 

REF 

1 

27,3430 

00027 

1 

+ 2 

STORE 

TFF1/ALF 

0193 

27,3431 

77616 

0 

DUMPCNIC 

RVO 

A0194 
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USER'S  PAGE  NO.  5 EO  S3 

GET  -VSQ/MU  E : ( 26-NR  ) M:(24-NR) 

2/RMAG  FROM  PQL+2 

ALFA  1/M  E : (26-NR ) M:(24-NR) 

TEMP  SAVE  ALFA  E : ( 20)  M:(18) 

F : I 10  ) M: ( 9) 

X2  = -NA 

SQRT1  ABS ( ALFA ) ) E:(10+NA)  M:|9+NA) 

NOT  SO  ACCURATE,  BUT  OK 

ALFA  FROM  PDL+2  F : (20)  M : { 18) 

SET  1/ALFA  =0,  TO  SHOW  SMALL  ALFA 


1/ALFA  E : ( - 22-2  NA)  MM-20-2  NA) 


39  W 


GAP: 

L 

P0195 
R 0 19  7 
RO 199 
R0200 
R020  1 
R0203 
R0205 
R0207 
R0208 
RQ210 
R021  2 
R0213 
R0214 
R0216 
R0217 
R0218 
R0219 
R022  1 
R0222 
R0223 
R0224 

R022  5 
R0226 
R0227 
R0228 
R022  9 
R023C 
R0232 
R0234 
R0236 
R0237 
R02j8 
R0240 
R0241 
R0243 
R0244 
R0246 
R0248 
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TIME  OF  FREE  FALL 


USER' S PAGE  NO.  6 


EO  S3 


SUBROUTINE  NAME:  TFFRP/RA 


DATE:  01.17.67 


MOD 

NO: 

0 

MOD 

BY: 

RR 

BAIRNSFATHER 

MOD 

NO  : 

I 

MOD 

BY: 

RR 

BAIRNSFATHER 

MOD 

NO: 

2 

MOD 

BY: 

RR 

BAIRNSFATHER 

DATE: 

DATF: 


FUNCTIONAL  DESCRIPTION 
APOGEE  RADIUS 
PROGRAM  GIVES 
‘ RP  = P 
WHERE  2 


USED  BY  CALCTPER  AND  TFF 
FOR  A GENERAL  CONIC. 

PERIGEE  RADIUS  AS  AP 

/(  1 + E) 


LOG  SECTION:  TIME  OF  FREE  FALL 


11  APR  67 

21  MAR  68  ACCEPT  DIFFERENT  EARTH/MOON  SCALES 

ALSO  IMPROVE  ACCURACY  OF  RAPO. 
DISPLAYS  TO  CALCULATE  PERIGEE  RADIUS  AND  ALSO 

OGEE  RADIUS  IS  GIVEN  BY 
RA  = I 1+E)  / ALFA 


E = 1 - P ALFA 

IF  RA  IS  NEGATIVE  OR  SHOWS  DIVIDE  OVERFLOW,  THEN  RA  = POSMAX  BECAUSE 

1.  APOGEE  RADIUS  IS  NOT  MEANINGFUL  FOR  HYPERBOLA 

2.  APOGEE  RADIUS  IS  NOT  DEFINED  FOR  PARABOLA 

3.  APOGEE  RADIUS  EXCEEDS  THE  SCALING  FOR  ELLIPSE. 

THIS  SUBROUTINE  REQUIRES  THE  SIGNED  RECIPROCAL  SEMI  MAJ  AXIS,  ALFA,  AND  SEMI  LATUS  RECTUM  AS  DATA. 
CALLING  SEQUENCE:  CALL 


TFFRP/RA 

PUSHLOC  = PDL+O , ARBITRARY  IF  LEQ  10D 
CIMPAC)  UNSPECIFIED 


SUBROUTINES  CALLED:  NONE 

NORMAL  EXIT  MODE:  RVQ 


IF  ELLIPSE 

, WITHIN 

NORMAL 

SCALING,  RAPO  IS  CORRECT. 

OTHERWISE, 

RAPO  = P 

OSMAX  . 

ALARMS: 

NONE 

OUTPUT  : 

STORED  IN 

PUSH  LIST 

AREA  . 

SCALE  OF  OUTPUT  AGREES  WITH 

DATA  SUPPLIED 

TO 

TFF/CONIC. 

RPER  E : ( 

-29)  M: ( 

-27)  M 

PERIGEE 

RADIUS 

DESTROYED  BY  C ALCTFF / C ALC TP ER , TFFTRIG. 

RAPO  E : ( 

-29)  M:! 

-27  ) M 

APOGEE 

RADIUS 

WILL 

BE 

DESTROYED  BV  C ALT TFF /C ALC TPFR 

PUSHLOC  AT 

PDL  + O 

ERASABLE 

INITIALIZATION  REQUIRED: 

TFF AL  FA  E: 

( 26-NR ) 

M 

1/SEMI  MAJ 

AXIS 

LEFT 

BY 

TFFCONIC 

M: 

( 24- NR ) 

TFFNP  E: 

(-38+2NR ) 

M 

LC  P,  SEMI  LATUS  RECTUM 

LEFT 

BY 

TFFCONIC 

M: 

1 -36+2NR ) 

XI 

-NR 

, NORM  COUNT 

OF  RM AG 

LEFT 

BY 

TFFCONIC 

X2 

-NA 

, NORM  COUNT 

OF  ALFA 

LEFT 

BY 

TFFCONIC 

DEBRIS: 

QPRET  , 

PDL+O  ... 

PDL+1 

GAP: 


ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L TIME  OF  FREE  FALL 

P0249 


0250 

0020 

RAPO 

= 

16D 

0251 

0016 

R PER 

= 

14D 

A0252 

0253 

27,3432 

41345 

0 

TFFRP/RA 

DLOAD 

DMP 

0254 

REF 

2 

LAST 

1269 

27,3433 

00033 

1 

TFFALFA 

0255 

REF 

2 

LAST 

1268 

27,3434 

00035 

1 

TFFNP 

0256 

27,3435 

57457 

0 

SR* 

DCOMP 

0257 

27,3436 

2C571 

0 

0 -8D , 1 

0258 

27,3437 

51415 

0 

DAD 

ABS 

A0259 

0260 

REF 

1 

27,3440 

17770 

1 

DP2I-4) 

026  1 

27,3441 

43366 

0 

SORT 

DAD 

0262 

REF 

3 

LAST 

1269 

27,3442 

06475 

1 

TFF1/4 

0263 

27, 3443 

55206 

0 

PUSH 

BDDV 

0264 

REF 

3 

LAST 

1271 

27,3444 

00035 

1 

TFFNP 

0265 

27,3  44  5 

53657 

0 

SR* 

SR* 

0266 

27 , 3446 

20601 

1 

0 , 1 

0267 

27,3447 

20572 

0 

0-7,1 

0268 

REF 

3 

LAST 

724 

27,3450 

14017 

1 

STODL 

RPER 

A0269 

0270 

27,3451 

4 1C05 

1 

DMP 

BQVB 

0271 

REF 

2 

LAST 

1269 

27,3452 

00027 

1 

TFF1/ALF 

0272 

REF 

5 

LAST 

1231 

27,3453 

57756 

1 

TCDANZIG 

0273 

27,3454 

53654 

0 

BZE 

S L* 

0274 

REF 

1 

27,3455 

57464 

0 

MAXRA 

0275 

27, 3456 

57603 

0 

0-5,2 

0276 

27,3457 

40057 

1 

SL* 

BOV 

0277 

27,3460 

57576 

1 

0,2 

0278 

REF 

2 

LAST 

127  1 

27,3461 

57464 

0 

MAXRA 

0279 

27,3462 

77644 

1 

BPL 

0280 

27,3463 

57466 

1 

+ 3 

028  1 

2 7,3464 

77745 

1 

MAXRA 

DLOAD 

0282 

REF 

3 

LAST 

859 

27,3465 

1 7774 

0 

NEARONE 

0283 

REF 

1 

27,3466 

0C021 

1 

+ 3 

STORE 

RAPO 

0284 

27,3467 

77616 

0 

DUMPRPRA 

RVQ 

A0235 
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APOGEE  RADIUS  M E:(-29>  M : { — 27  > 
PERIGEE  RADIUS  M F:(-29)  Ml  (—27) 


ALFA  1/M  E : ( 26-NR ) M:(24-NR) 

LC  P M E : ( -38+2NR ) M:(-36+2NR) 

ALFA  P 1-12+NR) 

ALFA  P 1-4) 

( DCOM P GIVES  VALID  TP  RESULT  FOR  SORT) 
(ABS  PROTECTS  SORT  IF  F IS  VERY  NEAR  0) 

E SQ  = ( 1-  P ALFA)  (-4) 

( 1+E ) (-2 ) TO  PDL+O 

LCP  M E : ( -38+2NR ) M:(-36+2NP) 

(DOES  SR  THEM  SL  TO  AVOID  OVFL ) 

X 1=-NR 

(EFFECTIVE  SL ) 

PERIGEE  RADIUS  M E:(-29>  M:(-?7) 

( 1+E)  (-2 ) FROM  PDL+O 

E : (-2  2-2NA ) M:(-20-2NA) 

CLEAR  OVFTND,  IF  ON. 

SET  POSMAX,  IF  ALFA=0 
-5+NA 


SET  POSMAX  IF  OVFL. 

CONTINUE  WITH  VALID  RAPO. 

RAPO  CALC  IS  MOT  VALID.  S FT  RAPO  = 
POSMAX  AS  A TAG. 

APOGEE  RADIUS  M E:(~29)  M : ( — 27 ) 


30  W 
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L 

TIME 

OF 

FREE  FALL 

USER’S  PAGE  NO.  8 

EO  S3 

P0286 

SUBROLT 

INE  NAME: 

CALCTPER 

/ 

CALCTFF 

DATE:  01.29.67 

R0288 

MOD 

NO: 

0 

LOG  SECTION:  TIME  OF  FREE  FALL 

R0290 

MOD 

8 Y: 

RR  8AIRNSFATFEP 

R0291 

MOD 

NO: 

1 

MOD 

BY: 

RR 

0AI RNSFATHER 

DATE: 

21  MAR 

67  , 

R0292 

MOD 

NO: 

2 

MOD 

BY: 

RR 

BAIRNSFATHER 

DATE: 

14  APR 

67 

R0293 

MOD 

NO: 

3 

MOD 

BY: 

RR 

BAI RNSFATHER 

DATE: 

8JUL  67 

NEAR  EARTH  MUE  AND  NFG  TFF 

(GONEP AST 

R0295 

MOD 

NO: 

4 

MOD 

BY: 

RR 

BAIRNSFATHER 

DATE: 

21  NOV 

67 

ADD  VARIABLE  MU. 

R0297 

MOD 

NO: 

5 

MOD 

BY: 

RR 

BAIRNSFATHER 

DATE: 

21  MAR 

68 

ACCEPT  DIFFERENT  EARTH/MOON 

SCALES 

R0299 

FUNCTIONAL  DESCRIPTION: 

PROGRAM  CALCULATES 

THE  FREE 

-FALL  TIME  OF 

FLIGHT  FROM  PRESENT  POSITION 

RN  AND 

R030  1 

VELOCITY 

VN  TO 

A RADIUS  LENGTH  SPECIFIED  BY 

RTERM  , 

SUPPLIED  BY  THF  USER.  THE  POSITION 

VECTOR 

R0303 

RN  MAY 

BE  CN  EITHER 

SICE  OF  THE  CONIC: 

, BUT  RTERM  IS 

CONSI DERFD  ON  THE  INBOUND  SIDE. 

R0305  THE  EQUATIONS  ARE 


R0306 

Q2  = -SQRT I RTERM  (2-KT6RM  ALFA)  - LCP) 

( INBOUND 

SIDE)  ) LEQ 

+-  LCE/SQRT1 ALFA) 

R 030  8 

- 

R 030  9 

01  = RN. VN  / SQRT (MU) 

LEQ 

+-  LCE/SQRTt ALFA) 

R031 1 

Z = NUM  / DEN 

LEQ 

+-  l/SQRTIALFA) 

R031  3 

WHERE 

, IF  INBOUND 

R0314 

NUM  = RTERM  - RN 

LEQ 

+-  2 LCE/ALFA 

R0316 

DEN  = Q2+Q1 

LFQ 

+-  2 LCF/SQPT ( ALFA) 

R0318 

AND, 

IF  OUTBOUND 

R 0 3 1 9 

NUM  = Q2-Q1 

LEQ 

+-  2 LCE/SQRTI ALFA) 

R032  l 

DEN  = 2 - ALFA  [RTERM  + RN  ) . 

LEQ 

+-  2 LCE 

R0323 

I F 

ALFA  ll  < 1.0  (FOR  ALL 

CONICS  EXCEPT  ELLIPSES  HAVING 

ABS I DEL  ECC  ANOM)  G 

R0325 

THEN 

X = ALFA  Z Z 

R0326 

AND 

TFF  = (RTERM  +RN  -2  ZZ  T ( X ) ) Z/SQRTIMU) 

R0327 

EXCEPT  IF  ALFA  PNZ,  AND  IF  TFF  NEG, 

R0  32  3 

THEM  TFF  = 2 PI  /(ALFA  SQRT (ALFA) ) + 

TFF 

R0329 

OR  IF 

ALFA  ZZ  GEQ  1.0  [FOR  ELLIPSES  HAVING 

ABS ( DEL  ECC  ANOM ) 

GEQ  90  DEG) 

R0331 

then 

X = 1/ALFA  Z Z 

R0332 

AND 

TFF  = ( P I /SQRT ( ALF A ) -Q2  +Q 1 +2IX  T ( X > 

-1  ) 

/ALFA  Z) 

/ALFA  SQRT (MU) 

R0334 

WHERE 

TlX)  IS  A POLYNCMIAL  APPROXIMATION  TO  THE 

SERIES 

R0335 

2 3 

2 

R0336 

1/3  -X/5  + X /7  -X  /9  ... 

( X 

< 1.0) 

R0337 

CALLING  SEQUENCE:  TIME  TO  RTERM 

TIME  TO 

PERIGEE 

R0339 

CALL 

CALL 

R 0340 

CALCTFF 

CALCTPER 

R0342 

C(MPAC)  = TERMNL  RAD  M 

C (MP4C) 

= PERIGEE  RAD  M 

R0344 

FOR  EITHER,  E:  (-291  M:  (-27) 

R0345 

FOR  EITHER,  PUSHLOC  = PDL+O  , ARBITRARY  IF  LEQ 

8 D 

GAP: 
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L 

R0346 
R0347 
R0348 
R0350 
R0352 
R0353 
R0355 
R0357 
R0358 
R0360 
RO  362 
R0363 
R0365 
R0367 
R0368 
R0369 
R0370 
R0371 
R0372 
R0373 
R0375 
R037  7 
R0379 

R038  1 
R0382 
R0384 
R0386 
R0387 
R0389 
R0391 
R0392 
R0394 
R0395 
R0397 
R0398 
R0400 
R0402 
R0403 
R 0 40  4 
R040  5 
R0406 


TIME  OF  FREE  FALL  USER'S  PAGE  NO.  9 EO  S3 

SUBROUTINES  CALLED:  T(Xt,  VIA  RTB 

NORMAL  EXIT  MODE:  RVQ 

HOWEVER,  PROGRAM  EXITS  WITH  ONE  OF  THE  FOLLOWING  VALUES  FOR  TFF  (-28)  CS  IN  MPAC.  USER  MUST  STORE. 
A.  TFF=  FLIGHT  TIME.  NORMAL  CASE  FOR  POSITIVE  FLIGHT  TIME  LESS  THAN  ONE  ORBITAL  PERIOD. 

6.  (THIS  OPTION  IS  NO  LONGER  USED.) 

C.  TFF  = POSMAX.  THIS  INDICATES  THAT  THF  CONIC  FROM  THE  PRESENT  POSITION  WILL  NOT  RETURN  TO 
THE  SPECIFIED  ALTITUDE.  ALSO  INDICATES  OUTBOUND  PARABOLA  OR  HYPERBOLA. 

OUTPUT:  C(MPAC)  (-28)  CS  TIME  OF  FLIGHT,  OR  TIME  TO  PERIGEE 


TFFX 

(0) 

X, 

LEFT 

FOR 

ENTRY 

DT  SPLAY 

TFF 

ROUTINES 

NRTERM 

E: 

1-29+NR) 

M 

RTERM, 

WEIGHTED  BY  NR 

LEFT 

FOR 

ENTRY 

DISPLAY 

TFF 

ROUTINES 

M:  i 

I-27+NR) 

TFFTEM 

E: 

(-59+2NR) 

LCP 

Z Z SGN(SCELF) 

LEFT 

FOR 

ENTRY 

01  SPLAY 

TFF 

ROUTINES 

M:  i 

[-55+2NR ) 

LCP 

/ALFA 

SGN ( SDELF ) 

LEFT 

FOR 

ENTRY 

DISPLAY 

TFF 

ROUTINES 

NOTE:  TFFTEM  = PDL  36D  AND  WILL  BE  DESTROYED  BY  .:UNIT:. 

RMAG1  E : ( -29 ) M:(-27)  PDL  12  NOT  TOUCHED. 

TFF01  E : (—16)  M : (-15)  PDL  14D 
TFFDELQ  E S l — 16 ) M : (-15)  PDL  10D 
PUSHLOC  AT  PDL+O 

ERASAELE  INITIALIZATION  REQUIRED: 


RONE  E: 

(-29)  M: ( - 

27  ) 

M STATE  VECTOR 

LEFT 

BY 

USER 

VONE'  E: 

(+1.0)  M:  ( +9  ) 

VN/SQRT (MU) 

LEFT 

BY 

TFF/CONIC 

RMAG1  E: 

(-29)  M: ( - 

27) 

PRESENT  RADIUS,  M 

LEFT 

BY 

TFFCONIC 

C(MPAC) E: 

(-29)  M : ( - 

2 7) 

RTERM,  TERMINAL  RADIUS 

LENGTH,  M 

LEFT 

BY 

USER 

THE  FOLLOWING  ARE  STORED  IN  THE  PUSH  LIST  AREA. 

TFF/RTMU 

E: ( 17)  M: 

(14)  1 / SORT ( MU ) 

LEFT 

BY 

TFFCONIC. 

NR MAG  E : 

( -29+NR ) 

M 

RMAG,  NORMALIZED 

LFFT 

BY 

TFFCONIC 

M: 

(-27+NR) 

XI 

-NR,  NORM  COUNT 

LEFT 

BY 

TFFCONIC 

TFFNP  E: 

( -38+2NR ) 

M 

LCP,  SF  MI  LATUS  RECTUM, 

i WEIGHT  NR 

LEFT 

BY 

TFFCONIC 

M : 

(-3&+2NR ) 

TFFALFA 

E:  ( 26-NR ) 

M:  ( 24  — NR  ) 

1/M  ALFA,  WEIGHT  NR 

LEFT 

BY 

TFFCONIC 

TFFRT  ALF 

E: ( 10+NA  ) 
M: ( 9+N A ) 

SQRT(ALFA),  NORMALIZED 

LEFT 

BY 

TFFCONIC 

X2 

-NA,  NORM  COUNT 

LEFT 

BY 

TFFCONIC 

TFF 1/ ALF 

E:  (-22-2NA) 

SIGNED  SEMIMAJ  AXIS,  WEIGHTED  BY  NA 

LEFT 

BY 

TFFCONIC 

M:  (-20-2NA) 


DEBRIS: 

QPRET  , 

PDL  + O 

... 

PCL  + 3 

RTERM 

E:  (-29) 

M: 

( -27) 

RTERM,  TERMINAL  RADIUS  LENGTH 

R APO 

E:  (-29) 

M: 

(-27) 

PDL  160  ( =NRTERM ) 

RPER 

E : (-29) 

M: 

(-27) 

PDL  14D  ( =TFFQ1 ) 

GAP: 


AS-SEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L 

T IME 

OF 

FREE  FALL 

P0407 

040  8 

27,3470 

77614 

1 

CALCTPER 

SETGO 

0409 

REF 

1 

27,3471 

03436 

0 

TFFSW 

0410 

27,3472 

57475 

0 

+ 3 

041  1 

27,3473 

77614 

1 

CALCTFF 

CLEAR 

0412 

REF 

2 

LAST 

1274 

27,3474 

03676 

0 

TFFSW 

0413 

REF 

1 

27,3475 

00C23 

0 

+ 3 

STORE 

RTFRM 

0414 

27,3476 

77657 

0 

SL* 

0415 

27,3477 

20201 

0 

0 » 1 

0416 

REF 

1 

27,3500 

00021 

1 

STORE 

NRTERM 

0417 

27,3501 

64  205 

0 

DMP 

BDSU 

041  8 

REF 

3 

LAST 

1271 

27,3502 

00033 

1 

TFFALFA 

0419 

REF 

4 

LAST 

12  71 

27,3503 

06475 

1 

TFF1/4 

0420 

27,3504 

41206 

0 

PUSH 

DMP 

042  1 

REF 

2 

LAST 

1274 

27,3505 

00021 

1 

NRTERM 

042  2 

27,3506 

53725 

1 

PDDL 

SR* 

A0423 

0424 

REF 

4 

LAST 

1271 

27,3507 

00C35 

1 

TFFNP 

0425 

27,3510 

20573 

1 

0-6,1 

0426 

27,3511 

43276 

0 

DC  0 MR 

DAD 

A0427 

A0428 

0429 

27,3512 

77657 

0 

SR* 

0430 

27,3513 

20601 

1 

0,1 

0431 

27,3514 

71214 

0 

BOFF 

DLOAD 

0432 

REF 

3 

LAST 

1274 

27,3515 

03756 

0 

TFFSW 

0433 

27,3516 

57520 

1 

+ 2 

043  4 

REF 

1 

27,3517 

06505 

1 

TFFZEROS 

043  5 

27,3520 

75440 

0 

+ 2 

BMN 

SQRT 

0436 

REF 

1 

27,3521 

57653 

0 

MAX  FFF1 

A 043  7 

043  8 

27,3522 

41076 

0 

DCOM  P 

BOVB 

043  9 

REF 

6 

LAST 

1271 

27,3523 

57756 

1 

TCDANZIG 

0440 

REF 

1 

27,3524 

24045 

0 

STOVL 

TFFTEM 

0441 

REF 

3 

LAST 

1268 

27,3525 

02161 

0 

VONE  * 

044  2 

27,3526 

52441 

1 

DOT 

SL3 

044  3 

REF 

16 

LAST 

1268 

27,3527 

02200 

1 

RONE 

0 444 

REF 

1 

27,3530 

00017 

1 

STORE 

TFFQ1 

A 044  5 

0446 

27, 3531 

44240 

1 

BMN 

BDSU 

044  7 

REF 

1 

27,3532 

57553 

0 

I NBOUND 

044  0 

REF 

2 

LAST 

1274 

27,3533 

00045 

0 

TFFTEM 

A0449 

OUTBOUND 

Z CALC  CONTINUES 

0450 

REF 

1 

27,3534 

14043 

0 

STOOL 

TFFX 

045  1 

REF 

4 

LAST 

1274 

27,3535 

0C033 

1 

TFFALFA 

045  2 

27,3  536 

44205 

0 

DMP 

BDSU 
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ENTER  WITH  RP ER  IN  MPAC 


ENTER  WITH  RTFRM  IN  MPAC 
E:  (-29)  M:  (-27) 


X 1 =— NR 

RTERM  F:  (-29+NR)  M:  (-27+NR) 

ALFA  E:  (26-NR)  M:  (24-NR) 

(2-ALFA  RTERM)  (-3)  TO  PDL+O 
E:  (-29+NR)  M : (-27+NR) 

RTERM (2-ALFA  RTERM)  TO  PDL+2 
E:  (-32+NR)  M:  (-30+NR) 

LC  P E : ( — 38+  2NR ) M:(-36  + 2NR) 

XI  = -NR 

DUE  TO  SHIFTS,  KEEP  PRECISION  FOR  SORT 
RT  ERM ( 2- ALFA  RTERM)  FROM  PDL  + 2 
E:  (-32+NR)  M:  I-30+NR) 

LEAVE  E:  (-3?)  M:  (-30) 

XI  = -NR 

CHECK  TFF  / T PER  SWITCH 

IF  TFF,  CONTINUE 
IF  TP  ER , SET  Q2  = 0 
E:  (-16)  M:  (-15) 

NO  FREE  FALL  CONIC  TO  RTERM  FROM  HERE 

RESET  PDL , SET  TFF=POSMAX,  AND  EXIT. 

RT  IS  ON  INBOUND  SIDE.  ASSURE  OVFIND=0 
ANY  PORT  IN  A STORM. 

Q2  E:  (-16)  M:  (-15) 

VN/SQRT ( MU ) E:  (10)  M:  (9) 

SAVED  RN.  E:  (-29)  M:  (-27) 

Ql,  SAVE  FOR  GONEPAST  TEST. 

E:  (-16)  M:  (-15) 

USE  ALTERNATE  Z 
02  E:  (-16)  M:  (-15) 


HERE 


NUM=Q2-Q 1 E:  (-16)  M:  (-15) 

ALFA  E:  (26-NR)  M:  (24-NR) 


GAP: 

L 

0453 

A0454 

045  5 

A0456 

045  7 

045  8 

045  9 

0460 

0461 

A0462 

0463 

0464 

0465 

0466 

A0467 

046  8 

A0465 

0470 

0471 

0472 

0473 

0474 

0475 

0476 

0477 

0478 

0479 

A0480 

0481 

0482 

0483 

0434 

048  5 

0486 

A0487 

A048  8 

A0489 

0490 

0491 

0492 

A0493 

0494 

A0495 

A0496 

049  7 
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TIME 

OF 

FREE 

FALL 

USER*  S PAGE  NO.  11  EO  S3 

REF 

4 

LAST 

1268 

27,3537 

0CC41 

1 

NRMAG 

RM AG  E:  (-29+NR)  M:  (-27+NR) 

(2-RTERM  ALFA)  (-3)  FROM  POL+O 

27,3540 

51406 

1 

SAVEDEN 

PUSH 

ABS 

DEN  TO  PDL+O  E:  (-3)  OR  (-16) 

M:  (-3)  OR  (-15) 

27,3541 

40015 

1 

DAD 

BOV 

INDETERMINANCY  TEST 

REF 

1 

27,3542 

17762 

1 

L IMI-22 ) 

=1.0-81-22 ) 

REF 

1 

27,3543 

57564 

1 

TFFXTEST 

GO  IF  DEN  >/=  B ( —22 ) 

27,3544 

65345 

0 

DLOAD 

POOL 

SET  D EN=0  OTHERWISE 

REF 

2 

LAST 

1274 

27,3545 

06505 

1 

TFF ZEROS 

XCH  ZERO  WITH  PDL+O 

27,3546 

57545 

1 

OLOAD 

DCOMP 

REF 

5 

LAST 

1274 

27,3547 

0C033 

1 

TFFALFA 

ALFA  E:  (26-NR)  M:  (24-NR) 

27,3550 

71240 

1 

BMN 

DLOAD 

FOR  TPER:  Z INDET  AT  DELE/2=0  AND  90. 

REF 

1 

27,3551 

57660 

0 

TFFEL1 

ASSUME  90,  AND  LEAVE  0 IN  POL:  l/Z=0/N 

Z INDET.  AT  PERIGEE  FOR  PARAB  OR  HYPER8. 

27,3552 

77616 

0 

DUMP  T FF 1 

RVQ 

RETURN  TFF  =0 

I NBOUND 

Z CALC  CONTINUES 

HERE 

27,3553 

77745 

1 

INBOUND 

DLO  A C 

RESET  PDL+O 

27,3554 

45345 

1 

DLOAD 

DSU 

ALTERNATE  Z CALC 

REF 

2 

LAST 

1274 

27,3555 

00023 

0 

RTERM 

E:  (-29)  M:  (-27) 

REF 

2 

LAST 

1268 

27,3556 

00015 

0 

RMAG1 

E:  (-29)  M:  (-27) 

REF 

2 

LAST 

1274 

2 7,3557 

14043 

0 

STODL 

T FF  X 

NUM=RTERM-RN  E:  (-29)  M:  (-27) 

REF 

3 

LAST 

1274 

27,3560 

00045 

0 

TFFTEM 

02  E:  (-16)  M:  (-15) 

27,3561 

52015 

1 

DAD 

GOTO 

REF 

2 

LAST 

1274 

27,3562 

0C017 

1 

TFFQ1 

01  F:  (-16)  M:  (-15) 

REF 

1 

27,3563 

5 7 540 

1 

SAVEDEN 

DEN  = Q2+Q1  E:  (-16)  M:  (-15) 

27,3564 

65215 

1 

TFFXTEST 

DAD 

P DDL 

( ABS ( DEN ) TO  PDL+2))  E:  (-3)  OR  (-16) 

M:  (-3)  OR  (-15) 

REF 

1 

27,3565 

17764 

1 

DPI-22) 

RESTORE  ABS ( DEN ) TO  MPAC 

REF 

3 

LAST 

1275 

27,3566 

00043 

0 

T FF  X 

NUM  E : (-16)  OR  (-29)  M : ( — 15 ) OR  (-27) 

27,3567 

53605 

1 

DMP 

SR* 

REF 

2 

LAST 

1269 

27,3570 

0 C 03  1 

0 

TFFRTALF 

SORT ( ALFA ) E:  (10+NA)  M:  (9+NA) 

27,3571 

57201 

0 

0 -3,2 

X 2=-N  A 

27,3572 

77671 

1 

DDV 

C(MPAC)  =NUM  SORT ( AL FA)  E:(-3)  OR  (-16) 

M : ( -3 ) OR  (-15) 

ABS(DEN)  FROM  PDL+2  E:(-3)  OR  (-16) 

M : ( -3 ) OR  (-15) 

27,3573 

40145 

0 

DLOAD 

BOV 

(THE  DLOAD  IS  SHARFD  WITH  TFFELL) 

REF 

4 

LAST 

1275 

27,3574 

0C043 

0 

T FF  X 

NUM  E:  (-16)  OR  (-29)  M:(-15)  OR  (-27) 

REF 

1 

27,3575 

57656 

0 

TFFELL 

USE  EQN  FOR  DELE  GEQ  90,  LEO  -90 

OTHERWISE 

, CONTINUE  FOR  GENERAL 

CONIC  FOR  TFF  EQN 

27,3576 

45471 

1 

DDV 

STADR 

DEN  FROM  PDL+O  E:  (-3)  OR  (-16) 

M:  (-3)  OR  (-15) 

REF 

4 

LAST 

1275 

27,3577 

77732 

1 

STORE 

TFFTEM 

Z SAVE  FOR  SIGN  OF  SDELF . 

GAP: 
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A0698 


0699 

27,3600 

63606 

0 

PUSH 

DSQ 

0500 

27,3601 

61206 

0 

PUSH 

DMP 

050  1 

REF 

5 

LAST 

1276 

27, 3602 

00035 

1 

TFFNP 

0502 

27,3603 

75261 

0 

SL 

SIGN 

0503 

27,3606 

20206 

1 

5 

0506 

REF 

5 

LAST 

1275 

2 7, 3605 

00065 

0 

TFFTEM 

0505 

REF 

6 

LAST 

1276 

27,3606 

16065 

0 

STODL 

TFFTEM 

A0506 

A0507 

0508 

27,3607 

61206 

0 

PUSH 

DMP 

0509 

REF 

6 

LAST 

1275 

27,3610 

00033 

1 

TFFALFA 

0510 

27,3611 

77657 

0 

SL* 

0511 

27,3612 

20201 

0 

0,1 

0512 

REF 

5 

LAST 

1275 

27,3613 

00063 

0 

STORE 

TFFX 

0513 

27,3616 

61236 

1 

RTB 

DMP 

0516 

REF 

1 

27,3615 

5 7 760 

0 

T(  X) 

A051  5 

0516 

27,3616 

66302 

0 

SR  2 

BDSU 

051  7 

REF 

3 

LAST 

1275 

27,3617 

00023 

0 

RTERM 

0518 

27,3620 

61215 

1 

DAD 

DMP 

0519 

REF 

3 

LAST 

1275 

27,3621 

00015 

0 

R MAG  1 

A0520 

052  1 

27,3622 

51062 

0 

SR3 

BPL 

0522 

REF 

1 

27 , 3623 

5 7 666 

0 

ENDTFF 

0523 

27 , 3626 

75  206 

1 

PUSH 

SIGN 

0526 

REF 

3 

LAST 

1275 

27,3625 

0CC17 

1 

TFFQ1 

052  5 

27,3626 

71266 

0 

BPL 

DLOAD 

0526 

REF 

1 

27,3627 

57650 

0 

NEGTFF 

0527 

REF  ' 

’ 3 

LAST 

127  1 

27,3630 

00027 

1 

TFF1/ALF 

0528 

27,3631 

51076 

1 

DCOM  P 

BPL 

0529 

REF 

2 

LAST 

1276 

27,3632 

57650 

0 

NEGTFF 

A0530 

CORRECT  FOR 

ORBITAL  PERIOD 

0531 

27,3633 

77676 

0 

DCOM  P 

0532 

27, 3636 

56205 

0 

DMP 

DDV 

0533 

REF 

l 

27,3635 

1 7760 

0 

PI/16 

0536 

REF 

3 

LAST 

1275 

27,3636 

00031 

0 

TFFRT ALF 

0535 

27, 3637 

53657 

0 

SL* 

SL* 

0 53  6 

27,3660 

57602 

1 

0 -6,2 

0537 

27,3661 

57602 

1 

0-6,2 

0538 

27,3662 

63257 

0 

SL* 

DAD 

0539 

27,3663 

57576 

1 

0,2 

A0560 

0561 

27,3666 

60005 

0 

ENDTFF 

DMP 

BOV 

0562 

REF 

6 

LAST 

1268 

27,3665 

00037 

0 

T FF/RTMU 

0563 

REF 

1 

27 , 3666 

5 76  56 

1 

MAXTFF 

0566 

27,3667 

77616 

0 

DUMP  TFF2 

RVQ 
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USER'S  PAGE  NO.  12  EO  S3 

E:  (-13)  M:  (-12) 

Z TO  PDL+O 

Z SQ  TO  POL+2  E:  (-26)  M:  (-26) 

LC  P E:  I -38+2NR ) M:  (-36+2NR) 


AFFIX  SIGN  FOR  SOELF  (ENTRY  DISPLAY) 
P ZSQ  F:  (-59+2NR)  M:  (-55+2NR) 

(ARG  IS  USED  IN  TFF/TRIG) 

ZSQ  FROM  PDL+2  E:  (-26)  M:  (-26) 

RESTORE  PUSH  LOG 

ALFA  E:  ( 26— NR ) M:  ( 26-NR ) 


X 1 =— NR 
X 


POLY 

ZSQ  FROM  PDL+2  E:  (-26)  M:  (-26) 
2 ZSQ  T ( X ) E:  (-29)  M:  (-27) 
RTERM  E:  (-29)  M:  (-27) 

E:  (-29)  M:  (-27) 

Z FROM  PDL+O  E:  (-13)  M:  (-12) 
TFF  SQRT(MU)  E:  (-65)  M:  (-62) 

(NO  PUSH  UP) 

TFF  SORT ( MU ) TO  PDL+O 
Q1  FOR  GONEPAST  TEST 
GONF  PAST  ? 

YES.  TFF  < 0 . 

1ZALFA  E:  (-22-2NA)  M:  (-20-2NA) 

ALFA  > 0 ? 

NO.  TFF  IS  NEGATIVE. 


YES.  CORRECT  FOR  ORB  PERIOD. 

2 PI  (-5) 

SORT ( ALFA)  F:  (10+NA)  M:  (9+NA) 


X2=-N A 


TFF  SQRT(MU)  FROM  PDL  + O F : ( -6  5 ) M t (-62) 
TFF  SQRT(MU)  IN  MPAC  F:(-65)  M:(-62) 

E : (17)  M : (16) 

SET  POSMAX  IF  OVFL. 

RFTURN  TFF  (-28)  CS  IN  MPAC. 


GAP:'  ASSEMBLE  REVISION  210  GF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
L TIME  OF  FREE  FALL 


0545 

27,3650 

77745 

1 

NEGTFF 

DLOAD 

A0546 

0547 

27,3651 

77650 

1 

GOTO 

0548 

REF 

2 

LAST 

1276 

27,3652 

57644 

0 

ENDTFF 

0549 

27,3653 

77745 

1 

MAXTFF1 

DLOAD 

0550 

27,3654 

4 3 545 

1 

MAXTFF 

DLOAD 

RVQ 

0551 

REF 

4 

LAST 

1271 

27,3655 

17774 

0 

NEARONE 

R0552 

TIME 

OF 

FLIGHT  ELLIPSE  WHEN  1 

DEL  (ECCENTRIC  ANOM) 

GFQ  90 

AND  LEQ 

A0553 

AO  554 

0555 

27,3656 

77712 

0 

TFFELL 

SL2 

0556 

27,3657 

41465 

0 

BDD  V 

PUSH 

A0557 

A0558 

0559 

2 7 , 3660 

45345 

1 

TFFEL 1 

DLOAD 

DSU 

056  0 

REF 

7 

LAST 

1276 

27,3661 

OC045 

0 

TFFTEM 

0561 

REF 

4 

LAST 

1276 

27,3662 

00C17 

1 

TFFQ1 

0562 

REF 

1 

27,3663 

14013 

0 

STODL 

TFFDELO 

A0563 

0564 

27,3664 

77626 

0 

STADR 

0565 

REF 

8 

LAST 

1277 

27,3665 

77732 

1 

STORE 

TFFTEM 

0566 

27, 3666 

53605 

1 

DMP 

SL* 

0567 

REF 

4 

LAST 

1276 

27,3667 

00027 

1 

TFF1/ALF 

0568 

27,3670 

57576 

1 

0,2 

0569 

27,3671 

41206 

0 

PUSH 

DMP 

0570 

REF 

9 

LAST 

1277 

27,3672 

00045 

0 

TFFTEM 

0571 

27,3673 

41057 

0 

SL* 

80VB 

0572 

27,3674 

57576 

1 

0,2 

0573 

REF 

15 

LAST 

1216 

27,3675 

31765 

1 

S IGNMPAC 

0574 

REF 

6 

LAST 

1276 

27,3676 

00043 

0 

STORE 

TFFX 

0575 

27,3677 

4 1234 

1 

RTB 

DMP 

0576 

REF 

2 

LAST 

1276 

27,3700 

57740 

0 

T (X) 

0577 

REF 

7 

LAST 

1277 

27,3701 

0C043 

0 

TFFX 

0578 

27,3702 

45242 

1 

SR3 

DSU 

0579 

REF 

1 

27,3703 

17766 

0 

DP21-3) 

0580 

27,3704 

41405 

0 

DMP 

PUSH 

A0581 

A0582 

A0583 

0584 

27,3705 

41345 

0 

DLOAD 

DMP 

0585 

REF 

10 

LAST 

1277 

27,3706 

00045 

0 

TFFTEM 

0586 

REF 

4 

LAST 

1276 

27,3707 

00015 

0 

R MAG  1 

0587 

27,3710 

43312 

0 

SL2 

DAO 

0588 

REF 

5 

LAST 

1277 

27,3711 

00017 

1 

TFFQl 

0589 

REF 

11 

LAST 

1277 

27,3712 

14045 

0 

STODL 

TFFTEM 

0590 

REF 

6 

LAST 

1276 

2Z, 3713 

00035 

1 

TFFNP 

0591 

27,3714 

53605 

1 

DMP 

SL* 
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USER'S  PAGE  NO.  13  EO  S3 

TFF  SQRT(MU)  FROM  PDL+O,  NEGATIVE. 

RESET  POL 


NUM  FROM  TFFX.  E:  (-16)  OR  (-29) 

M:  (-15)  OR  (-27) 

NUM  E : ( -1  A ) OR  (-27)  M : ( — 13)  OR  (-25) 
TEMP  SAVF  D/N  IN  PDL+O 

DEN  FROM  PDL+0  E:(-3)/(  16)  Ms ( —3 ) / l— 1 5 ) 
N/D  TO  PDL+O  E:  ( 11 ) M:  (10) 

(ENTER  WITH  0/N=0  IN  PDL+O) 

02  E:  (-16)  M:  (-15) 

01  E:  (-16)  M:  (-15) 

Q2-Q1  E:  (-16)  M:  (-15) 

D/N  FROM  PDL+O 

D/N  E:  (11)  M:  (10) 

1/ALFA  E:  (-22-2NA)  M:  (-20-2NA) 

1/ALFA  7 E:  (-11-NA)  M:  (-10-NA) 

TO  PDL+O 

1/Z  E:  (11)  M:  (10) 


X 2=  -NA 

IN  CASE  X=  1.0,  CONTINUE 
X= 1/ALFA  ZSQ 

POLY 


2 ( X T(X)-l)  /Z  ALFA  E: 
M: 

1/ALFA  Z FROM  PDL+O  E: 
M: 

GET  SIGN  FOR  SDEIF 

1/Z  E:  (11)  M:  (10) 

E:  (-29)  M:  (-27) 


( — 15— NA ) 
(-1 4-NA) 
(-11-NA) 
(-10-NA) 


01  E:  (-16)  M:  (-15) 

(Ol  + R 1/Z)  =SGN  OF  SDELF  Ft ( - 16 ) M:(-15 
LC  P E:  (-38+2NR ) M:  (-36+2NR) 

CALC  FOR  ARG  FOR  TFF/trig. 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L TIME  OF  FREE  FALL 


0592 

REF 

5 

LAST 

1277 

27, 

0593 

27, 

0594 

27, 

0595 

REF 

12 

LAST 

1277 

27, 

0596 

27, 

0597 

REF 

13 

LAST 

1278 

27, 

A0598 

0599 

REF 

6 

LAST 

1278 

27, 

0600 

27, 

0601 

REF 

2 

LAST 

1276 

27, 

0602 

27, 

A0603 

A 060  4 

0605 

27, 

0606 

27, 

0607 

REF 

2 

LAST 

1277 

27, 

060  8 

27, 

0609 

REF 

7 

LAST 

1278 

27, 

0610 

27, 

061  1 

27, 

0612 

27, 

0613 

REF 

3 

LAST 

1277 

27, 

0C027 

1 

TFF1/ALF 

57575 

1 

1 ,2 

53  765 

0 

SIGN 

SL* 

00045 

0 

TFFTEM 

57576 

1 

0,2 

14C45 

0 

STOOL 

TFFTEM 

00027 

1 

TFF1/ALF 

41366 

1 

SORT 

DMP 

17760 

0 

PI/16 

776  15 

0 

DAD 

45257 

0 

SL* 

DSU 

57577 

0 

0 -1,2 

00013 

0 

TFFDELQ 

53605 

1 

DMP 

SL* 

00027 

1 

TFF1/ALF 

57601 

1 

0 -3,2 

52057 

1 

SL* 

GOTO 

57602 

1 

0-4,2 

57644 

0 

ENDTFF 

3715 

3716 

3717 

3720 

3721 

i 3 722 

3723 

3724 

3 72  5 

3/26 

3727 

3730 

3731 

3 73  2 

3 733 

3 734 

3 73  5 

3 736 

3 737 
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USER'S  PAGE  NO.  14  EO  S3 

1/ALFA  F : I -22-2NA  ) MM-20-2NA) 

X2=— N A 

AFFIX  SIGN  FOR  SDELF 

P/ALFA  F : ( -59+2NR ) M:(-55+2NR> 

(ARG  FOR  USE  IN  TFF/TRIG) 
l/ALFA  F : ( -22-2NA ) M:(-2C-2NA> 

PI  f - 4) 

2 ( XT  I X )- 1 ) / Z ALFA  FROM  PDL  E:(-15-NA) 

M: (-14-NA) 

Q2-Q1  E:  1-16)  M:  (-15) 

l/ALFA  E : (-22-2NA ) M:(-20-2NA) 

TFF  SQRT(MU)  IN  MPAC  E:(-45)  M:(-42) 


GAP: 


ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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L TIME  OF  FREE  FALL 


USER' S PAGE  NO.  15  EO  S3 


P0614  PROGRAM  NAME:  T ( X ) DATE:  01.17.67 

R0616  MOD  NC:  0 LOG  SECTION:  TIMF  OF  FREE  FALL 

R0618  MOD  BY:  RR  SAIRNSFATHER 

R0619  FUNCTIONAL  DESCRIPTION:  THE  POLYNOMIAL  T(X)  IS  USED  BY  TIME  OF  FLIGHT  SUBROUTINES  CALCTFF  AND 

R0621  CALCTPER  TO  APPROXIMATE  THE  SERIES 

R0622  2 3 

R0623  1/3  -X/5  +X  /7  -X  /9  ... 

R0624  WHERE  X = ALFA  Z Z IF  ALFA  Z Z L EQ  1 

R0625  X = l/IALFA  Z Z ) IF  ALFA  Z Z G 1 


R0626  ALSO  X IS  NEG  FOR  HYPERBOLIC  ORBITS 

R0627  X = 0 FOR  PARABOLIC  ORBITS 

R0628  X IS  POSITIVE  FOR  ELLIPTIC  ORBITS 

R0629  FOR  FLIGHT  278,  THE  POLYNOMIAL  T(X)  IS  FITTED  OVER  THE  RANGE  (0,+l)  AND  HAS  A MAXIMUM 

R0631  DEVIATION  FROM  THE  SERIES  OF  2 E-5  (T(X)  IS  A CHEBYCHEV  TYPE  FIT  AND  WAS  OBTAINED  USING 

R0633  MAC  PROGRAM  AUTCURF  IT294RRB  AND  IS  VALID  TO  THE  SAME  TOLERANCE  OVER  THE  RANGE  <-.08,+l).  ) 

R0635  CALLING  SEQUENCE:  RTB 

R0636  T ( X ) 

R0637  C(MPAC)  = X 


R0638  SUBROUTINES  CALLED:  NONE 


R0639 

NORMAL  EXIT  MODE: 

TC  DANZIG 

R0640 

ALARMS: 

NONE 

R0641 

OUTPUT : 

C(MPAC)  = 

T(  X) 

R0642 

ERASABLE 

INITIALIZATION  REQU 

IRED: 

R0643 

C (MPAC ) 

= X 

R0644 

DEBRIS: 

NONE 

064  5 

REF  7 

LAST  1187 

27,3740 

0 7243 

0 

T (X) 

TC 

POLY 

0646 

27,3741 

0C004 

0 

DEC 

4 

N 

064  7 

27,3742 

12525 

0 

2DEC 

3.333333333 

E-l 

0647 

27,3743 

12525 

0 

064  8 

27,3744 

71463 

0 

2DEC* 

-1.999819135 

E-l 

* 

0648 

27,3  745 

57703 

1 

0649 

27,3  746 

04423 

0 

2DEC* 

1 .418143467 

E-l 

* 

0649 

27,3747 

17645 

0 

0650 

27,3  750 

74604 

0 

2DEC  * 

-1.01310997 

E-l 

❖ 

0650 

27,3751 

43667 

1 

065  1 

27,3752 

01626 

1 

2DEC* 

5 .609004936 

E-2 

* 

065  1 

27,3753 

37256 

1 

0652 

27,3754 

77404 

1 

2DEC* 

- 1.536156925 

E— 2 

❖ 

0652 

27,3755 

52071 

0 

065  3 

REF  61 

LAST  1209 

27,3756 

0 6102 

1 

ENDT ( X ) 

TC 

DANZ  IG 

0654 

REF  1 

27,3756 

TCDANZIG 

= 

ENOTl X) 

GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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131 


PAGE  1280 


P0655 

0656 

0657 

0658 

A0659 

A0660 
A066  1 

A0663 

A0664 

A0665 

0666 

0666 

0667 
066  7 

0668 
0668 
0669 

0669 

0670 
0670 

R0671 

0672 

0673 

0673 

0674 

0674 

0675 

0676 


' TIME  OF  FREE  FALL 
TFF  CONSTANTS 

32,3716 

REF  2 LAST  48  27,2000 

27,3757 


USER' S PAGE  NO.  16 


EO  S3 


MUE 

RTMUE 


MUM 


BANK  32 

SETLCC  T0F-FF1 
BANK 

NOTE  _ NOTE  _ ADJUSTED  MUE  FOR  NEAR  EARTH  TRAJ. 

= 3.990  815  471  E10  M CUBE/CS  SQ 

= 1.997702549  E5  B-18*  MODIFIED  EARTH  MU 

NOTE  _ NOTE  _ ADJUSTED  MUE  FOR  NEAR  EARTH  TRAJ. 

= 4.902  778  E8  M CUBE  /CS  SO 


RTMUM 


27,3757 

06220 

1 

PI/16 

2DEC 

27,3760 

37553 

0 

27,3761 

37777 

1 

L IMI-22) 

20CT 

27,3762 

3 7700 

1 

27,3763 

00000 

1 

DP ( - 22 ) 

20CT 

27,3764 

0C100 

0 

27,3765 

04000 

0 

DP2( -3 ) 

2DEC 

27,3766 

00000 

1 

27,3767 

02000 

0 

DP2( -4) 

2DEC 

27,3770 

OCCOO 

1 

RP  AD  1 

2DEC 

6373338  B-29 

M (- 

■29 

) =20  909 

901.57 

REF 

4 

LAST 

720 

23,2335 

RPAD1 

= 

27,3771 

00305 

1 

R300K 

2DEC 

27,3772 

11205 

0 

27,3773 

37777 

1 

NEARONE 

2DEC 

27,3774 

37777 

1 

REF 

17 

LAST 

1246 

23,2504 

TFFZEROS 

EQUALS 

REF 

1 

23,2474 

TFF1 /4 

EQUALS 

2DEC*  2.21422176  E4  B-18* 
3.141592653  B-4 


37777  37700 


00000  00100 


B-3 


1 B-4 


R P AD 

6464778  B-29 


. 999999999 


1.0  - B ( - 22 ) 

B ( —22 ) 

1/16 

(-29)  M 


GAP: 

> L 

R0001 

R0003 

R0005 

R0C07 


ROOD  8 

R0009 
ROOl  1 
R0013 
ROOl  4 
ROOl  6 
R0020 
R0022 
R0024 
R0026 
R0028 
R003? 
R0033 
R0034 
R0036 
R0037 


R0038 

R0039 

R0041 


R0042 

R0043 

R0044 

R0047 

R0048 

R0049 


R 005  0 

R0051 
R 005  3 
R0054 
R0057 
R0059 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

AGC  BLOCK  TWO  SELF-CHECK 

PROGRAM  DESCRIPTION 
PROGRAM  NAME  - SELF-CHECK 
MOD  NO  - 1 

MOD  BY  - GAUNTT 
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USER'S  PAGE  NO.  1 EO  S3 

DATE  20  DECFMBER  1967 

LOG  SECTION  AGC  BLOCK  TWO  SELF-CHECK 

ASSEMBLY  SUBROUTINE  UTILITYM  REV  25 


FUNCTIONAL  DESCRIPTION 

PROGRAM  HAS  TWO  MAIN  PARTS.  THE  FIRST  IS  SELF-CHECK  WHICH  RUNS  AS  A ZERO  PRIORITY  JOB  WITH  NO  CORE  SET,  AS 
PART  OF  THE  BACK-UP  IDLE  LOOP.  THE  SECOND  IS  SHOW-BANKSUM  WHICH  RUNS  AS  A REGULAR  FXECUTIVE  JOB  WITH  ITS  OWN 
STARTING  VERS. 

TEE  PURPOSE  OF  SELF-CHECK  IS  TO  CHECK  OUT  VARIOUS  PARTS  OF  THE  COMPUTER  AS  OUTLINED  BELOW  IN  THE  OPTIONS. 
THE  PURPOSE  OF  SHOW-BANKSUM  IS  TO  DISPLAY  THE  SUM  OF  EACH  BANK  , ONE  AT  A TIME. 

IN  ALL  THERE  ARE  7 POSSIBLE  OPTIONS  IN  THIS  BLOCK  II  VFRSION  OF  SELF-CHECK.  MORE  DETAIL  DESCRIPTION  MAY  BE 
FOUND  IN  E-2065  BLOCK  II  AGC  SELF-CHECK  AND  SHOW  BANKSUM  BY  EDWIN  D.  SMALLY  DECEMBER  1966,  AND  ADDENDA  2 AND  3. 

THE  DIFFERENT  OPTIONS  ARE  CONTROLLED  BY  PUTTING  DIFFERENT  NUMBERS  IN  THE  SMODE  REGISTER  (NOUN  27).  BELOW  IS 
A DESCRIPTION  OF  WHAT  PARTS  OF  THE  COMPUTER  THAT  ARE  CHECKED  BY  THE  OPTIONS,  AND  THE  CORRESPONDING  NUMBER,  IN 
OCTAL,  TO  LOAD  INTO  SMODE. 

+— 4 ERASABLE  MEMORY 

+— 5 FIXED  MEMORY 

+-1,2,3,6,7,10  EVERYTHING  IN  OPTIONS  4 AND  5. 

-0  SAME  AS  +-10  UNTIL  AN  ERROR  IS  DETECTED. 

+0  NO  CHECK,  PUTS  COMPUTER  INTO  THE  BACKUP  IDLE  LOOP. 


WARNINGS 

USE  OF  E MEMORY  RESERVED  FOR  SELF-CHECK  (EVEN  IN  IDLE  LOOP)  AS  TEMP  STORAGE  BY  OTHER  PROGRAMS  IS  DANGFROUS. 
SMODE  SET  GREATER  THAN  OCT  10  PUTS  COMPUTER  INTO  BACKUP  IDLE  LOOP. 


CALLING  SEQUENCE 

TO  CALL  SELF-CHECK  KEY  IN 

V 21  N 27  E OPTION  NUMBER  E 
TO  CALL  SHOW-BANKSUM  KEY  IN 

V 91  E DISPLAYS  FIRST  BANK 

V 33  E PROCEED,  DISPLAYS  NEXT  BANK 


EXIT  MODES,  NORMAL  AND  ALARM 

SELF-CHECK  NORMALLY  CONTINUES  INDEFINITELY  UNLESS  THERE  IS  AN  ERROR  DETECTFD.  IF  SO  + OPTION  NUMBERS  PUT 
COMPUTER  INTO  BACKUP  IDLE  LOOP,  - OPTION  NUMBERS  RESTART  THE  OPTION. 

THE  -0  OPTION  PROCEEDS  FROM  THE  LINE  FOLLOWING  THE  LINE  WHERE  THE  ERROR  WAS  DETECTED. 

SHOW-BANKSUM  PROCEEDS  UNTIL  A TERMINATF  IS  KEYED  IN  (V  34  E).  THE  COMPUTER  IS  PUT  INTO  THE  BACKUP  IDLE  LOOP 


OL  TPl T 


R006C 


GAP: 

L 

R0061 

R0063 

R0065 

R0067 

R0069 

R0073 

R0075 


R007  6 

R0077 

R0078 


R0079 

R 0 0 8 0 
R0082 
R0084 


0085 

0086 

0087 

0088 

0089 

0090 

009  1 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

010  0 
010  1 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
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AGO  BLOCK  TWO  SELF-CHECK 


USFR  ' 


T 

I 

I 

I 

T 


SELF-CHECK  UPON  DETECTING  AN  ERROR  LOADS  THE 
URNS  CN  THE  ALARM  LIGHT.  THE  OPERATOR  MAY  THEN  D 
N FORMAT  I ON  HE  MAY  KEY  IN  V 05  N 08  E,  THE  DSKY  D 
N R2  THE  8BC0N  OF  SELF-CHECK,  AND  IN  R3  THE  TOTA 
N I T I AT  ED  FRESH  START  (SLAP1). 

SHOW-BANKSUM  STARTING  WITH  BANK  0 DISPLAYS  I 
HE  BANK  NUMBER,  AND  IN  R3  THE  BUGGER  WORD. 


SELF-CHECK  ALARM  CONSTANT  (01102 
ISPLAY  THE  THREE  FAILREGS  BY  KEYI 
ISPLAY  IN  RL  WILL  BE  ADDRESS  + 1 OF 
L NUMBER  OF  ERRORS  DETECTED  BY  SE 

N R 1 THE  BANK  SUM  (A  +-NUMBE R EQU 


, 1971 

SKT 

PPER  .131 

PAGE  1282 

S PAGE 

NO. 

2 

EO 

S3 

) INTO 

THE 

FAILREG 

SET 

AND 

NG  IN 

V 05 

N 09  E. 

FOR 

FURTHER 

WHERE 

THE 

ERROR  WAS  DETECTED, 

LF-CHECK  SINCE  THE  LAST  MAN 
AL  TO  THF  RANK  NUMBER),  IN  R2 


ERASABLE  INITIALIZATION  REQUIRED 

ACCOMPLISHED  BY  FRESH  START 
SMODE  SET  TO  +0 


DEBRIS 


ALL 

EXITS  FROM 

THE 

CHECK  OF 

ERASABLE  (ERASCHK)  RESTORE  ORIGINAL 

EXCEPTION  IS 

A RESTART. 

RESTART 

THAT  OCCURS  OURING  ERASCHK  RESTORES  E 

E MEMORY 

, IN 

WHICH 

CASE 

PROGRAM 

THEN  DOES  A FRESH  START 

( DOFSTART ) . 

25 

,3771 

BANK 

25 

REF 

1 

43 

,2000 

SETLOC 

S ELFCHEC 

43  , 

, 3 235 

BANK 

REF 

1 

COUNT  * 

$$/SELF 

REF 

53 

LAST 

1097 

4 744 

SBIT1 

EQUALS 

BIT1 

REF 

47 

LAST 

1097 

4743 

SBIT2 

EQUALS 

B IT2 

REF 

36 

LAST 

1097 

4742 

SBIT3 

EQUALS 

BIT3 

REF 

47 

LAST 

1097 

4741 

SBIT4 

EQUALS 

B I T4 

REF 

39 

LAST 

1012 

4740 

SBIT5 

EQUALS 

B IT5 

REF 

43 

LAST 

1054 

4737 

SBIT6 

EQUALS 

B I To 

REF 

34 

LAST 

1094 

4736 

SBIT7 

EQUALS 

B IT7 

REF 

40 

LAST 

1264 

4735 

S B I T 8 

EQUALS 

B IT 8 

REF 

24 

LAST 

981 

4734 

SBIT9 

EQUALS 

BIT9 

REF 

35 

LAST 

1097 

4733 

SBIT 10 

EQUALS 

BIT10 

REF 

27 

LAST 

1097 

4732 

SBIT11 

EQUALS 

BIT11 

REF 

30 

LAST 

1097 

4731 

SBIT 12 

EQUALS 

8 I T 1 2 

REF 

39 

LAST 

1097 

4730 

S B I T 1 3 

EQUALS 

BIT13 

REF 

70 

LAST 

1258 

4727 

SBIT  14 

EQUALS 

8 I T 1 4 

REF 

43 

LAST 

1097 

4726 

S BIT  1 5 

EQUALS 

BIT15 

REF 

234 

LAST 

1223 

4746 

S+ZERO 

EQUALS 

ZERO 

REF 

54 

LAST 

1282 

4 744 

S + l 

EQUALS 

B IT1 

REF 

48 

LAST 

1232 

4743 

S+2 

EQUALS 

B IT2 

REF 

35 

LAST 

1260 

6266 

S + 3 

EQUALS 

THREE 

REF 

23 

LAST 

1264 

4742 

S+4 

EQUALS 

FOUR 

REF 

18 

LAST 

1032 

4 747 

S + 5 

EQUALS 

F IVE 

REF 

21 

LAST 

1261 

6263 

S+6 

EQUALS 

SIX 

CONTENTS  TO 
RASABLE,  UNL 


R 

E 


EG  T STERS 
SS  THERE 


UNDER  CHECK. 

IS  EVIDENCE  TO  DOUBT 
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0111 

■ REF 

20 

LAST 

1097 

4750 

0112 

REF 

16 

LAST 

1262 

4350 

0113 

REF 

3 

LAST 

316 

4762 

0114 

43,3235 

0115 

43,3236 

0116 

REF 

9 

LAST 

1262 

5000 

0117 

43,3237 

0118 

43,3240 

0119 

REF 

20 

LAST 

1022 

5003 

0120 

REF 

3 

LAST 

904 

5011 

0121 

REF 

7 

LAST 

1097 

4341 

0122 

43 ,3241 

0123 

43,3242 

0124 

43,3243 

012  b 

43,3244 

0126 

43,3245 

0127 

43,3246 

0128 

REF 

2 

LAST 

244 

5652 

0129 

REF 

2 

LAST 

1006 

6133 

0130 

REF 

4 

LAST 

893 

7766 

0131 

REF 

7 

LAST 

110  1 

7767 

0132 

REF 

13 

LAST 

1097 

mo 

0133 

REF 

25 

LAST 

995 

4 745 

0134 

REF 

46 

LAST 

1130 

E3 , 1400 

0135 

REF 

3 

LAST 

303 

43,3247 

0136 

REF 

4 

LAST 

1114 

43,3250 

A0137 

AO  13  8 

AO  139 

0140 

REF 

6 

LAST 

226 

43,3251 

0141 

43,3252 

0142 

REF 

1 

43,3253 

0143 

43,3254 

0144 

REF 

3 

LAST 

226 

43,3255 

0145 

REF 

3 

LAST 

226 

43,3256 

0146 

43,3257 

0147 

REF 

2 

LAST 

302 

43,3260 

0148 

REF 

7 

LAST 

1283 

43,3261 

0149 

43,3262 

0150 

REF 

322 

LAST 

1210 

43,3263 

015  1 

REF 

3 

LAST 

486 

43,3264 

0152 

REF 

7 

LAST 

317 

43,3265 

0153 

REF 

3 

LAST 

222 

43,3266 

0154 

REF 

1 

43,3267 

0155 

43,3270 

0156 

REF 

5 

LAST 

317 

43,3271 

0157 

REF 

3 

LAST 

128  3 

43,3272 

0158 

REF 

6 

LAST 

1283 

43,3273 

S + 7 

EQUALS 

SEVEN 

S8BITS 

FQUALS 

L0W8 

CNTRCON 

= 

0CT50 

C0C61 

0 

ERASCQN1 

OCTAL 

0006  1 

C 1 373 

1 

E RASC0N2 

OCTAL 

01373 

ERASCQN6 

= 

OCT  1400 

01461 

0 

ERASC0N3 

OCTAL 

01461 

01773 

0 

ERASC0N4 

OCTAL 

01773 

S 10BITS 

EQUALS 

LOWIO 

SBNK03 

EQUALS 

PRI06 

-MAX ADRS 

= 

H I 5 

0CC60 

1 

SIXTY 

OCTAL 

00060 

6 C 0 1 7 

1 

SUPRCON 

OCTAL 

60017 

17777 

0 

S13BITS 

OCTAL 

17777 

25252 

0 

C0NC+S1 

OCTAL 

25252 

52400 

1 

C0NC+S2 

OCTAL 

52400 

76  777 

1 

ERASC0N5 

OCTAL 

76777 

S— 7 

= 

0CT7777' 

S-4 

EQUALS 

NEG4 

S— 3 

EQUALS 

NEG3 

S-2 

EQUALS 

NEG2 

S-l 

EQUALS 

NEGONE 

S-ZERO 

EQUALS 

NEGO 

EBA  NK= 

LST1 

01371 

0 

ADRS  1 

ADRES 

SKEEP1 

03341 

1 

SELF ADRS 

ADRES 

SELFCHK 

3 1360 

0 

PRERRORS 

CA 

ERESTORE 

C CC06 

1 

EXTEND 

1 3262 

0 

BZF 

ERRORS 

0 0006 

1 

EXTEND 

3 1376 

1 

DC  A 

SKEEP5 

51  >377 

0 

INDEX 

SKEEP7 

52  001 

1 

DXCH 

0000 

3 4746 

0 

CA 

S+ZERO 

55*360 

1 

TS 

ERESTORE 

0 0004 

0 

ERRORS 

INHINT 

3 0 C02 

0 

CA 

Q 

55' 357 

0 

TS 

SFAIL 

55 ' 363 

1 

TS 

ALMCADR 

25 ' 365 

0 

I NCR 

ERCOUNT 

0 5 5 73 

0 

TCALARM2 

TC 

ALARM2 

01102 

0 

OCT 

01102 

1 1 ' 362 

0 

CCS 

SMODE 

3 4 / 46 

0 

S IDLOOP 

CA 

S+ZERO 

55 '362 

0 

TS 

SMODE 
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EO  S3 


00377 

USEO 

IN 

CNTRCHK 

USED 

IN 

ER  ASCHK 

USED 

IN 

ERASCHK 

USED 

IN 

ER ASCHK 

USED 

IN 

ERASCHK 

USED 

IN 

ERASCHK 

01777 

f u 

ISED  IN  ER 

06000 

» u 

ISED  IN  RO 

FOR  R 

OPECHK 

USED 

IN 

ROPECHK 

USED 

IN 

CYCLSHFT 

USED 

IN 

CYCLSHFT 

SELFCHK  RETURN  AODRFSS.  SHOULD  BE  PUT 
IN  SELFRET  WHFN  GOING  FROM  SFLFCHK  TO 
SHOWSUM  ANO  PUT  IN  SKEEP1  WHEN  GOING 
FROM  SHOWSUM  TO  SELF-CHECK. 

IS  IT  NFCESSARY  TO  RESTORE  ERASABLE 

NO 


RESTORE  THE  TWO  ERASABLF  REGISTERS 


SAVE  Q FOR  FAILURE  LOCATION 

FOR  DISPLAY  WITH  3BANK  AND  ERCOUNT 

KEEP  TRACK  OF  NUMBER  OF  MALFUNCTIONS, 


SELF-CHECK  MALFUNCTION  INDICATOR 


GAP: 
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AGC 

BLOCK  TWO 

SELF- 

■CHECK 

0159 

REF 

5 

LAST 

1283 

43,3274 

0 

3341 

1 

TC 

SELFCHK 

0160 

REF 

4 

LAST 

1233 

43,3275 

0 

1357 

1 

TC 

SFAIL 

0161 

REF 

369 

LAST 

1261 

43,3276 

10 

i COO 

0 

— 1CHK 

CCS 

A 

0162 

REF 

L 

43,3277 

i 

3251 

0 

TCF 

PRERRORS 

0163 

REF 

2 

LAST 

1284 

43,3300 

l 

3251 

0 

TCF 

PRERRORS 

0164 

REF 

370 

LAST 

1284 

43,3301 

1C 

i COO 

0 

CCS 

A 

0165 

REF 

3 

LAST 

1284 

43,3302 

l 

3251 

0 

TCF 

PRERRORS 

0166 

REF 

323 

LAST 

1283 

43,3303 

0 

0002 

0 

TC 

Q 

0167 

43,3304 

c 

CC06 

1 

SMODECHK 

EXTEND 

0168 

REF 

4 

LAST 

1283 

43,3305 

23 

'371 

0 

QXCH 

SKEEP1 

0169 

REF 

1 

43,3306 

0 

3335 

1 

TC 

CHECKNJ 

0170 

REF 

7 

LAST 

1283 

43,3307 

11 

• 362 

0 

CCS 

SMODE 

0171 

REF 

1 

43,3310 

0 

3315 

0 

TC 

SOPT IONS 

0172 

REF 

1 

43,3311 

0 

3306 

1 

TC 

SMODECHK 

0173 

REF 

2 

LAST 

1284 

43,3312 

0 

3315 

0 

TC 

SOPT I ONS 

0174 

REF 

2 

LAST 

112 

43,3313 

25 

' 366 

0 

INCR 

S COUNT 

0175 

REF 

5 

LAST 

1284 

43,3314 

0 

1371 

0 

TC 

SKEEP1 

0176 

REF 

1 

43,3315 

6 

5652 

0 

SOP  T I ON  S 

AD 

S— 7 

0177 

43,3316 

0 

0006 

1 

EXTEND 

0178 

43,3317 

6 

3321 

1 

BZMF 

+ 2 

0179 

REF 

l 

43,3320 

0 

3272 

0 

BNKOPTN 

TC 

S IDLOOP 

0180 

REF 

3 

LAST 

1284 

43,3321 

25 

•366 

0 

INCR 

SCOUNT 

018  1 

REF 

1 

43,3322 

6 

4750 

1 

AD 

S + 7 

0182 

REF 

371 

LAST 

1284 

43,3323 

50 

COO 

1 

INDEX 

A 

0183 

REF 

1 

43,3324 

0 

3325 

0 

TC 

SOPT I ONI 

0134 

REF 

6 

LAST 

1284 

43,3325 

0 

1371 

0 

SOPT ION  1 

TC 

SKEEP 1 

0185 

REF 

7 

LAST 

1284 

43,3326 

0 

1371 

0 

SOPT I0N2 

TC 

S KEEP  1 

0186 

REF 

8 

LAST 

1284 

43,3327 

0 

1371 

0 

SOPT I0N3 

TC 

SKEEP1 

0187 

REF 

1 

43,3330 

0 

3342 

1 

SOPT I 0N4 

TC 

ERASCHK 

0188 

REF 

1 

43,333  L 

0 

3523 

0 

S0PTI0N5 

TC 

ROPECHK 

0189 

REF 

9 

LAST 

1284 

43,3332 

0 

1371 

0 

SOPT I0N6 

TC 

SKEEP1 

0190 

REF 

10 

LAST 

1284 

43,3333 

0 

1371 

0 

SOPT I0N7 

TC 

SKEEP 1 

0191 

REF 

11 

LAST 

1284 

43,3334 

0 

1371 

0 

S0PT0N10 

TC 

SKEEP1 

0192 

43,3335 

0 

0006 

1 

CHECKNJ 

EXTEND 

0193 

REF 

7 

LAST 

1114 

43,3336 

23 

' 361 

1 

QXCH 

SELFRET 

019  4 

REF 

58 

LAST 

1155 

43,3337 

0 

4626 

1 

TC 

POST  JUMP 

0195 

REF 

2 

LAST 

1108 

43,3340 

03216 

1 

CADR 

ADVAN 

0196 

REF 

2 

LAST 

1284 

43,3341 

0 

3304 

0 

SELFCHK 

TC 

SMODECHK 

R0197  SKEEP7  HOLDS  LOWEST  OF  TWO  ADDRESSES  BEING  CHECKED. 

R0198  SKF.EP6  HOLDS  B(X+1). 

RO 199  SKEEP5  HOLDS  BIX). 

R0200  SKEEP4  HOLDS  C(EBANK)  DURING  ERASLOOP  AND  CHECKNJ  . 

R0201  SKEEP3  HOLDS  LAST  ADDRESS  BEING  CHECKED  (HIGHEST  ADDRESS). 
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USER' S PAGE  NO.  4 E3  S4 

GO  TO  IDLE  LOOP 
CONTINUE  WITH  SELF-CHECK 


CHECK  FOR  NEW  JOB 
+2  TO  BACKUP  IDLE  LOOP 

CONTINUF  WITH  SEL  F-CHFCK 


FOR  OPTIONS  BELOW  NINE. 

ILLEGAL  OPTION.  GO  TO  IDLE  LOOP. 
FOR  OPTIONS  BELOW  NINE. 


WAS  TC+TCF 
WAS  I N : OUT  1 
WAS  COUNTCHK 


CONTINUE  WITH  SELF-CHECK 


SAVE  RETURN  ADDRFSS  WHILE  TESTING  NEWJOB 
TO  SEE  IF  ANY  JOBS  HAVE  BECOMF  ACTIVE. 


**  CHARLEY,  COME  IN  HERE 
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R0202 

SKEEP2  i 

CONTROLS  CHECKING  OF  1 

NCN-SWITCHABLE  ERASABLE  MEMORY  WITH  BANK 

NUMBERS  IN  FB. 

R0204 

ERASCHK 

TAKES 

APPROXMAT  ELY  7 

SECONDS 

0205 

REF 

2 

LAST 

302 

43,3342 

3 4744 

1 

ERASCHK 

CA 

S + l 

0206 

REF 

3 

LAST 

30  2 

43,3343 

55 • 372 

1 

TS 

SKEEP2 

0 20  7 

' REF 

4 

LAST 

1283 

43,3344 

3 4746 

0 

OEBANK 

CA 

S+ZERO 

0208 

REF 

72 

LAST 

1264 

43,3345 

54  C03 

0 

TS 

EBANK 

0209 

REF 

1 

43,3346 

3 3237 

1 

CA 

ERASC0N3 

01461 

0210 

REF 

4 

LAST 

1283 

43,3347 

55*377 

1 

TS 

SKEEP7 

STARTING  ADDRESS 

021  1 

REF 

1 

43 , 3350 

3 5003 

1 

CA 

S10BITS 

01777 

0212 

REF 

3 

LAST 

302 

43,3351 

55 ' 373 

0 

TS 

SKEEP3 

LAST  ADDRESS  CHECKED 

0213 

REF 

1 

43,3352 

0 3372 

1 

TC 

ERASLOOP 

021  A 

REF 

1 

43,3353 

3 5000 

1 

E134567B 

CA 

ERASC0N6 

01400 

0215 

REF 

5 

LAST 

1285 

43,3354 

55' 377 

1 

TS 

SKEEP7 

STARTING  ADDRESS 

0216 

REF 

2 

LAST 

1285 

43,3355 

3 5003 

1 

CA 

S10BITS 

01777 

0217 

REF 

4 

LAST 

1285 

43,3356 

55' 373 

0 

TS 

SKEEP3 

LAST  ADDRESS  CHECKED 

0218 

REF 

2 

LAST 

1235 

43,3357 

0 3372 

1 

TC 

ERASLOOP 

0219 

REF 

2 

LAST 

1285 

43,3360 

3 5C00 

1 

2EBANK 

CA 

ERASC0N6 

01400 

0220 

REF 

6 

LAST 

1285 

43,3361 

55 ' 3 77 

1 

TS 

SKEEP7 

STARTING  ADDRESS 

0221 

REF 

1 

43,3362 

3 3240 

1 

CA 

ERASCUN4 

01773 

0222 

REF 

5 

LAST 

1285 

43,3363 

55 '373 

0 

TS 

SKEEP3 

LAST  ADDRESS  CHECKED 

0223 

REF 

3 

LAST 

1285 

43,3364 

0 3372 

1 

TC 

ERASLOOP 

0224 

REF 

4 

LAST 

1285 

43,3365 

55*372 

1 

NOEBANK 

TS 

SKEEP2 

+ 0 

0225 

REF 

1 

43,3366 

3 3235 

0 

CA 

ERASC0N1 

00061 

0226 

REF 

7 

LAST 

1285 

43,3367 

55 '3 77 

1 

TS 

SKEEP7 

START  TNG  ADDRESS 

0227 

REF 

1 

43,3370 

3 3236 

0 

CA 

FRASC0N2 

01373 

0228 

REF 

6 

LAST 

1285 

43,3371 

55 ' 3 73 

0 

TS 

SKEEP3 

LAST  ADDRESS  C.HECKFD 

022  9 

43,3372 

0 0C04 

0 

ERASLOOP 

INHINT 

0230 

REF 

73 

LAST 

1285 

43,3373 

3 0003 

1 

CA 

EBANK 

STORES  C( EBANK) 

023  1 

REF 

3 

LAST 

226 

43,3374 

55 • 374 

1 

TS 

SKEEP4 

0232 

43,3375 

0 0006 

1 

EXTEND 

0233 

REF 

8 

LAST 

1285 

43,3376 

5 1377 

0 

NDX 

SKEEP7 

0234 

43,3377 

3 CC01 

0 

DC  A 

0000 

0235 

REF 

4 

LAST 

1283 

43,3400 

53' 376 

0 

DXCH 

SKEEP5 

STORES  C(X)  AND  C ( X + 1 ) IN  SKEFP6  AND  5 

0236 

REF 

9 

LAST 

1285 

43,3401 

3 1377 

0 

CA 

SKEEP7 

0237 

REF 

8 

LAST 

1233 

43,3402 

55' 360 

1 

TS 

ERESTORE 

IF  RESTART,  R.  F STORE  C(X)  AND  C(X+1) 

023  8 

REF 

237 

LAST 

1126 

43,3403 

54  001 

1 

TS 

L 

0239 

REF 

23  8 

LAST 

1285 

43,3404 

24  C01 

0 

INCR 

L 

0240 

REF 

3 72 

LAST 

1284 

43,3405 

50  000 

1 

NDX 

A 

024  1 

43,3406 

52  001 

1 

DXCH 

0000 

PUTS  OWN  ADDRESS  IN  X AND  X +1 

0242 

REF 

10 

LAST 

1285 

43,3407 

51 '377 

0 

NDX 

SKEEP7 

0243 

43,3410 

4 0001 

1 

cs 

0001 

CS  X + l 

0244 

REF 

11 

LAST 

1285 

43,3411 

5 1 ' 3 7 7 

0 

NDX 

SKEEP7 

0245 

43,3412 

6 0000 

1 

AD 

0000 

AD  X 

0246 

REF 

1 

43,3413 

0 3276 

1 

TC 

- 1CHK 

024  7 

REF 

9 

LAST 

1285 

43,3414 

3 1360 

0 

CA 

ERESTORE 

HAS  ERASABLE  BEEN  RESTORED 

0248 

43 ,3415 

0 0006 

1 

EXTEND 

GAP:- 

L 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

025  8 

0259 

026  0 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

027  3 

0274 

0275 

0276 

0277 

0278 

0279 

0280 

0281 

0262 

0283 

0284 

0285 

0286 

0267 

0288 

0289 

0290 

0291 

R0292 

RQ293 

0 294 

0295 

0296 

0297 

0298 


ASSEMBLE  REVISION  210 

OF  AGC  PROGRAM  LUM 

INARY  BY  NASA  202 

1112-161 

17:11  MAR.  19,1971  SKIPPER  . 

131  PAGE  1286 

AGC 

BLOCK  TWO 

SELF- 

CHECK 

USER  * S PAGE  NO.  6 

E3  S4 

REF 

1 

43,3416 

1 3442 

1 

BZF 

ELOOPFIN 

YES,  EXIT  ERASLOOP. 

43,3417 

0 0006 

1 

EXTEND 

REF 

12 

LAST 

1285 

43,3420 

5 1377 

0 

NL)X 

SKEEP7 

43,3421 

4 0001 

1 

DCS 

0000 

COMPLEMENT  OF  ADDRESS  OF  X 

AND  X+l 

REF 

13 

LAST 

1286 

43,3422 

51 ' 377 

0 

NDX 

SKEEP7 

43,3423 

52  001 

1 

DXCH 

0000 

PUT  COMPLEMENT  OF  ADDRESS 

OF  X AND  X+l 

REF 

14 

LAST 

1286 

43,3424 

51 • 377 

0 

NDX 

SKEEP7 

43,3425 

4 OCOO 

0 

CS 

0000 

CS  X 

REF 

15 

LAST 

1286 

43,3426 

51 ' 377 

0 

NDX 

SKEEP7 

43,3427 

6 0001 

0 

AD 

0001 

AD  X+  1 

REF 

2 

LAST 

1285 

43,3430 

0 3276 

1 

TC 

-1CHK 

RFF 

10 

LA, ST 

1285 

43, 3431 

3 1360 

0 

CA 

ERESTORE 

HAS  ERASABLE  BEEN  RESTORED 

43,3432 

0 0006 

1 

EXTEND 

REF 

2 

LAST 

1286 

43,3433 

1 3442 

l 

BZF 

ELOOPFIN 

YES,  EXIT  ERASLOOP. 

43,3434 

0 0006 

1 

EXTEND 

REF 

5 

LAST 

1285 

43,3435 

3 1376 

1 

DCA 

SKEEP5 

REF 

16 

LAST 

1286 

43,3436 

51 1 377 

0 

NDX 

SKEEP7 

43,3437 

52  001 

1 

DXCH 

0000 

PUT  BIX)  AND  BIX+l)  BACK  INTO  X AND  X+l 

REF 

5 

LAST 

1285 

43,3440 

3 4 746 

0 

CA 

S+ZERO 

REF 

11 

LAST 

1236 

43,3441 

55' 360 

1 

TS 

ERESTORE 

IF  RESTART,  DO  NOT  RESTORE 

C (X  ) , CIX  + l ) 

43, 3442 

0 0003 

l 

ELOOPF IN 

REL  INT 

REF 

2 

LAST 

1284 

43,3443 

0 3335 

1 

TC 

CHECKNJ 

CHECK  FOR  NEW  JOB 

REF 

4 

LAST 

1285 

43,3444 

3 13  74 

0 

CA 

S KEEP  4 

REPLACES  B ( EBANK ) 

REF 

74 

LAST 

1285 

43,3445 

54  C03 

0 

TS 

EBANK 

REF 

17 

LAST 

1286 

43,3446 

25 ' 377 

0 

INCR 

SKEEP7 

REF 

18 

LAST 

1286 

43 , 3447 

4 1377 

1 

CS 

SKEEP7 

REF 

7 

LAST 

1285 

43,3450 

6 1373 

1 

AD 

SKEEP3 

43,3451 

0 0006 

1 

EXTEND 

43,3452 

1 3454 

0 

BZF 

+ 2 

REF 

4 

LAST 

1285 

43, 3453 

0 3372 

1 

TC 

ERASLOOP 

GO  TO  NFXT  ADDRESS  IN  SAME 

BANK 

REF 

5 

LAST 

1285 

43,3454 

11*372 

1 

CCS 

SKEEP2 

REF 

1 

43,3455 

0 3365 

1 

TC 

NOEBANK 

REF 

6 

LAST 

1286 

43 , 3456 

25 ' 372 

0 

INCR 

SKEEP2 

PUT  +1  IN  SKEEP2 . 

REF 

75 

LAST 

1286 

43,3457 

3 0003 

1 

CA 

EBANK 

REF 

1 

43,3460 

6 4734 

0 

AD 

SBIT9 

REF 

76 

LAST 

1286 

43,3461 

54  C03 

0 

TS 

EBANK 

REF 

1 

43,3462 

6 3246 

1 

AD 

E RASC0N5 

76777,  CHECK  FOR  RANK  E2 

43,3463 

0 0006 

1 

EXTEND 

REF 

1 

43,3464 

1 3360 

0 

BZF 

2 EBANK 

REF 

77 

LAST 

1286 

43,3465 

10  C03 

0 

CCS 

EBANK 

REF 

1 

43,3466 

0 3353 

1 

TC 

E 134567B 

GO  TO  EBANKS  1,3, 4, 5, 6,  AND  7 

REF 

3 

LAST 

1285 

43,3467 

3 5000 

1 

CA 

ERASCDN6 

END  OF  ERASCHK 

REF 

78 

LAST 

1286 

43,3470 

54  003 

0 

TS 

EBANK 

CNTRCFK 

PERFORMS  A 

CS  OF  ALL 

REGISTERS 

FROM  OCT. 

60  THROUGH  OCT.  10. 

INCLUDED 

ARE  ; 

ALL  COUNTERS,  T6 

-1,  CYCLE 

AND  SHIFT, 

, AND  ALL  RUPT  REGISTERS 

REF 

1 

43,3471 

3 4 762 

0 

CNTRCHK 

CA 

CNTRCON 

00050 

REF 

7 

LAST 

1286 

43,3472 

55 '372 

1 

C NTRLOUP 

TS 

SKEEP2 

REF 

1 

43,3473 

6 4741 

1 

AD 

SB  IT4 

+10  OCTAL 

REF 

373 

LAST 

128  5 

43,3474 

50  000 

1 

INDEX 

A 

43,3475 

4 0000 

0 

CS 

0000 
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L 

AGC 

BLOC 

K TWO 

SELF-CHECK 

USER' S PAGE  NO. 

0299 

REF 

8 

LAST 

1286 

43 , 3476 

1 1 ' 372 

1 

CCS 

SKEEP2 

0300 

REF 

1 

43,3477 

0 3472 

0 

TC 

C NTRLOOP 

R030  1 

CYCLSFFT 

CHECKS  THE 

CYCLE  AND 

SHIFT 

REGISTERS 

0302 

REF 

1 

43 ,3500 

3 3244 

0 

CYCLSHFT 

CA 

C0NC+S1 

25252 

0303 

REF 

38 

LAST 

1089 

43,3501 

54  020 

1 

TS 

CYR 

C ( CYR  ) = 

12525 

0304 

REF 

21 

LAST 

1079 

43,3502 

54  022 

0 

TS 

CYL 

C(CYL)  = 

52524 

0305 

REF 

20 

LAST 

1079 

43,3503 

54  021 

0 

TS 

SR 

C ( SR  ) = 

12  525 

0306 

REF 

12 

LAST 

1264 

43,3504 

54  023 

1 

TS 

EDOP 

C ( EDO  P ) 

= 00125 

0307 

REF 

39 

LAST 

1287 

43,3505 

6 CC20 

0 

AD 

CYR 

37777 

C(CYR) 

030  8 

REF 

22 

LAST 

1237 

43,3506 

6 0022 

1 

AD 

CYL 

00-12524 

C( CYL ) 

0309 

REF 

21 

LAST 

1287 

43,3507 

6 0021 

1 

AD 

SR 

00-25251 

C ( SR  ) = 

0310 

REF 

13 

LAST 

1287 

43 ,3510 

6 0023 

0 

AD 

EDOP 

00-25376 

C( EDOP ) 

031  1 

REF 

1 

43,3511 

6 3245 

1 

AD 

C0NC+S2 

C ( CON C+S  2 ) = 52400 

0312 

REF 

3 

LAST 

1286 

43,3512 

0 3276 

l 

TC 

- 1CHK 

0313 

REF 

40 

LAST 

1287 

43,3513 

6 0020 

0 

AD 

CYR 

45252 

0314 

REF 

23 

LAST 

1287 

43,3514 

6 0022 

1 

AO 

CYL 

72523 

0315 

REF 

22 

LAST 

1287 

43,3515 

6 0021 

1 

AD 

SR 

77775 

0316 

REF 

14 

LAST 

1287 

43,3516 

6 0023 

0 

AD 

EDOP 

77775 

0317 

REF 

3 

LAST 

1285 

43,3517 

6 4744 

1 

AD 

S + l 

77776 

0318 

REF 

4 

LAST 

1237 

43,3520 

0 3276 

1 

TC 

- 1CHK 

0319 

REF 

4 

LAST 

1284 

43,3521 

25' 367 

1 

I NCR 

SCOUNT  +1 

0320 

REF 

3 

LAST 

1284 

43,3522 

0 3304 

0 

TC 

SMODECHK 

R032  1 

SKEEP1  HOLDS  SUM 

R0322 

SKEEP2  FOLDS  PRESENT 

CONTENTS 

OF  ADDRESS 

IN  ROPECHK  AND 

SHOWSUM  ROUTINES 

R0323 

SKEEP2  FOLDS  BANK  NUMBER  IN  LCW  ORDER  BITS  DURING  SHOWSUM  DISPLAY 

R0324 

SKEEP3  HOLDS  PRESENT 

ADDRESS 

(00000 

TO  01777  IN 

COMMON 

FIXED  BANKS) 

R0325 

(04000  ' 

TO  07777  IN 

FXFX  BANKS) 

R0326 

SKEEP3  HOLDS  BUGGER 

WORD  DURING  SHOWSUM 

DISPLAY 

R0327 

SKEEP4  HOLDS  BANK  NUMBER  AND 

SUPER  BANK 

NUMBER 

R0328 

SKEEP5  COUNTS 

2 SUCCESSIVE  TC 

SELF  WORDS 

R0329 

SKEFP6  CONTROLS  ROPECHK  OR  SHCWSUM  OPTION 

R0330 

SKEEP7  CONTROL 

S WHEN 

ROUNTINE 

IS  IN  COMMON  FIXED 

OR  FIXED  FIXED  RANKS 

033  1 

REF 

1 

43,3523 

3 4 745 

0 

ROPECHK 

CA 

S-ZERO 

* 

0331  1 

REF 

4 

LAST 

303 

43,3524 

55 ' 376 

0 

TS 

SKEEP6 

* -0  FOR 

ROPECHK. 

0331  2 

REF 

6 

LAST 

1286 

43,3525 

3 4746 

0 

STSHOSUM 

CA 

S+ZERO 

* SHOULD 

BE  ROPECHK 

0332 

REF 

5 

LAST 

1286 

43,3526 

5 5 ' 374 

1 

TS 

SKEEP4 

BANK  NUMBER 

0333 

REF 

4 

LAST 

1287 

43,3527 

3 4 744 

1 

CA 

S + I 

0334 

REF 

19 

LAST 

1286 

43,3530 

55 ' 377 

1 

COMM  F X 

TS 

SKEEP7 

0335 

REF 

7 

LAST 

1287 

43,3531 

3 4746 

0 

CA 

S+ZERO 

0336 

REF 

12 

LAST 

1234 

43,3532 

55 ' 371 

1 

TS 

SKEEP1 

0337 

REF 

8 

LAST 

1286 

43,3533 

55' 373 

0 

TS 

SKEEP3 

033  8 

REF 

5 

LAST 

1287 

43,3534 

3 4 744 

1 

CA 

S + l 

0339 

REF 

6 

LAST 

1286 

43,3535 

55' 375 

0 

TS 

SKFEP5 

COUNTS  DOWN  2 TC  SELF 

0340 

REF 

6 

LAST 

1287 

43,3536 

3 1374 

0 

CCMADRS 

CA 

SKFEP4 

0341 

REF 

239 

LAST 

1285 

43,3537 

54  001 

1 

TS 

L 

TO  SET  SUPER  BANK 

0342 

REF 

8 

LAST 

1283 

43,3540 

7 4341 

1 

MASK 

H I 5 

E 3 S4 


= 45252 
= 25251 


+ 0 


1287 
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AGC 

BLOCK  TWO 

SELF- 

•CHECK 

0343 

REF 

9 

LAST 

1287 

43,3541 

6 

1373 

1 

0344 

REF 

2 

LAST 

455 

43,3542 

0 

4642 

0 

0345 

REF 

1 

43,3543 

0 

3566 

1 

0346 

REF 

1 

43,3544 

6 

A 732 

0 

0347 

REF 

1 

43,3545 

0 

3577 

1 

0348 

REF 

374 

LAST 

1286 

43,3546 

4 

cooo 

0 

FXFX 

0349 

REF 

20 

LAST 

1287 

43,3547 

55 

• 377 

1 

035  0 

43,3550 

0 

0006 

1 

0351 

43,3551 

1 

3554 

1 

0352 

REF 

1 

43,3552 

3 

4731 

0 

0353 

43,3553 

0 

3555 

1 

0354 

REF 

1 

43,3554 

3 

5011 

1 

0355 

REF 

10 

LAST 

1288 

43, 3555 

55 

'373 

0 

035  6 

REF 

8 

LAST 

1287 

43,3556 

3 

4 746 

0 

0357 

REF 

13 

LAST 

1287 

43, 3557 

55 

•371 

1 

0358 

REF 

6 

LAST 

1287 

43,3560 

3 

4744 

1 

0359 

REF 

7 

LAST 

1287 

43,3561 

55 

•3  75 

0 

0360 

REF 

11 

LAST 

1288 

43,3562 

51 

•373 

1 

F XADRS 

036  1 

43,3563 

3 

0000 

1 

0362 

REF 

2 

LAST 

1288 

43,3564 

0 

3566 

1 

0363 

REF 

2 

LAST 

1288 

43,3565 

0 

3577 

1 

0364 

REF 

9 

LAST 

1237 

43,3566 

55 

'372 

1 

ADSUM 

0365 

REF 

14 

LAST 

1288 

43,3567 

6 

1371 

0 

036  6 

REF 

15 

LAST 

1288 

43,3570 

55 

' 371 

1 

0367 

REF 

9 

LAST 

1288 

43,3571 

3 

4 746 

0 

0368 

REF 

16 

LAST 

1288 

43,3572 

6 

1371 

0 

0369 

REF 

17 

LAST 

1288 

43,3573 

55 

' 371 

1 

0370 

REF 

10 

LAST 

1288 

43, 3574 

4 

1372 

1 

0371 

REF 

12 

LAST 

1288 

43,3575 

6 

1373 

1 

0372 

REF 

324 

LAST 

1284 

43,3576 

0 

CC02 

0 

0373 

REF 

375 

LAST 

1288 

43,3577 

22 

0 00 

1 

ADRSCHK 

0374 

REF 

13 

LAST 

1288 

43, 3600 

3 

1373 

1 

037  5 

REF 

21 

LAST 

1283 

43,3601 

7 

5003 

0 

0376 

REF 

1 

43,3602 

6 

4341 

0 

037  7 

43,3603 

0 

0006 

1 

0378 

REF 

1 

43,3604 

1 

3673 

1 

0379 

REF 

8 

LAST 

1288 

43,3605 

11 

' 375 

0 

0380 

43 ,3606 

0 

3611 

1 

038  1 

43,3607 

0 

3611 

1 

0382 

REF 

2 

LAST 

1288 

43,3610 

0 

3673 

0 

0383 

REF 

240 

LAST 

1287 

43,361 l 

10 

001 

1 

0384 

REF 

1 

43,3612 

0 

3621 

1 

0385 

REF 

2 

LAST 

1268 

43,3613 

0 

2621 

1 

0386 

REF 

3 

LAST 

1288 

43,3614 

0 

3621 

1 

038  7 

REF 

9 

LAST 

1288 

43,3615 

11 

'375 

0 

0388 

REF 

4 

LAST 

1288 

43,3616 

0 

3622 

1 

0389 

REF 

1 

43,3617 

3 

7770 

0 

PAGE  1288 


NASA  2021112-161  17:  11  MAR.  19,1971  SKIP0  ER  .181 

USER' S PAGE  NO.  8 E3  S4 


AD 

SKEEP3 

TC 

SUPDACAL 

SUPER  DATA  CALL 

TC 

ADSUM 

AD 

SB  ITl 1 

02000 

TC 

ADRSCHK 

CS 

A 

TS 

EXTEND 

SKEEP7 

BZF 

+ 3 

CA 

SBIT12 

04000,  STARTING  ADDRESS  OF  BANK  02 

TC 

+ 2 

CA 

SBNK03 

06000,  STARTING  ADDRESS  OF  BANK  03 

TS 

SKEEP3 

CA 

S+ZERO 

TS 

SKEEP1 

CA 

S + l 

TS 

SKEEP5 

COUNTS  DOWN  2 TC  SELF  WORDS 

INDEX 

SKEEP3 

CA 

0000 

TC 

ADSUM 

TC 

ADRSCHK 

TS 

SKEEP2 

AD 

SKEEP1 

TS 

SKEEP1 

CAF 

S +ZERO 

AD 

SKEEP1 

TS 

SKEEP1 

CS 

SKEEP2 

AD 

SKEEP3 

TC 

Q 

LXCIH 

A 

CA 

SKEEP3 

MASK 

LOW  10 

RELATIVE  ADDRESS 

AD 

EXTEND 

-MAXADRS 

SUBTRACT  MAX  RELATIVE  ADDRESS  = 1777 

BZF 

SOPT ION 

CHECKSUM  FINISHED  IF  LAST  ADDRESS. 

CCS 

SKEEP5 

IS  CHECKSUM  FINISHED 

TC 

+3 

NO 

TC 

+ 2 

NO 

TC 

S OPT  T ON 

GO  TO  ROPECHK  SHOWSUM  OPTION 

CCS 

L 

-0  MEANS  A TC  SELF  WORO. 

TC 

CONTINU 

TC 

CONT INU 

TC 

CONTINU 

CCS 

SKEEP5 

TC 

CCNTINU  +1 

CA 

S-l 
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AGC  BLOCK  TWO  SELF-CHECK 


0390 

REF 

5 

LAST 

1288 

43, 3620 

0 

3622 

1 

TC 

CONTINU  +1 

0391 

REF 

7 

LAST 

1288 

43,3621 

3 

4 744 

1 

CONT INU 

CA 

S + l 

0392 

REF 

10 

LAST 

1288 

43, 3622 

55*375 

0 

TS 

S KEEP  5 

0392  1 

REF 

5 

LAST 

1287 

43, 3623 

11 

. 1 376 

0 

CCS 

SKEEP6 

03922 

REF 

23 

LAST 

1114 

43,3624 

10  067 

1 

CCS 

NEWJOB 

039  2 3 

REF 

6 

LAST 

389 

43 ,3625 

0 

5 113 

1 

TC 

C HANG  1 

03924 

43,3626 

0 

3630 

l 

TC 

+ 2 

0393 

REF 

3 

LAST 

1236 

43,3627 

0 

3335 

1 

TC 

CHECKNJ 

0394 

REF 

14 

LAST 

1288 

43,3630 

25 

i*373 

1 

ADRS+ 1 

I NCR 

SKEEP3 

0395 

REF 

21 

LAST 

1288 

43,3631 

11 

• 377 

1 

CCS 

SKEEP7 

0396 

REF 

1 

43,3632 

0 

3536 

1 

TC 

COMADRS 

039  7 

REF 

2 

LAST 

1289 

43,3633 

0 

3536 

1 

TC 

COMAORS 

0398 

REF 

1 

43,3634 

0 

3562 

0 

TC 

F XADRS 

0399 

REF 

2 

LAST 

1289 

43,3635 

0 

3562 

0 

TC 

F XADRS 

0400 

REF 

7 

LAST 

1287 

43,3636 

4 

13  74 

1 

NXTBNK 

CS 

SKEEP4 

0401 

REF 

1 

43,3637 

6 

3726 

1 

AD 

L ST3NKCH 

0402 

43,3640 

0 

C006 

1 

EXTEND 

040  3 

REF 

1 

43,3641 

1 

3130 

1 

BZF 

ENDSUMS 

040  4 

REF 

8 

LAST 

1289 

43 ,3642 

3 

1374 

0 

CA 

SKEEP4 

040  5 

REF 

2 

LAST 

1288 

43,3643 

6 

4732 

0 

AD 

SBITll 

0406 

REF 

9 

LAST 

1289 

43,3644 

55 

• 374 

1 

TS 

SKEEP4 

040  7 

REF 

1 

43,3645 

0 

3651 

0 

TC 

CHKSUPR 

040  8 

REF 

1 

43,3646 

3 

4726 

0 

17TD20 

CA 

SB  I T 1 5 

0409 

REF 

10 

LAST 

1289 

43,3647 

27 

'3  74 

1 

ADS 

SKEEP4 

0410 

REF 

1 

43,3650 

0 

3665 

1 

TC 

GONXTBNK 

041  1 

REF 

9 

LAST 

1287 

43,3651 

7 

4341 

1 

CHKSUPR 

MASK 

H 1 5 

0412 

43 ,3652 

0 

0006 

1 

EXTEND 

0413 

REF 

1 

43,3653 

l 

3663 

0 

BZF 

NXTSUPR 

0414 

REF 

1 

43,3654 

6 

3243 

1 

27T030 

AD 

S13B  ITS 

041  5 

43,3655 

C 

0006 

1 

EXTEND 

0416 

■ 43,3656 

1 

3660 

0 

BZF 

+ 2 

041  7 

REF 

2 

LAST  ■ 

1289 

43,3657 

0 

3665 

1 

TC 

GONXTBNK 

0418 

REF 

1 

43 , 3660 

3 

3241 

0 

CA 

SIXTY 

0419 

REF 

1 1 

LAST 

1289 

43,3661 

27 

1 3 74 

1 

ADS 

SKEEP4 

0420 

REF 

3 

LAST 

1289 

43,3662 

0 

3665 

1 

TC 

GONXTBNK 

0421 

REF 

1 

43,3663 

6 

3242 

0 

N XT  SUPR 

AD 

SUPRCON 

042  2 

REF 

12 

LAST 

1289 

43,3664 

27 

1 3 74 

1 

ADS 

SKEEP4 

0423 

REF 

22 

LAST 

1289 

43,3665 

11 

•377 

1 

GCNXTBNK 

CCS 

SKEEP7 

0424 

REF 

1 

43,3666 

0 

3530 

1 

TC 

COMMFX 

042  5 

REF 

8 

LAST 

1289 

43,3667 

3 

4744 

1 

CA 

S + l 

042  6 

REF 

1 

43,3670 

0 

3546 

0 

TC 

FXFX 

0427 

REF 

1 

43,3671 

3 

4736 

l 

CA 

SB  IT7 

0428 

REF 

2 

LAST 

1289 

43,3672 

0 

3530 

1 

TC 

COMMFX 

0429 

REF 

13 

LAST 

1289 

43,3673 

3 

1374 

0 

S OPT  I ON 

CA 

SKEEP4 

043  0 

REF 

10 

LAST 

1289 

43,3674 

7 

4341 

1 

MASK 

H I 5 

0431 

REF 

5 

LAST 

452 

43,3675 

0 

4322 

0 

TC 

LEFT5 

043  2 

REF 

24  1 

LAST 

1288 

43,3676 

54 

001 

1 

TS 

L 

1 7 : L 1 MAR.  19,1971  SKIPPER  .131  PAGE  1289 
USER' S PAGE  NO.  9 F3  S4 

AD  IN  THE  BUGGER  WORD 

MAKE  SURE  TWO  CONSECUTIVE  TC  SELF  WORDS 
* 

* +1,  SHOWSUM 

-0  IN  SKEEP6  FOR  ROPECHK 


LAST  BANK  TO  BE  CHECKED 
END  OF  SUMMING  OF  BANKS, 

37  TO  40  INCRMTS  SKEEP4  BY  END  RND  CARRY 
SET  FOR  BANK  20 

INCREMENT  SUPER  BANK 

BANK  SET  FOR  30 
FIRST  SUPER  BANK 

S FT  BNK  30  + TNCR  SUPR  BN K AND  CANCEL 
ERC  BIT  OF  THE  37  TO  40  ADVANCE. 


HAS  TO  BE  LARGER  THAN  NO  OF  FXSW  BANKS. 


= BANK  BITS 


BANK  NUMBER  BEFORE  SUPER  BANK 
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AGO 

BLOCK 

; two 

SELF- 

■CHECK 

USER' S PAGE  NO. 

10  E3  S4 

0433 

REF 

14 

LAST 

1289 

43,3677 

3 

1374 

0 

CA 

SKEEP4 

0434 

REF 

1 

43,3700 

7 

4350 

1 

MASK 

S8BITS 

= SUPER  BANK  BITS 

043  5 

43,3701 

0 

0006 

1 

EXTEND 

0436 

REF 

1 

43,3702 

1 

3710 

0 

BZF 

SOPT 

BEFORE  SUPER  BANK 

0437 

REF 

23 

LAST 

1287 

43,3703 

54 

021 

0 

TS 

SR 

SUPFR  BANK  NECESSARY 

043  8 

REF 

242 

LAST 

1289 

43,3704 

3 

0001 

0 

CA 

L 

0439 

REF 

21 

LAST 

1283 

43,3705 

7 

4750 

c 

MASK 

SEVEN 

044  0 

REF 

24 

LAST 

12,90 

43,3706 

6 

0021 

1 

AD 

SR 

0441 

REF 

243 

LAST 

1290 

43,3707 

54 

001 

1 

TS 

L 

BANK  NUMBER  WITH  SUPER 

BANK 

0442 

REF 

6 

LAST 

1289 

43,3710 

3 

1376 

1 

SOPT 

CA 

SKEEP6 

* 

0443 

43,3711 

0 

0006 

1 

EXTEND 

* 

0444 

43,3712 

1 

3714 

1 

BZF 

+ 2 

* ON  -0  CONTINUE  WITH 

ROPE  CHECK. 

044  5 

REF 

1 

43,3713 

0 

3112 

0 

TC 

SDISPLAY 

* ON  +1  GO  TO  DISPLAY 

OF  SUM. 

0446 

REF 

10 

LAST 

1288 

43,3714 

11 

' 371 

1 

CCS 

S KEEP  1 

FORCE  SUM  TO  ABSOLUTE 

VALUE. 

044  61 

43,3715 

0 

3717 

0 

TC 

+ 2 

04462 

43,3716 

0 

3720 

1 

TC 

+ 2 

04463 

REF 

9 

LAST 

1289 

43,3717 

6 

4744 

1 

AD 

S + l 

04464 

REF 

19 

LAST 

1290 

43,3720 

55 

•371 

1 

TS 

SKEEP1 

0447 

REF 

244 

LAST 

1290 

43,3721 

4 

0001 

1 

BNKCHK 

cs 

L 

= - BANK  NUMBER 

0448 

REF 

20 

LAST 

1290 

43,3722 

6 

1371 

0 

AD 

SKEEPl 

0449 

REF 

2 

LAST 

1288 

43,3723 

6 

7770 

0 

AD 

S-l 

0450 

REF 

5 

LAST 

1287 

43,3724 

0 

3279 

1 

TC 

-1CHK 

CHECK  SUM 

045  1 

REF 

2 

LAST 

303 

43,3725 

0 

3636 

1 

TC 

NXTBNK 

0454 

REF 

24 

LAST 

1289 

U067 

EBANK= 

NEWJOB 

0455 

43,3726 

66100 

0 

L STBNKCH 

BBCON* 

* CONSTANT,  LAST  BANK. 
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POOO  1 

SUBROUTINE 

TO  UPDATE 

THE  PROGRAM  NUMBER 

DI  SPLAY 

’ ON  THE  DSK 

000  2 

REF 

1 

COUNT* 

$$/PHASE 

0003 

5313 

BLOCK 

02 

0004 

REF 

1 

4000 

SETLOC 

FFTAG1 

0005 

5313 

BANK 

0006 

REF 

325 

LAST 

1288 

5313 

50  002 

0 

NEWMODEX 

INDEX 

Q 

000  7 

5314 

3 0000 

1 

CAF 

0 

0008 

REF 

326 

LAST 

1291 

5315 

24  C02 

0 

INCR 

Q 

0009 

REF 

20 

LAST 

1229 

5316 

55' CIO 

0 

NEWMODEA 

TS 

MODREG 

0014 

5317 

3 5322 

1 

MMDS  PLAY 

CAF 

+ 3 

0015 

REF 

41 

LAST 

12 1 C 

5320 

22  006 

1 

PREB JUMP 

LXCH 

BBANK 

0016 

REF 

15 

LAST 

1221 

5321 

1 4631 

0 

TCF 

B ANKJUMP 

0017 

REF 

1 

5322 

3 1754 

0 

CADR 

SETUPDSP 

R0018 

RETURN  TO 

CALLER  +3 

IF  MODE 

= 

THAT  AT  CA 

iLLER  +1 

,.  OTHERWISE 

0020 

REF 

327 

LAST 

1291 

5323 

50  002 

0 

CHECKMM 

INDEX 

Q 

002  1 

5324 

4 0000 

0 

CS 

0 

0022 

REF 

21 

LAST 

1291 

5325 

6 1C10 

1 

AD 

MODREG 

0023 

5326 

0 0006 

1 

EXTEND 

0024 

REF 

5 

LAST 

1113 

5327 

1 6762 

0 

BZF 

Q+2 

0025 

REF 

5 

LAST 

53  7 

5330 

1 6760 

1 

TCF 

Q+l 

0026 

REF 

6 

LAST 

1291 

6763 

T CO 

= 

Q + 2 +1 

002  8 

REF 

1 

14,2000 

SETLOC 

PHAST AB1 

0029 

14,3754 

BANK 

003  0 

REF 

1 

COUNT* 

t i/PHASE 

0031 

14,  3 754 

C 0004 

0 

SETUPDSP 

INHINT 

003  2 

REF 

24 

LAST 

99  1 

14,3755 

52  C 7 1 

0 

DXCH 

R UPTREG1 

0033 

REF 

11 

LAST 

1097 

14,3756 

3 4346 

1 

CAF 

P R 1030 

0034 

REF 

25 

LAST 

1119 

14,3757 

0 5063 

1 

TC 

NOVAC 

0035 

REF 

22 

LAST 

1291 

1010 

EBANK= 

MODREG 

0036 

REF 

1 

14,3760 

03572 

1 

2C  ADR 

DSPMMJOB 

0036 

REF 

1 

14,3761 

60102 

1 

0037 

REF 

25 

LAST 

1291 

14,3762 

52  071 

0 

DXCH 

RUPTP  EG  1 

0038 

14,3763 

0 0003 

1 

RFL  INT 

0039 

REF 

23 

LAST 

1264 

14,3764 

52  006 

0 

DXCH 

Z 

004  0 

REF 

2 

LAST 

472 

40,3572 

DSPMMJOB 

EQUALS 

DSPMMJ3 

0041 

5331 

BLOCK 

02 

0042 

REF 

2 LAST  1291 

4000 

SETLOC 

FFTAG1 

0043 

5331 

BANK 

17:  1 1 


MAR.  19,1 
USER' S 


971  SKIPPER 
PAGE  NO.  1 


.131  PAGE  1291 
EG  S4 


UPDATE  MDDREG.  ENTRY  FOR  MODE  IN  FIXED. 


ENTRY  FOR  MODE  IN  A. 
DISPLAY  MAJOR  MODE. 
PUTS  BRANK  IN  L 
PUTS  0 INTO  A 


RETURN  TO  CALLER  + 2. 


NO  MATCH 


SAVE  CALLER-S  RETURN  2CADR 

EITHER  A TASK  OR  JOB  CAN  COME  TO 
NEWMODEX 


RFTURN 


GAP: 
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PHASE  TABLE  MAINTENANCE 


USER ' S PAGE  NO. 


EO  S4 


P0044  PHASCHNG  IS  THE  MAIN  WAY  OF  MAKING  PHASE  CHANGES  FOR  RESTARTS.  THERE  ARE  THREE  FORMS  OF  PHASCHNG,  KNOWN  AS  TYPF 

R0046  A,  TYPE  B,  AND  TYPE  C.  THEY  ARE  ALL  CALLED  AS  FOLLOWS,  WHERE  OCT  XXXXX  CONTAINS  THE  PHASE  INFORMATION, 

A 004 8 TC  PHASCHNG 

A 004 9 OCT  XXXXX 


R0050 

R0052 

R0053 
R0055 
R 005  7 
R0059 
R 0 06  0 


TYPE  A IS  CONCERNED  WITH  FIXED  PHASE  CHANGES,  THAT  IS,  PHASE  I NFORMAT I ONTHAT  IS  STORED  PERMANENTLY. 
OPTICAS  ARE,  WHERE  G STANDS  FCR  A GROUP  AND  .X  FOR  THE  PHASE, 


THESE 


G.O  INACTIVE,  WILLNOT  PERMIT  A GROUP  G RESTART 

G.l  WILL  CAUSE  THE  LAST  DISPLAY  TO  BE  REACTIVATED,  USED  MAINLY  IN  MANNED  FLIGHTS 

G . EVEN  A DOUBLE  TABLE  RESTART,  CAN  CAUSE  ANY  COMBINATION  OF  TWO  JOBS,  TASKS,  AND/OR 

LONGCALL  TO  BE  RESTARTED. 

G .ODD  NOT  .1  A SINGLE  TABLE  RESTART,  CAN  CAUSE  EITHER  A JOB,  TASK,  OR  LONGCALL  RESTART 


R 0 0 6 2 THIS  INFORMATION  IS  PUT  INTO  THE  OCTAL  WORD  AFTER  TC  PHASCHNG  AS  FOLLOWS 


R0063 


TLO  COP  PPP  PPP  GGG 


R0065  WHERE  EACH  LETTER  OR  NUMBER  STANDS  FOR  A BI 

R0067  OCTAL  0 - 127.  0:S  MUST  BE  0. 

R0069  T IS  SET  TO  1,  OTHERWISE  IT  IS  SET  TO  0. 

R0071  IT  IS  SET  TO  0.  SOME  EXAMPLES, 


T.  THE  G : S STAND  FOR  THE  GROUP,  OCTAL  1 - 7,  THE  P:S  FOR  THE  PHASE, 
IF  ONE  WISHES  TO  HAVE  THE  TBASE  OF  GROUP  G TO  BE  SET  AT  THIS  TIME, 
SIMIARLY  IF  ONE  WISHES  TO  SET  L ONGBASF , THEN  L IS  SET  TC  1,  OTHERWISE 


A0072 

TC 

PHASCHNG 

A0073 

OCT 

00003 

A0074 

TC 

PHASCHNG 

A0075 

OCT 

00012 

A0076 

TC 

PHASCHNG 

A0077 

OCT 

40064 

A0078 

A0079 

A0080 

TC 

PHASCHNG 

A0081 

OCT 

20135 

A0082 

A0083 

A0084 

TC 

PHASCHNG 

A0085 

OCT 

60124 

A0086 

R0087 

TYPE  C PHASCHNG 

CONTAINS  THE  VARIABLE  TYPE  OF  PHASCHNG 

I N FORMAT  I < 

R0089 

PERMANENT  FORM, 

ONE  STORES  THE  DESIRED  RESTART  INFORMATION  IN  A ' 

R0091 

TLO  1 AD  XXX  CJW  GGG 

R0092 

WHERE  EACH  LETTER  OR  NUMBER  STANDS  FOR  A BIT.  THE  G:S 

STAND  FOR 

R0094 

BE  BY  WAITLIST, 

W IS  SET  TO  1,  IF  IT  IS  A JOB,  J IS  SET 

TO  1 , IF 

R0096 

THESE  THREE  BIT 

S MAY  BE  SET.  X:S  ARE  IGNORED  1 MUST 

BE  1,  AND 

THIS  WILL  CAUSE  GROUP  3 TORE  SET  TO  0, 
MAKING  GROUP  3 INACTIVE 

IF  A RESTART  OCCURS  THIS  WOULD  CAUSE 
GROUP  2 TO  RESTART  THE  LAST  DISPLAY 

THIS  SETS  THE  TBASE  OF  GROUP  4 AND  IN 
CASE  OF  A RESTART  WOULD  START  UP  THE  TWO 
THINGS  LOCATED  IN  THE  DOUBLE  4.6  RESTART 
LOCAT ION 

THIS  SETS  LONGBASF  AND  UPON  A RESTART 
CAUSES  5.13  TO  BE  RESTARTED  (SINCE 
LONGBASE  WAS  SET  THIS  SINGLE  ENTRY 
SHOULD  BE  A LONGCALL) 

SINCE  BOTH  TBASE4  AND  LONGBASE  ARE  SET, 
4.12  SHOULD  CONTAIN  BOTH  A TASK  AND  A 
LONGCALL  TO  BE  RESTARTED 

'EAD  OF  THE  INFORMATION  BEING  IN  A 


LONGCALL,  C 
BE  0.  AGAIN  T 


7.  IF  THE  RESTART  IS  tq 
IS  SET  TO  1.  ONLY  ONE  OF 
STANDS  FOR  THE  TBASE, 
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L PHASE  TABLE  MAINTENANCE 


USER'S  PAGE  NO.  3 EO  S4 


R0098  AND  L FOR  LONGBASE.  THE  BITS  A AND  0 ARE  CONCERNED  WITH  THE  VARIABLE  INFORMATION.  IF  D IS  SET  TO  1 , A PRIORITY 
R0100  OR  DELTA  TIME  WILL  BE  READ  FROM  THE  NEXT  LOCATION  AFTER  THE  OCTAL  INFORMATION,  IF  THIS  IS  TO  BE  INDIRECT,  THAT 
R0102  IS,  THE  NAME  OF  A LOCATION  COMT+INING  THE  INFORMATION  (DELTA  TIMF  ONLY),  THEN  THIS  IS  GIVEN  AS  THE  -GENADR  OF 

R0104  THAT  LOCATION  WHICH  CONTAINS  THE  DELTA  TIME.  IF  THE  OLD  PRIORITY  OR  OELTA  TIME  IS  TO  BE  USED,  THAT  WHICH  IS 

RO 106  ALREADY  IN  THE  VARIABLE  STORAGE,  THEN  D IS  SET  TO  0.  NEXT  THE  A BIT  IS  USED.  IF  IT  IS  SET  TO  0,  THE  ADDRESS 

R0108  THAT  WCULD  BE  RESTARTED  DURING  A RESTART  IS  THE  NEXT  LOCATION  AFTER  THE  PHASE  INFORMATION,  THAT  IS,  EITHER 

R0110  (TC  PFASCHMG)  +2  OR  +3,  DEPENDING  ON  WHETHER  D HAD  BEEN  SET  OR  NOT.  IF  A IS  SET  TO  1,  THEN  THE  ADDRESS  THAT 

RO  11 2 WOULD  BE  RESTARTED  IS  THE  2C ADR  THAT  IS  READ  FROM  THE  NEXT  TWO  LOCATIONS.  EXAMPLES, 


AO  1 1 4 

AD 

TC 

PHASCHNG 

THIS  WOULD  CAUSE  LOCATION  AD  +3  TO  BE 

AO  1 1 5 

AD+l 

OCT 

05023 

RESTARTED  BY  GROUP  THREE  WITHA  PRIORITY 

AO  1 1 6 

AD+2 

OCT 

23000 

OF  23.  NOTE  UPON  RETURNING  IT  WOULD 

AO  1 1 7 

A D+3 

ALSO  GO  TO  AD+3 

A0118 

AD 

TC 

PHASCHNG 

GROUP  1 WOULD  CAUSE  CAUSE  CALLCALL  TO 

A01 1 9 

AD+l 

OCT 

27441 

BF  STARTED  AS  A LONGCAl.L  FROM  THF  TIME 

A 0 1 2 0 

AD+2 

-GENADR 

DELTIME 

STORED  IN  LONGBASE  (LONGBASE  WAS  SET)  BY 

AO  12  I 

AD+3 

2C  ADR 

CALLCALL 

A DELTATIME  STORED  IN  DELTIME.  THE 

AO  12  2 

AD+4 

BBCON  OF  THE  2CADR  SHOULD  CONTAIN  THE  E 

A0123 

AD+5 

BANK  OF  DELTIME.  PHASCHNG  RETURNS  TO 

A0124  LOCATION  AD+5 

R0125  NOTE  TF AT  IF  A VARIABLE  PRIORITY  IS  GIVEN  FOR  A JOB,  THE  JOB  WILL  BE  RESTARTED  AS  A NOVAC.  IF  THE  PRIORITY  IS 

R0127  NEGATIVE,  AS  A FINDVAC  IF  THE  PRIORITY  IS  POSITIVE. 


R0128  TYPE  B PHASCHNG  IS  A COMBINATION  OF  VARIABLE  AND  FIXED  PHASE  CHANGES.  IT  WILL  START  UP  A JOB  AS  INDICATED 
R0130  BELOW  AND  ALSO  START  UP  ONE  FIXED  RESTART,  THAT  IS  EITHER  AN  G.l  OR  A G .ODD  OR  THE  FIRST  ENTRY  OF  G . EVEN 
R0132  DOUBLE  ENTRY.  THE  BIT  IN FORMAT  I CN  IS  AS  FOLLOWS, 

R0133  TL1  CAP  PPP  PPP  GGG 


R0134  WHERE  EACH  LETTER  OR  NUMBER  STANDS  FOR  A BIT.  THE  G:S  STAND  FOR  THE  GROUP,  OCTAL  1 - 7.  THE  P:S  FOR  THE  FIXED 
R0136  PHASE  INFORMATION,  OCTAL  0 - 127.  1 MUST  BE  1.  AND  AGAIN  T STANDS  FOR  THE  TBASE  AND  L FOR  LONGBASE.  D THIS 

R0138  TIME  STANDS  ONLY  FOR  PRIORITY  SINCE  THIS  WILL  BE  CONSIDERED  A JOB,  AMD  IT  MUST  BE  GIVEN  DIRECTLY  IF  GIVFN. 

RO 140  AGAIN  A STANDS  FOR  THE  ADDRESS  OF  THE  LOCATION  TO  BE  RESTARTED,  1 IF  THE  2 CAD R IS  GIVEN  , OR  0 IF  IT  IS  TO  BF 
R0142  THE  NEXT  LOG AT  I ON .( THE  RETURN  LOCATION  OF  PHASCHNG)  EXAMPLES, 


AO  14  3 

AD 

TC 

PHASCHNG 

AO  144 

AD+l 

OCT 

56043 

AO  145 

AD+2 

OCT 

31000 

AO  146 

AD+3 

2C  ADR 

A JOBAJOB 

AO  14  7 

AD+4 

A0148 

AD+5 

AO  14  9 

AD 

TC 

PHASCHNG 

AO  1 5 0 

AD+l 

OCT 

10015 

AO  15  1 

AD+2 

A0152 

TBASE  IS  SET  AND  ARFST ART  CAUSE  GROUP  3 
TO  START  THE  JOB  A J OB A JOB  WITH  PRIORITY 
31  AND  THE  FIRST  ENTRY  OF  3.4SP0T(WE  CAN 
ASSUME  IT  IS  A TASK  SINCE  WE  SET  TBASE3) 
UPON  RETURN  FROM  PHASCHNG  CONTROL  WOULD 
GO  TO  AD+5 

UPON  A RESTART  THF  LAST  DISPLAY  WOULD  BE 
RESTARTED  AMD  A JOB  WITH  THE  PREVIOUSLY 
STORED  PRIORITY  WOULD  BF  BEGUN  AT  AD+2 
BY  MEANS  OF  GROUP  5 
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.131 

USER'S  PAGE  NO.  4 
A NOVAC  CALL,  POSITIVE  A 


PAGE  1294 
EO  S4 
F INDVAC . 


R0155  SUMMARY  OF  BITS 


R0156 

TYPE 

A 

TLO 

OOP 

PPP 

PPP 

GGG 

R0157 

TYPE 

B 

T LI 

DAP 

PPP 

PPP 

GGG 

R0158  TYPE  C 


TLO  1 AD  XXX  CJW  GGG 


GAP: 
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REVISION  210  CF 
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L 

PHASE  TABLE  MAINTENANCE 

USER' S PAGE  NO.  5 EO  S4 

P0159 

2PHSCENG  IS  USED  WEEN 

ONE  WISHES  TO 

START  UP  A GROUP  OR 

CHANGE  A 

GROUP  WHILE  UNDER  THE  CONTROL  OF  A DIFFFRENT 

RO 16  1 

GROUP. 

FOR  EXAMPLE,  CHANGE  THE  PHASE 

OF 

GROUP  3 

WHILE  THE  PORTION 

OF 

THE 

PROGRAM  IS  UNDER  GROUP  5.  ALL  2PHSCHNG 

R0163 

CALLS  ARE  MADE  IN  THE 

FOLLOWING  MANNER, 

AO  164 

TC 

2PHSCHNG 

AO  16  5 

OCT 

XXXXX 

A 0 1 6 6 

OCT 

YYYYY 

R0167 

WHERE  CCT  XXXXX  MUST  B 

E 

OF  TYPE  A AND  OCT  YYYYY 

MAY  BE 

OF  EITHER 

TYPE  A 

OR  TYPE  B OR  TYPEC.  THERE  IS  ONE 

R 0 1 6 9 

DIFFERENCE  — 

- NOTE-  I 

F 

LONGBASE  IS 

TO 

BE  SET  THIS  INFORMATION  IS 

G I 

VEN 

IN  THE  OCT  YYYYY  INFORMATION,  IT  WILL 

R017L 

BE  DISREGARDED  IF  GIVE 

N 

WITH 

THE  OCT 

XXXXX  INFORMATION. 

A COUPLE 

OF 

EXAMPLES  MAY  HELP, 

A0173 

AD 

TC 

2PHSCHNG 

SET  TBASE3  AND  IF  A RESTART  OCCURS  START 

AO  17  A 

AD+1 

OCT 

40083 

THE  TWO  ENTRIES  IN  3.8  TABLE  LOCATION 

A0175 

AD+2 

OCT 

05025 

THIS  IS  OF  TYPE  C,  SET  THE  JOB  TO  BE 

AO  1 76 

AD+3 

OCT 

18000 

TO  BE  LOCATION  AD+4,  WITH  A PRIORITY  18, 

AO  17  7 

A D+4 

FOR  GROUP  5 PHASE  INFORMATION 

0178 

REF  1 

COUNT  * 

$ $/PH  AS  E 

0179 

5331 

0 0004 

0 

2PHSCHNG 

INHINT 

THE  ENTRY  FOR  A DOUBLE  PHASE  CHANGE 

0180 

REF  328 

LAST 

1291 

5332 

50  002 

0 

NDX 

Q 

0181 

5333 

3 0000 

1 

CA 

0 

0182 

REF  329 

LAST 

1295 

5334 

24  C02 

0 

I NCR 

Q 

0183 

REF  1 

5335 

54  C 72 

0 

TS 

TEMPP2 

0184 

REF  1 

5336 

7 4 7 50 

0 

MASK 

OCT  7 

0185 

5337 

6 COOO 

1 

DOUBLE 

0186 

REF  l 

5340 

54  071 

0 

TS 

TFMPG2 

0187 

REF  2 

LAST 

1295 

5341 

3 0C72 

1 

CA 

TEMPP2 

0188 

REF  1 

5342 

7 5021 

0 

MASK 

0CT1 7770 

NEED  ONLY  1770,  BUT  WHY  GET  A NEW  CONST. 

0189 

5343 

0 0006 

1 

EXTEND 

0190 

REF  31 

LAST 

1282 

5344 

7 4731 

L 

MP 

3 I T 1 2 

0191 

REF  3 

LAST 

1295 

5345 

56  072 

1 

XCH 

TEMPP2 

0192 

REF  44 

LAST 

1282 

5346 

7 4726 

1 

MASK 

B I T 1 5 

0193 

REF  1 

5 347 

54  C 66 

0 

TS 

TEMPSW2 

INDICATES  WHETHER  TO  SET  TRASE  OR  MOT 

01932 

REF  330 

LAST 

1295 

5350 

50  002 

0 

INDEX 

0 

01934 

5351 

3 OCOO 

1 

CA 

0 

01936 

REF  331 

LAST 

1295 

5352 

24  002 

0 

I NCR 

Q 

01938 

REF  1 

5353 

54  065 

0 

TS 

TEMPSW 

0194 

REF  1 

5354 

1 5365 

0 

TCF 

PHAS JUMP 

0195 

5355 

0 0004 

0 

P HASCHNG 

INHINT 

NORMAL  PHASCHNG  ENTRY  POINT. 

0196 

REF  332 

LAST 

1295 

5356 

50  C02 

0 

INDEX 

Q 

0197 

5357 

3 CCOO 

1 

CA 

0 

0198 

REF  333 

LAST 

1295 

5360 

24  002 

0 

I NCR 

Q 

0199 

5361 

0 0004 

0 

PHSCHNGA 

INH I NT 

FIRST  OCTAL  PARAMETFR  IN  A. 

GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L PHASE  TABLE  MAINTENANCE 


0200 

REF 

2 

LAST 

1295 

5362 

54  065 

0 

TS 

TEMPSW 

0201 

REF 

1 14 

LAST 

1260 

5363 

3 4744 

1 

CA 

ONE 

020  1 5 

REF 

2 

LAST 

1295 

5364 

54  C66 

0 

TS 

TEMPSW2 

0202 

5365 

0 0006 

1 

PHAS JUMP 

EXTEND 

0203 

REF 

1 

5366 

3 5371 

1 

DC  A 

ADRPCHN2 

020  A 

5367 

52  006 

0 

DTCB 

020  5 

REF 

47 

LAST 

1283 

E3 , 1400 

EBANK= 

L ST  1 

0206 

REF 

1 

5370 

02213 

0 

ADRPCHN2 

2CADR 

P HSCHNG2 

0206 

REF 

1 

5371 

20103 

1 

0207 

REF 

1 

5372 

2 2 0 73 

0 

ONEORTWO 

LXCH 

T EMPBBCN 

0208 

REF 

42 

LAST 

1291 

5 3 73 

22  006 

1 

LXCH 

B BANK 

0209 

REF 

2 

LAST 

1296 

5374 

22  073 

0 

LXCH 

T EMPBBCN 

0210 

REF 

1 

53  75 

7 5015 

1 

MASK 

OCT  14000 

021  1 

REF 

376 

LAST 

1288 

5 3 76 

10  000 

0 

CCS 

A 

0212 

REF 

1 

5377 

1 7771 

0 

TCF 

CHECKB 

0213 

REF 

1 

5400 

3 0062 

0 

CA 

TEMPP 

0214 

REF 

35 

LAST 

1282 

5401 

7 4736 

0 

MASK 

B IT7 

0215 

REF 

377 

LAST 

1296 

5402 

10  000 

0 

CCS 

A 

0216 

REF 

1 

5403 

1 5425 

0 

TCF 

GETPRIO 

0217 

REF 

1 

5404 

50  C61 

0 

OLDPRIO 

NDX 

TEMPG 

0213 

REF 

1 

5405 

3 1051 

1 

CA 

PHSPRDT 1 

0219 

REF 

1 

5406 

54  0 70 

1 

TS 

TEMP  P R 

0220 

REF 

2 

LAST 

1296 

5407 

3 0 C62 

0 

CONI 

CA 

TEMPP 

0221 

REF 

41 

LAST 

1282 

5410 

7 4735 

0 

MASK 

B I T 8 

0222 

REF 

378 

LAST 

1296 

5411 

10  000 

0 

CCS 

A 

0223 

REF 

1 

5412 

1 5431 

0 

TCF 

GETNEWNM 

0224 

REF 

334 

LAST 

1295 

5413 

3 0002 

0 

CA 

Q 

0225 

REF 

1 

5414 

54  C63 

0 

TS 

TEMPNM 

0226 

REF 

1 

5415 

3 0006 

1 

CA 

BB 

022  7 

5416 

0 0006 

1 

EXTEND 

0228 

REF 

24 

LAST 

1127 

5417 

04  007 

1 

ROR 

SUPERBNK 

0229 

REF 

1 

542  0 

54  064 

1 

TS 

TEMPBB 

0230 

REF 

1 

5421 

3 5424 

0 

T0C0N2 

CA 

C0N2ADR 

023  1 

REF 

•2 

LAST 

1296 

5422 

22  073 

0 

LXCH 

TEMP8BCN 

0232 

5423 

52  006 

0 

DTCB 

0233 

REF 

1 

5 424 

02301 

1 

C0N2  A CR 

GENADR 

C0N2 

0234 

REF 

335 

LAST 

1296 

5425 

50  002 

0 

GETPRIO 

NDX 

Q 

0235 

5426 

3 0000 

1 

CA 

0 

0236 

REF 

336 

LAST 

1296 

5427 

24  C02 

0 

I NCR 

0 
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FO  S4 


OFF  TO  SWTTCHFO  BANK 


SEE  WHAT  KIND  OF  PHASE  CHANGE  IT  IS 
IT  I S OF  TYPF  : B : 

SHALL  WE  USE  THE  OLD  PRIORITY 
NO  GET  A NEW  PRIORITY  (OR  DELTA  T) 

USE  THE  OLD  PRIORITY  (OR  DELTA  T) 
SEE  IF  A 2CADP  IS  GIVEN 


PICK  UP  USERS  SUPERBANK 


BACK  TO  SWITCHED  BANK 


DON : T CARF  IF  DIRECT  OR  INDIRFCT 
LEAVE  THAT  DECISION  TO  RESTARTS 
OBTAIN  RETURN  ADDRESS 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L PHASE  TABLE  MAINTENANCE 


023  7 

REF 

1 

5430 

1 

5406 

1 

TCF 

CONI  -1 

0238 

5431 

0 

0006 

1 

GFTNEWNM 

EXTEND 

0239 

REF 

337 

LAST 

1296 

5432 

5 

C C 02 

0 

INDEX 

Q 

0240 

5433 

3 

CC01 

0 

DC  A 

0 

0241 

REF 

2 

LAST 

1296 

5434 

52 

064 

1 

DXCH 

TE.MPNM 

0242 

REF 

76 

LAST 

1129 

5435 

3 

4743 

0 

CA 

TWO 

0243 

REF 

338 

LAST 

1297 

5436 

26 

002 

1 

ADS 

Q 

0244 

REF 

1 

5437 

1 

5421 

1 

TCF 

TOC ON 2 

0245 

REF 

2 

LAST 

519 

5015 

OCT  1 4000 

EQUALS 

P R 101 4 

0246 

REF 

38 

LAST 

1258 

0061 

TEMPG 

EQUALS 

I TEMP  1 

0247 

REF 

24 

LAST 

1258 

0062 

TEMPP 

EQUALS 

ITEMP2 

0248 

REF 

21 

LAST 

, 746 

0063 

TEMPNM 

EQUALS 

I TEMP3 

0249 

REF 

9 

LAST 

74  6 

0064 

TEMPBB 

EQUALS 

I TEMP4 

0250 

REF 

9 

LAST 

618 

0065 

TEMPSW 

EQUALS 

I TEMP5 

025  1 

REF 

5 

LAST 

618 

0066 

TEMPSW2 

EQUALS 

ITEMP6 

0252 

REF 

26 

LAST 

1291 

0070 

TEMPPR 

EQUALS 

RUPTREG1 

0253 

REF 

7 

LAST 

817 

0071 

TEMPG2 

EQUALS 

RUPTREG2 

0254 

REF 

8 

LAST 

998 

0072 

TEMPP2 

EQUALS 

RUPTREG3 

0255 

REF 

5 

LAST 

998 

0073 

TEMPBBCN 

EQUALS 

RUPTREG4 

0256 

REF 

43 

LAST 

1296 

0006 

BB 

EQUALS 

BBANK 

0257 

14,3765 

BANK  14 

0258 

REF 

1 

10,2000 

SETLOC  PHASETAB 

0259 

10,2213 

BANK 

0260 

REF 

1 

E3 , 1436 

EBANK=  PHSNAME1 

026  1 

REF 

1 

COUNT*  $ $ /PH AS  E 

0262 

REF 

4 

LAST 

L 296 

10,2213 

22 

C 73 

0 

PHSCHNG2  LXCH  TEMPBBCN 

0263 

RFF 

3 

LAST 

1296 

10,2214 

3 

0065 

1 

CA  TEMPSW 

0264 

REF 

2 

LAST 

1295 

10, 2215 

7 

4750 

0 

MASK  0CT7 

0265 

10,2216 

6 

COOO 

1 

DOUBLE 

0266 

REF 

2 

LAST 

1296 

10,2217 

54 

061 

1 

TS  TEMPG 

0267 

REF 

4 

LAST 

1297 

10,2220 

3 

0065 

1 

CA  ' TEMPSW 

0268 

REF 

2 

LAST 

1295 

10,2221 

7 

5021 

0 

MASK  OCT  1 7770 

026  9 

10,2222 

0 

C 006 

1 

EXTEND 

0270 

REF 

32 

LAST 

1295 

10, 2223 

7 

4731 

1 

MP  BIT12 

0271 

REF 

3 

LAST 

1296 

10,2224 

54 

062 

1 

TS  TEMPP 

0272 

REF 

5 

LAST 

1297 

10,2225 

3 

0065 

1 

CA  TEMPSW 

0273 

REF 

1 

10,2226 

7 

A 101 

1 

MASK  OCT60000 

0274 

REF 

6 

LAST 

1297 

10,2227 

56 

065 

1 

XCH  TEMPSW 

0275 

REF 

2 

LAST 

1296 

10, 2230 

7 

5015 

1 

MASK  0 CT 1 4000 

0276 

REF 

379 

LAST 

1296 

10,2231 

10 

COO 

0 

CCS  A 
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OBTAIN  RETURN  ADDRESS 


GAP:  ' ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L PHASE  TABLE  MAINTENANCE 


0277 

REF 

1 

10, 2232 

1 5372 

0 

TCF 

ONEORTWO 

0278 

REF 

4 

LAST 

1297 

10,2233 

3 0062 

0 

CA 

TEMPP 

0279 

REF 

3 

LAST 

1297 

10,2234 

50  061 

0 

NDX 

T EMPG 

0280 

REF 

2 

LAST 

228 

10,2235 

54  750 

1 

TS 

PHASE  1 -2 

0281 

REF 

3 

LAST 

1296 

10,2236 

10  C 66 

0 

B ELD W 1 

CCS 

TEMPSW2 

0282 

REF 

1 

10, 2237 

1 2253 

0 

TCF 

BEL0W2 

0283 

10,2240 

1 2241 

0 

TCF 

+ 1 

0284 

REF 

4 

LAST 

1295 

10,2241 

4 0C72 

0 

CS 

TEMPP2 

0285 

REF 

5 

LAST 

1298 

10,2242 

22  072 

1 

LXCH 

TEMPP2 

0286 

REF 

2 

LAST 

1295 

10,2243 

50  071 

1 

NDX 

TEMPG2 

0287 

REF 

5 

LAST 

869 

10,2244 

52  750 

1 

DXCH 

-PHASE1  -2 

0288 

REF 

4 

LAST 

1298 

10,2245 

10  C 66 

0 

CCS 

TEMPSW2 

0289 

10,2246 

12  247 

0 

NOOD 

0290 

REF 

2 

LAST 

1298 

10, 2247 

l 2253 

0 

TCF 

BEL0W2 

0291 

REF 

24 

LAST 

995 

10,2250 

4 0025 

1 

CS 

T I ME  1 

0292 

REF 

3 

LAST 

1298 

10,2251 

50  071 

1 

NDX 

TEMPG2 

0293 

REF 

2 

LAST 

731 

10,2252 

5 5 ' 050 

1 

TS 

T BAS  E 1 -2 

0294 

REF 

7 

LAST 

1297 

10,2253 

10  065 

0 

BEL0W2 

CCS 

TEMPSW 

029  5 

REF 

1 

10,2254 

1 2267 

1 

TCF 

BEL0W3 

0296 

REF 

1 

10,2255 

1 2272 

0 

TCF 

BEL0W4 

0297 

REF 

25 

LAST 

1298 

10,2256 

4 CC25 

1 

CS 

T I ME  1 

0298 

REF 

4 

LAST 

1298 

10,2257 

50  C61 

0 

NDX 

TEMPG 

0299 

REF 

3 

LAST 

1296 

10,2260 

55 ' 050 

1 

TS 

TBASE1  -2 

0300 

REF 

8 

LAST 

1298 

10,2261 

3 0065 

1 

CA 

TEMPSW 

0301 

REF 

1 

10,2262 

6 2265 

1 

AD 

B IT14C0M 

0302 

REF 

380 

LAST 

1297 

10,2263 

10  COO 

0 

CCS 

A 

0303 

10,2264 

12  265 

0 

NOOP 

0304 

10,2265 

17777 

0 

B IT14C0M 

OCT 

17777 

0305 

REF 

2 

LAST 

1298 

10,2266 

1 2272 

0 

TCF 

BEL0W4 

0306 

10,2267 

0 0006 

1 

BEL0W3 

EXTEND 

0307 

REF 

31 

LAST 

122  1 

10,2270 

3 0025 

0 

DCA 

T I ME  2 

030  8 

REF 

1 

10,2271 

53'  151 

1 

DXCH 

LONGBASE 

0309 

REF 

5 

LAST 

1298 

10,2272 

4 0C62 

1 

BEL0W4 

CS 

TEMPP 

0310 

REF 

5 

LAST 

1298 

10,2273 

50  C61 

0 

NDX 

TEMPG 

031  1 

REF 

6 

LAST 

1298 

10,2274 

54  747 

1 

TS 

- PHASE  1 -2 

0312 

REF 

339 

LAST 

1297 

10,2275 

3 0 C02 

0 

CA 

Q 

0313 

REF 

5 

LAST 

1297 

10,2276 

22  C 73 

0 

LXCH 

TEMPBBCN 

031  4 

10,2277 

0 0C03 

1 

REL INT 

031  5 

10,2300 

52  006 

0 

DTCB 
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START  STORING  THE  PHASE  INFORMATION 

IS  IT  A PHASCHNG  OR  A 2PHSCHNG 
I T : S A PHASCHNG 

I T : S A 2PHSCHNG 


C AN: T GET  HERE 


SEE  IF  WF  SHOULD  SET  TBASE  OR  LONGBASE 
SET  LONGBASE  ONLY 
SET  NEITHER 

SFT  TBASF  TO  BEGIN  WITH 


SHALL  WE  NOW  SET  LONGBASE 


*****  CANT  GET  HERE  ***** 
*****  CANT  GET  HERE  ***** 
NO  WE  NEED  ONLY  SET  TBASF 

SET  LONGBASE 


AND  STORE  THE  FINAL  PART  OF  THE  PHASE 


GAP:  ASSEMBLE'  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L PHASE  TABLE  MAINTENANCE 


0316 

REF 

6 

LAST 

1298 

10,2301 

2 2 C 73 

0 

C0N2 

LXCH 

T EMPBBCN 

031  7 

REF 

6 

LAST 

1298 

10,2302 

3 0062 

0 

CA 

TEMPP 

0318 

REF 

6 

LAST 

1298 

10, 2303 

50  C 6 1 

0 

NDX 

TEMPG 

0319 

REF 

3 

LAST 

1298 

10,2304 

54  750 

1 

TS 

PHASE  1 -2 

0320 

REF 

2 

LAST 

1296 

10,2305 

3 C C 70 

0 

CA 

TEMPPR 

0321 

REF 

7 

LAST 

1299 

10,2306 

50  061 

0 

NDX 

TEMPG 

032  2 

REF 

2 

LAST 

129  6 

10,2307 

55' 051 

0 

TS 

PHSPRDT1  -2 

032  3 

10,2310 

0 C 006 

1 

EXTEND 

0324 

REF 

3 

LAST 

1297 

10,231 1 

3 C064 

0 

DC  A 

TEMPNM 

0325 

REF 

8 

LAST 

1299 

10,2312 

50  C 61 

0 

NDX 

TEMPG 

0326 

RFF 

2 

LAST 

1297 

10, 2313 

53*435 

0 

DXCH 

PHSNAME 1 -2 

032  7 

REF 

1 

10,2314 

1 2236 

0 

TCF 

BELOW  1 

032  8 

7771 

BLOCK 

03 

0329 

REF 

4 

LAST 

745 

6000 

SETLOC 

FFTAG6 

0330 

7771 

BANK 

0331 

REF 

1 

COUNT* 

$ $/PHASE 

0332 

REF 

33 

LAST 

1297 

7771 

7 4731 

1 

CHECKS 

MASK 

B I T 1 2 

0333 

REF 

381 

LAST 

1298 

7 7 72 

10  000 

0 

CCS 

4 

0334 

REF 

2 

LAST 

1296 

7773 

1 5425 

0 

TCF 

GETPRIO 

0335 

REF 

1 

7774 

1 5404 

0 

TCF 

OLOPRIO 
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SINCE  THIS  IS  OF  TYPE  B,  THIS  BIT  SHEIULO 
RE  HERE  IF  WF  APE  TO  GET  A NEW  PRIORITY 
IT  IS,  SO  GET  NEW  PRIORITY 


IT  ISN : T , USE  THE  OLO  PRIORITY 


GAP: 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L RESTARTS  ROUTINE 


0001 

01,3530 

BANK 

01 

0002 

REF 

2 

LAST 

250 

01,2000 

SETLCC 

RESTART 

0003 

01,3530 

BANK 

0004 

REF 

3 

LAST 

1299 

E3 , 1436 

EB ANK= 

PHSNAME1 

0005 

REF 

1 

COUNT  * 

$$/RSROU 

0006 

REF 

769 

LAST 

1264 

01,3530 

3 C 16 1 

1 

RESTARTS  CA 

MPAC  +5 

0007 

01,3531 

6 CCOO 

1 

DOUBLE 

0008 

REF 

1 

01,3532 

54  155 

1 

TS 

TEMP2G 

0009 

REF 

l 

01,3533 

3 3 7 72 

0 

CA 

PHS2CADR 

0010 

REF 

1 

01, 3534 

54  157 

0 

TS 

TEMPSWCH 

001  1 

REF 

1 

01,3535 

3 3567 

0 

CA 

RTRNCADR 

0012 

REF 

1 

01,3536 

54  707 

0 

TS 

GOLOC  +2 

0013 

REF 

1 

01,3537 

3 C 1 54 

1 

CA 

TEMPPHS 

0014 

REF 

10 

LAST 

1283 

01,3540 

7 5000 

0 

MASK 

OCT  1400 

0015 

REF 

302 

LAST 

1299 

01,3541 

10  000 

0 

CCS 

A 

0016 

REF 

1 

01, 3542 

1 3553 

c 

TCF 

I TSAVAR 

0017 

REF 

2 

LAST 

1300 

0 1, 3543 

10  154 

0 

GETPART2  CCS 

TEMPPHS 

0018 

REF 

383 

LAST 

1300 

01,3544 

10  000 

0 

CCS 

A 

0019 

REF 

1 

01,3545 

1 3653 

0 

TCF 

I TS AT  BL 

0020 

REF 

3 

LAST 

1297 

01,3546 

3 5015 

0 

CA 

PRI014 

0021 

REF 

41 

LAST 

1206 

01,3547 

0 5076 

0 

TC 

F INDVAC 

0022 

REF 

48 

LAST 

1296 

E3 ,1400 

EBANK= 

LST1 

0023 

REF 

1 

01,3550 

03051 

0 

2CADR 

INITDSP 

0023 

REF 

1 

01,3551 

20103 

1 

0024 

REF 

2 

LAST 

1300 

01,3552 

0 3567 

0 

TC 

RTRNCADR 

0025 

REF 

11 

LAST 

1300 

01,3553 

7 5000 

0 

ITSAVAR  MASK 

0CT1400 

002  6 

REF 

384 

LAST 

1300 

01,3554 

10  000 

0 

CCS 

A 

002  7 

REF 

1 

01,3555 

1 3624 

0 

TCF 

ITSLIKEB 

002  8 

01,3556 

0 0006 

1 

EXTEND 

0029 

REF 

2 

LAST 

1300 

01,3557 

5 0155 

0 

NDX 

TEMP2G 

0030 

REF 

4 

LAST 

1300 

01,3560 

3 1437 

0 

DC  A 

PHSNAME l 

003  1 

REF 

2 

LAST 

1300 

01,3561 

52  706 

1 

DXCH 

GOLOC 

0032 

REF 

3 

LAST 

1300 

01,3562 

3 0154 

1 

CA 

TEMPPHS 

0033 

REF 

3 

LAST 

1297 

01,3563 

7 4750 

0 

MASK 

0CT7 

0034 

REF 

3 

LAST 

1153 

01,3564 

6 7767 

0 

AD 

M INUS2 

0035 

REF 

385 

LAST 

1300 

01,3565 

10  000 

0 

CCS 

A 

003  6 

REF 

1 

01,3566 

1 3736 

1 

TCF 

I TSLNGCL 

0037 

REF 

7 

LAST 

1264 

01,3567 

0 4622 

0 

RTRNCADR  TC 

SWRETURN 
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GOPROG  MUST  SWITCH  TO  THIS  FRANK 


GET  GROUP  NUMBER  -1 
SAVF  FOR  INDEXING 


SET  UP  EXIT  IN  CASE  IT  IS  AN  EVEN 
TABLE  PHASE 

TO  SAVE  TIME  ASSUME  IT  WILL  G FT  NEXT 
GROUP  AFTER  THIS 


IS  IT  A VARIABLE  OR  TABLE  RESTART 
I T : S A VARIABLE  RESTART 

IS  IT  AN  X.l  RESTART 

NO,  ITS  A TABLE  RESTART 

IT  IS  AN  X.l  RESTART,  THEREFORE  START 
THE  DISPLAY  RESTART  JOB 


FINISHED  WITH  THIS  GROUP,  GET  NEXT  ONE 
IS  IT  TYPE  B ? 

YES, IT  IS  TYPE  B 

STORE  THE  JOB  (OR  TASK)  2CADR  FOR  EXIT 


SEE  IF  THIS  IS  A JOB,  TASK,  OR  A LONGCAI 


ITS  A LONGCALL 


CANT  GET  HERE 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 


4 

RESTARTS 

'ROUT  INE 

003  8 

REF  1 

01,3570 

1 3572 

0 

TCF 

I TSAWAI T 

0039 

REF  1 

01,3571 

1 3637 

1 

TCF 

I TSAJOB 

0040 

REF  1 

01, 3572 

3 4343 

1 

I TSAWA I T 

CA 

WTLTC ADR 

0041 

REF  3 

LAST 

1300 

01,3573 

54  704 

0 

TS 

GOLOC  -1 

0042 

REF  3 

LAST 

1300 

01 , 3574 

50  155 

0 

NDX 

TEMP2G 

0043 

REF  3 

LAST 

1299 

01,3575 

3 1053 

0 

CA 

PHSPRDT 1 

0044 

REF  386 

LAST 

1300 

01,3576 

10  000 

0 

1 IMETEST 

CCS 

A 

004  5 

REF  387 

LAST 

1301 

01,3577 

24  000 

1 

INC  R 

A 

0046 

REF  1 

01,3600 

1 3603 

0 

TCF 

F INDTIME 

004  7 

REF  1 

01 , 3601 

1 5440 

0 

TCF 

I TSINDIR 

004  8 

REF  1 

01,3602 

1 3622 

0 

TCF 

I MED  I ATE 

R0049 

*****  THIS  MUST  BE  IN  FIXED  1 

FIXED  ***** 

0050 

5440 

BLOCK 

02 

0051 

REF  1 

4000 

SETLOC 

FFTAG2 

005  2 

5440 

BANK 

0053 

REF  1 

COUNT* 

$ $ /R  SROU 

0054 

REF  4 

LAST 

1301 

5440 

22  706 

0 

ITSINDIR 

LXCH 

GOLOC  +1 

0055 

REF  2 

LAST 

1296 

5441 

22  006 

1 

LXCH 

BB 

0056 

REF  388 

LAST 

130  1 

5442 

5 C 000 

1 

NDX 

A 

005  7 

5443 

3 0C01 

0 

CA 

1 

0058 

REF  3 

LAST 

1301 

5444 

22  006 

1 

LXCH 

BB 

0059 

REF  5 

LAST 

130  1 

5 445 

22  706 

0 

LXCH 

GOLOC  +1 

0060 

REF  2 

LAST 

130  1 

5446 

1 3603 

0 

TCF 

F INDTIME 

R0061 

*****  yql 

1 MAY 

RETUR 

N TO  SWITCHED  FIXED 

***** 

0062 

01,3603 

BANK 

01 

0063 

REF  3 

LAST 

1300 

01,2000 

SETLOC 

RESTART 

0064 

01,3603 

BANK 

0065 

REF  2 LAST  1 

300  TO 

1301  : 

43  43* 

COUNT* 

$ $/RSRQU 

0066 

01,3603 

4 0000 

0 

F INDT IME 

COM 

0067 

REF  245 

LAST 

1290 

01 , 3604 

54  001 

l 

TS 

L 

0068 

REF  4 

LAST 

1301 

01,3605 

50  155 

0 

NDX 

TEMP2G 

0069 

REF  4 

LAST 

1298 

01,3606 

4 1052 

0 

CS 

T8ASEI 

0070 

01,3607 

0 0006 

1 

EXTEND 

0071 

REF  26 

LAST 

1298 

01,3610 

60  025 

0 

SU 

T I ME  1 

007  2 

REF  389 

LAST 

130  1 

01,3611 

10  000 

0 

CCS 

A 

0073 

01,3612 

4 COOO 

0 

COM 
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ITS  A JOB 

SET  UP  WATTL I ST  CALL 

DIRECTLY  STORED 

IS  IT  AN  IMMEDIATE  RESTART 
NO, 

FIND  OUT  WHEN  IT  SHOULD  BEGIN 

STORED  INDIRECTLY 

IT  WANTS  AM  IMMEDIATE  RFSTART 


GET  THE  CORRECT  E BANK  IN  CASE  THIS  IS 
SWITCHED  ERRASIBLE 

GET  THE  TIME  INDIRECTLY 
RESTORE  THE  BB  AND  GOLOC 
FIND  OUT  WHEN  IT  SHOULD  BEGIN 


MAKE  NEGITIVE  SINCE  IT  WILL  BE  SUBTRACTD 
AND  SAVE 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L RESTARTS  ROUTINE 


0074 

REF 

2 

LAST 

169 

01,3613 

6 

7752 

0 

AD 

OCT3777  6 

0075 

REF 

115 

LAST 

1296 

01,3614 

6 

4744 

1 

AD 

ONE 

0076 

REF 

246 

LAST 

1301 

01,3615 

6 

0001 

0 

AD 

L 

0077 

REF 

390 

LAST 

1301 

01,3616 

10 

COO 

0 

CCS 

A 

0078 

REF 

235 

LAST 

1282 

01, 3617 

3 

4746 

0 

CA 

ZERO 

0079 

01,3620 

1 

3622 

0 

TCF 

+ 2 

0080 

01, 3621 

1 

3622 

0 

TCF 

+ 1 

008  1 

REF 

116 

LAST 

1302 

01 , 3622 

6 

4744 

1 

IMED I ATE 

AD 

ONE 

0082 

REF 

6 

LAST 

1301 

01,3623 

0 

C 704 

1 

TC 

GOLOC  -1 

0083 

REF 

3 

LAST 

1300 

01,3624 

3 

3567 

0 

ITSLIKEB 

CA 

RTRNCADR 

0084 

REF 

2 

LAST 

1300 

01,3625 

54 

157 

0 

TS 

TEMPSWCH 

0085 

REF 

1 

01,3626 

3 

3773 

1 

CA 

PRT2CADR 

0086 

REF 

7 

LAST 

1302 

01,3627 

54 

707 

0 

TS 

GOLOC  +2 

0087 

REF 

4 

LAST 

1300 

01, 3o30 

3 

0154 

1 

CA 

TEMPPHS 

0088 

REF 

1 

01,3631 

7 

6115 

0 

MASK 

OCT 1 77 

0089 

REF 

5 

LAST 

1302 

01 ,3632 

54 

154 

0 

TS 

TEMPPHS 

0090 

01,3633 

0 

0006 

1 

EXTEND 

009  1 

REF 

5 

LAST 

1301 

01,3634 

5 

0155 

0 

NDX 

TEMP2G 

009? 

REF 

5 

LAST 

1300 

01, 3635 

3 

1437 

0 

DCA 

PHSNAME 1 

0093 

REF 

8 

LAST 

1302 

01,3636 

52 

706 

1 

DXCH 

GOLOC 

0094 

REF 

fc 

LAST 

1302 

01 ,3637 

50 

155 

0 

I TSAJdB 

NDX 

TEMP2G 

0095 

REF 

4 

LAST 

1301 

01,3640 

3 

1053 

0 

CA 

PHSPRDT 1 

0096 

REF 

5 

LAST 

1302 

01,3641 

54 

7 04 

0 

CHKNOVAC 

TS 

GOLOC  -1 

0097 

01,3642 

0 

0006 

1 

EXTEND 

0098 

REF 

1 

01,3643 

6 

3647 

1 

BZMF 

ITSNOVAC 

0099 

REF 

1 

01,3644 

3 

4345 

1 

CAF 

F VACCADR 

0100 

REF 

10 

LAST 

1302 

01, 3645 

56 

704 

1 

XCH 

GOLOC  -1 

0101 

REF 

11 

LAST 

1302 

01,3646 

0 

C 7 04 

1 

TC 

GOLOC  -1 

0102 

REF 

1 

01,3647 

3 

4342 

0 

I TSNOVAC 

CAF 

NOVAC ADR 

0103 

REF 

12 

LAST 

1302 

01,3650 

56 

704 

1 

XCH 

GOLOC  -1 

0104 

01,3651 

4 

CCOO 

0 

COM 

0105 

REF 

13 

LAST 

1302 

01 , 3652 

0 

C 704 

1 

TC 

GOLOC  -1 

0106 

REF 

41 

LAST 

1287 

01,3653 

54 

020 

1 

I TSATBL 

TS 

C YR 

0107 

REF 

42 

LAST 

1302 

01,3654 

10 

020 

1 

CCS 

CYR 

0108 

01,3655 

1 

3656 

0 

TCF 

+ 1 

0109 

REF 

1 

01,3656 

1 

3754 

0 

TCF 

I TSEVEN 

0110 

REF 

4 

LAST 

1302 

01,3657 

3 

3567 

0 

CA 

RTRNCADR 

0111 

REF 

14 

LAST 

L302 

01 , 3660 

54 

707 

0 

TS 

GOLOC  +2 

0112 

REF 

6 

LAST 

1302 

OL ,3661 

3 

0154 

1 

CA 

TEMPPHS 

0113 

REF 

25 

LAST 

1290 

01 , 3662 

54 

021 

0 

TS 

SR 

0114 

REF 

26 

LAST 

1302 

01,3663 

6 

0021 

1 

AD 

SR 
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TYPE  B,  SO  STORE  RETURN  IN 

TEMPSWCH  IN  CASE  OF  AN  EVEN  PH ASF 

SET  UP  FX IT  TO  GF T TABLE  PART  OF  THIS 
VARIABLE  TYPF  OF  PHASE 

MAKE  THE  PHASE  LOOK  RIGHT  FOR  THE  TABLE 
PART  OF  THIS  VARIABLE  PHASE 


OBTAIN  THE  JOB:S  2C ADR 


NOW  ADD  THE  PRIORITY  AND  LET : S GO 

SAVF  PRIO  UNTIL  WE  SEE  IF  ITS 
A FINDVAC  OR  A NOVAC 


POSITIVE,  SET  UP  FINDVAC  CALL. 

PICK  UP  PRIO, 

AND  GO 

NEGATIVE , 

SET  UP  NOVAC  CALL, 

CORRECT  PRIO, 

AND  GO 

FIND  OUT  IF  THE  PHASE  IS  ODD  OR  F VFN 
I T : S E VFN 


IN  CASE  THIS  IS  THE  SECOND  PART  OF  A 
TYPF  B RFSTAPT,  WE  MEED  PROPER  EXIT 

SET  UP  POINTER  FOR  FINDING  OUR  PLACE  IN 
THE  RESTART  TABLES 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  202LL12-16L  17 

i 

L RESTARTS  ROUTINE 


0115 

REF 

7 

LAST 

1302 

01 ,3664 

50  155 

0 

NDX 

TEMP2G 

0116 

REF 

1 

01,3665 

6 2C03 

0 

AD 

SIZETAB  +1 

0117 

REF 

1 

01,3666 

54  156 

1 

TS 

POINTER 

0118 

01,3667 

0 C006 

1 

C0NTBL2 

EXTEND 

0119 

REF 

2 

LAST 

1303 

01,3670 

5 0156 

0 

NDX 

POINTER 

0120 

REF 

l 

01,3671 

3 2002 

i 

OCA 

CADRTAB 

012  1 

REF 

15 

LAST 

1302 

01,3672 

22  706 

0 

LXCH 

GOLOC  +1 

0122 

REF 

351 

LAST 

1302 

01,3673 

10  COO 

0 

CCS 

A 

0123 

REF 

352 

LAST 

1303 

01,3674 

24  000 

1 

INCR 

A 

0124 

REF 

1 

01,3675 

1 3750 

1 

TCF 

I TSA J0B2 

0125 

REF 

353 

LAST 

1303 

01,3676 

24  COO 

1 

I NCR 

A 

0126 

REF 

16 

LAST 

1303 

01,3677 

54  705 

1 

TS 

GOLOC 

0127 

REF 

2 

LAST 

130  1 

01,3700 

3 4343 

1 

CA 

WTLTCADR 

0128 

REF 

17 

LAST 

1303 

01,370  1 

54  704 

0 

TS 

GOLOC  -1 

0129 

REF 

18 

LAST 

1303 

01,3702 

3 0706 

0 

CA 

GOLOC  +1 

0130 

REF 

36 

LAST 

1282 

01,3703 

7 4733 

0 

MASK 

BIT10 

013  1 

REF 

354 

LAST 

1303 

01 ,3704 

10  000 

0 

CCS 

A 

AO  13  2 

A0133 

0134 

REF 

1 

01,3705 

1 3 743 

0 

TCF 

I TSWTLST 

0135 

REF 

3 

LAST 

1303 

01,3706 

50  156 

0 

NDX 

POINTER 

0136 

REF 

1 

01 ,3707 

3 2000 

0 

CA 

PRDTTAB 

0137 

REF 

1 

01,3710 

1 5447 

1 

TCF 

I TSLGCL1 

R0138 

*****  This  MUST  BE  IN 

FIXED  FIXED  ***** 

0139 

5447 

BLOCK 

02 

0140 

REF 

2 

LAST 

1301 

4000 

SETLOC 

FFTAG2 

0141 

5447 

BANK 

0142 

REF 

2 

LAST  1 30  L TO 

1301  : 

7 

7* 

COUNT* 

$ J/R  SROU 

0143 

REF 

19 

LAST 

1303 

5447 

22  706 

0 

I TSLGCL1 

LXCH 

GOLOC  +1 

0144 

REF 

4 

LAST 

1301 

545  0 

22  006 

1 

LXCH 

BB 

0145 

REF 

20 

LAST 

1303 

5451 

22  706 

0 

LXCH 

GOLOC  +1 

0146 

5452 

0 0006 

1 

EXTFND 

014  7 

REF 

355 

LAST 

1303 

5453 

5 CCOO 

1 

NDX 

A 

0148 

5454 

3 0001 

0 

DC  A 

0 

0149 

REF 

21 

LAST 

1303 

5 45  5 

22  706 

0 

LXCH 

GOLOC  +1 

0150 

REF 

5 

LAST 

1303 

5456 

22  006 

1 

LXCH 

BB 

0151 

REF 

22 

LAST 

1303 

5457 

22  706 

0 

LXCH 

GOLOC  +1 
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FIND  OUT  W FIAT  : S IN  THE  TABLE 

GET  THE  2C ADR 

STORE  THE  BB  INFORMATION 

IS  IT  A JOB  OR  IS  IT  TIMED 
POSITIVE,  MUST  BE  A JOB 


MUST  BE  EITHER  A WAITLIST  OR  LONGCALL 
LET-S  STORE  THE  CORRECT  CADR 

SET  UP  PUR  EXIT  TO  WAITLIST 


NOW  FIND  OUT  IF  IT  IS  A WAITLIST  CALL 
THIS  SHOULD  BE  ONE  IF  WE  HAVE  -BB 
FOR  THAT  MATTFR  SO  SHOULD  BE  BITS  9,8,7, 
6,5,  AND  LAST  BUT  NOT  LEAST  (PERHAPS  NOT 
IN  IMPORTANCE  ANYWAY.  BIT  4 
IT  IS  A WAITLIST  CALL 

OBTAIN  THE  ORIGINAL  DELTA  T 
ADDRESS  FOR  THIS  LONGCALL 

NOW  GO  GET  THE  DELTA  TIME 


OBTAIN  THE  CORRECT  E BANK 
AND  PRESFRVE  OUR  E AND  F BANKS 
GET  THE  DELTA  TIME 


RESTORE  OUR  E AND  F BANK 
RESTORE  THE  TASKS  E AND  F BANKS 
AND  PRESFRVE  OUR  L 


GAP: 


ASSEMBLE  REVISION  210  GF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L RESTARTS  ROUTINE 


0152 

REF 

1 

5460 

1 3 711 

1 

TCF 

I TSLGCL2 

R0153 

* YOU  MAY  RETURN. TO  SWITCHED  FIXED 

$ $ $ 3c  £ 

0154 

01,3711 

BANK 

01 

0155 

REF 

4 

LAST 

1301 

01 , 2000 

SETLCC 

RESTART 

0156 

01,3711 

BANK 

0157 

REF 

3 

LAST 

1301  TD 

1303: 

70  113* 

COUNT* 

ti/RSROU 

0158 

REF 

8 

LAST 

1130 

01,3711 

53'  153 

0 

I TSLGCL2 

DXCH 

LONGTIME 

0159 

01,3712 

0 0006 

1 

EXTEND 

0160 

REF 

32 

LAST 

1298 

01, 3713 

4 0025 

1 

DCS 

T IME2 

0161 

REF 

9 

LAST 

1304 

01,3714 

21*153 

0 

DAS 

LONGTIME 

0162 

01,3715 

0 0006 

1 

EXTEND 

0163 

REF 

2 

LAST 

1298 

01,3716 

3 1151 

0 

DC  A 

LONGBASE 

0164 

REF 

10 

LAST 

1304 

01,3717 

21*153 

0 

DAS 

LONGTIME 

0165 

REF 

11 

LAST 

1304 

01,3720 

11'  152 

1 

CCS 

LONGTIME 

0166 

REF 

1 

01,3721 

1 3 731 

0 

TCF 

LONGCLCL 

0167 

01,3722 

1 3724 

1 

TCF 

+ 2 

0168 

REF 

2 

LAST 

1301 

01,3723 

1 3617 

0 

TCF 

IMED1 ATE 

0169 

REF 

12 

LAST 

130  4 

01,3724 

11 ' 153 

0 

CCS 

LONGTIME 

0170 

REF 

2 

LAST 

1304 

01,3725 

1 3731 

0 

TCF 

LONGCLCL 

0171 

01 ,3726 

13  727 

1 

NOOP 

0172 

REF 

3 

LAST 

1304 

01,3727 

1 3617 

0 

TCF 

I MED  I AT  E 

0173 

REF 

4 

LAST 

1304 

01,3730 

1 3622 

0 

TCF 

IMEDIATE 

0176 

REF 

1 

01,3731 

3 3774 

0 

LONGCLCL 

CA 

L GC  LC  ADR 

0175 

REF 

23 

LAST 

1303 

01,3732 

54  704 

0 

TS 

GOLOC  -1 

0176 

01,3733 

0 0006 

1 

EXTEND 

0177 

REF 

13 

LAST 

1304 

01,3734 

3 1153 

1 

DC  A 

LONGTIME 

0178 

REF 

24 

LAST 

1304 

01,3735 

0 C 7 04 

1 

TC 

GOLOC  -1 

0179 

REF 

3 

LAST 

1303 

01 ,3736 

3 4343 

1 

I TSLNGCL 

CA 

WTLTCADR 

0180 

REF 

25 

LAST 

1304 

01,3737 

54  704 

0 

TS 

GOLOC  -1 

0181 

REF 

8 

LAST 

1303 

01,3740 

50  155 

0 

NDX 

TEMP2G 

0182 

REF 

5 

LAST 

1302 

01,3741 

4 1053 

1 

CS 

PHSPRDT 1 

0183 

REF 

2 

LAST 

1303 

01,3742 

1 5447 

1 

TCF 

ITSLGCL1 

0184 

REF 

26 

LAST 

1304 

01,3743 

4 C 706 

1 

I TSWTLST 

CS 

GOLOC  +1 

0185 

REF 

27 

LAST 

1304 

01,3744 

54  706 

1 

TS 

GOLOC  +1 

0186 

REF 

4 

LAST 

1303 

01,3745 

50  156 

0 

NDX 

POINTER 

0187 

REF 

2 

LAST 

1303 

01,3746 

3 2000 

0 

CA 

PROTTAB 

0188 

REF 

1 

01,3747 

1 3576 

1 

TCF 

TIMETEST 

17:11  MAR.  19,1971  SKIPPER  .131  PAGE  1304 
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NOW  L ET : S PROCESS  THIS  LONGCALL 


CALCULATE  TIME  LEFT 


FIND  OUT  HOW  THIS  SHOULD  BE  RESTARTED 


-3 
+ 1 

CAN: T GF T HERE  ********* 
-3 


WE  WILL  GO  TO  LONGCALL 


PREPARE  OUR  ENTRY  TO  LONGCALL 


ASSUME  IT  WILL  GO  TO  WAITLIST 

GET  THE  DELTA  T ADDRESS 
NOW  GET  THE  DELTA  TIME 
CORRECT  THE  BBCON  INFORMATION 

GET  THE  DT  AND  FIND  OUT  IF  IT  WAS  STORED 
DIRECTLY  OR  INDIRECTLY 


FIND  OUT  HOW  THE  TIME  IS  STORED 


17: 11  MAR.  19,1971 
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L 

RESTARTS 

ROUT 

INE 

USER'S  PAGE  NO.  6 E3  S4 

0189 

REF 

28 

LAST 

1304 

01,3750 

56  705 

0 

I TSAJ0B2 

XCH 

GOLOC 

STORE  THE  CADR 

0190 

REF 

5 

LAST 

1304 

01,3751 

50  156 

0 

NDX 

POINTER 

ADD  THE  PRIORITY  AND  L ET : S GO 

0191 

REF 

3 

LAST 

1304 

01,3752 

3 2000 

0 

CA 

PRDTTAB 

0192 

REF 

1 

01,3753 

1 3641 

0 

TCF 

C HKNOVAC 

0193 

REF 

3 

LAST 

1302 

01 , 3754 

3 0157 

1 

I TSEVEN 

CA 

T EMPSWCH 

SET  UP  FOR  EITHER  THE  SECOND  PART  OF  THE 

0194 

REF 

29 

LAST 

1305 

01,3755 

54  707 

0 

TS 

GOLOC  +2 

TABLE,  OR  A RETURN  FOR  THE  NEXT  GROUP 

0195 

REF 

9 

LAST 

1304 

01,3756 

50  155 

0 

NDX 

TEMP2G 

SET  UP  POINTER  FOR  OUR  LOCATION  WITHIN 

0196 

REF 

2 

LAST 

1303 

01,3757 

3 2002 

1 

CA 

SIZETAB 

THE  TABLE 

019  7 

REF 

7 

LAST 

1302 

01,3760 

6 0154 

1 

AD 

TEMPPHS 

THIS  MAY  LOOK  BAD  BUT  L ET  : S SEE  YOU  DO 

0198 

REF 

8 

LAST 

1305 

01,3761 

6 0154 

1 

AD 

TEMPPHS 

BETTER  IN  TIME  OR  NUMBERR  OF  LOCATIONS 

0199 

REF 

9 

LAST 

1305 

01,3762 

6 0 154 

1 

AD 

TEMPPHS 

0200 

REF 

6 

LAST 

1305 

01 , 3763 

54  156 

1 

TS 

POINTER 

020  1 

REF 

1 

01 ,3764 

1 3667 

1 

TCF 

C0NTBL2 

NOW  PROCESS  WHAT  IS  IN  THF  TABLE 

0202 

REF 

3b 

LAST 

1282 

01,3765 

3 6266 

0 

PHSPART2 

CA 

THREE 

SET  T 

HE  PO 

INTER  FOR  THE  S 

FCOND 

HALF  OF 

0203 

REF 

7 

LAST 

1305 

01,3766 

26  156 

1 

ADS 

POINTER 

THE  T 

ABLE 

0204 

REF 

5 

LAST 

1302 

01,3767 

3 3567 

0 

CA 

RTRNCAOR 

THIS 

WILL 

BE 

OUR  LAST  TIM 

E THROUGH  THE 

0205 

REF 

30 

LAST 

1305 

01,3770 

54  707 

0 

TS 

GOLOC  +2 

EVEN 

TABLE 

, 

SO  AFTER  IT 

GET 

THE  NEXT 

A0206 

GROUP 

0207 

REF 

2 

LAST 

1305 

01,3771 

1 3667 

1 

TCF 

C0NTBL2 

SO  LE 

T:  S G 

ET 

THE  SECOND  E 

NTRY 

IN  THE  TBL 

0208 

REF 

770 

LAST 

1300 

0154 

TEMPPHS 

EQUALS 

MPAC 

0209 

REF 

771 

LAST 

1305 

0155 

TEMP2G 

EQUALS 

MPAC  +1 

0210 

REF 

772 

LAST 

1305 

0156 

POINTER 

EQUALS 

MPAC  +2 

021  1 

REF 

773 

LAST 

1305 

0157 

TEMP  SWCH 

EQUALS 

MPAC  +3 

0213 

REF 

8 

LAST 

1283 

7767 

MINUS2 

EQUALS 

NEG2 

0214 

REF 

9 

LAST 

1108 

6115 

OCT  1 7 7 

EQUALS 

L0W7 

0215 

REF 

1 

01,3772 

03765 

0 

PHS2CADR 

GENADR 

PHSPART2 

0216 

REF 

1 

01,3773 

03543 

0 

PRT2CADR 

GEN ADR 

GETP ART  2 

0217 

REF 

5 

LAST 

1207 

01,3774 

05301 

0 

LGCLC ADR 

GENADR 

LONGCALL 

0218 

RFF 

2 

LAST 

46  3 

4345 

F VACCADR 

= 

TCFINDVC 

0219 

REF 

2 

LAST 

463 

4343 

WTLTC  ADR 

= 

TCWA IT 

0220 

REF 

2 

LAST 

462 

4342 

NOVACADR 

= 

TCNOVAC 

GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L 

IMU 

MODE 

SWITCHING 

RCUTINES 

0001 

REF 

1 

4000 

SETLOC  FFTAG3 

0002 

5461 

BANK 

0003 

RFF 

1 

E3, 1471 

EB AN  K=  COMMAND 

R0004 

FIXED 

-FIXED  ROUTINES 

• 

0005 

REF 

1 

COUNT*  $ $/ I MODE 

000  6 

REF 

236 

LAST 

1302 

5 461 

3 4 746 

0 

ZERO  I CDU 

CAE  ZERO 

0007 

REF 

18 

LAST 

1258 

5462 

54  032 

1 

TS  C DUX 

0008 

REF 

12 

LAST 

1258 

5463 

54  C33 

0 

TS  CDUY 

0009 

REF 

15 

LAST 

1258 

5464 

54  034 

1 

TS  CDUZ 

0010 

REF 

3 AO 

LAST 

1298 

5465 

0 0C02 

0 

TC  Q 

001  1 

REF 

25 

LAST 

1282 

4734 

SPSCODE 

= B IT9 
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ZFRO  I CDU  COUNTERS . 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L IMU  MODE  SWITCHING  ROUTINES 


P001 2 

IMU 

ZEROING 

ROUTINE. 

0013 

11,3776 

BANK 

1 1 

001 A 

REF 

1 

07,2000 

SETLOC 

MODESW 

0015 

C7, 2701 

BANK 

0016 

REF 

1 

COUNT* 

$ $/ 1 MODE 

0017 

07,2701 

0 0004 

0 

IMUZERO 

INHINT 

0018 

REF 

49 

LAST 

541 

C7, 2702 

4 1035 

1 

cs 

DSPTAB  +110 

0019 

REF 

4 

LAST 

223 

07,2703 

7 4 762 

1 

MASK 

B ITS4S6 

002  0 

REF 

396 

LAST 

1303 

C 7, 2 704 

10  000 

0 

CCS 

A 

002  1 

REF 

1 

07,2705 

1 2711 

0 

TCF 

IMUZEROA 

0022 

REF 

43 

LAST 

1251 

C 7 , 2 706 

0 5571 

1 

TC 

ALARM 

0023 

07,2707 

CC  206 

0 

OCT 

00206 

0024 

REF 

1 

07,2710 

1 3676 

1 

TCF 

C AGE  T S T J +4 

0025 

REF 

2 

LAST 

1307 

07,2711 

0 3672 

1 

I MUZEROA 

TC 

CAGETSTJ 

R0026 

DELETE 

002  7 

REF 

38 

LAST 

903 

07,2712 

4 1300 

1 

CS 

I MODE  S33 

002  8 

REF 

2 

LAST 

860 

07,2713 

7 4764 

L 

MASK 

SUPER01 1 

002  9 

REF 

39 

LAST 

1307 

07,2714 

27*300 

1 

ADS 

I MODE  S33 

0030 

REF 

48 

LAST 

981 

07,2715 

4 1277 

0 

CS 

I MODE  S30 

003  l 

REF 

1 

07, 2716 

7 5745 

0 

MASK 

8ITS384 

0032 

REF 

49 

LAST 

1307 

07,2717 

27*277 

0 

ADS 

I MODE  S30 

0033 

REF 

5 

LAST 

1307 

C7 , 2720 

4 4762 

1 

CS 

B ITS4C6 

0034 

07,2  721 

0 0006 

1 

EXTEND 

003  5 

REF 

51 

LAST 

903 

07,2722 

03  012 

1 

WAND 

C HAN  1 2 

0036 

REF 

3 

LAST 

176 

07,2723 

0 3253 

0 

TC 

NOATTOFF 

003  7 

REF 

40 

LAST 

1282 

07,2724 

3 4740 

0 

CAF 

B IT5 

0038 

0 7,2725 

0 0006 

1 

EXTEND 

0039 

REF 

52 

LAST 

1307 

07,2726 

05  012 

1 

WOR 

C HAN  1 2 

0040 

REF 

3 

LAST 

176 

07,2727 

0 5461 

1 

TC 

ZEROICDU 

0041 

REF 

44 

LAST 

1282 

07,2730 

3 4737 

0 

CAF 

B IT6 

0042 

REF 

33 

LAST 

1130 

07,2731 

0 5205 

0 

TC 

WAITLIST 

0043 

REF 

3 

LAST 

180 

E 3 , 1474 

EBANK= 

CDUIND 

0044 

REF 

1 

07,2732 

02744 

1 

2C  ADR 

IMUZER02 

0044 

REF 

1 

07,2733 

16103 

1 

004  5 

REF 

50 

LAST 

1307 

C 7 ,2734 

4 1277 

0 

CS 

I M0DES30 

0046 

REF 

26 

LAST 

1306 

07, 2735 

7 4734 

1 

MASK 

9 I T9 

0047 

REF 

397 

LAST 

1307 

07,2736 

10  000 

0 

CCS 

A 

004  8 

REF 

1 

07,2737 

l 2742 

0 

TCF 

MODEEXIT 
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ROUTINE  TO  ZERO  ICDUS. 

OONT  ZERO  CDUS  IF  IMU  IN  GIMBAL  LOCK  AND 
COARSE  ALIGN  ( GIM8AL  RUNAWAY  PROTECTION) 


IF  SO. 


IMMEDIATE  FAILURE. 


DISABLE  DAP  AUTO  AND  HOLD  MODES 
RIT5  FOR  GROUND 


INHIBIT  ICDUFAIL  AND  IMUFAT1  (IN  CASE  WE 
JUST  CAME  OUT  OF  COARSE  ALIGN). 


SEND  ZERO  ENCODE  WITH  COARSE  AND  ERROR 
COUNTER  DISABLED. 


TURN  OFF  NO  ATT  LAMP. 


WAIT  320  MS  TO  GIVE  AGS  ADEQUATE  TIME  TO 
RECEIVE  ITS  PULSE  TRAIN. 


SEE  IF  IMU  OPERATING  AND  ALARM  IF  NOT 


GAP:  ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


IMU 

MODE 

SWITCHING 

ROUTINES 

0049 

REF 

44 

LAST 

1307 

C7, 2740 

0 

5571 

1 

TC 

ALARM 

0050 

07,2741 

00210 

1 

OCT 

2 10 

0051 

C7, 2742 

0 

0003 

1 

MCDEEX IT 

RELINT 

0052 

REF 

8 

LAST 

1300 

07,2743 

1 

4622 

1 

TCF 

SW  RETURN 

0053 

REF 

1 

07,2744 

0 

3660 

1 

IMUZER02 

TC 

CAGETEST 

0054 

REF 

4 

LAST 

1307 

07,2745 

0 

5461 

1 

TC 

ZERO  I CDU 

0055 

REF 

41 

LAST 

1307 

07, 2746 

4 

4740 

1 

CS 

B IT5 

0056 

07,2747 

0 

0006 

1 

EXTEND 

0057 

REF 

53 

LAST 

1307 

C 7, 2750 

03 

012 

1 

WAND 

CHAN12 

0058 

REF 

28 

LAST 

1282 

C 7,  2751 

3 

4732 

0 

CAF 

BIT11 

0059 

REF 

8 

LAST 

898 

07,2752 

0 

5226 

1 

TC 

V ARDELAY 

0060 

REF 

2 

LAST 

1308 

07, 2753 

0 

3660 

1 

I MUZER03 

TC 

CAGETFST 

0061 

REF 

2 

LAST 

1307 

07,2754 

4 

5745 

0 

CS 

BITS3S4 

0062 

REF 

51 

LAST 

1307 

07,2755 

7 

12  77 

0 

MASK 

I MODE  S3 0 

0063 

REF 

52 

LAST 

1308 

07,2756 

55 

• 277 

0 

TS 

I MODE  S30 

0064 

REF 

3 

LAST 

1307 

07,2757 

4 

4764 

1 

CS 

SUPER01  1 

0065 

REF 

4C 

LAST 

1307 

07,2760 

7 

1300 

1 

MASK 

I MODE  S33 

0066 

REF 

41 

LAST 

1308 

07,2761 

55 

•300 

1 

TS 

I MODE  S33 

0067 

REF 

50 

LAST 

964 

07,2762 

0 

4665 

0 

TC 

I BNKCALL 

0068 

REF 

5 

LAST 

190 

07,2763 

14703 

0 

CADR 

SETI SSW 

0069 

REF 

1 

07,2764 

1 

3633 

0 

TCF 

END  I MU 
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USFR'S  PAGE  NO.  3 F3  S4 

GENERAL  MODE-SWITCHING  EXIT. 

ZERO  COUX,  CDUY , CDUZ 
REMOVE  ZERO  OISCRETE. 

WAIT  10  SECS  FOR  CTRS  TO  FIND  GIMBALS 

REMOVE  IMUFAIL  AND  ICDUFAIL  INHIBIT. 

ENABLE  DAP  AUTO  AND  HOLD  MODES 
BIT5  FOR  GROUND 


SET  ISS  WARNING  IF  EITHER  OF  ABOVE  ARE 
PRESENT. 


GAP: 
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L 

IMU 

MODE 

SWITCHING 

ROUTINES 

USER*  S PAGE  NO.  4 E3  S4 

P007  0 

IMU 

COARSE 

ALIGN  MODE. 

007  1 

07,2765 

0 0004 

0 

I MUCOARS 

INHINT 

0072 

REF 

3 

LAST 

1307 

07,2766 

0 3672 

1 

TC 

CAGETST  J 

0073 

REF 

2 

LAST 

179 

07,2767 

0 3131 

1 

TC 

SETCOARS 

0074 

REF 

22 

LAST 

1282 

07,2770 

3 6263 

0 

CAF 

SIX 

0075 

REF 

34 

LAST 

1307 

07,2771 

0 5205 

0 

TC 

WAITLIST 

0076 

REF 

4 

LAST 

1307 

E3 , 1474 

EBANK= 

COUIND 

007  7 

REF 

1 

07,2772 

02775 

0 

2C  ADR 

COARS 

0077 

REF 

1 

07,2773 

16103 

1 

0078 

REF 

2 

LAST 

1307 

07,2774 

1 2742 

0 

TCF 

MODEEXIT 

0079 

REF 

3 

LAST 

1308 

07,2775 

0 3660 

1 

COARS 

TC 

CAGETEST 

0080 

REF 

45 

LAST 

1307 

07, 2776 

3 4737 

0 

CAF 

B IT6 

ENABLE  ALL  THREE  ISS  CDU  FRR OR  COUNTERS 

0081 

07,2777 

0 0006 

1 

EXTEND 

0082 

REF 

54 

LAST 

1308 

C 7 , 3 000 

05  012 

1 

WOR 

CHAN  12 

0083 

REF 

77 

LAST 

1297 

07,3001 

3 4 743 

0 

CAF 

TWO 

SET  CDU  INDICATOR 

0084 

REF 

5 

LAST 

1309 

07,3002 

55 1 474 

0 

CHARS  1 

TS 

CDUIND 

0085 

REF 

6 

LAST 

1309 

07,3003 

5 1 ' 4 74 

1 

INDEX 

CDUIND 

COMPUTE  THETAD  - THETAA  IN  1:S 

0086 

REF 

25 

LAST 

1251 

07,3004 

3 C321 

1 

CA 

THETAD 

COMPLEMENT  FORM 

0087 

07,3005 

0 0006 

1 

EXTEND 

0088 

REF 

7 

LAST 

1309 

C 7 , 3006 

5 14  74 

1 

INDEX 

CDUIND 

0089 

REF 

19 

LAST 

1306 

07,3007 

20  C 32 

1 

MSU 

C DUX 

0090 

07,3010 

0 0006 

1 

EXTEND 

0091 

REF 

40 

LAST 

1282 

07,301  1 

7 4 730 

0 

MP 

BIT13 

SHIFT  RIGHT  2 

0092 

REF 

247 

LAST 

1302 

07,3012 

56  001 

0 

XCH 

L 

ROUND 

0093 

07,3013 

6 COOO 

1 

DOUBLE 

0094 

REF 

39 

LAST 

1297 

07,3014 

54  061 

1 

TS 

I TEMPI 

0095 

07, 3015 

1 3017 

0 

TCF 

+ 2 

0096 

REF 

248 

LAST 

1309 

07, 3016 

26  001 

1 

ADS 

L 

0097 

REF 

8 

LAST 

1309 

07,3017 

51 '474 

1 

INDEX 

CDUIND 

DIFFERENCE  TH  BE  COMPUTED 

0098 

REF 

2 

LAST 

1306 

07,3020 

2 3 1 4 7 1 

1 

LXCH 

COMMAND 

0099 

REF 

9 

LAST 

1309 

07,302  1 

1 1 ' 474 

0 

CCS 

CDUIND 

0100 

REF 

1 

07,3022 

0 3 002 

0 

TC 

C OAR  SI 

0101 

REF 

78 

LAST 

1309 

07,3023 

3 4743 

0 

CAF 

TWO 

MINIMUM  OF  4 MS  WAIT 

0102 

REF 

9 

LAST 

1308 

07,3024 

0 5226 

1 

TC 

V ARDELAY 

GAP: 


ASSEMBLE  REVISION  2IC  OF  AGC  PROGRAM  LUMINARY  BY 


I MU 

MCDE 

SWITCHING 

ROUT  I NES 

0103 

REF 

4 

LAST 

1309 

07,3025 

0 3660 

1 

C0ARS2 

0104 

REF 

40 

LAST 

1309 

C 7 , 302  6 

54  C 6 1 

1 

010  5 

REF 

79 

LAST 

1309 

C7 , 3027 

3 4 743 

0 

0106 

REF 

10 

LAST 

1309 

C7, 3030 

55,474 

0 

+3 

0107 

REF 

11 

LAST 

1310 

07,3031 

51 '474 

1 

010  8 

REF 

3 

LAST 

1309 

07,3032 

11*471 

0 

0109 

REF 

l 

C7, 3033 

0 3C37 

0 

0110 

REF 

1 

07,3034 

0 3046 

0 

0111 

REF 

1 

C 7 , 303  5 

0 3104 

1 

0112 

REF 

2 

LAST 

1310 

C 7,  3036 

0 3C46 

0 

0113 

REF 

1 

07,3037 

6 3764 

1 

COMPOS 

0114 

07,3040 

0 C 006 

1 

0115 

REF 

1 

07,3041 

6 3114 

0 

0116 

REF 

12 

LAST 

1310 

07,3042 

51*474 

1 

0117 

KEF 

4 

LAST 

1310 

07,3043 

55*471 

0 

0118 

REF 

1 

07,3044 

4 3765 

1 

0119 

REF 

41 

LAST 

1 3 1 C 

07,3045 

24  061 

0 

NEXTCDU 

0120 

REF 

26 

LAST 

1283 

07,3046 

6 4745 

0 

0121 

REF 

13 

LAST 

L310 

C 7,3047 

51*474 

1 

0122 

REF 

3 

LAST 

294 

07,3050 

54  C50 

0 

0123 

REF 

14 

LAST 

1310 

07,3051 

1 1 ' 474 

0 

012  4 

REF 

1 

C7 ,3052 

0 3030 

1 

0125 

REF 

42 

LAST 

1310 

07,3053 

10  061 

1 

0126 

REF 

1 

07,3054 

1 3120 

0 

0127 

REF 

16 

LAST 

1119 

07,3055 

0 5223 

1 

0128 

07,3056 

00226 

1 

0129 

REF 

80 

LAST 

1310 

07,3057 

3 4743 

0 

0130 

REF 

43 

LAST 

1310 

07,3060 

54  061 

1 CHKCORS 

0131 

REF 

398 

LAST 

1307 

07,3061 

50  000 

1 

0132 

REF 

20 

LAST 

1309 

C 7 , 3 062 

3 0032 

0 

013  3 

07,3063 

0 0006 

1 

0134 

RFF 

44 

LAST 

1310 

07,3064 

5 0061 

0 

0135 

REF 

26 

LAST 

1309 

07,3065 

20  321 

0 

0136 

REF 

399 

LAST 

1310 

C 7 , 3 066 

10  000 

0 

0137 

REF 

1 

07,3067 

1 3075 

1 

0138 

REF 

1 

C7, 3070 

1 3072 

0 

0139 

REF 

2 

LAST 

1310 

C7, 3071 

1 3075 

1 
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TC 

CAGETEST 

DONT  CONTINUE  IF  CAGED. 

TS 

I TEMPI 

SETS  TO  +0. 

CAF 

TWO 

SET  C DU  INDICATOR 

TS 

CDUIND 

INDEX 

C DUIND 

CCS 

COMMAND 

NUMBER  OF  PULSES  REQUIRED 

TC 

COMPOS 

GREATER  THAN  MAX  ALLOWED 

TC 

NEXTCDU  +1 

TC 

COMNEG 

TC 

NEXTCDU  +1 

AD 

-COMMAX 

COMMAX  = MAX  NUMBER  OF  PULSES  ALLOWED 

EXTEND 

MINUS  ONE 

BZMF 

COMZERO 

INDEX 

CDUIND 

TS 

COMMAND 

REDUCE  COMMAND  BY  MAX  NUMBER  OF  PULSES 

CS 

-COMMAX- 

ALLOWED 

INCR 

I TEMP  1 

AD 

NEGO 

INDEX 

CDUIND 

TS 

CDUXCMD 

SET  UP  COMMAND  REGISTER. 

CCS 

CDUIND 

TC 

C0ARS2  +3 

CCS 

I TEMPI 

SEE  IF  ANY  PULSES  TO  GO  OUT. 

TC  F 

S ENDPULS 

TC 

F IXDELAY 

wait  for  gimbals  TO  SETTLE. 

DEC 

1 50 

CAF 

T WO 

AT  END  OF  COMMAND, 

CHECK  TO  SEE 

THAT 

TS 

I TEMPI 

GIMBALS  ARE  WITHIN 

2 DEGREES  OF 

THETAD. 

INDEX 

A 

CA 

C DUX 

EXTEND 

INDEX 

I TEMP  1 

MSU 

THETAD 

CCS 

A 

TC  F 

COARSFRR 

TC  F 

C0RSCHK2 

TCP 

COARSERR 

GAP: 
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L 

IMU 

MODE 

0140 

REF 

45 

0141 

REF 

1 

0142 

REF 

2 

0143 

REF 

1 

0144 

0145 

REF 

2 

0146 

RFF 

45 

0147 

0148 

REF 

2 

0149 

0150 

0151 

REF 

2 

0152 

0153 

REF 

2 

0154 

REF 

15 

0155 

REF 

5 

0156 

REF 

2 

0157 

REF 

3 

0158 

REF 

237 

0159 

REF 

16 

0160 

REF 

6 

0161 

REF 

4 

0162 

KEF 

3 

0163 

0164 

REF 

17 

0165 

REF 

1 

0166 

REF 

2 

0167 

REF 

46 

0168 

0169 

REF 

55 

0170 

REF 

68 

SWITCHING 

ROUTINES 

LAST 

1310 

C 7 , 3 07  2 
07,3073 

LAST 

1308 

07.3074 

07.3075 

07.3076 

LAST 

1310 

C7, 3077 

LAST 

1308 

07.3100 

07.3101 

LAST 

175 

C7, 3102 
07,3103 

LAST 

13  10 

07.3104 

07.3105 

LAST 

1310 

C 7, 3 106 
07,3107 

LAST 

1310 

07,3110 

LAST 

1310 

07,3111 

LAST 

1310 

07,3112 

LAST 

1310 

07,3113 

LAST 

1306 

07,3114 

LAST 

131  l 

07,3115 

LAST 

1311 

07,3116 

LAST 

1311 

07,3117 

LAST 

548 

07.3120 

07.3121 

LAST 

900 

C 7, 3 12  2 
07,3123 

LAST 

1310 

07,3  124 

LAST 

1309 

07.3125 

07. 3126 

LAST 

1309 

07,3127 

LAST 

1206 

07, 3130 

10  061 

1 

C0RSCHK2 

1 3060 

0 

1 3633 

0 

6 3103 

0 

COARSERR 

0 0006 

1 

6 3 C 72 

1 

0 5571 

1 

0C211 

0 

1 3656 

0 

77511 

1 

COARSTQL 

6 3764 

1 

CCMNEG 

0 C 006 

1 

6 3114 

0 

4 OCOO 

0 

5 1 1 4 74 

1 

55' 471 

0 

3 3765 

0 

0 3045 

0 

3 4 746 

0 

CCMZERG 

51 '474 

1 

5 7 ' 47 1 

1 

0 3045 

0 

3 

7 761 

0 SENDPULS 

0 

0006 

1 

05 

014 

1 

3 

3766 

0 

1 

3024 

0 

3 

4737 

0 CA+ECE 

0 

0006 

1 

05 

C 1 2 

1 

0 

5263 

0 

CCS 

I TEMPI 

TCF 

CHKCORS 

TCF 

END  I MU 

AD 

COARSTOL 

EXTEND 

BZMF 

C0RSCHK2 

TC 

ALARM 

OCT 

211 

TCF 

IMUBAD 

DEC 

-.01111 

AD 

-COMMAX 

EXTEND 

BZMF 

COMZERO 

COM 

INDEX 

CDUIND 

TS 

COMMAND 

CA 

-COMMAX- 

TC 

NEXTCDU 

CAF 

ZERO 

INDEX 

CDUIND 

XCH 

COMMAND 

TC 

NEXT  COU 

CAF 

13,14,15 

EXTEND 

WOR 

C HAN  1 4 

CAF 

600MS 

TCF 

C0ARS2  - 

CAF 

B IT6 

EXTEND 

WOR 

CHAN12 

TC 

T ASKOVER 
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USER' S PAGE  NO.  6 E3  S4 

ENO  OF  COARSE  ALIGNMENT. 

2 DEGREES. 

COARSE  ALIGN  ERROR. 

2 DEGREES  SCALED  AT  HALF-REVOLUTIONS 


THEN  TO  VARDELAY 


ENABLE  ALL  THREF  [SS  CDU  ERROR  COUNTERS 


GAP: 

L 

0 1.7  1 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

019  1 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

020  1 

0202 

0203 

020  4 

0205 

0206 
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IMU  MODE  SWITCHING  ROUTINES 


USER' S PAGE  NO.  7 E3  S4 


REF 

48 

LAST 

1282 

C 7 , 3 1 3 1 

3 

4741 

1 

07, 3132 

0 

0006 

1 

REF 

56 

LAST 

1311 

07,3133 

02 

C 12 

0 

REF 

400 

LAST 

1310 

C7, 3134 

10 

1 COO 

0 

REF 

341 

LAST 

1306 

07,3135 

0 

0002 

0 

REF 

47 

LAST 

1311 

07,3136 

4 

4737 

1 

07,3137 

0 

0006 

1 

REF 

57 

LAST 

1312 

07, 3 140 

03 

012 

1 

REF 

37 

LAST 

1303 

07,3141 

4 

4733 

0 

07,3142 

0 

0006 

1 

REF 

18 

LAST 

1311 

0 7,3  143 

03 

C 14 

1 

REF 

238 

LAST 

1311 

0 7 , 3 1 44 

4 

4746 

1 

REF 

2 

LAST 

185 

C7 » 3 145 

54 

047 

0 

REF 

49 

LAST 

1312 

07,3146 

3 

4741 

1 

07,3147 

0 

0006 

1 

REF 

58 

LAST 

1312 

C 7 , 3 150 

05 

012 

1 

REF 

50 

LAST 

1307 

07,3151 

4 

1035 

l 

REF 

1 

07,3  152 

7 

3 174 

1 

REF 

51 

LAST 

1312 

C7 , 3 153 

27 

' 035 

1 

REF 

42 

LAST 

1308 

07,3154 

4 

1300 

1 

REF 

48 

LAST 

1312 

07,3155 

7 

4737 

1 

REF 

43 

LAST 

1312 

07,3 156 

27 

• 300 

1 

REF 

53 

LAST 

1308 

07,3157 

4 

1277 

0 

REF 

50 

LAST 

1312 

07,3 160 

7 

4741 

0 

REF 

54 

LAST 

1312 

07,3161 

27 

'277 

0 

REF 

15 

LAST 

534 

07,3162 

4 

4740 

1 

REF 

35 

LAST 

903 

07,3163 

7 

0075 

1 

REF 

36 

LAST 

13  12 

07,3164 

54 

075 

1 

REF 

3 

LAST 

86  C 

07,3165 

4 

4726 

1 

REF 

23 

LAST 

1119 

07, 3166 

7 

0076 

1 

REF 

24 

LAST 

1312 

07,3167 

54 

076 

1 

REF 

6 

LAST 

974 

07,3170 

4 

4730 

0 

REF 

12 

LAST 

974 

07,3171 

7 

0077 

0 

REF 

13 

LAST 

1312 

07,3172 

54 

077 

0 

REF 

342 

LAST 

1312 

07,3173 

0 

0 00  2 

0 

07,3174  40010  1 


CAF 

BIT4 

EXTEND 

RAND 

CHAN  12 

CCS 

A 

TC 

Q 

CS 

B IT6 

EXTEND 

WAND 

C HAN  1 2 

CS 

BIT10 

EXTEND 

WAND 

CHAN  14 

CS 

ZERO 

TS 

GYRUCMD 

CAF 

B IT4 

EXTEND 

WOR 

CHAN  12 

CS 

DSPTAB  + 1 1 D 

MASK 

OCT4001 0 

ADS 

DSPTAB  + 1 1 D 

CS 

I MOD  E S3  3 

MASK 

B IT6 

ADS 

I MODE  S33 

CS 

I M0DES30 

MASK 

B IT4 

ADS 

I MODE  S30 

CS 

T RAC  KB  I T 

MASK 

FLAGWRD1 

TS 

FLAGWRD 1 

CS 

DRFT8IT 

MASK 

FLAGWRD2  N 

TS 

FLAGWRD2 

CS 

REFSMBIT 

MASK 

FLAGWRD3 

TS 

FLAGWRD3 

TC 

Q 

OCT 40010  OCT 


40010 


BYPASS  IF  ALREADY  IN  COARSE  ALIGN 


CLEAR  ISS  ERROR  COUNTERS 


KNOCK  DOWN  GYRO  ACTIVITY 


PUT  ISS  IN  COARSE  ALIGN 


TURN  ON  NO  ATT  LAMP 


DISABLE  DAP  AUTO  AND  HOLD  MODES 


DISABLE  IMUFAIL 


CLEAR  TRACK  FLAG 


CLEAR  DRIFT  FLAG 


CLEAR  REFSMMAT  FLAG 


GAP: 
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PAGE  1313 

L 

IMU 

MCDE 

SWITCHING 

ROUTINES 

USER*  S PAGE  NO.  8 

E3  S4 

P0207- 

IMU 

FINE  ALIGN  MODE 

SWITCH. 

0208 

07,3175 

0 0004 

0 

IMUF INE 

INHINT 

0209 

REF 

4 

LAST 

1309 

C7, 3 1 76 

0 3672 

1 

TC 

CAGETSTJ 

SEE  IF  IMU  BEING  CAGED. 

0210 

REF 

1 

07, 3177 

4 3763 

1 

cs 

B ITS4-5 

RESFT  ZERO  AND  COARSE 

021  1 

07,3200 

0 0006 

1 

EXTEND 

0212 

REF 

59 

LAST 

1312 

C 7, 3201 

03  C 1 2 

1 

WAND 

CHAN  12 

0213 

REF 

49 

LAST 

1312 

C 7 ,3202 

4 4737 

1 

CS 

B IT6 

ENSURE  DAP  AUTO  AND  HOLD  MODES 

ENABLFD 

0214 

REF 

44 

LAST 

1312 

07,3203 

7 1300 

1 

MASK 

I MODE  S3  3 

021  5 

REF 

45 

LAST 

1313 

07,3204 

55*300 

1 

TS 

I MODE  S33 

0216 

REF 

4 

LAST 

1307 

07, 3205 

0 3253 

0 

TC 

NOATTOFF 

0217 

REF 

38 

LAST 

1312 

07, 3206 

3 4733 

1 

CAF 

BIT  10 

IMU  F A 1 1 WAS  INHIBITED  DURING 

THE 

0218 

REF 

35 

LAST 

1309 

07,3207 

0 5205 

0 

TC 

WAITLIST 

PRESUMABLY  PRECEDING  COARSE  ALIGN.  LEAVE 

0219 

REF 

17 

LAST 

1311 

E3 , 1474 

EBANK= 

CDUIND 

0220 

REF 

1 

07,3210 

03221 

0 

2C  ADR 

I FA  I LOK 

TT  ON  FOR  THE  FIRST  5 SECS  OF 

FINE  ALIGN 

0220 

REF 

1 

07,321  1 

16103 

1 

0221 

REF 

5 

LAST 

964 

07, 3212 

3 A 7 7 1 

1 

CAF 

2 SECS 

0222 

REF 

36 

LAST 

1313 

07,3213 

0 5205 

0 

TC 

WAITLIST 

0223 

REF 

18 

LAST 

1313 

E 3 , 1474 

EBANK= 

CDUIND 

0224 

REF 

1 

07,3214 

03  2 1 7 

0 

2C  ADR 

IMUF INED 

0224 

REF 

1 

07,3215 

16103 

1 

0226 

REF 

3 

LAST 

1309 

07,3216 

1 2742 

0 

TCF 

MODEEX IT 

0226 

REF 

5 

LAST 

1310 

07,3217 

0 3660 

1 

IMUF INED 

TC 

CAGETEST 

SEE  THAT  NO  ONE  HAS  CAGED  THF 

IMU  . 

0227 

REF 

3 

LAST 

1311 

C 7 , 3 220 

1 3633 

0 

TCF 

ENDIMU 

GAP: 
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L 

IMU 

MCDb 

SWITCHING 

ROUT INES 

0228 

REF 

1 

07,3221 

0 

3665 

1 

I FAI LOK 

TC 

CAGETSTQ 

0229 

REF 

69 

LAST 

1311 

07,3222 

1 

5263 

1 

TCF 

TASKOVER 

023  0 

REF 

51 

LAST 

1312 

07,3223 

3 

4 741 

1 

CAF 

B IT4 

023  1 

C 7 , 3224 

0 

C006 

1 

EXTFND 

0232 

REF 

60 

LAST 

1313 

07,3225 

02 

C 1 2 

0 

RAND 

CHAM  12 

0233 

REF 

401 

LAST 

1312 

07,3226 

10 

000 

0 

CCS 

A 

0234 

REF 

70 

LAST 

1314 

07,3227 

1 

5 2 63 

1 

TCF 

TASKOVER 

0235 

REF 

55 

I.AST 

1312 

07,3230 

4 

1277 

0 

CS 

I MODE  S30 

023  6 

REF 

41 

LAST 

1309 

07,3231 

7 

4 730 

0 

MASK 

BIT13 

0237 

RFF 

56 

LAST 

1314 

07,3232 

27 

'277 

0 

ADS 

I MODES30 

0238 

REF 

52 

LAST 

1314 

07,3233 

4 

4741 

0 

CS 

B IT4 

0239 

REF 

57 

LAST 

1314 

07,3234 

7 

1277 

0 

PFAI L0K2 

MASK 

I MOD E S3  0 

0240 

REF 

58 

LAST 

1314 

07,3235 

55 

'277 

0 

TS 

I MODE  S30 

024  1 

REF 

51 

LAST 

1308 

07,3236 

0 

4665 

0 

TC 

I BNKC ALL 

0242 

REF 

6 

LAST 

1308 

07,3237 

14703 

0 

CADR 

SETI SSW 

0243 

REF 

71 

LAST 

1314 

07,3240 

1 

5263 

1 

TCF 

TASKOVER 

0244 

REF 

2 

LAST 

1314 

07,3241 

0 

3665 

1 

PFAI LOK 

TC 

CAGETSTQ 

0245 

REF 

72 

LAST 

1314 

07, 3242 

1 

5263 

1 

TCF 

TASKOVER 

0246 

REF 

59 

LAST 

1314 

07,3243 

4 

1277 

0 

CS 

I MODES30 

024  7 

REF 

39 

LAST 

1313 

07,3244 

7 

4733 

0 

MASK 

BIT10 

0248 

REF 

60 

LAST 

1314 

07,3245 

27 

'277 

0 

ADS 

I MODE  S3  0 

0249 

REF 

46 

LAST 

1313 

07,3246 

4 

1300 

1 

CS 

I MODES33 

0250 

REF 

42 

LAST 

1314 

07,3247 

7 

4730 

0 

MASK 

B I T 1 3 

0251 

REF 

47 

LAST 

1314 

07,3250 

27 

' 300 

1 

ADS 

I MODE  S3  3 

0252 

REF 

42 

LAST 

1308 

07,3251 

4 

4 740 

1 

CS 

BIT5 

0253 

REF 

1 

07,3252 

1 

3234 

0 

TCF 

PFAI L0K2 

0254 

REF 

2 

LAST 

1312 

07,3253 

4 

3 174 

1 

NOATTOFF 

CS 

0CT40010 

0255 

REF 

52 

LAST 

1312 

07,3254 

7 

1035 

1 

MASK 

DSPTAB  + 1 1 D 

0256 

REF 

45 

LAST 

1295 

07,3255 

6 

4726 

0 

AD 

B IT15 

0257 

REF 

53 

LAST 

1314 

07,3256 

55 

' C35 

1 

TS 

DSPTAB  +1  ID 

0258 

REF 

343 

LAST 

1312 

07,3257 

C 

CC02 

0 

TC 

Q 
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USER'S  PAGE  NO.  9 E3  S4 

ENABLE  IMU  F I AL  UNLESS  IMU  BEING  CAGFD. 
IT  IS. 

DONT  RESET  IMU  FAIL  INHIBIT  IF  SOMEONE 
HAS  GONE  INTO  COARSE  ALIGN. 


RESET  IMUFAIL. 


THE  ISS  WARNING  LIGHT  MAY  COME  ON  NOW 
THAT  THE  INHIBIT  HAS  BEFN  REMOVEO. 

ENABLE  PIP  FAIL  PROG  ALARM. 

RESET  IMU  AND  PIPA  FAIL  BITS. 


SUBROUTINE  TO  TURN  OFF  NO  ATT  LAMP 
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L IMU  MODE  SWITCHING  ROUTINES 

P0259  ROUITNES  TO  INITIATE  AND  TERMINATE  PROGRAM  USE  OF  THE  PIPAS.  NO 


0261 

REF 

239 

LAST 

1312 

07,3260 

4 4746 

1 

P IPUSE 

CS 

ZERO 

0262 

REF 

17 

LAST 

949 

■0  7,3  261 

54  037 

1 

TS 

P IPAX 

0263 

REF 

8 

LAST 

949 

07,3262 

54  C40 

1 

TS 

P IPAY 

0264 

REF 

1 1 

LAST 

949 

07,3263 

54  C41 

0 

TS 

P IPAZ 

0265 

REF 

3 

LAST 

1314 

07,3264 

0 3665 

1 

PIPUSE1 

TC 

C AGETSTQ 

0266 

REF 

9 

LAST 

1308 

07,3265 

1 4622 

1 

TCF 

SWRETURN 

0267 

07,3266 

0 0004 

0 

INHINT 

0268 

REF 

55 

LAST 

1282 

07,3267 

4 4 744 

0 

CS 

B IT1 

0269 

REF 

61 

LAST 

1314 

07,3270 

7 1277 

0 

MASK 

I MODE  S30 

0270 

REF 

62 

L AST 

1315 

07,3271 

55 ' 277 

0 

TS 

I MODE  S30 

0271 

REF 

52 

LAST 

1314 

07,3272 

0 4665 

0 

PIPFREE2 

TC 

I BNKC ALL 

0272 

REF 

7 

LAST 

1314 

07,3273 

14703 

0 

CADR 

SETISSW 

0273 

REF 

4 

LAST 

1313 

07,3274 

1 2742 

0 

TCF 

MODEEXIT 

0274 

07,3275 

0 0004 

0 

PIPFREE 

INHINT 

0275 

REF 

63 

LAST 

1315 

07,3276 

4 1277 

0 

CS 

I M0DES30 

0276 

REF 

56 

LAST 

1315 

C7, 3277 

7 4744 

0 

MASK 

B I T 1 

0277 

REF 

64 

LAST 

1315 

07,3300 

27*277 

0 

ADS 

I MODE  S30 

0278 

RFF 

40 

LAST 

1314 

07,3301 

7 4733 

0 

MASK 

B I T 1 0 

0279 

REF 

402 

LAST 

1314 

07,3302 

10  000 

0 

CCS 

A 

0280 

REF 

5 

LAST 

1315 

07,3303 

1 2742 

0 

TCF 

MODEFXIT 

0281 

REF 

46 

LAST 

1311 

07,3304 

0 5571 

1 

TC 

ALARM 

0282 

07,3305 

0C212 

0 

oct 

212 

0283 

07,3306 

0 0004 

0 

INHINT 

0284 

REF 

1 

07,3307 

1 3272 

1 

TCF 

P IPFREE2 

USER'S  PAGE  NO.  10  E3  S4 

IMUSTALL  REQUIRFD  IN  EITHER  CASE. 


DO  NOT  ENABLE  PIPA  FAIL  IF  IMU  IS  CAGED 


IF  PIPA  FAILS  FROM  NOW  ON  [UNTIL 
PIPFREE),  LIGHT  ISS  WARNING. 


ISS  WARNING  MIGHT  COME  ON  NOW. 
(OR  GO  OFF  ON  PIPFREE  ) . 


PROGRAM  DONE  WITH  PIPAS.  DONT  LIGHT 
ISS  WARNING. 


IF  PIP  FAIL  ON,  DO  PROG  ALSRM  AND  RESET 
ISS  WARNING. 


GAP: 

L 

P0285 

R0287 

R0289 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

030  1 

0302 

030  3 

0303 

030  4 

0305 

0306 

0307 

0308 

0309 

0310 

031  1 

0312 

0313 

0314 

0315 

0316 

031  7 

0318 

031  9 

0320 

032  1 

0322 

0323 

0324 

0325 

0326 

0327 
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IMU  MCDE  SWITCHING  ROUTINES  USER'S  PAGE  NO.  11  E3  S4 

THE  FOLLOWING  ROUTINE  TORQUES  THE  IRIGS  ACCORDING  TO  DOUBLE  PRECISION  INPUTS  IN  THE  SIX  REGISTERS 
BEGINNING  AT  THE  ECADR  ARRIVING  IN  A.  THE  MINIMUM  SIZE  OF  ANY  PULSE  TRAIN  IS  16  PULSES  (.25  CDU  COUNTS).  THE 
UNSENT  PORTION  OF  THE  COMMAND  IS  LEFT  INTACT  IN  THE  INPUT  COMMAND  REGISTERS. 


F3, 1400 

EBANK= 

1400 

VARIABLE,  ACTUALLY. 

REF 

774 

LAST 

1305 

07,3310 

54  161 

0 

I MUPULSE 

TS 

MPAC  +5 

SAVE  ARRIVING  ECADR. 

REF 

5 

LAST 

1313 

07,3311 

0 3672 

1 

TC 

C AGE  T ST  J 

OONT  PROCEED  IF  IMU  BEING  CAGED. 

REF 

2 

LAST 

233 

07,3312 

11*311 

1 

CCS 

L GYRO 

SEE  IF  GYROS  BUSY. 

REF 

, 1 

07,3313 

0 3354 

0 

TC 

GYROBUSY 

SLEEP  . 

REF 

775 

LAST 

1316 

07,3314 

54  156 

l 

TS 

MPAC  +2 

REF 

50 

LAST 

1313 

07, 3315 

3 4 737 

0 

CAF 

B IT6 

ENABLE  THE  POWER  SUPPLY. 

07,3316 

0 0006 

1 

EXTEND 

REF 

19 

LAST 

1312 

07,3317 

05  014 

1 

WOR 

CHAN  14 

REF 

29 

LAST 

1232 

07,3320 

3 4742 

1 

CAF 

FOUR 

REF 

37 

LAST 

1313 

07,3321 

0 5205 

0 

GWAKE2 

TC 

WAITLIST 

(IF  A JOB  WAS  PUT  TO  SLEFP , THE 

POWER 

REF 

19 

LAST 

1313 

E3 , 1474 

EBA  NK  = 

C DU  I ND 

SUPPLY  IS  LEFT  ON  BY  THE  WAKING 

JOB  ) . 

REF 

1 

07,3322 

C3372 

1 

2CADR 

S T RT  GYRO 

REF 

1 

07,3323 

16  103 

1 

REF 

776 

LAST 

1316 

07,3324 

3 0161 

1 

CA 

MPAC  +5 

SET  UP  EBANK,  SAVING  CALLER'S  EBANK  Ff 

REF 

79 

LAST 

1286 

07, 3325 

56  003 

1 

XCH 

E BANK 

RESTORATION  ON  RETURN. 

REF 

777 

LAST 

1316 

07,3326 

56  161 

1 

XCH 

MPAC  +5 

REF 

3 

LAST 

1316 

07,3327 

55*  311 

1 

TS 

LGYRO 

RESERVES  GYRF)S. 

REF 

17 

LAST 

1283 

07,3330 

7 4350 

1 

MASK 

LOWS 

REF 

46 

LAST 

13  1 1 

07,3331 

54  061 

1 

TS 

I TEMP  l 

REF 

81 

LAST 

1310 

07,3332 

3 4743 

0 

CAF 

TWO 

FORCE  SIGN  AGREEMENT  ON  INPUTS. 

REF 

778 

LAST 

1316 

07,3333 

54  157 

0 

GYROAGRE 

TS 

MPAC  +3 

07,3334 

6 0000 

1 

DOUBLE 

REF 

47 

LAST 

1316 

07,3335 

6 CC61 

0 

AD 

I TEMPI 

REF 

779 

LAST 

1316 

07,3336 

54  160 

1 

TS 

MPAC  +4 

07,3337 

0 0006 

1 

EXTEND 

REF 

403 

LAST 

1315 

C 7 , 3340 

5 CCOO 

1 

INDEX 

A 

07,3341 

3 1401 

0 

DC  A 

1400 

REF 

780 

LAST 

1316 

07,3342 

52  155 

1 

DXCH 

MPAC 

REF 

15 

LAST 

1221 

07,3343 

0 7300 

0 

TC 

TPAGREE 

REF 

781 

LAST 

1316 

07,3344 

52  155 

1 

DXCH 

MPAC 

REF 

782 

LAST 

1316 

07,3345 

50  160 

0 

INDEX 

MPAC  +4 

07,3346 

53*401 

1 

DXCH 

1400 

REF 

783 

LAST 

1316 

07,3347 

10  157 

0 

CCS 

MPAC  +3 

REF 

1 

07,3350 

1 3333 

0 

TCF 

GYROAGRE 

REF 

784 

LAST 

1316 

07,3351 

3 0161 

1 

CA 

MPAC  +5 

RESTORE  CALLER'S  EBANK. 

REF 

80 

LAST 

1316 

07,3352 

54  C03 

0 

TS 

EBANK 

REF 

6 

LAST 

1315 

07,3353 

1 2742 

0 

TCF 

MODE  E X I T 

GAP: 
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L 

IMU 

MCOE 

SWITCHING  ROUTINES 

USER*  S PAGE  NO.  12  F3  S4 

P0328 

ROUTINES  TO 

ALLOW  TORQUING 

BY 

ONLY  ONE 

JOB  AT 

A TIME. 

0329 

07,3354 

C 0006 

1 

GYROBUSY 

EXTEND 

SAVE  RETURN  2FCADR . 

0330 

REF 

22 

LAST 

1033 

07,3355 

3 0134 

1 

DC  A 

BUF2 

033  1 

REF 

785 

LAST 

1316 

07,3356 

52  155 

1 

OXCH 

M P AC 

033  2 

REF 

1 

07,3357 

3 33  71 

1 

REGSLEEP 

CAF 

LGWAKF 

033  3 

REF 

5 

LAST 

1216 

07,3360 

1 5124 

1 

TCF 

JOBSLEEP 

0334 

RFF 

4 

LAST 

1316 

07,3361 

11*311 

1 

GWAKE 

CCS 

LGYRO 

WHEN  AWAKENED,  SEE  IF  GYROS  STILL  BUSY. 

0335 

REF 

1 

07,3362 

1 3357 

1 

TCF 

REGSLEFP 

IF  SO,  SLEEP  SUMF  MORE. 

0336 

REF 

786 

LAST 

1317 

C7, 3363 

54  156 

1 

TS 

MPAC  +2 

033  7 

07,3364 

0 0006 

1 

EXTEND 

033  8 

REF 

787 

LAST 

1317 

C 7 , 3365 

3 0155 

0 

DC  A 

MPAC 

033  9 

REF 

23 

LAST 

1317 

07,3366 

52  134 

0 

DXCH 

BUF2 

RESTORE  SWRETURN  INFO. 

034  0 

REF 

117 

LAST 

1302 

07,3367 

3 4744 

1 

CAF 

ONE 

034  1 

REF 

1 

07,3370 

1 33  21 

0 

TCF 

GWAKE2 

0342 

REF 

1 

07,3371 

17361 

0 

LGWAKE 

CADR 

GWAKE 
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L 

[MU 

MODE 

SWITCHING 

ROUTINES 

USER’S  PAGE  NO.  13 

P0343 

GYRO1 

-TOROUING  WA  ITL 

1ST  TASKS. 

0344 

REF 

1 

07,3372 

4 3630 

0 

STRTGYRO 

cs 

GDESELCT 

DE-SELECT  LAST  GYRO. 

0345 

07,3373 

0 0006 

1 

EXTEND 

0346 

REF 

20 

LAST 

1316 

C 7,33  74 

03  014 

1 

WAND 

CHAN  14 

034  7 

REF 

1 

C 7 , 3 3 75 

0 3646 

0 

TC 

CAGETSTG 

0348 

REF 

5 

LAST 

1317 

07,3376 

3 1311 

0 

STRTGYR2 

CA 

LGYRO 

JUMP  ON  PHASE  COUNTER  IN  BITS 

0349 

07,3377 

0 0006 

1 

EXTEND 

0350 

REF 

53 

LAST 

1314 

07, 3400 

7 4741 

0 

MP 

B IT4 

0351 

RFF 

404 

LAST 

1316 

07,3401 

5C  000 

1 

INDEX 

A 

035  2 

07,3402 

1 3403 

l 

TC  F 

+ 1 

0353 

REF 

1 

C 7, 3403 

0 3420 

1 

TC 

GSELECT 

=0.  DO  Y GYRO. 

0354 

07,3404 

00202 

1 

OCT 

00202 

035  5 

REF 

2 

LAST 

1318 

C 7, 34  C5 

0 3420 

1 

TC 

GSELECT 

=1.  DO  Z GYRO. 

0356 

07,3406 

0C302 

0 

OCT 

00302 

035  7 

REF 

3 

LAST 

1318 

07,3407 

0 3416 

1 

TC 

GSELECT  -2 

=2.  DO  X GYRO. 

035  8 

07,3410 

00,100 

0 

OCT 

00100 

0359 

REF 

240 

LAST 

1315 

07,3411 

3 4746 

0 

CAF 

ZERO 

=3.  DONE 

0360 

REF 

6 

LAST 

1318 

07,3412 

55*311 

1 

TS 

LGYRO 

0361 

REF 

2 

LAST 

1317 

07, 3413 

3 3371 

1 

CAF 

LGWAKE 

WAKE  A POSSIBLE  SLEEPING  JOB. 

0362 

REF 

6 

LAST 

1217 

07,3414 

0 5130 

0 

TC 

JOBWAKE 

0363 

REF 

2 

LAST 

1313 

07,3415 

l 3217 

1 

NORESET 

TCF 

IMUF INED 

DO  NOT  RESET  POWER  SUPPLY 

PAGE  1318 
E3  S4 


13-14. 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY 


L I MU  MODE  SWITCHING  ROUTINES 


0364 

REF 

30 

LAST 

1316 

07,3416 

4 

4742 

0 

036  5 

REF 

7 

LAST 

1318 

07,3417 

27 

•311 

1 

0366 

REF 

344 

LAST 

1314 

07,3420 

50 

002 

0 

0367 

07,3421 

3 

0000 

1 

0368 

REF 

10 

LAST 

1297 

07,3422 

54 

064 

1 

0369 

REF 

22 

LAST 

129C 

07,3423 

7 

4750 

0 

0370 

REF 

43 

LAST 

1314 

07,3424 

6 

4730 

1 

0371 

REF 

8 

LAST 

1319 

07,3425 

27 

'311 

1 

0372 

REF 

81 

LAST 

1316 

07,3426 

54 

003 

0 

0373 

REF 

18 

LAST 

1316 

07,3427 

7 

A 3 50 

1 

0374 

REF 

48. 

LAST 

1316 

07,3430 

54 

061 

1 

0375 

REF 

23 

LAST 

1319 

07,3431 

4 

4750 

0 

0376 

REF 

11 

LAST 

1319 

07,3432 

7 

0064 

1 

037  7 

REF 

12 

LAST 

1319 

07,3433 

54 

064 

1 

0378 

07,3434 

0 

0006 

1 

0379 

REF 

49 

LAST 

1319 

07,3435 

5 

0061 

0 

0380 

07,3436 

3 

1401 

0 

0381 

REF 

27 

LAST 

1297 

07,3437 

52 

071 

0 

0382 

REF 

28 

LAST 

1319 

07,3440 

10 

070 

1 

0383 

REF 

1 

07,3441 

1 

3454 

0 

0384 

07,3442 

1 

3444 

1 

0305 

REF 

1 

07,3443 

1 

3611 

0 

0386 

REF 

8 

LAST 

1297 

07,3444 

10 

071 

0 

0387 

REF 

1 

07,3445 

1 

3451 

0 

038  8 

REF 

1 

07,3446 

1 

3376 

1 

0389 

REF 

1 

07,3447 

1 

3606 

0 

0390 

REF 

2 

LAST 

1319 

07,3450 

1 

3376 

1 

-2 

GSELECT 


ASA  20211 L2-161 
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cs 

FOUR 

ADS 

LGYRO 

INDEX 

0 

CAF 

0 

TS 

I TEMP4 

MASK 

SEVEN 

AD 

BIT13 

ADS 

LGYRO 

TS 

EBANK 

MASK 

L0W8 

TS 

I TEMPI 

CS 

SEVEN 

MASK 

I TEMP4 

TS 

ITFMP4 

EXTEND 

INDEX 

I TEMP  1 

DC  A 

1400 

DXCH 

RUPTREG1 

CCS 

RUPTREG1 

TCF 

MAJ  + 

TCF 

+ 2 

TCF 

MAJ- 

CCS 

RUPTREG2 

TCF 

MIN+ 

TCF 

STRTGYR2 

TCF 

MIN- 

TCF 

STRTGYR2 

USFR ' S PAGE  NO.  14  E3  S4 

SPECIAL  ENTRY  TO  REGRESS  LGYRO  FOR  X. 


SELECT  GYRO. 

PACKED  WORD  CONTAINS  GYRO  SELECT  BITS 
AND  INCREMENT  TO  LGYRO. 


MOVE  DP  COMMAND  TO  RUPTREGS  FOR  TESTING. 


GAP: 


ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L 

IMU 

MODE 

SWITC 

HING 

ROUTINES 

0391 

REF 

1 

07,3451 

6 3505 

1 

M IN+ 

AD 

0392 

07,3452 

0 0006 

1 

EXTEND 

0393 

REF 

3 

LAST 

1319 

07,3453 

6 3376 

0 

BZMF 

0394 

07,3454 

0 0006 

1 

MAJ  + 

EXTEND 

0395 

REF 

1 

07,3455 

3 3632 

0 

DC  A 

0396 

REF 

29 

LAST 

1319 

C 7, 3456 

20  071 

0 

DAS 

0397 

REF 

13 

LAST 

1319 

07,3457 

3 0064 

0 

CA 

0398 

07,3460 

0 0006 

1 

EXTEND 

039  9 

REF 

21 

LAST 

1318 

07,3461 

05  014 

1 

WOR 

0400 

REF 

10 

LAST 

1305 

07, 3462 

3 6115 

1 

CAF 

04C  1 

REF 

9 

LAST 

1319 

07,3463 

7 0071 

0 

MASK 

0402 

REF 

10 

LAST 

1320 

07,3464 

56  071 

1 

XCH 

0403 

07,3465 

0 0006 

1 

GMERGE 

EXTEND 

0404 

REF 

42 

LAST 

1296 

07,3466 

7 4735 

0 

MP 

040  5 

REF 

25 

LAST 

1297 

07,3467 

54  062 

1 

TS 

040  6 

REF 

30 

LAST 

1320 

07,3470 

3 0070 

0 

CA 

0407 

07,3471 

0 0006 

1 

EXTEND 

040  8 

REF 

27 

LAST 

1307 

07,3472 

7 4734 

1 

MP 

0409 

REF- 

3 1 

LAST 

1320 

07,3473 

54  070 

1 

TS 

0410 

REF 

249 

LAST 

1309 

07,3474 

3 OCOl 

0 

CA 

041  1 

07,3475 

0 0006 

1 

EXTFND 

0412 

REF 

71 

LAST 

1282 

07,3476 

7 4727 

0 

MP 

0413 

REF 

26 

LAST 

1320 

07,3477 

26  062 

1 

ADS 

0414 

07,3500 

0 0006 

1 

EXTEND 

0415 

REF 

32 

LAST 

1320 

C 7, 3501 

3 0071 

1 

DC  A 

0416 

REF 

1 

07,3502 

6 7770 

0 

AD 

0417 

REF 

405 

LAST 

1318 

07,3503 

10  COO 

0 

CCS 

041  8 

REF 

1 

07,3504 

1 3552 

1 

TCF 

0419 

07,3505 

77601 

0 

-GYROMIN 

OCT 

042  0 

07,3506 

1 3512 

0 

TCF 

0421 

REF 

72 

LAST 

1320 

07,3507 

3 4727 

1 

CAF 

042  2 

REF 

27 

LAST 

1320 

07,3510 

26  062 

1 

ADS 

0423 

REF 

24  1 

LAST 

1318 

07,3511 

3 4 746 

0 

CAF 

0424 

REF 

50 

LAST 

1319 

07,3512 

50  C61 

0 

+ 4 

INDEX 

042  5 

07,3513 

53 '401 

1 

DXCH 

-GYROMIN 

STRTGYR2 


GYROFRAC 
RUPTREG 1 

I TEMP4 

CHAN  14 

L0W7 

RUPTREG2 

RUPTREG2 

BITS 
I TEMP2 
RUPTREG1 

B I T9 

RUPTRFG1 

L 

B I T 1 4 
ITEMP2 


RUPTREG 1 
M I NU  S 1 
A 

LONGGYRO 
-176 
+ 4 

8 I T 14 

ITEMP2 

ZERO 


I TEMP  1 
1400 
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USER' S PAGE  NO.  15  E3  S4 

SMALL  POSITIVE  COMMAND.  SEE  IF  AT  LEAST 
16  GYRO  PULSES. 

DEFINITE  POSITIVE  OUTPUT. 


SELECT  POSITIVE  TORQUING  FOR  THIS  GYRO. 


LEAVE  NUMBER  OF  POSSIBLE  8192  AUGMENTS 
TO  INITIAL  COMMAND  IN  MAJOR  PART  OF  LONG 
TERM  STORAGE  AND  TRUNCATED  FRACTION 
IN  MINOR  PART.  THE  MAJOR  PART  WILL  BE 
COUNTED  DOWN  TO  ZERO  IN  THE  COURSE  OF 
PUTTING  OUT  THE  ENTIRE  COMMAND. 


INITIAL  COMMAND. 

SEE  IF  MORE  THAN  ONE  PULSE  TRAIN  NEEDED 
(MORE  THAN  16383  PULSES). 


MAY  BE  ADJUSTED  TO  SPECIFY  MINIMUM  CMO 


GAP:  ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 


L I MU  MODE  SWITCHING  ROUTINES 


042  6 

REF 

28 

LAST 

1320 

07,3514 

3 C062 

0 

CA 

I TFMP2 

042  7 

REF 

3. 

LAST 

1312 

07,3515 

54  047 

0 

L AST S EG 

TS 

GYROCMD 

042  8 

REF 

I 

C 7, 3 5 16 

0 3641 

1 

TC 

COARSTST 

0429 

REF 

4 

LAST 

1321 

07,3517 

3 004  7 

1 

CA 

GYROCMD 

043C 

07,3520 

0 0006 

1 

EXTEND 

0431 

REF 

41 

LAST 

1315 

C 7 , 3 5 2 1 

7 4 733 

0 

MP 

B I T 1 0 

0432 

REF 

37 

LAST 

1305 

07,3522 

6 6266 

0 

AD 

THREE 

0433 

REF 

38 

LAST 

1316 

07,3523 

0 5205 

0 

TC 

WAITLIST 

0434 

REF 

20 

LAST 

1316 

E 3 , 1474 

EB ANK= 

COUIND 

043  5 

REF 

1 

07,3524 

03536 

1 

2CADR 

TWOPULSE 

0435 

REF 

1 

07,3525 

16  103 

1 

043  6 

REF 

l 

07,3526 

0 3532 

0 

EXITGYRO 

TC 

GYROEXI T 

043  7 

REF 

73 

LAST 

1314 

07,3527 

1 5263 

1 

TC  F 

TASKOVER 

043  8 

REF 

49 

LAST 

1282 

07,3530 

3 4743 

0 

OUTPULSE 

CA 

B IT2 

043  9 

REF 

5 

LAST 

1321 

07,3531 

54  C47 

0 

TS 

GYROCMD 

044  0 

REF 

42 

LAST 

1321 

07,3532 

3 4733 

1 

GYRO  F X I T 

CAF 

B I T 10 

0441 

C 7 , 3 533 

0 C006 

1 

EXTEND 

044  2 

REF 

22 

LAST 

1320 

07,3534 

05  014 

1 

WOR 

CHAN  14 

0443 

REF 

345 

LAST 

1319 

07,3535 

0 CO 02 

0 

TC 

0 

0444 

REF 

28 

LAST 

1320 

07,3536 

4 4734 

1 

TWOPULSE 

CS 

B I T9 

0445 

07,3537 

0 0006 

1 

EXTEND 

044  6 

REF 

23 

LAST 

1321 

0 7, 3540 

03  014 

1 . 

WAND 

CHAN  1 4 

0447 

REF 

1 

C 7, 354 1 

0 3530 

1 

TC 

OUTPULSE 

044  8 

REF 

57 

LAST 

1315 

07,3542 

3 4 744 

l 

CA 

B IT1 

0449 

REF 

29 

LAST 

1130 

07,3543 

0 5 175 

1 

TC 

TWIDDLE 

0450 

REF 

2 

LAST 

1316 

07,3544 

03372 

1 

ADRES 

STRTGYRO 

0451 

REF 

29 

LAST 

1321 

07,3545 

3 4734 

0 

CA 

8 IT9 

0452 

07,3546 

0 C 006 

1 

EXTEND 

0453 

REF 

24 

LAST 

1321 

07,3547 

05  014 

1 

WOR 

CHAN14 

0454 

REF 

2 

LAST 

1321 

07,3550 

0 3530 

1 

TC 

OUTPULSE 

0455 

REF 

74 

LAST 

132  1 

07,3551 

1 5 2 63 

1 

TCF 

TASKOVER 

0456 

REF 

51 

LAST 

1320 

07,3552 

50  061 

0 

LONGGYRO 

INDEX 

I TEMPI 

045  7 

07,3553 

53 ' 401 

1 

DXCH 

1 4G0 

045  8 

REF 

73 

LAST 

1320 

07,3554 

3 4727 

1 

CAF 

B I T 1 4 

0459 

REF 

29 

LAST 

1321 

07,3555 

6 0062 

0 

AD 

I TEMP2 

0460 

REF 

6 

LAST 

1321 

07,3556 

54  047 

0 

TS 

GYROCMD 

046  1 

07,3557 

0 0006 

1 

AUG3 

EXTEND 

0462 

REF 

43 

LAST 

1321 

07,3560 

7 4733 

0 

MP 

B I T 1 0 

0463 

REF 

5 

LAST 

1283 

07,3561 

6 7766 

1 

AD 

NEG3 

0464 

REF 

39 

LAST 

1321 

07,3562 

0 5205 

0 

TC 

WAITLIST 

0465 

REF 

21 

LAST 

132  1 

E3, 1474 

EBANK= 

CDUIND 

046  6 

REF 

1 

07,3563 

03566 

1 

2CADR 

3 192 AUG 

046  6 

REF 

1 

07, 3564 

16103 

1 

046  7 

REF 

1 

07,3565 

1 3526 

1 

TCF 

EXITGYRO 

0468 

REF 

2 

LAST 

1321 

07,3566 

0 3641 

1 

8 192  AUG 

TC 

COARSTST 

0469 

REF 

9 

LAST 

1319 

C7, 3567 

3 1311 

0 

CA 

L GYRO 

047  C 

REF 

82 

LAST 

1319 

07,3570 

54  003 

0 

TS 

EBANK 

17:11  MAR.  19,1971  SKIPPER 
USER ' S PAGE  NO.  16 
ENTIRE  COMMAND. 
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WAITLIST  DT 

TRUNCATION  AND  PHASE  UNCERTAINTIES. 


8192.  INITIAL  COMMAND  IS  AT  LEAST  8192. 


GET  WAITLIST  DT  TO  TIME  WHFN  TRAIN  IS 
ALMOST  OUT. 


ADD  8192  PULSES  TO  GYROCMD 


GAP: 


ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


I MU 

MCDE 

SWITCHING 

ROUTINES 

047  l 

REF 

19 

LAST 

1319 

07,3571 

7 4 3 50 

1 

MASK 

L0W8 

0472 

REF 

52 

LAST 

1321 

07,3572 

54  061 

1 

TS 

I TEMPI 

04/3 

REF 

53 

LAST 

1322 

07,3573 

50  061 

0 

INDEX 

I TEMPI 

0474 

07,3574 

1 1 ' 400 

0 

CCS 

1400 

0475 

REF 

1 

07,3575 

1 3601 

1 

TCF 

A UG2 

0476 

REF 

74 

LAST 

1321 

07, 3576 

3 4727 

1 

CAF 

8 I T 1 4 

0477 

REF 

7 

LAST 

1321 

07,3577 

26  C47 

0 

ADS 

GYROCMD 

0478 

REF 

1 

07,3600 

1 3516 

1 

TCF 

L AST  S EG 

0479 

REF 

54 

LAST 

1322 

07, 3601 

50  C 6 1 

0 AUG2 

INDEX 

I TEMPI 

0480 

07,3602 

55' 400 

0 

TS 

1400 

0481 

REF 

75 

LAST 

1322 

C 7, 3603 

3 4727 

1 

CAF 

B IT  14 

0482 

REF 

8 

LAST 

1322 

07,3604 

2 6 047 

0 

ADS 

GYROCMD 

0483 

REF 

1 

07,3605 

1 3557 

1 

TCF 

AUG3 

17:11  MAR.  19,1971  SKIPPER  .131  PAGE 
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SEE  IF  THIS  IS  THE  LAST  AUG. 
MORE  TO  COME. 


COMPUTE  DT 
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GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L 

I MU 

MODE 

SWITCHING 

ROUT INES 

USER'S  PAGE 

NO.  18 

E3  S4 

0484 

REF 

2 

LAST 

1320 

C 7 , 3606 

6 3505 

1 

MIN- 

AD 

-GYROMIN 

POSSIBLE  NEGATIVE  OUTPUT. 

0435 

C 7 , 3607 

C C 006 

1 

EXTEND 

0486 

REF 

4 

LAST 

1320 

07,3610 

6 3376 

0 

BZMF 

STRTGYR2 

048  7 

07,3611 

0 0006 

1 

MAJ- 

EXTEND 

DEFINITF  NEGATIVE  OUTPUT. 

0488 

REF 

2 

LAST 

1320 

07,3612 

4 3632 

1 

DCS 

GYROFRAC 

0489 

REF 

33 

LAST 

1320 

07,3613 

20  071 

0 

DAS 

RUPTREG1 

049  0 

REF 

14 

LAST 

1320 

07,3614 

3 0064 

0 

CA 

I TEMP4 

SELECT  NEGATIVE 

TOROUING  FOR 

THIS  GYRO 

0491 

REF 

30 

LAST 

1321 

07,3615 

6 4 734 

0 

AD 

B IT9 

0492 

07,3616 

0 0006 

1 

EXTEND 

049  3 

REF 

25 

LAST 

1321 

07,3617 

05  C 14 

1 

WOR 

CHAN14 

0494 

REF 

34 

LAST 

1323 

07,3620 

4 0070 

1 

CS 

RUPTREG l 

SET  UP  RUPTREGS 

TO  FALL  INTO 

GMERGE. 

049  5 

REF 

35 

LAST 

1323 

07,3621 

54  070 

1 

TS 

RUPTREG 1 

ALL  NUMBERS  PUT 

INTO  GYROCMD 

ARE 

0496 

REF 

11 

LAST 

1320 

07,3622 

4 0071 

0 

CS 

RUPTREG? 

POSITIVE  - B I T9 

OF  CHAN  14  DETERMINES 

049  7 

REF 

11 

LAST 

1320 

07,3623 

7 6115 

0 

MASK 

LOW  7 

THE  SIGN  OF  THE 

COMMAND. 

049  8 

07, 3624 

4 0000 

0 

COM 

0499 

REF 

12 

LAST 

1323 

07,3625 

56  C 71 

1 

XCH 

RUPTREG2 

0500 

07,3626 

4 COOO 

0 

COM 

0501 

REF 

1 

07,3627 

1 3465 

1 

TCF 

GMERGE 

0502 

07,3630 

01700 

1 

GDESFLCT 

OCT 

1700 

TURN  OFF  SELECT 

AND  ACTIVITY 

BITS. 

0503 

07,3631 

00000 

1 

GYROFRAC 

2DEC 

.215  B -21 

0503 

07,3632 

00034 

0 

GAP: 


ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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L 

IMU 

M 00  E 

SWITCHING 

ROUTINES 

USER'S  PAGE  NO.  19  E3  S4 

P0504 

IMU  1 

MODE 

SWITCHING  i 

RCUT  I NES 

CCME  HERE  WHEN  ACTION  COMPLFTE. 

0505 

07,3633 

0 0006 

1 

END IMU 

EXTEND 

MODE  IS  BAD  IF  CAGE  HAS  OCCURED  OR  IF 

0506 

REF 

33 

LAST 

1114 

07,3634 

00  Oil 

1 

READ 

DSALMOUT 

ISS  WARNING  IS  ON. 

0507 

REF 

58 

LAST 

1321 

07,3635 

7 4 744 

0 

MASK 

B I T 1 

0508 

REF 

4C6 

LAST 

1320 

07,3636 

10  COO 

0 

CCS 

A 

0509 

REF 

3 

LAST 

1311 

07,3637 

1 3656 

0 

TCF 

IMU8AD 

0510 

REF 

3 

LAST 

581 

07,3640 

1 3 704 

0 

I MUGOOD 

TCF 

GOOD END 

WITH  CIA  1 = 0. 

0511 

REF 

54 

LAST 

1318 

07,3641 

3 4741 

1 

COARSTST 

CAF 

B IT4 

0512 

07,3642 

0 C006 

1 

EXTEND 

0513 

REF 

61 

LAST 

1314 

07,3643 

02  012 

0 

RAND 

C HAN  1 2 

0514 

REF 

4C7 

LAST 

1324 

07,3644 

10  000 

0 

CCS 

A 

0515 

REF 

1 

07, 3645 

1 3652 

1 

TCF 

DONTPULS 

0516 

REF 

65 

LAST 

1315 

07, 3646 

4 12  77 

0 

CAGETSTG 

CS 

I MODE  S3  0 

0517 

REF 

51 

LAST 

1316 

07,3647 

7 4737 

1 

MASK 

B I T 6 

0518 

REF 

4C8 

LAST 

1324 

07,3650 

10  COO 

0 

CCS 

A 

0519 

REF 

346 

LAST 

1321 

07,3651 

0 0002 

0 

TC 

Q 

0520 

REF 

242 

LAST 

1320 

07,3652 

3 4746 

0 

DONTPULS 

CAF 

ZERO 

0521 

REF 

10 

LAST 

1321 

07,3653 

55'  311 

1 

TS 

LGYRO 

0522 

REF 

3 

LAST 

1318 

07,3654 

3 3371 

1 

CAF 

LGWAKE 

0523 

REF 

7 

LAST 

1318 

07,3655 

0 5130 

0 

TC 

JOBWAKE 

052  4 

REF 

243 

LAST 

1324 

C 7 , 3656 

3 A 746 

0 

I MU6AD 

CAF 

ZERO 

0525 

REF 

2 

LAST 

581 

07,3657 

l 3701 

0 

TCF 

B ADEND 

0526 

REF 

52 

LAST 

1324 

07,3660 

3 4737 

0 

CAGE  TEST 

CAF 

BIT6 

SUBROUTINE  TO  TERMINATE  IMU  MODE 

0527 

REF 

66 

LAST 

1324 

07,3661 

7 1277 

0 

MASK 

I MODE  S30 

SWITCH  IF  IMU  HAS  BEEN  CAGED. 

0528 

REF 

4C9 

LAST 

1324 

07,3662 

10  000 

0 

CCS 

A 

0529 

REF 

4 

LAST 

1324 

07,3663 

1 3656 

0 

TCF 

I MUBAD 

DIRECTLY. 

0530 

REF 

347 

LAST 

1324 

07,3664 

0 0002 

0 

TC 

Q 

WITH  CIA)  = +0. 

0531 

REF 

67 

LAST 

1324 

07,3665 

4 1277 

0 

C AGETSTQ 

CS 

I MODE  S30 

SKIP  IF  IMU  NOT  BEING  CAGED. 

0532 

REF 

53 

LAST 

1324 

0 7 , 3 666 

7 4737 

1 

MASK 

8 IT6 

0533 

REF 

410 

LAST 

1324 

07,3667 

10  000 

0 

CCS 

A 

0534 

REF 

348 

LAST 

1324 

C 7 , 36  70 

24  002 

0 

INCR 

Q 

0535 

REF 

349 

LAST 

1324 

07,3671 

0 0002 

0 

TC 

Q 

0536 

REF 

68 

LAST 

1324 

07,3672 

4 1277 

0 

C AGE  T ST  J 

CS 

I MODE  S30 

IF  DURING  MODE  SWITCH  INITIALIZATION 

0537 

REF 

54 

LAST 

1324 

07,3673 

7 4737 

1 

MASK 

B IT6 

IT  IS  FOUND  THAT  THE  IMU  IS  BEING  CAGED 

0538 

REF 

411 

LAST 

13  24 

07,3674 

10  000 

0 

CCS 

A 

SET  IMUCADR  TO  -0  TO  INDICATF  OPERATION 

053  9 

REF 

350 

LAST 

1324 

07,3675 

0 0002 

0 

TC 

Q 

COMPLETE  RUT  FAILED.  RETURN  IMMEDIATELY 

0540 

REF 

244 

LAST 

1324 

07,3676 

4 4 746 

1 

CS 

ZERO 

TO  SW RETURN . 

0541 

REF 

4 

LAST 

1119 

C7, 3677 

55' 301 

0 

TS 

I MUCADR 

0542 

REF 

7 

LAST 

1316 

07,3700 

1 2742 

0 

TCF 

MODEEX IT 

GAP:  ASSEMBLE  REVISION  210  OF  A GC  PRCGRAM  LUMINARY  BY  NASA  20211L2-L61  17:11  MAR.  19,1971  SKIPPER  .131  PAGE  1325 


L 

I MU 

MCDE 

SWITCHING 

ROUTINES 

USER' S PAGE  NO.  20  E3  S4 

P0543 

GENERALIZED 

MODE  SWITCHING 

TERM INAT ION 

. ENTER 

AT  GOODEND  FOR 

SUCCESSFUL  COMPLETION  OF  AN  I/O  OPERATION 

R0545 

OR 

AT  BADEND 

FOR  A 

N 

UNSUCCESSFUL  ONE. 

CIA)  OR 

ARRIVAL 

= 0 FOR  I MU,  1 

FOR  OPTICS. 

0547 

REF 

13 

LAST 

1323 

07,3701 

54  071 

0 

BADEND 

TS 

RUPTREG2 

DEVICE  INDEX. 

0 54  8 

REF 

2 45 

LAST 

1324 

07,3702 

4 4746 

1 

cs 

ZERO 

FOR  FAILURE. 

0549 

REF 

4 

LAST 

1324 

07,3703 

1 3706 

1 

TCF 

GOODEND  +2 

0550 

REF 

14 

LAST 

1325 

07,3704 

54  071 

0 

GOODENO 

TS 

RUPTREG2 

055  1 

REF 

118 

LAST 

1317 

07,3705 

4 4 744 

0 

CS 

ONE 

FOR  SUCCESS. 

0552 

REF 

9 

LAST 

129  7 

07,3706 

54  072 

0 

TS 

RUPTREG3 

0553 

REF 

15 

LAST 

1325 

07,3707 

50  C 7 1 

1 

INDEX 

R UPTREG2 

SEE  IF  USING  PROGRAM  ASLEEP. 

0554 

REF 

6 

LAST 

949 

07,37  10 

l 1 ' 301 

0 

CCS 

MODECADR 

0555 

07,3711 

1 3715 

0 

TCF 

+ 4 

YES  - WAKE  IT  UP. 

0556 

REF 

1 

07,3712 

1 3725 

0 

TCF 

ENDMODE 

IF  0,  PROGRAM  NOT  IN  YET. 

0557 

07,3713 

0 0006 

1 

EXTEND 

0558 

REF 

2 

LAST 

1325 

07,3714 

1 3726 

0 

BZF 

ENDMODE  +1 

BZF  = TCF  IF  MODECADR  = -0. 

055  9 

REF 

246 

LAST 

1325 

07,3715 

3 4 746 

0 

CAF 

ZERO 

WAKE  SLEEPING  PROGRAM. 

0560 

REF 

16 

LAST 

1325 

07,3716 

50  071 

1 

INDEX 

RUPTREG2 

0561 

REF 

7 

LAST 

1325 

C7.3717 

5 7 ' 301 

1 

XCH 

MODECADR 

0562 

REF 

8 

LAST 

1324 

07,3720 

0 5130 

0 

TC 

JOBWAKE 

0563 

REF 

10 

LAST 

1325 

C7.372  l 

4 0072 

0 

CS 

RUPTREG3 

ADVANCE  LOC  IF  SUCCESSFUL. 

0564 

REF 

23 

LAST 

1217 

C7, 3 722 

50  064 

0 

INDEX 

LOCCTR 

0565 

REF 

44 

LAST 

1264 

07,3723 

26  164 

0 

ADS 

LOC 

0566 

REF 

75 

LAST 

1321 

07, 3724 

1 5263 

1 

TCF 

TASKOVER 

0567 

REF 

11 

LAST 

1325 

C7, 3725 

3 C072 

1 

ENDMODE 

CA 

RUPTRFG3 

-0  INDICATES  OPERATION  COMPLETF  BUT 

0568 

REF 

17 

LAST 

1325 

C7, 3726 

50  071 

1 

+ 1 

INDEX 

RUPTREG2 

UNSUCCESSFUL:  -l  INDICATES  COMPLETE  AND 

0569 

REF 

8 

LAST 

1325 

07,3727 

55' 301 

0 

TS 

MODECADR 

SUCCESSFUL . 

0570 

REF 

76 

LAST 

1325 

C 7, 3730 

1 5263 

1 

TCF 

TASKOVER 

GAP: 

L 

P0571 


ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 
IMU  MODE  SWITCHING  ROUTINES 

GENERAL  STALLING  ROUTINE.  USING  PROGRAMS  COME  HERE  TO  WA I 


17: 

11  MAR.  19, 

1971 

SKIPPER 

.131  PAGE 

USER'S 

PAGE 

NO.  21 

E 3 S4 

T FOR 

I/O  CCMPLET 

ION. 

R0573  PROGRAM  DESCRIPTION 
R0574 

R0575  MOD  BY-  R . MEL AN  SON  TO  ADD  DOCUMENTATION 


DATE-  21  FEB  1967 
LOG  SECTION  IMU  MODE  SWITCHING 
ASSEMBLY  SUNDISK  REV.  82 


R0576 
R0577 
R0578 
R0579 
R0580 
R 0 5 8 1 
R0582 
R0583 
R0584 
R0585 
R0586 
R0587 
R0588 


FUNCTIONAL  DESCRIPTION- 

TO  DELAY  FURTHER  EXECUTION  OF  THE  CALLING  ROUTINE  UNTIL  ITS  SELECTED 
I/O  'FUNCTION  IS  COMPLETE. THE  FOLLOWING  CHECKS  ON  THE  CALLING  ROUTINE:S 
MODECADR  ARE  MADE  AND  ACTED  UPON. 

1)  +0  INDICATES  INCOMPLETE  I/O  OPERAT ION . CALL  ING  ROUTINE  IS  PUT  TO 
SLEEP. 

2)  -1  INDICATES  COMPLETED  I/O  OPERATION.  STALL  BYPASSES  JOBSLEEP 
CALL  AND  RETURNS  TO  CALLING  ROUTINE  AT  L+3 

3)  -0  INDICATES  COMPLETED  I/C  WITH  FAILURE.  STALL  CLEARS  MODECADR 
AND  RETURNS  TO  CALLING  ROUTINE  AT  L+2. 

4)  VALUE  GREATER  THAN  0 INDICATES  TWO  ROUTINES  CALLING  FOR  USE  OF 
SAME  DEVICE.  STALL  EXITS  TO  ABORT  WHICH  EXECUTES  A PROGRAM 
RESTART  WHICH  IN  TURN  CLEARS  ALL  MODECADR  REGISTERS. 


R0589  CALLING  SEQUENCF- 
R0590  L TC  BANKCALL 

R0591  L+i  CADR  (ONE  OF  5 STALL  ADDRESSES  I.E.  I MUST AL L , OP T STALL , R ADST ALL , 

R0592  AOTST  ALL  ,0R  ATTSTALL) 


R0593 

R0594 

NORMAL-EXIT  MODE- 
TCF  JOBSLEEP  OR 

TCF 

R0595 

ALARM  OR  ABORT  EXIT 

MODE- 

R0596 

TC  ABORT 

R0597 

OUTPLT- 

R0598 

MODEC ADR=  CADR 

IF 

JOBSLEEP 

R0  59  9 

MGDEC ADR=+0 

IF 

I/O  COMPLETE 

R06C0 

SUE  2=L  + 3 

IF 

I/O  COMPLETE  AND  GOOD 

R060  1 

BUF  2=L  + 2 IF  I/O 

COMPLETE  BUT  FAILED. 

R0602  ERASABLE  INITIALIZATION- 

R0603  BUF2  CONTAINS  RETURN  ADDRESS  PLUS  l,  (L+2) 

R0604  BUF2+1  CONTAINS  FBANK  VALUE  OF  CALLING  ROUTINE. 

RQ605  MODECADR  OF  CALLING  ROUTINE  CONTAINS  +0,-l,-0  OR  CADR  RETURN  ADDRESS. 

R0606  DEBRIS- 

R0607  RUPTREG2  AND  CALLING  ROUTINE  MODECADR. 


0608 
060  9 

REF 

REF 

119 

1 

LAST 

1325 

0610 

REF 

82 

LAST 

1316 

061  1 

REF 

2 

LAST 

1326 

07,3731 

3 

4 744 

1 

AOT  STALL 

CAF 

ONE 

07,3732 

0 

3736 

0 

TC 

STALL 

07,3733 

3 

4743 

0 

RADSTALL 

CAF 

TWO 

07,3734 

1 

3736 

1 

TCF 

STALL 

1326 


GAP: 
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L 

I MU 

MCDE 

SWITCHING 

ROUT  INES 

0612 

REF 

3 

LAST 

958 

07,3731 

0613 

REF 

247 

LAST 

1325 

07,3735 

0614 

07,3736 

0615 

REF 

18 

LAST 

1325 

C 7 , 3 737 

0616 

REF 

412 

LAST 

1324 

07, 3740 

061  7 

REF 

9 

LAST 

1325 

07,3741 

0618 

REF 

1 

07,3742 

0619 

REF 

1 

07,3743 

0620 

REF 

1 

07,3744 

062  1 

REF 

19 

LAST 

132  7 

07, 3745 

0622 

REF 

10 

LAST 

1327 

07,3746 

0623 

REF 

8 

LAST 

1324 

07,3747 

0624 

REF 

4 13 

LAST 

1327 

07,3750 

0625 

REF 

2 

LAST 

1327 

C 7 ,3  75  l 

062  6 

REF 

24 

LAST 

1317 

07,3752 

062  7 

REF 

1 

07,3753 

062  8 

REF 

12 

LAST 

934 

07,3754 

0629 

REF 

20 

LAST 

1327 

C7, 3 755 

063  0 

REF 

11 

LAST 

1327 

07,3756 

063  1 

REF 

6 

LAST 

1317 

07,3757 

063  2 

REF 

25 

LAST 

1327 

07,3760 

0633 

REF 

6 

LAST 

1124 

07,3761 

0634 

07,3762 

OPTSTALL 

EQUALS 

AOTST  ALL 

3 4 746 

0 

I MUSTALL 

CAF 

ZERO 

0 0004 

0 

STALL 

INHINT 

54  C 71 

0 

TS 

RUPTREG2 

50  000 

1 

INDEX 

A 

1 1 ' 301 

0 

CCS 

MODECADR 

1 3760 

1 

TCF 

MODABORT 

1 3754 

0 

TCF 

M ODE  SLP 

1 3750 

1 

TCF 

MODEGOOD 

50  071 

1 

MG2 

INDEX 

RUPTREG2 

55 ' 301 

0 

TS 

MODECADR 

1 2742 

0 

TCF 

MODEEXIT 

10  000 

0 

M ODE  GOOD 

CCS 

A 

1 3 7 60 

1 

TCF 

MODABORT 

24  133 

0 

INC  R 

BUF2 

1 3 745 

0 

TCF 

MG2 

0 4636 

0 

MODE  SLP 

TC 

M AKECADR 

5C  C71 

1 

INDEX 

RUPTREG2 

5 5 ' 3 0 1 

0 

TS 

MODECADR 

1 5124 

1 

TCF 

JOBSLEEP 

52  134 

0 

MODABORT 

DXCH 

BUF2 

0 5712 

0 

TC 

BAIL  OUT  1 

31210 

0 

OCT 

31210 
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USER'S  PAGE  NO.  22  E3  S4 


IMU. 


SAVE  DEVICE  INDEX. 

SEE  IF  OPERATION  COMPLETF. 

ALLUW  ABLE  STATES  ARE  +0,  -1,  AND  -0. 
OPERATION  INCOMPLETE. 

COMPLETE  AND  GOOD  IF  = -1. 

COMPLETE  AND  FA Ii  ED  TF  -0.  RESET  TO  +0. 
RETURN  TO  CALLER. 


MAKE  SURF  INITIAL  STATE  -1. 


IF  SO,  INCREMENT  RETURN  ADDRESS  AND 
RETURN  IMMEDIATELY,  SETTING  CADR  = +0 . 

CALL  FROM  SWITCHABLE  FIXFO  ONLY. 


TWO  PROGRAMS  USING  THE  SAME  DEVICE 


GAP: 

ASSEMBLE  REVISION  210 

CF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161 

17:11  MAR.  19,1971  SKIPPER  .131  PAGE 

L 

IMU 

MODE 

SWITCHING 

ROUTINES 

USER'S  PAGE  NO.  23  E3  S4 

P0635 

CONSTANTS 

FOR  MODE 

SWITCHING 

ROUTINES 

0636 

REF 

4 

LAST 

970 

5745 

B ITS  3 £4 

= 

0CT14 

063  7 

REF 

4 

LAST 

1283 

4762 

B ITS4£6 

= 

0CT50 

063  8 

07,3763 

CCC30 

1 

BITS4-5 

OCT 

00030 

063  9 

KEF 

43 

LAST 

1320 

4735 

IMUSEFLG 

EQUALS 

B IT8 

INTERPRETER  SWITCH  7. 

0640 

07,3764 

77500 

1 

-COMMAX 

DEC 

-191 

0641 

07,3765 

77477 

0 

-COM MAX- 

DEC 

-192 

0642 

07,3766 

00074 

1 

BOOMS 

DEC 

60 

064  3 

REF 

4 

LAST 

949 

07,3 175 

I MUF  I N20 

= 

I MUF INE 

06435 

REF 

1 

21,2000 

SETLOC 

MANUR 

06436 

21 ,2764 

BANK 

0644 

REF 

4 

LAST 

38  1 

21,2764 

3 13  04 

l 

GCMANUR 

CA 

ATTCADR 

IS  KALCMANU  FREE 

0645 

21,2765 

0 0006 

1 

EXTEND 

0646 

REF 

1 

21,2766 

1 2771 

0 

BZF 

OKMANUR 

064  7 

REF 

59 

LAST 

1284 

21,2767 

0 4626 

L 

TC 

POSTJUMP 

06475 

REF 

3 

LAST 

1327 

21,2770 

17760 

0 

CADR 

MODABORT 

0648 

21,2771 

0 0006 

1 

OKMANUR 

EXTEND 

0649 

REF 

26 

LAST 

1327 

21,2772 

3 0134 

1 

DC  A 

BUF2 

0650 

REF 

5 

LAST 

1328 

21,2773 

53 ' 305 

1 

DXCH 

ATTCADR 

SAVE  FINAL  RETURN  FOR  KALCMAN3 

065  1 

REF 

44 

LAST 

1297 

21,2774 

3 0006 

1 

CA 

BBANK 

0652 

REF 

24 

LAST 

1319 

21,2775 

7 4750 

0 

MASK 

SEVEN 

0653 

REF 

6 

LAST 

1328 

21,2776 

27 ' 305 

1 

ADS 

ATTCADR  +1 

0654 

REF 

34 

LAST 

1111 

21,2777 

3 0167 

1 

CA 

PRIORITY 

0655 

REF 

3 

LAST 

1103 

21,3000 

7 7746 

1 

MASK 

PR  1037 

0656 

REF 

2 

LAST 

381 

21,3001 

55' 306 

1 

TS 

ATTPRTO 

SAVE  USERS  PRIG 

0657 

REF 

1 

21,3002 

3 3006 

1 

CAF 

KALEBCON 

SET  EBANK  FOR  KALCMAN3 

0658 

REF 

83 

LAST 

1321 

21 , 3003 

54  003 

0 

TS 

EBANK 

0659 

REF 

60 

LAST 

1328 

21,3004 

0 4626 

1 

TC 

POST  JUMP 

0660 

REF 

1 

21,3005 

44004 

0 

CADR 

KALCMAN3 

0661 

REF 

13 

LAST 

500 

21,3006 

03275 

1 

KALEBCON 

ECADR 

BCDU 

1328 
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°066  2 
R0663 
R0664 
R0665 
R0666 
R0667 
R0668 
R0669 
R0670 
R0671 
R0672 
R0673 
R0674 
R0675 
R0676 
R 067  7 
R0673 
R0679 
R 0 6 8 0 
R068  1 
R0682 
R0683 
R0684 
R0685 
R0636 
R0687 
R0638 
R0689 
R0690 


(SUBROUTINE  UTILITY) 


PROGRAM  DESCRIPTION 
IMU  STATUS  CHECK  ROUTINE  R02 
MOD  NO  - 1 

MOD  BY  - N . BRODEUR 

FUNCTIONAL  DESCRIPTION 

TO  CHECK  WHETHER  IMU  IS  ON  AND  IF  ON  WHETHER  IT  IS  ALIGNED  TO  AN 
ORIENTATION  KNOWN  BY  THE  CMC.  TO  REQUEST  SELECTION  OF  THE  APPROPRIATE 
PROGRAM  IF  THE  IMU  IS  OFF  OR  NOT  ALIGNED  TO  AN  ORIENTATION  KNOWN  BY  THE 
CMC.  CALLED  THROUGH  BANKCALL 
CALLING  SEQUENCE- 

L TC  , BANKCALL 

L+l  CADR  R02BCTH 

SUBROUTINES  CALLED 

VARAL ARM 
FLAGUP 

NORMAL  EXIT  MODES 

AT  L+2  OF  CALLING  SEQUENCE 
ALARM  OP  ABORT  EXIT  MODES 
GOTOPOOH,  WITH  ALARM 
ERASABLE  INITIALIZATION  REQUIRED 

NCNE 

DEBRIS 

CENTRALS- A, Q,L 


0692 

REF 

1 

C4 , 2000 

SETLOC 

R02. 

0693 

04,3256 

BANK 

0694 

REF 

1 

COUNT* 

*$/R02 

0695 

04,3256 

00063 

1 

DEC51 

DEC 

51 

A06955 

06956 

REF 

1 

15,2000 

SETLOC 

R02BNK15 

06957 

15,3757 

BANK 

0696 

REF 

7 

LAST 

1312 

15,3757 

3 

4730 

1 

R02BOTH 

CAF 

REFSMRIT 

069  7 

REF 

14 

LAST 

1312 

15,3760 

7 

OC  77 

0 

MASK 

F LAGWRD3 

0698 

REF 

4 14 

LAST 

1327 

15,3761 

10 

COO 

0 

CCS 

A 

0699 

REF 

1 

15,3762 

0 

3773 

1 

TC 

R02ZER0 

ZERO  IMU 

0700 

REF 

69 

LAST 

1324 

15,3763 

3 

1277 

1 

CA 

I MODE  S30 

0701 

REF 

31 

LAST 

1323 

15,3764 

7 

4734 

1 

MASK 

B I T9 

IS  ISS  I 

0702 

15,3765 

0 

C006 

1 

EXTEND 

0 70  3 

15,3766 

1 

3 7 70 

0 

BZF 

+ 2 

0704 

REF 

55 

LAST 

1324 

15,3767 

4 

4 741 

0 

CS 

B IT4 

SEND  IMU 

070  5 

REF 

1 

15,3770 

6 

3776 

1 

AD 

OCT220 

SEND  REF 

0706 

REF 

4 

LAST 

627 

15,3771 

0 

5740 

1 

TC 

V ARALARM 

1329 


GAP: 
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I MU 

MODE 

SWITCHING 

ROUTINES 

070  7 

REF 

63 

LAST 

981 

15,3772 

0 6001 

0 

0 70  8 

REF 

75 

LAST 

125  1 

15,3773 

0 5506 

1 

R02ZER0 

0709 

REF 

6 

LAST 

981 

15,3774 

00007 

0 

0710 

REF 

1C 

LAST 

1315 

15,3775 

L 4622 

1 

071  L 

15,3776 

0C220 

1 

OCT220 

USER'S  PAGE  NO.  25  E3  S4 


TC 

GOTOPOOH 

TC 

UPFL AG 

ADRES 

I MUSE 

TCF 

SWRETURN 

OCT 

220 
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USER'S  PAGE  NO.  26 


E 3 S4 


P0712 

PROGRAM  DESCRIPTION  P06  10FEB67 

R0713 

TRANSFER  THE  ISS/CMC  FROM  THE  OPERATE  TO 

THE  STANDBY  COND 

IT  I ON . 

R07 1 4 
R 07 1 6 
R0718 

THE  NORMAL  CONDITION  OF  READINESS  OF  THE  GNCS  WHEN  NOT  IN 
HEATER  POWER  IS  ON.  THE  I MU  OPERATE  POWER  IS  OFF.  THE  COM 
CMC  STANDBY  ON  THE  MAIN  AND  LEB  DISKYS  IS  ON. 

USE  I 
PUTER 

S STANDBY.  IN  THIS  CONDITION  THE 
POWER  IS  ON.  THF  OPTICS  POWER  IS 

R0719 

R0720 

CALLING  SEQUENCE: 

ASTRONAUT  REQUEST  THROUGH  DSKY 

V37E  06 E . 

R072  1 
R0722 
R0723 
R0  72  4 

SUBROUTINES  CALLED: 
G0PERF1 
BANKCALL 
FLAGDOWN 

3 


» 

2 

ft 


GAP: 
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17:  11  MAR.  19,1971 

L 

IMU 

MODE 

SW  ITCHING 

ROUTINES 

USER'S  PAGE  1 

P0725 

PRESTAND 

PREPARES 

FUR  STANDBY 

BY  SNAPSHOTTING 

THE 

SCALER  AND  T I ME  1 

TIME2 

RO  72  6 

THE 

LOW 

5 BITS 

OF 

THE  SCALER 

ARE  INSPECTED  TO 

INSURE  COMP ATA6 IL ITY 

R0727 

BETWEEN 

THE  SCALER 

READING  AND  THE  T IME1 

TIME2 

READING. 

0728 

REF 

1 

37,2000 

SETLOC 

P05P06 

0729 

37,3654 

BANK 

0730 

REF 

2 

LAST 

10  1 

0314 

EBANK= 

T IME2SA V 

0731 

REF 

1 

COUNT  * 

$$/P06 

0732 

REF 

76 

LAST 

1330 

37,3654 

C 5506 

1 

PC6 

TC 

UPFLAG 

SET  N0D0V37  BIT 

0733 

REF 

5 

LAST 

1207 

37,3655 

00054 

0 

ADRES 

NODOFLAG 

0734 

37,3656 

0 0C04 

0 

PRESTAND 

INHINT 

0735 

37,3657 

C 0006 

1 

EXTEND 

0736 

REF 

33 

LAST 

1304 

37,3660 

3 0025 

0 

DCA 

T I ME  2 

SNAPSHOT  TIME1TIM 

0737 

REF 

3 

LAST 

1332 

37,3661 

52  315 

1 

DXCH 

TIME2SAV 

0 73  8 

REF 

1 

37,3662 

0 3713 

1 

TC 

SCALPREP 

0739 

REF 

1 

37,3663 

0 3656 

1 

TC 

PRESTAND 

Tl,T2,  SCALER  NOT 

0740 

REF 

788 

LAST 

1317 

37,3664 

52  155 

1 

DXCH 

MPAC 

T 1 ,T2  AND  SCALER 

0741 

REF 

l 

37,3665 

52  317 

0 

DXCH 

SCALSAVE 

STORE  SCALER 

0742 

37,3666 

0 C004 

0 

INHINT 

0743 

REF 

296 

LAST 

1262 

37,3667 

0 4607 

1 

TC 

BANKCALL 

0744 

REF 

3 

LAST 

186 

37,3670 

17162 

1 

CADR 

RNDREFDR 

REFSMM,  DRIFT,  TR 

0745 

REF 

9 5 

LAST 

1207 

37,3671 

0 5520 

0 

TC 

DOWNFLAG 

0 74  6 

REF 

7 

LAST 

1330 

37,3672 

00007 

0 

ADRES 

I MUSE 

IMUSE  DOWN 

0747 

REF 

56 

LAST 

1332 

37,3673 

0 5520 

0 

TC 

DOWNFLAG 

074  8 

REF 

6 

LAST 

839 

37,3674 

000  10 

0 

ADRES 

RNDVZFLG 

RNDVZFLG  DOWN 

0749 

REF 

29 

LAST 

1308 

37,3675 

3 4732 

0 

CAF 

BIT11 

0750 

37,3676 

0 0006 

1 

EXTEND 

0751 

REF 

18 

LAST 

99  1 

37,3677 

05  013 

0 

WOR 

C HAN  1 3 

SET  STANDBY  E NAB L 

0752 

REF 

1 16 

LAST 

1240 

37, 3700 

0 5355 

1 

TC 

PHASCHNG 

SET  RESTART  TO  PO 

0753 

37,3701 

07024 

0 

OCT 

07024 

RECOVERS 

0754 

37,3702 

20000 

0 

OCT 

20000 

0755 

REF 

2 

LAST 

1332 

0316 

EBANK= 

SCALSAVE 

0756 

REF 

1 

37,3703 

03733 

0 

2CADR 

POSTAND 

0756 

REF 

1 

37,3704 

76C60 

0 

075  7 

REF 

1 

37,3705 

3 4765 

1 

CAF 

0CT62 

0758 

REF 

257 

LAST 

1332 

37,3706 

0 4607 

1 

TC 

BANKCALL 

0759 

REF 

10 

LAST 

970 

37,3707 

20635 

0 

CADR 

G0PERF1 

0760 

37,3710 

1 3705 

l 

TCF 

-3 

076  1 

37,3711 

l 3705 

1 

TC  F 

-4 

0 76  2 

37,3712 

1 2705 

1 

TCF 

-5 

0763 

REF 

2 

LAST 

531 

4765 

0CT62 

EQUALS 

. 5 SEC 

DEC  50  = OCT  62 

R 0 76  4 

THE 

LOW 

5 BITS 

OF 

THE  SCALER 

READS  10000 

FOR  THE 

FIRST 

INTFRVAL  AFTER  A 

27 


E 3 S4 
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R0765 

T 1 INCREMENT. 

IF  SCALPREP  DETECTS  THIS 

INTERVAL  THE  Tl, 

T 2 AND  SCALER 

RO  766 

CATA  ARE 

NOT  COMPATABLE  AND  RETURN  IS  TO 

L+l  FOR 

ANOTHER  READING  OF  THE 

R0767 

CATA.  OTHERWISE,  THE  RETURN  IS  TO  L+2  TO 

PROCEED. 

ROUTINE  ALSO  PREPARES 

R0763 

THE  SCALER  READING 

FOR  COMPUTATION  OF  THE 

INCREMENT  TO 

UPDATE  T 1 T 2 . (THE 

R0769 

10  MS  BIT  (BIT  6)  OF  THE  SCALER  IS  INCREMENTED  5 

MS  OUT 

OF  PHASE  FROM 

R 0 7 7 0 

Tl.)  ADDITION 

OF  5 

MS  (BIT  5) 

TO  THE 

SCALER  READING  HAS 

THE  EFFECT  OF 

R0771 

ADJUSTING  BIT 

6 IN 

THE  SCALER 

TO  BE 

IN 

PHASE  WITH  BIT  1 

OF  Tl.  THE  LOW  5 

R077  2 

BITS  OF 

THE  SCALER 

READING  ARE  THEN 

SET 

TO  ZERO, 

TO  TRUNCATE  THE  SCALER 

R0773 

DATA  TO 

10  MS, 

, RESULTS  ARE  STORED  IN 

MPAC 

» +1  . 

077  A 

37,3713 

0 0006 

1 

SCALPREP 

EXTEND 

0775 

REF  789 

LAST 

1332 

37,3714 

22  156 

0 

QXCH 

MPAC  +2 

0776 

REF  3 

LAST 

393 

37,3715 

0 4103 

1 

TC 

FINETIME  +1 

0777 

37,3716 

0 C003 

1 

RELINT 

0778 

REF  790 

LAST 

1333 

37,3717 

52  155 

1 

DXCH 

MPAC 

0779 

REF  43 

LAST 

1314 

37,3720 

3 4740 

0 

CA 

B IT5 

0780 

REF  250 

LAST 

1320 

37,3721 

54  001 

1 

TS 

L 

0781 

REF  248 

LAST 

1327 

37,3722 

3 4746 

0 

CA 

ZERO 

0782 

REF  791 

LAST 

1333 

37,3723 

20  155 

1 

DAS 

MPAC 

0783 

REF  11 

LAST 

739 

37,3724 

4 4337 

0 

CS 

L0W5 

0784 

REF  792 

LAST 

1333 

37,3725 

7 C 1 55 

1 

MASK 

MPAC  +1 

0785 

REF  793 

LAST 

1333 

37,3726 

56  155 

0 

XCH 

MPAC  +1 

0786 

REF  12 

LAST 

1333 

37,3727 

7 4337 

0 

MASK 

L0W5 

A0787 

A 0 7 8 8 

0789 

REF  415 

LAST 

1329 

37,3730 

10  000 

0 

CCS 

A 

0790 

REF  794 

LAST 

1333 

37,3731 

24  156 

0 

INCR 

MPAC  +2 

0791 

REF  795 

LAST 

1333 

37,3732 

0 C 1 56 

0 

TC 

MPAC  +2 

R0792 

POSTANC 

RECOVERS  TIME  AFTER  STANDBY. 

THE 

SCALER  IS 

SNAPSHOTTED  AND  THE 

R0793 

TIME1  TIME2  COUNTER 

IS  SET  TO 

ZERO. 

THE 

LOW  5 BITS  OF  THE  SCALER  ARE 

R0794 

INSPECTED  TO  INSURE 

COMP  ATABILITY  BETWEEN 

THE  SCALER  READING  AND  THF 

RO  79  5 

CLEARING 

OF  THE  TIME  COUNTER. 

IT  THEN  COMPUTES  THE  DIFFERENCE  IN  SCALER 

R0796 

VALUES  (IN  DP) 

AND 

ADDS  THIS 

TO  THE  1 

PREVIOUSLY  SNAPSHOTTED  VALUES  OF 

R0797 

T I ME  1 TIME2  AND  PLACES  THIS  NEW  TIME 

INTO 

THE  TIME1  T I ME  2 COUNTER. 

0798 

REF  1 

COUNT* 

$ $ / P 0 5 

0799 

REF  30 

LAST 

1332 

37,3733 

4 4732 

1 

postand 

CS 

B IT1  1 

0300 

37,3734 

0 0C06 

1 

EXTEND 

080  1 

REF  19 

LAST 

1332 

37,3735 

03  C 13 

0 

WAND 

C HAN  1 3 

0302 

37,3736 

0 0004 

0 

INHINT 

0803 

REF  249 

LAST 

1333 

37,3737 

3 4746 

0 

CA 

ZERO 

0804 

REF  251 

LAST 

1333 

37,3740 

54  001 

1 

TS 

L 

0805 

REF  34 

LAST 

1332 

37,3  741 

52  025 

1 

DXCH 

T I ME  2 

0 80  6 

REF  2 

LAST 

1332 

37,3742 

0 3713 

1 

TC 

SCALPREP 

0807 

REF  2 

LAST 

1332 

37,3743 

0 3736 

0 

TC 

POSTAND  +3 

0308 

37,3744 

0 C006 

I 

EXTEND 

0809 

REF  3 

LAST 

1332 

37,3745 

4 C317 

0 

DCS 

SCALSAVE 

0810 

REF  796 

LAST 

1333 

37,3746 

20  155 

1 

DAS 

MPAC 

ADD  5 MS  TO  THE  SCALER  READING. 


SET  LOW  5 BITS  OF  (SCALER+5MS)  TO  ZERO 
AND  STORE  RESULTS  IN  MPAC.+l. 

TEST  LOW  5 BITS  OF  SCALER  FOR  THE  FIRST 
INTERVAL  AFTER  THE  T1  INCREMENT 
(NOW  = 00000,  SINCE  BIT  5 ADDED). 

IS  IT  1ST  INTERVAL  AFTER  T1  INCREMENT 

NO 

YES 


RECOVER  TIME  AFTFR  STANDBY. 
CLEAR  STANDBY  ENABLE  BIT 


CLEAR  TIMF1TIME2 
STORE  SCALER  TN  MPAC,  MPAC+1 
T1,T2, SCALER  NOT  COMPATIBLE 
T1,T2  AND  SCALER  OK 


FORM  DP  DIFFERENCE  OF  POSTSTANDBY  SCALER 


;ap: 

ASSEMBLE  REVISION  210 

OF  AGC  PROGRAM  L 

UM INARY  BY 

IMU 

MODE 

SWITCHING 

ROUTINES 

081 1 

REF 

44 

LAST 

1321 

37,3747 

3 4733 

1 

0812 

REF 

10 

LAST 

859 

37,3750 

0 7330 

0 

0813 

REF 

250 

LAST 

1333 

37,3751 

3 4 746 

0 

0314 

REF 

797 

LAST 

1333 

37,3752 

54  156 

1 

081  5 

REF 

16 

LAST 

1316 

37,3753 

0 7300 

0 

0816 

REF 

798 

LAST 

1334 

37,3754 

10  154 

0 

0817 

REF 

1 

37,3755 

0 3762 

1 

0818 

REF 

2 

LAST 

1334 

37, 3756 

0 3762 

1 

081  9 

37,3757 

0 3760 

0 

0820 

REF 

45 

LAST 

1334 

37,3760 

3 4733 

1 

082  1 

REF 

799 

LAST 

1334 

37,3761 

26  154 

0 

0822 

37,3762 

0 0006 

1 POSTCOM 

0823 

REF 

4 

LAST 

1332 

37,3763 

3 0315 

0 

0824 

REF 

800 

LAST 

1334 

37,3764 

20  155 

1 

0825 

REF 

17 

LAST 

1334 

37,3765 

0 7300 

0 

0826 

REF 

801 

LAST 

1334 

37,3766 

52  155 

1 

0827 

REF 

35 

LAST 

1333 

37,  3767 

20  025 

1 

0828 

REF 

97 

LAST 

1332 

37,3770 

0 5520 

0 

0829 

REF 

6 

LAST 

1332 

37,3771 

00054 

0 

0830 

REF 

64 

LAST 

1330 

37,3772 

0 6001 

0 

SA  2021112-161 
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USER ' S PAGE  NO.  29  EO  S3 

CAF 

B I T 1 0 

MINUS  PRESTANDBY  SCALER  AND  SHIFT  RIGHT 

TC 

SHORTMP 

5 TO  ALIGN  BITS  WITH  TIME1TIME2. 

CAF 

ZERO 

TS 

MPAC  + 2 

NEEDED  FOR  TP  AGREE 

TC 

TPAGREE 

MAKE  OP  DIFF  AGREE 

CCS 

MPAC 

TC 

POSTCOM 

IF  DP  DIFF  NET  +,  NO  SCALER  OVERFLOW 

TC 

POSTCOM 

BETWEEN  PRE  AND  POST  STANDBY. 

TC 

+ 1 

IF  DP  DIFF  NET  -,  SCALER  OVERFLOWED.  ADD 

CAF 

B I T 10 

BIT  10  TO  HIGH  DIFF  TO  CDRRFCT  . 

ADS 

MPAC 

EXTEND 

C I MP A C , + 1 ) IS  MAGNITUDE  OF  DELTA  SCALER. 

OCA 

T IME2SAV 

PRESTANDBY  TIME1TIME2 

DAS 

MPAC 

TC 

TPAGREE 

FORCE  SIGN  AGREEMFNT 

DXCH 

MPAC 

UPDATED  VALUE  FOR  T1,T2. 

DAS 

T I ME  2 

LOAD  UPDATED  VALUE  INTO  T1,T2,  WITH 

TC 

DOWNFLAG 

CLEAR  NODOFLAG 

ADRES 

NODOFLAG 

TC 

GOTOPOOH 

GAP:  ASSEMBLE  RFVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L 

KEYRUPT, 

UPRUPT 

0001 

1 A » 3 765 

BANK 

14 

0002 

REF 

1 

OA ,2000 

SETLOC 

KEYRUPT 

0003 

OA, 3257 

BANK 

000  A 

REF 

1 

COUNT  * 

$$/KEYUP 

0005 

REF 

9 

LAST 

1127 

04,3257 

54  016 

1 

KEYRUPT1 

TS 

BANKRUPT 

0006 

REF 

351 

LAST 

13  2 A 

04,3260 

56  002 

0 

XCH 

Q 

0007 

REF 

8 

LAST 

1127 

04,3261 

54  C 1 2 

0 

TS 

QRUPT 

0008 

REF 

2 

LAST 

A53 

04,3262 

0 4371 

0 

TC 

LODSAMPT 

0009 

REF 

13 

LAST 

1333 

04,3263 

3 4337 

1 

CAF 

L0W5 

9010 

04,3264 

0 C006 

1 

EXTEND 

001  1 

REF 

2 

LAST 

229 

04,3265 

02  015 

1 

RAND 

MNKEYIN 

0012 

REF 

6 

LAST 

1297 

04,3266 

54  073 

l 

KEYCOM 

TS 

RUPTREG4 

0013 

REF 

29 

LAST 

912 

04,3267 

4 0101 

0 

CS 

F LAGWRD5 

00 1 A 

REF 

1 

04,3270 

7 4726 

1 

MASK 

OSKYFBI T 

0015 

REF 

30 

LAST 

1335 

04,3271 

26  101 

0 

ADS 

FLAGWRD5 

0016 

REF 

6 

LAST 

1097 

04,3272 

3 4346 

1 

ACCEPTUP 

CAF 

CHRPRIO 

0017 

REF 

26 

LAST 

1291 

04,3273 

0 5063 

1 

TC. 

NOVAC 

0018 

REF 

66 

LAST 

A7  3 

0776 

E6ANK= 

DSPCOUNT 

0019 

REF 

1 

04, 3274 

02057 

1 

2CADR 

CHAR  IN 

0019 

REF 

1 

04,3275 

60101 

1 

0020 

REF 

7 

LAST 

1335 

C4 , 3 276 

3 CC73 

0 

CA 

RUPTREG4 

0021 

REF 

2A 

LAST 

1325 

04,3277 

50  064 

0 

INDEX 

LOCCTR 

0022 

REF 

8C2  < 

LAST 

133A 

04,3300 

54  154 

0 

TS 

MPAC 

0023 

REF 

20 

LAST 

99  3 

04, 3301 

0 5272 

0 

TC 

RESUME 
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TIME 

CHECK 

(NOTE 


USER' S PAGE  NO.  1 EO  S3 


IS  SNATCHED  IN  RUPT  FOR  NOUN  65. 
IF  KEYS  5M-1M  ON 


: RUPTREG4  = KEY T EMP  1 ) 


LEAVF  5 BIT  KEY  CDE  IN  MPAC  FOR  CHARIN 


GAP: 
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KEYRUPT,  UPRUPT 


USER' S PAGE  NO.  2 EO  S3 


P0024  UPRUPT  PROGRAM 


002  5 

REF 

1C 

LAST 

1335 

04,3302 

54  016 

1 

UPRUPT 

TS 

BANKRUPT 

0026 

REF 

352 

LAST 

1335 

04,3303 

56  002 

0 

XCH 

Q 

002  7 

REF 

9 

LAST 

1335 

04,3304 

54  C 12 

0 

TS 

QRUPT 

002  8 

REF 

3 

LAST 

1335 

04,3305 

0 4371 

0 

TC 

LDDSAMPT 

TIMF  IS  SNATCHED  IN  RUPT 

FOR  NOUN  65. 

0029 

REF 

25  1 

LAST 

1334 

04,3306 

3 4 746 

0 

CAF 

ZERO 

0030 

REF 

2 

LAST 

233 

04,3307 

56  045 

0 

XCH 

INLINK 

003  1 

REF 

2 

LAST 

164 

04,3310 

54  073 

1 

TS 

KEYTEMP1 

003  12 

REF 

15 

LAST 

1329 

04,3311 

3 CC77 

1 

CA 

FLAGWRD3 

AFTER  EARTH  LAUNCH? 

003  13 

REF 

5 

LAST 

302 

04,3312 

7 4732 

1 

MASK 

N0P07BIT 

003  1 A 

REF 

416 

LAST 

1333 

04,3313 

10  000 

0 

CCS 

A 

00315 

REF 

1 

04,3314 

1 3320 

1 

TC  F 

UPRPT1 

YES 

00316 

REF 

3 

LAST 

1336 

04,3315 

3 0073 

0 

CA 

KEYTEMP1 

NO:  SUM  UPLINK  DATA 

003  1 7 

REF 

2 

LAST 

109 

04,3316 

27' 245 

1 

ADS 

UPSUM 

003  IE 

REF 

3 

LAST 

1336 

04,3317 

25 ' 246 

0 

INC  R 

UPSUM  +1 

0032 

REF 

37 

LAST 

1282 

04,3320 

3 4742 

1 

UPRPT1 

CAF 

B IT3 

TURN  ON  UPACT  LIGHT 

0033 

04,3321 

0 0006 

1 

EXTEND 

(BIT  3 OF  CHANNEL  11) 

003  4 

REF 

34 

LAST 

1324 

04,3322 

05  Oil 

1 

WOR 

DSALMOUT 

0035 

REF 

14 

LAST 

1335 

04,3323 

3 4337 

1 

CAF 

L0W5 

TEST  FOR  TRIPLE  CHAR  REDUNDANCY 

0036 

REF 

4 

LAST 

1336 

04,3324 

7 0073 

1 

MASK 

KEYTEMP1 

L0W5  OF  WORD 

0037 

REF 

5 

1,  A ST 

1336 

04,3325 

56  073 

0 

XCH 

KEYTEMP 1 

L0W5  INTO  KEYTEMP 1 

0038 

04,3326 

0 0006 

1 

EXTEND 

0039 

REF 

46 

LAST 

1334 

04,3327 

7 4733 

0 

MP 

BIT10 

SHIFT  RIGHT  5 

0040 

REF 

1 

04,3330 

54  332 

1 

TS 

KEYTEMP2 

0041 

REF 

15 

LAST 

1336 

04,3331 

7 4337 

0 

MASK 

L0W5 

M ID  5 

0042 

REF 

1 

04,3332 

6 3366 

1 

AD 

H no 

0043 

REF 

1 

04,3333 

0 3363 

1 

TC 

UPTEST 

0044 

REF 

47 

LAST 

1336 

04, 3334 

3 4733 

1 

CAF 

BIT10 

0045 

04,3335 

0 0006 

1 

EXTFND 

0046 

REF 

2 

LAST 

1336 

04,3336 

7 0332 

1 

MP 

KEYTEMP2 

SHIFT  RIGHT  5 

0047 

REF 

16 

LAST 

1336 

04,3337 

7 4337 

0 

MASK 

L0W5 

HIGH  5 

0048 

04,3340 

4 0000 

0 

COM 

004  9 

REF 

2 

LAST 

1336 

04,3341 

0 3363 

l' 

TC 

UPTEST 

0050 

REF 

1 

04,3342 

4 3371 

0 

UPOK 

CS 

ELRCODE 

CODE  IS  GOOD.  IF  CODF  = ' 

ERROR  RESET'  , 

0051 

REF 

6 

LAST 

1336 

04,3343 

6 C C 73 

0 

AD 

KEYTEMP1 

CLEAR  UPLOCKFL ( SET  BIT4  0 

F FLAGWRD7  = 0) 

0052 

04,3344 

0 0006 

1 

EXTEND 

IF  CODE  DOES  NOT  = 'ERROR 

RESET',  ACCEPT 

0053 

REF 

1 

04,3345 

1 3353 

0 

BZF 

CLUPLOCK 

CODE  ONLY  IF  UPLOCKFL  IS 

CLEAR  (=0). 

0054 

REF 

1 

04,3346 

3 4741 

1 

CAF 

U PLOC  BIT 

TEST  UPLOCKFL  FOR  0 OR  1 

0055 

REF 

27 

LAST 

895 

04,3347 

7 0103 

1 

MASK 

F LAGWRD  7 

0056 

REF 

417 

LAST 

1336 

04,3350 

10  000 

0 

CCS 

A 

0057 

REF 

21 

LAST 

1335 

04,3351 

0 5272 

0 

TC 

RESUME 

UPLOCKFL  = l 

0058 

REF 

1 

04,3352 

0 3272 

0 

TC 

ACCEPTUP 

UPLOCKFL  = 0 

0059 

REF 

2 

LAST 

1336 

04,3353 

4 4 741 

0 

CLUPLOCK 

CS 

UPLOCBIT 

CLEAR  UPLOCKFL  (I.E..SET 

BIT  4 OF  ) 

0060 

REF 

28 

LAST 

1336 

04,3354 

7 0103 

1 

MASK 

FLAGWRD7 

FLAGWRD7  = 0) 

0061 

REF 

29 

LAST 

1336 

04,3355 

54  103 

1 

TS 

F LAGWRD  7 

0062 

REF 

2 

LAST 

1336 

04,3356 

0 3272 

0 

TC 

ACCEPTUP 

GAP: 
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L 

KE YRUPT , 

UPRUPT 

USER ' S 

PAGE 

NO.  3 

EO  S3 

A0063 

CODE  IS  BAD 

0064 

REF 

30 

LAST 

1336 

04,3357 

4 0103 

1 

TMFAIL2 

CS 

FLAGWRD7 

LOCK  OUT  FURTHER 

UPLINK  ACTIVITY 

0065 

RFF 

3 

LAST 

1336 

04,3360 

7 4741 

0 

MASK 

UPLOCBIT 

( BY  SETT  ING 

UPLOCKFL  = 1) 

UNTIL 

0066 

REF 

31 

LAST 

1337 

04,3361 

26  103 

1 

ADS 

FLAGWRD7 

'ERROR  RESET 

• IS 

SFNT  VIA 

UPLINK. 

0067 

REF 

22 

LAST 

1336 

04,3362 

0 5272 

0 

TC 

R ESUME 

0069 

REF 

7 

LAST 

1336 

04,3363 

6 CC73 

0 

UPTEST 

AD 

KEYTEMP1 

0070 

REF 

418 

LAST 

1336 

04,3  364 

10  COO 

0 

CCS 

A 

0071 

REF 

1 

04, 3365 

0 3357 

0 

TC 

TMFA I L2 

0072 

04,3366 

77740 

1 

HI  10 

OCT 

77740 

0073 

REF 

2 

LAST 

1337 

04,3367 

0 3357 

0 

TC 

TMFAIL2 

0074 

REF 

353 

LAST 

1336 

04,3370 

0 OC02 

0 

TC 

Q 

0075 

04,3371 

00022 

1 

ELRCODE 

OCT 

22 

R0076 

R0077 

R0078 

R0079 


•UPLINK  ACTIVITY  LIGHT'  IS  TURNED  OFF  BY  

1.  VBRELDSP 

2.  ERROR  RESET 

3.  UPDATE  PROGRAM  I P2  7 ) ENTERED  BY  V70 , V 7 1 , V7 2 , AND  V73. 


R0080 

R0081  THE  RECEPTION  OF  A BAD  CODE! I. E CCC  FAILURE)  LOCKS  OUT  FURTHER  UPLINK  ACTIVITY  BY  SETTING  BIT4  OF  FLAGWRD7  = 1. 
R0083  THIS  INDICATION  WILL  BE  TRANSFERRED  TO  THE  GROUND  BY  THE  DOWNLINK  WHICH  DOWNLINKS  ALL  FLAGWORDS. 

R0085  WHEN  LPLINK  ACTIVITY  IS  LOCKED  OUT  ,IT  CAN  BE  ALLOWED  WHEN  THE  GROUND  UPLINKS  AND  'ERROR  RESFT'  CODE. 

R0087  (IT  IS  RECOMMENDED  THAT  THE  'ERROR  LIGHT  RESET*  CODE  IS  PRECEEDED  BY  16  BITS  THE  FIRST  OF  WHICH  IS  1 FOLLOWED 

R0089  BY  15  ZEROES.  THIS  WILL  ELIMINATE  EXTRANEOUS  BITS  FROM  INLINK  WHICH  MAY  HAVE  BEEN  LEFT  OVER  FROM  THE  ORIGINAL 

R0091  FAILURE) 

R0092  UPLINK  ACTIVITY  IS  ALSO  A LL OW ED ( UNLOCK  ED ) DURING  FRESH  START  WHEN  FRESH  START  SETS  BIT4  OF  FLAGWRD7  = 0. 
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R0001 

R000  2 
R0004 
R0005 
R0007 
R0009 
•R0010 
R0012 


R001 3 
R0014 

R0015 
R0017 
R0019 
R0020 
R0022 
R0024 
R0026 
R002  8 


R0029 

R0030 

R0031 

R0033 

R0035 

R0037 

R0039 

R0040 

R0041 

R0042 

R0043 

R0044 

R0043 

R0046 

R0047 

R0048 


DISPLAY  INTERFACE  ROUTINES 

DISPLAYS  CAN  BE  CLASSIFIED  INTO  THE  FOLLOWING  CAT  EGOR  I ES- 

1.  PRIORITY  DISPLAYS-  DISPLAYS  WHICH  TAKE  PRIORITY  OVER  ALL  OTHER  DISPLAY 
OUT  UNDER  CRITICAL  ALARM  CONDITIONS. 

2.  EXTENDED  VERB  DISPLAYS-  ALL  EXTENDED  VERBS  AND  MARK  ROUTINES  SHOULD  US 

3.  NORMAL  DISPLAYS-  ALL  MISSION  PROGRAM  DISPLAYS  WHICH  INTERFACE  WITH  THE 
SEQUENCE  OF  EVENTS. 

4.  MISC.  DISPLAYS-  ALL  DISPLAYS  NOT  HANDLED  BY  THE  DISPLAY  I NTER F ACER  OUT  I 
MM  DISPLAYS  AND  SPECIAL  PURPOSE  DISPLAYS  HANDLED  BY  PINBALL. 


5.  ASTRONAUT  INITIATED  DISPLAYS-  ALL  DISPLAYS  INITIATED  EXTERNALLY. 

THE  FOLLOWING  VERMS  ARE  USED  TO  DESCRIBE  THE  STATUS  OF  DISPLAYS- 

1.  ACTIVE-THE  DISPLAY  WHICH  IS  (1)  BEING  DISPLAYED  TO  THE  ASTRONAUT  AND  W 
(2)  WAITING  FIRST  IN  LINE  FOR  THE  ASTRONAUT  TO  FINISH  USING  THE  DSKY  0 
BUT  NOT  WAITING  FOR  A RESPONSE. 

2.  INACTIVE  -A  DISPLAY  WHICH  HAS  (1)  BEEN  ACTIVE  BUT  WAS  IN TF RRUP TEDB Y A 
(2)  BEEN.  PUT  INTO  THE  WAITING  LIST  AT  TIME  IT  WAS  REQUESTED  DUE  TO  THE 

, WAS  ALREADY  GCING,  (3)  BEEN  INTERRUPTED  BY  THE  ASTRONAUT  (CALLED  A PIN 
OF  INACTIVE  DISPLAY  IS  USUALLY  REACTIVATED  ONLY  BY  PINBALl ) OR  (4)  A D 
HAS  INFU  SAVED  FOR  RESTART  PURPOSES. 


DISPLAY  PRIORITIES  WORK  AS  FOLLOWS-  ' 

I NTERRUPTS- 

1.  THE  ASTRONAUT  CAN  INTERRUPT  ANY  DISPLAY  WITH  AN  EXTFRNAL  DISPLAY  REQUE 

2.  INTERNAL  DISPLAYS  CAN  NOT  EE  SENT  OUT  WHEN  THE  ASTRONAUT  IS  USING  THE 

3.  PRIORITY  DISPLAYS  INTERRUPT  ALL  OTHER  TYPES  OF  INTERNAL  DISPLAYS.  A PR 
PRIORITY  DISPLAY  WILL  CAUSE  AN  ABORT  UNLESS  BIT14  IS  S FT  FOR  THE  LINUS 

4.  A MARK  DISPLAY  INTERRUPTS  ANY  NORMAL  DISPLAY. 

5.  A MARK  THAT  INTERRUPTS  A MARK  COMPLETELY  REPLACES  IT. 

ORDER  OF  WAITING  DISPLAYS- 

1.  ASTRONAUT  EXTERNAL  USE 

2.  PRIORITY 

3.  INTERRUPTED  MARK 

4.  INTERRUPTED  NORMAL 

5.  MARK  TO  BE  REQUESTED  (SEE  DESCRIPTION  OF  ENDMARK) 

6.  MARK  WAITING 

7.  NORMAL  WAITING 


USER' S PAGE  NO.  1 EO  S3 


S.  USUALLY  THESE  DISPLAYS  ARE  SENT 

E F XT  END  ED  VERB  (MARK)  DISPLAYS. 
ASTRONAUT  DURING  THF  NORMAL 

NES.  THESE  INCLUDE  SUCH  DISPLAYS  AS 


AITING  FOR  A RESPONSE  OP 
R (3)  BEING  DISPLAYED  ON  THE  DSKY 

DISPLAY  CF  HIGHER  PRIORITY, 

FACT  A HIGHER  PRIORITY  DISPLAY 
BRANCH  CONDITION,  SINCE  THIS  TYPE 
ISPLAY  WHICH  HAS  FINISHED  BUT  STILL 


ST. 

DSKY. 

IOPITY  DISPLAY  INTERRUPTING  ANOTHER 
ROUT INE . 


GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-1  61 

L DISPLAY  INTERFACE  ROUTINES 


17:11  MAR.  19,1971  SKIPPFR  .131  PAGE  1339 
USER'S  PAGE  NO.  2 EO  S3 


P0049  THE  DISPLAY  ROUTINES  ARE  INTENDED  TO  SERVE  AS  AN  INTERFACE  BETWEEN  THE  USER  AND  PINBALL.  THE 

ROOM  FOLLOWING  STATEMENTS  CAN  BE  MADE  ABOUT  NORMAL  OISPLAYS  AND  PRIORITY  DISPLAYS  (A  DESCRIPTION  OF  MARK  ROUTINES 

R0053  WILL  FOLLOW  LATER): 


R0054 
R0056 
R0058 
R0059 
R0061 
R0063 
R 006  5 
R0066 
R0067 
R0069 
R0070 
R0072 
R0C74 
R0075 


1.  ALL  ROUT  INFS  THAT  END  IN  R HAVE  AN  IMMEDIATE  RETURN  TO  THE  USER.  FOR  ALL  FLASHING  DISPLAYS  THIS  RETURN 
IS  TO  THE  USERS  CALL  CADR  +4.  FOR  THE  ONLY  NON  FLASHING  IMMEDIATE  RETURN  DISPLAY  (GODSPR)  THIS  RETURN 
IS  TO  THE  USERS  CALLING  LOC  +1. 

2.  ALL  ROUTINES  NOT  ENDING  IN  R DO  NOT  DO  AN  IMMEDIATE  RETURN  TO  THE  USER. 

3.  ALL  ROUTINES  THAT  END  IN  R START  A SEPARATE  JOB  (MAKEPLAY)  WITH  USERS  JOB  PRIORITY. 

4.  ALL  ROUTINES  NOT  ENDING  IN  R BRANCH  DIRECTLY  TO  MAKEPLAY  WHICH  MAKES  THESE  DISPLAYS  A PART  OF  THE 

USERS  JOB. 

5.  ALL  DISPLAY  ROUTINES  ARE  CALLED  VIA  8 ANKCALL . 

6.  TO  RESTART  A DISPLAY  THE  USER  WILL  GENERALLY  USE  A PHASE  OF  ONE  WITH  DESIRED  RESTART  GROUP  (SEE 
DESCRIPTION  OF  RESTARTS). 

7.  ALL  FLASHING  DISPLAYS  HAVE  3 RETURNS  TO  THE  USER  FROM  ASTRONAUT  RESPONSES.  A TERMIMATF  (V34)  BRANCHES 

TO  THE  USERS  CALL  CADR  +1.  A PROCEED  (V33)  BRANCHES  TO  THE  USERS  CALL  CADR  +2.  AN  ENTFR  OR  RECYCLE 

( V32  ) BRANCHES  TO  THE  USERS  CALL  CADR  +3. 

8.  ALL  ROUTINES  MUST  BE  USED  UNDER  EXECUTIVE  CONTROL. 


R0076 


A DESCRIPTION  OF 


EACH  ROUTINE 


WITH  AN  EXAMPLE  FOLLOWS: 


R0077 


GODSP  IS  USED  TO  DISPLAY  A VERB  NOUN  ARRIVING  IN  A.  NO  RETURN  IS  MADE  TO  THE  USER. 


R0079 
R0080 
A008  1 
A0082 
AO  08  3 

A0084 

R0085 


1.  GODSP  IS  NOT  RESTARTABLE 

2.  A VERB  PASTE  WITH  GODSP  ALWAYS  TURNS  ON  THE  FLASH, 


CAF 

TC 

CADR 


V XXN  Y Y 

RANKCALL 

GODSP 


V XXN YY  OCT  QXXYY 

GODSPR  IS  THE  SAME  AS  GODSP  ONLY  RETURN  IS  TO  THE  USER. 


A0O36 

A0087 

A0088 


CAF  , V XXN Y Y 
TC  RANKCALL 

CADR  GODSPR 


A0089 


IMMEDIATE  RETURN  OF  GODSPR 


R0090 
R 009  2 


GOFLASH  DISPLAYS  A FLASHING  VERB  NOUN  WITH  NO 
THE  ASTRONAUT  (SEE  NO.  7 ABOVE). 


IMMEDIATE  RETURN  TO  THE  USER. 


3 RETURNS  ARE  POSSIBLE  FROM 


A0093 
A 0094 
A0095 
A0096 
A 009  7 
A0098 


CAF  V XXN Y Y VXX  N YY  WILL  RE  A FLASHING  VERB  NOUN. 

TC  RANKCALL 

CADR  GOFLASH 

TERMINATE  RETURN 

...  ...  PROCEED  RETURN 

...  ...  ENTER  OR  RECYCLE  RFTURN 


R0099  GOPERFl  IS  ENTERED  WITH  DESIRED  CHECKLIST  VALUE  IN  A. 


G0PERF1  WILL  DISPLAY  THIS  VALUE  IN  R1  BY  MEANS  OF  A 
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DISPLAY  INTERFACE  ROUTINES 


USER'S  PAGE  NO. 


EO  S3 


R0101 

V01  N25.A  FLASHING  PLEASE  PERFORM  ON  CHECKLIST  1 

[ V 50  N25)  IS  THEN  DISPLAYED.  NO  IMMEDIATE  R F T URN  IS  MADE  TO 

RO  103 

USER  ( SEE  NO.  7 ABOVE ) . 

R0104 

G0PERF1  BLANKS  REGISTERS  R2  AND  R3 

AO  10  5 

CAF 

OCTXX 

CODE  FOR  CHECKLIST  VALUE  XX 

A0106 

TC 

B ANKCALL 

AO  10  7 

CADR 

G0PERF1 

AO  10  8 

... 

... 

TERMINATE  RETURN 

AO  109 

... 

... 

PROCEED  RETURN 

AO  1 1 0 

... 

ENTER  RETURN 

R011  1 

G0PERF2  IS  ENTERED  WITH  A VARIABLE  NOUN  AND  V01 

( voo 

FOR  N10  OR  Nil) 

IN  A.  G0PERF2  WILL  FIRST  DISPLAY  THE 

RO  11  3 

REQUESTED  NUUN  BY  MEANS  OF  A V01FYY  OR  A VOONYY, 

, PLEASE  PERFORM  ON  NOUN  ( V50  NYY ) THEN  8EC0MFS  A FLASHING 

R011  5 

DISPLAY.  NO  IMMEDIATE  RETURN  IS  MADE  TO  THE  USER  (SEE 

NO.  7 ABOVE). 

R0116 

G0PERF2  DOES  NOT  BLANK  ANY  REGISTERS 

AO  1 1 7 

CAF 

V XXNYY 

VARIABLE  NOUN  YY.  XX=00  OR  01. 

AO  1 1 8 

TC 

BANKCALL 

AO  1 1 9 

CADR 

G0PERF2 

AO  12  0 

< 

. . . 

. . . 

TERMINATE  RETURN 

AO  12  1 

. . . 

... 

PROCEED  RETURN 

AO  12  2 

... 

... 

ENTER  RETURN 

RO  12  3 

G0PERF3  IS  USED  FOR  A PLEASE  PERFORM  ON  A PROGRAM  NUMBER.  THE  DESIRED 

PROGRAM  NO.  IS  ENTERED  IN  A.  G0PERF3 

RO  12  5 

DISPLAYS  THE  NO.  BY  MEANS  OF  A VC6  N07  FOLLOWED 

BY  A FLASHING  V50  N07 

FOR  A PLEASE  PERFORM.  NO  IMMEDIATE  RETURN 

RO  12  7 

IS  MADE  TO  THE  USER  (SEE  MG.  7 ABOVE). 

R0128 

G0PERF3  BLANKS  REGISTERS  R2  AND  R3 

AO  129 

CAF 

DECXX 

REQUEST  PERFORM  ON  PXX 

AO  13  0 

TC 

BANKCALL 

AO  13  1 

CADR 

G0PERF3 

AO  13  2 

... 

... 

TERMINATE  RETURN 

AO  13  3 

. . . 

... 

PROCFED  RETURN 

A0134 

... 

... 

ENTER  RETURN 

RO  13  5 

G0PERF4  IS  USED  FOR  A PLEASE  PERFORM  ON  AN  OPTION.  THE 

DESIRED  OPTION 

I SENTERED  IN  A AND  STORED  IN  OPTI0N1. 

RO  13  7 

G0PERF4  DISPLAYS  R1  AND  R2  BY  MEANS  OF  A V04N06 

FOLLOWED  BY  A FLASHING 

V50N06  FOR  A PLEASE  PERFORM.  NO 

RO  139 

IMMEDIATE  RETURN  IS  MADE  TO  THE  USER  (SEE  NO.  7 

ABOVE  ) 

• 

AO  140 

CAF 

OCTXX 

REQUEST  PERFORM  ON  OPTION  XX 

AO  14  1 

TC 

BANKCALL 

AO  142 

CADR 

G0PERF4 

AO  14  3 

... 

• • . 

TERMINATE  RETURN 

AO  144 

... 

... 

PROCEED  RETURN 

AO  14  5 

... 

... 

ENTER  RETURN 

RO  146 

G0PERF4  BLANKS  REGISTER  R3 
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0 I SPLAY 

INTERFACE  ROUTINES 

USER' S PAGE  NO.  4 EO  S3 

R0147 

GODSPRET 

IS  USED  TO  DISPLAY  A VERB  NOUN  ARRIVING  IN  A 

WITH  A RETURN 

TO  THE  USER  AFTER  THE  DISPLAY  HAS  BEEN  SENT 

RO  149 

OUT. 

AO  150 

CAE 

VXXNYY 

AO  15  1 

TC 

BANKCALL 

A0152 

CADR 

GODSPRET 

AO  15  3 

... 

... 

RETURN  TO  USER 

R0154 

REGODSP 

IS  USED  TO  DISPLAY  A VERB  NOUN  ARRIVING  IN  A. 

REGODSP  IS  THE  SAME  AS  GODSP  ONLY  REGODSP  REPLACES  ANY 

RO  1 56 

ACTIVE  NORMAL  DISPLAY  IF  ONE  WAS  ACTIVE. 

AO  15  7 

CAF 

VXXNYY 

A0158 

TC 

BANKCALL 

AO  1 59 

CADR 

REGODSP 

RO  160 

REFLASh 

IS  THE  SAME  AS  GOFLASH  ONLY  REFLASH  REPLACES 

ANY  ACTIVE  NORMAL  DISPLAY  IF  ONE  WAS  ACTIVE. 

A0162 

CAF 

VXXNYY 

VXX  NYY  WILL  BE  A FLASHING  VERB  NOUN 

AO  163 

TC 

BANKCALL 

AO  164 

CADR 

REFLASH 

AO  16  5 

... 

. . . 

TERMINATE  RETURN 

A0166 

... 

. . . 

PROCEED  RETURN 

A 3 1 6 7 

... 

... 

ENTER  RETURN 

R0168 

GOFLASHR 

IS  SAME  AS  GOFLASH  ONLY  AN  IMMEDIATE  RETURN 

IS  MADE  TO  THE 

USERS  CALL  CADR  +4. 

A 0 170 

CAF 

VXXNYY 

AO  1 7 1 

TC 

BANKCALL 

AO  172 

CADR 

GOFLASHR 

AO  173 

... 

• • • 

TERMINATE  RETURN 

AO  174 

. . . 

. . . 

PROCEED  RETURN 

AO  17  5 

... 

... 

ENTER  OR  RECYCLE  RETURN 

A0176 

... 

IMMEDIATE  RETURN  FROM  GOFLASHR 

RO  17  7 

G0PERF1R 

IS  THE  SAME  AS  G0PERF1  CNLY  G0PERF1R  HAS  AN 

IMMEDIATE  RETURN  TOUSERS  CALL  CADR  +4. 

RO  17  9 

G0PERF1R 

BLANKS  REGISTERS  R2  AND  R3 

AO  180 

CAF 

OCTXX 

CODE  FOR  CHECKLIST  VALUE  XX. 

AO  18  1 

TC 

BANKCALL 

A0182 

CADR 

G0PERF1R 

A 0 1 8 3 

... 

... 

TERMINATE  RETURN 

AO  18  4 

... 

... 

PROCEED  RETURN 

A 0 1 8 5 

... 

... 

ENTER  RETURN 

AO  13  6 

IMMEDIATE  RETURN  FROM  G0PERF1R 

R0187 

G0PERF2R 

IS  THE  SAME  AS  G0PERF2  CNLY  AN  IMMEDIATE  RETURN  IS  MADE  TO 

USERS  CALL  CADR  +4. 
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DISPLAY  INTERFACE 

ROUTINES 

USER'S  PAGE 

NO.  5 

EO  S3 

RO  189 

GOPER F2R  DOES  NOT 

BLANK  ANY 

REGISTERS 

AO  190 

CAF 

VXXNYY 

VARIABLE  NOUN  YY 

REQUESTED 

. XX=00  OR  01 

AO  19  I 
AO  19  2 
A0193 
AO  19  4 
AO  19  5 

TC 

CADR 

BANKCALL 

G0PERF2R 

TERMINATE  RETURN 
PROCEED  RETURN 
ENTER  RFTURN 

AO  19  6 

... 

• • ■ 

IMMEDIATE  RETURN 

HERE  FROM 

G0PERF2R 

R0197  G0PERF3R  IS  THE  SAME  AS  G0PERF3  CNLY  AN  IMMEDIATE  RETURN  IS  MADE  TO  USERS  CALL  CADR  +4. 


R0199  G0PERF3R  BLANKS  REGISTERS  R2  AND  R3 


A0200 

A020I 

A0202 

A0203 

A0204 

A0205 


CAF 

PROGXX 

PERFORM  PROGRAM  XX 

TC 

BANKCALL 

CADR 

G0PERF3R 

• • • 

• • • 

TERMINATE  RETURN 

. . . 

. . . 

PROCEED  RETURN 

... 

• • • 

ENTER  RETURN 

A0206 


G0PERF3P  IMMEDIATELY  RETURNS  HERE 


R0207  G0PERF4R  IS  THE  SAME  AS  G0PERF4  CNLY  AN  IMMEDIATE  RETURN  IS  MADE  TO  USERS  CALL  CADR  +4. 


A0209 

CAF 

OCT  X X 

REQUEST  PERFORM  ON  OPTIONXX 

A0210 

TC 

BANKCALL 

A021 1 

CADR 

G0PERF4R 

A0212 

... 

. . . 

TERMINATF  RETURN 

A0213 

... 

• . • 

PROCEED  RETURN 

A0214 

... 

... 

ENTER  RETURN 

A0215 

... 

... 

IMMEDIATE  RETURN  T 0 USER 

R021 6 G0PERF4R  BLANKS  REGISTER  R3 


R0217  REFLASHR  IS  THE  SAME  AS  REFLASH  CNLY  AN  IMMEDIATE  RETURN  IS  MADE  TO  THE  USERS  CALL  CADR  +4. 


A0219 
A0220 
A022  I 
A0222 
A0223 
A0224 


CAF  VXXNYY  VXX  NYY  WILL  BE  A FLASHING  VERB  NOUN 

TC  BANKCALL 

CADR  REFLASHR 

...  ...  TERMINATE  RETURN 

. . . ...  PROCEED  RETURN 

...  ...  ENTER  RETURN 


A0225 


IMMEDIATE  RETURN  TO  USER 


R0226  REGODSPR  IS  THE  SAME  AS  REGOD SP  CNLY  A RETURN  (IMMEDIATE)  IS  MADE  TO  THE  USER. 

•• 
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USER' 

S PAGE 

NO.  6 

FO  S3 

A0228 

A0229 

A0230 

CAF 

TC 

CADR 

V XXNYY 

BANKCALL 

REGODSPR 

AO  23  1 

... 

. . . 

IMMEDIATE 

RETURN 

TO  USER 
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L 

P0232 

R0234 

A0235 
A 023  6 
A0237 

R0238 

R0239 

A 0240 
A 024  1 
A0242 

A 024  3 

R0244 

R0246 

R0247 

A0248 

A0249 

A0250 

A0251 

A0252 

A0253 

R0254 

R0256 

A 0 2-5  7 
A0258 
A0259 
A0260 
AO  26  1 
A0262 

A0263 

R0264 
R0  26  6 
R0268 
R0270 

A027  2 
A 0 2 7 3 


DISPLAY  INTERFACE  ROUTINES  USER'S  PAGE  NO.  7 EO  S3 

GOMARK  IS  USED  TO  DISPLAY  A MARK  VERB  NOUN  ARRIVING  IN  A.  NO  RETURN  IS  MADE  TO  THE  USER. 

GOXQSP  = GOMARK 


CAF  VXXNYY 

TC  8 ANKC ALL 

CADR  GOMARK 

GOMARKR  IS  THE  SAME  AS  GOMARK  ONLY  RETURN  IS  TO  THE  USER. 


GOXDSPR  = GOMARKR 


CAF  VXXNYY 

TC  BANKCALL 

CADR  GOMARKR 


VXXNYY  CONTAINS  VERB  AND  NOUN 
OTHER  EXTFNDED  VERBS  USE  CADR  GOXDSP 


OTHER  EXTENDED  VERBS  USE  CADR  GOXDSPR 
IMMEDIATE  RETURN  OF  GOMARKR 


GOMARKF  DISPLAYS  A FLASHING  MARK  VERB  NOUN  WITH  NO  IMMEDIATE  RETURN  TO  THE  USER.  3 RETURNS  ARE  POSSIBLE  FROM 
THE  ASTRONAUT  (SEE  NO.  7 ABOVE  ). 


GOXDSPF  = GQMARKF 


VXXNYY  WILL  BE  A FLASHING  MARK  VERB  NOUN 

OTHER  EXTENOED  VERBS  USE  CADR  GOXDSPF 
TERMINATE  RETURN 
PROCEED  RETURN 
ENTER  OR  RECYCLE  RETURN 

GOMARKFR  IS  THE  SAME  AS  GOMARKF  ONLY  AN  IMMEDIATE  RETURN  IS  MADE  TO  THE  USER  CALL  CADR  +4. 

GOxDSPFR  = GOMARKFR 

FLASHING  MARK  VERB  NOUN 

OTHER  EXTENDED  VERBS  USE  CADR  GOXDSPFR 
TERMINATE  RETURN 
PROCEED  RETURN 
ENTER  OR  RECYCLE  RETURN 

IMMEDIATE  RETURN  TO  THE  USER 

GOMARKL  IS  USED  FOR  A PLEASE  PERFORM  ON  A MARK  REQUEST  WITH  ONLY  I ASTRONAUT  RETURN  To  THE  USER.  NO  IMMEDIATE 
RETURN  IS  MADE.  THE  DESIRED  MARK  PLEASE  PERFORM  VERB  AND  DESIRED  NOUN  I SENTER ED  IN  A.  GOMARK l DISPLAYS  Rl,  R2,  R 
MEANS  OF  A V05NYY  FOLLOWED  BY  A FLASHING  V5XNYY  FOR  A PLEASE  PERFORM.  THE  ASTRONAUT  WILL  RESPOND  WITH  A MARK 
OR  MARK  REJFCT  OR  AN  tNTER.  THE  ENTER  IS  THE  ONLY  ASTRONAUT  RESPONSE  THAT  WILL  COME  BACK  TO  THE  USER. 

CAF  V5XNYY  X=l,2,3,4  Y=  NOUN 

TC  BANKCALL 


CAF  VXXNYY 

TC  BANKCALL 

CADR  GOMARKFR 


CAF  VXXNYY 

TC  BANKCALL 

CADR  GOMARKF 
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A0274 

CADR 

G0MARK1 

A0275 

... 

... 

ENTER  RFTURN 

R 3276 

IF 

BLANKING  OESIRED  ON  NON  R ROUTINES,  NOTIFY  DISPLAYER. 

R0277 

G0MARK1R  IS  THE  SAME  AS  A G0MARK1  ONLY  AN  IMMEDIATE  RETURN  IS  MADE  Tn 

THE  USERS  CALL  CADR  +2. 

A0279 

CAE 

V5XNYY 

X= 1 , 2 , 3, 4 YY  = NOUN 

A0280 

TC 

RANKCALL 

AO  23 1 

CADR 

G0MARK1R 

A0282 

... 

• • • 

ASTRONAUT  ENTER  RETURN 

A3283 

... 

... 

IMMEDIATE  RFTURN  TO  USER 

R0284 

G0MARK2 

IS  THE  SAME  AS  G0MARK1  ONLY  3 RETURNS  ARE  MADE 

TO  THE  USER  FROM  THE  ASTRONAUT. 

A0286 

CAF 

V5XNYY 

X= 1 , 2 , 3 , 4 YY=NOUN 

A0287 

TC 

BANKCALL 

A0238 

CADR 

GGMARK2 

A0289 

... 

• . • 

TERMINATE  RETURN 

A0290 

. . . 

• • . 

PROCEED  RETURN 

A029  1 

... 

• • • 

ENTER  RETURN 

R0292 

G0MARK2R  IS  THE  SAME  AS  G0MARK1R  ONLY  3 ASTRONAUT  RETURNS  ARE  MADE  TO 

THE  USER. 

A0294 

CAF 

V5XNYY 

X=0 ,1,2, 3, 4 YY=NOUN 

A0295 

TC 

BANKCALL 

A0296 

CADR 

G0MARK2R 

A0297 

... 

... 

TERMINATE  RETURN 

A0298 

... 

... 

PROCEED  RETURN 

A0299 

... 

... 

ENTER  RETURN 

A0300 

... 

. .. 

IMMEDIATE  RETURN  TO  THE  U 

R030  1 

GGMARK3 

IS  USED  FOR  A PLEASE  PERFORM  ON  A MARK  REQUEST 

WITH  A 3 COMP. 

DEC  DISPLAY.  THE  DESIRED  MAI 

R0303 

PERFORM 

VERB  AND  NOUN  ARE  ENTERED  IN  A.  G0MARK3  DISPLAYS  Rl,  R2,  R3  BY  MEANS  OF  A V06NYY  FOLLOWED 

R 030  5 

V5XNYY 

FOR  A PLEASE  PERFORM.  G0MARK3  HAS  3 ASTRONAUT  RETURNS  TO  THE  USER  WITH  NO  IMMEDIATE  RETURN 

A0307 

CAF 

V5XNYY 

X=  1 , 2,3,4  YY  = N0UN 

A0308 

TC 

BANKCALL 

A0309 

CADR 

G0MARK3 

A0310 

... 

... 

TERMINATE  RETURN 

A031 1 

... 

... 

PROCEED  RETURN 

A0312 

... 

... 

ENTER  RFTURN 

R0313 

GOMAR  K4 

IS  THE  SAME  AS  GO  MAR  K3  ONLY  R2  AND  R3  ARE  BLANKED  AND  Rl  IS  DISPLAYED  IN  OCTAL. 

A031  5 

CAF 

V5XNYY 

X= 1 » 2 , 3 , 4 YY  = NOUN 

A0316 

TC 

BANKCALL 

A031  7 

CADR 

G0MARK4 

A0318 

... 

... 

TERMINATE  RETURN 

A0319 

. . . 

. . . 

PROCEED  RETURN 

1 PAGE  1345 
EO  S3 


PLEASE 
A FLASHING 
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A0320 

...  ...  ENTER  RFTURN 

R032  1 
R0323 

EXOSPRET  IS  USEO  TO  DISPLAY  A VERB  NOUN  ARRIVING  IN  A WITH  A RETURN  MADE  TO  THE  USER  AFTER  THE  DISPLAY  HAS  BEEN 
SENT  OUT. 

A 032  4 ' 
A032  3 
A0326 

CAF  VXXNYY 

TC  BANKCALL 

CAOR  EXDSPRET 

A0327 

...  ...  RETURN  TO  USER 

R032  8 
R033C 

KLEENEX  CLEANS  OUT  ALL  MARK  DISPLAYS  (ACTIVE  AND  INACTIVE).  A RETURN  IS  MADE  TO  THE  USER  AFTFR  THE  MARK  DISPLAYS 
HAVE  REEN  CLEANED  CUT. 

A0331 

A0332 

TC  BANKCALL 

CADR  KLEENEX 

AO  33  3 

, ...  ...  RETURN  TO  USFR 

R0334 

MARKBRAN  IS  A SPECIAL  PURPOSE  ROUTINE  USED  FOR  SAVING  JOB  VAC  AREAS  ( SEE  DESC R IPT I ON  OF  MARKBRAN  BELOW). 

A0336 
A033  7 

TC  BANKCALL 

CADR  MARKBRAN 

A 033  8 

...  ...  BAD  RETURN  IF  MARK  DISPLAY  NOT  ACTIVE 

A0339 

A0340 

(GOOD  RFTURN  TO  IMMEDIATE  RETURN  LOC  OF 
LAST  FLASHING  MARK  R ROUTINE) 

R0  34  1 
R0343 

PINBRNCH  REESTABLISHES  THE  LAST  ACTIVE  FLASHING  DISPLAY.  IF  THERE  IS  NO  ACTIVE  FLASHING  DISPLAY,  THE  DSKY  IS 
BLANKEC  AND  CONTROL  IS  SENT  TC  ENDOF JOB . 

A 034  4 
A0345 

TC  POSTJUMP 

CADR  PINBRNCH 

R0346 

R0348 

PRIODSP  IS  USED  AS  A PRIORITY  DISPLAY.  IT  WILL  DISPLAY  A GOFLASH  TYPE  DISPLAY  WITH  THREE  POSSIRLF  RETURNS  FROM 
THE  ASTRONAUT! SEE  NO. 7 ABOVE). 

R0349 
R 033  1 
R0352 

THE  MAIN  PURPOSE  OF  PRIODSP  IS  TO  REPLACE  THE  PRESENT  DISPLAY  WITH  A OISPLAY  OF  'HIGHER  PRIORITY  AND  TO 
PROVIDE  A MEANS  FOR  RESTORING  THE  OLD  DISPLAY  WHEN  THE  PRIORITY  DISPLAY 
IS  RESPONDED  TO  BY  THE  ASTRONAUT. 

R0353 

R0355 

TEE  FORMER  DISPLAY  IS  RESTORED  BY  AN  AUTOMATIC  BRANCH  TO  WAKE  UP  THE  DISPLAY  THAT  WAS  INTERRUPTED  BY  THE 
PRIO  DISPLAY. 

A0356 

A0357 

A0358 

A0359 

A0360 

CAF  VXXNYY  VXXNYY  WILL  RF  A FLASHING  VERB  NOUN 

TC  BANKCALL 

CADR  PRIODSP 

...  ...  TERMINATE  RETURN 

...  ...  PROCEED  RFTURN 

GAP:  . 
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L 

DISPLAY 

INTERFACE  ROUTINES 

USER'S  PAGE 

NO.  10 

FO  S3 

A0361 

... 

... 

ENTER  OR  RECYCLE 

RETURN 

R0362 

PR  IOOSPR 

IS  THE 

SAME  AS  PRIODSPONLY  AN 

IMMEDIATE  RETURN 

IS  MADE  TO  THF 

USERS  CALL  CADR 

<•4. 

A0364 

CAF 

VXXNYY 

VXXNYY  WILL  BE  A 

FLASHING 

VERB  NOUN 

A0365 

TC 

BANKCALL 

A0366 

CADR 

PRIODSPR 

AO  36  7 

... 

. . . 

TERMINATE  RETURN' 

A0368 

. . . 

. . . 

PROCEED  RETURN 

A0369 

... 

ENTER  OR  RECYCLE 

RETURN 

A0370 

... 

IMMEDIATE  RETURN 

P.03  71 

PR  IOLARM 

DOES  A 

V05N09  PRIODSPR. 

R0372 

CLEANDSP 

CLEANS 

OUT  ALL  NORMAL  DISPLAYS 

(ACTIVE  AND  INACTIVE).  A RETURN 

IS  MADE  TO  THE  USER  AFTER 

NORMAL 

R0374 

DISPLAYS 

ARE  CLEANED  OUT. 

A0375 

TC 

BANKCALL 

A0376 

CADR 

CLEANDSP 

A0377 

• • • 

... 

RETURN  TO  USER 
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L 

P0378 

R0379 


R0380 

A0381 

A0382 

R038  3 ' 

R0385 

R0387 


R0388 

R0389 

R0391 

R0393 


R0395 

R0396 

R0398 

R0399 

R0400 

R0401 

R040  2 
R0403 
R 0 40  4 

R0405 
R0406 
R040  7 

R0408 
R0409 
R 04  I 0 
R041  1 
R0412 
R0414 
R041  5 

R0416 

R0418 

R042C 

R0422 


DISPLAY  INTERFACE  ROUTINES  USER'S  PAGE  NO.  11  EO  S3 

GENERAL  INFORMATION 


ALARM  OR  ABORT  EXIT  MODES — 


PR  10 SORT  TC  ABORT 
OCT  1502 

PRIOBCRT  IS  BRANCED  TO  WHEN  (1)  A NORMAL  DISPLAY  IS  REQUESTED  AND  ANOTHER  NORMAL  DISPLAY  IS  ALREADY  ACTIVE 
(REFLASE  AND  RE GO DSP  ARE  EXCEPTIONS)  OR  (2)  A PRIORITY  OISPLAY  IS  REQUESTFO  WHEN  ANOTHER  PRIORITY  DISPLAY  IS 
ALREADY  ACTIVE  (A  PRIORITY  WITH  LINUS  BIT14  IS  AN  EXCEPTION). 


ERASABLE  I N I T I AL I Z AT  I CN  R EQU I RE D — 


ACCOMPLISHED  BY  FRESH  START-  1. 

2. 

3. 


FLAGWRD4  (USED  EXCLUSIVELY  BY  DISPLAY  INTERFACE  ROUTINES) 

NVSAVE  = NORMAL  VERB  AND  NOUN  RFGISTER. 

EBANKTEM  = NORMAL  INACTIVE  F LAGWORD ( A LSO  CONTAINS  NORMALS  FRANK). 


‘ 5.  RISAVt  = MARKBRAN  CONTROL  WORD 

4.  RESTREG  = PRIORITY  30  AND  SUPERBANK  3. 

OUTPUT — 

NVWORD  = PRIO  VERB  AND  NCUN 

NVWORD  + 1 I MARKNV ) = MARK  VERB  AND  NOUN 

NVWORD  +2  I NVSAVE ) = NORMAL  VERB  AND  NOUN 


DSPFLGI EBANKSAV ) = PRIO  FLAGWORD  (INCLUDING  EBANK  ) 

DSPFLG  +1 (MARKEBAN)  = MARK  FLAGWORD  (INCLUDING  EBANK) 

DSPFLG  +2 ( EBANKTEM ) = NORMAL  FLAGWORD  (1NCLUDIG  EBANK) 

CADRFLSH  = PRIO  USERS  CALL  CADR  +1  LOCATION 

CADRFLSH  + 1 ( MAR  K FLS  H ) = MARK  USERS  CALL  CADR  +1  LOCATION 

CADRFLSH  +2 ( TEMPFLSH)  = NORMAL  USERS  CALL  CADR  +1  LOCATION 

PRIOTIME  = TIME  EACH  PRIC  REQUEST  FIRST  SENT  OUT 
CP  T I ON  1 = DESIRED  OPTION  FRCM  G0PERF4 

FLAGWRD4  = BIT  INFO  FOR  CONTROL  OF  ALL  DISPLAY  ROUTINES 
DSPTEM1  = R 1 INFO  F IR  ASTRONAUT  FROM  PERFORM  D I S P LA Y S ( NO RM AL  ) 

SUBROUTINES  USED — NVSUB,  FLAGUP,  FLAGDOWN,  ENDOF JOB , BLANKSUB,  ABORT,  JOBWAKE,  JOBSLEEP,  FINDVAC,  PRIOCHNG, 
JAMTERM,  NVSUBUSY , FLASHON,  ENDIDLE,  CHANG  I , BANK JUMP , MAKECADR,  NOVAC, 

DEBRIS — (STORED  INTO 


TEMPORARY  TEMPORARIES-  A,  Q,  L,  MPAC  +2,  MPAC  +3,  MPAC  +4,  MPAC  <-5,  MPAC  +6,  RUPTREG2,  RUPTRFG3,  CYL , 
EBANK,  RIJPT REG4 , LOC,  8ANKSET , MOOE,  MPAC,  MPAC  +1  4,  FACEPEG 

ERASA8ES ( SHARED  AND  USED  WITH  OTHER  PROGRAMS)  CADRSTOP,  DSPLIST,  LOC,  DSPTFM1,  OPTION1 

ERASABLES ( USED  ONLY  BY  DISPLAY  ROUTINES)-  NVWORD  , + 1 , + 2 , 


DSPFLG, + 1 , + 2 


CADRFLSH,  + 1,  +2,  PRIOTIME,  FLAGWRD4 
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R0424  R1SAVE,  MARK2PAC , 

R0425  DEBRIS--  (USED  BUT  NOT  STORED  INTO-  NOUNREG,  VERBREG,  LOCCTR,  MONSAVEl 
R0426  FLAGWCRD  DESCRIPTIONS — 

R0427  F L AGWRD4-  SEE  DESCRIPTION  UNDER  LOG  SECTION  ERASABLE  ASSIGNMENTS 

R0428  DSPFLG,  DSPFLG+l,  DSPFLG  +2- 

R0429  

R0430  BITS  1 BLANK  Rl 

R0431  2 BLANK  R2 

R0432  3 BLANK  R3 

R0433  4 FLASHING  DISPLAY  REQUESTED 

R0434  5 PERFORM  DISPLAY  REQUESTED 

R0435  6 EXDSPRET  GODSPRET 

R0436  7 PRIO  DISPLAY  

R0437  8 MONITOR-PASTE  DEC  PERFORM  

R0438  9 EBANK 

R0439  10  EBANK 

R0440  11  EBANK 

R0441  12  V99PASTE 

R0442  13  2ND  PART  OF  PERFORM 

R0443  14  REPLASH  OR  REDO  REPLASH  OR  REDO 

R 0444  15  MARK  REQUEST  

R0445  RESTARTING  DISPLAYS — 

R0446  RULES  FOR  THE  DSKY  OPERATOR — 

R0447  1.  PROCEED  AND  TERMINATE  SERVE  AS  RESPONSES  TO  REQUESTS  FOR  OPERATOR  RESPONSE  (FLASHING  V/N).  AS  LONG 

R0449  AS  THERE  IS  ANY  REQUEST  AWAITING  OPERATOR  RESPONSE,  ANY  USE  OF  PROCEED  OR  TERMINATE  WILL  SERVF  AS 

R0451  RESPONSES  TO  THAT  REQUEST.  CARE  SHOULD  BE  EXERCISED  IN  ATTEMPTING  TO  KILL  AN  OPERATOR  INITIATED  MONITOR 

R0453  WITH  PROCEED  AND  TERMINATE  FOR  THIS  REASON. 

R0454  2.  THE  ASTRONAUT  MUST  RESPOND  TO  A PRIORITY  DISPLAY  NO  SOONER  THAN  2 SECONDS  FROM  THE  TIME  THE 

R045 6 PROGRAM  SENT  OUT  THE  REQUEST  FOR  OPERATOR  RESPONSE  (THE  ASTRONAUT  WOULD  SEE  THIS  DISPLAY  FOR  LESS  TIME 

R0458  DUE  TO  TIME  IT  TAKES  TO  GET  DISPLAY  SENT  OUT.)  IF  THE  ASTRONAUT  RESPONDS  TOO  SOON,  THE  PRIORITY  DISPLAY 

R0460  IS  SENT  OUT  AGAIN  — AND  AGAIN  UNTIL  AN  ACCUMULATED  2 SECS  FROM  THF  TIME  THE  FIRST  PRIORITY  DISPLAY 

R0462  OUT.  THE  SAME  2 SEC.  DELAY  WILL  OCCUR  AT  163. E4  SECS  OR  IN  ANY  MULTIPLE  OF  THAT  TIME  DUE  TO  PROGRAM 

R0464  CONSIDERATION. 

R0465  3.  KEY  RELEASE  BUTTUN- 

R0466  A)  IF  THE  KEY  RELEASE  LIGHT  IS  ON,  IT  SIMPLY  RELEASES  THE  KEYBOARD  AND  DISPLAY  FOR  INTERNAL  USE. 

R0468  R ) IF  THE  KEY  RELEASE  LIGHT  IS  OFF,  AND  IF  SOME  REQUEST  FOR  OPERATOR  RESPONSE  (FLASHING  V/N)  IS  STILL 

R0470  AWAITING  RESPONSE  TEEN  IT  RE-ESTABLISHES  THE  DISPLAYS  THAT  ORIGINALLY  REQUESTED  RESPONSE. 

R0472  IF  AN  OPERATOR  WANTS  THEREFORE  TO  RE-ESTABLISH  BUT  CONDITION  (A)  IS  ENCOUNTERED,  A SECOND  DEPRESSION  OF 

R0474  KEY  RELEASE  BUTTON  MAY  BE  NECESSARY. 

R04I5  4.  IT  IS  IMPORTANT  TO  ANSWER  ALL  REQUESTS  FOR  OPERATOR  RESPONSF. 

R 0 4 7 6 5.  IT  IS  ALWAYS  GOOD  PRACTICE  TO  TERMINATE  AN  EXTENDED  VERB  BEFORE  ASKING  FOR  ANOTHER  ONE  OP,  THF  SAME  ONF 

R0478  OVER  AGAIN. 

R0479  SPECIAL  CONSIDERATIONS— 
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R0480 
R0481 
R0483 
R0484 
R0486 
R0488 
R0489 
R049  1 
R049  l 1 


1.  MP AC  <-2  SAVED  ONLY  IN  MARK  DISPLAYS 

2.  GOOSP(R)  ,PEGODSP(R),GOMARK(R)  ALWAYS  TURN  ON  THE  FLASH  IF  ENTERED  WITH  A PASTE  VERB  REQUEST. 

3.  ALL  NORMAL  DISPLAYS  ARE  RESTARTABLE  EXCEPT  GODSP(R),  REGODSP(R) 

4.  ALL  EXTENDED  VERBS  WITH  CISPLAYS  SHOULD  START  WITH  A TC  TESTXACT  AND  FINISH  WITH  A TC  ENDEXT. 

5.  GODSP(R)  AND  REGODSP ( R ) MUST  BE  IN  THE  SAME  EBANK  AND  SUPERBANK  AS  THE  LAST  NORMAL  DISPLAY  RESTARTED 
BY  A .1  RESTART  PHASE  CHANGE. 

6.  IN  ORDER  TO  SET  UP  A NGN  DISPLAY  .1  RESTART  POINT,  THE  USER  MUST  MAKE  CERTAIN  THAT  RESTREG  CONTAINS  THE 
CORRECT  PRIORITY  AND  SUPERBANK  AND  THAT  EBANKTEM  CONTAINS  THE  CO 

7.  IF  CLEANDSP  IS  PESTARTED  VIA  A .1  PHASE  CHANGE,  CAF  ZERO  SHOULD  BE  EXECUTED  BEFORE  THF  TC  BANKCALL. 


GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


P0492 
A0493 
A0494 
A 049  5 

R 049  6 
R049  8 


DISPLAY  INTERFACE  ROUTINES 
CALLING  SEQUENCE  FOR  BLANKING 


CAF 

TC 


B ITX 
BLANKET 
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X= 1,2  » 3 BLANK  R1,R2,R3  RESPECTIVELY 
RETURN  TO  USER  HERE 


IN  ORDER  TU  USE  BLANKET  CORRECTLY  THE  USER  MUST  USE  A DISPLAY  ROUTINE  THAT  ENDS  IN  R FIRST  FOLLOWED  BY  THE  CALL 
TO  BLANKET  AT  THE  IMMEDIATE  RETURN  LOC. 


0499 

5466 

BLOCK 

02 

0500 

REF 

l 

4000 

SETLOC 

FFTAG4 

0501 

5466 

BANK 

0502 

REF 

l 

COUNT* 

$ $/DS  PL  A 

0503 

REF 

803 

LAST 

1335 

5466 

54  162 

0 

BLANKET 

TS 

MPAC  +6 

0504 

REF 

1 

546  7 

4 0160 

1 

CS 

P LAYTFM4 

0505 

REF 

804 

LAST 

1351 

5470 

7 C 162 

0 

MASK 

MPAC  +6 

0506 

REF 

8C5 

LAST 

1351 

5471 

50  161 

1 

INDEX 

MPAC  +5 

0507 

REF 

2 

LAST 

1351 

5472 

26  160 

1 

ADS 

PLAYTEM4 

0508 

REF 

354 

LAST 

1337 

5473 

0 CC02 

0 

TC 

Q 

051  1 

REF 

61 

LAST 

1328 

5474 

0 4626 

1 

ENDMARK 

TC 

POSTJUMP 

0512 

REF 

1 

5475 

20315 

1 

CADR 

MARKEND 

0512  1 

REF 

252 

LAST 

1336 

5476 

3 4746 

0 

CLEARMRK 

CAF 

ZERO 

05122 

REF 

16 

LAST 

721 

5477 

55' 043 

0 

TS 

EXTVBACT 

05123 

5500 

0 0004 

0 

+ 2 

INHINT 

05124 

REF 

1 

5501 

4 4 744 

0 

CS 

XDSPB IT 

05125 

REF 

3 

LAST 

276 

5502 

7 0100 

1 

MASK 

FLAGWRD4 

05126 

REF 

4 

LAST 

1351 

5503 

54  100 

1 

TS 

FLAGWRD4 

0512  7 

5 5 04 

0 0003 

1 

RELINT 

05128 

REF 

355 

LAST 

1351 

5505 

0 CC02 

0 

TC 

Q 

!05l  3 

***ALL  EXTENDED  VERB 

ROUTINES 

THAT  HAVE 

AT  LEAST 

ONE  FLASHING  D I ! 

1051  5 

FINISHED. 

0516 

10,2315 

BANK 

10 

051  7 

REF 

1 

10,2000 

SETLOC 

D I SPLAYS 

0518 

10,2315 

BANK 

0519 

REF 

1 

COUNT* 

$ 1/D  S PL  A 

10520 

NTERONL  Y 

IS  USED  TO 

DIFFERENTIATE  THE 

MARK  ROUTINE  WITH 

ONLY  ONE 

1052  2 

3 RETURNS  TO 

THE  USER.  THIS  ROUTINE  IS 

ONLY  USED 

BY  G0MARK1  AND  I 

05291 

REF 

2 

LAST 

236 

10,2315 

0 5476 

l 

MARKEND 

TC 

CLEARMRK 

05297 

REF 

1 

10,2316 

1 3427 

1 

TCF 

MARKOVER 

0530 

REF 

1 

10,2317 

54  155 

1 

GCMARK 

TS 

PLAYTEML 

ENTRANCE  FOR  MARK  GODSP 
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0531 

REF 

96 

LAST 

1319 

10,2320 

3 

9726 

0 

GCMARS 

CAF 

B I T 1 5 

0532 

REF 

1 

10,2321 

1 

2973 

1 

TCF 

G0FLASH2 

0533 

REF 

253 

LAST 

1351 

10,2322 

3 

9796 

0 

KLEENEX 

CAF 

ZERO 

0539 

REF 

2 

LAST 

135  1 

10,2323 

59 

155 

1 

GGMARKF 

TS 

PLAYTEM1 

0535 

REF 

1 

10,2329 

3 

3 C93 

0 

CAF 

MARKFMSK 

0536 

REF 

2 

LAST 

1352 

10,2325 

1 

2973 

1 

TCF 

G0FLASH2 

053  7 

REF 

3 

LAST 

1352 

10,2326 

59 

155 

1 

priomonr 

TS 

PLAYTEM1 

05375 

REF 

1 

10,2327 

3 

3553 

1 

CAF 

PR  IMNMSK 

0538 

REF 

3 

LAST 

1352 

10,2330 

1 

2973 

1 

TCF 

G0FLASH2 

0539 

REF 

9 

LAST 

1352 

10,2331 

59 

155 

1 

G0MARK2 

TS 

PLAYTEM1 

0590 

REF 

1 

10,2332 

3 

3526 

0 

M ARK  F CRM 

CAF 

MPERFMSK 
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REF 

9 

LAST 

1352 

10,2333 

1 

2973 

1 

TCF 

G0FLASH2 

0592 

REF 

5 
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1352 
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59 
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1 
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TS 

PLAYTEM1 
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REF 

1 

10,2335 

3 

3513 
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0599 

REF 
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LAST 

1352 
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2973 

1 
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0595 

REF 

6 

LAST 
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59 

155 

1 
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PLAYTEMl 
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REF 

1 

10,2390 

3 

3519 

1 

CAF 
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059  7 

REF 
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LAST 
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2973 

1 
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G0FLASH2 
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7 
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59 

155 

1 
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TS 
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0599 
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REF 
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REF 
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59 
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PLAYTEMl 

0552 
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REF 
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3 
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1 
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0563 

REF 

1 

10,2360 

0 

2797 

1 

TC 

COPIES 

0569 

REF 

5 

LAST 

1351 

10,2361 

3 
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0 

CA 

FLAGWRD9 

0565 

REF 

1 

10,2362 

7 

3527 

0 

MASK 

OCT39300 

0566 

REF 
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LAST 
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A 

0567 
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MARK,  PERFORM,  FLASH 
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10,2365 

3 0100 

0 

CA 

F LAGWRD4 

IS  MARK  SLEEPING  DUF  TO  ASTRO  BUSY 

0569 

REF  1 

10,2366 

7 4734 

1 

MASK 

MRKNV  BIT 

0570 

10,2367 

0 OCOo 

1 

EXTEND 

0571 

KEF  1 

10,2370 

1 2372 

1 

BZF 

MARKPLAY 

NO 

0572 

REF  138 

LAST 

1207 

10, 2371 

1 5 146 

0 

TCF 

ENDOF JOB 

0594 

10,2372 

0 0C04 

0 

M ARKPLAY 
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0595 

REF  19 

LAST 

1282 
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4 4747 

0 

CS 

FIVE 

RESET  MARK  OVER  NORM,  SET  MARK 

0596 

REF  7 

LAST 

1353 

10,2374 

7 C100 

1 

MASK 

FLAGWRD4 

05965 

REF  121 

LAST 

1352 

10,2375 

6 4744 

1 

AD 

ONE 

0597 

REF  8 

LAST 

1353 

10,2376 

54  100 

1 

TS 

FLAGWRD4 

0598 

10, 2377 

0 0003 

1 

RELINT 

0599 

REF  1 

10,2400 

4 1070 

0 

GOGOMARK 

CS 

MARKFLAG 

PERFORM 

0600 

REF  44 

LAST 

1333 

10,2401 

7 4740 

1 

MASK 

B IT5 

0601 

REF  42C 

LAST 

1352 

10,2402 

10  COO 

0 

CCS 

A 

0602 

REF  1 

10,2403 

1 2406 

0 

TCF 

MARKCOP 

0603 

REF  1 

10, 2404 

4 0367 

1 

CS 

MARKNV 

0604 

REF  2 

LAST 

1353 

10,2405 

54  367 

1 

TS 

MARKNV 

0605 

REF  122 

LAST 

1353 

10,2406 

3 4744 

1 

MARKCOP 

CAF 

ONE 

MARK  INDEX 

0606 

REF  1 

10, 2407 

1 2630 

1 

TCF 

PRIOPLAY 

0607 

REF  1 

10,2410 

3 0165 

0 

COPYTOGO 

CA 

MPAC2SAV 

0608 

REF  806 

LAST 

135  1 

10,2411 

54  156 

1 

TS 

M P AC  +2 

0609 

REF  1 

10, 2412 

50  164 

1 

COPYPACS 

INDEX 

COP  INDEX 

0610 

REF  1 

10,2413 

3 3537 

0 

CAF 

PR  IOOCT 

061  1 

REF  1 

10,2414 

54  162 

0 

TS 

GENMASK 

0612 

REF  2 

LAST 

1353 

10,2415 

50  164 

1 

INDEX 

COPINDEX 

0613 

REF  2 

LAST 

105 

10,2416 

3 1067 

1 

CAF 

EBANKSAV 

0614 

REF  l 

10,2417 

54  160 

1 

TS 

TEMP0R2 

ACTIVE  F BANK  AND  FLAG 

061  5 

REF  84 

LAST 

1328 

10,2420 

54  003 

0 

TS 

E BANK 

0616 

REF  356 

LAST 

135  1 

10,2421 

0 0002 

0 

TC 

Q 

R061  7 

PINCHEK 

CHECKS 

TO  SEE  IF  THE 

CURRENT 

MARK  REQUEST 

IS  MADE  BY  THE 

ASTRONAUT  WHILF  INTERRUPTING  A GOPLAY  DISPLAY 

R0619 

(A  NORMAL  OR  A 

PR  10) 

. IF  THE 

ASTRONAUT 

TRIES  TO  MARK  DURING  A PRIO,  THE  CHECK  FAIL  LIGHT  GOES  ON  AND  THE  MARK 

R062  1 

REQUEST 

IS  ENDED.  IF 

HE  TRIES 

TO  MARK 

DURING  A NORM,  THE 

MARK  IS 

ALLOWED.  IN  THIS  CASE  THE  NORM  IS  PUT  TO  SLFFP 

R062  3 

UNTIL  ALL  MARKING  IS 

FINISHED 

• 

R062  4 

IF 

THE  MARK  REQUEST  COMES  FROM  THE 

PROGRAM  DURING  A 

i TIME  THE 

ASTRONAUT  IS  NOT  INTERRUPTING  A NORMAL  OR  A 

R062  6 

PRIO.  THE  MARK 

REQUEST  IS  PUT 

TO  SLEEP 

UNTIL  THE 

+RESENT 

ACTIVE  DISPLAY  IS  RF  SPONDED  TO  BY  THE  ASTRONAUT. 

062  8 

REF  9 

LAST 

1353 

10,2422 

3 0100 

0 

CHKPRIO 

CA 

FLAGWRD4 

MARK  ATTEMPT  DURING  PRIO 

0629 

REF  1 

10,2423 

7 3274 

1 

MASK 

0CT24100 

063  0 

REF  421 

LAST 

1353 

10,2424 

10  COO 

0 

CCS 

A 
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USER'S  PAGE  NO.  17 


EO  S3 


REF 

1 

10, 2425 

l 3462 

0 

TCF 

M ARSLEEP 

REF 

10 

LAST 

1353 

10,2426 

4 0100 

L 

CS 

FLAGWRD4 

REF 

1 

10,2427 

7 4742 

0 

MASK 

MKOVBIT 

SET  MARK  OVER  NORM 

10,2430 

0 0CO4 

0 

INHINT 

REF 

1 1 

LAST 

1354 

10,2431 

26  100 

1 

ADS 

F L AGWRD4 

REF 

1 

10,2432 

l 2534 

0 

TCF 

SETNORM 

REF 

3 

LAST 

1353 

10,2433 

3 C 3 67 

0 

MARKPERF 

CA 

MARKNV 

REF 

1 

10,2434 

7 4144 

0 

MASK 

VERBMASK 

REF 

1 

10,2435 

1 3140 

0 

TCF 

NV50DSP 

REF 

11 

LAST 

1352 

10,2436 

54  155 

1 

GODSP 

TS 

PLAYTEM1 

REF 

254 

LAST 

1352 

10, 2437 

3 4746 

0 

G0DSP2 

CAF 

ZERO 

REF 

7 

LAST 

1352 

10,2440 

1 2473 

1 

TCF 

G0FLASH2 

REF 

12 

LAST 

1354 

10,2441 

54  155 

1 

GODSPRET 

TS 

PLAYTEM 1 

ENTRANCE  FOR  A GODSP  WITH 

A 

PASTE 

REF 

55 

LAST 

1324 

10,  2442 

3 4737 

0 

CAF 

BIT6 

SET  BIT6  TO  GO  BACK  TO  USER 

after 

NVSUB 

REF 

8 

LAST 

1354 

10,2443 

1 2473 

1 

TCF 

G0FLASH2 

REF 

13 

LAST 

1354 

10,2444 

54  155 

1 

GODS  PR 

TS 

P LAY  T EM  1 

RFF 

255 

LAST 

1354 

10,2445 

3 4 746 

0 

G0DSPR1 

CAF 

ZERO 

REF 

3 

LAST 

135  1 

10,2446 

54  160 

1 

G0DSPR2 

TS 

PLAYTEM4 

REF 

256 

LAST 

1354 

10, 2447 

3 4746 

0 

CAF 

ZERO 

* DONT  MOVE 

REF 

1 

10, 2450 

1 2653 

1 

TCF 

GODSPRS l 

CL  E ANDSP 

IS  USED 

FOR  CLEARING  OUT 

A NORMAL 

DISPLAY 

THAT  IS  PRESENTLY  ACT IVF  OR  A NORMAL  DISPLAY 

THAT 

IS 

SET 

UP 

TO  BE 

STARTED 

OR  RESTARTED. 

NORMALLY 

THE  USER  HILL  NCT  NEED 

TO 

USE  THIS 

ROUTINE  SINCE  A 

NEW  NORMAL  DISPLAY  AUTOMATICALLY 

CLEARS 

OUT  AN 

OLD 

DISPLAY. 

CALLING  1 

SEQUENCE 

FOR  CLEANDSP- 

TC 

BANKCALL 

CADR 

CLEANDSP 

REF 

257 

LAST 

1354 

10,2451 

3 4 746 

0 

CLEANDSP 

CAF 

ZERO 

REF 

14 

LAST 

1354 

10,2452 

54  155 

1 

REFLASH 

TS 

PLAYTEMl 

REF 

1 

10,2453 

3 3512 

1 

CAF 

REDOMASK 

FLASH  ANO  PERMIT 

REF 

9 

LAST 

1354 

10,2454 

l 2473 

1 

TCF 

GOFLASH? 

REF 

15 

LAST 

1354 

10,2455 

54  155 

1 

REFLASHR 

TS 

PLAYTEMl 

0664 
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18  EO  S3 

0665 

REF 

2 

LAST 

1354 

10,2456 

3 3512 

1 

CAF 

REDOMASK 

FLASH  AND  PERMIT 

0666 

REF 

4 

LAST 

1352 

10,2457 

1 2651 

0 

TCF 

GOOSPRS 

066  7 

REF 

16 

LAST 

1354 

10, 2460 

54  155 

1 

REG0DSP 

TS 

PL AYTEM1 

066  8 

REF 

76 

LAST 

1322 

10, 2461 

3 4727 

1 

CAF 

B I T 1 4 

0669 

REF 

10 

LAST 

1354 

10,2462 

l 2473 

1 

TCF 

GOFLASH2 

0670 

REF 

17 

LAST 

1355 

10,2463 

54  155 

1 

REGODSPR 

TS 

PL AYTEM1 

0671 

REF 

77 

LAST 

1355 

10, 2464 

3 4727 

1 

CAF 

B I T14 

0672 

REF 

2 

LAST 

1352 

10,2465 

1 2446 

1 

TCF 

G0DSPR2 

0672  1 

REF 

18 

LAST 

1355 

10,2466 

54  155 

1 

C L0C  PLAY 

TS 

PLAYTEM1 

067  2 2 

REF 

1 

10,2467 

3 3551 

0 

CAF 

CLOCKCDN 

06723 

REF 

1 1 

LAST 

1355 

10,2470 

1 2473 

1 

TCF 

G0FLASH2 

0673 

REF 

19 

LAST 

1355 

10,2471 

54  155 

1 

GOFL ASH 

TS 

PLAYTEM1 

0674 

REF 

5b 

LAST 

1329 

10,2472 

3 4741 

1 

CAF 

8IT4 

LEAVE  ONLY  FLASH  BIT 

SET 

0675 

REF 

4 

LAST 

1354 

10, 2473 

54  160 

1 

G0FL  ASH2 

TS 

PLAYTEM4 

0676 

REF 

1 

10,2474 

0 2734 

0 

TC 

S AVELOCS 

0677 

10,2475 

0 0003 

1 

RELINT 

0678 

REF 

l 

10,2476 

1 2 5 60 

1 

TCF 

MAKEPLAY 

BRANCH  DIRECT  WITH  NO 

SEPARATE  JOB  CALL 

0679 

REF 

20 

LAST 

1355 

10,2477 

54  155 

1 

PRI0DSPR 

TS 

PLAYTFMl 

068  0 

REF 

1 

o 

o 

'NJ 

O 

3 3531 

c 

CAF 

B I TS  7+4 

0681 

REF 

5 

LAST 

1355 

10,2501 

1 2651 

0 

TCF 

GODSPRS 

0682 

REF 

21 

LAST 

1355 

10,2502 

54  155 

1 

PRIGDSP 

TS 

PLAYTEM1 

0683 

REF 

2 

LAST 

1355 

10,2503 

3 3531 

0 

SETPRIO 

CAF 

B I TS  7+4 

0684 

REF 

12 

LAST 

1355 

10,2504 

1 2473 

1 

TCF 

GOFLASH2 

0685 

REF 

258 

LAST 

1354 

10,2505 

3 4 746 

0 

MAKEPRIO 

CAF 

ZERO 

0686 

REF 

3 

LAST 

1353 

10,2506 

5 4 164 

0 

TS 

COPINDEX 

0687 

REF 

1 

10,2507 

0 3402 

1 

TC 

LINUSCHR 

0688 

REF 

l 

10,2510 

1 2515 

0 

TCF 

HIPRIO 

LINUS  RETURN 

0689 

REF 

12 

LAST 

1354 

10,2511 

3 0100 

0 

CA 

FLAGWRD4 

069  0 

REF 

1 

10,2512 

7 3550 

0 

MASK 

0CT20100 

IS  PRIO  IN  END  I OLE  OR 

BUSY 

069  1 

REF 

422 

LAST 

1353 

10,2513 

10  000 

0 

CCS 

A 

0692 

REF 

1 

10,2514 

1 2607 

0 

TCF 

PR  IOBORT 

YES,  ABORT 

069  24 

10,2515 

0 C 004 

0 

HIPRIO 

INHINT 

0692  5 

REF 

54 

LAST 

1314 

10,2516 

4 1035 

1 

CS 

DSPTAB  +110 
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0693 
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FLAGWRD4 
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P.EF 
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10,2523 

7 
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10,2524 
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REF 
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2530 
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BZF 
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REF 
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CAF 
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REF 
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10,2527 
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JOBXCHS 
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REF 
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10,2530 
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CA 
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REF 
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REF 
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CAF 

ONE 
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REF 
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10,2535 
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TCF 

JOBXCHS 

0705 

REF 
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10,2536 
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TC 

COPYNORM 
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REF 
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10,2537 

0 

3225 

1 

TC 

W ITCHONE 

0707 

REF 
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LAST 

1325 

10,2540 

0 
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0 

TC 

JOBWAKE 

0708 

REF 
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10,2541 

0 

3242 

0 

TC 

XCHTOEND 
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RFF 
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LAST 

1301 

10,2542 

3 
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0 

REDOPRIO 

CA 
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0710 

REF 
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10,2543 

55 

' 164 

1 

TS 

PRIOT IMF 
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REF 
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LAST 
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10,2544 
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10,2545 
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TS 

COPINDEX 
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10,2546 
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CS 

OSPFLG 
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REF 
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REF 
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10,2551 
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10,2553 
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CS 
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REF 
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REF 
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LAST 
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0713 

REF 
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PRIOR ITY 
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REF 
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LAST 
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MASK 

PR  1037 
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REF 
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10,2562 

54 
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TS 
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07133 

REF 
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10,2563 
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7742 

1 

CAF 

PR  1033 

0 713  4 

REF 

18 

LAST 

836 

10, 2564 

0 

5 137 

1 

TC 

PRIOCHNG 

17:11  MAR.  19,1971  SKIPPER  .131  PAGE  1356 


USER'S  PAGE  NO.  19  EG  S3 

(WHATEVER  THEIR  PREVIOUS  STATE) 

TO  TURN  ON  SUPER-KEYRFLEASE  LIGHT 


MARK  ACTIVE 


NO 


NORMAL  ACTIVE 
BITS  13+8 

NO 


SAVE  TIME  PRIOOSP  SENT  OUT 


START  UP  PRIO  DISPLAY 


SAVE  USERS  PRIORITY 


RAISE  PRIORITY  FOR  FAST  JOBS  AFTER  WAKE 


GAP: 

ASSEMBLE  1 

REVISION  210 

CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

17:11  MAR.  19,1971  SKIPPER  .131  PAGE  1357 

L 

D I SPLAY 

INTERFACE  ROUTINES 

USER'S  PAGE  NO. 

20  EO  S3 

07135 

REE 

5 

LAST 

1355 

10,2565 

3 0160 

0 

CA 

PLAYTEM4 

IS  IT  MARK  OR  PRIO  OR 
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REF 
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424 

LAST 

1356 

10,2567 

10  COO 

0 

CCS 

A 

0716 

RFF 

1 

10,2570 

1 2505 

1 

TCF 

MAKEPRIO 

ITS  PRIO 

071  7 

REF 

1 

10,2571 

1 2573 

0 

TCF 

IFLFGAL 

0718 

REF 

1 

10,2572 

1 2357 

0 

TCF 

MAKEMARK 

ITS  MARK 

0719 

REF 

83 

LAST 

1326 

10,2573 

3 4743 

0 

I FLEGAL 

CAF 

TWO 

0720 

REF 

5 

LAST 

1356 

10,2574 

54  164 

0 

TS 

COPINDEX 

072  1 

REF 

2 

LAST 

1355 

10,2575 

0 3402 

1 

TC 

L INUSCHR 

0722 

REF 

1 

10,2576 

1 2611 

1 

TCF 

OKTOPLAY 

LINUS  RETURN 

0723 

REF 

3 

LAST 

241 

10,2577 

4 1071 

1 

CS 

EBANKTEM 

0724 

REF 

57 

LAST 

1355 

10,2600 

7 4741 

0 

MASK 

B IT4 

0725 

REF 

425 

LAST 

1357 

10,2601 

10  000 

0 

CCS 

A 

0 72  6 

REF 

2 

LAST 

1357 

10,2602 

1 2611 

1 

TCF 

OKTOPLAY 

NO 

0 72  7 

REF 

15 

LAST 

1356 

10,2603 

3 0100 

0 

CA 

FLAGWRD4 

WAS  NORM  ASLEEP 

0728 

REF 

l 

10,2604 

7 3521 

0 

MASK 

NBUSMASK 

ARE  ANY  NORMS  ASLEEP 

0729 

10,2605 

0 0006 

1 

EXTEND 

0730 

REF 

3 

LAST 

1357 

10,2606 

1 2611 

1 

BZF 

OKTOPLAY 

NO 

073  1 

REF 

2 

LAST 

470 

10,2607 

0 5626 

0 

PRIOBORT 

TC 

BAILOUT 

0732 

10,2610 

31502 

1 

OCT 

31502 

0733 

REF 

1 

10,2611 

0 2750 

1 

OKTOPLAY 

TC 

C0PIFS2 

0733  1 

REF 

2 

LAST 

1356 

10,2612 

3 0163 

0 

CA 

USERPRI 0 

07332 

10,2613 

0 0006 

1 

EXTEND 

07333 

REF 

25 

LAST 

1296 

10,2614 

04  007 

1 

ROR 

SUPERBNK 

07334 

REF 

3 

LAST 

238 

10,2615 

55*264 

1 

TS 

RESTREG 

0 73  7 

REF 

16 

LAST 

1357 

10,2616 

3 C100 

0 

CA 

FLAGWRD4 

PRIO  OR  MARK  GOING 

0738 

REF 

1 

10,2617 

7 3522 

0 

MASK 

PMMASK 

0739 

REF 

426 

LAST 

1357 

10,2620 

10  000 

0 

CCS 

A 

0740 

REF 

1 

10,2621 

1 2766 

0 

TCF 

GOSLEEPS 

YES 

0 74  1 

10,2622 

1 2624 

1 

TCF 

+ 2 

0742 

REF 

2 

LAST 

1357 

10,2623 

1 2766 

0 

TCF 

GOSLEEPS 

MARK  GOING 

R 0 7 4 3 

COULD  PUT  NORM 

BUSY 

CHECK  HERE 

: TO  SAVE 

TIME 

0744 

REF 

2 

LAST 

1356 

10,2624 

0 3225 

1 

TC 

W ITCHONE 

IS  IT  NVSUB  BUSY,  ENDIDLE  OR  NOONF 

0745 

REF 

10 

LAST 

1356 

10, 2625 

0 5130 

0 

TC 

JOBWAKE 

0746 

REF 

2 

LAST 

1356 

10,2626 

0 3242 

0 

TC 

X CHTOENO 

074  7 

REF 

84 

LAST 

1357 

10,2627 

3 4743 

0 

PLAY JUM1 

CAF 

TWO 

0748 

REF 

6 

LAST 

1357 

10,2630 

54  164 

0 

PRIOPLAY 

TS 

COPINDEX 

GAP:  ASSEMBL  fc  REVISION  210  CF  AGC  PROGRAM  LUMINARY  RY  NASA  202L112-L6L 

L DISPLAY  INTERFACE  ROUTINES 


0749 

REF 

1 

10,2631 

l 

3102 

0 

TCF 

GOPLAY 

0750 

REF 

22 

LAST 

1355 

10,2632 

54 

155 

1 

EXDSPRET 

TS 

PLAYTFM1 

075  l 

REF 

1 

10,2633 

3 

7755 

1 

CAF 

B IT1 5+6 

0752 

REF 

13 

LAST 

1355 

10,2634 

1 

2473 

1 

TCF 

G0FLASH2 

0753 

REF 

2 

LAST 

943 

10,2635 

55 

' 044 

1 

G0PERF1 

TS 

N0RMTEM1 

0754 

REF 

1 

10,2636 

3 

3 504 

0 

CAF 

V01N25 

0755 

REF 

23 

LAST 

1358 

10,2637 

54 

155 

1 

GOPERFS 

TS 

PLAYTEM1 

0756 

REF 

1 

10,2640 

3 

3503 

1 

CAF 

PERFMASK 

075  7 

REF 

14 

LAST 

1358 

10,2641 

l 

2473 

1 

TCF 

GDFLASH? 

0758 

REF 

24 

LAST 

1358 

10, 2642 

54 

155 

1 

G0PERF2 

TS 

PLAYTEMl 

0759 

REF 

1 

10,2643 

3 

3507 

0 

CAF 

PERF2MSK 

0760 

REF 

15 

LAST 

1358 

10,2644 

1 

2473 

1 

TCF 

G0FLASH2 

0764 

REF 

1 

10,2645 

0 

2727 

1 

G0PERF4 

TC 

PURRS4 

0765 

REF 

16 

LAST 

1358 

10,2646 

I 

2473 

1 

TCF 

GOFL  ASH2 

0766 

REF 

25 

LAST 

1358 

10,2647 

54 

155 

l 

GOFLASHR 

TS 

PLAYTEMl 

0767 

REF 

58 

LAST 

1357 

10,2650 

3 

4741 

1 

CAF 

BIT4 

0 76  8 

REF 

6 

LAST 

1357 

10,2651 

54 

160 

1 

GODSPRS 

TS 

PLAYTEM4 

0769 

REF 

38 

LAST 

132  1 

10,2652 

3 

6266 

0 

CAF 

THREE 

0770 

10,2653 

0 

C004 

0 

GODSPRS 1 

INHINT 

0771 

REF 

12 

LAST 

1325 

10,2654 

54 

C 72 

0 

TS 

RUPTREG3 

0772 

REF 

36 

LAST 

1356 

10,2655 

3 

0167 

1 

CA 

PRIORITY 

0773 

REF 

5 

LAST 

1356 

10,2656 

7 

7746 

1 

MASK 

PRID37 

0774 

REF 

1 1 

LAST 

1 110 

10,2657 

54 

063 

0 

TS 

NEWPRIO 

07  74  1 

REF 

7 

LAST 

1358 

10,2660 

3 

C 160 

0 

CA 

PLAYTEM4 

07742 

REF 

59 

LAST 

1358 

10,2661 

7 

4741 

0 

MASK 

B IT4 

07743 

REF 

427 

LAST 

1357 

10,2662 

10 

OOO 

0 

CCS 

A 

07744 

REF 

l 

10,2663 

l 

2671 

1 

TCF 

VACDSP 

07745 

REF 

12 

LAST 

1358 

10, 2664 

3 

0063 

1 

CA 

NEWPRIO 

07746 

REF 

27 

LAST 

1335 

10,2665 

0 

5063 

1 

TC 

NOVAC 

0774  7 

REF 

5 

LAST 

777 

E7 , 1471 

FBANK= 

WHOCARES 

07748 

REF 

2 

LAST 

1355 

10,2666 

02560 

0 

2CADR 

MAKEPLAY 

07748 

10,2667 

20067 

1 

07745 

REF 

l 

10,2670 

1 

2677 

l 

TCF 

BOTH JOBS 

0775 

REF 

45 

LAST 

1328 

10,2671 

3 

0006 

1 

VACDSP 

CA 

B BANK 
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STORE  DESIRED  CHECKLIST  VALUE 

USED  TO  DISPLAY  CHECKLIST  VALUE  IN  R1 

LEAVE  ONLY  FLASH,  PERFORM,  BLANKING 
DESIRED  VERB-NOUN  TO  DISPLAY  R1,R2,R3 


LEAVE  ONLY  FLASH  BIT  SET 

IMMEDIATE  RETURN  IS  CALL  CADR  +4 
MAKE  DISPLAY  ONE  HIGHER  THAN  USER 

IS  THIS  A FLASHING  R DISPLAY 

YES,  MAKE  DSP  LA Y JOB  A VAC 
NO,  MAKF  DSPLAY  JOB  A NOVAC 


GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-16L 

L DISPLAY  INTERFACE  ROUTINES 


0776 

10, 2672 

0 0006 

1 

EXTEND 

0777 

REF 

26 

LAST 

1357 

10,2673 

04  007 

1 

ROR 

SUPFRBNK 

0770 

REF 

253 

LAST 

1356 

10,2674 

54  COl 

1 

TS 

L 

0779 

REF 

1 

10,2675 

3 3545 

0 

CAF 

MAKEGEN 

0780 

REF 

3 

LAST 

381 

10,2676 

0 5107 

1 

TC 

SPVAC 

0781 

REF 

2 

LAST 

1355 

10,2677 

0 2 734 

0 

BOTH JOBS  TC 

SAVELOCS 

0782 

10,2700 

0 C006 

1 

EXTEND 

0783 

REF 

8C7 

LAST 

1353 

10,2701 

3 0156 

0 

DC  A 

MPAC  +1 

0784 

REF 

25 

LAST 

1335 

10,2702 

50  C64 

0 

INDEX 

LOCCTR 

0785 

RFF 

808 

LAST 

1359 

10,2703 

52  156 

1 

DXCH 

MPAC  +1 

0736 

10, 2704 

0 0CO6 

1 

EXTEND 

0787 

REF 

809 

LAST 

1359 

10,2705 

3 0160 

0 

DC  A 

MPAC  +3 

0788 

REF 

26 

LAST 

1359 

10, 2 706 

50  064 

0 

INDEX 

LOCCTR 

0789 

REF 

810 

LAST 

1359 

10,2707 

52  160 

1 

DXCH 

MPAC  +3 

0790 

REF 

27 

LAST 

1359 

10,2710 

3 0064 

0 

CA 

LOCCTR 

0791 

REF 

811 

LAST 

1359 

10,2711 

54  161 

0 

TS 

MPAC  +5 

0792 

REF 

1 

10,2712 

0 2741 

1 

TC 

S AVELOCR 

0793 

10,2713 

0 0003 

1 

RELINT 

0794 

REF 

16 

LAST 

1291 

10, 27  14 

1 4631 

0 

TCF 

BANK JUMP 

0795 

REF 

3 

LAST 

1358 

10,2715 

5 5 1 044 

1 

G0PERF1R  TS 

N0RMTEM1 

0796 

REF 

2 

LAST 

1358 

10,2716 

3 3504 

0 

CAF 

V01N25 

079  7 

REF 

26 

LAST 

1358 

10,2717 

54  155 

1 

GOPERFRS  TS 

PLAYTEM1 

0 79  8 

REF 

2 

LAST 

1358 

10,2720 

3 3503 

1 

CAF 

PERFMASK 

0799 

REF 

6 

LAST 

1355 

10,2721 

1 2651 

0 

TCF 

GODSPRS 

0800 

REF 

27 

LAST 

1359 

10, 2722 

54  155 

1 

G0PERF2R  TS 

PLAYTEMl 

0801 

REF 

2 

LAST 

1358 

10,2723 

3 3507 

0 

CAF 

PERF2MSK 

0 80  2 

REF 

7 

LAST 

1359 

10,2  724 

l 2651 

0 

TCF 

GODSPRS 

0806 

REF 

2 

LAST 

1358 

10,2725 

0 2727 

1 

G0PERF4R  TC 

PURRS4 

0 80  7 

REF 

8 

LAST 

1359 

10,2726 

1 2651 

0 

TCF 

GODSPRS 

080  8 . 

REF 

7 

LAST 

974 

10,2727 

55  • 143 

1 

PURRS4  TS 

0PTI0N1 

0 80  9 

REF 

L 

10,2730 

3 3510 

0 

CAF 

V04N06 

0810 

REF 

28 

LAST 

1359 

10,2731 

54  155 

1 

TS 

PLAYTEMl 

081  1 

REF 

1 

10,2732 

3 3511 

1 

CAF 

P ERF4MSK 
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COPY  TEMPS  INTO  PERMANENT  REG1STFRS 
SAVE  N VWORD  AND  USERS  MPAC  +2 


SAVE  USERS  CADR,  FLAGS  AND  ERANK 


CALL  CADR  +4 

DESIRED  CHECKLIST  VALUE 

DISPLAYS  CHECKLIST  VALUE  IN  R1 

LEAVE  ONLY  FLASH,  PERFORM,  BLANKING 
DESIRED  VERB-NOUN  TO  DISPLAY  R1,R2,R3 


DESIRED  OPTION  CODE 


FLASH, PERFORM  AND  BLANK  R3 


GAP:  ASSEMBLE  REVISION  210  CE  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L DISPLAY  INTERFACE  ROUTINES 


0812 

REF 

357 

LAST 

1353 

10,2733 

0 0002 

0 

TC 

0 

0813 

10,2  73A 

0 OOOA 

0 

S AVELCCS 

INHINT 

0815 

REF 

1 

10,2735 

A 3520 

1 

CS 

OCT3AOO 

081  6 

REF 

8 

LAST 

1358 

10,2736 

7 0160 

1 

MASK 

PLAYTEMA 

0817 

REF 

es 

LAST 

1353 

10,2737 

6 0003 

1 

AD 

EBANK 

0818 

REF 

9 

LAST 

1360 

10, 27A0 

5 A 160 

1 

TS 

PLAYTEMA 

0819 

REF 

358 

1 AST 

1360 

10 , 2 7A 1 

22  002 

0 

SAVELOCR 

LXCH 

Q 

0820 

REF 

13 

LAST 

1327 

10, 27A2 

0 A636 

0 

TC 

MAKECADR 

082  1 

REF 

1 

10 , 27A3 

5A  157 

0 

TS 

PLAYTEM3 

0822 

REF 

13 

LAST 

1358 

10.27AA 

6 0072 

1 

AD 

RUPTREG3 

0823 

REF 

2 5 A 

LAST 

1359 

10,2  7A5 

0 0001 

0 

TC 

L 

082  A 

REF 

26  1 

LAST 

1356 

10 , 2 7A6 

3 A 7A6 

0 

C OPY  NORM 

CAF 

ZERO 

0825 

REF 

7 

LAST 

1357 

10, 27A7 

5A  16A 

0 

COPI ES 

TS 

COPI NDEX 

0826 

10,2750 

0 OOOA 

0 

C0PIES2 

INHINT 

082  7 

REF 

10 

LAST 

1360 

10,2751 

3 0160 

0 

CA 

PLAYTEMA 

082  8 

REF 

8 

LAST 

1360 

10,2752 

50  16A 

1 

INDEX 

COPINDEX 

0 82  9 

REF 

3 

L4ST 

1353 

10,2753 

5 5 ' 06  7 

0 

TS 

EBANKSAV 

0830 

REF 

l 

10.275A 

7 3536 

0 

MASK 

C ADR  MASK 

0 83  1 

10,2755 

0 0006 

1 

EXTEND 

0 83  2 

REF 

1 

10,2756 

1 2762 

1 

BZF 

SK  IPADD 

0833 

REF 

2 

LAST 

1360 

10,2757 

3 0157 

1 

CA 

PLAYTEM3 

083  A 

REF 

9 

LAST 

1360 

10,2760 

50  16A 

1 

INDEX 

COPINDEX 

0835 

RFF 

3 

LAST 

162 

10,2761 

5 A 371 

0 

TS 

CADRFLSH 

0836 

REF 

29 

LAST 

1359 

10,2762 

3 0155 

0 

SKIPADO 

CA 

PLAYTEM1 

0 83  7 

REF 

10 

l AST 

1360 

10,2763 

50  16A 

1 

INDEX 

COPINDEX 

0838 

REF 

5 

LAST 

1356 

10, 276A 

5 A 366 

0 

TS 

NVWORO 

0 8A2 

RFF 

1 

10,2765 

1 3251 

0 

TC  F 

RELINTQ 

08A3 

REF 

1 1 

LAST 

1360 

10,2766 

50  16A 

1 

GOSLEEPS 

INDEX 

COPINDEX 

0 8A  A 

REF 

2 

LAST 

1353 

10,2767 

3 3537 

0 

CA 

PRIOOCT 

0 8A5 

REF 

1 

10,2770 

7 2772 

0 

MASK 

WAITMASK 

08A6 

REF 

l 

10,2771 

0 3 55A 

0 

TC 

UPENT2 

08A  7 

10,2772 

C3C0A 

0 

WAITMASK 

OCT 

3 OOA 

08A8 

REF 

1 2 A 

LAST 

1356 

10,2773 

A A 7AA 

0 

CS 

ONE 

08A9 

REF 

12 

LAST 

1360 

10.277A 

6 C16A 

1 

AD 

COPINDEX 

0850 

RFF 

1 

10,2775 

5 A 1 5 A 

0 

TS 

FACEREG 

0851 

REF 

2 

LAST 

1360 

10,2776 

50  15A 

1 

XCHSLEEP 

INDEX 

FACEREG 

0852 

REF 

1 

10,2777 

3 3516 

0 

CAF 

WAKECADR 

0853 

10,3000 

0 OOOA 

0 

INHINT 
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EBANK  STTS 


NOT  USED  FOR  NON  R ROUTINES 


FLAGWORD 

EOUIV  TO  OSPFLG 

FLASH  AND  GODSPRET 


VERB  NOUN 


CAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L DISPLAY  INTERFACE  ROUTINES 


0854 

REF 

11 

LAST 

1357 

10,3001 

0855 

REF 

3 

LAST 

1357 

10,3002 

0858 

REF 

3 

LAST 

1360 

10,3003 

0859 

REF 

2 

LAST 

1360 

10,3004 

0860 

REF 

7 

LAST 

1327 

10,3005 

0861 

REF 

4 

LAST 

1361 

10, 3006 

0862 

REF 

3 

LAST 

1357 

10,3007 

0863 

REF 

12 

LAST 

1361 

10,3010 

0364 

REF 

5 

LAST 

136  1 

10,3011 

0365 

REF 

28 

LAST 

1359 

10,3012 

0866 

REF 

6 

LAST 

1361 

10,3013 

0 86  7 

REF 

1 

10,3014 

0868 

REF 

1 

10,3015 

0 86  9 

REF 

7 

LAST 

136  1 

10,3016 

0870 

RFF 

1 

10,3017 

0871 

REF 

1 

10,3020 

0872 

REF 

1 

10,3021 

0873 

10,3022 

0874 

REF 

8 

LAST 

136  1 

10,3023 

0875 

REF 

45 

LAST 

1353 

10,3024 

0876 

REF 

31 

LAST 

1319 

10,3025 

0877 

REF 

2 

LAST 

1360 

10,3026 

0878 

REF 

1 

10,3027 

0879 

REF 

17 

LAST 

1357 

10,3030 

0880 

REF 

2 

LAST 

1354 

10,3031 

088  1 

REF 

428 

LAST 

1358 

10,3032 

0882 

REF 

2 

LAST 

1353 

10,3033 

0883 

REF 

2 

LAST 

1356 

10,3034 

0884 

REF 

262 

LAST 

1360 

10,3035 

0885 

REF 

2 

LAST 

1353 

10,3036 

0886 

REF 

3 

LAST 

136  1 

10,3037 

0887 

REF 

1 

10,3040 

0888 

REF 

32 

LAST 

1361 

10,3041 

0889 

REF 

2 

LAST 

1361 

10,3042 

0 89  0 

10,3043 

0891 

REF 

4 

LAST 

1361 

10,3044 

0892 

REF 

3 

LAST 

1361 

10,3045 

0893 

10,3046 

0894 

REF 

13 

LAST 

136  l 

10,3047 

0895 

REF 

l 

10,3050 

0 5130 

0 

TC 

JOBWAKE 

0 3242 

0 

TC 

XCHTOEND 

50  154 

1 

INDEX 

FACEREG 

3 35  16 

C 

CAF 

WAKECADR 

1 5124 

1 

TCF 

JDBSLEEP 

54  154 

0 

JOBXCHS 

TS 

FACEREG 

0 3225 

1 

TC 

WITCHONE 

0 5130 

0 

TC 

JOBWAKE 

3 0154 

1 

CA 

FACEREG 

50  064 

0 

INDEX 

LOCCTR 

54  154 

0 

TS 

FACEREG 

3 3027 

1 

CAF 

XCHQADD 

0 3243 

1 

TC 

XCHNYLOC 

50  154 

1 

INDEX 

FACEREG 

3 3540 

0 

CA 

MARKOCT 

7 3542 

0 

MASK 

I DLESLEP 

0 3564 

0 

TC 

D0WNENT2 

74004 

0 

IDLEMASK 

□CT 

74004 

50  154 

1 

INDEX 

FACEREG 

3 4 740 

0 

CA 

B IT5 

6 4742 

1 

AD 

FOUR 

0 3554 

0 

TC 

UPENT2 

02776 

0 

XCHQ ADD 

GENADR 

XCHSLEEP 

3 0100 

0 

LA 

FLAGWR04 

7 4 742 

0 

MASK 

MKOVBIT 

10  000 

0 

CCS 

A 

0 2372 

0 

GENMARK 

TC 

MARKPLAY 

1 2536 

1 

TCF 

OKTOCOPY 

3 4 746 

0 

M ARKWAKE 

CAF 

ZERO 

54  160 

1 

WAKEPLAY 

TS 

TEMP0P2 

5C  160 

0 

INDEX 

TEMP0R2 

3 3532 

0 

CA 

B ITS5  + L l 

6 4742 

1 

AD 

FOUR 

0 3564 

0 

TC 

DOWNENT  2 

4C010 

1 

MARKFMSK 

OCT 

40010 

5C  160 

0 

INDEX 

TEMP0R2 

3 3516 

0 

CAF 

WAKECADR 

0 C004 

0 

INHINT 

0 5130 

0 

TC 

JOBWAKE 

1 3355  0 TCF 


ENDRET 
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USER'S  PAGE  NO.  24  EO  S3 

FIND  CADR  IN  JOB  AREA 

CAUSES  AWAKENED  JOB  TO  GO  TO  ENDOF JOB 
REPLACE  SAME  CAOR  RUT  NEW  JOB  AREA 
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1358 

10,3545 

02560 

0 

MAKEGEN 

GENADR 

MAKEPLAY 

1275 

10,3546 

10200 

1 

OCT10200 

OCT 

10200 

1276 

10,3547 

3C200 

0 

V97N00 

VN 

09700 

1276  1 

10,3550 

20100 

1 

0CT20100 

OCT 

20100 

12762 

10,3551 

24030 

1 

CLOCKCON 

OCT 

24030 

1277 

10,3552 

02600 

0 

0CT2600 

OCT 

02600 

1278 

10,3553 

CC310 

0 

PRIMNMSK 

OCT 

00310 

PAGE  1370 


17: 1 l MAR.  19,1971 

USER • S PAGE 
* DONT  MOVE 


SKIPPER 
NO.  33 
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PRIO 

MARK 

NORM 


PASTE  FOR  V97  OR  V99 

FLASH,  PERFORM,  V99  OR  V 97  P AS T E , R E FL ASH 
MONITOR  PASTF  , PRIO,  FLASH 
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L SERVICE  ROUTINES 


000  1 

10,3554 

BANK 

10 

0002 

REF 

2 

LAST 

1351 

10,2000 

SETLOC 

DISPLAYS 

0003 

10,3554 

BANK 

0004 

REF 

2 

LAST 

1351  TO 

1371 : 

671 

671* 

COUNT* 

$ $ /D  S PL  A 

000  5 

10,3554 

0 

0004 

0 

U PENT  2 

INHINT 

0006 

REF 

3 

LAST 

1283 

10,3555 

7 

5652 

1 

MASK 

0CT77770 

0007 

RFF 

258 

LAST 

1364 

10,3556 

54 

001 

1 

TS 

L 

0008 

REF 

29 

LAST 

1368 

10,3557 

4 

0100 

1 

CS 

F LAGWRD4 

000  9 

REF 

2 59 

LAST 

1371 

10,3560 

7 

COOl 

1 

MASK 

L 

0010 

REF 

30 

LAST 

137  1 

10,3561 

26 

100 

1 

AOS 

FLAGWRD4 

001  l 

10,3562 

0 

0003 

l 

JOIN 

RELINT 

0012 

REF 

7 

LAST 

1367 

10,3563 

I 

6760 

1 

TCF 

Q+l 

0013 

10,3564 

0 

C004 

0 

00WNENT2 

INHINT 

0014 

REF 

4 

LAST 

137  1 

10,3565 

7 

5652 

1 

MASK 

0CT77770 

0015 

10,3566 

4 

0000 

0 

COM 

0016 

REF 

31 

LAST 

13  7 1 

10,3567 

7 

0100 

l 

MASK 

FLAGWRD4 

001  7 

REF 

32 

LAST 

137  1 

10,3570 

54 

100 

1 

TS 

FLAGWRD4 

0018 

REF 

1 

10,3571 

1 

3562 

1 

TCF 

JOIN 

0032 

REF 

26 

LAST 

1362 

4 750 

0CT7 

EQUALS 

SEVEN 
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L SERVICE  ROUTINES 


USER'S  PAGE  NO.  2 FO  S3 


P0033 

R0034  UPFLAG  AND  DOWNFLAG  ARE  ENTIRELY  GENERAL  FLAG  SETTING  AND  CLEARING  SUBROUTINES.  USING  THEM,  WHETHER  OR 

R0036  NOT  IN  INTERRUPT,  ONE  MAY  SET  OR  CLEAR  ANY  SINGLE,  NAMED  BIT  IN  ANY  ERASABLE  REGISTER,  SUBJECT  OF  COURSE  TO 

R0038  EBANK  SETTING.  A "NAMED"  BIT,  AS  THE  WORD  IS  USED  HERE,  IS  ANY  BIT  WITH  A NAME  FORMALLY  ASSIGNED  BY  THF  YUL 
R0040  ASSEMBLER. 


R0041  AT  PRESENT  THE  ONLY  NAMED  BITS  ARE  THOSE  IN  THE  FLAGWORDS.  ASSEMBLER  CHANGES  WILL  MAKE  IT  POSSIBLE  TO 

R0043  NAME  ANY  BIT  IN  ERASABLE  MEMORY. 


R0044 

R0045 

R0046 

R0047 

R 004  9 


CAL1ING  SEQUENCES  APE  AS  FOLLOWS:- 

TC  UPFLAG  TC  DOWNFLAG 

AORES  NAME  OF  FLAG  ADRES  NAME  OF  FLAG 

RETURN  IS  TO  THE  LOCATION  FOLLOWING  THE  "ADRES"  ABOUT  .58  MS  AFTER  THE  "TC". 

UPON  RETURN  A CONTAINS  THE  CURRENT  FLAGWRC  SETTING. 


0050 

5506 

BLOCK 

02 

005  1 

REF 

3 

LAST 

1291 

4000 

SETLOC 

FFTAG1 

0052 

5506 

BANK 

0053 

REF 

1 

COUNT* 

$ $/ FL  AG 

0054 

REF 

3 6 3 

LAST 

1367 

5506 

3 0002 

0 

UPFLAG 

CA 

Q 

0055 

RFF 

2 

LAST 

738 

5507 

0 5524 

1 

TC 

DEBIT 

0056 

5510 

4 0000 

0 

COM 

+ (15  - BIT  1 

005  7 

5511 

0 0006 

1 

EXTEND 

0058 

REF 

13 

LAST 

1024 

5512 

04  001 

1 

ROR 

L CHAN 

SET  BIT 

0059 

KEF 

55 

LAST 

1322 

5513 

50  061 

0 

COMFLAG 

INDEX 

1 TEMP  1 

0060 

REF 

32 

LAST 

963 

5514 

54  C74 

0 

TS 

FLAGWRDO 

0061 

REF 

22 

LAST 

1297 

5515 

22  063 

1 

LXCH 

I TEMP3 

0062 

5516 

0 0003 

1 

REL  TNT 

0063 

REF 

260 

LAST 

1371 

5517 

0 0001 

0 

TC 

L 

0064 

RFF 

364 

LAST 

1372 

5520 

3 

0002 

0 

DOWNFLAG  CA 

Q 

0065 

REF 

3 

LAST 

1372 

5521 

0 

5524 

1 

TC 

DEBIT 

0066 

REF 

261 

LAST 

1372 

5522 

7 

0001 

1 

MASK 

L 

RESET  BIT 

006  7 

REF 

2 

LAST 

738 

5523 

1 

5513 

1 

TC  F 

COMFLAG 

0068 

REF 

131 

LAST 

1367 

5524 

6 4 744 

L DEBIT 

AD 

ONE 

GET  DE  BITS 

0069 

5525 

0 0004 

0 

INHINT 

0070 

REF 

23 

LAST 

1372 

5526 

54  C63 

0 

TS 

I TEMP3 

007  l 

REF 

3 

LAST 

1090 

5527 

3 4753 

1 

CA 

L0W4 

DEC15 

007  2 

REF 

56 

LAST 

1372 

5530 

54  061 

1 

TS 

I TEMP  l 

0073 

REF 

24 

LAST 

1372 

5531 

50  063 

1 

INDEX 

I TEMP3 

0074 

5532 

2 ' 7 777 

0 

CA 

0 -1 

ADRES 

0075 

REF 

262 

LAST 

1372 

5533 

54  001 

1 

TS 

L 

0076 

REF 

265 

LAST 

1367 

5534 

3 4746 

0 

CA 

ZERO 

GAP: 
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007  7 

5535 

0 0006 

1 

EXTEND 

0078 

REF 

57 

LAST 

1372 

5536 

10  061 

1 

DV 

I TEMP  1 

0079 

REF 

58 

LAST 

1373 

5537 

52  062 

1 

DXCIH 

I TEMPI 

0080 

REF 

59 

LAST 

1373 

5590 

50  061 

0 

INDEX 

I TEMP  1 

0081 

REF 

33 

LAST 

1372 

559  1 

3 0079 

1 

CA 

FLAGWRDO 

0082 

REF 

263 

LAST 

1372 

5 592 

59  001 

1 

TS 

L 

008  3 

REF 

30 

LAST 

1321 

5593 

50  062 

0 

INDEX 

ITEMP2 

0089 

REF 

99 

LAST 

1366 

5 599 

9 9726 

1 

CS 

8 I T 1 5 

0035 

REE 

365 

LAST 

1372 

5595 

0 0C02 

0 

TC 

Q 
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L SERVICE  ROUTINES 

P0086  DELAYJCB-  A GENERAL  ROUTINE  TC  DELAY  A JOB  A SPECIFIC  AMOUNT  OF  TIME 


R008B 

A0089 

ENTRANCE 

REQUIREMENTS . . . 

CAF 

DT 

A0090 

TC 

BANKCALL 

A009I 

CADR 

DELAY JOB 

0092 

06,3776 

BANK 

06 

0093 

REF  1 

00,2000 

SETLOC 

D L AY  J OB 

009  A 

00,3735 

BANK 

R0095  THIS  MLST  REMAIN  IN  BANK  0 ****** ***** *** ** ********************** *** 


0096 

REF 

1 

COUNT* 

$ S/DELAY 

00965 

REF 

6 

LAST 

1313 

00,3735 

3 A 7 7 1 

1 

2 SECDELY 

CAF 

2 SECS 

009  7 

00,3736 

0 OOOA 

0 

DELAY  JOB 

INHINT 

0098 

REF 

366 

LAST 

1373 

00,3737 

5 A 002 

1 

TS 

Q 

0099 

REF 

1 

00, 3 7 AO 

3 A 7A3 

0 

CAF 

DELAYNUM 

0100 

REF 

36 

LAST 

1323 

00, 37A1 

5 A 070 

1 

DELLOOP 

TS 

RUPTREG1 

010  1 

REF 

A A5 

LAST 

1368 

00, 37A2 

50  000 

1 

INDEX 

A 

0102 

RFF 

A 

LAST 

233 

00, 37A3 

3 1323 

1 

CA 

DELAYLOC 

0103 

00.37AA 

0 0006 

1 

EXTEND 

010A 

REF 

1 

00.37A5 

1 3753 

1 

BZF 

0K2DELA Y 

0105 

REF 

37 

LAST 

1 37  A 

00, 37A6 

10  070 

1 

CCS 

RUPTREG1 

0106 

REF 

1 

00 , 37  A7 

l 3 7 A 1 

1 

TC  F 

DELLOOP 

0107 

REF 

27 

LAST 

1328 

00,3750 

52  1 3 A 

0 

DXCH 

8UF2 

0108 

REF 

7 

LAST 

1327 

00,3751 

0 5712 

0 

TC 

B A I LOUT  1 

0109 

00,3752 

3110A 

0 

OCT' 

3 11 OA 

0110 

REF 

1 

00,3753 

3 3 7 73 

1 

0K2DEL AY 

CA 

TCSLEEP 

0111 

REF 

7 

LAST 

1130 

00 , 3 75A 

5A  061 

1 

TS 

WA  ITEXIT 

0112 

REF 

31 

LAST 

1103 

00,3755 

3 OCOA 

0 

CA 

F BANK 

0113 

REF 

38 

LAST 

1 37  A 

00,3756 

6 0070 

0 

AD 

RUPTREG l 

0 1 1 A 

REF 

26A 

LAST 

1373 

00,3  757 

5 A 001 

1 

TS 

L 

0115 

REF 

l 

00,3760 

3 377A 

0 

CAF 

WAKECAD 

0116 

REF 

2 

LAST 

1117 

00,3761 

l 5213 

0 

TC  F 

0LY2  -1 

0117 

REF 

1A 

LAST 

1360 

00,3762 

0 A636 

0 

TCGETCAD 

TC 

MAKECADR 

0118 

RFF 

39 

LAST 

1 3 7 A 

00,3763 

50  070 

0 

INDEX 

RUPTREG 1 

0119 

REF 

5 

LAST 

1 3 7 A 

00,37  6A 

55' 323 

0 

TS 

DELAYLOC 

0120 

REF 

8 

LAST 

1361 

00,3765 

0 512A 

0 

TC 

JOBSLEEP 

0121 

REF 

266 

LAST 

1372 

00,3766 

3 A 7A6 

0 

WAKER 

CAF 

ZERO 

0122 

REF 

A6 

LAST 

1358 

00,3767 

50  006 

l 

INDEX 

BBANK 

17:11  MAR.  19,1971  SKIPPER  .131  PAGE  137A 
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BEFORE  PICKING  UP  AGAIN. 

DELAY  JOB  FOR  DT  CENTISFCS 


STORE  DELAY  DT  IN  0 FOR  DLY  -1  IN 
WAITL 1ST 

IS  THIS  DELAYLUC  AVAILABLE 
YES 

NO,  TRY  NEXT  DELAYLOC 

NO  AVAILABLE  LOCS. 

SET  WAITLIST  IMMEDIATE  RETURN 

STORE  BPANK  FOR  TASK  CALL 

STORE  CADR  FOR  TASK  CALL 
DLY  IS  IN  WAITLIST  ROUTINE 

GFT  CALLERS  FC ADR 


SAVE  DELAY  CAORS 
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SERVICE 

ROUTINES 

0123 

REF 

6 

LAST 

1374 

00,3770 

0124 

REF 

14 

LAST 

136  1 

00,3771 

0125 

REF 

77 

LAST 

1325 

00,3772 

0126 

REF 

1 

00,3773 

0127 

REF 

1 

00,3774 

57 ' 323 

L 

XCH 

DELAYLOC 

0 5130 

0 

TC 

JOBWAKE 

0 5263 

0 

TC 

T ASKUVER 

C3760 

0 

TC.SLEEP 

GENADR 

T CGETCAO 

03  766 

0 

W AKECAD 

GENADR 

WAKER 

17:11  MAR.  19,1971  SKIPPER 
USER'S  PAGE  NO.  5 
MAKE  DELAYUOC  AVAILABLE 
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L SERVICE  ROUTINES  USER'S  PAGE  NO.  6 EO  S3 

P0128  GENTRAN,  A BLOCK  TRANSFER  ROUTINE. 

R0129  WRITTEN  BY  D.  EYLES 

R0130  MOD  1 t?Y  KERNAN  UTILTTYM  REV  17  11/18/67 

R 0 1 3 2 MOD  2 PY  SCHUL  EN8  ERG  (REMOVE  RELINT)  SKIPPER  REV  4 2/28/68 

R0133  THIS  ROUTINE  IS  USEFULL  For  TRANSFERING  N CONSECUTIVE  ERASABLE  OR  FIXED  QUANTITIES  TO  SOME  OTHER  N 

R0135  CONSECUTIVE  ERASABLE  LOCATIONS.  IF  BOTH  BLOCKS  OF  DATA  ARE  IN  SWITCHABLE  EBANKS,  THEY  MUST  BE  IN  THE  SAME  ONE. 

R0137  GENTRAN  IS  CALLABLE  IN  A JOB  AS  WELL  AS  A RUPT.  THE  CALLING  SEQUENCE  IS: 


AO  13  9 

I 

CA 

N-l 

q OF  QUANTITIES  MINUS  ONE . 

AO  140 

I +1 

TC 

GENTRAN 

IN  FIXED-FIXED. 

AO  141 

I +2 

ADRES 

L 

START ING  ADRES  OF 

DATA  TO  BE  MOVED. 

AO  142 

1 +3 

ADRES 

M 

STARTING  ADRES  OF 

DUPLICATION  BLOCK 

AO  14  3 

I +4 

RETURNS  HERE. 

RO  144 


GENTRAN  TAKES  25  MCT'S  1300  M I C R CSECONDS ) PER  ITEM  + 5 MCT'S  (60  MICS)  FOR  ENTERING  AND  EXITING. 


RO  146 

A,  L 

AND 

ITEMP1  ARE 

NOT  PRESERVED. 

014  7 

5596 

BLOCK 

02 

0148 

REF 

2 

LAST 

1351 

4000 

SETLOC 

FFTAG4 

0149 

5546 

BANK 

0150 

REF 

60 

LAST 

1373 

0061 

EBANK= 

I TEMPI 

015  1 

REF 

1 

COUNT  * 

tt/TRAN 

0152 

5546 

0 0004 

0 GENTRAN 

INHINT 

0153 

REF 

61 

LAST 

1376 

5547 

54  061 

1 

TS 

I TEMPI 

0154 

REF 

367 

LAST 

1374 

5550 

50  002 

0 

INDEX 

Q 

0155 

555  1 

6 0000 

1 

AD 

0 

0156 

REF 

446 

LAST 

1374 

5552 

50  000 

l 

INDEX 

A 

0157 

5553 

3 0000 

1 

CA 

0 

0158 

KEF 

265 

LAST 

1374 

5554 

54  001 

1 

TS 

L 

0159 

REF 

62 

LAST 

1376 

5555 

3 0061 

0 

CA 

ITEMP  1 

0160 

REF 

368 

LAST 

1376 

5556 

50  C 02 

0 

INDEX 

Q 

016  l 

5557 

6 0001 

0 

AD 

1 

0162 

REF 

447 

LAST 

1376 

5560 

50  000 

1 

INDEX 

A 

0163 

556  l 

22  000 

1 

LXCH 

0 

0164 

REF 

63 

LAST 

1376 

5562 

10  061 

1 

CCS 

I TEMPI 

0165 

REE 

2 

LAST 

309 

5563 

1 5547 

0 

TCF 

GENTRAN 

0166 

REF 

7 

LAST 

1291 

5564 

1 6762 

0 

TCF 

Q + 2 

SAVE  N-l. 

C1Q)  = ADRES  L. 
ADRES  ( L + N - l ) . 

C( ABOVE)  . 

SAVE  DATA. 


ADRES  (M  + N - 1 ) . 
STUFF  IT. 

LOOP  UNTIL  N-l  = 0. 


RETURN  TO  CALLER 


GAP: 

L 

P0L67 

RO 168 

0170 

017  1 

0172 

0173 

0174 
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MAY  BE  USED  AS  NEEDED  BY  ANY  EXTENDED  VERB  WHICH  HAS  DUNE  TESTXACT 


REF  l COUNT*  $ $ /E  XTV  8 


REF 

48 

LAST 

1364 

5565 

4 

4 740 

1 B50FF 

cs 

B IT5 

REF 

17 

LAST 

1351 

5566 

7 

1043 

0 

MASK 

EXTVBACT 

REF 

18 

LAST 

1377 

5567 

55 

• C43 

0 

TS 

EXTVBACT 

REF 

148 

LAST 

1369 

5570 

0 

5146 

1 

TC 

E NDOF  JOB 

GAP: 
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R0001 

THE  FOLLOWING 

SUBROUTINE  MAY 

BE  CALLED 

TO  DISPLAY  A NON-ABORTIVE  ALARM  CONDITION.  IT  MAY  BE  CALLED 

R000  3 

EITHER 

IN  INTERRUPT 

OR 

UNDER 

EXECUTIVE 

CONTROL. 

R0004 

CALLING  SEQUENCF  IS 

AS  FOLLOWS: 

R0005 

TC 

ALARM 

R0006 

OCT 

AAANN 

ALARM 

NO . NN  IN 

GENERAL 

AREA  AAA. 

R0007 

(RETURNS  HERE) 

000  8 

5571 

BLOCK 

02 

0009 

REF 

1 

4000 

SETLOC 

FFTAG7 

0010 

5571 

BANK 

001 1 

REF 

8 

LAST 

486 

0375 

EBANK= 

FA  ILREG 

0012 

REF 

1 

COUNT* 

$$/AL ARM 

R0013 

ALARM  TURNS  ON 

THE 

PROGRAM  ALARM  LIGHT 

, BUT  DOES 

NOT  DISPLAY. 

0014 

5571 

0 0004 

0 

ALARM 

INHINT 

0013 

REF 

369 

LAST 

1376 

5572 

3 C002 

0 

CA 

Q 

0016 

REF 

8 

LAST 

1283 

5573 

55' 363 

1 

ALARM2 

TS 

ALMCADR 

0017 

REF 

370 

LAST 

1378 

5 5 74 

50  002 

0 

INDEX 

0 

0018 

5575 

3 COOO 

1 

CA 

0 

0019 

REF 

266 

LAST 

1376 

5576 

54  001 

1 

BORTENT 

TS 

L 

0020 

REF 

47 

LAST 

1374 

5577 

3 0006 

1 

PRIOENT 

CA 

8BANK 

002  l 

5600 

0 0006 

1 

+ 1 

EXTEND 

0022 

REF 

27 

LAST 

1359 

5601 

04  007 

1 

ROR 

SUPERBNK 

ADD  SUPER  BITS. 

0023 

REF 

9 

LAST 

1378 

5602 

55*364 

0 

TS 

ALMCADR  +1 

0024 

REF 

371 

LAST 

1378 

5603 

3 0002 

0 

L ARMENT 

CA 

Q 

STORE  RETURN  FOR  ALARM 

0025 

REF 

64 

LAST 

1376 

5604 

54  C 6 1 

1 

TS 

I TEMPI 

0026 

REF 

<5 

LAST 

1378 

5605 

10  375 

1 

CHKFAIL1 

CCS 

F AILREG 

IS  ANYTHING  IN  FAILREG 

002  7 

REF 

1 

5606 

1 5612 

0 

TCF 

CHKFAIL2 

YES  TRY  NEXT  REG 

0028 

REF 

267 

LAST 

1378 

5607 

3 0001 

0 

CA 

L 

002  8 5 

REF 

10 

LAST 

1378 

5610 

54  375 

1 

TS 

FAILREG 

002  9 

REF 

1 

5611 

1 5616 

1 

TCF 

PROGLARM 

TURN  ALARM  LIGHT  ON  FOR  FIRST  ALARM 

0030 

REF 

1 1 

LAST 

1378 

5612 

10  376 

1 

CHKFAIL2 

CCS 

FAILREG  +1 

0031 

REF 

2 

LAST 

1378 

56  13 

1 5616 

1 

TCF 

PROGLARM 

0032 

REF 

268 

LAST 

1378 

5614 

3 0001 

0 

CA 

L 

0033 

REF 

12 

LAST 

1378 

5615 

54  376 

1 

TS 

FAILREG  +1 

0039 

REF 

13 

LAST 

1378 

5616 

22  377 

1 

PROGLARM 

LXCH 

FAILREG  +2 

STORE  AS  "MOST  RFCFNT"  ALARM  CODE 

0040 

REF 

58 

LAST 

1366 

5617 

4 1035 

1 

CS 

DSPTAB  + l 1 D 

TURN  ON  PROGRAM  ALARM  IF  OFF 

0041 

REF 

2 

LAST 

1356 

5620 

7 5634 

1 

MASK 

0CT40400 

0042 

REF 

55 

LAST 

1378 

5621 

27'035 

1 

AOS 

DSPTAB  +110 
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0043 

REF 

65 

LAST 

1378 

5622 

56  061 

0 

MULTEXIT 

XCH 

ITEMP1 

0044 

5623 

C 0003 

1 

REL  INT 

0045 

REF 

448 

LAST 

1376 

5624 

50  000 

1 

INDEX 

A 

0046 

5625 

0 0001 

0 

TC 

1 

R0051 

PR  IOLARM 

DISPLAYS  V05N09  VIA 

PRIODSP 

R WITH  3 RETURNS  TO 

THE  USER 

R0053 

an  : 

IMMFC I ATE 

RETURN 

TO  THE  USER  AT  CALL 

LOC  +4. 

EXAMPLE 

FOLLOWS , 

A0054 

CAF 

OCTXX 

A0055 

TC 

BANKCALL 

A0056 

CADR 

PRIOLARM 

A0057 

... 

... 

A0058 

. . . 

. . . 

A0059 

... 

... 

A 0060 

TC 

P HASCHNG 

A006  1 

OCT 

X.l 

0062 

10,3572 

BANK 

10 

0063 

REF 

3 

LAST 

137  1 

10,2000 

SETLOC 

D ISPLAYS 

0064 

10,3572 

BANK 

0065 

REE 

3 

LAST 

1371  TO 

1372: 

14  685* 

COUNT* 

$ $/DSPL A 

0066 

10,3572 

0 0004 

0 

PRIOLARM 

INHINT 

0067 

REF 

269 

LAST 

1378 

10,35/3 

54  001 

1 

TS 

L 

0068 

REE 

28 

LAST 

1374 

10,3574 

3 0133 

0 

CA 

BUE2 

0069 

REE 

10 

LAST 

1378 

10, 3575 

55*363 

1 

TS 

ALMCADR 

0070 

REF 

29 

LAST 

1379 

10,3576 

3 0134 

1 

CA 

BUF2  +1 

0071 

REF 

1 

10,35  77 

0 5600 

1 

TC 

PRIOENT 

0072 

10,3600 

77467 

1 

-2SEC 

DEC 

-200 

0073 

REF 

6 

LAST 

927 

10,3601 

3 4777 

1 

CAF 

V05N09 

0074 

REF 

2 

LAST 

530 

10,3602 

1 2477 

0 

TC  F 

PRIODSPR 

0075 

5626 

BLOCK 

02 

0076 

REF 

2 

LAST 

1378 

4000 

SETLOC 

F F T AG 7 

0077 

5626 

BANK 

0078 

REF 

2 

LAST 

1378  TU 

1379: 

29 

?9* 

COUNT* 

$ $/ AL  ARM 

0079 

5626 

0 0 C 04 

0 

BAILOUT 

INHINT 

0080 

REF 

372 

LAST 

1378 

5627 

3 0002 

0 

CA 

Q 

0C8  1 

REE 

11 

LAST 

1379 

5630 

55*363 

1 

TS 

ALMCADR 

0082 

RFF 

373 

LAST 

1379 

5631 

50  C02 

0 

INDEX 

Q 

0083 

5632 

3 0000 

1 

CAF 

0 

0084 

REE 

1 

5633 

0 5576 

0 

TC 

BORTENT 

0085 

5634 

40400 

1 

OCT40400 

OCT 

40400 

0086 

5635 

0 0004 

0 

INHINT 

0087 

REF 

86 

LAST 

1366 

5636 

3 4743 

0 

WHIMPER 

CA 

TWO 

0088 

REF 

24 

LAST 

1291 

5637 

6 0005 

1 

AD 

l 
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USER ' S PAGE  NO.  2 EO  S3 

OBTAIN  RETURN  ADDRESS  IN  A 


FROM  THE  ASTRONAUT  AT  CALL  LOC  +1.+2.+3  AND 
ALARM  CODE 


ASTRONAUT  RETURN 
IMMEDIATE  RETURN 
PHASE  CHANGE  FOR 


TO  USER.  RESTART 
PRIO  DISPLAY 


* * * KFEP  IN  DISPLAY  ROUTINES  BANK 
SAVE  ALARM  CODE 

2 CADR  OF  PRIOLARM  USER 


1 


* LEAVE  L ALONE 
***  DONT  MOVE 


GAP:  ASSEMBLE  REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L ALARM  AND  ABORT 


0089 

REF  2 

LAST 

833 

5640 

54  017 

0 

TS 

BRUPT 

0090 

5641 

5 OC  1 7 

1 

RESUME 

0091 

REF  62 

LAST 

1351 

5642 

0 4626 

l 

TC 

POSTJUMP 

0092 

REF  2 

LAST 

834 

5643 

12767 

1 

CADR 

ENFMA 

0093 

5644 

0 0004 

0 

POODcm 

INHINT 

0094 

REF  314 

LAST 

1379 

5645 

3 0002 

0 

CA 

0 

0095 

REF  12 

LAST 

1379 

5646 

55 ' 363 

1 

A BOR  T 2 

TS 

ALMCADR 

0096 

REF  315 

LAST 

1380 

5647 

50  002 

0 

INDEX 

Q 

0097 

5650 

3 0000 

1 

CAF 

0 

009  8 

REF  2 

LAST 

1379 

5651 

0 5576 

0 

TC 

80RTENT 

0099 

5652 

77770 

1 

OCT77  770 

OCT 

77770 

00995 

*REF  19 

LAST 

1377 

5653 

11*043 

0 

CCS 

EXTVBACT 

0 0996 

*REF  2 

LAST 

869 

5654 

l 5635 

0 

TC  F 

WHIMPER 

0100 

REF  3 

LAST 

1094 

5655 

3 4756 

1 

CAF 

OCT35 

010  1 

REF  270 

LAST 

1379 

5656 

54  001 

1 

TS 

L 

0102 

5657 

4 COOO 

0 

COM 

0103 

REF  9 

LAST 

869 

5660 

52  760 

1 

DXCH 

-PHASE4 

0104 

5661 

0 0004 

0 

GOPOODOO 

INHINT 

01042 

REF  258 

LAST 

1332 

5662 

0 4607 

1 

TC 

BANKCALL 

AO  104  3 

01044 

REF  1 

5663 

43007 

1 

CADR 

FLAGS 

0105 

REF  32 

LAST 

1337 

5664 

3 0103 

0 

CA 

FLAGWRD7 

010  6 

REF  4 

LAST 

296 

5665 

7 4737 

1 

MASK 

V37FL8IT 

0107 

REF  449 

LAST 

1379 

5666 

10  COO 

0 

CCS 

A 

0108 

REF  1 

5667 

1 5675 

1 

TCF 

STRTIDLE 

0109 

REF  299 

LAST 

1380 

5 6 70 

0 4607 

1 

TC 

BANKCALL 

0110 

RFF  2 

LAST 

24  I 

5671 

12654 

0 

CADR 

V37KLEAN 

0110  2 

REF  3 CO 

LAST 

1380 

5672 

0 4607 

1 

TC 

BANKCALL 

01104 

REF  2 

LAST 

223 

5673 

12645 

0 

CADR 

MR.KLEAN 

0111 

REF  3 

LAST 

1380 

5674 

1 5636 

0 

TCF 

WHIMPER 

0112 

REF  1 

5675 

3 5737 

1 

STRTIOLE 

CAF 

B8SERVDL 

01122 

REF  3 

LAST 

1362 

5676 

0 4720 

0 

TC 

SUPERSW 

0112  4 

REF  301 

LAST 

1380 

5677 

0 4607 

1 

TC 

BANKCALL 

01125 

REF  1 

5700 

57324 

0 

CADR 

SERVIDLE 

0114 

5 701 

0 C 004 

0 

CCSHOLE 

INHINT 

0115 

REF  376 

LAST 

1380 

5 702 

3 0002 

0 

CA 

Q 

0116 

REF  1 

5703 

0 5646 

0 

TC 

AB0RT2 

0117 

5704 

21103 

0 

0CT21103 

OCT 

21103 

0118 

5 705 

0 0004 

0 

CURTAINS 

INHINT 

0119 

REF  377 

LAST 

1380 

5 706 

3 0002 

0 

CA 

Q 

0120 

REF  2 

LAST 

1283 

5707 

0 5573 

0 

TC 

ALARM2 

0121 

5710 

00217 

0 

0CT2  17 

OCT 

00217 

0122 

REF  13 

LAST 

1380 

5711 

0 1363 

0 

TC 

ALMCADR 

0123 

5712 

0 0004 

0 

BA  I L OUT  1 

INH I NT 

0124 

REF  14 

LAST 

1380 

5 713 

53 ' 364 

0 

DXCH 

ALMCAOR 

0125 

REF  1 

5714 

3 5736 

0 

CAF 

ADR40400 

0126 

REF  66 

LAST 

1379 

5715 

54  061 

1 

BOTHABRT 

TS 

I TEMPI 

17:11  MAR.  19,1971  SKIPPER 
USER'S  PAGE  NO.  3 
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RESUME  SENDS  CONTROL  HERE 


DON'T  MOVE 

DO  BAILOUT  NOT  POODOO  IF  FXT.  VB.  ACTIVE 


4.35SPCT  FOR  GOPOODOO 


RESET  STATEFLG,  R E I NT  F LG,  AND  NODOFLAG. 
ALSO  PNDVZFIG,  P25FLAG  AND  TRACKFLG 

IS  SERVICER  CURRENTLY  IN  OPERATION? 


TERMINATE  GRPS  1,  3,  5,  AND  6 

TERMINATE  GRPS  2,  4,  1,  3,  5,  AND  6 
( I .E.,  GRP  4 l AST) 


PUT  SERVICER  INTO  ITS  "GROUND"  STATE 
AND  PROCEED  TO  GOTOPOOH. 


P.FTURN  TO  USER 


GAP: 


ASSEMBLE  RFVISION  210  CF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L ALARM  AND  ABORT 


0127 

REF 

378 

LAST 

1380 

5716 

50  002 

0 

index 

Q 

0128 

5717 

3 0000 

1 

CAF 

0 

0129 

REF 

27  1 

LAST 

1380 

5720 

54  OOL 

1 

TS 

L 

0130 

REF 

1 

5721 

1 5605 

0 

TCF 

CHKFAIL1 

013  1 

5722 

0 0004 

0 

P00D001 

INHINT 

0132 

REF 

15 

LAST 

1330 

5723 

53 '364 

0 

DXCH 

ALMCADR 

0133 

REF 

1 

5724 

3 5735 

0 

CAF 

A DR  77  770 

0134 

REF 

1 

5725 

1 5715 

0 

TCF 

BOTHABRT 

0135 

5726 

0 0004 

0 

AL  ARM  1 

INHINT 

0136 

REF 

16 

LAST 

1381 

5727 

53 '364 

0 

DXCH 

ALMCADR 

0137 

5730 

0 0004 

0 

ALMNC ADR 

INHINT 

013  8 

REF 

379 

LAST 

1381 

5 731 

50  002 

0 

INDEX 

0 

0139 

5 732 

3 0000 

1 

CA 

0 

0140 

REF 

272 

LAST 

1381 

5733 

54  001 

1 

TS 

L 

014  1 

REF 

1 

5734 

1 5603 

0 

TCF 

L ARMENT 

0142 

REF 

5 

LAST 

1371 

5735 

1 5652 

L 

ADR  777  7 0 

TCF 

OCT77770 

0143 

REF 

3 

LAST 

1378 

5736 

1 5634 

1 

ADR40400 

TCF 

OCT40400 

0144 

REF 

149 

LAST 

1377 

5146 

DOALARM 

EQUALS 

ENDOF JOB 

0 144  4 

REF 

52 

LAST 

894 

E7,  1515 

E B A N K = 

DVCNTR 

01445 

REF 

2 

LAST 

1380 

5737 

56067 

0 

BBSERVDL 

BBCON 

SERVIDLE 

R 0 1 4 5 

CALL 

. ING 

SEQUENCE  FOR 

VARALARM 

AO  14  6 

CAF 

I ALARM) 

AO  14  7 

TC 

VARALARM 

R0148 

VARAL  ARM 

TURNS 

ON  PROGRAM  ALARM  LIGHT 

BUT  DOES  NOT  DISPLAY 

0149 

5740 

0 0004 

0 

VARALARM 

INHINT 

0150 

REF 

273 

LAST 

1381 

5741 

O 

o 

in 

1 

TS 

L 

015  1 

REF 

380 

LAST 

1381 

5 742 

3 0002 

0 

CA 

Q 

0152 

REF 

17 

LAST 

1381 

5743 

55' 363 

1 

TS 

ALMCADR 

0153 

REF 

2 

L AST 

1379 

5744 

0 5577 

1 

TC 

PRIOENT 

0154 

5745 

00014 

1 

OCT  14 

OCT 

14 

0155 

REF 

18 

LAST 

1381 

5 746 

0 1363 

0 

TC 

ALMCADR 

0156 

REF 

4 

LAST 

1380 

5636 

A80RT 

EQUALS 

WHIMPER 

0158 

REF 

1 

21,2000 

SETLOC 

ABTFLGS 

0159 

21,3007 

BANK 

0160 

REF 

1 

COUNT  * 

$ $/AL ARM 

016  1 

REF 

1 

21,3007 

4 4740 

1 

FLAGS 

CS 

STATEBIT 

0162 

REF 

16 

l AST 

1336 

21,3010 

7 0077 

0 

MASK 

FLAGWRD3 

0163 

REF 

17 

LAST 

1381 

21,3011 

54  07  1 

0 

TS 

FLAGWRD3 

0164 

REF- 

3 

LAST 

12L7 

21,3012 

4 4736 

0 

CS 

RE  INTBIT 

0165 

REF 

23 

LAST 

866 

21,3013 

7 0106 

1 

MASK 

FLGWRD10 
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SAVE  USERS  ALARM  CODE 
SAVE  USERS  Q 

DONT  MOV  F 


RETURN  TO  USER 


GAP:  ASSFMBLE  REVISION  210  CE  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L ALARM  AND  ABORT 


0166 

REF 

2 A 

LAST 

138  l 

21,3014 

54 

106 

1 

TS 

FLGWRD10 

0167 

REF 

3 

LAST 

2A1 

21,3015 

A 

4744 

0 

CS 

NODOBIT 

0168 

REF 

25 

LAST 

1312 

21,3016 

7 

0076 

1 

MASK 

FLAGWRD2 

0169 

REF 

26 

LAST 

1382 

21,3017 

54 

C 76 

1 

TS 

FLAGWRD2 

01691 

REF 

A 

LAST 

300 

21,3020 

A 

6017 

0 

CS 

BITS9+7 

01692 

REF 

7 

LAST 

1332 

0010 

FLAGREFl 

EQUALS 

RNDVZFLG 

01693 

REF 

3 

LAST 

731 

0006 

FLAGREF2 

EQUALS 

P25FLAG 

016  9 A 

REF 

3A 

LAST 

1373 

21,3021 

7 

C 0 74 

0 

MASK 

FLAGWROO 

01695 

REF 

35 

LAST 

1382 

21,3022 

54 

074 

0 

TS 

FLAGWRDO 

01696 

REF 

6 

LAST 

71  1 

21, 3023 

4 

C031 

l 

CS 

TRACKFLG 

01697 

REF 

37 

LAST 

1312 

21,3024 

7 

0075 

l 

MASK 

F LAGWRD1 

01698 

REF 

38 

LAST 

1382 

21,3025 

54 

075 

1 

TS 

F LAGWRD1 

0170 

REF 

381 

LAST 

138  1 

21,3026 

0 

C002 

0 

TC 

Q 

R.  19 

,1971 

SKIPPER  . 

,131  PAGE 

USER' 

S PAGE 

NG.  5 

EO  S3 

1382 


GAP: 
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L 

ROOO  1 
R000  2 

R0003 
R0G04 
ROOO  5 

R0006 

ROOO  7 
R0008 
R 0009 
R0010 
R001  1 

R0012 

R0014 

R0016 

R0017 

R0018 

R0019 
R0020 
R0022 
R0023 
R0025 
R0027 
R002  9 
R003  1 

R0032 

R0033 

R0035 

R0036 

R0038 

R0G39 


R004  l 

R0042 

ROO',3 
R004  6 
R0047 
R0049 


UP  CAT  F PROGRAM 

PROGRAM  NAME: 
WRITTEN  BY: 

MOD  NO: 

MOO  BY: 

CATE: 

LOG  SECTION: 


P27 

KILRCY/  DE  WOLF 
6 

K ILROY 
01DEC67 

UPCATE  PROGRAM. 


USER'S  PAGE  NO. 


FUNCT.  CESCR : 


CALLING  SEQ: 


P 27  (THE  UPDATE  PROGRAM)  PROCESSES  COMMANDS  AND  DATA 
INSERTIONS  REQUESTED  BY  THE  GROUND  VIA  UPLINK. 

THE  P27  PROGRAM  WILL  ACCEPT  UPDATES 

ONLY  DURING  POO  FOR  THE  LM,  AND  ONLY  DURING  POO, 

P02 , AND  FRESH  START  FOR  THE  CSM 

PROGRAM  IS  INITIATED  BY  UPLINK  ENTRY  OF  VERBS  70,  71,  72  ANO  73. 


EO  S3 


SUBROUTINES : 


T ESTXACT  , NEWMODEX,  NEWMODEX  +3,  GOXDSPF,  BANKCALL,  FINDVAC,  I NT  PR  FT , INTSTALL,  TPAGREF , 
INTWAKEU,  ENDEXT,  POSTJUMP,  FALTON,  NEWPHAS  E , PHASCHNG 


NORMAL  EXIT:  TC  ENDEXT 


ALARM/ABORT:  TC  FALTUN  FOLLOWED  BY  TC  ENDEXT 


RESTARTS:  P27  IS  RESTART  PROTECTED  IN  TWO  WAYS... 

1.  PRIOR  TO  V ER I FLAG  I NVE R S I ON ( WH I CH  IS  CAUSED  BY  THE  GROUND/ ASTRONAUT ' S VERIFICATION  OF  UPDATE 

DATA  BY  SENDING  A V33E  WHEN  V21N02  IS  FLASHING) 

NO  PROTECTION  EXCEPT  PRE-P27  MODE  IS  RESTORED,  COAST  + ALIGN  DOWNLIST  IS  SELECTED  AND  UPLINK 
ACTIVITY  LIGHT  IS  TURNED  OFF. (JUST  AS  IF  A V34E  WAS  SENT  DURING  P27  DATA  LOADS). 

V70,V71,V72  OR  V73  WILL  HAVE  TO  BE  COMPLETELY  RESENT  BY  USER. 

2.  AFTER  VERIFLAG  I N VE RS I CN [ WH EN  UPDATE  OF  THE  SPECIFIED  FRASABLES  IS  BEING  PERFORMED) 

PROTECTED  AGAINST  RESTARTS. 


DEBR  IS: 


UPBUFF 

( 2 OD  ) 

UPVERB 

( 1 ) 

UPOLDMOD 

(1  ) 

C OMPNUMB 

(1) 

UPCOUNT 

(1  ) 

UPTEMP 

( 1 ) 

TEMP  STORAGE  FOR  ADDRESSES  AND  CONTFNT  S . 

VERB  NUMBER  MINUS  70D  (E.G.  FOR  V 72,  UPVERB  = 72D  - 70D  = 2) 

FCR  MAJOR  MODE  INTERRUPTED  BY  P27. 

TOTAL  NUMBER  OF  COMPONENTS  TO  BE  TRANSMITTED. 

ACTUAL  NUMBER  OF  COMPONENTS  RECEIVED. 

SCRATCH,  BUT  USUALLY  CONTAINS  COMPONENT  NUMBFR  TO  BE  CHANGFO  DURING  VERIFY  CYCLE 


INPUT  : 

ENTRY:  DESCRIPTION 


V70EXXXXXEXXXXXE  (LIFTOFF  TIME  INCREMENT)  DOUBLE  PRECISION  OCTAL  TIME  INCREMENT,  XXXXX  XXXXX, 

IS  ADDED  TO  TEPHEM,  SUBTRACTED  FROM  AGC  CLOCK ( T I M E2 , T I ME  1 ) , SUBTRACTED  FROM  CSM  STATE 
VECTOR  TIME ( TE TC SM ) AND  SUBTRACTED  FROM  LEM  STATE  VECTOR  T I M F ( T ETL FM  I . 

THE  DP  OCTAL  TIME  INCREMENT  IS  SCALED  AT  2(23). 


GAP: 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


PAGE  138A 


L 

R0050 
R0051 
R0052 
R005  3 
R0054 
R005S 

R0056 

R0057 

R0058 

R0060 

R006  I 
R 006  2 
R0063 
R0064 


R006S 

R0066 


. R006  7 

R0069 
R007  2 


R0073 

R0074 

R 007  5 
R0077 
R0078 
R0080 
R0082 
R 008  3 
R008A 
R0086 
R0088 
R0090 
R0092 
R0094 
R0096 
R0098 


R014A 

R01A5 


UPCATE  PROGRAM 
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V 7 1 E I IEAAAAE 
XXXXXE 
XXXXXE 

9 NEXT  BANK 


(CONTIGUOUS  BLCCK  UPOATE)  I 1-2  OCTAL  COMPONENTS , XXX XX, 
ARE  LOADED  INTO  ERASABLE  STARTING  AT  ECADR,  AAAA  . 

IT  IS  .GE.  3 .AND.  .LE.  20D., 

AND  (AAAA  + II  - 3)  DOES  NOT  PRODUCE  AN  ADDRESS  IN  THE 
SCALING  IS  SAME  AS  INTERNAL  REGISTERS. 


V 72  E I If?  (SCATTER  UPDATE)  (K-ll/2  OCTAL  COM PONE N TS , XXXXX , ARE 

AAAAEXXXXXE  LOADED  INTO  ERASABLE  LOCATIONS,  AAAA. 

AAAAEXXXXXE  II  IS  .GE.  3 .AND.  .LE.  19D,  AND  MUST  BE  ODD. 

. SCALING  IS  SAME  AS  INTERNAL  REGISTERS. 


V73EXXXXXEXXXXXE  (OCTAL  CLOCK  INCREMENT)  DOUBLE  PRECISION  OCTAL  TIME 
INCREMENT  XXXXX  XXXXX,  IS  ADDED  TO  THE  AGC  CLOCK,  IN 
CENT  I SECONDS  SCALED  AT  (2)28. 

THIS  LOAD  IS  THE  OCTAL  EQUIVALENT  OF  V55. 


OUTPUT:  IN  AODITION  TO  THE  ABOVE  REGISTER  LOADS,  ALL  UPDATES 

COMPLEMENT  BIT3  OF  FLAGW0RD7 . 


ADDITIONAL  NOTES:  VERB  71,  JUST  DEFINED  ABOVE  WILL  BE  USED  TO  PERFORM  BUT  NOT  LIMITED  TO  THE  FOLLOWING  UPDATES — 

1.  CSM/LM  STATE  VECTOR  UPDATE 

2.  REFSMMAT  UPDATE 


THE  FOLLOWING  COMMENTS  DELINEATE  EACH  SPECIAL  UPDATE 


1.  CSM/LM  STATE  VECTOR  UPDATE (ALL  DATA  ENTRIFS  IN  OCTAL) 


ENTRIES: 

V 7 IE 
2 1 F 
AAAAF 
XXXXXE 

XXXXXEXXXXXE 

XXXXXEXXXXXE 

XXXXXEXXXXXE 

XXXXXEXXXXXE 

XXXXXEXXXXXE 

XXXXXEXXXXXE 

XXXXXEXXXXXE 

V33E 


DATA  DEFINITION:  SCALE  FACTORS: 

CONTIGUOUS  BLOCK  UPDATE  VERB 

NUMBER  OF  COMPONENTS  FOR  STATE  VECTOR  UPDATE 
ECADR  OF  1 UPSVFLAG' 

STATE  VECTOR  IDENTIFIER:  00001  FOR  CSM,  77776  FOR  LEM  - EARTH  SPHERE  OF  INFLUENCE  SCALING 

00002  FOR  CSM,  77776  FOR  LFM  - LUNAR  SPHERE  OF  INFLUENCE  SCALING 

X POSITION 

Y POSITION 
Z POSITION 
X VELOCITY 

Y VELOCITY 
Z VELOCITY 

TIME  FROM  AGC  CLOCK  ZERO 

VERB  33  TO  SIGNAL  THAT  THE  STATE  VECTOR  IS  READY  TO  BE  STORED. 


2.  REFSMMAT ( AL  L OATA  ENTRIES  IN  OCTAL) 
ENTRIES:  DATA  DEFINITIONS: 


SCALE  FACTORS: 


GAP: 

ASSEMBLE  REVISION 

210 

OF 

AGC  PROGRAM  LUMINARY  BY  NASA  2021112- 

161  17:11 

MAR.  19, 

1971 

SKIPPER 

.131  PAGE  1385 

L 

UPCATE  PROGRAM 

USER'S 

PAGE 

NO.  3 

EO  S3 

R0147 

V 7 IE 

CONTIGUOUS  BLOCK  UPDATE  VERB 

R0148 

24E 

NUMBER 

OF  COMPONENTS  FOR  REFSMMAT  UPDATE 

RO 15  0 

AAAAE 

ECADR 

OF  'REFSMMAT* 

R0152 

XXXXXEXXXXXE 

ROW 

1 

COLUMN 

1 

21 

-1) 

R0154 

XXXXXEXXXXXE 

ROW 

1 

COLUMN 

2 

21 

-1) 

RO  1 56 

XXXXXfcXXXXXE 

ROW 

1 

COLUMN 

3 

21 

-1) 

R0158 

XXXXXEXXXXXE 

ROW 

2 

COLUMN 

1 

2( 

-1) 

R0160 

XXXXXEXXXXXE 

ROW 

2 

COLUMN 

2 

21 

-1) 

R0162 

XXXXXEXXXXXE 

ROW 

2 

COLUMN 

3 

21 

-1) 

RO  16  A 

XXXXXEXXXXXE 

ROW 

3 

COLUMN 

1 

2( 

-11 

RO  16  6 

XXXXXEXXXXXE 

ROW 

3 

COLUMN 

2 

21 

-1) 

RO  16  8 

XXXXXEXXXXXE 

ROW 

3 

COLUMN 

3 

21 

-1! 

RO  170 

V33E 

VERB 

33  TO  SIGNAL  THAT  REFSMMAT  IS  READY  TO 

BE  STORED. 

0171 

07,3767 

BANK 

07 

0172 

REF 

7 

LAST 

309 

43,2000 

SETLCC 

FXTVERBS 

0173 

43,3727 

BANK 

0174 

REF 

5 

LAST 

1222 

E3.1706 

E B A N K = 

TEPHEM 

0175 

REF 

1 

COUNT* 

$$/P27 

0176 

REF 

1 

43,3727 

3 4746  0 

V70UPDAT  CAF 

UP70 

COMES  HERE  ON  V70E 

0177 

REF 

2 

LAST 

275 

43,3730 

1 3736  1 

TCF 

V 73UPDAT  +1 

017  8 

REF 

1 

43 , 3 7 3 L 

3 

4 744 

1 

V71UPDAT 

CAF  U P 7 1 

COMES 

HERE  ON  V71E 

0179 

REF 

3 

LAST 

1385 

43,3732 

1 

3736 

1 

TCF  V73UPDAT  +1 

0180 

REF 

1 

43,3733 

3 

4 743 

0 

V72UPDAT 

CAF  UP72 

COMES 

HERE  ON  V72E 

0181 

REF 

4 

LAST 

1385 

43,3734 

1 

3736 

1 

TCF  V 73UPDAT  +1 

0182 

REF 

1 

43, 3735 

3 

6266 

0 

V73UPDAT 

CAF  UP73 

COMES 

HERE  ON  V73E 

0183 

REF 

1 

43,3736 

55 

' 165 

0 

+ 1 

TS  UPVERBSV 

SAVE 

UPVFRB  UNTIL  IT'S  OK 

TO  ENTER  P27 

0184 

REF 

19 

LAST 

311 

43,3737 

0 

2076 

1 

TC  TE  ST  X AC  T 

GRAB 

DISPLAY  IF  AVAILABLE 

, OTHERWISE 

AO  18  5 

TURN*OPERATOR  ERROR*  nN  AND  TE RM I N AT F JOB 

019  7 

REF 

63 

LAST 

1380 

43,3740 

0 

4626 

1 

TC  POSTJUMP 

LEAVE 

EXTENDED  VERB  BANK 

AND 

0198 

REF 

1 

43,3741 

1 

1372 

1 

CADR  UPPART2 

GO  TO 

UPDATE  PROGRAM ( P2  7 ) 

BANK  . 

0211 

REF 

267 

LAST 

1374 

4746 

UP70 

EQUALS  ZERO 

0212 

REF 

132 

LAST 

1372 

4744 

UP71 

EQUALS  ONE 

0213 

REF 

87 

LAST 

1379 

4743 

UP72 

EQUALS  TWO 

0214 

REF 

42 

LAST 

1369 

6266 

U P 73 

EQUALS  THREE 
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0215 

04,3372 

BANK 

04 

0216 

REF 

2 

LAST 

L222 

04,2000 

SETLOC 

UPDATE2 

0217 

04,3372 

BANK 

0218 

REF 

1 

COUNT* 

$ 4/P27 

0219 

04,3372 

UPPART2 

EQUALS 

0220 

REF 

23 

LAST 

129  1 

04,3372 

3 1010 

1 

CA 

MODREG 

0221 

04,3373 

0 0006 

1 

EXTEND 

0222 

REF 

1 

04,3374 

1 3376 

1 

BZF 

UPOATOK 

0223 

REF 

1 

04,3375 

0 3764 

1 

UPERROR 

TC 

UPERROUI 

0224 

REF 

4 

LAST 

217 

04,3376 

55'  170 

1 

UPDATDK 

TS 

UPOLDMOO 

0225 

REF 

2 

LAST 

1385 

04,3377 

31 ' 165 

1 

CAE 

UPVERBSV 

0226 

REF 

4 

LAST 

217 

C4, 3400 

55' 171 

0 

TS 

UPVERB 

0227 

REF 

133 

LAST 

1385 

04,3401 

3 4 744 

1 

CAF 

ONE 

0228 

REF 

4 

LAST 

217 

04,3402 

55'  172 

0 

TS 

UPCOUNT 

0229 

REF 

117 

LAST 

1332 

C4.3403 

0 5355 

1 

TC 

PHASCHNG 

0230 

04,3404 

07026 

1 

OCT 

07026 

0231 

04,3405 

30000 

1 

OCT 

30000 

0232 

REF 

6 

LAST 

217 

1 173 

EBANK= 

UPBUFF 

0233 

REF 

2 

LAST 

1223 

04,3406 

03714 

0 

2C  ADR 

UPOUT  +1 

0233 

04,3407 

1C  102 

0 

0234 

REF 

134 

LAST 

1386 

04,3410 

3 4744 

1 

CAF 

ONE 

0235 

REF 

10 

LAST 

990 

04,3411 

54  333 

0 

TS 

DNLSTCOO 

0236 

REF 

4 

LAST 

799 

04,3412 

0 5313 

0 

TC 

NEWMODEX 

023  7 

04,3413 

0C033 

1 

DEC 

27 

023  8 

REF 

5 

LAST 

1386 

04,3414 

5 1'  171 

1 

INDEX 

UPVERB 

0239 

04,3415 

1 3416 

0 

TCF 

+ 1 

0240 

04,3416 

l 3421 

1 

TCF 

+ 3 

024  1 

KEF 

1 

04,3417 

1 3424 

1 

TCF 

0HWELL1 

0242 

REF 

2 

LAST 

1386 

04,3420 

1 3424 

1 

TCF 

OHWELLl 

0243 

REF 

88 

LAST 

1385 

C4 , 342 1 

3 4743 

0 

CA 

TWO 

0244 

REF 

4 

LAST 

216 

04,3422 

55* 167 

1 

TS 

COMPNUMB 

0245 

REF 

1 

04,3423 

1 3447 

1 

TCF 

0HWELL2 

0246 

REF 

1 

04,3424 

3 3517 

1 

0HWELL1 

CAF 

ADUPBUFF 

0247 

REF 

827 

LAST 

1370 

04,3425 

54  156 

1 

TS 

MPAC  +2 

0248 

REF 

l 

04,3426 

3 3520 

0 

+ 2 

CAF 

UPLOADNV 

0249 

REF 

302 

LAST 

1380 

04,3427 

0 4607 

1 

TC 

BANKCALL 

0250 

REF 

1 1 

LAST 

720 

04,3430 

20323 

1 

CADR 

GOXOSPF 

025  1 

REF 

l 

04,3431 

1 3714 

1 

TCF 

UP0UT4 
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UPDATE  PROGRAM  - PART  2 

IS  UPDATE  ALLOWED  AT  THIS  TIME? 

IS  MOORFG  +0  (POOH)  OR  -0  (FRESH  START)? 


+2  TURN  ON  OPERATOR  ERROR  LIGHT  AND  EXIT 


SET  UPVERB  TO  TELL  P27  WHICH  EXTENDED 
VERB  CALLED  IT 


SET  RESTART  GROUP  6 TO  RESTORE  OLD  MODE 
AND  DOWNLIST  AND  EXIT  TE  RESTART  OCCURS. 
PRIORITY  SAME  AS  CHRPRIO 


DOWNLIST 

SFT  MAJOR  MODE  = 27 


BRANCH  DEPENDING  ON  WHETHER  THE  UPDATF 
VERB  REQUIRES  A FIXED  OR  VARIABLE  NUMBER 

V70  FIXED.  (OF  COMPONENTS. 

V71  VARIABLE  - GO  GET  NO.  OF  COMPONENTS 
V72  VARIABLE  - GO  GET  NO.  OF  COMPONENTS 
V73  ( AND  V70 ) FIXED 

SET  NUMBER  OF  COMPONENTS  TO  2. 

GO  GET  THE  TWO  UPDATE  COMPONENTS 

* REQUEST  USER  TO  SEND  NUMBER  * 

* OF  COMPONENTS  PARAME TER ( I I ) . * 

(CK4V32  PETURNS  HERF  IF  V 32  ENCOUNTERED) 
DISPLAY  A FLASHING  V21N01 

TO  REQUEST  I I . 

V34  TERMINATE  UPDATF1P27)  RETURN 


GAP: 


0252 

0253 

0254 

0255 

0256 

0257 
0253 

0259 

0260 
0261 
0262 
0263 


R0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 


R0280 

0281 

0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 


ASSEMBLE  REVISION  210  CE  AGC  PROGRAM  LUMINARY  BY 
UPCATE  PROGRAM 


REF 

3 

LAST 

1386 

04,3432 

1 

3426 

0 

REF 

1 

04,3433 

0 

3510 

0 

REF 

50 

LAST 

132  1 

04,3434 

4 

4743 

1 

REF 

7 

LAST 

1386 

04,3435 

6 

1173 

0 

04,3436 

0 

0006 

1 

REF 

4 

LAST 

1387 

04,3437 

6 

3426 

1 

REF 

8 

LAST 

1387 

04, 3440 

4 

1173 

1 

REF 

L 

04,3441 

6 

4353 

0 

04,3442 

0 

0006 

l 

REF 

5 

LAST 

1387 

04,3443 

6 

3426 

1 

REF 

9 

LAST 

1387 

04,3444 

31 

• 173 

0 

REF 

5 

LAST 

1386 

04,3445 

55 

• 167 

1 

UP8UFF  LOADING  SEQUENCE 


REF 

5 

LAST 

1386 

04,3446 

25 

•172 

1 

REF 

1 

04,3447 

3 

3664 

0 

0HWELL2 

REF 

6 

LAST 

1387 

04,3450 

6 

1 172 

1 

REF 

828 

LAST 

1386 

04,3451 

54 

156 

1 

+ 2 

REF 

2 

LAST 

1386 

04, 3452 

3 

3520 

0 

+ 3 

REF 

303 

LAST 

1386 

04,3453 

0 

4607 

1 

REF 

12 

LAST 

1386 

04,3454 

20323 

1 

REF 

2 

LAST 

1386 

04,3455 

1 

37  14 

1 

REF 

2 

LAST 

1386 

04,3456 

1 

3452 

0 

REF 

2 

LAST 

1387 

04,3457 

0 

3510 

0 

REF 

7 

LAST 

1387 

04,3460 

4 

1 1 72 

0 

REF 

6 

LAST 

1337 

04,3461 

6 

1167 

0 

04,3462 

0 

0006 

1 

REF 

1 

04,3463 

6 

3465 

0 

REF 

3 

LAST 

1387 

04,3464 

t 

3446 

0 

VERIFY  SEQU 

ENCE 

REF 

1 

04, 3465 

3 

3516 

0 UPVERIF 

REF 

829 

LAST 

1387 

04,3466 

54 

156 

1 

REF 

1 

04,3467 

3 

3521 

1 

REF 

304 

LAST 

1387 

04,3470 

0 

4607 

1 

REF 

13 

LAST 

1387 

04,3471 

20323 

1 

REF 

3 

LAST 

1387 

04,3472 

1 

3714 

1 

REF 

1 

04,3473 

l 

3522 

0 

R E F 

3 

LAST 

1387 

04,3474 

0 

3510 

0 

REF 

3 

LAST 

108 

04,3475 

3 

1 166 

1 

04, 3476 

0 

0006 

1 

REF 

2 

LAST 

1387 

04,3477 

6 

3465 

0 

REF 

4 

LAST 

1337 

04,3500 

4 

1166 

0 

REF 

7 

LAST 

1387 

04,3501 

6 

1167 

0 

REF 

59 

LAST 

1324 

04,3502 

6 

4 744 

1 

04,3503 

0 

0006 

1 
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TCF  0HWELL1  +2 

TC  CK4V32 

CS  BIT2 

AD  UPBUFF 

EXTEND 

BZMF  0HWELL1  +2 

CS  UPBUFF 

AO  UP21 

EXTEND 

BZMF  0HWELL1  +2 

CAE  UPBUFF 

TS  COMPNUMB 


DATA  OR  V32  RETURN 

IS  I I (NUMBER  OF  COMPONENTS  PARAMETER) 
.GE.  3 AND  .LE.  20D. 


SAVE  II  IN  COMPNUMB 


INCR  UPCOUNT 


INCREMENT  COUNT  OF  COMPONENTS  RECEIVFD. 


CAF  ADUPBFM1 

AD  UPCOUNT 

TS  MP AC  +2 

CAF  UPLOADNV 

TC  BANKCALL 

CADR  GOXDSPF 

TCF  U POUT  4 

TCF  UHWELL2  +3 

TC  CK4V32 

CS  UPCOUNT 

AD  COMPNUMB 

EXTEND 

BZMF  UPVERIFY 

TCF  0HWELL2  -1 


CALCULATF  LOC AT  I ON ( FC ADR ) IN  UPBUFF 
WHERE  NF XT  COMPONENT  SHOULD  BE  STORED. 
PLACE  ECAOR  INTO  R3. 

(CK4V32  RETURNS  HERE  IF  V32  ENCOUNTERED) 
DISPLAY  A FLASHING  V21N01 
TO  REQUEST  DATA. 

V34  TERMINATE  UPDATE  I P27  ) RETURN. 

V33  PROCEED  RETURN 

DATA  OR  V32  RETURN 

HA VF  WE  FINISHED  RECEIVING  ALL 

THE  DATA  WE  EXPECTED. 

YES-  GO  TO  VERIFICATION  SEQUENCE 
NO-  REQUFST  ADDITIONAL  DATA. 


CAF  ADUPTFMP 

TS  M P AC  +2 

CAF  UPVRFYNV 

TC  BANKCALL 

CADR  GOXDSPF 

TCF  UP0UT4 

TCF  UPSTORF 

TC  CK4V32 

CA  UPTEMP 


PLACE  ECADR  WHERE  COMPONENT  NO.  INDEX 
IS  TO  BE  STORED  INTO  R3. 

I CK4V32  RETURNS  HERE  IF  V 32  ENCOUNTERED) 
DISPLAY  A FLASHING  V21N02  TO  REQUEST 
DATA  COP  RECTI  ON  OR  VERIFICATION. 

V 34  TERMINATE  UPDATE! P27)  RETURN 
V33  DATA  SFNT  IS  GOOD.  GO  STORE  IT. 
COMPONENT  NO.  INDEX  OR  V32  RETURN 
DOES  THE  COMPONENT  NO.  INDEX  JUST  SFNT 


EXTEND  SPECIFY  A LEGAL  COMPONENT  NUMBER? 

BZMF  UPVERIFY  NO,  IT  IS  NOT  POSITIVE  NONZERO 

CS  UPTFMP 

AD  COMPNUMB 

AD  BIT! 

EXTEND 
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0296 

REF 

3 

LAST 

1387 

C4, 3504 

6 

3465 

0 

bzmf 

UPVER IF Y 

0297 

REF 

2 

LAST 

1387 

C4, 3505 

3 

3664 

0 

CAF 

ADUPBFM1 

029  8 

REF 

5 

LAST 

1387 

04,3506 

6 

1 166 

1 

AD 

UPTEMP 

0299 

REF 

A 

LAST 

1387 

04,3507 

1 

3451 

0 

TCF 

0HWELL2  +2 

0300 

REF 

3 

LAST 

1386 

04,3714 

UP0UT4 

EQUALS 

UPOUT  +1 

R0301  CHECK  FOR  VERB  32  SEQUENCE 


0302 

REF 

830 

LAST 

1387 

C4, 35  10 

4 0154 

0 

CK4V32 

CS 

MPAC 

0303 

REF 

57 

LAST 

1363 

04, 3511 

7 4737 

1 

MASK 

BIT6 

0304 

REF 

450 

LAST 

1380 

04,3512 

10  000 

0 

CCS 

A 

0305 

REF 

382 

LAST 

1382 

04,3513 

0 0002 

0 

TC 

Q 

0306 

REF 

3e3 

LAST 

1388 

04,3514 

50  002 

0 

INDEX 

Q 

0307 

04,3515 

7' 7771 

0 

TC 

0 -6 

0308 

REF 

6 

LAST 

1388 

04,3516 

01166 

1 

ADUPTEMP 

ADRES 

UPTEMP 

0309 

REF 

10 

LAST 

1387 

04,3517 

01173 

0 

ADUPBUFF 

ADRES 

UPBUFF 

0310 

04, 3520 

C5201 

1 

UPLOADNV 

VN 

2 101 

031  1 

04 ,3521 

05202 

1 

UPVRFYNV 

VN 

2 102 

0312 

REF 

4 

LAST 

1097 

4353 

UP  2 1 

= 

MD1 

0313 

REF 

20 

LAST 

1353 

4747 

UPDTPHAS 

EQUALS 

FIVE 

R0314 

PRE- 

STORE 

AND  FAN  TO 

APPROPRIATE  ERANCH 

SEQUENCE 

031  5 

04,3522 

UPSTORE 

EQUALS 

0316 

04,3522 

0 0004 

0 

INH 1 NT 

031  7 

REF 

33 

LAST 

1380 

04,3523 

30  103 

0 

CAE 

FLAGWRD7 

0318 

REF 

274 

LAST 

1381 

04,3524 

56  001 

0 

XCH 

L 

031  9 

REF 

1 

04,3525 

3 4742 

1 

CAF 

VERIFBI T 

0320 

04,3526 

0 0006 

1 

EXTEND 

032  1 

REF 

14 

LAST 

1372 

04,3527 

06  C01 

0 

RXOR 

LCHAN 

0322 

REF 

34 

LAST 

1388 

04,3530 

54  103 

1 

TS 

FLAGWRD7 

0326 

RFF 

1 18 

LAST 

1386 

04,3531 

0 5355 

1 

TC 

PHASCHNG 

032  7 

04,3532 

04026 

1 

OCT 

04026 

0323 

04,3533 

0 0004 

0 

INHINT 

0329 

REF 

89 

LAST 

1386 

04,3534 

4 4743 

1 

CS 

TWO 

0330 

REF 

6 

LAST 

1386 

04,3535 

6 1171 

1 

AD 

UPVERB 

0331 

04,3536 

0 0006 

1 

EXTEND 

0332 

REF 

1 

04,3537 

6 3546 

0 

BZMF 

UPFNDVAC 

R0333 

VERB 

73  BRANCH 

0334 

04,3540 

0 CC06 

l 

UPEND73 

EXTEND 

0335 

REF 

1 1 

LAST 

1388 

04,3541 

3 1174 

1 

DC  A 

UPBUFF 
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NO 

YES-  BASED  ON  THF  COMPONENT  NO.  INDEX 
CALCULATE  THF  ECADR  OF  LOCATION  IN 
UPBUFF  WHICH  USER  WANTS  TO  CHANGE. 

COMES  HFRE  ON  V 34  TO  TERM  INATF  UPDATE 


ON  DATA  RETURN  FROM  ' GnXD SPF 1 
ON  DATA  RETURN  FROM  »GCXDSP"S  THF  CON- 
TENTS OF  MPAC  = VERB.  SO  TEST  FOR  V 32. 
IT'S  NOT  A V32,  IT'S  DATA.  PROCEED. 

V32  ENCOUNTFREO  - GO  BACK  AND  GET  DATA 

ADDRFSS  OF  TEMP  STORAGE  FOR  CORRECTIONS 
ADDRESS  OF  UPDATE  DATA  STORAGE  BUFFER 
VERB  21  NOUN  Cl 
VERB  21  NOUN  02 

DEC  21  = MAX  NO  OF  COMPONENTS  +1 


GROUND  HAS  VERIFIED  UPDATF.  STORE  DATA. 


INVERT  VFRIFLAGIBIT3  OF  FLAGWRD7)  TO 
INDICATF  TO  THE  GROUNDIVIA  DOWNLINK) 

THAT  THF  V 33  (WHICH  THE  GROUND  SENT  TO 
VERIFY  THE  UPDATF)  HAS  BFFN  SUCCESSFULLY 
RECEIVED  BY  THE  UPDATE  PROGRAM 


SET  RESTART  GROUP  6 TO  REDO  THE  UPDATE 
DATA  STORE  IF  A RESTART  OCCURS. 
(BECAUSE  PHASCHNG  DID  A RELINT) 

GO  TO  UPFNDVAC  IF  INSTALL  IS  REQUIRED, 
THAT  IS,  IF  IT'S  A V70  - V72. 

GO  TO  UPEN073  IF  IT'S  A V73. 


V73-P ER FORM  DP  OCTAL  AGC  CLOCK  INCREMFNT 


GAP 
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0336 

REF 

12 

LAST 

1388 

04,3542 

53 ' 204 

1 

DXCH 

UPBUFF  +80 

0337 

REF 

1 

04,3543 

0 3571 

1 

TC 

T IMEDIDL 

0338 

REF 

8 

LAST 

837 

04,3544 

0 4355 

0 

TC 

F ALTON 

0339 

REF 

4 

LAST 

1388 

04,3545 

0 37  14 

0 

TC 

UPOUT  +1 

0340 

REF 

7 

LAST 

1335 

04,3546 

3 4346 

1 

UPFNDVAC 

CAE 

CHRPRIO 

034  1 

REF 

43 

LAST 

1365 

04,3547 

0 5076 

0 

TC 

F INDVAC 

0342 

REF 

6 

LAST 

1385 

E 3, 1706 

EBANK= 

TEPHEM 

0343 

REF 

1 

04,3550 

03553 

1 

2C  ADR 

UP  JOB 

034  3 

REF 

1 

04, 3551 

10103 

1 

0344 

REF 

150 

LAST 

1381 

04,3552 

0 5146 

1 

TC 

ENDOF JOB 

0345 

REF 

237 

LAST 

1262 

C 4 , 3553 

0 6060 

1 

UP  JOB 

TC 

I NTPRET 

034  6 

04,3554 

77624 

1 

CALL 

034  7 

REF 

30 

LAST 

1221 

04,3555 

2744  7 

0 

INTSTALL 

A0348 

0349 

04,3556 

77776 

1 

UPWAKE 

EX  IT 

0350 

REF 

1 19 

LAST 

1388 

04,3557 

0 5355 

1 

TC 

PHASCHNG 

0351 

04,3560 

04026 

1 

OCT 

04026 

0352 

REF 

78 

LAST 

1362 

04,3561 

0 5506 

1 

TC 

UPFLAG 

0353 

REF 

5 

LAST 

1240 

04,3562 

00236 

0 

ADRES 

REINTFLG 

0354 

04,3563 

0 0004 

0 

INHINT 

0355 

04,3564 

UPPART3 

EQUALS 

0356 

REF 

7 

LAST 

1388 

04, 3564 

51  ' 171 

1 

INDEX 

UPVER8 

0357 

04,3555 

1 3566 

0 

TCF 

+ 1 

0358 

REF 

1 

04,3566 

1 3725 

0 

TCF 

UPEND70 

0359 

REF 

1 

04,3567 

1 3634 

1 

TCF 

UPFND71 

0360 

REF 

1 

04, 3570 

1 3666 

0 

TCF 

UPEND72 

R0361 

R OUT  1 

NE  TO 

INCREMENT 

CLOCK ( TIME2 ,TI ME1  ) 

WITH  CONTENTS  OF  D 

0363 

04,3571 

0 0006 

1 

T IMEDIDL 

EXTEND 

0364 

REF 

7 

LAST 

1388 

04,3572 

23 • 166 

1 

QXCH 

UPTEMP 

0365 

REF 

268 

LAST 

1385 

04,3573 

3 4746 

0 

CAF 

ZERO 

0366 

04,3574 

22  007 

0 

ZL 

036  7 

REF 

36 

LAST 

1334 

04,3575 

52  025 

1 

DXCH 

r I ME  2 

0368 

REF 

13 

LAST 

1389 

04,3576 

53' 216 

1 

DXCH 

UPBUFF  +18D 

0369 

REF 

l 

04,3577 

3 4747 

1 

CAF 

UPDTPHAS 

0370 

REF 

275 

LAST 

1388 

04, 3600 

54  001 

1 

TS 

L 

0371 

04,3601 

4 0000 

0 

COM 

0372 

REF 

4 

LAST 

869 

04,3602 

52  764 

0 

DXCH 

-PHASE6 

0373 

04,3603 

0 0004 

0 

T IMED  IDR 

INH (NT 
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FRROR—  TURN  ON  ^OPERATOR  ERROR*  LIGHT 
GO  TO  COMMON  UPDATE  PROGRAM  EXIT 

(USE  EXTFNDED  VERB  PRIORITY) 

GET  VAC  AREA  FOR  'CALL  INTSTALL' 

(NOTE:  THIS  WILL  ALSO  SET  EBANK  FOR 

'TEPHEM'  UPDATE  BY  V70) 

THIS  COULD  BE  A STATE  VECTOR  UPDATE — SO 
W A I T ( PUT  JOB  TO  SLEEP)  IF  ORBIT  I NT ( 0 I ) 
IS  IN  PROGRESS — OR — GRAB  01  AND  RFTURN 
TO  UPWAKF  IF  01  IS  NOT  IN  PROGRFSS. 


RESTART  PROTECT ( GROUP  6) 


SET  INTEGRATION  RESTART  BIT 


BRANCH  TO  THE  APPROPRIATE  UPOATE  VERB 

ROUTINE  TO  ACTUALLY  PERFORM  THE  UPOATE 

V70 

V71 

V72 


WORD  AT  UPeUFF. 


SAVF  Q FOR  RFTURN 

ZERO  AND  SAVE  TIME2.TIMF1 


STORE  IN  CASE  OF  OVERFLOW 

DO 

A 

OU  ICK 
PHASCHNG 


GAP: 

L 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385 

0386 

0337 

0388 

0389 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

R0398 

0399 

040  0 

040  1 

040  2 

040  3 

0404 

040  5 

0406 

0407 

0408 

0409 

0410 

041 1 

0412 

0413 

0414 


PAGE  1390 
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REF 

269 

LAST 

1389 

04,3604 

3 4746 

0 

CAF 

ZERO 

04,3605 

22  007 

0 

ZL 

PICK  UP  INCREMENTERI AND  ZERO 

REE 

831 

LAST 

1388 

04,3606 

54  156 

1 

TS 

M P AC  +2 

IT  IN  CASE  OF  RESTARTS)  AND 

REF 

14 

LAST 

1389 

04,3607 

53' 204 

1 

DXCH 

UPBUFF  +8D 

STORE  IT 

REF 

832 

LAST 

1390 

04,3610 

52  155 

l 

DXCH 

MPAC 

INTO  MPAC  FOR  TPAGREE . 

04,3611 

0 0006 

1 

EXTEND 

REF 

15 

LAST 

1390 

04,3612 

3 1216 

0 

DC  A 

UPBUFF  +18D 

REF 

833 

LAST 

1390 

04, 3613 

20  155 

1 

DAS 

MPAC 

FORM  SUM  IN  MPAC 

04,3614 

0 0006 

1 

EXTEND 

REF 

1 

04,3615 

1 3624 

0 

BZF 

DELTATOK 

TEST  FOR  OVERFLOW 

REF 

270 

LAST 

1390 

04,3616 

3 4746 

0 

CAF 

ZERO 

RFF 

16 

LAST 

1390 

04,3617 

5 3 ' 2 16 

1 

DXCH 

UPBUFF  +18D 

OVERFLOW,  RESTORE  OLD  VALUE  OF  CLOCK 

REF 

37 

LAST 

1389 

04,3620 

20  025 

1 

DAS 

T I ME 2 

AND  TURN  ON  OPERATOR  ERROR 

REF 

120 

LAST 

1389 

04,3621 

0 5355 

l 

TC 

PHASCHNG 

RESTART  PROTECT ( GROUP  6) 

04,3622 

04026 

1 

OCT 

04026 

REF- 

8 

LAST 

1389 

04,3623 

0 1166 

1 

TC 

UPTEMP 

GO  TO  ERROR  EXIT 

REF 

18 

LAST 

1334 

04,3624 

C 7300 

0 

DELTATQK 

TC 

TP AGREE 

FORCE  SIGN  AGREEMENT 

REF 

834 

LAST 

1390 

04,3625 

52  155 

1 

DXCH 

MPAC 

REF 

38 

LAST 

1390 

04,3626 

20  C 2 5 

1 

DAS 

T I ME2 

INCREMENT  TIME2.TIMF1 

REF 

121 

LAST 

1390 

04,3627 

0 5355 

1 

TC 

PHASCHNG 

RESTART  PROTECTIGROUP  6) 

04,3630 

04026 

1 

OCT 

04026 

04,3631 

0 0004 

0 

INHINT 

REF 

9 

LAST 

1390 

04, 3o32 

51 ' 166 

1 

INDEX 

UPTEMP 

(CODED  THIS  WAY  FOR  RESTART  PROTECTION) 

04,3633 

0 0001 

0 

TC 

1 

NORMAL  RETURN 

VERB 

71  eRANCH 

REF 

17 

LAST 

1390 

04,3634 

31*  174 

l 

U PEND  7 1 

CAE 

UPRUFF  +1 

SET  EBANK 

REF 

87 

LAST 

1362 

04,3635 

54  003 

0 

TS 

EBANK 

AND 

REF 

20 

LAST 

1322 

04,3636 

7 4350 

1 

MASK 

L0W8 

CALCULATE 

REF 

10 

LAST 

1390 

04,3637 

55' 166 

0 

TS 

UPTEMP 

S-REG  VALUE  OF  RECEIVING  AREA 

REF 

6 

LAST 

1321 

04,3640 

6 7766 

1 

AD 

NEG3 

IN  THE  PROCESS  OF 

REF 

8 

LAST 

1387 

C4, 3641 

6 1167 

0 

AD 

COMPNUMB 

PERFORMING 

04,3642 

0 0006 

1 

EXTEND 

THIS  UPDATE 

REF 

1 

04,3643 

1 3651 

1 

BZF 

ST0RLP71 

WILL  WE 

REF 

32 

LAST 

1329 

04,3644 

7 4734 

1 

MASK 

B I T9 

OVERFLOW 

REF 

451 

LAST 

1388 

04, 3645 

10  000 

0 

CCS 

A 

INTO  THF  NEXT  EBANK.... 

REF 

2 

LAST 

1386 

04,3646 

1 3762 

0 

TCF 

UPERROUT 

YES 

REF 

7 

LAST 

1390 

04,3647 

3 7 766 

l 

CA 

NEG3 

NO-  CALCULATE  NUMBER  OF 

REF 

9 

LAST 

1390 

04, 3650 

6 1167 

0 

AD 

COMPNUMB 

WORDS  Tn  BE  STORED  MINUS  ONE 

REF 

835 

LAST 

1390 

04,3651 

54  154 

0 

ST0RLP71 

TS 

MPAC 

SAVE  NO.  OF  WORDS  REMAINING  MINUS  ONE 

REF 

4 52 

LAST 

1390 

04,3652 

50  000 

1 

INDEX 

A 

TAKE  NEXT  UPOATE  WORD  FROM 

REF 

18 

LAST 

1390 

04,3653 

3 1175 

0 

CA 

UPBUFF  +2 

UPBUFF  AND 

131 
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0415 

REF 

27fc 

LAST 

1389 

04,3654 

VJ1 

O 

o 

1 

TS 

L 

SAVE  IT  IN  L 

0416 

REF 

836 

LAST 

1390 

04,3655 

3 0154 

1 

CA 

MPAC 

CALCULATE  NEXT 

0417 

REF 

11 

LAST 

1390 

04,3656 

6 1166 

1 

AD 

UPTEMP 

RECEIVING  ADDRESS 

0418 

REF 

453 

LAST 

1390 

04,3657 

50  000 

1 

INDEX 

A 

041  9 

E3, 1400 

EBANK= 

1400 

0420 

04,3660 

23 ' 400 

1 

LXCH 

1400 

UPDATE  THE  REGISTER 

BY  CONTENTS  OF  L 

042  1 

REF 

7 

LAST 

1389 

E3 , 1706 

EBANK= 

TEPHEM 

0422 

REF 

837 

LAST 

1391 

04,3661 

10  L54 

0 

CCS 

MPAC 

ARE  THERF  ANY  WORDS 

LEFT  TO  RE  STORED 

042  3 

REF 

2 

LAST 

1390 

04,3662 

1 3651 

1 

TCF 

ST0RLP71 

YES 

0424 

REF 

5 

LAST 

1389 

04,3663 

1 3713 

0 

TCE 

UPOUT 

NO-  THEN  EXIT  UPDATE 

PROGRAM 

042  5 

REF 

19 

LAST 

1390 

04,3664 

01172 

1 

ADUPBFM1  ADRES 

UPBIJFF  -1 

SAME  AS  ADUPBUFF  RUT 

LESS  1 (DON'T  MOVE) 

0426 

REF 

6 

LAST 

1391 

04,3665 

1 3713 

0 

TCF 

UPflUT 

NO-  EXIT  UPOAT  E( HER  E 

WHEN  COMPNUMB  = 3) 

R 042  7 

VERB 

72  BRANCH 

0428 

REF 

60 

LAST 

1387 

04,3666 

3 4744 

1 

UPEND72 

CAF 

B I T 1 

HAVE  AN  ODD  NO.  OF  COMPONENTS 

042  9 

RFF 

10 

LAST 

1390 

04,3667 

7 1 167 

1 

MASK 

COMPNUMB 

BFEN  SENT  FOR  A V72  UPDATF... 

0430 

REF 

4 54 

LAST 

1391 

04, 3670 

10  COO 

0 

CCS 

A 

0431 

04,3671 

1 3673 

l 

TCF 

+ 2 

YES 

0432 

REF 

3 

LAST 

1390 

04,3672 

1 3762 

0 

TCF 

UPERROUT 

ERROR-  SHOULD  BE  ODD  NO.  OF  COMPONENTS 

0433 

REF 

5 1 

LAST 

1387 

04,3673 

4 4743 

1 

CS 

B I T 2 

0434 

REF 

11 

LAST 

1391 

04, 3674 

6 1167 

0 

AD 

COMPNUMB 

0435 

REF 

£38 

LAST 

1391 

04,3675 

54  154 

0 

LDLOOP72 

TS 

MPAC 

NOW  PERFORM  THE  UPDATE 

0436 

REF 

455 

LAST 

1391 

04, 3676 

50  000 

1 

INDEX 

A 

043  7 

REF 

20 

LAST 

1391 

04,3677 

31 • 174 

1 

CAE 

UP8UFF  +1 

PICK  UP  NEXT  UPOATE  WORD 

043  8 

REF 

4 56 

LAST 

1391 

04,3700 

22  000 

1 

LXCH 

A 

0439 

REF 

839 

LAST 

1391 

C4,  370  1 

10  154 

0 

CCS 

MPAC 

SET  POINTER  TO  ECADRIMUST  BF  CCS) 

0440 

REF 

840 

LAST 

1391 

04,3702 

54  154 

0 

TS 

MPAC 

044  1 

REF 

457 

LAST 

1391 

04,3703 

50  COO 

1 

INDEX 

A 

044  2 

REF 

21 

LAST 

1391 

04,3704 

31 ' 1 74 

1 

CAE 

UP BUFF  +1 

PICK  UP  NEXT  ECADR  OF  REG  TO  BE  UPDATED 

0443 

REF 

88 

LAST 

1390 

04,3705 

54  003 

0 

TS 

EBANK 

SET  EBANK 

0444 

REF 

21 

LAST 

1390 

04,3706 

7 4350 

1 

MASK 

L0W8 

ISOLATE  RELATIVE  ADDRESS 

044  5 

RFF 

458 

LAST 

1391 

04,3707 

50  000 

1 

INDEX 

A 

0446 

E 3 , 1400 

E8ANK= 

1400 

044  7 

04,3710 

23 ' 400 

1 

LXCH 

1400 

UPDATE  THE  REGISTER  BY  CONTENTS  OF  L 

0448 

REF 

8 

LAST 

1391 

E3 , 1706 

EBANK= 

TEPHEM 

044  9 

REF 

841 

LAST 

1391 

04,3711 

10  154 

0 

CCS 

MPAC 

ARE  WE  THROUGH  THE  V72  UPDATE... 

0450 

REF 

1 

04, 3712 

1 3675 

1 

TCF 

LOLOOP72 

NO 

R045  1 


NORMAL  FINISH  OF  P27 


045  2 

04,3713 

UPOUT 

equals 

045  3 

REF 

1 

04,3713 

0 3172 

0 

TC 

0454 

REF 

5 

LAST 

1386 

04,3714 

31' 170 

0 

+ 1 

CAE 

045  5 

REF 

5 

LAST 

1386 

04, 3715 

0 5316 

0 

TC 

0456 

REF 

27  1 

LAST 

1390 

04,3716 

3 4746 

0 

CAF 

045  7 

REF 

11 

LAST 

1386 

04,3717 

54  333 

0 

TS 

0458 

REF 

1 

04,3720 

0 3767 

1 

TC 

INTWAKEU  RELEASE  GRAB  OF  ORBITAL  INTEGRATION 

UPOLOMOO  RESTORF  PRIOR  P27  MODE 

NEWMOOEX  +3 
ZERO 

DNLSTCOO 
UPACTOFF 


TURN  OFF  'UPLINK  ACTIVITY*  LIGHT 
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L UPDATE  PROGRAM 


045  9 

04,3721 

C 0006 

1 

EXTEND 

0460 

REF 

27 

LAST 

1310 

C4.3722 

3 4746 

0 

DC  A 

NEGO 

046  1 

REF 

5 

LAST 

1389 

04,3723 

5 2 7 64 

0 

DXCH 

-PHASE6 

0462 

REF 

42 

LAST 

721 

Oa,  3724 

0 5474 

0 

TC 

ENDEXT 

R0463 

VERB 

70  BRANCH 

0464 

04,3725 

0 CC06 

1 

UPEND70  EXTEND 

0465 

REF 

22 

LAST 

139  1 

04,3726 

4 1174 

0 

DCS 

UPBUFF 

0466 

REF 

23 

LAST 

1392 

04,3727 

53' 204 

1 

DXCH 

UPBUFF  +8D 

0467 

REF 

2 

LAST 

1389 

04, 3730 

0 3571 

1 

TC 

T IMED IDL 

046  8 

REF 

4 

LAST 

1391 

04, 3731 

0 3762 

1 

TC 

UPERROUT 

0469 

REF 

9 

LAST 

1391 

E3, 1706 

EBANK= 

TEPHEM 

0470 

04,3732 

0 OC 06 

1 

EXTEND 

0471 

REF 

24 

LAST 

1392 

04,3733 

4 1174 

0 

DCS 

UPBUFF 

0472 

REF 

25 

LAST 

1392 

04,3734 

53  1 206 

0 

DXCH 

UPBUFF  +10D 

0473 

04,3735 

0 0006 

1 

EXTEND 

0474 

REF 

26 

LAST 

1392 

04,3736 

4 1174 

0 

DCS 

UPBUFF 

0475 

REF 

27 

LAST 

1392 

04,3737 

53' 210 

1 

DXCH 

UPBUFF  + 1 2 D 

0476 

REF 

122 

LAST 

1390 

04,3740 

0 5355 

1 

TC 

PHASCHNG 

0477 

04,3741 

04026 

1 

OCT 

04026 

0478 

REF 

272 

LAST 

1391 

04,3742 

3 4746 

0 

CAF 

ZERO 

0479 

04,3743 

22  007 

0 

ZL 

0480 

REF 

20 

LAST 

1392 

04,3744 

53' 206 

0 

DXCH 

UPBUFF  + 10D 

0481 

REF 

5 

LAST 

516 

04,3745 

2 1 • 571 

1 

DAS 

T ETC  SM 

0482 

REF 

273 

LAST 

1392 

04,3746 

3 4746 

0 

CAF 

ZERO 

040  3 

04,3747 

22  C07 

0 

ZL 

0484 

REF 

29 

LAST 

1392 

04,3750 

53’ 210 

1 

DXCH 

UPBUFF  +120 

0485 

REF 

4 

LAST 

62  0 

04,3751 

21' 643 

0 

DAS 

tetlem 

0486 

REF 

274 

LAST 

1392 

04,3752 

3 4 746 

0 

CAF 

ZERO 

048  7 

04,3753 

22  007 

0 

ZL 

048  8 

REF 

30 

LAST 

1392 

04,3754 

53* 174 

0 

DXCH 

UPBUFF 

0489 

REF 

10 

LAST 

1392 

04,3755 

2 1 ' 710 

1 

DAS 

TEPHEM  +1 

0490 

REF 

1 1 

LAST 

1392 

04,3756 

27' 706 

0 

ADS 

TEPHEM 

049  l 

REF 

123 

LAST 

1392 

04,3757 

0 5355 

1 

TC 

PHASCHNG 

0492 

04,3760 

04026 

1 

OCT 

04026 

049  3 

REF 

3 1 

LAST 

1392 

1173 

EBANK= 

UPBUFF 

0494 

REF 

7 

LAST 

1391 

04,3761 

0 3713 

1 

TC 

UPOUT 
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EXTENDED  VERB  EXIT 


V70  DOES  THE  FOLLOWING  WITH  DP  DELTA 
TIME  IN  UPBUFF 

DECREMFNT  AGC  CLOCK 

ERROR  WHILE  DECREMENTING  CLOCK  — EXIT 


COPY  DECREMENTERS  FOR 
RESTART  PROTFCTION 


RESTART  PROTECTIGROUP  61 


DECREMENT  CSM  STATE  VECTOR  TIME 


DECREMENT  LEM  STATE  VECTOR  TIME 


INCREMENT  TP  TFPHEM 
RESTART  PROTECTIGROUP  6) 


GO  TO  STANDARD  UPDATE  PROGRAM  EXIT 


GAP: 
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R0495 

0496 

REF 

9 

ERROR 

LAST 

SEQUENCE 
1389  04,3762 

0 

4355 

0 

UPERROUT 

TC 

FALTON 

TURN  ON  ^OPERATOR  ERROR* 

l I GHT 

049  7 

REF 

8 

LAST 

1392 

04,3763 

1 

3 713 

0 

TCF 

UPOUT 

GO  TO  COMMON  UPOATF  PROGRAM  FXIT 

049  8 

REF 

10 

LAST 

1393 

04,3764 

0 

4355 

0 

+ 2 

TC 

FALTON 

TURN  ON  'OPERATOR  ERROR' 

LIGHT 

0499 

REF 

2 

LAST 

1391 

04 ,3765 

0 

3767 

1 

TC 

UPACTOFF 

TURN  OFF ' UPL I NK  ACTIVITY' 

LIGHT 

0500 

A0501 

A0502 

A0503 

A0504 

REF 

43 

LAST 

1392 

04,3766 

0 

54  74 

0 

TC 

ENOF.XT 

EXTENDED  VERB  EXIT 
(THE  PURPOSE  OF  UPERROUT 
TO  PROVIDE  AN  ERROR  EXIT 
RESET  ANY  RESTART  GROUPS) 

*2  FXIT  IS 
WHICH  DOES 

R0505 

: UPACTOFF: 

IS  A ROUTINE  TO 

TURN 

OFF  UPLINK  ACTIVITY  LIGHT 

ON  ALL  EXITS  FROM  UPDATE  PROGR AM ( P 2 7 ) . 

0507 

REF 

38 

LAST 

1336 

04,3767 

4 4742 

0 

UPACTOFF  CS 

BIT3 

0508 

04,3770 

0 C006 

1 

EXTEND 

TURN 

OFF  UPLINK  ACTIVITY  LIGHT 

0509 

REF 

LAST 

1364 

04,3771 

03  Oil 

1 

WAND 

DSALMOUT 

( B IT 

3 OF  CHANNEL  1 1 ) 

0510 

REF 

384 

LAST 

1388 

04,3772 

0 0002 

0 

TC 

Q 

GAP: 

L 

0001 

0002 

0003 

000  A 

0005 

R0006 

000  7 

0008 

0009 

R0010 

R0012 

0016 

0017 

0018 

0019 

0020 

002  1 

0022 

0023 

002  A 

0025 

0026 

002  7 

R0054 

0055 

0056 

R0057 

R0059 

0060 

006  1 

0062 

0063 

R0064 

0065 

0066 

006  7 

0068 
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R T 8 OP  CODES 

22,3774 

bank 

22 

REF  1 

10,2000 

SETLOC 

RTBCODES 

10,3603 

BANK 

REF  12  LAST 

1262 

E5, 1664 

E8ANK= 

XNB 

REF  1 

COUNT* 

SS/PTB 

LOAD 

TIME2, 

T I ME  1 INTO  MPAC: 

17:  1 1 MAR.  19, 1971 
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USER'S  PAGE  NO. 


EO  S A 


REF  39  LAST  1390 
REF  2 LAST  1017 


10,3603  C 0006  1 LOAUTIME  EXTEND 


10.3604  3 0C25  0 

10.3605  1 6076  1 


DC  A T I ME  2 

TCF  SL0AD2 


CONVERT  THE  SINGLE  PRECISION  2'S  COMPLEMENT  NUMBER  ARRIVING  IN  MPAC  (SCALED  IN  HALF-REVOLUTIONS)  TO  A 
OP  l'S  COMPLEMENT  NUMBER  SCALED  IN  REVOLUTIONS. 


REF 

8A2 

LAST 

1391 

10,3606 

10  154 

0 

CCULOGIC 

CCS 

MPAC 

REF 

275 

LAST 

1392 

10,3607 

3 4 746 

0 

CAF 

ZERO 

10, 3610 

1 3613 

l 

TCF 

+ 3 

10,3611 

13  612 

0 

NOOP 

REF 

3.0 

LAST 

1100 

10,3612 

4 4727 

0 

CS 

HALF 

REF 

E 4 3 

LAST 

1394 

10,3613 

54  155 

1 

TS 

MPAC 

+ 1 

REF 

276 

LAST 

1394 

10,3614 

3 4746 

0 

CAF 

ZERO 

REF 

844 

LAST 

1394 

10,3615 

56  154 

1 

XCH 

MPAC 

10 ,3616 

0 C006 

1 

EXTEND 

REF 

31 

LAST 

1394 

10,3617 

7 4727 

0 

MP 

HALF 

REF 

845 

LAST 

1394 

10,3620 

20  155 

1 

DAS 

MPAC 

REF 

62 

LAST 

1279 

10,3621 

1 6102 

0 

TCF 

DANZ  1 

[G 

FORCE 

TP  SIGN  AGREEMENT  IN  MPAC 

REF 

19 

LAST 

1390 

10,3622 

0 7300 

0 

SGNAGREE 

TC 

TPAGREE 

REF 

63 

LAST 

1394 

10,3623 

l 6102 

0 

TCF 

DANZIG 

CONVERT  THE  DP  l'S  COMPLEMENT  ANGLE  SCALED  IN 

RE  VOLUT 1 1 

SCALED 

IN  HALF 

-REVO 

LUTIONS. 

REF 

1 

10,3624 

0 3654 

0 

1ST02S 

TC 

1 T02SUB 

REF 

277 

LAST 

1394 

10,3625 

3 4746 

0 

CAF 

ZERO 

REF 

8 46 

LAST 

1394 

10,3626 

54  155 

1 

TS 

MPAC 

+ 1 

REF 

5 

LAST 

1045 

10,3627 

l 6101 

0 

TCF 

NEWMODE 

DO  IST02S 

ON  A VECTOR 

: OF  ANGLES 

REF 

2 

LAST 

1394 

10,3630 

0 3654 

0 

V 1ST02S 

TC 

1TU2SUB 

REF 

8 A 7 

LAST 

1394 

10,3631 

52  162 

0 

DXCH 

MPAC 

+5 

REF 

848 

LAST 

1394 

10,3632 

52  155 

1 

DXCH 

MPAC 

REF 

3 

LAST 

1394 

10,3633 

0 3654 

0 

TC 

1T02SUB 

MODE  IS  ALREADY  AT  DOUBLE-PRECISION 


A SINGLE  PRECISION  2'S  COMPLEMENT  ANGLE 


ANSWER  ARRIVES  IN  A AND  MPAC. 


GAP: 
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L RTB  OP  CODES 


17:11  MAR.  19,1971  SKIPPER  . 
USER'S  PAGE  NO.  2 


E 5 S4 


0069 

REF 

849 

LAST 

1394 

10,3634 

54  156 

1 

TS 

MPAC  +2 

0070 

RFF 

850 

LAST 

1395 

10,3635 

52  160 

1 

DXCH 

MPAC  +3 

0071 

KEF 

851 

LAST 

1395 

10,3636 

52  155 

1 

DXCH 

MPAC 

0072 

REF 

4 

LAST 

1394 

10,3637 

0 3654 

0 

TC 

1 T02SUB 

0073 

REF 

852 

LAST 

1395 

10,3640 

54  155 

l 

TS 

MPAC  +1 

0074 

REF 

853 

LAST 

1395 

10,3641 

3 C 161 

I 

CA 

MPAC  +5 

0075 

REF 

854 

LAST 

1395 

10,3642 

54  154 

0 

TS 

MPAC 

0076 

REF 

135 

LAST 

1336 

10, 3643 

3 4 744 

1 

TPMDDE 

CAF 

ONE 

0077 

REF 

6 

LAST 

1394 

10,3644 

1 6101 

0 

TC  F 

NEWMODE 

R0078 

V1ST02S  FOR 

2 COMPONENT  VECTOR, 

. USED  BY 

RR. 

0079 

REF 

5 

LAST 

1395 

10,3645 

0 3 6 54 

0 

2VIST02S 

TC 

1 T02SUB 

0080 

REF 

855 

LAST 

1395 

10,3646 

52  160 

1 

DXCH 

MPAC  +3 

0081 

REF 

856 

LAST 

1395 

10,3647 

52  155 

1 

DXCH 

MPAC 

0082 

REF 

6 

LAST 

1395 

10,3650 

0 3654 

0 

TC 

l T02SUB 

008  3- 

REF 

277 

LAST 

139  I 

10,3651 

54  001 

1 

TS 

L 

0084 

REF 

857 

LAST 

1395 

10,3652 

3 0157 

1 

CA 

MPAC  +3 

0085 

REF 

3 

LAST 

1394 

10, 3653 

1 6C76 

1 

TCF 

SL0AD2 

R0086 

SUBROUTI NE 

TO  DO  DOUBLING  AND  l'S  TO  2'S 

, CONVERSION: 

0087 

REF 

858 

LAST 

1395 

10,3654 

52  155 

1 

1T02SUB 

DXCH 

MPAC 

0083 

10,3655 

20  001 

1 

DDOUBL 

0089 

REF 

459 

LAST 

1391 

10,3656 

10  000 

0 

CCS 

A 

0090 

REF 

136 

LAST 

1395 

10,3657 

6 4744 

1 

AD 

ONE 

0091 

10,3660 

1 3662 

1 

TCF 

+ 2 

0092 

10,3661 

4 COOO 

0 

COM 

009  3 

RFF 

859 

LAST 

1395 

10,3662 

54  154 

0 

TS 

MPAC 

0094 

REF 

385 

LAST 

1393 

10,3663 

0 0002 

0 

TC 

Q 

0095 

REF 

460 

LAST 

1395 

10,3664 

50  000 

1 

INDEX 

A 

0096 

REF 

5 

LAST 

1100 

10, 3665 

3 4725 

0 

CAF 

LIMITS 

009  7 

REF 

860 

LAST 

1395 

10,3666 

26  154 

0 

ADS 

MPAC 

0098 

REF 

386 

LAST 

1395 

10,3667 

0 0002 

0 

TC 

Q 

MODE  IS  TP. 


FINAL  MP  AC  +1  UNSPECIFIED. 

THIS  WAS  REVERSE  OF  MSU. 

AND  SKIP  ON  OVERFLOW. 

OVERFLOW  UNCORRECT  AND  IN  MSU. 


RO 114  THE  FOLLOWING  ROUTINE  INCREMENTS  IN  2S  COMPLEMENT  THE  REGISTER  WHOSE  ADDRESS  IS  IN  BUF  BY  THF  IS  COMPL. 

R0116  QUANTITY  FOUND  IN  TEM2 . THIS  MAY  BE  USED  TO  INCREMENT  DESIRED  I MU  AND  OPTICS  CDU  ANGLES  OR  ANY  OTHFR  2S  COMPL. 

ROU8  ( +-0  LNEQUAL  TO  -0)  QUANTITY.  MAY  BE  CALLED  BY  BANKCALL/SWCALL. 


0119  REF  33  LAST  1264 

0120  REF  167  LAST  1264 

012  1 

0122  REF  137  LAST  1395 

0123 

0124  REF  138 


54  142 

1 CDUINC 

TS 

TEM2 

50  130 

0 

INDEX 

BUF 

10  COO 

0 

CCS 

0 

6 4 744 

1 

AD 

ONE 

1 3700 

1 

TCF 

+ 4 

6 4744 

1 

AD 

ONE 

10.3670 

10.3671 

10.3672 

10.3673 

10.3674 

10.3675 


IS  COMPL. QUANT.  ARRIVES  IN  ACC.  STORE  IT 
CHANGE  2 S COMPL.  ANGLE!  IN  BUF)  INTO  IS 


LAST  1395 


GAP 


AS S t MB L E REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  20211I2-16L 


L RTE  OP  CODES 


0125 

REF 

139 

LAST 

1395 

10 

0126 

10 

0127 

REF 

34 

LAST 

139  5 

10 

0129 

REF 

461 

LAST 

1395 

10 

0130 

REF 

14C 

LAST 

1396 

10 

0131 

10 

0132 

10 

0133 

REF 

35 

LAST 

1396 

10 

0134 

10 

013  5 

REF 

462 

LAST 

1396 

10 

0137 

REF 

6 

LAST 

1395 

10 

0138 

REF 

36 

LAST 

1396 

10 

0139 

REF 

168 

LAST 

1395 

10 

0140 

10 

0141 

REF 

387 

LAST 

1395 

10 

6 4744 

1 

AD 

ONE 

4 CCOO 

0 

COM 

6 C 142 

0 

AD 

TEM2 

10  000 

0 

CCS 

A 

6 4744 

1 

AD 

ONE 

1 3705 

1 

TCF 

+ 2 

4 0000 

0 

COM 

54  142 

1 

TS 

TEM2 

1 3712 

1 

TCF 

+4 

5C  000 

1 

INDEX 

A 

3 4725 

0 

CAF 

LIMITS 

6 C 142 

0 

AD 

TEM2 

50  130 

0 

INDEX 

BUF 

54  000 

0 

TS 

0 

0 0002 

0 

TC 

Q 

3676 

3677 

3700 

3 701 

3 70  2 

3703 

3 704 

3705 

3 706 

3707 

3710 

3711 

3712 

3713 

3714 


17:11  MAR.  19,1971  SKIPPER  .131 


PAGE  1396 


USER' S PAGE  NO.  3 E5  S4 

OVERFLOW  HERE  IF  2S  COMPL.  IS  180  OEG . 

SUIT  MOVES  FROM  2ND  TO  3D  QUAD.  (OR  RACK) 
BACK  TO  2S  COMPL. 

STORE  14BIT  QUANTITY  WITH  PRFSFNT  SIGN 
S IGN  . 

FIX  I T , R Y ADDING  IN  37777  OR  40000 
STORE  NEW  ANGLE  IN  2S  COMPLEMENT. 


GAP: 
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17:11  MAR.  19,1971  SKIPPER  .131  PAGE  1397 


L RTB  OP  CODES  USER'S  PAGE  NO.  A E5  SA 

P01A2  RTB  TO  TORQUE  GYROS,  EXCEPT  FOR  THE  CALL  TO  IMUSTALL.  ECADR  OF  COMMANDS  ARRIVES  IN  XI. 


0 1A  A 

REF 

66 

LAST 

1 2 L 7 

10,3719 

50  120 

1 

PULSE IMU  INDEX 

0 1 A 5 

REF 

69 

LAST 

1266 

10,3716 

3 00A6 

0 

CA 

0 IA  6 

REF 

3C5 

LAST 

1387 

10,3717 

0 A607 

1 

TC. 

01A7 

REF 

7 

LAST 

966 

10,3720 

17310 

0 

CADR 

0 1A8 

REF 

6 A 

LAST 

139  A 

10, 3721 

1 6102 

0 

TC  F 

FIXLOC  ADDRESS  OF  GYRO  COMMANDS  SHOULD  BE  IN  XI 
XI 

BANKCALL 
I MUPULSE 
DANZIG 


GAP:  ASSEMBLE  RFVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021LL2-161 
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131  PAGE  1398 


L 

RTB  CP  COOES 

USER' S PAGE  NO.  5 

E 5 

S A 

P0192 

THE  SUBROUTINE  SIGNMPAC  SETS 

C (MPAC, 

MPAC  +1) 

TO  S IGNIMPAC ) . 

R0193 

FOR  THIS 

, ONLY 

THE 

CONTENTS  OF  MPAC  ARE 

EXAMINED 

. ALSO  +0  YIELDS  POSMAX  AND  -0  YIELDS  NEGMAX. 

R0195 

ENTRY  MAY  BE  BY  EITHER  OF  THE 

FOLLOWING: 

RO 196 

l . 

LIMIT 

THE 

SIZE  OF  MPAC  ON  INTERPRETIVE 

OVERFLOW: 

R0197 

ENTRY : 

BOVB 

RO  198 

SIGNMPAC 

RO  199 

2. 

GENERATE 

IN 

MPAC  THE 

S IGNUM 

FUNCTION  OF 

MPAC: 

R0200 

ENTRY  : 

RTB 

R020  1 

SIGNMPAC 

R0202 

IN  EITHER  C ASF 

, RETURN  IS  TO 

THE  NEXT  ! 

(NTERPRFTIVE  INSTRUCTION  IN  THE 

CALLING  SEQUENCE. 

02035 

REF  1 

l A , 2 000 

SETLOC 

RTBC0DE1 

02036 

1 A , 3 765 

BANK 

020  A 

1 A , 3 765 

0 0006 

1 

S IGNMPAC 

EXTEND 

0205 

REF  2 

LAST 

A56 

1A, 3766 

3 A 72  A 

1 

DC  A 

DPOSMAX 

0206 

REF  861 

LAST 

1395 

1A, 3767 

52  155 

1 

DXCH 

MPAC 

0207 

REF  A63 

LAST 

1396 

1 A , 3 770 

10  COO 

0 

CCS 

A 

0208 

REF  278 

LAST 

139  A 

1 A , 3 7 7 1 

3 A 7A6 

0 

DPMODE 

CAF 

ZERO 

SETS  MPAC  +2  TO  ZERO  IN  THE  PROCESS 

0209 

REF  A 

LAST 

1395 

1A, 3772 

1 6100 

1 

TCF 

SL0A02  +2 

0210 

1A , 3773 

1 377A 

1 

TCF 

+ 1 

021  1 

1A.377A 

0 0006 

1 

EXTEND 

0212 

REF  3 

LAST 

1398 

1 A , 3 7 75 

A A 7 2A 

0 

DCS 

DPOSMAX 

0213 

PE  F 5 

LAST 

1398 

1A, 3776 

1 6076 

1 

TCF 

SL0AD2 

02135 

REF  2 

LAST 

139A 

O 

r-o 

0 

0 

0 

SETLOC 

RTBCODES 

02136 

10,3722 

BANK 

R 0 2 1 A 

RTB 

OP  CODE  NORMUNIT  IS  LIKE  INTERPRETIVE  INSTRUCTION  UNIT,  FXCEPT 

THAT  IT  CAN  BE  DEPENDED  ON 

NOT 

TO 

BLOI 

R0216 

UP  WHEN 

THE  VECTOR 

BEING  UNITIZED  IS 

VERY  SMALL 

--  IT  WILL  BLOW  UP  WHEN 

ALL  COMPONENTS  ARE  ZERO. 

IF 

normun: 

R0218 

IS  USED 

AND  THE  UPPER 

ORDER  HALVES  OF 

ALL  COMPONENTS  ARE  ZERO,  THE  MAGNITUDE  RETURNED  IN  36D  WILL 

BE 

TOO 

L AR( 

R0220 

BY  A FACTOR  OF 

2(13) 

AND  THE 

SQUARED 

MAGNITUDE  RF TURN E D 

AT  3 AD  WILL  BE 

TOO  RIG  BY  A FACTOR  OF  2(26). 

0222 

REF  l A 1 

LAST 

1396 

10,3722 

3 A 7AA 

1 

NORMUNX  1 

CAF 

ONE 

0222  1 

REF  1 1 

LAST 

909 

10,3723 

1 3725 

0 

TCF 

NORMUNIT  +1 

0222  2 

REF  279 

LAST 

1398 

1 0 , 3 72  A 

3 A7A6 

0 

NORMUNIT 

CAF 

ZERO 

02223 

REF  67 

LAST 

1397 

10,3725 

6 C 120 

1 

AD 

F IXLOC 

022  2 A 

REF  862 

LAST 

1398 

10,3726 

5 A 156 

1 

TS 

MPAC  +2 

02225 

REF  306 

LAST 

1397 

10,3727 

0 A607 

1 

TC 

BANKCALL 

GET  SIGN  AGREEMENT  IN  ALL 

COMPONENTS 

0223 

REF  3 

LAST 

1068 

10,3730 

C1C10 

1 

CADR 

VECAGREE 

022  A 

REF  863 

LAST 

1398 

10,373  1 

1C  15A 

0 

CCS 

MPAC 

022  5 

REF  1 

10,3732 

1 3 7 66 

1 

TCF 

NOSHIFT 

0226 

10,3733 

1 3 735 

1 

TCF 

+ 2 

0227 

REF  2 

LAST 

1398 

10.373A 

1 3766 

1 

TCF 

NOSHIFT 

0228 

REF  8 fc A 

LAST 

139  8 

10,3735 

10  157 

0 

CCS 

MPAC  +3 

0229 

REF  3 

LAST 

1398 

10,3736 

L 3766 

l 

TCF 

NOSHIFT 

GAP: 
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L 

RT  6 

OP  i 

CODES 

0230 

10,3737 

1 

3741 

1 

TC  F 

+ 2 

023  l 

REF 

4 

LAST 

1398 

10,3740 

1 

3766 

1 

TCF 

NOSHIFT 

0232 

REF 

865 

LAST 

1398 

10,3741 

1C 

161 

0 

CCS 

M P AC 

*5 

0233 

REF 

5 

LAST 

1399 

10,3742 

1 

3 7 66 

1 

TCF 

NOSHIFT 

0234 

10,3743 

1 

3745 

0 

TCF 

+ 2 

0235 

REF 

6 

LAST 

1399 

10,3744 

l 

3766 

1 

TCF 

NOSHIFT 

0236 

REF 

866 

LAST 

1399 

10,3745 

3 

C 1 55 

0 

CA 

MP  AC 

+ 1 

023  7 

10,3746 

0 

0006 

1 

EXTEND 

0238 

REF 

79 

LAST 

1367 

10,3747 

7 

4727 

0 

MP 

0 IT  1 4 

0239 

REF 

867 

LAST 

1399 

10, 3750 

20 

155 

1 

DAS 

M P AC 

0240 

REF 

868 

LAST 

1399 

10,3/51 

3 

0160 

0 

CA 

MPAC 

+ 4 

0241 

10,3752 

C 

0006 

1 

EXTEND 

0 24  I L 

REF 

80 

LAST 

1399 

10,3753 

7 

4727 

0 

MP 

B I T 1 4 

02412 

REF 

869 

LAST 

1399 

10,3754 

20 

160 

1 

DAS 

MPAC 

+ 3 

024  13 

REF 

87C 

LAST 

1399 

10,3755 

3 

0162 

1 

CA 

MPAC 

+ 6 

0 241  A 

10,3756 

0 

0006 

1 

EXTEND 

024  15 

REF 

81 

LAST 

1399 

10,3757 

7 

4727 

0 

MP 

8 I T 1 4 

02416 

REF 

871 

LAST 

1399 

10,3760 

2 C 

162 

0 

OAS 

MPAC 

+ 5 

024  1 7 

REF 

2 

LAST 

1068 

10, 3761 

3 

4752 

0 

CAF 

THIRTEEN 

0241  e 

REF 

872 

LAST 

1399 

10,3762 

50 

156 

0 

INDEX 

MPAC 

+ 2 

024  IS 

10,3763 

54 

045 

1 

TS 

37D 

0242 

REF 

64 

LAST 

1385 

10,3764 

0 

4626 

1 

OFFTUN IT  TC 

POSTJUMP 

0243 

REF 

2 

LAST 

101  1 

10,3765 

01024 

0 

CADR 

UNIT 

+ 1 

0243  1 

REF  280  LAST  1398 

10,3766 

3 4746 

0 NOSH  I FT 

CAF 

ZERO 

0243  2 

REF  1 

10,3767 

1 3762 

0 

TCF 

OFFTUNI T 

R0300 

RTB 

VECSGNAG 

.FORCES  SIGN 

AGREEMENT  OF  VECTOR  IN 

MPAC. 

030  1 

REF 

307 

LAST  1398 

10,3770 

0 

4607 

1 

VECSGNAG  TC 

8ANKC ALL 

0302 

REF 

4 

LAST  1398 

10,3771 

01010 

1 

CADR 

VECAGREE 

0303 

REF 

65 

LAST  1397 

10, 3772 

0 

6102 

1 

TC 

DANZIG 

***  END  OF  SKIPPER  .131  *** 
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SHIFT  ALL  COMPONENTS  LEFT  13 
DAS  GAINS  A LITTLE  ACCURACY 


SKIP  THF  "TC  VECAGREF"  DONE  AT  UNIT 


-2 


GAP: 
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032  PAGE  1400 


L 

ROOO  1 
R0002 

RQ003 
R0004 
R0006 
R0008 
R0009 
R0010 
R001 1 
R0012 
R0013 
R0014 
R0015 
R0016 
R0018 
R0020 
R002  1 
R0023 
R0025 
R0026 
R0028 

R0030 
R003  1 

A0032 
A003  3 

R0034 

A003  5 
A0036 
A003  7 
A0038 

R0039 

R0040 

R0041 

R0042 

R004  3 
R 0 04  4 
R0045 
R0046 


004  7 


T6-RUPT  PROGRAMS 


USER'S  PAGE  NO.  1 EO  S4 


PROGRAM  NAMES:  (11  T6J0BCHK  MOD.  NU . 5 OCTOBER  2,  1967 

(2)  DCT6RUPT 


MODIFICATION  BY:  LOWELL  G HULL  ( A .C . EL ECTRON I CS ) 

THESE  PROGRAMS  ENABLE  THE  LM  DAP  TO  CONTROL  THE  THRUST  TIMES  OF  THE  REACTION  CONTROL  SYSTEM  JETS  BY  USING  TTME6. 
SINCE  THE  LM  DAP  MAINTAINS  EXCLUSIVE  CONTROL  OVER  TIME6  AND  ITS  INTERRUPTS,  THE  FOLLOWING  CONVENTIONS  HAVE  BEEN 
ESTABLISHED  AND  MUST  NOT  BE  TAMPERED  WITH: 

1.  NO  NUMBER  IS  EVER  PLACED  INTO  TIME6  EXCEPT  BY  LM  DAP. 

2.  NO  PROGRAM  OTHER  THAN  LM  DAP  ENABLES  THE  TIME6  COUNTER. 

3.  TO  USE  TIME6,  THE  FOLLOWING  SEQUENCE  IS  ALWAYS  EMPLOYED: 

A.  A POSITIVE  (NON-ZERO)  NUMBER  IS  STORED  IN  TIME6. 

B.  THE  TIME6  CLOCK  IS  ENABLED. 

C.  TIME6  IS  INTERROGATED  AND  IS: 

I.  NEVER  FOUND  NEG AT  I V E ( NON-Z ERC ) OR  *0. 

II.  SOMETIMES  FOUND  PO S I T I V E ( B E T WEE N 1 AND  240D) 

III.  SOMETIMES  FOUND  POSMAX  INDICATING  THAT  IT  IS 
IV.  SOMETIMES  FOUND  NEGATIVE  ZERO  INDICATING  THAT: 

A.  A T6RUPT  IS  ABOUT  TO  OCCUR  AT  THE  NEXT  D I NC , OR 

B.  A T6RUPT  IS  WAITING  IN  THE  PRIORITY  CHAIN,  OR 

C.  A T6RUPT  IS  IN  PROCFSS  NOW. 

4)  ALL  PROGRAMS  WHICH  OPERATE  IN  EITHER  INTERRUPT  MODE  OR  WITH  INTERRUPT  INHIBITED  MUST  CALL  T6J0BCHK 
EVERY  5 MILLISECONDS  TO  PROCESS  A POSSIBLE  WAITING  T6RUPT  BEFORE  IT  CAN  BE  HONORED  BY  THE  HARDWARE. 


INDICATING  THAT  IT  IS  ACTIVE. 
INACTIVE  AND  NOT  ENABLED. 


(5.  PROGRAM  JTLST , IN  Q.R-AXES,  HANDLES  THE  INPUT  LIST.) 
T6JUBCHK  CALLING  SEQUENCE: 

L TC  T 6 JOBCHK 

L +1  (RETURN) 

D0T6RUPT  CALLING  SEQUENCE: 


DXCH  ARUPT  T6RUPT  LEAD  IN  AT  LOCATION  4004. 

EXTEND 

DCA  T6ADR 
DTCB 


SUBROUTINES  CALLED:  D0T6RUPT  CALLS  T 6 JOBCHK . 

NORMAL  EXIT  MODES:  T 6 JOBCHK  RETURNS  TO  L +1. 

DOT 6RUPT  TRANSFERS  CONTROL  TO  RESUME. 

ALARM/ A BOR  I MOOES:  NONE. 


INPUT:  T I ME  6 NXT6ADR 

T6NEXT  T6NEXT  +1 
T6FURTHA  T 6FURTHA  +1 
DEBRIS:  T 6J0BCHK  CLOBBERS  A. 


OUTPUT:  TIME6  NXT6ADR 


T6NEXT  T6NEXT  +1 
T 6FURTHA  T6FIJPTHA  +1 
DOT 6RUPT  CLOBBERS  NOTHING. 


CHANNEL  5 
CHANNEL  6 
BIT15/CH13 


5747 


BLOCK  02 


•GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  202UI2-16I 

L T6-RUPT  PROGRAMS 

0055  17,2055  BANK  17 


0056 

REF 

1 

17,2000 

005  7 

17,2055 

0058 

REF 

2 

LAST 

230 

E6 , 1466 

0059 

REF 

1 

0060 

REF 

1 

17,2055 

0061 

REF 

388 

LAST 

1396 

17,2056 

0062 

REF 

20 

LAST 

l l 13 

17,205  7 

0063 

REF 

21 

LAST 

1401 

17,2060 

R0064 

CONTROL 

PASSES 

TO  T 6 JOB  ONLY 

0069 

REF 

35 

LAST 

1126 

17,2061 

0070 

17,2062 

0071 

REF 

1 

17,2063 

0072 

REF 

3 

LAST 

1401 

17,2064 

0073 

REF 

2 

LAST 

230 

17,2065 

0074 

REF 

2 

LAST 

1401 

17,2066 

0075 

•REF 

3 

LAST 

1367 

17,2067 

0076 

REF 

464 

LAST 

1398 

17,2070 

0077 

REF 

1 

17,2071 

0078 

REF 

36 

LAST 

1401 

17,2072 

0079 

REF 

3 

LAST 

1401 

17,2073 

0080 

REF 

1 

17,2074 

008  1 

17,2075 

00812 

REF 

3 

LAST 

991 

17,2076 

008125 

REF 

40 

LAST 

1374 

17,2077 

00813 

REF 

8 

LAST 

99  1 

17,2100 

00814 

17,2101 

00815 

REF 

4 

LAST 

1401 

17,2102 

008155 

REF 

41 

LAST 

140  1 

17,2103 

00816 

REF 

50 

LAST 

1373 

17,2104 

0082 

1 7, 2105 

0083 

REF 

20 

LAST 

1333 

17,2106 

0084 

REF 

4 

LAST 

1401 

1 7,2107 

0085 

REF 

9 

LAST 

140  1 

17,2110 

0086 

REF 

465 

LAST 

1401 

17,2111 

0087 

REF 

2 

LAST 

140  1 

17, 2 1 12 

0088 

REF 

37 

LAST 

1401 

17,2113 

0089 

REF 

5 

LAST 

140  1 

17,2114 

0090 

REF 

278 

LAST 

1395 

17,2115 

0091 

REF 

1 

17,2116 

0092 

5747 

0093 

REF 

1 

4000 

0094 

5747 

009  5 

REF 

18 

LAST 

911 

E6, 1634 

0096 

REF 

1 

SETLOC  DAPS2 
BANK 

EBANK=  T6NEXT 
COUNT  * tt/0APT6 


10  031 

1 

T 6J0BCHK 

CCS 

T I ME6 

0 0002 

0 

TC 

Q 

0 5701 

1 

TC 

CCSHQLE 

0 5701 

1 

TC 

CCSHOLE 

WHEN  CITIME6)  = -0  1 

[ I.E.  WHEN  A T6RUPT 

3 4724 

1 

T6J0B 

CA 

POSMAX 

22  007 

0 

ZL 

5 3 1 4 7 1 

0 

DXCH 

T6FURTHA 

5 3 ' 46  7 

1 

DXCH 

T6NEXT 

23*465 

1 

LXCH 

NXT6ADR 

54  031 

1 

TS 

T I ME 6 

6 7 746 

0 

AD 

PRI037 

54  000 

0 

TS 

A 

1 2075 

0 

TCF 

ENABLET6 

3 4724 

1 

CA 

POSMAX 

54  031 

1 

TS 

T I ME6 

1 2115 

1 

TCF 

G0CH56 

0 0006 

1 

ENABLET6 

EXTEND 

2 3 ' 265 

1 

QXCH 

C 13QSAV 

22  C 70 

0 

LXCH 

RUPTREG1 

0 6040 

0 

TC 

C 13ST  ALL 

0 0006 

l 

EXTEND 

23*265 

1 

QXCH 

C 13QSAV 

22  070 

0 

LXCH 

RUPTREG1 

3 4726 

0 

CAF 

B I T 1 5 

0 0006 

1 

EXTEND 

05  013 

0 

WOR 

C HAN  13 

3 1466 

1 

CA 

T6NEXT 

6 7746 

0 

AD 

P R 103  7 

54  000 

0 

TS 

A 

L 2115 

1 

TCF 

G0CH56 

3 4724 

1 

CA 

POSMAX 

55 ' 466 

0 

TS 

T6NEXT 

50  C01 

0 

G0CH56 

INDEX 

L 

1 5747 

1 

TCF 

WRITEP  -1 

BLOCK  02 
SETLOC  FFTAG9 
BANK 

EBANK=  CDUXD 
COUNT*  $ $/D APT6 
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032 


PAGF  1 AO  1 


USER’ S PAGE  NO.  2 


EO  S4 


CHECK  T I ME  6 FOR  WAITING  T6RUPT: 
NONE:  CLOCK  COUTING  DOWN. 


MUST  BE  PROCESSED). 
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L 

T6-RUPT 

PROGRAMS 

009  7 

REF 

4 

LAST 

230 

5747 

3 1472 

l 

CA 

NEXTP 

0098 

5750 

0 0006 

1 

WRITEP 

EXTEND 

0099 

REF 

2 

LAST 

223 

5 751 

01  006 

0 

WRITE 

CHAN6 

0100 

REF 

389 

LAST 

1401 

5752 

C C002 

0 

TC 

Q 

0101 

REF 

1 

5753 

3 1473 

0 

CA 

NEXTU 

0102 

REF 

279 

LAST 

1401 

5754 

54  C01 

1 

WRITEU 

TS 

L 

0103 

REF 

1 

5755 

4 5770 

0 

CS 

003140CT 

0104 

5 756 

0 0006 

1 

EXTEND 

0105 

REF 

3 

LAST 

1024 

5757 

02  005 

0 

RAND 

CHAN5 

010  6 

REF 

280 

LAST 

1402 

5760 

6 0001 

0 

AD 

L 

0107 

5761 

0 0006 

1 

EXTEND 

010  8 

REF 

4 

LAST 

1402 

5762 

01  005 

0 

WRITE 

CHAN5 

0109 

REF 

390 

LAST 

140  2 

5 76  3 

0 0002 

0 

TC 

Q 

0110 

REF 

1 

5764 

3 1474 

1 

CA 

NEXTV 

Oil  l 

RFF 

281 

LAST 

1402 

5 765 

54  001 

1 

WRITEV 

TS 

L 

0112 

REF 

2 

LAST 

1402 

5766 

3 5770 

1 

CA 

003140CT 

0113 

5767 

l 5756 

1 

TC  F 

-90 

0114 

5770 

00314 

1 

003140CT 

OCT 

00314 

0115 

17,2117 

BANK 

17 

0116 

REF 

2 

LAST 

140  1 

17,2000 

SETLOC 

DAPS2 

0117 

17,2117 

BANK 

0118 

REF 

6 

LAST 

140  L 

E6 , 1 466 

EBANK= 

T6NEXT 

0119 

REF 

2 

LAST 

1401  TO 

1401: 

34  34* 

COUNT* 

5 t/D APT  6 

0120 

REF 

1 1 

LAST 

1336 

17,2117 

22  016 

0 

D0T6RUPT 

LXCH 

BANKRUPT 

012  1 

17,2120 

0 0006 

1 

EXTEND 

0122 

REF 

10 

LAST 

1336 

17,2121 

22  012 

1 

QXCH 

QRUPT 

012  3 

REF 

1 

17,2122 

0 2055 

0 

TC 

T 6J0BCHK 

0124 

REF 

23 

LAST 

1337 

17,2123 

1 5272 

l 

TC  F 

RESUME 

17:11  MAR.  19,1971  LMOAP 


032 


PAGE  1402 


USER' S PAGE  NO.  3 


E?  S4 


(INTERRUPT  LEAD  INS  CONTINUED) 
CALI  T6J0BCHK. 

END  TIME6  INTERRUPT  PROCESSOR. 
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17: 1 L MAR.  19,1971 


LMOAP 


032 


PAGE  1403 


L 

0001 

0002 

0003 

0004 

0005 

R0006 

R0007 

R0C08 

R0009 

R001  1 

R0012 

R0013 

R0014 

R0015 

R0016 
R001  7 
R0018 
R 0 0 1 9 
R0020 

R002  1 

R0022 

R0023 

R0024 


DAP 

INTERFACE 

SUBROUTINES 

20,2115 

BANK 

REF 

3 

LAST 

45 

20,2000 

SETLOC 

20,2115 

BANK 

RFF 

19 

LAST 

1401 

E6, 1634 

EBA  NK  = 

REF 

1 

COUNT  * 

MOD 

0 

DATE  1 1 / 1 5/  6 £ 

BY  GEORGE  W 

MOO 

1 

1/23/67 

MODIFICATION 

USER' S PAGE  NO.  1 EO  S4 

20 

DAPS3 

CDUXD 
$ t /DAP  I F 

CHERRY 

BY  PETER  ADLER 


FUNCTIONAL  DESCRIPTION 

HEREIN  ARE  A COLLECTION  OF  SUBROUTINES  WHICH  ALLOW  MISSION  CONTROL  PROGRAMS  TO  CONTROL  THE  MODE 
AND  INTERFACE  WITH  THE  CAP. 

CALLING  SEQUENCES 


IN  INTERRUPT  OR  WITH  INTERRUPT  INHIBITED 
TC  I BNKC ALL 

FC  ADR  ROUTINE 

IN  A JOB  WITHOUT  INTERRUPT  INHIBITED 
INHINT 

TC  I BNKCALL 

FC ADR  ROUTINE 
RELINT 

OUTPUT 

SEE  INDIVIDUAL  ROUTINES  BELOW 

DEBRIS 


A , L , AND  SOMETIMES  MDUETEMP 


ODE  NOT  IN  PULSES  MODE 
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L 

CAP 

INTFRFACE 

SUBROUT INES 

USER' S PAGE  NO.  2 E?  S4 

R0087 

SUeROLTINF  NAMES: 

R0088 

SETMAXDB , 

SETMINDB, 

RESTCRDB, 

PFLITEDB 

R0089 

MOCIF I ED 

: 30 

JANUARY  1968  BY 

P S WEISSMAN  TO  CREATE  RESTORDB. 

R0090 

MODI F IEO 

: l MARCH 

1968  BY  P S 

WEISSMAN 

TO  SAVE  EBANK  AND  CREATE 

PFLITEDB 

R009  1 

FUNCTIONAL  DESCRIPTION: 

R0092 

SETMAXDB 

- SET  DEADBAND  TO 

5.0 

DEGREES 

R0093 

SETMINDB 

- SET  DEADBAND  TO 

0.3 

DEGREE 

R0094 

RESTORDB 

- SET  DEADBAND  TO 

.3, 

1,  OR  5 ACCORDING  TO  BITS 

4 AND  5 OF  DAPBOOLS 

R0096 

PFLITEDB 

- SET  DEADBAND  TO 

1 .0 

DEGREE  AND  ZERO 

THE  COMMANDED  ATTITUDE  CHANGE  AND  COMMANDED  RATE 

R0098 

ALL 

ENTRIES  SET  UP  A 

NOVAC 

JOB 

TO  DO  1/ACCS  SO 

THAT  THE 

TJETLAW  SWITCH  CURVES  ARE  POSITIONED  TO 

R0100 

REFLECT 

THE  NEW  DEADBAND.  IT 

SHOULD 

BE 

NOTED  THAT  THE 

DEADBAND 

REFERS  TO  THE  ATTITUDE  IN  THE  P-,U-,AND  V- AXES. 

R010  2 

SUBROUTINE  CALLEO: 

NOVAC 

R0103 

CALLING 

SEQUENCE : 

SAME  AS  ABOVE 

AO  104 

OR 

TC 

RESTORDB 

+1  FROM  ALLCOAST 

R0105 

DEBRIS: 

A,  L 

, Q , 

RUPTREG1 , ( ITEMPS 

IN 

NOVAC ) 

' 0106 

REF 

33 

LAST 

907 

20,2115 

30  111 

0 

RESTORDB 

CAE 

DAPBOOLS 

DETERMINE  CREW-SELFCT  ED  DEADBAND. 

01061 

REF 

1 

20,2116 

7 4740 

1 

MASK 

D BSLECT2 

CHECK  FOR  MAX  DB  (5  DEG) 

01062 

20,2117 

0 C006 

1 

FXT  END 

01063 

20,2  120 

l 2122 

0 

BZF 

+ 2 

01064 

REF 

1 

20,2121 

1 2130 

0 

TC  F 

SETMAXDB 

8IT5  DAPBOOLS  IS  SET  - CREW  WANTS  5 DEG 

01065 

REF 

34 

LAST 

1404 

20,2122 

30  111 

0 

CAE 

DAPBOOLS 

0107 

REF 

1 

20,2123 

7 4741 

0 

MASK 

DBSELECT 

CHECK  FOR  1 DEG  DEADBAND  SELECTION 

010  8 

20,2124 

0 0006 

1 

EXTEND 

0109 

REF 

6 

LAST 

854 

20,2125 

1 2141 

0 

BZF 

SETMINDB 

0109  1 

REF 

l 

20,2126 

3 2153 

1 

CAF 

POWERDB 

B1T4  DAPBOOLS  IS  SET  - CREW  WANTS  l DEG 

01092 

REF 

2 

LAST 

1404 

20,2127 

l 2131 

1 

TCF 

SETMAXDB 

+ 1 

0110 

REF 

1 

20,2130 

3 2152 

0 

SETMAXDB 

CAF 

W IDEDB 

SET  5 DEGREE  DEADBAND. 

0111 

REF 

5 

LAST 

833 

20,2131 

55 '343 

0 

+ 1 

TS 

DB 

0112 

20,2132 

0 0006 

1 

EXTEND 

SET  UP  JOB  TO  RE-POSITION  SWITCH  CURVES 

0113 

REF 

42 

LAST 

1401 

20,2133 

22  070 

0 

QXCH 

RUPTREG1 

0114 

REF 

5 

LAST 

739 

20,2134 

3 7736 

1 

CALL  ACCS 

CAF 

PR  102  7 

0115 

RFF 

29 

LAST 

1368 

20, 2135 

0 5063 

1 

TC 

NOVAC 

0116 

REF 

10 

LAST 

735 

E6, 1536 

EBANK= 

A OSQ 

0117 

REF 

2 

LAST 

203 

20,2136 

03603 

1 

2CADR 

1 /ACCJOB 

0117 

20,2137 

42106 

0 

0118 

REF 

43 

LAST 

1404 

20,2140 

0 0070 

0 

TC 

RUPTREG1 

RETURN  TO  CALLER. 

0119 

REF 

1 

20,2141 

3 2151 

0 

SETMINDB 

CAF 

N ARROW DB 

SET  0.3  DEGREE  DEADBAND. 

0120 

REF 

3 

LAST 

1404 

20,2  142 

l 2131 

1 

TCF 

SETMAXDB 

* l 
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L 

DAP 

INTERFACE 

SUBROUTINES 

USER'S  PAGE  NO.  3 

E6  S4 

012  1 

20,2143 

0 C C 06 

1 

PFLI TED8 

EXTEND 

THE 

RETURN  FROM  CALLACCS  IS 

TO  RUPTRFG 1 . 

012? 

REF 

44 

LAST 

1404 

20,2144 

22  070 

0 

QXCH 

RUPTREG1 

0123 

REF 

8 

LAST 

854 

20,2  145 

0 2154 

0 

TC 

ZATTEROK 

ZERO  THF  ERRORS  AND  COMMANDFD  RATES. 

0124 

REF 

2 

LAST 

1404 

20,2146 

3 2153 

1 

CAF 

POWERDB 

SET 

OB  TO  1.0  DEG. 

012  5 

REF 

6 

LAST 

1404 

20,2147 

55 • 343 

0 

TS 

08 

0126 

REF 

l 

20,2  150 

1 2 134 

1 

TC  F 

C ALL ACC  S 

SET 

UP  1/ACCS  AND  RFTURN  TO 

CALLFR. 

0126  1 

20,2151 

00155 

0 

N ARKOWDB 

OCTAL 

00155 

0.3 

DEGREF  SCALED  AT  45. 

01262 

20,2  152 

03434 

l 

WIDEOB 

OCTAL 

03434 

5.0 

DEGREES  SC AL  FD  AT  45. 

0127 

20,2153 

00554 

0 

POWERDB 

DEC 

.02222 

1.0 

DEGREE  SCALED  AT  45. 

0128 

REF 

9 

LAST 

90  1 

20,2154 

3 5006 

1 

ZATTEROR  CAF 

E8ANK6 

012  9 

REF 

89 

LAST 

139  1 

20,2  155 

56  C03 

1 

XCH 

E BANK 

0130 

REF 

282 

LAST 

1402 

20,2166 

54  001 

1 

TS 

L SAVE  CALLERS  FBANK  IN  L 

013  1 

REF 

2 l 

LAST 

1310 

20,2157 

30  032 

0 

CAE 

C DUX 

0132 

REF 

20 

LAST 

1403 

20,2160 

55 ' 634 

0 

TS 

CDUXD 

0133 

REF 

13 

LAST 

1306 

20,2161 

30  033 

1 

CAE 

CDUY 

0134 

REF 

8 

LAST 

908 

20,2162 

55’ 635 

1 

TS 

CDUYD 

0135 

REF 

16 

LAST 

1306 

20,2163 

30  034 

0 

CAE 

CDUZ 

0136 

REF 

7 

LAST 

908 

20,2164 

5 5 ' 636 

1 

TS 

CDUZD 

013  7 

' REF 

10 

LAST 

921 

20,2165 

1 2171 

0 

TCF 

STOPRATE  +3 

0138 

REF 

10 

LAST 

1405 

20,2166 

3 5006 

1 

STOPRATE 

CAF 

EBANK6 

0139 

REF 

90 

LAST 

1405 

20,2167 

56  C03 

I 

XCH 

EBANK 

014  0 

REF 

283 

LAST 

1405 

20,2170 

54  001 

1 

TS 

L 

SAVE  CALLERS  EBANK  IN  L 

0141 

REF 

28  1 

LAST 

1399 

20,2171 

3 4746 

0 

+ 3 

CAF 

ZERO 

0142 

REF 

12 

LAST 

915 

20,21 72 

55' 642 

1 

TS 

OMEGAPD 

0143 

REF 

8 

LAST 

914 

20,2173 

55  * 643 

0 

TS 

OMEGAQD 

0144 

REF 

7 

LAST 

914 

20,2174 

55' 644 

1 

TS 

OMEGARD 

0145 

REF 

5 

LAST 

915 

20,2175 

55 ' 637 

0 

TS 

DELCDUX 

0146 

REF 

2 

LAST 

140 

20,2176 

55 ' 640 

0 

TS 

DELCDUY 

0147 

REF 

2 

LAST 

140 

20,2177 

5 5 ' 64 1 

1 

TS 

DELCDUZ 

014  8 

REF 

4 

LAST 

915 

20,2200 

55 ' 274 

0 

TS 

DELPEROR 

0149 

REF 

2 

LAST 

381 

20,2201 

55*275 

I 

TS 

DELQEROR 

0150 

REF 

2 

LAST 

381 

20,2202 

55*276 

1 

TS 

DELREROR 

0151 

REF 

91 

LAST 

1405 

20,2203 

22  003 

1 

LXCH 

EBANK 

RESTORE  CALLERS  EBANK. 

0152 

REF 

391 

LAST 

1402 

20,2204 

0 0 C02 

0 

TC 

0 

R0153  SUBROL  T INE  NAME:  ALLCOAST 


R0154  WILL  BE  CALLED  BY  FRESH  STARTS  AND  ENGINE  OFF  ROUTINES. 

R 0 16 6 CALLING  SEQUENCE:  (SAME  AS  ABOVE) 

R0157  EXIT:  RETURN  TO  Q. 

R0158  SUBROUTINES  CALLED:  STOPRATE,  RESTORDB,  NOVAC 

R0159  ZERO:  (FOR  ALL  AXES)  AOS,  ALPHA,  AOSTERM,  OMEGAD,  DELCDU , DELEROR 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  20211L2-161 

L DAP  INTERFACE  SUBROUTINES 

RO 160  OUTPUT  : DR  IF T B I T/CA PBOOL S , DB,  JCB  TO  00  1/ACCS 


R0161  DEBRIS:  A,  L,  Q,  RUPTREGl,  RUPTREG2,  (ITEMPS  IN  NOVAC) 


0162 

20,2205 

0 0006 

1 

ALLCOAST  EXTEND 

0163 

REF 

21 

LAST 

1327 

20,2206 

22  071 

1 

QXCH 

RUPTREG2 

0164 

REF 

11 

LAST 

1405 

20,2207 

0 2166 

I 

TC 

STOPRATE 

0165 

REF 

52 

LAST 

1405 

20,2210 

22  C03 

1 

LXCH 

EBANK 

0166 

REF 

11 

LAST 

L404 

20, 2211 

55' 536 

1 

TS 

AOSQ 

0167 

REF 

12 

LAST 

1406 

20,2212 

55' 537 

0 

TS 

AOSQ  +1 

0168 

REF 

2 

LAST 

735 

20,2213 

55' 540 

0 

TS 

AUSR 

0169 

REF 

3 

LAST 

1406 

20,2214 

55' 541 

1 

TS 

AOSR  +1 

0170 

REE 

3 

LAST 

206 

20,2215 

55*424 

0 

TS 

ALPHAQ 

0171 

REF 

3 

LAST 

215 

20,2216 

55 ' 425 

1 

TS 

ALPHAR 

0172 

REF 

2 

LAST 

138 

20,2217 

55 ' 544 

1 

TS 

AOSQTERM 

0173 

REF 

1 

20,2220 

55' 545 

0 

TS 

AO SR TERM 

0174 

REF 

93 

LAST 

1406 

20,2221 

22  003 

1 

LXCH 

EBANK 

0175 

REF 

35 

LAST 

1404 

20,2222 

4 0111 

1 

CS 

DAPBOOLS 

0176 

REF  . 

2 

LAST 

735 

20,2223 

7 4735 

0 

MASK 

DR  IFTBI  T — ' ' 

0177 

REF 

36 

LAST 

1406 

20,2224 

26  111 

1 

ADS 

DAPBOOLS 

0178 

REF 

8 

LAST 

855 

20,2225 

0 2116 

0 

TC 

RESTORDB  +1 

0179 

REF 

22 

LAST 

1406 

20,2226 

0 C07 1 

1 

TC 

RUPTREG  2 
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USER'S  PAGE  NO.  4 


E6  S4 


SAVE  0 FOR  RETURN 

CLEAR  RATE  INTERFACE.  RETURN  WITH  A=0 
AND  L = EB  ANK  6 . SAVE  CALLERS  EBANK. 


FOR  OOWNL 1ST. 

RESTORE  E 8 ANK  ( EBANK6  NO  LONGFR  NEEDED) 
SET  UP  DRIFTBIT 

RESTORE  DEADBANK  TO  C R EW- SEL FC TEO  VALUE. 


RETURN 


GAP: 


ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


17: 11  MAR.  19,1971  LMOAP 


032  PAGE  1407 


L D API OLER  PROGRAM 


USER'S  PAGE  NO.  1 EO  S4 


ROOO  1 

THE 

CAPIDLER  PROGRAM 

IS  STARTED  BY  FRESH  START 

AND  RESTART.  THE  DAPIDLER  PROGRAM 

IS  DONE 

R0003 

PER 

SECOND  UNTIL  THE 

ASTRONAUT  DESIRES  THE  OAP 

TO  WAKE  UP,  AND  THE  IMU  AND  CDUS  ARE  READY  FOR 

USE  BY 

R0005 

THfc 

NECESSARY  INITIALIZATION  OF  THE  DAP  IS  DONE 

BY  THE  OAP  IDLER  PROGRAM. 

0C06 

16,2000 

BANK  16 

0007 

REF 

1 

16,2000 

SETLOC  DAPS  1 

0008 

16, 2000 

BANK 

0009 

REF 

13  LAST  1406 

E 6 , 1 536 

EBANK=  AOSO 

0010 

REF 

1 

COUNT*  S$/DAPID 

10  T IMES 
THE  OAP . 


R0010C5  ChEKBITS  IS  CALLED  EVERY  0.1  SEC  AT  THE  BEGINNING  OF  THE  DAP  PASS,  WHETHER  THE  AUTOPILOT  IS  ACTIVE  OR  IDLING. 
R001015  IT  CHECKS  FOR  THE  FOLLOWING 

R 001 0 2 A.  IS  THF  PGNCS  MODE  SELECT  SWITCH  TURNED  TO  "OFF"? 

R001025  B.  IS  THE  IMU  UNAVAILABLE  AS  AN  ATTITUDE  REFERENCE? 

ROO 103  C.  HAS  THE  INDICATION  GONE  FROM  AGS  TO  PGNCS  SINCE  LAST  CHECKED 

R001035  IF  EITHER  A OR  B HOLD,  THE  FD  A I ERROR  NEEDLES  MUST  NOT  BE  UPDATED  (TOAVOID  CONFLICT  OVER  USE  OF  THE  DACS  WITH 
R001045  V43  OR  COARSE  ALIGN!  AND  THE  DAP  MUST  IDLE.  A BIT  IS  SET  TO  CAUSE  NEEDLER  TO  INITIALIZE  ITSELF  WHEN  TT  IS  NEXT 
R00L055  CALLEC  AND  CONTROL  IS  TRANSFERRED  TO  A SHORT  IDLING  ROUTINE.  OTHERWISE,  THE  NEEDLES  ARE  UPDATED  AND  CONDITION 
R001065  "C"  I S TESTED. 


R00107 

1 

:f  c 

HOLOS, 

. THE 

DAP  IS  REINITIALIZED 

. OTHERWISE,  THE  DAP  SHOULD  BE 

ACTIVE  AND  CONTROL  IS  TRANSFERRED  BACK  TO 

R00108 

THE 

CALLER  OF 

CHEKBITS . 

0011 

16,2000 

0 0006 

1 

CHEKBITS 

EXTEND 

0012 

REF 

9 

LAST 

912 

16,2001 

00  031 

0 

READ 

CHAN 31 

IF  BOTH  BIT13  AND  BIT14  APE  ONE,  THEN 

0013 

16,2002 

4 0000 

0 

COM 

THE  MODE  SELECT  SWITCH  IS  IN  THF  OFF 

0014 

REF 

6 

LAST 

513 

16,2003 

7 4346 

0 

MASK 

B IT13-14 

POSITION,  AND  SO  THE  OAP  SHOULD  BE  OFF, 

0015 

16,2004 

0 0006 

1 

EXTEND 

WITH  NO  ATTITUDE  ERROR  DISPLAY. 

0016 

REF 

1 

16,2005 

1 2C12 

1 

BZF 

NONEEDLE 

001  7 

REF 

43 

LAST 

1314 

16,2006 

4 1300 

l 

CS 

I M0DES33 

IF  IMU  NOT  USABLE,  DAP  SHOULD  IDLE  WITH 

0018 

REF 

58 

LAST 

1388 

16,2007 

7 4737 

1 

MASK 

B I T6 

NO  FDA  I NEFDLE  DISPLAY. 

0019 

REF 

466 

LAST 

1401 

16,2010 

10  000 

0 

CCS 

A 

0020 

REF 

l 

16, 20 11 

1 2212 

0 

TCF 

JUMPDSP 

002  l 

REF 

2 

LAST 

143 

16,2012 

4 17  74 

0 

NONEEDLE 

CS 

RCSF  LAGS 

SET  FLAG  TO  INITIALIZE  NFEDLE  DISPLAY. 

0022 

REF 

39 

LAST 

1393 

16,20  13 

7 4 742 

0 

MASK 

B I T 3 

' 

0023 

RFF 

3 

LAST 

1407 

16, 2014 

27' 774 

0 

ADS 

RCSF  L AG  S 

0024 

REF 

1 

16, 2015 

1 2164 

1 

TCF 

SHUTDOWN 

0025 

REF 

48 

LAST 

1336 

16,2016 

3 4733 

1 

CHEKMORE 

CAF 

BIT10 

BIT  10  OF  30  IS  PGNCS  CONTROL  OF  S/C 

0026 

16,2017 

0 0006 

1 

EXTEND 

002  7 

REF 

9 

LAST 

908 

16,2020 

02  030 

0 

RAND 

CHAN30 

BITS  IN  30  ARE  INVERTED 

0028 

REF 

467 

LAST 

1407 

16,2021 

10  COO 

0 

CCS 

A 

0029 

REF 

1 

L6 , 2 022 

1 2033 

1 

TCF 

AGSINDIC 

AGS:  GO  SET  NPGNCSFL  BUT  CONTROL  ANYHUW. 

0029  1 

REF 

25 

LAST 

133  2 

16,2023 

4 0106 

1 

CS 

FLGWRD10 

00292 

REF 

l 

16,2024 

7 4 744 

0 

MASK 

NPGNCSBT 

00293 

REF 

468 

LAST 

1407 

16,2025 

1C  000 

0 

CCS 

A 

00294 

16,2026 

0 C002 

0 

RETURN 

PGNCS  BOTH  LAST  TIME  6 THIS:  GO  CONTROL. 

GAP:  ASSEMBLE  REVISION  2LO  CF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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002  9 5 

REF 

2 

LAST 

1407 

16,2027 

4 

4 744 

0 

cs 

NPGNCSBT 

002  9 6 

REF 

26 

LAST 

1407 

16,2030 

7 

0106 

1 

MASK 

FLGWRD10 

00297 

REF 

27 

LAST 

1408 

16,2031 

54 

106 

1 

TS 

FLGWRD10 

002  5 e 

REF 

1 

16,2032 

l 

2043 

0 

TCF 

STARTDP  1 

00295 

REF 

28 

LAST 

1408 

16,2033 

4 

C 106 

1 

AGS  I NO  IC  CS 

FLGWRD10 

0030 

REF 

3 

LAST 

1408 

16,2034 

7 

4744 

0 

MASK 

NPGNCSBT 

0030  1 

REF 

29 

LAST 

1408 

16,2035 

26 

106 

1 

ADS 

FLGWRD10 

00302 

16,2036 

0 

0002 

0 

RETURN 
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PGNCS  THIS  TIME  BUT  AGS  LAST:  CLEAR 
NPGNCSFL  AND  GO  INITIALIZE  DAP. 
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P0031 

DAPIDLER 

ENTRY 

0032 

REF 

12 

LAST 

1402 

16,2037 

22  016 

0 

DAPIDLER 

LXCH 

BANKRUPT 

0033 

16,2040 

0 0006 

1 

EXTEND 

0034 

REF 

11 

LAST 

1402 

16,2041 

22  012 

1 

QXCH 

QRUPT 

0042 

REF 

1 

16,2042 

0 2000 

0 

CHECKUP 

TC 

CHEKBITS 

A0043 

0044 

REF 

37 

LAST 

1406 

16,2043 

30  111 

0 

STARTDP1 

CAE 

DAPBOOLS 

0045 

REF 

2 

LAST 

230 

16,2044 

7 4742 

0 

MASK 

ACCSQKAY 

0046 

16,2045 

0 0006 

1 

EXTEND 

004  7 

REF 

I 

16,2046 

1 2160 

0 

BZF 

MORE  I DLE 

0048 

REF 

53 

LAST 

1315 

16, 2047 

0 4665 

0 

STARTDAP 

TC 

I BNKC  ALL 

004  9 

REF 

9 

LAST 

1405 

16,2050 

40154 

0 

FCADR 

ZATTEROR 

0050 

REF 

282 

LAST 

1405 

16,2051 

3 4746 

0 

CAF 

ZERO 

0051 

REF 

3 

LAST 

138 

16,2052 

55 ' 524 

1 

TS 

TJP 

0052 

REF 

2 

LAST 

139 

16,2053 

55' 525 

0 

TS 

T JU 

0053 

REF 

1 

16,2054 

55' 526 

0 

TS 

TJV 

0054 

REF 

9 

LAST 

208 

16,2055 

55' 421 

0 

TS 

OMEGAP 

0055 

REF 

IT 

LAST 

820 

16,2056 

55 1 422 

0 

TS 

OMEGAQ 

0056 

REF 

4 

LAST 

215 

16,2057 

55*423 

1 

TS 

OMEGAR 

0057 

REF 

6 

LAST 

135 

16,2060 

55 ' 430 

0 

TS 

TRAPEDP 

005  8 . 

REF 

1 

16,2061 

55*431 

1 

TS 

TRAPEDQ 

0059 

REF 

1 

16,2062 

55*432 

1 

TS 

TRAPEDR 

0060 

REF 

14 

LAST 

1407 

16,2063 

55' 536 

1 

TS 

AOSQ 

006  1 

REF 

15 

LAST 

1409 

16,2064 

55*537 

0 

TS 

AOSQ  +1 

0062 

REF 

4 

LAST 

1406 

16,2065 

55 ' 540 

0 

TS 

AOSR 

0063 

REF 

5 

LAST 

1409 

16,2066 

55*541 

1 

TS 

AOSR  +1 

0064 

REF 

4 

LAST 

1406 

16,2067 

55*424 

0 

TS 

ALPHAQ 

0065 

REF 

4 

LAST 

140  6 

16,2070 

55*425 

1 

TS 

ALPHAR 

0066 

REF 

3 

LAST 

139 

16,2071 

55*501 

0 

TS 

NEGUQ 

006  7 

REF 

1 

16,2072 

55 ' 503 

1 

TS 

NEGUR 

0068 

REF 

3 

LAST 

1406 

16,2073 

55*544 

1 

TS 

AOSQTERM 

0069 

REF 

2 

LAST 

1406 

16,2074 

55*545 

0 

TS 

AOSRTERM 

0070 

REF 

L 

16,2075 

55 • 510 

0 

TS 

QACCDOT 

0071 

REF 

1 

16,2076 

55*512 

1 

TS 

RACCDOT 

0072 

REF 

1 

16,2077 

55 ' 502 

0 

TS 

ALLOWGTS 

0073 

REF 

1 

16,2100 

55' 630 

1 

TS 

COTROLFR 

0074 

REF 

1 

16,2101 

55' 632 

0 

TS 

I NGT  S 

0075 

REF 

3 

LAST 

139 

16,2102 

55' 631 

0 

TS 

QGIMTIMR 

0076 

REF 

1 

16,2103 

5 5 ' 633 

1 

TS 

RGIMT IMR 

0077 

REF 

1 

16,2104 

55 ' 460 

0 

TS 

OLDPMIN 

0078 

REF 

1 

16,2105 

55*461 

1 

TS 

OLDQRMIN 

0078  1 

REF 

3 

LAST 

142 

16,2106 

55*  766 

0 

TS 

P JETCTR 

0078  2 

REF 

1 

16, 2107 

55*  767 

1 

TS 

U JETCTR 

00783 

REF 

1 

16,2110 

55' 770 

1 

TS 

V JETCTR 

0079 

REE 

49 

LAST 

1377 

4740 

C ALLGMBL 

EQUALS 

B IT5 

0080 

REF 

1 

16,2111 

4 2206 

0 

CS 

MANFLAG 

17: LI  MAR.  19,1971  LMDAP  .032  PAGE  1409 
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INTERRUPT  LEAD  INS  (CONTINUED) 

CHECK  TO  SEE  IF  LM  DAP  IS  TO  GO  ON  AND 
DO  ERROR  DISPLAY. 

IF  1/ACCS  HAS  NOT  BEEN  COMPLETED,  IDLE. 
NOTE:  ONLY  FRESH  START  AND  RESTART 
KNOCK  THIS  BIT  DOWN . 

ZERO  ATTITUDE  ERROR  AND  OESIRED  RATES. 

INITIALIZE:  #$$#$$**** 

RATES  IN  BODY  (PILOT)  COORDINATES. 


OFFSET  ACCELERATION  ESTIMATES. 


COPIES  OF  OFFSET  ESTIMATES  FOR  DOWNLIST. 


QP  AXIS  RATE  DERIVATION  TF  RMS  AND  KALMAN 
FILTER  INITIALIZATION  TERMS. 

DESCENT  ACCELERATION  DERIVATIVE  EST. 

AOSTASK  FLAG  FOR  QRAXIS  RCS  CONTROL  USE. 
DO  TPYGTS  ON  FIRST  PASS  (WILL  GO  TO  RCS) 
RECOGNIZE  FIRST  GTS  PASS  AS  SUCH. 

STOP  GIMBAL  DRIVES.  (PROBABLY  WOULD  BE 
GOOD  ENOUGH  JUST  TO  INACTIVATE  TIMERS) 
MINIMUM  IMPULSE  MODE  ERASABLES 

INITIALIZE  DOCKED  JET  INHIBITION 
COUNTERS 


RCSFLAGS  INITIALIZATION 
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L CAPIDLER  PROGRAM 


0081 

REF 

4 

LAST 

1407 

16,2112 

7 17  74 

0 

MASK 

RCSFLAGS 

0082 

REF 

5 

LAST 

1410 

16,2113 

55' 774 

0 

TS 

RCSFLAGS 

R0083 

SET 

UP  "OLD"  MEASUREO 

i CDU  ANGLES: 

0084 

16,2114 

0 OC06 

1 

EXTEND 

0085 

REF 

22 

LAST 

140  5 

16,2115 

3 0033 

I 

DCA 

COUX 

0096 

REF 

3 

LAST 

135 

16,2116 

53 ' 441 

0 

DXCH 

OLDXFORP 

0087 

REF 

17 

LAST 

1405 

16,2117 

3 0034 

0 

CA 

CDUZ 

0088 

REF 

1 

16,2120 

55 ' 442 

0 

TS 

OLDZFORQ 

0089 

REF 

6 

LAST 

1410 

16,2121 

4 17  74 

0 

CS 

RCSFLAGS 

0090 

REF 

35 

LAST 

1364 

16,2122 

7 4731 

1 

MASK 

B I T 1 2 

0090  1 

REF 

7 

LAST 

1410 

16,2123 

27 ' 774 

0 

ADS 

RCSFLAGS 

0091 

REF 

33 

LAST 

1361 

16,2124 

3 4 742 

l 

CA 

FOUR 

0092 

REF 

2 

LAST 

138 

16,2125 

55' 534 

0 

TS 

SKIPU 

009  3 

REF 

1 

16,2126 

55*535 

1 

TS 

SKIPV 

0094 

REF 

38 

LAST 

1401 

16,2127 

3 4724 

1 

CA 

POSMAX 

0095 

REF 

4 

LAST 

140  1 

16,2130 

54  031 

1 

TS 

T I ME6 

0096 

REF 

7 

LAST 

140  2 

16,2131 

55*466 

0 

TS 

T6NEXT 

0097 

REF 

2 

LAST 

1401 

16,2132 

55 ' 470 

1 

TS 

T 6FURTHA 

009  8 

REF 

283 

LAST 

1409 

16,2133 

3 4746 

0 

CA 

ZERO 

0099 

REF 

8 

LAST 

1410 

16, 2134 

55*467 

1 

TS 

T6NEXT  +1 

0100 

REF 

3 

LAST 

1410 

16,2135 

55*471 

0 

TS 

T 6FURTHA  + 

0101 

REF 

■ 3 

LAST 

1401 

16,2136 

55*465 

0 

TS 

NXT6A0R 

•0102 

REF 

5 

LAST 

1402 

16,2137 

55 ' 472 

0 

TS 

NEXTP 

010  3 

REF 

2 

LAST 

1402 

16,2140 

55' 473 

1 

TS 

NEXTU 

0104 

REF 

2 

LAST 

1402 

16,2141 

55*474 

0 

TS 

NEXTV 

0105 

REF 

8 

LAST 

1036 

16,2142 

4 4354 

0 

CS 

TEN 

0106 

REF 

l 

16,2143 

55*  756 

0 

TS 

D4PZRUPT 

0107 

REF 

90 

LAST 

1388 

16,2144 

3 4743 

0 

CA 

TWO 

0108 

REF 

1 

16,2  145 

55' 433 

0 

TS 

NPTRAPS 

0109 

REF 

l 

16,2146 

55*434 

1 

TS 

NQTRAPS 

0110 

REF 

1 

16,2  147 

55*435 

0 

TS 

NRTRAPS 

0111 

16,2150 

0 0006 

1 

EXTEND 

0112 

REF 

l 

16,2151 

3 2211 

l 

DCA 

PAXADIDL 

0113 

REF 

4 

LAST 

816 

16,2152 

53' 263 

0 

DXCH 

T5ADR 

0114 

REF 

1 

16,2153 

3 7750 

1 

SETT IME5 

CAF 

MS100 

0115 

REF 

4 

LAST 

86  1 

16,2154 

54  C 30 

0 

TS 

TIMES 

0116 

REF 

24 

LAST 

1402 

16,2155 

1 5272 

1 

TCF 

RESUME 

0117 

RFF 

16 

LAST 

1409 

E6 , 1536 

E B A N K = 

AOSQ 

0118 

REF 

3 

LAST 

821 

16,2156 

02037 

1 

I DLERAOR 

2CADR 

DAPIDLER 

0118 

16,2157 

34  106 

1 

0119 

REF 

54 

LAST 

1409 

16,2160 

0 4665 

0 

MCREIDLE 

TC 

I BNKCALL 

0120 

REF 

1 

16,2161 

36655 

1 

CADR 

QERRCALC 

0121 

REF 

55 

LAST 

1410 

16,2162 

0 4665 

0 

TC 

I BNKCALL 

0122 

REF 

1 

16,2163 

35447 

0 

CADR 

CALCPERR 

0123 

16,2  164 

0 0006 

1 

SHUTDOWN 

EXTEND 

0124 

REF 

1 

16,2165 

3 2157 

0 

DCA 

IDLERADR 
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oldxforp  and  oldyforp 


BIT  12  SFT  TO  1. 


JASK  NOT  IN  progress,  initialize  NEG. 


CALCULATE  Q.R-AXES  ATTITUDE  ERRORS. 


CALCULATE  P AXIS  ATTITUDF  ERRORS 
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0125 

REF 

5 

LAST 

1410 

16,2166 

53' 263 

0 

DXCH 

T 5 ADR 

0126 

REF 

284 

LAST 

1410 

16,2167 

3 4 746 

0 

CAF 

ZERO 

0127 

REF 

6 

LAST 

1410 

16,21 70 

5 5' 4 72 

0 

TS 

NEXTP 

0128 

REF 

3 

LAST 

1410 

16,2171 

55*473 

1 

TS 

NEXTU 

0129 

REF 

3 

LAST 

1410 

16,2172 

55*474 

0 

TS 

NFXTV 

0130 

16,2173 

0 0006 

1 

EXTEND 

013  1 

REF 

5 

LAST 

1402 

16,2174 

01  005 

0 

WRITE 

CHAN5 

0132 

16,2175 

0 0006 

1 

EXTEND 

0133 

REF 

3 

LAST 

1402 

16,2176 

01  C06 

0 

WRITE 

CHAN6 

0134 

REF 

1 

16,2177 

4 2207 

1 

CS 

BGIM23 

0135 

16,2200 

0 0006 

1 

EXTFND 

0136 

REF 

62 

LAST 

1324 

16,2201 

03  012 

1 

WAND 

CHAN12 

0136  1 

REF 

5 

LAST 

192 

16,2202 

4 4743 

1 

CS 

CONTRLBT 

01362 

KEF 

30 

LAST 

1408 

16,2203 

7 0106 

1 

MASK 

FLGWRD10 

01363 

REF 

31 

LAST 

141  1 

16,2204 

54  106 

i 

TS 

FLGWRD1 0 

0137 

REF 

1 

16,2205 

1 2153 

0 

TCF 

SETTIME5 

013  7 1 

16,2206 

03021 

1 

MANFL AG 

OCT 

03021 

0138 

16,2207 

C7400 

1 

RG1M23 

OCTAL 

07400 

0139 

REF 

10 

LAST 

1409 

E6 , 1421 

E6ANK= 

OMEGAP 

0140 

REF 

1 

16,2210 

02217 

1 

P AXADIDL 

2C  ADR 

PAXIS 

0140 

REF 

l 

16, 2211 

34  106 

1 

0141 

REF 

2 

LAST 

165 

7750 

MS  100 

= 

0CT37766 

0142 

REF 

67 

LAST 

1380 

0061 

COSMG 

= 

ITEMP1 

0143  1 

16,2212 

0 0C06 

1 

JUMPDSP 

EXTEND 

01432 

REF 

1 

16,2213 

3 2216 

0 

DC  A 

DSPCADR 

01433 

16,2214 

52  006 

0 

DTCB 

01434 

REF 

3 

LAST 

142 

E6 , 1760 

EB ANK= 

AK 

01435 

REF 

1 

16,2215 

02227 

1 

OSPCADR 

2CADR 

ALTDSPLY 

01435 

REF 

1 

16,2216 

4C  106 

1 
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KILL  ANY  POSSIBLE  JET  REQUESTS 


COMMAND  JETS  OFF. 


TURN  TRIM  GIMBAL  OFF 


Cl  EAR  FLAG  TO  CAUSE  THE  NO  CONTROL  OSKY 
LIGHT  TO  RF  LIT  BY  TAR  UP  T . 

RETURN  IN  100  MSEC. 


TRANSFER  TO  BANK  20 

FOR  ATTITUDE  ERROR  DISPLAYS 
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01436 

01437 
0 14  3 fc 
014  3 9 

RO 144 

R0145 

RO  146 

RO  14  7 

RO  14  8 

R0149 
RO  15  1 
RO  15  3 
RO  154 1 

RO  155 

RO  15  6 

RO  15  7 
RO  15  8 

R01591 

RO  160 

RO  16  1 

RO  162 

RO  16  3 

R0164 

RO  16  5 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 


CAPIDLER  PROGRAM 


REF  4 LAST  1403 
REF  1 


20,2227 

20,2000 

20,2227 


PROGRAM : ALTDSPLY 


BANK  20 
SFTLOC  DAPS3 
BANK 

COUNT  * $ S/NEEDL 


MOD  0.  6 DEC  1967 


AUTHOR:  CRAIG  WORK,  DON  KEENE,  MIT  IL 

MOD  3 BY  DON  KEENE  AUG  1,  1968  MOVED  PROGRAM  TO  BANK  20 
PROGRAM  DESCRIPTION: 


USER*  S PAGE  NO.  6 


E6  S4 


ALTD.SPLY  REVERSES  THE  DSPLYALT  BIT  OF  RCSFLAGS  EACH  TIME  IT  IS  CALLED,  WHICH  IS  PRESUMABLY  EVERY  100  MS. 

IF  THE  REVERSED  BIT  IS  ONE,  NEEDLER  IS  CALLED  TO  DISPLAY  ATTITUDE  ERRORS.  IF  THE  BIT  IS  ZERO,  THE  ATTITUDE  ERR- 
ORS ARE  CALCULATED  AS  l)  ESTIMATED  RATES  (FOLLOWING)  IF  NEFD2FLG  = 1,  OTHERWISE  AS  2)  DAP  FOLLOWING  FRRORS  FOR 
NIEDLFLG  = 0 AND  3)  TOTAL  ATT  ITUDF  ERRORS  FOR  NEEDLFLG  = l. 

WARNING:  ALTDSPLY  MAY  ONLY  BE  CALLED  WITH  INTERRUPT  INHIBITED. 

WARNING:  EBANK  MUST  BE  SET  TO  6 WHEN  USING  THIS  ROUTINE. 


INPUT:  RCSFLAGS  AND  L)  IF  NEEDLFLG=0,  INPUT  PERROR , OERROR , R E RROR  . 

2)  IF  NEEDLFLG= 1 , INPUT  C PH I , CTH ET A , CPS  I ,C DUX , CDUY , CDUZ , M 1 1 , M 2 1 , M3  1 , M2  2 , M 32 . ( GPMATR I X ) 

3)  IF  NEFD2FLG  = 1,  INPUT  OMEGAP,  OMEGAQ , AND  OMEGAR. 


OUTPUTS:  RCSFLAGS  WITH  DSPLYALT  RE VE R SED , AK , AK 1 , AK 2 , + NEEDLER  OUTPUTS. 

ENTRY:  TCF  ALTDSPLY 

EXIT:  TCF  CHEKMORE 

ALARM  OR  ABORT  EXITS:  NONE 

SUBPROGRAMS  CALLED:  NEEDLER,  CVERSUB2 


DEBRIS:  A,L,AND  NEECLER  DEBRIS. 


REF 

8 

LAST 

1410 

20,2227 

3 1774 

1 

ALTDSPLY  CA 

REF 

284 

LAST 

1405 

20,2230 

54  C01 

1 

TS 

REF 

1 

20,2231 

3 4741 

1 

CA 

20,2232 

0 0006 

1 

EXTEND 

REF 

15 

LAST 

1388 

20,2233 

06  C01 

0 

RXOR 

REF 

9 

LAST 

1412 

20,2234 

55 ' 774 

0 

TS 

REF 

2 

LAST 

1412 

20,2235 

7 4741 

0 

MASK 

REF 

469 

LAST 

1407 

20, 2236 

10  000 

0 

CCS 

RCSFLAGS  INVERT  THE  DISPLAY  ALTERNATION  BIT 

L 

DSPLYALT 

L CHAN 
RCSFLAGS 

DSPLYALT 
A 


IS  ALTERNATION  FLAG  ZERO? 
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0174 

REF 

1 

20,2237 

1 2336 

1 

TCF 

NEEDLER 

0174  1 

REE 

36 

LAST 

1382 

20,2240 

4 OC  74 

0 

CS 

FLAGWRDO 

01742 

REF 

1 

20,2241 

7 4726 

1 

MASK 

NEED2BI T 

0174  3 

20,2242 

0 CC06 

1 

EXTEND 

01744 

REF 

l 

20,2243 

1 2257 

1 

BZF 

DISPRATE 

0175 

REF 

37 

LAST 

1413 

20,2244 

30  074 

1 

CAE 

FLAGWRDO 

0176 

REF 

1 

20,2245 

7 4741 

0 

MASK 

NEEDLBI T 

0177 

REF 

470 

LAST 

1412 

20,2246 

10  000 

0 

CCS 

A 

0178 

REF 

1 

20,2247 

1 2266 

0 

TCF 

DSPLYTOT 

0179 

REF 

2 

LAST 

137 

20, 2250 

4 1450 

0 

CS 

QERROR 

0180 

REF 

4 

LAST 

1411 

20,2251 

55*  761 

1 

TS 

AK  +1 

0181 

REF 

2 

LAST 

137 

20,2252 

4 1452 

1 

CS 

RERROR 

01815 

REF 

5 

LAST 

1413 

20,2253 

55 ' 762 

1 

TS 

AK  +2 

0182 

REF 

2 

LAST 

164 

20,2254 

4 1464 

1 

CS 

PERROR 

0183 

REF 

6 

LAST 

1413 

20,2255 

57' 760 

1 

XCH 

AK 

0184 

REF 

1 

20,2256 

1 2456 

0 

TCF 

RETNMORE 

01841 

REF 

12 

LAST 

1409 

20,2257 

4 1422 

0 

DISPRATE 

CS 

OMEGAQ 

01342 

RFF 

7 

LAST 

1413 

20,2260 

55' 761 

1 

TS 

AK  +1 

0184  3 

REF 

5 

LAST 

1409 

20,2261 

4 1423 

1 

CS 

OMEGAR 

01844 

REF 

8 

LAST 

1413 

20,2262 

55' 762 

1 

TS 

AK  +2 

01845 

REF 

1 1 

LAST 

141  1 

20,2263 

4 1421 

0 

CS 

OMEGAP 

01846 

REF 

9 

LAST 

1413 

20,2264 

57' 760 

1 

XCH 

AK 

01847 

REF 

2 

LAST 

1413 

20,2265 

l 2456 

0 

TCF 

RETNMORE 

R0185 

CALCULATE  GIMBAL  ANGLE  TOTAL 

ERRCRS, 

RESOLVE  INTC 

l PILOT 

AXES,  STORE 

0187 

20,2266 

0 0006 

1 

DSPLYTOT 

EXTEND 

0188 

REF 

68 

LAST 

1411 

20,2267 

22  061 

0 

QXCH 

ITEMP1 

0189 

REF 

3 

LAST 

493 

20,2270 

3 0322 

1 

CA 

CTHETA 

0190 

20,2271 

0 0006 

1 

EXTEND 

0191 

REF 

14 

LAST 

1405 

20,227? 

20  033 

0 

MSU 

C DU  Y 

0192 

REF 

10 

LAST 

1413 

20,2273 

55' 760 

0 

TS 

AK 

0193 

20, 2274 

0 CC06 

l 

EXTEND 

0194 

REF 

2 

LAST 

200 

20,2275 

7 1415 

1 

MP 

M2  l 

0195 

REF 

1 1 

LAST 

1413 

20,2276 

57' 761 

0 

XCH 

AK  +1 

0196 

REF 

5 

LAST 

535 

20,2277 

3 0323 

0 

CA 

CPSI 

0197 

20,2300 

0 0006 

1 

EXTEND 

0198 

REF 

18 

LAST 

1410 

20,2301 

20  034 

l 

MSU 

CDUZ 

0199 

REF 

12 

LAST 

1413 

20,2302 

55' 762 

1 

TS 

AK  *2 

0200 

20,2303 

0 CC06 

1 

EXTEND 

020  1 

REF 

8 

LAST 

902 

20,2304 

7 1417 

0 

MP 

M22 

0202 

REF 

13 

LAST 

1413 

20,2305 

6 1761 

0 

AD 

AK  +1 

0203 

REF 

1 

20,2306 

0 2451 

0 

TC 

0VERSUB2 

0204 

REF 

14 

LAST 

1413 

20,2307 

55 ' 761 

1 

TS 

AK  +1 
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CHECK  FOR  RATE  DISPLAY  TO  ERROR  NEEOLES 
VIA  EXTENDED  VERB  60 


NEEDLFLG  WILL  INDICATE  TOTAL  OR  DAP  AT- 
TITUDE ERROR  01  SPLAY  REQUEST. 

TOTAL  EPROR  IS  NEEDED  IN  AK , AK  + l,AK  +2 

YES.  DISPLAY  ATT  ERRORS  ON  THE  ,-BALL. 
EPROR  COMPLEMENTS  ARE  INPUT  TO  NEEDLER. 


DISPLAY  THESE  THE  NEXT  TIME  THROUGH 
LOAD  ESTIMATED  RATES  (FOLLOWING) 


TOTAL  ERRORS  FOR  NEEDLER.  Q-AXIS  FIRST. 


SAVE  Q FOR  CHEKBITS  RETURN. 

DESIRED  ATTITUDE,  Y-AXIS,  2'S  COMP. 
SUBTRACT  CURRENT  ATTITUDE. 

DIFFERENCE  SCALED  AT  PI,  l'S  COMP. 

SAVE  FOR  R-EPROR  CALCULATION. 

( CHTETA-CDUY ) *M2 1 SCALED  AT  PI  RADIANS. 
STORE  FIRST  TERM  OF  Q ERROR. 

DESIRED  ATTITUDE, Z-AXIS,  2'S  COMP. 
SUBTRACT  CURRENT  ATTITUDE. 

DIFFERENCE  SCALED  AT  PI,  l'S  COMP. 

SAVE  Z-AXIS  TERM  FOR  R ERROR  CALCU1ATI0N 

(CPSI -CDUZ ) *M22,  SCALED  AT  PI  RADIANS. 

Q ERROR  COMPLETE  , AT  PI  RAO. 

PIN  NEEDLES  IN  CASE  OF  OVERFLOW. 


GAP: 
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R0205 

0206 

0207 

0208 
0209 

A0210 
021  1 
0212 

0213 

0214 

0215 

R0216 

0218 

0219 

0220 
022  1 
0222 

0223 

0224 

R0225 
R 022  6 
R0227 

022  8 

0229 

0230 

023  1 

0232 

0233 
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R ERROR  CALCULATION  NEXT. 


REF 

15 

LAST 

1413 

20,2310 

3 1760 

l 

CA 

AK 

Y-AXIS  DIFFERENCE  STORED  BY  O-AXIS  CALC. 

20,2311 

0 0006 

1 

EXTEND 

REF 

2 

LAST 

200 

20, 2312 

7 1416 

1 

MP 

M3  1 

(CTHETA-CDUY)*M31,  SCALED  AT  PI  RADIANS. 

REF 

16 

LAST 

1414 

20,2313 

57' 762 

0 

XCH 

AK  + 2 

FIRST  TERM  OF  R ERROR. 

Z-AXIS  DIFFERENCE,  STORED  BY  A CALC.  IS 

20,2314 

0 0006 

1 

EXTEND 

RECOVERFD  BY  THE  EXCHANGE. 

REF 

6 

LAST 

902 

20,2315 

7 1420 

1 

MP 

M 32 

(CPSI-CDUZI4M32,  SCALED  AT  PI  RADIANS. 

REF 

17 

LAST 

1414 

20,2316 

6 1762 

0 

AD 

AK  +2 

R ERROR  COMPLETE  , AT  PI  RAD. 

REF 

2 

LAST 

1413 

20,2317 

0 2451 

0 

TC 

QVERSUB2 

PIN  NEEDLES  IN  CASE  OF  OVERFLOW. 

REF 

18 

LAST 

1414 

20,2320 

55' 762 

1 

TS 

AK  + 2 

NOW 

CALCULATE 

P ERROR.  (NOTE 

THAT  M 1 3 

= 1,  SCALED  AT  1 

, SO  THE  MULTIPLICATION  IS  BY-PASSED.) 

REF 

19 

LAST 

1414 

20,2321 

3 1760 

1 

CA 

AK 

Y-AXIS  DIFFERENCE  STORED  BY  0 AXIS  CALC. 

20,2322 

0 0 0 06 

1 

EXTEND 

REF 

7 

LAST 

199 

20,2323 

7 1414 

0 

MP 

Mil 

(CTHETA-CDUY) *M  1 1 SCALED  AT  PI  RADIANS. 

REF 

20 

LAST 

1414 

20,2324 

57' 760 

1 

XCH 

AK 

FIRST  TFRM  OF  P ERROR  IN  AK , AT  PI  RAD. 

REF 

1 1 

LAST 

911 

20,2325 

30  321 

1 

CAE 

CPHI 

DESIREO  ATTITUDE,  X-AXIS,  2'S  COMP. 

20,2326 

0 0006 

1 

EXTEND 

SUBTRACT  CURRENT  X ATTITUDE. 

REF 

23 

LAST 

1410 

20,2327 

20  032 

1 

MSU 

C DUX 

X-AXIS  DIFFERENCE,  l'S  COMP,  AT  PI  RAD. 

M l 3 

= L, 

SO  BYPASS 

THE  MULTIPLICATION. 

EXTEND 

MP 

M 1 3 

( CPHI 

— CDUX)$M13  SCALED 

AT  PI  RADIANS. 

REF 

21 

LAST 

1414 

20,2330 

6 1760 

1 

AD 

AK 

P ERROR  COMPLETE  , SCALEO  AT  PI  RAD 

REF 

3 

LAST 

1414 

20,2331 

0 2451 

0 

TC 

0VERSU82 

PIN  NEEDLES  IN  CASE  OF  OVERFLOW. 

REF 

22 

LAST 

1414 

20, 2332 

55' 760 

0 

TS 

AK 

20,2333 

0 CC06 

1 

EXTEND 

REF 

69 

LAST 

1413 

20,2334 

22  061 

0 

QXCH 

I TEMP  1 

RESTORE  Q FOR  CHEKBITS  RETURN. 

REF 

3 

LAST 

1413 

20, 2335 

1 2456 

0 

TC  F 

RETNMORE 

DISPLAY  THESE  THE  NEXT  TIME  THROUGH 

GAP: 
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L 

CAP1DLER  PROGRAM  USER'S  PAGE  NO.  9 E6  S4 

P0234 

FDAI  ATTITUDE  ERROR  CISPLAY  SUBROUTINE 

R0235 

PROGRAM  DESCRIPTION:  U.  KEENE  5/24/67 

R0236 

MOD  1 BY  CRAIG  WORK,  12  DEC  67 

R0.23  7 

MOD  2 BY  CRAIG  WORK,  6 APRIL  63  CONVERTS  ATTITUDE  ERROR  DISPLAY  SCALING  FROM  16  7/8  DEG.  TO  42  3/16  DEGREES. 

R0239 

R024L 

R0243 

R0245 

THIS  SUBROUTINE  IS  USED  TO  DISPLAY  ATTITUDE  ERRORS  ON  THE  FDAI  VIA  THE  DIGITAL  TO  ANALOG  CONVERTER  S (DACS) 
IN  THE  CDUS . CARE  IS  TAKEN  TC  METER  OUT  THE  APPROPRIATE  NUMBER  OF  PULSES  TO  THE  I MU  ERROR  COUNTERS  AND  PREVFNT 
OVERFLOW,  TO  CONTROL  THE  RELAY  SEQUENCING,  AND  TO  AVOID  INTERFERENCE  WITH  THE  COARSE  ALIGN  LOOP  WHICH  ALSO  USES 
THE  DACS. 

R0246 

CALLING  SEQUENCE: 

R0247 

R0249 

DURING  THE  INITIALIZATION  SECTION  OF  THE  USER'S  PROGRAM,  BIT3  OF  RCSFLAGS  SHOULD  RF  SET  TO  INITIATE  THE 
TURN-CN  SEQUENCE  WITHIN  THE  NEEDLES  PROGRAM: 

R0250 

R0251 

P0252 

CS  RCSFLAGS  IN  EBANK6 

MASK  BIT3 

ADS  RCSFLAGS 

R0253 

THEREAFTER,  THE  ATTITUDE  ERRORS  GENERATED  BY  THE  USER  SHOULD  BE  TRANSFERED  TO  THE  FOLLOWING  LOCATIONS  IN  EBANK6 

R0255 

R0256 

R0257 

AK  SCALED  180  DEGREES  NOTE:  THESE  LOCATIONS  ARE  SUBJECT 

AKl  SCALED  180  DEGREES  TO  CHANGE 

AK 2 SCALED  180  DEGREES 

R025  8 
R0260 

FULL  SCALED  DEFLECTION  OF  THE  NEECLES  CORRESPONDS  TO  5 1/16  DEGREES,  WHILE  384  BITS  IN  THE  IMU  ERROR  COUNTER 
CORRESPONDS  TO  42  3/16  DEGREES.  I DAC  MAXIMUM  CAPACITY  IS  384  BITS.)  46  BITS  EFFECTIVELY  PIN  THE  NEEOLES. 

R 026 1 1 
R0262 

FOR  RATE  DISPLAY,  FULL  SCALE  NEEDLE  DEFLECTION  IS  1 17/64  DEG/SEC,  AND  A FULL  COUNTER  IS  ABOUT  10.5  DEG/SEC. 
A CALL  TO  NEEDLER  WILL  THEN  UPDATE  THE  DISPLAY: 

R0263 
R0264 
R 026  5 
R0266 

INHINT 

TC  I BNKC ALL  NOTE:  EBANK  SHOULD  BE  SET  TO  E6 

CADR  NEEDLER 

RELINT 

R0267 
R0269 
R027  0 

THIS  PROCESS  SHOULD  BE  REPEATED  EACH  TIME  THE  ERRORS  ARE  UPDATED.  AT  LEAST  3 PASSES  THRU  THE  PROGRAM  ARE 
REQUIRED  BEFORE  ANYTHING  IS  ACTUALLY  DISPLAYED  ON  THE  ERROR  METERS. 

NOTE:  EACH  CALL  TO  NEEDLER  MUST  BE  SEPARATED  BY  AT  LEAST  50MS  TO  ASSURE  PROPER  RFLAY  SEQUENCING. 

R0272 

R0273 

R0274 

R0275 

R0276 

R0277 

ERASABLE  USED: 

AK  C DUX  CM  C 

AKl  CDUYCMD 

AK2  CDUZCMD 

EURIVEX  A , L , Q 

EDRIVEY  T5TEMP 

GAP:  ASSEMBLE  REVISION  2LO  OE  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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R0278  EDRIVEZ  DINOX 


R0279 

SWITCHES: 

RCSFLAGS 

R0280 

I ZO  CHANNELS: 

CHAN12 

R023  I 

CHAN  1 2 

R0282 

CHAN  14 

BITS  3,2 

BIT  A (COARSE  ALIGN  - READ  ONLY) 
BIT  6 (IMU  ERROR  COUNTER  ENABLE) 
BIT  13,14,15  (DAC  ACTIVITY) 


R0283  SIGN  CONVENTIONS 
R0284  WHERE 

R0285 


AK  = THETAC  - THETA 
THETAC  = COMMANO  ANGLE 
THETA  = PRESENT  ANGLE 


0286 

REF 

10 

LAST 

1412 

20,2336 

3 1774 

1 

0287 

REF 

24 

LAST 

1368 

20,2337 

7 6263 

1 

0288 

20,2340 

0 0006 

1 

0289 

REF 

1 

20, 2341 

1 2376 

0 

0290 

REF 

40 

LAST 

1407 

20,2342 

7 4 742 

0 

0291 

20,2343 

0 0006 

1 

0292 

REF 

l 

20,2344 

l 2367 

0 

0293 

REF 

59 

LAST 

1407 

20,2345 

4 4737 

l 

0294 

20,2346 

0 C006 

1 

0295 

REF 

63 

LAST 

1411 

20,2347 

03  C 1 2 

1 

0296 

REF 

285 

LAST 

1411 

20,2350 

4 4 746 

1 

029  7 

REF 

23 

LAST 

1414 

20,2351 

55' 760 

0 

0298 

REF 

1 

20,2352 

5 5 ' 76 1 

1 

0299 

REF 

1 

20,2353 

55' 762 

1 

0300 

REF 

3 

LAST 

142 

20,2354 

55' 763 

0 

0301 

REF 

1 

20,2355 

55' 764 

1 

0302 

REF 

1 

20,2356 

55' 765 

0 

0303 

REF 

4 

LAST 

1310 

20,2357 

54  050 

0 

0304 

REF 

2 

LAST 

184 

20,2360 

54  051 

1 

0305 

REF 

2 

LAST 

185 

20,2361 

54  052 

1 

0306 

REF 

25 

LAST 

1416 

20,2362 

4 6263 

1 

0307 

REF 

1 1 

LAST 

1416 

20,2363 

7 1774 

0 

0308 

REF 

52 

LAST 

139  1 

20, 2364 

6 4743 

0 

0309 

REF 

12 

LAST 

1416 

20,2365 

55' 774 

0 

0310 

REF 

4 

LAST 

1414 

20,2366 

1 2456 

0 

031  1 

REF 

60 

LAST 

1416 

20, 2367 

3 4737 

0 

0312 

20,2370 

0 0006 

1 

0313 

REF 

64 

LAST 

1416 

20,2371 

05  C 1 2 

l 

0314 

REF 

26 

LAST 

1416 

20,2372 

4 62  63 

1 

0315 

REF 

13 

LAST 

1416 

20,2373 

7 1774 

0 

0316 

REF 

14 

LAST 

14  16 

20,2374 

55' 774 

0 

031  7 

REF 

5 

LAST 

1416 

20,2375 

1 2456 

0 

0318 

REF 

6 1 

LAST 

1416 

20,2376 

3 4737 

0 

NEEDLER 

CA 

RCSFLAGS 

MASK 

EXTEND 

SIX 

BZF 

NEEDLES3 

MASK 

EXTFND 

B IT3 

BZF 

NFEDLER2 

CS 

EXTEND 

BIT6 

WAND 

C HA  N 12 

NEEDLEll 

CS 

ZERO 

TS 

AK 

TS 

AK  1 

TS 

A K2 

TS 

EDR IVEX 

TS 

EDRIVEY 

TS 

EDR I VEZ 

TS 

CDUXCMD 

TS 

CDUYCMD 

TS 

CDUZCMD 

CS 

SIX 

MASK 

RCSFLAGS 

AD 

B I T 2 

TS 

RCSFLAGS 

TCF 

RETNMORE 

NEEDLER2 

CAF 

EXTEND 

B IT6 

WOR 

C HAN  1 2 

CS 

SIX 

MASK 

RCSFLAGS 

TS 

RCSFLAGS 

TCF 

RETNMORE 

NEEDLES3  CAF 


B TT6 
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BIT3  = 0,  B I T 2 = 1 
FIRST  PASS  BIT3  = 1 

DISABLE  IMU  ERROR  COUNTER  TO  ZERO  DACS 
MUST  WAIT  AT  LEAST  60  MS  REFORF 
ENABL ING  COUNTERS. 

ZERO  THE  INPUTS  ON  FIRST  PASS 


ZERO  THF  DISPLAY  REGISTERS 


ZERO  THF  OUT  COUNTERS 


RESET  RCSF LAGS  FOR  PASS2 


ENABLE  IMU  ERROR  COUNTERS 


RESET  RCSFLAGS  TO  DISPLAY  ATTITUDE 
ERRORS  WAIT  AT LF AS T 4 MS  FOR 
RFLAY  CLOSURE 


CHECK  TO  SEE  IF  IMU  ERROR  COUNTER 
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0319 

20,2377 

0 0006 

1 

EXTEND 

0320 

REF 

65 

LAST 

1416 

20,2400 

02  C 12 

0 

RANO 

CHAN  1 2 

032  1 

REF 

471 

LAST 

1413 

20,2401 

10  000 

0 

CCS 

A 

0322 

REF 

1 

20,2402 

1 2407 

1 

TCF 

NEEDLES 

0323 

REF 

15 

LAST 

1416 

20,2403 

4 17  74 

0 

CS 

RCSFLAGS 

032  4 

REF 

41 

LAST 

1416 

20,2404 

7 4742 

0 

MASK 

B IT3 

0325 

REF 

16 

LAST 

1417 

20,2405 

2 7*  7 74 

0 

ADS 

RCSFLAGS 

0326 

REF 

6 

LAST 

1416 

20,2406 

1 2456 

0 

TCF 

RETNMORE 

0327 

REF 

91 

LAST 

1410 

20,2407 

3 4743 

0 

NEEDLES 

CAF 

TWO 

0328 

REF 

1 

20, 2410 

54  C 63 

0 

DACLOOP 

TS 

DINDX 

0329 

REF 

1 

20,2411 

4 2450 

0 

CS 

ONETENTH 

0330 

20,2412 

0 C 006 

1 

EXTEND 

0331 

REF 

2 

LAST 

1417 

20,2413 

5 C 0 63 

1 

INDEX 

DINDX 

0332 

REF 

24 

LAST 

1416 

20,2414 

7 1 760 

0 

MP 

AK 

033  3 

REF 

2 £ 5 

LAST 

1412 

20, 2415 

54  001 

1 

TS 

L 

0334  ' 

REF 

472 

LAST 

1417 

20,2416 

10  000 

0 

CCS 

A 

0335 

REF 

1 

20,2417 

3 2446 

0 

CA 

D ACL  IMIT 

0336 

20,2420 

l 2422 

0 

TCF 

+ 2 

033  7 

REF 

2 

LAST 

1417 

20,2421 

4 2446 

1 

CS 

D ACL  IMIT 

0338 

REF 

286 

LAST 

1417 

20,2422 

6 0001 

0 

AD 

L 

0339 

REF 

1 

20,2423 

54  061 

1 

TS 

T5TEMP 

0340 

20,2424 

1 2430 

0 

TCF 

+ 4 

034  1 

REF 

473 

LAST 

1417 

20,2425 

50  000 

l 

INDEX 

A 

034  2 

REF 

3 

LAST 

14  17 

20,2426 

3 2446 

0 

CAF 

DACLIMIT 

0343 

REF 

287 

LAST 

1417 

20,2427 

54  001 

l 

TS 

L 

0344 

REF 

3 

LAST 

1417 

20,2430 

50  063 

1 

INDEX 

DINDX 

0345 

REF 

4 

LAST 

1416 

20,2431 

4 17  63 

0 

CS 

EDRI VEX 

0346 

REF 

288 

LAST 

1417 

20,2432 

6 0001 

0 

AD 

L 

0347 

REF 

4 

LAST 

1417 

20, 2433 

50  063 

1 

INDEX 

DINDX 

0348 

REF 

5 

LAST 

1416 

20,2434 

26  050 

0 

ADS 

CDUXCMD 

0349 

REF 

5 

LAST 

1417 

20,2435 

50  063 

1 

INDEX 

DINDX 

0350 

REF 

5 

LAST 

1417 

20,2436 

23' 763 

1 

LXCH 

EDPIVEX 

035  1 

REF 

6 

LAST 

1417 

20,2437 

10  063 

0 

CCS 

DINDX 

0352 

REF 

1 

20,2440 

l 2410 

1 

TCF 

DACLOOP 

0353 

REF 

5 

LAST 

1370 

20,2441 

3 7761 

0 

CAF 

13,14,15 

0354 

20,2442 

0 0006 

1 

EXTEND 

0 35  5 

REF 

26 

LAST 

1323 

20,2443 

05  014 

1 

WOR 

CHAN  14 

0356 

REF 

7 

LAST 

1417 

20,2444 

1 2456 

0 

TCF 

RETNMORE 

0357 

20,2445 

77177 

0 

DEC 

-384 

0358 

20,2446 

37200 

1 

D ACL IM  IT 

DEC 

1 6000 

0359 

20,2447 

CC600 

1 

DEC 

384 

0360 

20,2450 

03146 

1 

ONETENTH 

OCT 

03146 

0361 

REF 

61 

LAST 

1363 

4 741 

DSPL YALT 

EQUALS 

B IT4 

0 36  2 

20,2451 

54  007 

1 

0VERSUB2 

TS 

7 
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ON  OVERFLOW  LIMIT  OUTPUT  TO  +-384 
CURRENT  VALUE  OF  OAC 


SET  DAC  ACTIVITY  BITS 
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0363 

REF 

392 

LAST 

1A05 

20 , 2 A52 

0 

0002 

0 

TC 

Q 

036A 

REF 

A 7A 

LAST 

1 A 1 7 

20.2A53 

50 

000 

l 

INDEX 

A 

0365 

REF 

7 

LAST 

1396 

20,2  ASA 

A 

A 7 25 

1 

CS 

LIMITS 

0366 

REF 

393 

LAST 

1 A 1 8 

20.2A55 

0 

0002 

0 

TC 

Q 

036  7 

20.2A56 

0 0006 

l 

RETNMORE 

EXTENO 

036  8 

REF 

1 

20 , 2 A5  7 

3 2A62 

0 

DC  A 

MORECADR 

0369 

20 , 2 A60 

52  006 

0 

DTCB 

0370 

REF 

17  LAST  1 A 1 0 

E6, 1 536 

E6ANK= 

AOSQ 

0371 

REF 

1 

20.2A61 

02016 

1 

MORECADR 

2CADR 

CHEKMORE 

0371 

REF 

1 

20, 2A62 

3A106 

1 

17:  11  MAR.  19,1971 
USER’S  PAGE 
POSMAX  OR  NEGMAX 
DUPLICATE  CODING 


LMOAP 
NO.  12 
IF  A HAS 
IN  BANK 


032  PAGE  1 A 1 8 
E6  SA 
OVERFLOW 
16 


RETURN  TO  CHEKMORE 


GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L P-AXIS  RCS  AUTOPILOT 


17: 11  MAR.  19, 1971  LMDAP 
USER'S  PAGE  NO. 


.032  PAGE  1419 
EO  S4 


0001 

16,2217 

BANK 

16 

0002 

REF 

2 

LAST 

140  7 

16,2000 

SETLOC 

D APSl 

0003 

16,2217 

BANK 

0004 

REF 

3 

LAST 

1413 

E6 , 1464 

E B A N K = 

PERROR 

000  5 

REF 

l 

COUNT  * 

t $/D APP 

R0006 

THE 

FOLLOWING 

T5RUPT 

ENTRY  BEGINS  THE  PROGRAM  WHICH  CONTROLS  THE  P 

-AXIS  ACTION  OF  THE  LEM  USING  THE  RCS  JETS. 

ROC  08 

THE 

NOMINAL  TIME  BETWEEN  THE 

P— AX l S ! 

RUPTS  IS  100 

MS  IN  ALL  NON-IDLING  MODES  OF  THE  DAP. 

0010 

REF 

2 

LAST 

1410 

16,2217 

3 7750 

1 

P AXI  S 

CA 

M S 100 

001  1 

REF 

5 

LAST 

1410 

16,2220 

26  C30 

0 

ADS 

T IME5 

***  NECESSARY  IN  ORDER  TO  ALLOW  SYN- 

A001 1 5 

CHRONIZATION  WITH  OTHER  INTERRUPTS  *** 

0012 

REF 

13 

LAST 

1409 

16,2221 

22  C 1 6 

0 

LXCH 

BANKRUPT 

INTERRUPT  LEAD  IN  (CONTINUFD) 

0013 

16,2222 

0 0006 

1 

EXTEND 

0014 

REF 

12 

LAST 

1409 

16,2223 

22  012 

1 

QXCH 

QRUPT 

R 0 0 1 5 

CHECK  IF 

DAP  P 

ASS  IS 

PERMISSIBLE 

0016 

REF 

2 

LAST 

1410 

16,2224 

1 1 ' 756 

0 

CCS 

DAPZRUPT 

IF  DAPZRUPT  POSITIVE,  DAP  (JASKI  IS 

0017 

REF 

3 

LAST 

1357 

16,2225 

0 5626 

0 

TC 

BAILOUT 

STILL  IN  PROGRESS  AND  A RESTART  IS 

0018 

16, 2226 

32000 

0 

OCT 

32000 

CALLED  FOR.  IT  IS  NEVER  ZERO 

0019 

REF 

2 

LAST 

1409 

16, 2227 

0 2 000 

0 

TC 

CHEKBITS 

RETURN  IS  TO  1+1  IF  DAP  SHOULD  STAY  ON 

0019  1 

REF 

24 

LAST 

1414 

16,2230 

3 C C 32 

0 

CA 

C DUX 

REAO  AND  STORE  CDU'S 

00192 

REF 

1 

lo,2231 

55 1 747 

0 

TS 

D APTREG4 

00193 

REF 

15 

LAST 

1413 

16,2232 

3 CC33 

1 

CA 

C DU  Y 

00194 

REF 

2 

LAST 

136 

16,2233 

55' 750 

0 

TS 

DAPTREG5 

00195 

RFF 

19 

LAST 

1413 

16,2234 

3 0034 

0 

CA 

CDUZ 

00196 

REF 

2 

LAST 

138 

16,2235 

55*751 

1 

TS 

0 APTREG6 

R002  0 

*****  K ALCMANU 

-DAP  AND  "RATE- 

-HOLD"— DAP 

INTERFACE 

***** 

R0021 

THE 

FOLLOWING 

SECTION 

IS  EXECUTEC  EVERY 

ICO  MS  ( 10  TIMES  A SECOND) 

WITHIN  THE  P-AXIS  REACTION  CONTROL  SYSTEM 

R0023 

AUTOPILOT 

(WHENEVER  THE  DAP 

IS  IN  OPERATION) . 

0024 

REF 

21 

LAST 

1405 

10,2236 

3 1634 

1 

CA 

CDUXD 

0025 

16,2237 

0 C006 

1 

EXTEND 

0026 

REF 

6 

LAST 

1405 

16,2240 

21'637 

0 

MSU 

DELCDUX 

002  7 

REF 

1 

16,2241 

0 2262 

0 

TC 

1ST0TW0S 

002  8 

KEF 

22 

LAST 

1419 

16, 2242 

55*634 

0 

TS 

CDUXD 

0029 

REF 

9 

LAST 

1405 

16,2243 

3 1635 

0 

CA 

CDUYD 

0030 

16,2244 

0 0006 

1 

EXTEND 

003  1 

REF 

3 

LAST 

1405 

16, 2245 

21*640 

0 

MSU 

DELCDUY 

0032 

REF 

2 

LAST 

1419 

16,2246 

0 2262 

0 

TC 

1ST0TW0S 

0033 

REF 

10 

LAST 

1419 

16,2247 

55*635 

1 

TS 

CDUYD 

0034 

REF 

8 

LAST 

1405 

16,2250 

3 1636 

0 

CA 

CDUZD 

0035 

16,2251 

0 0006 

1 

EXTEND 

0036 

REF 

3 

L AST 

1405 

16,2252 

21*641 

1 

MSU 

DELCDUZ 
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P-AX 

IS  RCS  AUTOPILOT 

USER*  S PAGE  NO.  2 

F6  S 4 

0037 

REP 

3 

LAST 

1419 

16,2253 

0 2262 

0 

TC 

1 STOTWOS 

003  8 

REF 

9 

LAST 

1419 

16,2254 

55 ' 636 

l 

TS 

CDUZD 

003  81 

16,2255 

0 0006 

1 

EXTEND 

DIMINISH  MANUAL  CONTROL  DIRECT  RATE 

003  8 2 

REF 

1 

16,2256 

27 ' 445 

1 

DIM 

TCP 

TIME  COUNTERS. 

00382 

16,2257 

0 0006 

1 

EXTEND 

003  8 A 

REF 

1 

16,2260 

27 ' 457 

1 

DIM 

TCOR 

A0039 

RATELOOP  COMPUTES  JETRATEQ,  JETRATER,  AND  1JACC*N0.  PJETS 

IN  I TEMP  1 • 

A0040 

RETURNS  TO  BACKP. 

A0041 

JETRATE  = LJACC*NO.PJETS*TJP 

(NOTE  TJ  IS  THE  TIME  FIRED 

DURING  CSP) 

A004  2 

JETRATEQ=  1 JACCQIT JU*NO.UJFTS 

- TJV*NO.V JETS  ) 

A 004  3 

JET  R AT  ER=  1 J ACC R ( T JU*NO . UJE T S 

+ TJV*NO  .VJETS ) 

0044 

REF 

l 

16,2261 

1 2653 

1 

TCF 

PAXFILT 

PROCEEDS  TO  RATELOOP  AFTER 

SUPERJOB 

0045 

REF 

475 

LAST 

1418 

16,2262 

10  000 

0 

1ST0TW0S  CCS 

A 

0046 

REF 

14  2 

LAST 

1398 

16,2263 

6 4744 

1 

AO 

ONE 

.004  7 

REF 

394 

LAST 

1418 

16, 2264 

0 0C02 

0 

TC 

0 

0048 

REF 

476 

LAST 

1420 

16,2265 

4 CCOO 

0 

CS 

A 

004  9 

REF 

39  5 

LAST 

1420 

16,2266 

0 CC02 

0 

TC 

0 

0050 

16, 2267 

0 0006 

1 

SUBDIVDE  EXTEND 

OVERFLOW  PROCT ION  ROUTINE 

TO  GIVE 

0051 

REF 

3 

LAST 

138 

16, 2270 

7 1740 

1 

MP 

DAPTEMP3 

POSMAX  OR  NEGMAX  IF  THE 

DIVIDE  WOULD 

0052 

REF 

3 

LAST 

135 

16,2271 

21' 427 

0 

DAS 

OMEGAU 

OVERFLOW 

0053 

16,2272 

0 0006 

1 

+3  EXTEND 

0053  1 

REF 

4 

LAST 

1420 

16,2273 

3 1427 

1 

DC  A 

OMEGAU 

00532 

REF 

2 

LAST 

136 

16,2274 

53*743 

l 

DXCH 

DAPTEMP5 

00533 

REF 

5 

LAST 

1420 

16,2275 

11*426 

1 

CCS 

OMEGAU 

0054 

16,2276 

1 2300 

1 

TCF 

+ 2 

0055 

REF 

1 

16, 2277 

1 2310 

0 

TCF 

DIVIDER 

0056 

REF 

1 

16,2300 

6 2321 

0 

AD 

— OCT  630 

005  7 

16,2301 

0 CC06 

1 

EXTEND 

0058 

REF 

2 

LAST 

1420 

16,2302 

6 2310 

1 

8ZMF 

DIVIDER 

0059 

REF 

6 

LAST 

1420 

16,2303 

11*426 

1 

CCS 

OMEGAU 

0060 

REF 

39 

LAST 

1410 

16,2304 

3 4724 

1 

CA 

POSMAX 

45  DEG/SFC 

0061 

REF 

396 

LAST 

1420 

16,2305 

0 0C02 

0 

TC 

0 

0062 

REF 

40 

LAST 

1420 

16,2306 

4 4 724 

0 

CS 

POSMAX 

0063 

REF 

397 

LAST 

1420 

16,2307 

0 0002 

0 

TC 

Q 

0064 

REF 

7 

LAST 

1420 

16,2310 

53*427 

0 

DIVIDER  DXCH 

OMEGAU 

0065 

16,2311 

0 0006 

1 

EXTEND 

0066 

REF 

2 

LAST 

1419 

16,2312 

11*747 

0 

DV 

DAPTREG4 

006  7 

REF 

398 

LAST 

1420 

16,2313 

0 C002 

0 

TC 

Q 

0068 

16,2314 

54  007 

1 

OVERSUB  TS 

7 

RETURNS  A UNCHANGED  OR  LIMITED  TO 

0069 

REF 

399 

LAST 

1420 

16,2315 

0 C002 

0 

TC 

Q 

POSMAX  OR  NFGMAX  IF  A HAS  OVERFLOW 

0070 

REF 

477 

LAST 

1420 

16,2316 

5 C 000 

1 

INDEX 

A 

007  l 

REF 

5 1 

LAST 

140  1 

16,2317 

4 4725 

1 

CS 

BIT15  -1 

i 
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0072 

REF 

400 

LAST 

1420 

16,2320 

0 0C02 

0 

TC 

0 

0073 

16,2321 

77147 

0 

-0CT630  OCT 

77147 

0074 

REF 

19 

LAST 

141 

16,2322 

3 1736 

1 

BACKP  CA 

0APTEMP1 

0075 

16,2323 

0 CC06 

1 

EXTEND 

0076 

REF 

6 

LAST 

915 

16,2324 

7 1530 

1 

MP 

1 JACC 

0077 

REF 

3 

LAST 

137 

16,2325 

55' 744 

0 

TS 

JETRATE 

A0078 

BEGINNING  OF  THE  RATE  DERIVATION 

A0079 

OMEGA  P , Q , R 

BODY  RATES  SCALED  AT  PI/4 

A0080 

TRAP  ER»Q , R 

BODY  ANGLE  ERRORS  FROM  PREDICTED  ANGLF  (PI/40) 

A0081 

NPIQR  ) TRAPS 

NUMBER  OF  TIMES  ANGLE  ERROR  HAS  BEEN  ACCUMUl AT  ED 

A0082 

AOSO I R ) TERM 

CHANGE  IN  RATE 

DUE  TO  OFFSET  ACCELLFRATION.  (PI/4) 

A0083 

JETR ATE,Q,R 

CHANGE  IN  RATE 

DUE  TO  J FT  ACC  ELL  ER AT  ION  . (PI/4) 

A 008  4 

TRAPS  IZE 

NEGATIVE  LIMIT 

OF  MAGNITUDE  OF  TRAPFDP.ECT, 

A 0 0 8.6 

OMEGAU 

DP-TEMPORARY  STORAGE 

A0087 

OMEGA  = OMEGA  + JFTRATE  + 

AOSTERM  (+TRAPED/NTRAPS  IF  TRAPFD  BIG) 

008  8 

REF 

3 

LAST 

1420 

16,2326 

31' 747 

1 

CAE 

DAPTREG4 

CDUX  IS  STORED  HERE 

0089 

REF 

289 

LAST 

1417 

16,2327 

54  001 

1 

TS 

L 

0090 

16,2330 

0 C C 06 

1 

EXTEND 

0091 

REF 

4 

LAST 

1410 

16,2331 

21 '440 

1 

MSU 

OLDXFORP 

SCALED  AT  PI 

0092 

REF 

5 

LAST 

142  1 

16,2332 

23 '440 

0 

LXCH 

OLDXFORP 

0093 

REF 

20 

LAST 

142  1 

16,2333 

55' 736 

0 

TS 

DAPTEMP 1 

0094 

REF 

1 

16,2334 

3 3621 

1 

CA 

l /40 

0095 

REF 

4 

LAST 

142  1 

16,2335 

55*  747 

0 

TS 

0 APTREG4 

0096 

REF 

4 

LAST 

1421 

16,2336 

4 1744 

0 

CS 

JETRATE 

0097 

16,2337 

0 CO 06 

l 

EXTEND 

C 09  8 

REF 

82 

LAST 

1399 

16,2340 

7 4727 

0 

MP 

BIT14 

0099 

REF 

7 

LAST 

1409 

16,2341 

27' 430 

0 

ADS 

TRAPEDP 

0100 

REF 

l 

16,2342 

3 1745 

0 

CA 

JETRATEQ 

0101 

REF 

4 

LAST 

1409 

16,2343 

6 1544 

0 

AD 

AOSQTERM 

010  2 

16,2344 

0 C006 

1 

EXTEND 

0103 

REF 

1 

16,2345 

7 7757 

1 

MP 

-BIT14 

0104 

REF 

2 

LAST 

1409 

16,2346 

2 7 ' 431 

1 

ADS 

TRAPEDO 

0105 

REF 

1 

16,2347 

3 1746 

0 

CA 

JETRATER 

0106 

REF 

3 

LAST 

1409 

16,2350 

6 1545 

1 

AD 

A OSR  TERM 

0107 

16,2351 

0 0006 

1 

EXTEND 

0108 

REF 

2 

LAST 

142  1 

16, 2352 

7 7757 

l 

MP 

-BITL4 

0109 

REF 

2 

LAST 

140  9 

16,2353 

27 ' 432 

1 

ADS 

TRAPEDR 

i n o 

REE 

3 

LAST 

1419 

16,2354 

3 1750 

1 

CA 

D APTREG5 

CDUY  IS  STORED  HERE 

0111 

REF 

290 

LAST 

142  1 

16,2355 

54  001 

1 

TS 

L 

0112 

16,2356 

0 0006 

1 

EXTEND 

0113 

REF 

1 

16,235  7 

2 1 ' 44 1 

0 

MSU 

OLDYFORP 

SCALFD  AT  PI 

0114 

REF 

2 

LAST 

1421 

16,2360 

2 3 ' 44 1 

1 

LXCH 

OLDYFORP 

0115 

REF 

3 

LAST 

138 

16,2361 

55 • 737 

1 

TS 

DAPTEMP2 

0116 

16,2362 

0 0006 

1 

EXTEND 

0117 

REF 

8 

LAST 

1414 

16,2363 

7 1414 

0 

MP 

Mil 

Mil  SCALED  AT  1 
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0118 

REF 

21 

LAST 

1921 

16,2369 

6 1736 

l 

AD 

DAPTEMP1 

0119 

REF 

8 

LAST 

1920 

16,2365 

53 ' 92  7 

0 

DXCH 

OMEGAU 

0120 

REF 

1 

16,2366 

0 2272 

1 

TC 

S USD  I VDE 

0121 

16,2367 

0 0006 

1 

EXTEND 

0122 

REF 

12 

LAST 

1913 

16,2370 

61 '921 

1 

SU 

OMEGAP 

0123 

REF 

8 

LAST 

192  1 

16,2371 

27' 930 

0 

ADS 

TRAPEDP 

0129 

REF 

1 

16,2372 

0 2319 

0 

TC 

OVERSUB 

0125 

REF 

9 

LAST 

1922 

16,2373 

55*930 

0 

TS 

TRAPEDP 

012501 

16,2379 

0 0006 

1 

EXTEND 

0125C2 

REF 

3 

LAST 

1920 

16,2375 

3 1793 

0 

DC  A 

DAPTEMP5 

0125C3 

REF 

3 

LAST 

135 

16,2376 

2 1 ' 99  7 

0 

DAS 

DXERROR 

01251 9 

REF 

1 

16,2377 

9 19  59 

l 

CS 

PLAST 

012505 

16,2900 

0 0006 

1 

EXTEND 

0125C6 

REF 

2 

LAST 

192  1 

16,2901 

7 3621 

0 

MP 

1 / 90 

0125C7 

REF 

9 

LAST 

1922 

16,2902 

21*997 

0 

DAS 

DXERROR 

0126 

REF 

3 

LAST 

1919 

16,2903 

3 1751 

0 

CA 

D APTREG6 

0127  ' 

REF 

291 

LAST 

192  1 

16,2909 

59  001 

l 

TS 

L 

0128 

16,2905 

0 0006 

1 

EXTEND 

0129 

REF 

2 

LAST 

1910 

16,2906 

21*992 

0 

MSU 

OLDZFORQ 
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0 

DIM 

P JETCTR 

0296 

16,2703 

0 0C06 

1 

EXTEND 

0297 

REF 

2 

LAST 

1409 

16,2704 

27' 76 7 

1 

DIM 

U JETCTR 

0298 

16, 2705 

0 0006 

1 

EXTEND 

0299 

REF 

2 

LAST 

1409 

16,2706 

27'  7 70 

1 

DIM 

V JETCTR 

0300 

REF 

36 

LAST 

1410 

16, 2707 

3 4731 

0 

CA 

B I T 1 2 

0 301 

REF 

18 

LAST 

1426 

16,2710 

7 1774 

0 

MASK 

RCSFLAGS 

0302 

16,2711 

0 0006 

1 

EXTENO 

0303 

REF 

1 

16,2712 

1 2740 

1 

BZF 

SKIPPAXS 

0304 

REF 

1 

16,2713 

0 2744 

1 

TC 

CHKVISFZ 

0305 

REF 

5 

LAST 

1426 

16,2714 

55' 631 

0 

DECQTIMR 

TS 

QGIMTIMR 

0306 

REF 

1 

16, 27  15 

l 2676 

0 

TCF 

CHKRT IMR 

0307 

REF 

3 

LAST 

1426 

16,2716 

55' 633 

1 

DECRT I MR 

TS 

RGIMTIMR 

030  8 

REF 

2 

LAST 

1426 

16, 2717 

1 2701 

1 

TCF 

CHKRTIMR  +3 

0309 

REF 

4 

LAST 

1409 

16,2720 

55 ' 501 

0 

TURNOFFQ 

TS 

NEGUQ 

0310 

REF 

3 

LAST 

1425 

16,2721 

55 ' 5 10 

0 

TS 

QACCUOT 

0311 

REF 

1 

16,2722 

4 5000 

0 

CS 

QGIMB ITS 

0312 

16,2723 

0 0006 

1 

EXTEND 
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EXECUTE  ACDT+C12,  IF  NEEDED. 

CALLGMBL  IS  NOT  BIT15,  SO  THIS  TEST  IS 
VALID. 

SETTING  UP  THE  SUPERJOB 


RELINT  (JUST  IN  CASE)  AND  RFSUME,  IN 
FORM  OF  A JASK,  AT  SUPERJOB. 


THE 


POS ITI VE- 
NEGATI VE- 
NEGAT  I VE- 
(NEG  ZFRO- 


COUNT ING  DOWN 

DRIVE  SHOULD  BE  ENDED 

INACTIVE 

IMPOSSIBLE  ) 


REPEATED  (ABOVE)  FOR  R AXIS. 


DECREMENT  DOCKED  JET  INHIBITION  COUNTERS 


COUNT  TIMERS  DOWN  TO  POS  ZERO. 


HALT  ORIVFS 
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0313 

REF 

66 

LAST 

1417 

16,2724 

03  012 

1 

WAND 

C HAN  1 2 

0314 

REF 

8 

LAST 

1120 

16,2725 

3 4726 

0 

CAF 

NEGMAX 

0315 

REF 

6 

LAST 

1426 

16,2726 

55 ' 631 

0 

TS 

QGIMTIMR 

0316 

REF 

3 

LAST 

1426 

16,2727 

1 2676 

0 

TCF 

CHKRT I MR 

0317 

REF 

2 

LAST 

1409 

16,2730 

55*503 

1 

TURNUFFR  TS 

NEGUR 

0318 

REF 

3 

LAST 

1425 

16,2731 

55 '512 

1 

TS 

R ACCDOT 

0319 

REF 

1 

16,2732 

4 5011 

0 

CS 

RGIMBITS 

0320 

16,2733 

0 0006 

1 

EXTEND 

0321 

REF 

67 

LAST 

1427 

16,2734 

03  012 

1 

WAND 

C HAN  1 2 

0322 

REF 

<5 

LAST 

1427 

16,2735 

3 4726 

0 

CAF 

NEGMAX 

0323 

REF 

4 

LAST 

1426 

16,2736 

55' 633 

1 

TS 

RGIMTIMR 

0324 

REF 

4 

LAST 

1427 

16,2737 

1 2701 

1 

TCF 

CHKRT IMR  +3 

0325 

REF 

12 

LAST 

1300 

5000 

QGIMBITS  EQUALS 

OCT  1400 

BITS  9 AND  10  (OF  CHANNEL  12). 

0326 

REF 

4 

LAST 

1283 

501  1 

RGI MBITS  EQUALS 

PRI06 

BITS  11  AND  12  l OF  CHANNEL  12). 

0327 

REF 

19 

LAST 

1426 

16,2740 

4 17  74 

0 

SKIPPAXS  CS 

R CSF  LAGS 

0328 

REF 

37 

LAST 

1426 

16,2741 

7 4731 

1 

MASK 

B I T 1 2 

0329 

• REF 

20 

LAST 

1427 

16,2742 

27' 774 

0 

ADS 

RCSFLAGS 

BIT  12  SET  TO  1. 

033  0 

REF 

1 

16,2743 

1 3625 

1 

TCF 

QRAXI S 

GO  TO  QR  AXIS  OR  TO  GTS. 

A0331 

Y-Z  TRANSLATION 

A0332 

INPUT:  BITS  9- 

12  OF  CH31  (FROM  TRANSLATION  CONTROLER) 

A0333 

OUTPUT:  NEXTP 

A0334 

NFXTP  IS  THE  l 

CHANNEL  6 CODE 

OF  JETS  FOR  THE  DESIRED  TRANSLATION. 

A0335 

IF  THERE  ARE 

FAILURES  IN  THE 

DES  IRED  POL  ICY,  THEN 

A0336 

( 1 ) FOR  DIAGONAL  TRANS: 

UNFAILED  PAIR 

A0337 

ALARM  ( IF  NO  PAIR) 

A033  ti 

(2)  FOR  PRINCIPAL  TRANS: 

TRY  TO  TACK  WITH  DIAGONAL  PAIRS 

A0339 

ALARM  (IF  DIAGONAL  PAIRS  ARE  FAILED) 

0340 

16,2744 

0 0006 

1 

CHKVISFZ  EXTEND 

0341 

REF 

10 

LAST 

1407 

16,2745 

00  031 

0 

READ 

CHAN31 

0342 

REF 

480 

LAST 

1426 

16,2746 

4 0000 

0 

CS 

A 

0343 

REF 

1 

16,2747 

7 3614 

0 

MASK 

074000CT 

0344 

16,2750 

0 0006 

1 

EXTEND 

034  5 

REF 

1 

16,2751 

1 3020 

1 

8ZF 

TSNEXTP 

034  6 

16,2752 

0 0006 

1 

EXTEND 

034  7 

REF 

36 

LAST 

1296 

16,2753 

7 4736 

0 

MP 

BIT7 

0348 

REF 

481 

LAST 

1427 

16,2754 

50  000 

1 

INDEX 

A 

0349 

REF 

1 

16,2755 

3 3573 

0 

CA 

I NDXYZ 

0350 

REF 

1 

16,2756 

55' 743 

1 

TS 

ROTINDEX 

0351 

REF 

27 

LAST 

1416 

16,2757 

3 6263 

0 

TRYUORV  CA 

SIX 

0352 

REF 

1 

16,2760 

0 3552 

0 

TC 

SELECTYZ 

0353 

REF 

28 

LAST 

1427 

16,2761 

4 6263 

1 

CS 

SIX 

0354 

REF 

1 

16,2762 

6 1742 

1 

AD 

NUMBERT 

0355 

16,2763 

0 0006 

1 

EXTEND 
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0356 

REF 

2 

LAST 

IA27 

16, 

i 2 76A 

035  7 

REF 

23 

LAST 

1A25 

16, 

,2765 

0358 

REF 

2 

LAST 

IA2  7 

16, 

,2766 

0359 

16, 

,2767 

0360 

REF 

1 

16, 

,2770 

0361 

REF 

2 

LAST 

1A27 

16, 

,2771 

0362 

REF 

3A 

LAST 

1A  10 

16, 

,2  772 

0363 

16, 

,2773 

036  A 

REF 

3 

LAST 

1A28 

16, 

, 2 7 7 A 

0365 

REF 

A7 

LAST 

1315 

16, 

,2775 

0 36  6 

16, 

,2776 

0367 

REF 

61 

LAST 

1391 

16, 

, 2777 

0368 

REF 

21 

LAST 

1A27 

16, 

,3000 

0369 

16, 

,3001 

0370 

16, 

, 3002 

037  1 

REF 

22 

LAST 

IA28 

16, 

, 3003 

03  7 2 

REF 

2 89 

LAST 

IA2  A 

16, 

, 300 A 

0373 

REF 

A 

LAST 

1 A 2 8 

16, 

,3005 

037  A . 

REF 

62 

LAST 

1A28 

16, 

,3006 

0375 

REF 

23 

LAST 

1A28 

16, 

,3007 

0376 

16, 

,3010 

0377 

16, 

,3011 

0378 

REF 

2A 

LAST 

1A28 

16, 

,3012 

0379 

P.EF 

63 

LAST 

1A2  8 

16, 

,3013 

0380 

REF 

35 

LAST 

IA28 

16, 

, 3 0 1 A 

0381 

REF 

3 

LAST 

1A28 

16, 

,3015 

0382 

REF 

1 

16, 

,3016 

0383 

REF 

1 

16, 

,3017 

038A 

REF 

7 

LAST 

l A l 1 

16, 

,3020 

A3305 

A0386 

A0387 

A0388 

A0389 

A0390 


0 39  1 

REF 

A 7 

LAST 

1 36A 

16,3021 

0392 

16,3022 

0393 

REF 

11 

LAST 

IA27 

16,3023 

039  A 

16.302A 

0395 

REF 

1 

16,3025 

0396 

REF 

AO 

LAST 

IA25 

16,3026 

0397 

REF 

2 

LAST 

907 

16,3027 

0398 

16,3030 

0399 

REF 

1 

16,3031 

OAOO 

16,3032 

OAOOl 

REF 

1 

16,3033 

OAO  1 

REF 

2 

LAST 

733 

16,3  03A 

1 3017 

0 

BZF 

TSNEXTP 

A A 7A7 

0 

CS 

F IVE 

6 1 7A3 

0 

AD 

ROTINDEX 

0 C006 

l 

EXTEND 

6 3C06 

1 

BZMF 

ALTERYZ 

A 1 7A2 

0 

CS 

NUMBERT 

6 A 7A2 

1 

AD 

FOUR 

0 0006 

1 

EXTEND 

6 3017 

1 

BZMF 

TSNEXTP  ■ 

0 5571 

1 

A80RTYZ 

TC 

ALARM 

02001 

1 

OCT 

02001 

3 A 7AA 

1 

CA 

B I T 1 

23' 77A 

1 

LXCH 

RCSFLAGS 

0 CC06 

1 

EXTEND 

06  C01 

0 

RXOK 

1 

55' 77A 

0 

TS 

RCSFLAGS 

3 A 7A6 

0 

CA 

ZERO 

1 3020 

1 

TCF 

TSNEXTP 

3 A 7AA 

1 

ALTERYZ 

CA 

B 1T1 

23' 77A 

1 

LXCH 

RCSFLAGS 

0 0006 

1 

EXTEND 

06  C01 

0 

RXOR 

1 

55' 77A 

0 

TS 

RCSFLAGS 

7 A 7AA 

0 

MASK 

B IT1 

6 A 7A2 

1 

AD 

FOUR 

27' 7A3 

1 

ADS 

ROTINDEX 

1 2 757 

1 

TCF 

TRYUORV 

3 1 7A0 

0 

CA 

POLYTEMP 

55* A72 

0 

TSNEXTP 

TS 

NEXTP 

STATE  LOGIC 

CHECK 

IN  ORDER: 

L POPHASE 

PULSES 

DETENT! B I T 1 5 CH31 ) 

GO 

TO  PURGENCY 

3 A730 

1 

CA 

BIT13 

0 0006 

1 

EXTEND 

02  031 

l 

RAND 

CHAN31 

0 0006 

l 

EXTEND 

l 303A 

1 

BZF 

MANMODF 

3 0111 

0 

CA 

DAPBOOLS 

7 A73A 

1 

MASK 

XOVINHI R 

0 CC  06 

1 

EXTEND 

1 3067 

l 

BZF 

DETENTCK 

0 OOOA 

0 

INH  INT 

1 31A5 

0 

TCF 

ZR0RC8I T 

3 A 726 

0 

MANMODE 

CA 

PULSES 
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INVERT  BIT  1 OE  RCSFLAGS. 


INVERT  BIT  1 OF  RCSFLAGS. 


IF  ON 

GO  TO  PURGENCY 
MINIMUM  PULSE  LOGIC 
RATE  COMMAND 

CHECK  STICK  IF  IN  ATT.  HOLD. 


GO  CHECK  FOR  MANUAL  X-AXIS  OVERRIDE. 
CLEAR  OURRCBIT  ANO  GO  DO  AUTOMATIC  LOGIC 


PULSES  IS  ONE  FOR  PULSE  MODF 
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0402 

REF 

41 

LAST 

1428 

16,3035 

7 0111 

1 

MASK 

DAPBOOLS 

0403 

16,3036 

0 0006 

1 

EXTEND 

040  4 

REF 

2 

LAST 

1428 

16,3037 

l 3067 

1 

BZF 

DETENTCK 

BRANCH  FOR  RATE  COMMAND 

R 0404  1 

*** 

MINIMUM  IMPU 

l LSE  LUGIC  *** 

0405 

REF 

290 

LAST 

1428 

16,3040 

3 4746 

0 

C A 

ZERO 

0406 

REF 

4 

LAST 

1419 

16,3041 

55 ' 464 

1 

TS 

PERROR 

040  8 

REF 

25 

LAST 

1419 

16,3042 

3 C032 

0 

CA 

C DUX 

040  9 

REF 

23 

LAST 

1419 

16,3043 

5 5 ' 6 34 

0 

TS 

C DUX  D 

04091 

REF 

6 

LAST 

141  1 

16,3044 

4 4743 

1 

CS 

CONTRLBT 

040915 

16,3045 

0 0004 

0 

INHINT 

04092 

REF 

32 

LAST 

1411 

16,3046 

7 C 106 

1 

MASK 

F LGWRD10 

CLEAR  FLAG  TO  CAUSE  THE  NO  CONTROL  DSKY 

040  9 3 

REF 

33 

LAST 

1429 

16,3047 

54  106 

1 

TS 

FLGWRD10 

LIGHT  TO  BE  LIT  BY  T4RUPT. 

040935 

16,3050 

0 0003 

1 

REL INT 

0410 

16,3051 

C 0006 

1 

EXTEND 

041  1 

REF 

12 

LAST 

1428 

16,3052 

00  031 

0 

READ 

CHAN31 

0412 

16,3053 

4 0000 

0 

COM 

THE  CHANNEL  BITS  ARE  INVERSE  LOGIC. 

0413 

REF 

5 

LAST 

1328 

16,3054 

7 5745 

0 

MASK 

0CT14 

BITS  3 AND  4 ARE  TP  AND  -P  COMMANDS 

0414 

REF 

2 

LAST 

1409 

16,3055 

57*460 

1 

XCH 

OLDPMIN 

0415 

REF 

482 

LAST 

1427 

16,3056 

10  000 

0 

CCS 

A 

BRANCH  TO  SKIP  THIS  PASS  IF  THERE  WAS  A 

0416 

REF 

1 

16,3057 

1 3443 

0 

TCF 

JETSOFF 

COMMAND  PRESENT  LAST  TIME  OP  IF  THFRF 

041  7 

REF 

3 

LAST 

1429 

16,3060 

3 1460 

1 

CA 

OLDPMIN 

IS  NO  COMMAND  THIS  TIME. 

0418 

16, 3061 

0 C006 

1 

EXTEND 

0419 

REF 

2 

LAST 

1429 

16,3062 

1 3443 

0 

BZF 

JETSOFF 

042  0 

REF 

4 

LAST 

1429 

16,3063 

4 1460 

0 

CS 

OLDPMIN 

THERE  IS  A COMMAND  TO  BE  HONORED.  PUT  A 

042  1 

REF 

29 

LAST 

1427 

16,3064 

6 6263 

0 

AD 

SIX 

SMALL  NUMBER  OF  THE  PROPER  SIGN  IN  TJP 

042  2 

REF 

4 

LAST 

1409 

16, 3065 

55' 524 

1 

TS 

T JP 

IT  WILL  BE  CHANGED  TO  14  MSEC  LATER. 

042  3 

REF 

l 

16,3066 

1 3351 

1 

TCF 

PJETSLEC  -6 

R0436  MANUAL  RATE  COMMAND  MODE 

R0437  ======================== 

R0438  BY  ROBERT  F.  STENGEL 

R0439 

R0440  THIS  MODE  PROVIDES  RCAH  MANUAL  CONTROL  THRU  2 CONTROL  LAMS:  1)  DIRECT  RATE  AND  2)  PSEUDO-AUTO. 

R0442  THE  DIRECT  RATE  MODE  AFFORDS  IMMEDIATE  CONTROL  WITHOUT  OVERSHOOT.  THE  PSEUDO-AUTO  MODE  PROVIDES  PRECISF 
R0444  RATE  CONTROL  AND  ATTITUDE  HOLD. 

R0445 

R0446  IN  DIRECT  RATE,  JETS  ARE  FIRED  WHEN  STICK  POSITION  CHANGES  BY  A FIXED  NUMRER  OF  INCREMENTS  IN  ONE  DAP  CYCLE. 

R0448  THE  'BREAKOUT  LEVEL'  IS  .6  D/S  FOR  LM-ONLY  AND  .3  D/S  FOR  CSM-DOCKED.  THIS  LAW  NULLS  THE  RATE  ERROR  TO  WITHIN 

R0450  THE  'TARGET  DEADBAND',  WHICH  EQUALS  THE  BREAKOUT  LEVEL. 

R0451  IN  PSEUDO-AUTO,  BODY- F I X F D RATE  AND  ATTITUDE  ERRORS  ARE  SUPPLIED  TO  TJETLAW,  WHICH  EXERCISES  CONTROL. 

K045  3 CONTROL  SWITCHES  FROM  DIRECT  RATE  TO  PSEUCO-AUTO  IF  THE  TARGET  DB  IS  ACHIEVED  OP  IF  TIME  IN  (1)  EXCEEDS  4 SFC. 

R0455  IF  THF  INITIAL  COMMAND  DOES  NOT  EXCEED  THE  BREAKOUT  LEVEL,  CONTROL  GOES  TO  PSEUDO-AUTO  IMMEDIATELY. 

R0457 

R0458  SINCE  P-AXIS  CONTROL  IS  SEPARATE  FROM  Q,  R AXES  CONTROL,  IT  IS  POSSIBLE  TO  USE  (1)  IN  P-AXIS  AND  (2)  IN  Q,R  AXES, 


GAP: 

L 

R0460 

R0462 

R046  3 

R0464 

R046  6 

R0468 

R0470 

A0472 

A0473 

A0474 

A0475 

0476 

0477 

0478 

0479 

0480 

048  1 

048  2 

0483 

0484 

0485 

R0486 

0487 

0488 

0489 

0490 

049  1 

0492 

049  3 

0494 

0495 

0496 

049  7 

0498 

0499 

0 50  0 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

R0510 

0511 

0512 
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OR  VICE  VERSA.  THIS  ALLUWS  A DEGREE  OF  ATTITUDE  HOLO  IN  UNCONTROLLED  AXES.  DUF  TO  U,V  CONTROL,  HOWEVER,  Q AND 
R AXES  ARE  COUPLED  AND  MUST  USE  THE  SAME  CONTROL  LAW. 

HAND  CONTROLLER  COMMANDS  ARE  SCALED  BY  A L I N E AR/OUAOR AT  I C LAW.  FOR  THE  LM-ALONE,  MAXIMUM  COMMANDED  RATES  ARE  20 
ANO  4 D/S  IN  NORMAL  AND  FINE  SCALING?  HOWEVER,  STICK  SENSITIVITY  AT  ZERO  COUNTS  (OBTAINED  AT  A STICK  DEFLECTION 
OF  2 DEGREES  FROM  THE  CENTERED  POSITION)  IS  .5  OR  .1  D/S  PER  DEGREE.  NORMAL  AND  FINE  SCALINGS  FOR  THE  CSM-DOCKED 
CASE  IS  AUTOMATICALLY  SET  TO  1/10  THE  ABOVE  VALUES.  SCALING  IS  DETERMINED  IN  ROUTINE  3. 


ZER0EN8L 

ENABLES  COUNTERS 

SO  THEY  CAN  BE  READ  NEXT  TIME 

J L ST  OUT 

FIRST  DETECTION 

OF  OUT  OF  DETENT  (8Y  OURRCBIT) 

16,3067 

0 

0006 

1 

DETENTCK 

EXTEND 

REF 

13 

LAST 

1429 

16,3070 

OC 

1 031 

0 

READ 

CHAN31 

REF 

1 

16,3071 

55 

•443 

1 

TS 

CH31 TEMP 

REF 

52 

LAST 

1420 

16,3072 

7 

4726 

1 

MASK 

B I T 1 5 

CHECK  OUT-OF-DETENT  BIT. 

16,3073 

0 

0006 

1 

EXTEND 

REF 

1 

16,3074 

1 

3220 

0 

BZF 

RHCMOVED 

BRANCH  IF  OUT  OF  DETENT. 

REF 

1 

16,3075 

3 

4731 

0 

CAF 

OURRCBI T 

IN  DETENT.  CHECK  THE  RATE  COMMAND  BIT. 

REF 

42 

LAST 

1429 

16,3076 

7 

Clll 

1 

MASK 

DAPBOOLS 

16,3077 

0 

0006 

1 

EXTEND 

REF 

1 

16,3100 

1 

3464 

0 

BZF 

P URGENCY 

BRANCH  IF  NOT  IN  RATE  COMMAND  LAST  PASS 

REF 

33 

LAST 

1390 

16,3101 

3 

4734 

0 

CA 

B IT9 

JUST  IN  DETENT?? 

REF 

25 

LAST 

1428 

16,3102 

7 

1774 

0 

MASK 

RCSFLAGS 

16,3103 

0 

0006 

l 

EXTEND 

REF 

1 

16,3104 

1 

3116 

0 

BZF 

RUTH 

REF 

48 

LAS! 

1428 

16,3105 

3 

4730 

1 

AUTOCHEK 

CAF 

B I T l 3 

CLEAR  JUSTIN  AND  QRRIT  ONLY  IF  AUTO. 

16,3 106 

0 

0006 

1 

EXTFND 

REF 

14 

LAST 

1430 

16,3107 

02 

1 031 

l 

RAND 

CHAN31 

16,3110 

0 

0006 

1 

EXTEND 

REE 

1 

16,3111 

1 

3215 

0 

BZF 

R ATEDAMP 

BRANCH  IF  IN  ATTITUDE  HOLD. 

REF 

1 

16,3112 

4 

5C05 

0 

CS 

BITS9.il 

IN  AUTO. 

REF 

26 

LAST 

1430 

16, 3113 

7 

1774 

0 

MASK 

RCSFLAGS 

(X-AXIS  OVFRRIDE) 

REF 

27 

LAST 

1430 

16,3114 

55 

i'  774 

0 

TS 

RCSFLAGS 

ZFRO  ORBIT  (PIT  111  AND  JUST-IN  BIT  (9) 

REF 

2 

LAST 

1430 

16,3115 

l 

3215 

0 

TCF 

RATEDAMP 

REF 

28 

LAST 

1430 

16,3116 

3 

1774 

1 

RUTH 

CA 

RCSFLAGS 

REF 

l 

16,3117 

7 

4733 

0 

MASK 

PBIT 

IN  ATTITUDE  HOLD. 

16,3120 

0 

0006 

1 

EXTEND 

16,3121 

1 

3123 

0 

BZF 

+ 2 

BRANCH  IF  P-PATE  DAMPING  IS  FINISHED. 

RFF 

3 

LAST 

1430 

16,3122 

1 

3215 

0 

TCF 

RATEDAMP 

REF 

29 

LAST 

1430 

16,3123 

3 

1 774 

1 

CA 

RCSFLAGS 

REF 

1 

16,3124 

7 

4732 

1 

MASK 

ORBIT 

16,3125 

0 

0006 

1 

EXTEND 

REF 

1 

16,3  126 

1 

3132 

0 

BZF 

RATEDONE 

BRANCH  IF  Q,R  RATE  DAMPING  IS  FINISHED. 

REF 

1 

16,3127 

1 

3105 

l 

TCF 

AUTOCHEK 

REF 

64 

LAST 

1428 

4 744 

1/10SEC 

= 

BIT! 

REF 

6 

LAST 

1368 

4762 

40CYC 

= 

0CT50 

GAP:  ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L P-AXIS  RCS  AUTOPILOT 


0513 

16,3130 

74777 

0 

PORBIT 

OCT 

74777 

0514 

REF 

15 

LAST 

955 

5005 

BITS9.il 

EQUALS 

EBANK5 

0515 

16,3131 

00056 

1 

L INR ATP 

DEC 

46 

R0516 

052  l 

16,3132 

0 0004 

0 

RATEDONE 

INHINT 

0522 

REF 

49 

LAST 

1430 

16,3133 

3 4730 

1 

CAE 

B I T 1 3 

0523 

16,3134 

0 0006 

1 

EXTEND 

0524 

REF 

15 

LAST 

1430 

16,3  135 

02  031 

1 

RAND 

CHAN31 

0525 

16,3136 

0 0006 

1 

EXTEND 

0526 

16,3137 

1 3143 

0 

BZF 

+ 4 

0527 

REE 

26 

LAST 

1429 

16,3140 

3 0032 

0 

CA 

C DUX 

0528 

REF 

24 

LAST 

1429 

16,3141 

55 '634 

0 

TS 

CDUXD 

0529 

16,3142 

0 3 145 

1 

TC 

+ 3 

0530 

REF 

56 

LAST 

1410 

16,3  143 

0 4665 

0 

TC 

I BNKC ALL 

0531 

REF 

10 

LAST 

1409 

16,3144 

40154 

0 

FCAUR 

ZATTEROR 

0531  l 

REF 

2 

LAST 

1430 

16,3145 

4 4 731 

1 

ZRORCBIT 

CS 

OURRCBI T 

053  12 

REF 

43 

LAST 

1430 

16,3 146 

7 0111 

1 

MASK 

OAPBOOLS 

05313 

REF 

44 

LAST 

143  1 

16,3147 

54  111 

1 

TS 

DAPBOOLS 

0532 

16,3150 

0 0003 

1 

RELINT 

0533 

REF 

2 

LAST 

1430 

16, 3 15  1 

1 3464 

0 

TC  F 

PURGENCY 

0 53  4 

REF 

5 

LAST 

1429 

16,3152 

55*464 

1 

J L S TOUT 

TS 

PERROR 

053  8 

REF 

5 

LAST 

1422 

16,3153 

5 5 ' 446 

1 

TS 

DXERROR 

0539 

REF 

6 

LAST 

1431 

16,3154 

5 5 ' 44  7 

0 

TS 

DXERROR 

0540 

REF 

4 

LAST 

1422 

16,3155 

55 ' 450 

0 

TS 

D YERROR 

0541 

REF 

5 

LAST 

1431 

16,3156 

55*451 

1 

TS 

DYERROR  • 

0542 

REF 

4 

LAST 

1423 

16,3  157 

55*452 

1 

TS 

DZERROR 

0543 

REF 

5 

LAST 

1431 

16,3160 

55*453 

0 

TS 

DZFRROR 

0544 

REF 

2 

LAST 

1422 

16,3 16  1 

55*454 

1 

TS 

PLAST 

0545 

REF 

2 

LAST 

1422 

16,3162 

55*455 

0 

TS 

QLAST 

0546 

REF 

2 

LAST 

1423 

16,3163 

55' 456 

0 

TS 

RLAST 

0547 

REF 

l 

16,3164 

54  042 

0 

TS 

Q-RHCCTR 

0548 

REE 

1 

16,3165 

54  044 

0 

TS 

R-RHCCTR 

0549 

REF 

1 

16,3166 

3 3130 

0 

CA 

PQRBIT 

0550 

REF 

30 

LAST 

1430 

16,3167 

7 1774 

0 

MASK 

RCSFLAGS 

0551 

REF 

31 

LAST 

1431 

16,3170 

55  *7  74 

0 

TS 

RCSFLAGS 

0555 

REF 

1 

16,3171 

0 3 176 

1 

TC 

ZEROENBL 

0555  1 

REF 

3 

LAST 

1431 

16,3172 

3 4731 

0 

CA 

OURRCBI T 

05552 

REF 

45 

LAST 

1431 

16,3173 

26  111 

1 

ADS 

DAPBOOLS 

05553 

16,3174 

0 C003 

1 

RELINT 

0 55  6 

REE 

3 

LAST 

1429 

16,3175 

1 3443 

0 

TC  F 

JETSOFF 

0557 

REF 

2 

LAST 

1431 

16,3176 

22  044 

1 

ZEROENBL 

LXCH 

R-RHCCTR 

0558 

REF 

2 

LAST 

1431 

16,3177 

3 CC42 

1 

CA 

Q-RHCCTR 

0559 

REF 

1 

16,3200 

53*463 

0 

DXCH 

SAVEHAND 

0560 

REF 

291 

LAST 

1429 

16,3201 

3 4746 

0 

CA 

ZERO 

056  1 

REF 

l 

16,3202 

54  C43 

1 

TS 

P-RHCCTR 

0562 

REF 

3 

LAST 

143  1 

16,3203 

54  042 

0 

TS 

Q-RHCCTR 

0563 

REF 

3 

LAST 

143  1 

16,3204 

54  C44 

0 

TS 

R-RHCCTR 

0563C5 

16,3205 

0 0004 

0 

INHINT 

0563  1 

16,3206 

0 0006 

1 

EXTEND 

17:  11  MAR.  L9.L971 


LMDA  ° 


032  PAGE  1431 


USER'S  PAGE  NO.  13 


E6  S4 


NULL  THE  APPROPRIATE  ATTITUDE  ERRORS. 


(X-AXIS  OVERRIDE) 


CLEAR  OURRCRI T : MANUAL  MODE  CLOSED  OUT. 


INITIALIZATION  - FIRST  MANUAL  PASS  (A=C) 


BITS  LO  AND  ll  OF  RCSFLAGS  ARE  0. 

SET  INTERNAL  RATE  COMMAND  FLAG  (WHICH 
WAS  FOUND  TO  BE  ZERO  EARLIER) 


GAP:  ASSEMBLE  REVISION  210  CE  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L P-AXIS  RCS  AUTOPILLT 


05632 

REF 

5 

LAST 

1401 

16,3207 

23 

•265 

1 

QXCH 

C 13QSAV 

05633 

REF 

9 

LAST 

140  1 

16,3210 

0 

6040 

0 

TC 

C13STALL 

0564 

REF 

1 

16,3211 

3 

3620 

0 

CA 

B ITS8 ,9 

0565 

16,3212 

0 

C006 

l 

EXTEND 

0566 

REF 

21 

LAST 

1401 

16,3213 

05 

i C13 

0 

WOR 

CHAN13 

0 56  7 

RFF 

6 

LAST 

1432 

16,3214 

0 

1265 

1 

TC 

C13QSAV 

0568 

REF 

292 

LAST 

1431 

16,3215 

3 

4 746 

0 

RATEDAMP 

CA 

ZERO 

0569 

REF 

2 

LAST 

143  1 

16,3216 

54 

• 043 

1 

TS 

P-RHCCTR 

0570 

REF 

1 

16,3217 

1 

3227 

1 

TC  F 

RATERROR 

05701 

REF 

32 

LAST 

L 43  1 

16,3220 

4 

1 774 

0 

RHCMOVED 

CS 

RCSFLAGS 

05702 

REF 

34 

LAST 

1430 

16,3221 

7 

4734 

1 

MASK 

8 I T9 

0570  3 

REF 

33 

LAST 

1432 

16,3222 

21 

' 7 74 

0 

ADS 

RCSFLAGS 

0571 

REF 

4 

LAST 

1431 

16,3223 

3 

4731 

0 

CA 

OURRCBIT 

0572 

REF 

46 

LAST 

1431 

16,3224 

7 

cm 

1 

MASK 

DAPBOOLS 

0573 

16,3225 

0 

0006 

1 

EXTEND 

0574 

REF 

1 

16,3226 

1 

3152 

0 

BZF 

JUSTOUT 

0575 

REF 

27 

LAST 

143  l 

16,3227 

3 

0C32 

0 

RATERROR 

CA 

C DUX 

0576 

REF 

25 

LA  S T 

1431 

16,3230 

55 

' 634 

0 

TS 

CDUXD 

0577 

REF 

3 

LAST 

1432 

16,3231 

1C 

C43 

1 

CCS 

P-RHCCTR 

0578 

16,3232 

L 

3235 

1 

TCF 

+ 3 

0579 

16, 3233 

1 

3235 

1 

TC  F 

+ 2 

0580 

16,3234 

L 

3235 

1 

TCF 

+ 1 

058  1 

16,3235 

6 

0000 

1 

DOUBLE 

0582 

16,3236 

6 

0000 

1 

DOUBLE 

0583 

REF 

1 

16,3237 

6 

3131 

1 

AD 

L INRATP 

0584 

16,3240 

0 

C006 

1 

EXTEND 

0585 

REF 

4 

LAST 

1432 

16,3241 

7 

CC43 

1 

MP 

P-RHCCTR 

0586 

REF 

29? 

LAST 

1422 

16,3242 

3 

0001 

0 

CA 

L 

0587 

16,3243 

0 

0006 

1 

EXTEND 

0588 

RFF 

6 

LAST 

306 

16,3244 

7 

1444 

0 

MP 

STIKSENS 

0589 

REF 

3 

LAST 

1431 

16,3245 

57 

' 454 

0 

XCH 

PLAST 

0590 

16, 3246 

4 

CCOO 

0 

COM 

0591 

REF 

4 

LAST 

1432 

16,3247 

6 

1454 

0 

AD 

PLAST 

0592 

REF 

25 

LAST 

1424 

16,3250 

55 

' 736 

0 

TS 

DAPTEMP 1 

0593 

REF 

2 

LAST 

1431 

16, 3251 

0 

3 176 

1 

TC 

ZEROENBL 

0593  1 

16,3252 

0 

0003 

1 

REL INT 

0594 

REF 

5 

LAST 

1432 

16, 3253 

4 

1454 

1 

CS 

PLAST 

0595 

REF 

17 

LAST 

1423 

16,3254 

6 

1421 

1 

AD 

OMEGAP 

0596 

REF 

1 

16,3255 

55 

•427 

0 

TS 

EDOTP 

0597 

REF 

26 

LAST 

1432 

16,3256 

1 L 

' 736 

0 

CCS 

DAPTEMP1 

0598 

16,3257 

1 

3262 

0 

TCF 

+3 

0599 

16,3260 

1 

3270 

0 

TCF 

+ 8 

0600 

16 , 3 26  L 

1 

3262 

0 

TCF 

tl 

0601 

REF 

5 

LAST 

306 

16,3262 

6 

1476 

0 

AD 

-RATED8 

0602 

16,3263 

0 

CC06 

1 

EXTEND 

060  3 

16,3264 

6 

3270 

1 

BZMF 

+ 4 

0604 

REF 

1 

16,3265 

3 

4762 

0 

CA 

40CYC 

17: 1 1 MAR.  19,1971  LMDAP 


032  PAGE  1432 


USER'S  PAGE  NO.  14  E6  S4 


COUNTERS  ZEROED  AND  ENABl FD 


SET  JUSTIN  BIT  Tfl  1 
P CONTROL 

FINOCDUW  REQUIRES  THAT  CDUXO=CDUX  DUPING 
X-AXIS  OVERRIDE 


LINEAR/QUADRATIC  CONTROLLER  SCALING 
(SEE  EXPLANATION  IN  Q.R-AXFS  RCS 
AUTOPILOT ) 


INTERVAL.  ZERO  AND  ENABLE  ACA  COUNTERS. 


IF  P COMMAND  CHANGE  EXCEEDS  BREAKOUT 
LEVEL,  GO  TO  DIRECT  RATE  CONTROL.  IF  NOT 
CHECK  FOR  DIRECT  RATE  CONTROL  LAST  TIME. 


GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L P-AXI S RCS  AUTOPILOT 


0605 

REF 

2 

LAST 

1420 

16,3266 

55 

'445 

1 

TS 

TCP 

0606 

REF 

1 

16,3267 

0 

3301 

0 

TC 

P EG  I 

060  7 

REF 

34 

LAST 

1432 

16,3270 

3 

1774 

1 

CA 

RCSFLAGS 

0608 

REF 

2 

LAST 

1430 

16,3271 

7 

4 733 

0 

MASK 

PBIT 

060  9 

16,3272 

0 

0006 

1 

EXTEND 

0610 

16, 3273 

1 

3275 

0 

BZF 

+ 2 

061  1 

REF 

2 

LAST 

1433 

16 ,3274 

0 

3301 

0 

TC 

P EG  I 

0612 

REF 

7 

LAST 

1431 

16,3275 

3 

1 446 

0 

CA 

DXERROR 

0613 

REF 

l 

16,3276 

55 

•751 

1 

TS 

E 

0614 

REF 

6 

LAST 

143  1 

16,3277 

55 

'464 

1 

TS 

PERROR 

061  5 

REF 

3 

LAST 

143  1 

16,3300 

0 

3470 

1 

TC 

P URGENCY 

0616 

REF 

28 

LAST 

1432 

16,3301 

3 

0032 

0 

P EG  I 

CA 

C DUX 

0617 

REF 

26 

LAST 

1432 

16, 3302 

55 

'634 

0 

TS 

CDUXD 

0618 

REF 

293 

LAST 

1432 

16,3303 

3 

4746 

0 

CA 

ZERO 

061  9 

REF 

8 

LAST 

1433 

16,3304 

55 

' 446 

1 

TS 

DXFRROR 

0620 

REF 

9 

LAST 

1433 

16,3305 

55 

•447 

0 

TS 

DXERROR 

062  1 

REF 

7 

LAST 

14  33 

16,3306 

55 

'464 

1 

TS 

PERROR 

0622 

REF 

2 

LAST 

1432 

16,3307 

1 1 

'427 

0 

CCS 

EDOTP 

0623 

16,3310 

0 

3313 

0 

TC 

+ 3 

0624 

16,3311 

0 

3313 

0 

TC 

+ 2 

062  5 

16,3312 

0 

3313 

0 

TC 

+ 1 

0626 

REF 

1 

16,3313 

55 

' 736 

0 

TS 

ABSEDOT  P 

062  7 

REF 

1 

16,3314 

6 

1476 

0 

AD 

T ARGETDB 

0628 

16,3315 

0 

0006 

1 

EXTEND 

0629 

REF 

1 

16,3316 

6 

3326 

0 

BZMF 

LAST 

0630 

RFF 

3 

LAST 

1433 

19,3317 

3 

1445 

0 

CA 

TCP 

0631 

16,3320 

0 

C 006 

1 

EXTEND 

0632 

REF 

2 

LAST 

1433 

16,3321 

6 

3326 

0 

BZMF 

LAST 

0633 

REF 

35 

LAST 

1433 

16,3322 

4 

1 774 

0 

cs 

RCSFLAGS 

0634 

REF 

3 

LAST 

1433 

16,3323 

7 

4733 

0 

MASK 

PBIT 

0635 

REF 

36 

LAST 

1433 

16,3324 

27 

'7  74 

0 

ADS 

RCSFLAGS 

0636 

16,3325 

1 

3331 

1 

TCF 

+ 4 

063  7 

REF 

4 

LAST 

1433 

16,3326 

4 

4733 

0 

LAST 

CS 

PBIT 

063  8 

REF 

37 

LAST 

1433 

16,3327 

7 

17  74 

0 

MASK 

RCSFLAGS 

0639 

REF 

38 

LAST 

1433 

16,3330 

55 

' 774 

0 

TS 

RCSFLAGS 

064  C 

REF 

3 

LAST 

1433 

16,3331 

4 

1427 

0 

CS 

EDOTP 

0641 

16,3332 

0 

0006 

1 

EXTEND 

0642 

REF 

1 

16,3333 

7 

1550 

1 

MP 

1 /ANETP 

0643 

REF 

483 

LAST 

1429 

16, 3334 

20 

001 

1 

DAS 

A 

0644 

REF 

10 

LAST 

1425 

16,3335 

0 

2314 

0 

TC 

OVERSUB 

0645 

16,3336 

0 

CC06 

l 

EXTEND 

0646 

REF 

1 

16,3337 

7 

7737 

l 

MP 

25/32 

0647 

REF 

5 

LAST 

1429 

16,3340 

55 

• 524 

1 

TS 

TJP 

0648 

REF 

2 

LAST 

1433 

16,3341 

3 

1736 

1 

CA 

A8SED0TP 

064  9 

REF 

2 

LAST 

135 

16,3342 

6 

1475 

0 

AD 

-2JFTLIM 

0650 

16,3343 

0 

0006 

1 

EXTEND 

0651 

16,3344 

6 

3347 

1 

BZMF 

+ 3 

0652 

REF 

30 

LAST 

1429 

16,3345 

3 

6263 

0 

CA 

SIX 

0653 

16,3346 

1 

3356 

0 

TCF 

+ 8D 

17:11  MAR.  19,1971  LMDAP  .032  PAGE  1433 
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CHECK  FOR  DIRECT  RATE  COMMAND  LAST  TIME. 


TO  PURE  RATE  COMMAND 
PSEUDO-AUTO  CONTROL. 

X-ATTITUDE  ERROR  (SP) 

LOAD  P-AXIS  ERROR  FOR  MODE  1 F D A I DISPLAY 
DIRECT  RATE  CONTROL. 


ZERO  P-AXIS  FRROR  FOR  MODE  1 FDA  I DISPLAY 


IF  RATE  FRROR  IS  LESS  THAN  DEADBAND, 
FIRE,  AND  SWITCH  TO  PSEUDO-AUTO. 

IF  TIME  IN  RATE  COMMAND  EXCEEDS  4 SEC., 


BIT  10  IS  1 . 


BIT  10  IS  0. 


1/2JTACC  SCALED  AT  2EXPI7I/PI 


A CONTAINS  TJFT  SCALED  AT  2E XP ( 4 ) ( 1 6/ 2 5 I 
4.JFT  TIME 


COMPARING  DELTA  RATE  WITH  2 JET  LIMIT 


GAP: 

L 

0654 

0655 

A0656 

A0657 

A0658 

A065  9 

A0660 

A066  1 

A0662 

A0663 

A0664 

A0665 

A0666 

A 066  7 

A0668 

A0669 

A0670 

A0671 

0672 

0673 

0674 

0675 

0676 

067  7 

0678 

0679 

0680 

0681 

0682 

0683 

0684 

0685 

0686 

068  7 

0688 

0689 

0690 

069  1 

0692 

0693 

0694 

0695 

0696 

0697 

0698 


ASSEMBLE  REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161 
P-AXIS  RCS  AUTOPILOT 


17:11 


MAR.  19,1971 
USER’S  PAGE 


LMOAP 
NO.  16 


.032  PAGE  1434 
E6  S4 


REF  6 LAST  1433 

REF  7 LAST  1434 


16,3347  3 1524  0 

16,3350  27*524  1 


CA  T JP 

ADS  TJP 

GOES  TU  PJETSLEC  FOR  TWO  JETS 


P- JET- SELECT ICN-ROUTINE  (ROTATION) 


INPUT:  NUMBERT  4,5,6  FOR  WHICH  PAIR  OR  4 JETS 

TJP  + FOR  +P  ROTATION 

OUTPUT:  CHANNEL  6 

PJUMP ADR  FOR  P-AXIS  SKIP 

(JTLST  CALL)  (SMALL  TJP) 

ORDER  OF  POLICIES  TRIED  IN  CASE  OF  FAILURE. 

+P  -P 

7.15  8,16 

4.12  3,11 

4,7  8,11 

7.12  11,16 

12.15  3,16 

4.15  3,8 

ALARM  ALARM 


REF 

1 

16,3351 

3 4740 

0 

CA 

A0R8SYST 

PEF 

31 

LAST 

1335 

16,3352 

7 C101 

0 

MASK 

F LAGWRD5 

REF 

4 84 

LAST 

1433 

16,3353 

10  COO 

0 

CCS 

A 

REF 

143 

i a s r 

1420 

16,3354 

3 4744 

1 

CA 

ONE 

REF 

36 

LAST 

1428 

16,3355 

6 4 742 

1 

AD 

FOUR 

RFF 

3 

LAST 

1428 

16,3356 

55’ 742 

0 

TS 

NUMBERT 

REF 

144 

LAST 

1434 

16, 3357 

3 4744 

1 

PJETSLEC  CA 

ONE 

REF 

293 

LAST 

1432 

16,3360 

54  001 

1 

TS 

L 

REF 

8 

LAST 

1434 

16,336  l 

11' 524 

l 

CCS 

TJP 

16, 3362 

1 3367 

1 

TCF 

+ 5 

REF 

4 

LAST 

143  1 

16,3363 

1 3443 

0 

TCF 

JETSOFF 

16,3364 

1 3366 

0 

TCF 

+ 2 

REF 

5 

LAST 

1434 

16, 3365 

1 3443 

0 

TCF 

JETSOFF 

16,3366 

22  007 

0 

ZL 

REF 

145 

LAST 

1434 

16,3367 

6 4744 

1 

AD 

ONE 

REF 

1 

16,3370 

55*  736 

0 

TS 

A 6ST  J 

REF 

4 

LAST 

1428 

16,3371 

23' 743 

0 

LXCH 

ROT  INDEX 

REF 

1 

16, 3372 

0 3532 

0 

TC 

S ELEC  TP 

REF 

31 

LAST 

1433 

16, 3373 

4 6263 

l 

CS 

SIX 

REF 

4 

LAST 

1434 

16,3374 

6 1 742 

1 

AD 

NUMBERT 

16,3375 

0 0006 

1 

EXTEND 

16,3376 

1 3400 

1 

BZF 

+ 2 

REF 

92 

LAST 

1417 

16,3377 

4 4743 

l 

CS 

TWO 

REF 

37 

LAST 

1434 

16,3400 

6 4742 

1 

AD 

FOUR 

REF 

2 

LAST 

138 

16,  340  1 

55*521 

1 

TS 

NO.PJETS 

REF 

2 

LAST 

1428 

16, 3402 

3 1740 

0 

CA 

POLYTEMP 

REF 

2 

LAST 

1401 

16,3403 

0 5750 

0 

TC 

WRITEP 

GAP: 
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069  9 

REF 

2 

LAST 

1434 

16,3404 

4 1736 

0 

CS 

ABSTJ 

0700 

REF 

1 

16,3405 

6 3613 

0 

AD 

+150MST6 

0701 

16,3406 

0 0006 

1 

EXTEND 

0702 

REF 

2 

LAST 

1427 

16,3407 

6 3625 

0 

BZMF 

QRAXI  S 

0703 

REF 

1 

16, 3410 

6 3573 

0 

AD 

-136MST6 

0704 

16,3411 

0 C006 

1 

EXTEND 

0705 

16,3412 

6 3417 

0 

BZMF 

+ 5 

0706 

REF 

3 

LAST 

1435 

16,3413 

27' 736 

0 

ADS 

ABSTJ 

0707 

REF 

5 

LAST 

1434 

16,3414 

51 ' 743 

0 

INDEX 

ROTINDEX 

0708 

REF 

1 

16,3415 

3 3622 

1 

CA 

MINTIMES 

0709 

REF 

9 

LAST 

1434 

16,3416 

55 ' 524 

1 

TS 

TJP 

0 71  U 

REF 

4 

LAST 

1435 

16,3417 

3 1736 

1 

CA 

ABSTJ 

071  1 

16,3420 

22  007 

0 

ZL 

0712 

16,3421 

0 0004 

0 

INHINT 

0713 

REF 

4 

LAST 

1410 

16,3422 

53 ' 47 1 

0 

DXCH 

T6FURTHA 

0714 

REF 

57 

LAST 

1431 

16,3423 

0 4665 

0 

TC 

I BNKC ALL 

0715 

REF 

1 

16,3424 

37143 

0 

CADR 

JTLST 

0716 

rEf 

38 

LAST 

1427 

16,3425 

4 4731 

1 

CS 

BIT12 

071  7 

REF 

39 

LAST 

1433 

16,3426 

7 L 7 74 

0 

MASK 

RCSFLAGS 

0718 

REF 

40 

LAST 

1435 

16,3427 

55' 774 

0 

TS 

RCSFLAGS 

0719 

REF 

1 

16,3430 

0 3432 

l 

TC 

ALTSYST 

0720 

REF 

3 

LAST 

1435 

16,3431 

1 3625 

1 

TC  F 

QRAXI S 

0721 

REF 

32 

LAST 

1434 

16,3432 

3 0101 

1 

ALTSYST 

CA 

FLAGWRD5 

0722 

REF 

254 

LAST 

1434 

16,3433 

54  001 

1 

TS 

L 

0723 

REF 

2 

LAST 

1434 

16,3434 

3 4740 

0 

CA 

AORBSYST 

0724 

16,3435 

0 0006 

1 

EXTENO 

0725 

REF 

16 

LAST 

1412 

16,3436 

06  001 

0 

RXOR 

LCHAN 

0726 

REF 

33 

LAST 

1435 

16,3437 

54  101 

0 

TS 

FLAGWRD5 

072  7 

16 , 3440 

0 C003 

1 

REL  INT 

0728 

REF 

4 C 1 

LAST 

1421 

16,3441 

0 CC02 

0 

TC 

Q 

072  9 

REF 

2 

LAST 

1435 

16,3442 

0 3432 

1 

DKALT 

TC 

ALTSYST 

0 73  0 

REF 

3 

LAST 

1434 

16,3443 

0 5 747 

0 

JETSOFF 

TC 

WRITEP  -l 

073  1 

REF 

254 

LAST 

1433 

16,3444 

3 4746 

0 

CA 

ZERO 

0732 

REF 

10 

LAST 

1435 

16,3445 

55' 524 

1 

TS 

TJP 

0733 

REF 

4 

LAST 

1435 

16,3446 

1 3625 

1 

TCF 

QRAXI S 

R0734 

(NOTE  — 

M 1 3 = 

1 IDENTICALLY 

IMPLIES 

NULL  MULTIPLICATION. ) 

0735 

REF 

16 

LAST 

1419 

16,3447 

3 C033 

1 

C ALCPERR 

CA 

CDUY 

0736 

16,3450 

0 0006 

1 

EXTEND 

0737 

REF 

1 1 

LAST 

1419 

16,3451 

21 ' 635 

1 

MSU 

CDUYD 

0738 

16,3452 

0 0006 

1 

EXTEND 

0739 

REF 

9 

LAST 

142  1 

16,3453 

7 1414 

0 

MP 

Mil 

074  0 

REF 

2 

LAST 

143  3 

16,3454 

57' 751 

0 

XCH 

E 

0 74  1 

REF 

29 

LAST 

1433 

16,3455 

3 0032 

0 

CA 

C DUX 
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GO  TO  OR AX  IS  OR  TO  GTS. 


BIT  12  SET  TO  0. 


ALTERNATE  P-AXIS  JETS 


P-ERROR  CALCULATION. 

CDU  VALUE  - ANGLE  DESIRED  (Y-AXIS) 


(CDUY— CDUYDIMll  SCALED  AT  PI  RADIANS 
SAVE  FIRST  TFRM  (OF  TWO) 

THIRD  COMPONENT 


GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L P-AXIS  RCS  AUTOPILOT 


0742 

16,3456 

C 0006 

1 

EXTEND 

074  3 

REF 

27 

LAST 

1433 

16,3457 

21 ' 634 

0 

MSU 

CDUXD 

RO  744 

EXTEND 

R0745 

MP 

M 13 

0746 

REF 

5 

LAST 

140  5 

16,3460 

6 1274 

1 

AD 

DELPEROR 

074  7 

REF 

3 

LAST 

1435 

16,3461 

27' 751 

1 

ADS 

E 

0748 

REF 

8 

LAST 

1433 

16,3462 

57 ' 464 

0 

XCH 

PERROR 

074  9 

REF 

402 

LAST 

1435 

16, 3463 

0 0002 

0 

TC 

0 

R075C 

P-AXIS 

URGENCY 

FUNCTION  CALCULATION. 

0751 

REF 

2 

LAST 

1410 

16, 3464 

0 3447 

0 

PURGENCY  TC 

C ALCPERR 

0752 

REF 

13 

LAST 

1405 

16,3465 

4 1642 

1 

CS 

OMEGAPD 

0753 

REF 

18 

LAST 

1432 

16,3466 

6 1421 

1 

AD 

OMEGAP 

0754 

REF 

4 

LAST 

1433 

16,3467 

55 1 42  7 

0 

TS 

EDOTP 

0755 

REF  . 

146 

LAST 

1434 

16,3470 

4 

4744 

0 

CS 

ONE 

0756 

REF 

2 

LAST 

137 

16,34/1 

55' 505 

l 

TS 

AXISCTR 

0757 

REF 

47 

LAST 

1432 

16,3472 

3 

Cl  11 

0 

CA 

DAPBOOLS 

0758 

REF 

8 

LAST 

1423 

16,3473 

7 

4730 

0 

MASK 

C SMUOCKD 

0759 

16,3474 

C 

0006 

1 

EXTEND 

0760 

REF 

1 

16,3475 

1 

3506 

0 

87  F 

HEADTJET 

0 761 

16,3476 

0 

0004 

0 

INHINT 

0762 

REF 

58 

LAST 

1435 

16,3477 

0 

4665 

0 

TC 

IBNKCALL 

0763 

REF 

I 

16,3500 

4366/ 

1 

CADR 

SPSRCS 

0764 

REF 

11 

LAST 

1435 

16, 350  1 

3 

1524 

0 

CA 

TJP 

0 76  5 

16,3502 

0 

0006 

1 

EXTEND 

0766 

REF 

1 

16,3503 

1 

3442 

1 

BZF 

DKALT 

0767 

16,3504 

0 

C003 

1 

REL INT 

0768 

REF 

2 

LAST 

1429 

16,3505 

1 

3351 

1 

TCF 

PJETSLEC 

0769 

REF 

295 

LAST 

1435 

16,3506 

3 

4746 

0 

HEADTJET  CA 

ZERO 

0770 

REF 

L 

16,3507 

55 

''500 

1 

TS 

SENSETYP 

0771 

16,3510 

0 

0004 

0 

INHINT 

0772 

REF 

59 

LAST 

1436 

16,3511 

0 

4665 

0 

TC 

I BNKCALL 

0773 

REF 

1 

16,3512 

37304 

1 

CADR 

T JETLAW 

0774 

16,3513 

0 

0003 

1 

REL INT 

0775 

REF 

1 

16, 3514 

4 

1740 

1 

CS 

F IREFCT 

0776 

REF 

1 

16,3515 

6 

3531 

0 

AD 

-FOUROEG 

0777 

16,3516 

0 

0006 

1 

EXTEND 

0778 

REF 

3 

LAST 

1436 

16,3517 

6 

3351 

0 

BZMF 

PJETSLEC 

0779 

REF 

12 

LAST 

1436 

16,3520 

11 

' 524 

1 

CCS 

TJP 

0780 

16,3521 

1 

3523 

l 

TCF 

+ 2 

078  1 

REF 

6 

LAST 

1434 

16,3522 

1 

3443 

0 

TCF 

JETSOFF 

0782 

REF 

1 

16,3523 

6 

3530 

1 

AD 

— 160MST  6 

0783 

16,3524 

0 

0006 

1 

EXTEND 

0784 

REF 

4 

LAST 

1436 

16,3525 

6 

3351 

0 

BZMF 

PJETSLEC 

0785 

REF 

32 

LAST 

1434 

16, 3526 

3 

6263 

0 

CA 

SIX 
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COU  VALUF  - ANGLE  UESIRED  (X-AXIS) 


KALCMANU  INERFACE  ERROR 
SAVE  SUM  OF  TERMS.  COULD  BE  OVERFLOW. 
SAVE  P-ERROR  FOR  EIGHT-BALL  DISPLAY. 
RETURN  TO  CALLER 


CALCULATE  P-AXIS  ERRORS. 

THIS  COOING  IS  COMMON  TO  BOTH  LM  DAP  AND 
SPS-BACKUP  MODE. 

EDOTP  = OMEGAP  - OMEGAPD  AT  PI/4  RAD/SEC 


IF  CSMOOCKD  = l,  GO  TO  DOCKED  RCS  LOGIC 


IF  TJP  = Z 
6 SELECT 


ERO,  CHANGE  AORBSYST. 
AORBSYST  AND  USE  TWO  JFTS 


6 


6 
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0706 

RFF 

5 LAST  1436 

16,3527 

1 3356 

0 

TCF 

PJETSLEC  -1 

0787 

16,3530 

77377 

1 

-160MST6  DEC 

-256 

0788 

16,3531 

75117 

1 

-FOURDEG  DEC 

- .08888 

GAP: 

ASSEM3LE  REVISION  210 

OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161  17:11  MAR.  19,1971  LMOAP  .032  PAGE  1438 

L 

P-AXIS  PCS  AUTOPILOT 

USEP' S PAGE  NO.  20  E6  S4 

P0789 

JET  PCLICY  CONSTRUCTION  SUBROUTINE 

A0790 

INPUT:  rotindex,  numbert 

A0791 

OUTPUT:  POLYTEMP  (JET  POLICY) 

A0792 

THIS  SUBROUTINE 

SELECT  A SUBSET  OF  THE  DFSIRFD  JFTS  WHICH  HAS  NO  FAILURE 

079  3 

REF 

33 

LAST 

1436 

16,3532 

3 6263 

0 

SELECTP  CA 

SIX 

0794 

REF 

1 

16,3533 

55' 741 

0 

TS 

TEMPNUM 

0795 

REF 

5 

LAST 

1434 

16,3534 

51 ' 742 

1 

INDEX 

NUMBERT 

0796 

REF 

1 

16,3535 

3 3564 

0 

CA 

T YPFP 

0797 

REF 

6 

LAST 

1435 

16,3536 

51* 743 

0 

INDEX 

ROTINDEX 

0798 

REF 

1 

16,3537 

7 3555 

0 

MASK 

JETSALL 

0799 

REF 

3 

LAST 

1434 

16,3540 

55' 740 

l 

TS 

POLYTEMP 

0800 

REF 

7 

LAST 

222 

16,3541 

7 1260 

0 

MASK 

CH6MASK 

080  1 

REF 

485 

LAST 

1434 

16,3542 

10  000 

0 

CCS 

A 

0802  . 

16,3543 

1 3545 

1 

TCF 

+ 2 

0 80  3 

REF 

4C3 

LAST 

1436 

16,3 544 

0 CC02 

0 

TC 

Q 

0804 

REF 

2 

LAST 

1438 

16,3545 

11*741 

0 

CCS 

TEMPNUM 

0 80  5 

16,3546 

1 3552 

1 

TCF 

+4 

0806 

REF 

48 

LAST 

1428 

16,3547 

0 5571 

1 

TC 

ALARM 

0807 

16,3550 

02003 

0 

OCT 

02003 

0808 

REF 

7 

LAST 

1436 

16,3551 

l 3443 

0 

TCF 

JETSOFF  *****TCF  ALARMJET  ****4**************** 

0809 

REF 

6 

LAST 

1438 

16,3552 

55' 742 

0 

SELECTYZ  TS 

NUMBERT 

0810 

REF 

2 

LAST 

1434 

16,3553 

l 3533 

0 

TCF 

SELECTP  +1 

001  1 

REF 

1 

16,3554 

1 2777 

0 

- 1 TCF 

ABORTYZ  +2 

0812 

16,3555 

00252 

1 

JETSALL  OCT 

00252 

0813 

16,3556 

00125 

1 

OCT 

00125  +P 

0814 

16,3557 

CC  140 

1 

OCT 

00140  -Y 

0815 

16,3560 

00006 

1 

OCT 

00006  -Z 

0816 

16,3561 

C0220 

1 

OCT 

00220  +Y 

0817 

16,3562 

00011 

L 

OCT 

OOOll  +Z 

081  8 

16,3563 

OC  151 

1 

OCT 

00151  +V 

0819 

16,3564 

OC  146 

1 

TYPEP  OCT 

00146  -U 

0820 

16,3565 

00226 

1 

OCT 

00226  -V 

082  1 

16,3566 

0C231 

l 

OCT 

00231  +U 

0822 

16,3567 

CO  15  1 

1 

OCT 

00151  +V 

0 82  3 

16,3570 

OC  132 

1 

OCT 

00132  1-3 

0824 

16,3571 

00245 

1 

OCT 

00245  2-4 

0825 

16, 3572 

00377 

1 

OCT 

00377  ALL 

0826 

REF 

2 

LAST 

1435 

16,3573 

INDXYZ 

— 136MST  6 

082  7 

16,3573 

77445 

1 

-136MST6  DEC 

-218 

0828 

16,3574 

OC004 

0 

DEC 

4 

0829 

l o , 35  75 

00002 

0 

DEC 

2 

0830 

16, 3576 

0 7 776 

0 

OCT 

07776 

0831 

1 o , 3 5 77 

00005 

1 

DEC 

5 

0832 

16,3600 

00C1  1 

1 

DEC 

9 

0833 

16,3601 

0C012 

1 

DEC 

10 

0 83  4 

16,3602 

C 7 776 

0 

OCT 

07776 

0835 

16,3603 

00003 

l 

DEC 

3 

GAP: 

L 

0836 

0837 

0838 

0839 

0840 

0841 

0842 

0843 

0844 

R0845 

0846 

0847 

0848 

0849 

0850 

085  l 

0852 

0853 

0854 

A085  5 

0 35  6 

0857 

0858 

0859 

0860 

0861 

0 86  2 

0863 

0864 

0865 

0866 

0 86  7 

0868 

0868 
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16,3604 

00C10 

0 

DEC 

8 

16,3605 

0C007 

0 

DEC 

7 

16, 3606 

07776 

0 

OCT 

07776 

THESE  INDEXES  OF  MASK  JETSALL  WILL 

16,3607 

C 7 7 76 

0 

OCT 

07776 

CHANGE  THE  INSTRUCTION  AT  SELECTP  +4 

16,3610 

C 7 776 

0 

OCT 

07776 

TO  BE  TC  JETSALL  -1 

16,3611 

C 7 776 

0 

OCT 

07776 

ONLY  USED  FOR  TRANSLATION  FAILURE 

16,3612 

07776 

0 

OCT 

07776 

16,3613 

00360 

1 

+ 150MST6 

DEC 

240 

16,3614 

0 7 400 

1 

U7400QCT 

OCT 

07400 

T-JET 

LAW  FIX 

ED  CONSTANTS 

16,3615 

00266 

0 

NORM  SCL 

OCT 

266 

16,3616 

74631 

0 

-100 MS 

DEC 

- .1 

16,3617 

06315 

0 

200MS 

DEC 

.2 

REF 

5 

LAST 

963 

7737 

25/32 

= 

PRI031 

(DEC  .78125) 

16,3620 

00600 

1 

B I TS  3 , 9 

OCTAL 

00600 

16,3621 

CC  632 

0 

1 /40 

DEC 

. 02500 

16,3622 

77751 

1 

MINT IMES 

DEC 

-22 

16,3623 

00026 

0 

DEC 

22 

REF 

2 

LAST 

1426 

16,3624 

02  740 

0 

PSKIPAOR 

GENADR 

SKIPPAXS 

GOES  TO  Q.R-AXES  RCS  AUTOPILOT 

REF 

8 

LAST 

1405 

16,3625 

4 1 644 

1 

QRAX1S 

CS 

OMEGARD 

REF 

1 1 

LAST 

1425 

16,3626 

6 1423 

0 

AD 

OMEGAR 

REF 

n 

LAST 

1433 

16,3627 

0 2314 

0 

TC 

OVERSUB 

REF 

2 

LAST 

135 

16,3630 

55*437 

1 

TS 

EDOTR 

REF 

9 

LAST 

1405 

16,3631 

4 1643 

0 

CS 

OMEGAQD 

REF 

18 

LAST 

1424 

16,3632 

6 1422 

1 

AD 

OMEGAQ 

REF 

12 

LAST 

1439 

16, 3633 

0 2314 

0 

TC 

OVERSUB 

REF 

3 

LAST 

135 

16,3634 

55 1 436 

0 

TS 

E DOT  Q 

16,3635 

0 0006 

1 

EXTEND 

REF 

1 

16, 3636 

3 3641 

1 

DC  A 

QERRCALL 

16,3637 

52  006 

0 

DTCB 

REF 

22 

LAST 

1425 

E6 , 1536 

EBANK= 

AOSQ 

REF 

1 

16,3640 

02124 

1 

QERRCALL 

2C  ADR 

C ALL  QERR 

REF 

1 

16, 3641 

36  106 

0 
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L 

0 , R- 

AXES 

RCS  AUTOPILOT 

USER'S  PAGE  NO.  1 

EO  S4 

0001 

17,2124 

BANK 

17 

0002 

REF 

3 

LAST 

1402 

17,2000 

SETLOC 

0APS2 

000  3 

17,2124 

BANK 

0004 

REF 

28 

LAST 

1436 

E6, 1634 

EBANK= 

CDUXD 

000  5 

REF 

1 

COUNT  * 

$ S/DAPQR 

R0006 

00061 

REF 

50 

LAST 

143  1 

17,2124 

3 

4730 

1 

CALLQERR 

CA 

B I T 1 3 

CALCULATE  Q,R  ERRORS  UNLESS 

THFSE  AXES 

00062 

17,2125 

0 

0006 

1 

EXTEND 

ARE  IN  MANUAL  RATE  COMMAND. 

00063 

REF 

16 

LAST 

1431 

17,2126 

02 

031 

1 

RAND 

CHAN31 

00064 

REF 

486 

LAST 

1438 

17,2127 

1C 

000 

0 

CCS 

A 

00065 

17,2130 

1 

2135 

0 

TCF 

+ 5 

IN  AUTO  COMPUTE  Q , R ERRORS 

0007 

REF 

48 

LAST 

1436 

17,2131 

4 

C 1 1 1 

1 

CS 

DAPBOOLS 

IN  MANUAL  RATE  COMMAND? 

00071 

REF 

5 

LAST 

1432 

17,2132 

7 

4731 

1 

MASK 

OURRCBIT 

00072 

17, 2133 

0 

0006 

1 

EXTEND 

00073 

REF 

l 

17,2134 

1 

2136 

0 

BZF 

Q.RORGTS 

IF  SO  BYPASS  CALCULATION  OF 

ERRORS. 

000  7 4 

REF 

2 

LAST 

1410 

17,2135 

0 

2655 

0 

TC 

QERRCALC 

R000  8 

000  9 

REF 

2 

LAST 

1409 

17,2136 

l L 

'630 

l 

Q.RORGTS 

CCS 

COTROLER 

CHOOSE  CONTROL  SYSTEM  FOR  THIS  DAP  PASS 

0010 

REF 

1 

17,2137 

1 

2636 

1 

TCF 

GOTOGTS 

GTS  (ALTERNATES  WITH  PCS 

WHEN  DOCKED) 

001  1 

REF 

1 

17,2  140 

1 

2623 

0 

TCF 

TRYGTS 

GTS  IF  ALLOWED,  OTHERWISE 

RCS 

0012 

REF 

296 

LAST 

1436 

17,2141 

3 

4746 

0 

RCS 

CAF 

ZERO 

RCS  (TRYGTS  MAY  BRANCH  TO 

HERF) 

0013 

REF 

3 

LAST 

1440 

17,2142 

55 

' 630 

1 

TS 

COTROLER 

0014 

REF 

4 

LAST 

1439 

17,2143 

53 

'437 

1 

DXCH 

E DOT  Q 

0015 

REF 

1 

17,2144 

0 

3200 

0 

TC 

ROT-TOUV 

001  6 

REF 

1 1 

LAST 

1422 

17,2145 

53 

'427 

0 

DXCH 

OMEGAU 

AOOI  7 


TRANSLAT ION: 


A0018 
AGO  1 9 
A0020 
A002  1 


INPUT:  BITS  7,8  OF  CH31  (TRANSLATION  CONTROLLER) 

ULLAGER 

APSFLAG,  DRIFTBIT 
ACC40R2X,  AORBTRAN 


A002  2 
A9023 


OUTPUT : 


NEXTU , NEXTV 
SENSETYP 


CODES  OF  TRANSLATION  FOR  AFTER  ROTATION 
TFLL  ROTATION  DIRECTION  AND  DESIRE 


R002  4 

X-TRANS 

POLICIES  ARE  EITHER  4 

JETS  OR 

A DIAGONAL 

PAIR. 

IN  2-JET  TRANSLATION  THE  SYSTEM  IS 

SPECIFIED.  A 

FAILURE 

R0026 

WILL 

OVERRIDE 

THIS 

SPECIF ICAT 

ION.  AN 

ALARM  RESULTS  WHEN 

1 NO  POLICY  IS  AVAILABLE  BECAUSE  OF 

FA  I LURES . 

002  8 

REF 

37 

LAST 

1427 

17,2146 

3 4736 

1 SENSEGET 

CA 

BIT7  INPUT  BITS  OVERRIDE 

THE  INTFRNAL 

BITS 

002  9 

17,2147 

0 0006 

1 

EXTEND 

SENSETYP  WILL  NOT  OPPOSE  ANYTRANS 

0030 

REF 

17 

LAST 

1440 

17,2150 

02  031 

1 

RAND 

CHAN31 

0031 

17,2151 

0 C006 

1 

EXTEND 

0032 

REF 

l 

17,2152 

l 2200 

0 

BZF 

+XORULGE 

GAP:  ASSEMBLE  REVISION  210  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L O.R-AXES  RCS  AUTOPILOT 


0033 

REF 

46 

LAST 

1363 

17, 2153 

3 

4735 

1 

CA 

8 I T 8 

0034 

17,2154 

0 

0006 

1 

EXTEND 

0035 

REF 

18 

LAST 

1440 

17,2155 

02 

031 

1 

RAND 

CHAN31 

0036 

17,2156 

0 

0006 

1 

EXTEND 

0037 

REF 

1 

17,2157 

1 

2201 

1 

BZF 

-XTRANS 

003  0 

REF 

3 

LAST 

738 

17,2160 

3 

4737 

0 

CA 

ULLAGER 

0039 

REF 

49 

LAST 

1440 

17,2161 

7 

0111 

1 

MASK 

DAP800LS 

004  0 

REF 

487 

LAST 

1440 

17,2162 

1 C 

000 

0 

CCS 

A 

004  1 

REF 

2 

LAST 

1440 

17,2163 

1 

2200 

0 

TCF 

+XORULGE 

0042 

REF 

4 

LAST 

1411 

17,2164 

55 

'4  73 

1 

TS 

NEXTU 

004  3 

REF 

4 

LAST 

1411 

17,2165 

55 

'4  74 

0 

TS 

NEXTV 

0047 

REF 

50 

LAST 

1441 

17,2  lo6 

4 

0111 

1 

CS 

DAPBOOLS 

004  8 

REF 

4 

LAST 

1425 

17,2167 

7 

4735 

0 

MASK 

DR  IFTBI  T 

0049 

17,2170 

0 

0006 

1 

EXTEND 

0050 

REF 

1 

17,2171 

1 

2 176 

1 

BZF 

TSENSE 

005  1 

RFF 

34 

LAST 

1429 

17, 2172 

3 

C 1 06 

0 

CA 

FLGWRD10 

0052 

REF 

14 

LAST 

866 

17,2173 

7 

4730 

0 

MASK 

APSFLBI T 

0053 

REF 

488 

LAST 

1441 

17,2174 

1C 

000 

0 

CCS 

A 

0054 

REF 

S3 

LAST 

1434 

17,2175 

3 

4743 

0 

CAF 

TWO 

0055 

REF 

2 

LAST 

1436 

17,2176 

55 

' 500 

1 

TSENSE 

TS 

S ENSETYP 

005  6 

REF 

1 

17,2177 

1 

2232 

1 

TCF 

QRCONTRL 

0057 

REF 

147 

L AST 

1436 

17,2200 

3 

4744 

1 

+XORULGE 

CAF 

ONE 

0058 

REF 

38 

LAST 

1434 

17,2201 

6 

4742 

1 

-XTRANS 

AD 

FOUR 

0059 

REF 

7 

LAST 

1438 

17, 2202 

55 

• 743 

1 

TS 

ROT  I NOE  X 

0060 

REF 

8 

LAST 

1390 

17,2203 

6 

7 766 

1 

AD 

MEG  3 

0060  1 

REF 

3 

LAST 

1441 

17,2204 

55 

• 500 

1 

TS 

SENSETYP 

006  1 

REF 

51 

LAST 

1441 

17,2205 

3 

0111 

0 

CA 

OAPBOCLS 

0062 

REF 

2 

LAST 

306 

1 7, 2206 

7 

4732 

1 

MASK 

ACC40R2  X 

0063 

REF 

489 

LAST 

144  1 

17, 2207 

1C 

COO 

0 

CCS 

A 

0064 

REF 

1 

17,2210 

1 

2352 

0 

TCF 

TRANS4 

0065 

REF 

52 

LAST 

1441 

17,2211 

3 

cm 

0 

CA 

DAPBOOLS 

0066 

REF 

1 

17,2212 

7 

4733 

0 

MASK 

AORBTRAN 

006  7 

REF 

4 SO 

LAST 

144  1 

17,2213 

10 

000 

0 

CCS 

A 

0068 

REF 

148 

LAST 

1441 

17,2214 

3 

4744 

1 

CA 

ONE 

0069 

REF 

S4 

LAST 

1441 

17,2215 

6 

4743 

0 

AD 

TWO 

0070 

REF 

7 

LAST 

1438 

17,2216 

55 

' 742 

0 

T SNUMBRT 

TS 

NUMBERT 

0071 

REF 

1 

17,2217 

0 

3225 

1 

TC 

SELCTSUB 

0072 

REF 

4 

LAST 

1438 

17,2220 

1 L 

' 740 

1 

CCS 

POLYTEMP 

0073 

17,2221 

1 

2224 

0 

TCF 

+ 3 

0074 

REF 

49 

LAST 

1438 

17,2222 

0 

5571 

1 

TC 

ALARM 

0075 

17,2223 

02002 

1 

OCT 

02002 

0076 

REF 

3 

LAST 

1402 

17, 2224 

3 

5770 

l 

CA 

003140CT 

0077 

REF 

5 

LAST 

144  1 

17,2225 

7 

1 740 

l 

MASK 

POLYTEMP 

0078 

REF 

5 

LAST 

1441 

17,2226 

55 

'473 

1 

TSNEXTS 

TS 

NEXTU 

17: 11  MAR.  19, 1971  LMDAP 
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STORE  NULL  TRANSLATION  POLICIES 
BURNING  OR  DRIFTING? 

DPS  (INCLUDING  DOCKED)  OR  APS? 
FAVOR  +X  JETS  DURING  AN  APS  BURN. 


FAVOR  APPROPRIATE  JETS  DURING  TRANS. 


THREE  FOR  B 

TWO  FOR  A SYSTEM  2 JET  X TRANS 


GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  202U12-161 


l o » r- axes  rcs  autopilot 


0079 

REF 

A 

LAST 

1441 

17,2227 

0080 

REF 

6 

LAST 

14ft  1 

17,2230 

008  l 

REE 

5 

LAST 

Iftftl 

17,223  l 

A0082 


A008  3 


A00B5 

A0086 

A0087 


0088 

REF 

51 

LAST 

144  0 

17, 2232 

0089 

17,2233 

0090 

REF 

19 

LAST 

Iftftl 

17,2234 

009  1 

REF 

491 

LAST 

Iftft  1 

17,2235 

0092 

REF 

1 

17,2236 

0093 

REF 

3 

LAST 

1428 

17,2237 

009ft 

REF 

53 

LAST 

Iftftl 

17,2240 

0095 

17,2241 

0096 

REF 

1 

17,2242 

R 009  7 

MINIMUM 

IMPULSE  MODE 

0098 

17,2243 

009  9 

REF 

60 

LAST 

1436 

17,2244 

0100 

REF 

11 

LAST 

1431 

17, 2245 

0101 

REF 

2 S 7 

LAST 

1440 

17,2246 

0102 

REF 

3 

LAST 

1413 

17,2247 

0103 

REF 

3 

LAST 

1ft  13 

17,2250 

010ft 

17,2251 

0105 

17,2252 

0106 

REF 

20 

LAST 

144  2 

17,2253 

0107 

REF 

1 

17,2254 

010  8 

REF 

2 

LAST 

1409 

17, 2255 

0109 

REF 

1 

17,2256 

0110 

REF 

2 

LAST 

1442 

17,2257 

0111 

REF 

65 

LAST 

1430 

17,2260 

0112 

17,2261 

0113 

REF 

l 

17,2262 

Oil  A 

REF 

3 

LAST 

1442 

17,2263 

0115 

REF 

53 

LAST 

1416 

17,2264 

0116 

17,2265 

0117 

REF 

1 

17,2266 

0118 

REF 

ft 

LAST 

1442 

17,2267 

0119 

REF 

50 

LAST 

1409 

17, 2270 

4 

5770 

0 

cs 

00314GCT 

7 

1740 

1 

MASK 

POLYTEMP 

55 

■4  74 

0 

TS 

NEXTV 

Q ,R- AXES 

RCS  CONTROL  MODE 

SWITCHES 

BI T13/CHAN31 

PULSES 

(OTHERWISE  1 

3 

4730 

1 

QRCONTRL 

CA 

8IT13 

0 

0C06 

1 

EXTEND 

02 

031 

l 

RAND 

CHAN31 

10 

000 

0 

CCS 

A 

1 

2710 

1 

TCF 

ATTSTEER 

3 

4726 

0 

C HKB I T 1 0 

CAF 

PULSES 

7 

cm 

1 

MASK 

DAPBOOLS 

0 

0006 

1 

EXTEND 

1 

2354 

0 

BZF 

CHEKST IK 

0 0 C04 

0 

INHINT 

0 4665 

0 

TC 

I BNKC ALL 

40154 

0 

CADR 

ZATTEROR 

3 4746 

0 

CA 

ZERO 

55 ' 450 

0 

TS 

QERROP 

55 ' 452 

1 

TS 

RERROR 

0 0003 

1 

REL  INT 

0 0006 

1 

EXTEND 

00  031 

0 

READ 

CHAN31 

55' 736 

0 

TS 

TEMP31 

11*461 

l 

CCS 

OLDQRMIN 

l 2300 

1 

TCF 

CHECKIN 

3 1736 

1 FIREQR 

CA 

TEMP31 

7 4744 

0 

MASK 

B I T 1 

0 0006 

1 

EXTEND 

l 2304 

0 

BZF 

+ QMIN 

3 1736 

l 

CA 

TEMP  3 1 

7 4743 

1 

MASK 

B IT2 

0 0006 

l 

EXTEND 

1 2310 

0 

BZF 

-QMIN 

3 1736 

1 

CA 

TEMP31 

7 4740 

1 

MASK 

BIT5 

17: 1 1 MAR.  19, 1971  LMDAP 
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USER'S  PAGE  NO.  3 


Eft  S4 


SELECTION 

INDICATION  WHEN  SET 

AUTO,  GO  TO  ATTSTEER 
MINIMUM  IMPULSE  MODE 
RATE  COMMAND/ATT ITUDE  HOLD  MODE 

CHECK  MODE  SFLECT  SWITCH. 

BITS  INVERTED 

PULSES  = 1 FDR  MIN  IMP  USE  OF  RHC 
IN  ATT-HOLD/RATE-COMMAND  IE  RIT10=0 


FOR  DISPLAYS 


IS  EQUAL  TO  DAPTEMP 1 


GAP:  ASSEMBLE  REVISION  210  CF  AGO  PROGRAM  LUMINARY  BY 


Q,R- 

-AXES 

RCS  , 

AUTOPILOT 

0120 

17,2271 

0 

0006 

1 

012  1 

REE 

1 

17,2272 

1 

2314 

1 

0122 

REF 

5 

LAST 

1AA2 

17,2273 

3 

1736 

l 

0123 

REF 

t 2 

LAST 

1A 1 6 

1 7, 2274 

7 

4737 

1 

0 12  A 

17,2275 

0 

0006 

1 

0125 

REF 

l 

17,2276 

1 

2316 

0 

0126 

REE 

1 

17,2277 

1 

3 112 

1 

0127 

REF 

6 

LAST 

l AA3 

17,2300 

4 

1736 

0 

CHECK  I 

0128 

REF 

l 

17,2301 

7 

2351 

0 

0129 

REF 

3 

LAST 

1AA2 

1 7, 2302 

55 

'461 

1 

0130 

REF 

2 

LAST 

1443 

17,2303 

1 

3 112 

1 

0131 

REF 

1 

17,2304 

3 

3 136 

0 

+ QMIN 

013? 

REF 

3 

LAST 

1409 

1 7,2305 

55 

' 525 

0 

0133 

. REF 

2 

LAST 

1AA3 

17,2306 

4 

3 136 

1 

0 13  A 

REF 

1 

17,2307 

1 

2320 

0 

0135 

REF 

3 

LAST 

1 AA  3 

17,2310 

4 

3136 

1 

-QM  IN 

0136 

REF 

A 

LAST 

1 AA3 

17,2311 

55 

• 525 

0 

0137 

REF 

A 

LAST 

1 A A 3 

17,2312 

3 

3136 

0 

0138 

REF 

2 

LAST 

1443 

17,2313 

1 

2320 

0 

0139 

REF 

5 

LAST 

1 AA3 

17,2314 

3 

3136 

0 

♦ RMIN 

01A0 

17,2315 

I 

2317 

1 

01A  1 

REF 

6 

LAST 

1 AA3 

17,2316 

4 

3 136 

1 

-RMIN 

0 1A2 

REF 

5 

LAST 

1 AA3 

17,2317 

55 

' 525 

0 

0 1A  3 

REF 

2 

LAST 

1409 

17,2320 

55 

' 526 

0 

MINOR 

01AA 

REF 

1 

17,2321 

3 

2350 

0 

0 l A 5 

REF 

1 

17,232? 

55 

'477 

0 

0 1A6 

REF 

l A9 

LAST 

1 AA  1 

17,2323 

3 

4744 

1 

0 1A  7 

REF 

A 

LAST 

1 AA3 

17,2324 

55 

•461 

1 

0 1 A 8 

REF 

3 

LAST 

1436 

17,2325 

55 

' 505 

1 

MINRTN 

0 1A9 

REF 

5A 

LAST 

14  42 

17,2326 

3 

0111 

0 

0150 

REF 

9 

LAST 

1436 

17,2327 

7 

4730 

0 

0151 

1 7,2330 

0 

0006 

1 

0152 

REF 

1 

17,2331 

1 

2341 

1 

0153 

REF 

A 

LAST 

1443 

17,2332 

51 

' 505 

0 

0 15  A 

REF 

6 

LAST 

144  3 

17,2333 

11 

• 525 

0 

0155 

REF 

1 

17,2334 

3 

4767 

0 

0156 

17,2335 

1 

2337 

0 

0157 

REF 

2 

LAST 

1443 

17,2336 

4 

4767 

1 

0158 

REF 

5 

LAST 

144  3 

17,2337 

51 

' 505 

0 

0159 

REF 

7 

LAST 

1443 

17,2340 

55 

' 525 

0 

0160 

REF 

55 

LAST 

1443 

17,2341 

3 

0 1 1 l 

0 

MIMRET 

0161 

REF 

2 

LAST 

1441 

17,2342 

7 

4733 

0 

0162 

REF 

4S2 

LAST 

144  2 

17,2343 

1C 

000 

0 

0163 

REF 

150 

LAST 

1443 

17,2344 

3 

4 744 

1 

0 1 6 A 

REF 

95 

LAST 

1441 

17,2345 

6 

4 743 

0 

0165 

REF 

8 

LAST 

144  1 

17,2346 

55 

' 742 

0 

20211 12-161 

17:  1 1 MAR.  19, 1971 

LMDAP 

.032  PAGE  1443 

USER'S  PAGE 

NO.  4 

E6  S4 

EXTEND 

BZF  + RMIN 

CA  TEMP  3 1 

MASK  BIT6 

EXTEND 

BZF  -RMIN 

TCF  XTRANS 

CS  TEMP31 

MASK  0CT63 

TS  OLDQRMIN 

TCF  XTRANS 

CA  14MS 

TS  T JU 

CS  1 AMS 

TCF  MINOR 

CS  1 AMS 

TS  T JU 

CA  l AMS 

TCF  MINOR 

CA  1 AMS 

TCF  +2 

CS  1 AMS 

TS  T JU 

TS  TJV 

CA  MINADR 

TS  RETJADR 

CA  ONE 

TS  OLDQRMIN 

TS  AXISCTR 

CA  DAPBOOLS 

MASK  C SMDOCKD 

EXTEND 

BZF  MIMRET 

INDEX  AXISCTR  IF  DOCKED, USE  60MS  MINIMUM  IMPULSE 

CCS  T JU 

CA  60MS 

TCF  +2 

CS  60MS 

INDEX  AXISCTR 

TS  T JU 

CA  DAPBOOLS 

MASK  AORBTRAN 

CCS  A 

CA  ONE 

AD  TWO 

TS  NUMBERT 


GAP:  ASSEM8L  E REVISION  210  CE  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L Q » R- A XES  RCS  AUTOPILOT 


0166 

REF 

1 

17.23A7 

1 2756 

0 

TCF 

AFTERTJ 

0167 

REF 

2 

LAST 

269 

A767 

6 OMS 

= 

0CT1A0 

0168 

REF 

1 

17,2350 

02325 

i 

M INAUR 

GENADR 

M INRTN 

0169 

17,2351 

00063 

1 

0CT63 

OCT 

63 

0170 

REF 

L 

17,3136 

1 AMS 

= 

+TJMINT6 

0171 

REF 

39 

LAST 

1AA1 

17,2352 

3 A 7A2 

1 

TRANSA 

CA 

FOUR 

0172 

REF 

1 

17,2353 

1 2216 

1 

TCF 

TSNUMBRT 

AO  17  3 

RATE  COMMAND  MODE: 

AO  1 7 A 

DESCRIPTION  (SAME  AS  P-AXIS) 

0175 

REF 

2 

LAST 

1 A09 

17.235A 

55*632 

0 

CHEKSTIK 

TS 

INGTS 

0176 

REF 

151 

LAST 

1 AA  3 

17,2355 

A A 7AA 

0 

cs 

ONE 

0177 

REF 

4 

LAST 

1AA0 

17,2356 

55' 630 

l 

TS 

COTROLER 

0178 

REF 

53 

LAST 

l A30 

1 7, 2357 

3 A 726 

0 

CA 

8 I T 1 5 

0179 

REF 

2 

LAST 

1 A3  0 

17,2360 

7 1 A A3 

1 

MASK 

CH31TFMP 

0180 

17,2361 

0 C006 

1 

EXTEND 

0181 

REF 

1 

17,2362 

1 2377 

1 

BZF 

RHCACTIV 

0182 

REF 

6 

LAST 

1 AAO 

17, 2363 

3 A 731 

0 

CA 

OURRCBIT 

0183 

REF 

56 

LAST 

1 AA  3 

17.236A 

7 0111 

t 

MASK 

DAPBOOLS 

0 18  A 

1 7 , 2 365 

0 0006 

1 

EXTEND 

0185 

REF 

l 

17,2366 

1 2/10 

1 

BZF 

STILLRCS 

0186 

REF 

35 

LAST 

1A32 

17, 2367 

A A 7 3A 

1 

CS 

B IT9 

0187 

REF 

A 1 

LAST 

1 A3  5 

17,2370 

7 1 7 7 A 

0 

MASK 

RCSFLAGS 

0188 

REF 

A2 

LAST 

1 AAA 

17,2371 

55' 77A 

0 

TS 

RCSFL AGS 

0189 

REF 

1 

17,2372 

1 237A 

l 

TCF 

DAMPING 

0190 

REF 

7 

LAST 

1 A30 

A 762 

AOCYCL 

= 

0CT50 

0191 

REF 

66 

LAST 

1 AA2 

A 7AA 

1/10S 

= 

B IT1 

0192 

17,2373 

00056 

1 

L INRAT 

DEC 

A 6 

RO 193 

0 19  A 

REF 

298 

LAST 

1 AA  2 

17, 237A 

3 A7A6 

0 

DAMP  ING 

CA 

ZERO 

0195 

REF 

2 

LAST 

1 A 3 1 

17,2375 

55 ' A62 

1 

TS 

SAVEHAND 

0196 

REF 

3 

LAST 

1 AAA 

17,2376 

5 5 ' A 63 

0 

TS 

SAVEHAND  *1 

019  7 

REF 

A 

LAST 

1 AAA 

17,2377 

L 1 ' A 62 

1 

RHCACTIV 

CCS 

SAVEHAND 

0198 

17,2  AOO 

1 2 A03 

0 

TCF 

+ 3 

0199 

1 7 , 2 AO  1 

1 2 A03 

0 

TCF 

*2 

0200 

17.2A02 

1 2 A03 

0 

TCF 

+ 1 

020  1 

17,2  A03 

6 0000 

1 

DOUBLE 

0202 

17, 2A0A 

6 0000 

L 

DOUBLE 

0203 

REF 

1 

17.2A05 

6 2373 

l 

AD 

L INRAT 

020  A 

17.2A06 

0 0006 

1 

EXTEND 

020  5 

REF 

5 

LAST 

1 AAA 

17, 2 AO  7 

7 1 A62 

L 

MP 

SAVEHAND 

0206 

REF 

295 

LAST 

1 A3  5 

L 7 , 2 A 1 0 

3 0001 

0 

CA 

L 

020  7 

1 7 , 2 A 1 1 

0 0006 

1 

EXTEND 

0203 

REF 

7 

LAST 

1 A3  2 

17.2AL2 

7 1 AAA 

0 

MP 

STIKSENS 

0209 

REF 

3 

LAST 

1 A3  1 

1 7 , 2 A 1 3 

57' A55 

l 

XCH 

QLAST 

0210 

17, 2A1A 

A COOO 

0 

COM 

17:11  MAR.  19,1971  LMOAP  .032  PAGE  1AAA 
USER'S  PAGE  NO.  5 E6  SA 


NOT  IN  GTS  WHEN  IN  ATT  HOLD 
1/ACCS  WILL  DO  THE  NULLING  DRIVES 
COME  BACK  TO  RCS  NEXT  TIME 


BRANCH  IE  OUT  OF  DETENT. 

**********  * 

*IN  DETENT*  CHECK  FOR  MANUAL  CONTROL 
***********  LAST  TIME. 


BIT  9 IS  0. 


******************* 

0 , R MANUAL  CONTROL  WC  = A*(B+|D|)*D 
******************* 

WHERE 


WC  = COMMANDED  ROTATIONAL  RATE 
A = QUADRATIC  SENSITIVITY  FACTOR 
B = L I NEAR/ QUADRATIC  SENSITIVITY 
I U | = ABS.  VALUE  OF  DEFLECTION 
D = HAND  CONTROLLER  DEFLECTION 


COMMAND  Q RATE 


SCALED  A5  DEG/SFC 


GAP: 

ASSEMBLE  REVISION  210 

OF  AGO  PROGRAM  LUMINARY  BY 

NASA  2021112-161 

17:11  MAR.  19,1971  LMDAP  .032  PAGE  1445 

L 

Q,R- 

AXES 

RCS  - 

AUTOPILOT 

USER*  S PAGE  NO.  6 E6  S4 

021 1 

REF 

4 

LAST 

1444 

17,2415 

6 

1455 

1 

AD 

QLAST 

0212 

REF 

5 

LAST 

1422 

17,2416 

55 

• ' 740 

1 

TS 

DAPTEMP3 

0213 

REF 

6 

LAST 

1444 

17,2417 

11 

'463 

0 

CCS 

S AVEHAND 

+ 1 

0 2 1 4 

17,2420 

L 

2423 

1 

TCF 

+ 3 

0215 

17,2421 

I 

2423 

1 

TCF 

+ 2 

0216 

17,2422 

1 

2423 

1 

TCF 

+ 1 

021  7 

17,2423 

6 

0000 

1 

DOUBLE 

0218 

17,2424 

6 

cooo 

1 

DOUBLE 

0219 

REF 

2 

LAST 

1444 

17,2425 

6 

2373 

1 

AD 

L INRAT 

0220 

17,2426 

0 

0006 

1 

EXTEND 

022  1 

REF 

7 

LAST 

1445 

17,2427 

7 

1463 

0 

MP 

S AVEHAND 

+ 1 

0222 

REF 

296 

LAST 

1444 

17,2430 

3 

0001 

0 

CA 

L 

0223 

17,2431 

0 

0006 

1 

EXTEND 

0224 

REF 

8 

LAST 

1444 

17,2432 

7 

1444 

0 

MP 

STIKSENS 

0225 

REF 

3 

LAST 

1431 

17,2433 

57 

' 456 

1 

XCH 

RLAST 

0226 

17,2434 

4 

COOO 

0 

COM 

0227 

REF 

4 

LAST 

1445 

17,2435 

6 

1456 

1 

AD 

RLAST 

0228 

REF 

3 

LAST 

138 

17,2436 

55 

' 741 

0 

TS 

DAPTEMP4 

022  9 

REF 

5 

LAST 

1445 

17,2437 

4 

1455 

0 

CS 

QLAST 

INTERVAL . 

0230 

REF 

19 

LAST 

1439 

17,2440 

6 

1422 

1 

AD 

OMEGAQ 

0231 

REF 

l 

17,2441 

55 

'436 

0 

TS 

QRATEDI F 

0232 

RFF 

5 

LAST 

1 44  5 

17,2442 

4 

1456 

0 

CS 

RLAST 

0233 

REF 

12 

LAST 

1439 

17,2443 

6 

1423 

0 

AD 

OMEGAR 

0234 

REF 

l 

17,2444 

55 

' 437 

1 

TS 

RRATEDI F 

023  5 

REF 

2 

LAST 

1445 

17,2445 

53 

' 437 

1 ENTERQR 

DXCH 

QRATEDI F 

TRANSFORM  RATES  FROM  Q,R  TO  U,V  AXES 

0236 

REF 

2 

LAST 

1440 

17,2446 

0 

3200 

0 

TC 

RCT-TOUV 

0237 

REF 

1 

17,2447 

53 

• 427 

0 

DXCH 

URATEDIF 

02371 

17,2450 

0 

0004 

0 

INHINT 

SET  AUTO  DESIRED  ATTITUDE  TO  ACTUAL 

02372 

REF 

6 l 

LAST 

1442 

17,2451 

0 

466  5 

0 

TC 

I BNKC  ALL 

ATTITUDE  AND  ZERO  AUTO  DESIRED  RATE 

02373 

REF 

12 

LAST 

1442 

17,2452 

40154 

0 

FC  ADR 

Z ATTEROR 

02374 

17,2453 

C 

0003 

1 

RELINT 

023  8 

REF 

6 

LAST 

1445 

17,2454 

11 

1 740 

1 

CCS 

DAPTEMP3 

CHECK  IF  Q COMMAND  CHANGE  EXCEEDS 

0239 

17,2455 

0 

2460 

1 

TC 

+ 3 

BREAKOUT  LEVEL.  IF  NOT,  CHECK  R. 

0240 

17,2456 

0 

2460 

1 

TC 

+ 2 

0241 

17,2457 

0 

2460 

1 

TC 

+ 1 

0242 

REF 

6 

LAST 

1432 

17,2460 

6 

1476 

0 

AD 

-RATEDB 

0243 

17,2461 

0 

0006 

1 

EXTEND 

0244 

17,2462 

6 

2464 

0 

BZMF 

+ 2 

0245 

REF 

1 

17,2463 

1 

2502 

0 

TCF 

ENTERUV  - 

2 

BREAKOUT  LEVEL  EXCEEDED.  DIRECT  RATE. 

0246 

REF 

4 

LAST 

144  5 

17,2464 

1 1 

• 741 

0 

CCS 

DAPTEMP4 

R COMMAND  BREAKOUT  CHECK. 

0247 

17,2465 

0 

2470 

0 

TC 

+ 3 

0248 

17,2466 

0 

2470 

0 

TC 

+ 2 

0249 

17,2467 

0 

2470 

0 

TC 

+ 1 

0250 

REF 

7 

LAST 

144  5 

17,2470 

6 

1476 

0 

AD 

-RATED8 

0251 

17,2471 

0 

0006 

1 

EXTEND 

0252 

17,2472 

6 

2474 

1 

BZMF 

+ 2 

0253 

REF 

2 

LAST 

144  5 

17,24  73 

1 

2502 

0 

TCF 

ENTERUV  - 

2 

BREAKOUT  LEVEL  EXCEEDEO.  OIRFCT  RATF. 

0254 

REF 

43 

LAST 

1444 

17,2474 

3 

1774 

1 

CA 

RCSFLAGS 

BREAKOUT  LEVEL  NOT  EXCEEDED.  CHECK  FOR 

0255 

REF 

2 

LAST 

1430 

17,2475 

7 

4732 

1 

MASK 

QRBIT 

DIRECT  RATE  CONTROL  LAST  TIME. 

0256 

17,2476 

0 

0006 

1 

EXTEND 

ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-L61 


GAP: 
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0257 

17,2477 

1 

2501 

0 

BZF 

+ 2 

0258 

REF 

3 

LAST 

L445 

17,2500 

1 

2504 

0 

TCF 

ENTERUV 

0259 

REF 

2 

LAST 

1444 

17,2501 

1 

2710 

1 

TCF 

STILLRCS 

0260 

REF 

1 

17,2502 

3 

4762 

0 

CA 

40CYCL 

026  1 

REF 

2 

LAST 

1420 

17,2503 

55 

•457 

1 

TS 

TCQR 

0266 

REF 

299 

LAST 

1444 

17,2504 

3 

4 746 

0 

ENTERUV 

CA 

ZERO 

0267 

REF 

6 

LAST 

1431 

17,2505 

55 

•450 

0 

TS 

DYERROR 

0268 

REF 

7 

LAST 

1446 

17,2506 

55 

•451 

1 

TS 

DYERROR  +1 

0269 

REF 

6 

LAST 

143  1 

17,2507 

55 

•452 

1 

TS 

DZERROR 

0270 

REF 

7 

LAST 

1446 

17,2510 

55 

' 453 

0 

TS 

DZERROR  +1 

027  1 

REF 

2 

LAST 

1445 

17,251  1 

11 

•426 

1 

CCS 

UR AT  ED I F 

0272 

17,2512 

1 

2515 

0 

TCF 

+ 3 

0273 

17,2513 

1 

2515 

0 

TCF 

+ 2 

0274 

17,2514 

l 

2515 

0 

TCF 

+ 1 

0275 

REF 

2 

LAST 

1433 

17,2515 

6 

1476 

0 

AD 

T ARGETDB 

0276 

17,2516 

0 

0006 

1 

EXTEND 

0277 

REF 

1 

17,2517 

6 

2533 

0 

BZMF 

VDB 

0278 

REF 

1 

17,2520 

11 

•427 

0 

CCS 

VRATEDI F 

0279 

17,2521 

1 

2524 

l 

TCF 

+ 3 

0280 

17,2522 

1 

2524 

1 

TCF 

+ 2 

0281 

1 7,2523 

1 

2524 

1 

TCF 

+ 1 

0282 

REF 

3 

LAST 

1446 

17,2524 

6 

1476 

0 

AD 

T ARGETDB 

0283 

17,2525 

0 

0006 

1 

EXTEND 

0284 

17,2526 

6 

2530 

0 

BZMF 

+ 2 

0285 

REF 

1 

17,2527 

1 

2544 

1 

TCF 

QRTIME 

0286 

REF 

3C0 

LAST 

144  6 

17,2530 

3 

4 746 

0 

CA 

ZERO 

0287 

REF 

2 

LAST 

1446 

1.7,2531 

55 

' 427 

0 

TS 

VRATEDIF 

0288 

REF 

2 

LAST 

1446 

17,2532 

1 

2 544 

1 

TCF 

QRTIME 

0289 

REF 

3 

LAST 

1446 

17,2533 

1 1 

•427 

0 

VDB 

CCS 

VRATEDI F 

0290 

17,2534 

0 

2537 

1 

TC 

+ 3 

029  1 

17,2535 

0 

2537 

1 

TC 

+ 2 

0292 

17,2536 

0 

2537 

1 

TC 

+ 1 

0293 

REF 

4 

LAST 

1446 

17,2537 

6 

1476 

0 

AD 

T ARGETDB 

0294 

17,2540 

0 

0006 

1 

EXTEND 

0295 

REF 

1 

17,2541 

6 

2553 

0 

BZMF 

TOPSEUDO 

0296 

REF 

3C1 

LAST 

1446 

17,2542 

3 

4746 

0 

CA 

ZERO 

0297 

REF 

3 

LAST 

1446 

1 7,2543 

55 

•426 

l 

TS 

URATEDI F 

0298 

REF 

3 

LAST 

1446 

17,2544 

3 

1457 

0 

QRTIME 

CA 

TCQR 

0299 

17,2545 

0 

0006 

1 

EXTEND 

0300 

17, 2546 

6 

2553 

0 

BZMF 

+ 5 

0301 

REF 

44 

LAST 

1445 

17,2547 

4 

1774 

0 

CS 

RCSFL AGS 

0302 

REF 

3 

LAST 

1445 

17, 2550 

7 

4 732 

1 

MASK 

QRRIT 

0303 

REF 

45 

LAST 

1446 

17,2551 

27 

• 7 74 

0 

ADS 

RCSFL AGS 

0304 

17,2552 

0 

2556 

0 

TC 

+■  4 

030  5 

REF 

4 

LAST 

1446 

1 7,2553 

4 

4 732 

1 

TOPSEUDO 

CS 

ORBIT 

0306 

REF 

46 

LAST 

1446 

17,2554 

7 

17  74 

0 

MASK 

RCSFLAGS 

0307 

REF 

47 

L AST 

1446 

17,2555 

55 

•7  74 

0 

TS 

RCSFL AGS 

0308 

REF 

l 

17,2556 

3 

2622 

0 

CA 

HANDAOR 

030  9 

REF 

2 

LAST 

144  3 

17,2557 

55 

•477 

0 

TS 

RETJAOR 

0310 

REF 

152 

LAST 

1444 

17,2560 

3 

4 744 

1 

CA 

ONE 
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CONTINUE  DIRECT  RATE  CONTROL. 
PSEUDO-AUTO  CONTROL. 

***  DIRECT  RATE  CONTROL  *** 


IF  TARGET  DB  IS  EXCEEDED,  CONTINUE 
DIRECT  RATE  CONTROL. 


IF  TARGET  DB  IS  EXCEEDED,  CONTINUF 
DIRECT  RATE  CONTROL.  IF  NOT,  FIRE  AND 
SWITCH  TO  PSEUDO-AUTO  CONTROL  ON  NFXT 
PASS. 

DIRECT  RATE  TIME  CHFCK. 

BRANCH  IF  TIME  EXCEEDS  4 SEC. 


RIT  11  IS  l. 


BIT  11  IS  0 
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031  1 

REF 

6 

LAST 

1443 

17,2561 

0312 

REF 

40 

LAST 

1444 

17,2562 

0313 

REF 

5 

LAST 

1443 

17,2563 

0314 

REF 

7 

LAST 

1447 

17,2564 

0315 

REF 

3 

LAST 

1410 

17,2565 

0316 

17,2566 

0317 

REF 

41 

LAST 

1447 

17,2567 

0318 

REF 

8 

LAST 

1447 

17,2570 

0319 

REF 

4 

LAST 

1447 

17,2571 

0320 

REF 

1 

17,2572 

032  1 

REF 

9 

LAST 

1447 

17,2573 

0322 

REF 

4 

LAST 

1446 

17,2574 

0323 

REF 

3C2 

LAST 

1446 

17,2575 

0324 

17,2576 

0325 

REF 

153 

LAST 

1446 

17, 2577 

0326 

REF 

10 

LAST 

1447 

17,2600 

0327 

REF 

1 

17,2601 

0328 

REF 

493 

LAST 

1443 

17,2602 

0329 

REF 

1 

17,2603 

0330 

17,2604 

033  1 

REF 

11 

LAST 

1447 

17,2605 

0332 

REF 

5 

LAST 

1447 

17,2606 

033  3 

REF 

4C4 

LAST 

1438 

17,2607 

0334 

REF 

4S4 

LAST 

1447 

17,2610 

0335 

REF 

4C5 

LAST 

1447 

17,2611 

0336 

REF 

4S5 

LAST 

1447 

17,2612 

0337 

17,2613 

0338 

REF 

406 

LAST 

1447 

17, 2614 

0339 

REF 

12 

LAST 

1447 

17,2615 

0340 

REF 

8 

LAST 

1443 

17,2616 

0341 

REF 

2 

LAST 

1444 

17,2617 

0342 

REF 

3C3 

LAST 

1447 

17,2620 

0343 

REF 

1 

17,2621 

0344 

REF 

1 

17,2622 

A 034  5 
A0346 
A0347 
A 034  8 


0349 

REF 

4 

LAST 

867 

17,2623 

035U 

REF 

57 

LAST 

1444 

17,2624 

0351 

REF 

4 S 6 

LAST 

144  7 

17,2625 

0352 

REF 

1 

17,2626 

0353 

REF 

2 

LAST 

1409 

17,2627 

55' 505 

l 

BACKHAND  TS 

AXISCTR 

3 4742 

1 

CA 

FOUR 

55' 742 

0 

TS 

NUMBERT 

51' 505 

0 

INDEX 

AXISCTR 

51 ' 534 

1 

INOEX 

SKIPU 

1 2567 

0 

TCF 

+ 1 

3 4742 

1 

CA 

FOUR 

51 ' 505 

0 

INDE  X 

AXISCTR 

55' 534 

0 

TS 

SKIPU 

1 3034 

1 

TCF 

LOOPER 

51*505 

0 

INOEX 

AXISCTR 

11 '426 

1 

CCS 

URATEDI F 

3 4746 

0 

CA 

ZERO 

1 2600 

1 

TCF 

+ 2 

3 4 744 

1 

CA 

ONE 

51 ' 505 

0 

INDEX 

AXISCTR 

6 3755 

0 

AD 

AXISDIFF 

50  000 

1 

INDEX 

A 

4 1570 

0 

CS 

1/ANET2  +1 

0 0006 

1 

FXTEND 

5 1505 

0 

INDEX 

AXISCTR 

7 1426 

1 

MP 

U RAT  ED  I F 

54  002 

1 

TS 

Q 

20  001 

1 

DAS 

A 

6 C002 

0 

AD 

Q 

54  000 

0 

TS 

A 

1 2615 

0 

TCF 

+ 2 

3 CC02 

0 

CA 

0 

51 ' 505 

0 

SETTIME  INDEX 

AXISCTR 

55*525 

0 

TS 

T JU 

l 2756 

0 

TCF 

AFTERTJ 

3 4 746 

0 

ZEROTJ  CA 

ZERO 

1 2615 

0 

TCF 

SETTIME 

02561 

1 

HANDADR  GENADR 

BACKHAND 

GTS  WILL  BE  TRIED  IF 

1.  USEOR JT  S = 

0, 

2.  ALLOWGT  S 

POS, 

3.  JETS  ARE 

OF  F I g , R- AX  E 

3 4727 

1 

TRYGTS  CAF 

USEORJTS 

7 0111 

1 

MASK 

DAPBOOLS 

10  000 

0 

CCS 

A 

1 2141 

0 

TCF 

RCS 

1 1 • 502 

0 

CCS 

ALLOWGT  S 
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INDEX 

AXIS 

QUANITY 

0 

-U 

1/ JETACC-AOSU 

1 

+U 

1/JETACC+AOSU 

16 

-V 

1/ JETACC-AOSV 

17 

+v 

1/ JETACC+AOSV 

JETACC  = 2 JET  ACCELERATION  (1  FOR  FAIL) 


UR  ATE  0 I F IS  SCALED  AT  PI/4  RAD/SEC 
JET  TIME  IN  A SCALEO  32  SEC 


OVERFLOW  SKIP 

RIGHT  SIGN  AND  BIGGER  THAN  150MS 
SCALED  AT  10.67  WHICH  IS  CLOSE  TO  10.24 


IS  JET  USE  MANDATORY.  (AS  LONG  AS 

USEORJTS  BIT  IS  NOT  BIT  15,  CCS  IS  SAFE) 


NO 


OOES  AOSTASK  OK  CONTROL  FOR  GTS? 
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0354 

17,2630 

1 2632 

0 

TCF 

+ 2 

0355 

REF 

2 

LAST 

1447 

17,2631 

1 2141 

0 

TCF 

RCS 

0356 

17, 2632 

0 0006 

1 

EXTEND 

0357 

REF 

6 

LAST 

1411 

17,2633 

00  005 

1 

READ 

CHAN5 

0358 

REF 

497 

LAST 

1447 

17,2634 

10  000 

0 

CCS. 

A 

0359 

REF 

1 

17, 2635 

1 2641 

1 

TCF 

CHKINGTS 

0 360 

17,2636 

0 0006 

1 

GOTOGTS 

EXTEND 

036  1 

REF 

1 

1 7, 2637 

3 2654 

1 

DC  A 

GTSCADR 

0362 

17,2640 

52  C 06 

0 

DTCB 

0363 

REF 

3 

LAST 

1444 

1 7,2  641 

11*632 

0 

CHKINGTS 

CCS 

I NGTS 

0364 

17,2642 

1 2644 

1 

TCF 

+ 2 

0365 

REF 

3 

LAST 

1448 

17,2643 

1 2141 

0 

TCF 

RCS 

0366 

17,2644 

0 0004 

0 

INHINT 

0367 

REF 

62 

LAST 

1445 

17,2645 

0 4665 

0 

TC 

I BNKC ALL 

0368 

REF 

1 

1 7,2646 

43260 

1 

CADR 

T IMEGMBL 

0369 

17,2647 

0 CC03 

1 

REL  INT 

0370 

REF 

3C4 

LAST 

1447 

17,2650 

3 4746 

0 

CAF 

ZERO 

037  1 

REF 

4 

LAST 

1448 

17,2651 

55*632 

0 

TS 

I NGTS 

0372 

REF 

4 

LAST 

1448 

17,2652 

l 2 141 

0 

TCF 

RCS 

0373 

REF 

29 

LAST 

1440 

E6, 1634 

EBANK= 

CDUXD 

0374 

REF 

1 

17,2653 

C 302  7 

1 

GTSCADR 

2CADR 

GTS 

0374 

REF 

1 

17, 2654 

42106 

0 
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WAS  THE  TRIM  GIMBAL  CONTROLLING 

YES.  SFT  UP  A DAMPED  NULLING  DRIVE. 
NO.  NULLING  WAS  SFT  UP  BEFORE.  DO  RCS 


GAP: 

L 

P0375 

0377 

0378 

0379 

0380 

0381 

0382 

0383 

038  A 

0385 

0386 

0387 

0388 

0389 

0390 

039  1 

• 0392 

0393 

0394 

0395 

0396 

0397 

0398 

0399 

0400 

0401 

0402 

040  3 
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SUBROUTINE  TO  COMPUTE  O.R-AXES  ATTITUDE  ERRORS  FOR  USE  IN  THE  RCS  AND  GTS  CONTROL  LAWS  AND  THE  DISPLAYS. 


REF 

17 

LAST 

1435 

17,2655 

30  033 

1 

0 ERR  CALC 

CAE 

C DU  Y 

Q-ERROR  CALCULATION 

17,2656 

0 0006 

1 

EXTEND 

REF 

12 

LAST 

1435 

17,2657 

21 • 635 

1 

MSU 

CDUYD 

CDU  ANGLE  - ANGLE  DESIRED  (Y-AXIS) 

REF 

27 

LAST 

1432 

17, 2660 

55' 736 

0 

TS 

DAPTEMP1 

SAVE  FOR  RERRCALC 

17,2661 

0 0006 

1 

EXTEND 

REF 

4 

LAST 

1422 

17,2662 

7 1415 

1 

MP 

M 2 1 

( C DUY— CDUYD ) * M2 1 SCALED  AT  PI  RADIANS 

REF 

4 

LAST 

1436 

17,2663 

55' 751 

1 

TS 

E 

REF 

20 

LAST 

1419 

17,2664 

30  034 

0 

CAE 

CDUZ 

SECOND  TERM  CALCULATION: 

17,2665 

0 0006 

1 

EXTEND 

REF 

10 

LAST 

1420 

17,2666 

21 ' 636 

1 

MSU 

CDUZD 

CDU  ANGLE  -ANGLE  DESIRED  (Z-AXIS) 

REF 

9 

LAST 

1425 

17,2667 

55*737 

1 

TS 

DAPTEMP2 

SAVE  FOR  RERRCALC 

17,2670 

0 0006 

1 

EXTEND 

REF 

10 

LAST 

1422 

17,2671 

7 1417 

0 

MP 

M 22 

(CDUZ-CDUZ0)*M22  SCALED  AT  PI  RADIANS 

REF 

3 

LAST 

1405 

17,2672 

6 1275 

0 

AD 

DELQEROR 

KALCMANU  INERFACE  ERROR 

REF 

5 

LAST 

1449 

17,2673 

6 1751 

0 

AD 

E 

REF 

4 

LAST 

144  2 

1 7,2  674 

57 ' 450 

1 

XCH 

QERROR 

SAVE  Q-FRROR  FOR  EIGHT-BALL  DISPLAY. 

REF 

28 

LAST 

1449 

17,2675 

31 ' 736 

1 

RERRCALC 

CAE 

DAPTEMP1 

R-ERROR  CALCULATION: 

17,2676 

0 0006 

1 

EXTEND 

CDU  ANGLE  -ANGLF  DESIRED  (Y-AXIS) 

REF 

4 

LAST 

1422 

17,2677 

7 1416 

1 

MP 

M3  1 

( CDUY— COUYO ) * M31  SCALED  AT  PI  RADIANS 

REF 

6 

LAST 

1449 

17,2  700 

55*751 

1 

TS 

E 

REF 

10 

LAST 

1449 

17,2701 

31  • 73  7 

0 

CAE 

DAPTFMP2 

SECOND  TFRM  CALCULATION: 

17, 2702 

0 0006 

1 

EXTEND 

CDU  ANGLE  -ANGLE  DESIRED  (Z-AXIS) 

REF 

8 

LAST 

1422 

l 7, 2703 

7 1420 

1 

MP 

M32 

( CDUZ  — CDU ZD  ) *M32  SCALED  AT  PI  RADIANS 

REF 

3 

LAS1 

1405 

17,2704 

6 1276 

0 

AD 

DELREROR 

KALCMANU  INERFACE  ERROR 

REF 

7 

LAST 

1449 

17,2705 

6 1751 

0 

AD 

E 

REF 

4 

LAST 

1442 

17,2706 

57*452 

0 

XCH 

RERROR 

SAVE  R-ERROR  FOR  FIGHT-BALL  DISPLAY. 

REF 

4C7 

LAST 

1447 

17,2707 

0 0002 

0 

TC 

Q 

GAP: 

L 

P0404 

0406 

040  7 

040  8 

0409 

0410 

041  1 

A0412 

A041  3 

0414 

041  5 

0416 

0417 

0418 

0419 

0420 

042  1 

042  2 

0423 

0424 

' 0425 

0426 

042  7 

042  8 

042  9 

043  0 

043  1 

0432 

043  3 

0434 

0435 

0436 

043  7 

0438 

0439 

044  0 

044  1 

044  2 

044  3 

0444 

044  5 

044  6 

A 044  7 

A0448 

A0449 
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Q.R-AXES  RCS  AUTOPILOT  USER'S  PAGE  NO.  11  E6  S4 

"ATTSTfcER"  IS  THE  ENTRY  POINT  FOR  Q.R-AXES  (U.V-AXES)  ATTITUOb  CONTROL  USING  THE  REACTION  CONTROL  SYSTEM 


REF 

3 

LAST 

1446 

17,2710 

ATTSTEER 

EQUALS 

STILLRCS 

"STILLRCS"  IS  THF  RCS  FXIT  FROM  TRYGTS . 

REF 

5 

LAST 

1449 

17,2710 

3 1452 

0 

STILLRCS 

CA 

R ERROR 

REF 

498 

LAST 

1448 

17,2711 

22  000 

1 

LXCH 

A 

REF 

5 

LAST 

1449 

17,2712 

3 1450 

1 

CA 

QERROR 

REF 

3 

LAST 

144  5 

17,2713 

0 3200 

0 

TC 

ROT-TOUV 

REF 

2 

LAST 

136 

17,2714 

53’ 751 

1 

DXCH 

UERROR 

PREPARES 

CALL  TO  TJETLAW 

(OR  S PSR C S ( DOCK E 0 ) ) 

PREFORMS 

SKIP  LOGIC  ON  U 

OR  Y AXIS  IF  NEEDED. 

REF 

1 

17,2715 

3 3142 

0 

TJLAW 

CA 

T JLAWADR 

REF 

3 

LAST 

1446 

17, 2716 

55' 477 

0 

TS 

RET JADR 

REF 

154 

LAST 

1447 

17,2717 

3 4 744 

1 

CA 

ONE 

REF 

13 

LAST 

1447 

17,2720 

55' 505 

l 

TS 

AXISCTR 

REF 

14 

LAST 

1450 

17,2721 

51 ' 505 

0 

INDEX 

AXISCTR 

REF 

5 

LAST 

1447 

17,2722 

51' 534 

1 

INDEX 

SKI  PU 

17,2723 

1 2724 

0 

TC  F 

+ 1 

REF 

42 

LAST 

1447 

17,2724 

3 4742 

1 

CA 

FOUR 

REF 

15 

LAST 

1450 

17,2725 

51 1 505 

0 

INDEX 

AXISCTR 

REF 

6 

LAST 

1450 

17,2726 

55' 534 

0 

TS 

SKIPU 

REF 

' 2 

LAST 

144  7 

17,2727 

1 3034 

l 

TC  F 

LOOPER 

REF 

16 

LAST 

1450 

17,2730 

51' 505 

0 

INDEX 

AXISCTR 

REF 

3 

LAST 

1450 

17,2731 

3 1750 

1 

CA 

UERROR 

REF 

0 

LAST 

1449 

17,2732 

55' 751 

1 

TS 

E 

REF 

17 

LAST 

1450 

17,2733 

51 ' 505 

0 

INDEX 

AXISCTR 

REF 

12 

LAST 

1440 

l 7,2734 

3 1426 

0 

CA 

OMEGAU 

REF 

2 

LAST 

135 

17,2735 

55*427 

0 

TS 

EDOT 

REF 

58 

LAST 

1447 

17, 2736 

3 cm 

0 

CA 

DAPBOOLS 

REF 

10 

LAST 

1443 

17,2737 

7 4730 

0 

MASK 

C SMDOCKD 

REF 

499 

LAST 

1450 

17,2740 

10  OOO 

0 

CCS 

A 

17,2741 

1 2 744 

0 

TCF 

+ 3 

REF 

2 

LAST 

1436 

17,2742 

0 3304 

0 

TC 

T JETLAW 

REF 

3 

LAST 

1447 

17,2743 

1 2756 

0 

TCF 

AFTERTJ 

REF 

59 

LAST 

1450 

1 7,2  744 

4 0111 

1 

+ 3 

CS 

DAPBOOLS 

DOCKED.  IF  GIMBAL  USABLE  DO  GTS  CONTROL 

REF 

5 

LAST 

1447 

17,2745 

7 4727 

0 

MASK 

USEQRJTS 

ON  THE  NEXT  PASS. 

REF 

500 

LAST 

1450 

17,2746 

10  000 

0 

CCS 

A 

USEQRJTS  BIT  MUST  NOT  BE  BIT  15. 

REF 

5 

LAST 

1444 

17,2747 

55 ' 630 

1 

TS 

COTROLER 

GIMBAL  USABLE.  STORE  POSITIVE  VALUE. 

17,2750 

0 0004 

0 

INHINT 

REF 

63 

LAST 

1448 

17,2751 

0 4665 

0 

TC 

I BNKCALL 

REF 

2 

LAST 

1436 

17,2752 

43667 

1 

CADR 

SPSRCS 

DETERMINE  RCS  CONTROL 

17,2753 

C 0003 

l 

RFL  INT 

REF 

43 

LAST 

1450 

17,2754 

3 4 742 

1 

CAF 

FOUR 

ALWAYS  CALL  FOR  2-JFT  CONTROL  ABOUT  U,V. 

REF 

10 

LAST 

1447 

17,2755 

55' 742 

0 

TS 

NUMBERT 

FALL  THROUGH  TO  JET  SELECTION,  ETC. 

Q.R-JET— SELECT  ION-LOGIC 


INPUT:  AXISCTR 
SNUFF8IT 


0,1  FOR  U,V 

ZERO  TJETU.V  AND  TRANS.  ONLY  IF  SET  IN  A DPS  BURN 


GAP : ASSEM8LE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  8Y  NASA  2021112-161 


17:11  MAR.  19,1971  LMDAP 


032  PAGE  1 A 5 1 


L 

0,R- 

AXES 

RCS 

AUTOPILOT 

USER' S PAGE  NO.  12  F6  S4 

A0450 

T J U , T J V 

JET  TIME  SCALEO  10.24  SEC. 

A045  1 

■ NUMBERT 

INDICATES  NUMBER  OF  JETS  AND  TYPE  OF  POLICY 

A0452 

RETJADR 

WHERE  TO  RETURN  TO 

AQ453 

OUTPUT:  NO.UtVIJETS  RATE  DERIVATION  FEEDBACK 

A0454 

CHANNEL  5 

A0455 

skipu,: 

SKIRV  FOR  LESS  THAN  150MS  FIRING 

A0456 

NGTES:  IN  CASE 

OF  FAILURE  IN  DESIRED  ROTATION  POLICY, "ALL"  UNFAILED 

A045  7 

JETS  OF 

THE  DESIRED  POLICY  ARE  SELFCTED.  SINCE  THERE  ARE  ONLY 

A0458 

TWO  JETS,  THIS  MEANS  THE  OTHER  ONE  OR  NONF.  THE  ALARM  IS  SENT 

A0459 

IF  NONE 

CAN  BE  FOUND. 

A0460 

TIMES  LESS  THAN  14  MSEC  ARE  TAKEN  TO  CALL  FOR  A SINGLE-JET 

A0461 

MINIMUM 

IMPULSE,  WITH  THE  JET  CHOSEN  SEM I -R ANOOML Y . 

046  2 

REF 

34 

LAST 

1435 

17,2756 

3 0101 

1 

AFTERTJ  CA 

F LAGWRD5  IF  SNUFFBIT  SET  DURING  A DPS  BURN  GO 

046  3 

REF 

1 

17,2757 

7 4 7 30 

0 

MASK 

SNUFF  BIT  XTRANS;  THAT  IS,  INHIBIT  CONTROL. 

0464 

17,2  760 

0 0006 

1 

EXTEND 

0465 

REF 

1 

17,2  761 

1 2772 

0 

BZF 

DOROTAT 

0466 

REF 

■ 35 

LAST 

1441 

17,2762 

4 0106 

1 

cs 

FLGWRD10 

■ 046  7 

REF 

15 

LAST 

1441 

17,2763 

7 4730 

0 

MASK 

APSFLBI  T 

046  8 

17,2764 

0 0006 

1 

EXTEND 

0469 

REF 

2 

LAST 

1451 

17,2765 

l 2772 

0 

BZF 

DOROTAT 

0470 

REF 

60 

LAST 

1450 

17,2766 

3 0111 

0 

CA 

DAPBOOLS 

0471 

REF 

5 

LAST 

1441 

17,2767 

7 4735 

0 

MASK 

DR  IFT  BIT  

0472 

1 7,2770 

0 0006 

1 

EXTEND 

0473 

REF 

3 

LAST 

1443 

17,2771 

1 3112 

1 

BZF 

XTRANS 

0474 

REF 

S6 

LAST 

1443 

17,2772 

3 4 743 

0 

DOROTAT  CAF 

TWO 

0475 

REF 

297 

LAST 

1445 

17,2773 

54  001 

1 

TS 

L 

0476 

REF 

18 

LAST 

1450 

17,2774 

51' 505 

0 

INDEX 

AXISCTR 

047  7 

REF 

9 

LAST 

144  7 

17,2775 

11' 525 

0 

CCS 

TJU 

0478 

17,2776 

1 3 003 

0 

TCF 

+ 5 

0479 

REF 

1 

17,2777 

l 3026 

1 

TCF 

NORUTAT 

0480 

17,3000 

1 3002 

l 

TCF 

+ 2 

0481 

REF 

2 

LAST 

1451 

17,3001 

1 3026 

1 

TCF 

NOROTAT 

0482 

17,3002 

22  007 

0 

ZL 

048  3 

REF 

155 

LAST 

1450 

17,3003 

6 4 744 

1 

AD 

ONE 

0484 

REF 

5 

LAST 

1435 

17, 3004 

55' 736 

0 

TS 

ABSTJ 

0485 

REF 

19 

LAST 

1451 

17,3005 

3 1505 

0 

CA 

AXISCTR 

0486 

REF 

298 

LAST 

1451 

17,3006 

6 0001 

0 

AD 

L 

0487 

REF 

e 

LAST 

1441 

17,3007 

55' 743 

l 

TS 

ROTINDEX  0123  = -U  -V  -+U  +V 

0483 

REF 

6 

LAST 

145  1 

17, 3010 

3 1736 

1 

CA 

ABSTJ 

0489 

REF 

1 

17,3011 

6 3137 

1 

AD 

-150MS 

0490 

17,3012 

0 CO 06 

1 

EXTEND 

0491 

REF 

1 

17,3013 

6 3037 

0 

BZMF 

DOSKIP 

GAP:' 

l 

0492 

0493 

0494 

0495 

0496 

049  7 

049  8 

049  9 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

050  7 

0500 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

051  7 

0518 

0519 

0520 

052  1 

0522 

0523 

0524 

0525 

0526 

0527 

052  8 

0529 

0530 

053  l 

0532 
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REF 

2 

LAST 

144  1 

17,3014 

0 3225 

1 

TC 

REF 

20 

LAST 

1451 

17,3015 

51' 505 

0 

INDEX 

REE 

1 

17,3016 

3 3134 

1 

CA 

REF 

299 

LAST 

1451 

17,3017 

54  001 

1 

TS 

REF 

7 

LAST 

1442 

17,3020 

3 1740 

0 

CA 

17,3021 

0 OC04 

0 

INHINT 

REE 

300 

LAST 

1452 

17, 3022 

50  C01 

0 

INDEX 

RFF 

4 

LAST 

1435 

17,3023 

0 5750 

0 

TC 

17,3024 

0 0003 

1 

RELINT 

REE 

1 

17,3025 

l 3100 

1 

TC  F 

KEF 

21 

LAST 

1452 

17,3026 

51' 505 

0 

NOROTAT 

INDE  X 

REF 

2 

LAST 

1452 

17,3027 

3 3134 

1 

CA 

17,3030 

0 0004 

0 

INHINT 

REF 

501 

LAST 

1450 

17,3031 

5C  000 

1 

INDEX 

REF 

5 

LAST 

1452 

17,3032 

0 5747 

0 

TC 

17,3033 

0 0003 

1 

REL  INT 

REF 

22 

LAST 

1452 

17,3034 

l 1 ' 505 

1 

LOOPER 

CCS 

REF 

4 

LAST 

1450 

17,3035 

0 1477 

1 

TC 

REF 

1 

17,3036 

1 3270 

0 

TC  F 

REF 

7 

LAST 

1451 

17,3037 

4 1736 

0 

DOSK IP 

cs 

REF 

2 

LAST 

1444 

17,3040 

6 3136 

0 

AD 

17,3041 

0 C006 

1 

EXTFND 

REF 

l 

17,3042 

6 3C61 

0 

BZMF 

REF 

8 

LAST 

1452 

17,3043 

27' 736 

0 

ADS 

REF 

23 

LAST 

1452 

17, 3044 

51' 505 

0 

INDEX 

REF 

10 

LAST 

1451 

17,3045 

11' 525 

0 

CCS 

REF 

3 

LAST 

1452 

17,3046 

3 3136 

0 

CA 

17,3047 

1 3051 

1 

TC  F 

REF 

4 

LAST 

14  52 

17,3050 

4 3136 

l 

CS 

REE 

24 

LAST 

1452 

17,3051 

51 ' 505 

0 

INDEX 

REF 

11 

LAST 

1452 

17,3052 

55 ' 525 

0 

TS 

REF 

4 

LAST 

1441 

17,3053 

11' 500 

1 

CCS 

REF 

2 

LAST 

1452 

17,3054 

l 3060 

0 

TC  F 

17,3055 

0 0006 

1 

EXTEND 

REE 

6 

LAST 

577 

17,3056 

00  004 

0 

READ 

REF 

156 

LAST 

1451 

17,3057 

7 4744 

0 

MASK 

REF 

1 1 

LAST 

1450 

17,3060 

55 ' 742 

0 

TS 

REF 

3 

LAST 

1452 

17,3061 

0 3225 

l 

NOTMIN 

TC 

REF 

25 

LAST 

1452 

1 7,3062 

51 '505 

0 

INDEX 

REF 

3 

LAST 

1452 

17,3063 

3 3134 

1 

CA 

17,3064 

0 0004 

0 

INHINT 
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USER'S  PAGE  NO.  13  E6  S4 

SELCTSUB 

AXISCTR 

INDEXES 

L 

POLYTEMP 

L 

WRITEP 


FEEDBACK 

AXISCTR 
I NDEXES 

A 

WRITEP  -1 


AXISCTR 

RETJADR 

CLOSEOUT 

ABSTJ 

+TJMINT6  14MS 

NOTMIN 

ABSTJ 

AXISCTR 

TJU 

+TJMINT6 
+ 2 

+TJMINT6 

AXISCTR 

TJU 

SENSETYP  ENSURE  MIN-IMPULSE  Nn T AGAINST  TRANS 

NOTMIN  -1 

LOSCALAR 

UNE 

NUMBERT 

SELCTSUB 

AXISCTR 

INDEXES 
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L Q , R—  AXES  RCS  AUTOPILOT 


0533 

REF 

5 

LAST 

1435 

17,3065 

55' 471 

0 

TS 

T 6FURTHA 

053  A 

REF 

8 

LAST 

1452 

17, 3066 

3 1740 

0 

CA 

POLYTEMP 

0 53  5 

REF 

6 

LAST 

1453 

17,3067 

51*471 

1 

INDEX 

T6FURTHA 

0536 

REF 

6 

LAST 

1452 

17,3070 

0 5750 

0 

TC 

WRITEP 

0537 

REF 

9 

LAST 

1452 

17,3071 

3 1736 

1 

CA 

ABSTJ 

0538 

REF 

7 

LAST 

1453 

17,3072 

55*470 

1 

TS 

T6FURTHA 

0539 

REF 

2 

LAST 

1435 

17,3073 

0 3143 

1 

TC 

JTLST 

0540 

17,3074 

0 0003 

1 

RELINT 

0541 

REF 

305 

LAST 

1448 

17,3075 

3 4 7 46 

0 

CA 

ZERO 

0542 

REF 

26 

LAST 

1452 

17,3076 

51*505 

0 

INDEX 

AXISCTR 

0 54  3 

REF 

7 

LAST 

1450 

17,3077 

55’ 534 

0 

TS 

SKIPU 

0544 

REF 

43 

LAST 

1385 

17, 3100 

4 6266 

1 

FEEDBACK 

CS 

THREE 

054  5 

REF 

12 

LAST 

1452 

17,3101 

6 1742 

1 

AD 

NUMBERT 

0546 

17,3102 

0 0006 

1 

EXTEND 

054  7 

17,3103 

6 3 106 

0 

BZMF 

+ 3 

0548 

REF 

97 

LAST 

1451 

17,3104 

3 4743 

0 

CA 

TWO 

0549 

17,3105 

1 3107 

0 

TCF 

+ 2 

0550 

REF 

157 

LAST 

1452 

17,3  106 

3 4744 

1 

CA 

ONE 

0551 

REF 

27 

LAST 

1453 

17,3107 

51*505 

0 

INDEX 

AXISCTR 

0552 

REF 

2 

LAST 

138 

17,3110 

55*522 

l 

TS 

NO .U JETS 

0553 

REF 

3 

LAST 

1450 

17,3111 

1 3034 

1 

TCF 

LOOPFR 

0554 

REF 

306 

LAST 

1453 

17,3112 

3 4746 

0 

XTRANS 

CA 

ZERO 

0555 

REF 

12 

LAST 

1452 

17,3113 

55*525 

0 

TS 

T JU 

0556 

REF 

3 

LAST 

1443 

17,3114 

55' 526 

0 

TS 

T JV 

0557 

REF 

44 

LAST 

1450 

17,3115 

3 4742 

1 

CA 

FOUR 

0550 

17,3116 

0 0004 

0 

INHINT 

0559 

REF 

8 

LAST 

1453 

17,3117 

57’ 534 

1 

XCH 

SKIPU 

0560 

17,3120 

0 C006 

1 

EXTEND 

056  1 

17,3121 

1 3123 

0 

8ZF 

+ 2 

0562 

REF 

1 

17,3122 

0 5753 

0 

TC 

WRITEU  - 

0563 

REF 

45 

LAST 

1453 

17,3123 

3 4742 

1 

CA 

FOUR 

0564 

REF 

2 

LAST 

1410 

17,3124 

57 ' 535 

0 

XCH 

SKIPV 

0 5o5 

17,3125 

0 0003 

1 

REL  INT 

0566 

17,3126 

0 0006 

1 

EXTEND 

0567 

REF 

2 

LAST 

1452 

17,3127 

1 3270 

0 

BZF 

CLOSEOUT 

0568 

17,3130 

0 OC 04 

0 

INHINT 

0569 

REF 

1 

17,3131 

0 5764 

1 

TC 

WRITEV  - 

0570 

17,3132 

0 0003 

1 

REL INT 

057  1 

REF 

3 

LAST 

1453 

17, 3133 

l 3270 

0 

TCF 

CLOSEOUT 

0572 

17,3134 

00004 

0 

INDEXES 

DEC 

4 

0573 

17,3135 

00015 

0 

DEC 

1 3 

0574 

17,3136 

00026 

0 

+TJM INT6 

DEC 

22 

17:11  MAR.  19, 

1971 

LMDAP 

.032  PAGE  1453 

USER'S 

PAGE 

NO.  14 

E6  S4 

IN  QR  BANK  BY  NOW 
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USER' S PAGE  NO.  15  E6  S4 


0575 

0576 

0577 

0578  REF 


17,3137 

7741  7 

0 

-150MS 

DEC 

-240 

1 7 , 3 L4 0 

CC600 

1 

BITS, 9 

OCT 

00600 

17,3141 

0C266 

0 

SCLNORM 

OCT 

2 66 

17,3142 

C2720 

0 

T JLAWADR 

GENADR 

TJLAW  +3  RETURN  ADDRESS  FOR  RCS  ATTITUDE  CONTROL 

A 057  9 


THE  JET  LIST: 


A0580 


THIS  IS  A WAITLIST  FOR  T6RUPTS. 


A0581 


CALLEO  BY: 


A0582 
A0583 
AO  58  4 
A0585 
A0586 


CA 

T J 

TIME 

WHEN  NEXT  JETS  WILL 

BE  WRITTEN 

TS 

T 6FURTHA 

CA 

INDEX 

AXIS 

TO  BE  WIRTTEN  AT  IJ 

(FROM  NOW) 

TS 

T6FURTHA  +1 

TC 

JTLST 

A0587 
A0588 
A0589 
A0590 
A059  l 


EXAMPLE-  U-AXIS  AUTOPILOT  WILL  WRITE  ITS  ROTATION  COOE  OF 
JETS  INTO  CHANNEL  5.  IF  IT  DESIRES  TO  TURN  OFF  THIS  POLICY  WITHIN 
150MS  AND  THEN  FIRE  NEXTU,  A CALL  TO  JTLST  IS  MADE  WITH  T6FURTHA 
CONTAINING  THE  TIME  TO  TURN  OFF  THE  POLICY,  T6FURTHA  +1  THE  INDEX 
OF  THE  U-AXISI4),  AND  NEXTU  WILL  CONTAIN  THE  "U-TRANS"  POLICY  OR  ZERO. 


A0592 

A0593 


THE  LIST  IS  EXACTLY  3 LONG. (THIS  LEADS  TO  SKIP  LOGIC  AND  150MS  LIMIT) 
THE  INPUT  IS  THE  LAST  MEMBER  OF  THE  LIST 


A0594 
A 059  5 


RETURNS  BY: 

+ TC  Q 


A0596 
A0597 
A0598 
A0599 
A0600 
A060  L 
A0602 


0603 

REF 

8 

LAST 

1453 

17, 

,3 

143 

4 

1470 

1 

0604 

REF 

5 

LAST 

1410 

17, 

,3 

144 

6 

0031 

0 

060  5 

17, 

, 3 

145 

0 

0006 

l 

0606 

REF 

1 

17, 

,3 

146 

6 

3163 

0 

060  7 

REF 

4 

LAST 

1410 

17, 

,3 

147 

23 

•465 

1 

0608 

REF 

9 

LAST 

1410 

17, 

, 3 

150 

53 

•467 

l 

0609 

REF 

9 

LAST 

1454 

17, 

,3 

151 

53 

•471 

0 

0610 

REF 

6 

LAST 

1454 

17, 

,3 

152 

54 

031 

1 

061  1 

REF 

5 

LAST 

1454 

17, 

,3 

153 

23 

' 465 

1 

0612 

17, 

,3 

154 

0 

0006 

1 

0612  1 

REF 

7 

LAST 

1432 

17, 

, 3 

155 

23 

' 265 

1 

06122 

REF 

10 

LAST 

1432 

17, 

i 3 

156 

0 

6C40 

0 

06123 

REF 

54 

LAST 

1444 

17, 

, 3 

157 

3 

4 726 

0 

DEFINITIONS: (OUTPUT) 

T I ME 6 

TIME  OF  NEXT  RIJPT 

T6NFXT 

DELTA  TIME 

TO  NEXT  RUPT 

T 6FURTHA 

DELTA  TIME 

FROM  2ND  TO  LAST  RUPT 

NXT6ADR 

AXIS  INDEX 

Q - P-AXIS 

T6NEXT  +1 

AXIS  INDEX 

4 - U-AXIS 

T6FURTHA 

+ 1 

AXIS  INDEX 

13  - V-AXIS 

JTLST 

cs 

T 6FURTHA 

AD 

T I ME  6 

EXTEND 

BZMF 

M IDORLST 

TIME6  - T IS  IN  A 

LXCH 

NXT6ADR 

DXCH 

T6NEXT 

DXCH 

T 6FURTHA 

TS 

TIME6 

LXCH 

NXT6ADR 

TURNON 

EXTEND 

QXCH 

C 130SAV 

TC 

C 13ST ALL 

CA 

BIT15 

GAP: 

L 

0613 

0614 

0615 

0616 

0617 

0618 

0619 

0620 

062  1 

0622 

062  3 

062  4 

0625 

062  6 

062  7 

062  8 

R0629 

R063  1 

R0633 

R0635 

0636 

063  7 

0638 

0639 

0640 

0641 

0642 

064  3 

0644 

064  5 

0646 

064  7 

064  8 

064  9 

0650 

065  l 

0652 

0653 

0654 

0655 

0656 

065  7 
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Q.R-AXES  P.CS  AUTOPILOT 


17,3160 

0 0006 

1 

EXTEND 

REF 

22 

LAST 

1432 

1 7,3161 

05  C 13 

0 

WOR 

CHAN  1 3 

REF 

8 

LAST 

1454 

17,3162 

0 1265 

1 

TC 

C 13QSAV 

REF 

10 

LAST 

14  54 

17,3163 

6 1466 

1 

M I DOR  L ST 

AD 

T6NEXT 

17,3164 

0 0006 

1 

EXTEND 

REF 

1 

17,3165 

6 3174 

0 

BZMF 

L ASTCHG 

REF 

11 

LAST 

1455 

17,3166 

23' 467 

0 

LXCH 

T6NFXT  +1 

REF 

1C 

LAST 

1454 

17,3167 

53' 471 

0 

DXCH 

T6FURTHA 

17,3170 

0 0006 

1 

EXTEND 

REF 

7 

LAST 

1454 

17,3171 

60  031 

0 

SU 

T IME6 

REF 

12 

LAST 

1455 

17,3172 

53*467 

1 

DXCH 

T6NEXT 

REF 

4ce 

LAST 

1449 

17,3173 

0 0002 

0 

TC 

Q 

REF 

502 

LAST 

1452 

17,3174 

4 0000 

0 

L ASTCHG 

CS 

A 

REF 

28 

LAST 

1392 

17,3175 

6 4745 

0 

AD 

NEGO 

REF 

1 1 

LAST 

1455 

17,3176 

55*470 

1 

TS 

T6FURTHA 

REF 

4C9 

LAST 

1455 

17,3177 

0 0002 

0 

TC 

Q 

USER' S PAGE  NO.  16  E6  S4 


TIME6  + T6NEXT  - T IS  IN  A 


ROT-TOUV  IS  ENTERED  WITH  THE  Q-COMPONENT  OF  THE  QUANTITY  TO  BE  TRANSFORMED  IN  A AND  THE  R-COMPONFNT  IN  L. 
ROT-TOUV  TRANSFORMS  THE  QUANTITY  INTO  THE  NON-ORTHOGONAL  U-V  AXIS  SYSTEM.  IN  THE  U-V  SYSTFM  NO  CROSS-COUPLING  IS 
PRODUCED  FROM  RCS  JET  FIRINGS.  AT  THE  COMPLETION  OF  ROT-TOUV,  THE  U-COMPONENT  OF  THF  TRANSFORMED  QUANTITY  IS  IN 
A AND  THE  V-COMPONENT  IS  IN  L. 


REF 

1 

17,3200 

23  * 737 

0 

ROT-TOUV 

LXCH 

R0TEMP2 

(R)  IS  PUT  INTO  R0TEMP2 

17,3201 

0 0006 

l 

EXTEND 

REF 

2 

LAST 

139 

17,3202 

7 1626 

0 

MP 

COEFFQ 

REF 

2 

LAS1 

1455 

17,3203 

57  * 737 

0 

XCH 

R0TEMP2 

(R)  GOES  TO  A AND  COEFFQ 

. (Q) 

TO  ROT FMP  2 

17,3204 

0 0006 

1 

EXTEND 

REF 

1 

17,3205 

7 1627 

1 

MP 

COEFFR 

REF 

301 

LAST 

1452 

17,3206 

54  001 

1 

TS 

L 

COEFFR. IR)  IS  PUT  INTO  L 

REF 

3 

LAST 

1455 

17,3207 

6 1737 

0 

AD 

R0TEMP2 

REF 

1 

17,3210 

55*  736 

0 

TS 

R0TEMP1 

COEFFQ. (Q) +COEFFR . (R ) IS 

PUT 

IN  R0TEMP1 

17,3211 

1 3215 

0 

TC  F 

+ 4 

REF 

503 

LAST 

1455 

17,3212 

5 C 000 

1 

INDEX 

A 

COEFFQ. (Ql  + COEFFR. (R) 

HAS 

OVERFLOWED 

REF 

8 

LAST 

1418 

17, 3213 

4 4725 

1 

CS 

LIMITS 

AND  IS  LIMITED  TO  POSMAX 

OR 

NEGMAX 

REF 

2 

LAST 

1455 

17,3214 

55*  736 

0 

TS 

R0TEMP1 

REF 

4 

LAST 

1455 

17,3215 

4 1737 

1 

CS 

R0TEMP2 

REF 

302 

LAST 

1455 

17,3216 

6 0001 

0 

AD 

L 

-COEFFQ. (Q)  + COEFFR. (R) 

IS 

NOW  IN  A 

17,3217 

54  007 

l 

TS 

7 

17,3220 

1 3223 

0 

TC  F 

+ 3 

REF 

5C4 

LAST 

1455 

17,3221 

50  000 

1 

INDEX 

A 

-COEFFQ. (Q)  + COEFFR. (R) 

HAS 

OVERFLOWED 

REF 

9 

LAST 

1455 

17, 3222 

4 4725 

1 

CS 

LIMITS 

AND  IS  LIMITED  TO  POSMAX 

OR 

NEGMAX 

REF 

3 

LAST 

1455 

17,3223 

23' 736 

l 

LXCH 

R0TEMP1 

COEFFQ. (Q)  + COEFFR. (Rl 

I S PUT  INTO  L 

REF 

4 10 

LAST 

1455 

17,3224 

0 0C02 

0 

TC 

Q 

REF 

9 

LAST 

1451 

17,3225 

51 ' 743 

0 

SELCTSUB 

INDEX 

ROTINDEX 

ASSEMBLE  REVISION  2 10  OF  AGC  PROGRAM  LUMINARY  BY  NASA  202LH2-161 


GAP: 

L O.R-AXES  RCS  AUTOPILOT 


0658 

REF 

l 

17,3226 

3 3257 

1 

CA 

ALLJETS 

0659 

REF 

13 

LAST 

1453 

17,3227 

51 ' 742 

1 

INOEX 

NUMBERT 

066  0 

REF 

1 

17,3230 

7 3263 

1 

MASK 

TYPEPULY 

066  1 

REF 

9 

LAST 

1453 

17,3231 

55 ' 740 

l 

TS 

POLYTEMP 

0662 

REF 

9 

LAST 

222 

17,3232 

7 1257 

1 

MASK 

CH5MASK 

0663 

REF 

5C5 

LAST 

1455 

17,3233 

10  COO 

0 

CCS 

A 

0664 

17,3234 

1 3236 

1 

TCF 

+ 2 

0665 

REF 

411 

LAST 

1455 

17, 3235 

0 C 002 

0 

TC 

Q 

0666 

REF 

44 

LAST 

1453 

17, 3236 

3 6266 

0 

CA 

THREE 

066  7 

REF 

14 

LAST 

1456 

17,3237 

55' 742 

0 

FAIL  OOP 

TS 

NUMBERT 

. 0668 

REF 

10 

LAST 

1455 

17,3240 

51* 743 

0 

INDEX 

ROT  INDEX 

0669 

REF 

2 

LAST 

1456 

17,3241 

3 3257 

l 

CA 

A LL JETS 

0670 

REF 

15 

LAST 

1456  ' 

17,3242 

51' 742 

1 

INDEX 

NUMBERT 

0671 

REF 

2 

LAST 

1456 

17,3243 

7 3263 

1 

MASK 

T YPEPOLY 

0672 

REF 

10 

LAST 

1456 

17,3244 

55' 740 

1 

TS 

POLYTFMP 

0673 

REF 

10 

LAST 

1456 

17,3245 

7 1257 

1 

MASK 

CH5MASK 

0674 

17,3246 

0 0006 

1 

EXTEND 

0675 

REF 

1 

17,3247 

1 3235 

1 

BZF 

FAIL  OOP  - 

0676 

REF 

16 

LAST 

1456 

17,3250 

1 1 ' 742 

0 

CCS 

NUMBERT 

0677 

REF 

2 

LAST 

1456 

17,3251 

1 3237 

0 

TCF 

F A I LOOP 

0678 

REF 

28 

LAST 

1453 

17,3252 

51*505 

0 

INDEX 

AXISCTR 

0679 

REF 

13 

LAST 

1453 

17,3253 

55' 525 

0 

TS 

T JU 

0680 

REF 

50 

LAST 

144  1 

17,3254 

0 5571 

1 

TC 

ALARM 

068  l 

17,3255 

02004 

1 

OCT 

02004 

0682 

REF 

3 

LAST 

1451 

17,3256 

1 3026 

l 

TCF 

NOROTAT 

0683 

17,3257 

0C1 10 

1 

ALLJETS 

OCT 

00110 

0684 

17,3260 

00022 

l 

OCT 

00022 

0685 

17,3261 

0C2O4 

1 

OCT 

00204 

0686 

17,3262 

00041 

1 

OCT 

00041 

060  7 

17,3263 

CC  125 

1 

T YPEPOLY 

OCT 

00125 

0688 

17,3264 

00252 

1 

OCT 

00252 

0689 

17,3265 

00146 

1 

OCT 

00146 

0690 

17,3266 

00231 

l 

OCT 

00231 

0691 

17,3267 

00377 

1 

OCT 

00377 

R0692 

THE 

FC  L LOW  I NG 

SETS 

THE  INTERRUPT  FLIP- 

•FLOP  AS  SOON  AS 

POSSIBLE, 

0694 

REF 

l 

17,3270 

3 3272 

0 

CLOSEOUT 

CA 

ADRRUPT 

0 69  5 

REF 

1 

17,3271 

0 7775 

0 

TC 

M AKERUPT 

0696 

REF 

1 

17,3272 

C3273 

1 

ADRRUPT 

ADRES 

ENDJASK 

069  7 

REF 

5 

LAST 

1426 

17,3273 

53' 753 

0 

FNDJASK 

DXCH 

DAPARUPT 

0698 

REF 

13 

LAST 

1426 

17,3274 

52  Cll 

0 

DXCH 

ARIJPT 

0699 

REF 

2 

LAST 

1426 

17,3275 

53*  755 

0 

DXCH 

OAPBQRPT 

0700 

REF 

4 

LAST 

1426 

17,3276 

56  017 

1 

XCH 

BRUPT 

17:11  MAR.  19,1971  LMOAP 
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.03?  PAGE  1456 
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-U  6 13 

-V  2 9 

+ U 5 14 

+ V l 10 

-x  159  13 

+X  2 6 10  14 

A 2 5 10  13 

8 1 6 9 14 

ALL  l 2 5 6 9 10  13  14 


PERMITS  A RETURN  TO  THE  INTERRUPTED  JOR 


GAP:  ASSEMBLE  REVISION  2X0  OF  A 


o 

X 

1 

■AXES 

RCS 

AUTOP ILOT 

0701 

REF 

4 12 

LAST 

1456 

1 

0702 

REF 

10 

LAST 

1427 

1 

0703 

REF 

4 

LAST 

1426 

1 

0704 

REF 

2 

LAST 

1426 

1 

070  5 
0706 

REF 

1 

1 

0707 
0 70  8 

REF 

5 

LAST 

1299 

0709 

REF 

1 

0710 
071  1 

REF 

2 

LAST 

1456 

OGRAM  LUMINARY  BY  NASA  202X112-161 


22  002 

0 

LXCH 

Q 

3 4726 

0 

CAF 

NEGMAX 

53*757 

1 

DXCH 

D APZRUPT 

52  016 

1 

DXCH 

ZKUPT 

1 5274 

1 

TCF 

NOORSM 

BLOCK 

3 

SETLOC 

BANK 

FFTAG6 

COUNT* 

3>  $ /D  AP 

0 0006 

l 

MAKERUPT  EXTEND 

07  775 

0 

EDRUPT 

MAKERUPT 

iGC  PR 

3277 

3300 

3301 

3 302 

3303 

7775 

6000 

7775 

77  75 

7 i 76 


17:11  MAR.  19 
USER' 


,1971  LMDAP  .032  PAGE  1457 
S PAGE  NO.  18  E6  S4 


NEGATIVE  0AP7RUPT  SIGNALS  JASK  IS  C1VFR 
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GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L T JET  LAV,  USFR'S  PAGE  NO.  1 EO  S4 

R0001  PROGRAM  DESCRIPTION 

R0002  DESIGNED  BY:  R.  D.  GCSS  AND  P.  S.  WEISSMAN 

R0003  CODEC  BY:  P.  S.  WEISSMAN  28  FEBRUARY  1968 

R0004  TJETLAW  IS  CALLED  AS  A SUBROUTINE  WHEN  THE  LEM  IS  NOT  DOCKED  AND  THE  AUTOPILOT  IS  IN  THE  AUTOMATIC  OR 

R0006  ATTITUDE-HOLD  MODE  TO  CALCULATE  THE  J F T- F I R I NG-T I ME  ( T JET ) REQUIRED  FOR  THE  AXIS  INDICATED  BY  AXISCTR: 

R0008  -1  INDICATES  TEE  P-AXIS 

R0005  ' +0  INDICATES  TEE  U-AXIS 

ROOIO  +1  INDICATES  THE  V-AXIS. 

R001  1 THE  REGISTERS  E AND  EDOT  CONTAIN  THE  APPROPRIATE  ATTITUDE  ERROR  AND  ERROR  RATE  AND  SENSETYP  SHOWS  WHETHFR 
R0013  UNBALANCED  COUPLES  ARE  PREFERRED.  TJETLAW  ALSO  USFS  VARIOUS  FUNCTIONS  OF  ACCELERATION  AND  DF  A OB A NO  WHICH  ARE 

R0015  COMPUTED  IN  THE  l/ACCONT  SECTION  CF  1/ACCS  AND  ARE  STORED  IN  SUCH  AN  ORDER  THAT  THEY  CAN  BE  CONVENIENTLY 

R 001 7 ACCESSED  BY  INDEXING. 

RD018  THE  SIGN  OF  THE  REQUIRED  ROTATION  IS  CARRIED  THROUGH  TJETLAW  AS  ROTSENSE  AND  IS  FINALLY  APPLIED  TO  TJFT  JUST 

R0020  PREVIOUS  TO  ITS  STORAGE  IN  THE  LOCATION  CORRESPONDING  TO  THE  AXIS  (TJP,  TJU  OR  TJV).  THE  NUMBER  OF  JFTS  THAT 

R0022  TJETLAW  ASSUMES  WILL  BE  USED  IS  INDICATED  BY  THE  SETTING  OF  NUMBERT  FOR  THE  U-  OR  V-AXIS.  TWO  JETS  ARE  ALWAYS 

R0024  ASSUMED  FOR  THE  P-AXIS  ALTHOUGH  FOUR  JETS  WILL  BE  FIRED  WHEN  FIREFCT  IS  MORE  NFGATIVE  THAN  -4.0  OEGREFS 

R0026  (FIREFCT  IS  THE  DISTANCE  TO  A SWITCH  CURVE  IN  THE  PHASE  PLANE)  AND  A LONG  FIRING  IS  CALLED  FOR. 

R0028  IN  ORDER  TO  AVOID  SCALING  DIFFICULTIES,  SIMPLE  ALGORITHMS  TAGGED  RUFLAW1 , -2  AND  -3  ARE  RESORTFO  TO  WHEN  THE 

R0030  ERROR  AND/OR  ERROR  RATE  ARE  LARGE. 

R0031  . CALLING  SFQUFNCE : 

R0032  TC 

R0033  OR 

R0034  INHINT 

R0035  TC 

R0036  CADR 

R0037  RELINT 

R0038  EXIT:  RETURN  TO  Q. 

R0039  INPUT: 

R0040  FRCM  THE  CALLER:  E,  EDOT,  AXISCTR,  SENSETYP,  TJP,-U,-V. 

R0041  FRCM  l/ACCONT:  48  ERASABLES  BEGINNING  AT  BLOCKTOP  (INCLUDING  FLAT,  Z0NE3LIM  AND  ACCSWU,-V). 

R0043  OUTPUT: 

R0044  T J F ,-U  OR  -V,  NUMBERT  (DAPTEMF5),  FIREFCT  ( DAPTEMP3  I . 

R0045  OFBRIS: 


R0046 

A , 

L , Q , E , 

. EDOT, 

DAPTEMPl-6,  CAPTREG1-4. 

R0047 

alarm 

: NONE 

004  8 

17,3304 

BANK 

1 7 

0049 

REF 

4 LAST 

1440 

17,2000 

SET  L OC 

DAPS2 

0050 

17,3304 

BANK 

005  1 

REF 

13  LAST 

1436 

E6, 1524 

EB A NK= 

TJP 

TJETLAW  (MUST  BE  IN  JASK) 

(MUST  BE  IN  JASK) 

IBNKCALL 

TJETLAW 
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L 

IJET 

L A In 

USER'S  PAGE  NO.  2 E?  S9 

0052 

REF 

1 

COUNT  * 

$ $/D A PT  J 

0053 

17,3309 

0 0006 

1 

T JET  LAW  EXTEND 

SAVE  Q FOR  RETURN. 

0059 

REF 

1 

17,3305 

23' 799 

1 

QXCH 

HOLDQ 

R0055 

SET 

INDEXERS  TO  CORRESPOND  TO 

TEE  AXIS 

AND  TO  THE  SIGN 

OF  EDOT 

0056 

REF 

29 

LAST 

1956  - 

17,3306 

51' 505 

0 

INDEX 

AXISCTR 

AX  ISD  IFFI-l )=N0  OF  LOCATIONS  BER  P AND  U 

005  7 

REF 

2 

LAST 

1997 

17,3307 

3 3755 

0 

CAF 

AXISDIFF 

AXISDIFF(O)  = 0 

0058 

REF 

1 

17,3310 

55' 795 

1 

TS 

ADRSDIF1 

AXISDIFF(+1)=N0  OF  LOCATIONS  BET  V AND  U 

0059 

REF 

3 

LAST 

1950 

1 7,3311 

31 ' 927 

1 

CAE 

EDOT 

IF  EDOT  NEGATIVE,  PICK  UP  SET  OF  VALUES 

0060 

17,3312 

0 0006 

1 

EXTEND 

THAT  ALLOW  USE  OF  SAME  CODING  AS  FOR 

006  l 

REF 

1 

17,3313 

6 3320 

0 

BZMF 

NEGEDOT 

POSITIVE  FOOT. 

0062 

REF 

2 

LAST 

1959 

17,3319 

31'795 

0 

CAE 

ADRSD IF  1 

SET  A SECOND  INDEXER  WHICH  MAY  BE 

0063 

REF 

1 

17,3315 

55' 793 

1 

TS 

ADRSDIF2 

MODIFIED  BY  A DECISION  FOR  MAX  JETS. 

0069 

REF 

1 

17,3316 

3 3757 

1 

CAF 

SENSOR 

FOR  POSITIVE  FOOT,  ROTSENSE  IS 

0065 

REF 

1 

17,3317 

1 3330 

0 

TCF 

SETSENSE 

INITIALIZED  POSITIVE. 

0066 

REF 

9 

LAST 

19  50 

17, 3320 

9 1751 

L 

NEGEDOT  CS 

E 

IN  ORDER  FOR  NEG  EDOT  CASE  TO  USE  CODING 

006  7 

REF 

10 

LAST 

1959 

17,3321 

55 ' 751 

1 

TS 

E 

OF  POS  EDOT,  MUST  MODIFY  AS  FOLLOWS: 

0068 

. REF 

9 

LAST 

1959 

17,3322 

9 1927 

0 

CS 

EDOT 

1. COMPLEMENT  E AND  F DOT . 

0069 

REF 

5 

LAST 

1959 

17,3323 

55' 927 

0 

TS 

EDOT 

2. SET  SENSE  OF  ROTATION  TO  NEGATIVE 

0070 

REF 

67 

LAST 

1999 

17,3329 

3 9799 

1 

CAF 

B I T 1 

(REVERSED  LATER  IF  NECESSARY). 

0071 

REF 

3 

LAST 

1959 

17,3325 

27' 795 

1 

ADS 

ADRSDIF1 

3. INCREMENT  INDEXERS  BY  ONE  SO  THAT 

0072 

REF 

2 

LAST 

1959 

17,3326 

55' 793 

1 

TS 

ADRSD I F2 

THE  PROPER  PARAMETERS  ARE  ACCESSED. 

0073 

REF 

2 

LAST 

1959 

17,3327 

9 3757 

0 

CS 

SENSOR 

0079 

REF 

1 

17,3330 

55' 737 

1 

SETSENSE  TS 

ROTSENSE 

R0075 

TEST 

MAGNITUDE 

TF  E 

( ATT  I TUDE 

ERROR, 

S INGLE-PREC  ISION, 

SCALED  AT  PI 

RADIANS) : 

R0077 

IF  GREATER 

THAN  (OR 

EQUAL  TO) 

PI/16  RADIANS,  GO  TO  THE  SIMPLIFIED  TJET  ROUTINE. 

R0079 

IF  LESS  THAN  PI/16  RADIANS. 

RESCALE  TO  PI/9. 

0080 

REF 

1 l 

LAST 

1959 

17,3331 

31 ' 751 

0 

CAE 

E 

PICK  UP  ATTITUDE  ERROR  FOR  THIS  AXIS 

0081 

17,3332 

0 0006 

1 

EXTEND 

0082 

REF 

51 

LAST 

1992 

17,3333 

7 9790 

1 

MP 

BIT5 

SHIFT  RIGHT  TEN  BITS;  IF  A-REGISTFR  IS 

008  3 

REF 

5C6 

LAST 

1956 

17,3339 

10  000 

0 

CCS 

A 

ZERO,  RESCALE  AND  TEST  EDOT. 

0089 

REF 

1 

17,3335 

l 3717 

1 

TCF 

RUFLAW2 

0085 

REF 

1 

17, 3336 

1 3390 

1 

TCF 

SCALEE 

0086 

REF 

1 

17,3337 

1 3663 

0 

TCF 

RUFLAW1 

0087 

REF 

52 

LAST 

199  2 

17,3390 

3 9730 

1 

SCALEE  CAF 

8 I T 1 3 

ERROR  IS  IN  L SCALED  AT  PI/16.  RESCALE 

0088 

17,3391 

0 0006 

1 

EXTEND 

IT  TO  PI/9  AND  SAVE  IT. 

0089 

REF 

3C3 

LAST 

1955 

17,3392 

7 0001 

1 

MP 

L 

0090 

REF 

12 

LAST 

1959 

17,3393 

55 ' 751 

1 

TS 

E 

R0091 

TEST 

MAGNITUDE 

OF  EDOT  (ERROR 

RATE  SCALED  AT  PI/9  R AD  I ANS / SECOND ) 

R0092 

IF  GREATER 

THAN  (OR 

EQUAL  TO) 

PI/32  RADIANS/SECOND,  GO  TO 

THE  SIMPLIFIFD  TJET  ROUTINE. 

R0099 

IF  LESS  THAN  PI/32  R AD  I A NS / S ECOND  , THEN  RESCALE  TO  PI/32  R AD  I ANS/ SEC OND . 

0096 

REF 

6 

LAST 

1959 

17,3399 

3 l ' 927 

l 

CAE 

EDOT 

PICK  UP  SINGLE-PRECISION  ERROR-RATE 

GAP:  ASSEMBLE  REVISION  210  CF  AGO  PRGGRAM  LUMINARY  BY  NASA  2021112-161 

L T JET  LAW 


0097 

1 7 , 3 3A5 

0 

0006 

1 

EXTEND 

0098 

REF 

62 

LAST 

1A  17 

17,3  3A6 

7 

A 741 

0 

MP 

BIT4 

0099 

17.33A7 

0 

C 006 

1 

EXTENO 

0100 

REF 

l 

17,3350 

1 

3352 

1 

BZF 

SCALEDOT 

010  l 

REF 

1 

■ 17,3351 

1 

3725 

0 

TCF 

RUFLAW3 

R0102 

FINELAW  STARTS 

HERE  *** 

0103 

REF 

7 

LAST 

l A 59 

17,3352 

23 

•427 

1 

SCALECDT 

LXCH 

E DDT 

010A 

REF 

8 

LAST 

IA60 

L 7,  3353 

31 

' 427 

1 

CAE 

EDOT 

0105 

17.335A 

C 

CC06 

1 

EXTEND 

0106 

17,3355 

7 

0000 

0 

SQUARE 

0107 

17,3356 

0 

CC06 

1 

EXTEND 

0108 

REF 

53 

LAST 

LA  59 

17,3357 

7 

4730 

0 

MP 

B I T 1 3 

0109 

REF 

l 

17,3360 

55 

' 736 

0 

TS 

EDOTSQ 

0110 

REF 

13 

LAST 

1A59 

17,3361 

11 

• 751 

1 

ERRTEST 

CCS 

E 

0111 

17,3362 

1 

3365 

0 

TCF 

+ 3 

0112 

17,3363 

1 

3365 

0 

TCF 

+ 2 

01125 

17.336A 

1 

3365 

0 

TCF 

+ l 

0113 

REF 

1 

17,3365 

6 

3760 

0 

AD 

-3DEG 

0 1 1 A 

17,3366 

0 

CC06 

1 

EXTEND 

0115 

REF 

A 

LAST 

1 A59 

17,3367 

5 

1745 

0 

INDEX 

ADRSD IF l 

0116 

REF 

1 

17,3370 

61 

• 600 

0 

SU 

F IREDB 

0117 

17,3371 

0 

0006 

1 

EXTEND 

0118 

REF 

1 

17,3372 

6 

3377 

1 

BZMF 

SENSTEST 

0119 

REF 

98 

LAST 

1A53 

17,3373 

3 

4 743 

0 

MAX JETS 

CAF 

TWO 

0120 

REF 

3 

LAST 

I A 59 

17.337A 

27 

• 743 

1 

ADS 

ADRSDIF2 

012  1 

REF 

A6 

LAST 

1A53 

17,3375 

3 

4742 

l 

CAF 

FOUR 

0122 

REF 

1 

17,3376 

1 

3402 

0 

TCF 

TJCALC 

0123 

REF 

5 

LAST 

1 A52 

17,3377 

11 

' 500 

1 

SENSTEST 

CCS 

SENSETYP 

012  A 

REF 

2 

LAST 

1 A60 

17.3AOO 

1 

3402 

0 

TCF 

TJCALC 

0125 

REF 

1 

17,3401 

1 

3373 

1 

TCF 

M AX J E TS 

0126 

REF 

17 

LAST 

1 A 56 

17.3A02 

55 

1 742 

0 

TJCALC 

TS 

NUMBERT 

R 0 1 2 7 

REGINNING 

. OF  TJET  CALCULATIONS: 

0128 

REF 

2 

LAST 

1 A60 

1 7,3403 

A 

1736 

0 

CS 

EDOTSQ 

0129 

1 7, 

0 

CC06 

1 

EXTEND 

0130 

REF 

A 

LAST 

1A60 

L7.3A05 

5 

1 743 

0 

INDEX 

ADRSDIF2 

013  1 

REF 

8 

LAST 

139 

17, 3A06 

7 

1566 

1 

MP 

1/ANET1 

013  2 

REF 

5 

LAST 

l A60 

17,3407 

51 

• 745 

0 

INDEX 

ADRSDIF1 

0133 

REF 

2 

LAST 

1 A60 

1 7,3410 

6 

1600 

0 

AD 

F IREDB 

0 13  A 

17,3411 

0 

0006 

1 

EXTEND 

0135 

REF 

1A 

LAST 

1A60 

17,3412 

61 

' 751 

0 

SU 

E 

0136 

REF 

2 

LAST 

1A36 

17,3413 

55 

• 740 

1 

TS 

F IREFCT 

0137 

17,3414 

0 

C006 

1 

EXTEND 

0138 

REF 

1 

17,3415 

6 

3575 

0 

BZMF 

ZONl ,2, 3 

0139 

REF 

6 

LAST 

IA60 

17,3416 

51 

• 745 

0 

ZONE  4,5 

INDEX 

ADRSD  I F l 

17:11  MAR.  19,1971  LMDAP  .032  PAGE  1460 
USER'S  PAGE  NO.  3 E6  S4 

FOR  THIS  AX  I S = 

SHIFT  RIGHT  ELEVEN  BITS,  IF  THF  A-REG  IS 
ZERO,  THFN  RESCALE  ANO  USE  FINELAW. 


EDOT  IS  SCALED  AT  PI/32  RADIANS/SECOND. 
COMPUTE  (EDOT) (EDOT) 

PRODUCT  SCALED  AT  P!(2)/2<10)  RAD/SEC. 

SHIFT  RIGHT  TWO  BITS  TO  RESCALE  EDOTSQ 
TO  P I ( 2 )/2l 8)  RADI  2 I/SEC12) . 

DOES  BIG  ERROR  (THRFE  DFG  BEYOND  THE 
DEADBAND)  REQUIRF  MAXIMUM  JFTS? 


IF  NOT:  ARE  UNBALANCED  JETS  PREFERREDl 
IF  YES  : INCREMENT  ADDRESS  IOCATOR  AND 
SET  SWITCH  FOR  JET  S ELF CT  LOGIC  TO  A. 
(ALWAYS  DO  THIS  FOR  P-A X I S ) 

DOES  TRANSLATION  PREFFR  MIN  JETS. 

YES.  US  F M IN- JET  PARAMETERS. 

NO.  GET  MAX-JET  PARAMETERS. 

SET  TO  +0,1, A FOR  (U.V-AXES)  JET  SELECT. 


SCALED  AT  PI(2)/2I8) . 


. 5/ACC  SCALED  AT  2I61/PI  S FC I 2 ) /R AD  I AN . 

DFADBAND  SCALED  AT  PI/A  R AO  I AN . 

ATTITUDE  ERROR  SCALED  AT  PI/A  RADIAN. 

— E — . 5 t EDOTSQ) / ACC -DB  AT  PI/A  RADIAN. 


GAP:  AS  S E M8  L E REVISION  ?10  GF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 


L 

TJET 

LAW 

0140 

REF 

1 

17, 3417 

31 

•572 

0 

CAE 

1 /ACOAST 

0141 

17,3420 

C 

0006 

1 

EXTEND 

0142 

REF 

3 

LAST 

1460 

17, 3421 

7 

1736 

0 

MP 

EDOTSQ 

0143 

REF 

15 

LAST 

1460 

17,3422 

6 

1751 

0 

AD 

E 

0144 

REF 

7 

LAST 

1460 

17,3423 

51 

' 745 

0 

INDEX 

ADRSDIF1 

0145 

REF 

1 

• 17,3424 

6 

1602 

1 

AD 

C0ASTD8 

0146 

17,3425 

0 

0006 

1 

EXTEND 

0147 
AO  14  8 

REF 

1 

17, 3426 

6 

3461 

1 

BZMF 

Z ONE  5 

RO  149 

ZCNE  4 

IS  THE  COAST  REGION. 

HOWEVER , 

IF  THE  JETS  ARE 

ON  AND  DR 

R0151 

A.  THE  AXIS  WITHIN-  + OR  - 

( D8  + FLAT)  FOR  DRIFTING  1 

FLIGHT,  OR 

RO  152 

8.  THE  USUAL  TARGET  P ARA8CLA 

FOR 

POWERED  FLIGHT 

R0153 

THEN 

TEE 

THRUSTERS 

ARE  KEPT  ON. 

0154 

REF 

30 

LAST 

1459 

17,3427 

51 

• 505 

0 

Z0NE4 

INDEX 

AXISCTR 

0155 

REF 

1 

17,3430 

4 

1525 

0 

CS 

TJFTU 

0156 

17,3431 

0 

0006 

1 

EXTEND 

0157 

REF 

2 

LAST 

1459 

17,3432 

7 

1 737 

1 

MP 

ROTSENSE 

0158 

17,3433 

0 

0006 

1 

EXTEND 

0159 

REF 

l 

17,3434 

6 

3455 

0 

6ZMF 

COASTTJ 

0160 

REF 

1 

17,3435 

11 

• 554 

0 

J ETSON 

CCS 

FLAT 

016  1 

REF 

l 

17,3436 

1 

3447 

1 

TCF 

DRIFT/ON 

0162 

REF 

3 

LAST 

1460 

17,3437 

4 

1740 

1 

CS 

F IREFCT 

016  3 

REF 

8 

LAST 

146  1 

17,3440 

51 

' 745 

0 

INDEX 

ADRS0IF1 

0164 

REF 

1 

17,3441 

6 

1604 

i 

AD 

AXISDIST 

0165 

17,3442 

0 

0006 

1 

EXTEND 

0166 

REF 

2 

LAST 

146  1 

17,3443 

6 

3455 

0 

BZMF 

COASTTJ 

0167 

REF 

1 

1 7,3444 

0 

3561 

0 

TC 

Z 123C0MP 

0168 

REF 

4 

LAST 

1461 

17,3445 

31 

• 740 

0 

CAE 

F IREFCT 

0169 

REF 

l 

17,3446 

L 

3615 

1 

TCF 

ZONE  1 

0170 

REF 

9 

LAST 

1461 

17,3447 

51 

• 745 

0 

DRIFT/ON 

INDEX 

ADRSD IF  1 

0171 

REF 

3 

LAST 

1460 

17,3450 

4 . 

1600 

1 

CS 

F IREDB 

0172 

17,3451 

6 

COOO 

1 

DOUBLE 

0173 

REF 

5 

LAST 

1461 

17,3452 

6 

1740 

0 

AU 

F IREFCT 

0174 

17,3453 

0 

0006 

1 

EXTEND 

0175 

1 7,3454 

6 

3457 

1 

BZMF 

+■  3 

0176 

REF 

3C  7 

LAST 

1453 

17,3455 

3 

4 746 

0 

COASTTJ 

CAF 

ZERO 

0177 

REF 

1 

17,3456 

1 

3521 

0 

TCF 

RETURNT J 

0178 

REF 

2 

LAST 

1461 

17,3457 

0 

3561 

0 

TC 

Z 123C0MP 

0179 

REF 

1 

17,3  46  0 

1 

3602 

1 

TCF 

Z0NE2 ,3 

0180 

REF 

3C4 

LAST 

1459 

17,346  1 

54 

001 

l 

ZONE  5 

TS 

L 

0181 

REF 

3 

LAST 

146  1 

17,3462 

1 1 

' 737 

1 

CCS 

ROTSENSE 

0182 

17,3463 

1 

3467 

0 

TCF 

+ 4 

l 

REF 

22 

LAST 

140  1 

1 7, 3464 

0 

5701 

l 

TC 

CCSHOLE 

: 11  MAR.  19,1971  LMDAP 
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USER'S  PAGE  NO.  9 E6  S4 

. 5/ACC  SCALED  AT  2 ( 6 ) /P I WHERF 
ACC  = MAXI  AMIN,  AOS-). 

SCALED  AT  PI/218) . 

SCALED  AT  PI/4 

SCALED  AT  PI/4  POS . FOR  NEG.  INTERCFPT. 
TEST  E+ .51 EDOTSQ ) /ACC+DR  AT  PI/4  RADIAN. 
IF  FUNCTION  NEGATIVE,  FIND  TJET. 

IF  FUNCTION  POSITIVE,  IN  ZONE  4. 

TOWARD 


IS  THE  CURRENT  VALUE  IN  TJFT  NON-ZERO 
WITH  SENSE  OPPOSITE  TO  FOOT, 

U.E.,  ARE  JETS  ON  AND  FIRING  TOWAPD 
THE  DESIRABLE  STATE)  . 

NO.  COAST. 

YES.  IS  THIS  DRIFTING  OR  POWFRED  FLIGHTl 

DRIFTING.  GO  MAKE  FURTHER  TEST. 

POWERED  (OR  ULLAGE).  CAN  TARGET  PARABOLA 
BE  REACHED  FROM  THIS  POINT  IN  THE 
PHASE  PLANEI 

NO.  SET  TJET  = 0. 

YES.  CALCULATE  TJET  AS  THOUGH  IN  ZONE  1 
AFTER  COMPUTING  THE  REQUIRED 
PARAMETERS. 

CAN  TARGET  STRIP  OF  AXIS  BE  REACHED  FROM 
THIS  POINT  IN  THE  PHASE  PLANEI 


NO.  SET  TJET  = 0. 


YES.  CALCULATE  TJET  AS  THOUGH  IN  ZONE  2 
OR  3 AFTER  COMPUTING  REQUIRED  VALUES. 

TEMPORARILY  STORE  FUNCTION  IN  L. 

MOOIFY  ADRSDIF2  FOR  ACCESSING  1/ANET2 
AND  ACCFCTZ5,  WHICH  MUST  BE  PICKED  UP 
FROM  THE  NEXT  LOWER  REGISTER  IF  THE 


GAP: 

L 

0184 

0185 

0 106 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

019  6 

019  7 

R 0 1 9 8 

0199 

02.00 

0201 

0202 

0203 

0204 

R0205 

0206 

020  7 

020  8 

0209 

0210 

021  1 

0212 

R0213 

R0214 

0215 

R0216 

0217 

0218 

0219 

022  0 

022  l 

0222 

0223 

0224 

022  5 

0226 


032  PAGE  1462 
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TJET  LAW 


USER' S PAGE  NO,  5 E6  S4 


REF 

99 

LAST 

1460 

1 1,3465 

4 4743 

1 

CS 

TWO 

(ACTUAL)  ERROR  RATE  IS  NEGATIVE. 

REF 

5 

LAST 

1460 

17,3466 

2 7 1 743 

l 

ADS 

ADRSDIF2 

PEF 

3C5 

LAST 

146  l 

17,3467 

30  001 

0 +4 

CAE 

L 

17, 3470 

0 0006 

1 

EXTEND 

REF 

6 

LAST 

1462 

17,3471 

5 1743 

0 

INDEX 

ADRSD IF  2 

TTOAXIS  AND  HH  APE  THF  PARAMETERS  UPON 

REF 

1 

17,3472 

7 1575 

0 

MP 

ACCFCTZ5 

WHICH  THE  APPROXIMATIONS  TO 

TJET  ARE 

17,3473 

2 C 001 

1 

DDOUBL 

BASED. 

17,3474 

20  001 

1 

DDOUBL 

REF 

1 

17,3475 

53' 747 

0 

DXCH 

HH 

DOUBLE  PRECISION  H SCALFD  AT 

8 SEC ( 2 ) . 

REF 

7 

LAST 

1462 

17,3476 

51 ' 743 

0 

INDEX 

ADRSDIF2 

REF 

2 

LAST 

1447 

17,3477 

31 ' 567 

1 

CAE 

1/ANET2 

SCALED  AT  2 ( 7 ) /P  I SEC(2)/RAD. 

17,3500 

0 CC06 

1 

EXTEND 

REF 

9 

LAST 

1460 

17,3501 

7 1427 

0 

MP 

EDOT 

SCALED  AT  PI/2I5) 

REF 

1 

17,3502 

55*741 

0 

TS 

TTOAXIS 

SCALED  AT  4 SFC. 

TEST 

WHETHER 

TJfl  GREATER  THAN  50  MSEC. 

17, 3503 

0 0006 

l 

EXTEND 

REF 

1 

17,3504 

7 3767 

0 

MP 

- . 0 5 A T 2 

H - .05  TTOAXIS  - .00125  G.T. 

ZERO 

REF 

2 

LAST 

146  2 

17,3505 

6 1 7 4 o 

0 

AD 

HH 

(SCALED  AT  B SEC(2)  ). 

REF 

9 

LAST 

1305 

17,3506 

6 7767 

0 

AD 

NEG2 

17,3507 

0 0006 

1 

EXTFND 

REF 

1 

17,3510 

6 3536 

1 

BZMF 

F0RMULA1 

TEST 

WHETHER  ' 

TJET  GREATER  THAN  150  MSEC. 

REF 

2 

LAST 

1462 

17,3511 

31' 741 

1 

CAE 

TTOAXIS 

17, 3512 

0 0006 

1 

EXTEND 

REF 

l 

17,3513 

7 3770 

0 

MP 

-.  15AT2 

H - .15  TTOAXIS  - .01125  G.T. 

ZERO 

REF 

3 

LAST 

1462 

17,3514 

6 1 746 

0 

AD 

HH 

(SCALED  AT  8 SEC ( 2 ) ) 

REF 

1 

17,3515 

6 3761 

1 

AD 

- .01 12A8 

17,3516 

0 0006 

1 

EXTEND 

REF 

1 

17,3517 

6 3546 

0 

BZMF 

F0RMULA2 

IF  I J FT  GREATER  THAN  150  MSEC,  ASSIGN  IT  VALUE  OF  250  MSEC,  SINCE  THIS 
IS  ENOUGH  TO  ASSURE  No  SKIP  NEXT  CSP  I 100  MSEC). 


REF 

31 

LAST 

1333 

17,3520 

3 4732 

0 

FULLTIME 

CAF 

BIT11 

250  MSEC  SCALED  AT  4 SEC. 

RETURN 

TO  CALL ING  1 

PROGRAM  WITH  JET  TIME 

SCALEO  AS 

i TIME6 

AND  SIGNED. 

17,3521 

0 0006 

1 

RE  TU  R NT  J 

EXTEND 

ALL  BRANCHES  TERMINATE  HERE  WITH  TJET 

REF 

4 

LAST 

1461 

17,3522 

7 1737 

1 

MP 

ROTSENSE 

(SCALED  AT  4 SEC)  IN  THE  ACCUMULATOR. 

REF 

31 

LAST 

1461 

17,3523 

51 ' 505 

0 

INDEX 

AXISCTR 

ROTSENSE  APPLIES  SIGN  AND  CHANGES  SCALE. 

REF 

2 

LAST 

1461 

17,3524 

55' 525 

0 

TS 

TJETU 

17,3525 

0 C006 

1 

EXTFND 

REF 

32 

LAST 

1462 

17,3526 

5 1505 

0 

INDEX 

AXISCTR 

REF 

2 

LAST 

139 

17,3527 

7 1546 

0 

MP 

ACCSWU 

SET  SWITCH  FOR  JET  SELECT  IF  ROTATION  IS 

REF 

3C6 

LAST 

1462 

17,3530 

30  C01 

0 

CAE 

L 

17,3531 

0 0006 

l 

EXTEND 

IN  A SENSE  FOR  WHICH  1/ACCS  HAS  FORCED 

17,3532 

6 3535 

1 

BZMF 

+ 3 

A MAX-JET  CALCULATION. 

GAP: 

ASSEMBLE  REVISION  210 

CF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-161 

L 

TJET 

LAW 

022  7 

REF 

47 

LAST 

1460 

17,3533 

3 4742 

1 

CAF 

FOUR 

0228 

REF 

18 

LAST 

1460 

17,3534 

55*  742 

0 

TS 

NUMBERT 

0229 

REF 

2 

LAST 

1459 

17,3535 

0 1 744 

1 

TC 

HOLDQ 

R0230 

TJET 

= H/(  . 

025  + 

TTOAXIS) 

FCR  TJET 

LESS  THAN  50  MSEC. 

023  l 

REF 

l 

17,3536 

4 3 766 

1 

FORMULA!  CS 

- .025AT4 

0232 

REF 

3 

LAST 

1462 

17,3537 

6 1741 

1 

AD 

TTOAXIS 

023  3 

REF 

4 

LAST 

1462 

17, 3540 

53 ' 747 

0 

DXCH 

HH 

0234 

17,3541 

0 0006 

1 

EXTEND 

0235 

REF 

5 

LAST 

1463 

17,3542 

11' 746 

1 

DV 

HH 

0236 

17,3543 

0 0006 

1 

EXTEND 

0237 

REF 

63 

LAST 

142  1 

17,3544 

7 4727 

0 

MP 

8 I T 1 4 

0238 

REF 

1 

17,3545 

1 3656 

0 

TCF 

CHKMINTJ 

R0239 

TJ 

ET 

= (H  + 

.003751/(0.1  + 

TTCAXIS) 

FOR  TJET  GREATER  THAN  50  M 

0240 

17,3546 

0 0006 

1 

F0RMULA2  EXTEND 

0241 

• REF 

1 

17,3547 

3 3 772 

0 

DC  A 

. 00375A8 

0 24  2 

REF 

6 

LAST 

1463 

17,3550 

21' 747 

0 

DAS 

HH 

A0243 

0244 

REF 

4 

LAST 

1463 

17,3551 

31 ' 741 

1 

CAE 

TTOAXIS 

0245 

REF 

1 

17,3552 

6 3762 

1 

AD 

. 1 AT4 

0246 

REF 

7 

LAST 

1463 

17,3553 

53' 747 

0 

DXCH 

HH 

024  7 

L7, 3554 

C 0C06 

1 

EXTEND 

024  8 

REF 

8 

LAST 

1463 

17,3555 

1 1 ' 746 

1 

DV 

HH 

0249 

17,3556 

C C006 

1 

EXTEND 

0250 

REF 

84 

LAST 

1463 

17,3557 

7 4727 

0 

MP 

B I T 1 4 

0251 

REF 

2 

LAST 

1461 

17,3560 

l 3521 

0 

TCF 

RETURNTJ 

R0252 

SUBROUTINIZED 

COMPUTATIONS  REQUIRED  FOR 

ALL  ENTRIES  INTO  CODING  FOR 

R0254 

REACTED 

BY  TC 

FROM  3 

POINTS  IN  TJETLAW. 

0255 

REF 

5 

LAST 

1462 

17,3561 

4 1737 

1 

Z 123C0MP  CS 

ROTSENSE 

0256 

REF 

6 

LAST 

1463 

17,3562 

55' 737 

1 

TS 

ROTSENSE 

0257 

REF 

10 

LAST 

1462 

17,3563 

31'427 

1 

CAE 

EDOT 

0258 

17,3564 

0 0006 

1 

EXTEND 

0259 

REF 

8 

LAST 

1462 

17,3565 

5 1743 

0 

INDEX 

A DR  SO  I F 2 

0260 

REF 

9 

LAST 

1460 

17,3566 

7 1566 

l 

MP 

1 /ANET1 

026  1 

REF 

5 

LAST 

1463 

17,3567 

55' 741 

0 

TS 

TTOAXIS 

0262 

REF 

1 

17,3570 

6 3773 

1 

AD 

-TJMAX 

0263 

17,3571 

0 C 006 

1 

EXTEND 

0264 

17,3572 

6 3574 

l 

BZMF 

+ 2 

0265 

REF 

1 

17,3573 

1 3520 

1 

TCF 

FULLTIME 

0 26  6 

1 7 , 3 5 74 

0 0002 

0 

RETURN 

0267 

REF 

3 

LAST 

1461 

17,3575 

0 3561 

0 

Z0N1 ,2,3  TC 

Z 123COMP 

RO260  IF  THE  (NEG)  DISTANCE  BEYOND  PARABOLA  IS  LESS  THAN  FLAT, 


USE  SPECIAL 


17:11  MAR.  19,1971  LMDAP 
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RETURN  VIA  SAVEO  Q. 


.025  SEC  SCALFD  AT  4. 

SCALED  AT  4 SECONDS. 

STORE  DENOMINATOR  IN  FIRST  WORD  OF  H, 
WHICH  NEED  NOT  8E  PRESERVED.  PICK  UP 
DP  H AND  DIVIDE  BY  DENOMINATOR. 

RESCALE  TJFT  FROM  2 TO  USUAL  4 SEC. 

CHECK  THAT  TJET  IS  NOT  LESS  THAN  MINIMUM 


.00375  SECI?)  SCALED  AT  8. 

STORE  NUMERATORIN  DP  H,  WHICH  NEED  NOT 
BE  PRESERVED. 

SCALED  AT  4 SEC. 

0.1  SEC  SCALED  AT  4. 

STORE  DENOMINATOR  IN  FIRST  WORD  OF  H, 
WHICH  NEED  NOT  BE  PRESERVED.  PICK  UP 
DP  NUMERATOR  AND  DIVIDE  BY  DENOMINATOR 

RESCALE  TJFT  FROM  2 TO  USUAL  4 SEC. 

END  SUBROUTINE. 

S 1,  2,  AND  3. 


USED  IN  RETURNTJ  SECTION  TO  RF  SCALE  TJFT 
AS  TIME6  AND  GIVE  IT  PROPER  SIGN. 
SCALED  AT  PI/2I5)  RAD/SEC. 


SCALED  AT  2 ( 7 ) /P I SECI21/RAD. 

STORT  TIME-TO-AXIS  SCALED  AT  4 SECONDS. 

IS  TIME  TO  AXIS  LESS  THAN  150  MSEC. 

NO.  FIRE  JETS,  DO  NOT  CALCULATE  TJET. 
YES.  GO  ON  TO  FIND  TJET 


SUBROUT  I NI ZED  PREPARATION  FOR  ZONEl,2,3 


GAP:  ASSEMBLE  REVISION  210  CF  AGO  PROGRAM  LUMINARY  BY  NASA  202I1I2-L61 

L TJFT  LAW 


R0269 

LOGIC 

TC 

ACQUIRE  MINIMUM  IMPULSE  LIMIT  CYCLE.  DURING  POWERED  FL 

R027C 

OR  ULLAGE 

, FLAT  = 0 

0271 

REF 

6 

LAST 

1461 

17,3576 

31' 740 

0 

CAE 

FIREFCT 

0272 

REF 

2 

LAST 

1461 

1 7,3577 

6 1554 

1 

AD 

FLAT 

0273 

17,3600 

0 0006 

l 

EXTEND 

0274 

REF 

2 

LAST 

1461 

17,3601 

6 3615 

0 

BZMF 

ZONE  1 

R0275 

F IRE 

FCR 

AXIS 

OR,  IF 

CLOSE,  FIRE  MINIMUM 

IMPULSE.  IF  ON  AXIS,  Cl 

0276 

REF 

1 

17,3602 

4 1555 

1 

Z ONE 2 , 3 CS 

Z0NF3L I M 

0277 

REF 

6 

LAST 

146  3 

17,3603 

6 1 741 

1 

AD 

TTOAXIS 

0278 

1 7, 3604 

0 0006 

1 

EXTEND 

0279 

REF 

1 

17,3605 

6 3610 

0 

BZMF 

Z0NE3 

0280 

REF 

7 

LAST 

1464 

1 7, 3606 

31*741 

l 

Z0NE2  CAE 

TTOAXIS 

0281 

REF 

3 

LAST 

1463 

1 7,3607 

1 3521 

0 

TCF 

RETURNT J 

0282 

REF 

11 

LAST 

1463 

17,3610 

1 1 ' 427 

0 

ZONE  3 CCS 

EDOT 

0283 

REF- 

63 

l AST 

144  3 

17,3611 

3 4737 

0 

CAF 

B l T6 

0284 

REF 

4 

LAST 

1464 

17,3612 

1 3521 

0 

TCF 

RETURNT J 

0285 

REF 

23 

LAST 

1461 

17,3613 

0 5701 

1 

TC 

CCSHOLE 

0286 

REF 

5 

LAST 

1464 

1 7, 3614 

L 3521 

0 

TCF 

RETURNT J 

0287 

17,3615 

0 0006 

1 

ZONE  1 EXTEND 

0288 

REF 

10 

LAST 

1461 

17,3616 

5 1745 

0 

INDEX 

ADRSD IF  1 

0289 

REF 

2 

LAST 

146  1 

17,3617 

6 1 ' 604 

l 

SU 

AXISDIST 

0290 

17,3620 

0 0006 

1 

' EXTEND 

0291 

REF 

9 

LAST 

1463 

17,3621 

5 1 743 

0 

INDEX 

ADRSD  IF2 

0292 

REF 

1 

17,3622 

7 1574 

1 

MP 

ACCFCTZ1 

0293 

17, 3623 

20  001 

1 

DDOUBL 

0294 

17,3624 

20  001 

1 

DDOUBL 

0295 

REF 

9 

LAST 

1463 

17,3625 

53' 747 

0 

DXCH 

HH 

K0296 

TEST 

WHETHER 

TOTAL  TIME  REQUIRED  GREATER 

THAN  150  MSEC: 

R0297 

2 

2 

R0298 

IS 

.51  . 

150  • 

- TTOAXI 

SI  - H 

NEGAT I VE 

I SCALED  AT  8 SECONDS  ) 

0299 

REF 

3 

LAST 

1464 

17,3626 

31' 741 

1 

CAE 

TTOAXIS 

0300 

REF 

2 

LAST 

1463 

1 7,  3627 

6 3773 

1 

AD 

-TJMAX 

030  1 

17, 3630 

0 CC06 

1 

EXTEND 

030  2 

17, 3631 

7 CCOO 

0 

SQUARE 

0303 

17,3632 

0 0006 

1 

EXTEND 

0 304 

REF 

10 

LAST 

1464 

1 7, 3633 

61 ' 746 

0 

SU 

HH 

0305 

17,3634 

0 0006 

1 

EXTEND 

0306 

REF 

2 

LAST 

1463 

17,3635 

6 3 520 

0 

BZMF 

FULLTIME 

R030  7 

TEST 

WHETHER  TIME  BEYOND  AXIS 

GREATER  THAN  50  MSEC  TO  DETERMINE  1 

0309 

REF 

1 l 

LAST 

1464 

17, 3636 

31  • 746 

0 

CAE 

HH 

0310 

REF 

1C 

LAST 

1462 

l 7,3637 

6 7767 

0 

AD 

NEG2 

031 1 

17,3640 

0 0006 

1 

EXTEND 
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SCALED  AT  PI/4  RAO. 


NOT  IN  SPFCIAL  ZONES. 


HEIGHT  OF  MIN-IMPULSE  ZONE  SET  BY  1/ACCS 
35  MSEC  IN  DRIFTING  FLIGHT 
ZERO  WHEN  TRYING  TO  ENTER  GTS  CONTROL. 

FIRE  TO  AXIS. 

CHECK  IF  EDOT  IS  ZERO. 

FIRE  A ONE-JET  MINIMUM  IMPIJLSF. 

TJET  = +0. 

CANNOT  BE  BECAUSE  NEG  EDOT  COMPLEMENTED. 
TJFT  = +0. 


SCALED  AT  PI/4  RAI). 


SCALED  AT  2I7I/PI  SEC  I 2 ) /RAD  . 


DOUBLE  PRECISION  H SCALED  AT  8 SEC  I 2 ) . 


TTOAXIS  SCALFD  AT  4 SECONDS. 

-.150  SECOND  SCALED  AT  4. 

HIGH  WORD  OF  H SCALFD  AT  8 SEC  1 2 ) . 
YES.  NEED  NOT  CALCULATE  TJFT. 


APPROXIMAT ION  TO  USE 
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L 

TJET 

LAW 

USER' S PAGE  NO.  8 E6  S4 

0312 

REF 

1 

17,3641 

6 3651 

0 

BZMF 

FORMULA  3 

R0313 

TJET 

= H/0 

. 1 + TT 

OAXIS  + . 

0375 

FOR 

APPROXIMATION  OVER  MORE  THAN  50 

MSEC. 

0315 

REF 

l 

17,3642 

3 3763 

0 

CAF 

. 1 AT2 

STORE  .1  SEC  SCALED  AT  2 FOR  DIVISION. 

0316 

REF 

12 

LAST 

1464 

17,3643 

53' 747 

0 

DXCH 

HH 

DP  H SCALFD  AT  8 SFCI2)  NEED  NOT  BE 

0317 

17,3644 

0 C 006 

1 

EXTEND 

PRESERVED. 

0318 

REF 

13 

LAST 

1465 

17,3645 

11 ' 746 

1 

DV 

HH 

QUOTIENT  SCALED  AT  4 SECONDS. 

0319 

REF 

9 

LAST 

1464 

17,3646 

6 1741 

1 

AD 

TTOAXIS 

SCALED  AT  4 SEC. 

0320 

REF 

1 

1 7 , 3 64  7 

6 3764 

1 

AD 

. 0375 AT 4 

.0375  SEC  SCALED  AT  4. 

0321 

REF 

6 

LAST 

1464 

17,3650 

1 3521 

0 

TCF 

RETURNT J 

END  COMPUTATION. 

R 032  2 

TJ 

ET 

= H/. 

025  + 

TTOAXIS 

FOR  APPROXIMATION 

OVER  LESS  THAN  50  MSEC. 

0323 

REF 

1 

17,3651 

4 3765 

1 

F0RMULA3 

CS 

- .025AT2 

STORE  +.025  SFC  SCALED  AT  2 FOR  DIVISION 

0324 

REF 

14 

LAST 

1465 

17,3652 

53' 747 

0 

DXCH 

HH 

PICK  UP  DP  H AT  8,  WHICH  NEED  NOT  BE 

0325 

17,3653 

C C006 

1 

EXTEND 

PRESERVED. 

0326 

REF 

15 

LAST 

1465 

17,3654 

11 ' 746 

1 

DV 

HH 

QUOTIENT  SCALED  AT  4 SECONDS. 

032  7 

REF 

10 

LAST 

1465 

17,3655 

6 1741 

1 

AD 

TTOAXIS 

SCALED  AT  4 SEC. 

R0328 

IF  CC 

MPUTED  JET  TIME 

IS  LESS 

THAN  TJMIN, 

i TJET  IS 

SET  TO 

ZERO. 

R0329 

MINIMUM 

IMPUL 

SES  REQUIRED  IN 

ZONE  3 

ARE 

NOT  SUBJECT  TO  THIS  CONSTRAINT, 

NATURALLY. 

033  1 

REF 

1 

17,3656 

6 3775 

1 

CHKMINTJ 

AD 

-TJMIN 

IS  COMPUTED  TIME  LESS  THAN  THE  MINIMUM. 

0332 

17,3657 

0 0006 

1 

EXTEND 

0333 

REF 

3 

LAST 

1461 

17, 3660 

6 3455 

0 

BZMF 

COASTTJ 

YES,  SET  TIME  TO  ZERO. 

0334 

REF 

1 

17,366  1 

6 3 774 

0 

AD 

TJMIN 

NO,  RESTORE  COMPUTED  TIME. 

033  5 

REF 

7 

LAST 

1465 

17,3662 

1 3521 

0 

TCF 

RETURNT J 

END  COMPUTATION. 

GAP: 
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L TJET  LAW  USER'S  PAGE  NO.  9 E6  S4 

P0336  ***  RCLGHLAW  *** 

R0337  BEFCRE  ENTRY  TO  RUFLAW: 

R0338  1.  INDEXERS  ADRSDIF1  AND  ADRSDIF2  ARE  SET  ON  BASIS  OF  AXIS,  AND  SIGN  OF  FOOT. 

R0340  2.  IF  EDOT  WAS  NEGATIVE.  E ANO  EDOT  ARE  ROTATED  INTO  UPPER  HALF-PLANE  AND  ROTSENSE  IS  MADE  NEGATIVE. 

R0342  3.  E IS  SCALED  AT  PI  RADIANS  AND  EDOT  AT  PI/4  RAD/SEC. 

R0343  (EXCEPT  THE  RUFLAW3  ENTRY  WHEN  E IS  AT  PI/4) 

R0344  RUFLAWl:  ERROR  MORE  NEGATIVE  THAN  PI/16  RAD.  FIRE  TO  A RATE  OF  6.5  DEG/SEC  (IF  JET  TIME  EXCEEDS  20  MSEC.). 

R0346  RUFLAW2:  ERROR  MORE  POSITIVE  THAN  PI/16  RAD.  FIRE  TO  AN  OPPOSING  RATE  OF  6.5  OEG/SEC. 

R0348  RUFLAW3:  ERROR  RATE  GREATER  THAN  PI/32  RAD/SEC  AND  ERROR  WITHIN  BOUNDS.  CUAST  IF  RELOW  FIREFCT,  FIRE  IF  ABOVE 


0350 

REF 

1 

17, 3663 

4 

3776 

0 

RUFLAWl 

CS 

RUFRATF 

DECREMENT  EDOT  BY  .1444  RAD/SFC  AT  PI/4 

0351 

REF 

12 

LAST 

1464 

17,3664 

27 

' 427 

0 

ADS 

EDOT 

WHICH  IS  THF  TARGET  RATE 

0352 

17,3665 

0 

C006 

1 

EXTEND 

0353 

REF 

1 

17, 3666 

6 

3707 

1 

BZMF 

SMALRATE 

BRANCH  IF  RATE  LESS  THAN  TARGET. 

0354 

REF 

1 

17,3667 

0 

3745 

1 

TC 

RUFSETUP 

REVERSE  ROTSENSE  AND  INDICATE  MAX  JETS. 

0355 

REF 

13 

LAST 

1466 

17,3670 

31 

•427 

1 

CAE 

EDOT 

PICK  UP  DESIRED  RATE  CHANGE. 

0356 

17,3671 

C 

0C06 

1 

RUFLAW12 

EXTEND 

COMPUTE  TJET 

0357 

REF 

10 

LAST 

1464 

17,3672 

5 

1743 

0 

INDEX 

ADRSDIF2 

= ( D ES I RED  RATE  CH ANG E ) / ( 2- J E T ACCEL.) 

0358 

REF 

10 

LAST 

1463 

17,3673 

7 

1570 

0 

MP 

i/ANETl  +2 

0359 

REF 

3 

LAST 

993 

l 7,3674 

6 

7762 

0 

AD 

-1/8 

IF  TJ  FT , SCALED  AT  32  SEC,  EXCEEDS 

0360 

17,3675 

0 

0006 

1 

EXTEND 

4 SECONDS,  SET  TJET  TO  TJMAX . 

0 361 

17,3676 

6 

3700 

0 

BZMF 

+ 2 

0362 

REF 

3 

LAST 

1464 

1 7,3677 

l 

3520 

1 

TC  F 

FULLTIME 

0362  1 

17,3700 

0 

0006 

1 

EXTEND 

03622 

REF 

4 

LAST 

1466 

17,3701 

1 

3520 

1 

BZF 

FULLTIME 

036  3 

REF 

39 

LAST 

1435  . 

17,3702 

6 

4731 

0 

AD 

8 I T 1 2 

RESTORE  COMPUTED  TJET  TO  ACCUMULATOR. 

0364 

REF 

5C7 

LAST 

1459 

1 7, 3703 

20 

001 

1 

DAS 

A 

0365 

REF 

5C8 

LAST 

1466 

17,3704 

20 

001 

1 

DAS 

A 

0366 

REF 

5C9 

LAST 

1466 

1 7,3705 

20 

001 

1 

DAS 

A 

RESCALED  TJET  AT  4 SECONDS. 

036  7 

REF 

2 

LAST 

1463 

17,3706 

1 

3656 

0 

TC  F 

CHKMI NT J 

RETURN  AS  FROM  FINELAW. 

0368 

REF 

2 

LAST 

1466 

l 7, 3707 

0 

3747 

0 

SMALRATE 

TC 

RUFSETUP  +2 

SET  NUMBERT  AND  FIREFCT  FOR  MAXIMUM  JETS 

0369 

REF 

7 

LAST 

1463 

17,3710 

11 

' 737 

1 

CCS 

ROTSENSE 

0370 

REF 

158 

LAST 

1453 

17,3711 

3 

4 744 

1 

CAF 

ONE 

MODIFY  INDEXER  TO  POINT  TO  1/ANET 

0371 

17,3712 

l 

3714 

1 

TC  F 

+ 2 

CORRESPONDING  TO  THE  PROPER  SENSE . 

0372 

REF 

14 

LAST 

1283 

17,3713 

3 

7770 

0 

CAF 

NEGONE 

0373 

REF 

1 1 

LAST 

1466 

17,3714 

27 

' 743 

1 

ADS 

ADRSDIF2 

0374 

REF 

14 

LAST 

1466 

17,3715 

4 

142  7 

0 

CS 

EDOT 

(.144  AT  PI/4  - EDOT ) =DE S I RED  RATE  CHNG. 

0375 

REF 

1 

17,3716 

l 

3671 

0 

TC  F 

RUFLAWl 2 

0376 

REF 

3 

LAST 

1466 

17,3717 

0 

3 745 

1 

RUFLAW2 

TC 

RUFSETUP 

REVERSE  ROTSENSE  AND  INDICATE  MAX  JETS. 

0377 

REF 

2 

LAST 

1466 

17,3720 

3 

3776 

1 

CAF 

RUFRATE 

0378 

REF 

15 

LAST 

1466 

17, 3721 

6 

1427 

l 

AD 

EDOT 

(.144  AT  PI/4  + EDOT) =DES IRED  RATE  CHNG. 

0379 

REF 

5 10 

LAST 

1466 

17,3722 

54 

000 

0 

TS 

A 

IF  OVERFLOW  SKIP,  FIRF  FOP  FULL  TIMF. 

0380 

REF 

2 

LAST 

1466 

17,3723 

1 

3671 

0 

TC  F 

RUFLAW12 

OTHERWISE,  COMPUTE  JET  TIME. 

0381 

REF 

5 

LAST 

1 46  6 

17,3724 

1 

3520 

l 

TC  F 

FULLTIME 

GAP: 
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L 

TJE 

T LAW 

0382 

REF 

9 

LAST 

1966 

17, 3725 

0 3 795 

1 

RUFLAW3 

TC 

RUFSETUP 

0383 

REF 

11 

LAST 

1969 

17,3726 

51*795 

0 

INDEX 

ADRSD IF  1 

0389 

REF 

9 

LAST 

1961 

17, 3727 

9 1600 

1 

CS 

F IREDB 

0385 

REF 

16 

LAST 

1961 

17, 3730 

6 1751 

0 

AD 

E 

0386 

17,3731 

0 0006 

1 

EXTEND 

0387 

REF 

32 

LAST 

1962 

17,3732 

7 9732 

1 

MP 

BIT1  1 

0388 

REF 

16 

LAST 

1966 

17,3733 

57' 427 

1 

XCH 

EDOT 

0389 

17,3739 

0 0006 

1 

EXTENO 

0390 

17,3735 

7 0000 

0 

SQUARE 

0391 

17,3736 

0 0006 

1 

EXTEND 

0392 

REF 

12 

LAST 

1967 

17,3737 

5 1 745 

0 

INDEX 

ADRSD I F 1 

0393 

REF 

11 

LAST 

1966 

17,3790 

7 1570 

0 

MP 

1/ANET1  +2 

0399 

REF 

17 

LAST 

1967 

17,3791 

6 1427 

1 

AD 

EDOT 

0395 

17,3792 

0 C006 

1 

EXTEND 

0396 

REF 

9 

LAST 

1 965 

17, 3793 

6 3455 

0 

BZMF 

COASTTJ 

0397 

REF 

6 

LAST 

1966 

17,3799 

1 3520 

1 

TC  F 

FULLTIME 

R0398 

SUBROUTINE  USED  IN 

ALL  ENTRIES  TO  ROUGHLAW. 

0399 

REF 

8 

LAST 

1966 

17,3795 

4 1737 

1 

RUFSETUP 

CS 

ROTSENSE 

0900 

REF 

9 

LAST 

1967 

17, 3796 

55' 737 

1 

TS 

ROT  SENSF 

0901 

REF 

98 

LAST 

1963 

17,3797 

3 4742 

1 

+ 2 

CAF 

FOUR 

0902 

REF 

19 

LAST 

1963 

11,3750 

55' 742 

0 

TS 

NUMBERT 

090  3 

REF 

1 1 

LAST 

1957 

17, 3751 

3 4726 

0 

CAF 

NEGMAX 

0909 

REF 

7 

LAST 

1969 

1 7,3752 

55' 740 

l 

TS 

F IRFFCT 

090  5 

REF 

913 

LAST 

1957 

17,3753 

0 0002 

0 

TC 

Q 

RU906 

CONSTANTS 

i FOR 

T JETLAW 

090  7 

17,3759 

77757 

1 

DEC 

- 16 

090  8 

17,3755 

00000 

1 

AXISDIFF 

DEC 

+ 0 

0909 

1 7,3756 

00020 

0 

DEC 

16 

0910 

17,3757 

14400 

0 

SENSOR 

OCT 

14400 

A091  1 

0912 

17,3760 

75673 

1 

-3DEG 

DEC 

- .06667 

0913 

17,3761 

77750 

0 

- .01  12A3 

DEC 

-.00141 

0919 

17,3762 

CC632 

0 

. 1 A T4 

DEC 

.025 

0915 

17,3763 

01463 

1 

. 1AT2 

DEC 

.05 

0916 

17,3769 

CC232 

1 

. C375AT4 

DEC 

.00938 

0917 

17,3765 

77462 

1 

- .025AT2 

DEC 

- .0125 

091  8 

1 7,  3 766 

77631 

0 

— . 02  5 A T4 

DEC 

- .00625 

0919 

17,3767 

77  145 

1 

- . 05  AT2 

DEC 

- .025 

092  0 

17,3770 

75462 

0 

-. 15AT2 

DEC 

- .075 

0921 

17,3771 

00007 

0 

. 00375A8 

2DEC 

.00375  B— 3 

092  1 

1 7,37  72 

25605 

0 

092  2 

17,3773 

76631 

1 

-TJMAX 

DEC 

-.0375 

0923 

17,3779 

00122 

0 

TJMIN 

DEC 

.005 

0929 

17,3775 

77655 

1 

-TJM  IN 

DEC 

- .005 

092  5 

17,3776 

04476 

0 

RUFRATE 

DEC 

. 1444 
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USER'S  PAGE  NO.  10  E6  S4 

EXECUTE  COMMON  RUFLAW  SUBROUTINE. 

CALCULATE  DISTANCE  FROM  SWITCH  CURVE 

l/ANFTl*FDOT*EDOT  +F  - F I R FDR  = 0 
SCALED  AT  9 PI  RADIANS 


COAST  IF  BELOW  IT. 

FIRE  FOR  FULL  PERIOD  IF  ABOVE  IT. 

REVERSE  ROTSENSE  WHEN  ENTER  HERE. 
REQUIRE  MAXIMUM  (2)  JFTS  IN  U.V-AXES. 
SUGGFST  MAXIMUM  (9)  JETS  IN  P-AXIS. 


AXISDIFFI INDEX)  = NUMBER  OF  REGISTERS 
BETWEEN  STORED  1/4CCS  PARAMFTFRS  FOR 
THE  INDEXED  AXIS  AND  THE  U-AXIS. 

RATIO  OF  TJFT  SCALING  WITHIN  TJFTLAW 
(9  SEC)  TO  SCALING  FOR  T6  (10.29  SFC ) . 
-3.0  DEGREES  SCALED  AT  95. 

-.01125  SEC( 2 ) SCALED  AT  8. 

0. 1 SECOND  SCALED  AT  9. 

0.1  SEC  SCALED  AT  2. 

.0375  SEC  SCALED  AT  9. 

-.025  SEC  SCALED  AT  2. 


LARGEST  CALCULATED  TIME.  .150  SEC  AT  9. 
SMALLEST  ALLOWABLE  TIME.  .020  SEC  AT  9. 

CORRESPONDS  TO  TARGET  RATE  OF  6.5  OFG/S. 


GAP:  ASSEMBLE  RFVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-lfcl 

L KALMAN  FILTER 


0001 

REF 

3 

LAST 

14-53 

E6,  1522 

EBANK= 

NO.UJFTS 

000  2 

16,3642 

BANK 

16 

000  3 

REF 

3 

LAST 

L419 

16,2000 

SETLOC 

D APS  1 

0004 

16,3642 

BANK 

0005 

REF 

1 

COUNT* 

t S/DAP 

0006 

REF 

100 

LAST 

1462 

16,3642 

3 4743 

0 

RATELOOP 

CA 

TWO 

000  7 

REF 

3 

LAST 

138 

16,3643 

55*  743 

1 

TS 

DAPTEMP8 

0007  1 

16,3  644 

6 COOO 

1 

DOUBLE 

000  7 2 

REF 

A 1A 

LAST 

1467 

16,3645 

54  002 

1 

TS 

Q 

000  8 

REF 

A 

LAST 

1468 

16,3646. 

51' 743 

0 

INDEX 

D APT  E MP6 

0009 

REF 

1A 

LAST 

1458 

16,3647 

1 1 ' 524 

1 

CCS 

TJP 

0010 

16,3650 

1 3652 

1 

TCF 

+ 2 

001 1 

REF 

1 

16,3651 

1 3671 

0 

TCF 

LOOPRATE 

0012 

REF 

1 

16,3652 

6 3732 

1 

AD 

-100MST6 

0013 

16,3653 

C 0006 

1 

EXTEND 

00 1 A 

REF 

1 

16,3654 

6 37  10 

1 

BZMF 

SMALLTJU 

0015 

REF 

5 

LAST 

1468 

16,3655 

51 ' 743 

0 

INDEX 

DAPTEMP6 

0016 

REF 

15 

LAST 

1468 

16,3656 

11*524 

1 

CCS 

TJP 

001  7 

REF 

2 

LAST 

1468 

16,3657 

3 3732 

1 

CA 

-100MST6 

0018 

16,3660 

1 3662 

1 

TCF 

+ 2 

0019 

REF 

3 

LAST 

1468 

16,3661 

4 3732 

0 

CS 

-100MST6 

002  0 

REF 

6 

LAST 

L 46  8 

16,3662 

51 • 743 

0 

INDEX 

DAPTEMP6 

002  1 

REF 

16 

LAST 

1466 

16,3663 

27' 524 

1 

ADS 

TJP 

0022 

REF 

7 

LAST 

1468 

16,3664 

51 ' 743 

0 

INDEX 

DAPTEMP6 

0023 

REF 

17 

LAST 

1468 

16,3665 

11' 524 

l 

CCS 

TJP 

002  A 

REF 

1 

16,3666 

4 3616 

1 

CS 

-100MS 

0025 

18,3667 

1 3671 

0 

TCF 

+ 2 

0026 

REF 

2 

LAST 

1468 

16,3670 

3 3616 

0 

CA 

-100MS 

002  7 

16,3671 

0 0006 

1 

LOOPRATE 

EXTEND 

002  8 

REF 

8 

LAST 

1468 

16,3672 

5 1743 

0 

INDEX 

DAPTEMP6 

0029 

REF 

3 

LAST 

1434 

16,3673 

7 1521 

L 

MP 

NO. P JETS 

0030 

REF 

3 C 7 

LAST 

1462 

16,3674 

3 C001 

0 

CA 

L 

0031 

REF 

9 

LAST 

1468 

16,3675 

5 1 ' 743 

0 

INDEX 

DAPTEMP6 

003  1 l 

REF 

29 

LAST 

1449 

16,3676 

55' 736 

0 

TS 

DAPTEMP l 

00312 

16,3677 

0 0006 

1 

EXTEND 

00313 

REF 

A9 

LAST 

1407 

16,3700 

7 4733 

0 

MP 

B I T 1 0 

0031  A 

16,3701 

0 0006 

1 

EXTEND 

00315 

REF 

1 

16,3702 

6 3733 

0 

BZMF 

NEGTORK 

003  16 

REF 

A 15 

LAST 

1468 

16,3703 

50  002 

0 

STORTORK 

INDEX 

Q 

0031  7 

REF 

7 

LAST 

138 

16,3704 

27' 513 

0 

ADS 

DOWNTORK 

0032 

REF 

10 

LAST 

1468 

16, 3705 

11 ' 743 

1 

CCS 

0 A PTEMP6 

0033 

REF 

2 

LAST 

1426 

16,3706 

1 3643 

1 

TCF 

RATELOOP 

003  A 

REF 

L 

16,3707 

1 3717 

1 

TCF 

ROTORQUE 

003  5 

REF 

308 

LAST 

1461 

16,3710 

3 4746 

0 

SMALLTJU 

CA 

ZERO 

0036 

REF 

11 

LAST 

1468 

16, 37  L 1 

51 ■ 743 

0 

INDEX 

DAPTEMP6 

003  7 

REF 

18 

LAST 

1468 

16,3712 

57*524 

0 

XCH 

TJP 

0038 

16,3713 

0 0006 

1 

EXTEND 
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0.1  AT  1 


SIGNFD  TORQUE  AT  1 JET-SEC  FOR  FILTER 
RESCALE  TO  32;  ONE  BIT  ABOUT  2 JET-MSEC 


INCREMENT  OOWNLIST  REGISTFR. 

NOTE:  NOT  INITIALIZED;  OVERFLOWS. 


GAP: 


ASSEMBLE  REVISION  21<  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-1.61 


L KALMAN  FILTER 


0039 

REF 

4 

LAST 

1097 

16,3714 

7 

4751 

l 

MP 

ELEVEN 

0040 

REF 

3C8 

LAST 

1468 

16, 3715 

3 

CC01 

0 

CA 

L 

0041 

REF 

2 

LAST 

1468 

16,3716 

1 

3671 

0 

TCF 

LOOPR ATE 

0042 

REF 

1 1 

LAST 

1449  ■ 

16,3717 

3 

1737 

0 

ROTORGUE 

CA 

D APT  EMP2 

0043 

REF 

7 

LAST 

1445 

16,3720 

6 

1 740 

0 

AD 

D APTEMP3 

0044 

16,3721 

0 

0006 

1 

EXTEND 

0045 

REF 

1 

16,3722 

7 

1532 

0 

MP 

1 JACCR 

0046 

REF 

3 

LAST 

1425 

16,3723 

55 

' 746 

1 

TS 

JETRATER 

0047 

REF 

8 

LAST 

1469 

16,3724 

4 

l 740 

1 

CS 

DAPTEMP3 

0048 

REF 

12 

LAST 

1469 

16,3725 

6 

1 73  7 

0 

AD 

D APT  EMP2 

0049 

16,3726 

C 

0006 

1 

EXTEND 

0050 

REF 

1 

16,3727 

7 

1531 

0 

MP 

1 JACCQ 

005  i 

REF 

3 

LAST 

1424 

16,3730 

55 

' 745 

1 

TS 

JETRATEQ 

0052 

REF 

1 

16,3731 

1 

2322 

1 

TCF 

BACKP 

0053 

16,3732 

77537 

0 

-100MST6 

DEC 

-160 

R0054 

0055 

16, 3 733 

4 

0000 

0 

NEGTORK 

COM 

0056 

REF 

416 

L AST 

1468 

16,3734 

24 

002 

0 

INCR 

0 

0057 

REF 

1 

16, 3735 

1 

3703 

1 

TCF 

STORTORK 
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10.24  PLUS 
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GAP:  ASS  EPrlL  E REVISION  210  GE  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L TRIM  GIMBAL  CONTROL  SYSTEM  USER'S  PAGE  NO.  1 EO  S4 


0001 

21,3027 

BANK 

2 1 

0002 

REF 

l 

E6, 1450 

EBANK= 

QOIFF 

0003 

REF 

1 

21,2000 

SETLOC 

DAPS4 

0004 

21,3027 

BANK 

00045 

REF 

1 

COUNT* 

t t/DAPGT 

R0005 

CONTROL 

REACHES  THIS 

POINT  UNDER  EITHER 

of  the 

FOLLOWING  TWO  CONDITIONS 

ONCE  THE  DESCENT  ENGINE  AND  THE  DIGIT- 

R0007 

AUTOPILCT  ARE 

BOTH  ON: 

R0008 

A)  THE  TRIM 

GIMBAL  CONTROL 

LAW 

WAS  ON 

DURING  THE  PREVIOUS  Q,R- 

AXIS  T I ME 5 INTERRUPT  I OR  THE  DAPIDLFR 

R0010 

INITIALIZATION  WAS  SET  FOR 

TRIM  GIMBAL  CONTROL  AND  THIS  IS 

THE  FIRST  PASS) , OR 

R0012 

B)  THE  Q , R- 

AXES  RCS 

AUTOPILOT 

DETERMINED  THAT 

THE  VEHICLE  WAS 

ENTERING  (OR  HAD  JUST  FNTE  RED  I A COAST 

R0014 

ZONE  WITH  A SMALL 

OFFSET 

ANGULAR  ACCELERATION. 

R0015 

GTS 

I S 

the  entry  TO 

THE  GIMBAL  TRIM 

SYSTEM  FOR 

CONTROLLING  ATTITUDE  FRRORS  AND  RATES  AS  WELL  AS  ACCELERATIONS 

0018 

REF 

15 

LAST 

1466 

21,3027 

3 7 770 

0 

GTS 

CAF 

NEGONE 

MAKE  THE  NEXT  PASS  THROUGH  THE  DAP  BE 

0019 

REF 

6 

LAST 

1450 

21,3030 

55  1 630 

1 

TS 

COTROLFR 

THROUGH  RCS  CONTROL, 

0020 

REF 

49 

LAST 

1467 

21, 3031 

3 4742 

1 

CAF 

FOUR 

AND  ENSURE  THAT  IT  IS  NOT  A SKIP. 

0021 

REF 

9 

LAST 

1453 

21,3032 

55' 534 

0 

TS 

SKIPU 

0022 

REF 

3 

LAST 

1453 

21,3033 

55*535 

1 

TS 

SKIPV 

00225 

REF 

101 

LAST 

1468 

21,3034 

3 4743 

0 

CAF 

TWO 

0023 

REF 

5 

LAST 

1448 

21,3035 

5 5 1 632 

0 

TS 

I NGTS 

SET  INDICATOR  OF  GTS  CONTROL  POSITIVE 

0024 

REF 

7 

LAST 

1427 

21,3036 

55*631 

0 

TS 

QGIMT IMR 

SET  TIMERS  TO  200  MSEC  TO  AVOID  BOTH 

002  5 

REF 

5 

LAST 

1427 

.21,3037 

55*633 

1 

TS 

RGIMTIMR 

RUNAWAY  AND  INTERFERENCE  BY  NULLING. 

R0026 

R002  7 

R0028 
R003  0 

R0032 


THE  CPIVE  SETTING  ALGORITHM 

DEL  = SGN I OMEGA  + AL PHA* A B S I ALPHA  ) / ( 2*K )) 

2 1/2  2 3/2 

NEGUSUM  = ERROR*K  + ALPHA* I DEL IOMEGA  + ALPHA  /(3*K)>  + OEL*K  IDEL*OMEGA  + ALPHA  /(2*K)> 

DRIVE  = —SGN (NEGUSUM ) 


0033 

REF 

27 

LAST 

1302 

21,3040 

3 

0021 

1 

CA 

SR 

0034 

REF 

511 

LAST 

1466 

21,3041 

6 

0000 

l 

AD 

A 

0035 

REF 

1 

21,3042 

55 

* 505 

1 

TS 

SAVESR 

0036 

REF 

102 

LAST 

1470 

21,3043 

3 

4 743 

0 

GTSGO+ON 

CAF 

TWO 

003  7 

REF 

1 

21,3044 

1 

3046 

1 

TCF 

GOQTR IMG  +1 

0038 

REF 

3CS 

LAST 

1468 

21,3045 

3 

4 746 

0 

GOQTR IMG 

CAF 

ZERO 

003  9 

REE 

1 

21,3046 

55 

' 747 

0 

TS 

QRCNTR 

0040 

REE 

2 

LAST 

14  7C 

21,3047 

51 

' 747 

l 

INOEX 

QRCNTR 

004  1 

REF 

23 

LAST 

1439 

21,3050 

3 

1536 

0 

CA 

AOSQ 

0042 

21,3051 

0 

0006 

1 

EXTEND 

004  3 

REF 

54 

LAST 

1442 

21,3052 

7 

4 743 

1 

MP 

BIT2 

SAVE  THE  SR.  SHIFT  IT  LEFT  TO  CORRECT 
FOR  THE  RIGHT  SHIFT  DUE  TO  EDITING. 


SET  INDEXER  FOR  R-AXIS  CALCULATIONS. 


SET  INDEXER  FOR  Q-AXI S CALCULATIONS 


AOS  SCALED  AT  PI/2 


" 


RESCALE  AOS  TO  PI/4 


GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L TRIM  GIM8AL  CONTROL  SYSTEM 


0044 

21,3053 

0 0006 

1 

EXTEND 

0045 

REF 

1 

21,3054 

1 3C60 

0 

BZF 

GTSQAXIS 

0046 

REF 

512 

LAST 

1470 

21,3055 

50  000 

1 

INDEX 

A 

0047 

REF 

10 

LAST 

1455 

21,3056 

4 4725 

1 

CS 

LIMITS 

004  8 

REF 

309 

LAST 

1469 

21 , 3057 

56  C01 

0 

XCH 

L 

0049 

REF 

3 

LAST 

1470 

21,3060 

11' 747 

0 

CCS 

QRCNTR 

0050 

REF 

5 13 

LAST 

1471 

21,3061 

50  COO 

1 

INDEX 

A 

005  1 

REF 

5 

LAST 

1440 

21,3062 

3 1436 

1 

CA 

EOOTQ 

005  2 

REF 

1 

21,3063 

53' 743 

1 

GTSQAXIS 

DXCH 

WCENTRAL 

0053 

REF 

4 

LAST 

147  1 

21,3064 

51' 747 

1 

INDEX 

QRCNTR 

0054 

REF 

3 

LAST 

137 

21,3065 

3 1504 

1 

CA 

KQ 

0055 

REF 

1 

21,3066 

55' 740 

1 

TS 

KCENTRA  L 

0056 

21,3067 

0 0006 

1 

EXTEND 

0057 

REF 

1 

21,3070 

1 3526 

1 

BZF 

POSDRI VE 

0058  . 

REF 

5 

LAST 

1471 

21,3071 

51  • 747 

1 

INDEX 

QRCNTR 

0059 

REF 

2 

LAST 

1470 

21,3072 

31 '450 

1 

CAE 

QD  IFF 

0060 

21,3073 

0 0006 

1 

ALGORTHM 

EXTEND 

0061 

REF 

2 

LAST 

147  1 

21,3074 

7 1740 

1 

MP 

KCENTRAL 

0062 

REF 

1 

21 , 3075 

23' 736 

1 

LXCH 

K2THETA 

0063 

21,3076 

0 0006 

1 

EXTEND 

0064 

REF 

52 

LAST 

1459 

21,3077 

7 4 740 

1 

MP 

BIT5 

0065 

REF 

2 

LAST 

147  1 

21,3100 

53'  737 

1 

DXCH 

K2THFTA 

0066 

21,3101 

0 0006 

1 

EXTEND 

006  7 

REF 

53 

LAST 

1471 

21,3102 

7 4740 

1 

MP 

BIT5 

0068 

REE 

3 

LAST 

1471 

21,3103 

27' 737 

1 

ADS 

K2THETA 

0069 

REF 

1 

21 , 3104 

4 1743 

1 

CS 

ACENTRAL 

007  0 

21,3105 

0 0006 

1 

FXTEND 

007  l 

REF 

85 

LAST 

1463 

21,3106 

7 4727 

0 

MP 

8 IT14 

0072 

21,3107 

0 CC06 

1 

EXTEND 

0073 

REF 

2 

LAST 

147  1 

21,3110 

7 1743 

1 

MP 

ACENTRAL 

0074 

REF 

3 

LAST 

147  1 

21,3111 

6 1740 

0 

AD 

KCENTRAL 

0075 

21,3112 

0 0006 

1 

EXTEND 

0076 

REF 

1 

21,3113 

6 3130 

0 

BZMF 

HUGEQUDT 

0077 

21,3114 

0 0006 

1 

EXTEND 

0078 

REF 

5 14 

LAST 

147  1 

21,3115 

4 CC01 

1 

DCS 

A 

0079 

REF 

4 

LAST 

147  1 

21,3116 

6 1740 

0 

AL) 

KCENTRAL 

0080 

21,3117 

0 0006 

1 

EXTEND 

0081 

REF 

5 

LAST 

147  1 

21,3120 

11 '740 

1 

DV 

KCENTRAL 

0082 

REF 

1 

21,3121 

57' 745 

0 

XCH 

A2CNTRAL 

0083 

REF 

310 

LAST 

1471 

21,3122 

3 0001 

0 

CA 

L 

0084 

21,3123 

22  00  7 

0 

LXCH 

7 

0085 

21,3124 

0 0006 

1 

EXTEND 
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-3  USE  FULL  SCALE  FOR  LARGFP  AOS  ESTIMATES. 

LIMITS  +1  CONTAINS  NEGMAX. 

LIMITS  -1  CONTAINS  POSMAX. 

PICK  UP  RATE  FOR  THIS  AXIS.  RATE  CELLS 
ARE  ADJACENT,  NOT  SEPARATED.  AT  PI/4 

COLLECT  K FOR  THIS  AXIS 

CONTROL  AUTHORITY  ZERO.  AVOID  DRIVING 
+1  ENGINE  BELL  TO  THE  STOPS. 

ODIFF,  RDIFF  ARE  STORED  IN  D.P. 

QIRIDIFF  IS  THETA  (ERROR)  SCALED  AT  PI. 
FORM  K*ERROR  AT  P I ( 2 ) / 2 ( 3 ) , IN  D.P. 

RESCALF  TO  4*PI  (2 ) 

FIRST  TERM  OF  NEGUSUM  IN  K2THFTA. 

+1  NO  CARRY  NEEDED  D.P.  AT  4*PI(2) 

FORM  ALPHA ( 2 ) / ( 2 *K  ) AT  16*PI,  IN  D.P., 
LIMITING  QUOTIENT  TO  AVOID  OVFRFLOW. 
-ALPHA/2  IN  A,  SCALED  AT  PI/4 

— ALPHA(2)/2  IN  A , L , SCALED  AT  PII2I/16 
K-ALPHA12I/2  SHOULD  BE  PNZ  FO  DIVISION 
ALPHA ( 2 ) / 2 - K 

HIGH  ORDER  OF  QUOTIENT. 

SHIFT  UP  THE  REMAINDER. 

ZERO  LOW-ORDER  DIVIDEND. 


ASSEMBLE  RFVIS10N  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


GAP: 


L TRIM  GIMBAL  CONTROL  SYSTEM 


0086 

REF 

6 

LAST 

1471 

21, 3125 

0037 

REF 

2 

LAST 

147  1 

21, 3126 

0088 

REF 

1 

21,3127 

0089 

REF 

41 

LAST 

1420 

21,3130 

0090 

REF 

311 

LAST 

147  1 

21,3131 

0091 

REF 

3 

LAST 

1472 

21,3132 

009  2 

REF 

2 

LAST 

1471 

21,3133 

0093 

21,3134 

0094 

REF 

36 

LAST 

1444 

21,3135 

0095 

REF 

l 

21,3136 

0096 

21,3137 

009  7 

REF 

2 

LAST 

1472 

21,3  140 

0098 

REF 

1 

21,3141 

0099 

REF 

3 

LAST 

1471 

21,3142 

0100 

21,3143 

0101 

21,3144 

0102 

21,3145 

0103 

REF 

4 

LAST 

1472 

21,3146 

0104 

21,3147 

0105 

21,3150 

0106 

REF 

5 

LAST 

1472 

21,3151 

0107 

REF 

2 

LAST 

1472 

21,3152 

0108 

REF 

3 

LAST 

1472 

21,3153 

0109 

REF 

1 

21,3154 

0110 

21,3155 

Oil  1 

REF 

1 

21 ,3  156 

0112 

REF 

4 

LAST 

1472 

21,3157 

0113 

REF 

68 

LAST 

1459 

21,3160 

0114 

21,3161 

0115 

REF 

69 

LAST 

1472 

21,3162 

0116 

REF 

1 

21,3163 

0117 

REF 

2 

LAST 

1472 

21,3164 

0118 

REF 

1 

21,3165 

0119 

REF 

1 

21,3166 

0120 

REF 

1 

21,3167 

012  1 

KEF 

3 

LAST 

1472 

21, 3170 

0122 

REF 

4 

LAST 

1472 

21,3171 

012  3 

REF 

2 

LAST 

147? 

21,3172 

11*740  l DV  KCENTRAL 

57*  746  0 XCH  A2CNTRAL  + 

1 3133  l TCF  H AVEOUOT 


3 4724 

l 

HUGEQUOT 

CA 

POSMAX 

54  001 

1 

TS 

L 

53*746 

l 

DXCH 

A2CNTRAL 

3 1742 

1 

HAVEQUOT 

CA 

WCENTRAL 

0 0006 

1 

EXTEND 

7 4734 

1 

MP 

B I T9 

53*  742 

0 

DXCH 

K2CNTRAL 

0 0006 

1 

EXTFND 

3 1742 

1 

DC  A 

K2CNTRAL 

53*751 

1 

DXCH 

FUNCTION 

3 1743 

0 

CA 

ACENTRAL 

0 0006 

1 

EXTEND 

6 3150 

0 

BZMF 

+4 

0 C006 

1 

EXTEND 

3 1746 

0 

DC  A 

A2CNTRAL 

1 3152 

0 

TCF 

+ 3 

0 0006 

1 

EXTEND 

4 1746 

l 

DCS 

A2CNTRAL 

21*  751 

1 

DAS 

FUNCTION 

11*750 

0 

CCS 

FUNCTION 

1 3 160 

1 

TCF 

POSFNCTl 

1 3157 

0 

TCF 

+ 2 

1 3162 

0 

TCF 

NEGFNCTl 

1 l*  751 

l 

CCS 

FUNCTION  + 

3 4 744 

1 

POSFNCTl 

CAF 

B I T 1 

1 3163 

1 

TCF 

+ 2 

4 4744 

0 

NEGFNCTl 

cs 

BIT1 

55' 744 

0 

TS 

DEL 

11*  744 

0 

CCS 

DEL 

1 3177 

1 

TCF 

FUNCT2 

1 3 170 

0 

TCF 

DEFUNCT 

1 3174 

1 

TCF 

NEGFNCT2 

55' 741 

0 

DEFUNCT 

TS 

K2CNTRAL 

55*742 

0 

TS 

K2CNTRAL  + 

1 3177 

1 

TCF 

FUNCT2 

17:11  MAR.  19,1971  LMOAP 
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USER'S  PAGE  NO.  3 E6  S4 


QUOTIENT  STORED  AT  16*PI  , D.P. 


LIMITED  QUOTIENT  STORED  AT  16*PI,  D.P. 


RESCALE  OMEGA  AT  16*PI  IN  D.P. 

LOWER  WORD  OVFRLAYS  OMEGA  IN  WCENTRAL 


GET  ALPHA*ARS ( ALPHA )/{ 2*K ) 


OMFGA  + ALPHA*A8S ( ALPHA )/ 2*K ) AT  16*PI 

DEL  = +1  FOR  FUNCT1  GREATER  THAN  ZEPO. 
OTHERWISE  DEL  = -1 


USE  LOW  ORDER  WORD  SINCE  HIGH  IS  ZERO 


REPLACE  OMEGA  BY  OEL*OMEGA 
POSITIVE  DEL  VALUE.  PROOFED 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L TRIM  GIMBAL  CONTROL  SYSTfcM 


0124 

21,3173 

65252 

1 

NEG1/3 

DEC 

-.33333 

0125 

21,3174 

0 CO 06 

1 

NEGFNCT  2 

EXTEND 

0126 

REF 

5 

LAST 

1472 

21,3175 

4 1742 

0 

DCS 

K2CNTPAL 

0127 

REF 

6 

LAST 

1473 

2 1. » 3 1 7 6 

53' 742 

0 

DXCH 

K2CNTRA  L 

0128 

21,3177 

0 C006 

1 

FUNCT2 

EXTENO 

0129 

REF 

6 

LAST 

1472 

21,3200 

3 1746 

0 

DC  A 

A2CNTRAL 

0130 

REF 

7 

LAST 

1473 

21,3201 

21' 742 

0 

DAS 

K2CNTRAL 

0131 

REF 

7 

LAST 

1473 

21,3202 

3 1745 

0 

FUNCT3 

CA 

A2CNTRAL 

0132 

21,3203 

0 0006 

1 

EXTEND 

0133 

REF 

l 

21,3204 

7 3173 

0 

MP 

NEG1/3 

0134 

REF 

8 

LAST 

1473 

21,3205 

53' 746 

1 

DXCH 

A 2CNTRAL 

0135 

REF 

312 

LAST 

1472 

21,3206 

3 CC01 

0 

CA 

L 

0136 

21,3207 

0 0006 

1 

EXTEND 

0137 

REF 

2 

LAST 

1473 

21,3210 

7 3173 

0 

MP 

NEG1/3 

0138 

REF 

9 

LAST 

1473 

21,3211 

27' 746 

1 

ADS 

A 2CNTRAL 

0139 

REF 

313 

LAST 

1473 

21,3212 

54  001 

1 

TS 

L 

0140 

21,3213 

1 3215 

0 

TO  F 

+ 2 

0141 

REF 

10 

LAST 

1473 

21,3214 

27' 745 

1 

ADS 

A2CNTRAL 

0142 

21,3215 

0 0006 

1 

EXTEND 

014  3 

REF 

8 

LAST 

1473 

21,3216 

3 1 742 

1 

DC  A 

K2CNTRAL 

0144 

REF 

11 

LAST 

1473 

21,3217 

21 ' 746 

1 

DAS 

A2CNTRAL 

0145 

REF 

12 

LAST 

14  7 3 

21,3220 

3 1745 

0 

CA 

A2CNTRAL 

0146 

21,3221 

0 0006 

1 

EXTEND 

014  7 

REF 

4 

LAST 

14  7 2 

21,3222 

7 1743 

1 

MP 

ACENTRAL 

0148 

REF 

4 

LAST 

147  1 

21,3223 

21  ' 737 

1 

DAS 

K2THETA 

0149 

REF 

13 

LAST 

1473 

21, 3224 

3 1746 

0 

CA 

A2CNTRAL 

0150 

21,3225 

0 0006 

1 

EXTEND 

015  1 

REF 

5 

LAST 

1473 

21,3226 

7 1743 

1 

MP 

ACENTRAL 

0152 

REF 

5 

LAST 

1473 

21,3227 

27 ' 737 

1 

ADS 

K2THETA 

0153 

REF 

3 14 

LAST 

1473 

21,3230 

54  001 

1 

TS 

L 

0154 

21,3231 

1 3233 

1 

TCF 

+ 2 

0155 

REF 

6 

LAST 

1473 

21,3232 

27' 736 

0 

ADS 

K2THETA 

0156 

REF 

9 

LAST 

1473 

21,3233 

3 1741 

1 

GETROGT 

CA 

K2CNTRAL 

0157 

21,3234 

0 0006 

1 

EXTEND 

0158 

REF 

7 

LAST 

L472 

21,3235 

7 1740 

1 

MP 

KCENTRAL 

0159 

REF 

5 

LAST 

1472 

21,3236 

53*751 

1 

DXCH 

FUNCTION 

0160 

REF 

10 

LAST 

1473 

21,3237 

3 1742 

1 

CA 

K 2CNTRAL 

0161 

21,3240 

0 0006 

1 

EXTEND 

0162 

REF 

8 

LAST 

1473 

21,3241 

7 1740 

1 

MP 

KCENTRAL 

0163 

REF 

6 

LAST 

1473 

21,3242 

27' 751 

1 

ADS 

FUNCTION 

0 164 

REF 

315 

LAST 

1473 

21, 3243 

54  001 

1 

TS 

L 

016  5 

21,3244 

1 3246 

0 

TCF 

+ 2 

0166 

REF 

7 

LAST 

1473 

21,3245 

27' 750 

0 

ADS 

FUNCT ION 

17: 11  MAR.  19,1971 
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032  PAGE  1473 


USFR'S  PAGE  NO.  4 


E6  S4 


OEL*UMEGA  + A L PH A ( 2 ) / I 2 *K ) AT  16*PI,D.P. 


A2CNTRAL  NOW  CONTAINS  -A L PH A ( 2 ) / ( 6*K ) , 
SCALED  AT  16*PI,  IN  D.P. 


DEL*0  MEGA  + A L PH A ( 2 ) / ( 3 *K ) IN  A2CNTRAL , 
SCALED  AT  16*PI  , D.P. 


ACFNTRAL  MAY  NOW  BF  OVERLAID. 


TWO  TERMS  OF  NEGUSUM  ACCUMULATED,  ST  FAR 
SCALED  AT  4*PI(2) , IN  D.P. 

K*IDEL*OMEGA  + AL PH A ( 2 ) / ( 2*K ) ) IS  THF 
TERM  FOR  WHICH  A SQUARE  ROOT  IS  NEEDED. 

K AT  P I / 2 ( 8 I 


DESIRED  TERM  IN  FUNCTION,  AT  PK2I/16 


GAP: 

L 

0167 

0168 

0169 

0170 

017  1 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

R0  ISO 

R013  2 

R01b4 

0185 

0 186 

0187 

018  8 

0189 

0190 

019  l 

0192 

0193 

019  4 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

0204 

020  5 

0206 

0207 

0208 

0209 

0210 


ASSHOLE  REVISION  210  CE  AGO  PROGRAM  LUMINARY  BY  NASA  20211  12-161 


17:11  MAR.  19,1971 


LMOAP 


032  PAGE  1474 


TR  II 

GIMBAL  CONTROL 

SYSTEM 

USER'S  PAGE 

REF 

3 

l AST 

1472 

21,3246 

l 1 ' 744 

0 

CCS 

DEL 

REF 

l 

21,3247 

1 3454 

0 

TCF 

R STOFGTS 

REF 

1 

21,3250 

1 3516 

1 

TCF 

NEGUSUM 

PEF 

1 

21,3251 

1 3253 

1 

TCF 

NEGATE 

REF 

2 

LAST 

1474 

21,3252 

1 3516 

I 

TCF 

NEGUSUM 

21,3253 

0 CC06 

1 NEGATE 

EXTEND 

REF 

1 1 

LAST 

14  73 

21,3254 

4 1742 

0 

DCS 

K 2CNTRAL 

REF 

12 

LAST 

1474 

21,3255 

53' 742 

0 

DXCH 

K2CNTRAL 

REF 

2 

LAST 

1474 

21,3256 

l 3454 

0 

TCF 

RSTOFGTS 

16,3736 

BANK 

16 

REF 

5 

LAST 

1426 

E6 , 150  l 

EBANK= 

NEGUQ 

REF 

4 

LAST 

1468 

16,2000 

SETLOC 

DAPS  1 

16,3736 

BANK 

THF  WRCHN12  SUBROUTINE  SFTS  BITS  9,10,11,12  OF  CHANNEL  12  ON  THE  BASIS  OF  THE  CONTENTS  OF  NEGUQ ,N EGUR  WHICH  ARE 
THE  NEGATIVES  OF  THE  DESIRED  ACCELERATION  CHANGES.  ACDT+C12  SETS  QIRIACCDOT  TO  REFLECT  THF  NFW  DRIVES. 

WARNING:  AC0T+C12  AND  WRCHN12  RLST  BE  CALLED  WITH  INTERRUPT  INHIBITED. 


16,3736 

C 7400 

1 

BGIM 

OCTAL 

07400 

REF 

6 

LAST 

1297 

0066 

CHNL 12 

EQUALS 

ITEMP6 

REF 

6 

LAST 

14  74 

16,3737 

4 1501 

0 

ACDT+C12 

CS 

NEGUQ 

16,3740 

0 0006 

1 

EXTEND 

REF 

4 

LAST 

137 

16,3741 

7 1507 

0 

MP 

ACCDOTQ 

REF 

4 

LAST 

1426 

16,3742 

23 ' 510 

1 

LXCH 

QACCDOT 

REF 

3 

LAST 

1427 

16,3743 

4 1503 

1 

CS 

NEGUR 

16,3744 

0 C 006 

l 

EXTEND 

REF 

l 

16,3745 

7 1511 

1 

MP 

ACCDOTR 

REF 

4 

LAST 

1427 

16,3746 

23*512 

0 

LXCH 

RACCDOT 

REF 

7 

LAST 

1474 

16,3747 

l 1 ' 50 1 

0 

CCS 

NEGUQ 

PEF 

50 

LAST 

1468 

16,3750 

3 4733 

I 

CAF 

BIT10 

16,3751 

1 3753 

1 

TCF 

+ 2 

REF 

37 

LAST 

1472 

16,3752 

3 4734 

0 

CAF 

B I T9 

REF 

l 

16,3753 

54  066 

0 

TS 

CHNL 12 

REF- 

4 

LAST 

1474 

16,3754 

11' 503 

l 

CCS 

NEGUR 

REF 

40 

LAST 

1466 

16,3755 

3 4731 

0 

CAF 

B I T 1 2 

16,3756 

l 3760 

l 

TCF 

+ 2 

REF 

33 

LAST 

1467 

16, 3757 

3 4732 

0 

CAF 

BIT11 

REF 

2 

LAST 

1474 

16,3760 

26  066 

0 

ADS 

CHNL12 

REF 

1 

16,3761 

4 3736 

1 

CS 

BGIM 

16,3762 

0 C006 

1 

EXTEND 

REF 

68 

LAST 

1427 

16,3763 

02  012 

0 

RAND 

C HAN  1 2 

REF 

3 

LAST 

1474 

16,3  764 

6 C066 

1 

AD 

CHNL 1 2 

16,3765 

0 0006 

1 

EXTENO 

REF 

69 

LAST 

1474 

16,3766 

01  C 1 2 

0 

WR  ITE 

CHAN12 

GIMBAL  DRIVE  REQUESTS. 


(STORED  RESULT  NOT  USED  AT  PRESENT) 


GAP : 


ASSEMBLE  REVISION  210  CH  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L TRIM  GIMBAL  CONTROL  SYSTEM 


R021  1 
0212 

REF 

2 

LAST 

1426 

16,3767 

4 4740 

1 

cs 

C ALLGMBL 

0213 

REF 

48 

LAST 

1446 

16,3770 

7 1774 

0 

MASK 

RCSF  LAGS 

0214 

REF 

49 

LAST 

1475 

16,3771 

55 ' 774 

0 

TS 

RCSFLAGS 

0215 

REF 

4 L7 

LAST 

1469 

16, 3772 

0 CC  02 

0 

TC 

Q 

0216 
021  7 
0218 
0219 

REF 

REF 

3 

2 

LAST 

LAST 

1471 

1470 

21,3257 
E6, 1450 
21, 2000 
21,3257 

bank 

EBANK= 

SETLOC 

BANK 

21 

QDIFF 

DAPS4 

17:11  MAR.  19,1971  LMDAP 


032 


PAGE  1 A 75 


USER'S  PAGE  NO.  6 
TURN  OFF  REQUEST  FOR  ACDT+C12 


E6  S4 

EXECUTION. 


PETURN  TO  CALLER 


GAP:  ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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L TRIM  GIMBAL  CONTROL  SYSTEM  USER'S  PAGE  NO.  7 E?  S4 

P0220  SUBROUTINE  TIMEGMBL:  MOO  0,  OCTOBER  1967,  CRAIG  WORK 

R0221  TIMEGMBL  CUMPUTES  THE  DRIVE  TIME  NEEDED  FCR  THE  TRIM  GIMBAL  TO  POSITION  THE  DESCENT  ENGINE  NOZZLE  SO  AS  TO  NULL 

R0223  THE  OFFSET  ANGULAR  ACCELERATION  ABOUT  THE  Q (OR  R)  AXIS.  INSTEAD  OF  USING  AOSQ(P),  TIMEGMBL  USES  .4*A0SQ(R), 

R0225  SCALED  AT  PI/8.  FOR  EACH  AXIS,  THE  DRIVE  T I ME  IS  COMPUTFD  AS  ABS ( ALPHA /AC CDOT ) . A ZERO 

R0227  ALPHA  OR  ACCDOT  OR  A ZERO  QUOTIENT  TURNS  OFF  THE  GIMBAL  DRIVE  IMMEDIATELY.  OTHFRWISE,  THE  GIMBAL  IS  TURNED  ON 
12  )RIVING  IN  THE  CORRECT • D IRECT ION.  THE  Q1RJGIMTIMR  IS  SET  TO  TERMINATE  THE  DR  I Vt  AND  Q(R)ACCDOT 

R0231  IS  STEREO  TO  REFLECT  THE  NEW  ACCELERATION  DERIVATIVE.  NEGUQ(R)  WILL  CONTAIN  +1.+0.-1  FOR  A QIRIACCDOT  VALUE 
R0233  WHICH  IS  NEGATIVE,  ZERO,  OR  POSITIVE. 

RU234  INPUTS:  AOSQ.AOSR,  SCALED  AT  PI/2,  AND  ACCOOTQ,  ACCOOTR  AT  PI/2I7).  PI/217). 

R0236  OUTPUTS:  NEW  GIMBAL  DRIVE  BITS  IN  CHANNEL  1 2 , NFGUQ , NEGUR , Q ACC  DOT  AND  R AC  CDOT , THE  LAST  SCALED  AT  PI/217). 

R0238  QtRIGIMTlMR  WILL  BE  SET  TO  TIME  AND  TERMINATE  GIMBAL  DRIVE(S) 

R0239  DEBRIS:  A,L,0,  ITEMPS  2,3,6,  RLPTREG2  AND  ACDT+C12  OEBRIS. 

R02A0  EXITS:  VIA  TC  0. 

R0241  ALARMS,  ABORTS,  : NONE 

R0242  SUBROUTINES:  ACDT  + C 12 , I BNKC  ALL 

R0243  WARNING:  THIS  SUBROUTINE  WRITES  INTO  CHANNEL  12  AND  USES  THE  ITEMPS.  THEREFORE  IT  MAY  ONLY  BF  CALLED  WITH 

R0245  INTERRUPT  INHIBITED. 

R0246  ERASABLE  STORAGE  CONFIGURATION  (NEEDED  BY  THE  INDEXING  METHODS): 


A024  / 

NEGUO 

ERASE 

♦ 2 

NEGATIVE  OF  Q-AX IS  GIMBAL 

DRIVE 

A0248 

1 SPWORD ) 

EQUALS 

NEGUQ  +1 

ANY  S.P.  TDASABLF  NUMBER, 

NOW  THRSTCMD 

A0249 

NEGUR 

EQUALS 

NEGUQ  +2 

NEGATIVE  OF  R-AXIS  GIMBAL 

DRIVE 

A0250 

ACCOOTQ 

ERASE 

*■2 

Q-JEPK  TERM  SCALED  AT  PI/217)  RAD/SEC(3) 

A025  L 

I SPWORD) 

EQUALS 

ACCOOTQ  +1 

ANY  S.P.  ERASABLE  NUMBER 

NOW  QACCDOT 

A0252 

ACCDOTR 

EQUALS 

ACCOOTQ  +2 

R-JERK  TERM  SCALED  AT  PI/217)  RAD/SEC(3) 

A0253 

ACCDOTQ,  ACCOOTR  ARE  MAGNITUDES. 

A0254 

AOSQ 

ERASE 

+ 4 

O-AXIS  ACC.  , 0 . P . AT  PI /2 

R/SEC (2) 

A0255 

AOSR 

EQUALS 

AOSQ  +2 

R-AXIS  ACCELERATION  SCALED  AT  PI/2  R/S2 

0256 

REF 

7 

LAST 

1474 

0066 

QRNDXER 

EQUALS 

I TEMP6 

0257 

21,3257 

23146 

0 

0CT23146 

OCTAL 

2 3146 

DECIMAL  .6 

0258 

REF 

25 

LAST 

1372 

0063 

NZACCDOT 

EQUALS 

I TEMP3 

0259 

REF 

1 59 

LAST 

1466 

21,3260 

3 4 744 

1 

TIMEGMBL 

CAF 

ONE 

INITIALIZE  ALLOWGTS. 

0260 

REF 

3 

LAST 

144  7 

21,3261 

55 1 502 

0 

TS 

ALLOWGTS 

0261 

RFF 

103 

LAST 

1470 

21,3262 

3 4743 

0 

CAF 

TWO 

SET  UP  LOOP  FOR  R AXIS. 

0262 

REF 

418 

LAST 

1475 

21,3263 

22  C02 

0 

LXCH 

Q 

SAVE  RETURN  ADDRESS. 

0263 

REF 

23 

LAST 

1406 

21,3264 

22  071 

1 

LXC  H 

RUPTREG2 

GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 

L TRIM  GIMBAL  CONTROL  SYSTEM 


0269 

21,3265 

1 

3267 

0 

TCF 

+2 

0266 

REF 

310 

LAST 

1970 

21,3266 

3 

9 796 

0 

r 1MQGMBL 

CAF 

ZERO 

0266 

REF 

1 

21,3267 

59 

C 66 

0 

TS 

QRNOXER 

0267 

REF 

2 

LAST 

1977 

21,3270 

50 

i C66 

1 

INDEX 

QRNDXER 

0268 

REF 

5 

LAST 

1979 

21,3271 

3 

1507 

1 

CA 

ACCDOTQ 

0269 

21,3272 

0 

C006 

1 

EXTEND 

0270 

REF 

1 

21,3273 

6 

3393 

0 

BZMF 

T GOFFNOW 

027  1 

REF 

1 

21,3279 

59 

063 

0 

TS 

NZ ACCDOT 

0272 

REF 

3 

LAST 

1977 

21 , 3275 

50 

C66 

1 

ALPHATRY 

INDEX 

QRNDXER 

0273 

REF 

29 

LAST 

1970 

21,3276 

9 

1536 

1 

CS 

AQSQ 

0279 

21,3277 

0 

C006 

1 

EXTEND 

0275 

REF 

2 

LAST 

1977 

21 ,3300 

1 

3393 

1 

BZF 

T GOFFNOW 

0276 

REF 

9 19 

LAST 

1976 

21,3301 

59 

002 

1 

TS 

Q 

0277 

21,3302 

0 

C006 

1 

EXTEND 

0278 

REF 

1 

21,3303 

7 

3257 

0 

MP 

0CT23198 

0279 

REF 

920 

LAST 

1977 

21,3309 

6 

0002 

0 

AD 

Q 

0280 

REF 

316 

LAST 

1973 

21,3305 

59 

C01 

1 

TS 

L 

0281 

REF 

1 

21,3306 

1 

3313 

1 

TCF 

SETNEGU 

0282 

REF 

515 

LAST 

1971 

21,3307 

9 

CCOO 

0 

CS 

A 

0283 

REF 

9 

LAST 

1977 

21,3310 

50 

066 

1 

INDEX 

QRNDXER 

0289 

REF 

8 

LAST 

1979 

21,3311 

57 

• 501 

1 

XCH 

NEGUQ 

0285 

REF 

1 

21,3312 

1 

3397 

0 

TCF 

NOTALLOW 

0286 

21,3313 

0 

0006 

1 

SETNEGU 

EXTEND 

0287 

REF 

1 

21, 3319 

6 

332  1 

1 

BZMF 

POSALPH 

0288 

21,3315 

9 

ocoo 

0 

COM 

0289 

REF 

31 

LAST 

1373 

21,3316 

59 

062 

1 

TS 

I TEMP2 

0290 

REF 

70 

LAST 

1972 

21,3317 

9 

9 799 

0 

CS 

B I T 1 

0291 

REF 

2 

LAST 

1977 

21,3320 

1 

3323 

1 

TCF 

POSALPH  + 

0292 

REF 

32 

LAST 

1977 

21,3321 

59 

062 

1 

POSALPH 

TS 

I TEMP2 

0293 

REF 

71 

LAST 

1977 

21,3322 

3 

9 799 

1 

CA 

B I T 1 

0299 

REF 

5 

LAST 

1977 

21,3323 

50 

066 

1 

+ 2 

INDEX 

QRNOXER 

0295 

REF 

9 

LAST 

1977 

21,3329 

55 

' 501 

0 

TS 

NEGUQ 

0296 

REF 

2 

LAST 

1977 

21,3325 

3 

0063 

1 

CA 

N Z ACCDOT 

0297 

21,3326 

C 

0006 

1 

EXTFND 

0298 

REF 

91 

LAST 

1979 

21,3327 

7 

9731 

1 

MP 

B I T 1 2 

0299 

REF 

33 

LAST 

1977 

21,3330 

6 

0062 

0 

AD 

ITEMP2 

0300 

21,3331 

0 

C C 06 

1 

EXTEND 

0301 

REF 

2 

LAST 

1977 

21,3332 

6 

3397 

1 

BZMF 

NOTALLOW 

0302 

REF 

39 

LAST 

1977 

21,3333 

9 

0062 

1 

CS 

I TEMP2 

0303 

21,3339 

C 

0006 

1 

EXTEND 

0309 

REF 

1 

21,3335 

7 

3370 

1 

MP 

0CT00290 

0305 

21,3336 

0 

0006 

1 

EXTEND 

0306 

REF 

3 

LAST 

1977 

21,3337 

10 

C 63 

0 

DV 

NZACC  DOT 
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NOW  DO  THE  Q-AXIS 


ACCDOT  IS  PRESUMED  TO  BE  AT  PI/217). 

IS  ACCOOT  LESS  THAN  nR  EQUAL  TO  0? 

NO.  STORE  NON-ZERO,  POSITIVE  ACCDOT. 


IS  ALPHA  ZERO? 

SAVE  A COPY  OF  -AOS. 

NO.  RESCALE  FOR  TIMEGMBL  USF. 

OCTAL  23196  IS  DECIMAL  .6 
-L.6*A0S  AT  PI/2  = — . 9* AO S AT  PI/8. 
WAS  THERE  OVERFLOW? 

NO.  COMPUTE  DRIVE  TIME. 

RFCOVER  -SGNIAOS)  IN  THE  A REGISTER. 
YES.  START  DRIVE  WITHOUT  WAITLIST. 

KNOCK  DOWN  THE  ALLOWGTS  FLAG. 


STORE  — ABS ( . 9*A0S ) SCALEO  AT  PI/8. 


STORE  — ABSl  .9# AOS)  SCALFD  AT  PI/8. 

SGNIAOS)  INTO  NEGU 
STORE  SGN(APLHA)  AS  NEGU 


2*  ACC  DOT , SCALED  AT  PI/8. 

- ABS ( ALPHA ) + 2* ACCDO T , AT  PI/8. 

IS  DRIVE  TIME  MORE  THAN  TWO  SECONDS? 
NO.  COMPUTE  DRIVE  TIME. 

ABSIALPHA)  AT  PI/8. 

DECIMAL  10/1029 

QUOTIENT  IS  DRIVE  TIME  AT  WAITLIST. 
ABSIALPHAI/AC  COOT  AT  21191/100 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  8Y  NASA  2021112-161 

L TRIM  GIMUAL  CONTROL  SYSTEM 


0307 

21,3340 

0 0006 

1 

EXTEND 

0308 

REF 

3 

LAST 

1477 

21,3341 

1 3343 

1 

BZF 

TGOFFNOW 

0309 

REF 

1 

21,3342 

1 3355 

0 

TCF 

DR  IVEON 

0310 

REF 

311 

LAST 

1477 

21, 3343 

3 4 /46 

0 

TGOFFNOW 

CAF 

ZERO 

031  1 

REF 

6 

LAST 

1477 

21, 3344 

50  066 

1 

INDEX 

QRNDXFR 

0312 

REF 

10 

LAST 

1477 

21,3345 

55' 501 

0 

TS 

NEGUQ 

031  3 

REF 

1 

21,3346 

1 3357 

1 

TCF 

DONEYET 

0314 

REF 

4 

LAST 

831 

21,3347 

3 6010 

0 

NOTALLOW 

CAF 

0CT31 

0315 

REF 

7 

LAST 

1478 

21, 3350 

50  066 

1 

INDEX 

QRNDXER 

0316 

REF 

8 

LAST 

14  70 

21,3351 

55 ' 63  1 

0 

TS 

QGIMTIMR 

031  7 

REF 

312 

LAST 

1478 

21,3352 

3 4746 

0 

CAF 

ZERO 

0318 

REF 

4 

LAST 

1476 

21,3353 

55*502 

0 

TS 

ALLOWGTS 

A0319 

0320 

REF 

2 

LAST 

1478 

21,3354 

l 3357 

1 

TCF 

DONEYET 

032  1 

REF 

0 

LAST 

1478 

21,3355 

50  066 

1 

DR  IVEON 

INDEX 

ORNDXER 

0322 

REF 

9 

LAST 

1478 

21,3356 

55*631 

0 

TS 

QGIMT IMR 

0323 

REF 

' 9 

LAST 

1478 

21,3357 

10  C 66 

0 

DONEYET 

CCS 

ORNDXER 

' 0324 

REF 

l 

21,3  360 

1 3266 

1 

TCF 

T IMQGMBL 

0325 

REF 

14 

LAST 

1360 

21,3361 

52  073 

1 

DXC  H 

RUPTREG3 

0326 

REF 

35 

LAST 

1477 

21,3362 

52  063 

0 

DXCH 

I TEMP2 

0327 

REF 

64 

LAST 

1450 

21,3363 

0 4665 

0 

TC 

I BNKCALL 

0328 

REF 

2 

LAST 

1426 

21, 3364 

35737 

1 

CAOR 

ACDT+C12 

0329 

REF 

36 

LAST 

1478 

21,3365 

52  063 

0 

DXCH 

I TEMP2 

0330 

REF 

15 

LAST 

1478 

21,3366 

52  073 

1 

DXCH 

RUPTREG3 

0331 

REF 

24 

LAST 

1476 

21, 3367 

0 C07  l 

1 

TC 

RUPTREG2 

0332 

21,3370 

00240 

1 

0CT00240 

OCTAL 

00240 
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DRIVE  TIME  MUST  BE  GREATER  THAN  ZERO. 

TURN  OFF  GIMBAL  NOW. 


DRIVE  TIME  IS  MORE  THAN  2 SECONDS,  SO 
DO  NOT  PERMIT  FURTHFR  GTS  ATT  I TUDF-RAT E 
CONTROL  UNTIL  AOSTASK  APPROVES. 

NO  WAITLIST  CALL  IS  MADE. 


CHOOSE  « OR  R AXIS. 


PROTECT  I 8NKC ALL  ERASABLES.  ACDT+C12 
LEAVES  ITEMPS2.3  ALONE. 

TURN  OF  CHANNEL  BITS,  SET  OIRIACCOOTS. 

RESTORE  FRASABLES  FOR  IRNKCALL . 

RFTURN  TO  CALLER. 

DECIMAL  10/1024 


GAP: 
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L TRIM  GIMBAL  CONTROL  SYSTEM  USER'S  PAGE  NO.  10  E6  S4 

P0333  THE  ECLLOWING  SECTION  IS  A CONTINUATION  OF  THE,  TRIM  GIMBAL  CONTROL  FROM  THE  LAST  GTS  ENTRY.  THE  QUANTITY  NEGUSUM 
R0335  IS  COMPUTED  FOR  EACH  AXIS  (Q,R),  . 70 7*DEL *FU NC T ION  I 3/ 2 ) + K2THETA  = NEGUSUM.  NEW  DRIVES  ARE  ENTERED  TO  CH  12. 

R0337  THE  SUBROUTINE  GTSORT  ACCEPTS  A DOUBLE  PRECISION  VALUE  IN  FUNCTION,  FUNCTION  * 1 AND  RETURNS  A SINGLE-PRECISION 

R0339  SQUARE  ROOT  OF  THE  FOURTEEN  MOST  SIGNIFICANT  BITS  OF  THE  ARGUMENT.  ALSO,  THE  CELL  SHFTFLAG  CONTAINS  A BINARY 

R034  1 EXPONENT  S,  SUCH  THAT  TFlF  SQUARE  ROOT  (RETURNED  IN  THE  A REGISTER)  MUST  BE  SHIFTFD  RIGHT  ( MULT  I°L IED  BY  2 TO  THE 

R0343  POWER  (-S)I  IN  ORDER  TO  BE  THE  TRUE  SQUARE  ROOT  OF  THE  FOURTEEN  MOST  SIGNIFICANT  BITS  OF  FUNCTION,  FUNCTION  +1. 
R0345  SQUARE  ROOT  ERROR  IS  NOT  MORE  THAN  2 IN  THE  14TH  SIGNIFICANT  BIT.  CELLS  CLOBBERED  ARF  A , L , SHF  TEL  AG , I N I NDE X , 

R0347  HALFARG, SCRATCH, SR, FUNCT ION,  FUNCTION  +1.  GTSQRT  IS  CALLED  BY  TC  GTSQRT  AND  RETURNS  VIA  TC  Q OR  TC  FUNCTION  +1 . 

R0349  ZERO  CR  NEGATIVE  ARGUMENTS  YIELO  ZERO  FOR  SQUARE  ROOTS. 


0350 

REF 

8 

LAST 

1473 

21,3371 

11 ' 750 

0 

GTSQRT 

CCS 

FUNCTION 

0351 

REF 

1 

21,3372 

1 3410 

0 

TCF 

GOODARG 

FUNCTION  IS  POSITIVE.  TAKF  SQUARE  ROOT. 

0352 

21,3373 

1 3375 

1 

TCF 

+2 

HIGH  ORDER  WORD  IS  ZERO.  TRY  THE  LOWER. 

0353 

REF 

1 

21, 3374 

l 3401 

0 

TCF 

ZEROOT 

NEGATIVE.  USE  ZERO  FOR  1/2  POWER. 

0354 

REF 

9 

LAST 

1479 

21,3375 

3 1751 

0 

CA 

FUNCTION  +1 

0355 

21,3376 

0 0006 

1 

EXTEND 

0356 

REF 

2 

LAST 

1479 

21,3377 

6 3401 

1 

BZMF 

ZEROOT 

0357 

REF 

1 

21,3400 

1 3404 

0 

TCF 

ZEROHIGH 

PROCEED. 

0358 

REF 

3 13 

LAST 

1478 

21,3401 

3 4746 

0 

ZERODT 

CA 

ZERO 

0359 

REF 

1 

21, 3402 

55' 740 

1 

TS 

SHFTFLAG 

0360 

REF 

421 

LAST 

1477 

21,3403 

0 C002 

0 

TC 

Q 

0361 

REF 

10 

LAST 

1479 

21,3404 

57' 750 

1 

ZEROHIGH 

XCH 

FUNCTION 

14  MOST  SIGNIFICANT  BITS  ARE  IN  THE 

0362 

REF 

11 

LAST 

1479 

21 ,3405 

57' 751 

0 

XCH 

FUNCTION  +1 

LOWER  WORD.  EXCHANGE  THFM. 

0363 

REF 

27 

LAST 

1371 

21 , 3406 

3 4750 

1 

•CA 

SEVEN 

0364 

REF 

2 

LAST 

1479 

21 , 3407 

1 3411 

1 

TCF 

GOODARG  +1 

0365 

REF 

314 

LAST 

1479 

21,3410 

3 4 746 

0 

GOODARG 

CA 

ZERO 

0366 

REF 

2 

LAST 

1479 

21,3411 

55' 740 

1 

TS 

SHFTFLAG 

0367 

REF 

2 

LAST 

898 

21 , 3412 

3 5745 

1 

CA 

TWELVE 

INITIALIZE  THE  SCALING  LOOP. 

0368 

REF 

1 

21,3413 

55' 743 

1 

TS 

ININDEX 

0369 

REF 

1 

21,3414 

1 3423 

0 

TCF 

SCALLOOP 

0370 

REF 

12 

LAST 

1479 

21,3415 

3 1750 

l 

SCALSTRT 

CA 

FUNCT ION 

037  1 

REF 

1 

21,3416 

1 3437 

0 

TCF 

SCALDONE 

0372 

REF 

11 

LAST 

1464 

21,3417 

3 7767 

0 

MULBUSH 

CA 

NEG2 

IF  ARG  IS  NOT  LESS  THAN  1/4,  INDEX  IS 

0373 

REF 

2 

LAST 

1479 

21 , 3420 

27' 743 

1 

ADS 

ININDEX 

ZERO,  INDICATING  NO  SHIFT  NEFDED. 

0374 

21,3421 

0 0006 

1 

EXTEND 

BRANCH  IF  ARG  IS  NOT  LESS  THAN  1/4. 

0375 

REF 

1 

21,3422 

6 3415 

1 

BZMF 

SCALSTRT 

OTHERWISE  COMPARE  ARG  WITH  A REFFRFNCE 

A0376 

WHICH  IS  4 TIMES  LARGER  THAN  THE  LAST. 

0377 

REF 

13 

LAST 

1479 

21,3423 

4 1750 

0 

SCALLOOP 

CS 

FUNCTION 

037  8 

REF 

3 

LAST 

1479 

21,3424 

51 ' 743 

0 

INDEX 

I N INDEX 

0379 

REF 

55 

LAST 

1454 

21,3425 

6 4726 

0 

AD 

BIT15 

REFERENCE  MAGNITUDE  LESS  OR  EQUAL  TO  1/4 

0380 

21,3426 

0 0 0 06 

1 

EXTEND 

038  1 

REF 

1 

21,3427 

6 3417 

0 

BZMF 

MULBUSH 

IF  ARG  IS  NOT  LESS  THAN  REFERENCE,  GO 

A0382  AROUND  THE  MULBERRY  BUSH  ONCE  MORE. 


GAP: 

L 

0383 

0384 

038  5 

0386 

0387 

0388 

0389 

A0390 

A039  1 

039? 

0393 

039  4 

0395 

0396 

039  7 

039  8 

0399 

040  0 

040  1 

040  2 

040  3 

0404 

R0405 

040  7 

040  8 

040  9 

0410 

041  l 

0412 

0413 

0414 

0415 

0416 

041  7 

A041  8 

0419 

042  0 

042  1 

0422 

042  3 

0424 

042  5 

0426 
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REF 

4 

LAST 

1479 

21,3430 

51 ' 743 

0 

INDEX 

ININDEX 

REF 

56 

LAST 

1479 

21,3431 

3 4726 

0 

CA 

BIT15 

THIS  IS  THE  SCALE  MAGNITUDE 

REF 

1 

21 , 3432 

57' 746 

0 

XCH 

HALFARG 

2**(- ININDEX)  IS  THE 

SHIFT  DIVISOR. 

21,3433 

0 0006 

l 

EXTEND 

RESCALE  ARGUMENT. 

REF 

14 

LAST 

1479 

21,3434 

3 1751 

0 

DC  A 

FUNCT ION 

21,3435 

0 0006 

1 

EXTEND 

REF 

2 

LAST 

1480 

21,3436 

11' 746 

1 

DV 

HALFARG 

ININDEX  AND  SHFTFLAG 

PRESERVE  INFO  FOR 

RFSCALING  AFTER  ROOT 

PROCFSS. 

21,3437 

0 0006 

1 

SCALDONE  EXTEND 

REF 

15 

LAST 

1480 

21,3440 

l ' i >] 

0 

OXCH 

FUNCTION 

+ 1 

SAVE  Q FDR  RETURN 

21,3441 

0 C006 

1 

EXTEND 

REF 

86 

LAST 

1471 

21,3442 

7 4727 

0 

MP 

8IT14 

REF 

3 

LAST 

1480 

21,3443 

55' 746 

1 

TS 

HALFARG 

REF 

54 

LAST 

1460 

21,3444 

7 4730 

0 

MASK 

BIT13 

REF 

516 

LAST 

1477 

21 , 3445 

10  COO 

0 

CCS 

A 

REF 

1 

21,3446 

3 3564 

0 

CA 

0CT1 1276 

REF 

1 

21,3447 

6 3562 

0 

AD 

ROOTHALF 

INITIAL  GUESS  IS  ROOT 

1/2  OR  POSMAX 

REF 

1 

21, 3450 

0 3566 

1 . 

TC 

ROOTCYCL 

REF 

2 

LAST 

1480 

21, 3451 

0 3566 

1 

TC 

ROOTCYCL 

REF 

3 

LAST 

1480 

21, 3452 

0 3566 

1 

TC 

ROOTCYCL 

REF 

16 

LAST 

1480 

21,3453 

0 1751 

0 

TC 

FUNCT I UN 

+ 1 

REF 

1 

21, 3454 

0 3371 

1 

R STOFGTS 

TC 

GTSQPT 

REF 

13 

LAST 

1474 

21, 3455 

57' 741 

1 

PRODUCT 

XCH 

K2CNTRAL 

21, 3456 

0 CC06 

l 

EXTEND 

REF 

14 

LAST 

1480 

21,3457 

7 1741 

0 

MP 

K2CNTRAL 

REF 

15 

LAST 

1480 

21,3460 

53 ' 742 

0 

DXCH 

K2CNTRAL 

21,3461 

0 0006 

1 

EXTEND 

THE 

product  nF 

REF 

3 17 

LAST 

1477 

21,3462 

7 CC01 

1 

MP 

L 

1/2 

2 1/2 

REF 

16 

LAST 

1480 

21,3463 

27' 742 

0 

ADS 

K2CNTRAL  +1 

K *(DEL*OMFGA 

+ ALPHA  / (2*K) I 

REF 

3 18 

LAST 

1430 

21 ,3464 

54  001 

1 

TS 

L 

AND 

21,3465 

1 3467 

0 

TCF 

+ 2 

2 

REF 

17 

LAST 

1480 

21,3466 

27' 741 

0 

ADS 

K2CNTRAL 

DEL* ( DEL  *OMF  GA 

+ ALPHA  / (2*K) ) NOW  IN 

K2CNTRA1 

REF 

5 

l AST 

1480 

21 ,3467 

3 1743 

0 

DOSHIFT 

CA 

ININDEX 

21,3470 

0 C006 

1 

EXTEND 

MULTIPLY  IN  THE 

FACTOR  2 ( -S  ) , RETUPNED 

REF 

87 

LAST 

1480 

21,3471 

7 4727 

0 

MP 

B I T 1 4 

BY  THE  GTSQRT  SUBROUTINE 

REF 

3 

LAST 

1479 

21,3472 

27' 740 

1 

ADS 

SHFTFLAG 

21,3473 

0 C006 

1 

EXTEND 

REF 

1 

21,3474 

1 3513 

1 

BZF 

ADDITIN 

REF 

4 

LAST 

1480 

21,3475 

51' 740 

0 

INDEX 

SHFTFLAG 

REF 

57 

LAST 

1 . 

21,3476 

3 4726 

0 

CA 

BIT15 

GAP: 
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042  7 

REF 

18 

LAST 

1430 

21,3477 

57' 741 

1 

XCH 

K2CNTRAL 

0428 

21,3500 

0 0006 

1 

EXTEND 

0429 

REF 

19 

LAST 

1481 

21,3501 

7 1741 

0 

MP 

K2CNTRAL 

0430 

REF 

7 

LAST 

1473 

21,3502 

2 1 ' 737 

1 

DAS 

K2THETA 

0431 

REF 

20 

LAST 

1481 

21 ,3503 

57 ' 741 

l 

XCH 

K2CNTRAL 

0432 

21,3504 

0 0006 

1 

EXTEND 

043  3 

REF 

21 

LAST 

148  1 

21,3505 

7 1742 

0 

MP 

K2CNTPAL 

0434 

KEF 

8 

LAST 

1481 

21,3506 

27  • 737 

1 

ADS 

K2 THETA 

043  5 

REF 

319 

LAST 

1480 

'21,3507 

54  001 

1 

TS 

L 

0436 

21,3510 

l 3512 

0 

TCF 

+ 2 

043  7 

REF 

9 

LAST 

148  1 

21,3511 

27 ' 736 

0 

ADS 

K2THETA 

043  B 

REF 

3 

LAST 

1474 

21,3512 

l 3516 

1 

TCF 

NEGUSUM 

0439 

21/3513 

0 C 006 

l 

ADOI T IN 

EXTEND 

044  0 

REF 

22 

LAST 

148  1 

21,3514 

3 1742 

1 

DC  A 

K2CNTRAL 

044  1 

REF 

10 

LAST 

1481 

21,3515 

21 ' 737 

1 

DAS 

K2THETA 

044  2 

REF 

1 1 

LAST 

1481 

21,3516 

11' 736 

0 

NEGUSUM 

CCS 

K2THETA 

0443 

REF 

1 

21,3517 

l 3523 

1 

TCF 

NEGDRI VE 

044  4 

21,3520 

1 3522 

0 

TCF 

+ 2 

044  5 

REF 

2 

LAST 

1471 

21,3521 

1 3525 

1 

TCF 

POSDRIVE 

0446 

REF 

12 

LAST 

1481 

21,3522 

11  • 737 

1 

CCS 

K2THFTA 

044  7 

REF 

72 

LAST 

1477 

21,3523 

3 4744 

1 

NEGDRI VE 

CA 

BIT1 

044  8 

21,3524 

1 3526 

1 

TCF 

+ 2 

0449 

REF 

73 

LAST 

1481 

21,3525 

4 4744 

0 

POSDRI VE 

CS 

B I T 1 

0450 

REF 

320 

LAST 

1481 

21,3526 

54  001 

1 

TS 

L 

045  1 

REF 

6 

LAST 

1471 

21,3527 

51' 747 

1 

INDEX 

QRCNTR 

0452 

REF 

11 

LAST 

1478 

21,3530 

57' 501 

1 

XCH 

NEGUQ 

0453 

21,3531 

0 0006 

1 

EXTEND 

0454 

REF 

321 

LAST 

1481 

21 ,3532 

7 0001 

1 

MP 

L 

045  5 

REF 

322 

LAST 

1481 

21,3533 

10  001 

1 

CCS 

L 

0456 

REF 

1 

21,3534 

1 3551 

1 

TCF 

LOUPE 

0457 

REF 

1 

21,3535 

1 3546 

1 

TCF 

ZEROLOUP 

0458 

REF 

1 

21,3536 

1 3540 

1 

TCF 

REVERSAL 

0459 

REF 

2 

LAST 

148  1 

21,3537 

1 3546 

1 

TCF 

ZEROLOUP 

046  0 

REF 

7 

LAST 

148  1 

21, 3540 

51 ' 747 

1 

REVERSAL 

INDEX 

QRCNTR 

0461 

REF 

5 

LAST 

1474 

21,3541 

55*510 

0 

TS 

QACCDOT 

0462 

REF 

8 

LAST 

1481 

21,3542 

51 ' 747 

1 

INDEX 

QRCNTR 

046  3 

REF 

1 

21, 3543 

4 3563 

0 

CS 

GMBL3 I TA 

0464 

21,3544 

0 0006 

1 

EXTEND 

046  5 

REF 

70 

LAST 

1474 

21,3545 

03  0 12 

l 

WAND 

C HAN  1 2 

0466 

REF 

50 

LAST 

1475 

21 , 3546 

4 1 774 

0 

ZEROLOUP 

CS 

RCSFLAGS 

046  7 

REF 

3 

LAST 

1475 

21,3547 

7 4740 

l 

MASK 

C ALLGMBL 

046  8 

REF 

51 

LAST 

1481 

21,3550 

27' 774 

0 

ADS 

RCSFLAGS 

17: LI  MAR.  19, 1971 
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+ 1 
+ 1 


NOW  ADD  IN  THE  K2THETA  TERM. 

TEST  SIGN  OF  HIGH  ORDER  PART. 

+1  SIGN  TEST  FOR  LOW  ORDER  PART. 

STOP  GIMBAL  DRIVE  FOR  A ZERO  NEGUSUM. 
SAVE  FOR  DRIVE  REVERSAL  TEST. 


MULTIPLY  OLD  NEGU  AND  NEW  NEGU. 

NON-ZERO  GIMBAL  DRIVE  BEING  CONTINUED. 

NO  REVERSAL  PROBLEM  HERE. 

NON-ZERO  GIMBAL  DRIVE  BEING  REVERSED . 

NO  REVERSAL  PROBLEM  HERE. 

A ZERO-DRIVE  PAUSE  IS  NEEDED  HERE.  ZERO 
IS  IN  A REGISTER  FROM  CCS  ON  (-1). 


SET  UP  REQUEST  FOR  ACDT+C 1 2 CALL 


GAP: 

L 

0469 

0470 

0471 

0472 

0473 

0474 

0475 

0476 

047  7 

0477 

R0478 

0479 

0480 

0481 

0482 

0483 

R0484 

R048  5 

R0486 

R0488 

R0490 

R0492 

R0493 

0495 

0496 

049  7 

049  8 

0499 

0500 

050  1 

0502 

R0503 
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REF 

9 

LAST 

148  1 

21,355 1 

11*747 

0 

LOUPE 

CCS 

QRCNTR 

HAVE  BOTH  AXES  BEEN 

PROCESSED? 

REF 

2 

LAST 

1470 

21,3552 

1 3045 

1 

TC  F 

GOQTRIMG 

NO.  DO  Q AXIS  NEXT. 

REF 

2 

LAST 

1470 

21,3553 

3 1505 

0 

CA 

S AVESR 

RESTORE  THE  SP. 

REF 

28 

LAST 

147  ( 

21,3554 

54  C21 

0 

TS 

SR 

21,3555 

0 0006 

1 

GOCL.OSE 

EXTEND 

TERMINATE  THE  JASK. 

REF 

1 

21,3556 

3 3561 

0 

DC  A 

C LOS  E ADR 

21,3557 

52  006 

0 

DTCB 

REF 

25 

LAST 

1477 

£6, 1536 

EB ANK= 

AOSQ 

REF 

4 

LAST 

1453 

21 , 3560 

03270 

1 

C LOS  E A OR 

2CA0R 

CLOSEOUT 

TERMINATE  THE  JASK. 

21, 3561 

36  106 

0 

REF 

6 

LAST 

1429 

5745 

TWELVE 

EQUALS 

OCT  1 4 

21 , 3562 

26501 

1 

ROOTHALF 

OCTAL 

26501 

SQUARE  ROOT  OF  1/2 

21,3563 

C 1 400 

1 

GMBL B ITA 

OCTAL 

01400 

INDEXED  WPT  GMBLBITB 

DO 

NOT 

M n V E * * * * * * 

21 , 3564 

11276 

1 

OCTl 1276 

OCTAL 

1 1276 

POSMAX  - ROOTHALF 

21 , 3565 

C6000 

1 

GMBL  B I T B 

OCTAL 

06000 

INDEXED  WRT  GMBLBITA 

DO 

NOT 

mhv  e ****** 

SUBROUTINE  ROOTCYCL:  BY  CRAIG  WORK, 3 APRIL  68 

ROCTCYCL  IS  A SUBROUTINE  WHICH  EXECUTES  ONE  NEWTON  SQUARE  ROOT  ALGORITHM  ITERATION.  THE  INITIAL  GUESS  AT  THE 
SQUARE  ROOT  IS  PRESUMED  TO  BE  IN  THE  A REGISTER  AND  ONE-HALF  THE  SQUARE  IS  TAKEN  FROM  HALFARG.  THF  NEW  APPROXI- 
MATION TO  THE  SQUARE  ROOT  IS  RETURNED  IN  THE  A REGISTER.  DEBRIS:  A , L , SR , SCR ATCH . ROOTCYCL  IS  CALLED  FROM 

LOCATICN  (LOCI  BY  A TC  ROOTCYCL,  AND  RETURNS  ( TC  Q)  TO  LOC  +1. 

WARNING:  IF  THF  INITIAL  GUESS  IS  NOT  GREATER  THAN  THE  SQUARE,  DIVIDE  OR  ADD  OVERFLOW  IS  A REAL  POSSIBILITY. 


REF 

1 

21,3566 

55' 745 

1 

ROOTCYCL  TS 

SCRATCH 

STORE  X 

REF 

29 

LAST 

1482 

21,3567 

54  C21 

0 

TS 

SR 

X / 2 NOW  IN  SR 

REF 

4 

LAST 

1480 

21,3570 

3 1 746 

0 

CA 

HALFARG 

ARG/2  IN  THE  A REG 

21,3571 

22  007 

0 

ZL 

PREPARE  FOR  DIVISION 

21, 3572 

0 0C06 

1 

EXTEND 

REF 

2 

LAST 

1482 

21,3573 

11' 745 

1 

DV 

SCRATCH 

(ARG/XI/2 

REF 

30 

LAST 

L43  2 

21,3574 

6 0021 

1 

AD 

SR 

(X  + ARG/XI/2  IN  THF 

REF 

422 

LAST 

1479 

21,3575 

0 0002 

0 

TC 

Q 

GAP: 
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L 

R0001 

R0002 

R0003 

R0004 

R000  5 
R0007 
R0009 

R001  1 
R001  3 
R0015 

R0016 
R001  8 
R0020 
R0022 

R0023 
R0025 
R'002  7 
R0029 
R003  1 
R0033 


R0035 

R0036 

R0037 

R0038 

R0039 

A0040 

A0041 

R0042 

R0043 

R 0 04  4 

R0045 

R004  7 

R0048 

R0049 


AOSTASK  AND  AOSJOB  USEP'S  PAGE  NO.  1 EO  S4 

PROGRAM  NAME:  1/ACCS 

PROGRAM  WRITTEN  BY:  BOB  COVELLI  AND  MIKE  HOUSTON 
LAST  MODIFICATION:  FEB. 14, 1969  BY  G . K ALAN 

PROGRAM  DESCRIPTION: 

1/ACCS  PROVIDES  THE  INTERFACE  BETWEEN  THE  GUIDANCE  PROGRAMS  AND  THE  DIGITAL  AUTOPILOT.  WHENEVER  THERE  IS  A 
CHANGF  IN  THE  MASS  OF  THE  VEHICLE,  I \|  THE  DEADBAND  SELECTED,  IN  THE  VEHICLE  CONFIGURATION  ( A SC ENT-D FSC ENT- 
COCKED),  AND  DURING  A FRESH  START  OR  A RESTART,  1/ACCS  IS  CALLED  TO  COMMUNICATE  THE  DATA  CHANGES  TO  THE  DAP. 

THE  INPUTS  TO  1/ACCS  ARE  MASS,  ACCELERATION  ( ABDEL  V ) , DEADBAND  IDB),  OFFSET  ACCELERATIONS  (AOSQ  AND  AOSR), 
STAGE  VERIFY  BIT  l CHAN30 , B I T2  ) , DOCKED  BIT  t D AP BOOL S , B I T 1 3 ) , DRIFT  BIT  ( D A PBOOL S , 8 I T8  ) , USEORJTS  (DAPBOOLS, 
BIT14),  AND  SURFACE  FLAG  ( FL AGWRD8 , B I T8 ) , AND  CH5MASK . 

1/ACCS  COMPUTES  THE  JET  ACCELERATIONS  (1JACC,  1JACCQ,  1JACCR)  AS  FUNCTIONS  OF  MASS.  1JACCU  AND  1JACCV  ARE 
FORMED  BY  RESOLVING  1JACCQ  NAD  1JACCR.  IN  THE  DESCENT  CASE,  THE  DESCENT  ENGINE  MOMENT  ARM  (L.PVT-CG)  IS  ALSO 
COMPUTED  AS  A FUNCTION  OF  MASS.  THE  RATE  OF  CHANGE  OF  ACCELERATION  DUE  TO  ROTATION  OF  THE  GIMRAL  ( ACCDOTQ , 

ACCDOTR ) IS  ALSO  COMPUTED  IN  THE  CESCENT  CASE. 

AFTER  THE  ABOVE  COMPUTATIONS,  THE  PROGRAM  1/ACCONT  COMPUTES  THE  RECIPROCAL  NET  ACCELERATIONS  ABOUT  THE  P,  U, 

AND  V AXES  (2  JETS  FUR  P AXIS,  BOTH  1 AND  2 JETS  FOR  U AND  V AXES),  AND  THF  RECIPROCAL  COAST  ACCELERATIONS  ABOUT 
THE  P,  U,  AND  V AXES.  THE  ACCELERATION  FUNCTIONS  (ACCFCTZ1  AND  ACCFCT  Z5 ) AR  E ALSO  COMPUTED  FOR  THESE  AXFS.  THF 
FIRE  AND  COAST  DEADBANDS  AND  AXISDIST  ARE  COMPUTED  FOR  EACH  AXIS.  FLAT  AND  Z0NF3LI M,  THE  WIDTH  AND  HEIGHT  OF  THE 
MINIMUM  IMPULSE  ZONE,  ARE  COMPUTED.  1/ACCONT  ALSO  SETS  ACCSWU  AND  ACCSWV,  WHICH  INDICATE  WHEN  1 JET  ACCELERATION 
IS  NQFT- SUFFICIENT  TO  PRODUCE  MINIMUM  ACCELERATION.  AT  THE  COMPLETION  OF  1/ACCS,  THE  ACCSOKAY  RIT  IS  SET. 


SUB8GL  TINES  CALLED: 

TIMEGMBL 

MAKECADR 

R0T45DEG 

CALLING  SEQUENCE: 

TC  BANKCALL  (1/ACCS  MUST  BE  CALL  BY  BANKCALL 

CADR  1/ACCS 

NORMAL  EXIT:  VIA  BANK JUMP  ALARM  AND  ABORT  EXIT  MOOES:  NONE. 

INPUT/CUTPUT : SEE  PROGRAM  DESCRIPTION 
DEBRIS: 

ALL  OF  THE  EXECUTIVE  TEMPORARY  REGISTERS,  EXCEPT  FIXLCC  AND  OVFIND,  AND  THE  CORE  SET  AREA  FROM  MPAC  TO  RANKSET. 
RESTRICTIONS: 

1/ACCS  MUST  BE  CALLED  BY  BANKCALL 
ERANK  IS  SET  TO  6,  BUT  NCT  RESTORED. 


GAP: 
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L AOSTASK  AND  AOSJOB  USER'S  PAGE  NO.  2 EO  S4 


0050 

21,3576 

BANK 

21 

005  1 

REF 

3 

LAST 

1475 

21,2000 

SETLOC 

0APS4 

0052 

21,3576 

BANK 

005  3 

REF 

l 

COUNT* 

$t/OAPAO 

0054 

REF 

26 

LAST 

1432 

E 6 , 1536 

EBANK= 

AOSQ 

R0055 

ENTRY  IS 

THROUGH  1/ ACC JOB  OR 

l/ACCSE  T 

WHEN  1/ACCS  IS  TO 

BE  DONE  AS  A 

SEPARATE  NOVAC  JOB. 

R005  7 

IT 

IS  POSSIBLE 

FOR 

MORE  THAN 

CNE  OF  THESE  JOBS  TG 

l BE  SET  UP  CONCURRENTLY.  HOWEVFR,  SINCE  THERE  IS  NO  CHECK  OF 

R0059 

NEWJOB , 

A SCCOND  MANIFESTATION  CANNOT 

BE 

STARTED 

UNTIL 

THE  FIRST  IS 

COMPLETED. 

006  1 

REF 

315 

LAST 

1479 

21,3576 

3 4746 

0 

l /ACC  SE  T 

CAF 

ZFRO 

ENTRY  FROM  FRESH  ST AR T /R F ST ART  CODING. 

0062 

REF 

27 

LAST 

1484 

21,3577 

55' 536 

l 

TS 

AOSQ 

NULL  THE  OFFSET  ESTIMATES  FOR  l/ACCS. 

0063 

REF 

10 

LAST 

1425 

21,3600 

55 ' 540 

0 

TS 

AOSR 

0064 

REF 

7 

LAST 

1425 

21,3601 

55 ' 424 

0 

TS 

ALPHAQ 

NULL  THE  OFFSET  ESTIMATES  FOR  DOWNLIST 

006  5 

REF 

7 

LAST 

1425 

21,3602 

5 5 ' 4 2 5 

1 

TS 

ALPHAR 

0066 

REF 

308 

LAST 

1399 

21, 3603 

0 4607 

1 

1 /AC  C JOB 

TC 

BANKCALL 

l/ACCS  ASSUMES  ENTRY  VIA  BANKCALl  . 

0067 

REF 

2 

LAST 

867 

21,3604 

40465 

l 

CAOR 

l/ACCS  +2 

SKIP  EBANK  SETTING. 

0068 

REF 

151 

LAST 

1389 

21.3605 

0 5146 

l 

TC 

ENDOFJOB 

00682 

20,2463 

BANK 

20 

00683 

REF 

5 

LAST 

1412 

20,2000 

SETLOC 

DAPS3 

006  8 4 

20,2463 

BANK 

00685 

REF 

3 

LAST 

45  TO  46: 

3 

<■,* 

COUNT* 

$ t/DAPAO 

0069 

REF 

1 1 

LAST 

1405 

20, 2463 

3 5006 

1 

l/ACCS 

CA 

EBANK6 

*****  EBANK  S FT  BUT  NOT  RESTORED  ***** 

0070 

REF 

94 

LAST 

1406 

20,2464 

54  C03 

0 

TS 

EBANK 

007  l 

REF 

15 

LAST 

1374 

20, 2465 

0 4636 

0 

TC 

MAKECADR 

SAVE  RETURN  SO  THAT  BUF2  MAY  BE  USED 

0072 

REF 

1 

20, 2466 

54  117 

l 

TS 

ACCRETRN 

R0073 

DETERMINE  MASS 

OF  THE  LEM. 

0074 

REF 

fc  l 

LAST 

1451 

20,2467 

3 0111 

0 

CA 

DAPBOOLS 

IS  CS M DOCKED 

0075 

RFF 

1 1 

LAST 

1450 

20,2470 

7 4730 

0 

MASK 

C SMDOCKD 

0076 

REF 

l 

20,2471 

54  157 

0 

TS 

DOCKTEMP 

STORE  RECORD  OF  STATE  IN  TEMP  (MPAC  +31. 

0077 

REF 

517 

LAST 

1480 

20,2472 

10  000 

0 

CCS 

A 

0078 

REF 

11 

LAST 

326 

20,2473 

4 132  7 

l 

CS 

CSMMASS 

DOCKED:  LEMMASS  = MASS  - CSMMASS 

0079 

REF 

14 

LAST 

864 

20,2474 

6 1243 

0 

AD 

MASS 

LEM  ALONE:  LEMMASS  = MASS 

0080 

REF 

12 

LAST 

326 

20,2475 

55 ' 326 

0 

TS 

1.  EMM  ASS 

R0081 

ON 

THE  BASIS  OF  APSFLAG: 

R0082 

SET 

THE  P- 

AX  I S 

RATE  COMMAND  LIMIT 

FOR  2-JET/4 

-JET  CONTROL 

R0083 

SET 

MPAC, 

WHICH 

INDICATES 

THE  PROPER 

SET  CF  COEFFICIENTS  FOR  THE 

LEM-ALONE  F(MASS)  CALCULATIONS 

R0085 

ENSURE  THAT  THE 

LEM  MASS 

VALUE  IS 

WITHIN  THE 

ACCEPTABLE  RANGE 

00855 


20,2476  0 0004  0 


INHINT 


GAP: 
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0086 

REF 

36 

LAST 

L45  1 

20,2477 

30 

106 

0 

CAE 

FLGWRD10 

0087 

REF 

16 

LAST 

145  1 

20, 2500 

7 

4730 

0 

MASK 

APSFLBI T 

0088 

20,2501 

0 

0006 

1 

EXTEND 

0089 

REF 

l 

20,2502 

1 

2526 

C 

BZF 

DPSFL ITE 

0090 

REF 

42 

LAST 

1472 

20, 2503 

4 

4724 

0 

cs 

PQSMAX 

0091 

REF 

3 

LAST 

1433 

20,2504 

55 

•475 

1 

TS 

-2JETLIM 

0092 

REF 

7 

LAST 

1482 

20, 2505 

3 

5745 

1 

CAF 

DCT 1 4 

0093 

REF 

873 

LAST 

1399 

20,2506 

54 

154 

0 

TS 

MPAC 

0094 

REF 

13 

LAST 

1484 

20, 2507 

4 

1326 

0 

CS 

LEMMASS 

0095 

REF 

3 

LAST 

223 

20, 2510 

6 

1400 

1 

AD 

H I ASCENT 

0096 

20,2511 

0 

0006 

l 

EXTEND 

0097 

REF 

1 

20,2512 

6 

2517 

0 

BZMF 

MASSFIX 

009  8 

REF 

14 

LAST 

1435 

20,2513 

4 

1326 

0 

CS 

LEMMASS 

0099 

REF 

1 

20, 2514 

6 

2001 

l 

AD 

LOASCENT 

0100 

20,2515 

0 

C C 06 

1 

EXTEND 

010  1 

REF 

l 

20,2516 

6 

2544 

0 

BZMF 

F(MASS) 

0102 

REF 

15 

LAST 

1485 

20,2517 

27 

' 326 

0 MASSFIX 

ADS 

LEMMASS 

0103 

20,2520 

22 

C07 

0 

ZL 

0104 

REF 

2 

LAST 

1484 

20,2521 

10 

157 

0 

CCS 

DOCKTEMP 

0105 

REF 

12 

LAST 

1484 

20,2522 

31 

' 327 

0 

CAE 

CSMMASS 

0106 

KEF 

16 

LAST 

1485 

20, 2523 

6 

1326 

1 

AD 

LEMMASS 

0107 

REF 

15 

LAST 

1484 

20,2524 

53 

• 244 

0 

DXCH 

MASS 

0108 

REF 

2 

LAST 

1435 

20,2525 

1 

2544 

1 

TCF 

F (MASS) 

0109 

REF 

51 

LAST 

1474 

20,2526 

4 

4733 

0 

DPSFL ITE 

CS 

B I TIO 

0110 

REF 

4 

LAST 

1485 

20,2527 

55 

' 475 

1 

TS 

- 2 JET  L I M 

0111 

REF 

34 

LAST 

1436 

20,2530 

3 

6263 

0 

CAF 

SIX 

0112 

REF 

874 

LAST 

1435 

20,2531 

54 

154 

0 

TS 

MPAC 

0113 

REF 

17 

LAST 

1485 

20,2532 

4 

1326 

0 

CS 

LEMMASS 

0114 

REF 

1 

20,2533 

6 

2002 

1 

AD 

H IDESCNT 

0115 

20,2534 

0 

0006 

1 

EXTEND 

0116 

REF 

2 

LAST 

1485 

20,2535 

6 

2517 

0 

BZMF 

MASSFIX 

0117 

REF 

18 

LAST 

1435 

20,2536 

4 

1 326 

0 

CS 

LEMMASS 

0118 

REF 

1 

20,2537 

6 

2003 

0 

AD 

LODESCNT 

0119 

REF 

4 

LAST 

1485 

20,2540 

6 

1400 

1 

AD 

H I ASCENT 

0120 

20,2541 

0 

0006 

1 

EXTEND 

0121 

REF 

3 

LAST 

1485 

20,2542 

6 

2 544 

0 

BZMF 

F(MASS) 

0122 

REF 

3 

LAST 

1485 

20,2543 

1 

2517 

1 

TCF 

MASSFIX 

R0123 

COMPUTATION  OF 

FUNCTIONS  OF  MASS 

0124 

20,2544 

0 

0003 

1 

F (MASS  I 

RELINT 

0125 

REF 

3 

LAST 

1485 

20,2545 

10 

157 

0 

CCS 

DOCKTEMP 

0126 

REF 

l 

20,2546 

1 

3063 

0 

TCF 

DOCKED 

012  7 

REF 

104 

LAST 

1476 

20,2547 

3 

4743 

0 

CA 

TWO 

0128 

REF 

875 

LAST 

1485 

20,2550 

54 

155 

1 

STCTR 

TS 

MPAC  +1 

0129 

REF 

105 

LAST 

1485 

20,2551 

4 

4 743 

1 

CS 

TWO 

0130 

REF 

376 

LAST 

1435 

20, 2552 

26 

154 

0 

ADS 

MPAC 
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DETERMINE  WHETHER  STAGED. 

ASCENT  (OR  ON  LUNAR  SURFACE) 

ALWAYS  2 JETS  FOR  P-AXIS  RATE  COMMAND 
INITIALIZE  INDEX  AT  12. 

CHECK  IF  MASS  TOO  HIGH.  CATCH  STAGING. 


CHECK  IF  MASS  TOO  LOW.  THIS  LIMITS  THE 
DECREMENTING  BY  MASSMON. 


STORE  THE  VIOLATED  LIMIT  AS  LEMMASS. 
ALSO  CORRECT  TOTAL  MASS,  ZEROING  THE 
LOW-CRDE  R WORD. 

DOCKED:  MASS  = LEMMASS  + CSMMASS 

LEM  ALONE:  MASS  = LEMMASS 


FOUR  JETS  FOR  P-AXIS  RATE  COMMAND  ERRORS 
EXCEEDING  1.4  DEG/SEC  (SCALED  AT  45) 
INITIALIZE  INDEX  AT  6. 

CHECK  IF  MASS  TOO  HIGH.  SHOULD  NEVER 
OCCUR  EXCEPT  PERHAPS  BEFORE  THE  PAD 
LOAD  IS  DONE. 

CHECK  IF  MASS  TOO  LOW.  THIS  LIMITS  THE 
DECREMENTING  BY  MASSMON. 


DOCKE 0 : USE  SEPERATE  COMPUTATION. 
J = 2 ,1,0  FOR  1 JACCR, IJACCQ,1JACC 


JX  = 10 ,8,6  OR  4,2,0  TO  INDEX  COEES 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 


L 

AOSTASK 

ANU  AOSJOB 

0131 

REF 

19 

LAST 

1485 

20,2553 

31 ' 326 

1 

STCTR1 

CAE 

LEMMASS 

013  l 1 

REF 

877 

LAST 

1485 

20,2554 

50  154 

1 

INDEX 

MPAC 

0132 

REF 

1 

20,2555 

6 3042 

l 

AD 

I NERCONC 

0133 

REF 

878 

LAST 

1486 

20,2556 

54  156 

l 

TS 

MPAC  +2 

0134 

20,2557 

0 0006 

1 

EXTEND 

0135 

REF 

8 79 

LAST 

1486 

20,2560 

5 0 154 

1 

INDEX 

MPAC 

0136 

REF 

l 

20,2561 

3 3024 

1 

DC  A 

I NERCONA 

0137 

20,2562 

0 0006 

1 

EXTEND 

013  8 

REF 

880 

LAST 

1486 

20,2563 

10  156 

l 

DV 

MPAC  +2 

0139 

REF 

881 

LAST 

1486 

20,2564 

50  154 

1 

INDEX 

MPAC 

0 1 4 f 1 

REF 

l 

20,2565 

6 3041 

1 

AD 

I NERCONB 

0141 

REF 

882 

LAST 

1486 

20,2566 

50  155 

0 

INDEX 

MPAC  +1 

014  2 

REF 

7 

LAST 

1421 

20,2567 

55' 530 

1 

TS 

l JACC 

0143 

REF 

883 

LAST 

1486 

20,2570 

10  155 

1 

CCS 

MPAC  +1 

0144 

REF 

l 

20,2571 

l 2550 

1 

TCF 

STCTR 

0145 

REF 

l 

20,2572 

1 2 5 74 

l 

TCF 

COMMEQS 

0146 

REF 

1 

20,2573 

1 2673 

0 

TCF 

LRESC 

RO 14  7 

COE  F FQ 

AND  COEFFR 

ARE  COMPUTED  IN  THIS 

SECT  ION, 

. THEY  i 

ARE  USED 

R0149 

U AND  V 

COMPONENTS 

(SEE  R 01  — T CUV  SECTION)  . 

0150 

20,2574 

22  007 

0 

COMMECS 

2L 

0150  1 

REF 

2 

LAST 

1469 

20,2575 

4 1532 

0 

CS 

1 JACCR 

0151 

REF 

2 

LAST 

1469 

20,2576 

6 1531 

1 

AD 

1 JACCQ 

0152 

20,2577 

0 CC06 

1 

EXTEND 

0153 

REF 

L 

2.0, 2600 

6 2624 

0 

BZMF 

BIGIQ 

0154 

20,2601 

0 0006 

1 

EXTENO 

0155 

REF 

3 

LAST 

1486 

20,2602 

1 1 ' 531 

0 

DV 

1 JACCQ 

0156 

REF 

1 

20,2603 

54  155 

1 

TS 

EPSILON 

0157 

REF 

1 

20,2604 

6 3C62 

0 

AD 

-EPSMAX 

0158 

20,2605 

0 0006 

1 

EXTEND 

0159 

REF 

1 

20,2606 

6 261  1 

0 

BZMF 

GOODE  PS  1 

0160 

REF 

2 

LAST 

I486 

20,2607 

4 3062 

1 

CS 

-EPSMAX 

0161 

REF 

2 

LAST 

1486 

20,2610 

54  155 

l 

TS 

EPSILON 

0162 

REF 

3 

LAST 

1486 

20,2611 

3 0155 

0 

GOODEPS1 

CA 

EPSILON 

0163 

20,2612 

0 000.6 

1 

EXTEND 

0164 

REF 

1 

20,2613 

7 3056 

0 

MP 

0.35356 

0165 

REF 

1 

20,2614 

6 3060 

1 

AD 

. 7071 

0166 

REF 

2 

LAST 

1455 

20,2615 

55 ' 627 

1 

TS 

COEFFR 

016  7 

REF 

43 

LAST 

1485 

20,2616 

4 4724 

0 

CS 

POSMAX 

0168 

REF 

4 

LAST 

1486 

20,2617 

6 0155 

0 

AD 

EPSILON 

0169 

20,2620 

0 0006 

1 

EXTEND 

0170 

REF 

3 

LAST 

1486 

20, 2621 

7 1627 

1 

MP 

COEFFR 

0171 

REF 

3 

LAST 

1455 

20,2622 

5 5 ' 626 

0 

TS 

COEFFQ 

0172 

REF 

1 

20,2623 

l 2647 

l 

TCF 

JACCUV 

0173 

20,2624 

0 C006 

1 

BIGIQ 

EXTEND 

01  74 

REF 

3 

LAST 

1486 

20,2625 

1 l ' 532 

0 

DV 

1 JACCR 

0175 

REF 

1 

20,2626 

54  155 

1 

TS 

-EPSILON 

0176 

REF 

2 

LAST 

I486 

20,2627 

4 0155 

1 

CS 

-EPSILON 

17:11  MAR.  19, 1971  LMOAP 
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MASS  + C 


1JACCI J)=A(JX )/(MASS+C(JX)  + B(JX) 

1 JACC (-1 )=L,PVT-CG  SCALED  AT  8 FEET 


RFSOLVF  Q-R  COMPONENTS  INTO  NON-ORT HOGON AL 


EPSILON  IS  A MEASURE  OF  COUPLING  AND  IS 
UFFINED=1-IQ/ IR  FOR  IR  GRFATER  THAN  10. 
THE  COMPUTED  EXPRESSION  IS  EQUIVALENT 


EPSILON  IS  LIMITED  TO  A MAX.  OF  .42265 


IN  THIS  CASE  WHERE  IR  IS  GRFATER  THAN 
10,  COEFFQ=-. 707 ( 1 + .5 EPS I LON  I ( 1-EPSILON) 
AND  C0EFFR=.707( 1+.5EPSIL0N) 


EPSILON  IS  DEFINED  AS  1-IR/IO  FOR  10 
GREATER  THAN  JR.  -EPSILON  IS  COMPUTED 
RATHER  THAN  EPSILON  FOR  CONVENIENCE 


GAP: 

l 

0177 

OL78 

0179 

0180 

0181 

0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

020  1 

0202 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

021  l 

0212 

R0213 

R0215 

R02 1 7 

R0218 

R0219 

0220 

0221 

0222 

0223 

0224 

R0225 

R022  7 


LMOAP 
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REF 

3 

LAST 

1486 

20,2630 

6 3062 

0 

AD 

— EPSMAX 

20,2631 

0 COOb 

1 

EXTEND 

REF 

1 

20,2632 

6 2635 

0 

BZMF 

G 000 EPS 2 

REF 

4 

LAST 

1487 

20,2633 

3 3062 

0 

CA 

-EPSMAX 

REF 

3 

LAST 

1436 

•20,2634 

54  155 

1 

TS 

-EPSILON 

EPSILON  IS  LIMITED  TO  A MAX.  OF  .42265 

REF 

4 

LAST 

1487 

20,2635 

3 C 1 55 

0 

GC0DEPS2 

CA 

-EPSILON 

20,2636 

0 0006 

1 

EXTEND 

REF 

2 

LAST 

1486 

20,2637 

7 3056 

0 

MP 

0.35356 

REF 

1 

20,2640 

6 3061 

0 

AD 

-.7071 

REF 

4 

LAST 

1486 

20,2641 

55 1 626 

0 

TS 

COEFFQ 

IN  THIS  CASE  WHERE  10  IS  GREATER  THAN 

REF 

5 

LAST 

1487 

20*2642 

4 0 155 

1 

CS 

-EPSILON 

IR,  C0EFFQ=-.707( 1+.5EPSIL0N)  AND 

REF 

12 

LAST 

1467 

20, 2643 

6 4726 

0 

AD 

NEGMAX 

COEFFR=. 707 ( l + . 5 E P S I L ON ) ( l-EPS ICON) 

20,2644 

0 C C 06 

1 

EXTEND 

REF 

5 

LAST 

1487 

20,2645 

7 1626 

0 

MP 

COEFFQ 

REF 

4 

LAST 

1486 

20, 2646 

5 5 1 6 2 7 

1 

TS 

COEFFR 

REF 

6 

LAST 

1487 

20,2647 

4 1626 

0 

J ACCUV 

CS 

COFFFQ 

20,2650 

0 0006 

1 

EXTEND 

REF 

4 

LAST 

1486 

20,2651 

7 1531 

0 

MP 

1 JACCQ 

1 JACCQ  IS  SCALED  AT  PI/4 

REF 

1 

20,2652 

55' 533 

1 

TS 

l JACCU 

1JACCU  USED  AS  TEMPORARY  STORAGE 

REF 

5 

LAST 

1487 

20,2653 

3 1627 

0 

CA 

COEFFR 

20,2654 

0 0006 

1 • 

EXTEND 

REF 

4 

LAST 

1486 

20,2655 

7 1532 

0 

MP 

1 JACCR 

REF 

2 

LAST 

1487 

20,2656 

6 1533 

0 

AD 

l JACCU 

20,2657 

0 0006 

1 

EXTEND 

REF 

88 

LAST 

1480 

20,2660 

7 4727 

0 

MP 

B I T 1 4 

SCALING  CHANGED  FROM  PI/4  TO  PI/2 

REF 

3 

LAST 

1487 

20,2661 

55*533 

1 

TS 

1 JACCU 

SCALED  AT  PI/2  R AD  I AN S /SE C ( 2 ) 

REF 

8 84 

LAST 

1486 

20,2662 

10  154 

0 

CCS 

M P AC 

COMPUTE  L , P VT  — CG  IF  IN  OF  SCENT 

REF 

3 16 

LAST 

1484 

20,2663 

3 4746 

0 

CAF 

ZERO 

ZFRO  SWITCHES  AND  GO  TO  1/ACCONT  IN 

REF 

5 

LAST 

1478 

20,2664 

55 ' 502 

0 

TS 

ALLOWGT  S 

ASCENT 

REF 

1 

20,2665 

1 3206 

1 

TCF 

1/ACCONT  -1 

REF 

1 C 6 

LAST 

1485 

20,2666 

4 4 743 

1 

CS 

TWO 

REF 

885 

LAST 

1487 

20,2667 

54  154 

0 

TS 

M P AC 

REF 

160 

LAST 

1476 

20,2670 

4 4 744 

0 

CS 

ONE 

REF 

886 

LAST 

1487 

20,2671 

54  155 

l 

TS 

MP AC  +1 

REF 

1 

20,2672 

1 2553 

1 

TCF 

STCTR1 

THIS  SECTION  COMPUTES  THE  RATE  OF  CHANGE  OF  ACCELERATION  DUE  TO  THE  ROTATION  OF  THE  GIMBALS.  THE  FOUATION  IMPLE 
MENTED  IN  BOTH  THE  Y-X  PLANE  AND  THE  Z-X  PLANE  IS  — D I AL  PH A ) /D  T = T L / I *0 ( DE L T A I /D T , WHFRE 


T = FNGINE  THRUST  FORCE 
L = PIVOT  TO  CG  DISTANCE  OF  ENGINE 
I = MOMENT  OF  INERTIA 


REF 

7 

LAST  866 

20,2673 

31 ' 245 

0 

LRESC 

CAE 

ABDEL V 

SCALED  AT  2 ( 13)  CM/SEC ( 2 ) 

20,2674 

0 0006 

1 

EXTEND 

REF 

16 

LAST  1485 

20,2675 

7 1243 

1 

MP 

MASS 

SCALED  AT  B+16  KGS 

REF 

1 

20,2676 

0 2760 

1 

TC 

DVOVSUB 

GET  QUOTIENT  WITH  OVERFLOW  PROTECTION 

REF 

1 

20,2677 

03057 

0 

ADRES 

GFACTM 

MASS 

IS 

DIVIDED  BY 

ACCELERAT 

ION  OF  GRAV 

ITY  IN 

ORDER  TO 

MATCH  THE 

UNITS 

OF  IXX  , l YY , I ZZ  , WHICH  ARE  SLUG-FT ( 2 ) . 

THE 

RATIO  OF  ACCELERATION  FROM  PIPAS 

TO 

ACCELERATION  CF 

GRAV I TY 

IS  THE 

SAME  IN  METRIC  OR  ENGINEERING  UNITS,  SO 

GAP 
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R0229 

THAI 

IS 

UNCONVERTED. 

2 

0231 

20 

0232 

REF 

l 

20 

0233 

20 

0234 

REF 

887 

LAST 

1487 

20 

0235 

20 

0236 

REF 

5 

LAST 

1487 

20 

023  7 

REF 

2 

L4ST 

1487 

20 

023  8 

REF 

1 

20 

0239 

REF 

2 

LAST 

1474 

20 

024  0 

REF 

888 

LAST 

1488 

20 

0241 

20 

0242 

REF 

5 

LAST 

1487 

20 

0243 

REF 

3 

LAST 

1488 

20 

0244 

REF 

2 

LAST 

1488 

20 

0245 

REF 

6 

LAST 

1477 

20 

0246 

20 

0247 

REF 

l 

20 

0248 

REF 

4 

LAST 

147  1 

20 

0249 

REF 

3 

LAST 

1488 

20 

0250 

20 

025  1 

REF 

2 

LAST 

1488 

20 

0252 

REF 

l 

20 

0253 

REF 

6 

LAST 

1481 

20 

0254 

REF 

7 

LAST 

1488 

20 

0255 

20 

0256 

REF 

8 

LAST 

1488 

20 

0257 

RFF 

7 

LAST 

1488 

20 

0258 

REF 

5 

LAST 

1474 

20 

0259 

REF 

4 

LAST 

1488 

20 

0260 

20, 

0261 

REF 

5 

LAST 

1438 

20, 

0262 

REF 

6 

LAST 

1488 

20, 

0281 

REF 

62 

LAST 

1484 

20, 

0282 

REF 

6 

LAST 

1450 

20, 

0283 

20, 

0284 

REF 

1 

20, 

0285 

REF 

6 

LAST 

1411 

20, 

0286 

REF 

1 

20, 

0287 

20, 

0288 

20 

0289 

REF 

2 

LAST 

1488 

20, 

0290 

REF 

6 

LAST 

1470 

20, 

0291 

REF 

1 

20, 

0292 

REF 

65 

LAST 

1478 

20, 

0293 

REF 

2 

LAST 

1448 

20, 

CONVERTS 

KG.  TO  LB 

. NOW 

T IS  IN  A 

0 CC06 

1 

EXTEND 

7 1527 

1 

MP 

L , PVT-CG 

0 C004 

0 

INHINT 

54  154 

0 

TS 

MPAC 

0 0006 

1 

EXTEND 

7 1532 

0 

MP 

1 JACCR 

0 2760 

1 

TC 

OVOVSUB 

02000 

0 

ADRES 

T0RKJET1 

55*511 

1 

TS 

ACCDOTR 

3 Cl 54 

1 

CA 

MPAC 

0 0006 

1 

EXTEND 

7 1531 

0 

MP 

1 JACCQ 

0 2 760 

l 

TC 

OVOVSUB 

02C00 

0 

ADRES 

T0RKJET1 

55*507 

0 

SPSCONT 

TS 

ACCDOTQ 

0 0006 

1 

EXTEND 

7 3 055 

0 

MP 

UGBF 

55*504 

0 

TS 

KQ 

31*511 

0 

CAE 

ACCDOTR 

0 0006 

1 

EXTEND 

7 3055 

0 

MP 

DGBF 

55*506 

1 

TS 

KRUAP 

11*510 

0 

CCS 

QACCDOT 

3 1507 

1 

CA 

ACCDOTQ 

1 2732 

1 

TCF 

+ 2 

t 1507 

0 

CS 

ACCDOTQ 

55*510 

0 

+2 

TS 

QACCDOT 

11*512 

1 

CCS 

RACCOOT 

3 1511 

0 

CA 

ACCDOTR 

1 2 737 

l 

TCF 

+ 2 

4 1511 

1 

CS 

ACCDOTR 

55*512 

1 

+ 2 

TS 

R ACCDOT 

4 CU1 

1 

CS 

DAPBOOLS 

7 4727 

0 

MASK 

USEQRJTS 

0 C006 

l 

EXTEND 

1 3664 

1 

BZF 

DOWNGTS 

4 1262 

1 

CS 

T5ADR 

6 3 744 

0 

AD 

PAXI SADR 

0 0006 

1 

EXTEND 

1 2751 

1 

BZF 

+2 

1 3664 

1 

TCF 

DOWNGTS 

1 1 • 632 

0 

CCS 

I NGTS 

l 2 755 

0 

TCF 

DOCKTEST 

0 4 665 

0 

TC 

I BNKC  ALL 

43260 

1 

CADR 

T I MEG MB L 

,20462 

,2  700 

,2701 

,2  702 

2703 

,2  704 

,2  705 

2 706 

,2707 

,2710 

,2711 

,2712 

,2713 

,2714 

,2715 

,2716 

,2717 

,2720 

2721 

2722 

2723 

,2724 

,2  725 

2 72  6 

,2727 

2730 

2731 

2732 

2733 

2 734 

2735 

2736 

2 73  7 

2740 

2741 

2 742 

2 74  3 

2 744 

2745 

2 746 

2747 

2750 

2 751 

2 752 

2 75  3 

2754 
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SCALED  AT  3 FEET. 


GET  QUOTIENT  WITH  OVERFLOW  PROTECTION 
SCALED  AT  PI/2I7) 

GET  QUOTIENT  WITH  OVERFLOW  PROTECTION 

SCALED  AT  PI/217) 

. 3 ACC  DOT  Q SCALED  AT  PI/2I8) 

. 3 ACC  DOTR  AT  PI/2I8) 

UPDATE  THE  JERK  VALUES  USED  BY  THF  STATE 
ESTIMATOR  WITH  THE  MAGNITUDES  THAT 
HAVE  JUST  BEEN  COMPUTED. 


IS  GIMBAL  USABLE? 


NO.  BE  SURE  THE  GIMBAL  SWITCHES  ARE  DOWN 
YES.  IS  THE  DAP  RUNNING? 


NO.  BE  SURE  THE  GIMBAL  SWITCHES  ARE  DOWN 
YES.  IS  GTS  IN  CONTROL? 

YES.  PROCEED  WITH  1/ACCS. 

NO.  NULL  OFFSET  AND  FIND  ALLOWGTS 


GAP:  ASSEMBLE  REVISION  210  OE  AGC  PROGRAM  LUMINARY  BY  NASA  202U12-16L 

L AOSTASK  AND  AOSJDB 
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0294 

REE 

4 

LAST 

1485 

20,2755 

10  157 

0 

DOCKTEST  CCS 

DOCKTEMP 

BYPASS  I/ACCONT  WHEN  DOCKED 

0295 

REF 

1 

20,2756 

1 3647 

0 

TCP 

1 /ACCRET 

0296 

REF 

2 

LAST 

1487 

20,2757 

1 3207 

0 

TCP 

l/ACCONT 

GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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L 

P0297 

R0298 

R0299 
R 030  1 
R0302 
R0303 
R0305 
R0307 
R0309 
R031  1 
R0312 
A0313 
A0314 
A0315 

R0316 

R0318 

R0320 

R032  2 

R0324 

R032  5 

R0326 

032  7 
0328 

032  9 
0330 

033  l 

0332 

0333 

0334 

0335 

0336 

033  7 
033  8 
033  9 

0340 

0341 

0342 

0343 


AOSTASK  AND  AOSJOR  USER'S  PAGE  NO.  8 E6  S4 

SUBROUTINE:  OVOVSUB 

AUTHOR:  C.  WORK,  MOD  0 12  JUNE  68 

PURPOSE:  THIS  SUBROUTINE  PROVIDES  A SINGLE-PRECISION  MACHINE  LANGUAGE  DIVISION  OPERATION  WHICH  RETURNS 

(1)  THE  QUOTIENT,  IF  TFE  DIVISION  WAS  NORMAL. 

(2)  NEGMAX,  IF  THE  QUOTIENT  WAS  IMPROPER  AND  NEGATIVE. 

(3)  POSMAX,  IF  THE  QUOTIENT  WAS  IMPROPER  AND  POSITIVE  OR  IF  THERE  WAS  A ZERO  DIVISOR. 

THE  CALLING  PROGRAM  IS  PRESUMEO  TO  BE  A JOB  IN  THE  F BANK  WHICH  CONTAINS  OVOVSUB.  F BANK  MUST  BE  6. 

THE  DIVISOR  FOR  THIS  RGUTINE  MAY  BE  IN  EITHER  FIXED  OR  ERASABLE  STORAGE.  SIGN  AGRFFMFNT  IS 

ASSUMED  BETWEEN  THE  TWO  HALVES  OF  THE  DIVIDEND.  (THIS  IS  CERTAIN  IF  THE  A AND  L REGISTERS  ARE  THE  RE- 
SULT OF  A MULTIPLICATION  OPERATION.) 

CALL  SEQUENCE: 

L TC  OVOVSUB 

L +1  ADRES  (DIVISOR) 

L +2  RETURN  HERE,  WITH  RESULT  IN  A , L 

INPUT:  DIVIDEND  IN  A , L (SIGN  AGREEMENT  ASSUMED),  DIVISOR  IN  LOCATION  DESIGNATED  BY  "ADRES". 

DIVISOR  MAY  BE  IN  THE  OVOVSUB  FB ANK , F I XED-F I X ED  F BANK , E B AN  K 6,  OR  UNSWITCHFD  ERASABLE. 

OUTPUT:  QUOTIENT  AND  REMAINDER,  CR  POSMAX  (NEGMAX),  WHICHEVER  IS  APPROPRIATE. 

DEBRIS:  SCRATCHX , SCRATCHY , SCRATCHZ  , A , L (NOTE:  SCRATCHX,Y,Z  ARE  EQUATED  TO  MPAC  +4, +5, AND  +6.) 

ABORTS  OR  ALARMS:  NONE 

EXITS:  TO  THE  CALL  POINT  + 2. 


SUBROUTINES  CALLED: 

NONE  . 

REF 

1 

20,2  760 

54  161 

0 

OVOVSUB 

TS 

SCRATCHY 

SAVE  UPPER  HALF  OF 

DI VIDFND 

REF 

1 

20,2761 

54  160 

1 

TS 

SCRATCHX 

REF 

423 

LAST 

1482 

20,2762 

50  002 

0 

INDEX 

Q 

OBTAIN  ADDRESS  OF  DIVISOR 

. 

20,2763 

3 OCOO 

1 

CA 

0 

REF 

424 

LAST 

1490 

20,2764 

24  002 

0 

I NCR 

Q 

STEP  Q FOR  PROPER  RETURN 

SFQUENCF . 

REF 

518 

LAST 

1484 

20,2765 

50  000 

1 

INDEX 

A 

20,2766 

3 0000 

1 

CA 

0 

PICK  UP  THF  DIVISOR 

. 

20,2767 

0 0006 

l 

EXTEND 

RETURN  POSMAX  FOR  A 

ZERO 

DIVISOR. 

REF 

1 

20,2770 

1 3017 

0 

BZF 

MAXPLUS 

REF 

1 

20,2771 

54  162 

0 

TS 

SCRATCHZ 

STORE  DIVISOR. 

REF 

519 

LAST 

1490 

20,2772 

10  000 

0 

CCS 

A 

GET  ABS(DIVISOR)  IN 

THE  A 

REGISTER. 

REF 

74 

LAST 

1431 

20,2773 

6 4744 

1 

AD 

B ITl 

RFF 

1 

20,2774 

1 2 7 76 

I 

TCF 

ZEROPLUS 

REF 

75 

LAST 

1490 

20,2775 

6 4 744 

1 

AD 

B ITl 

REF 

2 

LAST 

149  0 

20, 2776 

56  161 

l 

ZEROPLUS 

XCH 

SCRATCHY 

STORE  ABS( DI V ISOR ) . 

P ICK 

UP  TOP  HALF 

20,2777 

0 0006 

1 

EXTEND 

DIVIDEND. 

REF 

l 

20,3000 

6 3C02 

0 

BZMF 

GOODNEG 

GET  -ABS( DIV  IDEND) 

GAP: 
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0344 

REF  520 

LAST 

1490 

20, 3001 

4 0000 

0 

CS 

A 

0345 

REF  3 

LAST 

1490 

20,3002 

6 0161 

1 

GOODNEG 

AD 

SCRATCHY 

ABStOIVISOR)  - ABSt DI VIDEND) 

0346 

20,3003 

0 0006 

1 

EXTEND 

0347 

REF  1 

20,3004 

6 3011 

1 

BZMF 

MAKEMAX 

BRANCH  IF  DIVISION  IS  NOT  PROPER. 

034  8 

REF  2 

LAST 

1490 

20,3005 

3 Cl 60 

0 

CA 

SCRATCHX 

RE-ESTABLISH  THE  DIVIDEND. 

0349 

• 20,3006 

0 C 006 

1 

EXTEND 

0350 

REF  2 

LAST 

1490 

20, 3007 

10  162 

0 

DV 

S CRATCH Z 

QUOTIENT  IN  THE  A,  REMAINDER  IN  L. 

035  l 

REF  425 

LAST 

1490 

20,3010 

0 0002 

0 

TC 

0 

RETURN  TO  CALLER. 

0352 

REF  3 

LAST 

1491 

20,3011 

10  160 

1 

MAKEMAX 

CCS 

SCRATCHX 

DETERMINE  THE  SIGN  OF  THE  QUOTIENT. 

0353 

REF  3 

LAST 

149  l 

20, 3012 

10  162 

0 

CCS 

SCRATCHZ 

SCRATCHX  AND  SCRATCHZ  ARE  NON-ZERO. 

0354 

REF  2 

LAST 

1490 

1,  3013 

1 3017 

0 

TC  F 

MAXPLUS 

0355 

REF  4 

LAST 

1491 

20,3014 

10  162 

0 

CCS 

SCRATCHZ 

0356 

REF  13 

LAST 

1487 

20,3015 

3 4726 

0 

CAF 

NEGMAX 

+ ,-  OR  - ,+ 

0357 

REF  426 

LAST 

149  1 

20,3016 

0 0002 

0 

TC 

0 

0358 

REF  44 

LAST 

1486 

20,3017 

3 4724 

1 

M AXPLUS 

CAF 

POSMAX 

-,-  OR  +,+ 

0359 

REF  427 

LAST 

1491 

20,3020 

0 C002 

0 

TC 

Q 

RO  360 

COEFFICIENTS  FOR  THE  JET  ACCELERATION 

CURVE  FITS 

R036  1 

THE  CURVE  FITS 

ARE 

OT  THE  FORM 

_ 

R0362 

1 JACC 

= A/ I MASS  + C) 

+ 8 

R0363 

A IS  SCALEO  AT 

PI/4 

R AD/ S EC**  2 

B+16KG 

B IS  SCALED  AT  PI/4  RAD/SEC**2, 

AND  C IS  SCALEO  AT  B +16  KG. 

R0365 

THE  CURVE  FIT 

FOR  L 

.PVT-CG  IS 

OF  THE 

SAME  FORM, 

EXCEPT 

THAT  A IS  SCALED 

AT  8 FT  B+16  KG,  8 IS  SCALED  AT  8 FT 

R0367 

AND  C IS 

SCALED  AT 

B+16  KG. 

0368 

20,3021 

OC  502 

0 

2DF.C 

+ .01971 18964 

L 

A 

DESCENT 

036  8 

* 

20,3022 

36554 

0 

0369 

* 

20,3023 

OC  165 

0 

INERCONA  2DEC 

+.0071756944 

1 J ACCP 

A 

^DESCENT 

0369 

* 

20,3024 

22103 

0 

0370 

* 

20, 3025 

00027 

1 

2DEC 

+.0014551624 

1J ACCQ 

A 

OESCENT 

0370 

* 

20,3026 

32  731 

0 

0371 

20,3027 

00016 

0 

2DEC 

+ .0008936540 

1JACCR 

A 

DESCENT 

0371 

* 

20,3030 

24420 

l 

0372 

20,3031 

00153 

0 

2DEC 

+ .0065443852 

1 J ACC  P 

A 

ASCENT 

0372 

20,3032 

07111 

l 

0373 

20,3033 

00072 

1 

2DEC 

+ .0035784354 

1J ACCQ 

A 

ASCENT 

0373 

20,3034 

24  103 

0 

0374 

20,3035 

OC  1 35 

0 

2DEC 

+ .0056946631 

1 JACCR 

A 

ASCENT 

0374 

20,3036 

11511 

L 

0375 

* 

20,3037 

06147 

0 

DEC 

+ .19379  7 

L 

B 

DESCENT 

0376 

* 

20,3040 

75512 

0 

DEC 

- .073545 

L 

C 

OESCENT 

0377 

* 

20,3041 

OCOOO 

1 

I NERCONB  DEC 

+ .000000 

IJ ACCP 

B 

DESCENT 

0378 

* 

20, 3042 

01363 

0 

INERCONC  DEC 

+ .046084 

1J ACCP 

C 

DESCENT 
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0379 

* 

20,3043 

CC455 

0 

DEC 

+.018374 

0380 

20,3044 

76C36 

0 

DEC 

-.060583 

0381 

* 

20,3045 

OC  562 

0 

DEC 

+.022613 

0382 

* 

20,3046 

75643 

l 

DEC 

- .068096 

0383 

20,3047 

OCOOl 

0 

DEC 

+.000032 

0384 

20,3050 

77616 

0 

DEC 

- .006923 

0385 

20,3051 

05  154 

l 

DEC 

+ .162862 

0386 

20,3052 

00052 

0 

DEC 

+ .002588 

0387 

20,3053 

00231 

1 

DEC 

+.009312 

0388 

20,3054 

77174 

0 

DEC 

- .023608 

039  3 

20,  +.'9  5 

23  146 

0 

OGBF 

DEC 

0.6 

0394 

20,3056 

13241 

l 

0.35356 

DEC 

0 .35356 

0395 

20,3057 

00337 

0 

GFACTM 

OCT 

337 

0396 

20,3060 

26501 

1 

. 7071 

DEC 

.70711 

039  r 

20,3061 

51276 

0 

-.7071 

DEC 

- .70711 

0398 

20,3062 

62362 

l 

— EPSMAX 

DEC 

-.42265 

R0399 

CSM- 

-DOCKED  INERTIA 

COMPUTATIONS 

. 040  0 

REF 

If  1 

LAST 

1487 

20,3063 

3 4 744 

1 

DOCK  EO 

CA 

ONE 

0401 

REF 

I 

20,3064 

54  160 

1 

SP  SLOOP  1 

TS 

COEFCTR 

040  2 

REF 

162 

LAST 

1492 

20,3065 

3 4 744 

1 

CA 

ONE 

0403 

REF 

1 

20, 3066 

54  161 

0 

TS 

MASSCTR 

0404 

REF 

2 

LAST 

1492 

20,3067 

50  160 

0 

INDEX 

COEFCTR 

040  5 

REF 

1 

20,3070 

3 3170 

l 

CA 

COEFF  -1 

040  6 

20, 3 0 71 

C 0006 

1 

EXTEND 

040  7 

REF 

20 

LAST 

1486 

20,3072 

7 1326 

0 

MP 

LEMMASS 

040  8 

20, 3073 

0 CC06 

1 

EXTEND 

0409 

REF 

13 

LAST 

1485 

20,3074 

7 1327 

l 

MP 

CSMMASS 

0410 

REF 

3 

LAST 

1492 

20,3075 

50  160 

0 

INDEX 

COEFCTR 

041  1 

REF 

2 

LAST 

1492 

20,3076 

6 3171 

0 

AD 

COEFF 

0412 

REF 

889 

LAST 

1488 

20,3077 

54  154 

0 

TS 

MPAC 

0413 

20,3100 

1 3104 

0 

TCF 

+ 4 

0414 

REF 

2 

LAST 

1492 

20,3101 

54  161 

0 

SPSL00P2 

TS 

MASSCTR 

0415 

20,3102 

0 0006 

1 

EXTEND 

0416 

REF 

4 

LAST 

1492 

20,3  103 

26  160 

1 

DIM 

COEFCTR 

0417 

REF 

5 

LAST 

1492 

20,3104 

50  160 

0 

INDEX 

COEFCTR 

0418 

REF 

3 

LAST 

1492 

20,3105 

3 3173 

1 

CA 

COEFF  +2 

0419 

20,3106 

C 0006 

1 

EXTEND 

0420 

REF 

3 

LAST 

14°2 

20,3107 

5 0161 

1 

INDEX 

MASSCTR 

042  1 

REF 

21 

LAST 

1492 

20,3110 

7 1326 

0 

MP 

LEMMASS 

042  2 

REF 

6 

LAST 

1492 

20,3111 

50  160 

0 

INDEX 

COEFCTR 

042  » 

RFF 

4 

LAST 

1492 

20,3112 

6 3 175 

1 

AO 

COEFF  +4 

0424 

20,3113 

0 0006 

1 

EXTEND 

0425 

REF 

4 

LAST 

1492 

20,3114 

5 C 1 6 1 

l 

INDEX 

MASSCTR 
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IJACCQ 

B 

OESCENT 

IJACCQ 

C 

DESCENT 

1 J ACC  R 

B 

OF  SCENT 

l JACCR 

C 

DESCENT 

1 J ACC  P 

B 

ASCENT 

1 JACCP 

C 

ASCENT 

IJACCQ 

B 

ASCENT 

IJACCQ 

C 

ASCENT 

1 JACCR 

B 

ASCENT 

1J  ACCR 

C 

ASCENT 

.3  SCALED 

AT  1/2 

.70711  SCALED  AT  2 
979.24/2.2046 2 AT  B+15 


COEETR  = 1 FOR  INERTIA  COEFFICIENTS 
= 7 FOR  CG  COEFFICIENTS 

MASSCTR  = 1 FOR  CSM 

= 0 FOR  LEM 


COEFF  -1  = C 


LET  X = CSMMASS  AND  Y = LFMMASS 

COEFF  = F 

MP AC  = C X Y + F 


LOOP  TWICE  THROUGH  HERE  TO  OBTAIN 
M P AC  = MPAC  + (A  X +D ) X + IB  Y + E)Y 
LOOP  #1  LOOP  #2 

COEFF  +2  = A OR  B 


COEFF  +4 


E OR  0 
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0426 

REF 

22 

LAST 

1492 

20,3115 

7 1326 

0 

MP 

LEMMASS 

0427 

REF 

890 

LAST 

1492 

20,3116 

26  154 

0 

ADS 

MPAC 

042  8 

REF 

5 

LAST 

1492 

20,3117 

10  161 

0 

CCS 

MASSCTR 

042  9 

REF 

1 

20,3120 

1 3101 

0 

TCF 

SPSL00P2 

0430 

REF 

7 

LAST 

1492 

20,3121 

10  160 

1 

CCS 

COEFCTR 

0431 

20,3122 

1 3131 

0 

TCF 

+ 7 

0432 

20,3123 

00000 

1 

TORQCCNS  2DEC 

0.51443  B— 14 

0432 

20,3124 

20354 

1 

0433 

REF 

851 

LAST 

1493 

20,3125 

3 0154 

1 

CA 

MPAC 

0434 

REF 

892 

LAST 

1493 

20, 3126 

54  155 

1 

TS 

MPAC  +1 

0435 

REF 

28 

LAST 

1479 

20,3127 

3 4750 

1 

CA 

SEVEN 

0436 

REF 

1 

20,3130 

1 3 C 64 

1 

TCF 

S PSL00P1 

043  7 

REF 

1 

20,3131 

3 3170 

1 

CA 

IJACCCON 

0438 

20,3132 

22  007 

0 

ZL 

043  9 

REF 

4 

LAST 

1488 

20,3133 

0 2760 

1 

TC 

OVOVSUB 

044  0 

REF 

17 

LAST 

1487 

20,3134 

01243 

0 

ADRES 

MASS 

044  1 

REF 

8 

LAST 

1486 

20,3135 

55*530 

l 

TS 

1 JACC 

0442 

REF 

45 

LAST 

149  1 

20,3136 

3 4724 

1 

CA 

POSMAX 

0443 

REF 

2 

LAST 

1433 

20,3137 

55 ' 550 

1 

TS 

l/ANETP 

0444 

REE 

3 

LAST 

1462 

20,3140 

55' 570 

0 

TS 

1/ANET2  +1 

044  5 

REF 

4 

LAST 

1493 

20,3141 

55*571 

1 

TS 

1/ANET2  +2 

0446 

REF 

5 

LAST 

1493 

20,3142 

55*610 

0 

TS 

1/ANET2  +17D 

044  7 

REF 

6 

LAST 

1493 

20,3143 

55 ' 61 1 

1 

TS 

1/ANET2  +18D 

044  8 

20,3144 

0 0006 

1 

EXTEND 

0449 

REF 

l 

20,3145 

3 3124 

0 

OCA 

TORQCONS 

0450 

20,3146 

0 C006 

1 

EXTEND 

0451 

REF 

853 

LAST 

1493 

20, 3 14  7 

10  155 

l 

OV 

MPAC  +1 

0452 

20,3150 

C C C 04 

0 

INHINT 

0453 

REF 

6 

LAST 

1488 

20,3151 

55  • 531 

0 

TS 

l JACCQ 

0454 

REF 

6 

LAST 

1488 

20,3152 

55*532 

0 

TS 

l JACCR 

045  5 

REF 

2 

LAST 

1487 

20, 3153 

3 3C61 

0 

CA 

-.7071 

0456 

REF 

7 

LAST 

1487 

20,3154 

55*626 

0 

TS 

COEFFQ 

045  7 

REF 

2 

LAST 

1486 

20,3155 

3 3060 

1 

CA 

. 7071 

0458 

REF 

6 

LAST 

1487 

20, 3156 

55*627 

1 

TS 

COEFFR 

0459 

REF 

18 

LAST 

1493 

20,3157 

J 1243 

0 

CA 

MASS 

0460 

20,3160 

0 0006 

1 

EXTEND 

046  1 

REF 

854 

LAST 

1493 

20,3161 

7 0154 

0 

MP 

MPAC 

0462 

20,3162 

0 0006 

l 

EXT  ENO 

0463 

REF 

8 

LAST 

1487 

20,3163 

7 1245 

1 

MP 

ABDFLV 

0464 

REF 

5 

LAST 

1493 

20,3164 

0 2760 

1 

TC 

D VOV  SUB 

0465 

REF 

855 

LAST 

1493 

20,3 165 

00155 

0 

ADRES 

MPAC  +1 

0466 

REF 

6 

LAST 

1488 

20,3166 

55' 511 

l 

TS 

ACCDOTR 

046  7 

REF 

1 

20,3  167 

1 2716 

1 

TCF 

SPSCONT 

046  8 

20,3170 

00167 

1 

IJACCCON  OCT 

00167 
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USER' S PAGE  NO.  11 


E 6 S4 


IF  COEFCTR  IS  POS  , EXIT  FROM  LOOP  WITH 
CG  X DELDOT  = MPAC  X 4 PI  RAD-CM/SEC 
CORRESPONDS  TO  500  LB-FT 


INERTIA  = (MPAC  +1)  X 2(38)  KG-CMI2) 


1J ACC=1 JACCCON/MASS 


SCALED  AT  PI/4 

SET  INVERSE  JET  ACCELERATIONS  TO  POSMAX, 
WHICH  CORRESPONDS  TO  ACCEL.  OF  1.4  D/SS. 


SCALED  AT  PI/4 

COEFFQ  AND  COEFFR  ARE  CHOSEN  TO  MAKF  U- 
AND  V-AXES  ORT  HOGONAl  FOR  DOCKED  CASE 

SCALED  AT  2(16)  KG 

SCALED  AT  4 PI  RAD-CM/SEC 

SCALFO  AT  2(13)  CM/SFC12) 

GET  OUOTIFNT  WITH  OVERFLOW  PROTECTION 

CONTINUE  K,  K SO  CALCULATIONS 
SCALED  AT  PI/4X2U6)  R AD/ SE  C ( 2 ) -K  G 
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L 

AOSTASK 

AND  AOSJOB 

USER'S  PAGE 

NO.  12  E6  S4 

A0469 

2 

2 

A0470 

COEFFICIENTS  FOR  CURVE  FIT 

OF  THE 

FORM  Z=  A X +B 

Y +C  X Y +D  X +E  Y 

04  71 

20, 3171 

06  176 

1 

COEFF 

DEC 

.19518 

C 

COEFF  IC  IENT  OF 

INFRTI A 

0472 

20,3172 

77650 

1 

DEC 

-.00529 

F 

i i 

0473 

20,3173 

72260 

0 

DEC 

-.17670 

B 

t i 

0474 

20,3174 

76637 

1 

DEC 

- .03709 

A 

i i 

0475 

20,3175 

C2167 

0 

DEC 

. 06974 

E 

■ • 

0476 

20,3176 

OC  645 

0 

DEC 

. 02569 

D 

i i 

0477 

20,3177 

06335 

1 

DEC 

. 20096 

C 

COEFFICIENT  OF  CG 

0478 

20,3200 

04256 

1 

DEC 

. 13564 

F 

• 1 

04  79 

20,3201 

30163 

0 

DEC 

.75704 

B 

1 1 

0480 

20,3202 

64C72 

0 

DEC 

-.37142 

A 

f t 

048  1 

20,3203 

53632 

0 

DEC 

-.63117 

E 

1 1 

0482 

20,3204 

15  133 

1 

DEC 

.41179 

0 

I 1 

R 048  3 

ASSI  GNMENT  OF 

TEMPORARIES  FOR 

1/ACCS 

(EXCLUDING 

1/ACCONT) 

A0484 

MPAC,  MPAC  +1,  MP AC  +2  USED 

EXPLICITLY 

0485 

REF 

856 

LAST 

1493 

0160 

COEFCTR 

EQUALS 

MPAC  +4 

0486 

REF 

897 

LAST 

1494 

0161 

MASSCTR 

EQUALS 

MPAC  +5 

0487 

REF 

898 

LAST 

1494 

0160 

SCRATCHX 

EQUALS 

MPAC  +4 

SCRATCH  AREA  FOR 

OVOVSUR  ROUTINE. 

0488 

REF 

4 

LAST 

1491 

0161 

SCRATCHY 

EQUALS 

SCRATCHX  +1 

0489 

RFE 

5 

LAST 

1494 

0162 

SCRATCH/ 

EQUALS 

SCRATCHX  +2 

0490 

REF 

899 

LAST 

1494 

0157 

DOCKTEMP 

EQUALS 

MPAC  +3 

RECORD  OF  CSM  DOCK  ED  BIT  OF  DAPBOOLS 

0491 

REF 

900 

LAST 

1494 

0155 

EPSILON 

EQUALS 

MPAC  +1 

049  2 

REF 

5 

LAST 

1486 

0155 

-FPS I LON 

EQUALS 

EPSILON 

0493 

20,3205 

71777 

0 

-.1875 

DEC 

- .18750 
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P0494 


0495 

20,3206 

BANK 

20 

0496 

REF 

6 

LAST 

1484. 

20,2000 

SETLOC 

DAPS3 

049  7 

20,3206 

BANK 

0498 

REF 

28 

LAST 

1484 

E6, 1536 

EB ANK= 

AOSQ 

0499 

REF 

4 

LAST 

1484  TO 

1495 : 

339  343  * 

COUNT  * 

sj/dapao 

0500 

REF 

7 

LAST 

I486 

20,3206 

55*632 

0 

-1 

TS 

INGTS 

0 501 

REF 

7 

LAST 

1405 

20,3207 

3 1343 

1 

1/ACCONT 

CA 

DB 

0502 

20,3210 

0 C006 

1 

EXTEND 

0503 

REF 

55 

LAST 

1480 

20,3211 

7 4730 

0 

MP 

B I T 1 3 

0504 

REF 

323 

LAST 

1481 

20, 3212 

54  001 

1 

TS 

L 

050  5 

REF 

521 

LAST 

149  1 

20,3213 

6 OCOO 

1 

AD 

A 

050  6 

REF 

l 

20,3214 

54  115 

0 

TS 

DBVAL3 

0507  . 

REF 

l 

20, 32  15 

4 1343 

0 

CS 

DBVAL1 

0508 

REF 

324 

LAST 

1495 

20,3216 

6 0001 

0 

AD 

L 

0509 

REF 

1 

20,3217 

54  114 

1 

TS 

DBVAL2 

0510 

20,3220 

0 CC04 

0 

GETAOSUV 

INHINT 

051  1 

REF 

11 

LAST 

1484 

20,3221 

31 ' 540 

1 

CAE 

AOSR 

0512 

REF 

325 

LAST 

1495 

20, 3222 

54  001 

1 

TS 

L 

0513 

REF 

29 

LAST 

1495 

20,3223 

31  • 536 

0 

CAE 

AOSQ 

0514 

REF 

66 

LAST 

1488 

20,3224 

0 4665 

0 

TC 

I BNKC ALL 

0515 

REF 

4 

LAST 

1450 

20,3225 

37200 

1 

C ADR 

ROT-TOU V 

0516 

REF 

1 

20,3226 

53 ' 543 

0 

DXCH 

AOSU 

0517 

20,3227 

0 0003 

1 

REL INT 

0518 

REF 

63 

1 AST 

1488 

20,3230 

3 0111 

0 

CA 

DAPBOOLS 

0519 

REF 

6 

LAST 

145  1 

20,3231 

7 4735 

0 

MASK 

DR  IFTBIT 

052  0 

REF 

522 

LAST 

1495 

20,3232 

10  000 

0 

CCS 

A 

0521 

REF 

163 

LAST 

149  2 

20,3233 

3 4 7 44 

1 

CA 

ONE 

0522 

REF 

1 

20,3234 

54  116 

0 

TS 

DRIFTER 

0523 

REF 

6 

LAST 

1487 

20,3235 

6 1502 

1 

AD 

ALLOWGT  S 

0524 

REF 

523 

LAST 

1495 

20,3236 

10  COO 

0 

CCS 

A 

0525 

REF 

1 

20,3237 

3 3741 

0 

CA 

F LATVAL 

0526 

REF 

1 

20,3240 

54  151 

0 

TS 

FLATEMP 

0527 

20,3241 

0 0C06 

1 

EXTEND 

0528 

REF 

1 

20,3242 

1 3246 

0 

BZF 

DOPAXIS 

052  9 

REF 

2 

LAST 

1495 

20,3243 

10  116 

0 

CCS 

DRIFTER 

0530 

REF 

1 

20,3244 

3 3 740 

1 

CA 

Z0NE3MA  X 

0531 

REF 

1 

20,3245 

54  152 

0 

TS 

Z3TEM 

0532 

REF 

9 

LAST 

1493 

20,3246 

3 1530 

0 

DOPAXIS 

CA 

1 JACC 

A0533 

053  4 

REF 

38 

LAST 

1474 

20,3247 

6 4734 

0 

AD 

R IT9 

0535 

REF 

l 

20,3250 

54  157 

0 

TS 

FUNTEM 

0536 

REF 

10 

LAST 

1495 

20,3251 

3 15  30 

0 

CA 

1 JACC 
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ZERO  INGTS  IN  ASCENT 
INITIALIZF  DRVAL  1 , 2 , 3 


0.25  DB 
0.50  DB 


-.75  DB 


COMPUTE  AOSU  AND  AOSV  BY  ROTATING 
AOSO  AND  AOSR. 


ZERO  DURING  ULLAGE  AND  POWERED  FLIGHT. 
IF  DR  I FT ING  FLIGHT, 

SET  DRIFTER  TO  1 

SAVE  TO  TEST  FOR  DRIFTING  FLIGHT  LATER 
NON-ZERO  IF  DRIFT  OR  GTS  NEAR 

DRIFTING  FLIGHT,  STORE  .8  IN  FLAT 
IN  POWERED  FLIGHT,  STORE  ZERO  IN  FLAT 

IF  POWERFD  AND  NO  GTS,  START  P AXIS, 

OTHERWISE  SET  Z0NE3LIM 

17.5  MS  , SCALEO  AT  4 SFCONDS. 


I J ACC  AT  PI/4  = 2 J ACC  AT  PI/2  = 

ANET  AT  PI/2  = ANET/ACOAST  AT  2(6). 
1 + ANET/ACOAST  AT  2(6) 


GAP 
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0537 

REF 

1 

20, 3252 

0 3656 

l 

TC 

INVERT 

0538 

20,3253 

0 0 C04 

0 

INHINT 

0539 

REF 

3 

LAST 

1493 

20,3254 

55*550 

l 

TS 

l / ANETP 

0540 

REF 

4 

LAST 

1496 

20,3255 

55*551 

0 

TS 

1/ANETP  +■ 

054  l 

REF 

39 

LAST 

1495 

20,3256 

4 4734 

1 

CS 

B I T9 

0542 

20,3257 

0 0006 

1 

EXTEND 

054  3 

REF 

5 

LAST 

149  6 

20,3260 

7 1550 

l 

MP 

1/ANETP 

0544 

20,3261 

0 0006 

l 

EXTEND 

0545 

REF 

2 

LAST 

1495 

20,3262 

1C  157 

0 

DV 

FUNTEM 

0546 

REF 

1 

20,3.26  3 

55*556 

1 

TS 

PACCFUN 

054  7 

REF 

2 

LAST 

1496 

20,3264 

55*557 

0 

TS 

PACCFUN  + 

0548 

REF 

1 

20,3265 

3 4724 

1 

CA 

1/  .03 

0549 

REF 

1 

20,3266 

55*552 

0 

TS 

1/ACOSTP 

0550 

REF 

2 

LAST 

1496 

20, 3267 

55*  553 

l 

TS 

1 / ACOST  P 

0551 

20,3270 

0 0003 

1 

REL INT 

0552 

20,3271 

22  C07 

0 

ZL 

0553 

REF 

3 

LAST 

149  5 

20,3272 

10  116 

0 

CCS 

DRIFTER 

0554 

RFF 

2 

LAST 

1495 

20,3273 

53*  543 

0 

DXCH 

AOSU 

0555 

REF 

3 17 

LAST 

1407 

20, 3274 

3 4746 

0 

UAXI  S 

CA 

ZERO 

0556 

REF 

1 

20, 3275 

5 4 154 

0 

TS 

UV 

0557 

REF 

1 

20,3276 

54  163 

1 

BOTHAXES 

TS 

SIGNAOS 

0558 

REF 

2 

LAST 

1496 

20,3277 

50  154 

1 

INDEX 

UV 

0559 

REF 

3 

LAST 

1496 

20,3300 

11*542 

1 

CCS 

AOSU 

0560 

REF 

164 

LAST 

1495 

20,3301 

6 4 744 

l 

AD 

ONE 

0561 

20,3302 

1 3305 

0 

TC  F 

+ 3 

0562 

REF 

165 

LAST 

1496 

20,3303 

6 4744 

l 

AD 

ONE 

0563 

KEF 

2 

LAST 

149  6 

20,3304 

24  163 

0 

INCR 

S IGNAOS 

056  4 

RFF 

l 

20,3305 

54  162 

0 

TS 

ABSAOS 

0565 

REF 

3 

LAST 

1496 

20,3306 

4 Cl 63 

1 

CS 

SIGNAOS 

0 56  6 

REF 

1 

20, 3307 

54  164 

0 

TS 

-SIGNAOS 

0567 

REF 

2 

LAST 

1495 

20,3310 

3 1343 

l 

CA 

DBVAL l 

056  8 

REF 

1 

20,3311 

54  143 

0 

TS 

DBB1 

0569 

REF 

l 

20,3312 

54  144 

1 

TS 

0 BB2 

0570 

REF 

2 

LAST 

1496 

20,3313 

3 0162 

1 

CA 

ABSAOS 

0571 

REF 

l 

20, 3 3 14 

6 3742 

0 

AD 

- .03R/S2 

0572 

20,3315 

0 CC06 

l 

EXTEND 

0573 

REF 

1 

20,3316 

6 3410 

1 

BZMF 

NOTMUCH 

0574 

REF 

2 

LAST 

1495 

20,3317 

10  151 

0 

BIGAOS 

CCS 

FLATEMP 

0575 

REF 

l 

20,3320 

l 3350 

0 

TCF 

SK1PDB1 

0576 

REF 

3 

LAST 

1496 

20,3321 

3 1343 

l 

CA 

DBVAL1 

0577 

REF 

2 

LAST 

1496 

20,3322 

50  164 

1 

INDEX 

-SIGNAOS 
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USER'S  PAGE  NO.  14  E6  S4 

P AXIS  DATA  MUST  BE  CONSISTENT 
SCALED  AT  217I/PI. 

-1  AT  2(6) 

-1/ANET  AT  2 ( 1 3 I /P I 

- 1 / ( A NET  + ANFT**2/AC0AST ) AT  2I7I/PI 
NO  AOS  FOR  P AXIS,  ACOAST  = AMIN 


ZERO  AOSU, V IF  IN  DRIFT,  JUST  TO  BE  SURF 

DO  U AXIS  COMPUTATIONS 

ZERO  FOR  U AXIS,  ONE  FOR  V AXIS. 

CODING  COMMON  TO  U,V  AXES 

PICK  UP  ABSIAOSU  OR  AOSV) 

RESTORE  TO  PROPER  VALUF 
AND  LFAVF  SIGNAOS  AT  ZERO 
NEGATIVE,  RESTORF  TO  PROPER  VALUE 
AND  SET  SIGNAOS  TO  ONE  TO  SHOW  AOS  NEC, 
SAVE  ABS(AOS) 

USED  AS  AN  INDEX 

SET  DB1,  082  TO  DBVAL  l < = DB) 


TEST  MAGNITUDE  OF  ABS(AOS) 


ABS(AOS)  LESS  THAN  AMIN 
ABS(AOS)  GREATER  THAN  AMIN 
I DRIFT  OR  GTS,  DU  NOT  COMPUTE  DB 


GAP 


ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY 


L AOSTASK  AND  AOSJOB 


0578 

REF 

2 

LAST 

1496 

20,3323 

26 

144 

1 

0579 

REF 

4 

LAST 

1496 

20,3324 

50 

163 

0 

0580 

REF 

1 

20,3325 

54 

145 

0 

058  1 

REF 

1 

20,3326 

3 

3205 

0 

0582 

REF 

3 

LAST 

149  6 

20,3327 

6 

0162 

1 

0583 

20,3330 

0 

0006 

1 

0584 

20,3331 

6 

3334 

0 

0585 

REF 

2 

LAST 

1495 

20,3332 

4 

0115 

0 

0586 

REF 

1 

20, 3333 

1 

3343 

1 

0587 

REF 

4 

LAST 

1497 

20,3334 

4 

0162 

0 

0588 

20,3335 

6 

cooo 

1 

0589 

20,3336 

6 

0000 

1 

0590 

REF 

89 

LAST 

1487 

20,3337 

6 

4727 

1 

0591 

20,3340 

6 

cooo 

1 

0592 

20,3341 

0 

0006 

1 

0593 

REF 

a 

LAST 

1495 

20,3342 

7 

1343 

0 

0594 

REF 

5 

LAST 

1497 

20, 3343 

50 

163 

0 

0595 

REF 

2 

LAST 

1496 

20,3344 

54 

143 

0 

0596 

REF 

2 

LAST 

1495 

20,3345 

3 

C 1 1 4 

0 

0597 

REF 

3 

LAST 

1496 

20,3346 

50 

164 

1 

0598 

REF 

1 

20,3347 

54 

146 

0 

0599 

REF 

5 

LAST 

1497 

20,3350 

3 

0162 

1 

0600 

20,3351 

0 

0006 

1 

060  1 

REF 

42 

LAST 

1477 

20,3352 

7 

4 731 

1 

060  2 

REF 

6 

LAST 

1497 

20,3353 

6 

C 162 

1 

060  3 

REF 

2 

LAST 

1496 

20,3354 

0 

3656 

1 

0604 

REF 

4 

LAST 

1497 

20,3355 

5 C 

164 

1 

060  5 

REF 

1 

20,3356 

54 

130 

1 

0606 

REF 

2 

LAST 

1496 

20,3357 

3 

4724 

1 

060  7 

REF 

6 

LAST 

149  7 

20,3360 

50 

163 

0 

0608 

REF 

2 

LAST 

1497 

20,3361 

54 

127 

1 

0609 

REF 

7 

LAST 

1497 

20,3362 

3 

C 162 

1 

0610 

REF 

4 

LAST 

1487 

20,3363 

6 

1533 

0 

061  1 

REF 

5 

LAST 

1497 

20,3364 

6 

1533 

0 

Oo  1 2 

REF 

40 

LAST 

1496 

20,3365 

6 

4734 

0 

16  1 3 

REF 

524 

LAST 

1495 

20,3366 

54 

000 

0 

0614 

REF 

1 

20,3367 

1 

3434 

0 

0615 

REF 

8 

LAST 

1497 

20,3370 

3 

0 162 

1 

0616 

20,3371 

0 

0006 

1 

0617 

REF 

SO 

LAST 

1497 

20,3372 

7 

4 727 

0 

0618 

REF 

6 

LAST 

1497 

20,3373 

6 

153  3 

0 

0619 

A0620 

REF 

1 

20,3374 

54 

157 

0 

062  1 

REF 

47 

LAST 

1441 

20,3375 

6 

4735 

1 

062  2 

REF 

2 

LAST 

1497 

20,3376 

56 

157 

1 

0623 

REF 

3 

LAST 

1497 

20,3377 

0 

3656 

1 

062  4 

20,3400 

0 

OC06 

1 
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AOS 

DBB2 

DB2< 1 ) =2  DB 

INDEX 

SIGNAOS 

TS 

DBR4 

DB4I3)  = I DB 

CA 

- .1875 

-.1875  PI/2  RAD/SECI2)  SCALED  AT  PI/2 

AD 

EXTEND 

A8SA0S 

ABSAOS  IS  SCALED  AT  PI/2 

8ZMF 

+ 3 

CS 

DBVAL3 

-.5  OB 

TCF 

DBONE 

CS 

DOUBLE 

DOUBLE 

ABSAOS 

AD 

B I T 14 

DOUBLE 

EXTEND 

1-8  ABSAOS.  (8  IS  16/PI  SCALED  AT  2/PI) 

MP 

DB 

INDEX 

S IGNAOS 

DB  1 ( 2 > = ( 1- 8 ABSAOS)  DB.  IF  ABSAOS  IS 

TS 

DBB  1 

GREATER  THAN  .1875  THEN  081(2)=-. 5 DR 

CA 

DBVAL2 

INDEX 

-SIGNAOS 

TS 

DBB3 

0 B 3 ( 4 ) = -.75  DB 

CA 

EXTEND 

ABSAOS 

AB  S ( AOS ) GREATER  THAN  AMIN,  SO  IT  IS 

MP 

B I T 12 

AD 

ABSAOS 

(9/8)  ABSAOS. 

TC 

I NVERT 

ALL  R I GHT  TO  DIVIDE 

INDEX 

-SIGNAOS 

TS 

1/ACOSTT  +1 

1 / A CO A ST  POS 1 NEG ) = l/ABSIAOS) 

CA 

1/.03 

INDEX 

SIGNAOS 

TS 

1 /ACOSTT 

1 / ACO  A STNE  G ( POS ) = 1/AMIN 

CA 

ABSAOS 

AD 

1 JACCU 

AD 

l JACCU 

2 J AC  C + ABS(AOS) 

AD 

B I T 9 

MAXIMUM  VALUF  IN  COMPUTATIONS 

TS 

A 

TEST  FOR  OVERFLOW 

TCF 

SKIPD82 

NO  OVERFLOW,  DO  NORMAL  COMPUTATION 

CA 

EXTEND 

ABSAOS 

RESCALE  TO  PI  TO  PREVENT  OVERFLOW 

MP 

B I T 1 4 

AD 

1 JACCU 

L JACC  AT  P 1/2  = 2J ACC  AT  P I 

TS 

ANET 

ANETPUS ( NEG ) MAX  SCALED  AT  PI 
ANETPOS(NEG)  M AX / ACOA S TNE G ( PO S ) AT  2(7) 

AD 

B IT8 

1 + ANETPOS/ACOASTNEG  AT  2(7) 

XCH 

ANET 

SAVE  IN  ANET,  WHILE  PICKING  UP  ANET 

TC 

FXTEND 

I NVERT 

GAP:  ASSEMBLE  RFVISION  210  GE  AGC  PROGRAM  LUMINARY  8Y  NASA  2021112-161 

L AOSTASK  ANO  A0SJ08 


0625 

REF 

91 

LAST 

1997 

20,3901 

7 

9727 

0 

MP 

B I T 1 9 

062  6 

REF 

1 

20,3902 

59 

160 

1 

TS 

1/ANET 

062  7 

REF 

1 

20,3903 

3 

3907 

l 

CA 

ACCHERE 

062  8 

REF 

1 

20,3909 

59 

161 

0 

TS 

ARET 

062  9 

REF 

98 

LAST 

1997 

20,3905 

9 

9735 

0 

CS 

B I T 8 

0630 

REF 

1 

20,3906 

1 

3711 

1 

TCF 

DOACCFUN 

063  1 

REF 

1 

20, 3907 

1 

3991 

1 ACCHERE 

TCF 

ACCTHERE 

063  2 

REF 

326 

LAST 

1995 

20,3910 

59  001 

1 

NOTMUCH 

TS 

L 

0633 

REF 

3 

LAST 

1997 

20,391  l 

3 9729 

l 

CA 

1/.03 

0639 

REF 

3 

LAST 

1997 

20,3912 

59  127 

1 

TS 

1/ACOSTT 

063  5 

REF 

9 

LAST 

1998 

20,39.13 

59  130 

1 

TS 

1/ACOSTT  +1 

363  6 

REF 

3 

LAST 

1996 

20,3919 

10  151 

0 

CCS 

F LATEMP 

063  7 

REF 

2 

LAST 

1997 

20, 3915 

l 3939 

0 

TCF 

SKIPDB2 

063  8 

REF 

L 

20,3916 

3 3793 

l 

CA 

. 023R/S2 

063  9 

REF 

327 

LAST 

1998 

20,3917 

6 0001 

0 

AD 

L 

069  0 

20, 3920 

0 OC 06 

1 

EXTEND 

0691 

REF 

1 

20,3921 

6 3931 

L 

BZMF 

NOAOS 

0692 

REF 

' 3 

LAST 

1997 

20,3922 

3 C 1 1 5 

1 

SOME  AOS 

CA 

DBVAL3 

069  3 

REF 

5 

LAST 

1997 

20,3923 

50  169 

1 

INDEX 

-SIGNAOS 

0699 

REF 

2 

LAST 

199  7 

20,3929 

59  196 

0 

TS 

DBB3 

069  5 

REE 

525 

LAST 

1997 

20,3925 

6 0000 

1 

AD 

A 

0696 

REF 

7 

LAST 

1997 

20,3926 

50  163 

0 

INDEX 

SIGNAOS 

069  7 

REF 

2 

LAST 

1997 

20,3927 

59  195 

0 

TS 

DBB9 

069  0 

REF 

3 

LAST 

1998 

20,3930 

1 3939 

0 

TCF 

SKIPDB2 

069  9 

REF 

9 

LAST 

1996 

20,3931 

3 1393 

1 

NOAOS 

CA 

0BVAL1 

0650 

REF 

3 

LAST 

1998 

20,3932 

59  196 

0 

TS 

DBB3 

065  1 

REF 

3 

LAST 

1958 

20,3933 

59  195 

0 

TS 

DBB9 

0652 

REF 

9 

LAST 

1997 

20,3939 

3 0162 

1 

SKIPDB2 

CA 

ABSAOS 

0653 

REF 

7 

LAST 

1997 

20,3935 

6 1533 

0 

AD 

l JACCU 

0659 

REF 

8 

LAST 

1998 

20,3936 

6 1533 

0 

AD 

l JACCU 

0655 

REF 

3 

LAST 

1997 

20,3937 

59  157 

0 

TS 

ANET 

0656 

REF 

1 

20, 3990 

0 3 702 

L 

CL1/NET+ 

TC 

D01/NET+ 

065  7 

REF 

6 

LAST 

1998 

20,3991 

50  169 

1 

ACCTHERE 

INDEX 

-SIGNAOS 

065  0 

REF 

1 

20,3992 

5 9 139 

0 

TS 

Z5TEM  +2 

0655 

REF 

2 

LAST 

199  8 

20,3993 

3 C 1 60 

0 

CA 

l/ANET 

0660 

REF 

7 

LAST 

1998 

20,3999 

50  169 

1 

INDEX 

-SIGNAOS 

066  1 

REF 

1 

20,3995 

59  126 

0 

TS 

1/ATEM2  + 2 

0662 

REF 

10 

LAST 

1998 

20,3996 

3 0162 

1 

CA 

ABSAOS 

0663 

REF 

9 

LAST 

1998 

20,3997 

6 1533 

0 

AD 

1 JACCU 

0669 

REF 

91 

LAST 

1997 

20,3950 

6 9739 

0 

AD 

B I T9 
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032  PAGE  1998 


USER'S  PAGE  NO.  16  E6  S9 

SCALE  1/ANET  AT  ?(7)/PI 

SET  UP  RETURN  FROM  COMPUTATION  ROUTINE 
-1  AT  2(7) 

FINISH  ACC  FUN  COMPUTATION 


ABS(AOS)  LFSS  THAN  AMIN,  SAVE  IN  L 
ACOASTPOS , NEG  = AMIN 


DO  NOT  COMPUTE  DB  IF  DRIFT  OR  GTS 
.0228  RAD/ S EC ( 2 ) 

L=ABS (AOS)-AMIN=ABS( AOS)- .0295 RAD/ SEC ( 2 ) 
RESULT  IS  ABS ( AOS ) - . 00  17  RAD/SEC(2) 
ABS(AOS)  LESS  THAN  .0017  RAD/SEC ( 2 ) 

.0017  RAD/ SEC  1 2 ) LT  ABS(AOS)  IT  AMIN 

D63 ( 9 ) = DB/2 


DB9I3)  = DB 


DB3, 9 = UB 

ANETPOS ( NEG ) MAX  = 2 JACC  + ARS(AOS) 

CONNOT  OVERFLOW  HFRE 
COMPUTE  1/ANET,  ACCFUN 

STORE  ACCFUN  IN  TEMPORARY  BUFFER 

STORE  l/ANET  IN  TEMPORARY  BUFFER 
SFE  IF  OVERFLOW  IN  MIN  CASE 


MAXIMUM  POSSIBLE  VALUE 


GAP: 

L 

0665 

0666 

0667 

066  8 

0669 

0670 

0671 

0672 

0673 

0674 

0675 

0676 

0677 

0678 

0679 

0680 

068  1 

0682 

0683 

0684 

0685 

0686 

068  7 

0688 

0689 

0690 

0691 

0692 

0693 

0694 

0695 

0696 

0697 

0698 

0699 

0700 

0701 

0702 

0703 

0704 

0705 

0706 

0707 

0708 
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REF 

526 

LAST 

1458 

20,3451 

54  000 

0 

TS 

A 

20,3452 

1 3454 

0 

TCP 

+ 2 

REE 

46 

LAST 

1493 

20,3453 

3 4724 

1 

CA 

POSMAX 

REF 

2 

LAST 

1496 

20,3454 

6 3742 

0 

AD 

- .03R/S2 

REF 

4 

LAST 

1498 

20,3455 

54  157 

0 

TS 

ANET 

REF 

2 

LAST 

1498 

20,3456 

C 3702 

1 

TC 

DO  1 /NET  + 

REF 

8 

LAST 

1498 

20,3457 

50  164 

1 

INDEX 

-SIGNAOS 

REF 

2 

LAST 

1498 

20,3460 

54  132 

0 

TS 

Z 5TEM 

REF 

3 

LAST 

1498 

J > j 46 1 

3 C 1 60 

0 

CA 

1/ANET 

REF 

9 

LAST 

1499 

20,3462 

50  164 

l 

INDEX 

-SIGNAOS 

REF 

2 

LAST 

1498 

20,3463 

54  124 

1 

TS 

1/ATEM2 

REF 

1 l 

LAST 

1498 

20,3464 

4 C 1 62 

0 

CS 

ABSAOS 

REF 

10 

LAST 

1498 

20,3465 

6 1533 

0 

AD 

1 JACCU 

REF 

11 

LAST 

1499 

20,3466 

6 1533 

0 

AD 

1 JACCU 

REF 

1 

20,3467 

0 3670 

0 

TC 

1 /ANET- 

REF 

8 

LAST 

1498 

20,3470 

50  163 

0 

INDEX 

S IGNAOS 

REF 

1 

20,347 1 

54  133 

1 

TS 

Z ITEM  + 2 

REF 

328 

LAST 

1498 

20,3472 

54  001 

1 

TS 

L 

REF 

4 

LAST 

1499 

20,3473 

3 0160 

0 

CA 

1/ANET 

RE.F 

9 

L AST 

1499 

20,3474 

50  163 

0 

INDEX 

SIGNAOS 

REF 

1 

20,3475 

54  125 

0 

TS 

1/ATEM1  +2 

REF 

12 

LAST 

1499 

20,3476 

4 0162 

0 . 

CS 

ABSAOS 

REF 

12 

LAST 

1499 

20,3477 

6 1533 

0 

AD 

l JACCU 

REF 

5 

LAST 

1499 

20,3500 

54  157 

0 

TS 

ANET 

REF 

3 

LAST 

1499 

20,3501 

6 3 742 

0 

AD 

- .03R/S2 

20,3502 

0 C006 

1 

EXTEND 

REF 

1 

20,3503 

6 3721 

0 

BZMF 

F IXMIN 

REF 

1 

20,3504 

0 3676 

0 

TC 

1 /NET  M I N 

REF 

10 

LAST 

1499 

20,3505 

50  163 

0 STMIN- 

INDEX 

SIGNAOS 

REF 

2 

LAST 

1499 

20,3506 

54  131 

0 

TS 

Z1TEM 

REF 

5 

LAST 

1499 

20,3507 

3 C 1 60 

0 

CA 

l /ANET 

REF 

11 

LAST 

1499 

20,3510 

50  163 

0 

INDEX 

S IGNAOS 

REF 

2 

LAST 

1499 

20,3511 

54  123 

0 

TS 

l/ATEMl 

REF 

3 

LAST 

1496 

20, 3512 

50  154 

1 

INDEX 

UV 

REF 

1 

20,3513 

3 3 74  7 

0 

CA 

+UMASK 

REF 

11 

LAST 

1456 

20,3514 

7 1257 

1 

MASK 

CH5MASK 

20,3515 

0 0006 

1 

EXTEND 

REF 

1 

20,3516 

1 3523 

1 

BZF 

FAIL- 

REF 

3 

l AST 

1499 

20, 3517 

3 0124 

0 

CA 

1/ATEM2 

REF 

4 

LAST 

1 

20,3520 

54  126 

0 

TS 

1/ATEM2  +2 

REF 

3 

LAST 

1499 

20,3521 

3 C 132 

1 

CA 

Z5TEM 

REF 

4 

LAST 

1499 

20,3522 

54  134 

0 

TS 

Z5TEM  +2 

REF 

4 

LAST 

1499 

20,3523 

50  154 

1 FAIL- 

INDEX 

UV 

REF 

1 

20,3524 

3 3745 

1 

CA 

-UMASK 
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OVERFLOW  POSSIBLE  BUT  REMOTE 

IF  OVERFLOW,  TRUNCATE  TO  PI/2 
RESTORE  TO  CORRECT  VALUE 

COMPUTE  1/ANET,  ACCFUN 

STORE  MIN  VALUES  JUST  AS  MAX  VALUES 


NOW  DO  NFG(POS)  CASES 
ANETNEG ( POS ) MAX 

COMPUTE  1/ANET,  ACCFUN,  AND  ACCSW 
STORE  NFGIPOS)  VALUES  JUST  AS  POS(NEG) 

SAVE  IN  L FOR  POSSIBLE  FUTURE  USE 


1/ ANETNEGt POS ) MIN 
TEST  FOR  AMIN 

IF  AN  FT  LESS  THAN  AMIN,  STORE  MAX  JET 
VALUES  FOR  MIN  JETS  AND  SET  ACCSW 

OTHERWISE  DO  MIN  JET  COMPUTATIONS 
STORE  VALUES 


TEST  FOR  +U  (+V)  JET  FAILURES 


REPLACE  FUNCTION  VALUES  DEPENDING  ON  THE 
FAILED  JET  PAIR  WITH  CORRESPONDING  ONE- 
JET  (OR  AMIN)  FUNCTION  VALUES 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021I12-I6I 

L AOSTASK  AND  AOSJOB 


0709 

REF 

12 

LAST 

1499 

20, 3525 

7 1257 

l 

MASK 

CH5MASK 

0710 

20,3526 

C CC06 

1 

EXTEND 

071  1 

REF 

l 

20,3527 

1 3534 

1 

BZF 

DBFUN 

0712 

REF 

3 

LAST 

1499 

20,3530 

3 C 123 

t 

CA 

l/ATEMl 

0713 

REF 

4 

LAST 

1500 

20,3531 

54  125 

0 

TS 

l/ATEMl  +2 

0714 

REF 

3 

LAST 

1499 

20,3532 

3 C 1 3 1 

1 

CA 

Z ITEM 

0715 

REF 

4 

LAST 

1500 

20,3533 

54  133 

1 

TS 

Z1TEM  +2 

0716 

REF 

4 

LAST 

149  8 

'20,3534 

4 0146 

0 DBFUN 

cs 

DBB3 

0717 

REF 

3 

LAST 

1497 

20,3535 

6 0143 

1 

AD 

DBB1 

07ie 

RFF 

4 

LAST 

1498 

20,3536 

6 0151 

l 

AD 

FLATEMP 

0719 

REF 

1 

20,3537 

54  147 

1 

TS 

AXDSTEM 

0720 

REF 

4 

LAST 

1498 

20,3540 

4 C 145 

0 

CS 

DBB4 

0721 

REF 

3 

LAST 

1497 

20, 3541 

6 C 144 

0 

AD 

DBB2 

0722 

REF 

5 

LAST 

1500 

20)3542 

6 0151 

1 

AD 

F LATEMP 

0723 

REF 

2 

LAST 

1500 

20,3543 

54  150 

1 

TS 

AXDSTEM  + 

0724 

20,3544 

0 0004 

0 

INHINT 

0725 

REF 

5 

LAST 

1499 

20,3545 

10  154 

0 

CCS 

UV 

0 72  6 

REF 

l 

20,3546 

l 3570 

1 

TCF 

S TOR  V 

0727 

REF 

1 

20,3547 

3 0122 

0 

CA 

ACCSW 

0728 

REF 

3 

LAST 

1462 

20,3550 

55 ' 546 

0 

TS 

ACCSWU 

0729 

REF 

l 

20,3551 

3 4311 

o ■ 

CA 

NINE 

0730 

REF 

3 

LAST 

1 376 

20,3552 

0 5547 

1 

TC 

GENTRAN  +1 

073  1 

REF 

5 

LAST 

1500 

20,3553 

00123 

1 

ADRES 

l/ATEMl 

0732 

REF 

12 

LAST 

1467 

20,3554 

01566 

0 

ADRES 

1/ANET1 

0733 

20,3555 

0 0003 

1 

RELINT 

0734 

REF 

4 

LAST 

1500 

20,3556 

5 2 144 

1 

DXCH 

DBB1 

0 73  5 

REF 

l 

20,3557 

52  136 

1 

DXCH 

UDB 1 

0736 

REF 

5 

LAST 

1500 

20,3560 

52  146 

0 

DXCH 

DBB4 

073  7 

REF 

1 

20,3561 

5 2 140 

0 * 

DXCH 

UDB4 

0738 

REF 

3 

LAST 

1500 

20,3562 

52  150 

1 

DXCH 

AXDSTEM 

0739 

REF 

1 

20, 3563 

52  142 

1 

DXCH 

UAXOIST 

074u 

REF 

166 

LAST 

1496 

20,3564 

3 4 7 44 

l 

CA 

ONE 

074  1 

REF 

6 

LAST 

1500 

20,3565 

54  154 

0 

TS 

UV 

074  2 

REF 

3 18 

LAST 

1496 

20, 3566 

3 4 746 

0 

CA 

ZERO 

0743 

REF 

1 

20,3567 

1 3276 

0 

TCF 

BOTHAXES 

0744 

REF 

2 

LAST 

1500 

20,3570 

3 0122 

0 S TOR  V 

CA 

ACCSW 

0 74  5 

REF 

1 

20,3571 

55*547 

1 

TS 

ACCSWV 

074  6 

REF 

2 

LAST 

1500 

20,3572 

3 4311 

0 

CA 

NINE 

074  7 

REF 

4 

LAST 

1500 

20, 3573 

0 5547 

1 

TC 

GENTRAN  +■ 

0 74  8 

REF 

6 

LAST 

1500 

20,3574 

00  123 

1 

ADRES 

l/ATEMl 

17:11  MAR.  19,1971  LMDAP  .032  PAGE  1500 
USER'S  PAGE  NO.  18  E6  S4 

TEST  FOR  -U  (-V)  JET  FAILURES 


REPLACE  FUNCTION  VALUES  DEPENDING  ON  THF 
FAILED  JET  PAIR  WITH  CORRESPONDING  ONF- 
JET  (OR  AMIN)  FUNCTION  VALUES 


COMPUTE  AXISDIST 


TEST  FOR  U OR  V AXIS 
V AXIS  STORE  V VALUES 

U AXIS  STORE  U VAIUFS 


TRANS  FFR  10  WORDS  VIA  GENTRAN 


TEMPORARY  BUFFER 
THE  REAL  PLACE 


SAVE  U DBS  FOP  LATER  STORING 


NOW  DO  V AXIS 


AND  DO  IT  AGAIN 


STORE  V AXIS  VALUES 


TEMPORARY  BUFFER 


GAP: 


ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  202III2-I6I 


1 


L AOSTASK  AND  AOSJOB 


0 74  9 

REF 

13 

LAST 

1500 

20,3575 

C 1606 

0 

ADRES 

1/ANET1  +16D 

A0750 

075  1 

REF 

6 

LAST 

1500 

20,3576 

52  152 

0 

DXCH 

FLATFMP 

0752 

REF 

3 

LAST 

1464 

20,3577 

53' 555 

1 

DXCH 

FLAT 

0 75  3 

REF 

5 

LAST 

1498 

20,3600 

3 1343 

1 

CA 

DBVAL  1 

0754 

REF 

1 

20,3601 

55 '560 

1 

TS 

PDB1 

0755 

REF 

l 

- 20,3602 

55*561 

0 

TS 

PDB2 

0756 

REF 

4 

LAST 

1501 

20,3603 

6 1554 

1 

AO 

FLAT 

0757 

REF 

1 

20,3604 

55' 563 

1 

TS 

PDB3 

075  8 

REF 

1 

20,3605 

55 ' 562 

0 

TS 

PDB4 

0759 

REF 

3 19 

LAST 

1500 

20,3606 

3 4 746 

0 

CA 

ZERO 

0760 

REF 

1 

20,3607 

55 ' 564 

0 

TS 

PAXDI ST 

076  1 

REF 

2 

LAST 

150  1 

20,3610 

55*565 

1 

TS 

PAXDIST  +1 

0762 

REF 

5 

LAST 

1501 

20,3611 

11' 554 

0 

CCS 

FLAT 

0763 

REF 

1 

20,3612 

1 3630 

0 

TCF 

DRFDB 

0 764 

REF 

2 

LAST 

1500 

20,3613 

52  136 

1 

DXCH 

UDB1 

0765 

REF 

5 

LAST 

1467 

20,3614 

53 ' 601 

0 

DXCH 

F IREUB 

0766 

REF 

2 

LAST 

1500 

20,3615 

52  140 

0 

DXCH 

UDB4 

076  I 

REF 

2 

LAST 

146  1 

20,3616 

53 • 603 

L 

DXCH 

COASTDB 

0 76  8 

REF 

2 

LAST 

1500 

20,3617 

52  142 

1 

DXCH 

UAXDI ST 

0769 

REF 

3 

LAST 

1464 

20,3620 

53*605 

1- 

DXCH 

AXISDIST 

0770 

REF 

5 

LAST 

1500 

20,3621 

52  144 

1 

DXCH 

DBB1 

0771 

REF 

6 

LAST 

1501 

20,3622 

53 ' 62 l 

1 

DXCH 

FIREDB  +16D 

0772 

REF 

6 

LAST 

1500 

20,3623 

5 2 146 

0 

DXCH 

0B84 

0773 

REF 

3 

LAST 

1501 

20,3624 

53 ' 623 

0 

DXCH 

COASTDB  + 16D 

0774 

REF 

4 

LAST 

1500  ' 

20,3625 

52  150 

1 

DXCH 

AXDSTEM 

0775 

REF 

4 

LAST 

150  1 

20,3626 

53 ' 625 

0 

DXCH 

AXISDIST  +160 

0776 

REF 

2 

LAST 

1489 

20,3627 

1 3650 

0 

TCF 

1/ACCRET  +1 

0777 

REF 

6 

LAST 

1501 

20,3630 

3 1343 

1 

DRFDB 

CA 

DBVAL1 

0778 

REF 

7 

LAST 

150  1 

20,3631 

55*600 

1 

TS 

FIREDB 

0779 

REF 

8 

LAST 

1501 

20,3632 

55*601 

0 

TS 

FIREDB  +1 

0780 

REF 

9 

LAST 

1501 

20,3633 

55' 620 

0 

TS 

FIREDB  +16D 

078  1 

REF 

10 

LAST 

1501 

20,3634 

55*621 

l 

TS 

FIREDB  +170 

0782 

REF 

6 

LAST 

1501 

20,3635 

6 1554 

1 

AD 

FLAT 

0783 

REF 

4 

LAST 

150  1 

20,3636 

55*602 

0 

TS 

COASTDB 

0784 

REF 

5 

LASt 

1501 

20,3637 

55*603 

1 

TS 

COASTDB  +1 

0785 

REF 

6 

LAST 

1501 

20,3640 

55*622 

1 

TS 

COASTDB  +16D 

0786 

REF 

7 

LAST 

150  1 

20,3641 

55*623 

0 

TS 

COASTDB  + 1 70 

0787 

REF 

320 

LAST 

150  1 

20,3642 

3 4746 

0 

CA 

ZERO 

0788 

REF 

5 

LAST 

1501 

20,3643 

55 ' 604 

0 

TS 

AXISDIST 

.1  r-  ■ 

REF 

6 

LAST 

150  1 

20,3644 

5 5 ' 6 05 

l 

TS 

AXISDIST  +1 

0790 

REF 

7 

LAST 

1501 

20,3645 

55*624 

l 

TS 

AXISDIST  +16D 

0791 

REF 

8 

LAST 

150  1 

20,3646 

55*625 

0 

TS 

AXISDIST  +17D 

0792 

20,3647 

0 0004 

0 

1/ACCRET 

INHINT 

: 1 1 MAR.  IV,  l<m  LMDAP  .032  PAGE  1501 
USER'S  PAGE  NO.  19  E6  S4 

THE  REAL  PLACE 

NOW  STORE  DEADBANDS  FOR  ALL  AXES 
FLAT  AND  Z0NE3LIM 

COMPUTE  P AXIS  DEADBANDS 


DRIFT  OR  GTS  - COMPUTE  DBS 
STORE  U DEADBANDS 

CANNOT  USE  GENTRAN  BFCAUSE  OF  REL IMT 


STORF  V AXIS  DEADBANDS 
COULD  USE  GENTRAN  IF  DESIRED 


ALL  DONE 
DRIFT  DEADBANDS 


ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  8Y  NASA  202II12-16I 


GAP: 


L 

AOSTASK 

AND  AOSJOB 

0793 

REF 

64 

LAST 

1495 

20,3650 

0794 

REE 

3 

LAST 

1409 

20,3651 

0795 

REF 

65 

LAST 

1502 

20,3652 

0796 

20,3653 

0797 

REF 

2 

LAST 

1484 

20,3654 

079  8 

REF 

19 

LAST 

1367 

20,3655 

0799 

REF 

1 

20,3656 

0800 

REF 

42 

LAST 

149.8 

20,3657 

080  1 

20,3660 

0802 

20,3661 

0803 

REF 

2 

LAST 

1502 

20,3662 

0804 

REF 

428 

LAST 

149  1 

20,3663 

0805 

REF 

321 

LAST 

150  1 

20,3664 

0806 

REF 

7 

LAST 

1495 

20,3665 

0807 

REF 

8 

LAST 

1495 

20,3666 

0808 

REF 

2 

LAST 

1488 

20,3667 

0809 

20,3670 

0810 

REF 

3 

LAST 

1500 

20,3671 

081  1. 

REF 

6 

LAST 

1499 

20,3672 

0812 

REF 

LAST 

1499 

20,3673 

0813 

20,3674 

0814 

REF 

l 

20,3675 

0815 

REF 

7 

LAST 

1502 

20,3676 

0816 

20,3677 

081  7 

REF 

10 

LAST 

1499 

20,3700 

0818 

REF 

5 

LAST 

149  8 

20,3701 

A0819 
AO  82  0 


0821 

REF 

43 

LAST 

1502 

20,3702 

0822 

REF 

8 

LAST 

150  2 

20,3703 

082  3 

20,3704 

0824 

REF 

2 

LAST 

1498 

20,3705 

0825 

REF 

4 

LAST 

1497 

20, 3706 

0826 

REF 

6 

LAST 

1499 

20,3707 

0827 

REF 

44 

LAST 

1502 

20,3710 

082  8 

20,3711 

0829 

REF 

7 

LAST 

150  2 

20,3712 

0830 

20,3713 

0831 

REF 

9 

LAST 

1502 

20,3714 

0832 

REF 

3 

LAST 

1502 

20,3715 

0833 

REF 

5 

LAST 

1502 

20,3716 

0834 

REF 

10 

LAST 

1502 

20,3717 

0835 

REF 

2 

LAST 

1499 

20, 3720 

1 

cs 

DAPBOOLS 

0 

MASK 

ACCSDKAY 

1 

ADS 

DAPBOOLS 

I 

RELINT 

0 ■ 

CA 

ACCRETRN 

l 

TC 

B ANK JUMP 

1 INVERT 

TS 

HOLD 

0 

CA 

B I T9 

0 

ZL 

I 

EXTEND 

1 

DV 

HOLD 

0 

TC 

a 

0 

DOWNGTS 

CAF 

ZERO 

0 

TS 

ALLOWGTS 

0 

TS 

INGTS 

0 

TCF 

DOCKTEST 

0 

1 /ANET- 

ZL 

0 

LXCH 

ACCSW 

0 

TS 

ANET 

0 

AD 

- .03R/S2 

1 

EXTEND 

l 

BZMF 

NETNEG 

1 

l/NETMIN 

CA 

ANET 

L 

EXTEND 

1 

INDEX 

-SIGNAOS 

L 

MP 

l/ACOSTT 

THE 

0 

D01/NET+ 

AD 

B I T9 

l 

XCH 

ANET 

I 

EXTEND 

1 

QXCH 

A RET 

I 

TC 

I NVERT 

1 

TS 

1 /ANET 

1 

CS 

B I T9 

1 

DOACC  FUN 

EXTEND 

1 

MP 

1 /ANET 

1 

EXTEND 

0 

DV 

ANET 

l 

TC 

ARET 

1 

NETNEG 

CS 

- .03R/S2 

0 

TS 

ANET 

0 

TCF 

L/NETMI N 

A cm 

7 4742 

26  L II 

C 0003 

3 0117 

0 4631 

54  165 

3 4734 

22  C07 

0 0006 

10  165 

0 0002 

3 4746 

55  * 502 

55 1 632 

1 2755 

22  007 

22  122 

54  157 

6 3742 

C C 006 

6 3716 

3 C 1 57 

0 0006 

5 0164 

7 0130 

6 4734 

56  157 

0 0006 

22  161 

0 3656 

54  160 

4 4734 

0 0006 

7 0160 

0 0006 

10  157 

0 0161 

4 3742 

54  157 

l 3677 


17:11  MAR.  19,1971  LMDAP  .032 
USFR'S  PAGE  NO.  20 
SET  BIT  to  INDICATE  DATA  GOOD 


PAGE  1502 
E6  S4 


RETURN  TO  CALLER 

ROUTINE  TO  INVERT  -INPUT  AT  PI/2 
l AT  2(61 

ZFRO  L FOR  ACCURACY  AND  TO  PREVENT  OVFLO 


RESULT  AT  2 ( 7 ) / P I 


ZERO  SWITCHES  WHEN  USEQRJTS  BIT  IS  UP 
OR  DAP  IS  OFF. 


ZERO  ACCSW 
SAVE  ANET 

TEST  FOR  MIN  VALUE 

AN  El  LESS  THAN  AMIN,  SO  FAKE  IT 


ANETNEG(POS)  / ACOA  STPO  S ( NEG ) AT  2(6) 

LOWING  CODING  IS  VALID  FOR  BOTH  POS  OR  NEG 
VALUES  OF  AOS 

l + ANET/ACOAST  AT  2(6) 

SAVE  AND  PICK  UP  ANET 

SAVE  RETURN 

1/ANET  AT  2(7) /PI 
-l  AT  2(6) 

-1/ANET  AT  2 ( 131/PI 

ACCFUN  AT  2(7) /P I 
RFTURN 

ANET  LESS  THAN  AMIN  - SET  EQUAL  TO  AMIN 


CONTINUF  AS  IE  NOTHING  HAPPENFD 


GAP: 

U 

0836 

0837 

0838 

0839 

0840 

084  l 

0842 

0843 

084  4 

084  5 

0846 

0847 

0848 

084  9 

0850 

A0851 

0852 

0853 

0854 

0855 

0856 

0857 

0858 

0859 

0860 

A0861 

0862 

0863 

0864 

0865 

0866 

0 86  7 

0868 

0869 

0870 

087  1 

0872 

0873 

0874 

0875 

0676 

C87  7 

0878 


032  PAGE  1503 
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USER*  S PAGE  NO.  21  E6  S4 


REF 

12 

LAST 

1499 

20,3721 

10  163 

1 FIXMIN 

CCS 

S IGNAOS 

REF 

l C 7 

LAST 

1487 

20,3722 

3 4743 

0 

CA 

TWO 

I F 

AOS  NEG,  ACCSW  = +1 

REF 

16 

LAST 

1470 

20,3723 

6 7770 

0 

AD 

NEGONE 

IF 

AOS  POS,  ACCSW  = -1 

REF 

4 

LAST 

1502 

20,3724 

54  122 

1 

TS 

ACCSW 

REF 

7 

LAST 

1500 

20,3725 

6 0 154 

1 

AD 

UV 

IF 

ACCSW  = +1,  TEST  FOR  +U  UV) 

JET 

FAIL 

REF 

527 

LAST 

1499 

20,3726 

50  000 

1 

INDEX 

A 

IF 

ACCSW  = -1,  TEST  FOR  -U  ( -V ) 

JET 

FAIL 

REF 

2 

LAST 

1499 

20,3727 

3 3746 

1 

CA 

-UMASK  +1 

REF 

13 

LAST 

1500 

20,3730 

7 1257 

1 

MASK 

CH5MASK 

20,3  731 

0 0006 

1 

EXTEND 

20,3732 

1 3736 

1 

BZF 

+ 4 

REF 

6 

LAST 

1502 

20,3733 

4 3742 

1 

CS 

— .03R/S2 

JET  FAILURE  - CANNOT  USE  2-JET 

VALUES 

REF 

11 

LAST 

1502 

20,3734 

54  157 

0 

TS 

ANET 

ANET  = AMIN 

REF 

1 

20,3735 

1 3504 

1 

TCF 

STMIN-  -1 

CALCULATE  FUNCTIONS  USING  AMIN 

REF 

329 

LAST 

1499 

20,3736 

3 0001 

0 

CA 

L 

L 

HAS  ACCFUN 

REF 

2 

LAST 

1503 

20,373  7 

1 3505 

0 

TCF 

STMIN- 

STORE  MAX  VALUES  FOR  MIN  JETS 

REF 

5 

LAST 

139 

E6 , 1550 

ERASABLE 
1 /AN  E TP 

ASSIGNMENTS  FOR 
EQUALS  BLOCKTOP 

l /AC CON T 
+ 2 

REF 

6 

LAST 

1503 

E6 , 1552 

1/ACOSTP 

EQUALS 

BLOCKTOP 

+4 

REF 

7 

LAST 

1503 

E6, 1556 

P ACCFUN 

EQUALS 

BLOCKTOP 

+ 8D 

REF 

8 

LAST 

1503 

E6, 1560 

PDB1 

EQUALS 

BLOCKTOP 

+ 100 

REF 

9 

LAST 

1503 

£6,1561 

PDB2 

EQUALS 

BLOCKTOP 

+ 110 

REF 

10 

LAST 

1503 

E6 , 1562 

PCB4 

EQUALS 

BLOCKTOP 

+ 12D 

REF 

1 1 

LAST 

1503 

E6 , 1563 

PDB3 

EQUALS 

BLOCKTOP 

+ no 

REF 

12 

LAST 

L503 

E6 , 1564 

PAXDIST 

EQUALS 

BLOCKTOP 

+ L4D 

REF 

62 

LAST 

1261 

0122 

ACCSW 

EQUALS 

V BUF 

EXECUTIVE  TEMPORARIES 

REF 

5 

LAST 

1503 

0123 

1 /AT  EMI 

EQUALS 

ACCSW  +1 

CANNOT  00  CCS  NEWJOB  DURING  l/ACCS 

TEMP  BUFFER  FOR  U AND  V AXES 

REF 

7 

LAST 

1500 

0124 

1/ATEM2 

EQUALS 

l / AT  E Ml 

+ 1 

REF 

8 

LAST 

1503 

0127 

i/ACGSTT 

EQUALS 

1 /AT  EM  I 

+ 4 

REF 

9 

LAST 

1503 

0131 

Z ITEM 

EQUALS 

1/ATEM1 

+ 6 

REF 

10 

LAST 

1503 

0132 

Z5TEM 

EQUALS 

1/ATEM1 

+ 7 

REF 

11 

LAST 

1503 

0135 

UDB1 

EQUALS 

l/ATEMl 

+ 10D 

U AXIS  DEADBAND  8UFFFR 

REF 

12 

LAST 

1503 

0136 

UDB2 

EQUALS 

1 / AT  E M 1 

+ 1 LD 

REF 

13 

LAST 

1503 

0137 

UDB4 

EQUALS 

1 /ATEM1 

+ 120 

REF 

14 

LAST 

150  3 

0140 

UDB3 

EQUALS 

L/ATEMl 

+ 130 

REF 

15 

LAST 

1503 

0141 

UAXDIST 

EQUALS 

L/ATEMl 

+ 14D 

REF 

16 

LAST 

1503 

0143 

DBB1 

EQUALS 

l/ATEMl 

+ 160 

TEMP  DEADBAND  BUFFER,  ALSO  V AXIS 

REF 

17 

LAST 

1503 

0144 

DBB2 

EQUALS 

l/ATEMl 

+ 170 

REF 

18 

LAST 

1503 

0145 

DBB4 

EQUALS 

L/ATEMl 

+ 18D 

REF 

19 

LAST 

1503 

0146 

DBB3 

EQUALS 

1 /AT  EMI 

+ 190 

REF 

20 

LAST 

1503 

0147 

AXDSTEM 

EQUALS 

l/ATEMl 

+ 20D 

REF 

21 

LAST 

1503 

0151 

FLATEMP 

EQUALS 

l/ATEMl 

+ 22D 

REF 

22 

LAST 

1503 

0152 

Z3TEM 

FQUALS 

l/ATEMl 

+ 230 

MUST  FOLLOW  FLATEMP 

GAP:  ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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0880 

REF 

3 

LAST 

98 

0114 

DBVAL2 

EQUALS 

I NTB15+ 

0881 

REF 

4 

LAST 

1504 

0115 

DRVAL3 

EQUALS 

INTB15+  +1 

0882 

REF 

5 

LAST 

1504 

0116 

DRIFTER 

EQUAL  S 

INTB15+  +2 

0883 

REF 

9 C 1 

LAST 

1494 

0154 

UV 

EQUALS 

M P AC 

0884 

RFF 

902 

LAST 

1504 

0157 

ANET 

EQUALS 

MP  AC 

+ 3 

0865 

REF 

9C3 

LAST 

1504 

0157 

FUNT  EM 

EQUALS 

M P AC 

+ 3 

0866 

REF 

9C4 

LAST 

1504 

0160 

1/ANET 

EQUALS 

MPAC 

+4 

0887 

REF 

9C5 

LAST 

1504 

0161 

ARET 

EQUALS 

MPAC 

+ 5 

0 88  8 

REF 

906 

LAST 

1504 

0162 

A8SA0S 

EQUALS 

MPAC 

+ 6 

0889 

REF 

907 

LAST 

1504 

0163 

SIGNAOS 

EQUALS 

MPAC 

+ 7 

0890 

REE 

9C  8 

LAST 

1504 

0164 

-SIGNAOS 

EQUALS 

MPAC 

+ 80 

0891 

REF 

909 

LAST 

1504 

0165 

HOLD 

EQUALS 

MPAC 

+ 90 

0892 

REF 

68 

LAST 

1398 

0117  • 

ACCRETRN 

EQUALS 

F IXLOC  -1 

0893 

20,3740 

0C110 

l 

20NE3MAX 

DEC 

.004375 

0894 

20,3741 

0C443 

1 

FLATVAL 

DEC 

.01778 

0895 

20,3742 

77377 

1 

-.03R/S2 

OCT 

77377 

0896 

20,3743 

00356 

1 

.023R/S2 

OCT 

00356 

089  7 

REF 

47- 

LAST 

1499 

4 724 

1/.03 

EQUALS 

POSMAX 

0898 

REF 

2 

LAST 

1411 

20,3744 

02217 

1 

PAXI SADR 

GENADR 

PAXIS 

A0899 
A0900 
090  1 

20,3745 

OCUO  1 

-UMASK 

OCT 

00110 

0902 

20,3746 

OC022  1 

OCT 

00022 

090  3 

20,3747 

00204  1 

+UMASK 

OCT 

00204 

0904 

20,3  750 

00041  1 

OCT 

00041 

17: 11  MAR.  19,1671  LMDAP 
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17.5  MS  (35  MS  FOR  1 JET)  AT  4 SECONDS 
.8  AT  PI/4  RAD 
-P I / 2 ( 7 ) AT  PI/2 

.0228  RA0/SECI2)  AT  PI/2 
2171/PI  AT  2171/PI 


THE  FOLLOWING  4 CONSTANTS  ARE  JFT 
FAILURE  MASKS  AND  ARF  INDEXED 
-U 
-V 
+ U 
+ V 
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SPS  BACK-UP  RCS  CONTROL  USFR'S  PAGE  NO.  1 FO  SA 

P0001 

PROGRAM  NAME:  SPSRCS 

R0002 

AUTHOR:  EDGAR  M.  CSHIKA  1 AC  ELECTRONICS) 

R0002  1 

MODI  FIFO:  TO  RETUPN  TO  ALL  AXES  VIA  Q BY  P . S . W E I SSM A N , OCT  7,  1968 

R00022 

R0003 

MODIFIED  TO  IMPROVE  BENDING  STABILITY  BY  G . K A L AN , FE B . 1 A , 1 969 
FUNCTIONAL  DESCRIPTION: 

ROOOA 
R 0 00  6 

THIS  PROGRAM  CONTROLS  .THE  FIRING  OF  ALL  RCS  JETS  IN  THE  DOCKED  CONFIGURATION  ACCORDING  TO  THE  FOLLOWING  PHASE 
PLANE  LOGIC. 

R0007 

1.  JET  SENSE  TEST  (SPSRCS) 

R0008 

R0009 

R0010 

IF  JETS  ARE  FIRING  NEGAT I VE L Y , S E T OLDSENSE  NEGATIVE  AND  CONTINUE 
IE  JETS  ARE  FIRING  POS IT  1 VEL Y , SET  OLDSENSE  POSITIVE  AND  CONTINUE 
IF  JETS  ARE  NOT  FIRING, SET  OLDSENSE  TO  ZERO  AND  GO  TO  OUTER  RATE  LIMIT  TF ST 

R0012 

2.  RATE  DEAD  BAND  TEST 

R0013 

R001A 

R0015 

R0016 

IF  JETS  ARE  FIRING  NEGATIVELY  AND  RATE  IS  GREATER  THAN  TARGET  RATE , LEAVE 
JETS  CN  AND  GO  TO  INHIBITION  LOGIC.  OTHER W I S E , CON T I NU E . 

IF  JETS  ARE  FIRING  POSITIVELY  AND  RATE  IS  LESS  THAN  TARGET  RATE, LEAVE 

JETS  CN  AND  GO  TO  INHIBITION  LOGIC.  OTHE R W I S E , CONT I NUE  . 

■ ROOl 7 

3.  OUTER  RATE  LIMIT  TEST  (SPSSTART) 

R001  0 
R0019 

IF  MAGNITUDE  OF  EDOT  IS  GREATER  THAN  1.73  DEG/SEC  SET  JET  FIRING  TIME 
TO  RECUCE  RATE  AND  GO  TO  INHIBITION  LOGIC.  OTHER W I S E , CON T INUE . 

R002  0 

A.  COAST  ZONF  TEST 

K002  1 
R0023 
R002A 
R0026 

IF  STATE  ( E , EDOT ) IS  BELOW  LINE  E + A X EDOT  > -l.A  DEG  AND  EDOT  IS  LESS  THAN  1.30  OEG/SEC  SET  JET  T I MF  POST 
TIVE  AND  CONTINUE.  OTHE RW I SE , SET  JFT  FIRING  TIME  TO  ZERO  AND  CONTINUE. 

IF  STATE  IS  ABOVE  LINE  E + AX  EDOT  > +1.A  DEG  AND  EDOT  IS  GRFATER  THAN  -1.30  DEG/SEC,  SET  JFT  TIME  NEGATIVE 
AND  CONTINUE.  OTHE R W I SE  , S E T JET  FIRING  TIME  TC  ZERO  AND  CONTINUE. 

R0027 

5.  INHIBITION  LOGIC 

R0028 
R0029 
R0030 
R003  1 
R0032 

IF  OLDSENSE  IS  NON-ZERO: 

A)  RETURN  IF  JET  TIME  HAS  SAME  SIGN  AS  OLDSENSE 

B)  SET  INHIBITION  COUNTERMAND  RETURN  IF  JFT  TIME  IS  ZERO 

C)  SET  INHIBITION  COUNTER » M SE  T JET  TIME  TO  ZERO  AND  RETURN  IF  SIGN 
OF  JET  TIME  IS  OPPOSITE  TO  THAT  OF  OLDSENSE 

R0033 

R003A 

R0035 

R0037 

R0038 

IF  OLDSENSE  IS  ZERO: 

A)  RETURN  IF  INHIBITION  COUNTER  IS  NOT  POSITIVE 

E)  SET  JET  TIME  TO  ZERO  AND  RETURN  IF  INHIBITION  COUNTER  IS  POSITIVE 
*NOTE:  INHIBITION  COUNTERS  CAN  BE  SET  TO  A OR  10  FOR  THE  P , AND  UV  AXES, 
RESPECT  I VELY, IN  SPSRCS.  THEY  ARE  DECREMENTED  BY  ONE  AT  THE  BEGINNING  OF 
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R0039 

R0040 

RU042 

R0044 

R0045 

R004  6 
R004  7 
R0048 


R0049 

R0050 

R0051 

R0052 

R0053 

R0054 

R0055 

R0056 


0057 

005  8 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

006  7 
006  B 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 


SPS  BACK-UP  RCS  CONTROL  USER'S  PAGE  NO.  2 EO  S4 

EACH  CAP  PASS. 

THE  MINIMUM  PULSE  WIDTH  OF  THIS  C GNTROLLE R ' I S DETERMINED  BY  THE  REPETITION  RATE  AT  WHICH  THIS  ROUTINE  IS  CALLED 
AND  IS  NOMINALLY  100  MS  FOR  ALL  AXES  IN  DRIFTING  FLIGHT.  DURING  POWERED  FLIGHT  THE  MINIMUM  IS  100  MS  FOR  THE 
P AXIS  AND  200  MS  FOR  THE  CONTROL  OF  THE  U AND  V AXES. 

CALLING  SEQUENCE: 

INHINT 

TC  IBNKCALL 

CADR  SPSRCS 


EXIT: 

TC  Q 

ALARM/ABORT  MODE:  NONE 

SUBROUTINES  CALLED:  NUNE 

INPUT:  E , BOOT 


TJP, 

T.J  V , 

TJU 

TJ  MUST  NOT  BE  NEGATIVE  ZERO 

OUTPUT  : 

TJP, 

TJV, 

TJU 

21,3606 

BANK 

21 

REF 

4 

LAST 

1484 

21,2000 

SETLOC 

DAPS4 

21,3606 

BANK 

REF 

1 

COUNT* 

$ $/DAPBU 

REF 

14 

LAST 

1456 

E6,  1525 

EBANK= 

TJU 

21,3606 

0C632 

0 

RATEL  IM2 

OCT 

00632 

1.125  OFG/SEC 

REF 

32 

LAST 

1394 

21,3607 

3 4727 

1 

PCSTHRST 

CA 

HALF 

REF 

33 

LAST 

1462 

21,3610 

51' 505 

0 

NDX 

AXISCTR 

REF 

15 

LAST 

1506 

21, 3611 

55' 525 

0 

TS 

T JU 

REF 

1 

21,3612 

11’ 744 

0 

CCS 

OLDSENSF 

REF 

l 

21,3613 

1 3633 

0 

TC  F 

POSCHECK 

JETS  FIRING  POSITIVELY 

REF 

1 

21,3614 

l 3636 

0 

TCF 

C TRCHECK 

JETS  OFF.  CHECK  INHIBITION  CTR 

REF 

34 

LAST 

1506 

21,3615 

5 1 ' 505 

0 

NEGCHECK 

INDEX 

AXISCTR 

JETS  FIRING  NEGATIVELY 

REF 

16 

LAST 

1506 

21,3616 

4 1525 

0 

CS 

T JU 

REF 

528 

LAST 

1503 

21,3617 

10  COO 

0 

CCS 

A 

REF 

429 

LAST 

1502 

21,3620 

0 0002 

0 

TC 

Q 

RETURN 

21 , 3621 

1 3623 

1 

TCF 

+ 2 

21,3622 

1 3623 

1 

TCF 

+ 1 

JETS  COMMANDED  OFF.SFT  CTP  AND  RETURN 

REF 

35 

LAST 

1506 

21,3623 

51 ' 505 

0 

SETCTR 

INDEX 

AXISCTR 

JET  FIRING  REVERSAL  COMMANDED.  SFT  CT' 

REF 

l 

21, 3624 

3 3645 

0 

CA 

UTIME 

SET  JET  TIME  TO  ZERO, AND  RETURN 

GAP:  ASSEMBLE  REVISION  210  OF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161 
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0077 

REF 

36 

LAST 

1506 

21 , 3625 

51' 505 

0 

INDEX 

AXISCTR 

0078 

REF 

3 

LAST 

1426 

21, 3626 

55' 767 

1 

TS 

U JET  CTR 

0079 

REF 

322 

LAST 

150  2 

21,3627 

3 4746 

0 

Z APT  J 

CA 

ZERO 

0080 

REF 

27 

LAST 

1507 

21 , 3630 

51 1 505 

0 

INDEX 

AXISCTR 

0081 

REF 

17 

LAST 

1506 

21, 3631 

55 ' 525 

0 

TS 

T JU 

0082 

REF 

4 30 

LAST 

1506 

21,3632 

0 0002 

0 

TC 

0 

0083 

REF 

38 

LAST 

1507 

21, 3633 

51' 505 

0 

POSCHECK 

INDEX 

AXISCTR 

0084 

REF 

18 

LAST 

1507 

21,3634 

3 1525 

1 

CA 

T JU 

0085 

REF 

1 

21,3635 

1 3617 

0 

TC  F 

NEGCHECK 

0086 

REF 

39 

LAST 

1507 

21,3636 

51' 505 

0 

CTRCHECK 

INDEX 

AXISCTR 

0087 

REF 

4 

LAST 

1507 

21,3637 

11 • 767 

1 

CCS 

UJETCTR 

0088 

21,3640 

1 3642 

0 

TCF 

+ 2 

0089 

REF 

431 

LAST 

1507 

21,3641 

0 C002 

0 

TC 

Q 

0090 

REF 

1 

21, 3642 

1 3627 

0 

TCF 

Z APT  J 

009  1 

REF 

432 

LAST 

1507 

21,3643 

0 C 002 

0 

TC 

Q 

0092 

21 , 3644 

0CC04 

0 

OCT 

00004 

0093 

21,3645 

0 C 0 1 2 

l 

UTIME 

OCT 

00012 

0094 

21,3646 

00012 

l 

OCT 

00012 

0096 

REF 

167 

LAST 

1500 

21,3647 

4 4744 

0 

NEGFIRE 

cs 

ONE 

0097 

REF 

2 

LAST 

1506 

21,3650 

55' 744 

0 

TS 

OLDSENSE 

0098 

RE.F 

18 

LAST 

L467 

21, 3651 

3 1427 

1 

CA 

EDOT 

0099 

21,3652 

1 3656 

0 

TCF 

+ 4 

0100 

REF 

L 68 

LAST 

1507 

21,3653 

3 4 744 

1 

. PLUSF  IRE 

CA 

ONE 

010  1 

REF 

3 

LAST 

1507 

21,3654 

55 ' 744 

0 

TS 

OLDSENSE 

0102 

REF 

19 

LAST 

1507 

21,3655 

4 1427 

0 

CS 

EDOT 

0103 

REF 

529 

LAST 

1506 

21,3656 

22  000 

1 

LXCH 

A 

0104 

REF 

66 

LAST 

1502 

21,3657 

4 0111 

1 

CS 

DAPBOOLS 

0105 

REF 

7 

LAST 

1495 

21,3660 

7 4735 

0 

MASK 

DR  IFTRIT 

0106 

REF 

530 

LAST 

1507 

21,3661 

10  000 

0 

CCS 

A 

0107 

REF 

1 

21,3662 

3 4 7 60 

1 

CA 

RATEDB1 

0108 

REF 

330 

LAST 

1503 

21,3663 

6 0001 

0 

AD 

L 

0109 

21,3664 

0 0006 

1 

EXTEND 

0110 

REF 

1 

21,3665 

6 3675 

0 

BZMF 

SPSSTART 

0111 

REF 

1 

21,3666 

1 3612 

0 

TCF 

POSTHRST 

Oil? 

REF 

40 

LAST 

1507 

21,3667 

51 ’ 505 

0 

SPSRCS 

INDEX 

AXISCTR 

0113 

REF 

19 

LAST 

1507 

21,3670 

11' 525 

0 

CCS 

T JU 

0114 

REF 

1 

21,3671 

1 3 653 

0 

TCF 

PLUSF IRE 

0115 

21, 3672 

1 3674 

0 

TCF 

+ 2 

0116 

REF 

1 

21,3673 

1 3647 

0 

TCF 

NEGFIRE 

0117 

REF 

4 

LAST 

1507 

21,3674 

55' 744 

0 

TS 

OLDSENSE 

0118 

REF 

20 

LAST 

1507 

21,3675 

3 1427 

1 

SPSS  T ART 

CA 

EDOT 

0119 

21,3676 

0 0006 

1 

EXTEND 

0120 

REF 

1 

21 ,3677 

7 4757 

1 

MP 

RATELIM1 

0121 

REF 

531 

LAST 

1507 

21,3700 

10  000 

0 

CCS 

A 

0122 

REF 

l 

21,3701 

1 3720 

0 

TCF 

NEGTHRST 

0123 

21 ,3702 

l 3704 

0 

TCF 

+ 2 

0124 

REF 

2 

LAST 

1507 

21,3703 

1 3607 

1 

TCF 

POSTHRST 

0125 

REF 

21 

LAST 

1507 

21 ,3704 

3 1427 

1 

CA 

EDOT 

0126 

REF 

17 

LAST 

1467 

21,3705 

6 1751 

0 

AD 

E 
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+ 2 

CHECK  JET  INHIBITION  COUNTER 


CTR  IS  NOT  POSITIVE.  RETURN 
CTR  IS  POSITIVE. INHIBIT  FIRINGS 
CTR  IS  NOT  POSITIVE. RETURN 


JETS  FIRING  NEGATIVELY 


RATF  DEAD  BAND  TF ST 

IF  DRIFTBIT  = l,  USE  ZERO  TARGET  RATE 
IF  DRIFTBIT  = 0,  USE  0.10  RATE  TARGET 


+ 3 


JET  SENSE  TEST 

JETS  FIRING  POSITIVELY 

JETS  F IR ING  NEGAT IVFL  Y 


JETS 

OFF 

OUTER 

RATE 

LIMIT 

TEST 

OUTFR 

RATE 

LIMIT 

EXCFEDED 

OUTER 

RATE 

LIMIT 

EXCEEDED 

COAST 

ZONE 

TEST 

I 
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0127 

21 ,3  706 

0 

0006 

1 

EXTEND 

0128 

REF 

2 

LAST 

224 

21 ,3707 

7 

1411 

0 

MP 

DKDB 

0129 

21,3710 

0 

CC06 

1 

EXTENO 

0130 

REF 

1 

21,3711 

1 

3726 

0 

BZF 

TJZERO 

0131 

21,3712 

0 

C006 

1 

EXTEND 

013  2 

21,3  713 

6 

3722 

0 

BZMF 

+ 7 

0133 

REF 

22 

LAST 

1507 

21,3714 

' 3 

1427 

l 

CA 

EDOT 

0134 

REF 

1 

21,3715 

6 

3606 

1 

AD 

RATEL IM2 

0135 

21,3716 

0 

C006 

1 

EXTEND 

0136 

REF 

2 

LAST 

1508 

21,3717 

6 

3726 

1 

BZMF 

TJZERO 

013  7 

REF 

33 

LAST 

1506 

21,3720 

4 

4727 

0 

NEGTHRST 

CS 

HALF 

0138 

REF 

3 

LAST 

1507 

21,3721 

l 

3610 

1 

TCF 

POSTHRST 

0139 

REF 

2 

LAST 

1508 

21,3722 

4 

'3606 

0 

+ 7 

CS 

RATEL1M2 

014  0 

REF 

23 

LAST 

1508 

21, 3723 

6 

1427 

1 

AD 

EDOT 

014  1 

21 ,3  724 

0 

0006 

1 

EXTEND 

0142 

REF 

4 

LAST 

1508 

21, 3725 

6 

3607 

0 

BZMF 

POSTHRST 

014  3 

REF 

323 

LAST 

150  7 

21,3726 

3 

4 746 

0 

TJZERO 

CA 

ZERO 

0144 

REF 

5 

LAST 

1508 

21, 3727 

1 

3610 

1 

TCF 

POSTHRST 

014  5 

REF 

5 LAST  1425 

4757 

RATEL  IM 1 = 

CALLCODE 

0146' 

REF 

1 

4760 

RATEDB1  = 

TBUILDFX 

END  OF  LMCAP 
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PAD  LOADED  DEADBAND.  FRFSHSTART : 1.4  DEG 


= 00032,  CORRESPONDING  TO  1.73  DEG/SEC 
= 00045,  CORRESPONDS  TO  0.101  DEG/SEC 


PAGF  1509 


GAP:  ASSEMBLE  REVISION  210  OF  AgC  PROGRAM  LUMINARY  BY  NASA  2021112-161  17:11  MAR.  19,1971 

SYMBOL  TABLE  LISTING,  INCLUDING  DEFINITION,  HEALTH,  PAGE  OF  UEF,  # OF  REFS,  PAGE  OF  FIRST  REF,  PAGF  OF  LAST  REF 


SYMBOL 

DEF 

H 

REFERENCES  SYMBOL 

DEF 

. 003  7 5 A 3 

17,3771 

1467 

1 

1463 

|— A YO 

E3,  1711 

•023R/S2 

20,3743 

1504 

l 

1498 

-AZ 

11,2357 

•0375AT4 

1 7, 3764 

1467 

1 

1465 

- AZB  I r 

4737 

. 1 AT  2 

17,3763 

1467 

1 

1465 

-BIT  10 

06,3004 

. 1 AT  4 

l 7,3762 

1467 

1 

1463 

-BIT12 

7762 

.166  ..  . 

23,3520 

1254 

1 

1250 

— 8 I T 1 4 

7757 

• 3D 

12,3761 

1244 

1 

1215 

-CCSPR 

01, 3136 

• 5SEC 

4 765 

1094 

2 

5 31 

1332  -COMMAX 

C 7 , 3764 

.7071 

20, 3C60 

1492 

2 

1486 

1493  -COMMAX- 

07,3765 

31  * 3 760 

(AT)  A 

27, 2016 

40 

1 

841 

-DELGMB 

E6 , 1673 

( TBUP  ) A 

27,2020 

40 

1 

841 

— DTSCALR 

17,2054 

l TGO  ) A 

32,3647 

038 

1 

839 

-EL 

11,2371 

( 1/DV  ) A 

27,2012 

40 

, 841 

i r.E.L®IT 

4744 

05, 3376 

+ AZ 

111, 2364 

823 

1 l-ENDER  AS 

7764 

+AZB  I T 

474C 

= 823 

i 

823 

-ENDVAC 

6272 

+ DEC  S GN 

40,2272 

413 

i 

413 

-EPSILON 

0155 

♦ DEC  9 9 ' 

31, 3762 

829 

i 

827 

-EPSMAX 

20,3062 

♦-DOWN 

00,2610 

1061 

i 

1060 

-FOUROEG 

16,3531 

+ EL 

1 1,2376 

823 

-FOURDT 

27,2532 

+EL3  1 T 

4 743 

= 823 

i 

823 

-GYROMIN 

07,3505 

+ L I M I T 

42,3350 

436 

i 

436 

— LOKONFG 

23, 2040 

+MGA 

E4 , 1643 

= 121 

5 

326 

695  -MAXADRS 

4341 

+0N 

4C , 2402 

414 

3 

414 

456  -MUDT 

33, 2077 

+QMI  N 

17,2304 

1443 

1 

1442 

-MUDTMUN 

33,2103 

+RMI  N 

17,2314 

1443 

1 

1443 

-MUDT  1 

33*  2101 

+ TJM I NT6 

17,3136 

1453 

4 

1444 

1452  -OC  T 10 

6243 

+UMASK 

20,3747 

1504 

1 

1499 

—OCT  6 3 0 

16,2321 

+XURULGE 

1 7, 22C0 

1441 

2 

1440 

1441  -ON 

40,2422 

+150MST6 

16,3613 

1439 

1 

1435 

— PHASE  1 

0751 

0753 

CENTER 

36,3043 

741 

1 

740 

-PHASE3 

0755 

*NBSM* 

23, 3665 

1260 

7 

264 

966  -PHASE4 

0757 

* PROC  FED 

36.3C40 

741 

1 

740 

-PHASE5 

0761 

*SMNB* 

23,3663 

1260 

6 

263 

964  -PHASE6 

0 763 

17, 2310 

-.011 2A8 

17,3761 

1467 

1 

1462 

-RATFDB 

E6 , 1476 

-.025AT2 

17, 3 765 

1467 

1 

1465 

-RMIN 

17,2316 

-.025AT4 

1 7 f 3 /66 

1467 

1 

1463 

-RRLIMIT 

25,2306 

-.03R/S2 

20,3742 

1504 

6 

1496 

15C3  -SIGNAOS 

0 164 

-.05A r 2 

17, 3767 

1467 

1 

1462 

-TJMAX 

17,3773 

-.  1 5 A T 2 

1 7,  3770 

1467 

1 

14b2 

-TJMIN 

17,3775 

-.1075 

20,3205 

1494 

1 

1497 

-IPER 

E4  y 1533 

- . 70  1 1 

20,3061 

1492 

2 

1487 

1493  -UMASK 

20,3745 

) HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGEO  AS  FOLLOWS: 


H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

116 

l 

1 145 

-UP 

00,2620 

1061 

l 

1060 

823 

-XTRANS 

17,2201 

144  1 

I 

144  1 

= 823 

1 

823 

-0.3D/S 

01,2347 

308 

1 

306 

191 

1 

187 

-0.6D/S 

01,2346 

308 

1 

30  6 

= 544 

1 

544 

-1/12 

13,3763 

1245 

l 

1235 

1096 

2 

142  1 

-1/2+2 

00,2444 

1057 

1 

1077 

1111 

1 

1113 

-1/8 

7762 

1096 

3 

544 

1466 

1328 

2 

1310 

1311 

— 1 CHK 

43,3276 

1284 

5 

12  8 5 

1290 

1328 

2 

1310 

13  1 1 

-100MS 

16,3616 

1439 

2 

146  8 

8 29 

1 

82  7 

-100MST6 

16,3732 

1469 

3 

1468 

= 141 

19 

141 

915 

-136MST6 

16,3573 

1438 

2 

1435 

1438 

5 73 

1 

578 

-15DEGS 

06,2513 

1 80 

1 

179 

823 

-150MS 

17,3137 

14  54 

1 

1451 

= 823 

1 

823 

-I60MST6 

16,3530 

1437 

l 

1436 

234 

1 

229 

- 2 JET  L I M 

E 6, 1475 

135 

4 

135 

1485 

1096 

1 

1003 

-2SEC 

10,3600 

1379 

1 

1366 

1007 

2 

1003 

1021 

-30EG 

17,3760 

1467 

1 

1460 

= 14  94 

5 

1486 

1487 

-45DEGSP 

7761 

= 549 

1 

547 

1492 

4 

1486 

1437 

-50DEGSR 

25,2222 

548 

1 

548 

1437 

l 

143  6 

-50SC 

04,3053 

1183 

1 

117? 

767 

1 

766 

-70DEGS 

06,2512 

190 

1 

179 

1320 

2 

1320 

1323 

-80DfcGSR 

25,2223 

548 

1 

548 

284 

= 1283 

1 

1288 

/ AF/CNST 

31,2363 

793 

1 

789 

46 

1 

882 

/AFC/ 

F7, 1463 

= 146 

6 

146 

820 

46 

1 

885 

/ BUF  + 

00,2721 

1 065 

2 

1064 

46 

/SUF- 

00,2715 

1064 

2 

106  4 

1006 

1 

1006 

/LAND/ 

E4 , 1723 

= 124 

10 

124 

885 

1421 

1 

1420 

/MPAC+ 

00,2767 

1066 

2 

1066 

415 

2 

414 

456 

/MPAC— 

00,2763 

1 066 

2 

1066 

103 

6 

225 

1298 

/NORM 

00,2732 

1065 

1 

106  5 

103 

8 

224 

871 

/NORM  2 

00,2725 

1065 

1 

1065 

103 

4 

225 

869 

/R/MAG 

E4, 1671 

= 124 

6 

124 

855 

103 

9 

225 

13J1&- 

^==  = = = = 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

103 

2 

225 

srsf 

? 

^001 

= 744 

103 

5 

225 

109  2 

7GUIDSUB 

3 1 , 2\  1 7 

796 

1 

782 

1443 

l 

1442 

sa 

10 

T . TT  v 

1 507 

1 44d 

0000 

= 94 

'531 

168 

1443 

1 

1443 

A-PCHK 

13,3215 

12  13 

4 

1210 

1222 

551 

2 

552 

A A PFG  * 

E 5 , 1440 

= 125 

1 

125 

= 1504 

10 

1496 

1502 

AAPFGX 

E 5 , 1424 

= 125 

1 

125 

1467 

2 

146  3 

1464 

AAPFGZ 

E 5 , 1430 

= 125 

1 

125 

1467 

1 

146  5 

ABCLOAD 

4 1,2647 

439 

1 

42? 

= 120 

6 

318 

724 

ABDEL  V 

1245 

= 108 

8 

108 

149  3 

1504 

2 

1499 

1503 

ABDVCONV 

F7, 1513 

= 154 

5 

154 

864 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

ABLOAD 

41,2753 

440 

1 

422 

ACCRETRN 

0117 

AUDI  T 

5636 

= 

1381 

ACCSOKAY 

4742 

ABORTALM 

21,21(4 

837 

2 

837 

ACCSW 

0122 

ABORT  S 

32, 20C0 

= 

35 

2 

. 834 

837 

ACCSWU 

E6 , 1546 

ABORT  SI 

05,2000 

= 

30 

1 

832 

ACCSWV 

E6, 1547 

ABORT YZ 

16,2775 

1428 

1 

1438 

ACCTHERE 

20,3441 

ABORT  2 

5646 

1380 

1 

1380 

ACCWD 

E5,  1512 

ABOUTCNE 

15,2156 

263 

2 

261 

956 

ACC4-2FL 

0307 

ABRFG* 

E 5 , 1436 

= 

125 

2 

125 

829 

ACC40R2X 

4732 

ABRFGX 

E 5 , 1422 

= 

125 

2 

125 

829 

ACDT+C12 

16,3737 

ABRFGZ 

E 5 , 1426 

= 

125 

1 

125 

ACENTRAL 

E6 , 1743 

A8RT AeLE 

36,2114 

728 

1 

838 

ACMODB IT 

4730 

ABRT I CN 

36,2533 

735 

1 

728 

ACMODFLG 

0040 

ABRT  J ADR 

05,3422 

833 

1 

833 

AC0S=0 

00, 3637 

ABRT JASK 

05,3423 

833 

l 

833 

ACOSABRT 

00,3723 

ABS 

00,3226 

1074 

4 

825 

1073 

ACOSOVF 

00,3721 

ABSAOS 

0162 

= 

1504 

12 

1496 

1499 

ACOSSHR 

00,3714 

ABSCO 

E.5,  1522 

= 

126 

2 

126 

8 E 7 

ACOSST 

00, 3625 

ABSC1 

E5,  1523 

= 

126 

1 

126 

AC0SST2 

00,3642 

A BSC  2 

E5, 1524 

= 

126 

1 

126 

ACOSZERO 

00,3731 

A BSC  3 

E5, 1525 

= 

126 

1 

126 

AC0S3 

00,3652 

A BSC  A 

E5, 1526 

= 

126 

1 

126 

ACTCENT 

E3 , 1753 

ABSEDOTP 

E6, 1736 

= 

136 

2 

1433 

ACTIVE 

23,2423 

ABST  J 

E 6 , 1736 

= 

136 

9 

1434 

1453 

ADDGRAV 

15,2764 

ABTCONIC 

12,3752 

1199 

3 

1184 

1197 

AODIT IN 

21,3513 

ABTFLCS 

2 1,2000 

= 

32 

1 

1331 

ADDPOS 

30,2002 

ABTKL  EAN 

05,2657 

225 

1 

834 

ADDRESS 

6 124 

ABTRDOT 

E5 , 1 563 

= 

127 

2 

127 

835 

ADDRWD 

0116 

A8TTGBIT 

4736 

= 

83 

ADG 

E 5 , 1422 

ABTTGFLG 

0217 

= 

83 

2 

240 

836 

ADG2TTF 

E5, 1436 

ABVAL 

00,3201 

1073 

ADI  AX 

E3 , 1463 

ABVAL ABS 

00,3176 

1073 

1 

LOll 

ACIAY 

E3 , 1464 

ABVEL 

E 7, 147  1 

= 

154 

8 

154 

891 

ADIAZ 

E3 , 1465 

ABVEL* 

0130 

= 

126 

3 

890 

891 

ADRPCHN2 

5370 

ACADN83 

36,3755 

759 

1 

754 

ADRRUPT 

17, 3272 

ACADN85 

36,2057 

= 

758 

1 

749 

ADRS+1 

43, 3630 

ACCDOTQ 

E6, 1507 

137 

8 

137 

1488 

ADRSCAN 

27,2214 

ACCDOTR 

E 6 , 1511 

= 

137 

6 

1474 

1493 

ADRSCHK 

43,3577 

ACCEPTUP 

04,3272 

1335 

2 

1336 

ACRSDI FI 

E6, 1745 

ACCEPTWD 

41,2047 

4 19 

3 

4 19 

420 

ADRS0IF2 

E6 , 1 743 

ACCFCTZ1 

E 6 , 157  4 

= 

139 

1 

1464 

ADRS1 

43, 3247 

ACCFCTZ5 

E6,  1575 

= 

139 

1 

1462 

ADR40400 

5736 

ACCHE  RE 

20,3407 

1498 

1 

1498 

ADR  7 7 7 70 

5735 

ACCOKFLG 

0317 

= 

90 

ADSRAX 

E3, 1466 

ACCOMP 

1 1,2523 

1228 

1 

1236 

AOSRAY 

E3 , 1467 

HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


REFERENCES  SYMBOL  DEF  H REFERENCES 


1 504 

2 

1484 

1502 

ADSRAZ 

£3,1470 

115 

1 

341 

90 

3 

230 

1502 

ADSUM 

43,3566 

1288 

2 

1288 

1 503 

5 

1500 

1503 

ADTIME 

35,3154 

673 

l 

673 

139 

3 

139 

1500 

ADUPBFM1 

04,3664 

1391 

2 

1387 

1388 

139 

l 

1500 

ADUPBUFF 

04,3517 

1388 

1 

1386 

1498 

l 

149  8 

ADUPTEMP 

04,3516 

1388 

l 

1387 

132 

2 

39  8 

399 

ADVAN 

01,3216 

1 1 14 

2 

1 10  8 

1284 

89 

2 

834 

839 

ADVANCE 

34,3016 

648 

2 

628 

633 

89 

2 

306 

1441 

AFCCALC1 

31,3146 

807 

1474 

2 

1426 

1478 

AFCCAI C2 

31,3156 

807 

137 

5 

1471 

1473 

AFCCALC3 

31,3 172 

807 

l 

807 

71 

AFCCLEND 

31,3200 

807 

l 

807 

71 

3 

511 

514 

AFCSPOT 

32,3415 

820 

2 

820 

1082 

4 

1082 

1084 

AFDUMP 

31,2151 

789 

1084 

AFTERTJ 

1 7,2756 

1451 

3 

1444 

1450 

1084 

1 

1082 

aftrfltr 

3 0,3  174 

910 

1 

909 

10  84 

l 

1082 

AFTRGUID 

31,2401 

794 

1 

80  7 

1082 

1 

1082 

AGAINMM 

04,2113 

239 

I 

239 

1082 

2 

1082 

AGSBUFF 

E4, 1571 

= 

122 

12 

122 

220 

10  84 

l 

1082 

AGSBUFFE 

E4, 1606 

= 

122 

1083 

l 

1084 

AGSCDDE 

10  73 

105 

6 

211 

589 

117 

2 

327 

676 

AG  SOI SPK 

32,2022 

2 19 

700 

4 

633 

700 

AG  SEND 

32,2120 

220 

2 

220 

964 

1 

964 

AGSI/UPD 

05,2414 

= 

2 16 

3 

204 

217 

1481 

L 

1480 

AGSINDIC 

16,2033 

1408 

1 

140  7 

616 

l 

616 

AGS  IN  IT 

32,2005 

218 

l 

286 

1002 

AG  SK 

E6, 1771 

14? 

8 

208 

286 

98 

83 

918 

1264 

AGSLI ST 

05,2414 

= 

204 

829 

1 

806 

AGSRND1 

32,2177 

221 

2 

220 

221 

829 

1 

804 

AGSRND2 

32,2205 

221 

2 

220 

22  1 

115 

l 

341 

AG  SUP  DAT 

0001 

= 

247 

115 

L 

341 

AG  SVC  ALC 

32,2036 

219 

1 

219 

115 

1 

342 

AGSWORD 

1321 

1 10 

4 

220 

241 

1296 

l 

1296 

AHEAD5 

6454 

1014 

l 

1014 

1456 

1 

1456 

AHZLIM 

F 5 , 1476 

= 

126 

3 

126 

815 

1289 

A I G 

F7, 1457 

146 

10 

162 

605 

746 

1 

746 

AI GBANK 

26,3331 

605 

2 

599 

604 

1288 

2 

1288 

AIMER 

30,2666 

850 

1 

850 

138 

12 

1459 

1467 

AINGOTN 

37,2217 

388 

1 

38  8 

138 

1 1 

1459 

1466 

ATNLA 

F5, 1434 

= 

132 

33 

132 

133 

1283 

l 

302 

AK 

E 6 , 1 760 

142 

24 

142 

1417 

1381 

l 

1380 

AK  1 

£6,1761 

= 

142 

1 

1416 

1381 

1 

1381 

AK2 

E 6 , 1 762 

= 

142 

l 

1416 

115 

1 

341 

ALARM 

5571 

1 378 

50 

174 

1456 

115 

l 

34  1 

AL ARM/TB 

35,2430 

637 

1 

62  7 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL ' 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

ALARM  IT 

24,3634 

767 

1 

766 

ALPHAV 

E4 , 1431 

= 

118 

35 

118 

1243 

AORBSFLG 

0125 

= 

76 

ALARMMGA 

30,3742 

921 

l 

911 

ALRMLT 

24, 2147 

512 

1 

511 

AORBSYST 

4 740 

= 

76 

2 

1434 

1435 

ALARM  1 

5726 

1361- 

1 

1084 

ALRM503 

24,3063 

526 

l 

525 

AORBTFLG 

0310 

= 

89 

1 

737 

ALARM  2 

5573 

1 37B 

2 

1283 

1380 

ALRM514 

24,2365 

515 

1 

513 

ADRBT  RAN 

4733 

= 

89 

2 

1441 

1443 

ALCGKK 

37,2627 

397 

ALRM525 

24, 2745 

523 

1 

521 

AOSQ 

E 6 , 1536 

138 

29 

138 

1495 

ALDK 

E5, 1532 

= 

133 

3 

397 

398 

ALRM526 

24,2363 

515 

AOSQTERM 

E6, 1544 

138 

7 

138 

1425 

ALFDK 

E4, 1422 

= 

122 

1 

397 

ALRM527 

24,3064 

526 

AO  SR 

E 6 , 1 540 

= 

138 

1 1 

735 

149  5 

ALFLT 

37,2577 

397 

1 

396 

ALRM530 

24, 3202 

527 

1 

527 

AOSRTFRM 

F6, 1545 

= 

138 

6 

1406 

1425 

ALFLT3 

37,2644 

397 

- 1 

397 

ALSIGNAG 

7565 

1041 

5 

888 

1067 

AO  SU 

E6, 1542 

= 

138 

3 

1495 

1496 

ALGORTHM 

2 l , 3C73 

1471 

ALSK 

37,3103 

401 

1 

398 

AOSV 

E6 , 1 543 

= 

138 

AL IGNCOA 

37,2311 

390 

3 

390 

ALT 

1123 

= 

107 

6 

107 

1134 

AOTAZ 

E7, 1404 

144 

5 

164 

955 

AL IGNOPT 

15,3313 

973 

1 

9 73 

ALTCALC 

22,2131 

365 

1 

364 

AOTCODE 

1235 

= 

1C8 

17 

108 

959 

ALILP 

37,2667 

398 

1 

398 

ALTCONV 

21,2005 

44 

2 

898 

899 

AO  TEL 

E 7 , 1412 

144 

1 

257 

ALINE  X 

2 6 , 2C7  1 

351 

ALTDSPLY 

20,2227 

1412 

1 

141  1 

AOTMARK 

07,2000 

255 

3 

939 

958 

ALINEZ 

26,2115 

352 

1 

35  1 

ALTERYZ 

16,3006 

1428 

1 

142  8 

A0TMARK1 

07,2000 

= 

30 

3 

255 

959 

AL INT IMF 

43,2415 

287 

1 

275 

ALTEXIT 

25,3440 

575 

1 

575 

A0TMARK2 

04,2000 

= 

30 

2 

260 

981 

ALK  • 

E 5 , 1446 

= 

132 

6 

133 

398 

ALTIM 

E5 , 1530 

= 

133 

2 

396 

A0TMARK3 

06,2000 

= 

30 

1 

263 

ALKCG 

37,2632 

397 

ALTIMS 

F 5 , 1531 

= 

133 

2 

396 

397 

AOTST  ALL 

07,3731 

1326 

3 

94  7 

1327 

ALKCG2 

37,2635 

397 

1 

397 

ALTITUDE 

E7 , 1730 

= 

158 

5 

158 

899 

APOPERI 

23,2000 

= 

33 

1 

69  8 

ALKLP 

37,2676 

390 

1 

398 

AL  TM 

0060 

= 

95 

2 

898 

899 

APSESBIT 

4740 

= 

81 

ALLCOAST 

20,2205 

1406 

4 

241 

756 

ALTRATE 

E7,  1726 

= 

158 

8 

158 

898 

APSESW 

0202 

= 

81 

2 

l 196 

1197 

ALLDC/OC 

41,3061 

4 42 

2 

439 

441 

ALTRC 

21,2004 

44 

1 

898 

APSFL AG 

0230 

= 

84 

3 

768 

787 

ALL J F TS 

17,3257 

1456 

2 

1456 

ALTROUT 

21,2377 

898 

APSFLBIT 

4730 

= 

84 

16 

224 

1485 

ALLOO P 

37,2536 

396 

2 

395 

3 96 

A LTRROUT 

21,2346 

898 

APSIDES 

12,3704 

1198 

1 

698 

ALLOWCTS 

E6 , 1502 

= 

139 

7 

1409 

1502 

ALTRTEMP 

0063 

= 

158 

3 

89  7 

APSLAD 

21,2615 

902 

l 

901 

ALLREAD 

25,3063 

569 

2 

570 

575 

ALTSCALE 

0272 

= 

88 

APSTGO 

27,2671 

7 70 

l 

769 

ALLSET 

35,3425 

680 

1 

680 

ALTSCB  IT 

4734 

= 

88 

APSVEX 

33,2000 

40 

3 

753 

864 

ALLIS 

26,3703 

613 

1 

612 

ALTSTUFF 

21,2267 

897 

AP  ATE 

22,2771 

3 76 

3 

376 

ALL3DEC 

4 2 , 3 6C4 

450 

1 

449 

ALTSYST 

16, 3432 

1435 

2 

1435 

ARCCOS 

00,3612 

1082 

1 

101  1 

ALL4B  ITS 

1 1,2401 

324 

2 

822 

ALTTEMP 

0063 

= 

158 

3 

899 

ARCSIN 

00,3610 

1082 

1 

1011 

ALM/LND 

43,2116 

277 

24 

275 

309 

ALXXXZ 

37, 3076 

401 

1 

395 

ARCTAN 

13,2545 

l 1 35 

5 

493 

1132 

ALMC ADR 

1363 

= 

112 

10 

112 

1381 

A LX  1 S 

E5, 1444 

= 

132 

4 

395 

401 

ARCTANXX 

13,2573 

1135 

2 

1135 

ALMCYCLE 

6020 

46  1 

14 

420 

461 

AM 

E6 , 1734 

140 

3 

364 

376 

ARCTRGSP 

30,3606 

919 

3 

91  7 

ALMNCADR 

5730 

1381 

A MG 

E7 , 1460 

146 

5 

211 

599 

ARCTR  IG 

23,3303 

1248 

9 

312 

1251 

ALMX  I 1 

35,2045 

627 

2 

647 

AMOVED 

11, 3634 

1241 

1 

L 240 

ARET 

0161 

= 

1 504 

3 

1498 

1502 

ALMX  I T A 

35,2043 

627 

1 

644 

ANET 

0157 

= 

15  04 

1 1 

149  7 

1503 

ARG+ 

7306 

1034 

1 

1034 

ALM1  12 

07,2453 

270 

1 

2 70 

ANGLT I ME 

22, 3001 

3 76 

1 

376 

ARGHI 

00,3417 

1078 

2 

1079 

ALOAD 

41,3002 

441 

1 

422 

ANGTERM 

E4 , 1621 

= 

123 

2 

803 

808 

ARGLO 

00,3470 

1079 

1 

1079 

ALOADED 

13,3206 

1213 

2 

1212 

1213 

ANGX 

E5 , 1500 

= 

132 

2 

399 

400 

ARGZERO 

7326 

1034 

1 

1034 

ALPHA 

0C10 

= 

1199 

4 

1172 

1 1 74 

ANGY 

E5, 1476 

= 

132 

1 

400 

ARGZER02 

7323 

1034 

l 

1034 

ALPHAM 

E 4 , 1467 

= 

118 

14 

118 

1234 

ANGZ 

E5 , 1472 

= 

132 

1 

400 

ARG90 

5060 

1 100 

1 

1 100 

ALPHAC 

E 6 , 1424 

= 

134 

7 

161 

1484 

ANG1CHEK 

27, 3275 

852 

1 

851 

AR  OUT  1 SF 

40,2733 

433 

1 

430 

ALPHAR 

E6,  1425 

= 

134 

7 

207 

1484 

ANTENB IT 

4731 

= 

87 

1 1 

335 

560 

ARTHI NSF 

40,3125 

447 

l 

445 

AL  PH A S B 

E4,  1571 

122 

4 

122 

327 

ANTENFLG 

0267 

= 

87 

ARTIN  1SF 

40,3140 

447 

1 

445 

ALPHA  TRY 

21,3275 

1477 

ACG 

E7,  1461 

146 

9 

162 

599 

AR  TOUT  SF 

40,2726 

433 

2 

430 

431 
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symbol 
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ARUPT 

0010 

= 

94 

13 

163 

1456 

ATOPOTH 

13,2717 

= 

ASCALE 

13,3757 

1245 

1 

1230 

ATOPTHIS 

L 3 , 2772 

= 

ASCENT 

30,2307 

846 

3 

841 

845 

ATP 

E4, 1751 

= 

ASCFIIT 

34,2000 

= 

35 

l 

844 

ATR 

E4 , 1747 

= 

ASCSA VE 

E5, 1637 

= 

127 

2 

' 855 

856 

ATTACHED 

43,3141 

ASCSPCT 

32,3710 

871 

ATTACHIT 

43,3152 

ASCTEPM 

30,2721 

851 

2 

851 

853 

ATTCADR 

1304 

ASCTFRM1 

30,2721 

851 

1 

852 

ATTCHK 

15,3535 

ASCTERM2 

30,2746 

851 

1 

847 

ATTCK2 

42,2035 

ASCTFRM3 

30,2747 

851 

3 

851 

ATTFLAG 

0150 

= 

ASCTEPM4 

30,2750 

851 

1 

844 

A TTFLB  IT 

4744 

= 

ASECXT 

E5,  1573 

= 

133 

ATTPRIO 

1306 

= 

ASENT 

30,2000 

= 

35 

3 

40 

856 

ATTSCALE 

42,2053 

ASENT  1 

27,2000 

= 

34 

4 

39 

856 

ATTSTEER 

17, 2710 

= 

ASENT  2 

07,2000 

= 

30 

ATY 

E4 , 1745 

= 

ASENT  3 

05,2000 

= 

30 

AUG2 

07,3601 

ASENT  4 

14,2000 

= 

32 

AUG3 

07,3557 

ASENT  5 

30,2000 

= 

35 

AURLKON 1 

23,2034 

AS  El  r< 

3-3,2000 

= 

35 

1 

858 

ALRLOKON 

23,2000 

ASENT  7 

23,2000 

= 

33 

l 

852 

AUTOCHEK 

16,3105 

ASENT8 

34,2000 

= 

35 

2 

842 

853 

AuTUMANV 

26,2200 

ASINE  X 

00,3707 

1083 

1 

1082 

AUTOMBIT 

4743 

= 

ASKASTR 

07,2334 

267 

1 

267 

AUTOMODE 

0301 

= 

ASKI FARM 

10,2530 

1356 

1 

1356 

AUTRATE1 

4 744 

= 

ASTAR 

15,3106 

968 

1 

968 

AUTRATE2 

4743 

= 

ASTNR  IT 

473  1 

= 

79 

1 

733 

AUTR1FLG 

0321 

= 

ASTNCLOK 

32,3016 

784 

ALTR2FLG 

0320 

= 

ASTNDEX 

4353 

- 

785 

1 

784 

AUXFLAG 

0147 

= 

ASTNFLAG 

0154 

= 

79 

4 

732 

755 

AUXFLBIT 

4743 

= 

ASTNR  E T 

32,3022 

784 

1 

741 

AVECTR 

0024 

= 

ASTNRETN 

36,3027 

741 

1 

740 

AVEGEXIT 

1251 

= 

ASTOK 

26,3430 

606 

1 

522 

AVEGFBIT 

4740 

- 

ASTREND 

27,3  172 

775 

1 

7 1 4 

AVEGFLAG 

0163 

= 

ASTROMSK 

10,3525 

1369 

1 

1365 

AVEGOUT 

37,3516 

ASTROPRO 

32,3 154 

816 

1 

816 

A V.EIT 

07,2275 

AT 

E 4 , 1653 

= 

123 

7 

123 

850 

AVEMDBIT 

4744 

= 

AT/RCS 

30,2000 

40 

1 

847 

A VEM  IDSW 

0225 

= 

AT  AN=  SO 

L 3 , 2 60C 

1135 

1 

1135 

AVERAGED 

33,2211 

AT DECAY 

36,2012 

39 

1 

841 

AVERTRN 

22,3710 

AT 1G INC 

F 7, 1400 

144 

3 

399 

669 

AVESTAR 

C 7 , 2237 

ATMAC. 

34,3375 

844 

2 

744 

838 

AVETOMID 

13, 3522 

ATMAGAD 

32,3654 

838 

1 

836 

A VFLAG 

0050 

= 

ATMAGADR 

36,3137 

744 

1 

73  5 

AVFLAGA 

35, 2354 

ATOPCSM 

13,2717 

1207 

5 

38 

1241 

AVFL4GP 

35,2361 

ATOP  L F M 

L 3 , 2 77  2 

1209 

4 

38 

1241 

AVFLBI T 

4 140 

= 
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i 

713 

AVGEND 

22,3663 

867 

1 

862 

i 

713 

AVGEXIT 

1251 

= 

100 

7 

734 

869 

4 

124 

853 

AVOUTCAD 

37,3534 

962 

1 

862 

3 

124 

850 

AX*SR  *T 

23,3667 

1260 

1 

1259 

l 

275 

AXC 

01,2355 

1085 

1 

1010 

L 

309 

AXDSTEM 

0147 

= 

1503 

4 

1500 

1501 

6 

no 

1328 

AX  ISCTR 

E6, 1505 

= 

137 

40 

137 

1507 

1 

963 

AXISDIFF 

17,3755 

1467 

2 

144  7 

1459 

2 

293 

294 

AX  I SO  I ST 

E 6 , 1604 

= 

139 

8 

1461 

1501 

l 

977 

AXISGEN 

23,3424 

1252 

4 

939 

969 

3 

974 

9 78 

AXISGEN1 

23,3432 

1252 

1 

1252 

2 

381 

1328 

AX  ISGEN2 

23,3461 

1252 

I 

1253 

l 

294 

AXISGEN3 

23,3504 

12  53 

1 

1253 

1 

1442 

AXD 

E3, 1713 

116 

l 

l 145 

5 

124 

853 

A X T 

01,2350 

1085 

1 

1010 

1 

1322 

AZ 

1 344 

111 

4 

1 I 1 

953 

1 

1322 

AZBIAS 

E 6 , 1773 

142 

1 

810 

1 

284 

AZEACH 

1 1,2402 

824 

3 

823 

824 

1 

282 

AZEL 

14,3665 

953 

1 

953 

l 

1430 

AZ  IMUTH 

E 5 , 1400 

= 

132 

5 

132 

399 

AZ  INCR 

E7, 1556 

= 

156 

4 

156 

802 

5 

193 

553 

AZ  INCR  1 

E7, 1644 

= 

156 

7 

156 

823 

AZO 

26,2022 

55 

l 

1 144 

A2CNTRAL 

E6 , 1 745 

= 

137 

L3 

1471 

1473 

B*RNR*B* 

36,2137 

728 

1 

751 

BACKHAND 

17,2561 

1447 

1 

1447 

BACKP 

16,2322 

1421 

1 

1469 

3 

865 

866 

BADDES 

25,2614 

562 

l 

562 

7 

114  1 

1143 

BADEND 

07,3701 

1 325 

2 

58  1 

1324 

6 

108 

754 

BADRAD 

25,3256 

572 

1 

572 

8 

197 

861 

6ADR00T 

3 1 ,3650 

826 

2 

239 

716 

BADRUPT 

25,3177 

571 

1 

571 

l 

861 

BA  DR  2 

12,3674 

1 197 

2 

1 196 

1 

262 

BADX 

12,2302 

l 1 75 

3 

1 173 

BAILOUT 

5626 

1379 

3 

470 

1419 

3 

332 

1219 

BAIL0UT1 

5712 

1380 

7 

255 

1374 

BALLANGS 

26,2300 

492 

4 

352 

536 

1 

868 

BALLEX I T 

1337 

l 1 1 

2 

492 

493 

2 

266 

267 

BANKC ALL 

4607 

996 

308 

219 

1484 

1 

868 

BANKJUMP 

4031 

996 

19 

284 

1502 

6 

635 

772 

BANKMASK 

4 341 

= 

1097 

3 

1009 

1021 

4 

627 

669 

BANKR  UPT 

0016 

= 

94 

13 

165 

1419 

4 

627 

669 

BANKSET 

0 165 

101 

14 

998 

1369 

BASEOTP 

E4 , 1 530 

= 

1 19 

2 

707 

708 
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2021 

DEF, 

38 

38 

129 

124 

309 

309 

1 10 

978 

294 

79 

79 

1 10 

2 94 

1450 

124 

1322 

1321 

284 

283 

1430 

489 

88 

88 

90 

90 

90 

90 

78 

78 

1146 

108 

80 

80 

862 

267 

83 

83 

865 

868 

2 66 

1218 

71 

635 

635 

71 

D BY 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

8ASE0TV 

EA, 1571 

= 

1 19 

2 

70  7 

7C8 

BITS0FF2 

A1.2751 

AAO 

2 

AAO 

BI  T9 

A73A 

1 093 

AA 

68 

1502 

BASETEMP 

1 

= 

2 AA 

2 

2AA 

B I TS  15  + 7 

10,3530 

1369 

1 

1357 

BLANKCHK 

10,3152 

1363 

BASE  T h P 

EA, 1560 

= 

1 19 

2 

707 

BITS2-10 

5002 

1095 

1 

38 

BLANKCON 

AO, 2603 

A 1 8 

2 

A17 

A3  1 

BASE  rnv 

EA, 1503 

= 

119 

2 

707 

B ITS3SA 

5 7A5 

= 

1328 

2 

130  7 

1308 

BL ANKDEX 

A7A3 

= 

7A0 

i 

730 

8ASET  IME 

EA, 15  12 

= 

119 

3 

70  7. 

708 

BIT  SA+  1 0 

10,3533 

1370 

1 

1368 

BLANKOSP 

A 1 , 3 5 65 

A68 

2 

A68 

PAWLANGS 

26,2000 

= 

3A 

2 

3 51 

A 92 

B ITSAG5 

A 75  A 

109A 

A 

175 

AAO 

BLANKET 

5466 

1351 

12 

268 

1370 

BB 

OOC  6 

= 

1297 

5 

1296 

1303 

B ITSA&6 

A 762 

= 

1328 

5 

222 

1307 

BLANKSUR 

A2A6 

A71 

2 

A5  A 

1363 

BBANK 

0006 

= 

9 A 

A 7 

163 

1378 

BITSA-5 

07, 3763 

1328 

1 

1313 

BLNKBBNK 

A2  73 

A 7 1 

1 

A 7 1 

BBSEPVDL 

5737 

1381 

1 

1380 

B ITSA-7 

33,3060 

885 

1 

878 

BLNKSUB 1 

AO , 35A3 

A 7 1 

2 

A71 

BCDU 

E6, 1675 

1 AO 

13 

1 AO 

1328 

B ITS5+  1 1 

10,3532 

1369 

3 

1361 

1368 

BLNKWA IT 

36,3352 

752 

1 

752 

BDDV 

7 6 2 A 

1 0A2 

2 

1009 

1QA2 

B ITS6  + 7 

A 76  7 

= 

885 

1 

877 

BLOAD 

A1 ,3013 

AA  1 

1 

A22 

BDOT 

26,2010 

55 

1 

1 1 A 1 

B I T S 6 f.  15 

06, 3003 

191 

1 

190 

RL  OCK  TOP 

F6 , 1 5A6 

139 

12 

139 

1503 

BDSU 

7103 

1027 

1 

1009 

B ITS7+A 

10,3531 

1369 

2 

1355 

BNKCHK 

A3, 3721 

12  90 

BDTOK 

27, 2A61 

766 

s06,  27  77 

191 

2 

17A 

186 

BNKOPTN 

A3, 3320 

1 2 8 A 

BEE1  7 

0 A , 3C30 

1183 

1 

1 1 9 A 

r ' 

'MTS 8, 9 

TV, 3620 

1 A 39 

1 

1 A32 

BODY 

E 7 , l 57A 

= 

151 

2 

259 

263 

BEE19 

0A.30A2 

= 

1183 

1 

1191 

-fH'Tlli  7 

— J 6017 

299 

A 

299 

1382 

BOOLSMSK 

20.211A 

306 

3 

30  A 

305 

BEE22 

OA, 3CA6 

= 

1183 

1 

1 1 7 A 

BITS9, 11 

5005 

= 

IA3 1 

l 

1 A30 

BOQLSTRT 

05 , 306A 

229 

1 

223 

BEGDES 

25, 256A 

561 

3 

526 

557 

B I T 1 

A7AA 

1093 

75 

69 

1 A90 

ROOP 

37,2755 

399 

1 

399 

BELOW  1 

10,2236 

1298 

1 

1299 

e IT1H 

32, 3 A3  7 

821 

1 

819 

BORTENT 

5576 

1378 

2 

1379 

1380 

BELOW  2 

10,2253 

1298 

2 

1298 

BIT10 

A733 

1093 

51 

68 

1A85 

BOTHABRT 

5715 

1380 

1 

1381 

BEL0W2 

10,2267 

1298 

1 

1298 

8IT10+15 

6037 

531 

l 

531 

BOTHA  X ES 

20,3276 

1 A96 

l 

1500 

BE LOW A 

10,2272 

1298 

2 

1298 

B I T 1 I 

A 732 

1093 

33 

A5 

1 A7A 

BOTHJOBS 

10,2677 

1 359 

1 

1358 

BEST  I 

E5, 1755 

= 

128 

13 

128 

960 

81111+1 

25,2363 

553 

l 

553 

BOTHL ITS 

25,3663 

618 

1 

618 

BEST  J 

E5, 1756 

= 

128 

6 

128 

937 

BIT12 

A 73  l 

1093 

A2 

67 

1 A 97 

BOTHP AD 

2 2, 3 AO  1 

718 

1 

718 

BETAM 

EA, 1 A71 

= 

1 1 8 

6 

118 

1 2 A 3 

B I T 1 2 , 1A 

7733 

= 

568 

1 

567 

BOTHSGN 

AO, 2366 

A 1 A 

l 

A 1 A 

BE! ASB 

EA,  1573 

= 

122 

3 

122 

327 

BIT13 

A 730 

1093 

55 

A 1 

1 A95 

BDTHSH IP 

2 2 , 33A0 

717 

l 

718 

BOTAV 

EA, IA37 

= 

1 18 

1 1 

118 

1230 

B I T 1 3—  1 A 

A3A6 

= 

1097 

6 

293 

1 A07 

BOV ( 9 I 

0 1 , 2 A63 

1088 

1 

1010 

BGIM 

16,3736 

1 A7  A 

1 

1 A 7 A 

BIT1A 

A72  7 

1093 

91 

67 

1A98 

BP  L 

01 ,2507 

1089 

1 

1089 

BGIM2  3 

16,2207 

1 A 1 1 

1 

1 A 1 1 

B IT1A  + 7 

26, 226A 

A90 

BPL/BMN 

0 1,2  500 

1089 

1 

1010 

BHIZ 

01.2A56 

1088 

B I T 1 At  1 1 

7731 

= 

283 

2 

282 

283 

BRANCH 

67AA 

1023 

10 

888 

1089 

BI ASCALE 

22,3167 

379 

1 

379 

BIT1ACGM 

10, 2265 

1298 

1 

1298 

BRATE 

E6 , 172A 

= 

1 AO 

3 

376 

379 

Bl ASFACT 

33 , 26 AC 

881 

1 

871 

BIT15 

A 726 

1093 

57 

67 

1 A80 

BRNCHCON 

AO, 2567 

A 1 7 

1 

A17 

BIASHI 

00,2566 

1059 

1 

1078 

BIT15+6 

7755 

1096 

1 

1358 

BRNCHCTR 

12,2267 

1 175 

1 

1 176 

BIASLO 

00,2270 

1052 

1 

1079 

B I T 15 / 1A 

A 1 , 331  1 

A52 

2 

A52 

ASA 

8R  SPOT  1 

3 1,2  5A6 

799 

BI ASRDOT 

AO, 2662 

A32 

1 

A32 

B IT2 

A7A3 

1093 

5 A 

68 

1 A70 

BRSP0T2 

31.26A1 

801 

BIBI B I AS 

37.3AC7 

860 

1 

25A 

BIT3 

A7A2 

1093 

A 1 

68 

1 A 1 7 

BR SPOT  3 

31,3013 

80A 

BIGAOS 

20,3317 

1A96 

BIT3H 

3A, 3A50 

8A5 

1 

3 A A 

BRSPOTA 

31,3205 

807 

BIGIQ 

20.262A 

1 A86 

1 

1 A86 

B ITA 

A 7A  1 

1093 

62 

68 

1 A 60 

BRUPT 

0017 

= 

9A 

A 

833 

1 A 56 

BIGTIME 

1 2 , 3 AA  7 

119A 

1 

1193 

B ITAH 

30,3007 

858 

BSUBO 

26,2016 

55 

1 

1 1 A 1 

BINCON 

A 35  A 

A76 

A 

A56 

1097 

BIT5 

A 7A0 

1093 

53 

68 

1A7  l 

BUF 

0130 

98 

168 

98 

1396 

BI NRUUND 

AO, 3 135 

AA7 

3 

AA5 

A A7 

B IT6 

A737 

1093 

63 

68 

1 A6A 

BUF  + 

00 , 2 A22 

1056 

3 

1055 

1058 

BIN3 

6266 

= 

531 

B I T7 

A736 

1093 

37 

68 

1 AAO 

BUF- 

00 , 2 A l 6 

1055 

3 

1055 

1058 

BITSET 

5011 

= 

90A 

1 

900 

B IT7  + 9PV 

23, 231A 

536 

1 

536 

RUFNEG 

00,2531 

1058 

1 

1055 

BITSOFF 

A 1 , 2 7 AO 

A AO 

1 

AAO 

BIT8 

A 735 

1093 

A 8 

68 

1A98 

RUFNORM 

00,2500 

1058 

I 

1058 

BITS0FF1 

A1.27AA 

AAO 

1 

AAO 

B I T 8 , 9 

17, 31A0 

L454 

BUFPOS 

00,2516 

1058 

2 

1055 

1058 
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REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFER 

ENCES 

BUFZERO 

00,23(3 

1055 

l 

1058 

C ALCPERR 

16,3447 

1435 

2 

1410 

1436 

CDUIND 

E 3 , 1 474 

= 

1 15 

21 

176 

1321 

BUF2 

0133 

98 

29 

255 

1379 

CALCPHI 

22, 2701 

3 74 

1 

374 

COULOGIC 

10,3606 

1394 

15 

260 

1257 

BURN BA BY 

36,2130 

728 

3 

749 

841 

C ALCRGVG 

31,2742 

803 

2 

794 

796 

CDUS 

0036 

= 

94 

5 

16  1 

543 

BUSYMASK 

10,3535 

1370 

CALCRVG 

33,2710 

8 82 

1 

865 

CDUSCMD 

0054 

= 

94 

l 

900 

BUTTONS 

0 5 , 2 7C  5 

226 

CALCSMSC 

10, 2030 

1262 

7 

934 

979 

CDUSPOT 

0765 

103 

25 

103 

1258 

BVECTCR 

£7,1524 

= 

151 

25 

15  1 

1148 

CALCTFF 

27, 3473 

1274 

1 

724 

CDUSPOTX 

0771 

= 

104 

4 

876 

1258 

BVECTR 

0C32 

= 

1146 

5 

l 142 

CALCTHET 

27,2255 

761 

CDUSPOTY 

0765 

= 

103 

4 

876 

1258 

BVSU 

7C57 

1026 

l 

.1009 

CALCTPER 

27, 3470 

1274 

l 

724 

CDUSPOTZ 

0767 

= 

103 

4 

876 

1258 

BYLMA  TT 

15,3527 

978 

2 

975 

CALCXY 

26,3622 

612 

1 

610 

C OUT 

0035 

= 

94 

13 

198 

611 

BZE/GOTO 

01,2473 

1089 

l 

1010 

CALC2BIT 

4743 

= 

72 

CDUTCMD 

C05  3 

= 

94 

2 

552 

900 

B12-  1 

4347 

= 

476 

CALC3BIT 

4742 

= 

72 

CDUTEMPX 

1 154 

107 

3 

576 

876 

B12T14 

7743 

= 

1097 

1 

1012 

calgopoo 

6011 

235 

l 

228 

CDUTFMPY 

1 155 

1 07 

3 

576 

876 

B 14+  B 2 

25,2(25 

562 

1 

562 

CALL 

6661 

1021 

1 

1089 

CDUTEMPZ 

1 156 

107 

2 

874 

876 

B2/A2 

13,2541 

1134 

1 

L 1 36 

CALL/ITA 

01,2513 

1089 

1 

1010 

CDUTODCM 

22,2410 

3 69 

3 

363 

496 

B2F8 

15,3216 

970 

1 

970 

C ALL ACCS 

20,2134 

1404 

1 

1405 

CDUT  RIG 

23,3522 

1256 

1 1 

502 

979 

B2XSC 

13,2537 

1134 

1 

1134 

CALLCODE 

4757 

1094 

5 

291 

1508 

CDUTR IGS 

23,3532 

1256 

3 

1256 

1259 

B3TDB4 

01,2602 

1092 

2 

1091 

1092 

CALLDGCH 

26,3642 

612 

4 

531 

613 

CDUWHZ 

32,3146 

816 

1 

816 

B50FF 

5565 

1377 

1 1 

31  1 

720 

CALLGMBL 

4 740 

= 

1409 

3 

1426 

1481 

CDUWXFR 

30,3425 

915 

1 

915 

B5TOB8 

01,2471 

1088 

CALLQERR 

17,2124 

1440 

1 

1439 

COUX 

0032 

= 

94 

29 

16  1 

1435 

callrect 

11,3366 

1236 

4 

1236 

CDUXCMD 

0050 

= 

94 

5 

184 

1417 

C*MM*N  1 

23, 3(45 

1259 

2 

1259 

12  60 

CALLRPRT 

13,2511 

1133 

l 

1133 

CDUXD 

E 6, 1634 

139 

29 

139 

1448 

C*MM*N2 

23,3647 

1259 

i 

1259 

C ALLRTRP 

13, 2421 

1131 

l 

l 131 

CDUY 

0033 

= 

94 

17 

161 

1449 

C*MM*N3 

23,3660 

1259 

2 

1259 

1260 

CALLT-35 

36,2213 

729 

1 

729 

CDUYCMD 

0051 

= 

94 

2 

184 

1416 

CA+ECE 

07, 3 125 

1311 

1 

180 

C ALOOP 

14,3327 

944 

1 

944 

CDUYD 

E6, 1635 

= 

139 

12 

162 

1449 

CADkFLSH 

037  1 

102 

6 

162 

1367 

CAL00P1 

14,3355 

944 

2 

944 

CDUZ 

0034 

= 

94 

20 

161 

1449 

CADRMARK 

0372 

102 

CALSAM 

07,2654 

960 

CDUZCMD 

0052 

= 

94 

2 

185 

1416 

C ADR MASK 

10,3536 

1370 

1 

1360 

CALSAM1 

07,2653 

960 

1 

959 

CDUZD 

E6, 1636 

= 

139 

10 

207 

1449 

CADRSTOR 

1041 

104 

13 

2 33 

1366 

CAL53A 

14,3316 

944 

1 

927 

CDUZDL I M 

30,3757 

922 

l 

911 

CADRT  AB 

01,2001 

250 

1 

1303 

CAM 

E6 , 1732 

= 

140 

4 

140 

365 

CEARTH 

0016 

= 

933 

3 

932 

936 

CAGESUB 

06,2735 

190 

1 

174 

CANTROO 

04,2105 

238 

2 

238 

CENTANG 

F7, 1620 

147 

6 

210 

665 

CAGE  SCSI 

06,2743 

190 

1 

184 

CANV37 

04,2160 

2 39 

l 

239 

CG 

F5, 1571 

= 

127 

16 

127 

810 

CAGE  S UB2 

06,2746 

190 

1 

1 76 

CATLOG 

14,2346 

53 

1 1 

935 

960 

CGCALC 

31,3222 

808 

2 

794 

807 

CAGETEST 

07,3660 

1324 

5 

1308 

1313 

CCALL 

6647 

1021 

1 

1009 

CGOTO 

6724 

1022 

1 

1009 

CAGET STG 

07,3646 

1324 

1 

1318 

CCSHOLE 

5701 

1380 

23 

388 

1464 

CHAN 

E5, 1443 

= 

132 

CAGETSTJ 

07,3672 

1324 

5 

1307 

13  16 

CCSL 

7 704 

1044 

1 

1097 

CHANB ITS 

41,2725 

440 

l 

440 

CAGET  STQ 

07,3665 

1324 

3 

1314 

1315 

CD*TR*G 

23,3526 

12  56 

2 

261 

493 

CHANBKUP 

0374 

102 

6 

161 

832 

CALCGA 

23,3336 

1250 

4 

386 

972 

CO*TR*GS 

23,3540 

1257 

3 

1256 

1259 

CHANOSP 

41,2533 

429 

1 

42  8 

CALCGA1 

23,3376 

1250 

1 

125  1 

CDELF/2 

0016 

= 

1265 

CHANGEVB 

07,2523 

2 72 

1 

272 

C ALCGRAV 

33,2(42 

882 

2 

071 

B 83 

CDESBIT 

4726 

= 

87 

3 

531 

610 

CHANG l 

5 113 

1101 

6 

276 

1289 

CALC  GP V l 

33,2677 

882 

1 

882 

CDESFLAG 

0264 

= 

8 7 

2 

284 

526 

CHANG2 

5 117 

1101 

1 

1001 

CALCGTA 

23,3232 

1246 

4 

94  1 

969 

CDHMVR 

34,3133 

653 

2 

633 

643 

CHANJOB 

01,2712 

1 106 

4 

1 10  1 

1113 

CALCMAN2 

CC53 

= 

72 

2 

376 

377 

CDRVE 

06,2012 

166 

CHANLOAD 

41,3231 

444 

l 

444 

CALCMAN3 

0052 

= 

12 

1 

376 

C0U*NBSM 

23,3653 

1259 

4 

708 

980 

CHAN 1 2 

0012 

= 

95 

70 

175 

1481 

CALCNE3 

36,3463 

754 

1 

759 

CDU*SMNB 

23,3640 

1259 

4 

534 

955 

CHAN13 

0013 

= 

95 

22 

223 

1455 

CALCN65 

32,2570 

752 

1 

727 

CDUINC 

10,3670 

1395 

CHAN14 

0014 

= 

95 

26 

184 

1417 

HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


UN  UNDEFINED  = DEFINED  BY  EQUALS  J DEFINED  BY  JOKER  OR  ERASE  ANYWHERE  MO  MULTIPLY  DEFINED 

BD  BACLY  DEFINED  CD  DEFINITION  ASSOCIATED  WITH  CONFLICT  XX  MISCELLANEOUS  TROUBLE 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-161  L7:ll  MAR.  19,1971  PAGE  1515 

SYMBOL  TABLE  LISTING,  INCLUDING  DEFINITION,  HEALTH,  PAGE  OF  DEF,  # OF  REFS,  PAGE  OF  FIRST  REF,  PAGE  OF  LAST  REF. 


SYMBOL 

OEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

CHAN30 

C030 

- 

95 

9 

1 71 

1407 

CHKR  T I MR 

16,2676 

1426 

4 

1426 

1427 

CMNTOVFL 

12,2315 

1176 

1 

1176 

CHAN3 1 

0031 

= 

95 

20 

293 

1442 

CHKSDATA 

14, 3265 

943 

2 

942 

948 

CMOON 

0022 

= 

933 

2 

93  2 

933 

CHAN  3 2 

0032 

= 

95 

3 

168 

866 

CHKSRCH 

26, 3443 

608 

1 

612 

CMOONB IT 

4731 

= 

81 

CHAN33 

CC33 

= 

95 

21 

177 

877 

CHKSUPR 

43,3651 

1289 

1 

1289 

CMOONFLG 

0173 

= 

81 

9 

38 

1208 

CHAN5 

0005 

= 

95 

6 

223 

1448 

CHKTEMX 

37,3640 

875 

l 

875 

CMPDNENT 

30,2607 

850 

1 

84  8 

CHAN6 

OOC  6 

= 

95 

' 3 

223 

1411 

CHKV I SFZ 

16, 2744 

1427 

1 

1426 

CMPX1 

E 5, 1445 

= 

132 

2 

398 

CHAN  76 

OC  7 6 

= 

95 

CHKWHAT 

07, 2404 

269 

1 

270 

CNGL 

22,2400 

369 

CHAN  7 1 

CC77 

= 

95 

2 

222 

1223 

CHK12 

07,2456 

2 70 

1 

270 

CNTABTAD 

2 1,2 144 

832 

1 

832 

CHAR 

0117 

= 

98 

5 

410 

412 

CHNL12 

0066 

= 1474 

3 

1474 

CNTDNDFX 

4753 

= 

740 

5 

728 

742 

CHAR  A L PM 

90,3463 

461 

18 

410 

464 

CHRPRIO 

4346 

4 76 

7 

168 

1389 

CNTRCHK 

43,3471 

1286 

CHAR  IN 

40,2057 

4 10 

1 

1335 

CH31TEMP 

E6, 1443 

135 

2 

1430 

1444 

CNTRCON 

4762 

= 

12  83 

1 

1286 

CHAR  IN2 

40,2072 

410 

2 

'4  10 

CH5MASK 

1257 

109 

13 

162 

1503 

CNTRLOOP 

43,3472 

1286 

1 

1287 

CHFCKALT 

30,2755 

852 

1 

85  1 

CH6MASK 

1260 

109 

7 

202 

1438 

CNTTHROT 

E7, 1623 

= 

156 

3 

797 

814 

CHECK  B 

7771 

1299 

1 

1296 

C IRCL 

34,2372 

642 

3 

641 

COAAL IGN 

37,2301 

390 

1 

388 

CHECKCTR 

12,2644 

1181 

2 

1175 

1193 

CIRCULAR 

12,3670 

1 197 

1 

1196 

COARF INE 

14,3347 

944 

CHECKG 

37,2332 

390 

2 

387 

388 

C K I MUSE 

5246 

1 1 19 

COARS 

0 7,2775 

1 309 

1 

1309 

CHECKG1 

37,2335 

390 

1 

391 

CKMID2 

13,3662 

1221 

1 

1240 

COARSE 

14,3542 

949 

5 

944 

972 

CHECK  IN 

17,2300 

1443 

1 

1442 

CKMODCAD 

43,2411 

286 

3 

278 

285 

COARSERR 

07,3075 

1311 

2 

1310 

CHECKMAX 

22,2117 

364 

1 

364 

CKSTALL 

32,2103 

2 20 

1 

220 

COARSRET 

15,2316 

927 

1 

944 

CHECKMM  . 

5323 

1291 

5 

729 

834 

CK4V32 

04,3510 

1388 

3 

1387 

COARSTOL 

07,3103 

1311 

1 

131  1 

CHECKNJ 

43,3335 

1284 

3 

1284 

1289 

CLEANDSP 

10, 2451 

1354 

3 

512 

741 

CHARS  T ST 

07,3641 

1324 

2 

1321 

CHECKRR 

43,2667 

292 

1 

292 

cleanEnd 

10,3253 

1365 

1 

1363 

CO ARSTYP 

15,2326 

928 

1 

927 

CHECKTAB 

04,2112 

239 

1 

238 

CLEAR 

40,2456 

416 

1 

411 

COARS 1 

07,3002 

1309 

1 

1309 

CHFCKLP 

16,2042 

1409 

CLEARMRK 

5476 

1351 

2 

236 

1351 

C0ARS2 

07,3025 

1310 

2 

1310 

1311 

CHECK  YAW 

23,2453 

853 

2 

852 

C LEAR  1 

40, 2511 

416 

1 

416 

COASCODE 

07,2132 

258 

1 

257 

CHEKAX IS 

27,2137 

497 

1 

497 

CLOAD 

41,3030 

441 

l 

42  2 

COAST  DB 

E6, 1602 

= 

139 

7 

1461 

1501 

CHEKB I TS 

16,2000 

1407 

2 

1409 

1419 

CLCICKCON 

10, 3551 

1370 

1 

1355 

COASTSET 

36,3607 

756 

1 

755 

CHFKMORE 

16,2016 

1407 

1 

1413 

C LOCP  LAY 

10, 2466 

1355 

2 

740 

CO  AST  T J 

17,3455 

1461 

4 

1461 

1467 

CHEKST IK 

17,2354 

1444 

1 

1442 

CL0G2/32 

30,3061 

859 

1 

859 

COATR  IM 

14,3715 

972 

l 

969 

CHEXERR 

32,2554 

590 

1 

589 

CLOKJOB 

36,2736 

739 

1 

739 

COB 

0040 

= 

1146 

4 

I 141 

1142 

CIHKB  I T10 

17,2237 

1442 

CLOKTASK 

36,2716 

739 

4 

254 

739 

COOE 

0124 

= 

98 

15 

411 

468 

CHKBMAG 

30,2536 

849 

i 

849 

CLOSEADR 

21,3560 

1482 

1 

1482 

CODE  1 T 06 

07,2116 

257 

1 

257 

CHKCORS 

07,3060 

1310 

1 

1311 

CLOSEOUT 

17, 3270 

1456 

4 

1452 

1482 

C0DE500 

32,3064 

785 

l 

785 

CHKDATA1 

20,2014 

305 

1 

305 

CLPASHI 

40,2474 

416 

1 

416 

C0DE7 

07,2102 

257 

2 

257 

CHKT A 1L l 

5605 

1378 

1 

1381 

CLPASS 

1014 

104 

13 

233 

469 

COEFCTR 

0160 

= 

1494 

7 

1492 

1493 

CHKFA IL2 

5612 

1378 

1 

1378 

CLRADMD1 

6032 

531 

3 

511 

613 

COEFF 

20,3171 

1494 

4 

1492 

CHK1NGTS 

17,2641 

1448 

1 

1448 

CLRADMQD 

6027 

531 

9 

240 

559 

COEFFQ 

E 6 , 1626 

139 

7 

139 

1493 

CHKL INS1 

26,2221 

490 

1 

439 

C LR  MOON 

13,2747 

1208 

2 

1209 

1237 

COEFFR 

E6, 1627 

= 

139 

6 

1455 

1493 

CHKL INUS 

26,2214 

489 

2 

489 

CLROVFLW 

13,2547 

1135 

1 

1135 

COF 

E6, 1667 

= 

140 

45 

364 

498 

CHKL I ST 

05,354  1 

990 

CLRRNO 

43,3034 

299 

1 

299 

COFMAXGO 

22,2176 

365 

CHKM I NTJ 

17,3656 

1465 

2 

1463 

1466 

CLRXFLAG 

30,2717 

851 

1 

852 

COFSKEW 

E6, 1724 

= 

140 

8 

140 

367 

CHKNOVAC 

01,3641 

1302 

1 

1305 

CLR5 

40,2514 

416 

1 

416 

COGA 

E 5 , 1765 

= 

130 

17 

130 

1196 

CHKOUT 

14,3313 

943 

1 

943 

CLUPDATE 

35, 35  74 

6 84 

1 

683 

COGAFBIT 

4741 

= 

82 

CHKPOCH 

43,2121 

277 

6 

293 

4 82 

CLUPLOCK 

04,3353 

1336 

1 

1336 

COGAFLAG 

0203 

= 

82 

3 

1184 

CHKPR 10 

10,2422 

1353 

1 

1352 

CL  1/NFT  + 

20,3440 

1498 

COGAMAX 

0016 

= 

1200 

4 

1191 

1 195 
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COGAM  IN 

0C10 

= 

1200 

3 

1192 

1199 

CONTINU 

93,3621 

1289 

5 

1288 

1289 

C0S15DEG 

23,2315 

536 

l 

539 

CUGAOVFI. 

12,2769 

1189 

2 

1189 

1196 

CONTMANU 

22,3170 

379 

l 

378 

COS600EG 

23,2502 

= 

613 

2 

610 

COGLOL IM 

09, 3C63 

1183 

1 

1195 

CONTRLBT 

9793 

= 

85 

6 

191 

1929 

COTROLER 

F 6 , 1630 

139 

6 

1909 

1970 

COGUPL  IM 

09,3061 

1183 

£ 

1192 

CONTRLFL 

0293 

= 

85 

"•v  0193 

= 

99 

12 

911 

960 

COLI NEAR 

09,3161 

1136 

l 

1186 

CONTSERV 

33,2501 

878 

6 

876 

(Orff 

COUNT • EM 

ID, 2397 

823 

I 

822 

COLkEG 

1116 

= 

107 

7 

107 

1291 

CONUMNOR 

91,3191 

993 

1 

993 

cnvr.NV — 

-<2,3706 

503 

l 

50  3 

COMADRS 

93,3536 

1287 

2 

1289 

CQNV3 

92,3639 

502 

C0ZY9 

E 7 , 1666 

198 

9 

689 

692 

COME  A I L 

36.257C 

737 

2 

253 

867 

C0NV9 

92,3695 

502 

1 

502 

CPHI 

0321 

= 

101 

1 l 

35  2 

1919 

C0MFAIL1 

36,2607 

737 

1 

790 

C0NV5 

92,3697 

502 

1 

502 

CPSI 

0323 

= 

101 

5 

363 

1913 

COMFA IL2 

36,2622 

737 

l 

790 

CCNl 

5907 

1296 

1 

1297 

CREWMANU 

93,3011 

298 

1 

275 

COMFA I L 3 

36,2611 

737 

3 

726 

728 

C0N2 

10,2301 

1299 

1 

1296 

CR  ITCON 

90,2309 

913 

1 

912 

COMFA  I LA 

36,2613 

737 

2 

726 

72  I 

C0N2ADR 

5929 

1296 

1 

1296 

CROSCOMP 

21,2513 

900 

3 

899 

903 

CUMFLAG 

5513 

1372 

2 

7 33 

1372 

COOL  l T 

15,2135 

262 

3 

261 

262 

CROSSOUT 

21,2611 

902 

1 

902 

COMMAND 

E3,  1971 

= 

115 

6 

1306 

1311 

CCOLOUT 

07,2320 

267 

1 

262 

CSI/A 

39,2113 

638 

-.1 

629 

COMMECS 

20,2579 

1986 

i 

1986 

COPIES 

10, 2797 

1360 

1 

1352 

csi/e 

39,2125 

639 

l 

697 

COMM F X 

93, 3530 

1287 

2 

1289 

C0PIFS2 

10,2750 

1360 

1 

1357 

CSI/B1 

39,2165 

639 

3 

699 

69  7 

COMM  I NIT 

30,2267 

892 

2 

835 

892 

COP  INDEX 

0169 

= 

1370 

29 

1353 

1367 

CSI/B2 

39,2176 

639 

1 

696 

CQMMNOUT 

12,2797 

1189 

1 

1197 

COPMPAC 

0157 

= 

1370 

3 

1365 

1369 

CSI/B22 

39,2216 

690 

1 

690 

COMMON 

36,2909 

733 

1 

727 

COPYCYC 

33,2352 

871 

3 

365 

872 

CSI/B23 

39,2229 

690 

1 

690 

COMMONLM 

12,3936 

1199 

1 

1199 

CCPYCYCL 

33,2217 

865 

l 

881 

CS  I/B23D 

39,2237 

690 

l 

690 

CUMNEC 

07, 3109 

13  1 1 

1 

1310 

C0PYCYC1 

33, 2505 

879 

1 

877 

CSI/B3 

39,2330 

691 

1 

691 

COMP 

7711 

1099 

9 

1011 

10  79 

COPYNORM 

10, 2796 

1360 

1 

1 356 

CSI/CDH 

35,2000 

= 

36 

3 

627 

669 

COMPCHK 

06,3623 

395 

1 

399 

COPYPACS 

10, 2912 

1353 

1 

1362 

CSI/CDH1 

39,2000 

= 

35 

l 

638 

COMPD  ISP 

37,3232 

708 

1 

710 

COPYTOGO 

10,2910 

1353 

1 

1363 

CS I /SOL 

39,2737 

697 

1 

696 

COMP ICK 

91,2592 

929 

1 

929 

CORE  INC 

01,3037 

1109 

2 

1 105 

1109 

CSIALRM 

E7,  1613 

197 

5 

197 

697 

COMPMAT 

13,2250 

7 12 

CGRFOUNO 

01,2692 

1105 

CS  ISTEP 

39,2732 

696 

l 

646 

COMP  MAT X 

2 7.2C72 

996 

1 

998 

C0RSCHK2 

07,3072 

13  11 

2 

1310 

1311 

CSMCONIC 

13,3129 

1211 

3 

351 

609 

COMP  M F SN 

27,2  151 

997 

1 

99  7 

CORSI T 

19,3799 

972 

1 

972 

CSMDKFLG 

0305 

= 

89 

COMP  NUMB 

1 167 

= 

107 

1 1 

107 

1391 

COS. 01 

15,2159 

263 

1 

262 

CSMDOCKD 

9730 

= 

89 

1 1 

305 

1989 

COMPOS 

07, 3C37 

1310 

1 

1310 

COSCDU 

0793 

= 

103 

5 

103 

1258 

CSMINT 

29,3356 

583 

1 

583 

COMPTEST 

91,2953 

927 

6 

927 

991 

COSCDUX 

0797 

= 

103 

6 

993 

1263 

CSMMASS 

1327 

l 10 

13 

207 

1992 

COMP  T GO 

35,2937 

656 

i 

683 

COSCDUY 

0793 

= 

103 

5 

99  3 

1263 

CSMPR  EC 

13,3101 

1211 

5 

38 

729 

COMPT  ST1 

91,2955 

927 

i 

923 

COSCOUZ 

0795 

= 

103 

7 

993 

1262 

CSMSTORE 

23,2927 

700 

1 

700 

COMP  l 2 

22,2211 

366 

i 

366 

COSF 

0030 

= 

1201 

9 

1 196 

1197 

CSMVEC 

93,3097 

301 

1 

276 

COMTERM 

1 1,3057 

1232 

i 

1235 

COSI 

26,2000 

59 

2 

1 192 

CSS 

0016 

= 

936 

1 

936 

COMZERO 

07,3119 

1311 

2 

13  10 

1311 

COSINE 

00,3517 

1080 

2 

1011 

1257 

CSSUN 

19,2619 

933 

1 

933 

C0NC+S1 

93,3299 

1283 

1 

1287 

COSMG 

0061 

= 

1911 

3 

199 

200 

CSS33 

19,2772 

936 

2 

935 

C0NC+S2 

93,3295 

1283 

1 

1287 

COSPHI /2 

0022 

= 

1295 

6 

1232 

1235 

CSS90 

19,2770 

936 

1 

935 

CONICS 

12,2000 

= 

31 

3 

1171 

1187 

COSPHIE 

11, 3271 

1235 

1 

1232 

CSS5 

19,2612 

933 

2 

932 

933 

CONI C S 1 

09,2000 

= 

29 

4 

97 

1189 

COSTAL IL 

0000 

= 

297 

3 

296 

297 

CSTH 

E 5 , 1731 

= 

130 

9 

130 

1197 

CONST 

30,2567 

899 

1 

898 

COSTAL  IN 

05,2153 

= 

208 

2 

209 

217 

CSTH-RHO 

E 5 , 1735 

= 

130 

9 

130 

1192 

CONT ABRT 

05,3917 

833 

1 

832 

COSTH 

0020 

= 

129 

18 

312 

1250 

CSTOOAY 

15,2000 

59 

1 

983 

C0NTBL2 

01  ,3667 

1303 

2 

1305 

COSTHET 1 

E 5 , 1565 

= 

127 

2 

127 

852 

C SUN 

0020 

= 

933 

1 

933 

CONT  DESG 

26,3566 

6 10 

1 

612 

C0STHET2 

E 5 , 1567 

= 

127 

2 

127 

852 

CS359+ 

35,2922 

637 

C0NTDES2 

26,3575 

610 

C0S1/2DG 

25,3056 

568 

1 

566 

C THETA 

0322 

= 

101 

3 

381 

1913 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

OEF 

H 

REFERENCES 

CTLIST 

033  A 

= 

102 

7 

102 

990 

CAPLRUPT 

E6 , 1 753 

= 

1A1 

DC  OMP  T ST 

A 1 , 2 A66 

A28 

2 

A27 

CTRCHECK 

21,3636 

1507 

l 

1506 

DAPSL 

16,2000 

= 

32 

A 

1A07 

1 A 7 A 

DCTSTCYC 

A 1 , 250 1 

A28 

2 

AAA 

CULTB  IT 

A736 

= 

73 

DAPS2 

17, 2000 

= 

32 

A 

1 AO  1 

1A58 

DDUMCALC 

32,2712 

783 

1 

809 

CULTED 

1 A , 2 7 fc  5 

936 

A 

936 

DAPS3 

20,2000 

= 

32 

6 

AA 

1A95 

DDUMCR IT 

32,3071 

785 

1 

783 

CULTFLAG 

0C65 

= 

73 

A 

935 

936 

DAPSA 

21,2000 

= 

32 

A 

1A70 

1506 

DDUMGDOD 

32,2773 

7 8 A 

l 

783 

CULT R IX 

E5 , 1 7C6 

= 

128 

1 

936 

CAPTEMP1 

E6 , 1 736 

1A1 

29 

135 

1A68 

DDV 

7620 

1 0A2 

1 

1009 

CURSOR 

1 2 AO 

= 

10B 

7 

108 

957 

DAPTEMP2 

E6 ,1737 

= 

1A1 

12 

136 

1 A69 

DDV/BDDV 

00,2353 

1055 

2 

826 

10A2 

CURTAINS 

5705 

1380 

8 

939 

967 

DAPTEMP3 

E6, 17A0 

= 

1A1 

8 

136 

1 A69 

DDVCALL 

00 , 300A 

1066 

1 

1066 

CUTOFF 

3A, 3526 

85A 

A 

7A2 

85A 

CAPTEMPA 

E6, 17A1 

= 

1 A l 

A 

136 

1AA5 

DEAD 

27,2230 

7A6 

2 

7A6 

CUTOFF  1 

3A.35A0 

8 5 A 

i 

8 5 A 

CAPTEMP5 

E6, 1 7A2 

= 

1A1 

5 

136 

1A23 

DEBIT 

5 52A 

1372 

3 

738 

1372 

CUT0FF2 

3A, 3550 

85A 

2 

8 5 A 

855 

CAPTEMP6 

E6 , 1 7A3 

= 

1A1 

1 1 

136 

1A68 

DEC-1  2 

12,2016 

1099 

CVECTR 

OOIC 

= 

11A6 

1 

1 1 A2 

CAPTREG1 

E6 , 1 7AA 

= 

1A1 

3 

137 

1 A l 

DEC-6 

12,2015 

1099 

CYCLSFFT 

A3, 3500 

1287 

DAPTREG2 

E6, 1 7A5 

= 

1 A 1 

1 

138 

DECBRNCH 

0777 

10A 

18 

All 

A62 

CYL 

0022 

= 

9A 

23 

A 1 2 

1287 

DAPTREG3 

E6 , 17A6 

= 

1A1 

1 

138 

DECCEND 

A0.22A5 

A 1 2 

2 

A12 

CYR 

0C20 

= 

9 A 

A2 

2 A3 

1302 

DAPTREGA 

E6 , 1 7A7 

= 

1A1 

9 

1 A 1 9 

1A2A 

DECCNTR 

33,2310 

867 

1 

866 

Cl/2 

77A0 

1095 

1 

1100 

D APTREG5 

E6, 1750 

= 

1A1 

5 

136 

1 A2A 

DECDSP 

A 1 , 2 552 

A29 

1 

A2  1 

C138ANK 

17,2000 

= 

32 

1 

577 

DAPTREG6 

E6, 1751 

= 

1 A l 

7 

138 

1A2A 

DECDSP3 

A 1 , 2 62A 

A30 

2 

A30 

C 1 3F  S A'V 

1266 

109 

2 

577 

578 

CAPTAS 

06,3167 

= 

199 

3 

169 

198 

DECEND 

AO, 2250 

A 12 

2 

A 12 

A 1 9 

C13QSAV 

1265 

109 

8 

991 

1A55 

DAPZRUPT 

E6 , 1756 

= 

IA2 

4 

1 A10 

1 A57 

DECON 

AO, 2311 

A 13 

1 

A13 

C13SLC0P 

17,2030 

577 

1 

578 

casAmpl 

25.33A0 

57A 

1 

57  A 

DECOUNT 

0117 

= 

98 

27 

A23 

AA7 

C13ST ALL 

60  AO 

5 78 

10 

A02 

l A 5A 

CATAGOOD 

E 7 , 1733 

= 

150 

5 

150 

612 

DECQT  IMP. 

1 6 , 2 7 1 A 

1 A26 

1 

1A26 

C13STAL1 

17,2022 

577 

1 

578 

CATAPL 

E5 , 1 A 72 

= 

132 

13 

387 

391 

DECRET 

0115 

= 

98 

2 

AA3 

AAA 

C 3/2 

7760 

1096 

1 

1100 

DATGDCHK 

26,3653 

612 

1 

612 

DECROUND 

AO, 3310 

A5  7 

1 

A56 

C33JMP 

06,2763 

191 

l 

178 

CAXMAX 

30,3753 

922 

2 

913 

922 

DE  CRT  I MR 

16,2716 

1A26 

1 

l A26 

C33TFST 

06.237A 

177 

6 

1 7 A 

1 76 

CAY/2MAX 

30,3755 

922 

2 

913 

922 

DECTEM 

0122 

= 

98 

3 

A29 

C5/2 

A 776 

109A 

1 

1100 

DAZMAX 

30,3753 

= 

922 

1 

913 

DECTEST 

A 1 , 2A72 

A28 

2 

A27 

A28 

CB 

13A3 

111 

3 

111 

1A97 

DECTOBIN 

AO, 2212 

A 12 

1 

A 1 2 

OACL I M IT 

20, 2AA6 

l A 1 7 

3 

IA17 

0BB1 

0 1 A3 

= 

1503 

5 

1 A96 

1501 

DEC  1 7 

A 352 

= 

393 

3 

385 

862 

DACLOOP 

20, 2A10 

l A l 7 

l 

1A1  7 

D8B2 

OlAA 

= 

1503 

3 

1A9  6 

1500 

DEC22 7 

07,2675 

960 

1 

959 

DAD 

7016 

102A 

1 

1009 

DBB3 

01A6 

= 

1503 

4 

1 A97 

1500 

DEC23 

A2.2033 

287 

t 

287 

DALTP ATE 

£7,  1713 

= 

157 

3 

157 

897 

DBBA 

01A5 

= 

1 503 

6 

1 A97 

1501 

DEC27 

A 755 

= 

1 09A 

DAMP  I NG 

1 7 , 2 37  A 

1 AAA 

l 

1 AAA 

DBFUN 

20, 3 53 A 

1500 

1 

1500 

DEC29 

A 756 

= 

109A 

DANZ  I G 

6102 

1001 

65 

827 

1399 

CBONE 

20.33A3 

1 A97 

1 

l A97 

DECA5 

A 763 

10  9A 

2 

10  1 A 

1087 

OAPARLPT 

E 6 , 1752 

= 

l A 1 

5 

1 A 1 

1 A 56 

CRSELECT 

A7A  l 

= 

90 

1 

1 AO  A 

DEC51 

0 A, 3 2 56 

1329 

DAPAT  TFR 

A 3, 2 16  A 

279 

l 

275 

DBSELFLG 

0316 

= 

90 

DEC58 

37, 2 A7A 

393 

1 

387 

DAPB ITS 

05,3505 

83A 

1 

833 

DBSLECT2 

A7A0 

= 

90 

l 

1 AOA 

DEC585 

37,3055 

AOO 

1 

388 

DAPROOLS 

0111 

= 

89 

66 

162 

1507 

08SL2FLG 

0315 

= 

90 

0EC66 

31 ,2A5A 

797 

2 

791 

797 

UAPRQRPT 

E6 , 1 75A 

= 

1A2 

2 

1A26 

1 A56 

CBVAL1 

1 3A3 

= 

111 

6 

IA95 

1501 

DEC70 

0 A , 2 A35 

2 AA 

1 

238 

DAPDATAI 

20, 20CA 

30A 

1 

30  A 

DBVAL2 

0 1 1 A 

= 

1 50A 

2 

1A95 

1A97 

DEFUNCT 

21,3170 

l A 72 

1 

1A72 

UAPDATA2 

0 U22A  l 

307 

3 

30  7 

CRVAL3 

0115 

= 

1 50A 

3 

1 A95 

IA98 

DEG. 5 

15,2612 

953 

1 

956 

DAPDATA3 

01,2306 

307 

DCDU 

E 6 , 1 63A 

= 

1 AO 

DEGCOM 

AO, 2712 

A32 

1 

A3  1 

DAPDATR1 

1 3A0 

1 1 1 

10 

305 

326 

DCMCL 

30,3211 

910 

1 

916 

DEGC0N1 

AO, 3123 

AA7 

1 

AA6 

DAPDAT2 

01,2256 

307 

1 

307 

DC M TOC DU 

22, 265A 

37A 

2 

377 

A 9 8 

DEGINSF 

AO, 3037 

AA6 

2 

AA  5 

DAPD I SP 

A 3 , 3 13  A 

3CA 

1 

275 

DCOGA 

001 A 

= 

1200 

A 

1 193 

1195 

DFGINSF2 

AO, 3050 

A A6 

CAPI DLFR 

16,2037 

l A09 

3 

23A 

1 A 1 0 

DCOMP 

7726 

1 OAA 

2 

l OAA 

DE  GOUT  SF 

AO, 2 60A 

A3  1 

2 

A30 

A3  1 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

DEGREE  1 

1 A , 3 366 

099 

1 

999 

DELTAX 

E5,  1669 

= 

131 

12 

131 

1159 

DESCOUNT 

1 113 

106 

9 

525 

562 

DEGTAB 

90,2722 

933 

2 

932 

933 

DELTEEO 

E 7 , 1605 

= 

197 

9 

673 

DESGLOS 

26,3635 

612 

1 

610 

DEG29 

15,2152 

263 

1 

261 

DELTHET 

E 7 , 1571 

= 

151 

7 

151 

262 

DESIGBIT 

9733 

= 

87 

5 

531 

562 

DEG30 

15,2610 

958 

1 

956 

DELT  IME 

12,2921 

1 178 

3 

1179 

1193 

DESIGFLG 

0271 

- 

87 

1 

562 

DEG392 

15,2150 

263 

1 

261 

DELTTFAP 

E 7 , 1925 

199 

l 

799 

OESLOOP 

25,2571 

562 

5 

562 

613 

DEG359 

19,3367 

995 

1 

999 

DEL  V 

0329 

101 

12 

101 

969 

DESRET 

1112 

106 

10 

106 

559 

DEG60 

15,2619 

958 

DELVCSI 

E7, 1573 

197 

16 

197 

696 

DE  SRETRN 

25,2937 

557 

1 

556 

DE I MU  8 OB 

32,3925 

8 20 

2 

798 

817 

DELVCTL 

E7 , 1501 

= 

159 

3 

759 

755 

DESRTRN 

25,2993 

557 

2 

557 

DEL 

E 6 , L 799 

= 

137 

3 

L97  2 

1979 

DELVEETl 

E9, 1657 

121 

5 

205 

690 

DE  TEN  TCK 

16,3067 

1930 

2 

192  8 

1929 

DE  LA  Y E X 

5237 

11  1C 

1 

1117 

DELVEET2 

E9 , 1665 

121 

6 

205 

655 

DFXDEX 

0192 

= 

99 

7 

1256 

1261 

DELAY  JOB 

00,3736 

1379 

16 

220 

999 

DEL VE  E T3 

E9 , l 756 

123 

15 

2 05 

776 

DEXI 

0193 

= 

100 

1 

1260 

DELAYLCC 

1323 

1 10 

6 

233 

1375 

DEL  V IMU 

E7 , 1622 

198 

7 

329 

758 

DE  XI 

0193 

= 

99 

5 

100 

1261 

OELAYNUM 

9793 

= 

38 

1 

13  79 

DELVLVC 

E7 , 1933 

195 

22 

195 

712 

DEX2 

0 199 

= 

100 

DELCDUX 

E6, 1637 

1 39 

6 

139 

1919 

DELVOV 

1250 

= 

109 

6 

329 

712 

DFRNT 

90,3913 

959 

DELCDUY 

E 6 , 1690 

= 

139 

3 

190 

1919 

DELVREF 

E7 , 1526 

= 

159 

5 

159 

882 

DGBF 

20,3055 

1992 

2 

1988 

UELCDLZ 

E 6,  169  1 

= 

139 

3 

190 

1919 

DELVROD 

E7 , 1766 

= 

158 

7 

159 

819 

DGBITS 

25,3136 

570 

9 

569 

579 

DELCOMP 

22,2527 

371 

3 

376 

99  7 

DEL V S A B 

E 7 , 1663 

= 

198 

9 

198 

761 

DGCHECK 

25,3232 

572 

OELDCCU 

E6, 1637 

= 

190 

2 

377 

381 

DELVSIN 

E7 , 1655 

= 

198 

19 

198 

761 

DGCHFCK2 

25,3233 

572 

3 

579 

DELDCCUL 

E 6 , 1690 

= 

190 

1 

38  1 

DELVSLV 

E7 , 1933 

= 

195 

9 

1 

623 

DGOODCHK 

25,2770 

567 

l 

567 

DELDCCU2 

E6, 1691 

= 

190 

1 

381 

DELVTEST 

27, 2252 

760 

DI DFL AG 

0020 

= 

69 

DELDEP 

E 5, 1757 

= 

130 

5 

130 

1181 

DELVTPF 

E9 , 1790 

123 

3 

210 

666 

DIOFLBIT 

9727 

= 

69 

9 

228 

903 

DELDV 

E 7 , 1611 

19  7 

■ 13 

197 

696 

DEL VTP I 

E 7 , 1575 

197 

5 

197 

666 

DIFEQ+O 

1 1,3973 

1239 

1 

1235 

DELEL 

E7, 1575 

= 

197 

9 

670 

673 

OELVX 

0329 

= 

101 

12 

338 

875 

DIFEQ+1 

1 1,3977 

1239 

1 

1235 

DELELO 

0032 

= 

665 

3 

670 

6 73 

DEL  VY 

0326 

= 

101 

10 

391 

875 

DIFEQ+2 

11,3510 

1239 

1 

1235 

DELERL  IM 

30,3755 

= 

922 

1 

915 

DELVZ 

0330 

= 

101 

9 

391 

875 

DIFEQCNT 

E3, 1500 

115 

25 

115 

1291 

DELGMBLP 

30, 326 1 

911 

1 

911 

DELX 

E5 , 1692 

= 

130 

6 

130 

1176 

DIFEQCOM 

1 1,3653 

1291 

2 

1239 

DEL INDEP 

CC  19 

= 

1201 

2 

1180 

1181 

DEP 

0036 

= 

1201 

l 

1130 

OIFEQTAB 

1 1,3309 

1235 

l 

1235 

DELLOOP 

00,3791 

1379 

1 

1379 

OEPRCR IT 

22,3661 

830 

2 

802 

DI FEOO 

11,3377 

1236 

1 

1290 

DELL  T A 

E 7, 1951 

195 

8 

195 

762 

DFPREV 

E5 , 1761 

= 

130 

3 

130 

1180 

DIFFALT 

E 7,1577 

197 

5 

205 

659 

DELM 

E 5 , 1550 

= 

133 

5 

398 

DERCLOOP 

31,3577 

825 

l 

826 

DIMOR IT 

9799 

= 

73 

DELMAX  l 

39 , 2 l C 5 

638 

2 

t>96 

DERCOF+1 

0153 

= 

100 

DIMOFLAG 

0073 

= 

73 

23 

297 

1291 

DELMLP 

37,2696 

397 

1 

398 

DERCOF-l 

0151 

= 

100 

DI  NDX 

0063 

= 

192 

6 

1917 

DELOK 

12,2632 

1131 

1 

1180 

DERCOF-2 

0150 

= 

100 

DIRADRES 

6127 

1002 

2 

1016 

DELPEROR 

12  79 

109 

5 

379 

1936 

DERCOF-3 

0197 

= 

100 

DI SDVLVC 

35,2375 

636 

2 

629 

651 

DELQEROR 

1275 

109 

3 

381 

1999 

DERCOF-9 

0196 

= 

100 

DISGRVER 

15,3015 

969 

l 

963 

DELQFIX 

E5, I 5C3 

= 

126 

2 

126 

388 

DERCOF-5 

0195 

= 

100 

DI SPCHNG 

36,2902 

733 

9 

726 

732 

OELREROR 

1276 

109 

3 

381 

1999 

0ERC0F-6 

0199 

= 

100 

DI SPCOMN 

31,3992 

812 

1 

812 

DELRSPL 

22,3593 

= 

38 

DERCOF-7 

0193 

= 

100 

DI  SPDEX 

1 162 

107 

29 

155 

833 

DELT 

E 5 , 1 699 

= 

130 

3 

130 

1179 

DERCQF-8 

0192 

= 

100 

DI SPEXIT 

31,3915 

811 

5 

796 

811 

DELTACSM 

E 3 , 1572 

116 

1 

605 

DERCQFN 

0152 

= 

100 

1 

827 

0ISPEX66 

31,3920 

= 

811 

3 

813 

819 

DELT  AF 

E7, 1669 

= 

157 

7 

157 

888 

DERPTR 

0191 

= 

100 

3 

82  5 

826 

DI SPGYRO 

15,3273 

972 

1 

969 

DELTALEM 

E 3 , 1699 

116 

1 

605 

0ERTA8LL 

31,3670 

827 

1 

825 

DI SPINIT 

21,2626 

902 

1 

898 

DELT  AC 

E 7, 1596 

= 

151 

8 

151 

1199 

DESASCNT 

0009 

= 

297 

3 

296 

297 

01 SPLACE 

91,3136 

993 

2 

99  3 

DELTA  TM 

E 7 , 1926 

= 

195 

2 

527 

DE  SC/ A SC 

05,2277 

- 

212 

1 

217 

01 SPL  AYE 

35,3609 

685 

2 

669 

665 

DELTATOK 

09, 3629 

1390 

1 

1390 

DESCBITS 

07,2991 

270 

1 

269 

DISPL  AYS 

10,2000 

= 

30 

3 

1351 

1379 
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DISPNOT 

36,3011 

741 

1 

740 

DL  126 

E6 , 1423 

DISPN5X 

40,3761 

706 

2 

706 

OL  127 

E6 , 1635 

DISPRATE 

20,2257 

1413 

1 

1413 

DL  128 

E6 , 1636 

OISPRSET 

21,2653 

903 

2 

895 

898 

DL129 

0033 

DISTEM 

0122 

= 

98 

3 

427 

DL130 

0034 

DIVIDER 

16,2210 

1420 

2 

1420 

DL  13  1 

0035 

DKAL  T 

16,3442 

1435 

1 

1436 

0L132 

E6 , 1425 

OKDB 

E 6 , 1411 

134 

2 

224 

1508 

DL  133 

E6 , 1514 

DKKAOSN 

E6 , 1405 

134 

1 

224 

DL201 

E6, 1516 

OKOMECAN 

E6, 14C4 

134 

2 

224 

1423 

DL202 

E6,  1517 

DKTRAF 

E 6 , 1403 

134 

2 

223 

1423 

DL203 

E 6 , 1520 

DL  AND 

E5, 1631 

= 

127 

12 

127 

8CI 

DL  204 

1331 

DL  AND  X 

E5, 1631 

= 

127 

1 

328 

DL205 

1334 

OLANDY 

E5, 1633 

= 

127 

1 

328 

DL206 

1335 

DLAND2 

E 5 , 1635 

= 

127 

1 

328 

DL207 

1336 

DL AY  J OB 

0C.200C 

= 

29 

1 

13  74 

OL  203 

0025 

DLOAD 

6C  73 

1000 

1 

1009 

DL209 

1356 

DLOAD* 

7754 

1096 

1 

1004 

DL210 

0037 

DLOADCOD 

7753 

1096 

1 

1016 

DL211 

0040 

DLY2 

5214 

11 17 

2 

1117 

1374 

DL212 

0041 

DL  10  1 

1336 

= 

206 

DL213 

0113 

DL  102 

0025 

= 

206 

0L214  . 

1327 

DL  10  3 

E 6 , 1516 

= 

206 

DL215 

1300 

DL  10  4 

E 6 , 1517 

= 

206 

DL216 

0113 

DL  10  5 

E 6 , 1520 

= 

206 

DL217 

E5 , 1741 

DL  106 

1356 

= 

206 

DL218 

E5, 1743 

DL  10  7 

1331 

= 

206 

DL219 

E5, 1756 

DL  10  8 

1334 

= 

2 06 

DL220 

1260 

DL  109 

1335 

= 

207 

DL301 

1356 

DL  1 10 

1336 

= 

207 

DL302 

0025 

nun 

1327 

= 

207 

DL303 

F6,  1516 

DL  1 1 2 

1300 

= 

207 

CL  30  4 

E6, 1517 

0L113 

C32  1 

= 

207 

DL305 

Efc , 1520 

0L114 

F6,  1422 

= 

207 

DL306 

0037 

DL  115 

E 6 , 1423 

= 

207 

DL307 

0040 

DL  116 

E 6 , 1635 

= 

207 

P L 3 0 8 

0041 

DL117 

E6, 1636 

= 

207 

DL309 

0113 

DL  118 

0033 

= 

207 

DL310 

1327 

DL  1 1 9 

0034 

= 

207 

DL311 

1300 

DL  12  0 

CC35 

= 

207 

DL312 

E 7 , 1460 

DL  12  1 

E 6 , 164  3 

= 

207 

DL313 

E7 , 1462 

DL  12  2 

E 6 , 1644 

= 

207 

DL314 

1331 

0 L 1 2 3 

037  5 

= 

207 

DL401 

0025 

DL  124 

Oil! 

= 

207 

DL402 

F6 , 1516 

DL  12  5 

E 6 , 1422 

= 

207 

DL403 

F6, 1517 

HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 
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DEF 
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= 

207 

DL404 

E6, 1520 

= 

213 

= 

207 

DL405 

0113 

= 

213 

= 

207 

DL406 

1327 

= 

213 

= 

207 

DL  407 

1300 

= 

213 

= 

207 

DL408 

E7, 1460 

= 

213 

= 

207 

DL  409 

E7 , 1462 

= 

213 

= 

207 

DL41C 

E7.1733 

= 

2 13 

= 

207 

OL  4 1 1 

1356 

= 

213 

= 

209 

DL  501 

E4, 1635 

= 

215 

= 

209 

DL  502 

0113 

= 

215 

= 

209 

DL  503 

0025 

= 

215 

= 

209 

DL504 

0 113 

= 

215 

= 

209 

DL  505 

1327 

= 

215 

= 

2 09 

DL  506 

1300 

= 

215 

= 

2 09 

DL  507 

E6 , 1422 

= 

215 

= 

209 

DL  508 

E 6 , 1423 

= 

215 

= 

2 09 

DL  509 

E 6 , 1635 

= 

215 

= 

2 09 

DL  510 

E6, 1636 

= 

2 15 

= 

209 

DL  5 1 1 

0033 

= 

215 

= 

209 

DL  512 

0034 

= 

215 

= 

209 

DL513 

0035 

= 

215 

= 

2 09 

DL514 

E6 , 1425 

= 

215 

= 

209 

DL  515 

1241 

= 

215 

= 

209 

OL  5 16 

E7, 1460 

= 

215 

= 

209 

DL517 

F7, 1462 

= 

215 

= 

209 

DL  51 8 

1331 

= 

215 

= 

209 

DL  60 1 

1170 

= 

217 

= 

209 

DL  602 

1171 

= 

217 

= 

211 

D L 603 

1172 

= 

217 

= 

211 

DL  604 

1 173 

= 

217 

= 

211 

DL  605 

0025 

= 

217 

= 

211 

DL  606 

E6, 1516 

= 

217 

= 

211 

DL607 

E6, 1517 

= 

217 

= 

211 

DL608 

E6, 1520 

= 

217 

= 

211 

DL  609 

1356 

= 

217 

= 

211 

DL  610 

1327 

= 

2 17 

= 

211 

D L 6 1 l 

1300 

= 

2 17 

= 

211 

DMENFBIT 

4734 

= 

76 

= 

211 

DMENFLG 

0121 

= 

76 

7 

595 

= 

211 

DMODE 

7353 

1036 

1 

1075 

= 

211 

DMP 

7124 

1029 

23 

412 

= 

211 

DMPNSUB 

7337 

1035 

l 

825 

= 

213 

DMPNTEMP 

0135 

= 

99 

2 

1035 

= 

213 

DM  PR 

7615 

1042 

1 

1009 

= 

213 

DMPSUB 

7130 

1029 

25 

1031 
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DMPSUB2 

7 147 

1029 

1 

1034 

DCDNADR 

05,3533 

DMP 1 

7613 

1042 

1 

1009 

OODNCH AN 

05,3601 

DNAURDCR 

05.354C 

990 

.1 

992 

CODNPTR 

05, 3625 

DNDUMP 

05,3736 

995 

1 

99  5 

DODOWNTM 

05,3507 

DNDUMP  I 

05,3723 

994 

2 

300 

995 

DOFSTART 

05,2501 

DNOUMPl 

05.375C 

995 

1 

995 

DCFSTRT1 

C5, 2506 

0NDUMP2 

05,3752 

995 

1 

99  5 

DO  1 NT 

13,2036 

DNECACR 

0336 

= 

102 

18 

102 

992 

D0INT2 

13,2060 

DNEDUMP 

43.3C40 

300 

2 

275 

300 

DOIT 

31,2256 

DNINDEX 

1332 

= 

1 1 1 

2 

1 1 l 

DOLEM 

26,2466 

0NLADMM1 

04,2525 

= 

246 

1 

243 

DONBRD 

25, 2651 

DNLADPOO 

4746 

= 

247 

1 

241 

DONE AOR 

37, 3653 

DNLR  ALT 

1336 

= 

111 

3 

206 

209 

DONEYET 

21,3357 

ONLRVELX 

1333 

= 

1 1 1 

4 

1 1 1 

208 

DONTPULS 

07,3652 

DNLRVi l Y 

1334 

= 

1 1 1 

4 

1 1 L 

209 

OOP A X I S 

20,3246 

DNLP.VFl  Z 

1335 

= 

1 1 1 

5 

1 L 1 

209 

OOP  IF 

31,2246 

DNLSTCOD 

0333 

= 

102 

1 1 

102 

1391 

DCPROC 

40,3637 

DNPHASE1 

05,3524 

989 

2 

234 

955 

DOROTAT 

17,2772 

DNPHASE2 

05,3532 

990 

1 

992 

DCRRFPOS 

25,2120 

DNRRANGE 

1330 

1 1 1 

7 

1 1 1 

589 

OORROOT 

25,3007 

DNRRDCT 

1331 

= 

1 l L 

6 

1 1 1 

328 

DORSAMP 

25,2003 

DNTABLF 

05,2446 

217 

1 

990 

D0RSAMP2 

25, 2007 

DNTMBUFF 

0340 

= 

102 

23 

164 

995 

DORSTART 

05,2732 

DNTMERAS 

0333 

102 

1 

102 

D0R52 

14,3613 

DNTMEX IT 

05,3715 

992 

6 

991 

995 

DOSAM 

14,3046 

DNTMF AST 

06,2671 

188 

1 

191 

DOSHIFT 

21 , 3467 

DNTMGCTO 

0335 

= 

102 

9 

102 

995 

DOSK I P 

17,3037 

DNTM1 

0034 

= 

95 

1 

992 

DOSSHFT 

00,2322 

DNTM2 

0035 

= 

95 

1 

99  3 

DCSTORE 

6403 

DOACCFUN 

20,3711 

1502 

1 

1498 

DOSURLST 

05,3701 

DOAL ARM 

5146 

= 

1381 

DOSW ITCH 

11, 3432 

DOAL I GN 

15,3140 

969 

DOT 

7352 

DOCKED 

20,3063 

1492 

1 

1485 

DOTERM 

40 , 3635 

OOCKTEMP 

0157 

= 

1494 

4 

1484 

14  89 

' DOT  I CK 

22,3443 

DOCK  T F S T 

20,2755 

1489 

2 

1488 

1502 

DOT  INC 

0136 

DOCMBASE 

37,3136 

707 

1 

710 

DOT  I XBR 

01,2430 

DOCORS 

14, 3552 

949 

l 

949 

DOTPER 

22,3624 

DOCSM 

23,3217 

1155 

1 

1154 

DOTRET 

0137 

DOCSM  1 

23, 3222 

1155 

L 

1154 

DOT  SUB 

7177 

DOOA  T 

07, 2C67 

257 

1 

257 

DOT  SWFMX 

30,3752 

DODELVZ 

37,3567 

874 

1 

875 

D0T6RUPT 

17,2117 

DODE  S 

25,2626 

564 

1 

562 

DOUBLK 

40,2564 

DODE  St  NO 

25,3053 

568 

1 

568 

OOVLOAO 

6504 

DODLOAD 

65C1 

1016 

l 

1013 

DCVLOAD* 

6507 

DUDLOAO* 

6105 

1004 

2 

1013 

1016 

DOW.  . 

11,3712 
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DOW. . 1 

11,3740 

1243 

2 

1243 

DOWNF  NT  2 

10,3564 

1371 

3 

1361 

1367 

1 

990 

DOWNFLAG 

5520 

1372 

100 

236 

1363 

2 

163 

164 

DOWNGTS 

20,3664 

1 502 

2 

1488 

1 

229 

DOWNTELM 

05,2000 

= 

30 

3 

204 

989 

2 

228 

229 

DOWNTORK 

E6, 1513 

137 

7 

137 

1468 

2 

247 

D01/NET+ 

20,3702 

1502 

2 

1498 

1499 

1 

248 

DP (-22 ) 

27,3763 

1280 

l 

1275 

1 

792 

DP— .01 

35,3651 

687 

3 

683 

1 

59  5 

DP AGREE 

7276 

1034 

1 

564 

OPB-1 4 

26,2422 

4 99 

2 

496 

498 

1 

875 

DPBIT 14 

01,3502 

1129 

L 

1 129 

2 

1478 

DP  DAT  1 

20,2037 

305 

1 

305 

1 

1324 

DP DAT  3 

01,2323 

308 

1 

30  7 

1 

149  5 

OPHALF 

23,2502 

= 

1098 

12 

365 

766 

1 

790 

DP  INCOM 

40,3160 

447 

1 

44  8 

1 

473 

DP  INORM 

40,3166 

448 

1 

447 

2 

1451 

DP  INS  F 

40,3143 

447 

4 

445 

448 

1 

198 

DPINSF2 

40,3170 

448 

l 

445 

2 

567 

DPINSF4 

40,3175 

448 

1 

445 

l 

505 

DPIPAY 

E5, 1522 

= 

133 

2 

397 

DP  IPAZ 

E5, 1526 

= 

133 

l 

397 

1 

226 

DPL 1 

30,3706 

920 

1 

920 

1 

952 

0PL3 

30,3707 

920 

1 

920 

1 

938 

DPL5 

30,3710 

920 

1 

920 

DPL7 

30,3711 

920 

1 

920 

1 

1451 

DPL9 

30,3712 

920 

1 

920 

1 

1053 

DPMODE 

14,3771 

1 398 

1 

1001 

DPOSMAX 

4723 

1093 

3 

456 

1398 

1 

991 

DPOUT 

40,2752 

433 

3 

433 

2 

1236 

1237 

DPPDSMAX 

23,2512 

1098 

9 

312 

709 

1 

1009 

DPSFL ITF 

20,2526 

1485 

L 

1485 

1 

473 

DPSTHRSH 

32,2000 

41 

l 

781 

l 

719 

DPSVE  X 

33,2001 

40 

2 

749 

835 

7 

99 

1037 

DPTEST 

41 ,2306 

423 

4 

423 

444 

DPTEST  1 

41,2330 

424 

4 

424 

1 

724 

DP  ZERO 

12,2006 

= 

1244 

3 

934 

1236 

8 

99 

1076 

DP  0 

0036 

= 

937 

3 

1037 

DPI 

0040 

= 

937 

1 

916 

DPI/ 12 

14,2453 

264 

1 

264 

1 

164 

DP  1/2 

12,2004 

= 

1134 

5 

L 134 

1146 

2 

416 

417 

DP  1/20 

33,2740 

883 

1 

882 

1 

1013 

DPI/4 

12,3765 

1244 

3 

1197 

1244 

1 

1013 

DP  1/4TH 

23,2474 

1098 

7 

38 

1149 

2 

1236 

1241 

DP  1/8 

07,2570 

273 

1 

267 

JOKER  OR  ERASE  ANYWHERE  MO  MULTIPLY  OEFINED 
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OF  DEF, 

H 

990 

990 

991 

989 

222 

222 

247 

248 

791 

595 

564 

875 

1478 

1324 

1495 

791 

4 73 

1451 

545 

567 

505 

505 

226 

952 

938 

14  80 

1452 

1053 

1012 

992 

1237 

1036 

473 

719 

99 

1086 

724 

99 

1031 

922 

1402 

417 

1016 

1016 

1243 

INEO  BY 

T 
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H 
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DP1M  I N 

26,2123 

353 

1 

351 

D SPDCGET 

Al, 2556 

A29 

1 

429 

DSRUPTEM 

0073 

= 

97 

5 

167 

DP10UTSF 

AO, 2737 

A33 

1 

A30 

DSPOCPUT 

41,2566 

429 

1 

430 

DSRUPTSW 

1310 

1 10 

10 

165 

232 

DP2I-3) 

27,3765 

1280 

1 

1277 

DSPDCWD1 

40,3262 

A 56 

4 

457 

OSU 

7026 

1026 

I 

1009 

DP2I -A ) 

27,3767 

1280 

1 

1271 

CSPDC2NR 

40,3315 

A57 

3 

436 

458 

DT 

E7, 1717 

= 

157 

7 

157 

897 

OP  2/  3 

OA, 3253 

1 2 A A 

3 

1225 

12AA 

DSPOECNR 

40,3311 

45  7 

DT/DELT 

30,3760 

922 

1 

915 

DP20UTSF 

AO , 2 7 A A 

A33 

2 

A30 

DSPDECVN 

40,3335 

A58 

4 

434 

473 

DT/TAU 

22,3121 

378 

1 

377 

DP30UTSF 

A0.27A6 

A33 

1 

430 

DSPDECWD 

40,3255 

456 

4 

430 

435 

DT/2 

E4, 1475 

= 

119 

ll 

119 

1241 

DP9/  1 C 

0A.3C51 

1183 

A 

1175 

1181 

DSPDELAY 

40,3745 

706 

1 

706 

DT/2C0MP 

13,3356 

1215 

1 

1216 

DQUAR  TER 

12,3765 

= 

1 2 AA 

2 

1230 

DSPDPDEC 

40,3020 

438 

1 

421 

DT/2MAX 

13,3445 

1216 

2 

1215 

1216 

DR  DOT 

E A , L 72  7 

= 

1 2 A 

A 

1 2 A 

8A9 

DSPFLG 

1067 

= 

105 

4 

1356 

1364 

DT/2M  IN 

13,3443 

1216 

l 

1216 

DRFDB 

20,3630 

1501 

. 1 

1501 

DSPFMEM 

41,3425 

455 

1 

422 

DTDECAY 

36,2004 

39 

——OK  FT  BIT 

A726 

= 

70 

3 

175 

13  12 

DSP  I N 

40,3351 

459 

5 

411 

460 

DUMLOOPS 

1356 

1 12 

6 

206 

11  14 

DRFTSUB2 

06.35AA 

3 AA 

1 

3A8 

DSP  I N 1 

40,3376 

459 

2 

459 

460 

DUMMY  AD 

04,2172 

240 

1 

244 

DRIFT/CN 

I 7, 3 AA  7 

IA6  l 

1 

1A6  1 

DSPLAY 

06,2047 

167 

1 

167 

DUMMY  JOB 

01,3210 

1 1 14 

3 

224 

1113 

✓DRiF re it 

A 7 35 

= 

89 

7 

735 

1507 

DSPL  1ST 

1042 

104 

6 

233 

480 

DUMPC  NIC 

27,3431 

1 269 

VORIFTDFL 

0312 

= 

89 

I 

73  7 

DSPLOCK 

1011 

104 

12 

233 

1367 

DUMPLOC 

0336 

= 

102 

5 

994 

995 

DRIFTER 

0116 

= 

150A 

3 

1A95 

1A96 

DSPLV 

41 , 3465 

458 

1 

461 

DUMPR PRA 

27,3467 

1271 

V^driftflg 

0036 

= 

70 

3 

867 

9A9 

DSPLYALT 

4741 

= 

1417 

2 

1412 

DUMPTFF1 

27,3552 

1275 

DRIFT  I 

E5, 1 5CA 

= 

132 

1 

387 

DSPLYMSK 

20,2113 

306 

1 

305 

DUMPTFF2 

27,3647 

1276 

DR  I F TO 

E 5 , 1502 

= 

132 

1 

389 

DSPLYTOT 

20,2266 

1413 

1 

1413 

DUNFVL IM 

30,3750 

922 

1 

916 

DRIFT  SUB 

06.352A 

3A  A 

3 

3A0 

DSPMM 

04,2657 

4 72 

1 

48  A 

DV/SC 

7657 

1043 

z 

1043 

DRIFTT 

E 5 , l A A 2 

= 

132 

1 

388 

0SPMMJB 

40,3572 

473 

2 

472 

1291 

DVBYCOSM 

30,3564 

918 

4 

917 

DR  1 VEGN 

21,3355 

1 A78 

1 

IA7  8 

DSPMM JOB 

40,3572 

= 

1291 

1 

1291 

DVCNTR 

E7, 1515 

= 

154 

52 

154 

1381 

DR  SAM  P 

2 5 , 2 OC  0 

= 

33 

1 

505 

DSPMMTEM 

0140 

= 

99 

2 

473 

DVCNTR 1 

E7, 1570 

= 

154 

2 

867 

DSALMOUT 

0011 

= 

95 

36 

181 

1393 

DSPMSK 

4750 

= 

459 

1 

458 

DVCNTSFT 

33,2245 

866 

DSFX  I T 

01 IA 

= 

98 

3 

A59 

A60 

DSPUCT  IN 

40,3441 

460 

1 

458 

OVECTR 

0010 

= 

1 146 

1 

1142 

DSKYFBIT 

A 726 

= 

75 

1 

1335 

DSPOCTWD 

41, 3435 

458 

3 

421 

45  5 

DVLOS 

E4, 1673 

= 

121 

4 

327 

678 

DSKYF  LAG 

0113 

= 

75 

DSPOFF 

05,3302 

233 

1 

233 

DVMAX 1 

34,2063 

638 

1 

640 

DSL  V 

AO,  3A25 

A60 

2 

A59 

A 60 

DSPOPTN 

15,3412 

974 

3 

974 

975 

DVMAX2 

34,2065 

638 

1 

640 

DSMAG 

0 1 A 2 

99 

2 

A 59 

A60 

D S POUT 

06,2063 

167 

2 

166 

DVMON 

33,2236 

8 66 

DSMSK 

AO, 3A27 

A60 

2 

A 59 

A60 

D SPOUT  SB 

06,2024 

167 

2 

167 

170 

DVMONCON 

36,2547 

735 

DSPA 

A 1 , 2A  1 A 

A27 

I 

A21 

DSPRND 

40,3244 

456 

l 

456 

DVNORM 

00,2505 

1058 

3 

1057 

DSPAB 

A 1 , 2A0  7 

A2  7 

1 

A21 

DSPRRLOS 

41,2000 

311 

1 

31  1 

DVNORMCT 

0137 

= 

99 

6 

1055 

1066 

DSPABC 

A 1 , 2A02 

A 27 

1 

A21 

DSP  SC  A N 

06,2032 

167 

2 

167 

DVOVF 

00,2405 

1055 

1 1 

1057 

1068 

DSPABCRT 

A220 

A70 

3 

A 7 0 

DSPSFNOR 

41,2611 

430 

1 

430 

DVOVSUB 

20,2760 

1490 

5 

1487 

1493 

OSPAL  ARM 

AO , 3 AA  7 

A60 

8 

A22 

AA5 

DSPS  IGN 

40, 3227 

456 

4 

456 

457 

DVPRE V 

E7, 1575 

= 

147 

4 

644 

645 

DSPB 

A 1, 2A22 

A27 

1 

A21 

OSPTAB 

1022 

104 

59 

166 

1378 

DVS IGN 

0136 

= 

99 

10 

1055 

1072 

DSPC 

A 1, 2A27 

A27 

1 

A21 

DSPTEMX 

1050 

= 

105 

7 

105 

704 

DVTEMP 

1173 

= 

107 

2 

86  5 

DSPCADR 

16,2215 

1A  l 1 

1 

1 A 1 l 

DSPTEM1 

1044 

104 

29 

105 

974 

DVTHRUSH 

1250 

= 

108 

7 

108 

866 

DSPCNT 

0775 

1 0 A 

7 

167 

233 

DSPTFM2 

1047 

105 

12 

105 

393 

DVTOTAL 

E7, 1507 

- 

154 

10 

154 

865 

DSPC0M1 

A 1 , 2A20 

A27 

3 

A 2 7 

A29 

CSPWDRET 

0144 

= 

99 

3 

456 

DVTRANS 

13,2272 

712 

DSPC0M2 

A1.2A3A 

A27 

2 

A27 

DSP2DEC 

40, 3322 

457 

1 

438 

DVXSC 

7451 

1039 

2 

1038 

DSPC0M3 

A 1 , 2 A A 2 

A27 

1 

A27 

DSQ 

00,3174 

1073 

1 

1011 

DWNRPTBB 

4062 

164 

1 

163 

DSPCOLNT 

0 7 76 

1 0 A 

66 

168 

1335 

DSQSUB 

00,3300 

1076 

5 

1073 

1081 

DXCOMP 

12,2155 

l 173 

1 

1173 

DSPDC  END 

A l , 2 6 1 5 

A30 

A 

A30 

437 

OSREL 

0141 

= 

99 

4 

459 

460 

DXCRI T 

0 124 

= 

100 

2 

825 

826 
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DEF 

H 

REFERENCES 

SYMBOL 

DEF  • 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFFRENCES 

OXCR I T+l 

0125 

= 

100 

ECC 

E 5 , 1751 

= 

130 

3 

130 

1198 

ENDCHKG 

37,2366 

391 

DXERRCR 

E 6 , 1AA6 

135 

9 

135 

1433 

ECDUW 

E6 , 1645 

= 

140 

3 

140 

922 

ENDDAPT4 

5272 

= 

200 

DYDOT 

EA, 1731 

= 

124 

4 

124 

849 

ECOUWL 

30, 3745 

922 

1 

90  7 

ENDDOT 

7226 

1031 

1 

1076 

DYERROR 

Efc, 1 A50 

= 

135 

7 

135 

1446 

ECDUWUSR 

E 6 , 1645 

= 

140 

3 

140 

915 

ENDDPDEC 

40,3036 

438 

1 

446 

OYNMD ISP 

36,3366 

752 

2 

7 50 

752 

EDOP 

0023 

= 

94 

14 

454 

1287 

ENDDPUSH 

6571 

1018 

1 

1018 

DZD01 

EA,  1733 

= 

124 

3 

124 

850 

EDOT 

E6 , 1427 

= 

138 

23 

135 

1508 

ENDEC VN 

40,3351 

= 

458 

1 

459 

D2ERR0R 

E 6 , IA52 

= 

135 

7 

135 

1446 

EDOTP 

E6,  1427 

= 

135 

4 

1432 

1436 

ENDEXT 

5474 

= 

1 369 

43 

219 

1393 

D 1 / 1 0 2 A 

OA , 3C45 

1183 

1 

1192 

EDUTQ 

F6 , 1436 

135 

5 

135 

1471 

ENDEXTV8 

5474 

= 

277 

5 

281 

285 

Dl/128 

0A.3033 

1183 

3 

11  76 

1187 

EDOTR 

E6, 1437 

= 

135 

2 

135 

1439 

ENDFINO 

5151 

1103 

4 

1 105 

1109 

Dl/IC 

0A.3CA1 

1183 

2 

1189 

1196 

FDOTSO 

E6 , 1 736 

= 

138 

3 

1460 

1461 

ENDHMSS 

42,3617 

= 

451 

D 1/2  5 £ 

OA, 30A7 

1183 

3 

117  7 

1183 

EDRI VEX 

E6, 1763 

142 

5 

142 

1417 

ENDIOLE 

4200 

470 

i 

1366 

Dl/32 

OA, 30A3 

1183 

7 

1183 

1234 

EDRI VEY 

E6, 1764 

= 

142 

1 

1416 

END I M U 

07,3633 

1 324 

3 

1308 

1313 

Dl/4 

OA , 3 03  7 

1183 

4 

38 

1196 

EDRI VEZ 

E6, 1765 

= 

142 

l 

1416 

ENDINST 

4210 

470 

6 

414 

1365 

Dl/64 

OA, 3035 

1183 

5 

1172 

1198 

EE 

13,2543 

1134 

1 

1134 

ENDINT 

L 3 , 2 670 

1 207 

l 

248 

Dl/8 

OA, 3031 

1183 

1 

1198 

EGRESS 

E5, 1 767 

= 

131 

5 

l 147 

1218 

ENDIT 

10,3373 

1 367 

1 

1364 

D29.9SEC 

36, 3 1A  1 

744 

2 

729 

EIGHT 

4741 

= 

1097 

2 

266 

27  l 

ENDJASK 

17,3273 

1456 

1 

1456 

D60R98 I T 

4 743 

= 

73 

EIGHTEEN 

33,2366 

872 

1 

871 

ENDJ0B1 

01,3107 

1111 

1 

1103 

D60RSFLG 

OC  72 

= 

73 

10 

248 

1241 

E J SC AN 

01, 3124 

1 111 

2 

1 108 

1111 

ENDLL JOB 

31,3420 

= 

811 

E J 1 

01,3175 

1113 

7 

1 1 11 

1112 

ENDMANUV 

26,2206 

489 

E 

E6,  175 l 

= 

138 

17 

1433 

1507 

EJ2 

01, 3204 

1113 

1 

1113 

ENDMANU1 

26,2207 

489 

2 

489 

490 

E/BKCALL 

04,2617 

382 

EL 

1345 

= 

111 

1 

329 

ENDMARK 

5474 

1351 

2 

267 

1369 

E/CALL 

04,2636 

383 

ELBt AS 

1353 

= 

1 12 

1 

804 

ENDMARKS 

07,2324 

267 

1 

267 

E/ JOBWAK 

04,2652 

384 

ELCALC 

35,2722 

670 

1 

673 

ENDMAXDV 

00,2624 

1061 

2 

1061 

1063 

F/PROG 

04,2000 

= 

29 

2 

382 

384 

ELEACH 

11 , 2402 

= 

824 

2 

323 

ENOMODE 

07,3725 

1325 

2 

1325 

E/SW I ICH 

OA , 263  A 

382 

ELEPS 

35,3647 

687 

1 

670 

ENDMONDO 

41,3420 

454 

l 

454 

EARSPH 

11,3412 

1236 

1 

1235 

ELEV 

E4 , 1647 

121 

13 

205 

673 

ENDNMTST 

40,2227 

412 

2 

412 

EAKTCNTR 

14,253  1 

932 

ELEVEN 

4751 

1093 

4 

482 

1469 

ENDNUM 

40,2237 

4 12 

t 

412 

■ EARTHCCN 

22,3531 

720 

1 

720 

ELEX 

35, 3177 

673 

l 

670 

ENDNVBSY 

04,2676 

479 

EAKTHL 

06,3765 

1145 

2 

1 138 

1140 

EL  INCR 

E 7 , 1554 

= 

156 

4 

156 

802 

ENDNVSB 1 

41,3661 

469 

1 

482 

EARTHLOC 

06,2000 

= 

30 

1 

1145 

EL  I NCR  1 

E 7,  1645 

= 

156 

6 

156 

823 

ENOOF  JOB 

5146 

1103 

151 

2 39 

1434 

EARTHMU 

27,2022 

46 

1 

775 

ELOOPF  IN 

43,3442 

12  86 

2 

1286 

ENDOUT 

10,3325 

1 366 

2 

136  7 

EARTHMX 

26,3743 

1144 

2 

1138 

1140 

ELRCOOE 

04,3371 

1337 

1 

1336 

ENDPASTE 

4143 

454 

EAKTHMXX 

0051 

= 

1146 

4 

114  l 

1144 

ELRCODEl 

40,2136 

411 

l 

410 

FNDPI NBF 

4503 

= 

480 

EARTHPAD 

22,3371 

718 

l 

717 

ELVIRA 

E7, 1647 

= 

156 

6 

156 

822 

ENOPI NSl 

40,3737 

= 

486 

EARTHR 

37,2420 

392 

1 

392 

ENABLET6 

17,2075 

1401 

1 

1401 

ENDPINS2 

41,3777 

= 

484 

EARTHR* 

37,2447 

39  2 

4 

387 

4 00 

ENO-AL  IG 

E7 , 1630 

= 

155 

2 

155 

160 

ENDPRCHG 

01,2771 

1 107 

2 

1 106 

1113 

EBANK 

0003 

= 

94 

94 

223 

14  84 

END-E5 

E5 , 1777 

= 

133 

2 

815 

886 

ENDP76 

l 3,2351 

713 

2 

711 

712 

EBANK  SAV 

1 C 6 7 

105 

3 

105 

13  60 

END-E6 

E6 , 1775 

= 

143 

1 

820 

ENDRAOAP 

25,3607 

581 

2 

553 

562 

EBANKTTM 

107  1 

105 

5 

222 

1368 

END-E7 

E7, 1 777 

= 

160 

4 

815 

895 

ENDROLO 

40,3017 

434 

1 

438 

EBANK  3 

5000 

= 

1097 

3 

234 

892 

ENOALL 

40,2243 

412 

2 

412 

EN DR  F L OS 

40,3543 

= 

465 

1 

471 

EBANK4 

4732 

= 

1097 

7 

288 

925 

ENDALM 

6026 

461 

ENDRET 

10,3355 

1 367 

5 

1361 

1368 

EBANK 5 

5CC  5 

1095 

15 

259 

1431 

ENOAXIS 

14,2406 

2 59 

1 

259 

ENDRMODF 

4607 

= 

541 

EBANK  6 

5006 

= 

1097 

1 1 

223 

1484 

ENDBALL 

26,2360 

493 

ENDRN 

24,2145 

5 12 

1 

51  1 

EBANK  7 

5CC  7 

1095 

16 

259 

955 

END8LFF 

4274 

= 

471 

1 

475 

ENDROLL 

22,3226 

3 81 

EBUF2 

1 166 

= 

108 

1C 

382 

3 83 

ENDBSUB1 

40, 3572 

= 

472 

1 

472 

ENDRQ  DAT 

41,2345 

424 
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DEF 
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DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

ENDROWT 

A 1 , 3 564 

463 

l 

46  7 

ENTER 

41, 2022 

419 

2 

411 

461 

EREXIT1 

32,2560 

590 

1 

588 

ENDRRMON 

06,3167 

S 

198 

l 

198 

ENTERDAT 

C7, 2066 

257 

ERMINUS 

40,3713 

486 

ENDRSTRT 

05,2643 

224 

2 

228 

ENTERJMP 

40,2137 

411 

1 

411 

ERPLUS 

40,3716 

486 

1 

486 

ENDR  TOUT 

41,2647 

= 

430 

1 

439 

ENTERQR 

17,2445 

1445 

ERROR 

40,3646 

485 

1 

410 

ENDRUT  IN 

41,3302 

= 

445 

1 

452 

ENTERUV 

17,2504 

1446 

3 

1445 

1446 

ERRORS 

43,3262 

12  83 

1 

1283 

ENDR 03 

)1,2252 

307 

1 

307 

ENTEXIT 

0136 

= 

420 

10 

420 

462 

ERRTEST 

17,3361 

1460 

ENDSAM 

14, 2577 

933 

L 

932 

ENTMI01 

13,3625 

1221 

1 

1220 

ERTHR 

37,2431 

392 

1 

392 

ENDSCAEE 

40, 3C72 

446 

3 

446 

447 

ENTMID2 

13, 3621 

1221 

1 

1220 

ERTHRVSF 

37,2401 

392 

2 

395 

400 

ENDSCAL1 

40,3105 

446 

2 

447 

448 

ENTPASHI 

41,2032 

419 

ERVECTOR 

F5 , 1404 

= 

132 

5 

132 

392 

ENDS  P F 

41,3434 

455 

1 

458 

ENTPASO 

41,2062 

420 

3 

419 

469 

ESCAPE 

0136 

= 

99 

4 

1082 

1083 

ENDS  PM  IN 

42,3462 

438 

i 

449 

ENTRET 

0136 

= 

99 

6 

414 

468 

ESCAP  E2 

0137 

= 

99 

2 

1082 

1083 

ENDS  P N M 

04,2667 

472 

l 

479 

ENTSET 

41,3637 

468 

2 

46  8 

ESTER  1 

E7  , 1565 

= 

151 

4 

151 

262 

ENOSPCCT 

40,3444 

460 

EOURPERM 

E 7 , 1670 

= 

157 

1 

157 

ESTER  2 

E 7 , 1 567 

= 

151 

6 

151 

262 

ENDSTATE 

l 1,3604 

1240 

i 

1239 

EPHEM 

15,2000 

= 

32 

2 

54 

983 

ESTICAOR 

37,2116 

386 

2 

386 

ENDSTEEP. 

36, 3647 

757 

FPHEML 

05,2000 

= 

30 

3 

53 

985 

ESTIMS 

37,2500 

395 

2 

386 

389 

ENDSTOR 

07,2515 

271 

EPHEM2 

04,2000 

= 

29 

l 

54 

ETPIBIT 

4736 

= 

71 

ENDSUMS 

43,3130 

303 

l 

1289 

EPSFOUR 

35,3653 

687 

1 

676 

ETP I F LAG 

0046 

= 

71 

5 

664 

673 

ENDS40.9 

27,2727 

772 

EPSILN1 

34,2075 

638 

1 

646 

EXBRAK 

31,3307 

809 

1 

795 

ENDT  t X) 

27,3756 

1279 

l 

1279 

EPSILON 

0155 

= 

1494 

5 

1486 

1494 

EXDSPRET 

10,2632 

1358 

5 

219 

293 

ENDTASK 

5240 

1119 

4 

232 

1126 

EPS  I LONL 

E5 , 1 763 

= 

130 

3 

130 

1193 

EXFCBANK 

5 154 

1 103 

8 

1 101 

1 103 

ENDTEST1 

37,2270 

389 

3 

385 

400 

EPS iLUNT 

E4, 1567 

120 

2 

1174 

EXECTEM1 

0061 

= 

97 

6 

1101 

1109 

ENDT  F F 

27,3644 

1276 

3 

1276 

1278 

E PSSMALL 

27,2725 

7 72 

1 

772 

EXECTEM2 

0062 

= 

97 

4 

1 104 

1109 

ENDTNCN 

06,2266 

1 74 

1 

174 

EPS1 

27,2405 

762 

2 

762 

772 

EXGSUR 

31,3266 

809 

l 

795 

ENDTNCN2 

06,2306 

1 75 

1 

174 

EPS2 

27, 2407 

762 

2 

762 

772 

EXIT 

6764 

1023 

1 

1001 

FNDTPUSH 

6573 

1018 

2 

1018 

1075 

ERAD 

04,2000 

47 

1 

1 137 

EXITFM 

0114 

= 

98 

7 

442 

443 

ENDT  S LC 
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227 

2 

834 

1380 

ERASC0N4 
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= 
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ERASC0N6 
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= 
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755 

1 
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1369 
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= 
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3 
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755 

1 
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= 
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= 
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= 
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3 
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0117 

= 
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486 

ENGUFFDT 
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= 
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486 

F 
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7 
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769 

ENGOFF 1 

34,3512 

854 

2 

853 

054 
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= 

133 

8 
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F(MASS) 

20,2544 

1485 

3 

1485 
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36,3543 

755 

3 
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40,3733 

486 

1 

485 
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0154 

= 

1370 

8 

1360 

136  1 

ENGONB  IT 

4736 

= 

76 

6 

184 

912 
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1365 

= 
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3 
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20,3523 

1499 

1 

1499 
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0123 

= 

76 
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= 
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13 
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FFTAG4 

4000 

= 

29 

2 
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32,2623 
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3 
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= 
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5 

41 
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476 
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= 
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5 
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= 
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10 
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= 
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2 
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1381 
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39 

2 
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= 
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1 
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= 
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= 
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= 

69 
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1 
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0076 

= 

70 

26 
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1154 

1 
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= 
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34,2663 
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= 
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= 
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= 
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= 
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15 
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= 
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4737 

= 

71 
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FAZA1 

23,2760 

1152 
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= 
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= 
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= 
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1153 

FINDCDUW 

30,3074 

907 

5 

767 

907 
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41 
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FLGWP.D12 
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FLUNDB IT 
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81 
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FREIGHT 
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7 
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FLUNDISP 

0 175 

= 

81 

4 
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82 
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FXFX 

43,3546 
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= 
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E4 , 1707 
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3 

157 

896 
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3 
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5 
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3 
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5 
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5 
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2 
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= 
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1 
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0070 

= 

158 

8 
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= 

125 

2 
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GETER AO 
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1 
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4742 

= 
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49 
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1 
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GETGNUV 

33,3420 
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1 
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FOURSECS 

27,2534 
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1 
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GAMCOMP 

11,2653 

1229 

3 

1228 
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GETGOBL 

27,3201 
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1 
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FOURTEFN 

4310 

= 

1071 

1 

1068 

GAMMA 

E 7, 1477 

= 

151 

5 

151 

1151 

GETINREL 

40,2313 

413 

5 

411 

417 

FP 

E7 , 1467 

= 

146 

5 

789 

791 

GAMPRFV 

E 7 , 1607 

147 

7 

148 
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GETLM  ATT 

15,3523 

978 

1 

974 

FRANDRFS 

05, 2000 

= 

30 

2 

45 

222 

GAMRP 

0010 

= 

1 136 

3 

1 132 

1136 

GETMAXDT 

13,3403 

1216 

1 

1215 

FRCS2 

36,2020 

39 

1 

751 

GCOMP 

E3 , 1471 

115 

24 

115 

949 

GETMK  S 

07,2140 

265 

2 

259 

267 

FRCS4 

36,2016 

39 

2 

751 

768 

GCOMP  SUB 

06,3475 

343 

6 

341 
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GETNEWNM 

5431 

1297 

1 

1296 

FREE  F B IT 

4742 

= 

68 

l 
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GCOMP  S W 

E3 , 1477 

115 

10 
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395 

GETNOW 

04,3007 

705 

1 

704 

FREEH  LAG 
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= 

68 

11 

261 
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GCOMP  ZER 

06, 3751 

348 

1 
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GETPART2 

01,3543 

1 300 

1 
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FRSTIME 
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= 

70 

3 
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GCOMP  1 

06,3610 

345 

1 
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GETPR 10 

5425 

1296 

2 
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1299 

FRSTMBIT 

4741 

= 

70 

GCTR 

E5 , 1736 

= 

128 

10 

128 
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GE TRANS 

36,3657 

757 

1 

756 

FRSTPAS 

34 ,2644 

645 

1 

645 

GDESELCT 

07,3630 

1323 

1 

1318 

GETROOT 

21,3233 

1473 

FSPASB IT 

4733 

= 

68 

GDT/2 

1235 

108 

10 

108 

884 

GETRPSV 

1 1,2625 

1229 

1 

1229 

FSPASFLG 

0005 

= 

68 

3 

51  l 

512 

GOT  1 / 2 

E7 , 1562 

= 

154 

6 

154 

885 

GETRVN 

37,3320 

709 

2 

707 

710 

FSUBO 

26,2014 

55 

1 

1141 

GDUMP1 

31 , 3407 

= 

811 

GETRVN2 

37,3355 

710 

1 

709 

FTHROT 

31,2000 

= 

35 

2 

41 

789 

GEAODR 

6157 

1003 

1 

1003 

GETULC 

26,3332 

605 

3 

596 

606 

FT99999 

30,2057 

6 17 

2 

616 

GEFF 

E4 , 1705 

- 

124 

4 

124 

850 

GETVR  VG1 

27,3115 

774 

1 

775 

FULL  APS 

05,2000 

45 

1 

223 

GENDDV 

00,2570 

1060 

2 

1059 

1063 

GETVR VG2 

27,3117 

774 

1 

775 

FULL  D SP 

41,3726 

482 

1 

482 

GENMARK 

10,3033 

1361 

GE  TX 

12,2767 

1187 

3 

1 184 

1197 

FULLDSP1 

41,3727 

482 

1 

482 

GENMASK 

0162 

= 

1370 

4 

1353 

1367 

GET45 

35,3544 

683 

3 

683 

FULL  T IME 

17,3520 

1462 

6 

1463 

1467 

GENPL 

E5 , 1434 

= 

132 

9 

132 

GF  ACT  M 

20,3057 

1492 

1 

1487 

FUNCT  ION 

E6, 1750 

= 

137 

16 

1472 

14  80 

GENRET 

1 142 

107 

4 

528 

536 

GHZ 

32,3436 

821 

1 

315 

FUNCT2 

2 1,3  177 

1473 

2 

1472 

GENSCL 

00,2346 

1054 

2 

1054 

GIMLOCKL 

23,3414 

1251 

1 

1250 

FUNCT3 

21,3202 

1473 

GENSCR 

00,2277 

1053 

4 

1052 

1 074 

GL ,ETC  . 

40,3735 

486 

1 

485 

FUNNY DSP 

E 7 i 1666 

= 

157 

4 

157 

327 

GENSHFT2 

00,2224 

1051 

1 

1051 

GL  AMP  T ST 

06,2507 

180 

1 

180 

FUNTEM 

0157 

= 

1504 

2 

1495 

1496 
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00,2214 

1051 

1 

1042 
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06,2500 
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1 

180 

FV 
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= 

1 18 

15 

113 

1243 

GENTRAN 

5546 

1376 

4 

309 

1500 

GLOCKCHK 

06,2441 

179 

2 

179 

F V AC  C ADR 

4345 

= 

1305 

1 

1302 

GEOCOMPS 

E5 , 1562 

= 

133 

3 

396 

397 

GLOCKMON 

06,2434 

1 79 

1 

177 
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GLOCKCK 

G6.3CC6 

191 

4 

180 

GCLOADLV 

43,2375 

286 

6 

275 

276 

GOSERV 

33,2216 

865 

GLOKFAIL 

0056 

= 

72 

3 

240 

1251 

GOLOC 

0705 

= 103 

30 

1300 

1305 

GOSHOSUM 

43,3077 

= 

302 

l 

276 

GLOKF  BIT 

4727 

= 

72 

GOMANUR 

21,2764 

1328 

1 

489 

GOSLEEPS 

10,2766 

1360 

3 

1357 

1369 

GMBDRB  IT 

4733 

= 

70 

1 

777 

GQMARK 

10,2317 

1351 

l 

1369 

GOTO 

6667 

1021 

13 

102  2 

1089 

GMBUKVSW 

0137 

= 

70 

2 

777 

778 

GCMARKF 

10,2323 

1352 

1 l 

219 

1369 

GOTOERS 

6703 

1021 

1 

1021 

GMBLB  ITA 

21,3563 

1482 

1 

1481 

GGMARKFR 

10,2345 

1352 

7 

272 

1369 

GOTOGE 

6716 

1022 

I 

1021 

GMBLB ITB 

21,3565 

1482 

GOMARKR 

10,2342 

13  52 

1 

1369 

GO TOGTS 

17,2636 

1448 

1 

1440 

GMERGE 

07,3465 

1320 

1 

1323 

C0MARK2 

10,2331 

1352 

1 

265 

GOTOPOOH 

6001 

235 

64 

235 

1334 

GN/CCODE 

4772 

1094 

GQMARK  2R 

10,2350 

1352 

1 

267 

G0T0V56 

6043 

613 

13 

490 

530 

GNUFA7E5 

37,3530 

362 

2 

860 

861 

G0MARK3 

10,2334 

1352 

1 

220 

GOUT 

F5, 1 714 

= 

128 

3 

962 

964 

GNUR 

E7, 1656 

= 

157 

4 

889 

' 892 

G0MARK3R 

10,2354 

1352 

1 

308 

GOVNUPDT 

40,3346 

458 

1 

425 

GNURVST 

33,3455 

892 

2 

889 

891 

G0MARK4 

10,2337 

1352 

1 

289 

GOXDSP 

10,2317 

= 

1 369 

GNUTFA75 

37,3524 

862 

2 

860 

862 

GOMARS 

10,2320 

1352 

GOXDSPF 

10,2323 

= 

1369 

13 

281 

1387 

GNUV 

E 7 , 1656 

= 

157 

1 

891 

GOMIOAV 

36,2202 

729 

1 

729 

GOXDSPFR 

10,2345 

= 

1369 

3 

30  5 

307 

GOABORT 

32,3443 

834 

1 

252 

GOMOD 

04,2256 

241 

1 

243 

GOXDSPR 

10,2342 

= 

1 369 

GOAG  I N 

10,3062 

= 

1369 

GOMUVE 

23,2111 

500 

l 

500 

GPMATR I X 

06,3167 

199 

1 

199 

GOAL  MC  YC 

41,2377 

425 

1 

445 

GQNXTBNK 

43,3665 

1289 

3 

1289 

GR ABGRAV 

l 5,2755 

964 

l 

964 

GOANICLE 

10,3161 

1363 

1 

1364 

GOODARG 

21,3410 

1479 

2 

1479 

GRAVEL 

15,2635 

9 62 

1 

962 

GOBAC 

1 3 , 3'5 1 6 

1217 

2 

1217 

GOODEND 

Cl  t il 04 

1325 

4 

256 

1325 

GREED 

15,2750 

964 

1 

964 

GOBACK 

35,3740 

743 

3 

743 

GOODE  P S l 

20,2611 

1486 

1 

1486 

GRP2PC 

24,3770 

1223 

24 

508 

1240 

GOBAQUE 

1 1,2776 

1231 

3 

1233 

1240 

GC0DEPS2 

20,2635 

1487 

1 

1487 

GRP2SVQ 

E 5 , 1 7 1 1 

= 

131 

3 

131 

1224 

GOBB 

4 C 54 

164 

1 

163 

GOODMANU 

22,3234 

381 

l 

375 

GRP40FF 

32,3574 

836 

GOBL  TIME 

E7, I 51 1 

= 

154 

3 

154 

775 

GOODNEG 

20,3002 

1491 

1 

1490 

GSAV 

£4,1621 

12  1 

10 

121 

980 

GOCH56 

17,2115 

1401 

2 

140  1 

GOODRAD 

25, 3246 

572 

GS  CAL  E 

22,3653 

830 

2 

807 

819 

GOCLOSE 

21,3555 

1482 

GOPERFRS 

10, 2717 

1359 

GSCALE1 

33,2636 

881 

1 

879 

GOCUTCFF 

36,3061 

742 

2 

726 

728 

GOPERFS 

10,2637 

1358 

GS  ELECT 

07,3420 

1319 

3 

1318 

GOOSP 

10,2436 

1354 

l 

851 

G0PERF1 

10,2635 

1358 

10 

513 

1332 

GSHIFT 

7642 

1042 

1 

1009 

GODSPALM 

41,2400 

425 

19 

420 

468 

GOPERF 1R 

10,2715 

1359 

GTCTIME 

E 7 , 1 752 

152 

2 

213 

789 

GODS  P R 

10,2444 

1354 

2 

512 

941 

G0PERF2 

10,2642 

1358 

GTMP 

0026 

= 

985 

5 

983 

985 

GODSPRET 

10,2441 

1354 

4 

751 

947 

G0PERF2R 

10,2722 

1359 

1 

489 

GTS 

21,3027 

1470 

l 

1448 

GODSPRS 

10,2651 

1358 

8 

1352 

1359 

GOPERF  4 

10, 2645 

1358 

2 

508 

65  8 

GTSCADR 

17,2653 

1448 

1 

1448 

GODS  P R S 1 

10,2653 

1358 

1 

1354 

G0PERF4R 

10, 2725 

13  59 

2 

925 

973 

GTSFIN 

42,2154 

317 

1 

444 

GODS  PR  l 

10,2445 

1354 

GOPIN 

43,2117 

277 

22 

278 

310 

GTSFINLC 

41,3227 

444 

1 

445 

GOOSP R2 

10,2446 

1354 

2 

1352 

1355 

GOPINNER 

25,3605 

580 

2 

580 

GTSFOUT 

42,2146 

316 

1 

430 

GODS P 2 

10,2437 

1354 

GOPLAY 

10,3102 

= 1370 

I 

1358 

GTSFOUTL 

41,2613 

430 

l 

430 

GOEST IMS 

37,2113 

336 

1 

386 

GOPOODOO 

5661 

1380 

1 

253 

GTSGO+ON 

2 1,3043 

1470 

GOEXTVB 

43,2000 

275 

1 

421 

GOPOOF  IX 

04, 2040 

236 

2 

235 

253 

GTSQAX IS 

21,3063 

1471 

l 

1471 

GOFIND 

24,3640 

767 

1 

766 

GOPOST 

36,3046 

74  1 

2 

726 

727 

GTSQRT 

21,3371 

1479 

1 

1480 

GOFLASH 

10, 24  71 

1355 

43 

236 

975 

GOPROG 

05,2671 

226 

2 

163 

164 

GTSTEMPS 

E6, 1736 

= 

137 

13 

137 

GOFLASHR 

10,2647 

1358 

2 

749 

754 

GOPROG2 

05,2772 

227 

2 

241 

300 

GUESS 

37,2020 

385 

GOFL  ASH2 

10, 2473 

1355 

16 

1352 

1358 

GOPROG  2A 

05,2773 

227 

1 

227 

GUESSBIT 

4743 

= 

70 

GOGOMARK 

10,2400 

1353 

G0PRQG3 

05,2777 

227 

2 

227 

GUESS  W 

0034 

= 

70 

3 

689 

1192 

GOGOPROG 

04,2262 

241 

1 

242 

GOQ 

41,3075 

442 

1 

443 

GUESS  1 

37,2255 

389 

GOINT 

35, 34CC 

680 

2 

673 

GOQTR I MG 

21,3045 

1470 

2 

1470 

1482 

GUI DO URN 

32,3067 

785 

I 

782 

GOITER 

12,3415 

1193 

1 

1193 

GOREADAX 

37,3425 

860 

l 

862 

GUIOINIT 

34,3346 

3 42 

2 

782 

839 
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SYMBOL 
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GUIDSUB 

31,2423 

796 

l 

809 

HIDESCNT 

20, 2002 

45 

1 

1485 

GUILDEN 

31,2436 

797 

HIDPHALF 

23,2502 

= 

38 

6 

498 

12  48 

I BNKC ALL 

4665 

998 

66 

175 

1495 

GUILDRFT 

31,2530 

799 

3 

796 

797 

HI0P1/4 

23,2474 

= 

38 

1 

1280 

IC 

E7, 1655 

= 

149 

6 

772 

775 

GVOETER 

15,2615 

961 

2 

963 

978 

H I ENERGY 

12,3432 

1 194 

1 

1193 

ICDUFA IL 

06,2703 

= 

190 

1 

191 

GWAKE 

07,3361 

1317 

■ 1 

1317 

HIGATASK 

33,2376 

876 

1 

892 

I CORK  2 

43,2222 

281 

GWAKE  2 

07,3321 

1316 

1 

1317 

HIGATCHK 

33,3434 

891 

IDADDTAR 

42,2661 

326 

2 

316 

GYCOARS 

14,3174 

941 

1 

92  8 

HIGATJ08 

33,3561 

894 

1 

876 

IDAD1TEM 

0150 

99 

4 

316 

444 

GYRCDR 

15,3063 

967 

1 

966 

HIGHCR  IT 

E 5 , 1473 

= 

126 

1 

126 

I DA02TEM 

0151 

99 

2 

316 

GYROAGRE 

07,3333 

1316 

l 

1316 

HIGHESTF 

22,3651 

830 

1 

80  7 

I DA03TEM 

0152 

99 

GYROBUSY 

07,3354 

1317 

1 

1316 

HIGH4 

7763 

1096 

3 

1004 

1021 

IDLADR 

32,3435 

821 

1 

816 

GYROCMD 

0047 

= 

94 

8 

■ 185 

1322 

HIGH9 

7765 

1096 

7 

257 

1004 

IDLFADR 

05,3363 

234 

1 

230 

GYROE  X IT 

07,3532 

1321 

1 

1321 

H I M I NC  ON 

42,3407 

437 

1 

437 

IDLEFBIT 

4736 

= 

80 

4 

755 

869 

GYROFRAC 

07,3631 

1323 

2 

1320 

1323 

HINJECT 

32,3645 

838 

1 

842 

IDLEFLAG 

0161 

= 

80 

7 

735 

854 

GYROTR  !M 

15,3020 

966 

1 

972 

HIPRIO 

10,2515 

1355 

1 

1355 

IDLEMASK 

10,3022 

1361 

1 

1365 

HIRTHROT 

4730 

= 

41 

1 

756 

IDLERADR 

16,2156 

1410 

l 

1410 

H 

E4,  1477 

= 

1 19 

8 

119 

1241 

HISCAL AR 

0003 

= 

95 

2 

393 

1024 

IDLERFT1 

10,3314 

1366 

H*GHCR*T 

0131 

= 

127 

2 

790 

HISECON 

42,3406 

437 

1 

436 

I DLESLFP 

10,3542 

1370 

1 

1361 

HAFP  A 1 

E 7 , 1 6C3 

= 

147 

3 

640 

642 

H ITEM  IN 

0123 

= 

98 

3 

449 

IERASTST 

6146 

1003 

1 

1003 

HALF 

4727 

= 

1097 

33 

346 

1508 

HITEMOUT 

1006 

= 

104 

4 

435 

438 

I FAIL  INH 

05,3365 

234 

l 

227 

HALFARG 

E 6, I 746 

= 

137 

4 

1480 

1482 

HI  UN  I TX 

23,2502 

= 

38 

1 

503 

IFAIL JMP 

06,2755 

191 

1 

172 

HALFDP 

12,2004 

= 

1099 

3 

935 

1230 

HI  UN  I TY 

23,2500 

= 

38 

2 

503 

IFAILOK 

07,3221 

1314 

l 

1313 

HALFREV 

22,3242 

695 

2 

695 

HIUNI TZ 

23,2476 

= 

38 

4 

503 

534 

I F L AGC 

13,3 132 

1211 

1 

1212 

HALFSEC 

24,3205 

527 

1 

525 

HI  10 

04,3366 

1337 

1 

1336 

IFLAGP 

13,3107 

1211 

1 

1211 

HANOADR 

17,2622 

1447 

1 

L446 

H I 5 

4341 

476 

10 

167 

1289 

I F LEG AL 

10,2573 

1357 

1 

1357 

HANG2C 

06,207  l 

167 

1 

166 

HI6ZER0S 

23,2504 

= 

38 

17 

311 

1280 

IGC 

E5, 1 741 

= 

128 

5 

128 

1251 

HAPO 

E4, 17C7 

= 

121 

4 

121 

623 

HEIGHT 

25,3657 

618 

IGNALG 

32,2637 

782 

HAPOX 

E4, 1512 

= 

119 

4 

119 

723 

HL  I TE 

4740 

= 

619 

2 

618 

831 

IGNALGRT 

32,3014 

7 84 

HAVEGUES 

1 1,2002 

689 

1 

772 

HLREIFF 

E7 , 1451 

= 

145 

2 

782 

877 

I GNALOOP 

32,2700 

782 

1 

784 

HAVENCRM 

04,3163 

1 186 

1 

1186 

HLRUFFF 

32,3073 

786 

1 

782 

IGNAOSO 

E6, 1412 

134 

1 

735 

HAVEQUOT 

21,3133 

1472 

1 

1472 

HMEAS 

E 7 , 1654 

= 

157 

6 

157 

886 

IGNAOSR 

E 6 , 1 4 1 3 

134 

1 

735 

H8AD 

25,3442 

575 

1 

5 75 

F ME A SDL 

E7, 1776 

= 

159 

2 

213 

576 

IGNFL AG 

0153 

= 

79 

3 

732 

755 

H8EAMNB 

3 3 , 2 0 C 2 

42 

1 

886 

HMSIN 

42,3463 

449 

1 

445 

IGNFLBIT 

4730 

= 

79 

2 

733 

742 

HCALC 

E 7 , 1534 

= 

154 

10 

154 

888 

HMSOUT 

42,3241 

435 

1 

430 

IGNITE 

36,3101 

742 

l 

741 

HCALCLAD 

E 7 , 1707 

= 

157 

3 

157 

897 

HOLD 

0165 

= 

1504 

2 

1502 

IGNITE1 

36,3115 

742 

1 

742 

HCALC 1 

E 7,  1774 

= 

159 

6 

159 

879 

HOLDQ 

E6 , 1744 

= 

138 

2 

1459 

1463 

IGNIT ION 

36,2433 

733 

3 

252 

742 

HOOT D ISP 

E7,  1473 

= 

154 

13 

1 54 

879 

HOLDW 

E5, 1734 

= 

131 

6 

1 152 

1153 

IGNYET? 

36,2425 

733 

1 

733 

HOOT  LAD 

E7,  171 1 

= 

157 

4 

157 

9C2 

HOMEIN 

15,2110 

262 

1 

262 

IGRET 

E 7,  1675 

= 

151 

2 

604 

HEADT JET 

16,3506 

1436 

1 

1436 

HP  ER 

E4 , 1711 

= 

121 

2 

326 

623 

IG  SAME  X 

27,2125 

497 

1 

497 

HF  A I L 

33,3513 

893 

2 

888 

HPERMI N 

E4, 1571 

= 

120 

6 

120 

724 

IMEOI ATE 

01,3622 

1302 

4 

1301 

1304 

HFA1LBIT 

4730 

= 

85 

HPERX 

E4 , 1514 

= 

1 19 

2 

326 

724- 

I MODE  S30 

1277 

1 10 

69 

161 

1329 

HF A I L F LG 

0247 

= 

85 

2 

888 

893 

HRCON 

42,3547 

450 

2 

449 

I MODE  S33 

l 300 

l 10 

48 

168 

1407 

FFLSHBIT 

4744 

= 

87 

3 

618 

831 

HRC0N1 

42,3310 

435 

1 

435 

I MPLBURN 

36,3523 

755 

1 

735 

HF  LS  H F LG 

0263 

= 

87 

2 

888 

893 

HSCAL 

33, 2062 

43 

1 

886 

IMPULRTT 

4734 

= 

71 

2 

735 

757 

HH 

E 6 , 1746 

= 

138 

15 

1462 

1465 

H S T I LB  AD 

25, 3443 

575 

1 

575 

IMPULSW 

0044 

= 

71 

5 

755 

769 

HIASCENT 

E6, 1400 

134 

4 

223 

1485 

HUGEQUOT 

21,3130 

1472 

l 

1471 

IMUATTCK 

43,2702 

293 

1 

275 
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H 
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IMU8ACK 

37,2005 

385 

INCORIB 

23,2606 

1148 

1 

1148 

IN JTARG 

32,3516 

835 

1 

837 

IMUBAD 

07,3656 

1324 

4 

175 

1324 

INC0R1C 

23,2614 

1148 

2 

1148 

INLINK 

0045 

= 

94 

2 

233 

1336 

IMUCADR 

1301 

= 

1 10 

4 

220 

1324 

INC0R2 

23,2655 

1149 

2 

1 149 

1156 

INLtJNCHK 

1 1,3333 

1236 

1 

1237 

IMUCACE 

06,2565 

184 

1 

191 

INC0R2AB 

23,2705 

1150 

l 

1 150 

INREL 

0137 

= 

99 

24 

412 

417 

iMuchk 

15,3634 

981 

2 

947 

973 

INC0R3 

23, 271 1 

1150 

1 

1150 

INREL  TAB 

40,2317 

413 

2 

413 

416 

IMUCOARK 

43,2213 

281 

1 

280 

I NCR 

01,2412 

1086 

l 

1010 

INT-ABRT 

11,3021 

1231 

l 

1231 

IMUCOARS 

07,2765 

1309 

4 

231 

949 

I NCRDCDU 

22,3035 

377 

2 

378 

379 

INT/W 

13,3571 

1219 

2 

1218 

IMUCOARV 

43,2234 

281 

2 

281 

282 

INDEP 

E5 , 1765 

= 

130 

4 

1 180 

1 181 

INTADR 

13,2357 

713 

l 

712 

IMUCOMP 

06,2000 

= 

30 

1 

338 

INDERASE 

6227 

1004 

1 

1004 

INTBANK 

13,3100 

12  10 

l 

1210 

IMUFA  IL 

06,2703 

= 

190 

1 

191 

INOEX 

6167 

1004 

1 

1002 

INTBI TAB 

13,3521 

1217 

2 

1216 

1217 

I MUF I NE 

07,3175 

13  13 

4 

285 

1328 

INDEXES 

17, 3134 

1453 

3 

1452 

INTBI T15 

0115 

93 

6 

98 

1004 

I MUF INED 

07,3217 

1313 

2 

1313 

1318 

I NOE  X I 

23,3755 

1261 

1 

1260 

INTBI 5+ 

0114 

98 

5 

98 

1504 

IMUF I NEK 

43,2344 

285 

1 

275 

INDEXLOC 

0130 

= 

98 

12 

1004 

1087 

INTEGRV 

13,3172 

1213 

13 

247 

1221 

I MUF I NEV 

43,2374 

285 

1 

285 

INDEX2 

6205 

1004 

1 

1004 

INTEGRVS 

13,3145 

1212 

7 

659 

784 

IMUF I N20 

07,3175 

= 

1328 

INDJUMP 

6315 

1009 

6 

1003 

1006 

INTEGRVl 

13,3174 

1213 

2 

121  1 

IMUGOOD 

07,3640 

1324 

INOWORK 

6225 

1004 

1 

1004 

INTEGRV? 

13,3177 

1213 

1 

1241 

IMUMON 

06,2  172 

171 

2 

169 

INDXYZ 

16,3573 

= 

1438 

1 

142  7 

INTEX IT 

13,3263 

1214 

3 

1215 

1216 

I MUD  P 

06,2622 

186 

1 

191 

I NERCUNA 

20, 3023 

1491 

L 

I486 

INTFL AG 

0227 

= 

84 

IMU0P2 

06,2643 

1 86 

1 

186 

I NERCONB 

20,3041 

1491 

1 

1486 

INTFLBIT 

4727 

= 

84 

3 

226 

1217 

IMUPULSF 

07, 3310 

1316 

7 

285 

1397 

I NERCONC 

20, 3042 

1491 

1 

1486 

INTGRATE 

11,3370 

1236 

2 

1236 

1237 

IMUSE 

OOC  7 

, = 

68 

7 

243 

1332 

INFINAPO 

12,3747 

1198 

2 

1198 

INTGRCAL 

25,3642 

604 

7 

595 

603 

IMUSE.B  I T 

4735 

= 

68 

3 

175 

220 

INFINB  IT 

4736 

= 

81 

INTIME 

E 7 , 1 607 

= 

148 

5 

666 

692 

IMUSEFLG 

4735 

= 

1328 

1 

186 

INFINFLG 

0200 

= 

81 

4 

1 184 

1193 

INTINIT 

13,2000 

= 

31 

5 

48 

1220 

I MUS  L L LG 

37,2315 

390 

3 

3 86 

400 

INFINI TY 

12,3205 

1 190 

5 

1187 

1190 

INTINT 

35,3404 

680 

6 

628 

678 

I MUST  ALL 

07,3735 

1327 

12 

220 

967 

inflight 

23,2000 

= 

33 

2 

336 

1246 

INTINT2C 

34,3062 

650 

2 

642 

643 

IMUSUPER 

37, 2000 

= 

37 

1 

302 

INGTS 

E6, 1632 

= 

139 

8 

1409 

1502 

INTINT3P 

34,3071 

650 

2 

633 

IMUVAP 

26,3434 

607 

2 

601 

602 

IN  INDEX 

E 6 , 1743 

= 

137 

5 

1479 

1480 

INTLOOP 

35,2522 

665 

1 

665 

I MUZ  F RO 

07,2701 

1307 

3 

220 

390 

I N I TAB  I T 

4743 

= 

82 

2 

969 

970 

INTLZE 

2 1,2644 

903 

1 

903 

IMUZEROA 

07,2711 

1307 

l 

1307 

INITALGN 

0205 

= 

82 

4 

969 

978 

INTMCTBS 

41,2143 

421 

2 

420 

IMUZEROK 

43,2131 

278 

1 

278 

INITBY 

15,3145 

969 

1 

969 

I N TOT  HIS 

13,2320 

713 

IMUZER02 

07,2744 

1308 

1 

130/ 

INITCDUW 

30,3063 

907 

2 

729 

834 

INTPR  ET 

6060 

1000 

237 

219 

1389 

I MUZ EP 03 

07,2753 

1308 

INITOSP 

10,3051 

1362 

1 

1 300 

INTPKETX 

31  ,3675 

827 

3 

804 

808 

IMUZERR 

37,2325 

390 

1 

385 

INITREAD 

25,3076 

569 

6 

569 

INTPRET1 

23,2000 

= 

33 

l 

1098 

I MU2 

37,2000 

= 

37 

2 

46 

385 

INITST 

34,2061 

638 

2 

639 

645 

INTPRET2 

12,2000 

= 

31 

1 

1099 

IMU4 

37,2000 

= 

37 

1 

395 

INITV 

12,3516 

1 195 

3 

1193 

1194 

INTRSM 

6071 

1000 

1 

1108 

I M30  I N I F 

05,3377 

234 

1 

223 

INITVEL 

11,2000 

689 

2 

677 

762 

INTST ALL 

13,3447 

1216 

38 

240 

1389 

IM30INIR 

05, 34C0 

234 

1 

227 

INITVELX 

11,2260 

693 

1 

693 

INTVAL 

37,3065 

401 

2 

395 

397 

IM331NIT 

5017 

= 

234 

2 

224 

233 

INITVEL1 

11,2026 

689 

1 

689 

INTVEC 

E 5 , 1462 

= 

L 33 

INBOUND 

27,3553 

1275 

1 

1274 

INITVEL2 

1 1 ,2062 

690 

1 

692 

INTVFL 

11,2000 

= 

30 

1 

689 

i'ncaz 

15,2430 

955 

1 

95  7 

INITVEL3 

11,2105 

690 

2 

690 

INTWAKE 

13,3460 

1217 

4 

310 

1214 

INCORPEX 

E 7 , 1674 

= 

150 

5 

150 

1134 

INITVEL4 

11,2137 

691 

1 

691 

IN  TWAK  EC 

04,3220 

1223 

1 

1223 

INC0RP1 

23,2514 

1147 

1 

606 

IN  I TVEL5 

11,2166 

692 

1 

692 

INTWAKEM 

04,3215 

1223 

l 

1222 

INC0RP2 

23,2726 

1151 

1 

606 

INITVEL6 

11,2230 

692 

l 

692 

I NTWAKEU 

04,3 172 

1222 

1 

1391 

INCUR  1 

23,2550 

1148 

1 

1148 

IN ITVEL7 

11,2233 

692 

1 

691 

I N TWA  KE  X 

04,3232 

1223 

I 

1223 

I NCO R l A 

23,2557 

1148 

l 

1148 

INITWMX6 

26,3237 

603 

1 

603 

INTWAKEO 

13,3456 

12  16 

3 

510 

1223 
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SYMBOL 

DEF 

H 
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SYMBOL 

DEF 

H 
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INTWAKE1 

13,3500 

1217 

3 

1217 

I TR  1 2 

6155 

1003 

JSWCHBI T 

A727 

= 

67 

I NTWAKLM 

J A , 3 230 

1223 

1 

1223 

ITR13 

6 2 3 A 

1005 

1 

1 OOA 

JSWITCH 

0001 

= 

67 

5 

1236 

12A1 

I NTwAKUP 

0A.32A1 

1223 

1 

1222 

I TR  1 A 

6260 

1006 

JTLST 

1 7 , 3 1 A3 

1 A 5 A 

2 

1 A3  5 

1A53 

INTY 

E 5 , 1 A 70 

= 

132 

6 

397 

398 

ITR15 

6 1 AA 

1003 

JUMPD  SP 

16,221 2 

1 A 1 l 

1 

1 A0  7 

INTYP8IT 

A 7 A 1 

= 

73 

I TR 7 

6302 

1007 

JUSTDUT 

16,3152 

l A3 1 

l 

IA32 

INTYPFLG 

0070 

= 

73 

20 

508 

1221 

ITSAJOB 

01,3637 

1302 

1 

1301 

JUSTTR  IM 

15,3053 

966 

1 

970 

INTZ 

E 5 , 1 A 7 A 

= 

132 

I TSAJ0B2 

01,3750 

1305 

1 

1303 

J1PAR  M 

F 5 , 15A5 

= 

126 

2 

126 

836 

INVERT 

20, 3656 

1502 

A 

1A96 

1502 

I TSATBL 

01,3653 

1302 

l 

1300 

J2PARM 

E5, 1551 

= 

126 

2 

126 

836 

INVFL  AG 

36, 26AA 

738 

l 

737 

ITSAVAR 

01,3553 

13  00 

1 

1300 

J2REQSQ 

13,2022 

A8 

1 

1233 

INVRSEQN 

12, 3 127 

1109 

1 

1189 

ITS  AH  A I T 

01,3572 

1301 

1 

1301 

JARE0/J3 

13,2012 

A8 

2 

1233 

IRETURN 

EA, 1501 

= 

119 

8 

1 19 

1 2 1 A 

I TSEVEN 

01.375A 

1305 

1 

130  2 

IRETURN1 

E7.17AA 

1 A9 

5 

1220 

1222 

ITSINDIR 

5AA0 

1301 

1 

1301 

K.01 

2 A , 36  32 

660 

1 

660 

IRIGCCMP 

06.3A00 

3A0 

I TSLGCL1 

5 AA7 

1303 

2 

1303 

130A 

K(  AT) 

32,3651 

838 

1 

835 

IRIGX 

06.3A26 

3 A 1 

2 

3 AO 

3A6 

I TSLGCL2 

01,3711 

1 30A 

1 

1 30A 

K ( 1/D V ) 

27 , 20 1 A 

AO 

1 

835 

IRIGY 

06, 3AA3 

3 A 1 

2 

3 AO 

3 46 

ITSLIKEB 

C1.362A 

1302 

1 

1300 

K ALCMAN3 

22.200A 

363 

1 

1328 

IRIGZ  ' 

06.3A60 

3 A 1 

2 

3 AO 

3 A 7 

I TSLNGCL 

01,3736 

1 3 OA 

l 

1300 

KALCM0N1 

22,2000 

= 

33 

A 

363 

377 

IR1GI 

06.3A23 

3 AO 

3 

338 

3A9 

ITSNOVAC 

01, 36A7 

1302 

1 

1302 

KALCM0N2 

22,2000 

= 

33 

1 

368 

I SCADR+O 

A 2 1 1 

A 70 

2 

A 70 

A 79 

ITSWB  IT 

A726 

= 

79 

KALEBCON 

2 1,3006 

1328 

1 

1328 

ISI I AUTO 

26.227A 

A91 

1 

377 

I TSWICH 

0151 

= 

79 

5 

633 

670 

KAOS 

16,2627 

1 A25 

ISITNOO 

10,3175 

1 36A 

1 

136A 

ITSWTLST 

01.37A3 

130A 

1 

1303 

KCENTRAI 

E6 , 1 7A0 

= 

137 

8 

IA71 

1A73 

I S IT  P R 10 

10,3260 

1365 

2 

1366 

I TURNON 

06,2533 

182 

1 

191 

KDPNDX 

E6, 1701 

= 

1 AO 

3 

1 AO 

379 

I SLI ST+O 

A 2 1 5 

A70 

2 

A 70 

A79 

I TURN0N2 

06,2556 

183 

2 

182 

186 

KEEP-2 

E7, 1560 

= 

156 

1 

156 

I SSERVCN 

OA.2127 

239 

l 

238 

KEEPPR ID 

10, 2 5 AA 

1356 

2 

1362 

1366 

ISSUP 

06,2321 

175 

JACCUV 

20.26A7 

1A87 

1 

1 A86 

KEEPVR 

3A.3A51 

853 

1 

853 

ISSWOFF 

06,2716 

189 

J AMPROC 

A23  A 

A 70 

KEEPVR  l 

3A.3A53 

853 

1 

852 

ISSWON 

06,2726 

190 

1 

189 

JAMTERM 

A22  2 

A 70 

1 

1365 

KEL 

EA, 1621 

= 

121 

12 

372 

A97 

ISSZERO 

06,2361 

176 

1 

1 8 A 

JAPFG* 

E5, l A AA 

= 

125 

1 

125 

KEPCONVG 

12,2333 

l 176 

3 

1 17  A 

1175 

I SWCALL 

A 6 7 1 

998 

JBRFG* 

E5 , 1 AA  2 

= 

125 

2 

125 

829 

KEPC1 

00A2 

= 

1199 

3 

1 172 

1188 

ISWRETRN 

A 700 

998 

2 

577 

756 

JCG2TTF 

E 5 , 1 AA2 

= 

829 

1 

80  A 

KFPC2 

OOAA 

= 

1199 

3 

1172 

1188 

I TCTR 

E 7, 16 16 

= 

1A8 

A 

689 

692 

JETRATE 

E6 , l 7A A 

= 

137 

5 

137 

1 A23 

KEPLERN 

12,2023 

1 172 

2 

1226 

ITEMP  L 

0061 

97 

69 

5 7 

1 A 1 A 

JETRATEQ 

E6, 1 7A5 

= 

137 

3 

1A21 

1 A69 

KEPLOOP 

12,2166 

l 1 7 A 

1 

1175 

ITEMP2 

0062 

97 

36 

97 

1 A78 

JETRATER 

E6 , 1 7A6 

= 

137 

3 

1A21 

1 A69 

KEPPREP 

1 1 , 2 A03 

1225 

3 

1 2 1 A 

1231 

ITEMP3 

0063 

97 

25 

97 

1 A76 

JETSALL 

16,3555 

1 A38 

1 

1 A38 

KEPRTN 

EA,  1511 

= 

119 

3 

1 176 

1226 

I TEMP  A 

006A 

97 

1A 

97 

1323 

JETSOFF 

16, 3AA3 

1 A35 

7 

1 A29 

1A38 

KEPZERO 

12,2006 

= 

1183 

3 

1173 

1197 

ITEMP5 

0065 

97 

9 

97 

1297 

JETSON 

17.3A35 

1 A61 

KEYCOM 

0 A , 3 266 

1335 

I TEMP6 

0066 

97 

7 

190 

1 A76 

JOBSLEEP 

5 12A 

1103 

8 

386 

137A 

KEYRPTBB 

A060 

16A 

2 

163 

1 6 A 

ITERATOR 

12,2536 

1180 

1 

1 193 

J0BSLP1 

01, 3002 

1108 

1 

1103 

KEYRUPT 

0 A, 2000 

= 

29 

1 

1335 

I TERCTR 

0026 

= 

1201 

A 

691 

1181 

J0BSLP2 

01,3013 

1108 

1 

1110 

KE YRUPT1 

0 A , 3 2 5 7 

1335 

2 

163 

16A 

I T ISM  ASK 

10, 33C6 

1366 

1 

1365 

JOBWAKE 

5130 

1103 

1A 

38  A 

1375 

KEYTEMP1 

0073 

= 

97 

7 

16  A 

1337 

I TRPNT  1 

3 2 , 3 26 A 

818 

J0BWAKE2 

01, 3027 

1109 

1 

1 103 

KEYTFMP2 

0332 

= 

101 

2 

1336 

I TRPNT2 

32.3A21 

820 

J0BWAKE3 

01, 30A1 

1109 

2 

1 109 

K I GNV/BA 

E 5 , 1 A70 

= 

126 

2 

126 

783 

ITRO 

6A11 

1012 

JOBWAKEA 

01,3033 

1109 

1 

1 109 

KIGNX/BA 

E 5 , 1 A6A 

= 

125 

3 

126 

783 

I TRL 

6A00 

10  12 

JOBXCHS 

10,3006 

1361 

2 

1356 

KIGNY/B8 

E 5 , 1 A66 

= 

126 

2 

126 

783 

I TRIO 

6163 

1003 

JOIN 

10,3562 

1371 

1 

1371 

KILCLOCK 

35,3561 

683 

2 

68  3 

6 8 A 

ITR1  1 

6223 

100A 

JPARM 

E5, 1571 

= 

127 

3 

127 

856 

KILLAOT 

07,2053 

256 

6 

257 

272 
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KILLBB 

6057 

745 

l 

745 

LANAKPIP 

21, 2000 

44 

3 

896 

LEFTNCOM 

40,3205 

448 

1 

448 

KILLCLOK 

36,2732 

739 

1 

739 

land 

E7 , 1634 

= 

156 

18 

156 

886 

LEFT5 

4322 

475 

5 

427 

1289 

KILLUFAD 

27,2242 

746 

1 

746 

LANDALT 

E5, 1712 

= 

128 

3 

329 

930 

LEGAL  ? 

21,2150 

837 

2 

832 

KILLMCN 

41 ,3366 

453 

2 

453 

LANDCNST 

22,2000 

= 

33 

1 

830 

LEGAL  TST 

40,2516 

416 

2 

416 

K ILL  TASK 

6C50 

745 

12 

239 

741 

LAND  JUNK 

34, 3271 

787 

1 

245 

LEMALONF 

01,2277 

307 

1 

307 

KILLTSK2 

27,2200 

745 

2 

745 

landlat 

E5 , 1706 

= 

128 

4 

128 

930 

LEMCON 10 

13,3136 

1211 

5 

351 

951 

KILL2 

04,2312 

242 

3 

242 

243 

LANDLONG 

E 5 , 1710 

= 

128 

4 

128 

930 

LEMGFOM 

13,2000 

= 

31 

l 

332 

K I LMCNON 

4 1(5 

469 

4 

461 

484 

LANDRAD 

25,3207 

571 

lemmass 

1326 

1 10 

22 

161 

1493 

KLEENEX 

10,2322 

L 3 52 

LANDTEMP 

F7 , 1544 

= 

156 

7 

156 

803 

LFMONM 

0056 

= 

95 

KONMA  T 

05,2001 

53 

5 

.933 

985 

LARGE 

00, 3065 

1068 

1 

1068 

LEMPREC 

13,3115 

1211 

1 1 

38 

974 

KPARM 

65,1573 

= 

12  7 

2 

127 

855 

LARGE  2 

00,3112 

1070 

2 

106  8 

1069 

lemstorf 

23,2417 

700 

1 

700 

KPIP 

33,2072 

43 

l 

8 64 

LARGE  3 

00,3074 

1070 

1 

1068 

LEMVFC 

43,3044 

301 

l 

276 

KPIP1 

33, 2C  73 

43 

4 

813 

882 

LARMENT 

5603 

1378 

1 

1381 

LENGTHOT 

F5, 1412 

= 

132 

9 

132 

400 

KP  IP2 

3.3,2075 

43 

1 

884 

LASINEX 

00,3631 

1082 

1 

1082 

LFSCHK 

05,3367 

234 

1 

233 

KQ 

E 6 , 1504 

137 

4 

137 

1488 

LAST 

16,3326 

1 433 

2 

1433 

lftabbit 

4734 

= 

83 

3 

734 

837 

KRDAP 

E 6 , 1506 

= 

137 

1 

1438 

LAST8I AS 

06,3733 

348 

1 

860 

LETABORT 

0215 

= 

83 

3 

787 

855 

KSPNDX 

E6, 1700 

= 

140 

6 

140 

3 79 

L ASTCHG 

17,3174 

1455 

1 

1455 

LETITLIV 

27,2221 

746 

1 

746 

KT 

67,1575 

= 

147 

3 

669 

LASTLRDT 

25,3555 

580 

1 

579 

LGCLCADR 

01,3774 

1305 

1 

1304 

K10RK  2 

34,2542 

644 

1 

644 

LASTSEG 

07,3515 

1321 

l 

1322 

LGCL2CDR 

5311 

1129 

1 

1129 

K IPARM 

E5, 1547 

= 

126 

1 

126 

LASTTIME 

01,3504 

1130 

LGCDMP 

06,3601 

345 

3 

338 

348 

K1  VAL 

27,2000 

39 

1 

768 

LASTTP  IP 

F 7 , 1757 

= 

158 

4 

158 

819 

LCCUPDTF 

26,3400 

606 

4 

59  7 

602 

K 2 . 

34,256  1 

644 

1 

644 

L AST  XCMD 

0113 

= 

98 

7 

209 

546 

LGRET 

E7, 1675 

151 

5 

151 

606 

K2CNTRAL 

E6, 1 741 

= 

137 

22 

1472 

1481 

LAST  YCMD 

0 112 

= 

98 

10 

98 

551 

LGWAKE 

07,3371 

1317 

3 

1317 

1324 

K2PARM 

E5, 1553 

= 

126 

1 

126 

LAT 

1117 

= 

107 

8 

107 

1133 

LGYRO 

1311 

l 10 

10 

233 

1324 

K2THF  TA 

E6, 1 736 

= 

137 

12 

1471 

1481 

L AT-LONG 

13,2406 

1131 

3 

660 

930 

LGYROBIN 

43,2372 

285 

1 

285 

K2VAI. 

27,200 2 

39 

1 

769 

LATAZCHK 

37,2021 

385 

L I GHT SET 

05,3070 

229 

2 

226 

227 

K3S1 

22,2370 

3 69 

LATITUDE 

E5 , 1402 

= 

132 

6 

132 

392 

L IMI-22) 

27,3761 

1280 

l 

1275 

K3VAL 

27,2004 

39 

1 

769 

LATLONG 

13,2000 

= 

31 

1 

1131 

LIMALARM 

26,3674 

613 

2 

61  1 

K4 

22, 2372 

369 

LATVEL 

0072 

= 

158 

7 

900 

902 

L IMITCOM 

42,3345 

436 

l 

436 

K4SQ 

22,2374 

369 

LATVMETR 

E7 , 1732 

= 

158 

6 

158 

903 

LIMITS 

4725 

= 

1093 

10 

920 

1471 

LATVOUT 

21,2500 

900 

1 

900 

L I MIT  SUB 

30,3713 

921 

10 

815 

916 

L 

0001 

= 

94 

3 30 

95 

1507 

LAXI  S 

E4 , 1673 

= 

124 

5 

124 

853 

L INRAT 

l 7,2373 

1444 

2 

1444 

1445 

L*WCR*T 

0 130 

= 

127 

2 

790 

LBUF2 

00,2470 

1057 

2 

1081 

1083 

L I NR  A TP 

16,3131 

143  1 

1 

1432 

L.PVT-CG 

E6, 1527 

138 

1 

1483 

LCHAN 

0001 

= 

95 

16 

168 

1435 

LINUS 

5466 

= 

1370 

1 

490 

LADL  IM  IT 

21,2673 

904 

4 

899 

900 

LDANZ IG 

00,3713 

1083 

1 

1082 

L INUSCHR 

10,3402 

1367 

2 

1355 

1357 

LAG/TAU 

E5, 1537 

= 

126 

2 

126 

820 

LDLOOP  72 

04,3675 

1391 

1 

1391 

LI TEOK 

06,3025 

192 

2 

191 

192 

LAGSL 1ST 

4744 

= 

221 

1 

220 

LONDUMP 

05,3734 

995 

1 

995 

L I TESWCH 

06,3017 

191 

1 

192 

LALUTCRV 

13,2457 

1133 

1 

930 

LONDUMPI 

43, 3043 

3 00 

l 

300 

L I T IT 

25,3673 

618 

1 

618 

LAMBERT 

12,3212 

1191 

1 

691 

L DNDUMP1 

05,3735 

995 

1 

995 

l MAGS  1 02 

05,2116 

= 

216 

1 

216 

LAMBLOOP 

12,3330 

1192 

3 

1193 

1195 

LDNPHAS1 

05,3366 

2 34 

1 

230 

LM AGS  I 03 

05,2125 

= 

216 

1 

216 

LAMENTFK 

12,2701 

1182 

l 

1195 

L0NPHAS2 

05,3654 

992 

1 

989 

LMAGS 104 

05,2134 

= 

216 

1 

216 

LAMPBTST 

06,3032 

192 

1 

191 

LOPOSMAX 

12,2017 

= 

1199 

1 

1 198 

LMAGS 105 

05,2140 

= 

216 

1 

216 

LAMPTEST 

06,2766 

191 

3 

180 

192 

LEADTIME 

E7 , 1426 

144 

1 

805 

LMCST  A01 

05,2107 

= 

208 

l 

208 

LANADEND 

21,2512 

900 

2 

903 

LEFT 

00,2342 

1054 

1 

1051 

LMCST  A02 

05,2116 

- 

208 

1 

208 

LANAU  ISP 

2 1, 2 170 

895 

5 

831 

832 

LEFT- 

00,2336 

1054 

1 

1051 

LMCST A03 

05,2  125 

= 

208 

1 

208 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

LMCSTA04 

05,2134 

= 

208 

1 

208 

LMSAL05 

05, 2207 

= 

214 

1 

214 

LOOKANGL 

E7, 1667 

= 

157 

1 

804 

LMCSTA05 

05.22C7 

208 

3 

208 

2 14 

LMTRAP 

E6, 1406 

134 

2 

223 

1423 

LOOPCT 

E7, 1605 

= 

147 

5 

639 

647 

LMCSTAC6 

05,2213 

208 

2 

211 

2 13 

LMVEL 

E4 , 1750 

123 

3 

516 

583 

LDOPER 

17,3034 

1452 

3 

1447 

1453 

LMCSTAC7 

05,2215 

209 

2 

20  3 

2 15 

LNCHTM 

E7, 1660 

= 

155 

3 

155 

510 

LOOPMX 

34,2057 

638 

1 

639 

LMCSTA 10 

05,2144 

= 

209 

1 

208 

LNGCALL2 

01,3455 

1129 

1 

1129 

LOOPR ATE 

16,3671 

1468 

2 

1468 

1469 

LMDSASC2 

05,2116 

= 

2 12 

1 

212 

LCADDAP 

20,2000 

= 

32 

1 

30  4 

LOOPS  IN 

22,2417 

369 

1 

370 

LMDSAS03 

05,2125 

= 

2 12 

1. 

212 

L0ADDAP1 

01,2000 

= 

29 

2 

45 

306 

LOOP  1 

23,3710 

1261 

1 

1260 

LMDSAS04 

05,2134 

= 

212 

1 

212 

LOADI T IS 

10, 3467 

1369 

I 

1366 

L00P2 

23,3707 

1260 

1 

1261 

LMDSAS05 

05,2140 

= 

212 

1 

212 

LOADLV 

41,3045 

442 

10 

419 

450 

LOOSE 

37,2730 

398 

I 

399 

LMDSAS06 

05,2151 

= 

212 

1 

212 

L0ADLV1 

41,2021 

419 

1 

286 

LOSCALAR 

0004 

= 

95 

6 

393 

1452 

LMDSAS07 

05,2340 

2 13 

1 

212 

LOADSTAT 

1013 

104 

4 

442 

473 

LPSCMBIT 

4731 

= 

71 

1 

568 

LMDS A SOB 

05,2347 

213 

l 

212 

LOADTIME 

10,3603 

13  94 

38 

219 

1221 

LOSCMFLG 

0041 

= 

71 

8 

511 

533 

LMDSAS09 

05,2213 

= 

213 

1 

212 

LC A SC  ENT 

20, 2001 

45 

1 

1485 

LOSCOUNT 

E7 , 1456 

145 

33 

157 

618 

LMINT 

24,3346 

583 

1 

583 

LOC 

0164 

101 

46 

383 

1370 

LOSDESRD 

E7, 1711 

= 

150 

6 

150 

612 

LMKACSN 

E6, 1410 

134 

1 

224 

LCCCTR 

0064 

= 

97 

31 

384 

1365 

LOSVEC 

E5, 1413 

= 

132 

3 

132 

399 

LMLSAL01 

05,2  1C7 

= 

214 

1 

214 

LOCKANGL 

22,2402 

369 

1 

363 

LOSVEL 

E 3 , 1756 

l 17 

5 

117 

610 

LMLSAL02 

05,2116 

= 

214 

1 

214 

LOC  SAM 

14,2515 

932 

3 

93  2 

960 

LOS  1 

E 5 , 1444 

= 

132 

LMLSAL03 

05,2125 

= 

214 

1 

214 

LOC  SK  l R T 

22,2744 

= 

376 

7 

365 

367 

L0S2 

E 5 , 1452 

= 

132 

LMLSAL04 

05,2134 

= 

214 

1 

214 

LODESCNT 

20,2003 

45 

1 

1485 

LOTFMIN 

0124 

= 

98 

LMLSAL06 

05,2151 

= 

214 

l 

214 

LODMI XNN 

42,2126 

316 

1 

316 

LOTFMOUT 

1007 

= 

104 

1 

43  7 

LMLSAL07 

.05 , 24C 7 

2 14 

1 

214 

LODNLV 

42,2144 

3 16 

1 

316 

LOTHRUST 

33,2274 

866 

1 

866 

LMLSALC8 

05,2215 

= 

215 

1 

214 

LODNNLOC 

41,2140 

421 

8 

420 

441 

LOUNI TX 

12,2004 

= 

38 

LMLSAL09 

05,2145 

= 

215 

1 

214 

LODNNTAB 

42,2110 

316 

1 

421 

LOUNITY 

12,2002 

= 

38 

LMOMFGAN 

E 6 , 1 4C  7 

134 

2 

224 

1423 

lodphaLf 

12,2004 

= 

38 

3 

334 

1197 

LOUNI TZ 

12,2000 

= 

38 

LMONLY 

16,2466 

1423 

1 

1423 

LQDPMAX 

12,2017 

1099 

3 

38 

1199 

LOUPE 

21,3551 

1482 

l 

1481 

LMOONBIT 

4732 

= 

81 

L0DPMAX1 

12,2021 

1099 

1 

38 

LOWCR  IT 

E5, 1472 

= 

126 

3 

126 

790 

LMOONFLG 

0174 

= 

81 

5 

38 

12C9 

L0DP1/4 

04,3037 

= 

38 

1 

1135 

LOWFC  OLD 

31,2236 

790 

1 

790 

LM0RBMC1 

05 , 2 1 C 7 

205 

4 

205 

214 

LODSAMPT 

4371 

477 

3 

453 

1336 

LOW  I DCOD 

05,2045 

204 

1 

99  5 

LMORBM02 

05,2116 

205 

6 

205 

216 

LOENERGY 

12, 3452 

1194 

1 

1193 

LOWLOAO 

10,3534 

1370 

L 

1366 

LMORBM03 

05,2125 

206 

6 

205 

216 

LOGSUB 

30,3015 

859 

1 

348 

LOWSUPFR 

30,2000 

= 

35 

8 

221 

658 

LM0RBMC4 

05,2134 

206 

6 

205 

2 16 

LOKONBI T 

4740 

= 

68 

l 

567 

LOWVERB 

41,2061 

420 

1 

420 

LM0R8M05 

05,2140 

206 

3 

205 

216 

LOKONSW 

0012 

= 

68 

5 

284 

527 

L0W10 

5003 

1095 

21 

244 

1288 

LM0RBM06 

05, 2151 

206 

3 

205 

214 

LOLIM 

12,3513 

1195 

2 

1192 

L0W11 

4347 

476 

7 

166 

1012 

LMORBM09 

05, 2 145 

206 

1 

215 

LOMAT 

35, 3365 

680 

2 

677 

678 

L0W2 

6266 

= 

1097 

1 

1051 

LM0R3  10 

05,2144 

206 

2 

209 

211 

LONG 

1121 

= 

107 

7 

107 

1133 

L0W3 

4 750 

= 

1097 

2 

243 

1048 

LMPOS 

E4 , 1742 

123 

3 

516 

583 

L0NG3ASE 

1150 

107 

2 

1298 

1304 

L0W4 

4753 

1093 

3 

740 

1372 

LMREND01 

05, 2 1C  7 

= 

210 

1 

210 

LONGCAOR 

1146 

107 

2 

1 129 

1130 

L0W5 

4337 

476 

16 

41  1 

1336 

LMREND02 

05,2116 

= 

210 

l 

210 

LONGCALL 

5301 

1128 

5 

386 

1305 

L0W7 

6115 

1001 

14 

239 

1369 

LMREND03 

05,2125 

= 

210 

1 

210 

LONGCLCL 

01,3731 

13  04 

2 

1304 

LOW7+2K 

5004 

1095 

1 

1007 

LMRENDC4 

05,2134 

= 

211 

1 

210 

LCNGCYCL 

01,3471 

1129 

2 

1 129 

1130 

L0W8 

4350 

476 

21 

202 

1391 

LMRENDC5 

05.22C7 

= 

211 

1 

210 

LONGEX I T 

E3,  1434 

114 

4 

1 129 

1130 

L0W9 

4775 

1094 

14 

223 

1111 

LMREND06 

05,2213 

= 

211 

1 

210 

LONGGYRO 

07,3552 

1321 

1 

1320 

L06ZFR0S 

12,2006 

= 

38 

5 

259 

1183 

LMREND07 

05,2265 

211 

1 

210 

LONGPOOH 

01,3523 

1130 

2 

1 129 

•LPS20. 1 

24,3337 

583 

5 

511 

590 

LMRENDG8 

05,2275 

211 

l 

210 

LONGRTRN 

01,3510 

1130 

1 

1130 

LPS20 . 2 

25,3626 

585 

1 

511 

LMREND10 

05,2144 

= 

211 

1 

210 

LONGTIME 

1152 

107 

13 

1128 

1304 

LP2ALM 

25,3574 

5 80 

l 

580 
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SYMBOL 

OEF 

H 

REFERENCES 

SYM80L 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

lralt 

25,3C62 

569 

1 

506 

LRWHl 

1315 

= 

1 10 

1 

799 

M/SNORM 

42,3353 

436 

7 

436 

437 

LRALT6IT 

4790 

= 

88 

1 

618 

LRWVFF 

E5 , 1521 

= 

126 

2 

126 

891 

M/SOUT 

42,3314 

436 

1 

430 

LRALTFLG 

0276 

= 

88 

LRWVFX 

E5,  1520 

= 

126 

1 

126 

MAGSUB 

4503 

537 

9 

539 

560 

LRBYB I T 

4726 

= 

85 

8 ' 

230 

377 

LRWVFY 

E5, 1517 

= 

126 

1 

126 

MAGVEC2 

E 5 , 1717 

= 

130 

6 

130 

1195 

LRBYPASS 

0245 

= 

85 

l 

781 

LRWVFZ 

E5,  1516 

= 

126 

2 

126 

891 

MAINENG 

30,2424 

847 

i 

847 

LRESC 

20,2673 

1487 

1 

1436 

LRWVX 

E5 , 1515 

= 

126 

1 

126 

MA INL  INF 

30,2705 

851 

2 

852 

LR  HE  I GHT 

25, 3267 

573 

l 

5 72 

LRWVY 

E5,  1514 

= 

126 

1 

126 

MAJ  + 

07,3454 

1320 

1 

1319 

LRHMAX 

E 7 , 1420 

144 

2 

883 

LRWVZ 

E5,  1513 

= 

126 

2 

126 

891 

MAJ- 

07,3611 

1323 

1 

1319 

LR  INH 

0254 

= 

86 

3 

284 

877 

LSDISP 

14,2471 

930 

l 

930 

MAKEACCS 

37,3514 

862 

2 

86  l 

862 

LR  INHP  IT 

4 735 

= 

86 

3 

81 1 

890 

L SOR I E NT 

C4, 3014 

981 

2 

929 

974 

MAKEC ADR 

4636 

997 

15 

233 

1484 

LRLCTR 

E 7 , 1670 

= 

157 

5 

157 

893 

LSPOS 

15,3646 

983 

4 

932 

1235 

MAKEGEN 

10,3545 

1370 

1 

1359 

LRMCTR 

E7, 1672 

= 

157 

5 

157 

893 

LSR22. 3 

26,2424 

595 

2 

522 

605 

MAKEMARK 

10,2357 

1352 

l 

135  7 

LRUFF 

43,2336 

284 

1 

275 

LSR22.4 

26,3206 

603 

l 

59  5 

MAKEMAX 

20,3011 

1491 

1 

1491 

LROFT? 

33,2432 

877 

1 

877 

LSTBNKCH 

43,3726 

1290 

1 

1289 

MAKEPLAY 

10,2560 

1 356 

3 

1355 

1370 

L RON 

43,2333 

284 

1 

275 

LSTLIM 

4740 

= 

746 

1 

746 

MAKEPRID 

10,2505 

1355 

1 

1357 

I.RPOS 

E 7 , 1650 

= 

156 

5 

157 

394 

L ST  1 

E3 , 1400 

114 

48 

164 

1300 

MAKFRUPT 

7775 

1457 

2 

1456 

1457 

LRPOSBIT 

4737 

= 

38 

1 

579 

LST2 

E3,  1410 

114 

41 

232 

1126 

MANFL  AG 

16,2206 

1411 

1 

1409 

LRPOSCAL 

43,2652 

291 

2 

288 

LST2CGN 

41,2172 

421 

1 

421 

MANMODE 

16,3034 

1429 

1 

1428 

LRPOSC AN 

25,3563 

580 

, 1 

579 

LST2FAN 

43,2002 

275 

2 

275 

481 

MANTHRT? 

32,3177 

816 

LRPOSFLG 

0275 

= 

88 

LS21X  ■ 

E3 , 1755 

117 

4 

516 

583 

MANUCALL 

22,3177 

379 

1 

379 

LRPUSNXT 

25,3537 

579 

2 

579 

580 

LTHVAC A 

05,3372 

234 

4 

232 

233 

MANUFB IT 

4727 

= 

79 

LRPOSOUT 

40,26 24 

431 

1 

430 

LT5 

41,2053 

419 

2 

419 

MANUFLAG 

0 152 

= 

79 

LRP0S2 

25,  351  l 

579 

2 

580 

8 94 

LUNABI T 

4731 

= 

72 

MANUHFF 

22,3113 

378 

1 

378 

LRP0S2K 

43,2147 

278 

1 

275 

LUNAFLAG 

0060 

= 

72 

9 

659 

1137 

MANUR 

2 l ,2000 

= 

32 

l 

1328 

LRPUS2K1 

43,2161 

278 

1 

278 

LUNDESCH 

25,2412 

555 

1 

334 

MANUSTAl 

22,3067 

378 

LRP2CCMM 

25, 3566 

580 

l 

279 

LUNG 

15,2722 

963 

2 

961 

962 

MANUSTAT 

22,3122 

378 

l 

377 

LRRCTR 

E7, 1671 

= 

157 

4 

157 

893 

LUNLANAD 

36,3135 

744 

1 

734 

MANUSTOP 

22,3213 

381 

l 

378 

LR  SC  K 

25,3357 

574 

1 

574 

LUNLAND 

31, 2425 

796 

1 

744 

MANUVER 

26,2000 

= 

34 

1 

488 

LRSCTR 

E 7 , 1673 

= 

157 

4 

157 

893 

LUNPOS 

15, 3646 

= 

983 

2 

502 

1237 

MANUVER1 

26,2000 

= 

34 

1 

49  8 

LRSPFFD 

25,3217 

572 

LUNRSALN 

0005 

= 

247 

2 

246 

247 

MARKCHEX 

07,2212 

266 

1 

265 

LRS22 

32,2000 

= 

35 

2 

42 

588 

LUNSFCHK 

24,2751 

523 

9 

507 

531 

MARKCOP 

10,2406 

1353 

1 

1353 

LRS2  2.1 

32,2362 

588 

l 

521 

LUNSPH 

U,  3415 

1237 

1 

1235 

MARKCTR 

F7, 1462 

= 

146 

5 

511 

713 

LRS22  . IX 

E 7, 1737 

= 

152 

6 

152 

593 

LV 

0044 

= 

95 

2 

1068 

1070 

MARKFND 

10,2315 

1351 

1 

1351 

LRS22.2 

24,3416 

592 

1 

521 

L.VBUF 

6314 

1008 

l 

1032 

MARKFLAG 

1070 

105 

l 

1353 

LRS24  . 1 

26,3441 

608 

2 

531 

612 

LVELBI AS 

25,2000 

42 

1 

572 

MARKFMSK 

10,3043 

1361 

2 

1352 

LRS24.  11 

26,3470 

609 

LVSQUARE 

0042 

= 

95 

2 

1068 

1073 

MARKFORM 

10,2332 

1352 

LRUPT 

001  1 

= 

94 

LVWTLIST 

5217 

1117 

l 

1121 

MARKNV 

0367 

102 

3 

1353 

1354 

LRVFLPIT 

4735 

= 

88 

LX  A 

01, 2360 

1085 

1 

1010 

markoct 

10,3540 

13  70 

1 

1361 

LRVELFLG 

0273 

= 

88 

LXC 

01, 2364 

1085 

1 

1010 

MARKOVER 

10,3427 

1 369 

1 

1351 

LRVELX 

25,3070 

569 

1 

506 

L 14/OUT 

40,2740 

433 

2 

432 

433 

MARKPFRF 

10,2433 

13  54 

1 

1364 

LRVELY 

25,3066 

569 

1 

506 

MARKPLAY 

10,2372 

1353 

4 

1353 

1369 

LRVELZ 

25,3064 

569 

1 

506 

M/ SCON l 

42, 3410 

437 

l 

436 

MARKRET 

10,3421 

1368 

1 

1366 

LRVF 

E 5 , 1 5 12 

= 

126 

3 

126 

8 90 

M/SCUN2 

42,3411 

437 

1 

436 

MARKRUPT 

07,2354 

2 69 

2 

16  3 

164 

LRVMAX 

E5, 151  1 

= 

126 

3 

126 

891 

M/SC0N3 

42,3413 

437 

4 

436 

MARKSTAT 

1307 

110 

14 

233 

272 

L KWH 

E7, 1421 

144 

2 

79  9 

see 

M/SLIMIT 

42,3337 

4 36 

2 

436 

MARKTEST 

26,2516 

596 

1 

595 
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SYMBOL 
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SYMBOL 

DEF 
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MARKWAKE 

1C, 3035 

1361 

l 

1360 

METH003 

22,2266 

MARK2PAC 

1072 

105 

2 

1362 

1363 

MFI 

E4, 1621 

= 

MARK3MSK 

10,3513 

1369 

2 

1352 

MFISYM 

E 6 , 1702 

= 

MARK4MSK 

10,3514 

1369 

l 

1352 

MFREF 

15, 3444 

MARSLEEP 

10, 3462 

1360 

1 

1354 

MFS 

E4 , 1621 

= 

MASS 

1243 

= 

108 

18 

108 

1493 

MGARET 

30,3256 

MASSCTR 

0161 

= 

1494 

5 

149  2 

1493 

MGC 

E5, 1743 

= 

MASSF  IX 

20,2517 

1485 

3 

1485 

MGLVF8I T 

4743 

= 

MASSMGN 

33,2146 

864 

MGLVFLAG 

0130 

= 

MASSMULT 

31,2344 

793 

2 

789 

MG2 

07,3745 

MASS  1 

E 7 , 1570 

= 

154 

5 

154 

864 

M I DA  VB  I T 

4743 

= 

MATI NC 

0140 

99 

9 

99 

1037 

M IDA VF  LG 

0224 

= 

MATMOVE 

13,2374 

929 

7 

941 

973 

M I DOG  I M 

22,2000 

= 

MATRIX 

11,3277 

1235 

2 

1232 

MIDDGIM1 

21,2000 

= 

MAX 

0016 

= 

1201 

4 

1180 

1181 

MIDFLAG 

0002 

= 

MAXANG 

22,2364 

369 

1 

3 64 

MIDFLB  IT 

4730 

= 

MAXCHECK 

12,2625 

1181 

l 

1181 

MIDORLST 

17,3163 

MAXCHK 

22,3640 

724 

4 

623 

723 

MIDT0AV1 

13,3606 

MAXCOGA 

12,3302 

1192 

2 

1192 

MIDTQAV2 

21,2760 

MAXDH 

05.3C67 

229 

1 

223 

M ID1F8  IT 

4742 

= 

MAXDB  ITS 

21,2002 

44 

2 

900 

MIDIFLAG 

0223 

= 

MAXDI 

13,3377 

1216 

2 

1215 

MID2 

13,3701 

MAXDV 

00,2642 

1063 

1 

1059 

M ID5 

4340 

MAXDV  SW 

0140 

= 

99 

6 

1055 

1070 

MID7 

4144 

MAXFORCE 

£5,1543 

= 

126 

2 

126 

820 

MIMRET 

17,2341 

MAXJETS 

17,3373 

1460 

1 

1460 

MIN 

0010 

= 

MAXNM 

22,3647 

724 

3 

724 

M IN+ 

07,3451 

MAXPLUS 

20 , 3 C 1 7 

1491 

2 

1490 

1491 

MIN— 

C 7 , 3 606 

MAXRA 

27,3464 

1271 

2 

1271 

M INABDV 

33,2115 

MAXTEST 

00,2565 

1059 

4 

1058 

1072 

MINADR 

17,2350 

MAXTFF 

27  ,3654 

1277 

1 

1276 

MINANG 

22,2362 

MAXTFF1 

27, 3653 

1277 

1 

1274 

MINB12 

7762 

= 

MAXTR IES 

24,2366 

5 15 

2 

525 

526 

M I N 8 1 3 1 4 

05,3567 

MAXTRYS 

25,2465 

558 

1 

559 

MINCHECK 

12,2571 

MAXVEL 

21,2001 

44 

2 

899 

900 

MINCOGA 

12,3320 

MAX250 

35,3643 

687 

1 

670 

MINCON 

42,3551 

MCTOMS 

25,3060 

568 

2 

564 

567 

M INCONI 

42,3306 

MOOT 

E7, 1736 

= 

149 

2 

149 

769 

MINC0N2 

42,3304 

MOOT  APS 

36,2010 

39 

M INCSM 

4732 

= 

MDOTDPS 

36,2002 

39 

1 

835 

MINDEX 

0773 

MD1 

4353 

476 

4 

473 

13  83 

MINFORCE 

E5, 1541 

= 

MEASINC 

23,2000 

= 

33 

1 

1147 

MINIMP 

43,3000 

MEAS I NC  1 

23,2000 

= 

33 

1 

1151 

M INI RECT 

13,3734 

METHOD  1 

22,2242 

366 

1 

366 

M INLMD 

01,2000 

METH0D2 

22, 2216 

366 

MINMINLM 

01,2001 
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S 

SYMBOL 

DEF 

H 

REFERENCES 

2 

366 

MINPERE 

22,3367 

718 

2 

717 

720 

12 

363 

365 

MINPERM 

22,3365 

718 

1 

720 

12 

365 

367 

MINOR 

17,2320 

1443 

2 

1 443-L 

2 

979 

980 

MINRTN 

17,2325 

1443 

1 

1444 

4 

121 

363 

MINTI MES 

16,3622 

1439 

1 

1435 

1 

921 

MINTIME2 

05,3534 

990 

1 

990 

4 

128 

1250 

MINUS  1 

7770 

= 

1097 

2 

1320 

1368 

MINUS2 

7767 

= 

1305 

3 

230 

1300 

2 

695 

MIS 

E6, 1645 

140 

20 

140 

498 

1 

1327 

MISCJUMP 

6355 

1010 

1 

1007 

MIXAD 

41,2305 

423 

1 

423 

3 

1221 

1240 

M I XBACK 

40,3076 

446 

1 

447 

1 

695 

M I XBR 

0140 

= 

99 

13 

316 

447 

1 

695 

MIXCON 

4762 

= 

316 

1 

316 

5 

1215 

1243 

MIXNN  1 

41,2261 

423 

1 

423 

MI XNN2 

41,2273 

423 

1 

423 

1 

1454 

MI XNOUN 

41,2246 

423 

1 

420 

1 

729 

MI XTEMP 

0125 

= 

98 

3 

416 

423 

1 

753 

MKABORT 

07,2037 

255 

1 

255 

MKALARM 

07,2331 

267 

2 

26  6 

4 

12  20 

1222 

MKDEX 

E7, 1552 

= 

15  1 

10 

151 

272 

1 

1221 

MKOVB I T 

4 742 

= 

75 

2 

1354 

1361 

1 

442 

MKOVFLAG 

0110 

= 

75 

5 

454 

1369 

MKREJ 

07,2572 

274 

1 

269 

l 

1443 

MKRELEAS 

07,2042 

255 

1 

267 

4 

1 180 

1131 

MKRUPTBR 

4061 

164 

1 

163 

1 

1319 

MKT  IME 

E 7 , 1754 

= 

152 

9 

152 

604 

1 

1319 

M K VAC 

07,2007 

255 

1 

844 

MKVACFND 

07,2024 

255 

5 

255 

l 

1443 

MKVB52 

07,2567 

273 

1 

364 

MKVB53 

07,2565 

273 

1 

990 

MKVB54 

07,2566 

273 

1 

265 

1 

990 

MLOSV 

E 3, 1764 

1 17 

5 

564 

585 

1 

1 180 

MM  ADR  EF 

41,2060 

420 

1 

419 

1 

1 195 

MMATR  IX 

0024 

= 

1 146 

8 

1138 

1235 

1 

449 

MMCHANG 

41 ,34  70 

461 

2 

420 

422 

1 

43  8 

MMDSP  LAY 

5317 

1291 

1 

228 

2 

435 

MMNOMBER 

0774 

104 

10 

238 

837 

1 

30  7 

MMTEMP 

1057 

= 

244 

3 

243 

244 

4 

239 

243 

MNKEY IN 

0015 

- 

95 

2 

229 

1335 

2 

126 

820 

MODABORT 

07,3760 

1327 

3 

1327 

1328 

L 

276 

MODDONE 

12,2124 

1 1 73 

3 

1173 

3 

510 

1219 

MODE 

0163 

101 

32 

338 

1370 

1 

30  7 

MODEA 

1 106 

= 

106 

4 

335 

555 

1 

307 

MODES 

1110 

106 

4 

106 

558 

JOKER 

OR 

ERASE 

ANYWHFRE 

MD  MULTIPLY 

DEFINED 

XX 

MI SCEl L ANEOUS 

TROUBLE 

2021 

DEF, 

367 

121 

140 

976 

121 

911 

128 

77 

77 

1327 

83 

83 

33 

32 

67 

67 

1455 

1220 

1220 

83 

83 

1222 

476 

454 

1443 

1201 

1320 

1323 

858 

1444 

369 

993 

990 

1180 

1192 

450 

435 

435 

45 

104 

126 

296 

1238 

45 

45 

D BY 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERFNCFS 

MODFC  ADR 

13C1 

1 10 

1 1 

110 

1327 

MOVEPLEM 

13,3026 

1209 

3 

1154 

1209 

MY 

E7, 1704 

= 

151 

5 

151 

606 

MOOEE  X IT 

07,274? 

1308 

8 

1307 

1327 

MP  AC 

0154 

101 

909 

100 

1504 

MZ 

E7, 1712 

= 

151 

3 

151 

600 

MODE G COD 

1 7,3750 

1327 

1 

1327 

MPAC  + 

00, 2437 

1057 

2 

1056 

M 1 1 

F6, 1414 

134 

9 

164 

1435 

MODE  SL  P 

07, 3754 

1327 

1 

1327 

MPAC+6 

0 162 

' = 

433 

7 

433 

477 

M21 

F6, 1415 

134 

4 

200 

1449 

MODE  S W 

07,2000 

- 

30 

1 

1307 

MP  AC— 

00,2433 

1056 

2 

1056 

M22 

F 6 , 1417 

134 

10 

199 

1449 

MODE  2CHK 

454  1 

539 

2 

538 

560 

MPACSHR 

00,2033 

1045 

2 

1053 

1074 

M 3 1 

E6, 1416 

134 

4 

200 

1449 

MODE  7 C 

05, 3502 

834 

1 

833 

MPACSRND 

00,2050 

1046 

1 

1045 

M32 

E6, 1420 

134 

8 

200 

1449 

MODE  7 1 

05,3504 

8 34 

MP AC  T ST 

42,3565 

450 

l 

449 

MODNGDEL 

12,2600 

1180 

2 

1180 

MPACVBUF 

7553 

1041 

4 

1037 

1259 

NARROWDB 

20,2151 

1405 

1 

1404 

MOOPSCEL 

12,2636 

1181 

2 

1181 

MPAC2SAV 

0165 

= 

1369 

2 

1353 

1363 

NAVKFYIN 

0016 

= 

95 

5 

229 

269 

MOORE  C- 

1010 

104 

23 

223 

13  6 6 

MPERFMSK 

10,3526 

1369 

2 

1352 

NBDONLY 

06,3625 

346 

1 

1119 

MODROUTB 

04,2054 

= 

462 

1 

462 

MPTEMP 

0135 

98 

64 

99 

1084 

NBDX 

E3, 1460 

1 14 

6 

338 

1119 

MONADR 

40,3467 

46  1 

1 

460 

MR.KLEAN 

05,2645 

2 24 

2 

223 

1380 

NBDY 

E3, 1461 

1 14 

2 

340 

347 

MONBACK 

41,3422 

454 

1 

454 

MRKIOBIT 

4726 

= 

74 

NBDZ 

E 3 , 1462 

l 14 

2 

340 

347 

MONBUSY 

41,3423 

454 

1 

453 

MRKIDFLG 

0074 

= 

74 

NBD2 

06,3652 

346 

l 

348 

MONO EL 

41,3372 

453 

1 

45  3 

MRKNVBI T 

4734 

= 

74 

1 

1353 

NBD3 

06,3656 

346 

MONDO 

41,3373 

453 

1 

453 

MRKNVFLG 

0102 

= 

74 

1 

1363 

NBPOSPL 

37,2012 

385 

MONI TCR 

41,3302  • 

452 

7 

422 

MRUPTB IT 

4 740 

= 

75 

NBRANCH 

11,3262 

1235 

4 

1232 

1243 

MONIT 1 

41,3304 

452 

MRUPTFLG 

0106 

= 

75 

NBUSMASK 

10,3521 

1369 

1 

1357 

MONI T 2 

41,3317 

452 

2 

452 

MSK0ATR1 

20,2021 

305 

1 

305 

NB1NB2 

23,2476 

= 

38 

MONREF 

41,3421 

454 

1 

454 

MSTORE  1 

01,2373 

1085 

2 

1086 

1089 

NB2C0USP 

30,3517 

917 

1 

910 

MONREPOS 

06,3144 

198 

1 

198 

MS  100 

7750 

= 

1411 

2 

1410 

1419 

NCDU 

E6, 1702 

= 

140 

3 

377 

378 

MONREC 

41,3347 

453 

2 

453 

MUIPI 

0032 

= 

1245 

NCOARSE 

14,3566 

949 

4 

94  1 

972 

MONSAVE 

1017 

104 

7 

233 

454 

MU/A 

E7 , 1720 

= 

149 

4 

149 

773 

NCSMVFL 

E 7 » L 664 

= 

155 

2 

510 

M0NSAVE1 

1020 

104 

12 

233 

480 

MU AS  T E ER 

E7, 1716 

= 

149 

5 

149 

774 

NDCMPTST 

4 1 ,2465 

428 

M0NSAVE2 

1021 

104 

4 

452 

467 

MUCHT I ME 

01,3513 

1130 

2 

1129 

NDXCDUW 

E6, 1647 

= 

140 

6 

140 

916 

M00N6  IT 

4731 

= 

67 

MUEARTH 

13,2006 

48 

8 

690 

1243 

NDXCHNGF 

12,2240 

1175 

2 

1174 

MOCNCNTR 

14,2552 

932 

i 

932 

MOLBUSH 

21, 341 7 

14  79 

1 

1479 

NDXCTR 

E5, 1414 

= 

132 

7 

132 

388 

MOON FLAG 

0003 

= 

67 

31 

659 

1243 

MULTEX  IT 

5622 

1379 

NDl 

4352 

4 76 

6 

393 

462 

MOONGCN 

22,3520 

720 

1 

720 

MUM 

13,2004 

48 

NEARONE 

27,3773 

1280 

4 

84  7 

1277 

MOONMX 

24,3674 

1141 

2 

1138 

1140 

MUM ( - 3 7 1 

27,2024 

46 

1 

856 

NEEDLBIT 

4741 

= 

68 

1 

1413 

MOONMXA 

25,3712 

1142 

1 

1142 

MONFLAG 

0141 

= 

78 

8 

240 

871 

NEEDLER 

20,2336 

1416 

1 

1413 

MOONOTH 

0173 

= 

38 

2 

309 

MUNFL8IT 

4 73  5 

= 

78 

4 

197 

869 

NEEDLER2 

20,2367 

1416 

1 

1416 

MOONPAD 

22,3375 

718 

1 

71  7 

MUNG? 

37,3371 

710 

i 

706 

NEEDLES 

20,2407 

1417 

1 

1417 

MOONRATE 

27,2026 

46 

1 

842 

MUNGRAV 

33,3037 

885 

6 

729 

884 

NFEDL ES3 

20,2376 

1416 

1 

1416 

MOON SPOT 

33,2202 

865 

l 

864 

MUNRETRN 

33, 2410 

877 

1 

385 

NEEDLE1 1 

20,2350 

1416 

MOON  THIS 

0174 

= 

38 

6 

309 

1218 

MUNRVG 

33,3000 

884 

NEEDLFLG 

0013 

= 

68 

3 

279 

488 

MORE  C AOR 

20,2461 

1418 

1 

1418 

MUSCALE 

E 7 , l 766 

= 

149 

2 

772 

773 

NEED2BIT 

4726 

= 

67 

1 

1413 

MOREDES 

25,2617 

562 

2 

5t>  2 

MLTABLF 

04,2004 

47 

6 

693 

1191 

NEED2FLG 

0000 

= 

67 

3 

279 

488 

MORE  I OLE 

16,2160 

14  10 

1 

1409 

MWAITBIT 

4732 

= 

74 

NEC, 

6762 

1023 

4 

102  3 

MORNUM 

40,2301 

413 

2 

412 

MWAI TFLG 

0100 

= 

74 

N F GAT  E 

21,3253 

1474 

1 

1474 

MOVA  THIS 

13,3005 

= 

38 

l 

1219 

MX 

F 7 , 1676 

= 

151 

3 

151 

600 

NEGCHECK 

2 1,3615 

1 506 

1 

150  7 

MOVE  ACSM 

13,2732 

1208 

3 

L 1 5 5 

1208 

MXMYMZ 

26,2771 

599 

NEGCQS 

13,2567 

1135 

1 

1135 

MOVE  ALEM 

13,3005 

1209 

4 

38 

1 2 C 9 

MXM3 

22,2312 

368 

4 

363 

497 

NEGDR  TVF 

21 ,3523 

1481 

1 

1481 

MOVE  PC  SM 

13,2761 

1208 

3 

1155 

1208 

MXV 

7355 

1036 

1 

1009 

NEGEDOT 

17,3320 

1459 

1 

1459 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

OEF 

H 

REFERENCE 

S 

SYMBOL 

DEF 

H 

REFERENCES 

NEGEST2 

15,2105 

262 

1 

262 

NEWLOAD 

30,2156 

840 

1 

840 

NOADJUST 

42,3732 

503 

1 

503 

NEGF IRE 

2 1,3647 

1507 

1 

1507 

NEWLOC 

0065 

= 

97 

9 

1 101 

1109 

NOAGS 

32,2472 

589 

1 

589 

NEGFNCT 1 

2 1, 3 162 

1472 

1 

1472 

NEWMODE 

6101 

1001 

6 

1017 

1395 

NOAOS 

20,3431 

1498 

1 

149  8 

NEGFNCT2 

21,3174 

1473 

1 

1472 

NEWMODEA 

5316 

1291 

2 

244 

389 

NO ATTCNT 

30,3734 

921 

3 

90  9 

912 

NEGMAX 

4 726 

= 

1097 

13 

379 

1491 

NEWMODEX 

5313 

1291 

5 

385 

1391 

NOATTOFF 

07,3253 

1314 

4 

175 

1313 

NEGONE 

7770 

1096 

16 

230 

1503 

NEWOPS 

6111 

1001 

1 

1000 

NOBITS 

E5, 1442 

= 

132 

NEGOUT 

13,2575 

1135 

1 

1135 

NEWPAR 

14, 2741 

936 

L 

936 

NOCHG 

35,3507 

682 

1 

681 

NEGP 

12,3427 

1193 

3 

1192 

1193 

NEWPHASE 

31,2367 

794 

1 

799 

NODDOT 

26,2004 

55 

1 

1 141 

NEGPROD 

27,3150 

775 

1 

775 

MEWPOS 

E7,  1652 

= 

155 

4 

155 

510 

NODES  NB 

25,2524 

559 

1 

559 

NEGSGN 

40, 2363 

414 

1 

411 

NEWPRIO 

0063 

= 

97 

12 

243 

1358 

NODES  SM 

25,2462 

558 

2 

555 

558 

NEGSHAFT 

25,2561 

560 

1 

560 

NEWSTATE 

12,2653 

1182 

L 

1134 

NODIO 

26,2012 

55 

1 

1141 

NEGTFF 

27,3650 

1277 

2 

1276 

NEWTN 

34,2702 

646 

2 

646 

NODOBIT 

4744 

= 

72 

3 

238 

1382 

NEGTHRST 

2 1, 3720 

1508 

1 

1507 

NEWVEL 

E 7 , 1644 

= 

155 

3 

155 

510 

NODOFLAG 

0054 

= 

72 

6 

248 

1334 

NEGTORK 

16,3733 

146  9 

1 

1468 

NEWZCOMP 

22,3712 

1155 

1 

1149 

N0D0P07 

0061 

= 

72 

NEGTORKP 

E6, 1514 

= 

137 

1 

207 

NEXTCDU 

C7, 3045 

1310 

4 

1310 

1311 

NODSPOUT 

06,2130 

170 

2 

167 

NEGTORKU 

E 6 , 1 5 1 6 

= 

138 

6 

162 

217 

NEXTCOL 

11,3567 

1240 

2 

124  1 

NODSP Y 

06,2152 

1*70 

1 

170 

NEGTORKV 

E6 , 1520 

= 

138 

5 

206 

217 

NEXTCORE 

01,2700 

1105 

2 

l 104 

NODVMON 1 

33,2264 

866 

l 

865 

NEGTOVFL 

1.2,2330 

1176 

1 

1176 

NEXTES 

35,3131 

673 

1 

672 

N0DVM0N2 

33,2270 

866 

1 

865 

NEGUQ 

E6, 1501 

137 

11 

137 

1481 

NEXT  IME 

E6, 1 705 

= 

140 

3 

379 

380 

NOEBANK 

43,3365 

1285 

1 

1286 

NEGUR 

E6, 1503 

= 

137 

•4 

1409 

1474 

NEXT INCL 

05,3552 

990 

1 

990 

NOG  I M LOC 

22,2744 

376 

1 

376 

NEGUSUM 

21  ,3516 

1481 

3 

1474 

1481 

NEXT INSL 

05,3702 

992 

1 

990 

NOG  I M RUN 

06,2462 

l 80 

2 

179 

NEGO 

4 745 

1093 

28 

167 

1455 

NEXTIT 

15,2132 

262 

2 

262 

NO  GO 

22,2732 

375 

3 

375 

377 

NEG1 

7770 

= 

1097 

5 

338 

1097 

NEXTLINE 

22,3511 

720 

1 

72  0 

NOGOB  L 

27,3214 

776 

1 

775 

NEG1/2 

4 72  5 

1093 

6 

231 

1126 

NEXTP 

E 6 , 1472 

135 

7 

135 

1428 

NOGUFSS 

12,3477 

1 194 

1 

1192 

NEG1/3 

21,3173 

1473 

2 

1473 

NEXTU 

E6 , 1473 

= 

135 

5 

1402 

1441 

NO  IBNKSW 

6104 

1001 

1 

1042 

NEGIOO 

5 174 

1114 

NEXTV 

E6 , 1474 

= 

135 

5 

1402 

1442 

NOINT 

13,2711 

1207 

1 

1206 

NEG12 

00,3733 

1084 

3 

1052 

1074 

NGUIDSUB 

E7 , 1647 

= 

157 

3 

796 

809 

NOKILL 

43,31 14 

302 

1 

303 

NEG1 80 

40,3  115 

447 

1 

446 

NICKELDP 

34, 2077 

638 

1 

641 

NOLITE 

33,3546 

893 

2 

893 

NEG2 

7767 

1096 

1 1 

242 

1479 

NIGNLOOP 

E 7, 1646 

= 

157 

3 

782 

809 

NOLOKON 

23,2026 

284 

1 

284 

NEG3 

7766 

1096 

8 

575 

1441 

NINE 

4311 

= 

1097 

2 

1500 

NOLRR  BIT 

4733 

= 

86 

2 

570 

877 

NEG4 

6133 

1002 

2 

1006 

1283 

NJETSBIT 

4726 

= 

69 

NOLRR  EAD 

0252 

= 

86 

1 

894 

NEG5 

41,2142 

421 

N JETSFLG 

0017 

= 

69 

l 

75  l 

NOMDNLST 

05,2153 

204 

NEG7 

5652 

= 

244 

2 

257 

953 

NN 

E7 , 1466 

146 

7 

210 

676 

NOMINIMP 

43,3003 

297 

1 

276 

NETNEG 

20,3716 

1502 

1 

1502 

NNADTAB 

42,2161 

317 

1 

316 

NOMKCNT 

E 7, 1573 

= 

151 

5 

151 

267 

NETZERO 

6 142 

1003 

nNadtem 

0146 

99 

8 

316 

444 

NOMTP I 

E4, 1707 

= 

121 

9 

633 

680 

NEWAGS 

32,2014 

219 

1 

219 

NNTYPTAB 

42,2325 

321 

1 

316 

NONAV  KEY 

05,3 102 

229 

3 

226 

229 

NEWANGL 

22, 30C7 

377 

1 

3 76 

NNTYPTFM 

0147 

99 

5 

316 

443 

NONEEDLF 

16,2012 

1407 

1 

1407 

NEWANGLE 

24,3743 

1143 

4 

1141 

1144 

NC. CORES 

01, 2640 

1104 

2 

1 104 

1109 

NOPIE 

35,3266 

676 

1 

676 

NEWUEL 

12,2634 

1181 

2 

1180 

1181 

NO.PJETS 

E6, 1521 

138 

3 

138 

1468 

NOP07BIT 

4732 

= 

72 

5 

224 

1336 

NEWDELHI 

22,3003 

377 

1 

380 

NO.UJETS 

E6 , 1522 

= 

138 

3 

138 

1468 

NOQBR  SM 

5276 

1127 

1 

1426 

NEWDELX 

12,2260 

1175 

3 

1175 

NO. VJETS 

E6, 1523 

= 

138 

NOQRSM 

5274 

1127 

1 

1457 

NEW I B IT 

4730 

= 

81 

NO . WO  S 

6265 

1006 

5 

1006 

1075 

NORATES 

30,2500 

848 

1 

84  8 

NEWIFLG 

0172 

- 

81 

3 

12  12 

1216 

NO. 9 

36, 3664 

757 

1 

757 

NORBACK 

40,3100 

446 

1 

44  7 

NEWJOP 

0667 

97 

24 

232 

1290 

NO-ATP 

30,2660 

850 

l 

850 

NORDSTAL 

25,2447 

557 

3 

555 

558 

NEWL I ST 

05,3545 

990 

2 

990 

NO-INT 

13,2063 

248 

1 

247 

NORFASON 

33,3215 

388 

l 

888 
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SYMBOL 

OEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFFRFNCES 

NOREMODE 

93,2324 

283 

1 

283 

NCULL AGE 

36, 2652 

738 

4 

735 

755 

NUMGRPS 

4747 

= 

234 

2 

227 

228 

NORESET 

07,3415 

1 3 1 B 

NOUN 

40,2357 

414 

1 

411 

NUVCSM 

E3, 1600 

1 16 

l 

598 

NORF INAL 

13,3336 

1215 

NOUNADD 

0145 

= 

99 

27 

423 

475 

NUVLEM 

E 3, 1652 

116 

1 

59  8 

NQRL I TF 

33,3527 

393 

2 

893 

NOUNCADR 

1016 

104 

9 

420 

475 

NVBNK  TEM 

1037 

104 

1 

467 

NORMADR 

42,3412 

437 

■1 

436 

NOUNREG 

1001 

104 

15 

233 

473 

NVBUSMSK 

10,3524 

1369 

l 

1364 

NORMAL 

01,2343 

308 

1 

306 

NCUNTEM 

0122 

= 

98 

3 

423 

NVCADR 

10,3515 

1369 

1 

1365 

NORM  BNCFF 

10, 3C73 

1362 

1 

1368 

NOUNTEST 

41,2507 

428 

2 

439 

440 

NVCOM 

40,2346 

414 

l 

414 

NORMEX 

E 7, 1463 

146 

19 

146 

700 

NCUPDOWN 

43,3051 

301 

1 

301 

NVOSP 

10,3102 

1362 

4 

1356 

1370 

NORM  EX  IT 

32,254  7 

590 

1 

590 

NOUPFA  IT 

4737 

= 

70 

1 

521 

NVDSP 1 

10,3137 

1363 

i 

136  3 

NORMGAM 

E 4 , 1502 

= 

119 

7 

119 

1156 

NOUPFL AG 

0030 

= 

70 

2 

301 

NVMONOPT 

4146 

467 

i 

1363 

NORML  I Z 

23,2000 

= 

33 

NOUT 

1015 

104 

9 

167 

482 

NVQTEM 

1036 

104 

2 

46  7 

NORML I ZE 

32,3661 

B71 

2 

253 

360 

NOUTCON 

4 751 

= 

1097 

1 

233 

NVSAVE 

0370 

LO  2 

3 

222 

1368 

NORML  IZl 

33,2344 

3 71 

1 

871 

NCUVEAU 

04,2346 

243 

1 

240 

NVSBB8NK 

4 172 

467 

2 

46  7 

NORML IZ2 

33,2347 

871 

1 

871 

NOVAC 

5063 

1101 

29 

168 

1404 

NV  SBC  OM 

4 155 

467 

l 

479 

NORMLCP 

3.7 , 2 6C4 

39  7 

1 

397 

NO VAC ADR 

4342 

= 

1305 

1 

1302 

NVSBENDL 

40,3470 

46  l 

2 

460 

463 

NORM  R FT 

10,3435 

1368 

2 

1366 

N0VAC2 

01,2631 

1 104 

1 

1101 

NVSBWA IT 

4436 

4 79 

NORM  S B I T 

4733 

= 

79 

N0VAC3 

01,2634 

1104 

1 

1 105 

NVSBWT  1 

4446 

479 

1 

479 

NORM  SC L 

16,3615 

1439 

NOVRWRT 

35, 3342 

678 

1 

679 

NVSU8 

4 145 

467 

3 

276 

1369 

NORM  S W 

0156 

= 

79 

8 

690 

1186 

N0V37MM 

04, 2524 

246 

1 

239 

NVSU8B 

41,2020 

419 

1 

467 

NORM  T E M 1 

1044 

= 

105 

3 

94  3 

1359 

NOWMATX 

32,2253 

509 

1 

509 

NVSUBCOM 

4 161 

467 

NORM T F ST 

00, 3512 

1079 

NPGNCSBT 

4 744 

= 

85 

3 

1407 

1408 

NV  SUB  END 

4173 

467 

4 

461 

469 

NORM  T A 

06,2007 

165 

2 

165 

NPGNCSFL 

0244 

= 

85 

N V SUB  S Y 1 

04,2670 

4 79 

l 

479 

NORM UN  I T 

10,3724 

1398 

1 1 

35  1 

1358 

NPTRAPS 

E6 , 1433 

= 

134 

4 

1410 

1423 

NVSU8USY 

4433 

479 

2 

479 

1365 

NORMUNXl 

10, 3722 

1398 

3 

605 

772 

NQTRAPS 

E6 , 1434 

= 

135 

4 

1410 

1424 

NVSUB 1 

41,3613 

468 

2 

419 

467 

NORMWAKE 

10,3353 

1366 

1 

1368 

NRMAG 

0040 

= 

1265 

4 

1268 

1275 

N V SUB  2 

41,3640 

468 

1 

468 

NORMZ I 

0044 

= 

1156 

12 

1155 

1156 

NRMIDBIT 

4730 

= 

74 

NVTEMP 

0123 

= 

98 

9 

467 

479 

NOROTAT 

17,3026 

1452 

3 

1451 

1456 

NRMIQFLG 

0076 

= 

74 

NVWORD 

0366 

102 

1 1 

740 

1369 

NORRGMON 

06,3155 

198 

6 

194 

198 

NR  MNV  BIT 

4735 

= 

74 

Nvwnp,  D1 

1066 

105 

3 

740 

1364 

NORRMBIT 

474  1 

= 

77 

2 

197 

231 

NRMNVFLG 

0103 

= 

74 

1 

1363 

NV50DSP 

10,3140 

1 363 

3 

1354 

1364 

NORRMCN 

0126 

= 

77 

8 

283 

529 

NRTFRM 

0020 

= 

1265 

2 

1274 

NWAITBIT 

4733 

= 

74 

NOSHIFT 

10,3766 

1399 

6 

1398 

1399 

NRTRAPS 

E6 , 1435 

= 

135 

4 

1410 

1425 

NWAITFLG 

0101 

= 

74 

NOTALLOW 

2 1,3347 

1478 

2 

1477 

NRUPTBIT 

4741 

= 

75 

NX  AX 

15,2533 

957 

1 

956 

NOTBI 1 12 

40,3736 

404= 

-2- 

- 4CT) 

\ 

NRUPTFLG 

0107 

= 

75 

NX  POS  VEL 

31,2137 

615 

1 

616 

NOTERBIT 

4732 

^69T 

1 

886 

.NSAMP 

1 110 

= 

106 

7 

569 

575 

NXTBNK 

43,3636 

1289 

2 

30  3 

1290 

NOTE  R F LG 

0023  < 

^ = 

69 

3 

284 

75JL. 

'N  SRCHP  NT 

E7 , 1736 

= 

150 

5 

150 

612 

NXTFL  33 

06,2432 

178 

7 

187 

188 

NOTHRB  I T 

4731 

1- 

— 7 3~4~~ 



NSTEER 

36,3673 

757 

NXTIBT 

06,2420 

178 

3 

178 

NOTHRC TL 

01  16 

= 

76 

6 

749 

781 

NTARGB  IT 

4742 

= 

78 

NXTIFAIL 

06,2225 

l 72 

1 1 

181 

186 

NOT  I MF 

13,371 1 

1222 

2 

1220 

1221 

NT  ARGCHK 

35,3465 

681 

1 

681 

NXTIFBIT 

06,2213 

172 

3 

172 

NOTM IN 

17,3061 

1452 

2 

1452 

NTARGFLG 

0146 

= 

73 

3 

681 

NXTRR  1 AX 

25,2243 

550 

1 

550 

NOTMUCH 

20,3410 

1498 

1 

1496 

N TP/  2 

34,2376 

642 

2 

642 

NXTRST 

05,3032 

228 

1 

228 

NOTPLAN 

07,2637 

959 

1 

959 

NUCHANG2 

01,3015 

1 108 

1 

1 1 14 

NXTSUPR 

43,3663 

1289 

l 

1289 

N0TP2C 

25,3031 

568 

1 

567 

NUDIRECT 

01 , 3230 

1 114 

1 

1114 

NXT6ADR 

E 6 t 1 465 

135 

5 

230 

1454 

NOTSHIFT 

24,3404 

583 

1 

583 

NULLCLOK 

36,3014 

741 

3 

74  1 

742 

NZ  ACC  DOT 

0063 

= 

14  76 

3 

1477 

NOTWCSM 

26,2456 

595 

1 

595 

NUM 

40,2155 

411 

9 

410 

411 

N26/PRI 

E4, 1771 

= 

124 

7 

124 

463 

NOTWLEM 

26,25  10 

596 

1 

596 

NUMBER! 

E6,  1742 

= 

1 36 

19 

1427 

1467 

N26/2CAD 

E4, 1 772 

= 

124 

1 

463 
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DEF 
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SYMBOL 

DEF 

H 

REFERENCE 

S 

SYMBOL 

DEF 

H 

REFERENCES 

N45PRCC 

35,3564 

684 

1 

683 

OCT  203 

26, 2265 

490 

0CT50  1PV 

24,3267 

529 

1 

529 

N49DSP 

24,2726 

523 

l 

522 

OCT2C5 

24, 3270 

529 

1 

528 

0CT51 

43,3207 

310 

1 

309 

N49FL AG 

E 7 , 1746 

= 

1 52 

6 

522 

523 

CCT2  1 

. 4352 

= 

442 

1 

440 

0CT54 

06,2774 

191 

1 

175 

N63STAT 

31,3441 

812 

1 

81  1 

OCT21103 

5704 

1380 

OCT55000 

41,3776 

484 

1 

483 

N 7 ID  I SP 

07 , 2CE  1 

257 

CCT217 

5710 

1380 

0CT57776 

32,2565 

591 

1 

589 

N79DI SP 

07,2543 

272 

3 

272 

OCT  220 

15,3776 

1330 

1 

1329 

OCT  60000 

4101 

= 

1 097 

2 

1297 

1366 

N89D I SP 

14,2455 

930 

2 

929 

971 

0CT23 

4351 

= 

1097 

2 

742 

1006 

0CT6? 

4765 

= 

1332 

1 

1332 

N99L0CP 

31,2034 

614 

l 

614 

0CT23146 

21,3257 

1476 

1 

1477 

0CT6200 

05,3061 

229 

1 

224 

OC  T 24 

6007 

235 

6 

242 

8 71 

0CT63 

17,2351 

1444 

1 

1443 

OANB 

04,2557 

260 

3 

259 

956 

0CT24100 

10,3274 

1365 

1 

1 353 

0CT67777 

10,3543 

1370 

OBLATE 

l 1,3024 

1232 

2 

1228 

1229 

OCT  25 

4353 

= 

1097 

1 

276 

OC  T 7 

4750 

= 

1371 

3 

1295 

1300 

OCCOS 

14,2604 

9 33 

2 

932 

0CT26 

04,2364 

2 43 

2 

241 

242 

0CT700 

04,2426 

244 

2 

241 

242 

OCCULT 

1.4,2  746 

936 

2 

935 

936 

0CT2600 

10,3552 

1370 

1 

1363 

OCT740 

06,3001 

191 

1 

185 

OCTAL  27 

05,3503 

834 

1 

833 

0CT27 

04, 3255 

1244 

1 

1229 

0CT74160 

05,3374 

2 34 

1 

231 

0CTAL3 

6266 

1006 

1 

109  7 

0CT272 

06,2776 

191 

1 

184 

0CT75 

06,2775 

191 

1 

190 

OCTBACK 

41,3463 

458 

1 

460 

0CT27470 

05,3373 

234 

l 

231 

OCT77000 

06,3002 

191 

1 

184 

OCTOOOIO 

474  1 

= 

243 

0CT30 

4754 

= 

440 

2 

440 

893 

OCT7777G 

5652 

1380 

5 

244 

1381 

OC  TOO 0 1 2 

4354 

- 

515 

1 

508 

0CT30000 

4346 

= 

229 

0C24100 

43,2125 

277 

1 

276 

OC  T 00  2 40 

21,3370 

1478 

1 

147  7 

OCT30001 

05,3375 

234 

1 

231 

0C400 10 

06,2773 

191 

1 

190 

OC  TO  2 100 

06,3166 

198 

0CT30002 

6512 

= 

1097 

OFFCALC 

26,3560 

610 

l 

612 

OCT0  5 7 76 

06,3062 

194 

1 

193 

0CT305 

04,2363 

243 

1 

242 

OF FRO T 

27,3312 

852 

1 

852 

OCT 1 0 000 

4730 

= 

229 

0CT31 

6010 

235 

4 

221 

1473 

OFFSTFAC 

26,3706 

613 

1 

610 

OCT  1 0001 

7704 

= 

1097 

1 

193 

0CT3200 1 

05,3371 

234 

1 

231 

OFFTUNIT 

10,3764 

1399 

1 

1399 

OCT  10  200 

10,3546 

1370 

1 

1356 

OCT320C2 

06,3164 

198 

1 

197 

OGABI AS 

E 6 » 16  76 

= 

141 

3 

810 

911 

0CT1  1 

4311 

= 

1093 

0CT33 

4755 

1094 

3 

235 

1094 

OGC 

E 5 , 1 73  7 

= 

128 

17 

128 

1251 

OCT  1 1276 

21,3564 

1482 

1 

1430 

0CT34BAR 

42,3611 

450 

2 

450 

OGCPL 

37,2475 

393 

1 

40  0 

OCT120 

4766 

= 

1097 

2 

24  1 

2 43 

OCT3400 

10,3520 

1369 

1 

1360 

OGCT 

E5 , 1747 

= 

128 

2 

128 

969 

0CT13 

1 5,2354 

928 

1 

928 

0CT34300 

10,3527 

1369 

1 

1352 

OHWELL 1 

04,3424 

1386 

5 

1386 

1387 

0CT14 

5745 

1381 

7 

191 

1485 

OCT35 

4 756 

1094 

3 

740 

1380 

OHWEL  L2 

04,3447 

1387 

4 

1386 

1388 

OCT140 

4767 

= 

1097 

2 

269 

1444 

0CT37667 

04,2424 

244 

1 

239 

OKDESNB 

25,2500 

559 

l 

559 

OCT  1 4 00 

50CC 

1094 

12 

475 

1427 

OCT  3 7 7 37 

06,2162 

170 

1 

180 

OKDESSM 

25,2403 

555 

1 

558 

OCT14000 

5015 

= 

1297 

2 

1296 

1297 

0CT3  7766 

7750 

1096 

2 

165 

1411 

OKEXIT 

24,3432 

592 

1 

59  2 

0CT15 

4752 

1093 

4 

189 

1071 

OCT  3 7 7 71 

37,3537 

863 

1 

861 

OKMANUR 

21,2771 

1 328 

1 

1328 

0CT1 5000 

5016 

= 

191 

1 

189 

0CT37774 

7751 

1096 

OKMAX 

35,3105 

672 

1 

672 

0CT16 

43  10 

= 

1071 

2 

267 

1071 

0CT37775 

06,3031 

192 

1 

192 

OK  PH  I 

22,2722 

374 

1 

374 

0CT1601 

37,3054 

400 

1 

400 

0CT37776 

7752 

1096 

3 

169 

1366 

OKTHFTA 

22,2702 

374 

1 

374 

0CT1 72C 

06,3000 

191 

1 

187 

0CT400U1 

6130 

1002 

5 

231 

1366 

OKTOCOPY 

10,2536 

1356 

2 

1356 

1361 

0CT176 

00,2126 

1048 

2 

1054 

0CT400 10 

C7, 3174 

1312 

2 

1312 

1314 

OKTOENT 

10,3324 

1366 

1 

1369 

OCT  1 7 7 

6115 

= 

1305 

1 

1302 

0CT40072 

04,2425 

244 

1 

239 

OKTOGO 

43,2246 

2 82 

1 

282 

OCT  1 7 770 

5021 

1095 

2 

1295 

1297 

OCT40200 

7756 

1096 

OKTOGRAB 

13,3513 

1217 

1 

1216 

OCT17777 

31,2364 

793 

1 

739 

OCT  40  201 

01,3373 

1123 

1 

l 120 

OKTOPLAY 

10,2611 

1357 

3 

1357 

0CT20 

4740 

= 

744 

0CT40400 

5634 

1379 

3 

1 356 

1381 

OKUPOATE 

25,3502 

5 76 

OCT20CC2 

06,3165 

198 

1 

198 

OCT  404  20 

10,3544 

1370 

OKU  1 2 

22,2256 

366 

1 

366 

OCT20  1 

24,2364 

515 

1 

513 

0CT50 

476? 

1094 

7 

231 

1444 

0KU21 

22,2232 

366 

1 

366 

0CT20  100 

10,3550 

1370 

1 

1355 

0CT500 

04,2362 

243 

3 

242 

243 

0KU31 

22,2302 

367 

1 

367 
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SYMBOL 

DEF 
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REFERENCES 

SYMBOL 

DEF 

H 

0K2DELAY 

00,3753 

13  74 

1 

1374 

CNLI TES 

25,3677 

OLDAGS 

E 3 , 1776 

117 

4 

233 

5 89 

ONULLAGE 

36,2656 

OLDATAGD 

1112 

= 

106 

4 

569 

574 

CP/INERT 

43,2202 

OLDP I PAX 

E 7, 1763 

= 

158 

5 

158 

820 

OPJUMP 

6120 

OLDP I PAY 

E7, 1764 

= 

158 

3 

158 

817 

0PJUMP2 

6270 

OLDP I PAZ 

E7,  1765 

= 

158 

4 

158 

818 

CPJUMP3 

6304 

OLOPM  IN 

E 6 , 1460 

135 

4 

1409 

1429 

OPONLY 

06,2347 

CLOPR  IC 

5404 

1296 

1 

1299 

OPTAX I S 

14,2347 

OLOQRM  IN 

E6, 1461 

135 

4 

1409 

144  3 

OPTCADR 

1302 

= 

OLDS  E N S F 

E 6 , 1 744 

= 

141 

4 

1506 

1507 

OPTCOARV 

43,2234 

= 

OLDT I ME 

32,3614 

837 

1 

836 

OPTFLAG 

1235 

= 

OLDXFCRP 

E 6 , 1440 

135 

5 

135 

1421 

OP  T I ON VN 

22, 3320 

OLUYF  ORP 

E6, 1441 

= 

135 

2 

1421 

OPT IONX 

1050 

= 

OLOZFOR J 

E 6 , 1442 

= 

135 

3 

1410 

1422 

OPT  I ONI 

1143 

OMEG/MS 

37,2000 

46 

1 

392 

OPT I0N2 

1144 

OMEGA 

E 7 , 1502 

= 

151 

9 

151 

1151 

0PTI0N3 

1145 

OMEGA  C 

E 7 , 1734 

= 

150 

3 

328 

530 

OPTSTALL 

07, 3731 

= 

0MEGAM1 

E5,  1 7 12 

= 

131 

3 

131 

1152 

0PT4 

15,2236 

0MEGAM2 

F 5 , 1720 

= 

131 

3 

131 

1152 

0R8CHG0 

24,2007 

OMEGA  M3 

E 5, 1726 

= 

131 

3 

131 

1153 

ORBCHG  1 

24,2021 

OMEGAP 

E 6 , 1421 

134 

18 

134 

1436 

0RBCHG2 

24,2033 

OMEGA  PD 

E 6 , 1642 

139 

13 

139 

14  36 

0RBCHG3 

32,2213 

OMEGAO 

E6, 1422 

= 

1 34 

19 

161 

1445 

ORBITAL 

11,2000 

= 

OMEGAQO 

E 6, 1643 

= 

139 

9 

162 

1439 

ORBI TALI 

12, 2000 

= 

OMEGAR 

E6, 1423 

= 

134 

12 

207 

1445 

ORBI TAL2 

13, 2000 

= 

OMEGARD 

E 6 , 1644 

= 

1 39 

8 

207 

1439 

0RBITAL3 

04, 2000 

= 

OMEGAU 

E6, 1426 

134 

12 

134 

1450 

ORBI TAL4 

24,2000 

= 

OMEGA  V 

E6, 1427 

= 

134 

2 

135 

138 

ORBI TAL5 

21,2000 

= 

OMCGCALC 

26.36C7 

611 

ORBMANUL 

0003 

= 

OMEGDISP 

E 7 , 1734 

= 

150 

3 

150 

611 

ORBMANUV 

05,2046 

= 

UMEGMCON 

13,2000 

48 

l 

1210 

0RBWF8IT 

4737 

= 

OMITWALM 

31,3537 

8 14 

l 

814 

ORBWFLAG 

0066 

= 

ONE 

4744 

= 

1097 

168 

167 

1507 

OROERBIT 

4737 

= 

ONE/SP 

25,3637 

585 

1 

585 

ORDERS  W 

0201 

= 

ONEB-2 

23,2474 

= 

515 

1 

509 

ORIGCHNG 

11 , 3436 

ONEBASE 

37,3375 

710 

1 

706 

OR IGEX 

F4, 151 1 

= 

ONEB I T 

04,3057 

1183 

1 

1194 

OTHCON IC 

37,3203 

ONEDEG 

15,2160 

263 

l 

261 

OTHERS 

13, 3531 

ONEDPP 

37, 3063 

401 

1 

390 

0TH1NT 

37,3214 

ONEOCT 

26,3710 

613 

1 

610 

OTHPREC 

13,3101 

= 

ONEOK  TWO 

5372 

1296 

1 

1298 

OTHSHIP 

22,3335 

ONE  S E K 

22,3165 

379 

4 

378 

3 80 

OURPERMS 

E7 , 1621 

= 

0NESTC2S 

30, 3727 

92  l 

3 

915 

919 

OURRCBIT 

4731 

= 

ONET  FNTH 

20,2450 

1417 

1 

1417 

OURRCFLG 

0306 

= 

ONETHTH 

54,2107 

638 

1 

641 

OURTEMPS 

E7 , 1544 

= 
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i 

618 

OUT 

13,2347 

713 

i 

732 

OUTGOAVE 

22.37L0 

= 

868 

2 

2 78 

280 

OUTHFRE 

0161 

= 

1370 

3 

1366 

1368 

1 

1001 

OUTL INK 

0057 

= 

95 

1 

100  l 

OUTOF  L I M 

24,3251 

528 

2 

528 

529 

1 

1007 

nUTOFPLN 

E5, 1613 

= 

127 

3 

127 

784 

1 

174 

OUTPULSE 

07,3530 

1 321 

2 

1321 

l 

258 

OUTSNUFF 

43,3227 

310 

l 

275 

1 

233 

OUTO 

0010 

= 

95 

5 

166 

170 

1 

282 

OUT  2 2.1 

32,2552 

590 

2 

590 

5 

711 

713 

0UT2 2.2 

24,3435 

593 

l 

592 

1 

716 

OVERFFIX 

37,2275 

390 

2 

388 

392 

13 

283 

717 

OVERFLOW 

7040 

1026 

3 

1025 

1049 

7 

317 

1359 

OVERFLWY 

7035 

1026 

4 

1024 

1049 

15 

508 

978 

OVERFLWZ 

7032 

1026 

4 

1024 

1049 

OVERSUB 

16,2314 

1420 

12 

1422 

1439 

1 

939 

0VERSUB2 

20,2451 

1417 

3 

1413 

1414 

1 

92  5 

OVF  + 

00,2414 

1055 

2 

1055 

1 

508 

OV  FOE  SC 

31,3736 

828 

2 

810 

815 

1 

508 

OV  FIND 

0121 

98 

15 

810 

1107 

1 

508 

OVFLCLR 

12,3210 

1 190 

1 

1190 

1 

508 

OVFLOWCK 

F5, 1576 

= 

133 

3 

385 

400 

3 

2 

1225 

1244 

1244 

OVFRFT 

F 7 , 1 456 

= 

157 

2 

828 

3 

48 

1244 

P 

E 5 , 1 7 3 7 

= 

130 

14 

130 

1198 

1 

1244 

P-RATE 

16,2514 

1423 

l 

1223 

P-RHCCTP 

0043 

= 

94 

4 

1431 

1432 

l 

1220 

PACCFUN 

F 6 , 1556 

= 

1 503 

2 

1496 

4 

246 

247 

PACKOPTN 

15,3373 

9 74 

2 

973 

1 

217 

PACTI VE 

05,3040 

228 

1 

228 

PARAM 

04,3065 

1184 

3 

1 184 

1198 

3 

1218 

1241 

PARAM30 

35,2021 

620 

PASSI VF 

23,2433 

700 

4 

628 

700 

3 

1180 

1181 

PASTEOPT 

4132 

454 

i 

45  4 

l 

1237 

PASTEVR 

4124 

454 

3 

454 

461 

4 

119 

1237 

PASTI T 

07,2160 

265 

1 

265 

1 

710 

PAUTNO 

30,3143 

909 

2 

90  8 

1 

1219 

PAX  AD  I DL 

16,2210 

1411 

1 

1410 

1 

710 

PAXDI ST 

E 6 , 1 564 

= 

1503 

2 

150  1 

3 

704 

717 

PAXFI LT 

16,2653 

1426 

1 

1420 

PAXIS 

16,2217 

1419 

2 

141  l 

1504 

2 

156 

PAXISADR 

20,3744 

1504 

1 

1488 

6 

1430 

1444 

PBIASX 

E3, 1452 

1 14 

2 

114 

871 

PBI AS Y 

F3 , 1454 

l 14 

1 

871 

i 

156 

PBIASZ 

E3, 1456 

l 14 

1 

871 
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2021 

DEF, 

618 

738 

280 

1001 

1007 

1008 

176 

259 

l 10 

2 82 

109 

717 

105 

107 

107 

107 

1327 

925 

508 

508 

508 

508 

30 

31 

31 

29 

33 

32 

247 

205 

73 

73 

81 

81 

1237 

119 

707 

1218 

708 

33 

717 

156 

89 

89 

156 

D BY 
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SYMBOL 

DEF 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

PBIT 

A 7 3 3 

— 

136 

A 

l A 30 

1A33 

PHS8B2 

E3 , 1AA1 

11A 

P INMASK 

7761 

= 

1370 

l 

1362 

P BODY 

EA, LA30 

1 IS 

18 

113 

12A3 

PHSBB3 

• E 3 , 1 A A3 

1 1 A 

PINSUPBT 

A 1 72 

= 

A67 

5 

286 

A 7 l 

PCLOOP 

05, 30C0 

227 

1 

223 

PHSBBA 

E3 , 1AA5 

1 1A 

PINSUPER 

AO, 2000 

= 

37 

1 

286 

PCONS 

EA, L735 

= 

1 2 A 

5 

1 2 A 

855 

PHSBB  5 

E3 , 1 AA7 

1 1 A 

PINTEST 

A3, 2002 

= 

A81 

PDB1 

E6 , 1560 

= 

1503 

l 

1501 

PHS8B6 

E3 , 1A51 

1 1A 

PIPABIAS 

E3.1A52 

= 

1 1A 

1 

338 

P0B2 

E6,  1561 

= 

1503 

1 

1501 

PHSCHNGA 

5361 

1295 

1 

239 

PIPACHK 

37,2126 

387 

1 

386 

PDB3 

E6,  1563 

= 

1503 

1 

1501 

PHSCHNG2 

10, 2213 

1297 

1 

1296 

PIPAGE 

1256 

= 

108 

5 

111 

875 

PDBA  . 

E6, 1562 

= 

1503 

1 

1501 

PHSNAME1 

E3, 1 A36 

11A 

5 

1297 

1302 

P I PASO 

37,3077 

A01 

1 

397 

POOL 

6 5 A A 

1018 

l 

1009 

PHSNAME2 

F3 , IAAO 

1 1A 

1 

329 

P IPASCF 

E3 , 1 A53 

= 

1 1A 

1 

338 

PDSPFBIT 

A727 

= 

75 

2 

A 89 

A 90 

PHSNAME3 

E3 , LAA2 

1 1 A 

1 

829 

PI PASCFX 

E3 , 1 A53 

11A 

1 

1 1 A 

PDSPFLAG 

0 1 1 A 

= 

75 

3 

A90 

535 

PHSNAMEA 

E3 , 1 AAA 

1 1A 

PIPASCFY 

E3.1A55 

1 1A 

PDVL 

6600 

1019 

1, 

1009 

PHSNA  -1 1 5 

E3 , l AA6 

1 IA 

2 

892 

PIPASCFZ 

E3 , 1A57 

1 1A 

PDXCHNGE 

12.227A 

1175 

2 

1175 

PHSNAME6 

E3, 1 A50 

1 1A 

PIPASR 

3 7,3  5A0 

373 

A 

3A6 

960 

PEG  I 

16,3301 

1A33 

2 

1 A3  3 

PHSPART2 

01 , 3765 

1305 

1 

1305 

P I PATASK 

37,2151 

387 

2 

387 

PERFCFFK 

10,3155 

1363 

PHSPRDT1 

1053 

105 

5 

1296 

130A 

PIPATMPX 

1157 

107 

A 

817 

896 

PERFDL AY 

E5,  1 5 7 A 

= 

l 33 

1 

386 

PHSPRDT2 

1055 

105 

3 

105 

522 

P I PATMPY 

l 160 

107 

A 

817 

896 

PERFERAS' 

37,2772 

399 

1 

397 

PHSPRDT3 

1057 

105 

1 

2 AA 

PIPATMPZ 

1161 

107 

A 

817 

896 

PERFMASK 

10,3503 

1369 

2 

1353 

1359 

PHSPRDTA 

1061 

105 

l 

2A3 

PI  PAX 

0037 

= 

9A 

17 

161 

1315 

PERF2MSK 

10,3507 

1369 

2 

1358 

1359 

PHSPRDT5 

1063 

105 

PIPAY 

OOAO 

= 

9A 

8 

16  1 

1315 

PERFAMSK 

10,3511 

1369 

1 

1359 

PHSPRDT6 

106  5 

105 

PI  PAZ 

OOAl 

= 

9A 

11 

209 

13  15 

PERI APO 

2 3,  2 3A  7 

698 

1 

6A0 

PHS2CADR 

01,3772 

1305 

1 

1300 

PIPCTR 

1055 

= 

105 

2 

831 

862 

PERI AP01 

23,2337 

698 

3 

623 

666 

PI/16 

27, 3757 

1280 

2 

1276 

1278 

PI PCTR1 

E7, 1722 

= 

158 

2 

831 

895 

PER  1 0 DCH 

12,2112 

1 1 73 

1 

1173 

P I C A P A R 

1A.2620 

93A 

1 

93  A 

PIPFAIL 

06,2650 

187 

1 

191 

PERROR 

E 6 , 1 A6 A 

135 

8 

16A 

1 A3  6 

P ICBXT 

1A, 3021 

937 

1 

937 

PIPFREE 

07,3275 

1315 

1 

867 

PFAILCK 

07, 32A  1 

13  1 A 

1 

1 76 

PICEND 

1A, 2 77A 

936 

1 

935 

PIPFREE2 

07,3272 

1315 

1 

1315 

PFAI LCK2 

07 , 3 23 A 

13  1A 

1 

13 1 A 

P ICGXT 

1A,  3000 

937 

1 

937 

PI PINDEX 

E 5 , 1 A 1 5 

= 

132 

6 

132 

391 

PFLI TEDB 

20,2 1A3 

1 A 05 

3 

7A9 

3 A 1 

P ICKANG1 

27 , 2 1A7 

A97 

1 

A97 

PIPJOBB 

37,2166 

387 

1 

387 

PFRAT  TIT 

A 7 A 1 

= 

72 

1 

92A 

PICKAXIS 

27,2170 

A98 

2 

A96 

PIPSDONE 

3 7,3  AAO 

861 

1 

875 

PFRATFLG 

0051 

= 

72 

A 

7 6 A 

9 A 1 

P TCKX 

26, 2 AOA 

A98 

2 

A98 

PIPSRINE 

37.35A3 

= 

960 

2 

96  A 

PGUIDE 

12A6 

= 

108 

6 

108 

3 8A 

P ICNSWP 

1A, 3017 

937 

1 

937 

PIPTIME 

1233 

108 

27 

206 

12  19 

PHASCHNG 

5355 

1295 

123 

2A0 

1392 

PIC1 

l A , 2 65 A 

935 

3 

935 

PIPTIME1 

E7, 1560 

= 

15A 

11 

15  A 

122  1 

PHASETAB 

10,2000 

= 

30 

1 

1297 

P IC2 

1 A , 2657 

935 

1 

935 

P I PUS  F 

07,3260 

1315 

PHASE  1 

0752 

103 

3 

228 

1299 

PIC3 

1 A , 2 667 

935 

5 

935 

936 

PIPUSE1 

0 7,3  26A 

1315 

1 

3A8 

PHASE2 

075A 

103 

2 

756 

362 

PICA 

1A, 2672 

935 

1 

935 

PITCH 

EA, 1755 

= 

1 2 A 

2 

328 

8 A 1 

PHASE3 

0756 

103 

1 

732 

PIF 

E7 , 1612 

= 

156 

11 

156 

810 

PI TCHANG 

EA, 1571 

= 

122 

7 

122 

503 

PHASEA 

0760 

103 

1 

866 

PIFPSET 

E 7 , 1606 

= 

156 

5 

156 

792 

PITCHOFF 

27,3262 

778 

2 

777 

PHASE  5 

0762 

103 

1 

732 

PINACT 

05, 30A5 

228 

1 

228 

PITFALL 

1 1 ,2302 

822 

2 

16  A 

PHASE6 

C 76  A 

103 

1 

737 

PIN8ALL1 

AO, 2000 

= 

37 

A 

311 

A85 

P I T T I M F 

E 6 , 1 A02 

13A 

2 

326 

777 

PHAS JUMP 

5365 

1296 

1 

1295 

PIN3ALL2 

Al, 2000 

= 

37 

3 

311 

A83 

PJETCTR 

E 6 , 1766 

IA2 

A 

1A2 

I A26 

PHAST  ABl 

1 A , 2 OC  0 

= 

32 

1 

1291 

PINBALL3 

A2 , 2000 

= 

37 

3 

293 

A3  A 

PJETSLEC 

16,3357 

1 A3A 

5 

1 A29 

1A37 

PHEXI  T 

1 3 , 32  3A 

1213 

1 

1213 

P INBALLA 

OA, 2000 

= 

29 

l 

A72 

PLANET 

07,2607 

959 

9 

259 

968 

PHI 

002A 

= 

536 

PINBRBIT 

A737 

= 

75 

PLANT  IN 

2A.2000 

= 

33 

2 

1139 

1 1 A3 

PH1LEM 

EA, 1575 

= 

120 

A 

329 

705 

P INBRFLG 

0 105 

= 

75 

1 

136  2 

PLANT  INI 

26,2000 

= 

3 A 

2 

1138 

1 1 A A 

PHIV 

E A , 1 A A 5 

= 

l 18 

6 

118 

1239 

PINBRNCH 

10,3062 

1362 

8 

239 

1369 

PLANT  IN2 

26,2000 

= 

3 A 

1 

5 A 

PHSBB  1 

E3,  IA37 

1 1A 

P INIOMSK 

10,3367 

1367 

1 

1367 

PLANT IN3 

25,2000 

= 

33 

1 

11A2 
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SYMBOL 

DEF 

H 

REFERENCES 

symbol 

DEF 

PL AN V EC 

E7, 1553 

= 

1 51 

5 

151 

948 

POSITA 

15,3662 

PLAST 

Efc, 1454 

135 

5 

1422 

1432 

POSITB 

15, 3665 

PL AY  J CM  l 

10,2627 

1357 

3 

1362 

1369 

POSITO 

15,3704 

PL  AYT  EM  1 

0 155 

= 

1370 

29 

1351 

1360 

POSITE 

15,3752 

PLAYTLM3 

0157 

= 

1370 

3 

1360 

1367 

POSITF 

15, 3725 

PLAYTEM4 

0160 

= 

13  70 

1 1 

1351 

1367 

POSITON 

E5,  1416 

PLUSF IRE 

21,3653 

1507 

1 

1507 

POSMAX 

4724 

PLUS  X 

27,24*3 

764 

POSNV 

E5, 1520 

PM  INF 

34,2073 

638 

2 

647 

POSTAND 

37,3733 

PMINM 

34,2103 

638 

PCSTBURN 

36,3222 

PMMASK 

10,3522 

1369 

1 

1357 

PQSTCOH 

E7,  1603 

POINTER 

0156 

1305 

7 

1303 

1305 

POSTCOM 

37,3762 

POINT VSM 

E 7, 1772 

= 

153 

9 

261 

953 

POSTCSI 

E 7, 1601 

POLISH 

0117 

98 

39 

98 

1092 

POSTHRST 

21,3607 

PULLEY 

5042 

1100 

2 

1100 

POSTJUMP 

4626 

POLY 

7243 

1032 

7 

859 

1279 

POSTORKP 

E6 , 1 5 1 3 

POLYCNT 

0 140  ' 

= 

99 

4 

1032 

1033 

POSTORKU 

E6 , 1515 

PDLYCCEF 

12,3031 

1187 

1 

1189 

PCSTORKV 

E6,  1517 

POLYCCM 

7253 

1032 

l 

1032 

POST  ST 

33,2450 

POLYLOOP 

7263 

1033 

l 

1033 

POSTTP I 

E7 , 1605 

POLY!'  I 1 

0 141 

= 

99 

3 

1032 

1033 

POSUP 

33, 3222 

POLYTEMP 

E 6 , 1 740 

= 

136 

10 

142  8 

1456 

POSUPDAT 

33,3070 

POL  Y 2 

7266 

1033 

1 

1033 

P0S1/2 

4 72  7 

PON 

37,2251 

388 

l 

388 

POS 1/4 

12,3765 

P0N2 

37,2240 

388 

POWERDB 

20, 2153 

P0N4 

37,2245 

383 

1 

388 

POWFL I TE 

23,2000 

POODOC 

5644 

1380 

4 

461 

1231 

POWFL I T 1 

23,2000 

POODOOl 

5722 

1381 

2 

1077 

1130 

POWRSERS 

7236 

POOF  1 ll 

04,2315 

242 

1 

242 

PQRBI T 

16,3130 

POOH 

04,2217 

240 

PRATE 

E 4,  1 741 

POOHBIT 

4726 

= 

72 

PRDTTA9 

01,2000 

POOH  FLAG 

0C55 

= 

72 

3 

240 

1216 

PREBJUMP 

5320 

POOKLFAN 

05,2651 

225 

1 

241 

PREC I 8 IT 

4735 

POSAI  PH 

2 1, 332  1 

1477 

2 

14  77 

PRECIFLG 

0064 

POSCHECK 

21,3633 

1507 

l 

1506 

PRECSET 

23,2401 

POSCHNG? 

33,2471 

878 

2 

878 

PREOOT 

7175 

POSCODE 

0734 

103 

6 

328 

957 

PREDSPAL 

40,3445 

posdel 

12,2620 

1181 

1 

1180 

PREGUIDE 

31,2373 

POSDELX 

12,2246 

1175 

1 

11  74 

PREMMl 

04, 2472 

POSDR  IVE 

2 l, 3525 

1481 

2 

1471 

1481 

PREMON  l 

11,2323 

POSEC 

42,3425 

437 

2 

437 

RREM0N2 

11,2324 

POSFNCT 1 

21,3160 

1472 

1 

1472 

PRENVBSY 

4430 

POSGMBL 

3 7, 2064 

386 

PREPAST 

07, 2203 

POSGN 

40,2376 

4 14 

1 

410 

PRERADAR 

25,3110 

POSI NDEX 

33,3501 

892 

2 

886 

8 89 

PREREAD 

37, 3401 
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REFERENCES  SYMBOL  DEF  H REFERENCES 


1 

984 

PRERRORS 

43,3251 

1283 

3 

1284 

1 

984 

PRESINE 

00,3526 

1080 

2 

1080 

1 

985 

PPFST  AND 

37,3656 

13  32 

I 

1332 

1 

984 

PRESTORF 

6442 

1014 

1 

1014 

PRETIMCK 

16,2673 

1426 

2 

1425 

6 

132 

393 

PR  IMNMSK 

10,3553 

13  70 

1 

1352 

47 

181 

1504 

PRIOBORT 

10,2607 

1357 

2 

1355 

1365 

2 

398 

399 

PRIOCHNG 

5137 

1103 

20 

287 

1367 

2 

1332 

1333 

PR  I0CH2 

01,3076 

l 1 10 

1 

1103 

4 

252 

755 

PR IODBIT 

4727 

= 

74 

L 

1362 

3 

147 

647 

PR  IODFLG 

0075 

= 

74 

2 

1334 

PR IODSP 

10,2502 

1355 

2 

521 

523 

2 

640 

64  7 

PR  IODSPR 

10,2477 

1355 

2 

530 

1379 

5 

1507 

1508 

PR IHENT 

5577 

1378 

2 

1379 

1381 

64 

175 

1399 

PR  IOL ARM 

10,3572 

13  79 

5 

513 

529 

3 

162 

206 

PR  IOMONR 

10,2326 

1352 

1 

527 

6 

162 

216 

PR  IOOCT 

10,3537 

1 3 70 

2 

1353 

1360 

6 

162 

217 

PR  I OP  L AY 

10,2630 

1357 

1 

1353 

PRIOR  I TY 

0167 

101 

36 

232 

1358 

4 

147 

666 

PRIOT IME 

1 164 

107 

2 

1356 

1366 

PRI01 

4 733 

= 

1097 

PR  1010 

4730 

= 

1097 

5 

296 

777 

2 

1 120 

PRI011 

5013 

1095 

PR  1 01 2 

4635 

996 

3 

222 

755 

2 

1404 

1405 

PR  1013 

5014 

1095 

3 

741 

1352 

1 

1256 

PR  1014 

5015 

1095 

3 

519 

1300 

PR  1015 

5016 

1095 

6 

191 

1368 

2 

826 

. PR  1016 

5017 

1095 

6 

191 

736 

l 

1431 

PR  101 7 

5020 

1095 

5 

730 

854 

9 

124 

855 

PR  102 

4732 

= 

1097 

3 

1303 

1305 

PR  1020 

4727 

= 

1097 

8 

282 

861 

PR  102 1 

5022 

1095 

3 

340 

860 

PR  1022 

7731 

1095 

6 

283 

860 

6 

247 

1216 

PR  1023 

7732 

1095 

l 

816 

4 

62  8 

669 

PR  1024 

7733 

1095 

l 

568 

2 

1036 

1039 

PR  1025 

7734 

1095 

4 

505 

866 

1 

430 

PR  1026 

7735 

1095 

9 

380 

562 

1 

801 

PR  1027 

7736 

1095 

5 

203 

1404 

2 

239 

243 

PR  1 03 

5006 

1095 

5 

706 

1097 

1 

823 

PR  1030 

4346 

= 

1 097 

12 

184 

1368 

l 

322 

PR  103  1 

7737 

1095 

5 

348 

1439 

l 

479 

PR  103  2 ■ 

7741 

1095 

2 

876 

1365 

3 

272 

2 74 

PR  1033 

7 742 

1095 

1 

1356 

2 

569 

570 

PR  1034 

7 743 

1095 

1 

109  7 

l 

732 

PR  103  5 

7 744 

1096 

l 

1119 

JOKER  OR  ERASE  ANYWHERE  MD  MULTIPLY  DEFINED 

XX  MISCELLANEOUS  TROUBLE 


l SA  2021 

OF  DEF, 

H 

983 

983 

984 

985 

984 

= 132 

1093 

= 133 

1333 

749 

147 

13  34 

147 

1506 

996 

= 137 

= 137 

= 138 

877 

147 

888 

886 

= 1097 

= 1244 

1405 

= 33 

= 33 

1032 

1431 

= 124 

= 250 

1291 

= 73 

= 73 

700 

1031 

460 

794 

= 246 

822 

822 

479 

265 

569 

860 

INED  BY 

T 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

PR  1036 

7745 

1096 

1 

578 

PLSHUP 

6236 

1006 

1 

1002 

P20LEMD2 

24,2355 

515 

1 

515 

PR  103  7 

7 746 

1096 

9 

243 

1401 

PUTAOD 

41,2361 

424 

3 

424 

P20LEMF 

24,2307 

514 

PR  104 

4 7 31 

= 1097 

4 

286 

5 04 

PLTCOM 

41,3145 

443 

8 

439 

442 

P20LEMWT 

24,2310 

5 14 

6 

512 

536 

PR  105 

5010 

1095 

10 

240 

12C6 

PUTC0M2 

41, 3225 

444 

4 

444 

446 

P20LEM1 

24,2065 

511 

1 

53  l 

PR  106 

5011 

1095 

4 

552 

1427 

PUTDCSF2 

41,3257 

445 

1 

445 

P20LEM2 

24,2071 

511 

1 

512 

PR  107 

5012 

1095 

7 

287 

720 

PUTDECSF 

41,3244 

445 

2 

444 

P20LEM3 

24,2164 

512 

1 

512 

PRLIM  IT 

33,2113 

858 

2 

849 

PUTDPCOM 

41,3200 

444 

1 

444 

P20LEM5 

24,2156 

512 

2 

512 

PROCEED 

10,3417 

1367 

r 

1366 

PUTNORM 

41,3207 

444 

l 

444 

P20LMWT1 

24,2317 

5 14 

PROCEEOE 

06, 2075 

168 

PUTSFNOR 

41, 3256 

445 

1 

445 

P20REG 

04,2365 

243 

1 

242 

PROCKEY 

'40,3501 

463 

i 

168 

PUTXY 

41,2764 

441 

P20S 

24,2000 

- 

33 

6 

507 

658 

PR0CKEY1 

40,3507 

464 

PUT  X YZ 

41, 2663 

439 

P20S1 

25,2000 

_ 

33 

4 

54? 

603 

PROCTNON 

06,2242 

174 

i 

1 74 

P VALVE  ST 

1273 

109 

7 

202 

223 

P20S2 

25,2000 

= 

33 

PRODUCT 

21,3455 

1480 

PWRCNT 

0140 

= 

100 

2 

825 

826 

P20S3 

26,2000 

= 

34 

2 

595 

604 

PROGL  ARM 

5616 

1378 

2 

1378 

PWRPTR 

0117 

= 

100 

4 

325 

826 

P20S4 

32,2000 

= 

35 

1 

508 

PROG  R A V 

15,2  7C6 

963 

1 

963 

POOHCHK 

13,3407 

1216 

2 

1215 

1216 

P 2 1AL  T 

E7, 1715 

- 

l 55 

2 

329 

660 

PR0G20 

24,2000 

507 

2 

245 

507 

P05P06 

37,2000 

= 

37 

1 

1332 

P21BASER 

E 7 , 1675 

= 

155 

3 

155 

659 

PROG20A 

24, 2040 

510 

3 

508 

510 

P 06 

37,3654 

1332 

1 

245 

P2 1BASEV 

E7, 1703 

- 

155 

3 

155 

659 

PR0G2  1 

24,344  1 

658 

1 

245 

P 12 

30,2000 

= 

35 

1 

839 

P21C0NT 

24,3510 

659 

1 

658 

PROG22 

24,2000 

= 507 

1 

245 

P 12A 

23,2000 

= 

33 

P2  10SP 

24,3566 

659 

1 

659 

PROG  2 5 

24,2462 

518 

1 

245 

P12ADRES 

30,2306 

842 

1 

840 

P21FLAG 

0004 

- 

68 

2 

658 

659 

PROG52 

15,2201 

924 

1 

245 

P 12IGN 

36,2523 

735 

1 

7 2 6 

P21FLBIT 

4732 

= 

68 

l 

228 

PROJMAX 

31,3766 

830 

1 

810 

P12INI  T 

30, 2243 

841 

2 

836 

839 

P21GAM 

F7, 1713 

= 

155 

3 

1 55 

659 

PROJM IN 

31,3767 

830 

1 

810 

P12LM 

30, 2061 

839 

1 

245 

P2 10P  IG 

1 162 

_ 

155 

2 

659 

PROK 

30,2550 

849 

2 

849 

P12LMB  ' 

30,2120 

839 

P2 1PR0G1 

24 , 3454 

658 

1 

660 

PRONV  BIT 

4736 

= 75 

P 12RET 

30, 2210 

841 

1 

851 

P2 1PR0G2 

24,3466 

658 

1 

660 

PRONVFLG 

0104 

= 74 

1 

1363 

P12SP0T 

36,2150 

= 

728 

1 

726 

P21PRTM 

24,3623 

660 

1 

65  8 

PRSHR  TMP 

4406 

477 

4 

433 

435 

P12TABLE 

36,2024 

726 

1 

842 

P21TTMF 

E 7 , 1 762 

- 

153 

9 

149 

660 

PRT2C ADR 

01,3773 

1305 

1 

1302 

P20FLGQN 

35, 2366 

635 

4 

627 

669 

P21VEL 

E7, 1711 

_ 

155 

4 

155 

659 

PSEUD055 

E 7 , 1 6 1 4 

= 156 

3 

156 

791 

P20LEMA 

24,2167 

512 

3 

51  1 

525 

P2 1VSAVE 

24,3532 

659 

1 

65  9 

PS  IV 

E 4 , 1453 

= 1 18 

3 

118 

1239 

P20LEMB 

24,2175 

512 

6 

512 

513 

P25FL AG 

0006 

- 

68 

3 

518 

13  92 

PSKI P ADR 

16,3624 

1439 

P20LEMB1 

24,2241 

513 

1 

528 

P25FLBIT 

4734 

_ 

63 

4 

239 

518 

PSTH I B IT 

4732 

= 86 

2 

888 

891 

P20LEMB2 

24,2244 

513 

1 

513 

P25LEM1 

24,2476 

5 18 

3 

25  1 

519 

PSTH I GAT 

025  1 

= 86 

P20LEMB3 

24,2246 

5 13 

2 

513 

514 

P25LEM2 

24,2521 

519 

1 

519 

PTBAD 

05,3056 

228 

3 

227 

P20LEMB4 

24,2263 

514 

1 

513 

P25LMWT1 

24,2515 

519 

1 

519 

PT 1G I NC 

E7, 1402 

144 

1 

669 

P20LEMB5 

24,2213 

513 

1 

52  1 

P3XORP7X 

35,3614 

686 

1 

683 

PTOA C SM 

13,2743 

1208 

1 

1213 

P20LEM86 

24,2231 

513 

2 

513 

P30 

35,2000 

620 

1 

245 

PTOAL  EM 

13,3016 

1209 

2 

309 

12  13 

P20LEMB7 

24,2206 

513 

P30N33 

3 5 , 2 0 04 

620 

PULS  E FLG 

0303 

= 89 

4 

296 

787 

P20LEMC 

24,2275 

514 

3 

52.1 

523 

P30S 

35,2000 

_ 

36 

1 

620 

PULSE IMU 

10,3715 

1397 

1 

392 

P20LEMC l 

24,2322 

514 

3 

251 

515 

P30S1 

34,2000 

_ 

35 

1 

622 

PULSEM 

14,3237 

942 

P20LEMC2 

24,2337 

515 

1 

515 

P30ZER0 

35,2424 

637 

10 

627 

664 

P ULS E S 

4 7 2 6 

= 89 

3 

733 

1442 

P20LEMC3 

24,2267 

514 

3 

513 

525 

P32 

35,2034 

627 

1 

245 

PURGENCY 

16, 3464 

1436 

3 

1430 

1433 

P20LEMC4 

24,2274 

514 

l 

516 

P 3 2/P 72A 

35,2060 

627 

L 

62  7 

PURRS4 

10,2727 

1359 

2 

1353 

1359 

P20LEMC5 

24,2155 

512 

l 

511 

P32/P72B 

35,2136 

628 

1 

629 

PUSH 

ill  i c i i i nr 

00,3247 

10  75 

1 

1011 

P20LEMD 

24, 2342 

515 

1 

514 

P32/P72C 

35,2157 

629 

1 

647 

FU6HL  nc 

0166 

101 

35 

266 

1107 

P20LEMD1 

24, 2346 

515 

2 

515 

P32/P72D 

35,2163 

629 

1 

629 
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SYMBOL 

DEF 
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SYMBOL 

OFF 

P32/P72E 

35,2165 

629 

1 

629 

P41LM 

36,3271 

P32/P72F 

35,2173 

629 

1 

629 

P4  IMANU 

36,3214 

P32STRT 

35,2037 

627 

1 

627 

P41N0RM 

36,3324 

P33 

35,2223 

633 

1 

245 

P41SP0T 

36,2153 

P33/P73A 

35,2226 

633 

2 

633 

634 

P4 IT  ABLE 

36,2055 

P33/P73B 

35,2240 

633 

I 

634 

P42ADRES 

36,3134 

P33/P73C 

35,2307 

634 

1 

633 

P42IGN 

36,2540 

P33/P730 

35,2313 

634 

1 

634 

P42LM 

36,3411 

P33/P73E 

35,2321 

634 

1 

6’34 

P42SP0T 

36,2150 

P33/P73F 

3 5 12  332 

634 

1 

634 

P42ST  AGE 

36,3421 

P 34 

35,2455 

664 

1 

245 

P42TABLE 

36,2063 

P34/P74A 

35, 2460 

6 64 

2 

6 64 

665 

P473QD 

36, 3505 

P34/P74B 

35,2510 

665 

1 

664 

P47BODY 

36,3514 

P34/P74C 

35,2512 

665 

1 

666 

P47LM 

36,3437 

P34/P74D 

35,2553 

665 

1 

665  ' 

P50S 

15,2000 

P34/P  74E 

35,2556 

665 

I 

665 

P50S1 

14,2000 

P35 

35,2(43 

669 

1 

245 

P50S2 

13,2000 

P35/P75A 

35,2(52 

669 

1 

669 

P50S3 

21,2000 

P35/P75B 

35,2657 

669 

1 

669 

P51 

14,3404 

P40/RET 

114  1 

107 

4 

741 

749 

P5  IB 

14,3436 

P40A/P 

35, 3712 

743 

1 

743 

P51C 

14, 3447 

P40A/PMD 

35,3742 

744 

1 

743 

P51D 

14,3465 

P40ADRES 

36,3132 

744 

l 

748 

P5  IE 

14,3505 

P40ALM 

36,3  120 

743 

2 

743 

753 

P51G 

14,3527 

P40AU10 

35,3710 

743 

2 

728 

836 

P52A 

15,2211 

P40IGN 

36,2506 

734 

1 

72  7 

P528 

15,2213 

P40IN 

36,3177 

749 

1 

753 

P 5 2D 

15,2300 

P40LM 

36,3146 

748 

1 

245 

P52E 

15, 2233 

P40PHS1 

36,3235 

750 

2 

750 

754 

P52F 

15,2321 

P40S 

36,2000 

= 

37 

7 

39 

753 

P52H 

15,2310 

P40SJUNK 

36,2372 

732 

2 

727 

P52LS 

15,2355 

P40SP0T 

36,2150 

728 

3 

726 

728 

P520UT 

15,2323 

P40SXT4 

36,3212 

749 

2 

749 

751 

P52T 

15,2243 

P40S1 

27,2000 

= 

34 

5 

39 

767 

P52V 

15,2265 

P40S2 

35,2000 

= 

36 

l 

743 

P52W 

15,2274 

P40S3 

35, 2000 

= 

36 

1 

736 

P 5 7 

15,3274 

P40S4 

32,2  000 

= 

35 

1 

752 

P57A 

15,3335 

P40T  ABLF 

36,2040 

726 

1 

744 

P57AA 

15,3337 

P40Z0CM 

35,3700 

736 

1 

736 

P57C 

15,3362 

P40ZO0MA 

35,3705 

736 

l 

736 

P57D 

15,3364 

P41ADRES 

36,3133 

744 

1 

750 

P57JUMP 

15,3543 

P41BLANK 

36,2265 

730 

1 

730 

P57QPT 

15,3302 

P41FJET 

36,3315 

751 

P57UPT0 

15,3557 

P41FJFT1 

36,3317 

75  1 

l 

751 

P57DPT1 

15,3600 

P41IN 

36,3322 

751 

1 

751 

P570PT2 

15, 3616 
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REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

1 

245 

P570PT3 

15,3617 

980 

1 

978 

P57P0ST 

15,3225 

9 70 

3 

969 

970 

P63ADRES 

32,3063 

785 

1 

781 

2 

727 

728 

P63DISPS 

31,3426 

81  1 

l 

795 

2 

744 

758 

P63IGN 

36,2465 

734 

l 

728 

1 

753 

P63IGN1 

36,2516 

734 

4 

727 

735 

P63LM 

32,2602 

781 

l 

245 

1 

245 

P63SP0T 

36,2153 

= 

728 

l 

727 

1 

727 

P63SP0T3 

32,3034 

785 

1 

785 

1 

727 

P63SPDT4 

32,3046 

785 

1 

785 

1 

744 

P63TABLE 

36,2100 

727 

2 

744 

785 

1 

755 

P63Z00M 

35,3673 

736 

2 

754 

P64CEED 

31,3462 

812 

l 

812 

1 

245 

P640B 

31,3761 

829 

1 

799 

6 

261 

972 

P64DI SPS 

31,3444 

812 

2 

795 

812 

6 

47 

972 

P66 

31,3517 

814 

2 

79  8 

1 

929 

P66HZ 

32,3074 

815 

l 

814 

1 

95  0 

P66L0C 

32,2000 

= 

35 

1 

815 

3 

245 

948 

P66PR0BT 

4 744 

= 

69 

l 

816 

1 

947 

P66PR0FL 

0016 

= 

69 

2 

79  7 

813 

1 

948 

P66VERT 

32,3164 

816 

3 

815 

816 

1 

947 

P70 

21,2132 

832 

l 

244 

1 

948 

P70A 

21,2133 

832 

2 

253 

832 

1 

948 

P70CA0R 

04,2436 

244 

1 

244 

2 

924 

925 

P70INI T 

32,3465 

835 

l 

925 

P70NOW? 

21,2121 

332 

2 

927 

929 

P7071BIT 

4730 

= 

82 

P7071 FLG 

0211 

= 

82 

3 

834 

850 

1 

925 

P 7 1 

21,2135 

832 

1 

925 

P7  1A 

21,2136 

832 

2 

253 

832 

1 

92  6 

P71N0W? 

21,2102 

831 

1 

92  3 

P71RET 

32,3577 

8 36 

l 

835 

2 

925 

P72 

35,2036 

627 

l 

245 

P73 

35,2225 

633 

1 

245 

1 

926 

P 74 

35,2457 

664 

1 

245 

1 

245 

P 75 

35,2647 

669 

1 

245 

P76ER77 

13,2207 

711 

2 

245 

1 

973 

P 7 6L0C 

13,2000 

= 

31 

l 

71  1 

2 

1 

974 

974 

P76SUB1 

13,2363 

713 

1 

712 

2 

970 

Q 

0002 

= 

94 

432 

95 

1507 

2 

973 

0+1 

6760 

1023 

7 

167 

1371 

2 

978 

0+10000 

4634 

996 

1 

998 

l 

978 

0+2. 

6762 

= 

1023 

7 

537 

1376 

l 

978 

Q— RATE 

16,2550 

1424 

2 

1424 

JOKER  OR  ERASE  ANYWHERE  MD  MULTIPLY  DEFINED 

XX  MISCELLANEOUS  TROUBLE 


,SA  2021 

OF  DEF, 

H 

750 

749 

751 

729 

727 

744 

735 

753 

= 728 

753 

727 

754 

755 

753 

= 32 

= 32 

= 31 

= 32 

947 

947 

94  7 

948 

948 

948 

925 

925 

927 

925 

927 

927 

929 

927 

925 

926 

927 

973 

973 

973 

9 74 

9 74 

978 

973 

979 

979 

980 

INEO  BY 

T 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

Q-RHCCTR 

0042 

= 

94 

3 

1431 

R 

E7 , 1520 

= 

154 

23 

154 

884 

RATEOONF 

16,3132 

1431 

1 

1430 

Q.RORGTS 

17,2136 

1440 

1 

1440 

R(CSM) 

E3 , 1715 

= 

116 

5 

709 

884 

RATE  I NDX 

1322 

110 

3 

223 

376 

QACCDGT 

E6, 1510 

= 

137 

7 

1409 

1488 

k*tl**p 

23,3672 

1260 

2 

126  1 

P.ATELIM1 

4757 

= 

I 508 

1 

1507 

QAXIS  ' 

E5, 1577 

= 

127 

4 

127 

856 

R-OTHER 

E3,  1715 

116 

6 

116 

333 

RATEL IM2 

21,3606 

1506 

2 

1508 

QCDUWUSR 

E6 , 1646 

= 

140 

3 

140 

915 

R-RATE 

16,2606 

1425 

2 

1424 

RATELOOP 

16,3642 

1468 

2 

1426 

1468 

UCHAN 

0002 

= 

95 

2 

1091 

R-RHCCTR 

0044 

= 

94 

3 

1431 

RATERROR 

16,3227 

1432 

1 

1432 

QOIFF 

E6, 1450 

= 

137 

3 

1470 

1475 

R-TO-RP 

24,3644 

1140 

6 

787 

1232 

RATES 

30,2505 

848 

1 

848 

UERRC  ALC 

17,2655 

1449 

2 

1410 

1440 

RACCOOT 

E6, 1512 

= 

137 

6 

1409 

1438 

RATESP 

04,2024 

54 

2 

984 

QERR  CALL 

16,3640 

1439 

1 

1439 

RACT1 

E4 , 1673 

121 

11 

121 

652 

RATESTOP 

31,3402 

811 

1 

828 

Q ERR OR 

E6 , 1450 

= 

135 

5 

137 

1450 

R ACT  2 

E4 , 1701 

121 

9 

121 

653 

RATESTRT 

05,3063 

2 29 

1 

223 

QGIMB I TS 

5000 

= 

1427 

1 

1426 

RACT3 

E7, 1535 

147 

20 

628 

700 

R ATFVAR 

E3, 1770 

117 

1 

598 

QGIMT  IMR 

E6, 1631 

139 

9 

139 

1478 

RAOARANG 

26,3360 

606 

2 

600 

601 

RATT 

0000 

= 

1245 

33 

35  1 

122  1 

QHZ 

E5 , 1475 

= 

126 

2 

126 

815 

RADAREAD 

25,3157 

571 

2 

164 

R ATT  1 

0016 

= 

1245 

11 

221 

784 

OLAST 

E 6 , 1 455 

135 

5 

1422 

1445 

RADARFF 

4000 

= 

29 

1 

536 

RBRFGX 

E5, 1402 

= 

125 

2 

125 

829 

OMAJ 

E 5 , 1746 

= 

128 

16 

128 

981 

RADARUPT 

25,2000 

= 

33 

3 

42 

618 

RBRFGZ 

E5, 1406 

= 

125 

1 

125 

QM  IN 

E5.1745 

= 

128 

16 

128 

969 

RADBI TS 

1332 

= 

111 

5 

571 

573 

RCB-13 

15,2002 

54 

1 

984 

QMINEXI  T 

15,3011 

964 

1 

967 

RAOCADR 

1303 

= 

1 10 

4 

233 

557 

RCDUFA IL 

0274 

= 

88 

QOK 

26,2617 

597 

1 

597 

RADDEL 

1270 

109 

2 

577 

RCDUFB IT 

4736 

= 

88 

6 

195 

581 

QPLACE 

E5,  1417 

= 

132 

7 

132 

393 

RAUIN 

25,3325 

573 

1 

573 

RC  DUO  BIT 

4730 

= 

87 

5 

513 

553 

QPLACES 

E 5, 1420 

= 

132 

3 

132 

392 

RADLI TES 

25,3651 

618 

4 

572 

576 

RCDUOFLG 

0266 

= 

87 

QPRET 

0052 

= 

95 

16 

310 

1240 

RADMODES 

0110 

= 

87 

100 

161 

618 

RCNORM 

0042 

= 

1 30 

3 

1 176 

1177 

QRATECIF 

E6, 1436 

= 

135 

2 

L44  5 

RADNOOP 

25,3532 

579 

2 

5 53 

579 

RCO 

E7, 1630 

= 

160 

5 

160 

856 

ORAX  I S 

16, 3625 

1439 

4 

1427 

1435 

RADSAMP 

15,2162 

505 

2 

289 

505 

RC  S 

17,2141 

1440 

4 

1447 

1448 

QRBI  T 

4732 

= 

136 

4 

1430 

1446 

RADSTALL 

07,3733 

1326 

12 

278 

894 

RCSFL AGS 

E6, 1774 

142 

5 1 

143 

1481 

QRCNTR 

E6,  1747 

= 

137 

9 

1470 

1482 

RADSTART 

17,2000 

577 

3 

570 

577 

RCSMON 

06,3213 

202 

l 

202 

QRCONTRL 

17,2232 

1442 

1 

1441 

RADTIME 

1267 

109 

2 

577 

RCSMONEX 

5272 

= 

201 

2 

20? 

203 

QRNDXER 

0066 

= 

1476 

9 

1477 

1478 

RAUUSE 

1077 

= 

106 

8 

569 

576 

RCSMON IT 

06,3213 

= 

202 

2 

169 

OR  TIME 

17,2544 

1446 

2 

1446 

RAMIN 

E5,  1557 

= 

126 

3 

126 

856 

RCSMONT 

06,2000 

= 

30 

l 

201 

QRUPT 

0012 

= 

94 

13 

165 

1426 

RANGCONV 

32,2003 

42 

1 

590 

RC  V 

F 3 , 1 534 

= 

1 15 

28 

115 

1238 

QSAVED 

E 7 , 1464 

146 

2 

683 

6 84 

RANGE 

E4,  1613 

= 

120 

4 

120 

708 

RC VCSM 

E3, 1606 

1 16 

1 

60  5 

QTEMP 

E 7 , 1632 

148 

5 

622 

762 

RANGE  BQ 

26, 2522 

596 

3 

596 

603 

RCVLEM 

E3, 1660 

l 16 

2 

516 

605 

OTEMP  1 

E 7 , 1665 

148 

5 

148 

757 

RANGEBQ1 

26,2532 

596 

1 

596 

RDBADEND 

25,3623 

581 

4 

562 

581 

QT  PROLOG 

23, 3600 

1258 

1 

819 

RANGE  DSP 

E5,  1613 

= 

127 

3 

127 

804 

RDCDUS 

14,3370 

945 

1 

944 

0TSN45 

23,3516 

1254 

1 

1248 

RANGE  VAR 

E3, 1 766 

117 

l 

597 

RDE 

13,3773 

1245 

l 

1232 

OUADGUID 

31,3056 

805 

R ANGRDOT 

E7 , 1 760 

= 

152 

5 

153 

589 

RDES 

1313 

= 

l 10 

4 

1 10 

550 

QUARDLMP 

2 1,2252 

896 

RAPFGX 

E5 , 1404 

= 

125 

1 

125 

RDESGA IN 

25,3055 

568 

2 

566 

QUAR1 ER 

4730 

= 

1097 

4 

1079 

1084 

RAPFGZ 

E5,  1410 

= 

125 

l 

125 

RDES I RED 

E 5 , 1 755 

= 

130 

3 

130 

1196 

QUICTRIG 

2 3, 36C  7 

1258 

3 

865 

1258 

RAPO 

0020 

= 

1271 

1 

1271 

RDG 

E 5 , 1 402 

829 

2 

804 

806 

OUIKDSP 

06,2134 

170 

l 

165 

RAPREC 

F 7 , 1477 

= 

147 

2 

670 

673 

PDIFF 

F6, 1452 

= 

137 

QUIKFAZ5 

33,3473 

892 

13 

865 

891 

RASFLAG 

0106 

= 

84 

6 

1216 

1217 

RDLONOR 

40,3016 

434 

1 

434 

QUIKOFF 

06,2165 

170 

1 

170 

RASTEER1 

27,2733 

772 

1 

76  6 

RDM 

13,3771 

1245 

CUIkRUPT 

06,2 144 

170 

1 

170 

RATE8I AS 

22,3133 

379 

1 

379 

ROOT 

E 7 , 1473 

= 

l 54 

5 

841 

855 

QUITBIT 

4740 

= 

83 

RATEDAMP 

16, 3215 

1432 

3 

1430 

RDOTB I AS 

25,2001 

42 

1 

574 

QUIT  FLAG 

C22  1 

= 

83 

4 

310 

12  15 

RATEDBl 

4760 

= 

1508 

l 

1507 

RDOTCONV 

32,2001 

42 

1 

539 

RATEDISP 

43,2174 

279 

1 

275 

RDOTD 

E4, 1663 

= 

123 

5 

123 

847 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

ROOT  D NOM 

34,3373 

842 

1 

640 

REFLASH 

10, 2452 

ROOT  M 

E7, 1750 

= 

152 

• 4 

152 

598 

REFLASHR 

10,2455 

RDOTMSAV 

E 7, 1746 

= 

152 

4 

152 

589 

PEFMF 

15,3470 

ROOT  V 

E 7 , 16  1 6 

1 47 

4 

148 

642 

REFSMB  IT 

4730 

= 

RDRET 

E 7 , 1675 

= 

151 

3 

151 

606 

REFSMFLG 

0057 

= 

RDRLOCS 

25,2045 

506 

l 

506 

RFFSMMAT 

E3, 1731 

RDRPTB8 

4063 

164 

1 

1 63 

REFTAG1 

4727 

= 

KORUSFCK 

43,2653 

292 

5 

278 

. 288 

R EFT  AGIO 

4732 

= 

RE- 1 N 66 

31,2464 

797 

1 

798 

RFFTAG2 

4732 

= 

RE— I N 66? 

31,2523 

798 

1 

797 

REFTAG3 

4733 

= 

READACCS 

37,3430 

861 

1 

875 

REFTAG4 

4726 

= 

REAUALT 

25,3423 

575 

1 

575 

REFTAG5 

4736 

= 

READALT  2 

25,3420 

575 

1 

575 

REFTAG6 

4734 

= 

READCCUD 

23,2320 

536 

1 

534 

REFTAG7 

4736 

= 

READCCUK 

22,2403 

369 

2 

363 

496 

REFTAG8 

4734 

= 

RE AD L 0 

40,2776 

434 

4 

433 

436 

REFTAG9 

4727 

= 

READLG 1 

40, 3CC  7 

434 

1 

434 

REGCOARS 

15, 2313 

RE  AD  ROOT 

32,2400 

588 

1 

590 

REGODSP 

10, 2460 

READVEL 

25,3414 

575 

2 

575 

REGODSPR 

10, 2463 

RECALTST 

40,3605 

4 73 

2 

442 

463 

REGSLEEP 

07,3357 

RECAL  1 

40, 3610 

473 

1 

473 

REGUP 

6254 

RECAL2 

40,3621 

4 73 

2 

473 

474 

REINTBIT 

4736 

= 

RECAL  3 

40,3633 

473 

R E I NT  F LG 

0236 

= 

RECRAT  10 

13,3765 

1245 

1 

1236 

REJMK 

07,2600 

RECTFST 

1 1,3340 

1236 

3 

1235 

1237 

RELDSP 

4450 

RECT IFY 

13,3720 

1238 

8 

1154 

1237 

RELDSPON 

4365 

RECTOUT 

13,3236 

1213 

2 

12  13 

12  14 

RELDSP  1 

4473 

RED-OVER 

31,3475 

812 

1 

812 

REL0SP2 

4464 

REDES-OK 

31,3477 

812 

1 

812 

RELINTQ 

10,3251 

REDES  IG 

31,2643 

801 

1 

794 

REL INUS 

26,2231 

REOE SMON 

l 1,2326 

822 

1 

822 

RELOADSV 

11,3647 

REDE  SI 

31,2714 

802 

1 

802 

RELRET 

0144 

= 

REDFLAG 

0143 

= 

78 

4 

781 

812 

REL TAB 

4066 

REDFLB  IT 

4737 

= 

78 

2 

801 

812 

RELTAB11 

4101 

REDO 

3 7, 2002 

385 

1 

302 

REMARK 

07,2516 

REDOCTR 

0320 

101 

4 

161 

226 

REMDI ST 

42,2000 

REDOMANC 

26,2 162 

489 

1 

489 

REMODBIT 

4727 

= 

REDOMANN 

26,2 127 

488 

R EMODC HK 

43,2314 

REDOMASK 

10,3512 

13  69 

2 

1354 

1355 

REMODE 

25, 2162 

REDOPR  10 

10,2542 

1356 

1 

1369 

REMOOFLG 

0265 

= 

RE  DO  2 . 17 

36,2341 

731 

1 

251 

RENDEND 

26,3204 

RED04  .2 

36, 2344 

732 

2 

252 

7 54 

RENDEZ 

22,2000 

= 

RED05 .5 

3 7, 3442 

861 

1 

253 

RENDEZVL 

0002 

= 

RE 00 6 . 7 

36,3355 

752 

1 

254 

RENDEZVU 

05,2221 

= 

REDSPTEM 

32,2017 

219 

2 

213 

219 

R ENDNOO 

04,2320 
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REFERENCES 

SYMBOL 

DEF 

H 

references 

4 

740 

812 

RENDR AD 

25,3273 

573 

I 

571 

1 

750 

R ENDVOO 

04,2264 

241 

1 

241 

3 

788 

978 

R ENOW  BIT 

4744 

= 

77 

1 

302 

7 

218 

1329 

R ENDWFLG 

0131 

= 

77 

13 

247 

1241 

7 

683 

970 

REPETE 

35,3115 

672 

l 

672 

56 

1 

977 

REPIP1 

37,3556 

8 74 

1 

875 

REP  IP3 

37,3564 

8 74 

1 

875 

REPIP4 

37,3570 

8 74 

4 

875 

REPOSBIT 

4732 

= 

87 

8 

198 

573 

REPOSCNT 

E7, 1423 

= 

145 

4 

145 

526 

REPOS  MON 

0270 

= 

87 

REPOSRPT 

25,2135 

546 

1 

550 

REPOS  T M 

E 7 , 1424 

= 

145 

5 

145 

527 

RFP40ALM 

36,3122 

743 

2 

727 

743 

REQADD 

41,2111 

420 

1 

420 

REQCOM 

4 1,2337 

4 24 

2 

424 

1 

92  8 

REQDATX 

41,2332 

424 

3 

439 

441 

3 

731 

812 

REQDATY 

41,2334 

424 

3 

439 

441 

REODATZ 

41,2336 

424 

3 

420 

441 

1 

1317 

PEQEXLnC 

41,2234 

422 

3 

1006 

REQEX  1 

41,3535 

462 

l 

463 

3 

1217 

1381 

REQMM 

41,3512 

462 

1 

461 

5 

713 

1389 

REQRET 

1012 

104 

17 

233 

471 

1 

274 

REQUEST C 

41,3541 

462 

l 

463 

10 

238 

837 

REREADAC 

37,3613 

875 

3 

253 

3 

410 

479 

REREPOS 

33,3555 

894 

1 

250 

2 

453 

465 

RERRCALC 

1 7,2675 

1449 

2 

480 

RERROR 

E6 , 1452 

= 

135 

5 

137 

1450 

2 

1360 

1365 

RER60 

26,2251 

490 

1 

490 

1 

251 

RESETRPT 

1 1,2  342 

823 

2 

823 

1 

1240 

RESETX2 

12,3120 

1189 

1 

1187 

4 

479 

480 

RESET  22 

04,2306 

242 

2 

241 

242 

4 

167 

458 

RESIGN 

35,3141 

673 

l 

673 

2 

166 

1097 

RFSQ 

33,2105 

46 

1 

882 

1 

271 

REST 

10,3265 

1365 

1 

1363 

1 

50  2 

RESTART 

01,2000 

= 

29 

4 

250 

1304 

7 

28  2 

609 

RESTARTS 

01,3530 

1300 

l 

228 

1 

283 

RESTORDB 

20,2115 

1404 

8 

300 

1406 

1 

562 

RESTR EG 

1264 

109 

4 

222 

1362 

RESTSLEP 

10,3271 

1365 

1 

136  5 

1 

599 

RESULTCT 

E5, 1537 

= 

132 

5 

387 

391 

1 

1 155 

RESUME 

5272 

1127 

24 

170 

1410 

14 

246 

247 

RE  T JA  OR 

E6, 1477 

136 

4 

1443 

1452 

1 

217 

RETNMORE 

20,2456 

1418 

7 

1413 

1417 

2 

242 

RETNON 

06,2264 

174 

l 

175 

JOKER 

OR  ERASE 

ANYWHERE 

MD  MULT 

I PLY 

DEF  INED 

XX  MISCELLANEOUS  TROUBLE 


2021 

DEF, 

13  54 

13  54 

977 

72 

72 

117 

283 

282 

283 

531 

531 

299 

299 

300 

300 

282 

927 

1355 

1355 

1317 

1006 

84 

84 

274 

479 

476 

480 

480 

1365 

490 

1241 

99 

165 

165 

272 

48 

87 

283 

547 

87 

602 

33 

247 

210 

242 

D BY 
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SYMB01 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

RETROOT 

0132 

= 

100 

3 

825 

827 

RNDVZFLG 

0010 

= 

68 

7 

510 

1382 

ROUNDSUB 

7157 

1030 

4 

1042 

1053 

RE  TUP  NT  J 

17,3521 

1462 

7 

146  1 

1465 

RNGEDATA 

0260 

= 

86 

RP 

E5, 1575 

127 

6 

127 

856 

RE VC NT 

6263 

1006 

3 

959 

1097 

RNGED8IT 

4741 

= 

86 

575 

886 

RP-TO-R 

26,3716 

1138 

8 

782 

1210 

REVERS 

35,3144 

673 

1 

673 

RNGSC  BIT 

4733 

= 

76 

1 

5^cT 

RP  AD 

23,2335 

698 

4 

699 

1280 

REVERSAL 

21,3540 

1481 

1 

1481 

RNGSCFLG 

0120 

= 

76 

2 

574 

588 

RP ADTEM 

E 4 , 1573  . 

120 

6 

120 

724 

REVN1645 

35,2026 

621 

1 

621 

RNRAD 

0046 

= 

94 

5 

571 

573 

RPAD1 

23,233^ 

= 

1280 

REV83 

37,3147 

707 

. 1 

709 

RN1 

E7 , 1544 

= 

154 

7 

154 

1221 

RP  ASS  1 

E 7 , 1^77 

147 

4 

147 

648 

RFAI LCNT 

E4 , 1566 

1 19 

3 

288 

506 

R 0AD8ACK 

25,2357 

553 

4 

553 

579 

RP  ASS  2 

F7,  1521 

147 

7 

147 

653 

RE  A I L S - 

40, 3734 

486 

1 

485 

PODCOMP 

32,3167 

316 

1 

816 

RP  ASS  3 

E7, 1551 

147 

1 1 

639 

700 

RFAI 1 S2 

41,3775 

484 

1 

483 

RC DCOM PA 

32,3213 

817 

2 

817 

RPASS36 

E 4 , 1577 

= 

122 

3 

122 

704 

RGIMBI  rS 

5011 

= 

1427 

1 

1427 

RODCOUNT 

E7 , 1746 

= 

158 

4 

270 

8 16 

RPCOMP  1 

34,3571 

855 

l 

847 

RGIMT  IMR 

E6,  1633 

= 

139 

5 

1409 

1470 

RODFLAG 

0022 

= 

69 

2 

798 

814 

RPC0MP2 

34,3575 

855 

1 

850 

RGOODEND 

25,3616 

581 

5 

. 548 

581 

RODFLBIT 

4731 

= 

69 

2 

228 

798 

RPCRT I ME 

£7,1427 

144 

3 

580 

892 

RGU 

E5, 1623 

= 

127 

8 

12  7 

8C6 

RODIN 

07,2462 

270 

1 

270 

RPCRTQSW 

E 7 , 1 430 

144 

2 

580 

892 

RGVGCALC 

31,2752 

803 

4 

794 

803 

RODSCALE 

E 5 , 1534 

= 

126 

2 

126 

798 

RPER 

0016 

= 

1271 

3 

723 

1271 

RHCACT I V 

17,2377 

1444 

1 

1444 

RCDSCAL1 

E7 , 1756 

= 

158 

3 

158 

8 16 

RPPRFC 

E7, 1521 

= 

147 

2 

670 

673 

RHCMOVED 

16,3220 

1432 

1 

1430 

RODTASK 

32,3157 

816 

1 

816 

RPQFL AG 

0170 

= 

80 

6 

1212 

1237 

RHCSC  ALE 

4736 

= 

90 

1 

306 

RODTRAP 

23,2000 

= 

33 

RPQFL  b IT 

4726 

= 

80 

RHCSCFLG 

0313 

= 

90 

RCE 

14,2006 

47 

1 

932 

RPQV 

E4 , 1 503 

= 

1 19 

8 

119 

1237 

RIGHT 

00,2236 

1052 

l 

1054 

ROLLOVER 

27,3251 

777 

1 

778 

RPREX I T 

0050 

= 

1146 

3 

l 138 

1140 

RIGHT- 

00, 2332 

1054 

l 

1051 

ROLLTI ME 

E6 , 1401 

134 

4 

308 

777 

RPRPX  XXX 

24,3662 

1140 

1 

1 138 

R IGHTR 

00,2031 

1045 

1 

1053 

RONE 

E4 , 1577 

120 

16 

120 

1274 

RPSV 

E4, 1512 

= 

119 

7 

119 

1229 

R IGHT5 

4313 

475 

2 

442 

443 

ROO 

04,2167 

2 40 

RPTORA 

26,3733 

1138 

1 

1 138 

RIGNX 

E 5, 1460 

= 

125 

2 

125 

783 

ROOAD 

04,2423 

244 

1 

240 

RPTORB 

26,3725 

1138 

1 

1139 

RIGN2 

E 5 , L46  2 

= 

125 

2 

125 

783 

ROOTCYCL 

21,3566 

1482 

3 

1480 

RR-AZ 

E4, 1 571 

= 

122 

5 

122 

327 

RIMUZ 

32,3442 

821 

1 

820 

ROOTHALF 

21,3562 

1482 

1 

1480 

RP-ELEV 

E4, 1573 

= 

122 

2 

312 

327 

RINIT 

E4,  17  13 

122 

10 

6 76 

762 

ROOTLOOP 

31,3616 

826 

2 

826 

RP  ANGE 

0024 

= 

583 

2 

511 

583 

RLAST 

E 6 , 1456 

135 

5 

1423 

1445 

RCOTMU 

0020 

= 

1 199 

3 

1177 

1195 

RR ANGLES 

13,2133 

334 

l 

555 

RLM 

E4, 1575 

= 

122 

16 

502 

503 

ROOTPS 

0126 

= 

100 

5 

825 

827 

RR ANGOUT 

40,2634 

431 

1 

430 

RLMSRCH 

E 7 , 1675 

= 

150 

6 

150 

612 

ROOTPS+1 

0127 

= 

100 

RR  ATE 

F4.1615 

= 

120 

5 

120 

708 

RLMUN  I T 

0014 

= 

613 

ROOT  P S RS 

31,3545 

825 

1 

805 

RRATEDIE 

E6, 1437 

= 

135 

l 

1445 

RLS 

E 4 , 1420 

l 18 

16 

1 

1209 

ROOT  S TOR 

31,3662 

827 

3 

326 

827 

RRAUTCHK 

06,3035 

193 

2 

169 

RM 

E7, 1756 

= 

152 

4 

152 

597 

ROPECHK 

43,3523 

1287 

1 

1284 

RR  BAD  END 

25,3264 

572 

3 

573 

574 

RMAG 

E7,  17  14 

= 

149 

5 

149 

773 

ROT-TOUV 

17,3200 

1455 

4 

1440 

1495 

RR  BOR  S I T 

E 7 , 1 740 

= 

152 

5 

152 

592 

RMAG1 

0014 

= 

1265 

4 

1268 

1277 

ROTATE 

34, 3052 

649 

2 

648 

RRCDUCHK 

06,3066 

195 

2 

193 

RM  AX 

E4, 1 4C4 

118 

1 

606 

POTCOMP 

15,2141 

263 

2 

261 

RRCHECK 

4567 

540 

RME 

12,2021 

= 

38 

1 

1215 

R0TEMP1 

E6 , 1736 

= 

136 

3 

1455 

RR  DAT  ABT 

4 741 

= 

88 

1 

540 

RMM 

12,2017 

= 

38 

RGTEMP2 

E6 , 1737 

= 

136 

4 

1455 

RR  DAT  AFL 

0277 

= 

88 

RMOD INIT 

05,3402 

2 34 

1 

230 

RQTFLAG 

0220 

= 

83 

5 

836 

852 

RRDESDUN 

25,2775 

567 

1 

567 

RMODINV 

25,2224 

548 

7 

548 

559 

rotflbit 

4737 

= 

83 

RR  DES  END 

43, 2310 

283 

1 

275 

RN 

1217 

108 

17 

206 

1218 

ROTINDEX 

E6 , 1 743 

= 

136 

10 

142  7 

1456 

RRDESK2 

43,2267 

28? 

1 

282 

RND/TST 

42, 3554 

450 

3 

449 

RCTORQUE 

16,3717 

1469 

1 

1468 

RR  DES  NR 

25,2466 

559 

3 

282 

527 

RNDCON 

42,3313 

435 

2 

43  7 

ROTSENSE 

E6, 1737 

= 

138 

9 

1459 

146 1 

RRDESNBK 

43,2235 

282 

1 

280 

RNDREFDR 

07,3162 

131? 

3 

184 

1332 

ROT  1 80 

26,2362 

498 

1 

498 

RRDESSM 

25,2364 

554 

3 

525 

611 

RNDVZBIT 

4736 

= 

68 

10 

196 

612 

ROUND 

00,2116 

1047 

1 

1011 

RR  DOT  OUT 

40,2651 

432 

1 

430 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

RRECT 

£3,1502 

= 

1 15 

15 

115 

1238 

RSCALE 

32,2173 

221 

1 

22  1 

RUFSFTUP 

17,3745 

1467 

4 

1466 

1467 

RRECTCSM 

E3, 1554 

1 16 

1 1 

116 

1210 

R SFLG3TS 

C5, 3066 

229 

RUNIT  X 

E 7 , 1 7 1 4 

= 

157 

6 

157 

901 

RREC  THIS 

E 3, 1 £26 

= 

1 16 

4 

309 

1207 

RSPHERE 

13,3767 

1245 

2 

1236 

1237 

RUNIT Y 

E7, 1715 

= 

157 

3 

157 

897 

RRECT  L EM 

E3 , 1626 

116 

3 

116 

12C9 

RSTACK 

£4,1571 

= 

122 

10 

288 

505 

RUNITZ 

E7.1716 

= 

157 

4 

157 

901 

RREC  TOTH 

E3 , 1 554 

= 

1 16 

1 

309. 

RSTOFGTS 

21,3454 

1480 

2 

1474 

RUPDATED 

33,3260 

889 

RRGI MCN 

06,3120 

197 

I 

195 

RSU8C 

1 100 

= 

106 

3 

509 

RUPTAGN 

0332 

101 

6 

10  l 

1127 

RRIMUD IF 

43,  22-12 

281 

I 

28  1 

RSUBE 

14,2004 

47 

1 

932 

RUPTREG1 

0070 

97 

44 

158 

1405 

RRINOEX 

1314 

= 

1 10 

3 

549 

550 

RSUBEM 

14,2000 

47 

2 

932 

RUPTREG2 

0071 

97 

24 

172 

1478 

RR  IN  IT 

06,2564 

133 

1 

183 

RSUBL 

E7, 1630 

= 

155 

4 

155 

510 

RUPTR  EG3 

0072 

97 

15 

158 

1470 

RRLEADIN 

15,2000 

= 

32 

1 

505 

RSUBM 

14,2002 

47 

1 

932 

RUPTREG4 

0073 

97 

7 

97 

1335 

RRLIMCHK 

4514 

538 

4 

198 

5.58 

RTARG 

E7,  1443 

145 

7 

205 

7 72 

RUPTIOBB 

4065 

164 

1 

164 

RRLI MNB 

25,2531 

559 

2 

559 

RTARG1 

E7, 1471 

= 

150 

1 l 

68  9 

693 

RUTH 

16,3116 

1430 

l 

1430 

RRLIMCK 

4551 

539 

2 

539 

560 

RTB 

01, 2454 

1088 

1 

1088 

RUTMXTAB 

42,3145 

330 

1 

316 

RRLOSDSP 

40,2000 

311 

2 

311 

312 

RTB/BHIZ 

01,2453 

1088 

1 

1010 

RUTMXTEM 

0153 

99 

2 

316 

443 

RRNB 

23,2041 

336 

3 

559 

611 

RT8C0DES 

10, 2000 

= 

30 

2 

1394 

1398 

RVARM IN 

E 3 , 1 772 

117 

1 

59  6 

R.RNBB  I T 

4737 

= 

68 

RTBC0DE1 

14,2000 

= 

32 

1 

1398 

RV80TH 

33,2744 

8 84 

1 

865 

RRNBMPAC 

23,2065 

336 

l 

311 

R TERM 

0022 

= 

1265 

3 

1274 

1276 

RVCON 

13,3301 

1214 

l 

1213 

RRNBSW 

0011 

= 

68 

5 

555 

583 

R THETA 

E4, 1617 

= 

120 

5 

32  7 

709 

RVEC 

E5, 1654 

= 

130 

10 

509 

1198 

RRNB  1 

23,2054 

336 

1 

336 

RTIG 

E7, 1641 

148 

9 

148 

764 

RVQ 

00,3274 

1075 

1 

101  1 

RROUT 

25,2277 

551 

2 

550 

568 

RTMAG 

E7,  1722 

= 

149 

5 

149 

773 

RVSW 

0157 

= 

79 

7 

509 

1184 

RROUTL IM 

25,2326 

552 

1 

551 

RTMtJ 

E4, 1 71 1 

121 

4 

639 

696 

R V SW8  I T 

4734 

= 

79 

RROUT  2 

25,2301 

551 

1 

552 

RTNAPSE 

E5,  1710 

= 

130 

3 

1198 

RW AIT  K 

43,2143 

278 

RRRANGE 

25,3074 

569 

3 

506 

589 

RTNHOLD 

E 7,  1607 

= 

156 

4 

156 

792 

RXZ 

E 7 , 1 72 1 

= 

152 

10 

152 

606 

RRROQT 

25,3072 

569 

4 

506 

588 

RTNLAMB 

E5, 1710 

= 

130 

8 

130 

1195 

R02 

04,2000 

= 

29 

1 

1329 

RRRET 

1312 

1 10 

5 

110 

550 

RTNPRM 

E5, 1753 

= 

130 

3 

130 

1185 

R02BNK 15 

15,2000 

= 

32 

1 

1329 

RRRSBIT 

4 742 

= 

88 

2 

588 

589 

RTNSAVER 

0145 

= 

100 

3 

1260 

1261 

R02BDTH 

1 5,3757 

1329 

10 

351 

924 

RRRS  FLAG 

0300 

= 

08 

RTNTR 

E5 , 1710 

= 

130 

l 

1 196 

R02ZFR0 

15,3773 

1330 

1 

1329 

RRSHAFT 

67, 1735 

= 

152 

3 

152 

600 

R TNT  T 

E5.1710 

=• 

130 

3 

1184 

R04 

43,2430 

288 

1 

275 

RRSONLY 

25,2235 

549 

3 

546 

548 

RTORP A 

24,3666 

1140 

1 

l 140 

R04A 

43,2462 

288 

l 

289 

RRSPGAIN 

25,2276 

550 

1 

550 

RTDRPB 

24, 3655 

1140 

1 

1140 

R04B 

43,2504 

2 89 

1 

239 

RRSPT  OOP 

40,2664 

432 

2 

431 

432 

RTRN 

E7 , 1465 

146 

7 

656 

6 36 

R04C 

43,2521 

289 

2 

289 

291 

RRTARGET 

1 100 

= 

106 

12 

106 

610 

RTRNCADR 

01,3567 

1300 

5 

1300 

1305 

R04END 

43,2614 

291 

6 

289 

290 

RRTONLY 

25,2232 

549 

4 

546 

548 

RTRNMU 

10,2022 

696 

1 

696 

R04FLAG 

0063 

= 

73 

4 

240 

511 

RRTRKF 

4561 

540 

2 

618 

RTSR1/MU 

E4 , 1707 

121 

4 

121 

696 

R04FLRIT 

4734 

= 

73 

3 

288 

289 

RRTRUN 

E7, 1733 

- 

152 

3 

152 

602 

R T ST  BA  SE 

E4 , 1766 

123 

4 

289 

505 

R04K 

43,2606 

290 

1 

288 

RRTURNCN 

25.2C53 

542 

1 

194 

RTSTOEX 

E4 , 1764 

123 

5 

289 

506 

R04L 

43,2610 

291 

1 

289 

RRWAI T 

43,2237 

282 

1 

282 

RTSTLOC 

E4 , 1767 

123 

7 

288 

506 

R04LR 

43,2556 

290 

3 

290 

RRZERO 

25, 2334 

553 

1 

278 

PTSTMAX 

E4, 1765 

123 

2 

289 

506 

R04RR 

43,2542 

290 

2 

290 

RRZERCK 

4 3,2  140 

278 

l 

278 

RTXl 

E5, 1776 

= 

129 

13 

129 

1221 

R04X 

43,2477 

289 

1 

290 

RRZEROSB 

25, 2062 

543 

2 

542 

553 

RTX2 

E5 , 1777 

= 

129 

17 

62  3 

1221 

R04Y 

43,2572 

290 

2 

290 

RRZ2 

25,2361 

553 

l 

553 

RUFLAW1 

17, 3663 

1466 

l 

1459 

R04Z  • 

43,2434 

288 

l 

288 

RR  LAX  I S 

25,2237 

549 

1 

549 

RUFLAW12 

17, 3671 

1466 

2 

146  6 

R 1 

0040 

= 

1 199 

19 

641 

1198 

RR1AX2 

25,2245 

550 

l 

549 

RUFLAW2 

17, 3717 

1466 

1 

1459 

R 1 A 

F5 , 1741 

= 

130 

15 

130 

1198 

RSAMPCT 

E 4 , 1770 

123 

8 

124 

505 

RUFLAW3 

17,3725 

1467 

1 

1460 

R1C 

E7, 1724 

= 

149 

4 

149 

773 

RSBBQ 

E3, 1432 

114 

2 

206 

226 

RUFRATE 

17,3776 

1467 

2 

146  6 

R 1 D 1 

4310 

475 

13 

415 

1071 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

R IS 

E7, 1572 

= 

154 

15 

154 

892 

R22LEM12 

24,2541 

520 

R5  IK 

14,3145 

939 

2 

939 

94  1 

R1VEC 

E5,  1654 

= 

130 

6 

130 

1191 

R22LEM2 

24, 2607 

521 

2 

521 

R51P63 

14,3146 

939 

RIO 

2 1.2CC0 

= 

32 

2 

43 

895 

R22LEM3 

24,2627 

521 

2 

521 

R 52 

14,3603 

952 

1 

939 

RIO , R 1 1 

21,2042 

831 

3 

251 

862 

R 22LEM42 

24,2713 

523 

5 

515 

522 

R52A 

14,3621 

952 

2 

952 

953 

RlOjRllA 

2 1 , 2 C 60 

831 

l 

831 

R22LEM44 

24,2706 

522 

1 

522 

R52B 

14,3627 

952 

1 

952 

R10CALL 

37,3473 

862 

l 

861 

R22LEM45 

24,2720 

523 

1 

523 

R 54 

14,3265 

= 

942 

2 

939 

969 

R10FL AG 

0015 

= 

68 

1 

839 

R22LEM7 

24,2674 

522 

1 

522 

R55 

14,3234 

942 

1 

939 

R10FL6IT 

4743 

= 

68 

' 2 

833 

900 

R22LEM93 

24, 2644 

522 

1 

602 

R55. 1 

14,3240 

942 

R 1 1 

21,2000 

= 

32 

2 

831 

837 

R22LEM96 

24,2650 

522 

2 

606 

R55.2 

14,3246 

942 

1 

942 

R 1 2 

33,2444 

877 

3 

877 

R22RSTRT 

24,2735 

523 

I 

251 

R55CDR 

14,3264 

942 

2 

941 

942 

R12DL 

25,3456 

576 

1 

576 

R22WAIT 

24,2724 

523 

3 

520 

521 

R55RET 

14,3260 

942 

1 

942 

R12EX  IT 

25,3403 

575 

2 

572 

R23LEM 

24, 3220 

528 

1 

513 

R56 

14,2620 

= 

934 

1 

938 

R12RDBIT 

4742 

= 

86 

4 

231 

889 

R23LEM1 

24, 3226 

528 

1 

529 

R59 

15,2402 

955 

5 

952 

968 

R 12RDFLG 

0261 

= 

86 

R23LEM11 

24,3237 

528 

1 

520 

R59A 

15,2414 

955 

1 

95  5 

RL2RDSET 

25,3146 

570 

R23LEM2 

24,3261 

529 

2 

528 

529 

R59ALM 

15,2542 

957 

1 

957 

R12READ 

25,3142 

570 

1 

861 

R23LEM3 

24,3264 

529 

2 

528 

529 

R59D 

15,2515 

956 

1 

956 

R12SCFNG 

25,3401 

5 74 

1 

574 

R24END 

24,3313 

531 

1 

530 

R59E 

15,2564 

957 

1 

95  7 

R12STUFF 

•34,2000 

= 

35 

R24LEM 

24, 3271 

530 

1 

526 

R590UT 

15,2574 

957 

2 

955 

957 

R12THRU? 

33,3262 

889 

1 

889 

R24LEMI 

24,3275 

530 

R59RET 

15,3073 

968 

1 

958 

R2 

E5,  17  17 

= 

130 

3 

1182 

R24LEM2 

24,3301 

530 

1 

531 

R60LEM 

26,2125 

488 

6 

352 

953 

R2D1 

4311 

475 

7 

415 

1097 

P24LEM3 

24, 3317 

531 

1 

530 

P 6 1 

23,2000 

= 

33 

1 

533 

R2VEC  - 

E5, 1662 

= 

130 

10 

130 

1191 

R24LEM4 

24,3333 

531 

1 

531 

R61C+L01 

23,2131 

533 

1 

535 

R21-503 

24,3044 

525 

1 

525 

R29/SERV 

33,2000 

= 

35 

R6  1C  + L02 

23,2152 

534 

2 

533 

534 

R 2 ID  ISP 

24.32C7 

527 

1 

525 

R3D1  ' 

4312 

475 

5 

415 

472 

R61C+L03 

23,2156 

534 

R21EN0 

24,3053 

525 

l 

525 

R30LOC 

22,2000 

= 

33 

2 

46 

716 

R61C+L04 

23,2300 

536 

1 

534 

R21LEM 

24,2756 

524 

1 

514 

R300K 

27, 3771 

1280 

R61C+L05 

23,2234 

535 

l 

535 

R211  EMOO 

24, 3C77 

526 

1 

526 

R 3 1 

37,2000 

= 

37 

1 

706 

R61C+L06 

23,2257 

535 

3 

535 

536 

R 2 1L  E Ml 

24,3017 

525 

R31CALL 

40,3741 

706 

1 

295 

R6  1C  + L 1 

23,2305 

536 

R21LFM10 

24,3011 

525 

2 

524 

527 

R31L0C 

40, 2000 

= 

37 

1 

706 

R61C+L2 

23,2273 

535 

1 

535 

R2 1LEM  11 

24,3173 

527 

1 

526 

R31SURF 

37,3362 

710 

1 

707 

R61C+L4 

23,2303 

536 

2 

535 

R2  1LEM  12 

24,3075 

526 

R33 

42, 2002 

287 

l 

287 

R61FLAG 

0024 

= 

69 

2 

533 

R2  1LEM13 

24,3121 

526 

1 

526 

R 36 

04,2677 

704 

2 

296 

705 

R61FLBIT 

4733 

= 

69 

1 

535 

R21LEM2 

24,3015 

525 

1 

563 

R 36 l NT 

04,2714 

704 

1 

70  5 

R61LFM 

23,2116 

533 

4 

512 

531 

R21LEM3 

24,3026 

525 

R36LM 

C4, 2000 

- 

29 

1 

703 

R61LEM1 

23,2162 

534 

R21LEM4 

24,3065 

526 

I 

525 

R36TAG2 

04,3000 

705 

1 

70  5 

R61LEM2 

23,2216 

534 

R21LEM5 

24,2771 

524 

1 

524 

R47 

32,2000 

= 

35 

1 

218 

R61TEST 

26,2254 

490 

1 

489 

R2 LLEM50 

24,3126 

526 

1 

526 

R 5 1 

14, 3023 

938 

1 

927 

R62 

23,2000 

= 

33 

1 

500 

R21LEM6 

24,3001 

525 

1 

524 

R 5 1 . 1 

14, 3025 

938 

1 

252 

R62DI SP 

23,2103 

= 

500 

1 

298 

R21LEM7 

24,3124 

526 

l 

526 

R51.2 

14,3073 

939 

R62FL  ASH 

23,2103 

500 

2 

500 

R2 1LEM8 

24,3131 

526 

1 

526 

R51.3 

14, 3074 

939 

1 

940 

R65CNTR 

E 7 , 1 745 

= 

152 

6 

158 

596 

R21LFM9 

24,3163 

527 

1 

527 

R51.4 

14,3156 

940 

1 

939 

R65LEM 

23,2123 

533 

3 

519 

596 

R21SRCH 

24,3060 

526 

1 

525 

R 5 1C 

14,3030 

938 

2 

938 

939 

R65WA IT 

23,2312 

536 

2 

534 

R22DI SP 

0314 

= 

101 

6 

32  7 

606 

R51E 

14,3071 

938 

4 

938 

R77 

43,2420 

288 

1 

276 

R22LEM 

24,2527 

520 

4 

522 

523 

R 5 IF 

14,3060 

938 

R77END 

43,2630 

291 

1 

276 

R22LEM1 

24,2577 

521 

1 

521 

R51I 

14, 3061 

938 

1 

938 

R77EX IT 

25,3253 

572 

1 

571 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFER 

ENCES 

R77FLAG 

0117 

- 

76 

2 

288 

291 

SBIT4 

4 741 

= 

1282 

1 

1286 

SELFCHK 

43,3341 

12  84 

5 

234 

1284 

R77FI BIT 

4732 

- 

76 

4 

231 

571 

S8IT5 

4740 

= 

1282 

SELFERAS 

1357 

112 

1 

112 

R77IN 

25.2C30 

506 

2 

505 

506 

S8IT6 

4737 

= 

1282 

SELFRET 

1361 

= 

1 12 

7 

112 

1284 

SHIT7 

4736 

= 

1282 

l 

1289 

SELFSUPR 

40,2000 

= 

37 

SI  XI  ) 

OC32 

- 

1199 

6 

1176 

1182 

SB  I T 8 

4735 

= 

1282 

SENDID 

05,3766 

995 

2 

990 

994 

S+ZERO 

4 746 

- 

1282 

9 

302 

1288 

SBIT9 

4734 

= 

1282 

1 

1286 

SENDPULS 

07,3120 

1311 

1 

1310 

S+l 

4 744 

- 

12  32 

9 

302 

1290 

SBNK03 

5011 

= 

1283 

l 

1288 

SEN  SF  GET 

17,2146 

1440 

S + 2 

-4  74  3 

- 

1282 

SCALADJ 

25, 3342 

5 74 

1 

574 

SENSE  TYP 

E 6 , 1500 

136 

5 

1436 

1460 

S+3 

6266 

- 

1282 

SCALCHNG 

25,3364 

574 

l 

573 

SENSOR 

17,3757 

146  7 

2 

1459 

S + 4 

4742 

- 

1282 

SCALOONE 

21,3437 

1480 

l 

1479 

SENSTEST 

L 7, 3 37  7 

1460 

l 

1460 

S + 5 

4747 

- 

1282 

SCALECHK 

25, 3316 

573 

1 

573 

SEPMIN 

42,3446 

437 

2 

435 

436 

S + 6 

6263 

- 

1282 

SCALEDQT 

17,3352 

1460 

l 

1460 

SFPMNRET 

0144 

= 

99 

2 

437 

438 

S + 7 

4 7 50 

= 

1283 

1 

1284 

SCALEE 

17,3340 

L459 

l 

1459 

SEPSCRET 

0144 

= 

99 

2 

437 

S-ZERO 

4745 

= 

1283 

1 

1287 

SC AL  E F AC 

31 , 2005 

41 

2 

793 

819 

SEPSEC 

42,3415 

437 

1 

436 

S-l 

7770 

= 

1283 

2 

1288 

1290 

SCALELO 

40,2646 

432 

2 

432 

S EPSECNR 

42,3430 

437 

3 

435 

437 

S-2 

7767 

= 

1283 

SCALE VEC 

32,2126 

220 

2 

219 

SEPSEC 1 

42,3423 

437 

1 

437 

S-3 

7766 

= 

1283 

SCALLOOP 

21,3423 

1479 

1 

1479 

SERV 

32,2000 

= 

35 

l 

870 

S-4 

6133 

= 

1283 

SCALPREP 

37,3713 

1333 

2 

1332 

1333 

SERVC ADR 

36,2107 

= 

744 

1 

750 

S-7 

5652 

= 

1283 

l 

1284 

SCALSAVE 

0316 

101 

3 

1332 

1333 

SERVO URN 

1 355 

112 

7 

161 

867 

SAME  TYP 

15,3572 

979 

1 

979 

SCALSHFT 

E7 , 1720 

= 

151 

4 

152 

60  6 

SERVEXIT 

32,3656 

870 

7 

726 

870 

.SAMPL  IM 

1C  77 

106 

3 

106 

5 79 

SCALSTRT 

21,3415 

1479 

1 

1479 

SFRVI  CEP, 

33,2121 

864 

2 

253 

861 

SAMPl SUM 

1 100 

106 

9 

106 

590 

SCAXIS 

E 7 , 1764 

= 

153 

27 

149 

956 

SFRVICES 

33,2000 

= 

35 

8 

40 

894 

SAMPT IME 

0013 

= 

94 

5 

219 

477 

SCHZEROS 

37,3056 

400 

4 

392 

395 

SERV! OLE 

27,3324 

869 

2 

1380 

1381 

SAVEDEN 

27,3540 

1275 

1 

1275 

SCLNORM 

17,3141 

1454 

SFRVOUT 

33,2322 

867 

3 

866 

867 

SAVLHAND 

E 6 , 1462 

135 

7 

1431 

1445 

SCNDSOL 

34,2776 

647 

7 

639 

647 

SFRVI 

37,2000 

= 

37 

2 

860 

873 

SAVELOCK 

10,2741 

1360 

1 

1359 

J 

SCOUNT 

1366 

= 

112 

4 

112 

1287 

SERV2 

22,2000 

= 

33 

L 

867 

SAVELCCS 

10,2734 

1360 

2 

1355 

1/3  59 

SCUUTEND 

40,2731 

433 

4 

433 

SERV3 

27,2000 

= 

34 

1 

869 

SAVE  SR 

E 6 , 1505 

= 

137 

2 

14  70 

114  8 2 

SCRATCH 

E6 , 1745 

= 

137 

2 

1482 

SERV4 

34,2000 

= 

35 

SAVFT-30 

E 7 , 1477 

= 

154 

8 

154 

731 

SCRATCHX 

0 160 

= 

L 494 

5 

1490 

1494 

SETAUG 

40,2674 

432 

1 

431 

SAVLEMV 

E 7 , 1737 

= 

150 

4 

609 

610 

SCRATCHY 

0161 

= 

1494 

3 

1490 

1491 

SETBANK 

13,3074 

1210 

4 

1208 

1209 

SAVQR52 

E 7, 166 5 

= 

148 

3 

952 

958 

SCR ATC  HZ 

0 162 

- 

1494 

4 

1490 

1491 

SETCOARS 

07,3131 

1 312 

2 

179 

1309 

SAX 

E 5 , 1730 

= 

128 

5 

935 

937 

SD 

22,2366 

369 

SETCTR 

21,3623 

1506 

SB  AND 

42,2000 

= 

37 

4 

48 

501 

SO  I SPLAY 

43,3112 

302 

1 

1290 

SETEBANK 

4304 

475 

2 

42  3 

434 

SBANDANT 

42,3617 

501 

2 

292 

504 

SECAD 

22,2027 

363 

SFTGAMMA 

13,2605 

l 136 

2 

1131 

1133 

SB AND  E X 

42,3754 

503 

1 

503 

SECMAX 

E 7 , 1573 

= 

147 

5 

670 

672 

SFTGLOCK 

06,2465 

1 80 

4 

179 

180 

SBAND4C 

40,2000 

= 

37 

1 

504 

SEC0N1 

42,3300 

435 

1 

437 

SETGMEX 

13,2613 

1136 

1 

1136 

SB  I T 1 

4 744 

= 

1282 

SEC0N2 

42,3302 

435 

1 

435 

SETIFLGS 

13,2702 

1207 

8 

247 

1218 

SBIT  10 

4733 

= 

1282 

SEC01 

4770 

= 

758 

SETINFL 

05,2733 

226 

SB  IT  1 1 

4732 

= 

1282 

2 

1288 

1289 

SELCTSUB 

17,3225 

1455 

3 

1441 

1452 

SET  IS  SW 

06,2703 

1 89 

7 

175 

1315 

SBIT  12 

4731 

= 

1282 

1 

1238 

SELECT MU 

10, 2000 

696 

4 

628 

669 

SETLOC 

01,2665 

1 105 

3 

l 105 

1109 

SBIT  13 

4730 

= 

1282 

SELECTP 

16,3532 

1438 

2 

1434 

1438 

SFTMARK 

10,2526 

1356 

SBIT 14 

4727 

= 

1282 

SELECTYZ 

16,3552 

1438 

1 

142  7 

SETMAXDB 

20,2130 

1404 

3 

1404 

SBIT 15 

4726 

= 

1282 

l 

1289 

SELFADRS 

43,3250 

1283 

2 

302 

303 

SETMGA 

21,2017 

695 

1 

69  5 

SB  I T 2 

4743 

= 

1282 

SELFBANK 

01,3227 

1114 

l 

1114 

SFTMI NDB 

20,2141 

1404 

6 

528 

1404 

SB  I T 3 

4742 

= 

1282 

SELFCHEC 

43,2000 

= 

37 

l 

1282 

SFTMOON 

13,2754 

1 208 

3 

1208 

1237 
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DEF 

H 
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DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

RFFFRENCES 

SC-TMUER 

10,2011 

696 

1 

696 

sfrutmix 

41,3104 

442 

5 

423 

447 

SINESLOC 

23,3754 

1261 

1 

1261 

SETNADD 

4302 

475 

2 

420 

444 

sfrutnor 

41,3076 

442 

5 

42  9 

44  7 

SING! MLC 

26,2407 

498 

1 

496 

SETNC  ADR 

4274 

475 

7 

420 

475 

SFTEMPl 

.0123 

= 

98 

2 1 

316 

448 

SINI 

26,2002 

55 

2 

1142 

SETNFGU 

21,3313 

14  77 

l 

1477 

SFTEMP2 

0124 

= 

93 

2 

448 

SINNOOI 

0010 

= 

1 146 

l 

1142 

SETNORM 

10,2534 

1356 

1 

1354 

SGNAGREE 

10, 3622 

1394 

4 

388 

1215 

SI  NTH 

0022 

= 

129 

21 

312 

1251 

SETOVF 

7C24 

1025 

1 

1028 

SGNCHECK 

12,2562 

1180 

2 

1 180 

1181 

SINTHET4 

E7, 1731 

= 

152 

3 

152 

606 

SET0VF2 

7173 

1030 

1. 

1026 

SGNCOM 

40,2411 

415 

l 

415 

SINVEC  1 

26,2411 

498 

1 

497 

SETPD 

7634 

1042 

1 

1009 

SGNDVDVF 

00,2402 

1055 

1 

1055 

SINVEC2 

26,2413 

498 

l 

49  7 

SETPR  10 

'10,2503 

1355 

SGNOFF 

0123 

= 

98 

3 

415 

SINZERO 

30,3651 

919 

1 

919 

SETRAD 

23,2365 

699 

l 

698 

SGNON 

0122 

= 

98 

3 

415 

SIN60DEG 

26,3704 

613 

2 

610 

SETRADX 

23.24C0 

699 

1 

699 

SGNROOT 

E5, 1754 

= 

130 

2 

130 

1196 

SITIME 

1241 

= 

108 

3 

930 

971 

SETRF 

13,2615 

1137 

2 

1131 

1133 

SGNTAB 

40,2432 

415 

2 

415 

SIX 

6263 

= 

1097 

34 

179 

1485 

SETREX 

0051 

= 1137 

2 

1137 

SGNTOl 

40,3117 

447 

l 

446 

SIXTY 

43,3241 

1283 

1 

1289 

SETROUND 

00,2272 

1052 

3 

l 5 > 

SGNTST1 

40,2451 

415 

3 

415 

SI ZETAB 

01,2002 

250 

2 

1303 

1305 

SETRRCTR 

25,2310 

551 

1 

552 

SHAFT8Q 

26,3023 

600 

SI ZETST 

42,3572 

450 

2 

449 

SETRRECR 

25,2  147 

546 

2 

545 

556 

SHAFTCMD 

1352 

112 

1 

566 

SKEFPl 

1371 

- 

112 

20 

112 

1290 

SCTRXX 

13,2630 

1137 

3 

1137 

SHAFTL IM 

25, 2555 

560 

1 

560 

SKEEP2 

1372 

= 

1 12 

10 

112 

1288 

SETSENSE 

17,3330 

1459 

l 

1459 

SFAFTVAR 

E4 , 1410 

118 

1 

60  1 

SKEEP3 

1373 

= 

112 

14 

112 

1289 

SETSURF 

07,2156 

265 

I 

265 

SHFTFACT 

32,3440 

821 

1 

319 

SKEEP4 

1374 

= 

1 12 

14 

113 

1290 

SETT  I ME 

17,2615 

1447 

1 

144  7 

shftflag 

E6 , 1740 

= 

137 

4 

1479 

1480 

SKEEP5 

1375 

= 

1 13 

10 

113 

1289 

SETT1ME4 

•06,2074 

167 

1 

1 70 

SHIFTR1 

23,2447 

702 

8 

623 

666 

SKEEP6 

1376 

= 

1 13 

6 

113 

1290 

SETT IME5 

16,2153 

1410 

l 

1411 

SEIFTll 

33, 2742 

883 

3 

884 

885 

SKEFP7 

1377 

= 

113 

22 

226 

1289 

SETTRKF 

4555 

540 

2 

196 

544 

SHOLTS 

41,3733 

433 

1 

482 

SKIPADO 

10,2762 

1 360 

1 

1360 

SETUPDSP 

14,3754 

1291 

1 

L29L 

SHORTM'P 

7330 

1034 

10 

412 

1334 

SK  IPDBl 

20,3350 

1497 

1 

1496 

SETUPER1 

37,3005 

400 

1 

399 

SH0RTMP2 

7334 

1034 

1 

888 

SK  IPDB2 

20,3434 

1498 

3 

1497 

1498 

SETUP  70 

04,2430 

244 

1 

238 

SHORT  T 

00,2017 

1045 

2 

1008 

SKIPPAXS 

16,2740 

1427 

2 

1426 

1439 

SETUP  7 1 

04,2427 

244 

1 

238 

short v 

00,2121 

1048 

1 

1008 

SKIPSIM 

05,2463 

222 

1 

222 

SETVAC 

41,3555 

463 

1 

4 62 

SHOW 

37,2457 

392 

3 

387 

389 

SK  IPTPFR 

22,3630 

724 

l 

724 

SETWO 

05,3571 

990 

3 

990 

992 

SHOWSUM 

43,3077 

302 

1 

302 

SK  IPU 

E 6, 1534 

138 

9 

138 

1470 

SETXFLAG 

23,2453 

= 852 

SHOW  1 

37,2461 

393 

l 

393 

SK  IPV 

E6, 1535 

= 

138 

3 

1410 

1470 

SETXTACT 

43,2  105 

2 76 

SHUTDOWN 

16,2164 

1410 

1 

140  7 

SLAPl 

05,2454 

222 

1 

422 

SETX2 

26,2540 

596 

1 

596 

sjgpem? 

43,3272 

1283 

1 

1284 

SLCTMU 

10,2000 

= 

30 

l 

696 

SEUDOPOO 

04,2236 

241 

I 

243 

SIGN  Jr 

7676 

1044 

1 

1009 

SLEEP  IE 

37,3034 

400 

2 

395 

399 

SEVFN 

4750 

1093 

23 

165 

1493' 

Wj-eiwis 

0163 

= 

1504 

12 

1496 

1503 

SLEFT5 

4331 

476 

1 

459 

SFAIL 

1357 

= 112 

4 

112 

1284 

SIGNFIX 

40,3060 

446 

2 

446 

SI  OAD 

6522 

1017 

l 

1009 

SFCOM 

42,2152 

317 

1 

317 

S IGNLCHK 

25, 2757 

567 

2 

567 

SL0A02 

6076 

1000 

5 

1017 

1398 

SFCONUM 

41,3117 

443 

2 

429 

445 

SIGNMPAC 

14,3765 

1398 

15 

365 

1277 

SLOPE  B I T 

4742 

= 

70 

SF INT  AB 

42,2471 

323 

1 

317 

SIGNTEST 

40,2435 

415 

2 

414 

SL  OP  EH  I 

00,2314 

1053 

1 

1078 

SF INTABR 

41,3262 

445 

l 

445 

SIM2CADR 

05,2461 

222 

SLOPELO 

00,3007 

1067 

1 

1079 

SFMI XCAL 

4C.3107 

446 

1 

446 

SINBLANK 

40,2561 

417 

1 

417 

SLOPESW 

0033 

= 

70 

3 

l 180 

1193 

SFNORCAL 

40,3112 

447 

1 

446 

S INCDU 

0735 

= 

103 

6 

103 

1261 

SLOPFO 

E5, 1527 

= 

126 

2 

126 

887 

SFOUTAB 

42,2565 

325 

1 

317 

S INCDUX 

0741 

= 

103 

6 

493 

1263 

SLOPF 1 

E5, 1530 

= 

126 

1 

126 

SFOUTABR 

41,2627 

430 

l 

430 

S INCDUY 

0735 

= 

103 

5 

49  3 

1263. 

SLOPE  2 

E5, 1 531 

= 

126 

1 

126 

SFRET 

41,3134 

443 

S INCDUZ 

0737 

= 

103 

7 

493 

1263 

SLOPE  3 

E5, 1532 

= 

126 

1 

126 

SFRET  1 

4 1,3116 

443 

SINE 

00,3530 

1080 

2 

1011 

1257 

SLOPE  4 

E5, 1 533 

= 

126 

1 

126 
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SYMBOL 

OEF 

H 

REFERENCES 

SYMBOL 

OEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SMALL 

00,3133 

1071 

1 

1068 

SPIRAL 

1241 

= 

108 

5 

108 

957 

ST  ART  P47 

36,3450 

754 

l 

754 

SMALLEPS 

27,2366 

762 

l 

762 

SPLRET 

22,3543 

= 

721 

1 

38 

STARTP64 

31 ,2550 

799 

1 

794 

SMALL TJU 

16,3710 

1468 

1 

1468 

SPNDX 

1261 

109 

8 

377 

378 

ST  ART  P 66 

31,2452 

797 

1 

794 

SMALL2 

00.3C62 

1068 

1 

1071 

SPSCODE 

4734 

= 

1306 

ST ARTSB1 

05,3116 

230 

1 

227 

SMALPDIF 

16,2513 

1423 

2 

1423 

SPSCONT 

20,2716 

1488 

1 

1493 

ST  ART  SB2 

05,3156 

231 

3 

227 

231 

SMALR  ATE 

l 7,37C7 

1466 

l 

1466 

SPSIN 

5024 

1100 

3 

199 

1258 

STARTSIM 

05,2457 

222 

SMODL 

1362 

= 

112 

7 

112 

1284 

SPSLOOP1 

20,3064 

1492 

1 

1493 

START  STO 

6455 

1015 

SMOOECHK 

43, 3304 

1284 

3 

1284 

1287 

SPSL00P2 

20,3101 

1492 

1 

1493 

ST  ART  SUB 

05,3107 

230 

4 

222 

229 

SMPAC+ 

00,3405 

107  7 

3 

1077 

SPSRCS 

21,3667 

1507 

2 

1436 

1450 

ST  APT  S W 

05,2456 

222 

SNAP AGN 

05,3647 

991 

SPSSTART 

21,3675 

1507 

l 

1507 

STATE 

0074 

97 

41 

67 

1091 

SNAPEND 

05,3666 

992 

SPT 

5027 

1 100 

1 

1100 

ST  AT  E R IT 

4740 

= 

73 

1 

1381 

SNAPLOOP 

05,3636 

991 

. 1 

992 

SP  VAC 

5107 

1101 

3 

244 

1359 

stateflg 

0067 

= 

73 

9 

595 

1241 

SNBCOMP 

14,2413 

2 64 

2 

261 

262 

SPVACIN 

5103 

1 101 

1 

1101 

STATE INT 

13,2641 

1206 

3 

251 

1207 

SNBTEST 

l 5 , 2 C 62 

262 

1 

262 

SQ 

1076 

106 

2 

1 100 

STATEUP 

13,2026 

247 

1 

1207 

SNGLCD 

22, 2376 

369 

SORT 

00,3207 

1074 

1 

101  l 

ST  AT  I NT  1 

13,2650 

1206 

2 

251 

1206 

SNTH 

E5 , 1727 

= 

130 

14 

’ 130 

1197 

SQRTABRT 

00,3402 

1077 

2 

1077 

STATQUO 

04,2342 

243 

2 

24? 

243 

SNUFF B IT 

4730 

= 

76 

1 

1451 

SQRTNEG 

00,3373 

1077 

l 

1077 

STCL0K1 

36,2662 

738 

1 

737 

SNUFFER 

0115 

= 

76 

2 

310 

SQRTNM2 

00, 3475 

1079 

1 

1079 

STCL0K2 

36,2663 

738 

2 

729 

784 

SNUFFCUT 

43,3224 

3 10 

l 

2 75 

SQRTNORM 

00,3502 

1079 

1 

1079 

STCL0K3 

36,2664 

738 

SN1  . 

00,3553 

1081 

l 

1080 

SQRTSHFT 

00,3221 

1074 

1 

1074 

STCTR 

20,2550 

1485 

1 

I486 

SN359+ 

35,2420 

637 

1 

640 

SQRTSUB 

00,3343 

1077 

3 

1068 

1082 

STCTR  1 

20,2553 

1486 

1 

1487 

SOB 

0042 

= 

1146 

4 

1141 

1142 

SR 

0021 

= 

94 

30 

417 

1432 

STDES  IG 

25,2573 

562 

3 

527 

562 

SOLNSBIT 

4742 

- 

77 

SRCH08 I T 

4727 

= 

71 

1 

609 

STDES I G 1 

25,2607 

562 

SOLNSW 

0127 

= 

77 

5 

1191 

1197 

SRCHOPTN 

0037 

= 

71 

4 

299 

530 

STEER? 

31,3371 

810 

1 

809 

SOMEACS 

20,3422 

1498 

SRDDV 

00,2024 

1045 

1 

1068 

STEERBIT 

4732 

= 

71 

3 

810 

866 

SOME  E R PR 

37,3040 

400 

SR  TE  ST 

00, 3456 

10  79 

1 

1 078 

STEERING 

36,3667 

757 

2 

727 

SOME  R R2 

37,3047 

400 

1 

390 

SR30. 1 

22,3553 

723 

2 

718 

720 

STEER  SW 

0042 

= 

71 

2 

766 

SOPT 

43,3710 

1290 

1 

1290 

SS 

E7, 1732 

= 

149 

9 

773 

774 

STEERSW? 

31,3376 

810 

I 

810 

SOPT ICN 

43,3673 

1289 

2 

1288 

SSP 

6641 

1019 

1 

1009 

STERN 

31,2437 

797 

SOPT I UNS 

43,3315 

1284 

2 

1284 

STADR 

6375 

1012 

1 

101  1 

ST  IKLOAD 

01,2214 

306 

1 

30  6 

SOPT I r N 1 

43,3325 

1284 

1 

1284 

STALL 

07,3736 

1327 

2 

1326 

STIKSENS 

E6 , 1444 

135 

8 

223 

1445 

S0PTICN2 

43,3326 

1284 

STAR 

E5 , 1730 

= 

123 

8 

128 

964 

ST  IKSTRT 

05,3062 

229 

1 

223 

SOPT ICN3 

43,332? 

1284 

STARAD 

E5, 1706 

= 

128 

39 

128 

1253 

STILBADH 

E7, 1674 

= 

157 

7 

157 

785 

SOPT I 0N4 

43,3330 

1284 

ST  ARAL GN 

0735 

103 

2 

103 

STILBADV 

E 7, 1 675 

= 

157 

6 

157 

785 

SOPT I GN5 

43,3331 

1284 

STARCODE 

1235 

= 

108 

3 

952 

953 

STILLRCS 

17,2710 

1450 

3 

1444 

1450 

SOPT I C N6 

43,3332 

1284 

STARIND 

E 5, 1757 

= 

128 

15 

128 

968 

STM  I N— 

20,3505 

1499 

2 

1503 

SOPT 1CN7 

43,3333 

1284 

ST  ARS A VI 

E 5 , 1760 

= 

128 

12 

128 

980 

STMP 

0020 

= 

985 

7 

984 

SOPTONIO 

43,3334 

1284 

STARSAV2 

E 5 , 1766 

= 

128 

1 l 

128 

979 

STOPCLOK 

36,3012 

741 

3 

740 

SOUPLY 

37,3071 

401 

STARTAB 

14,2000 

= 

32 

1 

49 

STOPF  IRE 

31,3511 

813 

2 

813 

SOUTHCR 

E5, 1421 

= 

132 

3 

132 

388 

STARTDAP 

16,2047 

1409 

STOPR ATF 

20,2166 

1405 

1 l 

300 

1406 

SPARCS IN 

30,3657 

920 

3 

804 

919 

STARTDES 

25,2423 

556 

2 

555 

559 

STORALT 

25,3425 

575 

1 

575 

SPARE 

OCC  7 

= 

204 

3 

210 

2 16 

STARTDPl 

16,2043 

1409 

1 

140  8 

STORANG 

27,2046 

496 

1 

496 

SPCOS 

5023 

1100 

3 

199 

1258 

ST  AR  TE  B 

5000 

= 

234 

1 

231 

STnRBNDS 

12,2140 

1173 

1 

1176 

SPECSTS 

37, 2572 

396 

STARTMNV 

26,2204 

439 

2 

489 

STORDELT 

35,3153 

673 

2 

672 

673 

SPECTEST 

01,2655 

1105 

1 

1109 

STARTP IP 

37,2161 

387 

1 

387 

STORE 

6443 

1014 

6 

1013 
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STORE  , 1 

6435 

1014 

l 

1013 

SURFDISP 

15,3200 

STORE  ,2 

6440 

1014 

1 

1013 

SURFFBIT 

4735 

= 

STOREMAX 

12,2077 

1173 

3 

1172 

1173 

SURFFLAG 

0177 

= 

STORER  IN 

12, 2152 

1173 

1 

1173 

SURFLINE 

15,3120 

STORFTGO 

27, 2666 

770 

2 

770 

SURFSTAR 

15,2004 

STORE  1 

6644 

1019 

1 

1050 

SURFSUP 

15,3170 

STORE  IS 

26,3666 

612 

1 

612 

SVCT3 

5242 

STOkHAPO 

22,3602 

723 

SVCT3X 

5260 

STORHPER 

22,36 14 

724 

SVOWNl 

13,2  1 14 

STORJUMP 

6413 

1013 

1 

1012 

SVDWN2 

13,2070 

ST0RLP71 

04,3651 

1390 

2 

1390 

1391 

SVEXI TAD 

05, 3500 

STORP  ARM 

32,3552 

836 

1 

836 

SVEXTADR 

27,3361 

STORPCTR 

21,2054 

831 

. 1 

831 

SW/ 

01,2522 

= 

STORTCRK 

16,3703 

1468 

1 

1469 

SWANDB  IT 

4732 

= 

STORV 

20,3570 

1500 

1 

1500 

S WAND ISP 

0155 

= 

STORVEL 

25,3445 

575 

1 

575 

SWRIT 

0131 

= 

STORY 

27,2431 

764 

r 

764 

S W BRANCH 

6736 

STRAT  ' 

14,2730 

936 

i 

936 

SWCALL 

4613 

STRATGY 

14,2722 

936 

SWCHCLR 

35, 2543 

STRTGYRO 

07,3372 

1318 

2 

1316 

1321 

SWCHSET 

35,2521 

STRTGYR2 

07,3376 

1318 

4 

13  19 

1323 

SWINI T 

05,3403 

STMT 'IDLE 

5675 

1380 

1 

1380 

SWITCHES 

01,2522 

STRTMNAD 

26,2213 

4 89 

1 

4d9 

SURE  TURN 

4622 

STSHOSUM 

43,3525 

1287 

2 

302 

303 

SWSKIP 

01 , 2603 

ST511CTR 

33,2467 

878 

1 

878 

S WS  TORE 

01,2557 

SUBDI VDE 

16,2267 

1420 

3 

L4  2 2 

SWWORD 

0130 

= 

SUBF X IT 

E7, 1470 

146 

23 

627 

706 

S X A 

01,2370 

SUBL I ST 

0337 

= 102 

13 

102 

992 

S YNCT4 

06,2154 

SUBTR 

00,3702 

1083 

1 

1084 

SYSTEST 

43,3057 

SUFFCHEK 

12,3460 

1194 

4 

1193 

1194 

SI 

0050 

= 

SUHALFA 

22,2677 

374 

1 

3 74 

S10BITS 

5003 

= 

SUHALFAP 

22,2717 

374 

1 

374 

S13BI TS 

43, 3243 

SUPDACAL 

4642 

997 

2 

455 

1288 

S2 

0051 

= 

SUPUXCHZ 

5 167 

1 1 14 

7 

295 

1130 

S24.9SEC 

36,3143 

SUPER  A DR 

16,2671 

1426 

1 

1426 

S30  • L 

34,2000 

SUPERBNK 

000  7 

= 95 

27 

226 

1378 

S32 . IF  1 

0132 

= 

SUPER  JOB 

16, 2672 

1426 

2 

1426 

S32. 1F2 

0133 

= 

SUPERSW 

4 720 

999 

3 

2 39 

1380 

S32. 1F3A 

0134 

= 

SUPEROll 

4 764 

1094 

3 

860 

1308 

S3  2 . IF3B 

0135 

= 

SUPER  100 

4736 

= 1094 

S32/33.X 

34, 3120 

SUPER  101 

4766 

1094 

1 

1097 

S32/33.1 

34,3100 

SUPERUO 

4767 

1094 

2 

885 

1097 

S32BI T 1 

4 72  6 

= 

SUPRCON 

43,3242 

1283 

1 

1289 

S32BIT2 

4727 

= 

SURF ACAN 

07,2555 

2 72 

1 

2 12 

S32BI T3A 

4730 

= 

SURF AL  IN 

05,2353 

= 214 

l 

21  / 

S32BI T3B 

4731 

= 
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2 

969 

972 

S33/34. 1 

35,2702 

670 

2 

633 

665 

8 

309 

864 

S34/35. 1 

35,3212 

675 

2 

669 

670 

17 

247 

1209 

S34/35.2 

35,3224 

676 

2 

666 

669 

2 

968 

979 

S3  4/3  5 . 3 

35,3315 

678 

1 

682 

2 

266 

S34/35.4 

35,3360 

679 

1 

682 

1 

969 

S34/35.5 

35,3440 

681 

2 

666 

669 

2 

1119 

S3435.23 

35,3243 

676 

1 

676 

3 

1119 

S3435 .25 

35,3245 

676 

3 

309 

1207 

S40. 1 

27,2246 

760 

2 

749 

751 

2 

1154 

1209 

S40.1B 

27,2336 

762 

1 

761 

l 

834 

S40.13 

27,2536 

768 

2 

251 

732 

1 

869 

S40 . 1 3D 

27,2624 

769 

2 

768 

769 

1 

1010 

S40.130V 

27,2653 

770 

1 

769 

2 

380 

895 

S40. 131 

27,2606 

769 

1 

768 

l 

868 

S40. 132 

27,2614 

769 

2 

769 

770 

5 

1090 

1092 

S40.132* 

27,2616 

769 

l 

770 

l 

1092 

S40.133 

27,2647 

770 

4 

382 

1088 

S40. 134 

27,2650 

770 

2 

769 

770 

l 

665 

S40. 136 

27,2006 

39 

l 

769 

l 

665 

S40 . 1 36_ 

27,2010 

39 

l 

770 

9 

224 

S40.1 37 

27,2637 

769 

l 

1092 

S40.1 38 

27,2661 

7 70 

1 

769 

10 

255 

1330 

S40.2 , 3 

27,2413 

764 

2 

749 

751 

2 

1092 

S40.8 

27,2447 

766 

1 

756 

2 

1091 

S40.9 

27,2711 

772 

1 

757 

2 

1090 

1091 

S40BNK 

24,2000 

= 

33 

1 

767 

1 

1010 

S40RET 

36,3615 

756 

3 

766 

767 

1 

170 

S41.1 

27,3271 

780 

4 

751 

754 

l 

276 

S50 

14,2515 

= 

932 

30 

369 

1252 

S52.2 

21,2707 

950 

2 

927 

944 

2 

1285 

S52.2 . 1 

21,2727 

9 50 

1 

1289 

S52.2A 

2 1,2720 

950 

l 

950 

46 

261 

1252 

S52.3 

21,2740 

951 

1 

927 

1 

1 

731 

620 

S8BITS 

4350 

= 

12  83 

1 

1290 

4 

638 

647 

T 

0036 

= 

l 199 

12 

509 

1194 

4 

638 

647 

TJX) 

27,3740 

1279 

2 

1276 

1277 

3 

639 

647 

T-OTHER 

E3, 1570 

= 

l 16 

3 

162 

205 

8 

639 

647 

T/2SEC 

15,3014 

964 

1 

963 

2 

636 

651 

TABLNTH 

06,2037 

167 

l 

167 

2 

629 

634 

TABLTTF 

E7, 1562 

= 

156 

7 

156 

829 

TABLTTFl 

3 1,3757 

829 

1 

805 

TAD 

7112 

1028 

1 

1009 

TAGSUB 

01,2445 

1087 

4 

108  5 

1086 

T ALIGN 

E 5, 1 7 74 

= 

128 

10 

129 

974 
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970 

81 

81 

969 

261 

969 

1119 

11  19 

333 

332 

834 

8 70 

1092 

79 

79 

93 

1022 

996 

665 

665 

2 34 

1090 

996 

1092 

1091 

98 

1085 

170 

302 

95 

1283 

1283 

95 

744 

622 

77 

77 

77 

77 

652 

651 

77 

77 

77 

77 

D BY 
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H 

references 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

TANG 

1106 

106 

20 

106 

590 

TDECAY 

E 7 , 1740 

= 

149 

l 

766 

TEPHEM 

E3.1706 

116 

11 

117 

1392 

TANGNB 

E7,  1752 

= 

152 

10 

1 52 

611 

TDECAYFX 

4761 

1094 

TEREND 

33,3157 

887 

1 

887 

TARGETDB 

E6, 1476 

= 

135 

A 

1 A33 

1AA6 

TDECl 

0040 

= 

1245 

57 

219 

1241 

TERLOOP 

33,3131 

886 

1 

887 

TARGE  TV 

12,3551 

1195 

l 

1195 

TDEC2 

E7, 1573 

= 

147 

3 

628 

700 

TERMASC 

34,3560 

855 

2 

85A 

855 

TARGTDEX 

3 1 , 2 A 1 5 

795 

1 

827 

TOELTAV 

E 3 , 1520 

= 

115 

13 

115 

1240 

TERMATE 

10,3400 

1367 

1 

1366 

TASKOVER 

5263 

112  7- 

77 

175 

1375 

TDESIRED 

E5, 1670 

= 

130 

5 

130 

1194 

TERME  XTV 

5474 

= 

276 

A 

281 

285 

TAT 

OC  14 

= 

1245 

15 

219 

1221 

TDISP 

15,3332 

973 

l 

973 

TERMNVEC 

12,3640 

1 197 

1 

1 197 

TAU.~ 

E A , 1 A 73 

= 

1 18 

13 

115 

1231 

TOISPSET 

31,3702 

827 

2 

800 

805 

TERM1 TMP 

0157 

= 

100 

3 

1261 

TAUHZ 

E5, 1 A 7 A 

= 

126 

2 

126 

315 

TEMDELH 

E7 , 1 766 

= 

159 

2 

886 

887 

TERM40 

36,3255 

750 

3 

749 

750 

TAUROD 

E 5 , 1535 

= 

126 

2 

126 

819 

TEMK 

1075 

106 

10 

1100 

TFROFF 

43,2341 

2 84 

1 

27  5 

TBASE  l 

1052 

105 

A 

731 

1301 

TEMP 

E5,  1441 

= 

132 

TERRL AMB 

E5, 1 757 

= 

130 

2 

1193 

1194 

TBASE2 

1 05A 

105 

7 

489 

12  17 

TEMPADD 

E5, 1440 

= 

132 

TERSK I P 

33,3161 

887 

l 

886 

TBASE3 

1 C 56 

105 

TEMPBB 

0064 

= 

1297 

1 

1296 

TEST 

01,2571 

1092 

1 

1092 

T8ASE4 

1060 

105 

A 

2 A A 

739 

T EMPB8CN 

0073 

= 

1297 

6 

1296 

1299 

TESTBIT 

40,3565 

472 

3 

471 

472 

T8ASE5 

1C62 

105 

l 

862 

T EMPFLSH 

0373 

102 

3 

240 

1362 

TESTLODX 

31,3656 

826 

1 

826 

T8ASE6- 

106  A 

105 

1 

7 39 

TEMPG 

0061 

= 

l 297 

8 

1296 

1299 

TESTLOOP 

13,3315 

1215 

6 

1213 

1242 

TBUI  LL'FX 

A 760 

1094 

1 

1508 

TEMPG2 

0071 

= 

1297 

3 

129  5 

1298 

TESTNN 

41,2073 

420 

1 

454 

TBUP 

EA,  1661 

= 

123 

15 

123 

855 

TEMPNM 

0063 

= 

1297 

3 

1296 

1299 

TESTQFUF 

40,3223 

443 

A 

446 

456 

TC 

E 3 , 1550 

= 

115 

10 

1 15 

1238 

TEMPNUM 

E6, 1741 

= 

136 

2 

1438 

TESTVB 

41,2066 

420 

TCALARM2 

A3, 3267 

1283 

TEMPOK 

06,2525 

181 

2 

181 

TESTXACT 

43,2076 

276 

19 

281 

1385 

TCCSM 

E 3,  1622 

1 16 

TEMP0R2 

0160 

= 

1370 

10 

1353 

1364 

TESTY 

35,2750 

670 

l 

670 

TCDANZ IG 

27,3756 

= 

1279 

6 

583 

12  74 

TE.MPP 

0062 

= 

1297 

6 

1296 

1299 

TET 

E3, 1516 

= 

115 

33 

115 

1237 

TCDH 

E 3 , 1 7 7 A 

1 17 

1 1 

205 

650 

TEMPPHS 

0154 

= 

1305 

9 

1300 

1305 

T E TCS  M 

E3, 1570 

1 16 

5 

116 

1392 

TCFINDVC 

A3A5 

A 76 

2 

A63 

1305 

TEMPPR 

0070 

= 

1297 

2 

1296 

1299 

TETLEM 

E 3 , 1642 

1 16 

A 

116 

1392 

TCGETCAD 

00,3762 

1374 

1 

1375 

TEMPP2 

0072 

= 

1297 

5 

1295 

1298 

TETOTHER 

E3, 1570 

= 

1 16 

TCGFAPPR 

b 5 , l A5 A 

= 

125 

3 

125 

327 

TEMPR60 

1 163 

107 

7 

488 

842 

TETTHIS 

F 3 , 1 642 

= 

116 

l 

713 

TCGFBRAK 

E 5 , 1 A5  2 

= 

125 

2 

125 

808 

TEMP  S W 

0065 

= 

1297 

8 

1295 

1298 

T EVEN  T 

1341 

111 

6 

205 

833 

TCGI APPR 

E 5 , 1 A55 

= 

125 

l 

125 

TEMPSWCH 

0157 

= 

1305 

3 

1300 

1305 

TFF 

E4, 1531 

= 

1 20 

1 l 

120 

724 

TCGI BRAK 

E 5 , 1 A5  3 

= 

125 

1 

125 

TEMPSW2 

0066 

= 

1297 

4 

1295 

1298 

TFF/RTMU 

0036 

= 

1265 

6 

717 

1276 

TCLEM 

E3, 1 6 7 A 

116 

TEMPT  I ME 

E5, 1430 

= 

132 

3 

132 

392 

TFFALFA 

0032 

= 

1265 

6 

1269 

1276 

TCNUV AC 

A 3 A 2 

A 76 

2 

A62 

1305 

TEMPVAR 

E 5, 1667 

= 

131 

3 

1 148 

1149 

TFF8ANK 

22,3322 

717 

1 

716 

TCP 

E 6 , 1 AA5 

135 

3 

1420 

1433 

TEMP2G 

0155 

= 

1305 

9 

1300 

1305 

TFFCALLS 

22,3567 

723 

1 

723 

TCP  I N 

A3, 3205 

3 10 

1 

310 

TEMP3  l 

E6,  1736 

= 

135 

6 

1442 

1443 

TFFCONIC 

27,3363 

1268 

TCPINAO 

A3, 3210 

310 

1 

309 

TEMX 

1253 

= 

108 

8 

108 

875 

TFFCONMU 

27,3364 

1268 

l 

723 

TCQ 

6763 

= 

129  1 

A 

277 

5 A l 

TEMY 

1254 

= 

108 

5 

108 

875 

TFFDELQ 

0012 

= 

1265 

2 

1277 

1278 

TCQBNKOO 

00, 3A55 

1078 

1 

1078 

TEMZ 

1255 

= 

108 

7 

108 

875 

TFFELL 

27,3656 

1277 

l 

1275 

TCQCOUW 

30,346 1 

915 

1 

921 

T EM  1 

0141 

99 

35 

99 

1363 

TFFEL  1 

27,3660 

1277 

1 

1275 

TCQR 

E 6 , 1A57 

135 

3 

1420 

l AA6 

TEM2 

0142 

99 

36 

99 

1396 

TFFNP 

0034 

= 

1 265 

6 

1268 

1277 

TCQSTAL 

17,2050 

578 

2 

577 

578 

TEM3 

0143 

99 

19 

99 

1257 

TFFQl 

0016 

= 

1265 

5 

1274 

1277 

TCS I 

E 7 , 1633 

1A8 

12 

205 

650 

TEMA 

0144 

99 

1 1 

99 

919 

TFFRP/RA 

27,343? 

1271 

1 

72  3 

TCSLEEP 

00,3773 

1375 

1 

1374 

TEM5 

0145 

99 

10 

99 

918 

TFFRTALF 

0030 

= 

1265 

3 

1269 

1276 

TCSUBTR 

00,3734 

1084 

1 

1082 

TEN 

4354 

= 

109  1 

8 

220 

1410 

TFFSW 

0167 

= 

80 

3 

1274 

TCTSKCVR 

A 3AA 

A 76 

1 

746 

T ENDAPPR 

E7 , 1424 

144 

TFFSWB IT 

A74A 

= 

80 

TC  WA  I T 

A3A3 

A 76 

2 

463 

1305 

TEND8RAK 

E7,  1423 

144 

2 

145 

807 

TFFTFM 

004A 

= 

1265 

13 

1274 

1278 

T DEC 

1 1 14 

107 

9 

107 

1 2 A 1 

TENSEC 

24,3203 

527 

l 

526 

TFFTI CK 

22,3455 

710 
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DEF 

H 
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SYMBOL 

DEF 

H 

REFERENCES 

TFFVSQ 

OC  29 

= 

1265 

l 

1268 

TIG-0 

36, 2407 

733 

2 

252 

/|732 

TJU 

E6, 1525 

= 

138 

19 

139 

1507 

TFFX 

004  2 

= 

1265 

7 

1?  74 

12  77 

TIG-30 

36,2300 

731 

2 

25/ 

TJV 

E6, 1526 

= 

138 

3 

1409 

1453 

TFFXTEST 

27,3564 

1275 

l 

1275 

T IG-30. 1 

36,2270 

730 

1 

1/0 

r 

TJZERO 

21,3726 

1508 

2 

150  8 

TFFZEROS 

23,2504 

= 

1280 

2 

1274 

1275 

TIG-30A 

36,2275 

731 

l 

710 

T L AND 

F4, 1426 

118 

6 

212 

929 

TFF1/ALF 

0026 

= 

1265 

T 

1269 

1278 

TIG-35 

36,2242 

730 

3 

252 

729 

TL  IM 

06,2514 

181 

1 

172 

TFF1/4 

23,2474 

= 

1280 

4 

12  68 

1274 

TIG-5 

36,2354 

732 

4 

252 

738 

TLOAD 

6511 

1017 

3 

369 

1097 

T GO 

"E  7 , 1516 

= 

154 

39 

1 54 

855 

T IGNOW 

36,3240 

7 50 

2 

736 

749 

TM 

E6 , 1732 

= 

140 

4 

376 

379 

TGOCALC 

27,2470 

766 

T IGSAVE 

E7, 1 762 

= 

149 

4 

756 

760 

TMANUCHK 

22,3064 

378 

TGOCOMP 

32,3626 

837 

2 

835 

836 

TIGSAVEP 

E7 , 1764 

= 

149 

2 

756 

757 

TM  ARK 

E 5 , 1 432 

= 

132 

4 

132 

392 

TGOFFNOW 

21,3343 

14  78 

3 

1477 

1478 

T IGTASK 

36,2566 

736 

1 

72  7 

TMEXI TL 

05,3720 

992 

TG01 

E 7 , 1501 

= 

155 

2 

83  7 

T IGTASKl 

35,3657 

736 

1 

736 

TMFA I L 2 

04,3357 

1337 

2 

1337 

THDUMP 

31,2333 

792 

TIMECHEK 

10,3334 

1366 

1 

1366 

TMF  I 

E 6 , 1 702 

= 

140 

9 

364 

365 

THETA 

0024 

= 

129 

10 

943 

1248 

T IMECHK 

22,3075 

378 

1 

378 

TM  IN 

34,2111 

638 

2 

647 

THETACON 

27,2411 

762 

1 

761  . 

TIMEDELT 

04,3170 

1222 

4 

1220 

1221 

T M INDEX 

0336 

= 

102 

4 

991 

THET AD 

• 0321 

101 

26 

101 

1310 

TIMEDIOL 

04,3571 

1389 

2 

1389 

1392 

TM  I S 

E6, 1702 

= 

140 

10 

140 

363 

THETAN 

E5,  1452 

= 

133 

1 

133 

T I MED  I DR 

04,3603 

1389 

1 

254 

T MODE 

6520 

1017 

1 

536 

THETCCMP 

34,3650 

856 

2 

835 

855 

T IMEGM8L 

21, 3260 

1476 

2 

1448 

1488 

TMPDV 

1235 

= 

108 

2 

681 

THFTCRIT 

E5, 1555 

= 

126 

2 

126 

835 

T IMEHOLD 

1104 

106 

4 

569 

583 

TMPTOSPT 

33,2367 

876 

1 

865 

THETEST 

E 7 , 1563 

= 

151 

7 

151 

264 

TIMEINC 

13,3674 

1221 

1 

1222 

TMRESUMF 

05,3722 

993 

THETRET 

15,2046 

261 

1 

2 63 

T1ME0VFL 

12,231 l 

1 176 

1 

1174 

TNEWA 

E 7 , 1 43  1 

144 

2 

756 

THIRD 

35,3645 

687 

2 

6 72 

855 

TIMEP  • 

0030 

= 

985 

3 

983 

984 

TNONTFST 

06,2227 

1 73 

l 

171 

THIRTEEN 

4 ?52 

= 

1071 

2 

1068 

1399 

TIMERAD 

12,3557 

1196 

1 

628 

TNUV 

F3,  1526 

= 

115 

12 

115 

1240 

THISAXIS 

23,2476 

= 

38 

1 

38 

T IMESTEP 

11,3307 

1235 

4 

1216 

TOBALL 

26,2140 

488 

l 

488 

THISPREC 

13,3115 

= 

38 

3 

704 

718 

TIMETEST 

01 , 3576 

1301 

1 

1304 

TOBALLA 

26,2  146 

488 

2 

489 

THISSHIP 

22,3360 

7 18 

1 

71  7 

TIMETHET 

12,2732 

1 184 

5 

509 

666 

TDBALLC 

26,2173 

489 

l 

489 

THIS  TP  IP 

E7, 1761 

= 

158 

6 

1 58 

819 

T IMEX 

35,3207 

673 

2 

671 

673 

T0C0N2 

5421 

12  96 

1 

1297 

TH I S V I NT 

13,2066 

248 

1 

1221 

TIMEL 

0025 

= 

94 

28 

175 

1366 

TOF-FF 

27,2000 

= 

34 

1 

1268 

THRDCHK 

34,2656 

646 

2 

645 

T I ME  2 

0024 

= 

94 

39 

161 

1394 

T0F-FF1 

27,2000 

= 

34 

2 

48 

1280 

THRU  I SP 

E7, 1750 

= 

152 

2 

329 

789 

TIME2SAV 

0314 

101 

4 

101 

13  34 

TOFAR 

25,3635 

585 

l 

585 

THREE 

6266 

= 

1097 

44 

244 

1456 

T I ME  3 

0026 

= 

94 

4 

230 

1126 

TOOBAOF 

22,2724 

375 

1 

363 

THREE/8 

12,3757 

1244 

1 

1230 

T IME4 

0027 

= 

94 

4 

167 

230 

TOOBADI 

22,2742 

375 

l 

364 

THREEDEG 

32,2563 

590 

1 

590 

T IME5 

0030 

= 

94 

5 

230 

1419 

TOOBIG 

24,2142 

512 

1 

511 

THRESF1 

36,2022 

41 

1 

748 

T IME6 

0031 

= 

94 

7 

1401 

1455 

TOOFEW 

1354 

112 

2 

79  7 

814 

THRESH? 

6000 

41 

3 

753 

839 

T IMQGMBL 

21,3266 

1477 

1 

1478 

TOPSEUDO 

17,2553 

1446 

1 

1446 

THRESH3 

36,2023 

41 

1 

748 

T IMSUBM 

0016 

= 

1146 

3 

1143 

T0RKJET1 

20,2000 

44 

2 

1488 

THRO TL  AG 

3 1 , 2004 

41 

1 

792 

T IMSUBO 

E3, 1706 

= 

117 

1 

1143 

TORQCONS 

20,3123 

1493 

l 

1493 

THROTTLE 

31,2144 

789 

2 

811 

813 

TITER 

E7 , 1613 

= 

147 

5 

670 

672 

TORQNDX 

E5, 1440 

= 

132 

3 

385 

400 

THROTUP 

32,3635 

838 

2 

836 

TlX 

01, 2421 

10  86 

l 

1010 

TORQUE 

37,2117 

386 

l 

400 

THROT66 

31,3514 

813 

1 

820 

TJCALC 

17,3402 

1460 

2 

1460 

TOTATTEP 

43,2167 

2 79 

2 

275 

279 

THRTC  ALL 

3 1 ,3407 

811 

2 

81  l 

T JETLAW 

17,3304 

1459 

2 

1436 

1450 

TP  AGREE 

7300 

1034 

19 

287 

1394 

m 

0C55 

= 

95 

5 

222 

838 

TJETU 

E6 , 1525 

= 

139 

2 

146  l 

1462 

T P ASS  4 

E 7 , 1630 

148 

9 

20  5 

774 

TICK  1 t ST 

22,3432 

719 

2 

716 

719 

TJLAW 

17,2715 

14  50 

1 

1454 

TPDVL 

6631 

1019 

l 

1019 

TICKTFF 

22, 3422 

718 

1 

718 

T JLAWAOR 

17,3142 

1454 

1 

1450 

TPERT ICK 

22,3462 

719 

1 

719 

TICKTPFR 

22,3412 

718 

T JMIN 

17, 3774 

1467 

1 

1465 

TP  IP 

E7, 1624 

= 

156 

5 

156 

800 

TIG 

E 7 , 1441 

145 

41 

205 

974 

T JP 

E6 , 1524 

138 

L 8 

138 

1468 

TPTPOLD 

E 7, 1 573 

= 

156 

2 

79  9 

800 
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1 PLEFTN 

4C, 3202 

448 

3 

433 

448 

T SIGHT 

E7,  1561 

= 

151 

19 

151 

977 

TURNON 

17,3154 

14  54 

TPMUDE 

10,3643 

1395 

1 1 

596 

1 1 89 

TSIGHT  1 

14,3172 

940 

1 

93  8 

TURNONBT 

4 744 

= 

88 

1 

542 

TPRE  V 

E5, 1761 

= 

130 

3 

1193 

1194 

T SKOVCDR 

01,3522 

1130 

l 

1130 

TURNONFL 

0302 

= 

88 

TPSL  l 

4375 

477 

6 

437 

448 

TSL8TCQ 

30,3603 

918 

1 

918 

TVEC 

0032 

= 

1245 

4 

1233 

TPUSH 

00, 3272 

1075 

l 

1075 

TSLC 

7637 

1042 

1 

1009 

TWEEKIT 

0050 

= 

1201 

4 

1180 

1194 

TR*GL **P 

23,3543 

1257 

1 

1257 

T SLCLOOP 

00, 2201 

1050 

1 

1050 

TWELVE 

5745 

= 

1482 

2 

898 

1479 

TRACE  1 

40,3265 

45  b 

TSLC  TEST 

00, 2207 

1050 

1 

1050 

TWIDDLE 

5175 

1117 

29 

387 

1321 

TRACE  IS 

4C.3276 

456 

TSLC2 

00,2172 

1050 

1 

1042 

TWO 

4 743 

= 

1097 

107 

38 

1503 

TRACKP  11 

. 4740 

= 

70 

15 

29  2 

1312 

TSNEXTP 

16,3020 

1428 

4 

1427 

1428 

TWOPI 

35,3641 

687 

5 

628 

676 

TR  AC  K F LG 

0031 

= 

70 

6 

5 10 

1382 

TSNEXTS 

17,2226 

1441 

TWOPULSE 

07,3536 

1 321 

1 

1321 

TRANSM1 

E4, 1400 

= 

122 

2 

122 

398 

T SNUMBRT 

17,2216 

1441 

l 

1444 

TXO 

E7, 1653 

= 

160 

3 

842 

852 

TRANSPDS 

22,2326 

368 

1 

3 63 

TSSL 

00,2101 

1047 

3 

1045 

1054 

TX  789 

E 7 , 1471 

= 

151 

3 

15  1 

1155 

TRANS  T M 

E 7 , 1662 

= 

155 

3 

1 55 

510 

TSSR 

00,2025 

1045 

typep 

16,3564 

1438 

1 

1438 

TRAN  S 4 

17,2352 

1444 

1 

1441 

T STAB 

40,3703 

485 

1 

486 

TYPEPOLY 

17,3263 

1456 

2 

1456 

TRAPECP 

E6, 1430 

1 34 

1 1 

134 

1423 

TSTART82 

E4, 1575 

= 

120 

7 

351 

718 

T 1 TOT  2 

E4.1643 

121 

6 

121 

647 

TRAPE  CD 

E6 , 1431 

= 

134 

6 

1409 

1424 

TSTC0N1 

41,3730 

483 

1 

482 

T2A 

30,3001 

= 

858 

1 

848 

TR  AP  E DR 

E6, L432 

= 

134 

6 

1409 

1424 

TSTC0N2 

41,3731 

483 

1 

482 

T2TEST 

30,2447 

848 

2 

848 

854 

TREDES 

E7, 1666 

= 

157 

6 

80  l 

828 

TSTC0N3 

41,373? 

483 

1 

483 

T 2 TOT  3 

E 4 , 1 645 

121 

5 

328 

647 

TREDESCL 

31,376  1 

829 

1 

877 

TSTFBANK 

27,2232 

746 

1 

746 

T3 

30,3003 

858 

1 

848 

TRG*  N 8 SM 

23,3656 

1259 

5 

261 

966 

T S TFORDP 

41,2515 

428 

1 

427 

T3RPTBB 

4057 

l 64 

1 

163 

TRG*SMN8 

23,3643 

1259 

1 

590 

TSTLTS  1 

41,3703 

4 82 

1 

482 

T3RUPT 

01,3412 

1 126 

2 

163 

164 

TR  IG  1 

23,3316 

1248 

1 

1248 

T S T.JJ  S 2 

40,3641 

493 

1 

482 

T3RUPT2 

01,3417 

1126 

l 

1127 

TRIG2 

23,3327 

1248 

1 

1248 

tstlT*4 

41,3734 

483 

l 

48  3 

T4JUMP 

06,2116 

169 

2 

168 

TRIMACCL 

31,2000 

40 

l 

809 

TsTlTs  4\ 

40,3527 

465 

1 

484 

T4RPTBB 

4064 

164 

1 

163 

TRIMDCNE 

01,2330 

308 

1 

778 

T STORE  ' 

\ 6475 

1015 

1 

1015 

T4RUP 

06,2000 

= 

30 

2 

165 

166 

TR I MG  I MB 

27,3221 

777 

1 

■308 

TSTP JINT, 

fP  3,3747 

1261 

T4RUPT 

06,2000 

165 

2 

163 

164 

TRIPA 

E 5 » 1 664 

= 

131 

5 

131 

1 14SP 

13,2632 

1137 

1 

1 137 

T 5 ADR 

1262 

109 

6 

163 

1488 

TRKFLCDU 

06,3117 

196 

2 

196 

TSTRT 

E7, 1611 

= 

147 

3 

295 

706 

T5TFMP 

0061 

= 

142 

1 

1417 

TRKFLCIY 

4572 

541 

2 

540 

618 

TTEMP 

E6 , 1706 

= 

■140 

8 

377 

380 

T6ADR 

4055 

164 

l 

163 

TRKMKCNT 

E 7 , 1462 

146 

12 

14  6 

12  19 

TTF/8 

E 7 , 1642 

= 

156 

18 

156 

892 

T6FURTHA 

E6, 1470 

135 

11 

1401 

1455 

T RMT  RACK 

43,3020 

299 

2 

275 

613 

TTF/8CL 

31,3015 

804 

3 

794 

T 6 JOB 

17,2061 

1401 

TRMTRAK1 

42,2054 

299 

1 

299 

TTF/8TMP 

E7 , 1552 

= 

156 

5 

156 

800 

T6J0BCHK 

17,2055 

140  1 

1 

1402 

TRNSPSPD 

22,2335 

368 

1 

3 64 

TTFDI SP 

E 7 , 1475 

= 

154 

4 

154 

827 

T6NEXT 

E 6 f l 466 

135 

12 

230 

1455 

TRUDELH 

E7,  1736 

= 

158 

2 

213 

8 £ 7 

TTFINCR 

31,2562 

800 

3 

794 

799 

TRUE  360X 

12,3172 

1189 

1 

1188 

TTFSCALE 

4731 

= 

829 

U=SCAX IS 

27,2134 

497 

1 

49  7 

TRUNBC 

26,3117 

601 

TTHROT 

£7,1617 

= 

156 

3 

156 

791 

UAXDI ST 

0141 

= 

1503 

2 

1500 

1501 

TRUNNCMD 

1351 

112 

3 

5 50 

566 

TTO 

E4, 1657 

= 

123 

4 

123 

847 

UAXIS 

20,3274 

1496 

TRUNVAR 

E4, 1411 

1 18 

l 

602 

TTOAXI S 

E 6 , 1741 

= 

138 

10 

1462 

1465 

UC  SM 

F 7 , 1636 

= 

155 

3 

155 

509 

TRYGTS 

17,2623 

1447 

1 

1440 

TTOGO 

E 7 , 1453 

145 

28 

164 

853 

UDB1 

0135 

= 

1 503 

2 

1500 

1501 

TRYSWN 

25,2514 

559 

1 

559 

TTOTIG 

1271 

109 

2 

328 

573 

UDB2 

0136 

= 

1503 

TRYSWS 

25, 2452 

558 

1 

555 

T TP  I 

E 7 , 1635 

148 

19 

205 

673 

UDB3 

0140 

= 

1503 

TRYUORV 

16,2757 

1427 

1 

1428 

TTPIO 

E7, 1637 

148 

3 

629 

634 

UDB'4 

0137 

= 

1503 

2 

1500 

1501 

TSCALE 

32,2170 

221 

l 

220 

TURNI TON 

35,3733 

743 

1 

743 

UCRROR 

F 6 , 1750 

= 

136 

3 

136 

1450 

TSCAL  INV 

474  1 

= 

829 

l 

827 

TURNOFFQ 

16, 2720 

1426 

1 

1426 

UJFTCTR 

E6, 1767 

= 

142 

4 

1409 

1507 

TSENSE 

17,2176 

144  1 

1 

1441 

TURNOFFR 

16,2730 

1427 

1 

1426 

ULC 

E7,  1723 

= 

152 

8 

152 

605 
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SYMBOL 
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SYMBOL 

DEF 
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RFFERENCES 

ULLAGER 

4737 

= 

90 

3 

738 

1441 

UPOAT IME 

42,2016 

287 

l 

287 

UPTEMP 

1 166 

107 

11 

107 

1391 

ULLAGELG 

0314 

= 

90 

2 

236 

738 

UPDATNN 

41, 2347 

424 

3 

454 

469 

UPTEST 

04,3363 

1337 

2 

1336 

ULLAGCFF 

36,2561 

735 

l 

252 

UPDATOFF 

43, 3054 

301 

1 

276 

UPTHROT 

32,3557 

836 

ULLGNO  I 

36,2327 

731 

5 

726 

731 

UPOATOK 

04,3376 

1386 

1 

1386 

UP  THRDT1 

32,3564 

836 

l 

837 

ULLGT  ASK 

36,2350 

732 

4 

239 

741 

UPDATRET 

0117 

= 

98 

3 

424 

425 

UP  TMF  AST 

06,2676 

188 

1 

191 

ULOS 

E 4 , 1 7 C 1 

= 

121 

6 

670 

678 

UPDATVB 

41,2367 

424 

10 

416 

469 

UPVERB 

1 171 

= 

107 

7 

107 

1389 

UMPAC ♦ 

,3  170 

1072 

2 

1072 

UPOAT  1 

41,2374 

425 

2 

424 

458 

UPVERBSV 

1 165 

107 

2 

138  5 

1386 

UMPAC- 

00, 3 162 

1072 

2 

1072 

UPDNL I ST 

05,2414 

= 

204 

UPVER I FY 

04,3465 

1387 

3 

1387 

1388 

UN 

E.5 , 1 6 7 3 

= 

130 

9 

130 

1197 

UPDTCALL 

22,3206 

380 

1 

379 

UP VRF YNV 

04,3521 

1388 

l 

1387 

UNAJUMP 

OC, 2000 

1011 

l 

1008 

UPDTMENO 

42,2032 

287 

UPWAKE 

04,3556 

1389 

UNFC/2 

E6, 1651 

= 

140 

2 1 

141 

9C7 

UPOTPHAS 

4747 

= 

1388 

l 

1389 

UP1 

E4.1651 

121 

12 

121 

654 

UNFV/2 

66, 1665 

= 

141 

5 

14  l 

907 

U P END  70 

04, 3725 

13  92 

1 

1 389 

UP  2 1 

4353 

= 

1388 

l 

1387 

UNFVL IM 

30,3751 

922 

1 

916 

UP  END  71 

04,3634 

1390 

1 

1389 

UP  70 

4 746 

= 

1385 

1 

1385 

UNFVX/2 

E 6 , 1665 

= 

141 

UPEND72 

04,3666 

1391 

1 

1389 

UP  71 

4744 

= 

1385 

1 

1385 

UNFVY/2 

E 6 , 1667 

= 

141 

3 

909 

910 

UPEND73 

04,3540 

1388 

UP  72 

4743 

= 

1385 

1 

1385 

UNFVZ/2 

E6, 1671 

= 

141 

3 

909 

910 

UPENT2 

10,3554 

1371 

4 

1360 

1366 

UP  73 

6266 

= 

I 385 

I 

1385 

UNIT 

00,3023 

1060 

2 

1011 

1399 

UPERROR 

04,3375 

1386 

UR 

0000 

= 

504 

1 

503 

UNIT/R/ 

E 7, 1536 

= 

154 

36 

154 

889 

UPERROUT 

04,3762 

1393 

4 

1386 

1392 

UP  ATE 0 I F 

F6, 1426 

= 

135 

5 

1445 

1447 

UNIPDV 

00,3151 

1072 

3 

1070 

UPFLAG 

5506 

13  72 

78 

279 

1389 

UR  P 

0006 

= 

504 

2 

503 

UNIT  GOBL 

E7, 1520 

= 

154 

2 

776 

382 

UPFND VAC 

04,3546 

1389 

1 

1388 

URPV 

0016 

= 

1245 

8 

1232 

1245 

>^44^%CRM 

04,3155 

1186 

l 

1186 

UP  JOB 

04,3553 

1389 

l 

1389 

URRECT 

F 5, 1646 

= 

130 

4 

130 

1177 

UNIT  x\ 

2’3 ,2  502 

1098 

1 1 

38 

1098 

UPLIM 

12, 3277 

1192 

1 

1191 

UR  1 

E5 , 1721 

= 

130 

11 

130 

1197 

vjn 

23,2500 

1098 

4 

38 

782 

UPLOADNV 

04,3520 

1388 

2 

13  86 

1387 

USEADD 

41,2132 

420 

1 

420 

UNIT  Z 

23,2476 

1098 

10 

38 

882 

UP  LOC  BIT 

4 741 

= 

80 

3 

1336 

1337 

USECOS 

30,3640 

919 

1 

919 

UNKNOWN 

0007 

= 

204 

UPLOCKFL 

0164 

= 

80 

USEGTS 

33,2260 

866 

UNP3  6 

E4, 1605 

= 

122 

3 

704 

UPMNSVCD 

04,3247 

1223 

l 

1222 

USEJETS 

33,2317 

867 

4 

866 

UNRM 

E 4 , 1 6 5 1 

= 

121 

7 

671 

680 

UPNEG 

7602 

1041 

1 

1041 

USEMAXDT 

13,3372 

1215 

1 

1216 

UNSUS  PEN 

40,3535 

465 

l 

465 

UPQK 

04, 3342 

1336 

US EP I OS 

13,3037 

1209 

1 

1209 

UN  VE  C 

E7,  1543 

= 

147 

5 

653 

654 

UPOLDMOD 

1170 

= 

107 

5 

107 

1391 

USEQRFLG 

0304 

= 

89 

UNWC/2 

£6,1657 

= 

141 

10 

141 

9C9 

UPOUT 

04,3713 

= 

1391 

8 

1223' 

1393 

USEQR JTS 

4727 

= 

89 

6 

756 

1488 

UNWC  L OOP 

31,3345 

810 

1 

810 

UP0UT4 

04,3714 

= 

1388 

3 

1386 

1387 

USERPRIO 

0163 

= 

1370 

3 

1356 

1367 

UNWC  TEST 

30,3507 

916 

2 

91  0 

UPPART2 

04, 3372 

= 

1386 

1 

1385 

USEVF 

33,3405 

891 

1 

890 

UNX/2 

0000 

= 

141 

7 

909 

916 

UPPART3 

04,3564 

= 

1389 

USPRC ADR 

4 704 

998 

6 

825 

1257 

UNY/2 

0006 

= 

141 

1 

910 

UPPOS 

7572 

1041 

l 

104  1 

UT 

E7, 1672 

149 

10 

149 

764 

UNZ/2 

0014 

= 

141 

8 

909 

910 

LPPSV 

24,2374 

516 

2 

514 

526 

UTIME 

2 1,3645 

1 507 

1 

1506 

UNZ2 

06,2313 

1 75 

1 

I 76 

UPPSV1 

24,2414 

516 

1 

516 

UV 

0154 

= 

1504 

7 

1496 

1503 

UPACTOFF 

04,3767 

1393 

2 

139  l 

1393 

LPPSV3 

24,2446 

516 

l 

516 

UXVECT 

E7, 1717 

= 

150 

7 

150 

612 

UPBUFF 

1 1 73 

= 

107 

31 

107 

1392 

UPPSV4 

24,2427 

516 

1 

517 

UXVECTPR 

0014 

= 

613 

3 

610 

UPCOUNT 

1172 

= 

107 

7 

107 

1387 

UPPSV5 

24,2411 

516 

l 

516 

UYVECT 

E7, 1725 

= 

150 

6 

150 

612 

UPDATADR 

13,2361 

713 

1 

713 

UPRPTBB 

4060 

= 

164 

1 

163 

UYVFCTPR 

0022 

= 

613 

2 

610 

UPDATB  IT 

4736 

= 

70 

1 

522 

UPRPT1 

04, 3320 

1336 

l 

1336 

UZ 

0024 

= 

1245 

4 

1232 

1234 

UPDATCHK 

33,3064 

886 

1 

878 

UPRUPT 

04,3302 

1336 

l 

163 

U1P0S 

22,2250 

366 

1 

366 

UPDATEVG 

36,3612 

756 

2 

752 

757 

UPSTORE 

04, 3522 

= 

1388 

l 

1 387 

U2 

E 5 , 1 71 1 

130 

5 

130 

1196 

UPDATE2 

04,2000 

= 

29 

2 

1222 

1386 

UPSUM 

1245 

= 

108 

3 

109 

1336 

U2P0S 

22,2224 

366 

1 

366 

UPOATFLG 

0C27 

= 

70 

10 

300 

684 

UPSVFLAG 

E3 , 1501 

= 

115 

8 

1 

1223 

U3P0S 

22,2274 

367 

1 

367 
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REFERENCE 

f S T 1 A 1 s 

l p 7 

5 

1 ? 7 

V 

E7,  1526 

- 

154 

19 

154 

895 

VBITS 

25,3137 

570 

i 

570 

V(CSM) 

E3, L723 

= 

1 16 

5 

70.9 

884 

VEPRDC 

40,3471 

463 

5 

422 

V-OTHFR 

E3.1723 

1 16 

6 

116 

333 

VBRELOSP 

40,3517 

465 

l 

410 

V/ SC 

7645 

1043 

1 

1009 

VBRESEQ 

40,3514 

464 

l 

422 

V/SCDV 

00,2750 

1066 

3 

1065 

VBRFG* 

E5 , 1432 

= 

125 

2 

125 

V/ SC  1 

7653 

1043 

1 

1043 

V8RFGX 

E5 , 1412 

= 

125 

2 

125 

V/SC2 

00, 2654 

1064 

l 

1043 

VBRFG2 

E 5 , 1416 

= 

125 

l 

125 

VACDSP 

10,2671 

1358 

1 

1358 

VBRQEXEC 

41,3526 

462 

l 

422 

VACFOUND 

01,2624 

1104 

5 

1104 

VBRQWAIT 

41, 3557 

463 

l 

422 

VACRL  EAS 

5 156 

1103 

5 

811 

851 

VBSP1LD 

41,3056 

442 

2 

439 

VACSTOR 

07,2467 

271 

2 

2 70 

VBSP2LD 

41,3057 

442 

2 

439 

VACT  1 

E 7,  14.71 

147 

4 

150 

648 

VBSP2LD* 

40,3516 

464 

1 

463 

V ACT  2 

E 7 , 1513 

147 

3 

642 

654 

VBSP3LD 

41, 3060 

442 

1 

439 

VACT  3 

E7, 1 543 

147 

13 

14  7 

700 

VB  TER  M 

40,3477 

463 

2 

422 

VACT  4 

E 7 , 1565 

147 

6 

148 

642 

vbtstlts 

41,3662 

482 

1 

422 

VACI 

0401 

102 

V BUF 

0122 

98 

6? 

98 

VAC  I ADRC 

05,3370 

234 

1 

232 

VBZERO 

43,2126 

278 

1 

275 

VAC1USE 

0400 

102 

4 

232 

1104 

V804N12 

26,2121 

352 

1 

351 

VAC2 

C455 

! '2 

V805N06 

15, 3633 

9 80 

1 

974 

VAC2USE 

0454 

102 

3 

232 

1104 

VB05N09 

4777 

= 

927 

3 

938 

V AC3 

0531 

102 

VB06N18 

26,2122 

352 

1 

352 

VAC3USE 

0530 

102 

3 

232 

1104 

VB06N98 

37,2472 

393 

l 

393 

VAC4 

06C5 

102 

VB56C ADR 

6046 

613 

l 

613 

VAC4USE 

0604 

102 

3 

233 

1104 

VB6N5 

14,3315 

943 

1 

943 

V AC5 

0661 

103 

1 

10  3 

V 864 

43,2674 

292 

l 

275 

VAC5USE 

0660 

103 

3 

2)3 

1104 

VR67 

31,2000 

= 

35 

1 

614 

VAD 

6 772 

1024 

1 

1009 

VB67A 

30,2000 

= 

35 

l 

616 

VALI DCHK 

07,2451 

2 70 

2 

269 

270 

VB97DEX 

4756 

= 

740 

1 

737 

VALM  I S 

37,2263 

389 

1 

400 

VB99DEX 

4751 

= 

740 

1 

733 

VALTCHK 

33,3433 

891 

3 

889 

891 

VCV 

E 3 , 1542 

= 

l 15 

21 

115 

VAL67 

05,2023 

54 

3 

9 83 

984 

VC VC  SM 

E3,  1614 

1 16 

1 

598 

VAPFG* 

E 5 , 1434 

= 

125 

1 

125 

VCVLEM 

E3 , 1666 

116 

2 

516 

VAPFGX 

E 5,  1414 

= 

125 

1 

125 

VDB  ■ 

17,2533 

1446 

1 

1446 

VAPFGZ 

E5, 1420 

= 

125 

1 

125 

VDEF 

00,3232 

1075 

1 

101  1 

VAPREC 

E 7 , 1 505 

= 

147 

2 

670 

673 

VDG 

E 5 , 1 4 1 2 

= 

829 

1 

806 

VARADAR 

25,2040 

506 

1 

505 

VDGVERT 

E 7 , 1644 

= 

157 

4 

79  7 

VARALARM 

5740 

1381 

4 

190 

1329 

VDG2TTF 

F5 , 1432 

= 

829 

i 

804 

VARDt  LAY 

5226 

1117 

9 

1 1 4 

1309 

VD1 

4351 

476 

15 

234 

VARI ANCE 

E5,  1706 

= 

131 

12 

13  1 

1148 

VE 

E4,  1655 

= 

123 

6 

123 

VAIT 

0006 

= 

1245 

23 

583 

1221 

VEARTH 

E5 , 1706 

= 

128 

6 

128 

VATT  1 

0024 

= 

1245 

14 

220 

803 

VECAGREE 

00, 3010 

1067 

4 

10  64 

V8AD 

25,3506 

576 

1 

575 

VECANG1 

26,2415 

498 

I 

497 

VBCOARK 

43,2177 

280 

l 

2 75 

VECANG2 

26, 2417 

499 

1 

497 

V8FAND IR 

41,2  173 

421 

1 

421 

VECLEAR 

27,2043 

496 

1 

496 
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SYMBOL 

DEF 

H 

REFERENCES 

879 

VECOEANG 

22,2723 

374 

2 

374 

VECPNTl 

27,2032 

496 

1 

534 

471 

VECPNT2 

27,2035 

496 

1 

496 

VECPO I NT 

27,2040 

496 

3 

352 

489 

VECPT 

27,2000 

= 

34 

1 

49  5 

829 

VECQTEMP 

E6, 1724 

= 

140 

4 

496 

498 

829 

VECSGNAG 

10,3770 

1399 

2 

220 

221 

VECSH I FT 

23,2437 

701 

3 

640 

653 

VECTAB 

E4 , 1522 

= 

1 19 

8 

119 

1243 

VECl 

E 6, 1645 

= 

141 

8 

141 

980 

440 

VEC2 

E6 , 1 653 

= 

141 

6 

968 

980 

441 

VEHUPBIT 

4735 

= 

70 

VEHUPFLG 

0026 

= 

70 

13 

30  1 

1154 

VELBI AS 

F 5, 1400 

= 

125 

2 

125 

889 

470 

VELCDNV 

21,2003 

44 

2 

899 

900 

VELDAR  IT 

4736 

= 

86 

2 

576 

889 

1503 

VELDATA 

0255 

= 

86 

VELDATA? 

33,3271 

889 

1 

889 

VELLOS 

0016 

= 

5 84 

2 

511 

583 

VFLSC 

37,3101 

401 

1 

39  7 

975 

VELUPDAT 

33,3275 

889 

VERB 

40,2343 

414 

1 

410 

VERBFAN 

41,2160 

42  1 

7 

420 

423 

VERBM ASK 

4144 

= 

1369 

1 

1354 

VERBNOUN 

E7, 1 615 

147 

4 

636 

686 

VFRBPEG 

1000 

104 

22 

233 

473 

VERBS  AVF 

1040 

104 

3 

420 

461 

VERBTAB 

41,2176 

421 

1 

42  l 

VERB37 — 

-04,2000  - 

29 

1 

236 

1238 

.VERB69 

43,2037 

275 

1 

vEkob  5 
VERB96 

43,3232 

43,3211 

310 

— L_ 

i 

/ i 

276 

598 

VERIFBIT 

4742 

= 

80 

i 

1388 

VFR IFl AG 

0165 

= 

80 

VERROR 

E6, 1751 

= 

136 

VERTD  ISP 

31,3502 

812 

i 

795 

819 

VERTDRFT 

37,2231 

388 

VERTSKIP 

37,2534 

395 

i 

39  5 

1097 

VEX 

F 7, 1742 

149 

3 

74  9 

767 

847 

VFAIL 

33,3532 

893 

2 

890 

960 

VFAILBIT 

4727 

= 

85 

1399 

VFAILFLG 

0246 

= 

85 

2- 

_a_9o 

893 

VFLAG 

0062 

= 

. -2A. 

4 

93>s 

936 

VFLAGBIT 

VFLSHBIT 


4733 

4743 


r 


73 

87 
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SYMBOL 

DEF 

H 

REFERENCES. 

’■S^adDL 

DEF 

VFLSHFLG 

0262 

= 

sh 

2 

890 

893 

VN2j/ 

E 7 , 1656 

V G 

E 7,  I 7C6 

149 

1 49 

766 

26, 2674 

VGAI N* 

27,2455 

766 

1 

TW — 

VCK1 

26,2735 

VGBODY 

E7, 1501 

= 

154 

12 

154 

847 

V0K2 

26, 2737 

VGOI S P 

E7, 1663 

= 

148 

4 

326 

766 

VONE 

E4 , 1605 

VGPREV 

E7.17CC 

= 

149 

9 

251 

772 

VONE  1 

E4, 1560 

VGTIG 

E 7 , 1 700 

= 

149 

1 1 

149 

768 

VUPENED 

06, 3260 

VGU 

E 7 , 1626 

= 

156 

8 

• 156 

806 

V PAS  S 1 

E7 , 1505 

VGVECT 

C 7 , 1645 

= 

160 

6 

160 

847 

VPASS2 

E7, 1527 

VHY 

' 0063 

= 

158 

5 

901 

902 

V PASS  3 

E7 , 1557 

VHZ 

0C65 

= 

158 

7 

901 

9C2 

VPASS4 

E 7 , 1505 

VHZC 

F7,  1433 

= 

158 

2 

797 

815 

VPO 

0000 

VIGN 

E b t 1 4 

= 

125 

2 

125 

783 

VPOVL 

6614 

V I N I T 

E 4 , 1721 

122 

9 

6 77 

762 

VPPREC 

F7, 1527 

VINJNLM 

34,3371 

842 

1 

840 

VPROJ 

7446 

VINTFBIT 

4742 

= 

73 

VRATED1F 

E6 , 1427 

VI  NT  FLAG 

0071 

= 

73 

27 

247 

1240 

VRECT 

E3,  1510 

V1PRI ME 

E4.1727 

123 

7 

666 

774 

VRECTCSM 

E3 , 1562 

VJETCTR 

E6, 1770 

= 

142 

2 

1409 

1426 

VRECTLEM 

E 3 , 1634 

VLAUN 

E 5 , 1510 

= 

132 

5 

398 

399 

VR  IGHT 2 

00,2242 

VLAUNS 

E 5 , 1462 

= 

132 

VROTATEX 

7441 

VL  IGHT 

25,3705 

6 18 

1 

618 

VROUND 

7161 

VL  ITE 

4742 

= 

6 19 

2 

613 

831 

VSCALE 

32,2175 

VLOAD 

6526 

1017 

1 

l 

VSELECT  . 

E 7 , 1462 

VLOAO* 

6130 

= 

1097 

1 

1016 

VSELECT* 

0131 

VLOADCOD 

4726 

= 

1097 

1 

1016 

VSHRRNU 

00,2073 

VM  AX 

E 4 , 1405 

1 18 

l 

606 

VSHR2 

00,2060 

VMEAS 

E7,  1652 

= 

157 

4 

157 

889 

VSQ 

00,3245 

VMEASCHK 

33,3261 

889 

5 

886 

893 

VSQSU8 

00,3317 

VMODE 

6542 

1017 

2 

1039 

1075 

VSSL 

00,2145 

VMOON 

E5, 1722 

= 

128 

8 

128 

984 

V SSR 

00, 2127 

VN 

1225 

108 

10 

206 

12  18 

VSTILBAD 

25,3507 

VNCON 

43,3127 

303 

l 

302 

V STORE 

6464 

VNDSPCCN 

40,3345 

458 

1 

458 

VSU 

6770 

VNLDRCDU 

43,2266 

282 

l 

282 

VSUHC 

E3, 1756 

VNLODCDU 

43,2233 

281 

2 

281 

293 

V SUN 

E5, 1 714 

VNLODDT 

42,2034 

287 

1 

28  7 

VSURFACE 

E7, 1701 

VNLODGYR 

43,2373 

285 

1 

285 

VTARGET 

E5 , 1702 

VNPL ANV 

07,2676 

960 

1 

959 

VTARGTAG 

E5, 1 701 

VNPOOH 

35, 3622 

6 36 

12 

620 

666 

VTIG 

F 7, 1647 

VN061  l 

35,2065 

627 

1 

628 

VTPRIME 

E7,  1565 

VN064  1 

37,2473 

393 

1 

385 

VUPDAT 

33,3354 

VN0655 

35,2120 

628 

1 

62  7 

VUPOATEO 

33,3432 

VN  l 

E 7 , 1552 

= 

154 

7 

154 

1221 

VV/SC 

7650 

VN 164  5 

35,3516 

683 

6 

621 

656 

WARM  I N 

E 3 , 1 773 
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H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

= 

157 

3 

157 

V V EC 

E5, 1743 

= 

130 

15 

130 

598 

1 

598 

VVECTX 

E 7 , 1 720 

= 

157 

8 

158 

599 

1 

599 

VVECTY 

E 7 , 1 722 

= 

158 

9 

158 

599 

1 

599 

VVECTZ 

E 7 , 1 724 

= 

159 

8 

158 

= 

120 

10 

120 

1268 

VVXSC 

7425 

1038 

= 

119 

3 

1268 

1274 

VX8EAMNR 

33,2024 

42 

203 

l 

202 

VX  INH 

0250 

= 

85 

2 

890 

147 

6 

147 

643 

VXINHRIT 

4731 

= 

85 

1 

890 

147 

5 

147 

653 

VXM 

7360 

1036 

l 

1009 

147 

8 

644 

700 

VXM/MXV 

7363 

1037 

l 

1036 

= 

150 

2 

666 

676 

VXRCM 

E7, 1703 

= 

150 

3 

150 

= 

937 

VXSC 

7422 

1 038 

I 

1009 

1019 

VXSCAL 

33,2070 

43 

= 

147 

2 

670 

673 

VXV 

7501 

1040 

2 

1009 

1039 

1 

1009 

VY8EAMNB 

33,2016 

42 

= 

135 

3 

1446 

VYSCAL 

33,2066 

43 

= 

115 

11 

115 

1238 

V Z BE  A MNP. 

33,2010 

42 

l 

989 

116 

2 

842 

981 

VZSCAL 

33,2064 

43 

1 

889 

116 

VO 

0006 

= 

937 

1052 

1 

1052 

VOON25 

6010 

= 

221 

1038 

3 

1048 

1070 

V00N34 

4233 

= 

221 

1030 

6 

1038 

1039 

VO  IN l 4 

32,2164 

221 

221 

1 

220 

V01N25 

10,3504 

l 369 

2 

1358 

= 

146 

10 

213 

893 

VOIN70 

14,3713 

954 

1 

952 

= 

126 

3 

890 

891 

V01N70* 

15,2606 

958 

l 

955 

1046 

4 

1048 

1084 

V01N7  l 

07,2352 

268 

1 

257 

1046 

1 

1046 

V04N06 

10,3510 

1369 

l 

1359 

1075 

1 

1011 

V04N12X 

43,2646 

291 

1 

289 

1076 

3 

1068 

1075 

V04N1272 

23,2037 

284 

1 

293 

1049 

3 

1048 

1054 

V04N46 

20,2112 

306 

1 

30  5 

1 C48 

1 

1052 

V05N00M1 

10,3523 

1 369 

l 

1363 

576 

1 

576 

V05N09 

4777 

1094 

6 

627 

1015 

V06N05 

24,2746 

523 

1 

52  1 

1024 

1 

100  9 

V06N07 

1 , 3505 

1369 

= 

117 

3 

509 

V0  6N1  1 

35,2415 

637 

1 

62  7 

= 

128 

7 

128 

984 

V06N1 3 

35,2416 

637 

1 

633 

= 

157 

7 

157 

902 

V06N16 

32,2166 

221 

2 

219 

= 

130 

4 

130 

1195 

V06N16N 

04,3'  h 

705 

1 

704 

= 

130 

5 

130 

1195 

V06N18 

26,2266 

491 

l 

488 

= 

148 

7 

148 

764 

V06N22 

5001 

1094 

4 

500 

= 

148 

4 

666 

693 

V06N33 

35,2032 

621 

1 

620 

890 

1 

390 

V06N33* 

24,2367 

515 

1 

508 

891 

V06N33A 

30,3014 

858 

1 

839 

1043 

VO  6N3 376 

13,2356 

713 

l 

711 

1 17 

1 

598 

V06N34* 

15,2325 

927 

2 

92  5 
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1198 

901 

902 
901 

893 

612 

1264 

1359 

1379 

972 

973 
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SYMBOL 

DEE 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

V06N37 

35,3633 

687 

3 

628 

66  5 

V16N358 

36, 3753 

753 

4 

731 

752 

V73UP0AT 

43,3735 

1385 

4 

275 

1385 

V06N42 

35,2033 

621 

1 

620 

V16N85C 

34,3570 

855 

1 

855 

V74 

43 ,3040 

= 

300 

V06N43 

24,3630 

660 

1 

660 

V 16N94 

34,3547 

854 

1 

854 

V82CALL 

22,3244 

716 

1 

295 

V06NA  3* 

34,3345 

788 

1 

73  7 

V 1683 

36,3754 

758 

1 

754 

V82CON 

43,2747 

295 

1 

29  5 

V06N4B 

01,2342 

308 

2 

307 

308 

V2 

0022 

= 

937 

V82EMBIT 

4743 

= 

80 

V06N49NB 

24,2747 

523 

1 

523 

V21N79 

07,2564 

273 

V82EMFLG 

0 166 

= 

80 

7 

718 

723 

V06N5  1 

42,3  776 

504 

1 

503 

V22N79 

07,2562 

272 

V82FL AGS 

E 4 , 1 530 

= 

120 

6 

120 

719 

V06N55 

35,3634 

687 

• 2 

62  8 

685 

V 3 

0030 

= 

937 

V82G0FF 

22,3251 

716 

1 

716 

V06N  5 8 

35, 3635 

687 

1 

6 66 

V34TUN49 

24,2671 

522 

1 

523 

V82G0FF1 

22,3323 

717 

l 

716 

V06N  5 9 

35, 3636 

687 

V 3 7 

C4, 2054 

238 

2 

310 

462 

V82GOFLP 

22,3271 

716 

1 

71  7 

V06N6C 

31, 3772 

330 

l 

. 812 

V37BAO 

04,2107 

238 

1 

243 

V82GON 

22  ,3467 

720 

1 

716 

V06N6  1 • 

36,3145 

744 

1 

740 

V37FLAG 

0162 

= 

80 

1 

868 

V82GON1 

22,3505 

720 

2 

720 

721 

V06N63 

31, 377C 

830 

2 

81  1 

812 

V37FLBIT 

4737 

= 

80 

4 

239 

13  80 

V82GON2 

22,3540 

720 

1 

720 

V06N64 

31,3771 

830 

2 

812 

V37KLEAN 

05,2654 

225 

2 

241 

1380 

V82GON3 

22,3543 

721 

1 

721 

V06N75 

35,2417 

637 

2 

629 

634 

V37N0N0 

04,2360 

243 

1 

239 

V82PERF 

43,2741 

295 

l 

276 

V06N  76 

30,3013 

858 

1 

840 

V37N99 

04,2053 

236 

1 

236 

V82REDSP 

22,3477 

720 

1 

720 

V06N79 

15.26C7 

958 

1 

957 

V37QCAD 

04, 2422 

244 

1 

242 

V82ST ALL 

22,3302 

716 

1 

717 

V06N79* 

07, 2563 

273 

2 

272 

V37RE  T 

04,2144 

239 

1 

368 

V83CALL 

37,3113 

706 

1 

706 

V06NB  1 

35,3637 

687 

2 

620 

681 

V37XEQ 

04,2366 

243 

1 

244 

V83PERF 

43,2751 

295 

1 

276 

V06N84 

13,2354 

7 13 

1 

71  1 

V37XEQC 

04,2415 

244 

V89CALL 

26,2024 

351 

l 

296 

V06N87 

14,3714 

954 

l 

953 

V 4 IK 

14, 3541 

949 

l 

94  7 

V89CALL1 

26,2074 

352 

1 

352 

V06N8  7* 

07,2353 

268 

1 

257 

V43K 

43,2740 

294 

1 

293 

V89PERF 

43,2757 

296 

l 

276 

V06N89* 

14,2514 

930 

1 

930 

V47TXACT 

43,2403 

2 86 

1 

275 

V89RECI 

26,2040 

351 

1 

352 

V06N9CN 

04,3013 

705 

1 

705 

V50N00 

10,3506 

1369 

l 

1364 

V90PERF 

43,2766 

296 

1 

276 

V06N93 

14, 3263 

942 

1 

942 

V50N00A 

32,2165 

221 

V97N00 

10,3547 

1370 

1 

1364 

V06N94 

30, 3012 

858 

1 

85  1 

V50N16 

32,2167 

221 

1 

220 

V99RFCYC 

36,2776 

= 

740 

I 

727 

V06N99 

31,2143 

616 

1 

614 

V50N25 

C7, 2351 

268 

1 

267 

V06N99DS 

31,2024 

614 

1 

614 

V50N25X 

43, 2647 

291 

l 

289 

W 

E5, 1400 

125 

34 

125 

1240 

V06N9933 

31,2051 

614 

1 

614 

V50N48 

01,2342 

= 

308 

1 

308 

W.  I NO 

1256 

= 

1 1 1 

3 

604 

V 069  7 

01,2341 

308 

1 

30  7 

V50N72 

24,3217 

527 

1 

527 

WAITABTT 

36,2562 

735 

5 

726 

728 

VI 

0014 

= 937 

V50PASTE 

10,3223 

1364 

1 

1364 

WAITADR 

0063 

= 

97 

3 

1117 

1121 

VIS 

E 7 , 1600 

= 154 

14 

1 55 

891 

V59GP63 

25,3577 

5 80 

1 

278 

WA I TRANK 

0062 

= 

97 

1 

1 120 

V1ST02S 

10,3630 

1394 

4 

3 77 

1251 

V6N34 

24,3631 

660 

1 

658 

WAITBR 

5222 

1117 

2 

1117 

1127 

VIGN2C 

14,3233 

941 

l 

941 

V6N99PR0 

31 , 2032 

614 

1 

614 

WA I TE  X IT 

0061 

= 

97 

7 

1117 

1374 

V16N40 

36,3752 

758 

1 

749 

V 67 

43,3216 

310 

l 

275 

WAITL 1ST 

5205 

1117 

39 

174 

1321 

V 16N44 

22, 3321 

717 

2 

717 

720 

V67CALL 

31,2007 

614 

l 

310 

WAITMASK 

10,2772 

1360 

1 

1360 

V16N',5 

35,3640 

687 

1 

683 

V67CLRF 

31,2110 

615 

1 

615 

WAITPOOH 

0 1,3525 

1130 

l 

1 120 

V 16N5  4 

40,3760 

706 

1 

706 

V67FLAG 

0160 

= 

79 

3 

614 

615 

WA ITTEMP 

0064 

= 

97 

3 

1 125 

V16N5420 

24,2373 

515 

l 

512 

V67FLBIT 

4735 

= 

79 

WAIT2 

01,3234 

1 120 

2 

1117 

V16N56 

41,2017 

311 

1 

311 

V67SURF 

31, 2102 

6 15 

1 

615 

WAKECAD 

00,3774 

1 375 

1 

1374 

V16N66 

43,2644 

291 

1 

290 

V67WW 

31,2120 

615 

1 

614 

WAKEC ADR 

10,3516 

1369 

3 

1360 

1361 

V 16N6  7 

43,2645 

291 

1 

290 

V67XXX 

30,2042 

616 

1 

616 

WAKFPLAY 

10,3036 

1361 

1 

1366 

V 16N72 

43,2642 

291 

l 

290 

V70UPDAT 

43,3727 

1385 

1 

275 

WAKER 

00,3766 

13  74 

l 

1375 

V16N78 

43,2643 

291 

1 

290 

V71UPDAT 

43, 3731 

1385 

1 

275 

WAKES  TAL 

13,3520 

1217 

2 

1216 

1217 

V 1 

24,3336 

532 

1 

530 

V72UPDAT 

43,3733 

1385 

1 

2 75 

WAKETEST 

01,3050 

1109 

l 

1109 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

WANG  I 

^E5, 1436 

= 

132 

1 

386 

WRENDPOS 

E4 , 1400 

l 18 

3 

122 

615 

xmkcntr' 

E 7 , 1 762 

= 

151 

13 

265 

274 

SilANGp-^ 

E 5 , 1434 

= 

1 32 

1 

386 

WRENOVEL 

£4,1401 

1 18 

2 

604 

615 

XMKRUPT 

07,2425 

270 

2 

269 

WANG  T 

E 5 , 1440 

= 

132 

1 

132 

WR  ITEP 

5750 

1402 

6 

1401 

1453 

XNB 

E 5, 1664 

= 

127 

12 

385 

1394 

WANTAPS 

36,2324 

731 

l 

727 

WRITEU 

■ 5754 

1402 

1 

1453 

XNBADR 

37,2476 

393 

l 

385 

WBANK 

26,3330 

605 

l 

604 

WRITEV 

5 76  5 

1402 

1 

1453 

XN8EC ADR 

10,2035 

1262 

1 

1262 

WCALC 

22,2  (46 

376 

WRTOESIR 

15,3124 

969 

1 

969 

XNBPI P 

E4.1536 

= 

1 19 

12 

119 

910 

wCENTRAL 

E6, 1742 

= 

137 

2 

14  71 

1472 

WSHAFT 

E4, 1402 

1 18 

2 

605 

615 

XNBPI PAD 

33,2343 

867 

1 

865 

WCHPHASE 

1346 

l 1 1 

L3 

734 

808 

WSIZE 

26,3436 

607 

l 

604 

XORFL BIT 

4734 

= 

86 

1 

877 

WCHPHOLD 

E7, 1621 

= 

156 

8 

156 

811 

WSTOR 

33,3411 

891 

3 

891 

XORFLG 

0253 

= 

86 

1 

877 

WDAGA IN. 

4 1, 3443 

458 

1 

458 

W SURF  POS 

E4 , 1406 

118 

2 

604 

615 

XO V INF  LG 

0311 

= 

89 

6 

236 

877 

WDCNT 

0137 

= 

99 

4 

456 

458 

WSURFVEL 

E4 , 1407 

1 18 

2 

604 

615 

XOVINHIB 

4734 

= 

89 

2 

90  7 

1428 

WORE  T 

0115 

= 

98 

8 

456 

459 

WTABORT 

01,3366 

1123 

l 

1121 

XPLANE 

E 7 , 1524 

= 

151 

4 

151 

266 

WEARTH 

26,2020 

55 

1 

1144 

WTLST2 

01, 3377 

1125 

8 

1122 

1123 

XPRFV 

E3, 1552 

= 

1 15 

2 

l 174 

1177 

WEIGHT/G 

1243 

= 

1 08 

6 

.761 

7 69 

WTLST4 

01 , 3263 

1121 

l 

1 125 

XRANGE 

F7, 1642 

= 

160 

5 

160 

840 

WHATALM 

31,2412 

795 

1 

805 

WTLST5 

01,3313 

1122 

1 

1 120 

XR  EG 

1002 

104 

10 

317 

443 

WHAT D ISP 

31,2406 

795 

1 

8 1 1 

WTLTCADR 

4343 

= 

1305 

3 

1301 

1304 

XREGLP 

1005 

104 

3 

413 

443 

WHATEX  IT 

31,2404 

795 

1 

808 

WTRUN 

E4 , 1403 

1 18 

2 

60  5 

615 

XROT 

26,2400 

498 

1 

49  8 

WHATGUID 

31,2376 

794 

1 

804 

WVELSTOR 

26, 3312 

604 

l 

604 

XSCREF 

E 7 , 1606 

= 

155 

3 

764 

WHATMARK 

E7.1550 

= 

151 

8 

151 

272 

WWBI AS 

E4, 1575 

= 

120 

11 

330 

616 

XSM 

E 5, 1642 

= 

127 

24 

127 

1250 

WHATOUT 

31,2335 

792 

WWPOS 

E4, 1571 

= 

120 

16 

120 

616 

XSMADR 

37,2477 

393 

WHCHPEAD 

1353 

1 12 

6 

112 

601 

WWVEL 

E4 , 1573 

= 

120 

10 

120 

6 16 

X S MD 

E7, 1606 

= 

155 

16 

1 

981 

WHERETO 

31,2210 

790 

1 

790 

XSQCI XI) 

0034 

= 

1 199 

5 

1 176 

1182 

WHICH 

E7 , 1455 

145 

30 

253 

866 

X 

0024 

= 

1 199 

22 

1 173 

11  88 

X STORE 

01,2352 

1085 

3 

1035 

WHICHADR 

32,3653 

838 

1 

834 

X AD 

01,2404 

1086 

1 

1010 

XSU 

01  ,2415 

1086 

1 

1010 

WHICHRAD 

25,3203 

57  1 

1 

571 

X AD2 

01, 2407 

1086 

2 

1086 

XTRANS 

17,3112 

1453 

3 

1443 

1451 

WHICHWAY 

15,2  120 

262 

2 

262 

XCHNYLOC 

10, 3243 

1365 

1 

1361 

XUNIT 

12,2004 

1099 

q 

38 

1232 

WHIMPER 

5636 

1379 

4 

869 

1381 

XCHQADO 

10, 3027 

1361 

1 

1361 

XXXALT 

E7, 1670 

149 

3 

698 

WHOCARES 

E 7 , 1 4 7 1 

= 

1 46 

5 

235 

1358 

XCHSLEEP 

10,2776 

1360 

1 

1361 

XYMAR  K 

E 7,  1551 

- 

151 

26 

151 

955 

WHOLECON 

42,3545 

450 

3 

44  9 

XCHTOEND 

10,3242 

1365 

3 

1356 

1361 

XI 

0046 

= 

95 

69 

266 

1397 

WI0E06 

20,2  152 

1405 

1 

1404 

XCHX 

01 , 2376 

1086 

1 

1010 

X2 

0047 

= 

95 

29 

502 

1269 

WITCHCNE 

10,3225 

1364 

3 

1356 

1361 

XCOMMON 

12,3066 

1188 

1 

1 190 

X 789 

E 3 , 1 700 

l 16 

6 

208 

1155 

WIXA 

1315 

1 10 

6 

l 10 

1153 

XCOUNT 

1236 

= 

108 

3 

265 

WIXB 

1316 

1 10 

3 

1151 

1153 

XDC 

E5, 1664 

= 

127 

12 

127 

1253 

Y 

E4, 1725 

= 

124 

6 

124 

856 

WLINIT 

26,3250 

604 

3 

596 

605 

XDELVBIT 

4735 

= 

71 

YAW 

E 4 , 1753 

= 

124 

3 

124 

841 

WLOuP 

12,3013 

1187 

1 

1187 

XDELVFLG 

0045 

= 

71 

6 

620 

766 

YAWANG 

£4,1573 

= 

122 

2 

50  2 

503 

WLSRFPOS 

26,3273 

604 

1 

604 

XDIFF 

12, 2163 

1174 

YAWDUN 

30,2222 

841 

1 

84  1 

WL  SR  F V EL 

26, 3310 

604 

1 

6 04 

XCSPB  I T 

4744 

= 

75 

l 

135  l 

YCO 

E7, 1632 

= 

1 60 

6 

160 

849 

WM 

£4,1715 

= 

124 

7 

124 

885 

XDSPFLAG 

0112 

= 

75 

2 

219 

258 

YCOMP 

27,3315 

B56 

3 

835 

846 

WMAT  END 

11,3676 

1241 

1 

1239 

X I 

0030 

= 

1 199 

7 

l 174 

1193 

YCONS 

E4 , 1737 

= 

124 

3 

124 

850 

WMATRXNG 

43.3C72 

302 

l 

276 

XKEP 

F3,  1552 

= 

115 

3 

115 

1238 

YCOUNT 

1237 

= 

1 08 

1 

265 

WORK T IME 

16,2630 

1425 

l 

1425 

XKEPCSM 

E3,  1624 

1 16 

YDC 

E5, 1672 

= 

127 

5 

127 

1253 

W3ZERO 

05,3614 

991 

2 

990 

995 

XKEPLEM 

E3 , 1676 

1 16 

YDOT 

E4, 1701 

= 

124 

4 

124 

849 

WPLAT  I 

£5,1560 

= 

133 

XKEPNEW 

F4 , 1520 

= 

1 19 

3 

119 

1226 

YDOTD 

E4, 1665 

= 

123 

3 

123 

847 

WPLATO 

E 5, 1464 

= 

132 

XMAX 

0012 

= 

1 199 

9 

1 173 

1 l 76 

'YDOTL  EM 

E4, 1 573 

= 

120 

3 

120 

704 

W POST ORE 

26,3275 

604 

1 

604 

XMIN 

0014 

= 

1199 

6 

1173 

1176 

YL  EM 

F 4 , 1 5 7 1 

120 

9 

119 

704 
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SYMBOL 

DEE 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

YL  IM 

E 5 , 156  1 

= 

126 

2 

127 

835 

Z I XA 

1317 

no 

4 

1 151 

1 153 

1 . 5SP0T 

01,2027 

250 

YMKLNTR 

E 7 , 1763 

= 

151 

4 

265 

266 

Z IXB 

1320 

1 10 

4 

1151 

1153 

1. 75SEC 

37,3536 

863 

l 

861 

YMKRUPT 

0 7 , 2 A 2 7 

270 

2 

269 

ZKB 

E5 , 1700 

= 

127 

6 

386 

1250 

1-CSTH 

E 5 , 1 733 

= 

130 

4 

130 

1192 

YNB 

E5, 167? 

= 

127 

6 

306 

1250 

ZNBPIP 

EA, 1552 

= 

1 19 

1 

910 

1-30KFT 

33,3061 

385 

1 

877 

YNBP  I P 

E A , 15AA 

= 

119 

3 

119 

802 

ZNBSAV 

Em, 1635 

= 

121 

4 

215 

979 

1/.03 

4724 

= 

l 504 

3 

149  6 

1498 

YNBSA V 

EA, 1627 

= 

121 

5 

121 

979 

Z ONE  l 

17, 3615 

1464 

2 

1461 

1464 

1 / ACC  FIX 

06,3273 

203 

1 

202 

YUK 

32,3530 

835 

1 

835 

Z0NE2 

17,3606 

1464 

l/ACC JOB 

21,3603 

14  84 

2 

203 

1404 

YPLANt 

E 7 , 1532 

= 

151 

3 

259 

266 

Z0NE2.3 

17,3602 

1464 

1 

1461 

l/ACCONT 

20,3207 

1495 

2 

1487 

1489 

YRATE 

E4.1743 

= 

12A 

5 

1 2 A 

8 50 

Z0NE3 

17,3610 

1464 

1 

1464 

1 / ACC  RET 

20,3647 

1501 

2 

1489 

1501 

YREG  . 

1 0C3 

10A 

3 

AAO 

A 49 

ZONE  3L I M 

E6 , 1555 

= 

139 

1 

1464 

1/ACCS 

20,2463 

1484 

2 

86  7 

1484 

YREGL P 

10C6 

10  A 

2 

IDA 

449 

ZONE  3M AX 

20, 3740 

1504 

1 

1495 

1/ACCSET 

21 ,3576 

1484 

1 

234 

YSCREF 

E 7 , 161 A 

= 

155 

1 

764 

Z0NE4 

17,3427 

1461 

1/ ACO AST 

E 6 , 1572 

= 

139 

1 

1461 

YSM 

E5 , 1650 

= 

127 

A 

127 

1250 

Z0NE4.5 

17,3416 

1460 

1/ACOSTP 

E6 , l 552 

= 

1503 

2 

1496 

YSMD 

E 7 , 1 6 l A 

= 

155 

6 

155 

981 

ZONE  5 

17,3461 

1461 

1 

1461 

1/acdstt 

0127 

= 

1503 

5 

1497 

1502 

YUNI  T 

12,2002 

1099 

2 

33 

966 

Z0N1, 2,3 

17,3575 

1463 

1 

1460 

1/ANET 

0160 

= 

1 504 

7 

1498 

1502 

Y V 

1125 

= 

107 

11 

107 

1241 

ZOOM 

35,3670 

736 

4 

251 

737 

1/ANET- 

20,3670 

1502 

1 

1499 

Z OOMB  I T 

4735 

= 

76 

1 

796 

1/ANETP 

E 6 , 1 550 

= 

1503 

5 

1433 

1496 

Z 

0005 

= 

9A 

2A 

316 

1379 

ZOOMFLAG 

0 122 

= 

76 

2 

732 

736 

1/AMETl 

E6, 1566 

= 

139 

13 

139 

1501 

ZAPT  J 

21,3627 

1507 

1 

1507 

ZOOM  TIME 

E7, 1422 

. 144 

5 

251 

809 

1/ANET2 

E6, 1567 

= 

139 

6 

1447 

1493 

ZATTEROR 

20,2  15A 

1A05 

12 

297 

1445 

Z PR  I ME 

0026 

= 

129 

7 

1246 

1247 

1 /ATE  Ml 

0123 

= 

1503 

22 

1499 

1503 

ZAXIS1 

E 5, 1605 

= 

127 

5 

846 

853 

ZREG 

1004 

104 

3 

420 

449 

1 / ATE  M2 

0124 

= 

1503 

4 

1498 

1499 

ZDC 

E5, 1 7C0 

= 

127 

5 

127 

1253 

ZREGLP 

1007 

104 

2 

104 

449 

l/DVO 

E7, 1570 

= 

160 

2 

844 

ZDOT 

EA, 1703 

= 

l 2 A 

3 

124 

846 

ZRORCBI T 

16,3145 

1431 

l 

142  8 

L/DV1 

E 7, 16  34 

= 

160 

5 

160 

844 

ZDOTC 

EA, 1667 

= 

123 

6 

124 

856 

ZRUPT 

0015 

= 

94 

2 

1426 

1457 

1/DV2 

E 7 , 1636 

= 

160 

5 

160 

844 

ZOOTDCMP 

3A.3620 

855 

l 

8 46 

ZSCREF 

E7 , 1622 

= 

155 

l 

764 

1/DV3 

F7, 1640 

= 

160 

5 

160 

844 

ZERL I NA 

E 7 , l 6 A6 

= 

156 

5 

156 

822 

ZSM 

E5 , 1656 

= 

127 

2 

127 

1250 

l/GYRO 

06,3557 

345 

3 

340 

347 

ZERO 

A7A6 

1093 

323 

167 

1508 

ZSMD 

E 7 , 1622 

= 

155 

5 

155 

981 

1/MU 

0016 

= 

1199 

4 

1172 

1191 

ZERO/SP 

2 3,2  50A 

= 

613 

1 

585 

ZSPCR 

15, 2552 

957 

1 

956 

1/NETMIN 

20,3676 

1 502 

2 

1499 

1502 

ZEROANS 

00,3376 

1077 

2 

1077 

ZUNI  T 

12,2000 

1099 

4 

38 

1235 

1/PIPA 

06,3333 

338 

3 

397 

964 

ZERODP 

12,2006 

= 

1099 

ZV 

1133 

= 

107 

8 

1236 

1241 

l/PIP AOT 

1074 

106 

10 

175 

963 

ZEROt  N BL 

16,3176 

1431 

2 

1431 

1432 

Z1TEM 

0131 

= 

1503 

4 

1499 

1500 

l/PIP A1 

06,3342 

338 

1 

338 

ZEROHIGH 

21, 3A0 A 

1 A79 

1 

1479 

Z 123 

23,2526 

1147 

l 

1 148 

l/ROOTMU 

0022 

= 

1199 

5 

l 172 

1182 

ZERO ICDU 

5A61 

1306 

A 

1 75 

13C8 

Z 123C0MP 

17,3561 

1463 

3 

1461 

1463 

1 /RTMU 

27,2030 

48 

ZEROING 

37,2367 

391 

2 

385 

395 

Z3TEM 

0152 

= 

1503 

1 

149  5 

1 /RTMUF 

22,2002 

46 

2 

717 

720 

ZERO  I KG  1 

37,2371 

391 

1 

391 

Z5TEM 

0132 

= 

1503 

4 

1498 

1499 

1/RTMUM 

22,2000 

46 

1 

720 

ZEROLOUP 

2 1 , 3 5 A 6 

1A81 

2 

1481 

1/S0R3 

07,2677 

960 

1 

959 

ZEROM ID 

31, 367  l 

827 

3 

806 

0.35356 

20,3056 

1492 

2 

1486 

1487 

1 /WLDOP 

12,3151 

l 189 

l 

l 189 

ZERONEX 

E 5 , 1571 

= 

133 

1 1 

385 

395 

0E8ANK 

43,3344 

1285 

1/10 

01,2345 

308 

1 

306 

ZEROO 

2 3,2  50A 

= 

1155 

003  IAOCT 

5770 

1402 

4 

1402 

1442 

1/10S 

4744 

= 

1 444 

ZERODT 

21.3A01 

1 A 79 

2 

1479 

C6SEC 

23,2317 

536 

l 

535 

1/10SFC 

4744 

= 

1430 

ZEROPLUS 

20,2776 

1490 

1 

1490 

074000CT 

16,3614 

1439 

1 

1427 

1/20FG 

31,3765 

830 

l 

804 

ZEROT J 

1 7,2620 

1AA7 

1/40 

16,3621 

1439 

4 

1421 

1423 

ZEROVEC 

12,2006 

1099 

13 

38 

1 2 A A 

1.2SP0T 

Cl, 2016 

250 

4 

250 

254 

1/6TH 

14,3712 

9 54 

1 

952 

ZEROVECS 

23,2  50A 

1098 

19 

38 

1155 

1 . 3SP0T 

01,2024 

250 

i 

250 

IBITDP 

26,2421 

499 

ZI 

E 5 , 1 6 A 2 

= 

131 

25 

131 

1156 

1. 5SECS 

26,3714 

613 

i 

609 

1 B 1 

12,2004 

= 

1146 

1 

1136 
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SYMBOL 

OFF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

IDEC7C 

2 1,2 146 

832 

1 

832 

160CT 

30,3563 

917 

l 

917 

20  J 

33,2107 

47 

1 

882 

1 DEC  7 1 

21,2147 

832 

l 

831 

17TU20 

43,3646 

12  89 

20MRUPT 

7752 

= 

169 

3 

167 

170 

1DFGDR 

U5 , 3 506 

834 

1 

833 

180DEGS 

31,3764 

830 

l 

804 

20SEC 

32,2172 

221 

1 

220 

1DPB2 

34,2067 

638 

2 

639 

641 

180MESS 

27,3125 

7 74 

1 

774 

2C0MS 

16,3617 

1 439 

2 

1425 

1DPB28 

34,2071 

638 

2 

639 

644 

1 80SETUP 

36,3634 

756 

1 

756 

201R04 

43,2650 

291 

l 

289 

l JACC 

E 6 , 1530 

138 

10 

138 

1495 

21/22REG 

0115 

= 

93 

3 

410 

485 

1 JACCCCN 

20,3 170 

1493 

1 

1493 

2.0SPT 

04, 2 154 

239 

25/32 

7737 

= 

1439 

l 

1433 

l JACC  C 

E 6 , 1531 

= 

138 

6 

1469 

1493 

2. 11  SPOT 

01,2043 

251 

25KFT 

33,2117 

858 

l 

852 

1 JACCR 

E6,  1532 

= 

138 

6 

1469 

1493 

2.  11SPT 

04,2155 

239 

250DFC 

24,2362 

515 

2 

514 

1 JACCU 

E6, 1533 

= 

138 

12 

1487 

1499 

2. 13SP0T 

01,2046 

251 

250MS+1 

4757 

= 

291 

1 

290 

10VSQRT2 

40,3737 

504 

2 

502 

2. 15SP0T 

01,2051 

251 

27T030 

43,3654 

12  89 

1REV 

12,2073 

1172 

1 

1172 

2. 1 7 SPOT 

01,2054 

251 

1SFC 

4 770 

1094 

16 

283 

949 

2.2SP0T 

01,2016 

= 

2 50 

1 

250 

3.2SP0T 

01,2016 

= 

251 

l 

250 

1SEC+  1 

43,2651 

291 

2 

288 

290 

2.21  SPOT 

01,2057 

251 

3.3SP0T 

01 ,2062 

251 

1 

250 

1 SEC  X 

4770 

= 

393 

2. 3SP0T 

01, 2032 

250 

1 

250 

3.5SEC 

27,2677 

770 

1 

769 

l SEC  XT 

F5, 1572 

= 

133 

2 

395 

396 

2.5SPOT 

01,2035 

251 

3 . 5SP0T 

01,2065 

251 

1SEC2D 

27,2675 

7 70 

l 

769 

2. 7SP0T 

01, 2040 

251 

3/32 

12,3767 

1244 

1 

1232 

IS  TAR 

15,3066 

968 

2 

968 

980 

2 . 7SP  T 

04,2156 

239 

l 

239 

3/4 

11,3772 

1244 

6 

263 

1243 

1STIJR  2ND 

1C, 3203 

1364 

l 

1363 

2/3 

04, 3253 

= 

1244 

1 

1232 

3/4DP 

22,3657 

8 30 

2 

804 

806 

ISTOTWDS 

16,2262 

1420 

3. 

1419 

1420 

2 BLANK 

40,2570 

417 

6 

414 

4 73 

3/  5 

12,3755 

1244 

1 

1232 

1STU2S 

10,3624 

1394 

3 

385 

957 

2CZER0 

12,2006 

= 

1135 

3/64 

12,3763 

1244 

1 

1232 

1T02ETCQ 

30,3636 

9 19 

2 

919 

2 E BANK 

43,3360 

1285 

l 

1286 

3/80P 

22,3655 

330 

1 

804 

1T02SUB 

10,3654 

1395 

6 

1394 

1395 

2 INTOUT 

40,2761 

434 

1 

430 

3AXISRIT 

4737 

= 

76 

2 

438 

489 

10,11 

21,2076 

831 

1 

831 

2 J 

33,211  1 

47 

1 

882 

3AXISFLG 

0 124 

= 

76 

7 

240 

952 

10SECS 

32,3643 

838 

1 

852 

2J3RE/J2 

13,2016 

48 

2 

1233 

3CSFCS 

04,3166 

1222 

1 

1222 

100CS 

33,3052 

= 

858 

2 

850 

2 K 

4732 

= 

1097 

3 

1004 

1 109 

3J22R2MU 

13,2024 

48 

ID OMR  LP I 

7 7 50 

= 

165 

2K  + 3 

4435 

4 79 

l 

479 

3SECONOS 

26,3711 

6 13 

l 

534 

100PCTT0 

36,2014 

39 

1 

835 

2LATF466 

E 5 , 1477 

= 

126 

2 

126 

814 

3 SECS 

4773 

1 094 

1 

790 

1 1DSP  IN 

40,3433 

460 

4 

415 

457 

2NDRETRN 

22,3117 

378 

2 

378 

30DEG 

24,3437 

593 

1 

597 

113ALRM 

07,2422 

269 

2PHSCHNG 

5331 

1295 

1 1 

507 

863 

30DEGCHK 

24,3421 

592 

1 2DD 

23,3231 

1155 

1 

1153 

2PI+3 

27, 3217 

7 76 

2 

774 

30KCHK 

33,2421 

877 

120MRUPT 

06,204  1 

167 

1 

1 70 

2PI/8 

26,3437 

607 

2 

600 

602 

30RDMSK 

06,2761 

191 

I 

171 

120MS 

5745 

= 

191 

2PISC 

C4 , 3055 

1183 

2 

1173 

1190 

33DEC 

4745 

471 

l 

471 

13-1  1 , 1 

41,3774 

484 

1 

48  3 

2RNDEND 

40, 3222 

448 

33RDMSK 

5017 

= 

191 

2 

177 

13,14,  15 

7 76  1 

1096 

5 

294 

1417 

2 ROUND 

40,3212 

448 

3 

44  6 

447 

34DEC 

4233 

470 

2 

221 

470 

13,7,2 

4606 

541 

2 

196 

540 

2 SEC ( 17) 

30,3001 

858 

l 

858 

35DFG 

15,3017 

965 

l 

961 

130DEG 

35,3655 

637 

l 

664 

2 SEC  I 18) 

33,3052 

885 

2 

846 

858 

360— C DU 

40,2614 

431 

2 

431 

446 

14,11,9 

06, 2 171 

1 70 

1 

167 

2 SEC ( 28) 

33,3054 

885 

360— C DUE 

40,2623 

431 

l 

431 

14MS 

1 7,3  136 

= 

1444 

6 

1443 

2 SEC ( 9 ) 

30,3010 

858 

1 

844 

360-C0UO 

40,2612 

431 

l 

430 

1 406  AL  M 

31,3733 

828 

2 

795 

2 SECDELY 

00,3735 

13  74 

3 

282 

523 

360CHECK 

12,3122 

1 189 

2 

1187 

1 406  P CO 

31,3731 

828 

1 

795 

2 SEC  S 

4771 

1094 

6 

580 

1374 

360LAMB 

12,3473 

1 194 

1 

1 19  1 

15/16 

12,3771 

1244 

1 

1232 

2 STAR  S 

15,3064 

968 

1 

980 

360SW 

0206 

= 

82 

3 

1 187 

1189 

15ADRFRS 

01,2433 

1087 

7 

1085 

1089 

2 VEXHUST 

F7 , 1742 

= 

767 

360SWBIT 

4 744 

= 

82 

15B I T ADR 

6273 

1007 

1 

1013 

2VIST02S 

10, 3645 

1 395 

2 

335 

3990DEC 

37,2471 

393 

1 

388 

1500DEC 

24,2750 

523 

2 

515 

523 

20.5DEGS 

25,2563 

560 

l 

560 
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SYMBOL  DEF  H 


REFERENCES  SYMBOL 


DEF  H 


REFERENCES 


SYMBOL  OEF  H 


REFERENCES 


4.  USPOT 

01,2107 

252 

5/128 

04, 3251 

1244 

1 

1233 

4. 13  S POT 

01,2112 

252 

5/8 

13,3761 

1245 

6 

1209 

1234 

4. 15SP0T 

01,2115 

252 

50LANK 

40, 2525 

417 

6 

416 

472 

4. 1 7 S POT 

01,2  120 

252 

5 BLANK  1 

40,2546 

417 

4.2SP0T 

0L.2C70 

251 

l 

250 

5310 

01,2502 

1089 

4 . 21 S POT 

01,2123 

252 

50EGREES 

14,2616 

933 

2 

933 

969 

4 . 23  S POT 

01,2126 

252 

5DEGTEST 

15,3164 

969 

2 

969 

4.25SP0T 

01,2131 

252 

5FAILTAB 

06,3277 

= 

2 03 

2 

202 

203 

4 . 27  SPOT 

01,2134 

253 

5 SEC 

36,3751 

758 

2 

730 

732 

4.3SPCT 

01,2076 

252 

l . 

250 

5SECDP 

36,3750 

753 

1 

729 

4 . 31 S POT 

01,2137 

253 

5 SEC  S 

27,2701 

7 70 

2 

769 

4 . 33  S POT 

01,2  142 

253 

50SECS 

32,2566 

591 

1 

589 

4. 35  SPOT 

01,2145 

253 

500DEC 

24,2370 

515 

1 

512 

4.37SP0T 

.01,2150 

253 

504  A£ 

0022 

= 

1146 

3 

1144 

4.5SP0T 

01,2  101 

252 

5C4F 

0006 

= 

1 146 

5 

1142 

1143 

4. 7SP0T 

01,2104 

252 

504LM 

E4,  1412 

1 18 

3 

1 138 

1235 

4.9SEC 

36,3144 

744 

1 

730 

504LPL 

0016 

= 

1146 

4 

1145 

4FMAXN0M 

31,2365 

793 

1 

789 

504RM 

04,2002 

47 

1 

1137 

4SEC  ( 17) 

30,2777 

858 

1 

848 

504RPR 

0000 

= 

1 146 

4 

1138 

1140 

4SECI 28) 

3 3 , 3 C 56 

885  ' 

1 

818 

5 117. 

33,2462 

878 

l 

377 

4SECS 

4 7 74 

1094 

3 

175 

792 

5L1CTR 

F 7 , 1622 

= 

156 

5 

156 

878 

40CYC 

4762  = 

1430 

1 

14  3 2 

5 26 AL  ARM 

24, 2104 

511 

1 

583 

40CYCL 

4762  = 

1444 

l 

1446 

526ALRM1 

24,2120 

511 

1 

512 

40FPS 

23,2472 

853 

1 

853 

54D0 

23,3227 

1 155 

1 

1151 

42DEG 

15, 3016 

964 

l 

961 

59 . 99  SEC 

42,3553 

450 

1 

449 

49FPS 

34,3367 

842 

1 

840 

59MIN 

42,3552 

450 

1 

449 

5.2SP0T 

01,2153 

253 

1 

250 

6.  USPOT 

0 L,  221  l 

254 

5.3SPCT 

01,2167 

253 

1 

250 

6.2SP0T 

01, 2016 

= 

2 54 

1 

250 

5.4SP0T 

01,2161 

253 

6.3SP0T 

01,2200 

254 

1 

250 

5.5DEGS 

4 553 

539 

2 

539 

560 

6.5SECS 

27,2707 

770 

1 

768 

5.5SP0T 

01,2172 

253 

6 . 5SPDT 

01,2203 

254 

5. 7SPCT 

01,2175 

254 

6 . 7SPC1T 

01,2206 

254 

6DD 

23,3230 

l 155 

1 

1153 

6FAILTAB 

06,3307 

= 203 

2 

202 

203 

6SEC 

27,2703 

770 

2 

769 

6SECI  18) 

30,3005 

858 

1 

844 

6SEC0NDS 

26,3713 

613 

I 

609 

6SECS 

25,3565 

580 

1 

579 

600EC 

05,3065 

229 

l 

224 

60MIN 

35,2426 

637 

6 

629 

634 

6 5 

60MS 

4767 

= 1444 

2 

1443 

60SCNDS 

24,2526 

519 

l 

519 

T 

600MS 

07,3766 

1328 

l 

1311 

— — ’ 

600SEC 

24,3626 

660 

l 

660 

( <Tt7\ 

600SECS 

13,2666 

1207 

2 

2 50 

1207 

63/64+1 

7747 

1096 

66DEC 

33,3063 

885 

7/12 

1 1,3774 

1244 

1 

1232 

70DEC 

32,3463 

834 

77DECML 

37,3075 

401 

1 

39  5 

79DI SP 

15,2556 

957 

l 

957 

8192AUG 

07,3566 

1321 

1 

1321 

82DEGS 

4554 

539 

l 

539  | 

89SECS 

27,2705 

770 

l 

770 

89TFST 

40,2141 

411 

2 

410 

9/  16 

12,3773 

1244 

1 

1232 

9,6,4 

05,3401 

2 34 

1 

227 

90MSC ALP 

17,2053 

578 

1 

57  7 

90  SEC  S 

06,3005 

191 

2 

174 

999.99NM 

24,2371 

515 

2 

511  512 

99999C0N 

32,3065 

785 

1 

782 

<D 

<3>  I OB' 
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SYMBOL 

DEF 

H 

PAGE 

SYMBUL 

DEF 

H 

PAGE 

SYMBOL 

DEF 

H 

PAGE 

SYMBOL 

DEF 

H 

PAGE 

+ A l 

1 1, 2364 

823 

ASENT3 

05,2000 

= 

30 

CHECKUP 

16,2042 

1409 

DFRNT 

40,3413 

459 

+ EL 

1 1,2376 

823 

ASENT4 

14,2000 

= 

32 

CHKBIT10 

17,2237 

1442 

DGCHECK 

25 , 3232 

572 

ASENT5 

30,2000 

= 

35 

CHKLIST 

05,3541 

990 

DIOFLAG 

0020 

= 

69 

-AZ 

11,2357 

823 

ASTNCLOK 

32,3016 

784 

CK I MUSE 

5246 

1 1 19 

OIMOBIT 

4744 

73 

-EL 

l 1,2371 

823 

ADTGMAN V 

26,2200 

489 

CL  1/NET+ 

20,3440 

1498 

DL101 

1336 

= 

206 

-LOKONFG 

23, 2C40 

284 

AUTOMODE 

0301 

= 

88 

CM00N8IT 

4731 

= 

81 

DL102 

002  5 

= 

206 

-MUD  T I 

33,2101 

46 

AUTRATE1 

4744 

= 

90 

CNGL 

22,2400 

369 

DL103 

E6 , 1516 

= 

206 

AUTRATE2 

4 74  3 

= 

90 

CNTRCHK 

43,3471 

1286 

DL104 

F6 , 1517 

= 

206 

? 

600  1 

= 

744 

AUTR1FLG 

0321 

= 

90 

COARF INE 

14,3347 

944 

DL  105 

E6 , 1520 

= 

?06 

AUTR2FLG 

0320 

= 

90 

COFMAXGO 

22,2176 

365 

0L106 

1356 

= 

206 

ABORT 

5636 

= 

1381 

AUXFLAG 

0147 

= 

78 

CQGAF  BIT 

4741 

= 

82 

DL  1 07 

133  l 

= 

206 

A8TTG8IT 

4736 

= 

83 

AVEMDBI T 

4744 

= 

83 

COMPMAT 

13,2250 

712 

DL  1 08 

1334 

= 

206 

ABVAL 

)(  , 3201 

1073 

AVERAGEG 

33,221  1 

865 

C0NTDES2 

26,3575 

610 

DL  1 09 

1335 

= 

207 

ACCOKFLG 

0317 

= 

90 

AVFLBIT 

4740 

= 

71 

CONTRLFL 

0243 

= 

85 

DL  110 

1336 

= 

207 

ACMOOBIT 

4 73C 

= 

71 

C0NV3 

42,3634 

502 

DL1  1 l- 

132  7 

= 

207 

ACOSARRT 

00,3723 

1084 

BAOROOT 

31  ,3650 

826 

CORFOUND 

01,2642 

1105 

DL  1 12 

1300 

= 

207 

ADDRESS 

6 124 

1002 

BDTOK 

27,2461 

766 

CSMDKFLG 

0305 

= 

89 

DL1  13 

032  l 

= 

207 

AORS+  1 

43,3(30 

1289 

8HI  l 

0 1 ,2456 

1088 

CS359+ 

35,2422 

637 

DL1I4 

E6 , 1422 

= 

207 

AFCCALC1 

31,3146 

807 

BIGAOS 

20,3317 

1496 

CULTBIT 

4736 

= 

73 

DL1  15 

F6  , 1423 

207 

AFCCALC2 

31,3156 

807 

B I N 3 

6266 

= 

581 

CYCLSHFT 

43,3500 

1287 

0L1 16 

E6 , 1635 

= 

207 

AFDUMP 

31,2151 

789 

BIT14+7 

26 ,2264 

490 

DL1  17 

E6 , 1636 

= 

207 

AGS8UFFE 

E 4 , 161  6 

= 

122 

BIT  4H 

3C.3007 

858 

DA  PDA  T A3 

01,2306 

307 

OLl  18 

0033 

= 

207 

AGSD I SPK 

32,2022 

219 

8 1 T 8 , 9 

17,3140 

1454 

DAPLRUPT 

E6 ,1753 

= 

141 

DL1 19 

0034 

= 

207 

AGSL 1ST 

05,2414 

= 

204 

BLANKCHK 

10,3152 

1363 

D8SELFLG 

0316 

= 

90 

DL  1 20 

003  5 

= 

207 

AGSUPCAT 

0001 

= 

247 

BNKCHK 

43,3721 

1290 

DBSL2FLG 

0315 

= 

90 

0L121 

F6, 1643 

= 

207 

ALCGKK 

37,2(27 

397 

• BNKOPTN 

43,3320 

1284 

DCDU 

E6 , 1634 

= 

140 

DL  1 22 

E6 , 1644 

= 

207 

ALGOR  T HM 

21,3073 

1471 

BRSPOTl 

31,2546 

799 

DEC-12 

12,2016 

1099 

Dl  123 

0375 

= 

207 

ALINEX 

26,2071 

351 

BR  SPOT  2 

31  ,2641 

801 

DEC— 6 

12,2015 

1099 

DL  1 24 

Oil  1 

= 

207 

ALKCG 

37, 2632 

397 

8RSP0T3 

31  ,3013 

804 

DEC27 

4755 

= 

1094 

DL  1 25 

E6 , 1422 

= 

207 

ALMNCAOR 

5730 

1331 

BRSP0T4 

31,3205 

807 

DEC29 

4756 

= 

1094 

DL  1 26 

F6 , 1423 

= 

207 

ALPHA  TRY 

21,3275 

1477 

BUSYMASK 

10,3535 

1370 

DEC51 

04,3256 

1329 

OL127 

E6, 1635 

= 

207 

ALRM526 

24,23(3 

515 

BUTTONS 

05,2705 

226 

DEGINSF2 

40,3050 

446 

DL  128 

E6,  1636 

= 

207 

ALRM527 

24, 3C64 

526 

812-1 

4347 

= 

4 76 

DEG60 

15,2614 

958 

DL  1 29 

0033 

= 

207 

ALTROUT 

21,2377 

898 

85TOB8 

01,2471 

1088 

DELRSPL 

22,3543 

= 

38 

OLl  30 

0034 

= 

207 

altrrcut 

21,2346 

898 

OELVTEST 

27,2252 

760 

0L13  1 

0035 

= 

207 

ALTSCALE 

0272 

= 

88 

CADR  MARK 

0372 

102 

DERCOF+1 

0153 

= 

100 

DL132 

F6 , 1425 

= 

207 

ALTSCBIT 

4734 

= 

88 

CALCTHET 

27,2255 

761 

DERCOF-L 

0151 

= 

100 

DL  133 

E6 , 1514 

= 

207 

ALTSTUFF 

21,2267 

897 

CALC2BIT 

4743 

= 

72 

DERCDF-2 

0150 

= 

100 

DL201 

E6 , 1516 

= 

209 

ANTENFLG 

0267 

= 

87 

CALC3BIT 

4742 

- 

72 

DERCOF-3 

0147 

= 

100 

DL  2 02 

E6 , 1517 

= 

209 

AORBSFLG 

0125 

= 

76 

CAL  SAM 

07,2654 

960 

DERCOF-4 

0146 

= 

100 

DL2  03 

F 6 , 1520 

= 

209 

AOSV 

E6 , 1543 

- 

138 

CDFLF/2 

0016 

= 

1265 

DERCOF-5 

0145 

= 

100 

DL204 

1331 

= 

209 

APSESBIT 

4740 

= 

81 

CORVE 

06,2012 

166 

DERCOF— 6 

0144 

= 

100 

DL205 

1334 

= 

209 

ASCSPOT 

32,3710 

871 

CDUINC 

10,3670 

1395 

DERCOF-7 

0143 

= 

100 

DL206 

1335 

= 

209 

ASECXT 

E5, 1573 

= 

133 

CHAN 

E5 ,1443 

= 

132 

DERCOF— 8 

014? 

= 

100 

DL207 

1336 

= 

209 

ASENT2 

07,2000 

= 

30 

CHAN76 

0076 

= 

95 

DEX2 

0144 

= 

100 

0L208 

0025 

= 

209 
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DEF 
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PAGE 

SYMBOL 

DEF 
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PAGE 

SYMBOL 
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PAGE 

SYMBOL 

DEF 

H 

PAGE 

DL  209 

1356 

= 

2 09 

DL  509 

E6 ,1635 

■ = 

215 

D60R9  BIT 

4743 

= 

73 

figtime 

35,2764 

671 

DL210 

0037 

= 

209 

DL510 

E6, 1636 

= 

215 

FINALBIT 

473  7 

= 

71 

DL  21  l 

0040 

= 

209 

DL  5 1 1 

0033 

= 

2 15 

E/BKC ALL 

04,2617 

382 

FINEK2 

43, 2363 

285 

DL212 

004  1 

= 

209 

DL512 

0034 

= 

215 

E/CALL 

04,2636 

383 

FIREQR 

17,2257 

1442 

OL21  3 

0113 

= 

209  • 

DL513 

0035 

= 

215 

E/JOBWAK 

04,2652 

384 

F IRSTTME 

27,3173 

775 

DL214 

1327 

= 

209 

DL5  14 

E6, 1425 

= 

215 

E/SWITCH 

04,2634 

382 

FIXCLPAS 

40,2371 

414 

D L 2 1 S 

1300 

= 

209 

DL515 

L 24 1 

= 

215 

EARTCNTR 

14,2531 

932 

FLAGOFF 

35,3512 

682 

DL216 

0113 

= 

209 

DL  5 16 

E 7 , 1460 

= 

215 

ENDALM 

6026 

461 

FLAGORGY 

32,2623 

781 

DL  2 1 7 

E5, 1741 

= 

209 

OL517 

E7 , 1462 

= 

215 

ENDBALL 

26, 2360 

493 

FLAGREFl 

0010 

= 

1382 

DL218 

E5, 1743 

= 

209 

DL518 

1331 

= 

215 

ENDCHKG 

37,2366 

391 

FLAGREF2 

000  6 

= 

1382 

DL219 

F5, 1 756 

= 

209 

■ DL601 

1170 

= 

217 

EN0DAPT4 

5272 

= 

2 00 

FLAPBIT 

4735 

= 

83 

DL22I 

1260 

= 

209 

DL602 

1171 

= 

217 

ENDHMSS 

42,3617 

= 

451 

FLASHH? 

21 , 2061 

831 

DL  30  1 

1356 

= 

211 

DL603 

1172 

= 

217 

ENDLLJOB 

31,3420 

= 

811 

FLPCBI T 

473  l 

= 

82 

DL  30  2 

CC2  5 

= 

211 

DL  604 

1173 

= 

2 17 

E NDMANUV 

26,2206 

489 

FLPIBIT 

4732 

= 

82 

DL  30  3 

- E 6 » 1516 

= 

211 

DL605 

0025 

= 

217 

ENDNVBSY 

04,2676 

479 

FLT59BIT 

4741 

= 

83 

DL  30  4 

E6, 1517 

= 

211 

DL606 

E6, 1516 

- 

217 

ENDPA  STE 

4143 

4 54 

FLVRBIT 

4 72  7 

= 

82 

DL  30  5 

E 6 > 1520 

= 

211 

DL607 

E6, 151 7 

= 

2 1 7 

ENDPINBF 

4503 

= 

480 

FRSTMBIT 

474  l 

= 

70 

DL306 

0C3  7 

= 

21  1 

DL608 

E6 , 1520 

= 

217 

ENDPI NS1 

40,3737 

= 

486 

FSPASBIT 

4733 

= 

68 

D L 30  7* 

0C40 

= 

211 

DL609 

1356 

= 

217 

ENDPINS2 

41,3777 

= 

484 

FUNCT3 

21 , 3202 

1473 

DL  30  8 

OC  4 1 

= 

2 1 l 

DL6  10 

1327 

= 

217 

E NDRMODF 

4607 

= 

541 

DL  30  9 

0113 

= 

211 

DL611 

1300 

= 

217 

FNDROLL 

22,3226 

381 

GDUMP1 

31 , 3407 

= 

81  1 

DL3L0 

1327 

= 

2 1 1 

DMENFBI T 

4734 

= 

76 

ENDRQDAT 

41,2345 

424 

GENMARK 

10,3033 

1361 

DL31  1 

1300 

= 

211 

DOALARM 

5146 

= 

1381 

ENDSPOCT 

40,3444 

460 

GEO  IMUTT 

37,2004 

385 

DL312 

E 7 i 1460 

= 

211 

OOAL  IGN 

15,3140 

969 

ENDSTFER 

36,3647 

757 

GEORGEK 

37,3111 

401 

DL313 

E 7,  1462 

- 

211 

DODNADR 

05,3533 

990 

ENDSTOR 

07,2515 

271 

GFOSTRT  4 

37,3025 

400 

DL314 

1331 

= 

211 

DODNCHAN 

05,3601 

990 

ENDS40.9 

27,2  727 

772 

GET  AOSU V 

20,3220 

1495 

DL40  1 

0025 

= 

213 

00RSAMP2 

25,2007 

505 

ENDVPUSH 

6561 

1018 

GETROOT 

21 , 3233 

1473 

DL402 

E 6 1 1 5 16 

= 

2 13 

OOSHIFT 

21,3467 

1480 

END2DEC 

40,3334 

457 

GLOKFB  IT 

4727 

- 

77 

DL40  3 

E 6 , 1517 

= 

213 

DQTIXBR 

01,2430 

1086 

ENGONFLG 

0123 

= 

76 

GMBLBITB 

21 ,3565 

1482 

DL404 

E6, 1520 

= 

2 13 

DP AGREE 

72  76 

1034 

ENTERDAT 

07,2066 

257 

GN/CCODE 

4772 

1094 

DL405 

0113 

= 

2 13 

DPMODE 

14,3771 

1398 

ENTERQR 

17,2445 

1445 

GOAGIN 

10,3062 

= 

1 369 

0L406 

1327 

= 

213 

DPO 

0036 

= 

937 

ENTPASHI 

41,2032 

419 

GOCLOSE 

21  ,3555 

148  7 

DL40  7 

1300 

= 

2 13 

DPI 

0040 

= 

937 

ERADFBIT 

4730 

= 

69 

G0DSPR1 

10,2445 

1354 

DL  40  8 

E 7 i 1460 

= 

213 

DSK YFLAG 

0113 

= 

75 

ERMINUS 

40,3713 

486 

G0DSP2 

10,2437 

1354 

DL409 

E7, 1462 

= 

2 13 

DSPDECNR 

40,3311 

457 

ERRTEST 

L 7 ,3361 

14  60 

GOGOMARK 

10,2400 

1353 

DL410 

F7,  1733 

= 

2 13 

OTDECAY 

36,2004 

39 

ETPI8IT 

4736 

= 

71 

GOMARS 

10,2320 

1352 

DL41  1 

1356 

= 

213 

DUMPCNI C 

27,3431 

1269 

GOODRAD 

25,3246 

572 

DL  SO  1 

E 4 i 1635 

= 

215 

OUMPRPRA 

27,3467 

1271 

FALTOF 

4361 

4 76 

GOPERFRS 

10,2717 

1359 

DLS02 

0113 

= 

2 15 

DUMPTFF 1 

27,3552 

1275 

FAZA1 

23,2760 

1 152 

GOP  ERF S 

10,2637 

1358 

DLS03 

0025 

= 

215 

0UMPTFF2 

27,3647 

1276 

FAZBl 

23,3056 

1153 

GOP  ERF 1R 

10,2715 

1359 

DL504 

0113 

= 

2 15 

OVCNTSET 

33,2245 

866 

FDA  I Y 

E4, 1736' 

123 

G0PERF2 

10, 2642 

1358 

DL50  5 

132  7 

= 

215 

DVMON 

33,2236 

866 

FDAIZ 

E4  , l 73 7 

123 

GOSFRV 

33,2716 

86  5 

0 L SO  6 

1300 

= 

2 15 

UVMCINCON 

36,2547 

735 

FFTAGU 

4000 

= 

29 

GOXDSP 

10,2317 

= 

1369 

DL  50  7 

E6, 1422 

= 

215 

DVTRANS 

13,2272 

712 

FFTAG12 

4000 

= 

29 

GOXOSPR 

10,2342 

= 

1369 

DL  SOB 

E6, 1423 

= 

2 15 

DXCRIT+1 

0125 

= 

100 

FFTAG13 

4000 

= 

29 

GRP40FF 

32,3574 

836 
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PAGE 
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PAGE 

GTSGIJ  + CN 

2 1, 3043 

1470 

KAOS 

16 ,2627 

1425 

MOONBIT 

4731 

= 

67 

N71DI SP 

07 , 2061 

257 

GUESS 

37,2020 

3B5 

KE YCOM 

04,3266 

1335 

MRKIOBIT 

4726 

= 

74 

GUESSBIT 

4 ? A 3 

= 

70 

KLEENEX 

10,2322 

1352 

MRKIOFLG 

0074 

= 

74 

OCT  000 10 

474  1 

= 

243 

GUESS  1 

37, 2255 

389 

K3S  1 

22,2370 

369 

MRUPTBIT 

4740 

= 

75 

HCT02100 

06,3166 

198 

GUILDEN 

31,2436 

797 

K4 

22,237 2 

369 

MRUPTFLG 

0 106 

= 

75 

OCT  10000 

4730 

= 

229 

K4SQ 

22,2374 

369 

MU(P) 

0032 

= 

1245 

OCT  11 

4311 

= 

1093 

HFAILB  IT 

4 730 

= 

85 

MULTEX IT 

5622 

1379 

OCT  20 

4740 

= 

744 

HIGATCHK 

33, 3434 

891 

LANURAD 

25,3207 

571 

MUM 

13,2004 

48 

OCT  203 

26 , 2?  65 

490 

HL IGHT 

25,3657 

6 18 

LASTTIME 

01,3504 

1130 

MUNRVG 

33,3000 

8 84 

0CT21 103 

5704 

1380 

EAT  AZCHK 

37,2021 

385 

MWAITBIT 

4732 

= 

74 

OCT? 17 

5710 

1380 

I CORK  2 

43,2222 

281 

LEMONM 

0056 

= 

95 

MWAITFLG 

0100 

= 

74 

OCT  30000 

4346 

= 

229 

I DAD3JEM 

0152 

99 

LMOONBIT 

4732 

= 

81 

MXMYMZ 

26,2771 

599 

0CT30002 

6512 

= 

1097 

I0LERIT1 

10,3314 

1366 

LOS  1 

E5 , 1444 

= 

1 32 

OCT  37  774 

775  1 

1096 

IGNALG 

32,2637 

782 

LOS  2 

E5, 1452 

- 

132 

NBD3 

06,3656 

3 46 

OCT  40200 

7756 

1096 

IGNALGRT 

32,3014 

704 

LOTEMIN 

0124 

= 

98 

NBPOSPL 

37,2012 

385 

OCT  404  20 

10, 3544 

1370 

IMUBACK 

3 7, 20 C 5 

385 

LOUNTTX 

12,2004 

= 

38 

NB1NB2 

23,2476 

= 

38 

OCT  677  7 7 

10 , 3543 

1370 

I MUF I N20 

07,3175 

= 

1328 

LOUNITY 

12,2002 

= 

38 

NDCMPTST 

41,2465 

428 

OKUPDATE 

25,3502 

576 

IMUGOOD 

07,3640 

1324 

LOUNITZ 

12,2000 

= 

38 

NEEDLE11 

20,2350 

1416 

OMEGCALC 

26,3607 

611 

IMUZE  R03 

07,2753 

1308 

LRALTFLG 

0276 

= 

88 

NEG100 

5174 

1 1 14 

0PTI0N3 

1145 

107 

INFINBIT 

4736 

= 

01 

LRPOSFLG 

0275 

= 

88 

NEG5 

41,2142 

421 

ORBWFB IT 

473  7 

= 

73 

INTEL  AG ' 

0227 

= 

84 

LRSPEED 

25,3217 

572 

NETZERO 

6142 

1003 

ORDERBIT 

473  7 

= 

81 

I NTOTH I S 

13,2320 

713 

LRS24. 1 1 

26,3470 

609 

NEWIBIT 

4730 

= 

81 

OTHSHIP 

22,3335 

717 

INTVEC 

E 5 , 1462 

= 

133 

LRUPT 

0011 

= 

94 

NJETSBIT 

4726 

= 

69 

OURRCFLG 

0306 

= 

89 

INTYPBIT 

4741 

= 

73 

LRVELSI T 

4735 

= 

38 

NO.VJETS 

E6 , 1523 

= 

138 

OUT 

13,2347 

713 

INTZ 

E5, 1474 

= 

132 

LRVELFLG 

0273 

= 

38 

NOBITS 

E5 ,1442 

= 

132 

OUTGOAVE 

22,3710 

= 

868 

I R IGCCMP 

06, 3400 

340 

LUNABIT 

473  l 

= 

72 

NODOP07 

0061 

= 

72 

OUTL INK 

005  7 

= 

95 

ISSWOFF 

06,2716 

189 

MANTHRT? 

32,3177 

816 

NORESFT 

07,3415 

1318 

P-RATE 

16,2514 

142  3 

ISWCALL 

467  1 

998 

MANUFB I T 

4 72  7 

= 

79 

NORFINAL 

13,3336 

12  15 

PAR AM30 

35,2021 

620 

I TRPNT 1 

32,3264 

818 

MANUFLAG 

0152 

= 

79 

NORML I Z 

23,2000 

= 

33 

PERFCHEK 

10,3155 

1363 

I TRPNT2 

32,3421 

820  ■ 

MANUSTAL 

22,3067 

378 

NORMS  B I T 

4733 

= 

79 

PHI 

0024 

- 

536 

I TRO 

6411 

1012 

MARKFORM 

10,2332 

135? 

NORMSCL 

16,3615 

1439 

PHSB81 

E3 , 1437 

114 

I TR1 

6400 

1012 

MASSMON 

33,2146 

' 364 

NORMTEST 

00,3512 

1079 

PHSBB2 

F3 , 1441 

114 

I TRIO 

6163 

1003 

MDU  TAPS 

36,2010 

39 

NPGNCSFL 

0244 

= 

85 

PHSBB3 

E3  , 1443 

114 

1 TR1  1 

6223 

1004 

METH002 

22,2216 

366 

NRMID8IT 

4730 

= 

74 

PHSBB4 

E3 , 1445 

114 

I TR 1 2 

6155 

1003 

MGLVFBIT 

4743 

= 

77 

NRMIDFLG 

0076 

= 

74 

PHSBB5 

E 3 , 1447 

114 

ITR14 

6260 

1006 

Ml DAVBI T 

4743 

= 

83 

NRMNVBIT 

4735 

= 

74 

PHSBB6 

E3  , 1451 

114 

ITR15 

6 144 

1003 

MIDFLBIT 

4730 

= 

67 

NRUPT  BIT 

4741 

= 

75 

PHSNAME4 

E3  , 1444 

114 

I TR7 

63C2 

1007 

MIU1FRIT 

4742 

= 

83 

NRUPT FLG 

0107 

= 

75 

PHSNAME6 

E3  , 1450 

114 

ITSWBIT 

4 726 

= 

79 

MKOVFLAG 

0 110 

= 

75 

NSTEER 

36,3673 

757 

PHSPRDT5 

106  3 

105 

MKVAC 

07,2007 

255 

NTARGBIT 

4 742 

= 

78 

PHSPRDT6 

106  5 

105 

.1  \ IP  R I 

4234 

470 

MK  VB  52 

07,2567 

273 

NVSBWAIT 

44  36 

479 

PINBR8IT 

4737 

= 

75 

JETSCN 

17,3435 

1461 

MKV853 

07,2565 

273 

NVSUBCOM 

4 161 

467 

PINTEST 

43,2002 

= 

48  1 

JSWCHB IT 

4727 

= 

67 

MOD  E 7 1 

05,3504 

834 

NW A I TBIT 

4733 

= 

74 

PIPASCFY 

F3  , 1455 

114 

MON  I T 1 

41,3304 

452 

NWA I T FLG 

0101 

= 

74 

PIPASCFZ 

E3,  1457 

114 
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P I PUS  F 

07,3260 

1315 

P7071BIT 

4730 

= 

82 

PL  US  X 

27,2423 

764 

P71 

21,2135 

832 

PMINM 

34,2103 

638 

P71N0W? 

21,2102 

331 

PON? 

37,2240 

388 

POOH 

04,2217 

240 

JGUID 

31,3056 

805 

POOHB IT 

4726 

= 

72 

OUARDUMP 

21,2252 

896 

P0S6MBL 

37,2064 

386 

QUI TBI T 

4740 

= 

83 

POSITF 

15,3725 

984 

POSTS  I 

33,2450 

877 

RCDUFAIL 

0274 

= 

88 

POSUP 

33,3222 

888 

RCOUOFL  G 

0266 

= 

87 

POSUPDAT 

33.3C70 

886 

RDIEF 

E6, 1452 

= 

137 

P0S1/4 

12,3765 

= 

1244 

RDM 

13,3771 

1245 

POWFL I T 1 

23,2000 

= 

33 

RECAL3 

40,3633 

473 

PREB JUMP 

5320 

1291 

REDOMANN 

26,2127 

488 

PREC I BIT 

4735 

= 

73 

REFTAG1 

4727 

= 

283 

PR IODFLG 

0075 

= 

74 

REFTAG10 

4732 

= 

232 

PR  101 

4 733 

= 

1097 

REFTAG2 

4732 

= 

283 

PRI01 l 

5013 

1095 

REFTAG3 

47  33 

= 

531 

PR  10  2 

4732 

= 

1097 

REFTAG4 

4726 

= 

531 

PROCE  EDE 

06,2075 

168 

REFTAG5 

.4736 

= 

299 

PR0CKEY1 

40,3507 

464 

REF  TAG6 

4734 

= 

299 

PRODUCT 

21,3455 

1480 

REFTAG7 

4736 

= 

300 

PRONVEIT 

4736 

= 

75 

REF  rAG8 

4734 

= 

300 

PSKI PADR 

16,3624 

1439 

REFTAG9 

4727 

= 

282 

PSTHIC-AT 

0251 

= 

86 

REGODSPR 

10,2463 

1355 

PULSE  M 

14,3237 

942 

REMODFLG 

0265 

= 

87 

PUT  X Y 

41,2764 

441 

REPOSMON 

0270 

= 

87 

PUTXYZ 

41,2663 

439 

REQEXLOC 

41,2234 

422 

P12A 

23,2000 

= 

33 

RERRCALC 

17,2675 

1449 

P12LMB 

30, 2120 

839 

RHCSCFLG 

0313 

= 

90 

P20LEMB7 

24,2206 

5 13 

RLMUNIT 

0014 

= 

613 

P20LEMF 

24.23C7 

514 

RMM 

12,2017 

= 

33 

P20LMWT  L 

24,2317 

514 

RNGEDAT  A 

0260 

= 

86 

P20S2 

25,2000 

= 

33 

ROOTRAP 

23,2000 

= 

33 

P30N33 

35, 2CC4 

620 

ROO 

04,2167 

240 

PA  IE  JET 

36, 3315 

751 

ROOTPS+  1 

0127 

= 

100 

P41MANU 

36,3214 

749 

RE)  TFL8  I T 

4737 

= 

83 

P41N0RM 

36,3324 

751 

RPAD1 

23,2335 

= 

1280 

P52F 

15,2233 

925 

RPQFLBI T 

4726 

= 

80 

P52V 

15,2265 

926 

RRCHECK 

4567 

540 

P57A 

15,3335 

973 

RPDATAFL 

0277 

= 

88 

P63IGN1 

36,2516 

734 

RRNBBIT 

4737 

= 

68 

P63Z00M 

35,3673 

736 

RRRSFLAG 

0300 

= 

88 

P70INIT 

32,3465 

835 

RSFLGBTS 

05,3066 

229 

P70NOW? 

2 1,2121 

832 

RUPOATEO 

33,3260 

889 

HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


17: 11  MAR.  19,1971 


PAGE  1566 


& PAGE  OF  DEFINITION. 


SYMBOL 

DEF 

H 

PAGE 

SYMBOL 

OEF 

H 

PAGE 

RVSWBIT 

4734 

= 

79 

SET  CTR 

21,3623 

1506 

RWAITK 

43,2 143 

278 

SET INFL 

05,2733 

226 

R12R0FLG 

0261 

= 

86 

SETMARK 

10,2526 

1356 

R 1 2RD  SET 

25,3146 

570 

SETPRIO 

10,2503 

1355 

R12STUFF 

34,2000 

= 

35 

SET  XFL  AG 

23,2453 

= 

852 

R21LEM1 

24,3017 

525 

SET  XTAC  T 

43,2105 

276 

R2 1LEM12 

24,3075 

5 26 

SFRET 

41,3134 

44  3 

R2 1LEM3 

24,3026 

525 

SFPETl 

41,3116 

443 

R22LEM 12 

24,2541 

520 

SHAFTBO 

26, 3023 

600 

R24LEM1 

24,3275 

5 30 

SIM2CADR 

05,2461 

222 

R29/SERV 

33,2000 

= 

35 

SLOPEBIT 

4742 

= 

70 

R300K 

27,3771 

1280 

SNAPAGN 

05 , 3647 

991 

R51.2 

14,3073 

939 

SNAPEND 

05,3666 

99  2 

R 5 IF 

14,3060 

938 

SNGLCD 

22,2376 

369 

R51P63 

14,3146 

939 

SOLNSBIT 

4742 

= 

77 

R55. 1 

14,3240 

942 

SOMEAOS 

20,3422 

1498 

R61C+L03 

23,2156 

534 

SOMEFRRR 

37,3040 

400 

R6  IC  + L 1 

23,2305 

536 

S0PTI0N2 

43 , 3326 

1284 

R61LEM1 

23,2162 

534 

SOPT I ON  3 

43,3327 

1284 

R61LEM2 

23,2216 

534 

SOPTION4 

43 , 3330 

1284 

S0PTI0N5 

43,333  l 

1284 

S+2 

4743 

= 

1282 

SOPT I0N6 

43 , 3332 

1284 

S+3 

6266 

= 

1282 

SOPT I ON  7 

43 , 3333 

1284 

S + 4 

4742 

= 

1282 

SOPTON 10 

43,3334 

1284 

S+5 

4747 

= 

12  82 

SOUPLY 

37,3071 

401 

S + 6 

6263 

= 

1282 

SPECSTS 

37,2572 

396 

S-2 

7767 

= 

1283 

SPSCODE 

4734 

= 

1306 

S-3 

7766 

= 

1283 

STARTDAP 

16,2047 

1409 

S— 4 

6133 

= 

1283 

STARTSIM 

05,2457 

222 

S8  1 T 1 

4744 

= 

1282 

STARTSTO 

6455 

1015 

SB  IT  10 

4733 

= 

1282 

STARTSW 

05,2456 

222 

SBIT13 

4730 

= 

1282 

STCL0K3 

36,2664 

738 

SB  I T 1 4 

472  7 

= 

1282 

STDES  IGl 

25,2607 

562 

SBIT2 

4743 

= 

1282 

STERN 

31 , 2437 

797 

SBIT3 

4742 

= 

1282 

STOPHAPO 

22,3602 

723 

SBIT5 

4740 

= 

1282 

STORHPER 

22,3614 

724 

SBIT6 

4737 

= 

1282 

STRATGY 

14,2722 

936 

SBIT8 

4735 

= 

1282 

SUPER100 

4736 

= 

1094 

SCLNORM 

17,3141 

1454 

S32BIT1 

4726 

= 

77 

SD 

22,2366 

3 69 

S32BIT2 

4727 

= 

77 

SECAD 

22,2027 

363 

S32BIT3A 

4730 

= 

77 

SEC01 

4770 

= 

758 

S32BIT3B 

4731 

= 

77 

SELFSUPR 

40,2000 

= 

37 

S3435.25 

35,3245 

676 

SENSEGET 

17,2 146 

1440 

S40.133 

27,2647 

770 

SEPV4 

34,2000 

= 

35 

S40.137 

27,2637 

769 
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SYMBOL 

DEF 

H 

PAGE 

SYMBOL 

CEF 

H 

page 

SYMBOL 

DEF 

H 

PAGE 

SYMBOL 

DEF 

H 

PAGE 

S50 

l A , 2 5 1 5 

= 

932 

UPOK 

04,3342 

1336 

V37XEQC 

04,2415 

244 

2.21SP0T 

01,2057 

251 

S52.2.  1 

21,2727 

950 

UP  PART  3 

04,3564 

= 

1389 

V50N00A 

32,2165 

221 

2.5  SPOT 

01 ,2035 

251 

UP  THROT 

32,3557 

836 

V67FLBIT 

4735 

= 

79 

2.7SP0T 

01 , 2040 

251 

TBASE3 

1 C 56 

105 

UPWAKE 

04,3556 

1389 

V 74 

43,3040 

= 

300 

2DZER0 

12 , 2006 

= 

1135 

TCAL  A R M2 

A3, 3267 

1283 

USEGTS 

33,2260 

866 

V82EMBIT 

4743 

= 

80 

2RNDEND 

40 , 3222 

448 

TCCSM 

E 3 , 16  22 

116 

USEQRFLG 

0304 

= 

39 

2SECI28) 

33, 3054 

885 

TCLEM 

E 3, 1674 

1 16 

WCALC 

22,2746 

376 

2VFXHUST 

E7 , 1 742 

= 

767 

TDECAYFX 

476  1 

1094 

VAC  l 

0401 

102 

WHATOUT 

31,2335 

792 

27T030 

43,3654 

1289 

TEMP 

E 5 < 1AA1 

= 

132 

VAC  2 

0455 

102 

WPLAT I 

E5 , 1560 

= 

133 

TEMPADD 

E 5 , 1440 

= 

1 32 

VAC3 

0531 

102 

WPLATO 

E5 , 1464 

= 

132 

3 . 5 SPOT 

01 ,2065 

251 

T END A P PR 

E 7 , 1424 

144 

VAC  4 

0605 

102 

3J22R2MU 

13,2024 

48 

TEST VB 

4 1 , 2C  66 

420 

VEHUPBI T 

4735 

= 

70 

XDELVBIT 

4735 

= 

71 

30DEGCHK 

24, 342  1 

592 

TETOTHER 

E3, 1570 

= 

1 16 

VELOATA 

0255 

= 

86 

XDIFF 

12,2163 

1174 

30KCHK 

33,242  1 

877 

TFFCON  IC 

27,3363 

1268 

VELUPOAT 

33,3275 

889 

XKEPCSM 

E3.1624 

l 16 

360SWBIT 

4744 

= 

82 

TFFSWB  IT 

4744 

= 

80 

• VER IFLAG 

0165 

= 

80 

XKEPL EM 

E3 , 1676 

116 

TFFTICK 

22,3455 

719 

VERROR 

E6.1751 

= 

136 

XSMADR 

37,2477 

393 

4.  1 ISPPT 

01,2107 

252 

TGOCALC 

27,2470 

766 

VERTDRFT 

37,2231 

388 

4. 13SP0T 

01,2112 

252 

THDUMP 

31,2333 

792 

VF  AILS  IT 

472  7 

= 

35 

ZERO DP 

12,2006 

= 

1099 

4. 15SP0T 

01,2115 

752 

TICKTPER 

.22,3412 

7113 

VFLAGBIT 

4733 

= 

73 

ZEROO 

23,2504 

= 

1155 

4. 17SP0T 

01,2120 

252 

TMANUCHK 

22,3064 

378 

VINTFBI T 

4742 

= 

73 

ZEROT J 

17,2620 

1447 

4.21SP0T 

01,2123 

257 

TMEX  I 1L 

05,3720 

992 

VL AUNS 

E5,  1462 

= 

132 

Z0NE2 

17,3606 

1464 

4.23SP0T 

01 ,2126 

252 

TMRESUME 

05,3722 

993 

VPD 

0000 

= 

937 

Z0NE4 

17,3427 

1461 

4.25SP0T 

01,2131 

252 

TRACF  1 . 

40,3265 

456 

VPDVL 

6614 

1019 

Z0NE4 , 5 

17,3416 

1460 

4.27SP0T 

01,2134 

253 

TRACT  IS 

40, 3276 

456 

VRECTLEM 

E3, 1634 

116 

4 . 3 1 S POT 

01,2137 

253 

TRUNBQ 

26,3117 

601 

VST  ORE 

6464 

1015 

OEBANK 

43,3344 

1285 

4.33SP0T 

01,2142 

253 

TSNEXTS 

17,2226 

1441 

VUPDATED 

33,3432 

891 

4.35SP0T 

01 ,2145 

253 

1 SSR 

00,2025 

1045 

VV/SC 

7650 

1043 

1.5SP0T 

01,2027 

2 50 

4.37SP0T 

01,2150 

253 

T STP  0 I NT 

23,3747 

1261 

VVXSC 

7425 

1038 

1/RTMU 

27,2030 

48 

4 . 5 S POT 

01,2101 

252 

TTFSC ALE 

4731 

= 

829 

VXBEAMNB 

33,2024 

42 

1/10S 

4744 

= 

1444 

4 . 7 SPOT 

01,2104 

252 

TURNON 

I 7, 3154 

1454 

V>  .CAL 

33,2070 

43 

1/10SEC 

4744 

= 

1430 

TURNUNFL 

0302 

= 

88 

VYBFAMNB 

33,2016 

42 

l B I TOP 

26,2421 

4 99 

5 • 4 SPOT 

01,7161 

253 

T6  JOB 

1 7,2061 

1401 

VYSCAL 

33,2066 

43 

1SECX 

4770 

= 

393 

5 . 5 SPOT 

01,2172 

253 

VO 

0006 

= 

937 

100MRUPT 

7750 

= 

165 

5.7  SPOT 

01,2175 

254 

UAXI  S 

20,3274 

1496 

V00N25 

6010 

= 

22  1 

1 13ALRM 

07,2422 

269 

5BLANK1 

40,2546 

417 

UUB2 

0136 

= 

1503 

VOON34 

4233 

= 

221 

120MS 

5745 

= 

191 

5B10 

01, 2502 

1089 

UDB3 

0 140 

= 

1503 

V01N14 

32,2164 

221 

17T020 

43,3646 

1289 

UNFVX/2 

E6, 1665 

= 

141 

V06N07 

10,3505 

1369 

6.  USPOT 

01,2211 

254 

UNKNOWN 

0007 

= 

204 

V06N59 

35,3636 

687 

2.0SPT 

04,2154 

239 

6.5  SPOT 

01,2203 

254 

UPDNL 1ST 

05, 24  14 

= 

204 

VI 

0014 

= 

937 

2. 1 1 S POT 

01,2043 

251 

6.7SP0T 

01 , 2206 

254 

UPDT  M END 

42,2032 

287 

V2 

0022 

= 

937 

2. 11SPT 

04,2155 

2 39 

63/64+ 1 

7747 

1096 

UP  END  7 3 

04,3540 

1388 

V2  1N79 

07,2564 

273 

2. 13SPDT 

01,2046 

251 

66DEC 

33,3063 

885 

UPERRCR 

04,3375 

1386 

V22N79 

07,2562 

2 72 

2. 15SP0T 

01,2051 

251 

UPLOCKFL 

0 164 

= 

80 

V 3 

0030 

= 

937 

2. 17SP0T 

01,2054 

251 

70DEC 

32,3463 

834 
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PAGE 
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PAGE 

SYM  BOL 

DEF 

OOCO 

67 

NEE02FLG 

0010 

95 

OUTO 

0016 

OOCO 

94 

A 

0010 

1 136 

GAMRP 

0016 

OOCO 

141 

UNX/2 

00  10 

1 146 

CVECTR 

00  16 

0000 

247 

COSTAL  II. 

0010 

1 146 

DVECTR 

0016 

OOCO 

504 

UR 

0010 

1 146 

S INNODI 

00  16 

OOCO 

937 

VPD 

0010 

l 199 

ALPHA 

0017 

0000 

1146 

504RPR 

0010 

1200 

COGAM  1 N 

0017 

OOCO 

1245 

RATT 

0010 

1201 

MIN 

0020 

0001 

67 

JSWITCH 

0010 

1382 

FLAGREFl 

0020 

0001 

94 

L 

0011 

68 

RRN8SW 

0020 

0001 

95 

LCHAN 

0011 

94 

LRUPT 

0020 

OOCl 

247 

AGSUPOAT 

OOIL 

95 

DSALMOUT 

0020 

0002 

67 

MIOFLAG 

0012 

68 

LOKONSW 

0020 

00C2 

94 

C 

0012 

94 

QRUPT 

0020 

OOC  2 

95 

CCHAN 

0012 

95 

CHAN  12 

0020 

0002 

247 

RENDEZVL 

0012 

1 199 

XMAX 

0021 

0003 

67 

MCONFLAG 

0012 

1265 

TFFDELQ 

0021 

0003 

94 

EBANk 

001  3 

68 

■NEEDLFLG 

0022 

0003 

95 

HI  SCALAR 

0013 

94 

SAMPTIME 

0022 

0003 

247 

OR  BMANUL 

0013 

95 

CHAN13 

0022 

00C4 

68 

P21FLAG 

0014 

68 

FREEFLAG 

0022 

0004 

94 

FRANK. 

0014 

95 

CHAN14 

0022 

0004 

95 

LOSCALAR 

OC  14 

141 

UNZ/2 

0022 

0004 

247 

DESASCNT 

0014 

613 

RLMUNI  T. 

0022 

OOC  5 

68 

FSPASFLG 

00  14 

613 

UXVECTPR 

0022 

0005 

94 

Z 

0014 

937 

VI 

0022 

0005 

95 

CHAN5 

00  14 

1 199 

XMIN 

0022 

0005 

247 

LUNRS ALN 

0014 

1200 

DCOGA 

0023 

0006 

68 

P25FLAG 

0014 

1201 

DELINDEP 

0023 

00  C 6 

94 

BRANK 

0014 

1 245 

TAT 

0024 

0006 

95 

CHAN6 

0014 

1265 

RMAG1 

0024 

0006 

141 

UNY/2 

0015 

68 

R10FLAG 

0024 

00C6 

504 

UR  P 

0015 

94 

ZRUPT 

00  24 

0006 

937 

VC 

0015 

95 

MNKFY  1 N 

0024 

0006 

1146 

5C4F 

0016 

69 

P66PR0FL 

0024 

0006 

1245 

VATT 

0016 

94 

BANKRUPT 

0024 

0006 

1297 

BB 

00  16 

95 

NAVKEY I N 

0024 

0006 

1382 

FL AGREF2 

0016 

584 

VELLOS 

0024 

0007 

68 

I MUSE 

0016 

933 

CEARTH 

0024 

0007 

95 

SUPERBNK 

0016 

936 

CSS 

0024 

00C7 

204 

ERASZERO 

00  16 

1146 

TI MSUBM 

0025 

0007 

2 04 

SPARE 

0016 

1 146 

504  L PL 

0025 

OOC  7 

2 04 

UNKNOWN 

0016 

1 199 

l/MU 

0025 

0010 

68 

RNDVZFLG 

0016 

1200 

COGAMAX 

0025 

0010 

94 

ARUPT 

0016 

1201 

MAX 

0025 
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SYMBOL 

DEF 

PAGE 

SYMBOL 

DEF 

PAGE 

SYMBOL 

RATT1 

0025 

215 

DL503 

0035 

95 

DNTM2 

URP  V 

0025 

217 

DL605 

0035 

207 

DL120 

CDELF/2 

0026 

70 

VFHUPFLG 

0035 

207 

DL131 

TFFQ1 

0026 

94 

T I ME  3 

0035 

215 

DL513 

RPER 

0026 

129 

ZPRIME 

0036 

70 

DRIFTFLG 

NJETSFLG 

0026 

985 

GTMP 

0036 

94 

CDUS 

8RUPT 

0026 

1201 

ITERCTR 

0036 

937 

DPO 

DIDFLAG 

0026 

1265 

TFFl/ALF 

00  3 6 

1 199 

T 

CYR 

0027 

70 

UP  DAT  FL  G 

0036 

1201 

DEP 

COSTH 

0027 

94 

TIMF4 

0036 

1 265 

TFF/RTMU 

CSUN 

0030 

70 

NOUPFLAG 

0037 

71 

SRCHOPTN 

stmp 

0030 

94 

TIMF5 

0037 

94 

PIPAX 

RODTMU 

0030 

95 

CHAN30 

0037 

209 

DL210 

NRTERM 

0030 

937 

V3 

0037 

211 

OL  306 

RAPO 

0030 

985 

TIMEP 

0040 

7 1 

ACMODFLG 

ERADFLAG 

0030 

1199 

XI 

0040 

94 

PIPAY 

SR 

0030 

1201 

COSF 

0040 

209 

DL2  1 1 

RODFLAG 

0030 

1265 

TFFRTALF 

0040 

211 

DL307 

CYL 

0031 

70 

TP  ACKFLG 

0040 

937 

DPI 

SINTH 

00  31 

94 

T I ME  6 

0040 

1146 

COB 

UYVECTPR 

00  31 

95 

CHAN31 

0040 

1 199 

R 1 

CMOON 

0032 

70 

FR  ST  I ME 

0040 

1245 

TDFC  l 

V 2 

0032 

94 

CDUX 

0040 

1265 

NRMAG 

504  AZ 

0032 

95 

CHAN32 

0041 

71 

LOSCMFLG 

1/ROOTMU 

0032 

665 

OELELO 

0041 

94 

P IPA7. 

COS  PHI / 2 

0032 

1 146 

BVECTR 

0041 

209 

DL212 

RTFRM 

0032 

1199 

SI  XI) 

004  1 

211 

DL308 

NOT  ERFLG 

0032 

1245 

MU  ( P ) 

0042 

71 

STFERSW 

FDOP 

0032 

1245 

TV  EC 

0042 

94 

Q-RHCCTR 

R61 FLAG 

0032 

1265 

TFFALFA 

00  4 2 

95 

LVSQUARE 

TIME2 

0033 

70 

SLOPESW 

0042 

130 

RCNORM 

THETA 

0033 

94 

CDUY 

0042 

1 146 

SOB 

PHI 

0033 

95 

CHAN33 

0042 

1 199 

KEPC1 

RRANGE 

0033 

207 

OL  118 

0042 

1265 

TFF  X 

AVECTR 

0033 

207 

DL  129 

0043 

94 

P-RHCCTR 

MMATRIX 

0033 

215 

DL  51  1 

0044 

71 

IMPULSW 

X 

0034 

70 

GUESSW 

0044 

94 

R-RHCCTR 

UZ 

0034 

94 

COUZ 

0044 

95 

LV 

VAT  T 1 

0034 

95 

DNTM1 

0044 

1 156 

NORMZ I 

TFFVSQ 

0034 

207 

OL  1 19 

0044 

1 199 

KEPC2 

TIME! 

0034 

207 

DL  1 30 

0044 

1 265 

TFFTEM 

DL102 

00  34 

215 

DL  51  2 

004  5 

71 

XDEL VFLG 

DL208 

00  34 

1199 

XSOCIXI ) 

0045 

94 

INL INK 

DL302 

0034 

1265 

TFFNP 

0046 

71 

ETPIFLAG 

DL401 

0035 

94 

CDUT 

0046 

94 

RNR  AD 

ON,  I 

PAGE 

1245 

1245 

1265 

1265 

1271 

69 

94 

69 

94 

129 

933 

985 

1 199 

1265 

1271 

69 

94 

69 

94 

129 

613 

933 

93  7 

1146 

1199 

1245 

1265 

69 

94 

69 

94 

129 

536 

583 

1 146 

1 146 

l 199 

1245 

1245 

1265 

94 

206 

209 

211 

213 
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DEF 

PAGE 

SYMBOL 

DEF 

PAGE 

SYMBOL 

DEF 

0046 

95 

XI 

0063 

142 

DINOX 

0076 

0047 

71 

FINALFLG 

0063 

158 

AL  T R TEMP 

0076 

0047 

54 

G YROCMD 

0063 

158 

ALTTEMP 

0077 

0047 

55 

X 2 

0063 

153 

VHY 

0077 

0050 

71 

AVFLAG 

0063 

1297 

TEMPNM 

0100 

0050 

94 

CDUXCMD 

0063 

1476 

nzaccdot 

0100 

0050 

95 

SI 

0064 

73 

PRECIFLG 

0101 

0050 

1146 

PPREX  IT 

0064 

97 

I T E MP4 

0101 

0050 

1201 

TWEEK  IT 

0064 

97 

LOCCTR 

0102 

0051 

72 

PFRATFLG 

0064 

97 

WAITTEMP 

0 102 

0051 

54 

CDUYCMD 

0064 

1297 

TEMPBB 

0103 

0051 

95 

S2 

0065 

73 

CULTFL AG 

0103 

0051 

1137 

SETREX 

0065 

97 

I TEMP5 

0104 

0051 

1146 

EARTHMXX 

uOc>5 

97 

NEW  LUC 

0104 

0052 

72 

CALCMAN3 

0065 

158 

VHZ 

0105 

0052 

94 

CDUZCMD 

0065. 

1297 

TEMPSW 

0105 

0052 

55 

CPRET 

0066 

73 

ORBWFLAG 

0106 

0053 

72 

CALCMAN2 

0066 

97 

I TEMP6 

0106 

0053 

94 

CDUTCMD 

0066 

1 297 

TFMPSW2 

0106 

0054 

72 

NODOFLAG 

0066 

14  74 

CHNL12 

0107 

0054 

54 

CDUSCMD 

0066 

1476 

QRNDXER 

0107 

0055 

72 

PCOHFLAG 

0067 

73 

STATEFLG 

0110 

0055 

95 

THRUST 

0067 

97 

NEWJOB 

0 110 

0056 

72 

GLOKF AIL 

0070 

73 

INTYPFLG 

0110 

OC  56 

' 55 

LEMDNM 

00  70 

97 

RUPTREG1 

('111 

0057 

72 

REFSMFLG 

■00  70 

158 

FOR VTEMP  . 

0111 

0057 

55 

OUTLINK 

0070 

1297 

TEMPPR 

0111 

0060 

72 

LUNAFLAG 

0071 

73 

VINTFLAG 

0112 

0060 

95 

ALTM 

OC  7 l 

97 

RUPTREG2 

0112 

0061 

72 

NODOP07 

0071 

1297 

TEMPG2 

0113 

0061 

57 

EXECTEM1 

00  7 2 

73 

D60R9FLG 

0113 

0061 

97 

ITFMP  1 

0072 

97 

RUPTREG3 

011.3 

0061 

57 

WA1TEXIT 

0072 

158 

LATVEL 

0113 

0061 

142 

T5TEMP 

OC  72 

1297 

TEMPP2 

0113 

0061 

1297 

TEMPG 

0073 

73 

DIMOFLAG 

0 113 

. I 

14  11 

COSMG 

0073 

97 

DSRUPTEM 

0113 

0062 

73 

VFLAG 

0073 

97 

KEYTEMP1 

0113 

0062 

57 

E XECTEM2 

0073 

97 

RUPTREG4 

0114 

0062 

57 

I TEMP 2 

OC  73 

1297 

TEMPB8CN 

0114 

0062 

97 

W A I TBANK 

0074 

67 

FLAGWRDO 

0114 

0062 

1297 

TEMPP 

0074 

74 

MRKIDFLG 

0 114 

0063 

73 

R04FLAG 

00  74 

97 

STATE 

0 1 14 

0063 

57 

I TEMP3 

0C75 

69 

FLAGWRD1 

0115 

0063 

57 

NEWPRIO 

0075 

74 

PRIODFLG 

0115 

0063 

57 

W A I TADR 

00  76 

70 

FLAGWRD2 

0115 
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98 
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MGLVFLAG 
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0115 

93 
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98 

BUF 

FLAGWRD3 

0115 

1504 

DBVAL3 

0130 

98 

I NDEXLOC 

CHAN77 

0116 

76 

NOTHROTL 

0130 

98 

SWWORD 

FLAGWRD4 

0116 

98 

ADDRWD 
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126 
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0116 

1504 

DRIFTER 
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0117 

76 
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77 
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77 
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DISTEM 
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TEM2 
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0165 
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0154 
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TEMPPHS 
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0143 

78 

REDFLAG 
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FACEREG 
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0143 

99 
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0154 

1504 

UV 

0166 
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99 

DEX  1 

0155 

79 
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0167 
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99 

TEM3 

0155 

1305 

TEMP2G 
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0143 
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DEXI 
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0155 

1494 

EPSILON 

0173 
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99 

DSPWORET 

0156 

79 

NORMSW 

0173 

0144 

99 

RELRET 

0156 

1305 

PC  INTER 

0 174 

0144 

99 

SEPMNRFT 

0157 

79 

RVSW 

0174 

0144 

99 

SEPSCRET 

0157 

100 

TERM1TMP 

0175 

0 144 

99 

TEM4 

0157 

1305 

TEMPSWCH 

0177 

0144 

100 

DERCOF-6 

0157 

1370 
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0200 

0144 
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DEX2 

0157 
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0 144 

1503 
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0157 

1494 

DOCKTEMP 
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99 
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0157 

1504 
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99 

TEM5 

0157 

1504 
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79 
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1494 
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1503 
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0215 

0147 

78 
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0161 
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0216 

0147 

99 
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0161 

1494 
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0217 

0147 

100 
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0161 

1494 

SCRATCHY 
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79 
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0 162 

80 

V37FLAG 

0222 

0150 

99 
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1494 
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0151 

99 

ICAD2TEM 

0162 

1504 
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0151 

100 

OERCOF-1 

0163 

80 

AVEGFLAG 

0230 

0151 

1503 

FLATEMP 

0163 

101 

MODE 

0236 

0152 

79 

MANUFL AG 
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1370 
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0243 

0 152 

99 

1 0AD3TEM 

0163 

1504 
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0244 

0152 
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) 1 64 

80 

UPLQCKFL 

0245 
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0246 
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CPSI 
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86 
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0324 
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DEL  V 

V 82  E MF  LG 
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86 

VELDATA 

0324 
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DEL  VX 

PUSHLOC 

0260 

86 

RNGEDAT  A 

0326 
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DEL  VY 

TFFSW 

0261 

86 
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033  0 
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DELVZ 
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87 
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0332 

101 
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87 

REMODFL  G 
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87 
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0334 
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MOONTHI S 

0267 

87 

ANTENFLG 

0335 
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DNTMGOTO 

LMOONFLG 

0270 

87 

RFPOSMON 

0336 
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DNECADR 

FLUND ISP 

0271 

87 

DESIGFLG 

0336 

102 

DUMPLOC 

SURFFLAG 

0272 

88 

ALTSCALF 

0336 

102 

TMINDEX 

INF INFLG 

0273 

88 

LRVELFLG 

0337 

10? 

SUBL  1ST 

ORDERSW 

0274 

88 

RCDUFAIL 

0340 

102 

ONTMRUFF 

APSESW 

0275 

88 

LRPOSFLG 

0366 

102 

NVWORD 

COGAFLAG 

0276 

88 

LRALTFLG 

0367 

102 

MARKNV 

INI TALGN 

02  7 7 

88 

RP-DATAFL 

0370 

10  2 

NVSAVE 

360  SW 

0300 

88 

RPRSFLAG 

03  71 

102 

CADRFLSH 

FLVR 

0301 

88 

AUTOMODE 

0372 

102 

C ADRMARK 

P 70  7 IF  LG 

0302 

88 

TURNONFL 

0373 

102 

TEMPFLSH 

FLPC 

0303 

89 

PULS  EEL  G 

0374 

10? 

CHANBKUP 

FLP  I 

0304 

89 

USEQRFLG 

03  75 

102 

FAILRFG 

FLRCS 

0305 

89 

CSMDKFLG 

0375 

207 

DL123 

LET  ABORT 

0306 

89 

OURRCFLG 

0400 

10? 

VAC 1USE 

FLAP 

0307 

89 

ACC4-2FI 

0401 

102 

VAC  1 

ABTTGFLG 

0310 

89 

AORBTFLG 

0454 

102 

VAC2USF 

ROTFLAG 

0311 

89 

XOVINFLG 

0455 

102 

VAC  2 

QUITFLAG 

0312 

89 

OP  IFTDFL 

0530 

10? 

VAC3USE 

FLT59FLG 

0313 

90 

RHCSCFLG 

0531 

102 

VAC  3 

MIDIFLAG 

0314 

90 

ULLAGFLG 

0604 

102 

VAC4USE 

MID AVFLG 

0314 

101 

R22D  ISP 

0605 

102 

VAC  4 

AVEMIOSW 

0314 

101 

TIME2SAV 

0660 

103 

VAC5USE 

INTFLAG 

0315 

90 

DBSL2FLG 

0661 

103 

VAC  5 

APSFLAG 

. 0316 

90 

DBSELFLG 

0705 

103 
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RE  I NTFLG 

0316 

101 

SCALSAVE 

0734 

103 

POSCODE 

CONTRLFL 

0317 

90 

ACCOKFL  G 

0735 

103 

SINCDU 

NPGNCSF  L 

90 

AUTR2FLG 
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103 
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0320 
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RFDOCTR 

0735 

103 

STARALGN 

VFAILFLG 

0321 
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AUTR  IFLG 

0737 
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SINCDUZ 
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1 504 
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103 

S INCDUX 

1021 

104 

MCNSAVE2 

1106 

07  A3 

103 

COSCDU 

1022 

104 

DSP  T AB 

1110 

0 7 A 3 

103 

CCSCDUY 

10  36 

104 

NVQTEM 

l 1 10 

0 7 A 5 

103 

cdscduz 

1037 

104 

NVBNKTEM 

1112 

07  A 7 

103 

COSCDUX 

1040 

104 

VERESAVE 

1112 

0751 

1 03 

— PHASE1 

1041 

104 

CADRSTOR 

1113 

0752 

103 

PH AS  E l 

1042 

104 

DSPLI ST 

1 1 14 

0753 

103 

-PHASE2 

1043 

104 

EXTVBACT 

1116 

0 7 5 A 

103 

PHASE2 

1044 

104 

DSPTEM1 

1117 

0755 

103 

-PHASE3 

1044 

105 

NORMTEM 1 

1121 

0756 

103 

PHASE3 

1047 

. 105 

DSPTEM2 

1123 

0757 

103 

-PHASE4 

1050 

105 

DSPTEMX 

1125 

0760 

103 

PHASE4 

1050 

105 

DPT  I ON X 

1133 

0761 

103 

-PHASE5 

1052 

105 

TBASE1 

1 141 

0762 

103 

PHASE5 

1053 

105 

PHSPRDT l 

1142 

0763 

1 03 

-PHASF6 

1054 

105 

TBASE2 

1 143 

076A 

103 

PHASE6 

1055 

105 

PHSPRDT  2 

1144 

0765 

103 

CDUSPOT 

1055 

105 

PIPCTR 

1 145 

0765 

•103 

CDUSPOTY 

1056 

105 

T8ASE3 

1 146 

0767 

103 

CDUSPOTZ 

1057 

105 

PHSPRDT3 

1150 

0771 

10A 

CDUSPOT  X 

1057 

244 

MMTEMP 

1 152 

0773 

104 

MINDEX 

1060 

105 

TBASE4 

1154 

077A 

104 

MMNUMBFR 

1060 

244 

BASETEMP 

1155 

0775 

10A 

DSPCNT 

1061 

105 

PHSPRDT4 

1156 

07  76 

10A 

DSPCOUNT 

1062 

105 

TBASE5 

1157 

0777 

104 

DEC8RNCH 

1063 

105 

PHSPRDT5 

1160 

1000 

104 

VERBREG 

1064 

105 

TBASE6 

1161 

1001 

104 

NOUNREG 

1065 

105 

PHSPRDT6 

1162 

1002 

1 04 

XREG 

1066 

105 

NVW0R01 

1 162 

10C3 

1 04 

YRFG 

1067 

105 

QSPFLG 

1 163 

IOC  A 

104 

ZREG 

1067 

105 

EBANKSAV 

1 164 

10C5 

104 

XREGLP 

10  70 

1 )5 

MARKFLAG 

1165 

1006 

104 

HI TEMOUT 

1071 

105 

EBANKTEM 

1166 

1006 

104 

YREGLP 
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105 
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1166 
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105 
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ZREGLP 
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104 
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TEMK 
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MODEA 
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TEMY 
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TEMZ 
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213 

DL406 

UP VERBSV 

1262 

109 

T5  ADR 

1327 

215 

DL505 

UPTEMP 

12  64 

109 

RESTREG 

1327 

217 

DL610 

EBUF2 

1265 

109 

i 13QSAV 

1330 

111 

ONRRANGE 

COMPNUMB 

1266 

109 

C13FSAV 

133  1 

111 

DNPRnnT 

UPOLOMOD 

1267 

109 

RADTIME 

1331 

206 

DL  1 07 

0L601 

1270 

109 

RADDEL 

1331 

209 

0L204 

UPVERR 

1271 

109 

TTOT IG 

133  1 

211 

DL314 

DL602 

1273 

109 

PVAL VEST 

1331 

215 

OL518 

UPCOUNT 

1274 

109 

DELPEROR 

1332 

111 

DNI NDEX 

DL603 

1275 

. 109 

DTLOFROR 

1332 

111 

RADBITS 

DVT  EMP 

1276 

109 

DELREROP 

13  33 

111 

DNLRVFLX 

UPBUFF 

1277 

1 10 

IMODE  S30 

1334 

111 

DNLRVFI Y 

DL604 

1300 

l 10 

I MODES33 

1334 

206 

DL  1 08 

RN 

1300 

207 

DL  112 

1334 

209 

DL205 

ON, 

PAGE 
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106 

106 

106 

106 

106 
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107 

107 

107 

107 

107 

107 

107 

107 

107 

107 

107 
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107 

107 

107 

107 
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107 

107 
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107 
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107 

107 

217 

107 

217 

107 

217 

107 

107 

217 
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PAGE 
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DEF 

PAGE 
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DEF 

PAGE 

SYMBOL 

DEF 

PAGE 

SYMBOL 

DEF 

PAGE 

SYMBOL 

1335 

1 11 

ONLRVELZ 

E3, 1 A10 

114 

LST2 

E3.1550 

115 

TC 

E3, 177A 

117 

TCDH 

F A , 1 5AA 

119 

YNBPI P 

1335 

207 

DL  109 

E-3,  l A32 

11  A 

RSBBQ 

E3,1552 

115 

XKEP 

E3 , 1776 

1 17 

OLDAGS 

EA, 1552 

119 

ZNBP  IP 

1335 

2C9 

DL  206 

63, 1A3A 

1 1 A 

LCNGEXIT 

E3, 1552 

115 

XPREV 

E A , 1A00 

118 

WRFNDPOS 

FA, 1560 

119 

BASFTHP 

1336 

111 

DNLRALT 

1 3, 1A36 

1 1 A 

PHSNAME1 

E3.155A 

116 

RRECTCSM 

EA,  1 AOO 

122 

TR ANSM1 

EA, 1560 

119 

VONE' 

1336 

206 

DL101 

E3 , 1A37 

1 1 A 

PHS8B1 

E3.155A 

116 

RRECTOTH 

EA.1A01 

1 18 

WRENDVEL 

EA, 1566 

119 

RFA  ILCNT 

1336 

2C7 

DL110 

E 3 , 1 A AO 

1 1 A 

PHSNAME2 

E3, 1562 

116 

VRECTCSM 

EA , 1A0  2 

1 18 

WSHAFT 

FA, 1567 

120 

EPS  ILCNT 

1336 

209 

DL207 

E3, 1AAI 

1 1 A 

PHSBB2 

E3.1570 

116 

T-OTHER 

EA, 1A03 

1 18 

WT  RUN 

EA, 1571 

119 

BASEOTV 

1337 

1 ll 

BALLEXIT 

E3 , 1 A A 2 

1 IA 

PHSNAME3 

63,1570 

116 

TETCSM 

FA  , 1A0 A 

1 18 

RM  AX 

FA, 1571 

120 

HPFRMIN 

1 340 

111 

DAPDATR1 

63, 1AA3 

1 1 A 

PHSeB3 

E3, 1570 

116 

TETOTHER 

EA,  1A05 

118 

VMAX 

EA, 1571 

120 

WWPOS 

1 3 A 1 

1 11 

TEVFNT 

E 3 , 1 AAA 

1 1 A 

PHSNAMEA 

E3.1572 

116 

DEL  T AC  SM 

EA.1A06 

1 18 

WSURFPOS 

FA, 1571 

120 

YLFM 

1 3 A 3 

111 

DB 

E3, 1AA5 

l IA 

PHSBBA 

63,1600 

116 

NUVCSM 

E A , 1 AO  7 

110 

WSURFVEL 

FA, 1571 

122 

AGS  BUFF 

1 3 A3 

1 1 1 

DBVAL 1 

E 3 , 1446 

1 1 A 

PHSNAME5 

E3 , l 606 

116 

RCVCSM 

EA  , IA  10 

1 18 

SHAFT V AR 

EA, 1571 

122 

ALPHA  SB 

13AA 

1 1 1 

A2 

E 3 , 1AA7 

11A 

PHSBB5 

E 3 , 1 6 1 A 

116 

VCVCSM 

FA, 1AI  1 

118 

TRUNVAR 

EA, 1571 

122 

PITCHANG 

1 3A5 

111 

EL 

E3 , 1 A 50 

1 1 A 

PHSNAME6 

E3.1622 

116 

TCCSM 

FA,  IA  12 

118 

50ALM 

E A, 1571 

122 

RR-AZ 

13A6 

1 11 

WCHPHASE 

E3 , 1 A 5 1 

1 1 A 

PHSBB6 

E3 , 1 62A 

116 

XKEPCSM 

EA,  1A20 

1 18 

RLS 

EA, 1571 

122 

RSTACK 

l 3 A 7 

1 12 

E3J22R2M 

63, 1A52 

L 1 A 

PBI ASX 

E3, 1626 

116 

RRECTHI S 

EA,  1A22 

122 

ALFDK 

FA, 1573 

120 

RPADTEM 

1350 

1 12 

E32C31RM 

E 3 , 1A  52 

L 1 A 

PIPABIAS 

E3 , 1 626 

116 

RRECTLEM 

EA,  1A26 

118 

TL  AND 

EA, 1573 

120 

WWVEL 

1351 

l 12 

TRUNNCMD 

E3, 1A53 

11A 

PIPA.SCF 

E3, 163A 

1 16 

VRECTLEM 

EA,  IA30 

118 

PBODY 

EA, 1573 

120 

YDOTLFM 

1352 

1 L2 

SHAFTCMD 

E3, l A53 

11A 

PIPASCFX 

E 3 , 1 6A2 

116 

TETLEM 

EA, IA31 

118 

ALPHAV 

FA, 1573 

122 

BET  ASR 

1353 

1 12 

FL6IAS 

E 3 , 1A5A 

HA 

PBI ASY 

E 3 , 1 6A2 

116 

TETTHI S 

EA,  1A37 

118 

BETAV 

EA, 1573 

122 

RR-ELEV 

1353 

1 12 

WHCHREAD 

E3, 1 A 55 

11A 

PIPASCFY 

F3, IbAA 

116 

DELTALEM 

EA  , 1AA5 

1 18 

PHIV 

FA, 1573 

122 

YAWANG 

135A 

1 12 

TOOFEW 

E 3 , 1 A 56 

11A 

PBIASZ 

63,1652 

116 

NUVLEM 

EA,  1A53 

118 

PS  IV 

EA, 1575 

120 

PHI  LEM 

1355 

1 12 

SERVDURN 

E3, 1A57 

11A 

PIPASCFZ 

E 3 , 1 660 

116 

RCVLEM 

EA.1A61 

118 

FV 

EA, 1575 

120 

T ST  AR  T 8 2 

1356 

1 12 

DUMLOOPS 

E 3 , 1 A60 

11A 

NBDX 

C3, 1666 

116 

VCV  LEM 

EA,  1A67 

1 18 

ALPHAM 

EA, L575 

120 

WWB I AS 

1356 

2C6 

CL  106 

E3, 1A61 

11A 

NBC  Y 

E 3 , 1 67A 

L 1 6 

TCLEM 

EA,  1A71 

1 18 

BFTAM 

EA, 1575 

122 

RLM 

1356 

2C9 

DL2C9 

E 3 , 1 A62 

1 IA 

NBDZ 

63,1676 

116 

XKFPLEM 

EA,  1A73 

1 18 

TAU. 

FA, 1577 

120 

RONE 

1356 

2 11 

DL301 

E3, 1 A63 

115 

AD  1AX 

E 3 , 1 700 

116 

X78  9 

E A , 1 A 75 

1 19 

DT/2 

EA, 1577 

122 

RPASS36 

1356 

213 

DLA  1 1 

E 3, 1 A6A 

115 

AOI  AY 

E3.1706 

116 

TEPHEM 

EA, 1A77 

1 19 

H 

FA, 1605 

120 

VONE 

1356 

211 

DL  609 

E 3, l A65 

115 

ADI  AZ 

£3,1706 

117 

TIMSUBO 

EA.1501 

1 19 

IRETURN 

E A, 1605 

122 

UNP36 

1357 

112 

SELFERAS 

E 3 , 1 A66 

115 

ADSRAX 

63,1711 

116 

— AYO 

FA, 1502 

1 19 

NORMGAM 

EA, 1606 

122 

AGS  BUFF  E 

1357 

112 

SFAIL 

E3, 1A67 

115 

AOSRAY 

£3,1713 

116 

AXO 

EA, 1503 

1 19 

BASETHV 

EA, 1613 

120 

RANGE 

1360 

1 12 

ERESTORE 

E3, 1A70 

1 1 5 

ADSRAZ 

E3,l 715 

116 

RtCSM) 

E A, 1503 

119 

RPQV 

EA, 1615 

120 

PRATE 

1361 

112 

SELFRET 

E3, 1A71 

115 

COMMAND 

E3.1715 

116 

R-OTHER 

EA, 1511 

1 19 

KEPRTN 

EA, 1617 

120 

RTHETA 

1 362 

1 12 

SMODE 

63,1471 

115 

GCOMP 

E 3 , 1 723 

116 

V(CSM) 

E A , 15 1 1 

l 19 

ORIGEX 

FA, 162 1 

121 

GSA  V 

1363 

1 12 

ADR 

E3 , 1 A 7 A 

115 

CDU IND 

E3, 1723 

116 

V-OTHER 

EA,  1512 

1 19 

BASETIME 

EA, 162 1 

121 

KEL 

1365 

1 12 

ERCOUNT 

E3.1477 

115 

GCGMPSW 

E 3 , 1 73 1 

117 

REFSMMAT 

EA,  1512 

1 19 

HA  POX 

EA, 162 1 

121 

ME  I 

1 366 

1 12 

SCOUNT 

E3, 1500 

115 

DIFEQCNT 

F3, 1753 

117 

ACTCENT 

E A , 1 5 1 2 

119 

RPSV 

EA, 162 1 

121 

MFS 

13  71 

112 

SKEEP1 

E3, 1501 

115 

UPS VFLAG 

E 3 , 1 755 

117 

LS2  IX 

F A ,.  1 5 1 A 

119 

HPFRX 

r 4 , 1621 

123 

ANGTERM 

1372 

l 12 

SKEEP2 

63,1502 

115 

RRECT 

E 3 , 1 7 56 

117 

LOS VEL 

EA, 1520 

1 19 

XKEPNEW 

E A, 1627 

121 

YNBSAV 

1373 

l 12 

SKEEP3 

F3, 1510 

115 

VR6CT 

E3 , 1 756 

117 

VSUBC 

E A , 1 522 

119 

VFCTAB 

EA, 1635 

121 

ZNBSAV 

1 37A 

1 12 

SKEEPA 

63,1516 

115 

TFT 

E 3, 1 76A 

117 

MLOSV 

r A , 15  30 

1 19 

BASEOTP 

EA, 1635 

215 

DL501 

1375 

1 13 

SKEEP5 

F3, 1520 

115 

TOELTAV 

E 3, 1766 

117 

RANGEVAR 

FA, 1530 

120 

V82F  LAGS 

r A , 164  3 

121 

+ MGA 

1376 

113 

SKEEPo 

E 3 , 1 526 

115 

TNUV 

£3,1770 

117 

RATEVAR 

EA , 1531 

120 

TFF 

EA, 1643 

121 

T 1T0T2 

1377 

1 13 

SKEEP7 

E 3 , 1 5 3A 

115 

RCV 

63,1772 

117 

RVARMIN 

EA,  1533 

120 

-T  PER 

FA, 1 6 A 5 

121 

T2TOT3 

E 3 , 1 AOO 

1 1A 

L ST  1 

C 3, l 5A2 

115 

VCV 

63,1773 

117 

VVARMIN 

EA, 1536 

119 

XNBPIP 

EA, 16A7 

121 

ELF  V 

GAP 
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PAGE 
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DEF 

PAGE 
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DEF 

PAGE 

SYMBOL 

DEF 

PAGE 

SYMBOL 

£4,1651 

121 

UNRM 

EA, 1747 

124 

ATR 

E 5 , 1 A 34 

125 

VAPFG* 

E5, 1474 

126 

TAUHZ 

E5, 1550 

133 

DELM 

E4.1651 

121 

UP1 

EA,  1750 

123 

LMVEL 

£5,1434 

132 

A I NLA 

F 5 , 1474 

132 

INTZ 

F 5 , 1 5 5 1 

126 

J2P ARM 

EA, 1653 

123 

AT 

EA,  1751 

124 

ATP 

E 5 , 1434. 

132 

GEN  PL 

E 5 , 1475 

126 

QHZ 

£5,1553 

126 

K2P ARM 

EA, 1655 

123 

VE 

EA, 1753 

124 

YAW 

E5.1A3A 

132 

WANGO 

E5.1476 

126 

AHZL I M 

£5,1555 

126 

THETCRIT 

EA.1657 

121 

DELVEET1 

EA, 1755 

124 

PITCH 

E 5, 1436 

125 

ABRFG* 

E5 ,1476 

132 

ANGY 

F5, 1557 

126 

RAMIN 

C A , 1 6 5 7 

123 

TTO 

FA, 1756 

123 

DELVEET3 

E5.1A36 

132 

WANG  I 

E5.1477 

126 

2LATE466 

F5, 1560 

133 

WPLAT  I 

FA, 1661 

123 

TBUP 

EA, 1 764 

123 

RTSTOEX 

E5, 1436 

829 

AUG2TTF 

E 5 , 1500 

132 

ANGX 

E5, 1561 

126 

YLIM 

E A , 1 6 63 

123 

PDOTD 

EA, 1765 

' 123 

RTSTMAX 

£5,1440 

125 

AAPFG* 

F5 , 1502 

132 

DP  IFTO 

F5, 1562 

133 

GEOCOMPS 

EA , 1 665 

121 

DELVEET2 

EA, l 766 

123 

RTSTBASE 

E5.1AA0 

132 

TEMPADD 

E5 , 1503 

126 

DELOF  IX 

F5, 1563 

127 

A8TRDCT 

E A , 1 6 6 5 

123" 

YDOTD 

FA, 1767 

123 

RTSTLOC 

E5.1AA0 

132 

TORQNDX 

E5 , 1504 

132 

OR  IFTI 

E5, 1563 

133 

ERCOMP 

E A , l 6 67 

123 

ZDOTD 

FA, 1770 

123 

RSAMPDT 

E5.1AA0 

132 

WANGT 

E5.1510 

132 

VLAUN 

E 5 , 1565 

127 

C.0STHET1 

E A , 16  7 1 

124 

/R/MAG 

EA, 1771 

124 

N26/PRI 

E5, 1441 

132 

TFMP 

E5, 1511 

126 

LRVMAX 

E5, 1567 

127 

C0STHET2 

E A , 1 6 73 

121 

DVLOS 

E A , 1 77  2 

124 

N26/2CAD 

E 5 , 1 442 

125 

JBRF&* 

E5 , 1512 

126 

LRVF 

E 5 , 1571 

127 

CG 

E A , 1 6 73 

121 

R ACT  1 

E 5 , 14k  ; 

125 

VELBIAS 

E 5 , 1 44  2 

132 

DRIFTT 

E5 , 1512 

132 

ACCWD 

F5, 1571 

127 

JPARM 

EA, 1673 

124 

LAXI  S 

E 5 , 1 AOO 

125 

W 

E5, 1442 

132 

NOBITS 

E5 ,15  13 

126 

LRWVZ 

£5,1571 

133 

ZERONDX 

EA.17C1 

121 

P ACT  2 

E5, 1400 

132 

AZIMUTH 

E5, 1442 

829 

JDG2TTF 

E5 , 1514 

126 

LRWVY 

F5, 1572 

133 

1SECXT 

EA.17C1 

121 

ULOS 

E5, 1402 

125 

•R8RFGX 

E5, 1443 

132 

CHAN 

E5 , 15  15 

126 

LRWVX 

E5, 1573 

127 

KPARM 

EA, 1 701 

1 2 A 

YDOT 

E 5 , 1 AO  2 

132 

LATITUDE 

E 5 , 1 444 

125 

JAPFG* 

E 5 , 1516 

126 

LRWVFZ 

E5, 1573 

133 

ASECXT 

E A , 1 703 

124 

ZDOT 

E 5 , 1 A02 

829 

RDG 

E5 , 1 444 

132 

ALX1S 

E5 , 15  17 

126 

lrwvfy 

E 5, 1574 

133 

PERFDLAY 

E A , 1 7 05 

1 24 

GEFF 

E5.1A0A 

125 

RAPFGX 

E5, 1444 

132 

LUS1 

E5 ,1520 

126 

LRWVFX 

F5, 1575 

127 

RP 

EA, 17C7 

121 

HAPO 

E5.1A0A 

132 

ERVECTOR 

E 5, 1445 

132 

CMP  XI 

E 5 , 1520 

133 

POSNV 

F 5 , 1576 

133 

OVFLOWCK 

E A , 1 7C  7 

121  ' 

NOMTPI 

E5, 1A06 

125 

RBRFGZ 

E5, 1446 

125 

GAI NBRAK 

E5 , 152 1 

126 

LRWVFF 

F5, 1577 

127 

OAX  1 S 

EA.17C7 

121 

RTSRl/MU 

E5 , 141  ) 

125 

RAPFGZ 

£5,1446 

132 

ALK 

E5 , 1522 

126 

ABSCO 

E5, 1605 

127 

ZAX I SI 

EA.17C7 

1 24 

G(CSM) 

E5 , 14 12 

125 

VBRFGX 

E 5 j 1 450 

125 

GAI NAP  PR 

E5 , 1522 

133 

DP  IP  AY 

F 5 , 16  13 

127 

OIJTOFPLN 

E A , 1 7 1 l 

121 

HPER 

E5,  1412 

132 

LENGTHOT 

E5, 1452 

125 

TCGF8RAK 

E5, 1523 

126 

A 8 SC  1 

£5,1613 

127 

RANGE DSP 

E A , 1 7 1 1 

121 

R T MU 

E 5 , 1A  12 

829 

VDG 

E 5 , 1452 

132 

LOS  2 

E 5 , 1524 

126 

A BSC  2 

£5,1615 

127 

VBI  AS 

EA, 1 / 13 

122 

R I N I T 

E5, 14  13 

132 

LOSVEC 

£5,1452 

133 

THETAN 

E 5 , 1525 

126 

A8SC3 

F5, 1623 

127 

RGU 

E A, 17  15 

1 2 A 

WM 

E 5 , 1 A 1 A 

125 

VAPFGX 

E 5, 1 453 

125 

TCGI8RAK 

£5,1526 

126 

ABSC4 

E5, 1631 

127 

DL  AND 

EA.1721 

122 

VINIT 

E 5 , 1 4 l A 

132 

NDXCTR 

E 5, 14 54 

125 

TCGFAPPR 

E5 , 1526 

133 

DP  IPAZ 

E 5 , 1631 

127 

DLANDX 

E A, 1723 

l 24 

/LAND/ 

E 5 , 1 A 1 5 

132 

PIP  INDEX 

E5, 1455 

125 

TCG I APPR 

E5, 1527 

126 

SLOPEO 

£5,1633 

127 

DL ANDY 

E A , I 7 2 5 

1 2 A 

Y 

E5, 1416 

125 

VBRFGZ 

E5, 1456 

125 

VIGN 

E 5 , 1530 

126 

SL  OPE  l 

E5, 1635 

127 

DLANDZ 

EA,1 727 

123 

V I PR  IMF 

E 5 , 1 A 16 

132 

POSITON 

E 5 , 1 460 

125 

RIGNX 

E5 , 1530 

133 

ALT  IM 

E5,  1637 

127 

ASCSAVE 

EA.1727 

124 

ORDOT 

E5, 14  17 

132 

QPLACE 

E5, 1460 

133 

F I L DEL  V 

£5,1531 

126 

SL0PE2 

£5,1642 

125 

ENDW 

FA, 1731 

1 2 A 

CYDOT 

F5.1A20 

125 

VAPFGZ 

E5, 1462 

125 

RIGNZ 

E5.1531 

133 

ALTIMS 

E5, 1642 

127 

XSM 

E A , 1 7 33 

1 24 

DZOOT 

E5.1A20 

132 

QPLACES 

E5, 1462 

132 

VLAUNS 

E5 ,1532 

126 

SL0PE3 

F5, 1642 

130 

DEL  X 

EA ,1 7 35 

123 

FDA  I X 

E5, 1421 

132 

SOUTHDR 

E5, 1462 

133 

INTVEC 

E5 , 1532 

133 

ALDK 

E5, 1642 

131 

Z I 

EA, 1 735 

1 24 

PCONS 

E5, 1422 

125 

ABRFGX 

E5, 1464 

125 

K IGNX/B4 

E 5 , 1533 

126 

SL0PE4 

E 5 , 1644 

130 

DELT 

EA, l 736 

123 

FDA  IY 

E 5, 1422 

829 

ADG 

E 5 , 1 464 

132 

WPLATO 

E 5 , 1534 

126 

RODSCALE 

£5,1646 

130 

URRECT 

EA , 1 7 3 7 

123 

FDA  I Z 

E 5 , l A2A 

125 

AAPFGX 

E 5 , 1 466 

126 

KIGNY/88 

E5 , 1535 

126 

TAUROD 

E5, 1650 

127 

YSM 

EA, 1737 

124 

YCONS 

E 5 , 1 A 26 

125 

A8KFGZ 

£5,1470 

126 

KIGNV/B4 

E5 , 1537 

126 

LAG/TAU 

E 5 , 1 6 54 

130 

RVEC 

E A , 1 7 AO 

1 2:> 

DEL VTPF 

E5, 1430 

125 

AAPFGZ 

E5, 1470 

132 

INTY 

E5 , 1537 

132 

RFSULTCT 

F5, 1654 

130 

R1VEC 

F A , 1 7 A 1 

1 24 

PRATE 

E5, 1430 

132 

TFMPTI ME 

E5, 1472 

126 

LOWCRIT 

E5 , 1541 

126 

MINFORCE 

E5, 1656 

127 

ZSM 

E A , l 7 A 2 

123 

LMPOS 

E5 , 1432 

125 

VBRFG* 

E5, 1472 

132 

ANGZ 

E5 , 1543 

126. 

MAXFORC  E 

E 5, 1662 

130 

R2VEC 

EA,  1743 

124 

YRATE 

E5.1A32 

132 

TMARK 

E5, 1472 

132 

DAT  APL 

E 5 , 1545 

126 

J 1 P ARM 

E5, 1664 

127 

XDC 

FA, 17A5 

124 

ATY 

E5, 1432 

829 

VDG2TTF 

E5.1473 

126 

HIGHCR  I T 

E5 , 1547 

126 

KIPARM 

F5, 1664 

127 

XNB 

GAP 
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PAGE 
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E 5 , 1 6 64 

131 

CELTAX 

E 5 , 1 74 1 

128 

IGC 

E 6 , 1 4 16 

134 

M3 1 

F6, 1454 

135 

PLAST 

m 

O' 

VJ1 

213 

DL403 

E 5 , 1 6 64 

131 

TRIPA 

E5, 1741 

130 

R 1 A 

E 6 , 1 4 17 

134 

M22 

E6.1455 

135 

OLAST 

E6, 1517 

217 

DL607 

E 5 , l 6 6 7 

131 

TEMP VAR  ' 

E5,l 741 

209 

DL217 

E6, 1420 

134 

M32 

E 6 , 1456 

135 

RLAST 

E6, 1520 

138 

NEGTDRKV 

E 5 , 1 6 70 

130 

TCESIRED 

F 5 , 1 743 

128 

MGC 

E6, 1421 

134 

OMEGAP 

F6 , 1457 

135 

TCOR 

F6, 1520 

206 

DL  105 

E5a672 

127 

YCC 

E5, 1743 

130 

VVEC 

E6, 1422 

134 

OMEGAQ 

£6,1460 

135 

OLDPMIN 

F6, 1520 

209 

DL203 

E 5 , 1 6 7 2 

127 

YNB 

r 5, 1743 

209 

DL218 

E6 , 1 422 

20  7 

DL1  14 

F6 , 1461 

135 

OL DORM  IN 

F 6,  1520 

211 

DL305 

E 5 , 1 6 7 2 

130 

GEOMSGN 

E5, 1 745 

128 

QMIN 

E6, 1422 

207 

DU  2 5 

£6,1462 

135 

SA  VF  HAND 

F6, 1520 

213 

DL404 

E 5 , 1 6 7 3 

130 

UN 

E 5, 1746 

123 

QMAJ 

£6,1422 

215 

DL507 

E6, 1464 

135 

PERROR 

E6, 1520 

217 

DL608 

E5 , 1 7C0 

127 

zoc 

E5, 1747 

128 

OGC  T 

E6, 1423 

134 

OMEGAR 

F6.1465 

135 

NXT6ADR 

E6, 1521 

138 

NO. P JET  S 

E5 , 1 7 CO 

127 

ZN8 

E5, 1 751 

130 

ECC 

£6,1423 

207 

DL  1 1 5 

E6, 1466 

135 

T6NE  XT 

E6, 1522 

138 

NO.UJETS 

F 5 , 1 7 C 1 

130 

V TARGTAG 

E 5, 1 753 

130 

RTNPRM 

E6 ,1423 

207 

DL126 

E6.1470 

135 

T6FURTH A 

£6,1523 

138 

NO.VJETS 

E 5 , 1 7 C 2 

130 

VTARGET 

E5, 1.754 

130 

SGNRDOT 

E 6 , 1 42  3 

215 

DL  5 08 

E 6 , 1472 

135 

NEXTP 

E6, 1524 

138 

TJP 

E5, 1 7C6 

128 

CULTR IX 

E 5, 1 755 

128 

BESTI 

£6,1424 

134 

ALPHAQ 

E 6 , 147  3 

135 

NEXTU 

E6, 1525 

138 

TJU 

E 5 , 1 706 

128 

G ACC 

F5, 1755 

130 

ROE  S I RED 

£6,1425 

134 

ALPHAR 

£6,1474 

135 

NEXTV 

£6,1525 

139 

TJFTU 

E5.17C6 

128 

LANDLAT 

E 5, 1 756 

128 

BESTJ 

E 6 , 1 42  5 

207 

DL  1 32 

£6,1475 

135 

-2 JETLI M 

F6, 1526 

138 

TJV 

E5.17C6 

128 

STARAD 

E5, 1756 

209 

DL2  19 

E6, 1425 

215 

DL5  14 

E 6 , 1476 

135 

— R ATEDB 

E 6 , 1527 

138 

L , PVT-CG 

E 5 , 1 706 

128 

VFARTH 

E5, 1757 

128 

STARIND 

E6, 1426 

134 

OMEGAU 

F 6 , 1476 

135 

TARGETDB 

E6, 1530 

138 

1JACC 

F 5 , 1 7 C6 

131 

VARIANCE 

E5, 1757 

130 

DELUEP 

E6 , 1426 

135 

URATEDIF 

E 6 , 1477 

136 

RFTJADR 

E 6 , 1 5 3 l 

138 

1 JACCO 

E5.1710 

128 

LAND! 

E5, 1757 

130 

TERRLAMB 

E6, 1427 

134 

OMEGAV 

E 6 , 1500 

1 36 

SFNSETYP 

E 6 , 1532 

138 

1JACCR 

E5,l 7 10 

130 

RTNAPSE 

E5, 1760 

128 

STARSAV  1 

£6,1427 

135 

EDOTP 

E6.1501 

1 37 

NEGUQ 

E6, 1533 

138 

1JACCU 

E5.17  10 

130 

RTNLAMB 

E5, 1761 

130 

DEPREV 

E6, 1427 

135 

VRA  TED  IF 

E6.1502 

139 

ALLOWGTS 

E6, 1534 

138 

SKIPU 

E5,17  10 

130 

PTNTR 

E5, 1761 

130 

TPREV 

£6,1427 

138 

EDOT 

E6, 1503 

137 

NEGUR 

F6, 1535 

1 38 

SKIPV 

E 5 , l 7 1 0 

130 

RTNTT 

E5, 1763 

130 

EPSILONL 

E6, 1430 

134 

TRAPEDP 

E6.1504 

137 

KO 

E6, 1536 

138 

AOSQ 

F5 , 1 7 1 1 

130 

U2 

E5, 1765 

130 

COGA 

E 6 , 14  3 1 

134 

TRAPEDQ 

E6, 1505 

137 

AX ISCTR 

E6, 1540 

138 

AOSR 

E5.17  11 

131 

GRP2SVQ 

1 r , 1 765 

130 

INDEP 

. £6,1432 

134 

TRA  PEDR 

E 6 , 1505 

137 

SAVESR 

E6, 1542 

138 

Ansu 

F5,l 7 12 

128 

LANDALT 

E 5 , l 766 

128 

STARSAV  2 

E6, 1433 

134 

NPTRAPS 

E 6 , 1506 

137 

KRDAP 

£6,1543 

138 

AOS  V 

E 5 , 1 7 1 2 

131 

CMEGAM1 

E5, 1767 

131 

EGRESS 

E6, 1434 

135 

NQT RAPS 

E6 , 1507 

137 

ACCDOTQ 

E 6 , 1544 

138 

AOSOTERM 

E5,17  14 

128 

GOUT 

£5,1774 

128 

TAL  IGN 

E6, 1435 

135 

NRTRAPS 

E6 , 1 5 10 

137 

QACCDOT 

F6, 1545 

138 

AOSR  T ERM 

E5, 17  14 

128 

V SUN 

E5, 1776 

129 

RTX  1 

E6, 1436 

135 

EDOTQ 

E6 , 1511 

137 

ACCDOTR 

E 6, 1546 

139 

ACC  SWU 

E 5 , 1 7 1 7 

130 

MAGVEC2 

E5, 1777 

129 

RT  X 2 

£6,1 436 

135 

QRATEDIF 

E6 , 15 12 

137 

R ACC  DOT 

E 6 , 1546 

139 

BLOCK  TOP 

E 5 , 1 7 1 7 

130 

R2 

£5,1777 

133 

END-E5 

£6,1437 

135 

EDOTR 

E 6 , 15 13 

137 

DOWNTORK 

E6, 1547 

139 

ACC  SW V 

E 5 , l 720 

131 

CMEGAM2 

E6, 1400 

134 

HIASCENT 

F6, 1437 

135 

RRATEDI F 

E6.1513 

137 

POSTORKP 

E6, 1550 

1503 

1/ANETP 

E 5 , l 7 2 1 

130 

UR  1 

E6, 1401 

134 

ROLLTIME 

£6,1440 

135 

OLDXFORP 

£6,1514 

137 

NEGTORKP 

F6, 1552 

1 503 

1/ACOSTP 

E5,l 722 

128 

VMOON 

E6, 1402 

134 

PITTIME 

E 6 , 1441 

135 

OLOYFORP 

E 6 , 1514 

207 

DL  133 

E 6 , 1554 

139 

FLAT 

E5,172< 

131 

C MEGA M3 

E6, 1403 

134 

DKTRAP 

E6, 1442 

135 

OLOZFORQ 

E6.1515 

137 

POSTORKU 

F6, 1555 

139 

ZONE  3 L I M 

E5,l 727 

130 

SNTH 

Eh, 1404 

134 

OKOMEGAN 

E 6 , 1 44  3 

135 

CH31TEMP 

F 6 , 1 5 1 6 

138 

NEGTORKU 

E6, 1556 

1503 

PACCFUN 

E 5 , 1 7 30 

128 

SAX 

£6,1405 

134 

DKKAQSN 

E6, 1444 

135 

STIKSENS 

E6.1516 

206 

DL  103 

F6, 1560 

1 503 

PDBl 

E5,l 730 

120 

STAR 

E6, 1406 

134 

LMTRAP 

E6, 1445 

135 

TCP 

E6.1516 

209 

DL  20 1 

E6 , 156 1 

1503 

PDB  2 

E5,l 731 

130 

C ST  H 

E6, 1407 

134 

L«CMEGAN 

£6, 1446 

135 

DXERROR 

E6.1516 

211 

0L303 

F6, 1562 

1503 

PDB4 

E5,l 733 

130 

1-CSTH 

E6, 1410 

134 

LMKAOSN 

E6, 1450 

135 

DYERROR 

£6,1516 

213 

DL402 

F 6 , 1563 

1503 

PDB3 

£5,1734 

131 

HOLOW 

E6, 1411 

134 

DKDB 

E6, 1450 

135 

QERROR 

E6, 1516 

217 

DL  606 

E6, 1564 

1503 

PAXDI ST 

E5,l 735 

130 

CSTH-RHO 

E6, 1412 

134 

IGNAOSQ 

£6,1450 

137 

QDIFF 

E6, 1517 

138 

POST  ORK  V 

E 6 , 1566 

139 

l/ANETl 

E5,l 736 

128 

GCTR 

E6, 1413 

134 

IGNAOSR 

E6, 1452 

135 

DZERROR 

E6 , 1517 

206 

DL  104 

E 6 , 1567 

139 

1/ANET2 

£5,1737 

128 

OGC 

E6 , 1414 

134 

Mil 

E6, 1452 

135 

RERROR 

£6,1517 

209 

DL  202 

E6, 1572 

139 

1/ACOAST 

E5.1737 

130 

P 

E6, 1415 

134 

M2  1 

£6,1452 

137 

RDI  FF 

E6 , 1517 

211 

DL  304 

E 6 , 15  7 4 

139 

ACCFCTZ 1 

GAP 
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PAGE 
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E6.1575 

139 

ACCFCTZ5 

E6, 1671 

141 

UNFVZ/2 

£6,1 743 

141 

DAP  TEMP6 

E7 , 142  1 

144 

LPWH 

£7,1471 

147 

VACT1 

E6.1600 

139 

FIREDB 

E6, 1673 

141 

-DELGM3 

E6.1744 

137 

DEL 

£7, 1422 

144 

ZOOMT IMF 

F7, 1471 

150 

RTARG  1 

E6.1602 

139 

COASTDB 

£6,1675 

140 

BCDU 

£6,1744 

137 

JETRATE 

F7, 1423 

144 

TENDBRAK 

£7, 1471 

151 

TX789 

E6.1604 

139 

A X I SO  1ST 

E6, 1676 

141 

OGABI AS 

£6,1744 

138 

HOLDQ 

F7, 1423 

145 

REPOSCNT 

F 7,  1471 

154 

ABVEL 

E6, 1626 

139 

COEFFQ 

F6, 1700 

140 

KSPNDX 

£6, 1 744 

141 

DAPTREG1 

F7 , 1424 

144 

TENOAPPR 

E 7 , 1473 

154 

HDOTOISP 

E6, 1627 

139 

COEFFR 

E6.1701 

140 

KDPNDX 

E 6 , 1 74  4 

141 

OLDSENSE 

£7,1424 

145 

REPOSTM 

F 7 , 1473 

154 

ROOT 

E6.1630 

139 

COT  ROLFR 

£6,1702 

140 

MF I SYM 

E6.1745 

137 

A2CNTRAL 

E 7 , 1425 

144 

oflttfap 

£ 7, 1475 

154 

TTFDI SP 

£6,1631 

139 

QGIMT  IMR 

£6,1702 

140 

NCDU 

£6,1745 

137 

JETRATEO 

£7,1426 

144 

LFADTIMF 

£7,1477 

147 

RAPREC 

£6,1632 

139 

INGTS 

£6,1702 

140 

T MF  I 

£6,1745 

137 

SCRATCH 

E7, 1426 

145 

DELTATM 

F 7, 1477 

147 

RPASS1 

E 6 , 1 6 33 

139 

RGIMT  IMR 

£6,1702 

140 

TMIS 

£6,1745 

138 

ADRSDIF 1 

£7 , 1427 

144 

RPCRT IME 

F7, 1477 

151 

GAMMA 

E 6 , 1 634 

139 

CDUXD 

E6 , 1 705 

140 

NEXTIME 

E6 , 1745 

141 

DAPTREG2 

E 7 , 1430 

144 

RPCRTQSW 

F 7 , 1477 

154 

SAVET-30 

E6.1634 

140 

DCDU 

£6,1706 

140 

TTEMP 

E6, 1746 

137 

HALFARG 

E 7 , 143 1 

144 

TNFWA 

F 7 , 1501 

154 

delvctl 

£6,1635 

L39 

CDUYD 

E 6 , 1724 

■ 140 

BRATE 

£6,1746 

137 

JETRATER 

£7, 1433 

145 

DELVLVC 

E 7 , 1501 

154 

VGBOOY 

E6, 1635 

2C7 

DL  1 16 

E6, 1724 

140 

COFSKEW 

E6.1746 

138 

HH 

£7,1433 

145 

DELVSLV 

F 7, 1501 

155 

TG01 

£6,1635 

2C7 

DL  127 

F6, 1724 

140 

VECQTEMP 

E6 , 1 746 

141 

UAPTREG3 

£7 ,1433 

158 

VHZC 

E 7 , 1502 

151 

OMEGA 

£6,1635 

215 

DL  509 

E 6 , 1 732 

140 

CAM 

£6,1747 

137 

QRCNTR 

£7,1441 

145 

TIG 

F 7, 1505 

147 

VAPREC 

E6, 1636 

139 

CDUZD 

F6, 1732 

140 

TM 

E6, 1747 

141 

DAPTREG4 

F 7, 144  3 

145 

RTARG 

E 7 , 1505 

147 

VPASSI 

£6,1636 

207 

DL  1 17 

£6,1734 

140 

AM 

E6.1750 

136 

UERROR 

£7,1451 

145 

DELLT4 

E7, 1505 

150 

VPASS4 

E 6 , 1 6 36 

2C7 

DL128 

E 6 , 1 736 

135 

TEMP31 

E6.1750 

137 

FUNCTION 

£7,1451 

145 

HLROFF 

E 7 , 1507 

154 

DVTOTAL 

E 6 , 1 6 36 

215 

DL  5 10 

E 6, 1736 

136 

ABSEDOTP 

E6, 1750 

141 

DAPTREG5 

E 7 , 145  3 

145 

TTOGO 

F 7 , 1511 

154 

G08LT IME 

£6,1637 

■L39 

DELCDUX 

E6, 1736 

136 

ABSTJ 

£6,1751 

136 

VERROR 

£7,1455 

145 

WHICH 

E7, 1513 

147 

VACT2 

£6,1637 

140 

DELDCOU 

E6, 1736 

136 

R0TEMP1 

£6,1751 

133 

E 

£7,1456 

145 

LOSCOUNT 

F7, 1513 

154 

ARDVCONV 

£6,1640 

139 

OELCDUY 

E6, 1736 

137 

GTSTEMPS 

. E6, 1 751 

141 

0APTREG6 

£7,1456 

157 

OVFRET 

F7, 1515 

154 

DVCNTR 

E6.I640 

140 

OELOCOUl 

£6,1736 

137 

K2THETA 

£6, 1 752 

141 

DAP ARUPT 

F7 , 1457 

146 

A I G 

£7, 1516 

154 

TGO 

£6,1641 

139 

DELCDUZ 

E6, 1736 

138 

EDOTSQ 

£6,1753 

14  1 

DAPLRUPT 

£7, 1460 

1 46 

AMG 

E 7 , 1520 

154 

R 

E6, 164  l 

140 

DELDCUU2 

£6,1736 

141 

DAP  T EMP 1 

E6.1754 

142 

DAPBORPT 

£7, 1460 

211 

0L312 

F 7 , 1520 

154 

UNITGOBL 

E 6 , 1 6 4 2 

139 

CMEGAPD 

E6, 1737 

136 

ROT  EM P 2 

E6, 1 756 

142 

DAPZRUPT 

£7, 1460 

213 

DL  40  8 

£7,1521 

147 

RPASS2 

£6,1643 

139 

CMEGAQO 

E6, 1737 

138 

ROTSENSE 

£6,1 760 

142 

AK 

£7 , 1460 

215 

DL516 

F7, 15? 1 

147 

RPPREC 

E6, 1643 

207 

DL121 

£6,1737 

141 

DAPTEMP2 

£6,1761 

142 

AK1 

F7, 1461 

146 

AOG 

£7, 1524 

151 

BVECTOR 

£6,1644 

139 

CMEGARD 

r 6 , 1740 

136 

POLY  I’-  IP 

E 6 , 1 762 

142 

AK2 

£7  , 1462 

146 

MARKCTR 

£7, 1524 

151 

XPLANE 

E 6 , 1 644 

207 

DL  122 

£6,1740 

137 

KCFNTRAL 

E 6 , 1 763 

142 

EDR I VEX 

F7, 1462 

146 

TPKMKCNT 

E 7 , 1526 

154 

OELVREF 

F 6 , l 645 

140 

ECOUW 

r6 , 1 740 

137 

SHF  TF LAG 

E 6 , 1 764 

142 

EDR IVEY 

E7 , 1462 

146 

VSELECT 

E 7 , 1526 

154 

V 

F 6 , 1 6 45 

140 

ECOUWUSR 

E6, 1 740 

138 

FIREFCT 

E 6 , 1 765 

142 

EDR  IVEZ 

F7, 1462 

211 

0L313 

£7, 1527 

147 

VPASS2 

£6,1645 

140 

MIS 

£6,1740 

141 

DA  P TEMP  3 

£6, 1766 

142 

PJETCTR 

£7,1462 

213 

0L409 

E 7, 1 5?  7 

147 

VPPREC 

£6,1645 

141 

VEC  1 

E 6 , 1 7 4 1 

136 

TEMPNUM 

E 6 , 1 767 

142 

UJETCTR 

F7 , 1462 

2 15 

DL  51  7 

£7,1532 

151 

YPL ANE 

£6,1646 

140 

CCOUWUSR 

E 6 , 1741 

137 

K2CNTRAL 

E 6 , l 7 70 

142 

VJFTCTR 

£7 , 1463 

146 

/AFC/ 

E7, 1534 

154 

HCALC 

E 6 , 1 6 4 7 

140 

NDXCDUW 

£6, 1 741 

138 

TTOAXI S 

£6,1771 

142 

AGSK 

£7,1463 

146 

NORMEX 

E7, 1535 

147 

RACT3 

E6, 1650 

140 

FLAGOODW 

E6, 1741 

141 

DAPTEMP4 

E6.1773 

142 

AZBI AS 

E7, 1464 

146 

QSAVED 

F 7 , 1536 

154 

UNIT/R/ 

£6,1651 

140 

UNFC/2 

£6,1742 

136 

NUMBERT 

E 6 , 1 7 7 4 

142 

RCSFLAGS 

£7,1465 

146 

FCODD 

F 7 , 1543 

147 

UNVEC 

£6,1653 

141 

VEC2 

£6,1742 

137 

WCENTRAL 

E6, 1775 

143 

END-E6 

E7 , 1465 

146 

RTRN 

£7, 1543 

147 

VACT3 

£6,1657 

141 

UNWC/2 

E 6 , 1 742 

141 

DAPTEMP5 

£7, 1400 

144 

AT  I G INC 

£7,1466 

146 

NN 

E 7,  1544 

154 

RNl 

E6, 1665 

141 

LNFV/2 

£6,1743 

136 

ROTINOEX 

£7, 1402 

144 

PTIGINC 

F 7 , 1467 

146 

FP 

E 7 , 1544 

156 

LANDTEMP 

£6,1665 

141 

UNFVX/2 

E6, 1 743 

137 

acentral 

£7,1404 

144 

AOTAZ 

E7 , 1470 

146 

SUREXIT 

E7, 1544 

156 

OUPTEMPS 

E 6 , 1 6 6 7 

140 

COF 

£6,1 743 

137 

ININDEX 

E7, 1412 

144 

AOTEL 

F7.1471 

146 

E 70V  ERL  A 

E 7 , 1546 

151 

DEL  T A Q 

E 6 , 1 6 6 7 

141 

UNFVY/2 

£6,1743 

138 

ADRSDIF2 

E7, 1420 

144 

LRHMAX 

E 7 , 14  7 1 

146 

WHOCARFS 

£7,1550 

151 

WHATMARK 

GAP 
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E 7 , l 5 5 l 

1 A 7 

RPASS3 

E 7,  1607 

1A7 

GAMPREV 

E7 , 16A2 

156 

TTE/8 

E 7 , 1675 

150 

RLMSRCH 

F7, 1731 

152 

S INTHETA 

E 7 , 1 55 1 

151 

XYMARK 

E7, 1607 

IA8 

INTIME 

E7.16A2 

160 

XRANGE 

E7, 1675 

151 

IGRET 

F7, 1732 

1A9 

SS 

E 7 , 1 5 52 

151 

MKDEX 

E7, 1607 

156 

RTNHOLD 

E7 , 1 6AA 

155 

NEW VEL 

E7, 1675 

151 

LGRET 

E7, 1732 

158 

LATVMFTR 

E 7, 1 5 52 

1 5A 

VN1 

E7.1610 

156 

EWE IGHT 

F7 , 16AA 

156 

AZINCRl 

E 7 , 1675 

151 

RDRFT 

£7,1733 

150 

DATAGOOD 

E 7 , l 55  2 

156 

TTF/3TMP 

E7, 1611 

1 A 7 

OELDV 

E 7, 1 6AA 

157 

VDGVERT 

E7, 1675 

155 

P21BASER 

F7, 1733 

152 

RRT  RUN 

E 7 » L.5  5 3 

151 

PLANVEC 

E7, 161 1 

1 A 7 

ISTRT 

E 7 , 1 6 AA 

160 

ENGOFFDT 

E 7 , 1675 

157 

ST  ILBADV 

E7, 1733 

158 

FORVMETR 

E7.155A 

156 

EL  I NCR 

£7,1612 

156 

PIE 

E 7 , 1 6A  5 

156 

EL  I NCR  1 

E 7, 1676 

151 

MX 

E 7 , 1733 

213 

OLA  1 0 

E 7 , 1 5 56 

156 

A Z I NCR 

E7, 1613 

1A7 

CSIALRM 

E7.16A5 

160 

VGVECT 

E 7 , 1676 

157 

G-VBIASX 

F 7 , 1 73 A 

1A9 

F 

E 7 , 1 5 57 

1A7 

VPASS3 

E7, 1613 

1 A 7 

TITER 

E 7 , 1 6A6 

156 

ZERL INA 

E7, 1677 

157 

G-VB  IASY 

F 7 , 1 73  A 

150 

OMFGAD 

£7,1560 

15A 

PIPTIME1 

E 7 , 16 1A 

155 

Y SC  REF 

E7.16A6 

157 

NIGNLOOP 

E7, 17  DO 

1 A9 

VGPREV 

E 7 , 1 7 3 A 

150 

OMEGD I SP 

E 7 , 1 5 60 

156 

KEEP-2 

E7, 16  1A 

155 

YSMD 

E 7, 16A7 

1A  8 

VTIG 

E7.1700 

IA9 

VGT  IG 

E 7 , 1 73  A 

158 

FORVEL 

E 7 , 1 56 1 

151 

T S I GH  T 

E 7 , 1 6 1 A 

156 

PSEUD055 

E 7 , 1 6A7 

159 

ELVIRA 

F 7 , 1700 

157 

G— VB I AS  Z 

F7, 1735 

152 

RRSHAFT 

E7, 1562 

15A 

GOI1/2 

E 7 , 1615 

IA7 

VERBNOUN 

E7.16A7 

157 

NGUIDSU6 

E7 , 1701 

157 

VSUR  FACE 

E 7 , 1736 

1A9 

MDOT 

E 7 , 1 5 6 2 

156 

TABLTTE 

E7, 1615 

156 

FC 

E7, 1650 

156 

LRPOS 

E7, 1703 

150 

VXRCM 

E 7 , 1 7 36 

150 

NSRCHPNT 

E 7, 15  63 

151 

THETEST 

E7, 1616 

1 A 7 

ROOT  V 

E 7 , 1652 

155 

NEW  PCS 

£7,1703 

155 

P2  1BASEV 

E 7 , 1736 

158 

TRUDELH 

E 7 , 1 565 

l A 7 

VACTA 

E7, 1616 

1A8 

ITCTR 

E7, 1952 

157 

VMEAS 

E 7 , 170A 

151 

MY 

E7, 1737 

150 

SAVLEMV 

E7.1565 

l A 8 

VTPRIME 

E 7 , 1 6 1 7 

156 

TTHROT 

E 7 , 1 6 5 3 

160 

TXO 

E 7 , 1706 

1A9 

V G 

E7, 1737 

152 

LRS22  .IX 

E 7 , 1 5 65 

151 

ESTER1 

E7.1620 

1 A 7 

CENTANG 

E 7, 1 65A 

157 

HMEAS 

F7, 1707 

157 

HCALC  LAD 

E 7 , 1 7 AO 

1A9 

TDECAY 

£7,1567 

151 

ESTER2 

E7, 1620 

156 

FCOLD 

E 7 , 1655 

1A8 

DELVSIN 

E7, 1711 

150 

LOSDESRD 

F 7 , 1 7 AO 

152 

RRBORSIT 

E7.157C 

15A 

DVCNTR1 

E7, 1621 

156 

E2DPS 

E7, 1655 

1A9 

IC 

E7, 1711 

155 

P21VFL 

F 7 , 1 7A2 

1A9 

VFX 

E 7 , 1 5 70 

15A 

MASS1 

E7, 1621 

156 

OURPERMS 

E 7 , 1 656 

157 

GNUR 

F 7 , 1711 

157 

HOOTLAD 

E 7 , 1 7 A 2 

767 

2VEXHUST 

E 7 , l 5 70 

160 

l/OVO 

E7, 1621 

156 

WCHPHOLD 

E7, 1656 

157 

GNU  V 

E7, 1712 

151 

MZ 

F 7 , 1 7A  A 

1A9 

I RFTURN 1 

E7, 1571 

151 

DELTHET 

E7, 1622 

1A8 

DEL  V IMU 

E7.1656 

157 

VN2 

E7, 1713 

155 

P21GAM 

E7.17A5 

152 

R65CNTR 

E 7 , 15  72 

15A 

R1S 

E7 , 1622 

155 

ZSCREF 

E 7 , 1 660 

155 

LNCHTM 

E7, 1713 

157 

DALTRATE 

F7, 17A6 

152 

NA9FLAG 

E 7 , 1 5 7 3 

1 A 7 

DEL  VCSI 

E7, 1622 

155 

ZSMD 

E7, 1662 

155 

TRANSTM 

E 7 , 1 7 1 A 

1A9 

RMAG 

E 7,  1 7 A6 

152 

RDOTMSAV 

E 7 , l 5 7 3 

IA7 

SECMAX 

E7, 1622 

159 

51 1CTR 

E 7 , 1 663 

1A8 

DEL VSAB 

E7 , 17  1A 

157 

RUNI TX 

E 7 , 1 7A6 

158 

RODCOUNT 

E7, 1573 

1 A 7 

TDEC2 

E7, 1623 

156 

CNTTHROT 

E7, 1663 

1 AO 

VGDISP 

E7, 1715 

155 

P21ALT 

E7, 1750 

152 

RDOTM 

E7.1573 

151 

NOMKCNT 

E7, 1623 

156 

FLPASSO 

E 7, l 66A 

155 

NCSMVEL 

E7, 1715 

157 

RUNI TY 

E7, 1750 

152 

THROI SP 

E 7 , 1 5 73 

156 

TP  I POL D 

E 7 , 1 6 2 A 

156 

TP  I P 

E7.166A 

157 

DELTAH 

F7, 1716 

1A9 

MUASTEER 

F7, 1752 

152 

GTCTIME 

E 7 , 1 5 7 A 

151 

BODY 

E7, 1626 

156 

VGU 

E 7 , 1665 

1A8 

QTEMP1 

E7.1716 

157 

RUNITZ 

£7,1752 

15? 

T ANGNB 

E 7 , 1 5 75 

1 A 7 

DELEL 

E 7, 1630 

1A8 

TPASSA 

F 7 , 1665 

1A8 

SAVQR52 

£7,1717 

150 

UXVECT 

E 7 , 1 7 5 A 

152 

MKT  IME 

E 7 , 1 5 75 

1 A 7 

DELVTP1 

E 7, 1630 

155 

END-AL  IG 

E 7 , 1 666 

1A8 

COZYA 

£7,1717 

157 

DT 

E7, 1756 

152 

RM 

F 7 , 1 5 75 

1 A 7 

DVPREV 

E7.1630 

155 

RSU8L 

E 7 , 1 666 

157 

FUN  N YD  SP 

E7 ,1720 

1 A9 

MU/A 

E 7 , 1756 

153 

RODSCAL 1 

E 7,1 575 

1A7 

KT 

E7, 1630 

160 

RCO 

E7, 1666 

157 

TREDES 

F7, 1720 

151 

SCALSHFT 

F 7, 1757 

153 

LASTTPIP 

E7, 1577 

L A 7 

DIFFALT 

E7, 1632 

1A8 

QTEMP 

E 7 , 1 667 

157 

LOOKANGL 

F7  , 1720 

1 57 

VVECTX 

E7, 1760 

15? 

RANGRDOT 

E 7 , 16C0 

1 5A 

VIS 

E7 , 1 632 

160 

YCO 

E7, 1670 

1A9 

XXX ALT 

E7, 1721 

152 

RXZ 

F 7, 1761 

158 

THISTPIP 

E 7, 16C  1 

1 A 7 

POSTCSI 

E 7 , 1633 

1 A 8 

TCS  I 

£7,1670 

157 

EOURPERM 

£7,1722 

1A9 

RTMAG 

E 7, 1762 

1A9 

TIGSAVE 

E7, 1603 

1 A 7 

HAFPA1 

E7.163A 

156 

LAND 

E7, 1670 

157 

LRLCTR 

E7, 1722 

153 

PIPCTR1 

£7,1762 

151 

XMKCNTR 

E7.16C3 

1A7 

POSTCDH 

E7 , 163A 

190 

1/DV1 

E 7 , 1 67 1 

157 

LRRCTR 

E 7 , 1 72  2 

158 

VVECTY 

F 7, 1 762 

153 

P 2 1 T I ME 

F 7 , 1 6 05 

IA7 

DELTEEO 

E 7 , 16  35 

1A8 

TTP  I 

E7, 1672 

1A9 

UT 

E7 , 1723 

152 

ULC 

F 7 , 1763 

151 

YMKCNTR 

E 7 , 1 6 C 5 

1A7 

LOOPC r 

E7 , 1636 

155 

UCSM 

E 7 , 1 6 72 

150 

ERA  DM 

E 7 , 17  2A 

1 A9 

R 1C 

E7, 1763 

158 

OLDP IPAX 

E 7 , 1 605 

1A7 

POSTTPI 

E7 , 1636 

160 

1/DV2 

£7,1672 

157 

LRMCTR 

E7.172A 

158 

VVECTZ 

E 7 , 1 76 A 

1A9 

TIGSAVEP 

F 7 , 1 6 06 

155 

XSCREE 

E7, 1637 

IA8 

TTPIO 

£7,1673 

157 

L R S C T 

E7, 1725 

150 

UYVECT 

E 7 , 1 76 A 

153 

SCAXI S 

E 7,1606 

155 

XSMO 

E 7 , 1 6 AO 

160 

1/DV3 

E 7,  1 6 7A 

150 

INCOPPEX 

E 7 , 1726 

158 

ALTRATE 

E7 , 176A 

158 

OLDPIPAY 

E 7,1606 

156 

PIFPSET 

E 7 , 1 6 A 1 

1 A3 

RTIG 

E 7 , 1 6 ?A 

157 

ST  I LB ADH 

E7, 1730 

158 

ALTITUDE 

E 7 , 1765 

158 

OLDPIPAZ 
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DEF 

E 7 , 1 766 

199 

MUSCALE 

4353 

1388 

UP2  l 

4 7 30 

E 7 , l 766 

158 

DEL VROO 

4 3 54 

515 

OC  T 000  1 2 

4730 

E 7 , 1 766 

159 

TFMDELH 

4354 

1057 

TEN 

4730 

F 7 , 1 7 7 2 

153 

POINTVSM 

4503 

480 

ENDPTNBF 

4730 

E7, 1 779 

159 

HCALC  1 

4607 

541 

ENDRMODF 

4730 

E 7 , 1 7 7 6 

159 

HMEASDL 

4724 

1504 

1/.03 

4730 

E7,l 777 

160 

END— E 7 

4725 

109  3 

LIMITS 

4730 

90C0 

29 

FFTAGl 

4726 

67 

NEED2BI T 

4730 

9000 

29 

FF  T AG  10 

4726 

69 

NJETSBI T 

4730 

9000 

29 

FFTAGU 

4726 

70 

DRFTBIT 

4730 

9000 

29 

FF  T AG  12 

4726 

72 

POOHBIT 

4730 

9000 

29 

FF  T AG  1 3 

4726 

74 

MRK I 0 8 I T 

4730 

9000 

29 

FFTAG2 

4726 

75 

DSKYFBI T 

4 730 

9000 

29 

FFTAG3 

4 7 26 

77 

S32BITI 

4730 

9000 

29 

FFTAG9 

4726 

.79 

ITSWBIT 

4730 

9000 

•29 

FFTAG7 

4726 

80 

RPQFLBIT 

4730 

9000 

29 

FF  T AGS 

4726 

85 

LRBYRIT 

4730 

9000 

29 

FFTAG9 

4726 

97 

CDESBIT 

4731 

9000 

29 

RAOARFF 

4726 

89 

PULSES 

4731 

9060 

• 169 

UPRPTB8 

4726 

531 

REFTAG4 

4731 

9101 

1097 

0CT60000 

4726 

1097 

NEGMAX 

4731 

9 199 

13  69 

VERBMASK 

4726 

109  7 

vloadcoo- 

4731 

9 172 

967 

PINSUPBT 

4 7 26 

1282 

SB  I T 1 5 

4731 

9233 

221 

V00N34 

472  7 

67 

JSWCHBI T 

4731 

9279 

971 

ENDBLFF 

4727 

69 

DIDFL8  I T 

4731 

9310 

1071 

FOURTEEN 

4727 

71 

SRC  HOB  I T 

4731 

93  10 

1071 

OCT  16 

4727 

72 

GLOKFBI T 

4731 

93  11 

1093 

OCTU 

4727 

74 

PRIODBIT 

47  31 

93  1 1 

1 C 5 7 

NINF 

4727 

75 

PDSPFBI T 

4731 

9391 

10C8 

FBANKMSK 

472  7 

77 

S32B  IT2 

4 731 

9391 

1057 

BANKMASK 

4727 

79 

MANUFB I T 

4731 

939  1 

1283 

-MAXADRS 

4727 

82 

FLVR9I T 

4731 

9392 

1305 

NOVACADR 

4727 

84 

INTFLBI  T 

4732 

9393 

1305 

WTLTCADR 

4727 

85 

VFAILBIT 

4732 

9 395 

1305 

FVACCADR 

4 72  7 

87 

REM0DBIT 

4732 

9396 

229 

OC  T 30000 

4727 

89 

USE  QRJT  S 

4732 

9396 

1057 

BIT13-14 

4727 

282 

REFTAG9 

4732 

9396 

1057 

PR  1030 

4727 

283 

REFTAG1 

4732 

9397 

9 76 

B12-1 

4727 

1097 

HALF 

4732 

9350 

1283 

S8BITS 

4727 

1097 

POS  1/2 

4732 

93  51 

1C57 

OCT23 

4727 

1097 

PR  1 020 

4732 

9352 

393 

DEC  1 7 

4 727 

1282 

SB  I T 14 

4732 

9352 

992 

0CT21 

4 7 30 

41 

HIRTHROT 

4732 

9353 

7 £5 

ASTNDEX 

4730 

67 

MIDFLBIT 

4732 

9353 

1057 

0CT25 

4730 

69 

ERADF  BIT 

4732 
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ACMODBIT 

4732 

136 

ORBIT 

4735 

81 

SURFFBIT 

REF  SMB  I T 

4732 

282 

RF  FT  AG 1 0 

4735 

83 

FLAPBTT 

NRMIOBIT 

4732 

283 

REFTAG2 

4735 

86 

LRINHBIT 

SNUFF8IT 

4732 

1097 

EBANK4 

4735 

88 

LRVELBIT 

S32BIT3A 

4732 

1097 

PR  102 

4735 

89 

DRIFTBI T 

IGNFLBIT 

4732 

1097 

2K 

4735 

1282 

SBIT8 

NEW  IBI  T 

4732 

12  82 

SBIT11 

4735 

1328 

IMUSFFLG 

P7071BIT 

4733 

68 

FSPASBI T 

4736 

68 

RNDVZBIT 

APSFLB  I T 

4733 

69 

R61FLBI T 

4736 

70 

UPDATBIT 

HFA  IL8IT 

4733 

73 

VFLAGBI T 

4736 

71 

FTP  IB  IT 

RCOUOBIT 

4733 

74 

NWAIT8IT 

4736 

73 

CULTBIT 

CSMDOCKD 

4733 

76 

RNGSCBI T 

4736 

75 

PRONVBIT 

OCT  10000 

4733 

78 

GMBORBI T 

4736 

76 

FNGONBIT 

FEXTRA 

4733 

79 

NOPMSBIT 

4736 

80 

IOLEFBIT 

PRI010 

4733 

81 

FLUNDBI T 

4736 

81 

infinbit 

QUARTER 

4733 

83 

FLRCSBI T 

4736 

83 

ABTTGBIT 

SB  I T 1 3 

4733 

86 

NOLRRB  I T 

4736 

84 

REINTBIT 

MOONBIT 

4733 

87 

DE SI  GBIT 

4736 

86 

VELDABIT 

RODFLBIT 

4733 

89 

AORB  TRAN 

4736 

88 

RCDUF8I T 

LOSCMBIT 

4733 

1 36 

PB  IT 

4736 

90 

RHCSCALE 

LUNAB  IT 

4733 

531 

REFTAG3 

4736 

299 

REFTAG5 

NOT  HRB I T 

4733 

1097 

PP  101 

4736 

300 

REFTAG7 

S328IT38 

4733 

12  82 

SB  I T 10 

4736 

1 094 

SUPER  100 

ASTNBIT 

4734 

68 

P25FLBI  T 

4736 

1282 

SBIT7 

CMOONBI T 

4734 

71 

IMPULBIT 

4737 

68 

RRNBB  IT 

FLPCBI T 

4734 

73 

R04FLBI T 

473  7 

70 

NOUPFBIT 

VXINHBIT 

. 4734 

74 

MRKNVBI T 

4737 

71 

FINALBIT 

ANTENBIT 

4734 

76 

OMENFBIT 

473  7 

73 

ORBWFBIT 

OURRCBIT 

4734 

79 

RVSWBTT 

4737 

75 

PINBRBIT 

TTFSCALE 

4734 

83 

LETABBIT 

4737 

76 

3AXI SBIT 

PR  I 04 

4734 

86 

XORFLBI T 

4737 

78 

REDFLRIT 

SB  I T 12 

4734 

88 

ALTSCBIT 

473  7 

80 

V37FLBI T 

MINCSM 

4734 

89 

XOVINHIB 

4737 

81 

ORDER  B I T 

P21FLBIT 

4734 

2 99 

°F FT A 06 

4737 

83 

ROTFLBIT 

NOTERBIT 

4734 

3 00 

REFTAG8 

4737 

88 

LRPOSBIT 

STEERBIT 

4734 

1282 

SB  IT9 

4737 

90 

ULLAGER 

N0P07BI T 

4734 

1306 

SPSCODE 

4737 

823 

-AZBIT 

MWAITBIT 

4735 

68 

IMUSEB  IT 

4737 

1282 

SBI  T 6 

R77FLBIT 

4735 

70 

VEHUPBIT 

4740 

68 

LOKONBIT 

SWANDB IT 

4735 

71 

XnFL  Vp I 1 

4740 

70 

TRACK  B I T 

LMOONB I T 

4735 

73 

PRECIBIT 

4740 

71 

AVFLB  IT 

FLP IBI T 

4735 

74 

NRMNVBI T 

4740 

73 

STATFRIT 

PSTHIBIT 

4735 

76 

ZOOMBIT 

4740 

75 

MRUPTBI T 

REPOSBIT 

4735 

78 

MUNFLBIT 

4740 

76 

AORBSYST 

ACC40R2X 

4735 

79 

V67FLBI T 

4740 

80 

AVEGFBIT 

ON, 

PAGE 

71 

72 

79 

76 

77 

79 

81 

82 

89 

85 

87 

89 

229 

793 

1097 

1097 

1282 

67 

69 

71 

72 

76 

77 

79 

81 

82 

85 

87 

89 

82  9 

1097 

1282 

95 

68 

69 

71 

72 

79 

76 

79 

81 

82 

86 

87 

89 
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4 7 A 0 

81 

APSESBIT 

4743 

70 

GLESSBI  T 

4747 

1388 

UPDTPHAS 

5272 

200 

ENDD APT  4 

7770 

1097 

NEG1 

4740 

83 

QUI TBIT 

4743 

72 

CALC2BI  T 

4750 

459 

OSPMSK 

5272 

201 

RCSMONE  X 

7770 

1283 

S-l 

4 7 4 C 

83 

LRALTBIT 

4743 

73 

D6CR9BIT 

4750 

1 097 

L0W3 

5466 

13  70 

LINUS 

00,2000 

29 

DLAY JOB 

4740 

SO 

DBSLECT2 

4743 

77 

MGLVFBIT 

4750 

1283 

S + 7 

5474 

2 76 

TERMEXT  V 

01,2000 

29 

LOAODAPl 

4740 

619 

HLITE 

4743 

78 

AUXFLBIT 

4750 

1371 

OCT  7 

5474 

277 

ENDE  XT VR 

01,2000 

29 

RESTART 

4740 

744 

0CT20 

4743 

80 

V82EMBI T 

4751 

740 

VB99PEX 

5474 

1369 

ENDEXT 

01,2000 

250 

PRDTTAB 

4 740 

74o 

LSTL  IM 

4743 

82 

INITABI T 

4751 

1097 

NOUTCON 

5636 

1381 

ABORT 

01,2001 

250 

C ADRTAB 

4740 

823 

+AZBI T 

4743 

83 

MIDAVB  IT 

4752 

1071 

THIRTEEN 

5652 

2 44 

NFG7 

01,2016 

250 

2.2SPGT 

4740 

12  82 

SB  I T 5 

• 4743 

85 

CONTRLBT 

4753 

740 

CNTONDEX 

5652 

1283 

S— 7 

01,2016 

251 

3.2  SPOT 

4740 

1409 

CALLGMBL 

4743 

87 

VFLSHBI  T 

4754 

440 

OCT  30 

5745 

191 

120MS 

01,2016 

254 

6 . 2 SPOT 

4741 

63 

NEEDL8 IT 

4743 

88 

AUTOMBIT 

4755 

1094 

DEC27 

5745 

1328 

B I TS  384 

01,2342 

308 

V50N48 

4741 

70 

FRSTMBIT 

4743 

90 

AU7RATE2 

4756 

740 

VB97DEX 

5745 

1482 

TWELVE 

01,2522 

1092 

SW/ 

4741 

72 

PFRATBIT 

4743 

740 

8LAIYKDEX 

4756 

1094 

DEC  29 

6000 

29 

FFTAG5 

04,2000 

29 

CONIC  SI 

47  41 

73 

INTYPBIT 

4743 

823 

+ELBIT 

4757 

291 

250MS+1 

6000 

29 

FFTAG6 

04,2000 

29 

E/PROG 

474  1 

75 

NRUPTBIT 

4743 

1097 

TWO 

4757 

1508 

RAT  EL  I M 1 

6001 

744 

? 

04,2000 

29 

EPHEM2 

4741 

77 

NORRMBIT 

4743 

1282 

S + 2 

4760 

1508 

RATEDB1 

6010 

221 

V00N?5 

04,2000 

?9 

KEYRUPT 

4741 

80 

LPLOCBIT 

4743 

1282 

SB  I 1 2 

4762 

316 

MIXCON 

6115 

13  05 

0CT177 

04,2000 

29 

ORB  ITAL3 

4741 

82 

COGAFB  1 1 

4743 

1335 

UP7  2 

4762 

1283 

CNTRCON 

6130 

1097 

VLOAO* 

04,2000 

29 

PINBALL4 

4741 

83 

FLT59BIT 

4 744 

69 

P66PR08T 

4762 

132  8 

BI  TS4£6 

6133 

1283 

S— 4 

04,2000 

29 

R02 

4741 

86 

RNGEOBIT 

4744 

72 

NODOB  IT 

4 762 

1430 

40C  YC 

6263 

1097 

SIX 

04,2000 

29 

R36LM 

4741 

88 

RRDATA6T 

4744 

73 

DIMOB  IT 

4762 

1444 

40CYCL 

626  3 

1282 

S+6 

04,2000 

29 

UPDATE2 

4741 

90 

CB SELECT 

4744 

75 

XDSPBIT 

4765 

1332 

0CT62 

6266 

581 

B IN3 

04,2000 

29 

VERB37 

474  1 

243 

OCTOOO 10 

4744 

77 

RENDWB I T 

4 766 

1097 

0CT120 

6266 

1097 

L0W2 

04,2000 

30 

A0TMARK2 

474  l 

829 

TSCALINV 

4744 

79 

ATTFLBI  T 

4767 

885 

B ITS6  + 7 

6266 

1097 

THREE 

04,2054 

462 

MODROUTB 

4741 

10S  7 

E IGHT 

4744 

80 

TFFSWBIT 

4767 

1097 

OCT  140 

6266 

1282 

S+3 

04, ?440 

245 

FCADRMM1 

474  1 

1282 

SB  I T4 

4 744 

82 

36CSWBI T 

4767 

1444 

60MS 

6266 

1385 

UP  73 

04,24  1 2 

246 

PR  F MM  1 

474  1 

1417 

DSPLYALT 

4744 

83 

AVEMOBIT 

4770 

393 

1SECX 

6512 

1 097 

OCT30002 

04,2525 

246 

DNLADMM1 

4742 

68 

FR  E E F B I T 

4744 

85 

NPGNCSBT 

4770 

758 

SEC  01 

6762 

1023 

Q + 2 

04,3037 

38 

1 nnni/4 

4742 

70 

SL  1PEBIT 

4744 

87 

HFLSHBI T 

4777 

92  7 

VB05N09 

6763 

1291 

TCQ 

04,3042 

1183 

BEE  19 

4742 

72 

CALC3BIT 

4744 

88 

TURNONBT 

5000 

234 

STARTEB 

7704 

1097 

0CT1000  1 

04,3046 

1 183 

8EE22 

4742 

73 

VINTFBIT 

4744 

90 

AUTRATE  1 

5000 

1097 

EBANK3 

7731 

283 

BIT14G1  1 

04,3253 

1244 

2/3 

4742 

75 

MKOVBIT 

4744 

221 

LAGSLIST 

5000 

1283 

ERA  SC0N6 

7733 

568 

RIT12.14 

04,3372 

1386 

UPPART2 

4742 

77 

SCLNSBIT 

4 744 

323 

-1  L ->  I T 

5000 

1427 

QGIMBITS 

7737 

1439 

25/32 

04 , 35  ? 2 

1388 

UPSTORE 

4742 

73 

NTARGBI T 

4744 

1097 

ONE 

5002 

38 

ERASID 

7743 

1097 

B12T  14 

04,3564 

1389 

UPPART3 

4742 

80 

VERIFBIT 

4744 

1282 

S+l 

5003 

1283 

S10BITS 

7750 

165 

100MRUPT 

04,3713 

1391 

UPOUT 

4742 

83 

MID1FBIT 

4744 

1282 

SB  I T 1 

5005 

1431 

BITS9, 1 1 

7750 

1411 

MS  100 

04,3714 

1388 

UP0UT4 

4742 

86 

R12RDBIT 

4744 

1385 

UP  7 1 

5006 

1097 

EBANK6 

7752 

169 

20MRUPT 

05,2000 

30 

ABORTS  1 

474? 

83 

RRRSBI T 

4744 

1430 

1/10SEC 

5011 

904 

BITSET 

7761 

548 

-45DEGSR 

05,2000 

30 

ASENT3 

4742 

90 

ACCSOKAY 

4744 

1444 

1/10S 

5011 

1283 

SBNK03 

7761 

13  70 

PINMASK 

05,2000 

30 

DOWNTELM 

4742 

619 

VLITE 

4745 

1283 

S-ZERO 

5011 

1427 

RGIMBITS 

776? 

544 

-R IT  12 

05,2000 

30 

EPHEM1 

4742 

1057 

FOUR 

4746 

247 

DNLAUPOO 

5015 

1297 

OCT  14000 

7762 

993 

MINB12 

05,2000 

30 

FRANDRES 

4742 

1282 

S + 4 

4746 

1282 

S+ZERO 

5016 

191 

0CU5000 

7766 

1283 

S-3 

05,2046 

205 

ORRMANU V 

4742 

1282 

SBIT3 

4746 

1385 

UP70 

5017 

191 

33RDMSK 

7767 

1283 

S—  2 

05,2107 

208 

LMCSTAOl 

4743 

33 

DELAYNUM 

4747 

234 

NUMGRPS 

5017 

234 

IM33INIT 

7767 

1305 

MINUS2 

05,2107 

210 

LMREND01 

4743 

68 

R10FLBIT 

4747 

1282 

S + 5 

5146 

1381 

DOALARM 

7770 

1097 

MINUS1 

05,2107 

214 

LMLSALO 1 
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DEF 

PAGE 

SYMBOL 

OEF 

PAGE 

SYMBOL 

DEF 

05,21  16 

203 

LMCSTA02 

06,3277 

203 

5FAILTA8 

13,2000 

05,21  16 

210 

LMREN002 

06,3307 

203 

6FAILTA8 

13,2000 

05,21  16 

212 

LM0SAS02 

07,2000 

30 

AOTMARK 1 

13,2000 

05,2  1 16 

214 

LMLSAL02 

07,2000 

30 

ASENT2 

13,2717 

05,21 16 

216 

LMAGSI02 

07,2000 

30 

MODE  SW 

13,2772 

05,2125 

2C3 

LMCSTA03 

07,3175 

1328 

I MUF I N20 

13,3005 

05,2 125 

210 

LMREND03 

07,3731 

132  7 

OPTSTALL 

13,3101 

05,2125 

212 

LMDSAS03 

10,2000 

30 

DISPLAYS 

13,3115 

05,2125 

214 

LMLSAL03 

10,2000 

30 

FLESHLOC 

14,2000 

05,2 1 25 

216 

LMAGSI03 

10,2000 

30 

PHASE  TAB 

14,2000 

05,2 1 34 

208 

LMCSTA04 

1C, 2000 

30 

RTBCODES 

14,2000 

05,2 134 

2 11 

LMRENDO  4 

10,2000 

30 

SLCTMU 

14,2000 

05,2134 

212 

LM0SAS04 

10,2317 

1369 

GOXDSP 

14,2000 

05,2134 

2 14 

LMLSAL  04 

10,2323 

1369 

GOXDSPF 

14,2515 

05,2134 

216 

LMAGSI04 

10,2342 

1 369 

GCXDSPR 

14,2620 

05,2 140 

212 

LMDSAS05 

10,2345 

1 369 

GOXDSPFR 

14,3265 

05,2140 

216 

LM AGS  105 

10,3062 

1369 

GOAGIN 

15,2000 

>,2  144 

209 

LMCSTA10 

10,3102 

1370 

GOPLAY 

15,2000 

05  ,2144 

211 

LMREND 10 

11,2000 

30 

F2DPS* 1 1 

15,2000 

05,2145 

215 

LMLSAL09 

l 1,2000 

3 C 

INTVEL 

15,2000 

05,2151 

212 

LM0SAS06 

11,2000 

30 

ORBITAL 

15,3646 

05,2151 

214 

LMLSAL06 

11,2402 

324 

ELEACH 

16,2000 

05,2153 

204 

NOMONLST 

12,2000 

31 

CONICS 

16,3573 

05,2153 

208 

COSTAL  IN 

12,2000 

31 

INTPRET2  ■ 

1 7,2000 

05,2207 

2 1 L 

LMREND05 

12,2000 

31 

0RBITAL1 

17,2000 

05,2207 

214 

LMSAL05 

12,2000 

38 

LOUNITZ 

17,2710 

05,2213 

2 1 1 

LMRFND06 

12,2002 

38 

LOUNI TY 

17,3136 

05,22 13 

213 

LMDS AS 09 

12,2004 

38 

LODPHALF 

20,2000 

05,2215 

215 

L ML  SAL  08 

12,2004 

38 

LOUNI T X 

20,2000 

05,2221 

2 10 

RENDEZVU 

12,2004 

1099 

■HALFOP 

21,2000 

05,2277 

212 

DESC/ASC 

12,2004 

1 1 34 

DPI/2 

21,2000 

05,2353 

214 

SURFALIN 

12,2004 

1 146 

1 B 1 

2 1,2000 

05,2414 

204 

AGSL 1ST 

12,2006 

38 

L06ZER0S 

21,2000 

05,24  14 

204 

UPDNL I ST 

12,2006 

1099 

ZERODP 

21,2000 

05,24  14 

2 16 

AGSI/UPO 

12,2006 

l 135 

20  ZERO 

2 1,2000 

06,2000 

30 

A0TMARK3 

12,2006 

1 183 

KEPZERO 

21,2000 

06,2000 

30 

EARTHLOC 

12,2006 

1244 

DPZERO 

21,2000 

06,2000 

30 

I MUCOMP 

12,2017 

38 

RMM 

22,2000 

06,2000 

30 

RCSMONT 

12,2017 

1 199 

LDPOSMAX 

22  ,2000 

06,2000 

30 

T4RUP 

12,2021 

38 

RME 

22,2000 

06,2703 

ISO 

I COUFAIL 

12,3765 

1244 

DQUARTER 

22,2000 

06,2703 

ISO 

IMUFA IL 

12,3765 

1244 

PQS1/4 

22,2000 

06,3167 

198 

ENORRMON 

13,2000 

31 

INTINIT 

22,2000 

06,3167 

IS9 

CAPT4S 

13,2000 

31 

LATLONG 

22,2000 

06,32  13 

202 

RCSMONIT 

13,2000 

31 

LEMGEOM 

22,2744 
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ORB  I T A L 2 

22,3543 

38 

DELRSPL 

26,2000 

34 

BAWLANGS 

P50S2 

22,3543 

721 

SPLRET 

26,2000 

34 

MANUVER 

P76L0C 

22,3710 

868 

OUTGOAVE 

26,2000 

34 

MANUVER1 

ATOPOTH 

23,2000 

33 

APOPERI 

26,2000 

34 

PLANT  IN  1 

ATOPTHIS 

23,2000 

33 

ASENT7 

26,2000 

34 

PLANT  IN2 

MOVATHI S 

23,2000 

33 

EXTVB1 

26,2000 

34 

P20S3 

OTHPREC 

23,2000 

33 

I NFL IGHT 

27,2000 

34 

ASENT1 

THI SPRFC 

23,2000 

33 

INTPRET  1 

27, 2000 

34 

P40  S 1 

ASENT4 

23,2000 

33 

MEAS INC 

27,2000 

34 

SFRV3 

PHASTAB1 

23,2000 

33 

MEASINC  1 

27,2000 

34 

TDF-FF 

P50S1 

23,2000 

33 

NORML I Z 

27,2000 

34 

TOF-FFl 

RTBCODE 1 

23,2000 

33 

powflitf 

27,2000 

34 

VECPT 

STARTAB 

23,2000 

33 

POWFL  IT  1 

27,3756 

1279 

TCDANZIG 

S50 

23,2000 

33 

P12A 

30,2000 

35 

ASENT 

R56 

23,2000 

33 

RODTRAP 

30,2000 

35 

ASENT5 

R54 

23,2000 

33 

R61 

30, 2000 

35 

FCDUW 

EPHEM 

23,2000 

33 

R62 

30,2000 

35 

FLOGSUB 

P50S 

23,2103 

500 

R62D ISP 

30, 2000 

35 

LOWSUPER 

RRLEADIN 

23,2335 

12  80 

RPAD1 

30, 2000 

35 

P 12 

R02BNK15 

23,2453 

852 

SETXFLAG 

30,2000 

35 

VB67A 

LUNPOS 

23,2474 

38 

HIDP 1/4 

30,3001 

858 

T2A 

DAP  SI 

23,2474 

5 15 

ONEB-2 

30,3753 

92  2 

DAZMAX 

INDXYZ 

23,2474 

1280 

TFF1/4 

30,3755 

922 

DELERLIM 

C13BANK 

23,2476 

38 

HIUNITZ 

31, 2000 

35 

FTHRDT 

DAPS2 

23,2476 

38 

NB1NB2 

31,2000 

35 

F2DPS*31 

ATTSTEER 

23,2476 

38 

THISAXI S 

31,2000 

35 

VB67 

14MS 

23,2500 

38 

HIUNITY 

31,3407 

811 

GOUMP l 

DAP  S3 

23,2502 

38 

HIDPHALF 

31, 3420 

811 

DISPEX66 

LOADDAP 

23,2502 

38 

HIUNITX 

31,3420 

811 

ENDLLJOB 

ABTFLGS 

23,2502 

613 

C0S60DEG 

32,2000 

35 

ABORTS 

DAPS4 

23,2502 

1098 

DP HALF 

32,2000 

35 

F2DPS*32 

MANUR 

23,2504 

38 

HI6ZER0S 

32,2000 

35 

LRS22 

MIDDGIM1 

23,2504 

613 

ZFRO/SP 

32,2000 

35 

P20S4 

ORB  ITAL5 

23,2504 

1155 

ZEROO 

32, 2000 

35 

P40S4 

P50S3 

23,2504 

1280 

TF  FZ  EROS 

32, 2000 

35 

P66L0C 

RIO 

24,2000 

33 

0RBITAL4 

32,2000 

35 

R47 

Rll 

24,2000 

33 

PL  ANT  IN 

32,2000 

35 

SERV 

KALCM0N1 

24,2000 

33 

P20S 

33, 2000 

35 

ASFNT6 

KALCM0N2 

24,2000 

33 

S40BNK 

33, 2000 

35 

R 29 /SERV 

LANDCNS  T 

24,2000 

507 

PROG22 

33, 2000 

35 

SFR VICFS 

MIODGIM 

25,2000 

33 

DR  SAMP 

33,3052 

858 

100CS 

RENDEZ 

25,2000 

33 

PL  AN  T I N 3 

33, 3433 

891 

ENDVDAT 

R30LUC 

25,2000 

33 

P20S1 

34, 2000 

35 

ASCFILT 

SERV2 

25,2000 

• 33 

P20S2 

34,2000 

35 

ASENT  8 

LOCSKIRT 

25,2000 

33 

RADARUPT 

34,2000 

35 

CSI /CDH1 

NASA 

ION, 

PAGE 

31 

31 

31 

38 

38 

38 

38 

38 

32 

32 

32 

32 

32 

932 

93  A 

94  2 

32 

32 

32 

32 

983 

32 

1438 

32 

32 

1450 

1444 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

33 

33 

33 

33 

33 

33 

33 

376 
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34.20C0, 

35 

P30SI 

36,2057 

758 

ACAQN85 

37,2000 

34,20  00‘ 

35 

R 12  STUFF 

36,2107 

744 

SERVC ADR 

37,2000 

34  ,2  OCO 

35 

SERV4 

36,2150 

728 

P12SP0T 

37,2000 

34,2000 

36 

F2DPS*34 

36., 2 150 

728 

P42SP0T 

37,3543 

35,2000 

36 

CSI/CDH 

36,2153 

728 

P63  SPOT 

40,2000 

- 5 . 1 ■ 

36 

P30S 

36,2776 

740 

V9SRECYC 

40,2000 

35,2000 

36 

P40S2 

37,2000 

37 

I MUSUPER 

40,2000 

35,2000 

36 

P40S3 

37,2000 

37 

I MU2 

40,2000 

36,2000 

3 7 

P40S 

37,2000 

37 

I MU4 

40,2000 

2021112-161  17:11  MAR.  19,1971  PAGE  1580 

PAGE  OF  DEFINITION,  AND  SYMBOL 


SYMBOL 

DEF 

PAGE 

SYMBOL 

DEF 

PAGE 

SYMBOL 

P05P06 

40,335 1 

458 

ENDEC VN 

42,2000 

37 

PINRALL3 

R 3 1 

40,3543 

465 

ENDRELDS 

42,2000 

37 

S BAND 

SERV1 

40,3572 

472 

ENDRSUB  1 

42,3617 

451 

ENDHMSS 

PIPSRINE 

40,3572 

1291 

OSPMM JOB 

43,2000 

37 

FXTVFRBS 

PIN8ALL1 

40,3737 

486 

ENDPINS1 

43,2000 

37 

SELFCHEC 

PIN  SUPER 

41,2000 

37 

P I NB ALL  2 

43,2002 

481 

PINTEST 

R3LL0C 

41,2647 

4 30 

ENDRTOUT 

43,2234 

282 

OPTCOAR V 

SBAND40 

41,3302 

445 

ENDRUTIN 

43,3040 

300 

V74 

SELFSUPR 

41,3777 

484 

ENDP INS  2 

43,3077 

302 

GOSHOSUM 

NASA 

ION,  I 

PAGE 

i 37 

37 

37 

i 960 

37 

37 

37 

37 

37 
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► MEMORY  TYPE  E AVAILABILITY  DISPLAY 


0000 

TO 

0C57 

C060 

0061 

TO 

1377 

E 3 , 1 400 

TO 

£4,1770 

E4 , 1 7 7 1 

TO 

E4.1777 

E 5 , 1 4 00 

TO 

E 5 , 1641 

£5,1642 

ro 

E5 , 1777 

E6 , i 400 

TO 

E6, 1774 

E 6 , 1 775 

TO 

E6 , 17  77 

E 7, 1 400 

TO 

E 7, 1744 

E7, 1745 

TO 

E 7 , 1 777 

4000 

10 

5773 

57  74 

TO 

57  77 

6000 

TO 

7777 

00,2000 

TO 

01,3777 

02,2000 

TO 

03,3777 

04,2000 

TO 

04,3775 

04,3  776 

TO 

04,3777 

05,2000 

TO 

07,3771 

07,3772 

TO 

07,3777 

10,2000 

TO 

10  ,3775 

10,3  776 

TO 

10,3777 

11  ,2000 

TO 

16,3775 

16,3776 

TO 

16,3777 

17,2000 

TO 

20,3753 

20,3754 

TO 

20,3777 

21,2000 

TO 

21,3732 

21,3733 

TO 

21,3777 

22,2000 

TO 

22.3776 

22.3777 

23,2000 

TO 

23,3763 

23,3764 

TO 

23,3777 

24,2000 

TO 

25,3773 

25,3774 

TO 

25,3777 

26,2000 

TO 

30,3763 

30,3764 

TO 

30,3777 

31,2000 

TO 

31  ,3775 

31,3776 

TO 

31  ,3777 

32,2000 

TO 

32,3720 

SPECIAL  OR  NONEXISTENT  MEMORY 

AVAILABLE  ERASABLE  MEMORY 
RESERVED  ERASABLE  MEMORY 

RESERVED  SWITCHABLE  ERASABLE  MEMORY 
AVAILABLE  SWITCHABLE  ERASABLE  MEMORY 
RESERVED  SWITCHABLE  ERASABLE  MEMORY 
AVAILABLE  SWITCHABLE  ERASABLE  MEMORY 
RESERVED  SWITCHABLE  ERASABLE  MEMORY 
AVAILABLE  SWITCHABLE  ERASABLE  MEMORY 
RESERVED  SWITCHABLE  ERASABLE  MEMORY 
AVAILABLE  SWITCHABLE  ERASABLE  MEMORY 

RESERVED  FIXED  MEMORY 
AVAILABLE  FIXED  MEMORY 
RESERVED  .FIXED  MFMORY 

RESERVED  SWITCHABLE  FIXED  MEMORY 

SPECIAL  CR  NONEXISTENT  MEMORY 

RESFPVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXEO  MEMORY 
AVAILABLE  SWITCHABLE  FIXEO  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXEO  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXEO  MEMORY 
RFSERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVFD  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXEO  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 


32, 

,3721 

TO 

32, 

, 3777 

33, 

,2000 

TO 

33, 

,3577 

33, 

,3600 

TO 

33, 

, 3777 

34, 

,2000 

TO 

34, 

,3667 

34, 

,3670 

TO 

34, 

,3777 

35, 

,2000 

TO 

35, 

, 3745 

35, 

,3746 

TO 

35, 

, 3777 

36, 

,2000 

TO 

36, 

,3761 

3 6 , 

,3762 

TO 

36, 

,3777 

37, 

,2000 

TO 

37, 

, 3775 

37, 

,3776 

TO 

37, 

, 3777 

40, 

,2000 

TO 

40, 

,3771 

40, 

,3772 

TO 

40, 

, 3777 

41, 

,2000 

TO 

43, 

,3744 

43, 

,3745 

TO 

43, 

, 3777 

44, 

,2000 

TO 

57, 

,3777 

6 C , 

,2000 

TO 

67, 

,37.77 

70, 

,2000 

TO 

73, 

, 3777 

AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLF  FIXED  MEMORY 
RFSERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MFMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MFMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MFMORY 
AVAILABLF  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MFMORY 

SPECIAL  OR  NONEXISTENT  MEMORY 

AVAILABLE  SWITCHABLE  FIXED  MFMORY 

SPECIAL  OR  NONEXISTENT  MEMORY 
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REVISION 
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MAR. 
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ROUTINE: 

COUNT 

DATA 

FOR 

ROUTINE' 

S LAST 

REACH: 

: TOTAL: 

CUMUL 

ROUTINE: 

COUNT  DATA 

FOR  P 

OUTINE'S 

LAST 

REACH: 

TOTAL : 

CUMUL 

REF 

0 

LAST 

TO 

29: 

5 

5 

5 

04/CON IC 

REF 

3 

LAST 

1184 

TO 

1 187: 

65 

no 

4244 

$$/P4  1 

REF 

1 

LAST 

752 

TO 

753: 

10 

10 

15 

04/INTIN 

RFF 

2 

LAST 

1222 

TO 

1223: 

47 

51 

4295 

BANKSUM 

REF 

1 

LAST 

29 

TO 

39: 

55 

55 

70 

04/KEYUP 

REF 

1 

LAST 

1335 

TO 

1351: 

75 

75 

4370 

OO/OELAY 

REF 

1 

LAST 

1374 

TO 

1376: 

32 

32 

102 

04/LT-LG 

REF 

1 

LAST 

47 

TO 

47: 

4 

4 

4374 

OO/INTER 

REF 

1 

LAST 

1045 

TO 

1085: 

974 

974 

1076 

04/MARK 

REF 

1 

LAST 

260 

TO 

261: 

32 

32 

4406 

Ol/EXEC 

REF 

1 

LAST 

1104 

TO 

1114: 

279 

279 

1355 

04/PIN 

RFF 

2 

LAST 

479 

TO 

479: 

7 

16 

4422 

Ol/INTER 

REF 

1 

LAST 

1085 

TO 

1093: 

157 

157 

1512 

04 /POO 

REF 

1 

LAST 

236 

TO 

247: 

335 

335 

4757 

Ol/RSROU 

REF 

3 

LAST 

1304 

TO 

1306: 

52 

165 

1677 

04/P07 

REF 

2 

LAST 

384 

TO 

385: 

5 

32 

4789 

Ol/RSTAB 

REF 

l 

LAST 

25.C 

TO 

255: 

138 

138 

1815 

04/P27 

REF 

1 

LAST 

1386 

TO 

1394: 

257 

257 

5046 

01/P.03 

REF 

2 

LAST 

306 

TO 

309: 

92 

94 

1909 

04/P57 

RFF 

1 

LAST 

981 

TO 

983: 

12 

12 

5058 

Ol/WA  IT  . 

REF 

2 

LAST 

1129 

TO 

1131  : 

43 

188 

2097 

04/R02 

REF 

1 

LAST 

1329 

TO 

1332: 

17 

17 

5075 

02/ALARM 

REF 

2 

LAST 

1379 

TO 

1381 : 

8 l 

110 

2207 

04/R36 

REF 

l 

LAST 

704 

TO 

706: 

77 

77 

5152 

02/BANK 

REF 

1 

LAST 

996 

TO 

1000 : 

76 

76 

2283 

05/DL I ST 

REF 

1 

LAST 

204 

TO 

218: 

263 

263 

54  15 

02/0APT6 

REF 

1 

LAST 

1401 

T.O 

1402: 

13 

18 

2301 

05/DPR0G 

REF 

1 

LAST 

989 

TO 

996: 

183 

183 

5598 

02/0  S PL  A 

REF 

1 

LAST 

1351 

TO 

1351  : 

16 

16 

2317 

05/EPHFM 

REF 

2 

LAST 

985 

TO 

989: 

0 

52 

5650 

02/EXEC 

REF 

2 

LAST 

1114 

TO 

1117: 

6 

74 

2391 

05/P70 

REF 

1 

LAST 

832 

TO 

834: 

56 

56 

5706 

02/EX  IVB 

REF 

L 

LAST 

1377 

TO 

1378: 

4 

4 

2395 

05/START 

REF 

2 

LAST 

222 

TO 

235: 

483 

484 

6190 

02/FC0NS 

REF 

1 

LAST 

1093 

TO 

1095: 

64 

64 

2459 

06/IC0MP 

REF 

■ 1 

LAST 

338 

TO 

351: 

2 82 

2 82 

6472 

02/FLAG 

REF 

I 

LAST 

1372 

TO 

1374  : 

32 

32 

2491 

06/LUROT 

REF 

1 

LAST 

1145 

TO 

1 147: 

9 

9 

6481 

02/1  MODE 

REF 

1 

LAST 

1306 

TO 

1307: 

5 

5 

2496 

06/T4RCS 

REF 

1 

LAST 

202 

TO 

204: 

69 

69 

6550 

02/INTER' 

REF 

1 

LAST 

1100 

TO 

1101 : 

32 

32 

2528 

06/T4RPT 

REF 

2 

LAST 

166 

TO 

202: 

641 

651 

7201 

02/PHASE 

REF 

1 

LAST 

1295 

TO 

1297: 

71 

71 

2599 

07/  IMODE 

REF 

1 

LAST 

1307 

TO 

1329: 

585 

585 

7786 

02/PIN 

REF 

5 

LAST 

479 

TO 

482: 

3 7 

239 

2838 

07/MARK 

REF 

2 

LAST 

265 

TO 

275: 

295 

427 

8213 

02/P07 

REF 

1 

LAST 

393 

TO 

395  : 

18 

18 

2856 

07/R58 

REF 

1 

LAST 

959 

TO 

961: 

58 

58 

8271 

02/RRSUB 

REF 

I 

LAST 

536 

TO 

542  : 

68 

68 

2924 

LO/DSPLA 

REF 

3 

LAST 

1379 

TO 

l 379: 

9 

694 

8965 

02/RSR0U 

REF 

2 

LAST 

1303 

TO 

13  04  : 

10 

17 

2 941 

10/MIDG 

REF 

1 

LAST 

696 

TO 

698: 

24 

24 

8989 

02 /R  UP  T S 

REF 

1 

LAST 

163 

TO 

165: 

54 

54 

2995 

10/PHASE 

REF 

1 

LAST 

1297 

TO 

1299: 

66 

66 

9055 

02/TRAN 

REF 

1 

LAST 

1376 

TO 

1377: 

15 

15 

3010 

lO/POWFL 

RFF 

1 

LA  ST 

1262 

TO 

1268: 

1 15 

115 

9170 

02/T4RPT 

REF 

1 

LAST 

165 

TO 

166: 

12 

12 

3022 

10/RTB 

REF 

1 

LAST 

1394 

TO 

1401: 

130 

130 

9300 

02/WAIT 

RFF 

2 

LAST 

1127 

TO 

1129: 

24 

78 

3100 

U/F2DPS 

RFF 

1 

LAST 

822 

TO 

824: 

65 

65 

9365 

03/DAP 

REF 

I 

LAST 

1457 

TO 

1459: 

2 

2 

3102 

1 1 / IN  I TV 

REF 

1 

LAST 

689 

TO 

695: 

194 

194 

9559 

03/FCCNS 

REF 

l 

LAST 

1095 

TO 

1098: 

32 

32 

3 L 34 

11/ORBIT 

REF 

1 

LAST 

1225 

TO 

1246: 

829 

829 

10388 

03/INTFR 

REF 

3 

LAST 

1012 

TO 

1045  : 

732 

952 

4086 

12/CONIC 

PEF 

3 

LAST 

1187 

TO 

1206: 

502 

986 

11374 

03/KILL 

REF 

1 

LAST 

745 

TO 

745 : 

8 

8 

4094 

12/ ICONS 

REF 

1 

LAST 

1099 

TO 

1100: 

L9 

19 

11393 

03/PHASE 

REF 

1 

LAST 

1299 

TO 

1300: 

4 

4 

4098 

13/GEOM 

REF 

1 

LAST 

332 

TO 

336: 

79 

79 

11472 

03/PIN 

REF 

I 

LAST 

461 

TO 

461  : 

7 

7 

4105 

13/INTIN 

RFF 

5 

LAST 

1220 

TO 

1222: 

74 

595 

12067 

03/POO 

REF 

1 

LAST 

235 

TO 

236: 

14 

14 

4119 

13/LT-LG 

REF 

l 

LAST 

1131 

TO 

1138: 

155 

155 

12222 

03/P  20 

REF 

1 

LAST 

613 

TO 

614: 

5 

5 

4124 

13 /ORB  I T 

REF 

1 

LAST 

48 

TO 

48: 

20 

20 

12242 

03/P40 

RFF 

l 

LAST 

41 

TO 

41 : 

1 

1 

4125 

13/P76 

RFF 

1 

LAST 

711 

TO 

716: 

1 17 

1 17 

12359 

03/R24 

REF 

1 

LAST 

531 

TO 

531 : 

9 

9 

4134 

14/INFLT 

REF 

1 

LAST 

945 

TO 

946: 

0 

0 

12359 

GAP: 


ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  BY  NASA 


ROUTINE: 

COUNT 

DATA 

l 4/LOSAM 

REF 

2 

14/PHASE 

REF 

1 

1 4/P  5 1 

REF 

l 

1 4/P  5 7 

REF 

1 

14/R50 

REF 

1 

1 4/R  5J. 

REF 

1 

14/R52 

REF 

1 

1 4/R  54 

REF 

1 

1 4/R  5 5 

REF 

1 

1 4/R  5 1 

REF 

l 

14/STARS 

REF 

1 

1 5/E  P HEM 

REF 

1 

15/P  5 2 • 

REF 

1 

15/P  5 7 

REF 

4 

15/RLEAD 

REF 

1 

15/R59 

RFF 

2 

16/0  A P 

REF 

l 

16/DAPID 

RFF 

l 

16/DAPP 

REF 

1 

17/DAPOR 

REF 

1 

1 7/D  APT  J 

REF 

1 

1 7/DAPT6 

REF 

2 

20/D A PAO 

REF 

4 

20/DAP  I F 

REF 

l 

20/NFtDL 

REF 

1 

20/R03 

REF 

1 

21/ALARM 

REF 

1 

21 /DA PAO 

REF 

1 

21/DAPBU 

REF 

1 

21/DAPGT 

REF 

1 

2 1 / 1 NT  I N 

REF 

1 

21/M  I DG 

REF 

1 

21/P7C 

REF 

2 

21/R1  1 

REF 

2 

21/R  1 1 

REF 

1 

21/S52. 1 

REF 

1 

21/S52.3 

REF 

l 

22/F2CPS 

REF 

1 

22/1 NCOR 

REF 

1 

22/KALC 

RFF 

1 

FOR  ROUTINE'S  LAST 


LAST 

932 

TO 

934 

LAST 

1291 

TO 

1295 

LAST 

946 

TO 

950 

LAST 

972 

TO 

972 

LAST 

•944 

TO 

945 

LAST 

938 

TO 

942 

LAST 

952 

TP 

955 

LAST 

943 

TO 

944 

LAST 

942 

TO 

943 

LAST 

93'4 

TO 

938 

LAST 

49 

TO 

53 

LAST 

983 

TO 

985 

LAST 

924 

TO 

932 

LAST 

972 

TO 

981 

LAST 

505 

TO 

507 

LAST 

955 

TO 

959 

LAST 

1468 

TO 

1470 

LAST 

140  I 

TO 

1412 

LAST 

1419 

TO 

1440 

LAST 

1440 

TO 

1457 

LAST 

1459 

TO 

1468 

LAST 

1402 

TO 

1403 

LAST 

1495 

TO 

1506 

LAST 

1403 

TO 

1407 

LAST 

1412 

TO 

1419 

LAST 

304 

TO 

306 

LAST 

1381 

TO 

1385 

LAST 

1484 

TO 

1484 

LAST 

1506 

TO 

1506 

LAST 

1470 

TO 

1484 

LAST 

1220 

TO 

1220 

LAST 

69  5 

TO 

6 96 

LAST 

837 

TO 

837 

LAST 

895 

TO 

907 

LAST 

83  1 

TO 

832 

LAST 

950 

TO 

951 

LAST 

951 

TO 

952 

LAST 

830 

TO 

831 

LAST 

1155 

TO 

1172 

LAST 

363 

TO 

382 

REACH: 

TOTAL : 

:C  UMUL 

67 

75 

12434 

9 

■ 9 

12443 

127 

127 

1257C 

31 

31 

12601 

54 

54 

12655 

137 

137 

12792 

74 

74 

12866 

25 

25 

12891 

25 

25 

12916 

131 

131 

13047 

223 

223 

13270 

73 

73 

13343 

171 

171 

13514 

235 

537 

14051 

55 

55 

14106 

139 

294 

14400 

60 

60 

14460 

143 

143 

14603 

737 

787 

1 5390 

624 

624 

16014 

315 

315 

16329 

5 

39 

16368 

355 

698 

17066 

74 

74 

17140 

156 

156 

17296 

73 

73 

17369 

16 

16 

1 7385 

8 

8 

17393 

32 

32 

17475 

388 

338 

17863 

4 

4 

17867 

28 

28 

17895 

16 

30 

17925 

335 

341 

18266 

56 

56 

18322 

25 

25 

18347 

16 

16 

18363 

10 

10 

18373 

50 

50 

18423 

670 

670 

19093 
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ROUTINE: 

COUNT  DATA 

FOR  ROUTINE'S 

LAST 

REACH: 

TOTAL: 

CUMUL 

22 /M I DG 

REF 

1 

last 

695 

TO 

695: 

2 

2 

19095 

22/R30 

REF 

2 

LAST 

716 

TO 

723: 

1 99 

2 03 

19298 

22/SERV 

REF 

1 

LAST 

867 

TO 

869: 

23 

23 

19321 

22/SR30S 

REF 

1 

LAST 

723 

TO 

726: 

62 

62 

19383 

23/ASENT 

REF 

1 

LAST 

852 

TO 

853: 

17 

17 

19400 

23/EXTVB 

REF 

1 

LAST 

283 

TO 

284: 

33 

33 

19433 

23/GEOM 

REF 

1 

LAST 

336 

TO 

338: 

34 

34 

19467 

23/ICONS 

REF 

1 

LAST 

1098 

TO 

1099: 

16 

16 

19483 

23  / 1 NCOR 

REF 

2 

LAST 

1151 

TO 

1155: 

196 

334 

19817 

23/INFLT 

REF 

1 

LAST 

1246 

TO 

1256: 

184 

184 

20001 

23 / PER  AP 

REF 

1 

LAST 

698 

TO 

704: 

78 

78 

20079 

23/POWFL 

REF 

1 

LAST 

1256 

TO 

1 262: 

159 

159 

20238 

23/R61 

RFF 

1 

LAST 

533 

TO 

536: 

143 

143 

20381 

23/R62 

REF 

1 

LAST 

500 

TO 

501  : 

11 

11 

2C392 

24/INTTN 

RFF 

1 

LAST 

1223 

TO 

1225: 

7 

7 

20399 

24 /L  P S 20 

REF 

1 

LAST 

583 

TO 

585: 

47 

47 

20446 

24/LUROT 

REF 

1 

LAST 

1139 

TO 

1 142: 

63 

63 

20509 

24/P20 

REF 

2 

LAST 

510 

TO 

517: 

2 76 

306 

20815 

24/P21 

REF 

1 

LAST 

658 

TO 

664: 

123 

123 

20938 

24/P22 

REF 

2 

LAST 

523 

TO 

524: 

5 

5 

20943 

24/P25 

REF 

1 

LAST 

518 

TO 

520: 

37 

37 

20980 

24/R21 

REF 

1 

LAST 

524 

TO 

528: 

162 

162 

21142 

24/R22 

REF 

1 

LAST 

520 

TO 

523: 

146 

146 

2 1288 

24/R23 

REF 

1 

LAST 

528 

TO 

530: 

41 

41 

21329 

24/R24 

REF 

2 

LAST 

531 

TO 

533: 

16 

38 

21367 

25/LPS20 

REF 

1 

LAST 

585 

TO 

588: 

12 

12 

21379 

25/LUROT 

REF 

1 

LAST 

1142 

TO 

1 144: 

68 

68 

2 1447 

25/RRUPT 

REF 

3 

LAST 

618 

TO 

620: 

33 

302 

21749 

25 /R  SUB 

REF 

2 

LAST 

579 

TO 

583: 

77 

657 

22406 

26/eALL 

RFF 

1 

LAST 

492 

TO 

496: 

50 

50 

22456 

26/LR  S24 

RFF 

1 

LAST 

608 

TO 

613: 

173 

173 

22629 

26/LSR22 

REF 

1 

LAST 

595 

TO 

608: 

532 

532 

23161 

26/LUROT 

RFF 

3 

LAST 

1144 

TO 

1 145: 

26 

67 

23228 

26/R06 

REF 

1 

LAST 

488 

TO 

492: 

107 

107 

23335 

26/R63 

RFF 

l 

LAST 

351 

TO 

363: 

65 

65 

23400 

27/ASENT 

REF 

2 

LAST 

856 

TO 

358: 

21 

37 

2 3437 

27/KILL 

RFF 

1 

LAST 

745 

TO 

748: 

38 

38 

23475 

27/P12 

REF 

l 

LAST 

46 

TO 

46: 

4 

4 

2 34  79 

27/P40 

REF 

2 

LAST 

748 

TO 

750: 

83 

93 

23572 

27 /P  70 

REF 

1 

LAST 

40 

TO 

40: 

8 

8 

23580 
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ROUT  I NE : 

COUNT 

DATA 

FOR 

ROUT INE' S 

LAST 

REACH: 

TOTAL 

:CUMUL 

ROUTINE: 

COUNT  DATA 

FOR  ROUTINE'S 

LAST 

REACH: 

TOTAL : 

CUMUL 

27/SERV 

REF 

1 

LAST 

869 

TO 

870: 

31 

31 

23611 

34/P6567 

REF 

l 

LAST 

787 

TO 

789: 

45 

45 

29352 

27/S4C. 1 

REF 

l 

LAST 

76C 

TO 

764  : 

101 

10  l 

23712 

34/S30S 

REF 

1 

LAST 

622 

TO 

627: 

47 

47 

29399 

27/S40.2 

REF 

1 

LAST 

764 

TO 

765: 

28 

28 

2 3 740 

35/P30 

RFF 

1 

LAST 

620 

TO 

622: 

28 

28 

29427 

27/SAC. 6 

REF 

1 

LAST 

777 

TO 

780: 

40 

40 

23730 

35/P3272 

REF 

1 

LAST 

627 

TO 

633: 

l 19 

119 

29546 

27/SAC.O 

REF 

1 

LAST 

765 

TO 

768: 

63 

63 

23843 

35/P3373 

REF 

1 

LAST 

633 

TO 

638: 

140 

140 

29686 

27/SA0.9 

REF 

2 

LAST 

772 

TO 

777  : 

200 

202 

24045 

35/P3474 

REF 

l 

LAST 

664 

TO 

669: 

l 18 

118 

29804 

27/S  A 1 . 1 

REF 

1 

LAST 

780 

TO 

781  : 

4 

4 

24049 

35/P3575 

REF 

2 

LAST 

669 

TO 

689: 

524 

538 

30342 

27/TFF 

REF 

2 

LAST 

1268 

TO 

1282: 

266 

268 

24317 

35/P40 

REF 

2 

LAST 

743 

TO 

744: 

27 

52 

30394 

27/VECPT 

REF 

1 

LAST 

496 

TO 

500: 

136 

136 

24453 

36/P40 

REF 

6 

LAST 

755 

TO 

760: 

l 56 

770 

31164 

27/AO. 13 

REF 

1 

LAST 

768 

TO 

772  : 

107 

10  7 

24560 

36/P41 

REF 

1 

LAST 

750 

TO 

752: 

80 

80 

31244 

30/AS  ENT 

REF 

2 

LAST 

846 

TO 

852: 

312 

314 

24874 

36/P42 

RFF 

1 

LAST 

753 

TO 

753: 

22 

22 

31266 

30/E  X T Vp 

REF 

1 

LAST 

616 

TO 

618: 

47 

47 

24921 

36/P47 

REF 

1 

LAST 

753 

TO 

755: 

52 

52 

31318 

30/FCDUW 

REF 

1 

LAST 

907 

TO 

924: 

446 

446 

25367 

37/P05 

REF 

l 

LAST 

1333 

TO 

1335: 

32 

32 

31350 

30/P  1 2 

REF 

1 

LAST 

839 

TO 

842: 

150 

150 

25517 

37/P06 

REF 

1 

LAST 

1332 

TO 

1333: 

47 

47 

31397 

31/EXTVB 

REF 

l 

LAST 

614 

TO 

616  : 

93 

93 

25610 

3 7/P  07 

REF 

3 

LAST 

395 

TO 

410: 

2 67 

587 

31984 

31/F2CPS 

REF 

A 

LAST 

824 

TO 

830: 

150 

717 

26327 

37/SERV 

REF 

2 

LAST 

873 

TO 

876: 

76 

171 

32155 

31/R13 

REF 

1 

LAST 

79  7 

TO 

799: 

58 

58 

26385 

40/PIN 

REF 

10 

LAST 

485 

TO 

488: 

57 

9 39 

33094 

31/THROT 

REF 

2 

LAST 

789 

TO 

794: 

146 

151 

26536 

40/R31 

RFF 

1 

LAST 

706 

TO 

711: 

204 

204 

33298 

32/F20PS 

REF 

2 

LAST 

815 

TO 

822: 

231 

232 

26768 

41 /FXTVB 

REF 

1 

LAST 

311 

TO 

316: 

63 

63 

33361 

32/LRS22 

REF 

2 

LAST 

588 

TO 

595: 

153 

157 

26925 

41/PIN 

REF 

8 

LAST 

482 

TO 

485: 

82 

1012 

34373 

32/P20 

REF 

1 

LAST 

508 

TO 

510: 

103 

10  3 

27028 

42 /FXTVB 

REF 

2 

LAST 

299 

TO 

300: 

28 

43 

34416 

3 2/P  6 3 

REF 

1 

LAST 

781 

TO 

787: 

186 

186 

27214 

42 /NOUNS 

REF 

1 

LAST 

316 

TO 

332: 

601 

601 

35017 

32/P70 

REF 

2 

LAST 

83  7 

TO 

839  : 

24 

, 139 

27353 

42/PIN 

REF 

2 

LAST 

449 

TO 

452: 

92 

238 

35255 

32/RA7 

REF 

1 

LAST 

218 

TO 

222: 

134 

134 

27487 

42/R05 

RFF 

2 

LAST 

501 

TO 

505: 

1 14 

116 

35371 

32/SERV 

REF 

1 

LAST 

870 

TO 

871  : 

32 

32 

27519 

42/R33 

REF 

1 

LAST 

287 

TO 

288: 

27 

27 

35398 

3 3/A  S ENT 

REF 

1 

LAST 

858 

TO 

860: 

44 

44 

27563 

43/EXTVB 

REF 

6 

LAST 

309 

TO 

311: 

60 

498 

35896 

33/SERV 

REF 

0 

LAST 

894 

TO 

895: 

16 

887 

28450 

43/PHASE 

REF 

1 

LAST 

1291 

TO 

1291: 

14 

14 

35910 

3A/A  SENT 

REF 

2 

LAST 

85  3 

TO 

856: 

140 

184 

2 3 634 

43 /P? 7 

REF 

1 

LAST 

1385 

TO 

1386: 

11 

11 

35921 

3A/CS  I 

REF 

1 

LAST 

638 

TO 

656: 

650 

650 

29284 

43/R0477 

REF 

l 

LAST 

288 

TO 

292: 

172 

172 

36093 

3A/P  12 

REF 

1 

LAST 

842 

TO 

844: 

23 

23 

29307 

43/SELF 

RFF 

1 

LAST 

1282 

TO 

1291: 

3 14 

314 

36407 
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4000 

TO 

4377 

PARAGRAPH 

# 

010 

ROPE 

MODULE 

1, 

SIDE 

A, 

SENSE 

LINE 

SET 

5 

(WIRES 

65-  80) 

4400 

TO 

4777 

PARAGRAPH 

It 

on 

ROPE 

1 , 

SIDE 

B, 

SENSE 

L INF 

SET 

5 

(WIRES 

65-  80) 

5 000 

TO 

5377 

PAPAGRAPH 

It 

012 

ROPE 

MODULE 

1 , 

SI  DE 

A, 

SENSE 

LINE 

SET 

6 

(WIRES 

31-  96) 

5400 

TO 

5777 

PARAGRAPH 

tt 

013 

ROPE 

MODULE 

1 , 

SIDE 

B, 

SENSE 

LINE 

SET 

6 

(WIRES 

31-  96) 

6000 

TO 

6377 

PARAGRAPH 

It 

014 

ROPE 

MODULE 

1 , 

SIDE 

A , 

SENSE 

LINE 

SET 

7 

(WIRES 

97-112) 

6400 

TC 

6777 

PARAGRAPH 

II 

015 

ROPE 

MODULE 

1 , 

SIDE 

B, 

SENSF 

L INF 

SET 

7 

(WIRES 

97-112) 

7000 

TO 

7377 

PAPAGRAPH 

It 

016 

ROPE 

MODULE 

1 , 

SIDE 

A, 

SENSE 

LINE 

SET 

8 

(WIRES 

113-128) 

7400 

TO 

7777 

PARAGRAPH 

It 

017 

ROPE 

MODULE 

1 , 

SIDE 

8, 

SENSE 

L INE 

SET 

8 

(WIRES 

113-128) 

00..2000 

TC 

00,2377 

PARAGRAPH 

tt 

020 

ROPE 

MODULE 

1 , 

SIDE 

A, 

SENSE 

LINE 

SET 

1 

(WIRES 

1-  16) 

00,2400 

TC 

00,2777 

PARAGRAPH 

U 

021 

ROPE 

MODULE 

1 , 

S I DE 

B, 

SENSE 

L INE 

SET 

1 

(WIRES 

1-  16) 

00,3000 

TC 

OC , 3377 

PARAGRAPH 

It 

022 

ROPE 

MODULE 

1 , 

SIDE 

A, 

SENSE 

LINE 

SET 

2 

(WIRES 

17-  32) 

00,3400 

TC 

00,3777 

PARAGRAPH 

tl 

023 

ROPE 

MODULE 

1, 

SIDE 

B, 

SENSE 

LINE 

SET 

2 

(WIPES 

17-  32) 

01,2000 

TC 

01,2377 

PARAGRAPH 

It 

024 

ROPE 

MODULE 

1 , 

SIDE 

A, 

SENSE 

LINE 

SET 

3 

(WIPES 

33-  48) 

01,2400 

TO 

0 l,  2777 

PARAGRAPH 

It 

025 

ROPE 

MODULE 

1 , 

SIDE 

B, 

SENSE 

L INE 

SET 

3 

(WIRES 

33-  48) 

01,3000 

TC 

01,3377 

PARAGRAPH 

tl 

026 

ROPE 

MODULE 

1, 

SIDE 

A, 

SENSE 

L INE 

SET 

4 

(WIRES 

49-  64) 

01,3400 

TC 

01,3777 

PARAGRAPH 

It 

027 

ROPE 

MODULE 

1, 

SIDE 

B, 

SENSE 

L INE 

SET 

4 

(WIRES 

49-  64) 

04,2000 

TC 

04,2377 

PARAGRAPH 

n 

040 

ROPE 

MODULE 

1 , 

SIDE 

A, 

SENSE 

LINE 

SET 

9 

(WIRES 

129-144) 

04,2400 

TC 

04,2777 

PARAGRAPH 

tt 

041 

ROPE 

MODULE 

1 , 

SIDE 

B, 

SENSE 

L INE 

SET 

9 

(WIRES 

129-144) 

04,3000 

TC 

04,3377 

PARAGRAPH 

H 

042 

ROPE 

MODULE 

1 , 

SIDE 

A, 

SENSE 

LINE 

SET 

10 

(WIPFS 

145-160 ) 

04,3400 

TC 

04,3777 

PARAGRAPH 

it 

043 

ROPE 

MODULE 

1 , 

SIDE 

B, 

SENSE 

LINE 

SET 

10 

(WIRES 

145-160) 

05,2000 

TC 

05,2377 

PARAGRAPH 

it 

044 

ROPE 

MODULE 

1 , 

SIDE 

A, 

SENSE 

LINE 

SET 

11 

(WIRES 

161-176) 

05,2400 

TC 

05,2777 

PARAGRAPH 

tt 

045 

ROPE 

MODULE 

1 , 

SIDE 

B, 

SENSE 

L INE 

SET 

11 

( WIRFS 

161-1 76) 

05,30 

TC 

05,3377 

PAPAGRAPH 

ii 

046  • 

ROPE 

MODULE 

1 , 

S I DE 

A, 

SENSE 

L INE 

SET 

12 

(WIPES 

177-192) 

05,3400 

TC 

05,3777 

PARAGRAPH 

it 

047 

ROPE 

MODULE 

1 , 

SIDE 

B, 

SENSE 

L INE 

SET 

12 

(WIRES 

177-192) 

06,2000 

TC 

06,2377 

PARAGRAPH 

it 

050 

ROPE 

MODULE 

2, 

SIDE 

A, 

SENSE 

LINE 

SET 

1 

(WIRES 

l-  16) 

06,2400 

TC 

06,2777 

PARAGRAPH 

it 

051 

ROPE 

MODULE 

2, 

SIDE 

B, 

SENSE 

L INE 

SET 

1 

(WIRES 

1-  16) 

06,3000 

TC 

06,3377 

PARAGRAPH 

it 

052 

ROPF 

MODULE 

2, 

SIDE 

A, 

SENSE 

LINE 

SET 

2 

(WIRES 

17-  32) 

06,3400 

TC 

06,3777 

PARAGRAPH 

it 

053 

ROPE 

MODULE 

2, 

SIDE 

B, 

SENSE 

LINE 

SET 

2 

(WIRES 

17-  32) 

07,2000 

TC 

07,2377 

PARAGRAPH 

H 

054 

ROPE 

MODULE 

2, 

SIDE 

A, 

SENSE 

LINE 

SET 

3 

(WIRES 

33-  481 

07,2400 

TC 

07, 2777 

PARAGRAPH 

tl 

055 

ROPE 

MODULE 

2, 

SIDE 

8, 

SENSE 

LINE 

SET 

3 

(WIRES 

33-  48) 

07,3000 

TC 

07,3377 

PARAGRAPH 

It 

056 

ROPE 

MODULE 

2, 

SIDE 

A, 

SENSE 

LINE 

SET 

4 

(WIRES 

49-  64) 

07,3400 

TC 

07,3777 

PARAGRAPH 

tt 

057 

ROPE 

MODULE 

2, 

SIDE 

B, 

SENSE 

LINE 

SET 

4 

(WIRES 

49-  64) 

10,2000 

TC 

10,2377 

PARAGRAPH 

It 

060 

ROPF 

MODULE 

2, 

SIDE 

A , 

SENSE 

LINE 

SET 

5 

(WIRES 

65-  80) 

10,2400 

TC 

10,2777 

PARAGRAPH 

tl 

061 

ROPE 

MODULE 

2, 

SIDE 

B, 

SENSE- 

L INE 

SET 

5 

(WIRES 

65-  80) 

10,3000 

TC 

10,3377 

PARAGRAPH 

If 

062 

ROPE 

MODULE 

2, 

SIDE 

A, 

SENSE 

LINE 

SET 

6 

(WIRES 

81-  96) 

10,3400 

TC 

10,3777 

PARAGRAPH 

U 

063 

ROPF 

MODULE 

2, 

SIDE 

B, 

SENSE 

LINE 

SET 

6 

(WIRES 

81-  96) 

11,2000 

TC 

1 1,2377 

PARAGRAPH 

tt 

064 

ROPE 

MODULE 

2, 

SIDE 

A, 

SENSE 

LINE 

SET 

7 

( W I R fc  S 

97-112) 

11 ,2400 

TC 

11,2777 

PARAGRAPH 

It 

065 

ROPE 

MODULE 

2, 

SI  DE 

B, 

SENSE 

L INE 

SET 

7 

(WIRES 

97-112) 

1 l ,3000 

TC 

11,3377 

PARAGRAPH 

It 

066 

ROPE 

MODULE 

2, 

SIDE 

A , 

SENSE 

LINE 

SET 

8 

(WIRES 

113-128) 

11,3400 

TC 

11,3777 

PARAGRAPH 

It 

067 

ROPE 

MODULE 

2 , 

SIDE 

B, 

SENSE 

L INE 

SET 

8 

(WIRES 

113-128) 

12,2  )( 

TC 

12,2377 

PARAGRAPH 

It 

070 

ROPE 

MODULE 

2, 

SIDE 

A, 

SENSE 

LINE 

SET 

9 

(WIRFS 

129-144) 

12,2400 

TC 

12,2777 

PARAGRAPH 

tl 

071 

ROPE 

MODULE 

2 , 

SIDE 

B, 

SENSE 

LINE 

SET 

9 

(WIRES 

129-144) 

12,3000 

TC 

12,3377 

PARAGRAPH 

It 

072 

ROPE 

MODULE 

2, 

SIDE 

A, 

SENSE 

LINE 

SET 

10 

( WIR  ES 

145-160 ) 

FACH 
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12 ,3  A 00 

TO 

12,3777 

PARAGRAPH 

ti 

0 73 

ROPE 

MODULE 

2 , 

SIDE 

B, 

SENSE 

LINE 

SET 

10 

I WIRES 

1 

O' 

o 

13,2000 

TC 

13, 2377 

PARAGRAPH 

ti 

0 74 

ROPE 

MODULE 

2, 

SIDE 

A, 

SENSE 

LINE 

SET 

1 1 

(WIRES 

161-176) 

13,2400 

TO 

13,2777 

PARAGRAPH 

ti 

075 

ROPE 

MODULE 

2 , 

SI  DE 

B, 

SENSE 

LINE 

SET 

11 

(WIRES 

161-176) 

13,3000 

TC 

13,3377 

PARAGRAPH 

ti 

076 

ROPE 

MODULF 

2, 

SIDE 

A, 

SENSE 

LINE 

SET 

12 

(WIRES 

177-192) 

13,3400 

TC 

13,3777 

PARAGRAPH 

ti 

077 

ROPE 

MODULE 

2, 

SIDE 

B, 

SENSE 

LINE 

SET 

12 

(WIRES 

177-192) 

14,2000 

TC 

14,2377 

PARAGRAPH 

ti- 

100 

ROPE 

MODULE 

3, 

SIDE 

A, 

SENSE 

LINE 

SET 

l 

(WIRES 

1-  16) 

14 , 2 4 C 0 

TC 

14,2777 

PARAGRAPH 

ll 

101 

ROPE 

MODULE 

3, 

SIDE 

B, 

SENSE 

LINE 

SET 

1 

(WIPES 

1-  16  ) 

1 4 , 3 0 CO 

TC 

14,3377 

PARAGRAPH 

ti 

102 

ROPE 

MODULE 

3, 

SIDE 

A, 

SENSE 

LINE 

SET 

2 

(WIRES 

17-  32) 

14,3400 

TO 

14,3777 

PARAGRAPH 

# 

103 

ROPE 

MOOULE 

3 , 

SIDE 

B, 

SENSE 

LINE 

SET 

2 

(WIRES 

17-  32) 

15,2600 

TC 

15,2377 

PARAGRAPH 

ti 

104 

ROPE 

MODULE 

3, 

SIDE 

A, 

SENSE 

LINE 

SFT 

3 

(WIRES 

33-  48) 

15,2400  . 

TC 

15,2777 

PARAGRAPH 

ti 

105 

ROPE 

MODULE 

3, 

SIDE 

B, 

SENSE 

LINE 

SET 

3 

( WIPES 

33-  48) 

15,3000 

TO 

15,3377 

PARAGRAPH 

ti 

106 

ROPE 

MODULE 

3 , 

SIDE 

A, 

SENSE 

LINE 

SET 

4 

(WIRES 

49-  64) 

15,3400 

TC 

15,3777 

PARAGRAPH 

ti 

107 

ROPE 

MODULE 

3, 

SIDE 

B, 

SENSE 

LINE 

SET 

4 

(WIRES 

49-  64) 

16,2000 

TC 

It, 2377 

PARAGRAPH 

ti 

1 10 

ROPE 

MODULE 

3, 

SIDE 

A, 

SENSE 

L INE 

SET 

5 

(WIRES 

65-  80) 

16,2400 

TO 

16,2777 

PARAGRAPH 

ti 

111 

ROPE 

MOOULE 

3, 

SIDE 

B, 

SENSE 

LINE 

SET 

5 

(WIRES 

65-  80) 

16,3000 

TO 

16,3377 

PARAGRAPH 

ti 

1 12 

ROPE 

MODULE 

3, 

SIDE 

A, 

SENSE 

L INF 

SET 

6 

( WIRFS 

81-  96) 

16,3400 

TO 

It, 3777 

PARAGRAPH 

ti 

1 13 

ROPF 

MOOUIE 

3, 

SIDE 

B , 

SENSF 

LINE 

SET 

6 

(WIRES 

81-  96) 

17,2000 

TO 

17, 2377 

PARAGRAPH 

ti 

114 

ROPE 

MODULF 

3, 

SIDE 

A , 

SENSE 

LINE 

SET 

7 

( WIRES 

97-112) 

17,2400 

TC 

17,2777 

PARAGRAPH- 

ti 

115 

ROPE 

MODULE 

3, 

SIDE 

B, 

SENSE 

LINE 

SET 

7 

(WIRES 

97-1  12) 

1 7,3000 

TO 

17,3377 

PARAGRAPH 

ti 

1 16 

ROPE 

MODULC 

3, 

SIDE 

A, 

SENSE 

L INF 

SET 

8 

(WIRES 

113-128) 

17,3400 

rc 

17,3777 

PARAGRAPH 

ti 

117 

ROPE 

MOOULE 

3, 

SI  DE 

B, 

SENSE 

L INF 

SET 

8 

(WIRES 

1 13-128) 

20,2000 

TC 

20,2377 

PARAGRAPH 

ti 

120 

ROPE 

MODULE 

3, 

SI  DE 

A, 

SENSE 

LINE 

SET 

9 

(WIRES 

129-144) 

20,2400 

TC 

20,2777 

PARAGRAPH 

ti 

121 

ROPE 

MODULE 

3, 

SI  DF 

B, 

SENSE 

LINE 

SET 

9 

(WIRFS 

129-144  ) 

20,3000 

TC 

20,3377 

PARAGRAPH 

ti 

122 

ROPE 

MODULE 

3, 

SIDE 

A, 

SENSE 

LINE 

SFT 

10 

(WIRES 

145-160) 

20,3400 

TC 

20,3777 

PARAGRAPH 

ti 

123 

ROPE 

MODULE 

3, 

SIDE 

B, 

SENSE 

LINE 

SET 

10 

(WIRES 

145-160 ) 

21,2000 

TC 

21,2377 

PARAGRAPH 

ti 

124 

' ROPE 

MODULF 

3, 

SI  DE 

A, 

SENSE 

LINE 

SET 

11 

(WIRES 

161-176) 

21.24C0 

TC 

21,2777 

PARAGRAPH 

ti 

125 

ROPE 

MODULE 

3 , 

SI  DE 

B, 

SENSE 

LINE 

SET 

11 

(WIRES 

161-176) 

21,3000 

TC 

21,3377 

PARAGRAPH 

ti 

126 

ROPE 

MODULE 

3, 

SIDE 

A, 

SENSE 

LINE 

SFT 

12 

(WIPES 

177-192  ) 

21,3400 

1C 

21,3777 

PARAGRAPH 

ti 

127 

ROPF 

MODULE 

3, 

SIDE 

B, 

SENSE 

LINE 

SET 

12 

(WIRES 

177-192) 

22,2000 

TC 

22,2377 

PARAGRAPH 

ti 

130 

ROPE 

MODULF 

4 , 

SIDE 

A, 

SENSE 

L INE 

SET 

1 

(WIRES 

l-  16) 

22,2400 

TO 

22,2777 

PARAGRAPH 

ti 

131 

ROPE 

MODULF 

4, 

SIDE 

B, 

SENSE 

LINE 

SET 

1 

(WIRES 

1-  16  ) 

22,3000 

TC 

22,3377 

PARAGRAPH 

ti 

132 

ROPE 

■MODULE 

4, 

SIDE 

A, 

SENSE 

LINE 

SET 

2 

(WIRES 

17-  32) 

22,3400 

TO 

22,3777 

PARAGRAPH 

ti 

133 

ROPE 

MODULE 

4, 

SIDE 

B, 

SENSE 

L INF 

SET 

2 

( W T k F S 

17-  32) 

23,2000 

TC 

23,2377 

PARAGRAPH 

ti 

134 

ROPE 

MOOULE 

4, 

SIDE 

A, 

SENSE 

LINE 

SFT 

3 

(WIRES 

33-  48) 

23,2400 

TC 

23,2777 

PARAGRAPH 

ti 

135 

ROPE 

MODULE 

4, 

SIDE 

B, 

SENSE 

LINE 

SET 

3 

(WIRES 

33-  48) 

23,3000 

TC 

23,3377 

PARAGRAPH 

ti 

136 

ROPE 

MODULE 

4, 

SIDE 

A, 

SENSE- 

L INE 

SFT 

4 

( WIRFS 

49-  64) 

23,3400 

TC 

23,3777 

PARAGRAPH 

# 

137 

ROPE 

MODULE 

4, 

SIDE 

B, 

SENSE 

LINE 

SET 

4 

1 IRES 

49-  64) 

24,2000 

TO 

24,2377 

PARAGRAPH 

ti 

140 

ROPE 

MODULE 

4, 

SIDE 

A, 

SENSE 

L INE 

SET 

5 

( WIRES 

65-  80) 

24,2400 

TC 

24,2777 

PARAGRAPH 

# 

141 

ROPE 

MODULE 

4 , 

SIDE 

B, 

SENSE 

LINE 

SET 

5 

(WIRFS 

65-  80) 

24,3000 

TC 

24,3377 

PARAGRAPH 

ti 

142 

ROPE 

MODULE 

4, 

SIDE 

A, 

SENSE 

LINE 

SET 

6 

(WIRES 

81-  96) 

24,3400 

TC 

24,3777 

PARAGRAPH 

ti 

143 

ROPE 

MODULE 

4 , 

SIDE 

B, 

SENSE 

L INC- 

SET 

6 

(.WIRES 

81-  96) 

25,2000 

TC 

25, 2377 

PARAGRAPH 

ti 

144 

ROPE 

MODULE 

4 , 

SIDE 

A, 

SENSE 

LINE 

SFT 

7 

(WIRES 

97-1  12  ) 

25,2400 

TC 

25,2777 

PARAGRAPH 

# 

145 

ROPE 

MODULE 

4, 

SIDE 

B, 

SENSE 

LINE 

SET 

7 

(WIRES 

97-112) 

25,3000 

TC 

25,3377 

PARAGRAPH 

ti 

146 

ROPE 

MODULE 

4 , 

SIDE 

A, 

SENSE 

LINE 

SET 

8 

(WIRFS 

113-128) 

25,3400 

TO 

25,3777 

PARAGRAPH 

ti 

147 

ROPE 

MODULE 

4 , 

SIDE 

B, 

SENSE 

LINE 

SET 

8 

(WIRES 

113-128) 
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26,2000 

TO 

26,2377 

PARAGRAPH 

150 

ROPE 

MODULE 

4, 

STOE 

A, 

SENSE 

LINE 

SET 

9 

(WIRES 

129-144) 

26,2400 

TC 

26,2777 

PARAGRAPH 

# 

151 

ROPE 

MODULE 

4, 

SI  OE 

B, 

SENSE 

LINE 

SET 

9 

(WIRES 

129-144) 

26,3000 

TO 

26,3377 

PARAGRAPH 

# 

152 

ROPE 

MODULE 

4, 

SIDE 

A, 

SENSE 

LINF 

SET 

10 

(WIRES 

145-160 ) 

26,3400 

TO 

26,3777 

PARAGRAPH 

tt 

153 

ROPE 

MODULE 

4 , 

SIDE 

B, 

SENSE 

LINE 

SET 

10 

(WIRES 

145-160 ) 

27, 

TC 

27,2377 

PARAGRAPH 

# 

154 

ROPE 

MODULE 

4, 

SIDE 

A , 

SENSE 

LINE 

SET 

11 

(WIRES 

161-176) 

27,2400 

TC 

27,2777 

PARAGRAPH 

tt 

155 

ROPE 

MODULE 

4, 

SIDE 

B, 

SENSE 

LINE 

SET 

1 l 

(WIRES 

161-176) 

27,3000 

TO 

27,3377 

PARAGRAPH 

tt 

156 

ROPE 

MODULE 

4 , 

SIDE 

A, 

SENSE 

LINE 

SET 

12 

(WIRES 

177-192  ) 

27,3400 

TC 

27,3777 

PARAGRAPH 

tt 

157 

ROPE 

MODULE 

4 , 

SIDE 

B, 

SENSE 

LINE 

SET 

12 

(WIRES 

177-192) 

30,2000 

TC 

30,2377 

PARAGRAPH 

tt 

160 

ROPE 

MODULE 

5 , 

SIDE 

A, 

SENSE 

LINE 

SET 

1 

(WIRES 

l-  16  ) 

30,2400 

TC 

30,2777 

PARAGRAPH 

tt 

161 

ROPE 

MODULE 

5, 

SIDE 

B, 

SENSE 

LINE 

SET 

1 

(WIRES 

1-  16 ) 

30,3000 

TC 

30,3377 

PARAGRAPH 

tt 

162 

ROPE 

MODULE 

5, 

SIDE 

A , 

SENSE 

L INE 

SET 

2 

(WIRES 

17-  32) 

30,3400 

TC 

30,3777 

PARAGRAPH 

tt 

163 

ROPE 

MODULE 

5, 

SIDE 

B, 

SENSE 

L INE 

SET 

2 

(WIRES 

17-  32) 

31,2000 

TG 

31,2377 

PARAGRAPH 

tt 

164 

ROPE 

MODULE 

5, 

SIDE 

A, 

SENSE 

LINE 

SET 

3 

(WIRES 

33-  48) 

31,2400 

TC 

31,2777 

PARAGRAPH 

tt 

165 

ROPE 

MODULE 

5 , 

SIDE 

B, 

SENSE 

L INE 

SET 

3 

(WIRES 

33-  48) 

31 ,3000 

TO 

31,3377 

PARAGRAPH 

it 

166 

ROPE 

MODULE 

5, 

SIDE 

A, 

SENSE 

LINF 

SET 

4 

( WIRFS 

49-  64) 

31 ,3400 

TC 

31,3777 

PARAGRAPH 

it 

167 

ROPE 

MODULE 

5, 

SIDE 

B, 

SENSE 

LINE 

SET 

4 

(WIRES 

49-  64) 

32,2000 

TO 

32,2377 

PARAGRAPH 

tt 

170 

ROPE 

MODULE 

5, 

SIDE 

A, 

SENSE 

LINE 

SET 

5 

(WIRFS 

65-  80) 

32,2400 

TC 

32,2777 

PARAGRAPH 

it 

171 

ROPE 

MODULE 

5, 

SIDE 

B, 

SENSE 

LINE 

SET 

5 

(WIRES 

65-  80) 

32,3000 

TO 

32,3377 

PARAGRAPH 

tt 

172 

ROPE 

MODULE 

5, 

SIDE 

A, 

SENSE 

LINE 

SET 

6 

(WIRES 

31-  96) 

32,3400 

TC 

32,3777 

PARAGRAPH 

It 

173 

ROPE 

MODULE 

5 , 

SIDE 

B, 

SENSE 

LINE 

SET 

6 

(WIRES 

81-  96) 

33,2000 

TC 

33,2377 

PARAGRAPH 

tt 

174 

ROPE 

MODULE 

5, 

SIDE 

A, 

SENSE 

LINF 

SET 

7 

(WIRFS 

97-1 12  ) 

33,2400 

TC 

33,2777 

PARAGRAPH 

tt 

175 

ROPE 

MODULE 

5 , 

SIDE 

B, 

SENSE 

LINE 

SET 

7 

(WIRES 

97- 112) 

33 ,3000 

TC 

33,3377 

PARAGRAPH 

tt 

176 

ROPE 

MODULE 

5, 

SIDE 

A, 

SENSE 

LINF 

SET 

0 

( 1 

I 13-128) 

33,3400 

TC 

33,3777 

PARAGRAPH 

tt 

177 

ROPE 

MODULE 

5 , 

SIDE 

B, 

SENSE 

LINE 

SET 

8 

(WIRES 

113-129) 

34,2000 

TO 

34,2377 

PARAGRAPH 

tt 

200 

ROPE 

MODULE 

5, 

SIDE 

A, 

SENSE 

LINF 

SET 

9 

(WIRES 

129-144 ) 

34 , 24  CO 

TC 

34,2777 

PARAGRAPH 

tt 

201 

ROPE 

MODULE 

5, 

SIDE 

B, 

SENSE 

LINE 

SET 

9 

(WIRES 

129-144  ) 

34,3000 

TO 

34,3377 

PARAGRAPH 

It 

202 

ROPE 

MODULE 

5, 

SIDE 

A, 

SENSE 

LINE 

SET 

10 

(WIRES 

145- 1 60  ) 

34 , 3 400 

TC 

34,3777 

PARAGRAPH 

It 

203 

ROPE 

MODULE 

5, 

SIDE 

B , 

SENSE 

LINE 

SET 

10 

(WIRES 

145-1 60 ) 

35 ,2000 

TC 

35,2377 

PARAGRAPH 

tt 

204 

ROPE 

MODULE 

5, 

SIDE 

A, 

SENSE 

LINE 

SET 

11 

(WIRES 

161-1 76 ) 

35 ,24  CO 

TC 

35,2777 

PARAGRAPH 

It 

205 

ROPE 

MODULE 

5, 

SIDE 

B, 

SENSE 

LINE 

SET 

11 

(WIRES 

161-176) 

35 ,3000 

TC 

35,3377 

PARAGRAPH 

tt 

206 

ROPE 

MODULE 

5, 

SIDE 

A, 

SENSE 

LINE 

SET 

12 

(WIRES 

177-192  ) 

35,3400 

T C 

35,3777 

PARAGRAPH 

tt 

207 

ROPE 

MODULE 

5, 

SIDE 

B, 

SENSE 

LINE 

SET 

12 

(WIRFS 

177-192  ) 

36,2000 

TC 

36,2377 

PARAGRAPH 

tt 

210 

ROPE 

MODULE 

6, 

SIDE 

A , 

SENSE 

LINE 

SET 

1 

(WIRFS 

1-  16  ) 

36,2400 

TC 

36,2777 

PARAGRAPH 

tt 

211 

ROPE 

MODULE 

6, 

SIDE 

B, 

SENSE 

LINE 

SET 

1 

(WIRES 

1-  16) 

36 ,3000 

TC 

36,3377 

PARAGRAPH 

tt 

212 

ROPE 

MODULE 

6, 

SIDE 

A , 

SENSE 

LINF 

SET 

2 

(WIPES 

17-  32) 

36,3400 

TC 

36,3777 

PARAGRAPH 

It 

213 

ROPE 

MODULE 

6 , 

SIDE 

B, 

SENSE 

LINE 

SET 

2 

(WIRES 

17-  32) 

37,2000 

TO 

37,2377 

PARAGRAPH 

tt 

2 14 

ROPE 

MODULE 

6, 

SIDE 

A, 

SENSE 

LINE 

SET 

3 

(WIRES 

33-  48) 

3 7 , 2 4 C 0 

T C 

3 6,2777 

PARAGRAPH 

tt 

215 

ROPE 

MOOULE 

6, 

SIDE 

B, 

SENSE 

LINE 

SET 

3 

(WIRES 

33-  48) 

37,3000 

TC 

37,3377 

PARAGRAPH 

tt 

2 16 

ROPE 

MODULE 

6, 

SIDE 

A, 

SENSE 

LINE 

SET 

4 

(WIRES 

49-  64) 

3 7 ,3400 

TC 

37,3777 

PARAGRAPH 

tt 

217 

ROPE 

MODULE 

6, 

SIDE 

8, 

SENSE 

LINE 

SET 

4 

(WIRES 

49-  64) 

40,2000 

TO 

40,2377 

PARAGRAPH 

tt 

220 

ROPE 

MODULE 

6, 

SIDE 

A, 

SENSE 

LINF 

SET 

5 

(WIRES 

65-  80) 

4 0 , 2 4 C 0 

TC 

4 C ,2777 

PARAGRAPH 

tt 

221 

ROPE 

MODULE 

6, 

SIDE 

8, 

SENSE 

LINE 

SET 

5 

(WIRES 

65-  80) 

*♦■0  T D 000 

/.A  O /. 

T 0 

40, 3377 

PARAGRAPH 

tt 

222 

ROPE 

MODULE 

6, 

SI  DE 

A, 

SENSE 

LINE 

SET 

6 

(WIRES 

81-  96) 

hU f J h 00 

TC 

40, 3777 

PARAGRAPH 

tt 

223 

ROPE 

MODULE 

6, 

SIDE 

B, 

SENSE 

LINE 

SET 

6 

(WIRES 

81-  96) 

4 1 1 2 000 

TC 

41,2377 

PARAGRAPH 

tt 

224 

ROPE 

MODULE 

6, 

SIDE 

A, 

SENSE 

LINE 

SET 

7 

( WIRES 

97-1 12) 

I 

I 

GAP:  ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-161  17:  11  MAR.  19,1971  PAGE  1589 

* PARAGRAPHS  GENERATED  FOR  THIS  ASSEMBLY;  ADDRESS  LIMITS  AND  THE  MANUFACTURING  LOCATION  CODE  AR F SHOWN  FOR  EACH 


<<1,2400 

TC 

41,2777 

PARAGRAPH 

H 

225 

ROPE 

MODULE 

6, 

SIDE 

B, 

SENSE 

LINE 

SFT 

7 

(WIRES 

97-112) 

41,3000 

TC 

41,3377 

PARAGRAPH 

# 

226 

ROPE 

MODULE 

6, 

SIDE 

A, 

SENSE 

LINE 

SET 

8 

( WIPES 

113-128) 

41,3400 

TO 

41,3777 

PARAGRAPH 

It 

227 

ROPE 

MODULE 

6, 

SIOE 

B, 

SENSE 

L INE 

SET 

8 

(WIRES 

113-128) 

42,2000 

TC 

42,2377 

PARAGRAPH 

# 

230 

ROPE 

MODULE 

6, 

SIDE 

A, 

SENSE 

LINE 

SET 

9 

(WIRES 

129-144) 

42,2400 

TC 

42,2777 

PARAGRAPH 

H 

231 

ROt>E 

MOOULE 

6, 

SIDE 

B, 

SENSE 

L INE 

SET 

9 

(WIRES 

129-144) 

42 , 3 0 CO 

TO 

42,3377 

PARAGRAPH 

It 

232 

ROPE 

MODULE 

6, 

SIDE 

A, 

SENSE 

LINE 

SET 

10 

(WIRES 

145-160) 

42,3400 

TC 

42,3777 

PARAGRAPH 

H 

233 

ROPE 

MODULE 

6 , 

SIDE 

B, 

SENSE 

LINE 

SET 

10 

( WIRFS 

145-160) 

4 3 ,2  0 CO 

TC 

42,2377 

PARAGRAPH 

It 

234 

ROPE 

MODULE 

6 , 

SIDE 

A, 

SENSE 

L INE 

SET 

11 

(WIPES 

161-176) 

43,2400 

TC 

42,2777 

PARAGRAPH 

It 

235 

ROPE 

MODULE 

6, 

SIDE 

B, 

SENSE 

LINE 

SET 

11 

(WIRES 

161-176) 

43 ,3  0 C 0 

TO 

43, 3377 

PARAGRAPH 

It 

236 

ROPE 

MODULE 

6, 

SI  DE 

A, 

SENSE 

L INF 

SFT 

12 

(WIRES 

177-192) 

43,3400 

TO 

43,3777 

PARAGRAPH 

<t 

237 

ROPE 

MODULE 

6, 

SI  DE 

B, 

SENSE 

LINE 

SET 

12 

(WIRES 

177-192  ) 

> 


I 


> 


> 


GAP:  ASSEMBLE  REVISION  210  OF  AGC  PROGRAM  LUMINARY  ,BY  NASA  202II12-I61  17:11  MAR.  19,1971  ' PAGE  1590 
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ALL  VALID 

WORDS  ARE  1 

BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

( INTERPRETIVE 

OPERATOR 

WORDS)  OR 

"C 

" (CONSTANTS 

) 

4000 

00004 

0 

34054 

1 

56006 

1 

12671 

1 

52011 

0 

00006 

1 

34056 

0 

52006 

0 

4010 

5201  1 

0 

00006 

1 

31263 

1 

52006 

0 

52011 

0 

34057 

1 

56006 

l 

13412 

1 

4020 

5201  1 

0 

34064 

1 

56006 

1 

12000 

1 

52011 

0 

34060 

0 

56006 

1 

13257 

0 

403C. 

52011 

0 

34061 

1 

56006 

1 

12354 

0 

52011 

0 

34060 

0 

56006 

1 

13302 

1 

4040 

52011 

0 

34062 

1 

56006 

1 

13507 

1 

52011 

0 

34063 

0 

56006 

1 

13157 

0 

4050 

52011 

0 

34065 

0 

56006 

1 

12302 

0 

C: 

12103 

0 

C: 

021  17 

1 

C: 

36106 

0 

C: 

02103 

1 

4060 

C : 

10  100 

1 

C: 

1 >1  I 

0 

C : 

12100 

0 

C: 

52107 

0 

C: 

14  106 

0 

C: 

22107 

1 

C: 

04025 

1 

C: 

10003 

0 

4070 

C : 

14031 

0 

C: 

20033 

0 

C : 

24017 

1 

C: 

30036 

1 

C: 

34034 

1 

C: 

40023 

1 

C: 

44035 

1 

C: 

50037 

0 

4100 

C : 

540  00 

0 

C: 

60000 

1 

00004 

0 

00006 

l 

00004 

0 

54001 

1 

00006 

l 

06004 

0 

4110 

00006 

1 

14115 

1 

00006 

1 

00004 

0 

54001 

1 

44724 

0 

60001 

0 

00006 

l 

4120  ' 

14103 

0 

00006 

1 

00003 

1 

00002 

0 

34144 

1 

71021 

1 

00006 

1 

14131 

1 

4 130 

04132 

0 

31017 

0 

54023 

1 

30023 

0 

04607 

1 

C: 

62366 

0 

34  746 

0 

55012 

1 

4140 

31021 

0 

04246 

0 

04143 

0 

05146 

1 

C: 

37600 

0 

22007 

0 

54123 

0 

34727 

1 

41  50  ’ 

71020 

0 

61011 

0 

10000 

0 

00002 

0 

34744 

1 

60002 

0 

55036 

1 

23021 

0 

4 160 

C4175 

0 

34172 

1 

560C6 

1 

00006 

1 

04007 

l 

55037 

0 

34  172 

l 

00006 

1 

4170 

01007 

1 

02020 

l 

C: 

62101 

0 

53037 

0 

05167 

1 

34726 

0 

55020 

0 

00002 

0 

4200 

22002 

0 

0421  1 

1 

04215 

0 

30001 

0 

75003 

0 

60004 

0 

55041 

l 

05124 

0 

42  10 

05146 

1 

1104  1 

1 

04220 

0 

00002 

0 

04220 

0 

11042 

l 

04220 

0 

00002 

0 

4220 

C 5626 

0 

C: 

31206 

1 

34172 

1 

00006 

l 

01007 

1 

34233 

1 

55012 

1 

44351 

0 

4230 

54776 

0 

04626 

1 

C: 

61477 

1 

C: 

00042 

1 

34172 

1 

00006 

1 

01007 

1 

34245 

0 

4240 

55012 

1 

44351 

0 

54776 

0 

04626 

l 

C: 

61471 

1 

C: 

00041 

1 

74750 

0 

54123 

0 

4250 

34727 

1 

71020 

0 

61011 

0 

10000 

0 

00002 

0 

24O02 

0 

10  123 

0 

14261 

1 

4260 

00002 

0 

22002 

0 

34273 

0 

56006 

1 

00006 

1 

04007 

1 

52131 

0 

34  172 

l 

4270 

00006 

l 

0100  7 

1 

03543 

0 

C: 

60101 

1 

55016 

0 

54003 

0 

74350 

1 

65000 

1 

4300 

54145 

0 

00002 

0 

31016 

l 

14275 

1 

54003 

0 

74350 

1 

65000 

1 

00002 

0 

43  10 

C: 

00016 

0 

C: 

0001  1 

1 

C : 

00004 

0 

54020 

1 

40020 

1 

40020 

1 

40020 

1 

40020 

1 

4320 

56020 

0 

00002 

0 

54022 

0 

40022 

0 

40022 

0 

40022 

0 

40022 

0 

56022 

l 

4330 

00002 

0 

60000 

1 

60000 

1 

60000 

1 

60000 

1 

60000 

l 

00002 

0 

C : 

00037 

0 

4340 

C : 

01740 

0 

C: 

76000 

0 

05063 

1 

05205 

0 

05263 

0 

05076 

0 

C: 

30000 

1 

C: 

03  777 

0 

4350 

C : 

00377 

l 

C: 

00023 

0 

C : 

00021 

1 

C: 

00025 

0 

C: 

000  12 

1 

34736 

1 

00006 

1 

05011 

1 

4360 

00002 

0 

44736 

0 

00006 

1 

03011 

1 

00002 

0 ■ 

34740 

0 

00006 

1 

0501  1 

l 

4370 

00002 

0 

00006 

1 

30025 

0 

52014 

0 

00002 

0 

00006 

l 

30156 

0 

20156 

1 
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4400 

60154 

l 

26154 

0 

54007 

1 

00002 

0 

54  162 

0 

00002 

0 

54135 

1 

10000 

0 

44  10 

30135 

0 

17331 

0 

14410 

1 

44746 

1 

54154 

0 

54155 

l 

54156 

1 

00002 

0 

44  20 

34737 

0 

00006 

1 

05011 

1 

00002 

0 

44737 

l 

00006 

1 

03011 

1 

00002 

0 

4430 

44435 

0 

60002 

0 

60004 

0 

04626 

1 

C: 

10670 

1 

C: 

02003 

0 

22007 

0 

54123 

0 

44  40 

34727 

1 

71020 

0 

61011 

0 

10000 

0 

14446 

1 

14155 

0 

24002 

0 

14430 

0 

4450 

56002 

0 

54144 

1 

44727 

0 

00004 

0 

71020 

0 

55020 

0 

11042 

1 

04461 

0 

4460 

04464 

0 

34746 

0 

57042 

0 

05130 

0 

00003 

1 

44740 

1 

00006 

l 

03011 

1 

4470 

34  746 

0 

550  1 1 

1 

00144 

0 

56002 

0 

54144 

1 

11042 

1 

04500 

0 

04464 

0 

45C0 

34746 

0 

55011 

l 

00144 

0 

00006 

1 

64506 

0 

14507 

0 

40000 

0 

50002 

0 

45  10 

60000 

1 

00006 

l 

66762 

1 

16760 

l 

00006 

l 

50002 

0 

50000 

i 

30001 

0 

4520 

24002 

0 

52062 

1 

22002 

0 

34731 

0 

701  10 

0 

10000 

0 

14541 

l 

30061 

0 

4530 

C4503 

0 

C: 

66161 

l 

00001 

0 

34553 

0 

60062 

0 

04503 

0 

C : 

64420 

0 

00001 

0 

4540. 

04551 

1 

34554 

1 

60062 

c 

04503 

0 

C : 

65673 

0 

00001 

0 

30061 

0 

04  503 

0 

4550 

C: 

51615 

1 

50001 

0 

00001 

0 

C: 

00765 

0 

C : 

16450 

1 

34744 

1 

71300 

1 

l(  000 

0 

4560 

00002 

0 

34735 

1 

5 4 101 

1 

34606 

0 

70110 

0 

00006 

1 

14572 

l 

34741 

1 

4570 

70110 

0 

10000 

0 

30001 

0 

61035 

0 

70001 

1 

00006 

1 

16763 

1 

31035 

0 

46C0 

00006 

l 

0600  1 

0 

74724 

0 

64726 

0 

55035 

1 

00002 

0 

C : 

10102 

0 

52134 

0 

4610 

50002 

0 ■ 

30000 

l 

■24002 

0 

54001 

1 

22004 

0 

75003 

0 

56002 

0 

52134 

0 

4620 

50002 

0 

02000 

0 

56134 

1 

56004 

0 

56134 

1 

00133 

0 

56002 

0 

50000 

1 

4630 

30000 

1 

54004 

1 

75003 

0 

56002 

0 

50002 

0 

12000 

l 

35003 

1 

70133 

1 

4640 

60  134 

1 

00002 

0 

54135 

1 

56004 

0 

00006 

1 

04007 

l 

56135 

0 

75003 

0 

4650 

i 1 

0 

00004 

0 

00006 

1 

01007 

1 

50001' 

0 

32000 

0 

56  135 

0 

00006 

1 

4660 

01007 

1 

00003 

1 

54004 

1 

3013  5 

0 

00002 

0 

5 20  73 

1 

50002 

0 

30000 

1 

4670 

24002 

0 

54001 

1 

22004 

0 

75003 

0 

56002 

0 

52073 

1 

50002 

0 

02000 

0 

4 700 

56073 

0 

56004 

0 

56073 

0 

00072 

1 

54164 

0 

34735 

1 

54023 

1 

30006 

1 

47  10 

54165 

l 

50002 

0 

30000 

1 

54004 

l 

75003 

0 

56002 

0 

56164 

1 

14634 

0 

4720 

00006 

1 

01007 

1 

00002 

0 

C: 

37777 

1 

C: 

37777 

l 
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16166 

l 

50116  1 

30002 

0 

54156 

1 

00006 

l 

50116 

l 

30001 

0 

52155 

1 

6520 

34744 

1 

16101  0 

22007 

0 

501  16 

1 

30000 

1 

160  76 

1 

00006 

1 

50116 

1 

6530 

30001 

0 

52155  1 

00006 

1 

501  16 

1 

30003 

l 

52160 

1 

00006 

1 

50116 

1 

6540 

30005 

l 

52162  0 

44744 

0 

16101 

0 

00006 

1 

50116 

1 

30001 

0 

52  155 

1 

6550 

50166 

0 

52001  1 

50163 

0 

36265 

0 

26166 

1 

10163 

1 

16573 

1 

16571 

0 

6560 

54163 

1 

54156  1 

52160 

1 

50166 

0 

51775 

0 

52162 

0 

50  166 

0 

51777 

l 

6570 

16102 

0 

54156  1 

16102 

0 

54163 

1 

56156 

0 

50166 

0 

53777 

0 

16102 

0 

6600  . 

00006 

1 

50116  1 

30001 

0 

52155 

1 

50166 

0 

52001 

1 

50163 

0 

36265 

0 

6610 

26166 

1 

10163  1 

16631 

1 

16532 

1 

00006 

l 

50116 

1 

30003 

1 

52160 

1 

6620 

50166 

0 

51775  0 

00006 

1 

50116 

1 

30005 

1 

52162 

0 

50166 

0 

51777 

l 

6630 

16102 

0 

00006  l 

501  16 

1 

30003 

1 

52  160 

1 

30156 

0 

50166 

0 

53777 

0 

6640 

16536 

0 

24164  l 

50164 

1 

30000 

1 

50116 

1 

54000 

0 

16102 

0 

24164 

1 

6650 

50164 

1 

30000  1 

50116 

1 

60000 

1 

54004 

l 

75003 

0 

50000 

1 

32000 

0 

6660 

54117 

1 

' 30165  0 

74341 

1 

64341 

0 

60164 

1 

50120 

1 

54052 

1 

30117 

0 

66  70 

77763 

0 

00006  1 

16703 

1 

30165 

0 

54006 

0 

30117 

0 

54004 

1 

75003 

0 

6700 

64  732 

0 

54164  0 

16063 

0 

30117 

0 

66272 

0 

10000 

0 

30  117 

0 

16716 

0 

6710 

30120 

1 

60117  0 

50000 

1 

30000 

l 

54117 

l 

16670 

1 

54003 

0 

74350 

1 

6720 

50000 

1 

31400  I 

541  17 

1 

16670 

l 

50164 

1 

30001 

0 

50116 

1 

60000 

l 

6730 

54004 

1 

75003  0 

50000 

1 

32000 

0 

54117 

1 

16670 

1 

30165 

0 

54004 

1 

6740 

50164 

1 

30001  0 

54117 

1 

16670 

1 

10154 

0 

00002 

0 

16750 

1 

16762 

0 

6750 

10155 

l 

00002  0 

16754 

0 

16762 

0 

10156 

1 

00002 

0 

16760 

1 

16762 

0 

6760 

50002 

0 

00001  0 

50002 

0 

00002 

0 

30165 

0 

54006 

0 

50  164 

1 

00001 

0 

6770 

34726 

0 

16773  0 

34346 

1 

26116 

0 

00006 

1 

50116 

1 

00003 

1 

20160 

1 
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OCTAL  LISTING  FOR  PARAGRAPH  # 016,  WITH  PARITY  BIT  IN  BINARY  At  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID 

WORCS  ARE 

BASIC 

INSTRUCT 

IONS 

EXCEPT  THOSE 

MARKED  "l" 

( INTERPRETIVE 

OPERATOR 

WORDS)  OR 

"C"  (CONSTANTS) 

7000 

00006 

1 

17003 

1 

07035 

0 

00006 

1 

50116 

l 

00005 

1 

20162 

0 

00006 

l 

7010 

17012 

1 

07032 

1 

00006 

1 

50116 

l 

00001 

0 

17021 

1 

00006 

l 

50116 

1 

7020 

30001 

0 

20155 

l 

00006 

1 

16102 

0 

07040 

1 

16102 

0 

00006 

1 

50116 

1 

7030 

40001 

l ' 

17021 

1 

54001 

1 

34747 

1 

17037 

0 

54001 

1 

36266 

0 

56001 

0 

7040 

50000 

1 

44725 

1 

54130 

1 

00006 

l 

24000 

l 

50001 

0 

26155 

1 

54007 

1 

7050 

34746 

0 

60130 

0 

50001 

0 

26154 

0 

54007 

1 

00002 

0 

17  173 

l 

00006 

1 

7060 

50116 

1 

30003 

1 

52160 

1 

00006 

1 

40001 

1 

20160 

1 

00006 

1 

17071 

1 

7C70 

07035 

0 

00006 

1 

50116 

1 

30005 

1 

52162 

0 

00006 

1 

40001 

1 

20162 

0 

7 I CO 

00006 

1 

17103 

0 

07032 

1 

00006 

1 

50  116 

1 

30001 

0 

52155 

1 

00006 

1 

7 l 10 

40001 

1 

17021 

1 

00006 

1 

50116 

1 

30002 

0 

20156 

1 

50116 

I 

60000 

1 

7120 

60  154 

1 

• 54154 

0 

16102 

0 

17024 

1 

50002 

0 

30000 

1 

24002 

0 

54116 

0 

7 1 30 

50116 

1 

30001 

0 

54  156 

1 

34746 

0 

56155 

0 

54135 

1 

00006 

1 

70156 

1 

7 140 

56156 

0 

00006 

1 

70154 

0 

20156 

1 

50  1 16 

l 

30000 

1 

56135 

0 

00006 

1 

7150 

70135 

1 

20156 

1 

56154 

1 

00006 

1 

70135 

1 

20155 

1 

00002 

0 

34746 

0 

'7160 

54163 

1 

56156 

0 

60000 

1 

54001 

1 

00002 

0 

60155 

0 

54155 

1 

00002 

0 

7170 

60  154 

1 

54154 

0 

00002 

0 

54121 

1 

00002 

0 

34743 

0 

54136 

1 

00006 

1 

7200 

22137 

1 

C 7 130 

1 

52160 

1 

52155 

1 

52131 

0 

30156 

0 

54132 

0 

30136 

0 

7210 

26116 

0 

07130 

l 

52156 

1 

20132 

0 

60154 

1 

60130 

0 

54130 

1 

17221 

0 

7220 

54121 

1 

52162 

0 

52155 

1 

30136 

0 

261  16 

0 

07130 

1 

52132 

0 

2D  156 

1 

7230 

60154 

l 

60130 

0 

54154 

0 

00137 

1 

07040 

1 

00137 

1 

00006 

1 

22141 

0 

7240 

54117 

1 

22140 

L 

172  53 

0 

50002 

0 

30000 

1 

54140 

0 

60000 

1 

60002 

0 

7250 

54117 

l 

6474  7 

1 

54141 

1 

36314 

1 

54116 

0 

00006 

1 

50117 

0 

30004 

0 

7260 

52155 

l 

52123 

0 

1 7266 

0 

54140 

0 

44743 

1 

26117 

1 

07  130 

1 

00006 

l 

7270 

50117 

0 

30002 

0 

20155 

1 

10140 

0 

17263 

0 

00141 

0 

34746 

0 

54156 

1 

7300 

22002 

0 

06744 

0 

l 7306 

1 

17326 

0 

44724 

0 

17307 

0 

34724 

1 

54002 

l 

73  10 

00006 

l 

24000 

1 

60156 

0 

54156 

1 

34  746 

0 

60002 

0 

60155 

0 

54155 

L 

7320 

34746 

0 

60  002 

0 

60 1 54 

1 

54154 

0 

54155 

1 

00001 

0 

54156 

1 

17323 

0 

7330 

54135 

1 

00006. 

1 

70156 

1 

54156 

1 

34  746 

0 

56155 

0 

17147 

0 

54135 

l 

7340 

00006 

1 

70155 

1 

52155 

1 

00006 

1 

70135 

1 

30001 

0 

26154 

0 

00006 

l 

7350 

30155 

0 

00002 

0 

07175 

0 

34  746 

0 

16101 

0 

34743 

0 

54140 

0 

17363 

1 

7360 

44354 

0 

54140 

0 

36263 

0 

54136 

1 

07553 

0 

07177 

1 

00006 

l 

30123 

l 

7370 

52  155 

1 

52134 

0 

00006 

1 

30125 

1 

52  160 

1 

00006 

1 

30127 

0 

52  162 

0 
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OCTAL  LISTING  FOR  PARAGRAPH  # 017,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSFD  FIXED  MEMORY 


ALL  VALID 

WORDS  ARE 

BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

I I NTERPKET I VE 

OPERATOR 

WORDS)  OR 

"C1 

" (CONSTANTS) 

7400 

30140 

1 

26116 

0 

07177 

1 

52123 

0 

52  155 

l 

52125 

0 

52160 

1 

52127 

1 

74  10 

52162 

0 

30140 

l 

26116 

0 

07177 

l 

52134 

0 

52155 

1 

52  162 

0 

52125 

0 

7420 

52160 

1 

16102 

0 

10163 

1 

17451 

1 

17451 

1 

07130 

1 

07161 

0 

52  160 

1 

7430 

52155 

l 

52160 

1 

07130 

1 

0716  1 

0 

5216? 

0 

52155 

1 

52162 

0 

07130 

1 

7440 

07161 

0 

52155 

1 

52162 

0 

52160 

l 

52  155 

1 

16102 

0 

07175 

0 

44742 

0 

7450 

26116 

0 

00.006 

1 

30155 

0 

5216C 

1 

07  130 

l 

07161 

0 

34743 

0 

26116 

0 

7460 

00006 

1 

30160 

0 

52  155 

l 

52162 

0 

07130 

l 

07161 

0 

34743 

0 

26116 

0 

7470 

' 

52160 

1 

52155 

l 

52160 

l 

07130 

1 

07161 

0 

52155 

l 

52162 

0 

52155 

1 

7500 

16542 

0 

00006 

1 

30162 

l 

52  155 

1 

52  123 

0 

07130 

1 

00006 

1 

40  160 

1 

7510 

52155 

1 

52125 

0 

07130 

l 

34743 

0 

26116 

0 

00006 

1 

40  162 

0 

52155 

1 

7520 

52162 

0 

07130 

1 

00006 

l 

30123 

1 

52  155 

1 

52127 

1 

07  130 

1 

34743 

0 

7530 

26116 

0 

00006 

1 

40123 

0 

52155 

1 

20162 

0 

00006 

l 

17540 

0 

07032 

1 

7540 

07130 

1 

52125 

0 

52160 

1 

52155 

l 

20  160 

1 

00006 

1 

17550 

1 

07035 

0 

7550 

07130 

1 

52127 

1 

17021 

1 

00006 

l 

3 ( 1 5 5 

0 

52123 

0 

00006 

l 

30160 

0 

7560 

52125 

0 

00006 

1 

30162 

1 

52  127 

1 

00002 

0 

10000 

0 

17572 

1 

00002 

0 

7570 

17602 

0 

00002 

0 

56001 

0 

6472  7 

1 

64727 

1 

54000 

0 

1 7600 

1 

24001 

0 

7600 

56001 

0 

00002 

0 

56001 

0 

64726 

0 

67770 

0 

54000 

0 

17610 

0 

24001 

0 

7610 

56001 

0 

40000 

0 

00002 

0 

07130 

1 

16102 

0 

07130 

l 

07160 

l 

16102 

0 

762C 

00006 

1 

5011  6 

1 

5 )01 

0 

17630 

1 

00006 

1 

50116 

1 

30001 

0 

52  155 

1 

7630 

5213  1 

0 

34  74  6 

0 

54004 

■ 1 

12353 

l 

301 16 

1 

54166 

1 

16104 

0 

34  746 

0 

7640 

54004 

1 

12172 

0 

36115 

1 

54004 

1 

12214 

0 

10163 

l 

1 7657 

0 

17657 

0 

76.50 

00006 

l 

50116 

l 

30001 

0 

52131 

0 

34746 

0 

54004 

1 

12654 

0 

00006 

1 

7660 

50116 

1 

30003 

1 

52160 

1 

00006 

l 

501  16 

1 

30005 

l 

52162 

0 

44  744 

0 

76  70 

54163 

1 

00006 

1 

50116 

1 

30001 

0 

52  155 

1 

17653 

1 

50  116 

1 

10000 

0 

7700 

16102 

0 

17703 

0 

17711 

0 

50116 

1 

10001 

l 

16102 

0 

16102 

0 

17711 

0 

77  10 

16102 

0 

00006 

1 " 

40155 

1 

52155 

1 

10163 

1 

17726 

l 

17726 

1 

00006 

1 

7720 

4 1 ■ 

1 

52160 

l 

00006 

1 

40162 

0 

52162 

0 

16102 

0 

40156 

l 

54156 

l 

7730 

16102 

0 

C 

: 22000 

1 

C : 

23000 

0 

C: 

24000 

1 

C: 

25000 

0 

C: 

26000 

0 

C: 

27000 

l 

C: 

31000 

0 

7740 

C: 

31103 

1 

C 

: 32000 

0 

C : 

33000 

1 

C: 

34000 

0 

C: 

35000 

l 

C: 

360  00 

1 

C: 

37000 

0 

C: 

37401 

0 

7750 

C : 

37766 

1 

C 

: 37774 

1 

C: 

37776 

0 

C: 

40014 

0 

C: 

40015 

1 

C: 

40040 

1 

C: 

40200 

1 

C: 

57777 

1 

7760 

C: 

65552 

0 

C 

: 70000 

0 

C: 

73  777 

l 

C : 

74000 

1 

C : 

74056 

1 

C: 

77700 

0 

C: 

77774 

0 

C: 

77775 

1 

7770 

C: 

77776 

1 

747  3 1 

l 

10000 

0 

15425 

0 

15404 

0 

00006 

l 

07775 

0 

CKSM 

53777 

0 
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OCTAL  listing 

FOR  PARAGRAPH  # 020, 

WITH  PARITY 

BIT 

IN  BINARY 

ALL  VALID 

WORDS  ARE 

BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

00,2000 

13207 

0 

13530 

0 

13517 

0 

13610 

00,2010 

13232 

0 

13023 

1 

13176 

0 

132A5 

00,2020 

70020 

1 

5A021 

0 

10020 

1 

12101 

00,2.0  30 

10020 

1 

02050 

0 

16101 

0 

3013  5 

00 , 2 0 AO 

00006 

1 

70 15  A 

0 

52155 

1 

30135 

00,2050 

30156 

0 

00006 

1 

70135 

1 

56155 

00,2060 

60000 

1 

5A156 

l 

1206A 

0 

26155 

00,2070 

70135 

1 

2015  5 

1 

00002 

0 

30135 

00,2  ICO 

12060 

1 

30021 

1 

5 A 1 35 

1 

00006 

00,2 1 10 

5A15A 

0 

12113 

1 

5 A 1 2 1 

1 

10135 

00,2120 

16102 

0 

3A750 

1 

70020 

1 

5A135 

00,2130 

3A727 

1 

5 A 1 3 5 

1 

02073 

1 

52155 

00,2 1 AO 

52162 

0 

52155 

1 

02073 

1 

17AA1 

00, 2i 50 

00006 

1 

12153 

0 

070  AO 

1 

00006 

00,2 160 

07035 

0. 

00006 

I 

30162 

1 

20162 

00,2  1 70 

121AA 

0 

16102 

0 

5 A 1 35 

1 

06  7AA 

00,2200 

12207 

l 

2 A 1 3 5 

0 

00006 

1 

30156 

00,22 10 

5A000 

0 

12201 

1 

AO  1 35 

1 

166AA 

00,2220 

70116 

o • 

10000 

0 

07157 

0 

16102 

00,2230 

76266 

1 

50000 

1 

12233 

0 

12332 

00 , 2 2 AO 

12277 

0 

30135 

0 

63733 

0 

00006 

00,2250 

5A001 

1 

56  1 5 A 

1 

56155 

0 

02272 

00,2260 

20160 

1 

56161 

1 

56162 

1 

02272 

00,2270 

C : 

0A60A 

1 

16102 

0 

60000 

1 

5A156 

00,2300 

63733 

0 

00006 

1 

62322 

0 

67770 

00,23  10 

5A156 

l 

10135 

1 

5 A 1 35 

1 

02300 

00,2320 

07157 

0 

16102 

o- 

50135 

0 

3A727 

00,2330 

12031 

0 

12033 

l 

AO  135 

1 

62126 

00 , 2 3 AO 

AOOOO 

0 

5 A 1 3 5 

1 

10163 

1 

123A6 

00,2350 

7 A 73  7 

l 

5A02  0 

1 

12103 

0 

AA7AA 

00,2360 

12516 

0 

12363 

l 

12531 

0 

5A156 

00,2370 

12A13 

1 

56131 

1 

56130 

0 

56155 

THE  RIGHT  OF  EACH  WORD,  "a"  DENOTES  UNUSED  FIXED  MEMORY 
INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


13612 

0 

1317A 

1 

12116 

1 

1771  1 

0 

16375 

1 

1327A 

1 

132A7 

1 

36263 

0 

0002A 

1 

50021 

1 

3A727 

1 

54135 

1 

00006 

l 

70156 

l 

5A156 

1 

30135 

0 

00006 

l 

70001 

1 

20  156 

1 

16  102 

0 

00006 

1 

70135 

1 

56155 

0 

60001 

0 

3A7A6 

0 

5A156 

1 

5615A 

1 

00006 

1 

00006 

1 

70155 

1 

5A155 

1 

56001 

0 

30156 

0 

20156 

1 

60  15A 

1 

60154 

1 

12  102 

1 

10020 

1 

07157 

0 

16102 

0 

10020 

1 

121A5 

1 

C:  00176 

1 

50135 

0 

52160 

l 

52155 

1 

02073 

l 

52  155 

1 

5A135 

1 

00006 

1 

30155 

0 

20155 

1 

3(  161 

0 

20160 

1 

00006 

1 

12161 

l 

00006 

1 

12167 

1 

07032 

1 

10135 

1 

12  176 

1 

12212 

0 

07300 

0 

30154 

1 

20  156 

1 

6015A 

1 

26  1 5 A 

0 

60000 

1 

70  116 

0 

10000 

0 

1222A 

0 

34733 

l 

5A135 

1 

3A735 

1 

00006 

1 

70116 

0 

123A2 

1 

12336 

1 

10163 

1 

12277 

0 

62  127 

1 

67770 

0 

54135 

l 

34746 

0 

20155 

1 

56157 

1 

56160 

0 

02272 

1 

20  162 

0 

10135 

l 

54  135 

l 

12242 

0 

3A7A6 

0 

56001 

0 

00002 

0 

30135 

0 

5A135 

1 

3A7A6 

0 

56  154 

1 

56155 

0 

22650 

1 

3A733 

1 

70116 

0 

10000 

0 

5A135 

1 

3A733 

1 

70116 

0 

10000 

0 

5A135 

1 

12236 

0 

42  126 

1 

60135 

0 

123A6 

0 

121A5 

1 

40116 

0 

00006 

1 

5A  136 

1 

5 A l 37 
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l 
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1 
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0 
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l 
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1 
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l 

C: 

75466 

1 
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0 
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0 
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32757 

0 
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0 
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0 
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75067 

I 

C: 

70742 

l 

C: 

03436 

0 

00,3670 

C : 

26756 

1 

C: 

74037 

0 

C: 

57640 

1 

C: 
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10,2000 

I : 

77160 

0 

C: 

00002 

0 

C: 

00000 

1 

I:  77614 

l 

C: 

04343 

1 

C: 

20011 

0 

I:  77160 

0 

C: 

00012 

1 

10,2010 

C : 

00002 

0 

r: 

66143 

1 

C: 

100  11 

0 

C:  02776 

0 

C: 

22310 

0 

C: 

l 

0 

I:  54214 

1 

C: 

04343 

l 

10,2020 

C : 

20022 

0 

C: 

2060  7 

1 

C : 

02312 

0 

I:  43134 

0 

C: 

02  777 

1 

C: 

01271 

l 

I:  77650 

l 

C: 

73516 

1 

10,2030 

I : 

77776 

l 

04607 

1 

C: 

20036 

0 

06060 

1 

I : 

77616 

0 

C: 

02664 

1 

32035 

0 

54142 

1 

10,2040 

56003 

1 

56142 

0 

74350 

1 

65000 

1 

54141 

i 

00006 

1 

30  744 

0 

52  155 

1 

10,2050 

07124 

1 

C: 

00745 

1 

52155 

1 

20001 

1 

50141 

0 

52001 

1 

00006 

1 

30  740 

1 

10,2060 

50141 

0 

52003 

0 

00006 

1 

40736 

1 

52155 

1 

07130 

1 

52155 

l 

20001 

1 

10,2070 

50141 

0 

52005 

0 

00006 

1 

40742 

l 

52155 

l 

07130 

1 

52  155 

1 

20001 

1 

10,2100 

52160 

1 

0000  6 

1 

40742 

1 

52155 

1 

07124 

1 

C: 

00737 

1 

00006 

1 

40155 

1 

10,2 1 10 

52162 

0 

07124 

1 

C: 

- >735 

0 

52155 

1 

20001 

1 

20001 

1 

52162 

0 

52155 

1 

10,2 120 

07124 

1 

C: 

00743 

1 

52155 

1 

20001 

1 

20001 

1 

52131 

0 

00006 

1 

30744 

0 

10,2130 

52155 

1 

C 7 1 2 4 

l 

C: 

00747 

0 

521  55 

1 

20001 

1 

20162 

0 

00006 

1 

30  736 

0 

10,2 140 

52155 

1 

07130 

1 

52155 

1 

20001 

1 

20131 

0 

52131 

0 

52  155 

1 

00006 

1 

10,2150 

30155 

0 

50141 

0 

52015 

1 

00006 

1 

30160 

0 

50141 

0 

52017 

0 

00006 

1 

10,2160 

30162 

1 

50141 

0 

52021 

0 

30141 

0 

54116 

0 

00006 

1 

30006 

1 

64  742 

l 

10,2 1 70 

52165 

l 

34735 

1 

54023 

1 

17501 

0 

52  155 

1 

20001 

1 

50  141 

0 

52007 

1 

o 

o 

CM 

CM 

O 

52160 

l 

20001 

1 

50141 

0 

5201  1 

0 

52162 

0 

20001 

l 

50141 

0 

52013 

1 

10,2210 

30142 

0 

54003 

0 

14622 

1 

22073 

0 

30065 

1 

74750 

0 

60000 

1 

54061 

l 

10,2220 

30065 

1 

7502  1 

0 

00006 

1 

74731 

1 

54062 

1 

30065 

1 

74101 

1 

56065 

1 

10,2230 

75015 

1 

10000 

0 

15372 

0 

30062 

0 

50061 

0 

54750 

1 

10066 

0 

12253 

0 

10,2240 

12241 

0 

40072 

0 

22072 

1 

50071 

l 

52750 

1 

10066 

0 

12247 

0 

12253 

0 

10  ,2250 

4002  5 

l 

50071 

1 

55050 

1 

10065 

0 

12267 

1 

1227? 

0 

40025 

1 

50061 

0 

10,2260 

55050 

1 

30065 

1 

62265 

1 

10000 

0 

12265 

0 

C: 

17777 

0 

12272 

0 

00006 

1 

10,2270 

30025 

0 

53151 

1 

40062 

1 

50061 

0 

54747 

1 

30002 

0 

22073 

0 

00003 

l 

10,2300 

52006 

0 

22073 

0 

30062 

0 

50061 

'0 

54750 

1 

30070 

0 

50061 

0 

55051 

0 

10,23  10 

00006 

1 

30064 

0 

50061 

0 

53435 

0 

12236 

0 

05476 

1 

13427 

1 

54155 

1 

10,2320 

34726 

0 

12473 

1 

34746 

0 

54155 

1 

33043 

0 

12473 

1 

54155 

l 

33553 

1 

10,2330 

12473 

1 

54155 

1 

33526 

0 

12473 

1 

54155 

1 

33513 

0 

12473 

1 

54155 

l 

10,2340 

33514 

1 

12473 

l 

54155 

1 

34  72  6 

0 

12446 

1 

54155 

1 

33043 

0 

12651 

0 

10,2350 

54155 

1 

33526 

0 

12651 

0 

65014 

l 

54155 

1 

33513 

0 

12651 

0 

34  744 

1 

10,2360 

02747 

1 

30100 

0 

73527 

0 

10000 

0 

12422 

0 

30100 

0 

74734 

1 

00006 

1 

10,2370 

12372 

1 

15146 

0 

00004 

0 

44747 

0 

70  100 

1 

64744 

1 

54  100 

1 

00003 

1 
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10,2400 

41070 

0 

74740  1 

10000 

0 

12406 

0 

40367 

1 

54367 

1 

34744 

1 

12630 

1 

10,24  LO 

30165 

0 

54156  1 

50164 

l 

33537 

0 

54162 

0 

50164 

l 

31067 

l 

54160 

l 

10,2420 

54003 

0 

00002  0 

30100 

0 

73274 

1 

10000 

0 

13462 

0 

40100 

l 

74742 

0 

00 

10,2430 

00004 

0 

26100  1 

12534 

0 

30367 

0 

74144 

0 

13140 

0 

54  155 

l 

34746 

0 

':  <* 
CD 

10,2440 

12473 

l 

54155  l 

34737 

0 

12473 

1 

54155 

1 

34746 

0 

54160 

l 

34746 

0 

1 — I 

10,2450 
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L 

34746  0 

54155 

1 

33512 

1 

12473 

1 

54155 

1 

33512 

1 

12651 

0 

10,2460 

54155 

1 

34727  1 

124  73 

1 

54155 

1 

34727 

1 

12446 

1 

54155 

1 

33551 

0 

O'P 

10,2470 

12473 

1 

54155  1 

34741 

1 

54160 

1 

02734 

0 

00003 

1 

12560 

1 

54155 

1 

10,2500 

33531 

0 

12651  0 

54155 

1 

33531 

0 

12473 

1 

34746 

0 

54164 

0 

03402 

l 

• 

10,25 10 

12515 

0 

30100  0 

73550 

0 

10000 

0 

12607 

0 

00004 

0 

41035 

l 

76130 

1 

10,2520 

27035 

1 

00003  1 

30100 

0 

75634 

1 

00006 

1 

12530 

1 

34  746 

0 

13006 

0 

# 

10,2530 

30100 

0 

73546  1 

00006 

1 

12  53  C 

1 

34744 

L 

13006 

0 

02746 

0 

03225 

1 

10,2540 

05130 

0 

03242  0 

30025 

0 

55164 

l 

34746 

0 

54164 

0 

41067 

0 

74735 

0 

A 

10,2550 

10000 

0 

L 3 1 0 2 0 

30366 

1 

74144 

0 

54001 

1 

40366 

0 

54366 

0 

13  103 

1 

10,2560 

30167 

1 

77746  1 

54163 

1 

37742 

1 

05137 

1 

30160 

0 

73530 

0 

10000 

0 

10,2570 

12505 

1 

12573  0 

12357 

0 

34743 

0 

54164 

0 

03402 

l 

12611 

1 

41071 

1 

# 

10,2600 

74  741 

0 

10000  0 

12611 

1 

30100 

0 

73521 

0 . 

00006 

1 

12611 

l 

05626 

0 

10,2610  C : 

31502 

1 

02750  l 

30163 

0 

00006 

1 

04007 

1 

55264 

1 

30100 

0 

73522 

0 

A 

10,2620 

10000 

0 

12766  0 

12624 

l 

12766 

0 

03225 

1 

05130 

0 

0324? 

0 

34743 

0 

w 

10,2630 

54164 

0 

13102  0 

54155 
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37755 

1 

12473 

1 

55044 

l 

33504 

0 

54  155 

l 

m* 

10,2640 

33503 

1 

12473  1 

5 '4  1 5 5 

l 

33507 

0 

12473 

l 

02727 

1 

12473 

l 

54155 

1 

w 

10,2650 

34741 

1 

54160  1 

36266 

0 

00004 

0 

54072 

0 

30167 

1 

77746 

1 

54063 

0 

10,2660 

30160 

0 

74741  0 

10000 

0 

12671 

1 

30063 

1 

05063 

1 

C:  02560 

0 

C:  20067 

L 

• 

10,2670 

12677 

1 

30006  1 

00006 

l 

04007 

1 

54001 

l 

33545 

0 

05  L07 

l 

02734 

0 

10,2700 

00006 

1 

30156  0 

50064 

c 

52156 

1 

.00006 

1 

30160 

0 

50064 

0 

52  160 

1 

10,2710 

30064 

0 

54161  0 

02741 

l 

00003 

1 

14631 

0 

55044 

l 

33504 

0 

54155 

1 

10,2720 

33503 

l 

12651  0 

54155 

1 

33507 

0 

12651 

0 

02727 

l 

12651 

0 

55143 

1 

10,2730 

33510 

0 

54155  1 

33511 

1 

00002 

0 

00004 

0 

43520 

1 

70160 

1 

60003 

l 

• 

10,2740 

54160 

1 

22002  0 

04636 

0 

54157 

0 

60072 

l 

00001 

0 

34746 

0 

54164 

0 

10,2750 

00004 

0 

30160  0 

1 

1 

55067 

0 

73536 

0 

00006 

1 

12762 

1 

30157 

1 

0 

10,2760 

50164 

1 

54371  0 

30155 

0 

50164 

1 

54366 

0 

13251 

0 

50164 

1 

33537 

0 

10,2  770 

72772 

0 

03554  0 

C:  03004 

0 

44744 

0 

60164 

1 

54154 

0 

50  154 

1 

33516 

0 
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00004 

0 

05130 

0 

03242 

0 

50154 

1 

33516 

0 

15124 

1 

54154 

0 

03225 

1 

10,3010 

05130 

0 

30154 

l 

50064 

0 

54154 

0 

33027 

l 

03243 

1 

50154 

1 

33540 

0 

10,3020 

73542 

0 

03564 

0 

C:  74004 

0 

50154 

1 

34  740 

0 

64742 

1 

03554 

0 

C: 

02776 

0 

10,3030 

30100 

0 

74742 

0 

10000 

0 

023  72 

0 

12536 

1 

34746 

0 

54160 

1 

50160 

0 

10,3040 

33532 

0 

6474  2 

1 

03564 

0 

C:  40010 

1 

50160 

0 

33516 

0 

00004 

0 

05130 

0 

10,3050 

13355 

0 

31071 

0 

54003 

0 

31264 

0 

04  7 20 

0 

77746 

1 

05  137 

1 

46266 

1 

10,3060 

60373 

0 

. 14631 

0 

00003 

1 

31072 

0 

54156 

1 

30100 

0 

77761 

1 

10000 

0 

10,3070 

13073 

1 

13477 

I 

12372 

1 

05506 

1 

C : 

00105 

0 

34727 

1 

70  100 

l 

10000 

0 

10,3100 

12544 

l 

12627 

1 

22007 

0 

02412 

1 

30160 

0 

74750 

0 

26001 

1 

44730 

0 

10,3 1 10 

50  164 

1 

71067 

0 

50164 

1 

55067 

0 

74735 

0 

50164 

1 

13  117 

1 

33552 

0 

10,3120 

54  141 

1 

30156 

0 

54165 

1 

55072 

1 

50  164 

1 

10366 

0 

13  137 

0 

13253 

1 

10,3130 

50  164 

1 

40366 

0 

50164 

1 

54366 

0 

76115 

0 

63523 

0 

60141 

0 

64744 

1 

10,31.40 

04146 

0 

13265 

1 

04424 

1 

02410 

0 

05520 

0 

C: 

00102 

l 

05520 

0 

C : 

00103 

0 

10,3150 

05520 

0 

C:  00104 

1 

30160 

0 

04246 

0 

13102 

0 

34740 

0 

70  160 

1 

10000 

0 

10,3160 

13203 

1 

34741 

1 

70160 

1 

10000 

0 

13300 

0 

40160 

l 

74737 

1 

10000 

0 

10,3170 

13175 

0 

50164 

I 

' 30371 

1 

54157 

0 

13373 

1 

50164 

1 

30366 

1 

76115 

0 

10,3200 

00006 

1 

13300 

0 

15146 

0 

30160 

0 

74730 

0 

10000 

0 

13  161 

0 

34730 

1 

10,3210 

50164 

1 

27067 

0 

22007 

0 

00006 

1 

62433 

1 

74731 

1 

000  )6 

1 

13223 

0 

10,3220 

41066 

1 

63547 

l 

13140 

0 

33506 

l 

13140 

0 

44740 

1 

00006 

1 

0301  1 

1 

10,3230 

30100 

0 

■73524 

0 

10000 

0 

34744 

1 

54001 

L 

34746 

0 

50001 

0 

57041 

0 

10,3240 

00004 

0 

0000  2 

0 

34210 

0 

56064 

0 

00006 

1 

63251 

1 

56064 

0 

50064 

0 

10,3250 

54164 

0 

00003 

1 

00002 

0 

37741 

1 

05076 

0 

C: 

04222 

1 

C: 

04060 

0 

13301 

l 

10,3260 

30100 

0 

73306 

0 

00006 

1 

12607 

0 

15146 

0 

11041 

1 

15  146 

0 

13271 

1 

10,3270 

15146 

0 

30162 

1 

73525 

1 

03554 

0 

C : 

24100 

0 

50164 

l 

33515 

0 

04433 

1 

10,3300 

04420 

0 

30164 

1 

54157 

0 

30162 

1 

73022 

0 

03554 

0 

C : 

40040 

1 

11041 

1 

10,3310 

13260 

1 

13313 

l 

13260 

1 

04200 

1 

13400 

1 

13417 

l 

43534 

1 

60  154 

l 

10 ,3320 

00006 

1 

26000 

O' 

00006 

1 

13467 

0 

34743 

0 

54161 

0 

30100 

0 

74  101 

1 

10,3330 

10000 

0 

13334 

1 

13435 

1 

13421 

1 

40025 

1 

6 1164 

o 

10000 

0 

40000 

0 

10,3340 

67752 

0 

64744 

1 

63600 

1 

00006 

1 

62544 

0 

00004 

0 

46130 

1 

71035 

1 

10,3350 

64726 

0 

55035 

1 

13435 

1 

34744 

l 

13036 

0 

10161 

0 

64744 

1 

13361 

1 

10,3360 

15146 

0 

50157 

1 

60371 

1 

54157 

0 

30  162 

1 

73367 

1 

03564 

0 

C: 

74044 

l 

10,3370 

46266 

1 

04145 

0 

13373 

l 

30163 

0 

77746 

l 

05137 

1 

30  157 

1 

14631 

0 
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10,3400 

34746 

0 

13325 

1 

40160 

1 

74727 

0 

10000 

0 

16760 

1 

40157 

0 

50164 

l 

10,3410 

60371 

l 

00006 

l 

13414 

1 

00002 

0 

11011 

1 

05146 

1 

00002 

0 

34  744 

i 

10,3420 

13325 

1 
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1 

70100 

1 

00004 

0 
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1 
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1 

13355 

0 

37770 

0 

10,3430 
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0 

30100 

0 

74346 
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10000 

0 

13073 

1 

30100 

0 

73532 

l 
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0 

10,3440 

13035 

0 

30100 

0 

73533 

0 

10000 

0 

13353 

0 

31071 

0 

74762 

l 
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0 

10,3450 

13355 

0 

30370 

0 

00006 

1 

13355 

0 

35016 

0 

00004 

0 

05063 

l 

C: 

02627 

0 

10,3460 

C : 

20060 

0 

13355 

0 

30100 

0 

73532 

l 

10000 

0 

15146 

0 

12766 

0 

50157 

1 

10,3470 

30366 

1 

76115 

0 

40000 

0 

60155 

0 

00006 

1 

13324 

0 

13062 

1 

46266 

1 

10,3500 

04  145 

0 

15146 

0 

15146 

0 

C: 

00036 

1 

C:  00231 

1 

C: 

01407 

0 

C: 

14400 

0 

C: 

00030 

1 

10,35  10 

C : 

01006 

0 

C: 

00014 

l 

C : 

20010 

L 

C: 

40230 

1 

C:  40036 

0 

C: 

20542 

0 

C: 

20372 

0 

C: 

20627 

0 

10,3520 

C : 

03400 

0 

C : 

112  10 

1 

C : 

66521 

1 

C : 

01177 

l 

C:  00700 

0 

C: 

00704 

1 

C: 

40030 

0 

C: 

34300 

0 

10,35 

C : 

40100 

1 

C: 

00110 

1 

C : 

02020 

1 

C: 

01010 

1 

C:  00026 

0 

C: 

77730 

0 

C: 

00050 

1 

C: 

20  144 

1 

10,3540 

C : 

42424 

0 

C: 

11254 

1 

C : 

74  704 

1 

C : 

67777 

l 

C:  40420 

0 

C: 

02560 

0 

C: 

10200 

l 

C : 

30200 

0 

10,3550 

C : 

20100 

1 

C: 

24030 

1 

C : 

02600 

0 

C : 

00310 

0 
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0 

05076 

0 

C: 

02650 

0 

C: 

26063 

0 

05263 

0 

13,2650 

06060 

1 

I : 

47014 

1 

C : 

04712 

l 

C: 

2671  1 

1 

C: 

21603 

1 

C: 

00041 

1 

I : 

77624 

l 

C : 

27447 

0 

13,2660 

I : 

45014 

0 

C: 

01076 

I 

C : 

267C2 

0 

I : 

52014 

0 

C: 

01460 

1 

C: 

26026 

1 

C: 

00003 

1 

C: 

25140 

0 

13,2670 

I : 

77414 

0 

C: 

01672 

0 

05355 

1 

C: 

20032 

1 

00006 

1 

32667 

L 

05301 

0 

C: 

02641 

0 

13,2700 

C: 

26063 

0 

05  146 

1 

I : 

43014 

0 

C : 

01472 

1 

C: 

01673 

l 

I : 

43014 

0 

C: 

01676 

1 

C: 

01675 

1 

13,2710 

I : 

77616 

0 

I : 

77776 

1 

05355 

1 

C: 

00002 

0 

05520 

0 

C: 

00221 

0 

05146 

1 

I : 

47020 

0 

13,2720 

C : 

00051 

0 

C : 

26732 

0 

I : 

45014 

0 

C: 

04063 

0 

C: 

26114 

1 

I : 

43014 

0 

C: 

00303 

1 

C: 

00051 

0 

13,2730 

C: 

04223 

0 

C: 

00051 

0 

03074 

1 

55500 

l 

51500 

0 

31502 

1 

5150  ' 

0 

55554 

0 

13,2740 

11500 

1 

12733 

0 

06102 

l 

I : 

43034 

l 

C: 

26761 

0 

C: 

04303 

0 

C : 

26754 

0 

I : 

66214 

0 

13,2750 

C : 

00263 

0 

C: 

02031 

1 

C : 

00000 

1 

I : 

77616 

0 

I : 

662  14 

0 

C: 

00063 

1 

C: 

02031 

1 

C: 

00002 

0 

13,2760 

1 : 

77616 

0 

030  74 

1 

55500 

1 

51500 

0 

31554 

1 

51500 

0 

55502 

0 

11500 

1 

13,2770 

12762 

1 

06102 

1 

I : 

47020 

0 

C: 

00051 

0 

C: 

27005 

l 

I : 

45014 

0 

C: 

04064 

1 

C : 

26070 

1 
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13,3000 

I : 

43014 

0 

C: 

00303 

1 

C : 

00051 

0 

C: 

04224 

1 

C: 

00051 

0 

0 30  74 

1 

55500 

1 

51500 

0 

13,3010 

31502 

1 

51500 

0 

55626 

0 

11500 

1 

1 3 006 

0 

06102 

l 

I : 

47014 

1 

C : 

04307 

l 

13,3020 

C : 

27037 

0 

C: 

27026 

0 

I : 

52014 

0 

C: 

04304 

1 

C: 

26754 

0 

C: 

26747 

l 

03074 

l 

55500 

1 

13,3030 

51500 

0 

31626 

l 

51500 

0 

55502 

0 

11500 

1 

13027 

0 

06102 

1 

I : 

77201 

1 

1 3 , 3 0 AO 

C: 

00001 

0 

C: 

02021 

0 

I : 

41525 

0 

C: 

00041 

1 

C: 

15517 

0 

C: 

27762 

1 

I : 

77624 

1 

C: 

55716 

1 

13,3050 

C : 

25535 

0 

C: 

24001 

0 

C: 

L4001 

0 

C: 

01517 

0 

C: 

14  007 

0 

C: 

27762 

1 

I : 

45014 

0 

C: 

00063 

1 

13,3060 

C : 

55716 

1 

I : 

742  3 5 

0 

C : 

01535 

0 

C : 

26001 

L 

C : 

25543 

L 

C: 

24007 

0 

C: 

01521 

0 

I : 

67  174 

1 

13,3070 

C: 

00002 

0 

C: 

02030 

0 

C : 

35527 

1 

C: 

27215 

1 

33100 

0 

54006 

0 

33505 

1 

00002 

0 

13,3100 

C : 

26063 

0 

I : 

45020 

1 

C : 

00046 

0 

C: 

27447 

0 

I : 

43130 

1 

C: 

02101 

0 

C: 

01474 

1 

I : 

43014 

0 

13,31 LO 

C : 

01467 

0 

C: 

01676 

1 

I : 

77614 

1 

C: 

01633 

0 

C: 

27174 

0 

I : 

45020 

1 

C : 

00046 

0 

C: 

27447 

0 

13,3120 

I : 

43130 

1 

C: 

2 L 1 

0 

C : 

01634 

1 

C: 

27107 

L 

I : 

45020 

1 

C: 

00046 

0 

C: 

27447 

0 

1 : 

43130 

1 

13,3130 

C : 

02101 

0 

C: 

014  74 

1 

I : 

43014 

0 

C: 

01676 

1 

C: 

01433 

1 

C: 

27174 

0 

I : 

45020 

1 

C: 

00046 

0 

13,3  140 

C: 

27447 

0 

I : 

43130 

1 

C: 

02101 

0 

C: 

01634 

1 

C: 

27  132 

1 

f : 

66214 

0 

C: 

01467 

0 

C: 

02031 

l 

13,3150 

C: 

00000 

1 

I : 

662  14 

0 

C: 

00343 

0 

C: 

27156 

0 

C: 

02031 

1 

C: 

00002 

0 

I : 

77220 

1 

C: 

02  101 

0 

13,3160 

C : 

24007 

0 

C: 

01521 

0 

C : 

35527 

1 

C: 

27720 

l 

I : 

43014 

0 

C: 

01676 

1 

C: 

04062 

1 

I : 

77614 

1 

13,31 70 

C : 

04020 

1 

C : 

27206 

0 

I : 

77620 

0 

C: 

02101 

0 

I : 

43014 

0 

C: 

04060 

0 

C : 

04062 

1 

I : 

77731 

1 

13,3200 

C : 

00053 

1 

C: 

27206 

0 

I : 

52014 

0 

C: 

01714 

l 

C: 

26  743 

0 

C: 

27016 

0 

I : 

77745 

1 

C: 

00041 

1 

13,3210 

C: 

1 1 l 5 

0 

I : 

52014 

0 

C : 

01753 

1 

C : 

27315 

0 

C: 

27301 

0 

I : 

77414 

0 

C: 

01752 

0 

C: 

27236 

0 

13,3220 

05355 

1 

C: 

04022 

0 

05506 

1 

C: 

00236 

0 

06060 

1 

I : 

77731 

1 

C: 

00053 

l 

C: 

27234 

1 

13,3230 

I : 

52014 

0 

C: 

017  14 

l 

C: 

26717 

1 

C: 

26772 

1 

I : 

77624 

l 

C: 

51770 

0 

I : 

45001 

1 

C: 

000<  l 

0 

13,3240 

C : 

27720 

1 

I : 

53775 

1 

C: 

01503 

0 

C: 

57576 

1 

I : 

537  15 

1 

C: 

01511 

0 

C: 

57576 

1 

I : 

63325 

0 

13,3250 

C: 

01517 

0 

C : 

01503 

0 

I : 

64715 

0 

C: 

01511 

0 

C: 

51770 

0 

I: 

76006 

0 

C: 

77765 

0 

I : 

76014 

0 

13,3260 

C: 

00303 

1 

C: 

27263 

0 

C : 

77775 

l 

I : 

40001 

1 

C : 

00001 

0 

C: 

2 72  66 

0 

I : 

43014 

0 

Ct 

04676 

1 

13,3270 

C : 

01667 

l 

I : 

77614 

l 

C : 

01672 

0 

I : 

77535 

1 

C: 

02102 

0 

30154 

1 

50120 

1 

54052 

l 

13,3300 

03460 

0 ■ 

I : 

45345 

l 

C: 

01115 

0 

C: 

01517 

0 

C : 

36074 

1 

C: 

27720 

1 

I : 

77624 

1 

C: 

22403 

0 

13,3310 

I : 

43345 

1 

C: 

01551 

1 

C: 

01517 

0 

C: 

35517 

1 

C: 

27236 

0 

I : 

43014 

0 

C : 

04752 

0 

C : 

27322 

1 

13,3320 

C : 

01632 

1 

C : 

27263 

0 

I : 

73001 

1 

C: 

00013 

0 

C : 

02030 

0 

I : 

51575 

1 

C: 

01535 

0 

I : 

43C06 

0 

13,3330 

C: 

00262 

1 

I : 

50023 

0 

C : 

53755 

0 

C: 

27336 

1 

I : 

77614 

1 

C: 

00062 

0 

I : 

41345 

0 

C: 

00013 

0 

13,3340 

C: 

00043 

0 

I : 

55762 

1 

C: 

51  770 

0 

I : 

41366 

1 

C: 

25762 

0 

I : 

40442 

1 

I : 

54345 

1 

C: 

00155 

0 

13,3350 

C : 

20220 

0 

I : 

40006 

0 

C : 

27377 

1 

I : 

50021 

1 

C: 

27446 

1 

C: 

27377 

1 

I : 

45345 

1 

C: 

11115 

0 

13,3360 

C: 

01517 

0 

I : 

54234 

0 

C: 

21622 

l 

C: 

20211 

1 

C : 

02076 

1 

I : 

514(  0 

1 

C: 

27403 

0 

I : 

50025 

0 

13,3370 

C: 

00015 

0 

C: 

27407 

l 

I : 

75345 

I 

C: 

000  15 

0 

C : 

02076 

1 

C: 

36076 

0 

C: 

27407 

1 

I : 

65345 

0 
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13,3400 

C: 

27446 

1 

I : 

77650 

1 

C: 

27356 

l 

I : 

77634 

0 

C: 

31765 

1 

C: 

36076 

0 

C : 

27372 

1 

I: 

51545 

1 

13,3410 

C : 

02076 

1 

I : 

50025 

0 

C: 

27444 

0 

C: 

27215 

1 

I : 

43014 

0 

C: 

01740 

0 

C : 

23307 

1 

C: 

01  707 

0 

13,3420 

C : 

23307 

1 

I : 

45345 

1 

C: 

02076 

l 

C: 

00015 

0 

I : 

43040 

1 

C: 

27215 

l 

C : 

04242 

1 

C: 

23307 

1 

13,3430 

I : 

45345 

1 

C: 

01115 

0 

C : 

01517 

0 

I : 

77640 

0 

C: 

27263 

0 

I: 

40525 

1 

C : 

02076 

l 

I : 

44322 

l 

13,3440 

I : 

52040 

1 

C: 

27263 

0 

C: 

23307 

1 

C: 

00000 

l 

C : 

01400 

1 

C: 

14152 

1 

C: 

00000 

1 

I : 

77776 

1 

13,3450 

30106 

0 

7352  l 

0 

00006 

1 

13513 

1 

33520 

0 

05124 

0 

I : 

77776 

1 

13  500 

0 

13,3460 

40106 

1 

74736 

0 

10000 

0 

03500 

1 

50120 

1 

30052 

0 

55054 

0 

05355 

1 

13,3470 

C : 

04022 

0 

31054 

1 

50120 

1 

54052 

1 

34736 

1 

70106 

1 

00006 

1 

13516 

1 

13,3500 

33520 

0 

00004 

0 

05130 

0 

10064 

1 

13500 

0 

C: 

00051 

0 

43521 

0 

70106 

1 

13,3510 

54106 

1 

00003 

1 

13516 

1 

34727 

1 

00004 

0 

26106 

1 

06060 

1 

I : 

77616 

0 

13,3520 

C : 

27450 

0 

C: 

20100 

1 

I : 

43020 

1 

C: 

02767 

0 

C: 

02716 

0 

C: 

27571 

1 

1 : 

776  14 

1 

C: 

0171  l 

1 

13,3530 

C : 

27571 

1 

I : 

45145 

0 

C : 

01234 

0 

C: 

27447 

0 

I : 

45014 

0 

C: 

01474 

1 

C: 

26  702 

0 

C: 

34041 

0 

13,3540 

C : 

27!  7? 

0 

I : 

45174 

1 

C: 

00002 

0 

C: 

27447 

0 

I : 

77014 

1 

C: 

04304 

1 

C : 

27550 

1 

C: 

00000 

1 

13,3550 

I : 

53775 

1 

C: 

01220 

0 

C : 

57176 

0 

C : 

01503 

0 

C: 

15535 

0 

C: 

01234 

0 

C: 

25517 

0 

C: 

01226 

0 

13,3560 

I : 

45057 

l 

C: 

57176 

0 

C: 

2 7734 

1 

I : 

66234 

1 

C: 

27005 

1 

C: 

03463 

0 

C: 

00000 

1 

I : 

77650 

1 

13,3570 

C : 

47211 

0 

I : 

45145 

0 

C: 

01234 

0 

C: 

27447 

0 

I : 

43014 

0 

C: 

014  76 

0 

C: 

04476 

0 

I : 

43014 

0 

13,3600 

C: 

01475 

0 

C: 

01674 

0 

C : 

34041 

0 

C: 

27172 

0 

I : 

77650 

l 

C: 

27531 

0 

I: 

43020 

1 

C: 

03  744 

0 

13,3610 

C: 

04474 

1 

I : 

43234 

0 

C: 

21603 

1 

C: 

11171 

0 

I : 

51021 

0 

C: 

00041 

1 

C: 

27625 

0 

I : 

77624 

1 

13,3620 

C: 

27711 

0 

I : 

43234 

0 

C: 

21603 

1 

C: 

11171 

0 

C: 

00041 

1 

I : 

776  24 

1 

C: 

27447 

0 

I : 

45014 

0 

13,3630 

C : 

01676 

I 

C: 

26066 

0 

I : 

43014 

0 

C: 

01673 

1 

C: 

04475 

0 

I; 

77624 

l 

C : 

27172 

0 

I: 

77214 

0 

13,3640 

C : 

04675 

1 

C: 

00001 

0 

C: 

27545 

0 

C: 

00007 

0 

C : 

17553 

1 

C: 

00015 

0 

C: 

03561 

0 

I : 

66134 

1 

13,3650 

C : 

02777 

1 

C : 

02776 

0 

I : 

7 7 7 75 

1 

00004 

0 

00006 

1 

400  25 

1 

20  155 

1 

07300 

0 

13,3660 

31744 

1 

04631 

1 

I : 

47014 

1 

C: 

04754 

0 

C : 

27701 

1 

C: 

21603 

1 

I : 

44215 

1 

C: 

11171 

0 

13,3670 

C : 

01115 

0 

I : 

45044 

0 

C: 

27315 

0 

C: 

27711 

0 

I : 

43234 

0 

C: 

21603 

1 

C : 

11171 

0 

C : 

35115 

1 

13,3700 

C : 

27315 

0 

I : 

45345 

1 

C : 

OL  l 15 

0 

C: 

01517 

0 

I : 

45246 

0 

C: 

11167 

1 

I: 

52040 

L 

C : 

27215 

1 

13,3710 

C : 

27674 

1 

I : 

77414 

0 

C: 

04674 

0 

25744 

1 

05571 

1 

C: 

01703 

1 

06060 

1 

I : 

77616 

0 

13,37  0 

I : 

77354 

0 

C: 

02030 

0 

C : 

01521 

0 

I : 

53257 

1 

C : 

57605 

0 

C: 

01535 

0 

C: 

01503 

0 

C : 

25535 

0 

13,3730 

C : 

01527 

0 

I : 

53257 

1 

C: 

57602 

1 

C: 

01543 

1 

C : 

01511 

0 

C: 

25543 

1 

C: 

24007 

0 

C: 

01521 

0 

13,3740 

C : 

15527 

0 

C: 

24007 

0 

C : 

01551 

1 

C: 

01553 

0 

I : 

77616 

0 

C: 

77764 

1 

C: 

77775 

l 

C: 

77766 

0 

13,3/50 

C: 

7777  1 

0 

C: 

77775 

1 

C : 

77775 

1 

C: 

00000 

l 

C: 

77763 

0 

C: 

77766 

0 

C: 

77773 

1 

C: 

77770 

1 

13,3760 

C: 

77771 

0 

C: 

24000 

1 

C : 

00000 

1 

C : 

74631 

0 

C: 

63145 

1 

C: 

00243 

1 

C: 

32703 

1 

C: 

03654 

0 

13,3770 

C: 

21 

l 

C: 

03654 

0 

C : 

21000 

1 

C: 

04627 

0 

C : 

25200 

1 

C: 

03775 

l 

C : 

03776 

1 

CKSM 

42521 

1 
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14,2000 

C : 

26723 

0 

C: 

00450 

0 

C : 

00065 

1 

C: 

01265 

1 

C: 

00302 

0 

C: 

24533 

l 

C: 

00052 

0 

C: 

04047 

0 

14,2010 

C : 

15264 

0 

C: 

07253 

1 

C : 

74133 

0 

C: 

45130 

1 

C: 

70034 

1 

C: 

53644 

1 

C : 

15015 

1 

C: 

35262 

1 

14,2020 

C : 

67072 

0 

C: 

57521 

0 

C : 

02552 

1 

C: 

27310 

0 

C: 

07210 

0 

C: 

34714 

1 

C: 

67300 

0 

C: 

47414 

0 

14,2030 

C : 

13262 

0 

C: 

27671 

1 

C: 

05101 

1 

C: 

34175 

0 

C: 

70717 

1 

C: 

46031 

1 

C : 

62467 

0 

C: 

45023 

1 

14,2040 

C: 

10655 

0 

C: 

16340 

1 

C: 

63237 

1 

C: 

45012 

0 

C: 

73711 

1 

C: 

62337 

1 

C: 

07207 

0 

C: 

34100 

1 

14,2050 

C: 

61751 

0 

C: 

60311 

1 

C: 

02344 

0 

C: 

11437 

1 

C: 

03243 

1 

C: 

10132 

0 

C: 

62031 

1 

C : 

55616 

0 

14,2060 

C: 

70716 

0 

C: 

43617 

0 

C: 

01747 

1 

C : 

01335 

0 

C : 

63532 

0 

C: 

54217 

1 

C: 

12010 

0 

C: 

11614 

1 

14,2070 

C: 

76152 
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C: 

00051 

0 

C: 

00006 

1 

I : 

77744 

0 

C: 

00050 

1 

I : 

45173 

0 

C: 

54000 

0 

C: 

47665 

1 

15,2'  V 

C : 

06  707 

1 

I : 

77775 

1 

C : 

02731 

0 

I : 

73744 

1 

C: 

00047 

1 

C: 

75040 

l 

I : 

71  152 

1 

C: 

00047 

1 

15,2650 

I : 

63047 

1 

C: 

54000 

0 

C : 

00002 

0 

C : 

06665 

1 

I : 

45100 

l 

C: 

32635 

0 

C : 

47336 

1 

I : 

74  57  5 

0 

15,2660 

C: 

02715 

0 

C: 

36723 

1 

C: 

32722 

1 

I : 

74575 

0 

C: 

02715 

0 

I: 

53455 

0 

C: 

02723 

0 

C: 

02761 

0 

15,2670 

1 : 

77641 

1 

C: 

02222 

1 

I : 

65552 

0 

C : 

01045 

1 

I : 

77776 

1 

05520 

0 

C: 

000  14 

l 

33015 

0 

15,2700 

04607 

1 

C: 

20471 

l 

06001 

0 

12706 

0 

05  5 06 

1 

C: 

00014 

1 

05355 

1 

C: 

04024 

0 

15,2710 

06060 

1 

I : 

77775 

1 

C: 

02761 

0 

C: 

02222 

1 

I : 

77776 

1 

34742 

1 

70074 

0 

innro 

0 

15,2720 

12615 

0 

13535 

0 

I : 

77220 

l 

C: 

02745 

0 

C: 

24007 

0 

C: 

02707 

0 

I : 

77776 

l 

05355 

1 

15,2  730 

C : 

04024 

0 

06060 

1 

I : 

77624 

1 

C: 

31542 

0 

I : 

77776 

1 

33014 

1 

55736 

0 

37737 

0 

15,2  740 

55074 

1 

C4607 

1 

C : 

15751 

0 

05355 

1 

C: 

04024 

0 

04607 

1 

C: 

77543 

0 

06060 

1 

15,2750 

I : 

77776 

l 

34771 

1 

05175 

1 

C: 

02755 

1 

05146 

1 

04665 

0 

C : 

77543 

0 

35014 

1 

15,2760 

05076 

0 

C: 

02764 

0 

C: 

32065 

0 

05263 

0 

04607 

1 

C: 

15333 

0 

25736 

1 

06060 

1 

15,2770 

I : 

53375 

0 

C: 

00325 

0 

C : 

02707 

0 

C: 

02707 

0 

I : 

50135 

0 

C: 

02737 

0 

C: 

32750 

1 

I : 

53575 

0 
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15,3000 

C: 

02707 

0 

C: 

36731 

l 

C: 

47522 

1 

I : 

77624 

1 

C : 

47663 

1 

C: 

02715 

0 

I : 

77776 

1 

05355 

1 

15,3010 

C: 

04024 

0 

06060 

1 

I : 

77650 

1 

C: 

02745 

0 

C: 

77753 

0 

C: 

01404 

0 

C : 

07357 

1 

C: 

0621  1 

0 

15,3020 

I : 

7122  0 

1 

C : 

02745 

0 

C : 

00322 

1 

I : 

65325 

0 

C: 

00324 

1 

C: 

00323 

0 

I : 

77666 

1 

C: 

24766 

0 

15,3030 

C: 

24005 

1 

I : 

77624 

1 

C: 

47656 

1 

C : 

26707 

0 

C: 

24003 

1 

I: 

77624 

1 

C : 

47665 

1 

C: 

36715 

1 

15,3040 

C : 

47522 

1 

I : 

77624 

1 

C : 

20030 

0 

I : 

77775 

1 

C: 

02665 

0 

C: 

24007 

0 

C: 

02673 

1 

C: 

34015 

1 

15,3050 

C : 

47424 

0 

I : 

77624 

1 

C : 

47232 

1 

I : 

77776 

1 

33063 

l 

04607 

1 

C: 

17310 

0 

04607 

1 

15,3060 

C: 

17735 

0 

C5705 

0 

13011 

0 

C: 

02737 

0 

34746 

0 

13067 

1 

34  744 

1 

55757 

1 

15.3C70 

05355 

l 

C : 

04024 

0 

12402 

1 

31757 

0 

00006 

l 

13106 

l 

05355 

1 

C: 

04024 

0 

15,3100 

06060 

1 

I : 

45  145 

0 

C: 

03562 

0 

C : 

16607 

1 

C : 

37254 

0 

C: 

33120 

1 

06060 

1 

I : 

77775 

1 

15,3  1 10 

C : 

02  767 

0 

C: 

02761 

0 

I : 

45145 

0 

C : 

03562 

0 

C: 

1 6 0 r 7 

l 

C: 

03246 

I 

I : 

77776 

1 

13C66 

0 

15,3120 

I : 

77131 

l 

C: 

00052 

0 

C : 

00006 

1 

C: 

00014 

1 

I : 

64373 

1 

C: 

74515 

0 

C: 

03607 

0 

1 : 

77656 

1 

15,3130 

C: 

12723 

1 

I : 

77773 

1 

C : 

75002 

1 

C: 

10023 

1 

I : 

43  104 

0 

C: 

33124 

0 

C: 

04315 

1 

C: 

33145 

1 

15,3140 

I : 

77624 

1 

C: 

31265 

1 

I : 

77614 

l 

C: 

00354 

0 

C: 

33225 

1 

I : 

77624 

1 

C: 

47424 

0 

I : 

77624 

1 

15,3150 

C : 

47232 

1 

I : 

77776 

l 

34743 

0 

70104 

0 

10000 

0 

13164 

0 

33  2 73 

1 

04607 

1 

15,3160 

C : 

20471 

1 

06001 

0 

13164 

0 

13226 

0 

06060 

1 

I : 

40175 

0 

C: 

02  740 

0 

C: 

33170 

1 

15,3170 

C: 

02750 

1 

I : 

40141 

l 

C: 

30617 

1 

C: 

31715 

0 

I : 

52131 

0 

C: 

02746 

0 

C: 

33200 

0 

C: 

33053 

1 

15,3200 

1 : 

77776 

1 

05355 

1 

C: 

04024 

0 

06060 

1 

I : 

75160 

1 

C: 

03606 

1 

C: 

01731 

0 

I: 

45014 

0 

15,3210 

C : 

01462 

0 

C : 

26374 

0 

I : 

77776 

1 

11144 

0 

132  16 

0 

13226 

0 

34  743 

0 

70104 

0 

15,3220 

10000 

0 

13543 

l 

06060 

l 

I : 

77624 

1 

C : 

33470 

1 

I : 

77776 

1 

35745 

1 

04  607 

1 

15,3230 

C : 

20635 

0 

16001 

1 

13543 

1 

44743 

1 

61144 

1 

00006 

1 

13240 

0 

16001 

1 

15,3240 

05355 

1 

C: 

04024 

0 

06060 

1 

I : 

45175 

0 

C: 

02222 

1 

C: 

47653 

l 

I : 

43105 

1 

C: 

01732 

0 

15,3250 

C: 

01463 

1 

I : 

515  15 

1 

C: 

02021 

0 

I : 

45561 

1 

C : 

75745 

0 

I : 

47014 

1 

C: 

00662 

0 

C: 

21603 

l 

15,3260 

I : 

77624 

1 

C: 

30455 

0 

C : 

01220 

0 

I : 

65352 

0 

C: 

01242 

1 

I : 

77606 

1 

C : 

35  2 34 

l 

C: 

51644 

0 

15,3270 

C: 

02021 

0 

I : 

77776 

1 

16001 

1 

C: 

01535 

0 

04607 

l 

C: 

33634 

0 

05520 

0 

C: 

00222 

0 

15,3300 

36266 

0 

55144 

0 

34744 

1 

04607 

1 

C : 

20725 

0 

1 

0 

13313 

l 

13302 

l 

15,33  10 

05355 

I 

C : 

00014 

1 

05146 

1 

31144 

l 

76266 

1 

50000 

1 

13317 

0 

13332 

1 

15,3320 

13373 

1 

13302 

l 

06060 

l 

I : 

75160 

1 

C: 

01731 

0 

C: 

03606 

1 

I : 

77624 

1 

C: 

26374 

0 

15,3330 

I : 

77650 

1 

C: 

33372 

1 

06060 

1 

I : 

77745 

1 

C: 

03442 

0 

C: 

01045 

1 

I : 

77776 

1 

32325 

1 

15,3340 

04607 

1 

C: 

20471 

l 

16001 

1 

13345 

1 

13337 

1 

06060 

1 

I : 

65234 

1 

C: 

21603 

1 

15,3350 

C: 

01045 

1 

I : 

65254 

l 

C : 

33362 

0 

I : 

51025 

1 

C : 

01045 

l 

C: 

33362 

0 

I : 

45545 

1 

C: 

74335 

1 

15,3360 

C : 

36775 

1 

C: 

33364 

0 

I : 

45545 

1 

C: 

75002 

l 

C: 

34041 

0 

C: 

27115 

1 

I : 

53575 

0 

C : 

00001 

0 

15,3370 

C : 

3 7607 

1 

C: 

11014 

l 

I : 

77776 

1 

34746 

0 

55144 

0 

55145 

1 

34730 

1 

70077 

0 

GAP:  ASSEMBLE  REVISION  210  CF  AGC  PROGRAM  LUMINARY  BY  NASA  202 l 1 L2- l 61  17:11  MAR.  19,1971  PAGE  1645 

OCTAL  LISTING  FOR  PARAGRAPH  # 107,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


> 


ALL  VALID  WOROS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS!  OR  "C"  (CONSTANTS! 


15 , 34  CO 

10000 

0 

34736 

1 

27145 

1 

34744 

l 

70102 

0 

10000 

0 

34  741 

1 

27145 

1 

15,3410 

34  741 

1 

55143 

1 

33633 

l 

04607 

1 

C : 

20471 

1 

16001 

1 

13420 

0 

13412 

l 

15,3420 

34730 

1 

70  07  7 

0 

10000 

0 

13523 

1 

34744 

1 

701  2 

0 

10000 

0 

13527 

0 

15,3430 

34  743 

0 

71144 

0 

10000 

0 

13527 

0 

05571 

1 

C: 

00701 

1 

34777 

1 

04607 

1 

15,3440 

C : 

20471 

l 

16001 

1 

13412 

1 

13412 

1 

I : 

40220 

0 

C: 

02746 

0 

C : 

00001 

0 

I : 

77634 

0 

I 5,3450 

C : 

21603 

1 

C: 

27562 

0 

C: 

03246 

1 

I : 

41525 

0 

C: 

03562 

0 

I : 

77624 

1 

C: 

55716 

l 

C: 

27246 

1 

15,3460 

C : 

03254 

l 

I : 

65201 

1 

C: 

00001 

0 

C: 

03562 

0 

I : 

45006 

0 

C: 

55716 

1 

C: 

37254 

0 

C : 

02746 

0 

15,3470 

I : 

45020 

1 

C : 

02746 

0 

C : 

47522 

1 

I : 

40234 

0 

C: 

21603 

1 

C: 

00001 

0 

C: 

37562 

1 

C: 

20030 

0 

15,3500 

I : 

61375 

1 

C: 

02673 

1 

C : 

01732 

0 

I : 

65256 

0 

C: 

03562 

0 

I : 

45006 

0 

C : 

51644 

0 

C: 

26230 

1 

15,36  10 

C : 

02701 

0 

I : 

53505 

l 

C: 

01732 

0 

I : 

41525 

0 

C: 

03562 

0 

I : 

77624 

1 

C: 

51644 

0 

C: 

02236 

l 

15,3520 

I : 

77614 

1 

C: 

03036 

1 

C: 

02  746 

c 

06060 

1 

I : 

77624 

1 

C: 

33470 

1 

I : 

77776 

1 

05506 

1 

15,3530 

C: 

00205 

0 

34744 

1 

11144 

0 

10000 

0 

12615 

0 

05355 

1 

C: 

04024 

0 

34744 

1 

15,3540 

70102 

0 

10000 

0 

13557 

1 

05355 

1 

C: 

04024 

0 

05520 

0 

C : 

00205 

0 

36266 

0 

15,3550 

71144 

0 

50000 

1 

13553 

0 

13557 

1 

13600 

0 

13616 

1 

13617 

0 

06060 

l 

15,3560 

I : 

77775 

1 

C: 

02230 

1 

C : 

27246 

1 

C: 

02236 

1 

C: 

37254 

0 

C: 

47522 

1 

I : 

77624 

l 

C : 

20030 

0 

15,3570 

I : 

77775 

1 

C: 

02673 

1 

C: 

26761 

0 

C: 

02701 

0 

C: 

36767 

1 

C: 

33444 

0 

I : 

77650 

1 

C: 

33120 

1 

1 5 , 3 6 CO 

06060 

1 

1 : 

53575 

0 

C: 

02021 

0 

C: 

27246 

1 

C : 

02236 

1 

C: 

37254 

0 

C : 

47522 

1 

I : 

77624 

1 

15,3610 

C: 

20030 

0 

I : 

45175 

0 

C : 

02222 

1 

C: 

47653 

1 

I : 

77650 

1 

C: 

33572 

l 

13064 

1 

06  060 

1 

15,3620 

! : 

53575 

0 

C: 

02021 

0 

C : 

03246 

l 

C: 

27254 

1 

C: 

02222 

1 

I : 

77624 

1 

C : 

47653 

1 

C: 

36761 

1 

15,3630 

C: 

33444 

0 

I : 

77776 

1 

13066 

0 

C: 

01206 

1 

41277 

0 

74734 

1 

10000 

0 

13643 

1 

15,3640 

05571 

1 

C: 

00210 

1 

06001 

0 

05506 

1 

C : 

00007 

0 

04622 

0 

I : 

54201 

0 

C : 

00001 

0 

15,3650 

C: 

20617 

0 

I : 

56371 

l 

C: 

01707 

0 

C: 

32001 

1 

C : 

00031 

0 

I : 

77170 

l 

C: 

00000 

1 

C: 

00000 

L 

15,3660 

I : 

77614 

I 

C: 

00274 

0 

I : 

77745 

1 

C: 

12004 

0 

C*. 

00027 

1 

I : 

40745 

0 

C : 

00031 

0 

C : 

12030 

1 

15,3670 

I : 

42661 

0 

C: 

20212 

1 

C : 

12026 

0 

I : 

40756 

1 

C : 

12024 

l 

I: 

62015 

1 

C: 

00027 

1 

C : 

777T1 

0 

15,37 

C: 

00027 

1 

1 : 

77614 

1 

C: 

00054 

0 

C: 

33665 

1 

I : 

40745 

0 

C: 

00031 

0 

C: 

67752 

0 

I : 

42661 

0 

15,3710 

C : 

20207 

0 

C: 

67744 

1 

I : 

77625 

0 

C: 

00027 

1 

C: 

10021 

0 

I : 

63135 

0 

C: 

00050 

1 

C : 

77775 

1 

15,3720 

I : 

53015 

0 

C: 

32003 

0 

C : 

33752 

1 

I : 

77  644 

1 

C: 

33662 

0 

I : 

45345 

1 

C: 

00021 

1 

C: 

00025 

0 

15,3  730 

I : 

65356 

1 

C: 

00021 

1 

I : 

65356 

1 

C: 

00021 

1 

I : 

55546 

0 

I: 

53521 

1 

C : 

12002 

0 

C : 

02723 

0 

15,3740 

I : 

65345 

0 

C: 

12004 

0 

C : 

00023 

0 

I: 

65356 

1 

C: 

00023 

0 

I : 

5 5546 

0 

I : 

53521 

1 

C: 

12002 

0 

15,3750 

C : 

02715 

0 

I : 

77616 

0 

I : 

77745 

1 

C: 

12004 

0 

C: 

00027 

l 

I : 

77650 

1 

C: 

33  704 

1 

34730 

1 

15,3760 

70  07  7 

0 

10000 

0 

03773 

l 

31277 

l 

74734 

1 

00006 

1 

13770 

0 

44  741 

0 

15,3770 

63776 

1 

05740 

1 

06001 

0 

05506 

1 

C: 

00007 

0 

14622 

l 

C: 

00220 

1 

CKSM 

66676 

0 
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16,2000 

00006 

1 

00031 

0 

40000 

0 

74346 

0 

00006 

l 

12012 

1 

41300 

1 

74737 

1 

16,2010 

10000 

0 

12212 

0 

41774 

0 

74742 

0 

27774 

0 

12164 

l 

34733 

1 

00006 

1 

16,2020 

02030 

0 

10000 

0 

12033 

1 

40106 

1 

74  744 

0 

10000 

0 

00002 

0 

44744 

0 

16,2030 

70106 

1 

54106 

1 

12043 

0 

40106 

1 

74744 

0 

26106 

1 

00002 

0 

22016 

0 

16,2040 

00006 

1 

22012 

1 

02000 

0 

30111 

0 

74742 

0 

00006 

1 

12160 

0 

04665 

0 

16,2050 

C: 

40154 

0 

34746 

0 

55524 

1 

55525 

0 

55526 

0 

55421 

0 

55422 

0 

55423 

1 

16,2060 

55430 

0 

55431 

1 

55432 

1 

55536 

l 

55537 

0 

55540 

0 

55541 

l 

55424 

0 

16,2070 

55425 

1 

55501 

0 

55503 

l 

55544 

1 

55545 

0 

55510 

0 

555  12 

1 

55502 

0 

16,2100 

55630 

1 

55632 

0 

55631 

0 

55633 

1 

55460 

0 

55461 

1 

55766 

0 

55767 

1 

16,2 1 10 

55770 

1 

42206 

0 

7 1774 

0 

55774 

0 

00006 

1 

30033 

1 

53441 

0 

30034 

0 

16,2120 

5 544  2 

0 

4 L 774 

0 

74731 

1 

27774 

0 

34742 

1 

55534 

0 

55535 

1 

34724 

1 

16,2130 

5403  1 

1 

55466 

0 

55470 

1 

34746 

0 

55467 

1 

55471 

0 

55465 

0 

55472 

0 

16,2140 

55473 

1 

55474 

0 

44354 

0 

55756 

0 

34743 

0 

55433 

0 

55434 

1 

55435 

0 

16,2150 

00006 

1 

32211 

1 

53263 

0 

37750 

1 

54030 

0 

152  72 

1 

C: 

02037 

1 

c: 

34106 

1 

16,2 160 

04665 

0 

C: 

36655 

l 

04665 

0 

C:  35447 

0 
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00006 

1 

31410 

0 

16,24  70 

53750 

0 

31406 

1 

55751 

1 

11430 

0 

12476 

l 

12513 

0 
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00031 

0 

55443 

1 

74726 

1 

00006 

1 

L 3 2 20 

0 

34731 

0 

70111 

l 

00006 

1 

16,3100 

13464 

0 

34734 

0 

71774 

0 

00006 

1 

13  1 16 

0 

34730 

1 

00006 

1 

02031 

1 

16,3110 

00006 

1 

13215 

0 

45005 

0 

71774 

0 

55774 

0 

13215 

0 

31774 

1 

74733 

0 

16,3120 

00006 

l 

13123 

0 

L 3 2 15 

0 

31774 

1 

74732 

1 

00006 

1 

13132 

0 

13  105 

1 

16,3130 

C:  74777 

0 

C:  00056 

1 

00004 

0 

34730 

1 

00006 

l 

02031 

1 

00006 

1 

13143 

0 

16,3140 

30032 

0 

55634 

0 

03145 

1 

04665 

0 

C:  40154 

0 

44731 

1 

70  111 

1 

54111 

1 

16,3150 

00003 

1 

13464 

0 

55464 

1 

55446 

1 

55447 

0 

554  50 

0 

55451 

1 

55452 

1 

16,3160 

55453 

0 

55454 

1 

55455 

0 

55456 

0 

54042 

0 

54044 

0 

33130 

0 

71774 

0 

16,31 70 

55  7 74 

0 

03176 

1 

34731 

0 

26111 

1 

00003 

1 

13443 

0 

22044 

1 

30042 

1 

16,3200 

53463 

0 

34746 

0 

54043 

l 

54042 

0 

54044 

0 

00004 

0 

00006 

1 

23265 

1 

16,3210 

C6040 

0 

33620 

0 

00006 

1 

05013 

0 

01265 

1 

34746 

0 

54043 

1 

13227 

t 

L6.3220 

41774 

0 

74734 

1 

27774 

0 

34731 

0 

7011  1 

1 

00006 

1 

13152 

0 

30032 

0 

16,3230 

55634 

0 

10043 

1 

13235 

1 

13235 

1 

13235 

1 

60000 

1 

60000 

1 

63  131 

1 

16,3240 

00006 

1 

70043 

1 

30001 

0 

00006 

1 

71444 

0 

57454 

0 

40000 

0 

61454 

0 

16,3250 

55736 

0 

03176 

l 

00003 

1 

41454 

1 

61421 

1 

55427 

0 

11736 

0 

13262 

0 

16,3260 

132  70 

0 

13262 

0 

614  76 

0 

00006 

1 

63270 

l 

34762 

0 

55445 

l 

03301 

0 

16,3270 

31774 

1 

74733 

0 

00006 

1 

13275 

0 

03301 

0 

31446 

0 

55751 

l 

55464 

1 

1 6 ,3  3G0 

03470 

1 

30032 

0 

55634 

0 

34746 

0 

55446 

1 

55447 

0 

55464 

1 

11427 

0 

16,3310 

03313 

0 

03313 

0 

03313 

0 

55736 

0 

61476 

0 

00006 

l 

63326 

0 

31445 

0 

16,3320 

00006 

1 

63326 

0 

41774 

0 

74733 

0 

27774 

0 

13331 

1 

44733 

0 

71  774 

0 

16,3330 

55774 

0 

4142  7 

0 

00006 

1 

715  50 

1 

20001 

l 

02314 

0 

00006 

1 

77737 

1 

16,3340 

55  52  4 

1 

31736 

1 

61475 

0 

00006 

1 

63347 

l 

36263 

0 

13356 

0 

31524 

0 

16,3350 

27524 

1 

34740 

0 

70101 

0 

10000 

0 

34  744 

1 

64742 

1 

55742 

0 

34744 

1 

16,3360 

54001 

1 

1 1524 

1 

13367 

1 

13443 

0 

13366 

0 

13443 

0 

22007 

0 

64744 

l 

16,3370 

55736 

0 

23743 

0 

03532 

0 

46263 

1 

61742 

1 

00006 

1 

13400 

1 

44743 

1 

GAP 


ASSEMBLE  REVISION  210  CF  A GC  PROGRAM  LUMINARY  BY  NASA  2021LI2-161 


L7: LI  MAR.  19,1971 


PAGE  1649 


OCTAL  LISTING  FOR  PARAGRAPH  # 113,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "31"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKFD  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


16.34C0 

64742 

1 

55521 

l 

31  740 

0 

05750 

0 

41  736 

0 

63613 

0 

00006 

1 

63625 

0 

16,3410 

63573 

0 

00006 

1 

63417 

0 

27736 

0 

51743 

0 

33622 

1 

55524 

1 

31  736 

i 

16,3420 

22007 

0 

00004 

0 

53471 

0 

04665 

0 

C: 

37143 

0 

44731 

1 

71774 

0 

55774 

0 

16,3430 

03432 

1 

13625 

I 

30101 

1 

54001 

1 

34740 

0 

00006 

1 

06001 

0 

54101 

0 

16,3440 

00003 

1 

00002 

0 

03432 

1 

05747 

0 

34746 

0 

55524 

1 

13625 

1 

30033 

1 

16,3450 

00006 

1 

21635 

l 

00006 

1 

71414 

0 

57751 

0 

30032 

0 

00006 

1 

21634 

0 

16,3460 

61274 

1 

27751 

1 

57464 

0 

00002 

0 

03447 

0 

41642 

1 

61421 

1 

55477 

0 

16,3470 

44  744 

0 

55505 

1 

30111 

0 

74730 

0 

00006 

1 

13506 

0 

00004 

0 

04665 

0 

16,3500 

C : 

43667 

1 

31524 

0 

00006 

1 

13442 

1 

00003 

1 

13351 

l 

34746 

0 

55500 

1 

16,3510 
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1 7.20C0 

54002 

1 

00006 

1 

00004 

0 

54001 

1 

74337 

0 

40000 

0 

64737 

0 

74337 

0 

17,20  10 

55270 

1 

67767 

0 

00006 

1 

62001 

1 

30002 

0 

00006 

l 

05013 

0 

40001 

1 

17,2020 

55267 

l 

C4700 

1 

55266 

0 

34741 

1 

00006 

l 

02013 

1 

00006 

l 

12050 

1 

1 7,2030 

12  031 

0 

00006 

1 

00004 

0 

61267 

0 

64727 

1 

64727 

1 

56001 

0 

32053 

0 

1 7,2040 

61270 

0 

00006 

1 

60001 

0 

00006 

1 

62050 

0 

62054 

l 

00006 

1 

62030 

0 

17,2050 

22002 

0 

31266 

1 

52005 

0 

C: 

00440 

1 

C:  77754 

1 

10031 

1 

00002 

0 

05701 

1 

17,2060 

05701 

1 

34724 

1 

22007 

0 

53471 

0 

53467 

1 

23465 

1 

54031 

1 

67746 

0 

17,2070 

54000 

0 

12075 

0 

34  724 

1 

540  31 

1 

12115 

l 

00006 

1 

23265 

1 

22070 

0 

1 7, 2 1 CO 

06040 

0 

00006 

1 

23265 

1 

22070 

0 

34726 

0 

00006 

l 

05013 

0 

31466 

1 

17,2  1 10 

67746 

0 

54000 

0 

12115 

1 

34724 

1 

55466 

0 

50001 

0 

15747 

1 

22  C 1 6 

0 

17,2120 

00006 

l 

22012 

l 

02055 

0 

15272 

1 

34730 

l 

00006 

1 

02031 

1 

10000 

0 

17,2130 

12135 

0 

40111 

I 

74731 

1 

00006 

1 

12136 

0 

02655 

0 

11630 

1 

12636 

1 

17,2140 

12623 

0 

34746 

0 

55630 

1 

534  3 7 

l 

03200 

0 

53427 

0 

34736 

1 

00006 

l 

17,21 50 

02031 

1 

00006 

1 

12200 

0 

34735 

1 

00006 

l 

02031 

1 

00006 

1 

12201 

1 

17,2  160 

34737 

0 

70111 

l 

10000 

0 

12200 

0 

55473 

1 

554  74 

0 

40111 

1 

74735 

0 

17,2 1 70 

00006 

l 

12176 

1 

30106 

0 

74730 

0 

10000 

0 

34743 

0 

55500 

1 

12232 

1 

17.22C0 

34744 

1 

64742 

1 

55743 

1 

67766 

1 

55500 

1 

301  11 

0 

74732 

1 

10000 

0 

17,2210 

12352 

0 

30111 

0 

74733 

0 

10000 

0 

34744 

l 

64743 

0 

55742 

0 

03225 

l 

17,2220 

11740 

1 

12224 

0 

05571 

1 

C: 

02002 

1 

35770 

1 

71740 

1 

55473 

1 

45770 

0 

17,2230 

71740 

1 

55474 

0 

34  730 

1 

00006 

l 

02031 

1 

10000 

0 

12710 

l 

34726 

0 

17,2240 

70111 

1 

00006 

1 

12354 

0 

00004 

0 

04665 

0 

C:  40154 

0 

34746 

0 

55450 

0 

1 7,2250 

55452 

l 

00003 

1 

00006 

1 

00031 

0 

55736 

0 

11461 

1 

12300 

1 

31736 

l 

17,2260 

74744 

0 

00006 

l 

12304 

0 

31736 

l 

74743 

1 

00006 

1 

12310 

0 

31736 

1 

17,2270 

74740 

l 

00006 

1 

12314 

1 

31736 

1 

74737 

1 

00006 

1 

12316 

0 

13112 

1 

l 7.23C0 

41736 

0 

72351 

0 

55461 

1 

13112 

1 

33136 

0 

55525 

0 

43136 

l 

12320 

0 

17,2310 

43136 

1 

55525 

0 

33136 

0 

12320 

0 

33136 

0 

12317 

1 

43  136 

l 

55525 

0 

17,2320 

55526 

0 

32350 

0 

55477 

0 

34744 

1 

55461 

1 

55505 

I 

30111 

0 

74  730 

0 

17,2330 
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1 

12341 

1 
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0 
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12337 

0 

44767 

1 

51505 

0 

1 7,2340 
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0 
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0 
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1 
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0 
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1 
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1 
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55632 
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44744 
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55630 

1 

34  726 

0 
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71443 

1 
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1 

12377 

1 
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0 
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1 
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l 

44734 

1 
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1 
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0 
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0 
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1 
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1 
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1 
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1 

71444 

0 
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l 
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0 
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l 
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12423 

1 
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1 

12423 

1 

60000 

1 
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1 
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0 

1 7,2430 
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1 

71444 

0 

57456 

1 
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0 

61456 

1 

55741 

0 

41455 

0 

17,2440 

61422 

1 

55436 

0 

41456 

0 

61423 

0 

55437 

1 

53437 

1 

03200 

0 

53427 

0 
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0 
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0 

c: 

40154 

0 
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1 

11  740 

1 

02460 

1 

02460 

1 

02460 

1 

17,2460 

61476 
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1 

62464 

0 

12502 

0 

11741 

0 

02470 

0 

02470 

0 

02470 

0 

17,2470 

61476 
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l 
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l 

12502 

0 

31774 

1 

74732 

1 
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1 

12501 

0 

1 7,25CO 

12  504 

0 

12710 

l 

34  762 

0 

55457 

1 

34  746 

0 

55450 

0 

55451 

1 

55452 

1 
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0 
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1 

12515 

0 

12515 

0 

12515 

0 
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0 
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1 
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1 
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1 
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1 
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l 
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0 

02537 

1 

02537 

1 

02537 

1 
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0 

17,2540 

00006 

1 

62553 

0 
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0 

55426 

1 

31457 
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1 
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0 
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0 

17,2550 

74732 

1 

27774 

0 

02556 

0 

44732 

1 

71774 

0 

55774 

0 

32622 

0 

55477 

0 

17,2560 

34744 

1 

55505 

1 

34742 

1 

55742 

0 

51505 

0 

51534 

l 

12567 

0 

34742 

1 

1 7,2570 

51505 

0 

55534 

0 

13034 

1 

51505 

0 

11426 

1 

34746 

0 

12600 

1 

34744 

1 

17,2600 

51505 

0 

63755 

0 
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1 

41570 

0 

00006 

1 

51505 

0 

71426 

1 

54002 

1 

17,2610 

20001 

1 

60002 

0 

54000 

0 

12615 

0 
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0 

51505 

0 

55525 

0 

12756 

0 

17,2620 

34746 

0 

12615 

0 

C: 

02561 

1 

34727 

1 

70111 

1 
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0 

12141 

0 

11502 

0 

17,2630 

12632 

0 

12141 

0 

00006 

1 
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1 

10000 

0 

12641 

1 

00006 

1 

32654 

1 

17,264u 

52006 

0 

11632 

0 

12644 

1 

12141 

0 

00004 

0 

04665 

0 

C:  43260 

1 

00003 

1 

17,2650 

34746 

0 

55632 

0 

12141 

0 

C:  03027 

l 

C:  42106 

0 

30033 

1 

00006 

l 

21635 

1 

17,2660 

55736 

0 

00006 

1 

71415 

1 

55  751 

l 

30034 

0 

00006 

1 

21636 

l 

55737 

1 

17,2670 

00006 

l 

71417 

0 

61275 

0 

61751 

0 

57450 

1 

31736 

1 

00006 

1 

71416 

l 

17,2  7C0 

55751 

l 

31737 

0 

00006 

1 

71420 

1 

61276 

0 

61751 

0 

57452 

0 

00002 

0 

17,2710 

31452 

0 

22000 

1 

31450 

1 

03200 

0 

53751 

1 

33142 

0 

55477 

0 

34744 

1 

17,2720 

55505 

1 

51505 

0 

51534 

1 

12724 

0 

34742 

1 

51505 

0 

55534 

0 

13034 

1 

1 7,2730 

51505 

0 

31750 

l 

55751 

1 

51505 

0 

31426 

0 

55427 

0 

30111 

0 

74730 

0 

l 7,2740 

10000 

0 

12744 

0 

03304 

0 

12756 

0 

40111 
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74727 

0 

10000 

0 

55630 

l 

1 7,2750 

00004 

0 

04665 

0 

C: 

43667 

1 

00003 

1 

34742 

1 

55742 

0 

30101 

1 

74730 

0 

17,2760 

00006 

1 

12772 

0 

40106 

1 

74730 

0 

00006 

l 

12772 

0 

30111 

0 

74735 

0 

1 7,2770 

00006 

1 

13112 

1 

34743 

0 

54001 

1 

51505 

0 
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13026 

1 
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1 7.30C0 

13002 

l 

13026 

1 

22007 

0 

64744 

1 

55736 

0 

31505 

0 

60001 

0 

55  743 

1 

17,3010 

31736 

1 

63137 

1 

00006 

1 

63037 

0 

03225 

1 

51505 

0 

33134 

1 

54001 

1 

17,3020 

31740 

0 

00004 

0 

50001 

0 

05750 

0 

00003 

1 

13100 

1 

51505 

0 

33  134 

1 

17,3030 

00004 

0 

50000 

1 

05747 

0 

00003 

1 

11505 

1 

01477 

1 

13270 

0 

41736 

0 

1 7 , 30  AO 

63136 

0 

00006 

1 

63061 

0 

27736 

0 

51505 

0 

1 1525 

0 

33  136 

0 

13051 

1 

17,3050 

43  136 

l 

b 1 5 > 5 

0 

55525 

0 

11500 

1 

13060 

0 

00006 

1 

00004 

0 

74744 

0 

17,3060 

55742 

0 

03225 

1 

51505 

0 

33134 

1 

00004 

0 

55471 

0 

31740 

0 

51471 

1 

17,3070 

05750 

0 

31736 

1 

55470 

1 

03143 

1 

00003 

1 

34746 

0 

51505 

0 

55534 

0 

I 7 , 3 1 CO 

46266 

1 

61742 

1 

00006 

1 

63106 

0 

34743 

0 

13107 

0 

34  744 

1 

51505 

0 

17,31  10 

55522 

1 

13034 

1 

34746 

0 

55525 

0 

55526 

0 

34742 

1 

00004 

0 

57534 

1 

17,3120 

00006 

1 

13123 

0 

05753 

0 

34742 

1 

57535 

0 

00003 

1 

00006 

1 

13270 

0 

17,3130 

00004 

0 

05764 

1 

00003 

l 

13270 

0 

C: 

00004 

0 

C: 

00015 

0 

C:  00026 

0 

C: 

77417 

0 

17,3 140 

C: 

00600 

1 

C : 

00266 

0 

C: 

02720 

0 

41470 

1 

60031 

0 

00006 

1 

63  163 

0 

23465 

1 

17,3150 

53467 

1 

53471 

0 

54031 

1 

23465 

1 

00006 

1 

23265 

1 

06040 

0 

34726 

0 

17,3160 

00006 

1 

05013 

0 

01265 

1 

61466 

1 

00006 

1 

63174 

0 

23467 

0 

53471 

0 

17,3170 

00006 

l 

60031 

0 

53467 

1 

00002 

0 

40000 

0 

64745 

0 

55470 

l 

00002 

0 

1 7 , 3 2 CO 

23737 

0 

00006 

1 

71626 

0 

5773  7 

0 

00006 

l 

71627 

1 

54001 

1 

61737 

0 

17,32  10 

55736 

0 

13215 

0 

50000 

1 

44725 

1 

55736 

0 

41737 

1 

60001 

0 

54007 

1 

17,3220 

1 3223 

0 

50000 

1 

44725 

l 

23736 

1 

00002 

0 

51743 

0 

33257 

1 

51742 

1 

17,3230 

73263 

1 

55740 

1 

71257 

1 

10000 

0 

13236 

l 

00002 

0 

36266 

0 

55742 

0 

17 ,3240 

51743 

0 

33257 

1 

51742 

1 

73263 

1 

55740 

1 

71257 

1 

00006 

1 

13235 

l 

17,3250 

11742 

0 

13237 

0 

51505 

0 

55525 

0 

05571 

1 

C: 

02004 

1 

13026 

1 

C: 

00110 

l 

17,3260 

C : 

00022 

l 

C: 

00204 

l 

C : 

00041 

1 

C:  00125 

1 

C: 

002  52 

l 

C: 

00146 

1 

C:  00231 

1 

C : 

00377 

1 

17,3270 

33272 

0 

07775 

0 

C : 

03273 

1 

53753 

0 

52011 

0 

53755 

0 

56017 

1 

22002 

0 

17,3300 

34726 

0 

53757 

1 

52016 

1 

15274 

1 

00006 

1 

23744 

1 

51505 

0 

33755 

0 

17,33  10 

55745 

l 

3L427 

l 

00006 

1 

63320 

0 

31745 

0 

55743 

1 

33757 

1 

13330 

0 

17,3320 

41751 

1 

55751 

1 

41427 

0 

55427 

0 

34744 

l 

27745 

1 

55743 

1 

43  757 

0 

17,3330 

55737 

1 

31751 

0 

00006 

1 

74740 

1 

10000 

0 

13717 

1 

13340 

1 

13663 

0 

17,3340 

34730 

1 

00006 

1 

70001 

1 

55751 

1 

31427 

1 

00006 

L 

74741 

0 

00006 

l 

17,3350 

13352 

1 

13725 

0 

23427 

1 

31427 

1 

00006 

1 

70000 

0 

00006 

1 

74730 

0 

17,3360 

55736 

0 

11751 

1 

13365 

0 

13365 

0 

13365 

0 

63760 

0 

00006 

1 

51  745 

0 

17,3370 

61600 

0 

00006 

1 

63377 

l 

34743 

0 

27743 

1 

34742 

1 

13402 

0 

1 1 500 
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17,3400 

13402 

0 

13373 

1 

55742 

0 

41736 

0 

00006 

1 

51743 

0 

71566 

1 

51745 

0 

17,3410 

61600 

0 

00006 

1 

61751 

0 

55740 

1 

00006 

1 

63575 

0 

51  745 

0 

31572 

0 

17,3420 

00006 

1 

71736 

0 

61751 

0 

51745 

0 

61602 

1 

00006 

1 

63461 

1 

51505 

0 

17,3430 

41525 

0 

00006 

1 

71737 

1 

00006 

1 

63455 

0 

11554 

0 

13447 

1 

41740 

l 

17,3440 

51745 

0 

61604 

1 

00006 

1 

63455 

0 

03561 

0 

31740 

0 

13615 

1 

51745 

0 

17,3450 

41600 

1 

60000 

1 

61740 

0 

00006 

1 

63457 

1 

34746 

0 

13521 

0 

03561 

0 

17,3460 

13602 

1 

54001 

1 

11737 

l 

13467 

0 

05701 

L 

44743 

l 

27743 

1 

30001 

0 

17,3470 

00006 

1 

51743 

0 

71575 

0 

20001 

1 

20001 

1 

53747 

0 

51743 

0 

31567 

1 

17,3500 

00006 

1 

71427 

0 

55741 

0 

00006 

1 

73767 

0 

61746 

0 

67767 

0 

00006 

I 

17,3510 

63536 

1 

31741 

1 

00006 

l 

73770 

0 

61746 

0 

63761 

1 

00006 

1 

63546 

0 

17,3520 

34732 

0 

00006 

1 

71737 

1 

51505 

0 

55525 

0 

00006 

1 

51505 

0 

71546 

c 

17,3530 

30001 

0 

00006 

t 

63535 

1 

34742 

1 

55742 

0 

01744 

l 

43766 

1 

61741 

1 

17,3540 

53747 

0 

00006 

l 

1 1 746 

1 

00006 

1 

74727 

0 

13656 

0 

00006 

1 

33772 

0 

17,3550 

21747 

0 

31741 

1 

63762 

1 

53747 

0 

00006 

1 

11746 

1 

00006 

1 

74727 

0 

17,3560 

13521 

0 

41737 

1 

55737 

1 

31427 

1 

00006 

1 

51743 

0 

71566 

1 

55741 

0 

1 7,35  70 

63773 

1 

00006 

1 

63574 

1 

13520 

1 

00002 

0 

03561 

0 

31740 

0 

61554 

1 

17,3600 

00006 

I 

63615 

0 

41555 

1 

61741 

1 

00006 

1 

63610 

0 

31741 

1 

13521 

0 

17,36  10 

11427 

0 

34737 

0 

13521 

0 

05701 

l 

13521 

0 

00006 

1 

51745 

0 

61604 

l 

17, 3l  >0 

00006 

1 

51743 

0 

71574 

1 

20001 

1 

20001 

1 

53747 

0 

31741 

1 

63773 

1 

17,3630 

00006 

1 

70000 

0 

00006 

1 

61746 

0 

00006 

1 

63520 

0 

31746 

0 

67767 

0 

17,3640 

00006 

l 

63651 

0 

33763 

0 

53747 

0 

00006 

1 

11746 

l 

61741 

l 

63  764 

l 

17,3650 

13521 

0 

43765 

l 

53747 

0 

00006 

1 

11746 

1 

61741 

1 

63775 

1 

00006 

1 

17,3660 

63455 

0 

63774 

0 

13521 

0 

43776 

0 

27427 

0 

00006 

1 

63707 

1 

03745 

1 

17,3670 

31427 

1 

00006 

1 

51743 

0 

71570 

0 

67762 

0 

00006 

l 

63700 

0 

13520 

1 

1 7,3  700 

00006 

l 

13520 

l 

64731 

0 

20001 

1 

20001 

1 

20001 

l 

13656 

0 

03747 

0 

17,3710 

11737 

1 

34744 

1 

13  714 

1 

37770 

0 

27743 

l 

41427 

0 

13671 

0 

03745 

1 

1 7,3720 

33776 

1 

61427 

1 

54000 

0 

13671 

0 

13520 

1 

03745 

1 

51  745 

0 

41600 

1 

17,3730 

61751 

0 

00006 

1 

74732 

1 

57427 

1 

00006 

1 

70000 

0 

00006 

1 

51745 

0 

17,3740 

71570 

0 

61427 

1 

00006 

1 

63455 

0 

13520 

1 

41737 

1 

55737 

1 

34742 

1 

1 7,3  750 

55742 

0 

34  726 

0 

55740 

1 

00002 

0 

C : 

77757 

1 

C: 

00000 

1 

C : 

00020 

0 

c: 

14400 

0 

17,3760 

C : 

75673 

1 

C: 

77750 

0 

C: 

00632 

0 

C: 

01463 

1 

C : 

00232 

l 

C: 

77462 

1 

C: 

77631 

0 

C: 

77145 

1 

1 7,3770 

C : 

75462 

0 

C: 

00007 

0 

C : 

25605 

0 

C: 

76631 

1 

C: 

00122 

0 

C: 

77655 

1 

C : 

04476 

0 

CKSM 

44350 

1 
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20,2000 

C:  01150 

l 

C: 

01046 

1 

C: 

10117 

l 

C: 

01174 
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32114 

1 

701  11 

1 

55340 

0 

40  106 

1 

20,2010 

74730 

0 

10000 

0 

34  727 

1 

27340 

0 

31340 

1 

74346 

0 

00006 

1 

12034 

0 

20,2020 

31340 

1 

72113 

1 

55340 

0 

32112 

l 

04607 

1 

C:  20345 

1 

15474 

1 

12037 

0 

20,2030 

12014 

I 

34742 

1 

05466 

0 

15146 

0 

34730 

1 

27340 

0 

12021 

1 

00004 

0 

20,2040 

44730 

0 

70106 

l 

54001 

1 

41340 

0 

74727 

0 

10000 

0 

34730 

1 

60001 

0 

20,2050 

54  106 

1 

41340 

0 

74346 

0 

10000 

0 

44730 

0 

62114 

1 

71340 

0 

54001 

1 

20,2060 

42114 

0 

70111 

1 

60001 

0 

54111 

1 

74  730 

0 

10000 

0 

31327 

0 

61326 

1 

20,2070 

55243 

1 

30111 

0 

74732 

1 

00006 

1 

12  101 

1 

44726 

1 

70075 

1 

54075 

1 

20,2100 

12  104 

1 

400  7 5 

1 

74726 

1 

26075 

1 

30111 

0 

76266 

1 

60000 

1 

55322 

1 

20,2 1 10 

04626 

1 

C: 

022  14 

1 

C : 

01056 

0 

C: 

33133 

0 

C:  13133 

1 

301  11 

0 

74  740 

1 

00006 

l 

20,2120 

12122 

0 

12130 

0 

30111 

0 

74741 

0 

00006 

1 

12141 

0 

32153 

l 

12  131 

1 

20,2130 

32152 

0 

55343 

0 

00006 

1 

22070 

0 

37736 

1 

05063 

1 

C:  03603 

1 

C:  42106 

0 

20,2140 

00070 

0 

32151 

0 

12131 

1 

00006 

1 

22070 

0 

02154 

0 

32  153 

1 

55343 

0 

20,2150 

12  134 

1 

C: 

0015  5 

0 

C : 

03434 

1 

C: 

00554 

0 

35006 

1 

56003 

1 

54001 

1 

30032 

0 

20,2160 

55634 

0 

30033 

1 

55635 

1 

30034 

0 

55636 

1 

12171 

0 

35006 

1 

56003 

l 

20,2170 

54001 

1 

34746 

0 

55642 

1 

55643 

0 

55644 

1 

55637 

0 

55640 

0 

55641 

1 

20,2200 

55274 

0 

55275 

1 

55276 

1 

22003 

1 

00002 

0 

00006 

1 

22071 

1 

02  166 

1 

20,2210 

22003 

1 

55536 

1 

55537 

0 

55540 

0 

55541 

1 

55424 

0 

55425 

1 

55544 

1 

20,2220 

55545 

0 

22003 

1 

40111 

1 

74735 

0 

26111 

1 

02116 

0 

00071 

1 

31774 

1 

20,2230 

54001 

1 

34741 

1 

00006 

1 

06001 

0 

55774 

0 

74741 

0 

10000 

0 

12336 

1 

20,2240 

40074 

0 

7 4726 

1 

00006 

1 

12257 

I 

30074 

1 

74741 

0 

10000 

0 

12266 

0 

20,2250 

41450 

0 

55761 

1 

41452 

1 

55762 

1 

41464 

1 

57760 

1 

12456 

0 

41422 

0 

20,2260 

55761 

1 

41423 

1 

55762 

1 

41421 

0 

57760 

1 

12456 

0 

00006 

1 

22061 

0 

20,2270 

30322 

1 

00006 

1 

20033 

0 

55760 

0 

00006 

1 

71415 

1 

57761 

0 

30323 

0 

20.23C0 

00006 

1 

20034 

1 

55762 

1 

00006 

1 

714  17 

0 

61761 

0 

02451 

0 

55761 

1 

20,23  10 

31760 

1 

00006 

1 

71416 

1 

57762 

0 

00006 

1 

71420 

1 

61  762 

0 

02451 

0 

20,2320 

55762 

1 

31760 

1 

00006 

1 

71414 

0 

57760 

1 

30321 

1 

00006 

1 

20032 

1 

20,2330 

61760 

1 

02451 

0 

55760 

0 

00006 

1 

22061 

0 

12456 

0 

31774 

1 

76263 

1 

20,2340 

00006 

1 

12376 

0 

74742 

0 

00006 

1 

12367 

0 

44737 

1 

00006 

1 

03012 

1 

20,2350 

44  746 

1 

55760 

0 

55761 

1 

55762 

1 

55763 

0 

55764 

l 

55765 

0 

54050 

0 

20,2360 

54051 

1 

54052 

1 

46263 

1 

71774 

0 

64  743 

0 

55774 

0 

12456 

0 

34  737 

0 

20,2370 

00006 

1 

05012 

1 

46263 

1 

71774 

0 

55774 

0 

12456 

0 

34737 

0 

00006 

1 
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20,2400 

02012 

0 

10000 

0 

12407 

1 

41  774 

0 

74742 

0 

27774 

0 

12456 

0 

34743 

0 

20,24  10 

54063 

0 

42450 

0 

00006 

1 

50063 

1 

71760 

0 

54001 

1 

10000 

0 

32446 

0 

20,2420 

12422 

0 

42446 

1 

60001 

0 

54061 

1 

12430 

0 

50000 

1 

32446 

0 

54001 

1 

20,2430 

50063 

1 

41763 

0 

60001 

0 

50063 

1 

26050 

0 

50063 

1 

23  763 

1 

10063 

0 

20,2440 

12410 

l 

37761 

0 

00006 

1 

05014 

l 

12456 

0 

C: 

77177 

0 

C:  37200 

1 

C:  00600 

1 

20,2450 

C:  03146 

1 

5400  7 

l 

00002 

0 

50000 

1 

44725 

1 

00002 

0 

00006 

1 

32462 

0 

20,2460 

52006 

0 

C:  02016 

1 

C:  34106 

1 

35006 

1 

54003 

0 

04636 

0 

54117 

L 

30111 

0 

20,2470 

74730 

0 

54157 

0 

10000 

0 

41327 

1 

61243 

0 

55326 

0 

00004 

0 

30106 

0 

20,2500 

74730 

0 

00006 

1 

12526 

0 

44724 

0 

55475 

1 

35745 

l 

54  154 

0 

41326 

0 

20,2510 

61400 

1 

00006 

1 

62517 

0 

41326 

0 

62001 

1 

00006 

1 

62544 

0 

27326 

0 

20,2520 

22007 

0 

10157 

0 

31327 

0 

61326 

1 

53244 

0 

12544 

1 

44733 

0 

55475 

1 

20,2530 

36263 

0 

54154 

0 

41  326 

0 

62002 

1 

00006 

1 

62517 

0 

41  326 

0 

62003 

0 

20,2540 

61400 

1 

00006 

1 

62  544 

0 

1251  7 

1 

00003 

1 

10157 

0 

13063 

0 

34  743 

0 

20,2550 

54155 

1 

4474  3 

1 

26154 

0 

31326 

1 

50154 

1 

63042 

l 

54  156 

1 

00006 

1 

20,2560 

50154 

1 

33024 

1 

00006 

1 

10156 

1 

50154 

1 

63041 

1 

50155 

0 

55530 

1 

20,2570 

10155 

1 

12550 

l 

12574 

l 

12673 

0 

22007 

0 

41532 

0 

61531 

1 

00006 

l 

20,2600 

62624 

0 

00006 

1 

11531 

0 

54155 

1 

63062 

0 

00006 

1 

62611 

0 

43062 

1 

20,2610 

54155 

l 

30155 

0 

00006 

1 

73056 

0 

63060 

1 

55627 

1 

44  724 

0 

60155 

0 

20,2620 

00006 

1 

71627 

1 

55626 

0 

12647 

1 

00006 

1 

11532 

0 

54155 

1 

40  155 

1 

20,2630 

63062 

0 

00006 

1 

62635 

0 

33062 

0 

54  155 

1 

30155 

0 

00006 

l 

73056 

0 

20,2640 

63061 

0 

55626 

0 

40155 

1 

64726 

0 

00006 

1 

71626 

0 

55627 

1 

41626 

0 

20,2650 

00006 

l 

7153  1 

0 

55533 

1 

31627 

0 

00006 

1 

71532 

0 

61533 

0 

00006 

1 

20,2660 

74727 

0 

55533 

1 

10154 

0 

34746 

0 

55502 

0 

13206 

l 

44743 

l 

54154 

0 

20,2670 

44744 

0 

54155 

1 

12553 

1 

31245 

0 

00006 

1 

71243 

1 

02760 

1 

C:  03057 

0 

20,2  7C0 

00006 

1 

71527 

l 

00004 

0 

541  54 

0 

00006 

1 

71532 

0 

02760 

1 

C:  02000 

0 

20,2710 

5551  1 

1 

30154 

1 

00006 

1 

71531 

0 

02760 

1 

C: 

02000 

0 

55507 

0 

00006 

l 

20,2  720 

7 3055 

0 

55504 

0 

31511 

0 

00006 

l 

73055 

0 

55506 

1 

11510 

0 

31507 

1 

20,2730 

12732 

1 

41507 

0 

55510 

0 

11512 

1 

31511 

0 

12737 

l 

41511 

l 

55512 

1 

20,2  740 

40  111 

1 

7472  7 

0 

00006 

1 

13664 

1 

41262 

1 

63  744 

0 

00006 

1 

12751 

1 

20,2  750 

13664 

l 

11632 

0 

12755 

0 

04665 

0 

C:  43260 

1 

10157 

0 

13647 

0 

13207 

0 

20,2  760 

54161 

0 

54160 

1 

50002 

0 

30000 

1 

24002 

0 

50000 

1 

30000 

l 

00006 

l 

20,2770 

13017 

0 

54162 

0 

10000 

0 

64744 

1 

12776 

1 

64744 

1 

56161 

1 

00006 

1 
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20,3000 

63002 

0 

40000 

0 

60161 

1 

00006 

1 

63011 

1 

30160 

0 

00006 

1 

10162 

0 

20,3010 

00002 

0 

10160 

1 

10162 

0 

13017 

0 

10162 

0 

34726 

0 

00002 

0 

34724 

1 

20,3020 

00002 

0 

C : 

00  50  2 

0 

C : 

36554 

0 

C: 

00165 

0 

C : 

22103 

0 

C: 

00027 

l 

C : 

32  731 

0 

C: 

00016 

0 

20,3030 

C : 

24420 

l 

C: 

00153 

0 

C: 

07111 

1 

C: 

00072 

1 

C: 

24103 

0 

C: 

00135 

0 

C : 

11511 

l 

C: 

06147 

0 

20,3040 

C : 

75512 

0 

C: 

00000 

1 

C : 

01363 

0 

C: 

00455 

0 

C: 

76036 

0 

C: 

00562 

0 

C: 

75643 

1 

C : 

00001 

0 

20,3050 

C: 

77616 

0 

C: 

05154 

l 

C: 

00052 

0 

C: 

00231 

1 

C : 

77174 

0 

C: 

23146 

0 

C : 

13241 

1 

C: 

00337 

0 

20,3060 

C : 

26501 

1 

C : 

51276 

0 

C : 

62362 

1 

34744 

1 

54160 

1 

34744 

1 

54161 

0 

50160 

0 

20,3070 

33170 

1 

00006 

1 

71326 

0 

00006 

1 

71327 

1 

50160 

0 

63171 

0 

54154 

0 

20,3100 

13104 

0 

54161 

0 

00006 

1 

26160 

1 

50160 

0 

33173 

l 

00006 

l 

50  161 

1 

20,3  l 10 

71326 

0 

50160 

0 

63175 

1 

00006 

1 

50161 

l 

71326 

0 

26154 

0 

10161 

0 

20,3120 

13101 

0 

10160 

1 

13131 

0 

C: 

00000 

1 

C : 

20354 

1 

30154 

1 

54155 

1 

34750 

1 

20,3130 

13064 

1 

33170 

1 

22007 

0 

02760 

1 

C : 

01243 

0 

55530 

1 

34724 

1 

55550 

1 

20,3140 

55570 

0 

55571 

1 

55610 

0 

55611 

1 

00006 

l 

33124 

0 

00006 

1 

10155 

1 

20,3150 

00004 

0 

55531 

0 

55532 

0 

33061 

0 

55626 

0 

33060 

1 

55627 

1 

31243 

0 

20,3160 

00006 

1 

70154 

0 

00006 

1 

71245 

1 

02760 

1 

C: 

00155 

0 

555  11 

1 

12716 

1 

20,3 1 70 

C: 

00167 

1 

C: 

06176 

l 

C : 

77650 

1 

C : 

72260 

0 

C: 

76637 

1 

C: 

02167 

0 

C: 

00645 

0 

C: 

06335 

1 

20,3200 

C : 

04256 

1 

C: 

30163 

0 

C: 

64072 

0 

C: 

53632 

0 

C : 

15  133 

1 

C: 

71777 

0 

55632 

0 

31343 

1 

20,32  10 

00006 

1 

74730 

0 

54001 

1 

60000 

1 

54115 

0 

41343 

0 

60001 

0 

54114 

1 

20,3220 

00004 

0 

31540 

1 

54001 

1 

31536 

0 

04665 

0 

C: 

37200 

1 

53543 

0 

00003 

1 

20,3230 

30111 

0 

74735 

0 

10000 

0 

34  744 

1 

54116 

0 

61502 

1 

10000 

0 

33741 

0 

20,3240 

54151 

0 

00006 

1 

13246 

0 

10116 

0 

33740 

1 

54152 

0 

31530 

0 

64734 

0 

20,3250 

54157 

0 

31530 

0 

03656 

1 

00004 

0 

55550 

1 

55551 

0 

44734 

1 

00006 

1 

20,3260 

71550 

l 

00006 

1 

1 0 1 5 7 

0 

55556 

1 

55557 

0 

34724 

1 

55552 

0 

55553 

1 

20,3270 

00003 

1 

22'  ' ' 7 

0 

10116 

0 

53543 

0 

34746 

0 

54154 

0 

54163 

1 

50154 

l 

20,3300 

11542 

l 

64744 

l 

13305 

0 

64744 

1 

24163 

0 

54162 

0 

40163 

1 

54164 

0 

20,33  10 

31343 

1 

54143 

0 

54144 

1 

30162 

1 

63742 

0 

00006 

l 

63410 

1 

10151 

0 

20,3320 

13350 

0 

31343 

1 

50  164 

1 

26144 

1 

50163 

0 

54145 

0 

33205 

0 

60162 

l 

20,3330 

00006 

l 

63334 

0 

40115 

0 

13343 

1 

40162 

0 

60000 

l 

60000 

1 

64727 

l 

20,3340 

60000 

1 

00006 

1 

71343 

0 

50163 

0 

54143 

0 

30114 

0 

50  164 

1 

54146 

0 

20,3350 

30162 

1 

00006 

1 

74731 

1 

60162 

l 

03656 

l 

50164 

1 

54130 

1 

34724 

1 

20,3360 

50163 

0 

54i;  i 

1 

30162 

1 

61533 

0 

61533 

0 

64734 

0 

54000 

0 

13434 

0 

20,3370 

30  162 

1 

00006 

1 

74727 

0 

61533 

0 

54157 

0 

64735 

1 

56157 

1 

03656 

1 
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20,3400 

00006 

l 

74727 

0 

54160 

i 

33407 

l 

54161 

0 

44735 

0 

13711 

l 

13441 

l 

20,34  10 

54001 

i 

34724 

i 

54127 

i 

54130 

i 

10151 

0 

13434 

0 

33743 

l 

60001 

0 

20,3420 

00006 

i 

6343  1 

l 

30115 

l 

50164 

i 

54146 

0 

60000 

1 

50163 

0 

5414  5 

0 

20,3430 

13434 

0 

31343 

l 

54146 

0 

54145 

0 

30  162 

1 

61533 

0 

61533 

0 

54157 

0 

20,3440 

03702 

l 

50164 

l 

54134 

0 

30160 

0 

50  164 

1 

54126 

0 

30162 

1 

61533 

0 

20,3450 

64734 

0 

54000 

0 

13454 

0 

34724 

l 

63742 

0 

54157 

0 

03702 

1 

50164 

1 

20,3460 

54132 

0 

30160 

0 

50164 

1 

54124 

l 

40162 

0 

61533 

0 

61533 

0 

03670 

0 

20,3470 

50163 

0 

54133 

1 

54001 

1 

30160 

0 

50163 

0 

54125 

0 

40162 

0 

61533 

0 

20.35CO 

5415  7 

0 

63742 

0 

00006 

1 

63721 

0 

03676 

0 

50163 

0 

54131 

0 

30160 

0 

20,35  10 

50163 

0 

54123 

0 

50154 

1 

33747 

0 

71257 

l 

00006 

l 

13523 

1 

30124 

0 

20,3520 

54126 

0 

30132 

1 

54134 

0 

50154 

1 

33745 

1 

71257 

1 

00006 

1 

13534 

1 

20,3530 

30123 

1 

54125 

0 

30131 

1 

54133 

1 

40146 

0 

60143 

l 

60  151 

1 

54  147 

1 

20,3540 

40145 

0 

60144 

0 

60151 

1 

54150 

1 

00004 

0 

10154 

0 

13570 

1 

30122 

0 

20,3550 

55546 

0 

3431  1 

0 

05547 

1 

C : 

00123 

1 

C : 

01566 

0 

00003 

1 

52144 

1 

52136 

1 

20,3560 

52146 

0 

52140 

0 

52150 

1 

52142 

1 

34744 

1 

54154 

0 

34  746 

0 

13276 

0 

20,3570 

30122 

0 

55547 

l 

34311 

0 

05547 

1 

C : 

00123 

1 

C: 

0 1 606 

0 

52152 

0 

53555 

l 

20,3600 

31343 

l 

55560 

1 

55561 

0 

61554 

l 

55563 

1 

55562 

0 

34  746 

0 

5 5 564 

0 

20,3610 

55565 

1 

11554 

0 

13630 

0 

52136 

1 

53601 

0 

52140 

0 

53603 

l 

52142 

l 

20,3620 

53605 

l 

52144 

1 

5 3o2  1 

1 

52146 

0 

53623 

0 

52150 

1 

53625 

0 

13650 

0 

20,3630 

31343 

1 

55600 

l 

55601 

0 

55620 

0 

55621 

1 

61554 

l 

55602 

0 

55603 

L 

20,3640 

55622 

1 

55623 

0 

34  746 

0 

55604 

0 

55605 

1 

55624 

1 

55625 

0 

00004 

0 

20,3650 

40111 

1 

74742 

0 

26111 

1 

00003 

1 

30117 

0 

046  31 

1 

54165 

l 

34734 

0 

20,3660 

22007 

0 

00006 

1 

10165 

1 

00002 

0 

34746 

0 

55502 

0 

55632 

0 

12755 

0 

20,3670 

22007 

0 

22  122 

0 

54157 

0 

63742 

0 

00006 

1 

63716 

1 

30  157 

L 

00006 

1 

20,3  700 

50  164 

1 

70130 

l 

64734 

0 

56157 

1 

00006 

1 

22161 

1 

03656 

1 

54160 

1 

20,3710 

44734 

1 

00006 

1 

70160 

1 

00006 

1 

10157 

0 

00161 

l 

43742 

l 

54157 

0 

20,3720 

13677 

0 

10163 

l 

34  743 

0 

67770 

0 

54122 

1 

60154 

l 

50000 

1 

33746 

1 

20,3730 

71257 

1 

00006 

l 

13736 

1 

43742 

1 

54157 

0 

13504 

1 

30001 

0 

13505 

0 

20,3740 

C : 

00110 

1 

C: 

0044  3 

1 

C : 

77377 

1 

C: 

00356 

I 

C : 

02217 

1 

C: 

001  10 

1 

C:  00022 

1 

C:  00204 

1 

20,3  750 

C : 

00041 

1 

C: 

03751 

1 

C: 

03752 

1 

CKSM 

74113 

1 

a 

a 

a 

a 

20,3760 

a 

a 

a 

a 

a 

a 

a 

a 

20,3770 

a 

a 

a 

a 

a 

a 

a 

a 
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21,2000 

C: 

01507 

1 

C : 

00466 

0 

C: 

01034 

1 

C: 

01115 

0 

C: 

05101 

1 

C: 

26305 

0 

I : 

53575 

0 

I : 

77656 

L 

21,20  10 

1 : 

72991 

0 

C: 

01740 

0 

I : 

51136 

1 

C: 

42017 

1 

I : 

43215 

0 

C: 

05243 

1 

C : 

05243 

1 

C: 

02244 

l 

21,2020 

I : 

93419 

l 

C : 

02675 

1 

I : 

53  575 

0 

C: 

023  14 

0 

I : 

77676 

0 

C: 

00023 

0 

I : 

53435 

0 

C: 

02322 

0 

21,2030 

C : 

00015 

0 

I : 

53435 

0 

C: 

00023 

0 

C: 

24007 

0 

C : 

00001 

0 

I : 

76521 

0 

C: 

00007 

0 

C: 

03434 

1 

2 1 , 2 0 AO 

I : 

43419 

1 

C: 

02475 

0 

40103 

1 

74740 

1 

10000 

0 

15263 

1 

11055 

l 

12054 

0 

21,2050 

00006 

1 

34746 

0 

52754 

0 

12060 

1 

55722 

0 

36010 

0 

05175 

1 

C: 

02042 

0 

21,2060 

39  794 

1 

70107 

0 

00006 

1 

12067 

0 

34740 

0 

54001 

1 

04577 

0 

34  743 

0 

21,2070 

70107 

0 

00006 

1 

12076 

0 

34742 

1 

54001 

1 

04577 

0 

30  105 

0 

74734 

1 

21,2100 

00006 

1 

12  170 

1 

41010 

0 

62147 

1 

00006 

1 

12170 

1 

34  744 

1 

70374 

0 

21,21  10 

10000 

0 

12170 

1 

00006 

1 

00030 

1 

40000 

0 

5400L 

1 

74741 

0 

ioooo 

0 

21,2120 

12136 

0 

41010 

0 

62146 

0 

00006 

1 

12  I7r 

1 

30001 

0 

74744 

0 

10000 

0 

21,2130 

12133 

0 

12170 

1 

02150 

1 

44746 

1 

12137 

i 

02150 

1 

34743 

0 

54002 

l 

21,2190 

00004 

0 

00006 

1 

32145 

0 

52006 

0 

C : 

03417 

0 

C: 

12067 

0 

C: 

00106 

0 

C: 

00107 

l 

21,2150 

40774 

1 

61010 

1 

00006 

1 

12164 

1 

40105 

1 

74734 

1 

10000 

0 

12  164 

1 

21,2160 

30103 

0 

74  740 

1 

10000 

0 

00002 

0 

04355 

0 

04450 

1 

04626 

1 

C: 

21062 

0 

21,2170 

23722 

1 

4002  5 

l 

53055 

1 

40103 

L 

74732 

l 

10000 

0 

12654 

0 

00006 

1 

21  ,2200 

4170? 

l 

5372  l 

0 

00006 

l 

31527 

0 

20001 

1 

20001 

l 

21721 

0 

00006 

1 

21,2210 

41704 

1 

53723 

l 

00006 

1 

31531 

1 

20001 

l 

20001 

l 

21723 

1 

00006 

1 

21,2220 

41706 

0 

53725 

1 

00006 

1 

31533 

0 

20001 

l 

20001 

1 

21725 

1 

41234 

1 

21 ,2230 

60025 

0 

64727 

1 

64727 

1 

57717 

1 

31157 

0 

60037 

0 

00006 

1 

72000 

1 

21,2290 

21721 

0 

31160 

1 

60040 

0 

00006 

1 

72000 

1 

21723 

1 

31161 

0 

60041 

l 

21 ,2250 

00006 

1 

72000 

1 

21725 

1 

31676 

1 

00006 

1 

71717 

0 

21721 

0 

31677 

0 

21,2260 

00006 

1 

71717 

0 

21723 

1 

31700 

1 

00006 

1 

71717 

0 

21725 

1 

31714 

l 

21  ,22  70 

00006 

1 

71720 

1 

53727 

0 

31714 

1 

00006 

1 

71721 

0 

54001 

1 

34  746 

0 

21,2300 

21727 

0 

31715 

0 

00006 

1 

71722 

0 

21727 

0 

31716 

0 

00006 

1 

71724 

0 

21,2310 

21727 

0 

31713 

0 

00006 

1 

71717 

0 

21727 

0 

00006 

l 

31727 

l 

52064 

1 

21,2320 

00006 

1 

31712 

1 

20064 

1 

31717 

1 

00006 

1 

74741 

0 

30001 

0 

00006 

1 

21,2330 

70063 

0 

53731 

1 

00006 

1 

31710 

0 

21731 

1 

40075 

1 

74727 

0 

10000 

0 

21,2390 

12626 

0 

34743 

0 

00006 

1 

02012 

0 

00006 

1 

12653 

1 

00006 

1 

05014 

1 

21,2350 

00006 

1 

31727 

l 

20001 

1 

20001 

1 

20001 

1 

00006 

1 

72004 

0 

56001 

0 

21,2360 

60000 

1 

54002 

1 

34  746 

0 

26001 

1 

64726 

0 

54001 

1 

12371 

1 

60001 

0 

21,2370 

40000 

0 

56060 

I 

34742 

l 

00006 

1 

05014 

l 

35745 

l 

05226 

1 

44743 

1 
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OCTAL  LISTING  FOR  PARAGRAPH  # 125,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3''  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID 

WOROS  ARE 

BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

( INTERPRETIVE 

OPERATOR 

: WORDS)  OR 

"C"  (CONSTANTS) 

21,2400 

00006 

l 

03014 

l 

31731 

0 

00006 

1 

72005 

1 

54001 

1 

34  746 

0 

52064 

1 

21,2410 

31730 

1 

00006 

1 

72005 

1 

20064 

1 

52064 

1 

20001 

1 

20001 

1 

54000 

0 

21,2420 

12424 

0 

74724 

0 

64  726 

0 

12430 

0 

10000 

0 

64744 

1 

12430 

0 

34746 

0 

21,2430 

56060 

1 

34742 

1 

00006 

1 

05014 

1 

02513 

1 

34733 

1 

54062 

l 

32001 

1 

21,2440 

22070 

0 

02673 

1 

22071 

1 

00006 

1 

10062 

1 

00006 

1 

72003 

1 

56001 

0 

21,2450 

60000 

1 

54002 

1 

12454 

1 

26001 

1 

41733 

0 

26001 

1 

32002 

1 

02673 

1 

21,2460 

64745 

0 

54054 

I 

27733 

0 

3200  1 

1 

22072 

1 

02673 

1 

22073 

0 

00006 

1 

21,2470 

10062 

1 

00006 

1 

72003 

1 

56001 

0 

60000 

1 

54002 

1 

12500 

1 

26001 

1 

21  ,2500 

41732 

1 

26001 

1 

32002 

1 

02673 

1 

64  745 

0 

54053 

0 

27732 

1 

3501  l 

1 

21,2510 

00006 

1 

05014 

1 

05263 

0 

40074 

0 

74743 

1 

00006 

1 

12615 

0 

41716 

1 

21,2520 

00006 

1 

71720 

1 

52066 

0 

31714 

1 

00006 

l 

71724 

0 

20066 

0 

31714 

1 

21,2530 

00006 

1 

71725 

1 

54001 

1 

34746 

0 

20066 

0 

00006 

1 

31723 

0 

52064 

1 

21,2540 

35006 

1 

54003 

0 

31420 

0 

00006 

l 

70065 

0 

52071 

0 

41417 

0 

00006 

l 

21  ,2550 

70063 

0 

20071 

0 

31420 

0 

00006 

1 

70066 

0 

54062 

1 

41417 

0 

00006 

1 

21,2560 

70064 

1 

60062 

0 

54001 

1 

34746 

0 

20071 

0 

31417 

1 

00006 

1 

70065 

0 

21 ,2570 

52073 

1 

31420 

0 

00006 

1 

70063 

0 

20073 

1 

31417 

l 

00006 

1 

70066 

0 

21 ,26C0 

54062 

1 

31420 

0 

00006 

1 

70064 

1 

60062 

0 

54001 

1 

34746 

0 

20073 

1 

21 ,26  10 

24006 

1 

00006 

1 

30071 

l 

53  73  5 

0 

00002 

0 

54070 

1 

54071 

0 

00006 

1 

2 1 ,2620 

31723 

0 

52073 

1 

00006 

1 

31704 

0 

20073 

1 

12611 

1 

02513 

1 

40075 

1 

21,2630 

74727 

0 

26075 

l 

34  735 

1 

00006 

1 

05012 

l 

44746 

1 

55732 

1 

55733 

0 

21 ,2640 

34  74  1 

1 

05175 

l 

C : 

02644 

0 

12512 

1 

34743 

0 

00006 

1 

05012 

1 

41300 

1 

21,2650 

74  735 

0 

27300 

1 

05263 

0 

025  13 

1 

44727 

0 

70075 

1 

54075 

1 

34735 

1 

21,2660 

71300 

l 

10000 

0 

34  743 

0 

64735 

1 

40000 

0 

00006 

1 

03012 

1 

44735 

0 

21,2670 

71300 

1 

55300 

1 

12512 

1 

54061 

1 

34746 

0 

00006 

1 

10061 

1 

10000 

0 

21,2700 

22061 

0 

12703 

0 

12705 

0 

30001 

0 

00002 

0 

40061 

1 

00002 

0 

I : 

45020 

1 

21,2710 

C : 

02746 

0 

C: 

47522 

1 

I : 

77624 

1 

C: 

20030 

0 

l:  66370 

0 

C: 

00022 

1 

C:  00051 

0 

C: 

00006 

1 

21,2720 

I : 

61373 

1 

C: 

02707 

0 

C: 

01732 

0 

I : 

77656 

1 

C:  06707 

1 

I: 

77700 

0 

C:  42720 

1 

I : 

75160 

1 

21,2730 

C: 

03606 

1 

C : 

02642 

0 

I : 

77624 

1 

C : 

26374 

0 

I:  77624 

1 

C: 

47336 

1 

I:  77650 

l 

C: 

02746 

0 

21,2740 

! : 

77620 

0 

C: 

02746 

0 

C : 

34041 

0 

C: 

27136 

0 

I:  53575 

0 

C: 

00001 

0 

C:  27607 

0 

C: 

00007 

0 

21  ,2  750 

I : 

53435 

0 

C: 

0000  l 

0 

C: 

27615 

0 

C: 

03607 

0 

I : 53435 

0 

C: 

03615 

0 

C:  37623 

l 

C : 

02746 

0 

21,2760 

I : 

43020 

1 

C: 

03744 

0 

C : 

04634 

1 

C: 

27621 

1 

31304 

1 

00006 

1 

12771 

0 

04626 

l 

21,2770 

C : 

17760 

0 

00006 

1 

30134 

1 

53305 

1 

30006 

1 

74750 

0 

27305 

1 

30  167 

1 
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OCTAL  LISTING 

FOR  PARAGRAPH  H 126, 

WITH  PARITY  i 

SIT 

IN  8 I NARY 

AT 

THE  RIGHT  OF 

EACH 

WORD,  " 

a" 

DENOTES  UNUSED 

FIXED  MEMORY 

ALL  VALID  WORDS  ARE 

BASIC 

INSTRUCT] 

IONS 

EXCEPT  THOSE 

MARKED  "I" 

1 INTERPRETIVE 

OPERATOR  WORDS) 

OR  "C"  (CONSTANTS) 

21,3000 

777A6 

1 

55306 

l 

33006 

1 

54003 

0 

04626 

1 

C:  44004 

0 

C:  03275 

1 

44740 

1 

21,3010 

70077 

0 

54077 

0 

44736 

0 

70106 

1 

54  106 

1 

44744 

0 

70076 

l 

54076 

1 

21,3020 

A6017 

0 

70074 

0 

54074 

0 

40031 

1 

700  75 

1 

54075 

l 

00002 

0 

37770 

0 

21,3030 

55630 

l 

34742 

1 

55534 

0 

55535 

1 

34743 

0 

55632 

0 

55631 

0 

55633 

1 

2 1 , 30  AO 

30021 

1 

60000 

1 

55505 

1 

34743 

0 

13046 

1 

34746 

0 

55747 

0 

51747 

1 

21,3050 

31536 

0 

00006 

1 

74743 

1 

00006 

1 

13060 

0 

50000 

1 

44725 

1 

56001 

0 

21,3060 

1 1 7A  7 

0 

50000 

1 

31436 

1 

53743 

1 

51747 

l 

31504 

1 

55740 

1 

00006 

l 

21,3070 

13526 

l 

51747 

1 

31450 

1 

00006 

l 

71740 

1 

23736 

1 

00006 

1 

74740 

1 

21,3100 

53737 

1 

00006 

1 

74740 

1 

27737 

1 

41743 

1 

00006 

1 

74727 

0 

00006 

1 

21,31  10 

717A3 

1 

61740 

0 

00006 

1 

63130 

0 

00006 

l 

40001 

1 

61740 

0 

00006 

1 

21,3120 

11740 

1 

57745 

0 

30001 

0 

22007 

0 

00006 

1 

11740 

1 

57746 

0 

13  133 

1 

21,3130 

3A724 

1 

5400  1 

1 

53746 

1 

31742 

1 

00006 

1 

747  34 

1 

53742 

0 

00006 

1 

2 1 , 3 1 A 0 

31742 

1 

5375  1 

l 

31743 

0 

00006 

1 

63150 

0 

00006 

1 

31746 

0 

13152 

0 

21,3150 

00006 

1 

41746 

l 

21751 

1 

11750 

0 

13160 
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C: 

31765 

1 

C: 

02242 

1 

22,2570 

I : 

41345 

0 

C: 

03270 

l 

C : 

03272 

0 

is 

72405 

0 

C : 

00005 

1 

I : 

41325 

0 

C: 

03274 

0 

C: 

00001 

0 

22,2600 

I : 

43206 

1 

C: 

00007 

0 

I : 

411 12 

0 

C: 

31765 

1 

C: 

16230 

1 

I: 

62421 

1 

I : 

77604 

0 

C: 

31  765 

1 

22,26  10 

C : 

16224 

1 

C: 

03270 

1 

I : 

41205 

0 

C: 

03274 

0 

C: 

00005 

1 

I: 

65352 

0 

C: 

03272 

0 

I : 

41405 

0 

22,2620 

C: 

00001 

0 

I : 

62415 

0 

C: 

00007 

0 

I : 

77604 

0 

C: 

31765 

1 

C: 

16226 

0 

I : 

62421 

1 

I : 

77604 

0 

22,2630 

C : 

31765 

1 

C: 

16236 

l 

C: 

03272 

0 

I : 

41205 

0 

C: 

03274 

0 

C: 

00005 

1 

I : 

65352 

0 

C: 

03270 

1 

22,2640 

I ; 

41405 

0 

C: 

00001 

0 

I : 

62415 

0 

C: 

00007 

0 

I : 

77604 

0 

C: 

31765 

1 

C: 

16240 

0 

I : 

62421 

1 

22,2650 

I : 

77604 

0 

C: 

31765 

1 

C: 

02234 

0 

I : 

77t,16 

0 

I : 

67543 

1 

C: 

00007 

0 

T : 

71406 

0 

I : 

41 152 

1 

22,2660 

C : 

31  765 

1 

C: 

00051 

0 

I : 

57543 

1 

C: 

00015 

0 

I : 

67471 

1 

C: 

00051 

0 

I : 

51123 

0 

C: 

00001 

0 

22,2670 

C: 

44702 

1 

I: 

57545 

1 

I : 

43244 

1 

C: 

44677 

1 

C : 

06503 

1 

I: 

77650 

l 

C: 

44701 

1 

I : 

77625 

0 

22,2700 

C : 

06503 

1 

I : 

77606 

1 

I : 

57543 

1 

C: 

00013 

0 

I : 

67471 

1 

C: 

00051 

0 

I : 

51123 

0 

C: 

0001 1 

1 

22,2710 

C : 

44722 

0 

I : 

57545 

1 

I : 

43244 

1 

C: 

44717 

0 

C: 

06503 

I 

I: 

77650 

1 

C: 

44723 

1 

I! 

52025 

1 

22,2720 

C : 

06503 

l 

C: 

44723 

1 

I : 

77745 

1 

I : 

43466 

1 

I : 

77776 

1 

05571 

1 

C : 

00401 

1 

12732 

l 

22,2730 

04607 

1 

C: 

40154 

0 

04607 

1 

C: 

40166 

1 

34743 

0 

00004 

0 

05205 

0 

C: 

03234 

I 

22,2740 

C: 

44066 

1 

15146 

0 

I : 

77776 

1 

12732 

1 

I : 

77614 

l 

C: 

01074 

0 

I : 

70740 

0 

C: 

01322 

0 

22,2750 

C : 

04772 

1 

I : 

45002 

1 

C : 

44527 

1 

I : 

74343 

0 

C : 

04772 

1 

C: 

03270 

1 

C : 

17325 

0 

C: 

03335 

l 

22,2  760 

I : 

55605 

1 

C: 

05002 

0 

C : 

04772 

1 

I : 

77661 

0 

C : 

20606 

0 

C: 

03333 

I 

I : 

77614 

1 

C: 

01035 

0 

22,2770 

C : 

45010 

1 

C : 

00? 2 l 

0 

C : 

24255 

0 

C: 

00554 

0 

C: 

02660 

0 

C: 

02660 

0 

C: 

13301 

1 

C: 

16161 

0 
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22 ,3000 

C: 

30707 

1 

C: 

00003 

1 

C: 

04000 

0 

04607 

1 

C: 

54274 

1 

10000 

0 

12730 

0 

06060 

l 

22,3010 

I : 

75  160 

1 

c: 

03245 

1 

C : 

02221 

1 

I : 

77624 

1 

C: 

44312 

1 

I: 

45575 

1 

C: 

50515 

0 

I : 

77626 

0 

22,3020 

C: 

50523 

0 

I : 

77626 

0 

C : 

74531 

0 

I: 

45160 

1 

C: 

03245 

1 

C: 

44654 

0 

I : 

77634 

0 

C: 

21630 

1 

22,3030 

C: 

03303 

1 

I : 

77414 

0 

C: 

01215 

0 

C: 

45122 

1 

34743 

0 

55261 

1 

51261 

0 

31675 

1 

22,3040 

00006 

1 

51261 

0 

21702 

1 

00006 

1 

73121 

1 

10000 

0 

64744 

1 

13051 

1 

22,3050 

40000 

0 

51261 

0 

55637 

0 

51261 

0 

31702 

0 

51261 

0 

57675 

1 

51261 

0 

22,3060 

55634 

0 

11261 

1 

13035 

0 

00003 

1 

'13075 

0 

13170 

0 

34744 

1 

00004 

0 

22,3070 

05205 

0 

C: 

03213 

1 

C : 

44066 

1 

00003 

1 

15146 

0 

00006 

1 

40025 

1 

53707 

1 

22,3100 

00006 

1 

31733 

1 

21707 

1 

11706 

0 

00002 

0 

13107 

0 

13117 

1 

11707 

1 

22,3  1 10 

00002 

0 

13113 

0 

40000 

0 

63166 

0 

00006 

1 

63117 

0 

24002 

0 

24002 

0 

22,3120 

00002 

0 

C: 

03146 

1 

I : 

77776 

1 

00006 

1 

30025 

0 

21733 

0 

00006 

1 

43166 

l 

22,3130 

21  733 

0 

00004 

0 

34  743 

0 

55700 

0 

60000 

1 

55701 

1 

50000 

1 

31724 

1 

22,3140 

51700 

1 

55642 

I 

00006 

1 

63145 

1 

40000 

0 

00006 

1 

73167 

0 

00006 

1 

22,3150 

51701 

0 

71724 

0 

00006 

1 

51700 

1 

11530 

l 

51700 

1 

55274 

0 

1 1 700 

0 

22,3160 

13133 

1 

30025 

0 

63166 

0 

57705 

1 

13034 

1 

C: 

00000 

1 

C: 

00  144 

0 

C: 

75777 

1 

22,3170 

40025 

1 

61705 

1 

10000 

0 

64744 

1 

13177 

1 

64726 

0 

40000 

0 

00004 

0 

22,3200 

05205 

0 

C: 

03206 

0 

C: 

44066 

1 

33166 

0 

27705 

0 

15146 

0 

37735 

1 

05076 

0 

22,3210 

C: 

03003 

1 

C: 

44066 

1 

05263 

0 

34  74  6 

0 

55641 

1 

55644 

1 

55276 

1 

55640 

0 

22,3220 

55643 

0 

55275 

1 

30323 

0 

55636 

1 

30322 

1 

55635 

1 

30321 

1 

55634 

0 

22,3230 

34  746 

0 

55642 

l 

55637 

0 

55274 

0 

31306 

0 

54063 

0 

34746 

0 

53305 

1 

22,3240 

C 5 107 

l 

05263 

0 

C: 

20000 

0 

C: 

00000 

1 

06060 

1 

I : 

52014 

0 

C: 

03712 

0 

C: 

45467 

0 

22,3250 

C : 

45251 

0 

I : 

77776 

1 

34  743 

0 

55050 

1 

34744 

1 

55051 

0 

33320 

0 

04607 

l 

22,3260 

C : 

20323 

l 

C5474 

0 

03  2 64 

1 

03256 

0 

34741 

1 

05205 

0 

C: 

03432 

1 

C: 

44064 

0 

22,3270 

00003 

1 

33322 

1 

54003 

0 

34746 

0 

55530 

1 

35012 

1 

05076 

0 

C: 

03323 

0 

22 , 3 3C0 

C : 

44064 

0 

00003 

1 

36266 

0 

71530 

1 

10000 

0 

03312 

1 

34770 

0 

04607 

1 

22,3310 

C: 

01736 

1 

03302 

0 

3(321 

1 

04607 

1 

C: 

20323 

1 

05565 

1 

05565 

1 

03271 

0 

22,3320 

C : 

01014 

0 

C: 

04054 

L 

C: 

02131 

0 

06060 

1 

I : 

77634 

0 

C: 

21603 

1 

C: 

00041 

1 

C: 

02176 

0 

22,3330 

I : 

77776 

1 

41051 

0 

64744 

1 

00006 

1 

133  60 

0 

06060 

1 

I : 

77624 

1 

C: 

27101 

l 

22,3340 

I : 

77775 

1 

C: 

00001 

0 

C : 

26200 

1 

C: 

00007 

0 

C : 

02206 

1 

I : 

77743 

l 

C: 

73  7 74 

1 

C: 

00037 

0 

22,3350 

I : 

77743 

1 

C: 

72407 

1 

C : 

02172 

1 

I : 

46135 

1 

C: 

00050 

1 

C: 

45371 

0 

I : 

77650 

1 

C: 

45375 

l 

22,3360 

06060 

1 

I : 

77624 

1 

C : 

27115 

1 

I : 

77650 

1 

C : 

45340 

1 

C: 

00001 

0 

C: 

11530 

1 

C: 

00002 

0 

22,3370 

C : 

31230 

1 

I: 

43145 

0 

C : 

06336 

1 

C: 

03635 

1 

C: 

45401 

0 

I : 

51575 

1 

C: 

02021 

0 

I : 

77614 

1 
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OCTAL  LISTING  FOR  PARAGRAPH  # 133,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


22,3400 

C : 

03475 

1 

C: 

36174 

0 

C: 

45553 

0 

I: 

45234 

0 

C : 

21603 

1 

c: 

02176 

0 

C : 

02176 

0 

I : 

53145 

1 

22,3410 

C : 

02134 

0 

C: 

45422 

1 

I : 

43345 

1 

C: 

02134 

0 

C: 

02176 

0 

C: 

02134 

0 

I : 

77776 

1 

34744 

l 

22,3420 

55530 

1 

05146 

l 

I : 

43345 

1 

C: 

02132 

0 

C: 

02  1 76 

0 

C: 

02132 

0 

I : 

77776 

1 

34743 

0 

22,3430 

55530 

1 

C 5 146 

1 

34  740 

0 

71043 

0 

10000 

0 

03443 

1 

37734 

0 

05063 

1 

22,3440 

C : 

C 5474 

0 

C: 

04062 

1 

05263 

0 

34  770 

0 

05205 

0 

C: 

03432 

1 

C: 

44064 

0 

36266 

0 

22,3450 

71530 

1 

50000 

1 

03453 

0 

05263 

0 

03462 

1 

34770 

0 

54001 

1 

34  746 

0 

22,3460 

21532 

0 

05263 

0 

34770 

0 

54001 

1 

34  746 

0 

21534 

0 

05263 

0 

I : 

77776 

1 

22,3470 

35012 

1 

05076 

0 

C: 

03505 

1 

C: 

44064 

0 

00003 

i 

10067 

1 

05  1 13 

1 

33321 

1 

22,3500 

04607 

l 

C: 

20323 

1 

05565 

1 

05565 

1 

03477 

0 

06060 

1 

I : 

52175 

0 

C: 

01220 

0 

22,3510 

C : 

45511 

0 

C: 

26200 

1 

C : 

01226 

0 

C: 

02206 

1 

I : 

52014 

0 

C: 

04304 

1 

C: 

45520 

1 

C : 

45531 

1 

22,3520 

1 : 

71214 

0 

C: 

03475 

1 

C : 

04001 

1 

C: 

14037 

0 

C: 

05366 

1 

C: 

26172 

1 

C: 

02021 

0 

I : 

52046 

1 

22,3530 

C : 

45540 

i 

I : 

71214 

0 

C : 

03675 

0 

C: 

04003 

0 

C: 

14037 

0 

C: 

05370 

0 

C: 

16172 

1 

C : 

06336 

l 

22,3540 

C : 

36174 

0 

C: 

45553 

0 

I : 

77776 

1 

34740 

0 

71043 

0 

00006 

1 

15474 

1 

34770 

0 

22,3550 

04607 

I 

C: 

01736 

1 

03505 

1 

l : 

44001 

0 

C: 

00001 

0 

C: 

00051 

0 

I : 

77214 

0 

C: 

03755 

0 

22,3560 

C : 

45567 

1 

C: 

02200 

1 

I : 

77752 

1 

C: 

26200 

1 

C: 

02206 

1 

I: 

77752 

l 

C: 

02206 

1 

I: 

77624 

l 

22,35  70 

C: 

57364 

1 

I: 

77624 

1 

C: 

57432 

0 

I : 

77625 

0 

C: 

02  174 

1 

I: 

64414 

1 

C: 

03755 

0 

C: 

45600 

0 

22,3600 

I : 

77624 

1 

C: 

45640 

1 

C : 

16113 

0 

C: 

00017 

1 

I : 

77625 

0 

C: 

02174 

1 

C: 

00161 

1 

I : 

64414 

1 

22,36  10 

C : 

03755 

0 

C: 

45612 

0 

I : 

77624 

1 

C: 

45640 

1 

C : 

161 15 

0 

C: 

00161 

1 

I : 

51025 

1 

C: 

02172 

l 

22,3620 

C: 

45624 

0 

I : 

52145 

0 

C: 

06505 

1 

C : 

45630 

0 

I : 

45145 

0 

C: 

00017 

1 

C : 

57470 

0 

I : 

77676 

0 

22,3630 

C : 

16134 

0 

C: 

02172 

1 

I : 

45015 

1 

C: 

02174 

1 

C: 

57473 

0 

I: 

77676 

0 

C: 

36  132 

I 

C: 

00051 

0 

22,3640 

I : 

51025 

1 

C: 

05650 

1 

C : 

45645 

1 

I : 

434  15 

0 

C: 

05650 

1 

I: 

43545 

1 

C: 

05650 

l 

C: 

01065 

0 

22,3650 

C : 

05603 

l 

C: 

00021 

1 

C: 

14161 

1 

C: 

01440 

0 

C: 

00000 

1 

C: 

14000 

1 

C: 

00000 

1 

C: 

30000 

1 

22,3660 

C : 

00000 

1 

C: 

77534 

0 

C : 

45074 

0 

31234 

0 

55074 

1 

05506 

1 

C : 

00036 

1 

04607 

1 

22,3670 

C: 

17275 

1 

44734 

1 

00006 

1 

03011 

1 

05331 

0 

C: 

00005 

1 

C: 

05022 

1 

C: 

20000 

0 

22,3700 

06060 

1 

I : 

7 76 14 

1 

C: 

03664 

0 

I : 

45014 

0 

C: 

03267 

1 

C: 

27522 

1 

I : 

77414 

0 

C: 

03671 

1 

22,3710 

04626 

l 

C: 

10144 

1 

I : 

51575 

l 

C : 

02643 

1 

C : 

24045 

0 

C: 

02651 

1 

Is 

41446 

1 

I : 

50025 

0 

22,3720 

C : 

00045 

0 

C: 

45724 

1 

I : 

45545 

l 

C: 

77732 

1 

I : 

51575 

1 

C: 

02657 

1 

I : 

45206 

l 

C: 

00045 

0 

22,3730 

I : 

71240 

1 

C : 

45734 

0 

I : 

77626 

0 

C: 

77732 

1 

I : 

66  145 

1 

C: 

00045 

0 

C: 

00044 

l 

I : 

62101 

0 

22,3  740 

C: 

00047 

1 

C: 

00002 

0 

I : 

53775 

1 

C: 

02643 

1 

C: 

20201 

0 

C: 

26643 

1 

C: 

02651 

1 

I : 

77657 

0 

22,3750 

C : 

20201 

0 

C : 

2665  l 

1 

C : 

02657 

1 

I : 

66057 

0 

C: 

20201 

0 

C: 

00045 

0 

C: 

02657 

1 

I : 

54  150 

l 

22,3760 

C : 

02102 

0 

C: 

0004  5 

0 

I : 

77660 

l 

C: 

00045 

0 

I : 

70130 

1 

C: 

02102 

0 

C: 

00045 

0 

I : 

40270 

0 

22,3770 

C: 

00044 

l 

C: 

00003 

1 

T : 

77650 

1 

C: 

46652 

1 

C: 

03774 

0 

C: 

03775 

1 

CKSM 

06555 

1 

3 
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23,2000 

04636 

0 

55112 

0 

34  743 

0 

55051 

0 

36263 

0 

55050 

1 

32037 

1 

04607 

1 

23,2010 

C : 

20345 

1 

15474 

1 

12017 

1 

12006 

1 

34742 

1 

05466 

0 

05  146 

1 

31051 

1 

23,2020 

74743 

1 

10000 

0 

12026 

0 

05506 

1 

C: 

00012 

1 

12034 

0 

05520 

0 

C: 

00012 

1 

23,2030 

05506 

1 

C: 

00264 

1 

05506 

1 

C: 

00126 

1 

00003 

1 

31112 

1 

14631 

0 

C: 

01014 

0 

23,2040 

C : 

77757 

1 

I : 

47135 

0 

C : 

03753 

0 

c: 

21606 

1 

I : 

41401 

1 

C: 

OOOOI 

0 

I : 

57556 

0 

C: 

14043 

0 

23,2050 

I : 

41546 

0 

I : 

47135 

0 

C: 

03754 

1 

C: 

21606 

1 

I : 

71406 

0 

I: 

72405 

0 

C: 

OOOOI 

0 

C: 

14045 

0 

23,2060 

I : 

41356 

1 

I : 

77752 

l 

C : 

24041 

1 

C : 

00041 

1 

I : 

77616 

0 

C: 

14025 

0 

C: 

00155 

0 

I : 

40234 

0 

23,2070 

C: 

21606 

1 

C: 

ooooi 

0 

I : 

73406 

1 

I : 

77676 

0 

C: 

14043 

0 

I: 

41546 

0 

I! 

47135 

0 

C: 

00026 

0 

23,2100 

C: 

21606 

1 

I : 

77650 

1 

C : 
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1 

0A607 

1 

C: 

20A71 

1 

05A7A 

0 

02  0 AO 

1 

02032 

1 

2 6 , 2 0 AO 

06060 

1 

I : 

A323A 

0 

C: 

21603 

1 

C: 

1 A 1 2 A 

0 

C : 

02176 

0 

C: 

3A0A1 

0 

C: 

2712A 

0 

I : 

77775 

1 

26,2050 

C : 

00001 

0 

C: 

16200 

1 

C : 

02176 

0 

C : 

3A0A1 

0 

C: 

27136 

0 

I: 

52375 

1 

C: 

02200 

1 

C: 

00001 

0 

26,2060 

( : 

A 7 1 2 1 

0 

C: 

01732 

0 

C : 

2172A 

0 

C: 

03773 

1 

I : 

77776 

1 

A 10  51 

0 

6A7AA 

1 

00006 

I 

26,2070 

12115 

l 

06060 

l 

I : 

77775 

1 

C: 

06503 

1 

C: 

37765 

1 

C: 

560A0 

0 

C: 

00322 

1 

I : 

77776 

1 

26,2100 

04607 

1 

C: 

5A300 

0 

32122 

1 

0A607 

l 

C : 

20  A 7 1 

L 

05A7A 

0 

02  110 

0 

020A0 

1 

26,21  10 

05520 

0 

C: 

JO  1 2 A 

0 

OA607 

1 

C: 

5A125 

0 

15  A7A 

1 

06060 

1 

I : 

52  175 

0 

C: 

06A77 

0 

26,2 120 

C : 

5A07A 

0 

C: 

0101  A 

0 

C : 

01A22 

l 

C: 

00000 

l 

C : 

13560 

0 

0A636 

0 

55  163 

0 

3A737 

0 

26,2 l 30 

70101 

0 

10000 

0 

121  AO 

1 

06060 

1 

I : 

7762A 

1 

C: 

560A0 

0 

C: 

00322 

1 

I: 

77776 

1 

26,2 1 A C 

C5506 

I 

C: 

00013 

0 

05520 

0 

C: 

00000 

L 

OA607 

1 

C: 

5A300 

0 

32266 

1 

0A607 

1 

26,2150 

C : 

20722 

1 

0225A 

0 

02162 

0 

02207 

0 

022  IA 

1 

051A6 

1 

A6266 

1 

60133 

0 

26,2160 

02221 

1 

051A6 

l 

3A737 

0 

70101 

0 

10000 

0 

12173 

l 

06060 

1 

I: 

7762A 

l 

26,2170 

C : 

560A0 

0 

C : 

00322 

1 

I : 

77776 

1 

0A607 

1 

C: 

5A300 

0 

02267 

0 

10000 

0 

12  IA6 

1 

26,2200 

022  1 A 

1 

1220A 

L 

32213 

0 

5505A 

0 

0A607 

L 

C: 

A276A 

1 

12  IA6 

1 

05520 

0 

26,2210 

C : 

00 1 2 A 

0 

31163 

l 

0A631 

1 

C : 

0220A 

0 

A0101 

0 

7A727 

0 

10000 

0 

00002 

0 

26,2220 

16760 

1 

5505  A 

0 

30002 

0 

5A156 

1 

05355 

1 

C: 

00132 

1 

3A736 

1 

05A66 

0 

26,2230 

00156 

0 

37735 

1 

05137 

1 

3A7A0 

0 

70075 

1 

10000 

0 

12251 

1 

3A736 

1 

26 , 2 2 AO 

7007A 

0 

10000 

0 

022A6 

0 

05355 

1 

C: 

AO  112 

1 

051A6 

1 

05355 

1 

C: 

A0072 

0 

26,2250 

051A6 

1 

05506 

1 

C : 

00  1 1 A 

0 

0 10  5 A 

1 

31010 

l 

00006 

l 

12207 

1 

30101 

1 

26,2260 

7 A 72  7 

0 

00006 

1 

16001 

1 

060  A3 

0 

C : 

20100 

1 

C: 

00203 

0 

C: 

0 L A 2 2 

1 

00006 

1 

26,2270 

00030 

1 

7A733 

0 

10000 

0 

00002 

0 

00006 

1 

00031 

0 

7A727 

0 

00002 

0 

26,2300 

0A636 

0 

5533  7 

0 

30321 

1 

5A771 

1 

30322 

1 

5A765 

l 

30323 

0 

5A767 

0 

26,2310 

06060 

1 

I : 

A5001 

1 

C: 

00001 

0 

C: 

A7526 

0 

I : 

A13A5 

0 

C: 

007A2 

0 

C : 

007A6 

1 

I : 

57552 

1 

26,2320 

I : 

65336 

1 

C: 

007A0 

1 

C : 

1 A023 

0 

C: 

007A6 

1 

I : 

72A05 

0 

C: 

00750 

0 

C: 

3A021 

0 

C: 

265A5 

1 

26,2330 

I : 

A 1 32  5 

0 

C: 

007A0 

l 

C : 

007A2 

0 

I : 

A1512 

1 

I : 

65205 

0 

C : 

007AA 

0 

I : 

65205 

0 

C: 

00736 

0 

26.23AP 

C : 

00750 

0 

I : 

72A05 

0 

C : 

00  7AA 

0 

I : 

A5A25 

0 

C: 

63  756 

0 

C: 

00736 

0 

I : 

72A05 

0 

C: 

00750 

0 

26,2350 

I : 

A5A15 

0 

C: 

A3  75  A 

0 

C: 

265A5 

1 

I : 

55525 

0 

I : 

7763A 

0 

C: 

21630 

1 

C : 

02336 

0 

I : 

77776 

1 

26,2360 

31337 

l 

0A631 

1 

I : 

A7375 

0 

C: 

0325A 

1 

C: 

06503 

1 

I: 

A7256 

0 

C : 

03765 

0 

I : 

AO  05  6 

0 

26,2370 

C : 

5AA0A 

0 

C: 

l 7270 

1 

C: 

000A5 

0 

I : 

50025 

0 

C : 

1AA23 

1 

C: 

5AA0A 

0 

I : 

77775 

1 

C: 

03270 

l 
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26,2400 

C : 

17270 

I 

c: 

06503 

1 

I : 

77650 

1 

C: 

560  72 

l 

I : 

52175 

0 

C: 

06503 

1 

C: 

54400 

l 

C: 

15555 

0 

26,24  10 

C : 

35172 

0 

C: 

14113 

1 

C: 

36326 

0 

C : 

07  70  1 

0 

C: 

35  703 

0 

C: 

04343 

1 

c: 

21616 

0 

C: 

03070 

0 

26,2420 

C: 

34344 

0 

C: 

00000 

l 

C : 

00001 

0 

C: 

00000 

1 

I : 

77624 

1 

C: 

51770 

0 

I : 

43014 

0 

C: 

04307 

L 

26,2430 

C : 

55206 

0 

C: 

02466 

l 

I : 

45014 

0 

C: 

00747 

0 

C: 

54466 

1 

C: 

27447 

0 

I : 

45014 

0 

C: 

01674 

0 

26,2440 

C : 

26702 

0 

I : 

77624 

1 

C : 

53642 

1 

is 

77624 

1 

C: 

51770 

0 

I : 

77624 

l 

C: 

27447 

0 

I : 

43014 

0 

26,2450 

C: 

01676 

1 

C: 

02756 

I 

C : 

54456 

1 

I : 

43014 

0 

C: 

01476 

0 

C: 

01475 

0 

I : 

43014 

0 

C: 

01474 

1 

26,2460 

C : 

01673 

1 

I : 

45014 

0 

C : 

01472 

1 

C: 

53642 

1 

I : 

77650 

1 

C: 

54516 

1 

I : 

77624 

1 

C: 

27447 

0 

26,2470 

I : 

45014 

0 

C: 

01474 

1 

C : 

26702 

0 

I : 

77624 

1 

C: 

53642 

1 

I: 

77624 

1 

C: 

51770 

0 

I : 

77624 

I 

26,2500 

C : 

2 744  7 

0 

I : 

43014 

0 

C : 

01676 

l 

C : 

02756 

1 

C: 

54510 

1 

I : 

43014 

0 

C: 

01476 

0 

C: 

01475 

0 

26,2510 

I : 

43014 

0 

C: 

01673 

l 

C: 

01674 

0 

I : 

45014 

0 

C: 

01472 

l 

C: 

53642 

1 

I : 

45014 

0 

C: 

02716 

0 

26,2520 

C : 

54522 

0 

C: 

55250 

0 

I : 

77414 

0 

C: 

04  3 '7 

1 

C: 

54532 

l 

34746 

0 

55745 

1 

04607 

1 

26,2530 

C: 

46123 

0 

06060 

l 

I : 

43174 

1 

C: 

00000 

l 

C : 

04304 

1 

C: 

54540 

1 

I : 

77714 

0 

C: 

00002 

0 

26,2540 

I : 

45134 

0 

C: 

03720 

l 

C : 

51770 

0 

I : 

66170 

1 

C: 

00001 

0 

C: 

01353 

0 

I : 

54335 

0 

C: 

01773 

0 

26,2550 

C: 

20635 

0 

I : 

77634 

0 

C : 

21643 

0 

C: 

00025 

0 

I : 

77624 

I 

C: 

55332 

0 

I : 

57414 

l 

C: 

00707 

I 

26,2560 

C: 

54561 

1 

C: 

27525 

0 

C: 

06505 

1 

C: 

03533 

l 

C: 

17541 

1 

C: 

00045 

0 

I : 

44257 

l 

C: 

56174 

0 

26,2570 

C: 

03757 

1 

I : 

77657 

0 

C : 

56574 

1 

C: 

17547 

1 

C: 

00045 

0 

I : 

63501 

0 

C: 

00047 

1 

I : 

53605 

1 

26,2600 

C : 

01767 

0 

C: 

20577 

0 

I : 

53657 

0 

C: 

20601 

l 

C: 

57176 

0 

I: 

47057 

0 

C: 

571  76 

0 

C: 

21643 

0 

26,26  10 

C : 

02707 

0 

I : 

76276 

0 

C: 

00025 

0 

I : 

72240 

1 

C: 

546  17 

0 

C: 

00025 

0 

C : 

02707 

0 

I : 

77624 

1 

26,2620 

C : 

55400 

0 

I : 

45131 

0 

C: 

013  54 

1 

C : 

00002 

0 

C: 

51770 

0 

is 

77624 

1 

C: 

55332 

0 

I : 

53725 

1 

26,2630 

C : 

00045 

0 

C: 

57202 

0 

C: 

24045 

0 

I : 

57414 

1 

C: 

00707 

l 

C: 

54636 

0 

I : 

77761 

1 

C: 

00045 

0 

26,2640 

C : 

27533 

1 

C: 

01653 

0 

I : 

53257 

l 

C: 

57170 

0 

C : 

01667 

1 

I : 

53715 

I 

C: 

01601 

1 

C: 

57170 

0 

26,2650 

I : 

52255 

1 

C: 

016  15 

1 

I : 

50315 

0 

C: 

00001 

0 

C : 

00007 

0 

I: 

53606 

1 

C: 

56174 

0 

I : 

57316 

1 

26,2660 

C : 

01771 

1 

C: 

>7  7 

0 

I : 

54335 

0 

C: 

01774 

1 

C : 

2n62  1 

0 

C: 

00031 

0 

I : 

50025 

0 

C: 

02707 

0 

26,2670 

C : 

54674 

0 

I : 

77745 

1 

C : 

00031 

0 

C: 

02707 

0 

I : 

60545 

0 

I: 

53725 

1 

C: 

03751 

1 

C: 

56577 

I 

26,2  700 

I : 

77625 

0 

I : 

77675 

0 

C: 

00045 

0 

C : 

27547 

1 

C: 

00001 

0 

I : 

47235 

0 

I : 

57414 

1 

C: 

00707 

l 

26,2710 

C : 

54711 

1 

I : 

77657 

0 

C : 

57200 

1 

C: 

27525 

0 

C: 

06505 

1 

C: 

00025 

0 

C : 

27541 

1 

C: 

03525 

0 

26,2  720 

I : 

60246 

1 

C : 

00025 

0 

I : 

51575 

1 

C: 

03533 

1 

I: 

71301 

0 

C: 

00027 

1 

C : 

00027 

1 

I : 

50025 

0 

26,2730 

C: 

00025 

0 

C : 

54735 

1 

I : 

52150 

1 

C: 

00026 

0 

C: 

54737 

0 

I : 

77750 

0 

C: 

00024 

1 

I : 

53775 

l 

26,2740 

C : 

03525 

0 

C: 

20201 

0 

C : 

27525 

0 

C: 

03533 

1 

I : 

77657 

0 

C: 

20201 

0 

C: 

17533 

1 

C : 

03547 

1 

26,2750 

I : 

77657 

0 

C: 

2020  1 

0 

C : 

0 J 54  7 

1 

I : 

53745 

1 

C: 

00045 

0 

C: 

20200 

1 

I : 

41316 

0 

C: 

02707 

0 

26,2760 

I : 

47012 

1 

C: 

21643 

0 

C: 

36707 

1 

C: 

55400 

0 

I : 

77624 

1 

C: 

51770 

0 

I : 

77414 

0 

C: 

04307 

I 

26,2770 

C : 

55204 

1 

33331 

0 

54006 

0 

31457 

0 

54765 

1 

31460 

l 

54767 

0 

31461 

0 
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26,3000 

54771 

1 

06060 

1 

I : 

45175 

0 

C: 

06503 

l 

C: 

47656 

1 

I: 

76505 

0 

C: 

01732 

0 

C: 

27677 

l 

26,3010 

C : 

06501 

0 

I : 

77624 

1 

C: 

47665 

l 

I : 

76505 

0 

C: 

01732 

0 

C: 

27705 

0 

C : 

06477 

0 

Is 

77624 

1 

20,3020 

C : 

47665 

1 

I : 

76505 

0 

C: 

01732 

0 

C : 

37713 

0 

C: 

55360 

1 

I: 

77331 

0 

C: 

01354 

1 

C: 

00003 

1 

26,3030 

C : 

03724 

0 

I : 

72441 

0 

C : 

03677 

1 

C: 

24023 

0 

C: 

03724 

0 

I : 

72441 

0 

C: 

03713 

1 

C: 

34021 

0 

26,3040 

C : 

26545 

1 

I : 

41221 

0 

C : 

03736 

0 

C : 

15440 

0 

I : 

41472 

0 

I: 

52545 

1 

C : 

01701 

0 

I : 

44257 

l 

26,3050 

C : 

56176 

1 

I : 

53605 

1 

C: 

03722 

0 

C: 

21601 

0 

C: 

27547 

1 

C: 

03724 

0 

I : 

76435 

1 

C: 

03705 

0 

26,3060 

I : 

77656 

1 

If 

57414 

1 

C: 

00747 

0 

C: 

55064 

0 

C : 

27525 

0 

C: 

06505 

1 

C: 

03533 

1 

C: 

17541 

1 

26,3070 

C: 

03722 

0 

I : 

53657 

0 

C: 

20577 

0 

C: 

56176 

1 

C: 

03541 

1 

I : 

77735 

0 

C : 

02011 

0 

I : 

41215 

1 

26,3100 

C: 

15435 

1 

C: 

03722 

0 

I : 

41257 

1 

C : 

21601 

0 

C: 

03722 

0 

I: 

53657 

0 

C: 

20577 

0 

C: 

57176 

0 

26,3110 

I : 

47057 

0 

C: 

57176 

0 

C: 

21643 

0 

C: 

36707 

1 

C : 

55400 

.0 

I: 

77624 

1 

C: 

51770 

0 

I : 

77624 

1 

26,3120 

C : 

55360 

1 

I : 

77331 

0 

C : 

01354 

1 

C: 

00004 

0 

C : 

03724 

0 

I : 

76435 

1 

C: 

03705 

0 

I : 

76435 

1 

26,3 130 

C: 

03724 

0 

I : 

57414 

l 

C: 

00747 

0 

C: 

55134 

1 

C: 

27525 

0 

C: 

06505 

1 

C: 

03533 

1 

C: 

17541 

1 

26,3  140 

C : 

03722 

0 

I : 

53657 

0 

C : 

20577 

0 

C: 

56176 

1 

C : 

03543 

0 

it 

77735 

0 

C: 

02012 

0 

I : 

41215 

l 

26,3150 

C: 

15435 

1 

C: 

03722 

0 

I : 

41257 

1 

C: 

21601 

0 

C: 

03722 

0 

I : 

53657 

0 

C: 

20577 

0 

C: 

57176 

0 

26,3160 

I : 

47057 

0 

C: 

57176 

0 

C : 

21643 

0 

C: 

16707 

0 

C: 

03732 

1 

I : 

44336 

1 

C: 

03  734 

l 

I : 

56405 

0 

26,31 70 

C : 

15440 

0 

I : 

52525 

1 

C : 

01703 

1 

I : 

44257 

1 

C : 

56176 

1 

I : 

53605 

1 

C: 

03722 

0 

C: 

21601 

0 

26,3200 

C: 

37547 

0 

C : 

55400 

0 

I : 

7 7624 

1 

C: 

51770 

0 

I : 

77650 

1 

C: 

50644 

1 

I : 

77624 

1 

C: 

27447 

0 

26,3210 

I : 

43014 

0 

C: 

01472 

1 

C : 

01674 

0 

I : 

77624 

1 

C: 

53642 

1 

I : 

77624 

1 

C : 

51770 

0 

I : 

45014 

0 

26,3220 

C : 

02666 

0 

C : 

27447 

0 

I : 

46145 

0 

C: 

03463 

0 

C: 

55237 

1 

I: 

43014 

0 

C: 

01675 

1 

C: 

01476 

0 

26,3230 

I : 

43014 

0 

C: 

01474 

1 

C : 

01673 

1 

I : 

77624 

l 

C : 

53642 

l 

I : 

77650 

1 

C: 

54522 

0 

I : 

77624 

1 

26,3240 

C : 

55250 

0 

I : 

45014 

0 

C: 

01474 

1 

C: 

26702 

0 

I : 

77624 

1 

C: 

53642 

1 

I : 

77650 

1 

C : 

54522 

0 

26,3250 

I : 

77776 

1 

33330 

1 

54006 

0 

33436 

0 

55256 

0 

34746 

0 

51256 

1 

55400 

0 

26,3260 

11256 

0 

03254 

l 

3 (331 

0 

54006 

0 

06060 

1 

I : 

67214 

1 

C: 

04307 

l 

C : 

55273 

1 

26,3270 

C: 

02001 

1 

I : 

77650 

1 

C : 

55275 

1 

I : 

77735 

0 

C: 

02007 

1 

I: 

77661 

0 

C: 

20606 

0 

C: 

02401 

0 
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43014 

0 

C: 

01066 

0 

27,2530 

C: 

01224 

1 

C: 

75615 

l 

C: 

77715 

1 

C: 

77777 

0 

C : 

00000 

1 

C: 

00620 

0 

06060 

1 

I : 

43001 

1 

27,2540 

C : 

00001 

0 

C : 

01266 

1 

I : 

51575 

1 

C: 

03701 

1 

I : 

41325 

0 

C: 

16710 

0 

C: 

34017 

0 

I : 

72471 

0 

27,2550 

C : 

01244 

l 

I : 

41421 

0 

I : 

43014 

0 

C : 

05342 

1 

C: 

56624 

1 

C: 

02463 

l 

I : 

56345 

0 

C: 

16001 

1 

2 7,2560 

C: 

01244 

1 

I : 

50021 

1 

C: 

00001 

0 

C: 

56606 

1 

I : 

41325 

0 

C: 

03737 

1 

C : 

16700 

1 

T : 

65221 

0 

27,2570 

C : 

01244 

1 

C: 

03735 

0 

I : 

60405 

0 

C: 

16702 

0 

I : 

41471 

0 

I : 

51021 

0 

C: 

00003 

1 

C: 

56624 

1 

27,2600 

I : 

55345 

0 

I : 

43205 

1 

C: 

16702 

0 

C: 

16676 

1 

I : 

77650 

1 

C: 

56614 

1 

I : 

41345 

0 

C: 

01244 

1 

27,26  10 

I : 

41542 

l 

I : 

562  15 

1 

C : 

16003 

0 

C: 

16005 

0 

l : 

77414 

0 

C: 

01066 

0 

07300 

0 

30154 

1 

27,2620 

56001 

0 

34746 

0 

535  17 

1 

12650 

1 

I : 

41345 

0 

C: 

00001 

0 

C : 

01244 

1 

I 

43006 

0 

27,2630 

C: 

05302 

0 

C: 

56671 

l 

I : 

43071 

0 

C: 

16007 

1 

C : 

02663 

0 

I : 

41400 

0 

C: 

56653 

1 

I 

51025 

1 

27,2640 

C: 

16704 

0 

C : 

56661 

0 

I : 

43015 

l 

C: 

16704 

0 

C: 

02463 

1 

I: 

77650 

1 

C : 

566  14 

1 

I 

77776 

1 

27,2650 

05355 

l 

C: 

00003 

1 

05146 

1 

I : 

40545 

1 

I : 

77671 

L 

C: 

16011 

0 

C: 

03517 

1 

I 

77776 

1 

27,2660 

12650 

1 

I : 

51025 

1 

C : 

16706 

1 

C: 

56666 

1 

I : 

77614 

l 

C: 

02463 

1 

I : 

77745 

1 

I 

77776 

l 

27,2670 

12616 

0 

I : 

6247  1 

1 

C : 

34007 

1 

I : 

77650 

1 

C: 

56667 

0 

C: 

00  144 

0 

C: 

00000 

1 

C 

01274 

1 

27,2700 

C: 

00000 

1 

C : 

00764 

1 

C: 

00000 

1 

C: 

01130 

1 

C: 

00000 

1 

C: 

21304 

0 

C: 

00000 

l 

c 

00121 

0 

27,2  7 10 

C : 

10000 

0 

06060 

1 

I : 

77601 

0 

C: 

00001 

0 

I : 

71214 

0 

C: 

01072 

0 

C: 

06505 

1 

T 

77725 

l 

27,2720 

C : 

16406 

l 

I : 

43214 

l 

C: 

03745 

1 

C : 

56725 

1 

C: 

164  10 

0 

is 

45006 

0 

C: 

22002 

0 

I 

77776 

l 

27,2  730 

05355 

1 

C: 

00002 

0 

15146 

0 

I: 

51575 

1 

C: 

01220 

0 

I : 

53744 

0 

C : 

02777 

1 

c 

57576 

1 

27,2740 

C : 

27715 

1 

C: 

03444 

0 

I : 

47051 

0 

C: 

01220 

0 

C: 

21722 

0 

C: 

17656 

1 

C: 

00045 

0 

I 

53674 

1 

27,2750 

C: 

00U46 

0 

C: 

57576 

1 

C: 

00037 

0 

I : 

41301 

0 

C : 

00050 

1 

C: 

03715 

1 

I : 

57101 

0 

c 

00047 

1 

27,2  760 

C : 

00046 

0 

I : 

77734 

1 

C : 

03766 

0 

C: 

17725 

1 

C: 

00037 

0 

I: 

65342 

1 

C : 

03715 

1 

I 

65342 

1 

27,2  7 70 

C : 

03723 

l 

I : 

4334  2 

0 

I : 

45415 

0 

C: 

74044 

1 

I : 

41225 

1 

C: 

00037 

0 

C: 

03721 

0 

I 

7762  1 

1 
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27,3000 

C: 

03717 

0 

I: 

45325 

1 

C: 

03733 

0 

C : 

03715 

27,3010 

I : 

53664 

0 

C: 

00046 

0 

C: 

57575 

1 

I : 

77754 

27,3020 

I : 

41345 

0 

C: 

03733 

0 

C : 

03721 

0 

I : 

77621 

27,3030 

I : 

70501 

1 

C: 

00047 

1 

I : 

41271 

0 

C: 

03725 

27,3040 

C: 

03733 

0 

I : 

56225 

1 

C: 

00037 

0 

C: 

03733 

27,3050 

I : 

56325 

0 

C: 

00037 

0 

C: 

03  733 

0 

I : 

77600 

27,3060 

C: 

02673 

1 

t: 

17220 

1 

I : 

45302 

1 

I : 

65205 

27,3070 

I : 

52525 

1 

C: 

03717 

0 

I : 

55366 

1 

I : 

43225 

27,3100 

C : 

00037 

0 

C: 

10  / 

0 

I : 

77214 

0 

C : 

03  705 

27,31 10 

I : 

t33ol 

0 

C: 

i: to  ;>7 

0 

C: 

03656 

1 

I : 

53455 

27,3 120 

C: 

02777 

1 

C: 

57177 

1 

C: 

02330 

0 

I : 

77650 

27,3130 

I : 

77240 

1 

C: 

57150 

1 

C: 

03656 

1 

I : 

63362 

27,3140 

I : 

75235 

1 

C: 

02674 

0 

C: 

02673 

1 

I : 

74256 

27,3 150 

I : 

74575 

0 

C: 

03537 

0 

I : 

74515 

0 

C : 

03656 

27,3 160 

C : 

02673 

1 

1 : 

74256 

0 

C : 

00041 

1 

I : 

77715 

2 7,3 1 70 

I : 

77651 

0 

C : 

03553 

1 

C : 

02357 

1 

I : 

53135 

27,3200 

C : 

57214 

1 

I : 

53575 

0 

C: 

01220 

0 

I : 

45345 

27,32  10 

C : 

0 i 

0 

I : 

53361 

0 

C: 

03521 

1 

C: 

02357 

27,3220 

C: 

36652 

0 

05520 

0 

C: 

00137 

1 

45010 

27,3230 

05012 

1 

05223 

1 

C: 

1 3560 

0 

45005 

27,3240 

05012 

1 

31402 

0 

05175 

1 

C: 

03262 

27,3250 

03012 

1 

101  2 

1 

74733 

0 

00006 

27,3260 

C : 

02067 

1 

05263 

0 

44  733 

0 

00006 

27,3270 

05263 

0 

I: 

76521 

0 

C : 

01732 

0 

I : 

77650 

27,3300 

C : 

02137 

0 

I : 

51025 

l 

C : 

02566 

0 

C: 

57312 

27,33  10 

C : 

02570 

1 

C: 

71453 

0 

I : 

77614 

1 

C: 

04631 

27,3320 

I : 

41312 

1 

C : 

0 36  3 1 

0 

C: 

02326 

l 

I : 

77616 

27,3330 

74736 

0 

26103 

1 

34726 

0 

54107 

27,3340 

74735 

0 

10000 

0 

13346 

1 

00006 

27,3350 

52756 

1 

00006 

l 

34  746 

0 

52764 

27,3360 

15636 

0 

C: 

03656 

1 

C : 

64067 

1 

C: 

00037 

27,3370 

C: 

00015 

0 

I : 

7770  l 

l 

C: 

00047 

1 

C: 

24041 
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I : 

70501 

l 

C: 

00047 

l 

I: 

41271 

0 

C: 

03725 

1 

C: 

03766 

0 

IS 

75366 

0 

C: 

02673 

1 

C : 

00041 

l 

C: 

03717 

0 

Is 

45325 

i 

C: 

03733 

0 

C : 

03723 

1 

I : 

53664 

0 

C: 

00046 

0 

C: 

57575 

1 

I : 

65366 

1 

I : 

41566 

l 

I : 

67542 

0 

I? 

65205 

0 

C: 

17220 

1 

C: 

57055 

0 

I: 

41366 

l 

I : 

44242 

0 

I : 

65365 

l 

C : 

03733 

0 

C: 

03733 

0 

I : 

75442 

1 

I : 

77605 

1 

C: 

03631 

0 

C: 

01234 

0 

C: 

14037 

0 

I : 

77765 

0 

C: 

57125 

0 

C: 

03656 

1 

I : 

53451 

1 

C: 

03537 

0 

C: 

03537 

0 

I : 

53361 

0 

C : 

00041 

1 

I : 

53744 

0 

C: 

57170 

0 

I: 

50375 

0 

C: 

03656 

1 

C: 

03537 

0 

C: 

03537 

0 

I : 

53362 

0 

I : 

77656 

1 

I : 

57406 

1 

C : 

00037 

0 

IS 

77715 

1 

I : 

77650 

1 

C: 

57115 

0 

I : 

53451 

1 

I: 

77606 

1 

I : 

75235 

1 

C: 

02674 

0 

I : 

53361 

0 

C: 

00037 

0 

I : 

77650 

1 

C: 

57117 

1 

C: 

03000 

1 

C: 

5720L 

0 

I : 

52175 

0 

C: 

02357 

1 

C: 

01234 

0 

C: 

03512 

1 

I : 

56205 

0 

C: 

16023 

1 

C: 

02357 

1 

I: 

77650 

l 

C : 

56455 

0 

C: 

31103 

1 

00006 

1 

030  12 

1 

35005 

1 

00006 

1 

00006 

1 

03012 

1 

35010 

0 

00006 

1 

31401 

0 

05226 

1 

44731 

1 

00006 

1 

13266 

1 

34730 

1 

05063 

1 

C: 

02330 

0 

03012 

1 

13251 

0 

05506 

l 

C : 

00137 

1 

C: 

47640 

0 

I : 

53575 

0 

C: 

03252 

l 

IS 

77641 

1 

I : 

50375 

0 

C: 

02137 

0 

C: 

03537 

0 

I : 

50025 

0 

C : 

60717 

0 

I : 

50375 

0 

C: 

03537 

0 

Cs 

02600 

0 

00006 

1 

33362 

0 

53252 

1 

40103 

1 

00006 

1 

34746 

0 

52752 

0 

30  10  2 

l 

34746 

0 

52754 

0 

00006 

l 

34  74  6 

0 

34755 

1 

54001 

1 

40000 

0 

52760 

l 

I : 

53575 

0 

C: 

02200 

1 

I : 

77725 

I 

C: 

00045 

0 

C : 

02  206 

1 

I: 

77761 

1 

C: 

00037 

0 

Cs 

02  161 

0 

AT 

1 ( 

1 

L 

1 

l 

0 

1 

0 

0 

0 

0 

1 

0 

0 

1 

l 

0 

1 

l 

1 

0 

1 

1 

1 

1 

0 

1 

0 

0 

1 

0 

0 

l 
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27,3400 

I : 

47361 

0 

C: 

00041 

1 

I : 

47572 

1 

C : 

14035 

1 

C: 

06475 

1 

I: 

63271 

0 

C: 

00041 

1 

c: 

02161 

0 

27,3410 

I : 

57436 

1 

C: 

00025 

0 

I : 

43257 

0 

C: 

20573 

1 

I : 

77626 

0 

C: 

77744 

0 

I : 

41457 

l 

C: 

20173 

0 

27,3420 

I : 

75446 

0 

1 : 

77701 

1 

C : 

00050 

1 

C: 

00031 

0 

I : 

75316 

1 

I: 

55254 

1 

C: 

57430 

1 

C: 

06475 

1 

27,3430 

C: 

00027 

1 

I : 

77616 

0 

I : 

41345 

0 

C: 

00033 

1 

C: 

00035 

1 

I : 

57457 

0 

C: 

20571 

0 

I: 

51415 

0 

27,3440 

C: 

17770 

1 

I : 

43366 

0 

C: 

06475 

1 

I : 

55206 

0 

C: 

00035 

1 

I : 

53657 

0 

C : 

20601 

1 

C: 

20572 

0 

27,3450 

C : 

14017 

l 

I : 

41005 

l 

C : 

00027 

1 

C: 

57756 

1 

I : 

53654 

0 

C: 

57464 

0 

C: 

57603 

0 

IS 

40057 

1 

27,3460 

C: 

57576 

1 

C: 

5 7464 

0 

I : 

7 7644 

l 

C: 

57466 

1 

I: 

77745 

1 

C: 

17774 

0 

C : 

00021 

l 

I : 

77616 

0 

27,3470 

I : 

776  14 

1 

C : 

03436 

0 

C : 

57475 

0 

I : 

776  14 

1 

C: 

03676 

0 

C: 

00023 

0 

I : 

77657 

0 

C: 

20201 

0 

27,3500 

C : 

00021 

1 

I : 

44205 

0 

C : 

00033 

l 

C: 

064  7 5 

1 

I : 

41206 

0 

C: 

00021 

1 

I : 

53725 

1 

C: 

00035 

1 

27,3510 

C : 

20573 

1 

I : 

43276 

0 

I : 

77657 

0 

C: 

20601 

1 

I : 

712  14 

0 

C: 

03756 

0 

C: 

57520 

1 

C: 

06505 

1 

27,3520 

I : 

75440 

0 

C: 

57653 

0 

I : 

41076 

0 

C: 

57756 

l 

C : 

24045 

0 

C: 

02161 

0 

I : 

52441 

1 

C: 

02200 

1 

27,3530 

C : 

00017 

1 

I : 

44240 

1 

C: 

57553 

0 

C: 

00045 

0 

C : 

14043 

0 

C: 

00033 

1 

I : 

44205 

0 

C: 

00041 

1 

27,3540 

I : 

51406 

1 

I : 

40015 

1 

C : 

17  762 

1 

C: 

57564 

1 

I : 

65345 

0 

C: 

06505 

1 

I : 

57545 

1 

C: 

00033 

l 

27,3550 

I : 

71240 

1 

C: 

57660 

0 

I : 

77616 

0 

I : 

77745 

1 

I : 

45345 

1 

C: 

00023 

0 

C: 

00015 

0 

C: 

14043 

0 

27,3560 

C : 

00045 

0 

I : 

5201  5 

l 

C : 

00017 

1 

C: 

57540 

1 

I : 

652  15 

1 

C: 

17764 

1 

C : 

00043 

0 

I : 

53605 

l 

27,3570 

C : 

00031 

0 

C : 

57201 

0 

I : 

77671 

1 

I : 

40145 

0 

C: 

00043 

0 

C: 

57656 

0 

I : 

45471 

1 

C: 

77732 

1 

27,3600 

I : 

63406 

0 

I : 

41206 

0 

C: 

00035 

1 

I : 

75261 

0 

C: 

20206 

1 

C: 

00045 

0 

C: 

14045 

0 

I : 

4 1206 

0 

27,36  10 

C : 

00033 

1 

I : 

77657 

0 

C: 

20201 

0 

C: 

00043 

0 

I : 

41234 

1 

C: 

57740 

0 

I : 

44302 

0 

C: 

00023 

0 

27,3620 

I : 

41215 

1 

C: 

00015 

0 

I : 

51042 

0 

C: 

57644 

0 

I : 

75206 

1 

C: 

00017 

1 

I : 

71244 

0 

C: 

57650 

0 

27,3630 

C: 

00027 

1 

I : 

51076 

1 

C : 

57650 

0 

I : 

77676 

0 

I : 

56205 

0 

C: 

17760 

0 

C: 

00031 

0 

I : 

53657 

0 

27,3640 

C : 

57602 

1 

C : 

57602 

1 

I : 

43257 

0 

C: 

57576 

1 

I : 

40005 

0 

C: 

00037 

0 

C: 

57654 

1 

I : 

77616 

0 

27,3650 

I : 

77745 

1 

I : 

77650 

l 

C : 

5 7644 

0 

I : 

77745 

l 

I : 

43545 

l 

C: 

17774 

0 

I : 

77712 

0 

I : 

41465 

0 

27,3660 

I : 

45345 

1 

C: 

00045 

0 

C: 

00017 

1 

C: 

14013 

0 

I : 

77626 

0 

C: 

77732 

1 

I : 

53605 

1 

C: 

00027 

l 

27,3670 

C : 

57576 

1 

I : 

41206 

0 

C: 

00045 

0 

I : 

41057 

0 

C: 

57576 

L 

C: 

31765 

1 

C: 

00043 

0 

I : 

41234 

1 

Zl,  3 7C0 

C: 

57740 

0 

C: 

00043 

0 

I : 

45242 

1 

C: 

17766 

0 

I : 

41405 

0 

I : 

41345 

0 

C: 

00045 

0 

C: 

00015 

0 

27,3710 

( : 

43312 

0 

C : 

00017 

l 

C : 

14045 

0 

C: 

00035 

1 

I : 

53605 

1 

C: 

00027 

1 

C: 

57575 

1 

I : 

53765 

0 

27,3720 

C: 

00045 

0 

C: 

57576 

1 

C: 

14045 

0 

C: 

00027 

1 

I : 

41366 

1 

C: 

17760 

0 

I : 

77615 

0 

Is 

45257 

0 

27,3730 

C : 

57577 

0 

C : 

00013 

0 

I : 

53605 

1 

C: 

00027 

1 

C : 

57601 

1 

I : 

52057 

1 

C: 

57602 

1 

C: 

57644 

0 

27,3  740 

07243 

0 

C: 

00004 

0 

C : 

12525 

0 

C : 

12525 

0 

C: 

71463 

0 

C: 

57703 

L 

C: 

04423 

0 

C: 

17645 

0 

2 7,3  7 50 

C: 

74604 

0 

C: 

43667 

1 

C: 

01626 

1 

C: 

37256 

1 

C : 

77404 

l 

C: 

52071 

0 

06102 

1 

C: 

06220 

1 

27,3760 

C : 

37553 

0 
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00037 

0 

32,2320 

C : 

27663 

1 

C : 

0364  5 

0 

I : 

77646 

0 

C: 

24025 

0 

C: 

00  001 

0 

C: 

03653 

1 

I: 

53435 

0 

C: 

03631 

0 

32,2330 

I : 

53435 

0 

C: 

03653 

1 

I : 

76561 

1 

C: 

00025 

0 

C : 

37665 

0 

C: 

51770 

0 

I : 

77624 

1 

C: 

27447 

0 

32,2340 

I : 

44345 

0 

C: 

03663 

1 

C : 

03661 

0 

C: 

25517 

0 

C: 

03653 

1 

C: 

01535 

0 

C: 

25503 

0 

C : 

03665 

1 

32,2350 

C : 

35511 

l 

C: 

27734 

1 

I : 

45174 

1 

C : 

00002 

0 

C : 

26717 

1 

I : 

77624 

1 

C: 

27456 

0 

I : 

77776 

1 

32 ,2360 

04607 

1 

C: 

50040 

0 

04636 

0 

55737 

1 

05520 

0 

C: 

00120 

l 

00004 

0 

34742 

1 

32,2370 

00006 

1 

02033 

0 

54001 

1 

44742 

0 

70110 

0 

60001 

0 

64  110 

0 

00003 

l 
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32,2400 

04607 

1 

C: 

53072 

1 

04607 

1 

C: 

17733 

0 

12560 

1 

00004 

0 

53105 

0 

52  162 

0 

32,24  10 

53101 

1 

53747 

0 

00006 

1 

30034 

0 

52160 

1 

30032 

0 

54  156 

1 

00006 

1 

32,2420 

30025 

0 

52155 

1 

00006 

1 

30036 

1 

53107 

1 

00003 

l 

04607 

l 

C : 

53074 

1 

32,2430 

04607 

l 

C : 

17733 

0 

02554 

1 

00004 

0 

00006 

1 

31331 

1 

53761 

1 

52  162 

0 

32,2440 

53  755 

0 

52160 

1 

53460 

0 

00006 

1 

31107 

0 

53753 

0 

30156 

0 

55461 

1 

32,2450 

06060 

1 

C : 

14025 

0 

C: 

03  755 

.0 

I : 

45225 

0 

C: 

01777 

1 

C: 

24567 

0 

I : 

77440 

L 

C: 

64472 

1 

32,2460 

40110 

0 

74742 

0 

10000 

0 

34724 

l 

62565 

0 

55073 

0 

06060 

1 

I : 

77745 

1 

32,2470 

C: 

03  755 

0 

C: 

01777 

1 

I : 

77745 

1 

C: 

03747 

0 

I : 

57261 

0 

C: 

20217 

1 

C : 

24002 

0 

C: 

03751 

1 

32,2500 

l : 

47135 

0 

C : 

01107 

0 

C : 

21606 

1 

C: 

03734 

1 

I : 

47135 

0 

C: 

OHIO 

0 

C: 

21606 

1 

C: 

17736 

0 

32,2510 

C: 

01 101 

0 

I : 

66405 

0 

C: 

24004 

0 

C: 

37757 

0 

C: 

46041 

0 

C: 

17741 

0 

C: 

00025 

0 

C: 

34041 

0 

32,2520 

C : 

51337 

l 

I : 

77776 

1 

31457 

0 

54765 

1 

31460 

1 

54767 

0 

31461 

0 

54771 

l 

32,2530 

06060 

1 

I : 

45175 

0 

C : 

01101 

0 

C : 

47643 

0 

I : 

77641 

1 

C: 

03741 

0 

I : 

65552 

0 

C: 

01045 

1 

32,2540 

I : 

50025 

0 

C: 

24564 

0 

C : 

64547 

0 

I : 

77776 

1 

34743 

0 

54154 

0 

12552 

0 

I : 

77776 

1 

32,2550 

34746 

0 

54154 

0 

31737 

0 

04631 

1 

30101 

1 

74733 

0 

10000 

0 

12400 

0 

32,2560 

34744 

1 

54  1 >4 

0 

02552 

1 

C: 

00210 

1 

C : 

21042 

1 

C: 

57776 

0 

C: 

00000 

1 

C: 

11610 

0 

32,2570 

06060 

1 

I : 

77624 

1 

C: 

75612 

0 

I : 

45175 

0 

C: 

03701 

1 

C: 

57271 

1 

C : 

03502 

0 

I : 

77776 

1 

32,2600 

04626 

1 

C: 

65656 

1 

05355 

1 

C: 

04024 

0 

04607 

1 

C: 

33757 

1 

33063 

1 

55455 

0 

32,2610 

32000 

0 

55250 

0 

34742 

l 

55515 

0 

44  744 

0 

55346 

0 

34  746 

0 

55623 

0 

32,2620 

44727 

0 

00006 

1 

03012 

1 

06060 

1 

I : 

77614 

1 

C: 

00664 

0 

I : 

43014 

0 

C: 

02663 

0 

32,2630 

C : 

03271 

0 

I : 

43014 

0 

C : 

05660 

1 

C: 

03067 

0 

I : 

43014 

0 

C: 

00266 

0 

C: 

00270 

1 

I : 

77201 

1 

32,2640 

C : 

00001 

0 

C : 

02021 

0 

I : 

41525 

0 

C: 

02027 

0 

C : 

37625 

l 

C: 

55716 

1 

l : 

64312 

0 

C : 

01732 

0 

32,2650 

C: 

37635 

0 

C: 

71346 

0 

I : 

45345 

1 

C: 

02027 

0 

C : 

25070 

1 

C: 

34041 

0 

C: 

27  115 

1 

I : 

77331 

0 

32,2660 

C: 

03647 

1 

C : 

00050 

1 

C: 

06503 

1 

C: 

26572 

0 

C: 

06501 

0 

C: 

26600 

0 

C: 

06477 

0 

C: 

16606 

0 

32,2670 

C : 

25066 

0 

C : 

27665 

l 

C: 

06505 

1 

C: 

17252 

1 

C: 

06505 

1 

C: 

17643 

0 

C: 

25074 

0 

C: 

03452 

1 

32,2700 

I : 

77745 

1 

C: 

00015 

0 

C: 

27561 

0 

C: 

00017 

1 

I : 

64312 

0 

C: 

01732 

0 

C: 

37521 

0 

C: 

67037 

1 

32,2710 

C : 

35236 

0 

C : 

62417 

1 

5 5646 

0 

06060 

l 

I : 

57345 

1 

C: 

03627 

1 

C : 

02465 

l 

I : 

44232 

l 

32,2720 

C : 

03633 

1 

I : 

45325 

1 

C: 

02463 

1 

C: 

02630 

0 

I : 

65222 

0 

C: 

02626 

l 

I : 

573L6 

1 

C : 

02467 

0 

32,2730 

I : 

65232 

1 

C: 

02624 

0 

I : 

57225 

0 

C : 

02461 

0 

C: 

02465 

1 

I : 

51515 

1 

C: 

03627 

1 

I : 

57225 

0 

32,2740 

C: 

02457 

0 

C : 

02471 

1 

I : 

432  15 

0 

I : 

56215 

1 

I : 

77661 

0 

C: 

21613 

0 

I : 

43206 

1 

C: 

03561 

0 

32,2750 

C : 

1404  1 

1 

I : 

45246 

0 

C: 

25072 

0 

I : 

45040 

1 

C : 

64773 

0 

C: 

2 7447 

0 

I : 

43014 

0 

C: 

01473 

0 

32,2760 

C : 

00063 

1 

I : 

77745 

1 

C: 

03561 

0 

C: 

255  17 

0 

C: 

000  17 

1 

C: 

25535 

0 

C : 

00025 

0 

C : 

3 5 543 

0 

32,2770 

C : 

27145 

1 

I : 

77650 

1 

C: 

64  7 00 

1 

I : 

53575 

0 

C: 

03252 

1 

C: 

27773 

1 

C : 

06503 

1 

C: 

27765 

0 
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32.30C0 

C : 

03527 

1 

I : 

53435 

0 

C : 

03521 

1 

I : 

72441 

0 

C: 

03635 

1 

C: 

16614 

0 

C : 

03423 

1 

I : 

44261 

1 

32,3010 

C: 

20617 

0 

C: 

0004  1 

1 

C : 

03442 

0 

I: 

77776 

1 

05355 

1 

C: 

04024 

0 

44353 

1 

04607 

1 

32,3020 

C : 

74663 

1 

15146 

0 

3 - >07 

0 

54003 

0 

00004 

0 

04665 

0 

C: 

40143 

0 

00003 

1 

32,3030 

04607 

1 

C: 

54125 

0 

05355 

1 

C : 

04024 

0 

34737 

0 

00006 

1 

02033 

0 

00006 

1 

32,3040 

13046 

1 

33064 

0 

04607 

1 

C: 

20635 

0 

16001 

1 

13034 

1 

34  743 

0 

55674 

1 

32,3050 

55675 

0 

34  746 

0 

55670 

0 

55672 

1 

55671 

1 

55673 

0 

55462 

l 

34742 

1 

32,3060 

55622 

l 

04626 

l 

C: 

74130 

0 

C: 

02100 

1 

C : 

00500 

1 

C: 

00035 

1 

C: 

30373 

0 

C: 

00004 

0 

32,3070 

C : 

01610 

1 

C: 

00000 

1 

C : 

00010 

0 

C : 

00364 

0 

I : 

74375 

0 

C: 

03252 

1 

C : 

02476 

0 

I : 

52315 

1 

32,3100 

C : 

03434 

1 

C: 

03527 

1 

I : 

52341 

0 

C : 

02475 

0 

I : 

77776 

1 

35022 

1 

05  137 

1 

33436 

0 

32,3  1 10 

54154 

0 

35005 

1 

54003 

0 

22157 

1 

31476 

0 

04607 

l 

C : 

61713 

0 

54157 

0 

32,3120 

22  161 

1 

31476 

0 

04607 

1 

C : 

61713 

0 

54161 

0 

35007 

0 

54003 

0 

30  121 

0 

32,3130 

00006 

l 

13135 

1 

04607 

1 

C : 

63736 

0 

13164 

0 

34742 

1 

00006 

1 

02030 

0 

32,3140 

00006 

1 

13146 

0 

30074 

1 

74744 

0 

00006 

1 

13154 

0 

06060 

1 

C : 

03252 

1 

32,3150 

I : 

77624 

1 

C: 

61074 

0 

I : 

77776 

l 

13164 

0 

33435 

0 

55262 

1 

13  164 

0 

37731 

0 

32,3160 

05076 

0 

C: 

03167 

1 

C: 

64067 

1 

15263 

1 

34770 

0 

05175 

1 

C : 

03157 

1 

37732 

0 

32,3 1 70 

05137 

l 

00004 

0 

34  7 46 

0 

57746 

0 

00006 

1 

71756 

0 

21645 

0 

34  741 

1 

3 2 , 3 2 CO 

70374 

0 

10000 

0 

13213 

0 

34740 

0 

00006 

1 

02030 

0 

00006 

i 

13213 

0 

32,3210 

00006 

1 

31474 

1 

53645 

0 

00006 

1 

30040 

0 

53764 

l 

52071 

0 

30041 

1 

32,3220 

57765 

1 

56072 

1 

00006 

1 

30025 

0 

53762 

1 

03425 

L 

61157 

0 

54154 

0 

32,3230 

31764 

0 

61160 

1 

54157 

0 

31765 

l 

61161 

0 

541  61 

0 

41763 

0 

61253 

1 

32,3240 

60070 

0 

55766 

0 

41764 

1 

61254 

0 

60071 

1 

55770 

1 

41765 

0 

61255 

l 

32,3250 

60072 

1 

557  72 

0 

34746 

0 

54155 

l 

54  160 

l 

54162 

0 

55253 

0 

55254 

1 

32,3260 

55255 

0 

44744 

0 

54163 

l 

06060 

1 

I : 

65361 

0 

C: 

26074 

0 

C: 

03762 

1 

I : 

77625 

0 

32,32  70 

C: 

01234 

0 

C: 

00037 

0 

I : 

63271 

0 

C: 

27057 

0 

C: 

01236 

1 

I : 

74251 

1 

C: 

02616 

1 

I : 

53352 

0 

32,3300 

C: 

03527 

1 

I : 

45455 

1 

C: 

53746 

1 

C: 

03521 

1 

I : 

77656 

1 

C: 

00017 

1 

I : 

72441 

0 

C: 

00031 

0 

32,33  10 

C : 

17474 

0 

C: 

00037 

0 

I : 

41261 

1 

C: 

202  14 

l 

C : 

03474 

0 

I: 

45215 

0 

C: 

00045 

0 

C: 

02324 

0 

32,3320 

C : 

1 7775 

1 

C: 

03474 

0 

I : 

56221 

0 

C : 

03645 

0 

C: 

02536 

0 

I : 

51515 

1 

C: 

01236 

L 

I : 

60471 

0 

32,3330 

C: 

05654 

0 

C: 

0002  5 

0 

I : 

43234 

0 

C: 

47600 

1 

I : 

45115 

0 

C: 

06503 

1 

C: 

47665 

1 

I : 

77641 

1 

32,3340 

C: 

00017 

1 

C: 

00027 

1 

I : 

45465 

1 

C: 

50313 

0 

C: 

03767 

1 

I : 

53361 

0 

C: 

26074 

0 

C: 

02616 

l 

32,3350 

I : 

65246 

1 

C : 

03762 

1 

I : 

65225 

1 

C: 

03760 

0 

C : 

03762 

1 

C: 

17760 

0 

I : 

55271 

0 

C: 

25441 

1 

32,3360 

1 : 

41325 

0 

C: 

03611 

l 

C : 

25441 

0 

I: 

56271 

0 

C : 

01244 

1 

C: 

22006 

1 

I : 

65215 

1 

C : 

00001 

0 

32,3370 

C : 

00025 

0 

I : 

45271 

1 

C : 

00027 

1 

I : 

43205 

1 

C: 

02540 

1 

C: 

03464 

1 

I : 

56325 

0 

C: 

02  544 

0 
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32,3400 

C: 

01244 

l 

I : 

56325 

0 

C : 

02542 

0 

C: 

01244 

l 

I : 

44206 

0 

C: 

00003 

l 

I : 

71240 

l 

C: 

65415 

l 

32,34  10 

I : 

41545 

0 

I : 

5102  1 

0 

C: 

00003 

l 

C : 

65415 

l 

1 : 

77745 

i 

I : 

77745 

i 

I : 

77601 

0 

C: 

00003 

l 

32,3420 

C : 

17464 

i 

I : 

77776 

l 

52  155 

l 

04626 

l 

C: 

63514 

l 

35006 

l 

54003 

0 

4142? 

0 

32,3430 

24006 

i 

00006 

i 

73442 

i 

27763 

0 

00002 

0 

C: 

02037 

i 

C: 

00053 

1 

C: 

00001 

0 

32,3440 

C: 

00000 

l 

C : 

04000 

0 

C: 

00  143 

l 

34742 

l 

55515 

0 

33653 

l 

55455 

0 

06060 

l 

32,3450 

I : 

43014 

0 

C : 

04665 

0 

C : 

04265 

l 

l : 

43014 

0 

C: 

03670 

0 

C: 

06464 

i 

I : 

45014 

0 

C: 

04462 

0 

32,3460 

C : 

61063 

0 

1 : 

77776 

1 

05323 

0 

C: 

00106 

0 

13577 

0 

06060 

l 

I : 

77624 

1 

C: 

65626 

0 

32,3470 

I : 

54345 

1 

C: 

34003 

0 

C: 

20205 

i 

I : 

77665 

l 

C : 

01244 

1 

C: 

16262 

0 

C: 

01244 

1 

I : 

70471 

1 

32,3500 

C : 

16015 

1 

C: 

03635 

l 

C : 

03637 

0 

C: 

0364  1 

1 

I : 

77665 

1 

C: 

25652 

i 

C: 

16254 

0 

C: 

34015 

1 

32,35  10 

C : 

02260 

1 

I : 

57535 

0 

C: 

26002 

l 

I : 

77702 

1 

C : 

36256 

0 

C: 

60267 

l 

I : 

77745 

1 

C: 

02564 

1 

32,3520 

C : 

36264 

1 

C: 

57315 

1 

I : 

45246 

0 

C : 

02562 

1 

I : 

75240 

0 

C: 

65530 

i 

C: 

02326 

1 

C: 

03633 

1 

32,3530 

I : 

45345 

1 

C: 

03633 

1 

C: 

02326 

1 

I : 

77661 

0 

C: 

20606 

0 

C: 

03643 

0 

I : 

45014 

0 

C: 

04461 

0 

32,3540 

C : 

71650 

1 

I : 

51025 

1 

C: 

02556 

0 

C: 

65547 

1 

I : 

52175 

0 

C: 

02546 

1 

C : 

65552 

0 

I : 

43  175 

0 

32,3550 

C : 

02552 

I 

C: 

044  70 

0 

C : 

16572 

0 

C: 

03631 

0 

C: 

02576 

1 

I: 

77414 

0 

C: 

0447  1 

1 

03635 

1 

32,3560 

05355 

1 

C: 

04024 

0 

05506 

1 

C: 

002  16 

1 

04607 

1 

C: 

73710 

0 

03635 

i 

35020 

0 

32,3570 

05137 

1 

00006 

1 

33655 

1 

53252 

l 

05355 

1 

C: 

00004 

0 

15146 

0 

05520 

0 

32,3600 

C : 

00215 

1 

36000 

1 

55250 

0 

06060 

1 

I : 

77624 

I 

C: 

60243 

l 

I : 

45014 

0 

C: 

04707 

0 

32,3610 

C: 

65614 

1 

C: 

65626 

0 

I : 

77650 

1 

C: 

655  16 

0 

I : 

72545 

0 

C: 

03517 

1 

C : 

03502 

0 

I : 

77776 

l 

32,3620 

05355 

1 

C: 

04024 

0 

00006 

1 

31502 

1 

535  17 

1 

13564 

l 

I : 

45234 

0 

C: 

21603 

l 

32,3630 

C : 

03442 

0 

l : 

77661 

0 

C : 

20214 

t 

C: 

03517 

1 

I : 

77616 

0 

34730 

1 

54055 

0 

34741 

1 

32,3640 

00006 

1 

05014 

1 

00002 

0 

C: 

00000 

l 

C : 

01750 

1 

C: 

00021 

1 

C : 

33400 

0 

C: 

11021 

1 

32,3650 

C: 

00000 

1 

C : 

00507 

0 

C: 

25605 

0 

C: 

02114 

1 

C : 

03375 

0 

C: 

70067 

1 

05355 

1 

C: 

00035 

1 

32,3660 

15146 

0 

06060 

1 

I : 

43175 

0 

C: 

03545 

0 

C: 

03347 

1 

C: 

66344 

1 

I : 

64252 

0 

C: 

01  732 

0 

32,3670 

C : 

37521 

0 

C: 

67037 

l 

I : 

76575 

1 

C: 

03553 

1 

I : 

77721 

0 

C: 

01732 

0 

C: 

03527 

1 

I : 

41535 

l 

32,3700 

C : 

01457 

0 

I : 

41535 

1 

C : 

01455 

l 

I : 

55535 

1 

C: 

01453 

l 

I : 

77761 

1 

C: 

26641 

0 

C: 

02616 

1 

32,3710 

I : 

77776 

1 

00006 

1 

34746 

0 

52754 

0 

04626 

1 

C: 

66347 

1 

C : 

03716 

1 

C: 

03717 

0 

32,3720 

CKSM 

02351 

1 

a 

a 

a 

a 

a 

a 

a 

32,3730 

S 

a 

a 

a 

a 

a 

a 

a 

32,3740 

a 

a 

a 

a 

a 

a 

a 

a 

32,3750 

a 

a 

a 

a 

a 

a 

a 

a 

32,3760 

a 

a 

a 

a 

a 

a 

a 

a 

32,3  7 70 

a 

a 

a 

a 

a 

a 

a 

a 
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33,2000 

C : 

91595 

0 

C: 

92391 

1 

C: 

51102 

0 

0: 

42414 

0 

C: 

75522 

0 

C: 

46002 

I 

c: 

51573 

1 

C: 

62362 

1 

33,2010 

C: 

62770 

0 

C: 

90667 

1 

C: 

03034 

0 

C: 

21031 

0 

C: 

35045 

0 

C: 

21n77 

1 

C : 

OOOOO 

l 

. C: 

OOOOO 

1 

33,2020 

C : 

37696 

l 

C: 

C 77  1 2 

1 

C: 

74517 

1 

C: 

54765 

L 

C: 

35  167 

l 

C: 

20727 

1 

C: 

01270 

0 

C: 

22313 

0 

33,2030 

C : 

19793 

1 

C: 

16797 

l 

C: 

42001 

0 

C: 

62422 

l 

C : 

76653 

0 

C: 

63102 

1 

C: 

64725 

0 

C: 

63461 

V 

33,2090 

C: 

00000 

1 

C: 

ooooo 

1 

C: 

03260 

0 

C: 

23012 

0 

C : 

37646 

l 

C: 

07712 

1 

C : 

OOOOO 

1 

C : 

OOOOO 

l 

33,2050 

C: 

37696 

1 

C: 

07712 

1 

C: 

74517 

1 

C: 

54765 

1 

C: 

37777 

L 

C: 

37777 

l 

C: 

OOOOO 

1 

C: 

OOOOO 

1 

33,2060 

C: 

00000 

1 

C : 

ooooo 

1 

C: 

65363 

1 

C: 

64451 

0 

C: 

21241 

0 

C: 

03216 

1 

C: 

30153 

0 

C: 

23101 

0 

33,2070 

C : 

63105 

0 

C: 

61733 

l 

C : 

01507 

1 

C: 

00321 

1 

C : 

26706 

1 

C: 

00150 

0 

C: 

33343 

0 

C : 

61377 

0 

33,2 100 

C : 

55759 

1 

C: 

77699 

1 

C : 

65556 

1 

C : 

64453 

1 

C: 

55670 

0 

C: 

00002 

0 

C: 

11777 

0 

C: 

01023 

1 

33,2110 

C : 

37155 

1 

C: 

00065 

1 

C: 

06244 

0 

C: 

75  751 

0 

C : 

41775 

l 

C: 

00022 

1 

C: 

07212 

1 

C: 

00007 

0 

33,2 120 

C: 

16100 

1 

05355 

1 

C : 

16035 

0 

C: 

20000 

0 

C: 

02132 

0 

C: 

66067 

0 

3 7 7 3 7 

0 

55074 

1 

33,2130 

09607 

l 

C: 

15333 

0 

06060 

1 

I : 

51  575 

1 

C: 

00325 

0 

I : 

77776 

1 

30154 

1 

55245 

1 

33,2190 

00006 

1 

72072 

1 

53514 

1 

00006 

1 

31244 

1 

53571 

1 

40104 

0 

74735 

0 

33,2150 

00006 

1 

12202 

1 

30  106 

0 

74730 

0 

10000 

0 

00006 

1 

32001 

1 

54002 

1 

33,21 60 

00006 

L 

31514 

0 

00006 

1 

10002 

1 

00006 

l 

71243 

1 

21571 

l 

07124 

1 

33,21 70 

C: 

02073 

1 

00006 

1 

31510 

1 

20155 

1 

52  155 

i 

53174 

0 

03473 

1 

00006 

L 

33,2200 

31  179 

l 

53510 

0 

02367 

1 

04607 

1 

C: 

47607 

0 

32343 

1 

04607 

1 

C: 

20037 

1 

33,2210 

06060 

1 

I : 

95019 

0 

C : 

03307 

0 

C : 

66744 

0 

C: 

66710 

1 

I: 

77776 

1 

03473 

1 

02352 

1 

33,2220 

55157 

1 

55160 

0 

55161 

1 

44732 

1 

70076 

1 

54076 

1 

34736 

1 

70103 

l 

33,2230 

10000 

0 

12269 

1 

40102 

0 

74743 

1 

10000 

0 

12270 

1 

41250 

0 

6 1245 

0 

33,2290 

00006 

l 

62274 

1 

40076 

1 

74732 

1 

26076 

1 

34744 

1 

55515 

0 . 

30106 

0 

33,2250 

79730 

0 

10000 

0 

12317 

1 

34734 

0 

00006 

1 

02032 

1 

00006 

1 

12  3J7 

1 

33,2260 

99727 

0 

701  1 1 

1 

54111 

1 

12322 

1 

44743 

l 

70102 

0 

54102 

0 

12317 

l 

33,2270 

90102 

0 

74743 

1 

26102 

0 

12317 

l 

03473 

1 

11515 

0 

12310 

0 

10  760 

1 

33,2300 

12322 

1 

05355 

1 

C: 

00374 

1 

37734 

0 

05063 

1 

C: 

02570 

1 

C : 

74067 

0 

12322 

1 

33,23  10 

55570 

0 

03473 

1 

31570 

1 

5551  5 

0 

00004 

0 

04665 

0 

C: 

40  166 

1 

40111 

l 

33,2320 

79727 

0 

2611  1 

l 

00003 

l 

04607 

1 

C: 

40463 

1 

30167 

1 

74775 

1 

54166 

l 

33,22 30 

22007 

0 

52121 

1 

03473 

1 

41234 

1 

60025 

0 

64727 

l 

64727 

I 

57355 

0 

33,2390 

00006 

1 

31252 

0 

52006 

0 

C : 

02136 

1 

I : 

77624 

l 

C: 

66642 

1 

I : 

77776 

1 

32366 

0 

33,2350 

02353 

0 

05146 

1 

36007 

0 

00004 

0 

77770 

1 

54061 

l 

00006 

1 

50061 

0 

33,2360 

31595 

1 

50061 

0 

53220 

1 

lOObl 

1 

12354 

0 

00002 

0 

C: 

00022 

1 

31155 

l 

33,2370 

59765 

1 

31156 

l 

54  767 

0 

31154 

0 

54771 

l 

00002 

0 

05355 

l 

C: 

00051 

0 
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33 , 24  CO 

37741 

1 

05076 

0 

C : 

03561 

0 

C: 

66067 

0 

40107 

0 

75006 

0 

26107 

0 

12502 

0 

33,2410 

I : 

77776 

1 

40107 

0 

74726 

l 

00006 

1 

12505 

1 

40107 

0 

74734 

1 

00006 

l 

33,2420 

12432 

1 

00006 

1 

33062 

0 

2015  5 

1 

L ' ' i 1 

0 

12444 

0 

05506 

1 

C: 

0031  1 

1 

33,2430 

05506 

1 

C : 

00253 

0 

31534 

l 

00006 

1 

12436 

0 

12444 

0 

41535 

1 

61451 

0 

33,2440 

00006 

1 

62444 

1 

05520 

0 

C: 

00254 

1 

40107 

0 

74733 

0 

00006 

1 

12501 

0 

33,2450 

34767 

0 

00006 

1 

02033 

0 

00006 

l 

74733 

0 

50000 

l 

12457 

1 

12462 

1 

33,2460 

12471 

0 

12471 

0 

11622 

1 

12467 

1 

05571 

1 

C: 

00511 

1 

44746 

1 

55622 

1 

33,2470 

12501 

0 

1 

34742 

1 

55622 

1 

23650 

0 

41650 

1 

60001 

0 

00006 

1 

33,2500 

13064 

l 

00004 

0 

43060 

0 

70107 

0 

54107 

0 

03473 

l 

30  120 

1 

54166 

1 

33,2510 

06060 

1 

I : 

51575 

1 

C: 

03573 

0 

I : 

45206 

1 

C : 

02324 

0 

C: 

03535 

1 

C : 

03775 

1 

I : 

63261 

1 

33,2520 

C: 

20212 

1 

C: 

03537 

0 

I : 

51435 

1 

C: 

03601 

0 

I : 

56316 

0 

C: 

00001 

0 

I : 

63352 

0 

C : 

03537 

0 

33,2530 

I : 

72441 

0 

C: 

03601 

0 

C: 

03474 

0 

I : 

63312 

i 

C: 

03573 

0 

I : 

60505 

1 

C: 

01732 

0 

C: 

27545 

0 

33,2540 

C : 

03601 

0 

I : 

76505 

0 

C : 

01  732 

0 

C: 

27553 

l 

C: 

03563 

1 

Is 

70251 

0 

C: 

02616 

1 

C : 

26637 

1 

33,2550 

1 : 

77776 

1 

00004 

0 

50120 

1 

52003 

0 

53710 

1 

50120 

1 

30004 

0 

55713 

1 

33,2560 

50120 

1 

52007 

1 

53712 

0 

30154 

l 

55676 

0 

30157 

1 

55677 

1 

30  161 

1 

33,2570 

55700 

0 

00006 

1 

31537 

1 

20001 

i 

54000 

0 

12577 

l 

34724 

1 

57714 

1 

33,2600 

00006 

l 

31541 

c 

20001 

l 

577  L 5 

0 

00006 

1 

31543 

1 

20001 

l 

57716 

0 

33,2610 

40103 

1 

74732 

1 

26103 

1 

00006 

1 

31573 

1 

53521 

1 

00006 

1 

31575 

1 

33,2620 

53523 

0 

00006 

1 

31577 

0 

53525 

0 

00006 

1 

31601 

1 

53527 

1 

00006 

1 

33,2630 

31603 

0 

53531 

0 

00006 

1 

31605 

0 

53533 

1 

12217 

0 

C: 

00031 

0 

C: 

00000 

l 

33,2640 

C: 

00000 

1 

C: 

05075 

0 

I : 

41456 

0 

C: 

03537 

0 

I : 

67340 

1 

C: 

02777 

1 

C : 

03000 

1 

I : 

50076 

0 

33,2650 

C : 

66677 

1 

I : 

50375 

0 

C : 

06477 

0 

C : 

03537 

0 

I : 

41552 

0 

I: 

44316 

0 

C: 

26741 

1 

I : 

56325 

0 

33,2660 

C : 

26106 

1 

C: 

00043 

0 

C: 

00041 

1 

I : 

41205 

0 

C: 

26110 

0 

I : 

65361 

0 

C: 

03537 

0 

I : 

41205 

0 

33,2670 

C : 

26112 

1 

C: 

00041 

1 

I : 

76561 

1 

C: 

06477 

0 

l : 

45455 

1 

C: 

74256 

0 

I : 

41455 

0 

I : 

60345 

0 

33,2700 

C: 

00043 

0 

C: 

00050 

1 

I : 

53663 

1 

C: 

26  100 

l 

C : 

56623 

0 

I : 

45561 

1 

C: 

742  14 

0 

I : 

77616 

0 

33,27  10 

I : 

61375 

1 

C: 

003  2 5 

0 

C : 

01732 

0 

I : 

76561 

1 

C: 

26074 

0 

C: 

03527 

1 

I : 

41562 

0 

I : 

41455 

0 

33,2720 

C: 

01236 

1 

I : 

65255 

0 

C : 

01226 

0 

C: 

01247 

1 

I : 

74261 

1 

C: 

20207 

0 

I : 

44055 

1 

C: 

01220 

0 

33,2730 

C: 

00037 

0 

C: 

37545 

1 

C: 

66642 

1 

I : 

53255 

0 

I : 

77655 

1 

C: 

01226 

0 

C: 

37553 

0 

C: 

00037 

0 

33,2740 

C: 

01463 

1 

C: 

06315 

0 

C : 

00010 

0 

C : 

00000 

1 

I : 

41575 

0 

C: 

02310 

L 

I : 

65255 

0 

C : 

01724 

1 

33,2750 

C: 

1 1 24  7 

l 

I : 

74271 

0 

C : 

2 o 743 

0 

I : 

77655 

1 

C: 

01  716 

0 

C: 

37573 

1 

C: 

67037 

l 

I : 

53255 

0 

33,2760 

C: 

01724 

1 

1 : 

77626 

0 

C : 

74176 

1 

I : 

77776 

1 

03473 

1 

06060 

1 

I : 

77775 

l 

C : 

03563 

l 

33,2770 

C : 

26310 

1 

C: 

03573 

0 

C : 

25716 

0 

C : 

03601 

0 

C : 

01724 

l 

I : 

77776 

l 

03473 

1 

06060 

1 
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33,3000 

I : 

74375 

0 

C: 

00325 

0 

C : 

26076 

1 

I : 

53206 

0 

c: 

01236 

1 

I : 

53206 

0 

C: 

03527 

1 

I : 

56325 

0 

33,30  10 

C: 

01247 

1 

C: 

26743 

0 

I : 

77761 

1 

I : 

77655 

1 

C : 

03521 

l 

C: 

37573 

1 

C: 

67037 

1 

I : 

53255 

0 

33,3020 

I : 

77655 

1 

C: 

03527 

t 

C : 

03601 

0 

I : 

77646 

0 

C: 

27472 

0 

CJ 

02316 

1 

I : 

72435 

0 

C: 

03573 

0 

33,3030 

C: 

17702 

1 

C: 

00045 

0 

I : 

47025 

0 

C: 

02324 

0 

C : 

21622 

1 

C: 

37535 

0 

C: 

66410 

1 

I : 

77656 

1 

33,3040 

C : 

17537 

0 

C: 

00043 

0 

I : 

55261 

1 

C: 

20207 

0 

C: 

26104 

0 

I: 

74205 

0 

C : 

26743 

0 

C: 

03537 

0 

33,3050 

C : 

03563 

1 

I : 

77616 

0 

C: 

00014 

L 

C: 

20000 

0 

C : 

00000 

1 

C: 

00310 

0 

C: 

00000 

1 

C: 

00620 

0 

33,3060 

C: 

00110 

1 

C: 

37767 

0 

C : 

02200 

1 

C: 

00102 

1 

34741 

l 

70107 

0 

00006 

1 

13261 

0 

33,3070 

03473 

1 

03501 

0 

06060 

1 

I : 

61373 

1 

C: 

26003 

0 

C: 

02137 

0 

I : 

54325 

1 

C : 

03655 

1 

33,3  ICO 

C : 

20207 

0 

I : 

74205 

0 

C : 

26063 

0 

I : 

50206 

0 

C: 

03537 

0 

I: 

77625 

0 

C: 

03535 

1 

C: 

03767 

l 

33,3110 

I : 

77725 

1 

I : 

43342 

0 

C: 

03641 

1 

I : 

54221 

1 

C: 

03577 

1 

C: 

20207 

0 

I : 

77404 

1 

C: 

31765 

1 

33,3120 

40075 

1 

74732 

l 

00006 

1 

13161 

0 

35005 

1 

54003 

0 

34  746 

0 

54142 

1 

33,3130 

34742 

1 

54145 

0 

30154 

1 

54001 

1 

50145 

1 

41522 

1 

04607 

l 

C: 

61713 

0 

33,3140 

54144 

1 

60142 

0 

00006 

1 

50145 

l 

71527 

1 

50120 

1 

20005 

0 

30141 

0 

33,3150 

54142 

l 

60144 

0 

00006 

1 

13155 

l 

13157 

0 

10145 

0 

13131 

0 

35007 

0 

33,31 60 

54003 

0 

00004 

0 

50120 

1 

52005 

0 

53665 

l 

53767 

1 

53737 

1 

00003 

1 

33,3170 

30120 

1 

54166 

1 

30107 

1 

74732 

l 

00006 

1 

13215 

0 

06060 

1 

I : 

51545 

l 

33,3200 

C : 

03665 

1 

I : 

62425 

0 

C: 

02504 

1 

I : 

77425 

1 

C: 

03535 

1 

25670 

l 

06744 

0 

13513 

1 

33,32  10 

13513 

1 

05520 

0 

C: 

00247 

0 

05520 

0 

C: 

00263 

0 

40107 

0 

74735 

0 

10000 

0 

33,3220 

13261 

0 

0606  0 

1 

I : 

40545 

1 

C: 

03535 

1 

I : 

77776 

1 

00006 

1 

31665 

0 

52  155 

1 

33,3230 

07565 

0 

00006 

1 

13234 

0 

13261 

0 

54156 

1 

40001 

1 

61420 

0 

00006 

1 

33,3240 

63261 

1 

00006 

1 

71421 

0 

00006 

1 

11420 

1 

54135 

1 

07334 

1 

06060 

1 

33,3250 

I : 

77752 

1 

I : 

53361 
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03302 

0 

34,2660 

C: 

70702 

0 

C: 

03303 

1 

C : 

70702 

0 

I : 

75345 

1 

C: 

30  102 

1 

C: 

00005 

L 

I : 

77765 

0 

C: 

03610 

0 

34,2670 

C: 

03612 

1 

I : 

432  7 6 

0 
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03574 

1 

C : 

17574 

1 

C: 

00001 

0 

I: 

43014 

0 

C: 

03063 

l 

C: 

03062 

0 

34,2700 

C: 

37610 

1 

C: 

70176 

0 

I : 

60345 

0 

C: 

00005 

1 

C : 

00050 

1 

I : 

54065 

0 

C: 

00001 

0 

C: 

00047 

1 

34,27  10 

I : 

77657 

0 

C: 

20601 

I 

C : 

17612 

1 

C: 

00001 

0 

C: 

03610 

0 

I : 

51545 

1 

C: 

03612 

1 

I : 

45206 

1 

34,2720 

C : 

30076 

0 

I : 

71240 

1 

C : 

70737 

0 

I : 

50025 

0 

C: 

30106 

0 

C: 

70732 

0 

I : 

75345 

1 

C: 

30  106 

0 

34,2730 

C: 

03612 

1 

C: 

03612 

1 

I : 

45345 

1 

C: 

03574 

1 

C : 

03612 

l 

C: 

37574 

0 

C: 

70165 

1 

I : 

77145 

1 

34,2740 

C: 

03602 

0 

C: 

00002 

0 

I : 

77750 

0 

C: 

02776 

0 

I : 

50023 

0 

C: 

30072 

1 

C: 

70776 

0 

I : 

71374 

1 

34,2750 

C: 

00003 

1 

C: 

03604 

0 

I : 

50023 

0 

C: 

30072 

1 

C: 

70776 

0 

I : 

45345 

1 

C: 

01  775 

0 

C: 

03634 

0 

34,2760 

C : 

C2244 

L 

I : 

453  74 

0 

C : 

00004 

0 

C: 

30112 

0 

I : 

77040 

0 

C: 

70776 

0 

C: 

00005 

l 

I : 

45345 

1 

34,2770 

C : 

03636 

1 

C: 

01775 

0 

C : 

02246 

0 

1 : 

51025 

1 

C: 

30112 

0 

C: 

72157 

1 

I : 

43014 

0 

C: 

03302 

0 
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34.30C0 
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72045 

0 

C: 

03343 

0 

C: 

72045 

0 

I : 

71334 

0 
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03613 

0 

C: 

32425 

0 

I : 

43014 

0 

C: 

03260 

0 

34,30  10 

C : 

03  061 

0 

I : 

43014 

0 

C: 

03262 

1 

C: 

03263 

0 

C: 

37606 

0 

C: 

70125 

0 

I : 

71220 

1 

C : 

03470 

1 

34,3020 

C : 

C3442 

0 

C: 

34041 

0 

C : 

46401 

0 

I : 

77214 

0 

C: 

01067 

1 

C: 

03560 

l 

C : 

03530 

l 

C: 

27506 

I 

34,3030 

C : 

03552 

0 

C: 

03522 

L 

C: 

03500 

1 

I : 

47256 

0 

C: 

03506 

1 

I : 

77656 

1 

C: 

26252 

0 

C: 

03536 

1 

34,3040 

C : 

37642 

0 

C: 

71052 

0 

C : 

02302 

1 

C: 

26274 

1 

C: 

03544 

1 

C: 

37650 

0 

C: 

71052 

0 

C: 

03514 

1 

34,3050 

C : 

37472 

1 

C: 

03470 

1 

I : 

41406 

0 

I : 

74241 

0 

C: 

02252 

0 

C: 

02252 

0 

I : 

51352 

1 

I : 

63256 

0 

34,3060 

I : 

74246 

1 

I : 

435  72 

0 

I : 

65325 

0 

C: 

03634 

0 

C : 

01775 

0 

I : 

41525 

0 

C: 

33642 

1 

I : 

77650 

1 

34,3070 

C : 

73404 

0 

I : 

65325 

0 

C: 

01775 

0 

C: 

03636 

1 

I : 

41525 

0 

C: 

32425 

0 

I : 

77650 

1 

C: 

73404 

0 

34,3100 

I : 

76020 

1 

C: 

03470 

l 

C : 

01521 

0 

I : 

77624 

1 

C: 

72375 

0 

I : 

77624 

1 

C : 

71120 

1 

I: 

61375 

1 

34,3110 

C: 

03434 

l 

C: 

)iu  j 1 

0 

I : 

77772 

0 

C: 

03656 

1 

I : 

51406 

1 

C: 

27664 

0 

I : 

77650 

1 

C: 

03470 

1 

34,3120 

I : 

77201 

1 

C: 

00007 

0 

C : 

02252 

0 

I : 

63276 

1 

C : 

02274 

1 

I : 

57456 

1 

I : 

47206 

c 

C: 

02252 

0 

34,3130 

I : 

77772 

0 

C: 

00001 

0 

! : 

77616 

0 

I : 

77220 

1 

C: 

03470 

1 

C: 

02302 

1 

I : 

53406 

0 

C: 

27544 

1 

34,3 140 

C : 

03522 

1 

I : 

50256 

0 

C: 

03544 

1 

I : 

72406 

0 

C: 

16732 

0 

I: 

65316 

0 

C: 

06475 

1 

I : 

45302 

1 

34,3150 

I : 

72566 

1 

I : 

575  15 

1 

I : 

77635 

1 

C : 

03522 

l 

I : 

65241 

0 

C: 

02252 

0 

I : 

45565 

0 

C: 

51047 

0 

34,3160 

C: 

03522 

1 

I : 

45115 

0 

C: 

03530 

l 

C: 

46437 

o 

C: 

26  744 

1 

I : 

77614 

1 

C : 

03666 

1 

C: 

36655 

1 

34,3170 

C: 

24732 

1 

I : 

53754 

1 

C: 

02777 

1 

C: 

57576 

1 

C: 

00023 

0 

I: 

76441 

1 

C: 

03544 

l 

I : 

51515 

1 
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C: 
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C: 
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C: 

00003 

1 

C: 

17600 

1 

C: 

02742 

1 

34,3210 

I : 

65301 

0 

C: 

00047 

l 

C : 

00041 

1 

I : 

77624 

1 

C: 

46447 

1 

Is 

56362 

0 

I : 

41457 

1 

C: 

20174 

1 

34,3220 

I : 

65225 

l 

C: 

03600 

1 

I : 

56302 

0 

C: 

00005 

1 

I : 

75406 

1 

I: 

41275 

1 

C: 

00007 

0 

C: 

00001 

0 

34,3230 

I : 

65272 

0 

C: 

0000  3 

1 

I : 

65301 

0 

C: 

00047 

1 

C: 

02312 

0 

I : 

56342 

l 

I : 

65257 

1 

C: 

20  174 

1 

34,3240 

C : 

00005 

1 

I : 

65301 

0 

C : 

00050 

l 

C : 

02312 

0 

I : 

56342 

1 

I : 

44257 

1 

C: 

57604 

1 

I : 

63525 

0 

34,3250 

C: 

0001  1 

1 

I : 

75421 

1 

I : 

47315 

0 

C: 

02252 

0 

C : 

03544 

1 

I : 

74256 

0 

C : 

00013 

0 

I : 

74315 

0 

34,3260 

C: 

03  544 

1 

C: 

000  1 1 

l 

I : 

76455 

1 

I : 

77626 

0 

C: 

74233 

0 

I : 

77651 

0 

C : 

035  14 

1 

C: 

36266 

0 

34,3270 

C : 

03470 

1 

05355 

1 

C: 

04024 

0 

00004 

0 

04607 

l 

C: 

40154 

0 

06060 

1 

I : 

77614 

I 

34 , 3 3 CO 

C: 

06460 

0 

I : 

43014 

0 

C : 

04067 

1 

C: 

C4666 

0 

I : 

77214 

0 

C: 

05062 

0 

C: 

01220 

0 

C: 

16032 

1 

34,3  3 10 

C : 

01234 

0 

I : 

45014 

0 

C: 

01463 

1 

C: 

26406 

1 

I : 

77201 

1 

C: 
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0 

C: 

01220 

0 

I : 

65352 

0 

34,3320 

C : 

01234 

0 

I : 

45006 

0 

C: 

51644 

0 

C: 

02021 

0 

I : 

77776 

1 

33345 

0 

04607 

1 

C: 

20471 

1 

34,3330 

16001 

1 

13333 

0 

13325 

l 

06060 

1 

I : 

64375 

1 

C: 

01220 

0 

C : 

01732 

0 

I : 

45056 

0 

34,3340 

C : 

47640 

0 

C: 

36222 

0 

C : 

33470 

1 

I : 

77776 

1 

16001 

1 

C: 

01453 

l 

I : 

40220 

0 

C: 

01163 

1 

34,3350 

C: 

00001 

0 

I : 

41575 

0 

C: 

06477 

0 

I : 

41434 

1 

C: 

21603 

l 

I : 

77624 

1 

C : 

55  716 

1 

I : 

74321 

1 

34,3360 

C : 

01732 

0 

C: 

16027 

0 

C : 

26316 

1 

C: 

1 

0 

I : 

52446 

0 

C: 

36324 

1 

C: 

01163 

1 

C: 

00C46 

0 

34,3370 

C : 

07374 

0 

C: 

04145 

0 

C: 

20055 

0 

C: 

00007 

0 

C : 

23346 

1 

05355 

1 

C: 

00035 

1 

06060 

1 
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34,3400 

I : 

77614 

l 

C: 

04705 

l 

C : 

60307 

0 

I : 

45345 

i 

C: 

035  14 

i 

C: 

261  16 

0 

I : 

43040 

i 

C: 

60750 

0 

34,3410 

C : 

04267 

0 

I : 

67214 

l 

C: 

02676 

l 

C: 

31451 

0 

I : 

77471 

0 

C: 

03514 

l 

52155 

l 

53641 

i 

34,3420 

53637 

0 

53635 

l 

53571 

l 

06060 

l 

I : 

43345 

i 

C: 

03571 

i 

C: 

l 

I : 

43215 

0 

34,3430 

C : 

03637 

0 

C: 

03641 

l 

I : 

41205 

0 

C: 

02256 

l 

C: 

21011 

i 

IS 

65252 

l 

C: 

02262 

0 

I : 

43342 

0 

34,3440 

I : 

77625 

0 

C: 

21006 

i 

C : 

16262 

0 

C: 

02256 

l 

I : 

56342 

l 

C: 

02262 

0 

C : 

36254 

l 

C: 

60307 

0 

34,3450 

C : 

00004 

0 

1 : 

45575 

i 

C : 

74517 

1 

I : 

77775 

l 

C: 

03537 

0 

C: 

37252 

0 

C: 

60721 

0 

I : 

77634 

0 

34,3460 

C: 

21603 

l 

I : 

43225 

0 

C: 

01234 

0 

C: 

03454 

l 

I : 

77476 

l 

07300 

0 

35007 

0 

54003 

0 

34,3470 

00004 

0 

10155 

i 

13475 

0 

13475 

0 

34  746 

0 

647  44 

1 

55644 

1 

05  175 

l 

34 , 3 5C0 

C : 

03512 

i 

05355 

l 

C : 

47014 

1 

C: 

76133 

1 

C: 

03512 

1 

C: 

70067 

1 

06060 

1 

I : 

52014 

0 

34,3510 

C : 

C3470 

l 

C : 

60447 

0 

04665 

0 

C: 

75552 

1 

35020 

0 

05063 

1 

C : 

03526 

0 

C : 

70067 

i 

34,3520 

05355 

i 

C: 

07024 

0 

C : 

17000 

1 

C: 

03526 

0 

C: 

70067 

1 
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1 

05506 

1 

C: 

00214 

0 

34,3530 

33547 

l 

04607 

1 

C: 

20471 

1 

13536 

0 

13540 

1 

13530 

0 

04626 

1 

C: 

71560 

I 

34,3540 

00004 

0 

04665 

0 

C: 

40154 

0 

04665 

0 

C: 

40141 

1 

04626 

1 

C : 

71550 

1 

C : 

04136 

1 

34,3550 

05355 

1 

C: 

04024 

0 

33570 

0 

04607 

1 

C : 

20471 

1 

13560 

0 

13560 

0 

13550 

0 

34,3560 

05355 

1 

C: 

04024 

0 
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0 

04665 

0 

C: 

40115 

0 

05520 

0 

C : 

00215 

1 

16001 

1 

34,3570 

C: 

04125 

0 

I : 

77745 

1 

C : 

06505 

1 

C : 

02336 

0 

C: 

02342 

0 

IS 

41345 

0 

C: 

02342 

0 

C: 

03517 

I 

34,3600 

I : 

43205 

1 

C: 

33646 

0 

C: 

02336 

c 

I : 

41205 

0 

C: 

03  517 

1 

C: 

03517 

1 

I : 

72471 

0 

C: 

02262 

0 

34,36  10 

I : 

65215 

1 

C: 

02272 

l 

C: 

03474 

0 

I : 

43205 

1 

C: 

03517 

1 

I : 

77626 

0 

C : 

75201 

0 

I : 

77616 

0 

34,3620 

I : 

45020 

l 

C: 

02637 

l 

C : 

71650 

l 

I : 

43205 

1 

C: 

02574 

0 

C: 

02572 

0 

I : 

41425 

1 

C: 

02576 

1 

34,3630 

I : 

51025 

1 

C: 

02560 

0 

C: 

71635 

1 

I : 

65345 

0 

C: 

02560 

0 

I: 

41345 

0 

C: 

00001 

0 

C : 

16025 

I 

34,3640 

I : 

77725 

1 

1 : 

412  15 

1 

C : 

02576 

1 

C : 

02576 

1 

I : 

75465 

L 

I: 

77626 

0 

C: 

41507 

0 

C: 

02637 

l 

34,3650 

I : 

53575 

0 

C: 

03521 

1 

I : 

535  15 

0 

C: 

01716 

0 

I : 

47206 

0 

C: 

00001 

0 

I : 

77641 

1 

C: 

02316 

1 

34,3660 

C : 

24037 

0 

I : 

72441 

0 

I : 

75326 

1 

C: 

00037 

0 

I : 

77616 

0 

C: 

03665 

1 

C: 

03666 

1 

CKSM 

00555 

l 

34,3670 

3 

a 

a 

a 

a 

a 

a 

3 

34,3700 

a 

a 

a 

a 

a 

a 

a 

a 

34,3710 

a 

a 

a 

a 

a 

a 

a 

a 

34,3720 

a 

a 

a 

a 

a 

a 

a 

a 

34,3730 

a 

a 

a 

a 

a 

a 

a 

a 

34,3740 

a 

a 

a 

a 

a 

a 

a 

a 

34,3750 

a 

a 

a 

a 

a 

a 

a 

a 

34,3760 

a 

a 

a 

a 

a 

a 

a 

a 

34,3770 

a 

a 

a 

a 

a 

a 

a 

a 
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35 , 2 uOO 

05506 

1 

C: 

00027 

1 

05506 

1 

C: 

000  31 

0 

32032 

1 

03622 

1 

33637 

0 

03622 

1 

35,2010 

05520 

0 

C: 

00027 

1 

06060 

1 

I : 

77624 

1 

C: 

70000 

0 

I : 

43014 

0 

C : 

00470 

1 

C: 

01067 

l 

35,2020 

I : 

7 7 776 

l 

32033 

0 

03622 

1 

06060 

1 

I : 

77614 

1 

C: 

01071 

0 

I : 

77624 

l 

C: 

73516 

1 

35,2030 

I : 

77650 

1 

C: 

72026 

0 

C: 

01441 

1 

C : 

01452 

0 

02354 

1 

02037 

1 

02361 

1 

00006 

1 

35,2040 

32425 

0 

53621 

1 

02060 

0 

I : 

77734 

1 

C: 

03613 

0 

I: 

77740 

1 

C : 

03613 

0 

I : 

77533 

1 

35,2050 

C : 

32430 

1 

30154 

1 

05740 

1 

34777 

1 

04607 

1 

C: 

20471 

1 

06001 

0 

02053 

0 

35,2060 

02366 

0 

32424 

1 

55467 

1 

55633 

1 

55634 

0 

32415 

0 

03622 

1 

06060 

1 

35,2070 

I : 

57545 

1 

C: 

03634 

0 

I : 

71240 

1 

C: 

72120 

l 

C: 

01643 

1 

C: 

34041 

0 

C: 

46401 

0 

I : 

53775 

1 

35,2100 

C : 

03536 

1 

C: 

57176 

0 

C : 

26655 

0 

C: 

03544 

1 

I : 

43057 

1 

C: 

57176 

0 

C: 

03466 

0 

C: 

16744 

1 

35,2110 

C : 

06513 

0 

C: 

36756 

0 

C : 

25557 

1 

I : 

77615 

0 

C: 

03574 

1 

C: 

03634 

0 

I : 

77776 

l 

02065 

0 
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l 

33634 

0 

04607 

1 
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20471 

l 

06001 

0 

02127 

1 
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1 

33633 

1 

35,2130 

03622 

1 

06060 

1 

I : 

77745 

1 

C: 

03634 

0 

C : 

37442 

1 

C: 

20000 

0 

I : 

77624 

l 

C: 

71016 

0 

35,2140 

I : 

77201 

1 

C: 

0000  l 

0 

C: 

03506 

1 

I : 

65315 

0 

C: 

03  500 

l 

C: 

03634 

0 

I : 

65325 

0 

C: 

03636 

1 

35,2150 

C : 

33642 

1 

I : 

45006 

0 

C : 

73404 

0 

I : 

77624 

1 

C : 

46433 

1 

I: 

77624 

1 

C: 

70113 

0 

I : 

43014 

0 

35,2160 

C : 

01311 

0 

C: 

72163 

0 

C : 

00470 

1 

I : 

77745 

1 

C: 

02244 

1 

C: 

02244 

1 

I : 

51925 

1 

C: 

32427 

1 

35,21 70 

C : 

72165 

0 

I : 

77745 

1 

C: 

02246 

0 

C: 

02246 

0 

I : 

51025 

1 

C: 

32427 

l 

C: 

72  173 

l 

I : 

77776 

1 

35 ,22  CO 

32417 

1 

03622' 

1 

06060 

1 

I : 

45175 

0 

C: 

02260 

1 

C: 

71100 

0 

C : 

26260 

1 

C : 

02302 

1 

35,2210 

C : 

26274 

1 

C : 

02266 

1 

I : 

45170 

0 

C: 

01522 

0 

C: 

72375 

0 

I : 

77745 

1 

C: 

93636 

1 

C: 

37640 

1 

35,2220 

C: 

73516 

l 

1 : 

77650 

1 

C : 

72136 

0 

02354 

1 

02226 

0 

02361 

1 

02366 

0 

32416 

0 

35,2230 

03622 

1 

06060 

1 

I : 

77745 

1 

C: 

03640 

0 

C : 

17636 

1 

C: 

01775 

0 

C : 

37442 

1 

C: 

20000 

0 

35,2240 

I : 

77624 

1 

C : 

71016 

0 

I : 

7 7624 

1 

C : 

71133 

0 

I : 

77201 

l 

C: 

00001 

0 

C: 

03544 

1 

I : 

45115 

0 

35,2250 

C: 

02302 

l 

C: 

71071 

l 

I : 

77624 

1 

C: 

46423 

0 

I : 

772  01 

1 

C: 

00001 

0 

C: 

03530 

1 

I : 

45115 

0 

35,2260 

C: 

03522 

1 

C: 

71071 

1 

I : 

77624 

1 

C : 

46433 

1 

I : 

43145 

0 

C: 

32425 

0 

C: 

03460 

0 

C: 

36310 

0 

35,2270 

C : 

72702 

1 

I : 

77454 

1 

C : 

72307 

0 

05571 

1 

C: 

006  11 

l 

34777 

1 

04607 

1 

C: 

20471 

1 

35.23C0 

06001 

0 

02303 

0 

02226 

0 

06060 

1 

I : 

77745 

1 

C: 

32425 

0 

C: 

02310 

1 

I : 

43014 

0 

35,23  10 

C : 

01311 

0 

C : 

72313 

0 

C: 

00470 

1 

I : 

43345 

l 

C: 

02310 

1 

C: 

03636 

1 

C: 

03636 

1 

I : 

77625 

0 

35,2320 

C : 

01775 

0 

I : 

51025 

l 

C: 

32427 

1 

C: 

7232  1 

1 

I : 

77615 

0 

C: 

32427 

1 

C: 

16244 

1 

C: 

03636 

1 

35 ,7330 

I : 

41425 

1 

C: 

03640 

0 

I : 

45246 

0 

C: 

32427 

1 

I : 

43244 

1 

C: 

72332 

0 

C : 

32427 

1 

I : 

45565 

0 

35,2340 

C : 

75531 

1 

I : 

77776 

L 

32417 

1 

03622 

1 

06060 

1 

I: 

45175 

0 

C: 

02266 

1 

C: 

71100 

0 

35,2350 

C: 

36266 

0 

C: 

73516 

1 

I : 

77650 

1 

C: 

72240 

1 

00006 

l 

2 34  70 

0 

05506 

1 

C: 

00050 

1 

35,2360 

01470 

0 

00006 

l 

23470 

0 

05520 

0 

C : 

00050 

l 

01470 

0 

00006 

1 

23470 

0 

35,2370 

05506 

l 

C : 

00027 

l 

05506 

1 

C: 

00031 

0 

01470 

0 

C: 

03434 

1 

1 : 

45020 

1 

C: 

03463 

0 
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ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


35 , 24  CO 

C: 

71120 

l 

I : 

64375 

1 

C : 

03434 

L 

C : 

00001 

0 

I : 

66  172 

0 

C: 

03615 

0 

C: 

03434 

1 

I : 

77776 

1 

35,24  10 

31615 

1 

03622 

1 

06060 

1 

I : 

77650 

1 

C: 

03463 

0 

C: 

01413 

0 

C : 

01415 

0 

C: 

01513 

1 

35,2420 

C: 

77776 

1 

C : 

6246  0 

l 

C : 

17777 

0 

C : 

37776 

0 

C: 

00000 

1 

C: 

00000 

1 

C: 

00025 

0 

C: 

37100 

l 

35,2430 

C: 

00600 

1 

C: 

00601 

0 

C: 

00602 

0 

C: 

00603 

1 

C: 

00604 

0 

C: 

00605 

l 

C: 

00606 

1 

00006 

1 

35,2440 

23465 

1 

34  74  6 

0 

55  162 

1 

34743 

0 

00004 

0 

05205 

0 

C : 

02716 

0 

C: 

74067 

0 

35,2450 

05331 

0 

C: 

40036 

0 

C : 

05024 

1 

C: 

13000 

0 

01465 

1 

02354 

l 

02460 

1 

0 2 361 

1 

35,2460 

02366 

0 

33633 

1 

03622 

1 

00006 

1 

33656 

1 

53621 

1 

34732 

0 

54001 

1 

35,2470 

32424 

1 

55466 

0 

22003 

1 

55647 

1 

55650 

1 

22003 

1 

03604 

0 

06060 

1 

3 5 , 2 5 CO 

I : 

71214 

0 

C: 

01270 

0 

C: 

03636 

1 

C: 

17442 

0 

C: 

02250 

1 

I : 

43054 

1 

C: 

72510 

0 

C: 

01070 

1 

35,2510 

I : 

77624 

1 

C: 

20000 

0 

I : 

43145 

0 

C: 

06505 

1 

C: 

03460 

0 

I: 

43014 

0 

C : 

01310 

1 

C: 

72521 

1 

35,2520 

C : 

C3660 

1 

C : 

02310 

l 

I : 

43345 

1 

C: 

03636 

l 

C: 

02310 

1 

C: 

34041 

0 

C: 

46401 

0 

I : 

77624 

1 

35,2530 

C : 

72702 

i 

I : 

77454 

1 

C: 

72543 

0 

05571 

1 

C : 

00611 

1 

34777 

1 

04607 

1 

C: 

20471 

1 

35,2540 

06001 

0 

02460 

1 

02533 

0 

I : 

43014 

0 

C: 

03600 

1 

C: 

72522 

1 

C: 

013  10 

1 

C: 

72553 

1 

35,2550 

I : 

77776 

l 

03604 

0 

02556 

0 

I : 

77776 

l 

33633 

1 

03622 

1 

06060 

1 

I: 

71201 

1 

35,2560 

C: 

00001 

0 

C: 

02777 

1 

C: 

14047 

1 

C: 

03621 

1 

I : 

71406 

0 

C: 

16732 

0 

I : 

77756 

0 

C: 

26730 

l 

35,2570 

C : 

03552 

0 

I : 

77657 

0 

C : 

57176 

0 

C: 

26655 

0 

C: 

03560 

1 

I: 

43057 

1 

C: 

57176 

0 

C : 

03466 

0 

35 , 2 6 CO 

C: 

36744 

0 

C: 

24732 

1 

I : 

77745 

1 

C: 

03636 

1 

C: 

03610 

0 

I : 

77615 

0 

C: 

00037 

0 

C: 

37631 

l 

35,2610 

C : 

73224 

1 

I : 

51575 

1. 

C: 

02357 

1 

C: 

27576 

0 

C: 

03506 

1 

I: 

51451 

0 

C: 

03566 

1 

C: 

26341 

0 

35,2620 

C : 

03536 

l 

I : 

45115 

0 

C : 

02330 

0 

C : 

46337 

1 

I : 

77624 

1 

C: 

46447 

1 

C: 

1 7606 

l ' 

C: 

03636 

1 

35,2630 

C : 

03442 

0 

I : 

77776 

1 

33635 

1 

03622 

1 

06060 

1 

I: 

77624 

1 

C: 

73440 

0 

I s 

77624 

1 

35,2640 

C : 

73516 

1 

I : 

77650 

1 

C : 

72512 

l 

02354 

1 

00006 

1 

31401 

0 

02652 

1 

02361 

1 

35,2650 

00006 

1 

31403 

1 

53576 

0 

02366 

0 

06060 

1 

I : 

77624 

1 

C: 

20000 

0 

I : 

77634 

0 

35,2660 

C : 

21603 

1 

C: 

03612 

1 

I : 

77615 

0 

C : 

03576 

0 

C: 

03442 

0 

C: 

03610 

0 

C : 

34041 

0 

C: 

46401 

0 

35,2670 

I : 

77624 

1 

C: 

732  12 

l 

I : 

77624 

1 

C: 

73224 

1 

I : 

77624 

1 

C: 

73440 

0 

I : 

77624 

1 

C: 

73516 

1 

35,2700 

I : 

77650 

1 

C: 

72657 

0 

I : 

66220 

1 

C: 

03463 

0 

C : 

036  14 

1 

C: 

40000 

0 

I : 

40345 

1 

C: 

33644 

1 

35,27 10 

C : 

00001 

0 

C: 

27574 

1 

C: 

03536 

1 

C : 

27500 

1 

C : 

03544 

1 

C: 

27506 

1 

C: 

03552 

0 

C: 

27522 

1 

35,2720 

C: 

03560 

l 

C: 

03530 

1 

I : 

77624 

1 

C: 

73212 

1 

I : 

63235 

0 

C: 

03536 

1 

I : 

53515 

0 

C: 

03536 

1 

35,2730 

1 : 

46315 

l 

I : 

51352 

1 

C : 

02302 

l 

I : 

63256 

0 

I : 

63241 

0 

C: 

00001 

0 

I : 

75241 

1 

C: 

02302 

l 

35,2740 

I : 

65552 

0 

I : 

503  15 

0 

C: 

02  302 

l 

C: 

03536 

1 

I : 

71244 

0 

C: 

72750 

0 

C : 

06513 

0 

I : 

41425 

1 

35,2750 

I : 

71214 

0 

C: 

03740 

l 

C: 

73177 

1 

C: 

03576 

0 

C: 

14033 

1 

I : 

77625 

0 

C: 

02250 

1 

C: 

03576 

0 

35,2760 

I : 

45246 

0 

C: 

33650 

1 

I : 

77640 

0 

C : 

73207 

0 

I : 

70535 

0 

C: 

03614 

l 

I : 

72030 

1 

C: 

03463 

0 

35,2770 

C: 

00154 

1 

I : 

77330 

1 

C: 

03613 

0 

C: 

03552 

0 

I : 

65256 

0 

C: 

00045 

0 

IS 

53515 

0 

C: 

03536 

l 

c 


l 
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35 , 30  CO 

I : 

77725 

1 

I : 

41525 

0 

C : 

00045 

0 

I : 

77621 

1 

C: 

00015 

0 

C: 

14037 

0 

c: 

06503 

1 

I : 

41425 

1 

35,3010 

C : 

02250 

1 

I : 

50165 

0 

C: 

00037 

0 

C: 

03463 

0 

I : 

71545 

0 

I: 

56205 

0 

C: 

II  1 7 

1 

C : 

00015 

0 

35,3020 

I : 

77676 

0 

C: 

00035 

1 

1 : 

44246 

1 

C: 

06503 

1 

I: 

77240 

1 

C: 

03463 

0 

C: 

02252 

0 

I : 

53435 

0 

35,3030 

C: 

00007 

0 

I : 

41241 

0 

C: 

03544 

1 

C: 

00015 

0 

I : 

47315 

0 

C: 

00001 

0 

C: 

03  5 60 

1 

I : 

53435 

0 

35,3040 

C: 

00001 

0 

I : 

41241 

0 

C : 

03560 

1 

C: 

00017 

1 

I : 

77621 

1 

i: 

63301 

0 

C: 

00047 

1 

C : 

00007 

0 

35,3050 

I : 

50235 

0 

C: 

00001 

0 

C : 

02252 

0 

I : 

50315 

0 

C: 

00001 

0 

C: 

00007 

0 

I : 

65552 

0 

I : 

77765 

0 

35,3060 

I : 

43225 

0 

C: 

06503 

l 

C : 

02250 

1 

I : 

65525 

0 

C: 

00035 

1 

Is 

75221 

1 

C : 

06503 

1 

C: 

00037 

0 

35,3070 

I : 

77615 

0 

I : 

56205 

0 

C: 

33642 

1 

I : 

77605 

1 

I : 

41257 

1 

C: 

20176 

0 

I : 

51406 

1 

I : 

50025 

0 

35 ,3 1 CO 

C: 

03574 

1 

C: 

73105 

l 

I : 

75345 

1 

C : 

03574 

1 

I : 

77606 

1 

I : 

51135 

1 

C: 

03614 

1 

C: 

73115 

0 

35,3110 

I : 

71331 

0 

C: 

036  14 

I 

C : 

37777 

1 

I : 

77650 

1 

C: 

73153 

1 

I : 

41345 

0 

C: 

03576 

0 

C : 

00033 

1 

35,3120 

I : 

71244 

0 

C: 

73131 

0 

C : 

0 3 5 74 

1 

I : 

77605 

1 

C: 

33646 

0 

C: 

17574 

1 

I: 

70446 

0 

I : 

52076 

1 

35,3130 

C: 

73141 

1 

I : 

51545 

1 

C: 

03576 

c 

I : 

51525 

l 

C: 

00033 

1 

I: 

77625 

0 

I : 

71240 

1 

C: 

73144 

1 

35,3  140 

I : 

77646 

0 

I : 

52165 

l 

C: 

03606 

1 

C: 

73153 

1 

I : 

57545 

1 

C: 

03606 

1 

I : 

70406 

l 

C: 

03606 

l 

35,3150 

I : 

77615 

0 

I : 

77650 

1 

C : 

73154 

0 

C: 

03606 

1 

I : 

77615 

0 

C: 

02310 

1 

C: 

02  310 

1 

I : 

63375 

0 

35,3160 

C : 

03506 

1 

C: 

03500 

1 

I : 

77624 

1 

C: 

73400 

1 

I : 

77624 

1 

C: 

46423 

0 

I : 

63375 

0 

C: 

03530 

1 

35,3170 

C : 

03522 

1 

I : 

77624 

1 

C : 

73400 

1 

I : 

77624 

1 

C: 

46433 

1 

I: 

77650 

1 

C: 

72722 

0 

I : 

43345 

1 

35,3200 

C : 

03636 

1 

C: 

02310 

1 

C : 

17636 

1 

I : 

77614 

1 

C: 

013  10 

1 

C: 

73207 

0 

C: 

02250 

1 

1 : 

52145 

0 

35,32 10 

C : 

06505 

1 

C : 

03463 

0 

I : 

52375 

1 

C: 

03552 

0 

C: 

03536 

1 

I : 

41456 

0 

C: 

26302 

1 

C: 

03536 

l 

35,3220 

I : 

53435 

0 

C: 

03544 

1 

C : 

02252 

0 

I : 

77616 

0 

I : 

77220 

1 

C: 

03470 

1 

C: 

03560 

1 

I : 

65315 

0 

35,3230 

C: 

03552 

0 

C: 

03610 

0 

I : 

65325 

0 

C: 

03631 

0 

C : 

33642 

1 

I : 

46125 

0 

C: 

03467 

1 

C: 

73243 

0 

35,3240 

I : 

77745 

1 

I : 

4154  5 

0 

C: 

06505 

1 

I : 

77624 

1 

C : 

73404 

0 

C: 

27444 

0 

C: 

00007 

0 

C: 

27506 

1 

35,3250 

C: 

03444 

0 

I: 

63256 

0 

C: 

03536 

1 

I : 

41456 

0 

I : 

50235 

0 

C: 

00001 

0 

C: 

02252 

0 

I : 

77715 

l 

35,3260 

I : 

72441 

0 

C: 

0000  1 

0 

I : 

75326 

1 

I : 

43244 

1 

C: 

73266 

1 

C: 

06513 

0 

C: 

15754 

0 

C : 

03631 

0 

35 ,32  70 

I : 

77625 

0 

C: 

036  10 

0 

C : 

03452 

L 

I : 

40335 

0 

C: 

03467 

1 

C: 

00001 

0 

I: 

63325 

0 

C: 

33654 

0 

35,3300 

C : 

03536 

1 

C: 

26314 

0 

C: 

03  544 

1 

C: 

36322 

1 

C: 

22000 

L 

I : 

77624 

1 

C: 

73365 

0 

I : 

64375 

1 

35,3310 

C : 

023  5 7 

1 

C: 

00001 

0 

I : 

77772 

0 

C: 

37434 

0 

C: 

03470 

1 

I: 

45020 

1 

C : 

03463 

0 

C: 

73365 

0 

35,3320 

I : 

61375 

1 

C: 

03434 

1 

C : 

00001 

0 

I : 

77772 

0 

C: 

02357 

1 

I : 

63255 

0 

C: 

03544 

1 

C: 

03536 

1 

35,3330 

I : 

65325 

0 

C: 

03442 

0 

C : 

03631 

0 

I : 

41525 

0 

C: 

06513 

0 

I : 

77624 

1 

C : 

73404 

0 

I : 

77775 

l 

35,3340 

C: 

00001 

0 

C: 

03444 

0 

I : 

41575 

0 

C: 

02302 

l 

I : 

57435 

1 

C: 

02252 

0 

I : 

41456 

0 

I : 

76435 

1 

35,3350 

C : 

02302 

1 

I : 

77715 

1 

I : 

64315 

1 

C: 

02357 

1 

C : 

OOOCl 

0 

I : 

77772 

0 

C : 

36274 

0 

C: 

03463 

0 

35,3360 

I : 

40220 

0 

C: 

03463 

0 

C : 

00001 

0 

I : 

77650 

1 

C : 

73342 

0 

I : 

57575 

1 

C: 

02252 

0 

C: 

24007 

0 

35,3370 

C : 

03536 

1 

I : 

57456 

l 

C: 

00015 

0 

I : 

76435 

1 

C : 

02252 

0 

C: 

00001 

0 

I : 

43401 

0 

C: 

00023 

0 
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35 ,3400 

I : 

65325 

0 

C: 

06505 

l 

C : 

02310 

l 

I : 

41406 

0 

I : 

45020 

1 

C: 

03465 

0 

C: 

27447 

0 

I : 

71214 

0 

35,34  10 

C : 

01673 

1 

1 : 

43054 

l 

C: 

73414 

l 

C: 

C 1473 

0 

I : 

45545 

1 

C: 

63736 

0 

1 : 

73014 

0 

C: 

00063 

l 

35,3420 

C: 

02777 

1 

I : 

43014 

0 

C : 

04303 

0 

C : 

73425 

0 

C: 

00263 

0 

C: 

25517 

0 

I : 

77657 

0 

C: 

57176 

0 

35,3430 

C: 

25535 

0 

I : 

77657 

0 

C : 

57176 

0 

C: 

35543 

0 

C: 

27145 

1 

I: 

52175 

0 

C: 

00001 

0 

C: 

03465 

0 

35,3440 

I : 

43020 

1 

C: 

03470 

1 

C: 

01311 

0 

C: 

73446 

0 

I : 

77614 

1 

C: 

00470 

l 

I : 

77214 

0 

C : 

03274 

0 

35,3450 

C : 

03434 

1 

C: 

01236 

1 

I : 

77776 

1 

33637 

0 

04607 

1 

C: 

20471 

l 

06001 

0 

03461 

1 

35,3460 

03453 

0 

35007 

0 

54003 

0 

22007 

0 

34747 

1 

54002 

i 

50002 

0 

41433 

0 

35,3470 

50002 

0 

61235 

l 

26001 

l 

10002 

1 

13465 

1 

22000 

l 

00006 

1 

13502 

1 

35 , 3 5 C 0 

05506 

1 

C : 

00146 

1 

06060 

1 

Is 

45014 

0 

C: 

033  54 

0 

C: 

73507 

l 

C: 

73315 

1 

I : 

77775 

I 

35,3510 

C : 

02357 

1 

C: 

03656 

1 

I : 

77624 

1 

C: 

73360 

0 

I : 

77650 

1 

C: 

03470 

l 

I : 

71220 

I 

C : 

03470 

1 

35,3520 

C : 

33652 

0 

C: 

('2244 

1 

I : 

71214 

0 

C: 

01351 

1 

C: 

73544 

0 

C: 

33652 

0 

I : 

77615 

0 

C: 

33652 

0 

35,3530 

C: 

02244 

1 

I : 

77414 

0 

C : 

01742 

1 

C: 

73544 

0 

03614 

1 

03537 

0 

03545 

0 

06060 

l 

35,3540 

I : 

41575 

0 

C: 

03656 

l 

I : 

77624 

1 

C: 

42006 

1 

I : 

77776 

1 

02437 

0 

31470 

0 

55464 

1 

35,3550 

34770 

0 

0460  7 

1 

C : 

01736 

1 

33640 

0 

04607 

1 

C: 

20471 

1 

03561 

0 

03564 

0 

35,3560 

03574 

1 

30005 

1 

55162 

1 

06001 

0 

40076 

l 

74737 

1 

00006 

1 

13561 

1 

35,3570 

05355 

1 

C: 

04024 

0 

05506 

1 

C : 

00047 

1 

30005 

1 

55162 

1 

05355 

1 

C: 

04024 

0 

35.36C0 

06060 

1 

I : 

52014 

0 

C: 

00670 

0 

C: 

03464 

1 

00006 

l 

23463 

1 

33634 

0 

04607 

1 

35,3610 

C : 

20471 

1 

16001 

1 

01463 

1 

13606 

0 

37765 

1 

71010 

0 

00006 

1 

13621 

0 

35,3620 

24002 

0 

0000  2 

0 

00006 

1 

23465 

1 

55615 

0 

31615 

1 

04607 

1 

C: 

20471 

1 

35,3630 

16001 

l 

01465 

l 

13625 

1 

C: 

01445 

0 

C: 

01467 

0 

C: 

01472 

1 

C : 

01473 

0 

C: 

01521 

0 

35,3640 

C : 

04055 

0 

C: 

14441 

0 

C : 

37325 

1 

C: 

00001 

0 

C: 

20650 

0 

C: 

12525 

0 

C: 

12525 

0 

C: 

00004 

0 

35,3650 

C: 

21505 

1 

C: 

77777 

0 

C: 

61337 

1 

C: 

01252 

0 

C : 

25253 

1 

C: 

13434 

0 

C: 

16162 

0 

35017 

1 

35,3660 

05063 

1 

C: 

03240 

1 

C : 

74067 

0 

05520 

0 

C: 

00303 

1 

05355 

1 

C: 

00006 

1 

15263 

1 

35,3670 

05323 

0 

C: 

00077 

1 

13700 

1 

05506 

1 

C: 

00122 

0 

04665 

0 

C: 

62334 

l 

13705 

1 

35 , 3 7 CO 

14  7 30 

1 

54055 

0 

34741 

1 

00006 

l 

05014 

1 

05355 

1 

C: 

00003 

l 

15263 

1 

35,3710 

C4636 

0 

55163 

0 

04607 

1 

C : 

54267 

0 

10000 

0 

13733 

l 

34730 

l 

70106 

1 

35,3720 

10000 

0 

13  740 

0 

34741 

1 

70374 

0 

10000 

0 

13740 

0 

34  740 

0 

00006 

l 

35,3730 

02  030 

0 

00006 

1 

l 3740 

0 

33742 

0 

04607 

1 

C: 

20635 

0 

16001 

l 

13712 

1 

35,3740 

31163 

1 

04631 

1 

C: 

00203 

0 

C: 

03743 

l 

C: 

03744 

0 

CKSM 

65573 

0 

a 

a 

35,3750 

a 

a 

2) 

a 

a 

a 

a 

a 

35,3760 

a 

a 

a 

a 

a 

a 

a 

a 

35,3770 

a 

a 

a 

a 

a 

a 

a 

a 
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36,2000 

C: 

01056 

0 

C: 

37167 

0 

C : 

00457 

1 

C: 

03250 

0 

C: 

77777 

0 

C: 

77731 

1 

C: 

00307 

0 

C: 

11040 

0 

36,2010 

C: 

00151 

I 

C : 

05214 

0 

C: 

77777 

0 

C: 

77755 

0 

C: 

00003 

1 

C: 

00000 

1 

C: 

00026 

0 

C: 

30605 

1 

36,2020 

C : 

00013 

0 

C: 

14303 

l 

C: 

00030 

1 

C : 

0001 4 

1 

C: 

01512 

0 

12327 

1 

12611 

1 

1306) 

1 

36,2030 

15  263 

1 

12150 

0 

C: 

00000 

1 

C : 

03656 

1 

C : 

6406  7 

1 

12402 

1 

12562 

0 

12523 

0 

36 , 20 A 0 

C: 

01450 

1 

12327 

1 

12613 

0 

13046 

1 

15263 

1 

12150 

0 

C: 

04300 

0 

C: 

03667 

0 

36,2050 

C: 

74066 

1 

123  7 2 

1 

12562 

0 

12506 

1 

13122 

1 

12153 

0 

C: 

77776 

1 

C: 

02570 

l 

36,2060 

C : 

64066 

0 

12404 

1 

12566 

1 

C: 

01450 

1 

12324 

1 

12613 

0 

13046 

1 

15263 

1 

36,2070 

12150 

0 

C: 

C4526 

1 

C : 

03667 

0 

C : 

74066 

1 

12372 

l 

12562 

0 

12540 

0 

13421 

1 

36,2100 

C : 

01476 

0 

12327 

1 

12611 

1 

12776 

l 

15263 

1 

12153 

0 

C: 

04300 

0 

C : 

03656 

1 

36,21  10 

C : 

64067 

1 

12402 

1 

12562 

0 

12465 

0 

C: 

01477 

1 

12327 

1 

12611 

1 

13061 

1 

36,2120 

15263 

1 

12122 

0 

12  123 

1 

12124 

0 

12125 

1 

12402 

1 

12562 

0 

12  533 

1 

36,2130 

05355 

l 

C: 

04024 

0 

34746 

0 

55507 

0 

55510 

0 

04607 

1 

C: 

73710 

0 

00006 

1 

36,2140 

31442 

1 

53512 

1 

00004 

0 

04665 

0 

C : 

75565 

0 

00003 

1 

514  55 

l 

00005 

1 

36,2  150 

44753 

0 

04607 

1 

C: 

74663 

1 

06060 

1 

I : 

45345 

1 

C: 

03442 

0 

C : 

35142 

0 

C: 

34041 

0 

36,2 160 

C : 

61063 

0 

I : 

45014 

0 

C: 

03347 

1 

C : 

74202 

1 

C: 

27101 

1 

I : 

64375 

1 

C : 

00025 

0 

C: 

01  732 

0 

36,21 70 

I : 

77762 

l 

C: 

25724 

l 

C: 

00017 

1 

I : 

64312 

0 

C: 

01732 

0 

C: 

35716 

1 

C: 

67037 

1 

C: 

16310 

1 

36,2200 

C : 

00015 

0 

C: 

000  41 

1 

I : 

77624 

1 

C : 

27606 

1 

122  13 

1 

00006 

1 

31561 

1 

53442 

0 

36,2210 

00006 

1 

33142 

0 

21442 

0 

52155 

1 

53500 

1 

00006 

1 

43751 

0 

21500 

1 

36,2220 

00006 

1 

31500 

0 

05301 

0 

C : 

02242 

1 

C : 

74067 

0 

05355 

1 

C: 

20254 

0 

05323 

0 

36,2230 

C : 

00077 

1 

15146 

0 

44753 

0 

55162 

1 

06060 

1 

I : 

51575 

1 

C: 

03553 

1 

C: 

03472 

0 

36 , 2 240 

I : 

77776 

1 

15146 

0 

33751 

1 

05175 

1 

C: 

02300 

0 

05355 

1 

C: 

40  1 54 

0 

4^743 

1 

36,2250 

55162 

1 

51455 

1 

40006 

0 

00006 

1 

65263 

0 

33144 

0 

05  175 

1 

C: 

02270 

0 

36,2260 

35020 

0 

C5063 

1 

C : 

02265 

1 

C : 

74067 

0 

15263 

l 

04607 

l 

C: 

20451 

0 

15  146 

0 

36,2270 

35020 

0 

05063 

1 

C : 

02275 

0 

C: 

74067 

0 

15263 

1 

33753 

0 

04607 

1 

C: 

20460 

1 

36,2300 

33143 

1 

05175 

l 

C : 

02354 

1 

44753 

0 

55162 

1 

51455 

1 

30006 

1 

00006 

1 

36,23 10 

62327 

0 

554  7 7 

0 

05175 

1 

C: 

02350 

0 

36266 

0 

54001 

1 

46266 

1 

52752 

0 

36,2320 

40025 

1 

55052 

0 

51455 

1 

00001 

0 

40106 

1 

74730 

0 

26106 

1 

00006 

1 

36,2330 

51455 

1 

30010 

0 

53252 

1 

34743 

0 

54001 

1 

44743 

1 

52760 

1 

40  op  S 

l 

36,2340 

55060 

1 

00006 

1 

34746 

0 

52754 

0 

10762 

0 

15263 

1 

04626 

1 

C : 

77401 

1 

36,2350 

02656 

0 

05355 

1 

C : 

00001 

0 

15263 

l 

00006 

1 

34746 

0 

52756 

1 

33751 

1 

36,2360 

05175 

1 

C: 

02407 

0 

05520 

0 

C: 

00153 

0 

05520 

0 

C: 

00154 

1 

05520 

0 

C: 

00  122 

0 

36,2370 

514  55 

1 

0001  1 

1 

10756 

l 

12402 

1 

34727 

l 

0 50  76 

0 

C: 

02536 

0 

C: 

56067 

0 
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36,2400 

05355 

1 

C: 

00053 

1 

44751 

1 

55162 

1 

05355 

1. 

C: 

40074 

0 

15263 

1 

40103 

1 

36,24  10 

74730 

0 

26103 

1 

05323 

0 

C: 

00077 

1 

12425 

1 

31422 

1 

05205 

0 

C: 

03670 

0 

36,2420 

C: 

72067 

0 

0533  l 

0 

C: 

40033 

0 

C: 

050  14 

1 

C : 

77777 

0 

34731 

0 

70103 

1 

10000 

0 

36,2430 

12433 

0 

51455 

1 

00012 

1 

40101 

0 

74736 

0 

26101 

0 

44346 

0 

00006 

1 

36,2440 

02011 

0 

64730 

1 

00006 

L 

01011 

0 

00006 

1 

30025 

0 

53342 

1 

44726 

1 

36,2450 

70111 

1 

54111 

1 

00006 

1 

31517 

0 

53442 

0 

00006 

l 

30025 

0 

21442 

0 

36,2460 

44733 

0 

70104 

0 

54104 

0 

51455 

1 

00013 

0 

00006 

1 

33  136 

0 

53252 

1 

36,2470 

30005 

1 

55162 

1 

40105 

1 

74734 

1 

26105 

1 

00006 

1 

30025 

0 

53442 

0 

36,2500 

34746 

0 

55346 

0 

55621 

1 

34  743 

0 

55623 

0 

12540 

0 

40101 

0 

74731 

1 

36,25  10 

00006 

l 

12540 

0 

31422 

1 

05205 

0 

C: 

03670 

0 

C: 

72067 

0 

05331 

0 

C: 

40033 

0 

36,2520 

C: 

05014 

1 

C: 

77777 

0 

12540 

0 

35006 

1 

54003 

0 

31412 

1 

55536 

1 

3141 3 

0 

36,2530 

55540 

0 

35007 

0 

54003 

0 

30005 

I 

55162 

1 

00006 

l 

33140 

1 

53252 

1 

36,2540 

44735 

0 

70111 

1 

54111 

1 

34734 

0 

70076 

1 

10000 

0 

13523 

1 

05520 

0 

36,2550 

C : 

00153 

0 

05520 

0 

C: 

00154 

1 

05520 

0 

C: 

00161 

1 

05355 

l 

C: 

40054 

1 

05223 

1 

36,2560 

C : 

00062 

0 

-2652 

l 

00006 

1 

34746 

0 

52760 

1 

15263 

1 

04626 

l 

C: 

73657 

1 

36,2570 

05506 

1 

C: 

00161 

1 

05506 

1 

C : 

00175 

1 

34742 

1 

55515 

0 

10764 

0 

12  602 

0 

36,2600 

04607 

1 

C: 

74662 

0 

44  756 

0 

55162 

l 

05355 

1 

C: 

00004 

0 

15146 

0 

51455 

1 

36,2610 

00002 

0 

30005 

l 

12614 

1 

44753 

0 

55  162 

1 

05520 

0 

C: 

00161 

1 

05520 

0 

36,2620 

C: 

00175 

1 

15146 

0 

05355 

1 

C: 

00003 

1 

00004 

0 

06050 

1 

C : 

73670 

l 

04665 

0 

36,2630 

C : 

75562 

1 

05506 

1 

C : 

00312 

1 

02644 

0 

C: 

00310 

0 

05506 

1 

C: 

00314 

1 

34  744 

1 

36,2640 

00004 

0 

05175 

1 

C: 

02354 

1 

15146 

0 

30002 

0 

05524 

1 

40000 

0 

00006 

1 

36,2650 

06001 

0 

15513 

1 

44737 

1 

70111 

1 

54111 

1 

00002 

0 

40111 

1 

74737 

l 

36,2660 

26111 

1 

00002 

0 

34746 

0 

55162 

l 

04636 

0 

550  60 

1 

00006 

1 

31442 

1 

36,2670 

52155 

1 

00006 

l 

40025 

1 

20155 

1 

07300 

0 

34770 

0 

54002 

1 

52155 

1 

36,2700 

74337 

0 

00006 

1 

10002 

1 

30001 

0 

64743 

0 

00004 

0 

05  175 

1 

C: 

02716 

0 

36,2710 

05331 

0 

C: 

40036 

0 

C : 

05024 

1 

C: 

13000 

0 

31060 

0 

0463  L 

1 

40025 

1 

55064 

0 

36,2720 

11162 

1 

127  S2 

1 

12723 

1 

37736 

1 

05063 

1 

C: 

02736 

1 

C: 

74067 

0 

05223 

1 

36,2730 

C: 

00144 

0 

12716 

l 

00006 

1 

34  746 

0 

52764 

0 

15263 

1 

00006 

1 

41442 

0 

36,2740 

53454 

I 

00006 

1 

30025 

0 

21454 

1 

00004 

0 

11162 

1 

15146 

0 

15146 

0 

36,2750 

40000 

0 

00003 

1 

50000 

1 

13010 

1 

44746 

1 

55066 

l 

30370 

0 

04607 

1 

36,2760 

C : 

20466 

1 

13012 

0 

12607 

0 

12622 

1 

33  145 

1 

04607 

1 

C: 

20452 

0 

13012 

0 

36,2770 

13027 

0 

12764 

1 

51455 

1 

30000 

1 

04607 

1 

C: 

20460 

1 

44734 

1 

55066 

1 
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36.30C0 

51A55 

1 

30000 

1 

04607 

1 

C: 

20466 

1 

13012 

0 

13040 

1 

13043 

1 

0460  7 

1 

36,3010 

C: 

20A5L 

0 

15146 

0 

03014 

L 

16001 

1 

00004 

0 

00006 

1 

23141 

l 

02652 

1 

36,3020 

06050 

1 

C: 

74350 

1 

05355 

1 

C: 

00001 

0 

30005 

1 

55162 

1 

01141 

1 

05355 

1 

36,3030 

C: 

CA02A 

0 

34746 

0 

55162 

1 

35  114 

1 

05076 

0 

C: 

03022 

l 

C : 

64065 

0 

15146 

0 

36 , 30  AO 

C5506 

1 

C : 

00154 

1 

13101 

0 

00004 

0 

51455 

1 

00003 

X 

34635 

0 

05076 

0 

36,3050 

C: 

03222 

0 

C: 

74067 

0 

00004 

0 

04665 

0 

C: 

40205 

1 

03014 

1 

05355 

l 

C: 

00134 

1 

36,3060 

151A6 

0 

35020 

0 

05076 

0 

C : 

03526 

0 

C: 

70067 

1 

05520 

0 

C: 

00175 

1 

00004 

0 

36,3070 

0A665 

0 

C: 

40205 

1 

03014 

1 

05355 

1 

C: 

07024 

0 

C: 

17000 

1 

C: 

03526 

0 

C: 

70067 

1 

36,3100 

151A6 

0 

40103 

1 

74730 

0 

10000 

0 

13115 

0 

34744 

1 

00004 

0 

05  175 

1 

36,3110 

C : 

02  A3  3 

1 

34351 

1 

54001 

1 

40000 

0 

52760 

i 

44753 

0 

55  162 

l 

15  146 

0 

36,3120 

05571 

1 

C: 

01706 

1 

34777 

1 

04607 

1 

C: 

20471 

i 

16001 

1 

13130 

l 

13122 

l 

36,3130 

5 1 A 55 

1 

000  1 A 

1 

C : 

02040 

1 

C : 

02050 

0 

C: 

02  063 

0 

C: 

02425 

0 

C: 

62067 

1 

C: 

03375 

0 

36 , 3 1 AO 

C : 

70067 

1 

C: 

00000 

l 

C : 

05656 

1 

C : 

046  7 2 

0 

C: 

00752 

l 

C: 

01475 

0 

05355 

l 

C: 

04024 

0 

36,3 1 50 

33132 

1 

5545  5 

0 

30106 

0 

74730 

0 

10000 

0 

13120 

0 

04607 

l 

C: 

33757 

1 

36,3160 

AO  111 

1 

74730 

0 

10000 

0 

32022 

0 

62023 

1 

55250 

0 

34742 

l 

55515 

0 

36,31 70 

06060 

1 

I : 

43175 

0 

C: 

34001 

1 

C: 

02663 

0 

C: 

03735 

0 

IS 

77735 

0 

C : 

26002 

1 

I : 

70476 

0 

36,3200 

C : 

377A3 

0 

C : 

56246 

l 

I : 

77624 

1 

C: 

56413 

1 

I : 

77776 

1 

00004 

0 

04665 

0 

C: 

40143 

0 

36,32  10 

03212 

0 

12130 

0 

00006 

1 

23141 

L 

00003 

1 

05520 

0 

C: 

00124 

0 

04607 

l 

36,3220 

C: 

5A125 

0 

01141 

1 

30005 

1 

55162 

1 

00006 

1 

32060 

0 

53252 

1 

33752 

1 

36,3230 

CA607 

l 

C: 

20647 

0 

03255 

0 

13240 

0 

03222 

0 

05355 

1 

C: 

00014 

1 

15146 

0 

36 , 3 2 A 0 

OOOOA 

0 

04665 

0 

C: 

40154 

0 

04665 

0 

C: 

40141 

1 

00003 

1 

33753 

0 

04607 

1 

36,3250 

C : 

20A55 

l 

03255 

0 

13255 

1 

03246 

1 

13235 

1 

00006 

1 

32  1 10 

0 

53252 

1 

36,3260 

3A7A6 

0 

55462 

1 

3 0005 

1 

55162 

1 

00004 

0 

04665 

0 

C : 

40115 

0 

00003 

1 

36,3270 

06001 

0 

33133 

0 

55455 

0 

04607 

1 

C : 

33757 

1 

34746 

0 

55507 

0 

55510 

0 

36,3300 

35010 

0 

55162 

1 

05076 

0 

C: 

03366 

1 

C: 

74067 

0 

05331 

0 

C : 

00116 

1 

C: 

04024 

0 

36,33  10 

06060 

1 

I : 

7 1 2 1 A 

0 

C: 

00700 

0 

C: 

75317 

0 

C: 

34017 

0 

C: 

37735 

1 

C : 

75322 

0 

I : 

77745 

1 

36,3320 

C : 

3A02  1 

0 

C : 

03  73  5 

0 

I : 

77624 

1 

C: 

56246 

1 

I : 

77624 

1 

C: 

56413 

1 

I : 

77776 

1 

00004 

0 

36,3330 

0A665 

0 

C: 

40154 

0 

04665 

0 

C : 

40141 

1 

032  12 

0 

06060 

1 

I : 

45175 

0 

C: 

03701 

1 

36 , 3 3 AO 

C: 

57271 

1 

C: 

03502 

0 

I : 

77776 

1 

33753 

0 

04607 

1 

C: 

20441 

1 

05331 

0 

C: 

00076 

0 

36,3350 

C : 

0A02A 

0 

12137 

1 

34770 

0 

04607 

1 

C: 

01736 

1 

31162 

0 

64743 

0 

00006 

l 

36,3360 

13352 

1 

33753 

0 

04607 

l 

C: 

20441 

1 

35010 

0 

05137 

1 

31162 

0 

00006 

l 

36,3370 

651A6 

1 

00006 

l 

41442 

0 

53454 

1 

00006 

1 

30025 

0 

21454 

l 

06060 

1 
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36,3400 

1 : 

45175 

0 

C: 

03701 

1 

C : 

57271 

1 

C: 

03502 

0 

I : 

77776 

l 

34770 

0 

04607 

l 

C: 

01736 

l 

36,34  10 

13366 

0 

C5355 

1 

C : 

04024 

0 

33134 

l 

55455 

0 

40106 

1 

74730 

0 

' ' 

0 

36,3420 

C3120 

1 

04607 

1 

C : 

33757 

1 

36000 

l 

55250 

0 

34742 

1 

55515 

0 

06060 

l 

36,3430 

I : 

77214 

0 

C: 

01072 

0 

C: 

34007 

1 

C: 

03735 

0 

I : 

52135 

l 

C: 

26001 

1 

C : 

75  177 

l 

04607 

l 

36,3440 

C : 

33757 

1 

06060 

1 

I : 

77624 

1 

C: 

42760 

0 

30155 

0 

05175 

1 

C: 

03450 

0 

15146 

0 

36,3450 

05355 

1 

C: 

05014 

1 

C: 

77777 

0 

00006 

1 

33756 

0 

53252 

1 

34727 

1 

05076 

0 

36,3460 

C: 

03514 

1 

C : 

74  06  7 

0 

12  344 

1 

06060 

1 

I : 

533  75 

0 

C: 

03502 

0 

C: 

03527 

1 

C: 

03656 

1 

36,3470 

1 : 

77624 

1 

C: 

5 727  1 

1 

C: 

03623 

0 

I : 

77776 

1 

05355 

1 

C: 

10035 

0 

06060 

1 

I: 

77775 

1 

36,3500 

C: 

03656 

1 

C: 

03502 

0 

I : 

77776 

1 

04626 

1 

C : 

65656 

1 

33754 

1 

04607 

1 

C: 

20647 

0 

36,3510 

06001 

0 

060  1 

0 

13514 

0 

13235 

1 

06060 

1 

I: 

77775 

1 

C: 

06505 

1 

C: 

03623 

0 

36,3520 

C: 

03502 

0 

I : 

77776 

1 

03505 

1 

31517 

0 

03736 

0 

05175 

1 

C : 

03543 

0 

05520 

0 

36,3530 

C : 

00153 

0 

05520 

0 

C : 

00154 

1 

05520 

0 

C : 

00044 

1 

05355 

1 

C : 

40114 

1 

05223 

1 

36,3540 

C : 

00062 

0 

02652 

1 

05263 

0 

04665 

0 

C: 

75546 

1 

05263 

0 

34635 

0 

05C76 

0 

36,3550 

C: 

03222 

0 

C: 

7406  7 

0 

34744 

1 

05205 

0 

C: 

03607 

0 

C: 

74066 

1 

40103 

1 

74736 

0 

36,3560 

26103 

1 

02652 

1 

00006 

1 

30025 

0 

53342 

1 

44736 

0 

70101 

0 

54101 

0 

36,3570 

44346 

0 

00006 

1 

02011 

0 

64727 

1 

00006 

1 

01011 

0 

40111 

1 

74727 

0 

36 , 3 6 C 0 

26111 

l 

44730 

0 

54055 

0 

34741 

1 

00006 

1 

05014 

1 

04700 

1 

04  665 

0 

36,3610 

C : 

40205 

l 

C5263 

0 

I : 

45020 

1 

C : 

03665 

1 

C: 

56447 

0 

I: 

43014 

0 

C: 

01307 

1 

C: 

03665 

l 

36,3620 

C : 

03705 

0 

C: 

75634 

1 

I : 

45345 

1 

C: 

01234 

0 

C : 

03763 

0 

I : 

50025 

0 

C: 

03432 

1 

C: 

75657 

1 

36,3630 

I : 

43345 

1 

C: 

03763 

0 

C : 

03432 

1 

C: 

03765 

0 

I : 

77776 

1 

10754 

0 

13664 

1 

34  730 

1 

36,3640 

00004 

0 

C5076 

0 

C: 

02711 

1 

C: 

56067 

0 

05331 

0 

C: 

00172 

0 

C: 

10035 

0 

06060 

1 

36,3650 

I : 

77745 

1 

C: 

03765 

0 

C: 

27763 

0 

C: 

01220 

0 

C: 

26314 

0 

C: 

01226 

0 

C : 

0 2 3 2 2 

0 

I : 

45345 

1 

36,3660 

C : 

03631 

0 

C: 

01234 

0 

C : 

37452 

0 

C : 

03665 

1 

06060 

1 

I : 

776  5 J 

1 

C: 

03665 

l 

06060 

1 

36,3670 

I : 

77624 

1 

C: 

75612 

0 

I : 

77776 

1 

00004 

0 

35007 

0 

54r  03 

0 

40076 

1 

74734 

I 

36,3700 

10000 

0 

137G6 

1 

40103 

1 

74736 

0 

10000 

0 

13710 

0 

04626 

1 

C: 

65656 

1 

36,37  10 

04665 

0 

C: 

40166 

1 

05520 

c 

C: 

00044 

l 

05506 

1 

C: 

00161 

1 

00004 

0 

00006 

1 

36,3720 

31442 

1 

52135 

1 

00006 

1 

40025 

1 

20155 

1 

07300 

0 

30  155 

0 

03736 

0 

36,3730 

05  175 

1 

C: 

03543 

0 

05331 

0 

C : 

40114 

1 

C : 

00035 

1 

15146 

0 

10000 

0 

13742 

l 

36,3740 

13742 

1 

34746 

0 

64  7 44 

1 

56001 

0 

34746 

0 

53517 

1 

31517 

0 

00002 

0 

36,3750 

C: 

00000 

1 

C: 

00764 

1 

C : 

04050 

0 

C: 

04125 

0 

C: 

04123 

0 

C: 

03463 

0 

C: 

74067 

0 

C: 

03757 

1 

36,3760 

C : 

03760 

0 

CKSM 

5731  1 

0 

a 

a 

a 

a 

a 

a 

36,3770 

a 

a 

a 

a 

a 

a 

a 

a 
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OCTAL  LISTING  FOR  PARAGRAPH  # 214,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
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37,2000 

C: 

07623 

1 

C: 

26552 

1 

05313 

0 

C: 

00007 

0 

02325 

1 

34  746 

0 

55414 

0 

55440 

1 

37,2010 

55441 

0 

55576 

0 

34352 

1 

55571 

1 

32476 

0 

02367 

1 

34727 

1 

55664 

0 

37,2020 

06060 

1 

I : 

6254  5 

1 

C: 

02403 

1 

C: 

15046 

l 

C : 

02401 

0 

I : 

77434 

1 

C: 

21624 

1 

56154 

1 

37,2030 

55044 

1 

32473 

0 

04607 

1 

C : 

204  71 

1 

02270 

0 

02037 

1 

02031 

1 

06060 

1 

37,2040 

I : 

47135 

0 

C: 

01045 

1 

C : 

21606 

1 

C: 

02401 

0 

I : 

60535 

1 

C: 

01046 

1 

C : 

02403 

1 

I : 

57546 

1 

37,2050 

I : 

77752 

1 

C : 

16437 

0 

C: 

02403 

1 

I : 

72556 

l 

C: 

16435 

1 

C: 

02401 

0 

I : 

73406 

1 

C: 

02675 

1 

37,2060 

C : 

16705 

1 

I : 

77746 

1 

C : 

02677 

0 

Ii 

77676 

0 

C : 

36703 

0 

C: 

47336 

1 

I : 

77776 

1 

04607 

1 

37,2070 

C: 

16765 

1 

34727 

1 

70077 

0 

00006 

1 

12076 

0 

25414 

1 

05520 

0 

C: 

00056 

1 

37,2 1 CO 

02315 

1 

11414 

0 

02126 

0 

02320 

1 

00006 

1 

31575 

1 

05301 

0 

C: 

02113 

0 

37,2110 

C: 

76065 

0 

32  116 

0 

05124 

0 

32116 

0 

05130 

0 

05263 

0 

C: 

76500 

0 

34746 

0 

37,2120 

55047 

1 

315  4 

1 

55050 

1 

51416 

0 

5542C 

1 

02457 

0 

51414 

1 

02130 

1 

37,2130 

02447 

1 

34352 

1 

55476 

1 

32474 

1 

55412 

0 

34744 

1 

55537 

0 

34  746 

0 

37,2 140 

51415 

0 

54037 

1 

55472 

0 

02332 

1 

00004 

0 

34743 

0 

05175 

1 

C: 

02151 

0 

37,2150 

05146 

1 

00006 

l 

27412 

0 

31412 

1 

00006 

l 

62161 

0 

34733 

1 

05175 

1 

37,2160 

C : 

0215  1 

0 

34727 

1 

05076 

0 

C : 

02166 

l 

C : 

76065 

0 

05263 

0 

51414 

1 

02170 

0 

37,2 1 70 

02447 

1 

31412 

1 

00006 

1 

62175 

0 

05  146 

1 

34747 

1 

55537 

0 

02332 

1 

37,2200 

11473 

1 

02205 

1 

05701 

1 

41476 

1 

55476 

1 

00006 

1 

41473 

1 

21477 

0 

37,22  10 

06060 

l 

I : 

45345 

1 

C : 

02501 

1 

C: 

02475 

0 

I : 

45044 

0 

C: 

762  17 

1 

C: 

76275 

0 

IS 

56325 

0 

37,2220 

C : 

02477 

1 

I : 

47075 

0 

C: 

37056 

0 

C: 

21622 

1 

C: 

01050 

0 

I : 

77776 

1 

11414 

0 

02301 

1 

37,2230 

02457 

0 

32471 

1 

55412 

0 

51416 

0 

41417 

0 

55442 

0 

11415 

1 

12245 

1 

37,2240 

44740 

i 

27565 

1 

34740 

0 

27567 

0 

12251 

L 

44740 

1 

27565 

1 

34740 

0 

37,2250 

27563 

i 

02447 

1 

34  746 

0 

55404 

1 

55405 

0 

34724 

1 

55440 

1 

55441 

0 

37,2260 

30032 

0 

55413 

1 

02500 

0 

31502 

1 

55050 

1 

34  746 

0 

55047 

1 

02457 

0 

37,2270 

C 5 52  0 

0 

C : 

00007 

0 

44746 

1 

05316 

0 

05474 

0 

I : 

43215 

0 

C : 

06513 

0 

C: 

37064 

1 

37,2300 

I : 

77616 

0 

6 

1 

23571 

0 

34746 

0 

54321 

0 

54322 

0 

54323 

1 

04607 

l 

37,23  10 

C : 

16765 

l 

04607 

l 

C : 

17735 

0 

03047 

1 

01571 

0 

00006 

1 

23571 

0 

02311 

0 

37,2320 

00006 

1 

23571 

0 

04607 

1 

C: 

17175 

l 

02311 

0 

00006 

1 

23571 

0 

04607 

1 

37,2330 

C: 

16701 

0 

0231  1 

0 

00006 

1 

23417 

1 

02342 

0 

00003 

1 

30067 

0 

00006 

l 

37,2340 

62346 

1 

05113 

1 

00004 

0 

51415 

0 

40037 

1 

55571 

1 

00004 

0 

51415 

0 

37,2350 

30037 

0 

61571 

0 

00006 

1 

12335 

1 

51415 

0 

30037 

0 

51537 

1 

55472 

0 

37,2360 

04102 

0 

5153  7 

1 

55473 

1 

51537 

1 

23474 

1 

00003 

1 

01417 

1 

54001 

1 

37,2370 

12372 

1 

55571 

1 

34  746 

0 

50001 

0 

54000 

0 

24001 

0 

11571 

1 

12371 

1 
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OCTAL  LISTING  FOR  PARAGRAPH  # 215,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "a"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WOROS)  OR  »C"  (CONSTANTS) 


37,2400 

00002 

0 

I : 

65345 

0 

C: 

3 7057 

1 

C: 

02403 

1 

I : 

57546 

1 

i: 

73525 

1 

C: 

02403 

1 

I : 

74266 

0 

37,2410 

C : 

36001 

0 

C: 

02405 

1 

I : 

77634 

0 

C: 

21603 

1 

C: 

26433 

l 

C: 

37057 

1 

C: 

02564 

l 

I : 

77616 

0 

37,2420 

I : 

47020 

0 

C: 

00051 

0 

C : 

21603 

1 

C: 

02431 

0 

I : 

51025 

l 

C: 

02433 

l 

C : 

76431 

0 

I : 

77624 

1 

37,2430 

C : 

76275 

0 

I : 

74261 

1 

C : 

20212 

1 

C: 

02405 

1 

I : 

53321 

1 

C: 

02643 

1 

C: 

02564 

1 

C: 

16564 

1 

37,2440 

C: 

02431 

0 

C : 

02433 

1 

I : 

47170 

1 

C : 

02563 

0 

C: 

21715 

l 

I: 

77650 

1 

C: 

00051 

0 

00006 

1 

37,2450 

23420 

0 

06060 

1 

I : 

77624 

1 

C : 

76420 

0 

I : 

77776 

1 

02315 

1 

01420 

0 

00006 

l 

37,2460 

23417 

l 

31416 

0 

55051 

0 

32472 

1 

04607 

1 

C: 

20471 

1 

02270 

0 

01417 

1 

37,2470 

12461 

l 

C: 

07626 

1 

C : 

01542 

0 

C: 

01451 

0 

C: 

00072 

l 

C: 

02737 

0 

C: 

01664 

1 

C: 

01642 

0 

37,2500 

00004 

0 

31572 

0 

05175 

1 

C: 

02536 

0 

34746 

0 

54037 

1 

54040 

1 

54041 

0 

37,2510 

00003 

1 

33C  75 

0 

55571 

1 

33076 

0 

02367 

1 

06060 

1 

T : 

77735 

0 

C: 

37057 
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40,3640 

03621 

1 

34346 

l 

05063 

1 

C 

: 03734 

l 

C 

: 62102 

0 

05263 

0 

56115 

1 

5501  1 

l 

40,3650 

00004 

0 

34733 

1 

00006 

1 

05011 

1 

33735 

0 

71035 

1 

64  726 

0 

55035 

1 

40,3660 

45017 

0 

71300 

1 

65017 

1 

55300 

l 

44733 

0 

71277 

0 

64733 

1 

55277 

0 

40,3670 

43734 

0 

70110 

0 

64736 

l 

54110 

0 

06040 

0 

44733 

0 

00006 

l 

03  Cl  3 

0 

40,3  7C0 

43733 

1 

00006 

l 

03011 

1 

34354 

1 

54  117 

1 

00004 

0 

50117 

0 

11022 

1 

40,3710 

64  744 

1 

03716 

1 

647  44 

1 

40000 

0 

73736 

1 

03721 

0 

40000 

0 

73736 

1 

40,3720 

40000 

0 

50117 

0 

55022 

1 

00003 

1 

10117 

1 

03704 

1 

34  746 

0 

54375 

1 

40,3730 

54376 

1 

55357 

0 

05146 

1 

C 

: 00104 

1 

C 

: 10330 

1 

C:  00053 

1 

C: 

73777 

1 

C : 

26501 

1 

40,3740 

C: 

07463 

1 

35006 

1 

05076 

0 

C 

: 03113 

l 

c 

: 76067 

l 

05223 

l 

C : 

00144 

0 

31043 

l 

40,3750 

74731 

1 

00006 

l 

13  745 

0 

35010 

0 

05063 

l 

C:  03761 

1 

C : 

60107 

l 

15263 

1 

40,3760 

C: 

04066 

0 

33760 

0 

04607 

1 

C 

: 20323 

1 

05565 

1 

05565 

1 

13761 

0 

C: 

03767 

l 

40,37  70 

C : 

: 03770 

1 CKSM 

57770 

0 

3 

a 

a 

a 

a 

a 
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41,2000 

35010 

0 

05076 

0 

C: 

02000 

0 

C: 

60104 

1 

34731 

0 

05137 

1 

32017 

0 

04607 

l 

41,2010 

C: 

20345 

1 

05565 

l 

05565 

1 

05565 

1 

34742 

l 

05466 

0 

05146 

1 

C: 

04070 

1 

41 ,2020 

03613 

0 

03045 

0 

34746 

0 

55014 

1 

342  10 

0 

54136 

1 

11012 

1 

02062 

l 

41,2030 

02062 

I 

02032 

1 

32060 

0 

61012 

0 

00006 

1 

12047 

l 

36266 

0 

70777 

1 

4 1,2040 

10000 

0 

02043 

1 

02047 

0 

10776 

0 

02053 

0 

02053 

0 

02047 

0 

41012 

l 

41,2050 

55012 

1 

04424 

1 

01012 

0 

34746 

0 

54154 

0 

04607 

1 

C: 

602  54 

1 

02047 

0 

41 ,2060 

C : 

03471 

0 

C: 

00034 

0 

34  746 

0 

54777 

1 

44351 

0 

54  776 

0 

41000 

l 

55040 

0 

41 ,2070 

62061 

1 

00006 

1 

62160 

1 

00006 

l 

32141 

l 

52006 

0 

50140 

1 

02077 

0 

41,2100 

02102 

0 

02246 

0 

10146 

0 

02156 

1 

02400 

l 

02111 

l 

25016 

1 

04302 

l 

41,2110 

02145 

0 

34726 

0 

55014 

1 

44210 

1 

60136 

0 

00006 

1 

12  120 

1 

02143 

0 

41,2120 

02336 

0 

10777 

1 

06020 

0 

44351 

0 

54776 

0 

11041 

l 

02131 

0 

02  132 

0 

41,2130 

02131 

0 

C4420 

0 

57004 

1 

04274 

1 

00006 

l 

32141 

1 

52006 

0 

02160 

l 

41,2140 

C: 

C21  10 

0 

C: 

64101 

0 

C: 

77772 

0 

30156 

0 

04274 

l 

44747 

0 

61000 

0 

00006 

1 

41,2150 

12160 

0 

34312 

0 

54776 

c 

31016 

l 

03435 

0 

02160 

l 

64744 

1 

04274 

1 

41,2160 

42172 

0 

( l<  ) 

0 

10000 

0 

64744 

1 

02  166 

1 

02173 

0 

54154 

0 

04450 

1 

41,2170 

C4626 

l 

C: 

66000 

l 

C: 

00050 

1 

51000 

0 

32176 

0 

04631 

1 

C : 

62400 

1 

C: 

62414 

1 

41,2200 

C: 

62422 

l 

C : 

62427 

1 

C: 

62407 

0 

C : 

62402 

0 

C: 

62552 

1 

C: 

61020 

1 

C : 

62400 

l 

C : 

62400 

l 

41,2210 

C: 

61447 

1 

C: 

63302 

0 

C: 

63302 

0 

C: 

63302 

0 

C: 

63302 

0 

C: 

63302 

0 

C: 

63302 

0 

C: 

63302 

0 

41,2220 

C : 

62400 

1 

C: 

62400 

1 

C : 

62400 

1 

C: 

63002 

0 

C: 

63013 

0 

C: 

63030 

l 

C : 

62753 

l 

C: 

6264  7 

0 

41,2230 

C: 

62400 

1 

C: 

63425 

l 

C: 

62400 

1 

C : 

62400 

I 

C : 

63526 

0 

C: 

63557 

0 

C: 

61514 

0 

C: 

61471 

l 

41,2240 

C : 

61477 

1 

C: 

63662 

0 

C: 

12454 

1 

C: 

63470 

l 

C : 

62400 

1 

C: 

62400 

l 

10146 

0 

02253 

1 

41 ,2260 

02400 

1 

02253 

1 

02253 

1 

46263 

1 

61000 

0 

00006 

l 

62260 

1 

0 2 160 

1 

41,2260 

34  74  3 

0 

54117 

1 

62305 

0 

54145 

0 

50117 

0 

30150 

0 

54122 

1 

03104 

1 

41 ,2270 

>•  • » 

0 

02273 

0 

24122 

0 

30122 

0 

74347 

l 

04304 

1 

50000 

1 

30000 

l 

41 ,2300 

50145 

1 

56000 

l 

10117. 

l 

02261 

0 

02  160 

l 

00125 

1 

50000 

1 

12310 

0 

41,2310 

00002 

0 

00002 

0 

00002 

0 

00002 

0 

12330 

l 

12330 

1 

00002 

0 

12330 

1 

41,2320 

00002 

0 

00002 

0 

12330 

1 

00002 

0 

00002 

0 

00002 

0 

00002 

0 

00002 

0 

41,2330 

50002 

0 

00001 

0 

34310 

1 

12337 

0 

34311 

0 

12337 

0 

34312 

0 

54  776 

0 

41,2340 

40002 

1 

550  12 

1 

04607 

l 

C : 

60525 

0 

04420 

0 

00136 

0 

55001 

0 

56002 

0 

41,2350 

54117 

1 

00006 

1 

3 2 141 

1 

52006 

0 

1"  146 

0 

64744 

1 

1 2 3 6 1 

0 

12362 

0 

41  ,2360 

12362 

0 

042  74 

1 

34352 

1 . 

54776 

0 

31001 

1 

12374 

1 

55000 

1 

56002 

0 

41 ,23.70 

54  117 

1 

34351 

1 

54  776 

0 

31000 

n 

04626 

l 

C: 

61346 

1 

00117 

0 

06020 

0 
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41 ,2400 

04626 

1 

C: 

61447 

l 

44743 

1 

02453 

l 

50145 

1 

40002 

1 

56132 

1 

44  744 

0 

41,24  10 

02453 

1 

5014  5 

1 

40001 

1 

56131 

l 

02472 

l 

02515 

l 

50145 

1 

40000 

0 

41,2420 

56130 

0 

02434 

0 

44  744 

0 

02466 

l 

50145 

1 

40001 

1 

02420 

0 

44  743 

1 

41,2430 

02466 

1 

5014  5 

1 

40002 

I 

02420 

0 

44743 

l 

61000 

0 

10000 

0 

02442 

l 

41,2440 

00136 

0 

02442 

l 

54122 

1 

50000 

1 

343  10 

1 

54776 

0 

5012? 

0 

40130 

1 

41,2450 

03435 

0 

56122 

0 

02436 

1 

54123 

0 

22002 

0 

02544 

0 

04322 

0 

76266 

1 

41,2460 

60123 

l 

10000 

0 

00001 

0 

05701 

1 

02400 

l 

00001 

0 

54123 

0 

22002 

0 

41  ,24  70 

02472 

1 

02455 

1 

00006 

1 

22156 

0 

02544 

0 

74727 

0 

10000 

0 

02400 

1 

41,2500 

00156 

0 

22002 

0 

02544 

0 

74727 

0 

10000 

0 

06020 

0 

00001 

0 

22002 

0 

41,2510 

02544 

0 

10000 

0 

00001 

0 

00001 

0 

02400 

l 

22002 

0 

30  146 

1 

64  744 

1 

41,2520 

00006 

l 

12533 

l 

50140 

1 

02523 

1 

02526 

l 

00001 

0 

03076 

0 

02306 

0 

41,2530 

00001 

0 

2414  5 

1 

00001 

0 

31016 

1 

74775 

1 

00006 

1 

50000 

1 

00000 

1 

41,2540 

40000 

0 

12420 

l 

C: 

00147 

0 

C: 

00146 

1 

50140 

1 

32541 

0 

50000 

1 

30000 

1 

41 ,2550 

74341 

1 

00002 

0 

02  544 

0 

04322 

0 

76266 

1 

54117 

1 

54122 

1 

60  145 

l 

41,2560 

50000 

l 

40000 

0 

50122 

0 

57002 

1 

10  12? 

l 

02556 

0 

34  746 

0 

54155 

1 

41  ,25  70 

54156 

l 

50117 

0 

34310 

1 

54776 

0 

50117 

0 

41002 

0 

54154 

0 

03117 

0 

41,2600 

54123 

0 

00006 

l 

32614 

0 

52006 

0 

50140 

1 

02605 

0 

02611 

0 

03  104 

1 

41  ,261C 

02624 

0 

03076 

0 

12  >24 

0 

C: 

02146 

0 

C : 

64101 

0 

04607 

1 

C : 

61255 

1 

10117 

l 

41,2620 

02622 

0 

00136 

0 

54117 

1 

02566 

0 

50000 

1 

32627 

0 

04631 

1 

C : 

61445 

0 

41,2630 

C: 

62615 

1 

C: 

60604 

0 

C: 

60726 

1 

C: 

60737 

1 

C : 

60744 

0 

C: 

60624 

1 

C: 

60746 

1 

C: 

65241 

0 

41,2640 

C: 

65314 

1 

C: 

60  74  4 

0 

r. : 

60  733 

0 

C: 

60  761 

1 

C: 

60612 

l 

C: 

60634 

0 

C : 

60651 

0 

44743 

1 

41,2650 

02453 

1 

02507 

1 

33G5o 

1 

02366 

0 

02332 

l 

33u57 

0 

02366 

0 

02  334 

l 

41,2660 

33060 

1 

02366 

0 

02336 

0 

46263 

1 

03061 

0 

00006 

l 

32141 

1 

52006 

0 

41,2670 

34  746 

0 

03145 

1 

50145 

1 

54000 

0 

34744 

l 

03145 

l 

50  145 

1 

54001 

1 

41,2700 

34  74  3 

0 

03145 

l 

50145 

1 

54002 

l 

44750 

0 

61001 

1 

00006 

1 

12711 

0 

41,2710 

03045 

0 

00004 

0 

44754 

1 

61002 

1 

00006 

l 

62725 

0 

31002 

l 

04275 

0 

41,2720 

50145 

l 

30000 

l 

54001 

1 

34  744 

1 

55002 

0 

64352 

1 

00006 

1 

12751 

1 

41,2730 

31004 

l 

00006 

1 

62  740 

0 

31003 

0 

00006 

1 

51002 

l 

05000 

1 

12744 

0 

41,2740 

41003 

l 

00006 

1 

51002 

1 

03000 

l 

11002 

0 

100  00 

0 

12751 

1 

50145 

1 

41,2750 

22000 

1 

0000  3 

1 

03045 

0 

44744 

0 

02453 

l 

02507 

l 

33056 

1 

02366 

0 

41  ,2  760 

02332 

1 

33C57 

0 

02366 

0 

02334 

1 

44  747 

0 

03061 

0 

00006 

1 

32141 

1 

41,2770 

52006 

0 

34746 

0 

03145 

1 

50  145 

1 

54000 

0 

34744 

l 

03145 

1 

50145 

1 
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41,3000 

59001 

1 

03095 

0 

02332 

1 

00006 

1 

32141 

1 

52006 

0 

34746 

0 

03145 

l 

91,3010 

50195 

l 

59000 

0 

03045 

0 

44744 

0 

02453 

1 

34726 

0 

55014 

l 

02334 

1 

91  ,3  C2C 

00006 

1 

32191 

l 

52006 

0 

34744 

1 

03145 

1 

50145 

1 

54001 

l 

03045 

0 

91,3030 

99  793 

I 

02953 

1 

34  726 

0 

55014 

l 

02336 

0 

00006 

l 

32141 

1 

52006 

0 

9 1,3090 

39  793 

0 

03195 

1 

50145 

1 

54002 

1 

03045 

0 

34746 

0 

54777 

1 

44  746 

l 

91 , 3 C SO 

6501  3 

0 

09950 

1 

44351 

0 

54776 

0 

04626 

l 

c: 

61605 

0 

C : 

00025 

0 

C:  00C26 

0 

91,3060 

C : 

00027 

l 

59117 

1 

40777 

1 

54021 

0 

40021 

0 

40021 

0 

10000 

0 

13071 

0 

91 ,3070 

00002 

0 

60117 

0 

00006 

1 

13075 

1 

06020 

0 

00002 

0 

56002 

0 

54  114 

l 

91,3100 

39390 

1 

70197 

1 

04313 

1 

00114 

0 

56002 

0 

54114 

l 

50117 

0 

33136 

0 

91,3110 

59001 

1 

50117 

0 

34337 

1 

70153 

1 

50001 

0 

00000 

1 

00114 

0 

56002 

0 

91,3120 

59119 

l 

50190 

1 

03122 

0 

03141 

0 

50117 

0 

33136 

0 

54001 

1 

50117 

0 

91,3130 

393  37 

1 

70197 

l 

50001 

0 

00000 

l 

60000 

l 

00114 

0 

03075 

0 

04313 

1 

91,3190 

09322 

0 

39337 

1 

70147 

1 

60000 

1 

00114 

0 

54117 

l 

56002 

0 

54  115 

0 

91,3150 

39  796 

0 

59162 

0 

50117 

0 

57005 

0 

54155 

l 

50117 

0 

57002 

l 

54  154 

0 

91,3110 

5011,  Jl 

(1 

94193 

1 

092(87 

1 

00747 

0 

3050® 

I 

(89147 

1 

043(84 

■1 

00006 

l 

91,3200 

29  195 

1 

30195 

1 

26117 

l 

34746 

0 

50  U 7 

0 

53777 

0 

03225 

1 

04  302 

1 

91,3210 

10777 

1 

03299 

0 

02501 

1 

03076 

0 

02306 

0 

'.'3221 

0 

34  746 

0 

54  117 

1 

91,3220 

C 3200 

0 

30196 

1 

64744 

1 

00006 

1 

13231 

0 

56154 

1 

no  115 

1 

C:  02154 

0 

91,3230 

C: 

69  101 

0 

99750 

0 

61016 

1 

00006 

l 

13045 

1 

31016 

1 

74  7 75 

1 

56154 

l 

91,3290 

00006 

l 

50159 

1 

01 000 

0 

03045 

0 

03  117 

0 

54123 

0 

00006 

l 

33230 

0 

91,3250 

52006 

0 

50  14  C 

1 

03252 

1 

03256 

0 

03104 

l 

03257 

l 

03076 

0 

50000 

1 

91,3260 

33262 

l 

04631 

l 

C: 

62377 

0 

C: 

61135 

l 

C: 

61  037 

1 

C: 

61125 

0 

C: 

61143 

0 

C:  61170 

0 

91,3270 

C : 

61997 

1 

C: 

61143 

0 

C : 

65463 

0 

C: 

61447 

l 

C : 

61  1 75 

0 

C: 

61140 

0 

C : 

61447 

1 

C:  61037 

1 

91,3300 

C: 

1 1997 

1 

C: 

61447 

l 

43311 

0 

71016 

0 

54155 

l 

40136 

1 

64210 

0 

10000 

0 

91,3310 

03317 

1 

C: 

60000 

l 

03317 

1 

34727 

l 

26155 

1 

34  746 

0 

55021 

1 

36115 

1 

91,3320 

71000 

1 

04322 

0 

54022 

0 

40022 

0 

56022 

1 

61001 

1 

54  154 

0 

34  746 

0 

91,3330 

5501  1 

1 

Ll(  .1 

1 

03334 

0 

04473 

0 

00004 

0 

11017 

1 

03  343 

0 

34744 

1 

91,3390 

05205 

0 

C: 

03347 

1 

C : 

62101 

0 

52155 

1 

53020 

0 

00003 

1 

00  136 

0 

04371 

0 

91,3350 

11020 

0 

03355 

1 

03355 

1 

03366 

l 

03366 

l 

33372 

1 

05205 

0 

C:  03347 

1 

91,3360 

C: 

62101 

0 

34346 

1 

05063 

1 

C: 

C3373 

0 

C: 

62101 

0 

05263 

0 

34  746 

0 

55017 

l 

91,3370 

55020 

0 

05263 

0 

C: 

00144 

0 

11020 

0 

03400 

0 

03400 

0 

05146 

1 

05  146 

l 
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ALL  VALID 

WORDS  ARE 

BASIC  INSTRUCT 

IONS 

EXCEPT  THOSE 

MARKfcD  "I" 

I I NTERPRET I VF 

OPERATOR  WORDS  1 

DR  "C 

11  ( CONSTANTS  1 

41  , 34  C 0 

11011 

1 

03423 

1 

36115 

1 

71017 

1 

02346 

l 

34144 

1 

71017 

1 

63421 

0 

41,34  10 

54023 

1 

30023 

0 

55000 

l 

33422 

0 

54  136 

l 

43311 

0 

71020 

0 

54  156 

l 

41,3520 

02073 

1 C: 

75377 

0 

C:  04124 

1 

04365 

0 

05146 

l 

34310 

1 

54776 

0 

31046 

l 

41,3430 

54001 

l 

31016 

l 

04642 

0 

03435 

0 

05146 

1 

54022 

0 

56002 

0 

54  115 

0 

41,3440 

34727 

1 

26776 

0 

34742 

I 

54137 

0 

40022 

0 

40022 

0 

40022 

0 

40000 

0 

41 ,3450 

74  750 

0 

50000 

1 

34066 

0 

74337 

0 

54  124 

1 

56776 

1 

54  143 

0 

10000 

0 

41 ,3460 

54776 

0 

04626 

1 

C:  61441 

1 

10137 

0 

03443 

1 

44351 

0 

54776 

0 

00115 

1 

41  ,34  70 

03512 

1 

34  740 

0 

60776 

1 

00006 

1 

13476 

0 

06020 

0 

34  746 

0 

57001 

1 

41 ,3500 

54154 

0 

34352 

1 

54775 

0 

04607 

l 

C 

: 60570 

0 

44351 

0 

54776 

0 

30154 

1 

41,3510 

04626 

l c: 

10  154 

1 

40002 

1 

55012 

l 

34352 

1 

54776 

0 

34  746 

0 

55001 

0 

41,3520 

C4607 

l C: 

60570 

0 

04420 

0 

34744 

1 

54  777 

l 

00136 

0 

34  732 

0 

54003 

0 

41,3530 

34744 

1 

71771 

0 

10000 

0 

03555 

1 

34342 

0 

54154 

0 

44  744 

0 

71771 

0 

41,3540 

54  160 

1 

04450 

1 

31771 

1 

00006 

1 

12400 

0 

34210 

0 

54157 

0 

00006 

l 

41,3550 

3 1 773 

0 

52156 

1 

30160 

0 

00004 

0 

)'  154 

1 

34345 

l 

03535 

l 

34343 

l 

41  ,3560 

54154 

0 

34732 

0 

54003 

0 

31771 

l 

03540 

0 

64750 

1 

00004 

0 

54124 

1 

41,3570 

44731 

1 

50124 

0 

57022 

0 

10000 

0 

25015 

1 

03576 

0 

10  124 

1 

03567 

0 

41,3600 

00003 

l 

50123 

1 

03607 

0 

03604 

0 

55000 

1 

55001 

0 

55014 

1 

44351 

0 

41,3610 

54776 

0 

04424 

1 

03635 

1 

33637 

0 

54  136 

1 

10123 

0 

03622 

l 

02400 

l 

41  ,3620 

03565 

l 

02400 

l 

36115 

l 

70123 

0 

54  157 

0 

30123 

1 

54023 

l 

30023 

0 

41,3630 

54  160 

1 

10157 

0 

03640 

0 

30160 

0 

02  366 

0 

34746 

0 

55012 

1 

04  173 

0 

41,3640 

lOloO 

l 

03645 

0 

30157 

1 

02346 

1 

04173 

0 

30156 

0 

54  161 

0 

30160 

0 

41,3650 

02366 

0 

30157 

l 

02346 

1 

34746 

0 

55013 

0 

55014 

l 

55012 

l 

30161 

1 

41,3660 

54156 

1 

02062 

1 

00004 

0 

04607 

1 

C 

: 66121 

0 

44744 

0 

71300 

1 

64744 

l 

41,3670 

55300 

1 

33730 

0 

00006 

1 

05011 

1 

33731 

1 

55035 

l 

06040 

0 

34733 

l 

41,3700 

00006 

1 

05013 

0 

34354 

1 

54117 

1 

43726 

0 

50117 

0 

55022 

1 

10117 

1 

41,3710 

C3703 

0 

43727 

1 

55023 

0 

55026 

0 

55030 

l 

34751 

0 

55015 

0 

00003 

1 

41,3720 

33  73  3 

0 

00004 

0 

05205 

c 

C:  03641 

l 

C 

: 60102 

1 

05146 

l 

C : 

05675 

0 

C: 

07675 

l 

41,3730 

C: 

00175 

l C: 

40677 

0 

C:  00115 

1 

C:  00764 

1 

43  732 

0 

00004 

0 

00006 

1 

03011 

1 

4 1,3740 

C6040 

0 

44733 

0 

00006 

1 

03013 

0 

34741 

l 

00006 

1 

02012 

0 

64  726 

0 

41,3750 

55035 

l 

43  7 74 

l 

71300 

1 

65017 

l 

55300 

1 

43776 

0 

71277 

0 

650 1 6 

0 

41  ,3760 

55277 

0 

43775 

0 

70110 

0 

64736 

l 

54  110 

0 

00003 

1 

04607 

1 

C : 

10657 

1 

41,3770 

04175 

0 

04424 

l 

046  26 

1 

C:  61527 

0 

C 

: 16001 

1 C 

: 00330 

1 

C : 

55000 

l 

CKSM 

10772 

l 
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42,2000 

C: 

26723 

0 

C: 

C0450 

0 

35012 

1 

05137 

1 

32034 

1 

04607 

1 

C : 

20323 

1 

05474 

0 

42,2010 

05474 

0 

42033 

1 

60154 

1 

00006 

1 

12016 

0 

05474 

0 

00004 

0 

34  746 

0 

42,2020 

54156 

1 

54001 

1 

52025 

1 

52155 

1 

53051 

0 

20155 

1 

07300 

0 

52155 

l 

42,2030 

20025 

1 

00003 

l 

05474 

0 

C: 

00027 

1 

C : 

06230 

0 

34743 

0 

54002 

1 

50000 

1 

42 ,2040 

30321 

1 

00006 

1 

72053 

1 

50002 

0 

56050 

l 

10002 

1 

12036 

l 

37761 

0 

42,2050 

00006 

1 

05014 

1 

15263 

1 

C: 

03146 

l 

34727 

1 

5 50  73 

0 

06060 

1 

I : 

43014 

0 

42,2060 

C: 

00267 

l 

C: 

00670 

0 

I : 

77624 

l 

C: 

27447 

0 

I : 

77776 

1 

05355 

1 

C: 

00002 

0 

00004 

0 

42,2070 

04665 

0 

C: 

40166 

l 

04665 

0 

C: 

40115 

0 

06027 

1 

44727 

0 

00006 

1 

03012 

l 

42 , 2 l CO 

44  740 

1 

70075 

1 

54075 

1 

46017 

0 

70  074 

0 

54074 

0 

04626 

l 

C: 

12772 

0 

42,21  10 

52152 

0 

51001 

1 

32161 

0 

54146 

0 

51001 

l 

32325 

1 

54  147 

1 

41001 

0 

42,21 20 

64762 

0 

00006 

l 

62126 

0 

34744 

1 

54140 

0 

02144 

1 

34  743 

0 

54  140 

0 

42,2 130 

51001 

l 

33075 

0 

54153 

l 

35003 

1 

70146 

0 

54002 

1 

50000 

1 

32661 

1 

42,2140 

54150 

l 

00006 

1 

50002 

0 

32663 

0 

52152 

0 

52006 

0 

52  124 

1 

00006 

1 

42,2150 

50000 

l 

32566 

0 

52124 

1 

52006 

0 

52124 

l 

00006 

l 

50000 

l 

32472 

1 

42,2160 

12152 

l 

C: 

00000 

1 

C : 

40000 

0 

C: 

40000 

0 

C : 

40000 

0 

c: 

01044 

0 

C: 

01044 

0 

C: 

31143 

0 

42,2  1 70 

C : 

01002 

1 

C: 

01363 

0 

C : 

00375 

0 

C: 

77776 

l 

C: 

03633 

1 

C: 

01050 

0 

C: 

01774 

1 

C : 

01050 

0 

42,2200 

C : 

7 7777 

0 

C: 

01050 

0 

C : 

00000 

1 

C: 

02335 

0 

C: 

00000 

1 

C: 

00032 

0 

C: 

00037 

0 

C: 

00321 

1 

42,2210 

C: 

00000 

1 

C: 

01050 

0 

C: 

01044 

0 

C: 

02371 

0 

C : 

0 136? 

l 

C: 

OOOOO 

1 

C : 

OOOOO 

1 

C: 

OOOOO 

1 

42,2220 

C: 

00000 

l 

C : 

02133 

1 

C: 

03441 

0 

C: 

01044 

0 

C: 

03453 

0 

C: 

00024 

1 

C: 

03635 

l 

C: 

01516 

l 

42,2230 

C: 

00000 

1 

C : 

64000 

0 

C: 

02003 

0 

C: 

24006 

1 

C: 

24011 

l 

C: 

64014 

0 

C : 

64017 

0 

C: 

02022 

0 

42,2240 

C: 

22025 

0 

C : 

22030 

1 

C: 

24033 

l 

C: 

00000 

l 

C : 

22  041 

1 

C: 

00044 

l 

C: 

OOOOO 

1 

C : 

24052 

0 

42,2250 

C: 

24055 

1 

C: 

02060 

0 

C : 

00000 

l 

C: 

24066 

l 

C : 

24071 

l 

C: 

24074 

1 

C: 

64077 

0 

C : 

64102 

0 

42,2260 

C: 

24105 

0 

C: 

64110 

0 

C: 

24113 

1 

C: 

62116 

0 

C : 

04  121 

l 

C: 

64124 

1 

C: 

24127 

0 

C: 

"4132 

0 

42,2270 

C : 

04135 

1 

C: 

02140 

0 

C: 

02143 

0 

C: 

64146 

0 

C : 

64151 

0 

C: 

24154 

1 

C : 

64157 

0 

C: 

64162 

0 

42,2300 

C : 

24  l»5 

0 

C: 

02170 

0 

C : 

24173 

1 

C: 

24176 

1 

C: 

24201 

l 

C: 

24204 

1 

C : 

24207 

1 

C: 

24212 

0 

42,2310 

C: 

02215 

0 

C: 

24220 

l 

C: 

24223 

1 

C: 

24226 

1 

C : 

04231 

0 

C: 

04234 

0 

C : 

04237 

0 

C: 

6424  2 

1 

42,2320 

C: 

00000 

1 

C: 

00000 

1 

C : 

04253 

1 

C: 

04256 

l 

C: 

24261 

l 

C: 

OOOOO 

l 

C : 

04  040 

1 

C: 

04140 

0 

42,2330 

C: 

04  102 

0 

C: 

00504 

0 

C: 

00504 

0 

C: 

04000 

0 

C : 

04000 

0 

C: 

04000 

0 

C : 

04000 

0 

C: 

OOOOO 

1 

42,2340 

C: 

24400 

0 

C: 

02000 

0 

C : 

24400 

0 

C: 

04140 

0 

C: 

00000 

1 

C: 

24400 

0 

C : 

OOOOO 

1 

C: 

04102 

0 

42,2350 

C : 

00000 

l 

C: 

04102 

0 

C : 

04140 

0 

C: 

04102 

0 

C: 

OOOOO 

l 

C: 

24400 

0 

C: 

04  140 

0 

C: 

04000 

0 

42,2360 

C : 

00140 

1 

C: 

00000 

l 

C : 

00000 

1 

C: 

00000 

1 

C: 

00000 

l 

C: 

24400 

0 

C : 

24400 

0 

C : 

24400 

0 

42,2370 

C : 

24400 

0 

C: 

24400 

0 

C : 

24400 

0 

C: 

24400 

0 

C: 

OOOOO 

1 

C: 

24500 

l 

C: 

00542 

l 

C: 

24410 

1 

o 
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ALL  VALIO 

WORDS  ARE 

BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

( I NTERPRET I VE 

OPERATOR 

1 WORDS) 

OR  "C1 

" (CONSTANTS) 

42.24CC 

C: 

20204 

0 

C: 

00410 

1 

C : 

10000 

0 

C: 

00000 

l 

C: 

00  306 

l 

C: 

01367 

1 

C : 

00507 

0 

C: 

00000 

1 

42,24  10 

C: 

00204 

1 

C: 

00004 

0 

C: 

00000 

1 

C: 

10507 

l 

C: 

10200 

l 

C: 

00204 

l 

C: 

00000 

1 

C: 

24510 

0 

42,24  20 

C: 

24512 

l 

C: 

60535 

1 

C: 

54000 

0 

C: 

24012 

1 

C: 

60530 

l 

C: 

60500 

1 

C : 

00000 

1 

C: 

00C16 

0 

92,2430 

C: 

53223 

l 

C: 

24026 

0 

C: 

61430 

1 

C: 

00000 

1 

C : 

00000 

1 

C: 

00102 

1 

C: 

00  102 

1 

C: 

10200 

1 

42,2440 

C: 

00010 

0 

C: 

20512 

0 

C: 

24500 

1 

C: 

00654 

0 

C: 

00102 

l 

C: 

00200 

0 

C : 

24512 

1 

C: 

24512 

1 

o 

42,2450 

C: 

24512 

l 

C: 

24512 

L 

C: 

24512 

1 

C: 

24512 

1 

C: 

00102 

l 

C: 

00000 

l 

C: 

16143 

0 

C: 

10507 

1 

42,2460 

C: 

10450 

1 

C: 

60500 

1 

C: 

06143 

1 

C: 

60512 

1 

C : 

00000 

1 

C: 

00000 

1 

C: 

00000 

l 

C: 

00000 

1 

0 

42,24  1C 

C: 

71572 

I 

C: 

00006 

1 

C : 

03240 

1 

C: 

00000 

1 

C: 

00000 

1 

C: 

00000 

1 

C: 

00000 

1 

C: 

10707 

0 

42,2500 

C: 

03435 

0 

C: 

13070 

l 

C: 

34345 

1 

C: 

00005 

1 

C: 

21616 

0 

C: 

26113 

0 

C: 

31713 

0 

C: 

00070 

0 

a 

42,25  10 

C: 

20460 

1 

C: 

01065 

0 

C: 

05740 

1 

C: 

11414 

0 

C: 

31463 

l 

C: 

07475 

0 

C : 

16051 

l 

C: 

00001 

0 

42,2520 

C : 

03434 

l 

C: 

00047 

l 

C : 

21135 

0 

C: 

77766 

0 

C : 

50711 

0 

C: 

00005 

1 

C : 

25006 

0 

C: 

00002 

0 

42,253 

C: 

23224 

1 

C: 

00014 

l 

C: 

06500 

1 

C: 

00001 

0 

C : 

03036 

l 

C: 

04256 

1 

C: 

07  071 

0 

C: 

77766 

0 

J 

42 ,2540 

C : 

60557 

0 

C: 

00005 

1 

C: 

01114 

1 

C: 

00007 

0 

C : 

01247 

t 

C: 

04324 

0 

C : 

27600 

1 

C: 

00036 

1 

42,2550 

C: 

20440 

0 

C : 

00035 

l 

C : 

30400 

0 

C: 

23420 

0 

C : 

00000 

l 

C: 

01670 

1 

C: 

20000 

0 

C: 

07475 

0 

J 

42,2560 

C: 

16051 

1 

C: 

14400 

0 

C: 

00000 

1 

C: 

36365 

1 

C : 

30244 

0 

C: 

05174 

0 

C: 

13261 

0 

C: 

00000 

1 

42,2570 

C: 

00000 

l 

C : 

00000 

l 

C : 

00000 

1 

C: 

00714 

0 

C: 

31463 

1 

C: 

13412 

1 

C : 

07534 

1 

C: 

05605 

1 

42,2600 

C: 

03656 

1 

C: 

OOOU  l 

0 

C : 

16170 

0 

C: 

00441 

0 

C: 

34306 

0 

C: 

07176 

0 

C.: 

21603 

1 

C: 

15340 

1 

0 

42.261C 

C : 

15340 

l 

C: 

01031 

l 

C: 

21032 

0 

C: 

34631 

1 

C: 

23146 

0 

C: 

00636 

1 

C : 

14552 

0 

C: 

74552 

0 

42.262C 

C : 

70307 

1 

C : 

C5520 

0 

C : 

15312 

c 

C: 

14226 

1 

C : 

31757 

0 

C: 

02476 

0 

C : 

05531 

0 

C: 

35152 

1 

42,2630 

C: 

21203 

0 

C: 

00007 

0 

C : 

13734 

0 

C: 

744  7 7 

0 

C: 

50643 

0 

C: 

06265 

0 

C: 

16004 

1 

C: 

04426 

0 

J 

42.264C 

C : 

31433 

1 

C: 

34772 

1 

C: 

0701o 

1 

C: 

01030 

0 

C: 

33675 

0 

C: 

01046 

1 

C: 

15700 

1 

C: 

00321 

l 

J 

42,2650 

C : 

26706 

1 

C: 

04231 

0 

C: 

27400 

0 

C: 

01031 

l 

C: 

21032 

0 

C: 

12172 

0 

C: 

34122 

1 

C: 

00206 

0 

42,2660 

C : 

14206 

0 

C: 

03453 

0 

C: 

03663 

1 

C: 

03507 

0 

C: 

01044 

0 

C: 

01045 

l 

C : 

00000 

1 

C : 

02307 

1 

42,2670 

C: 

02311 

0 

C: 

03663 

1 

C : 

01117 

1 

C: 

01121 

1 

C: 

01123 

0 

C: 

02112 

l 

C: 

02114 

l 

C: 

02131 

0 

1 

42,2700 

C: 

03462 

l 

C: 

03453 

0 

C : 

02243 

0 

C: 

01340 

1 

C : 

00374 

l 

C: 

00000 

1 

C. : 

01326 

l 

C: 

01327 

0 

42,2710 

C: 

00000 

1 

C : 

0 300  2 

0 

C: 

03001 

0 

C: 

00000 

l 

C : 

00314 

l 

C: 

00316 

0 

C : 

01353 

0 

C: 

00000 

1 

) 

42,2720 

C : 

00000 

1 

C: 

00000 

l 

C : 

02171 

1 

C: 

02173 

0 

C: 

00000 

l 

C: 

01753 

l 

C: 

00000 

1 

C: 

00000 

1 

42,2730 

C : 

00000 

1 

C: 

00000 

1 

C: 

00000 

1 

C: 

02213 

0 

C: 

02215 

0 

C: 

02217 

l 

C: 

03466 

0 

C: 

02247 

1 

42,2740 

C: 

03620 

0 

C: 

02171 

1 

C: 

02173 

0 

C: 

00000 

1 

C : 

00000 

1 

C: 

00000 

l 

C: 

00000 

l 

C: 

03605 

l 

0 

42,2750 

C: 

03575 

0 

C: 

02340 

l 

C: 

02273 

0 

C: 

02275 

0 

C: 

02277 

1 

C: 

03734 

1 

C : 

03473 

1 

C: 

0377 4 

0 

42  ,2  760 

C.  : 

03475 

L 

C: 

03453 

0 

C: 

02613 

1 

C: 

034  71 

0 

C: 

03453 

0 

C: 

03507 

0 

C : 

03664 

0 

C : 

03473 

1 

42,2770 

C: 

03774 

0 

C: 

03666 

1 

C: 

03473 

1 

C: 

03534 

0 

C : 

00013 

0 

C: 

00013 
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C: 

00013 

0 

C: 

02  177 

1 

J 

i 


4 

J 
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92,3000 

C : 

00000 

1 

C: 

00000 

l 

C: 

02171 

l 

C: 

02173 

0 

C: 

02  175 

0 

C: 

02613 

1 

C : 

03975 

1 

C: 

03971 

0 

92.301C 

C: 

02635 

0 

C: 

02633 

0 

C: 

02631 

1 

C: 

01235 

l 

C: 

01236 

l 

C: 

01237 

0 

C : 

01235 

1 

C: 

01236 

l 

92,3020 

C : 

01237 

0 

C: 

00035 

l 

C: 

00036 

1 

C: 

00000 

l 

C : 

01 106 

l 

C: 

01107 

0 

C : 

00000 

l 

C : 

03953 

0 

92,3030 

C : 

02353 

0 

C: 

02355 

0 

C: 

03577 

1 

C: 

02293 

0 

C: 

02295 

0 

C: 

02267 

0 

C : 

02263 

1 

C : 

03692 

1 

92,3090 

C : 

03953 

0 

C: 

03503 

1 

C: 

03971 

0 

C: 

01330 

0 

C: 

01331 

1 

C: 

01271 

1 

C : 

01290 

0 

C: 

01291 

1 

92,3050 

C : 

00739 

1 

C: 

C 3 73  3 

0 

C: 

03739 

1 

C: 

00000 

1 

C: 

03933 

0 

C: 

03935 

0 

C : 

03937 

1 

C: 

03933 

0 

92,3060 

C : 

03935 

0 

C: 

0393  7 

1 

C: 

03622 

1 

C: 

03629 

1 

C : 

03626 

0 

C: 

01250 

l 

C: 

01252 

0 

C: 

01259 

0 

92,30  70 

C : 

03501 

0 

C : 

03503 

1 

C: 

03505 

1 

C: 

039  3 3 

0 

C: 

03935 

0 

C: 

03937 

1 

C: 

01399 

0 

C: 

01395 

1 

92,3 100 

C : 

00000 

1 

C: 

02706 

l 

C: 

02710 

0 

C: 

02712 

1 

C: 

02706 

l 

C: 

02710 

0 

C : 

02  71? 

1 

C: 

02171 

1 

92,31  10 

C: 

02173 

0 

C: 

02175 

0 

C : 

03715 

1 

C: 

03711 

0 

C: 

03713 

1 

C: 

03750 

0 

C : 

03973 

1 

C: 

03  779 

0 

92,3120 

C: 

02737 

0 

C: 

02791 

l 

C : 

02793 

0 

C: 

03501 

0 

C: 

03973 

l 

C: 

03539 

0 

C: 

00000 

1 

C: 

00000 

l 

92,31 30 

C: 

00000 

l 

C: 

00000 

l 

C: 

00000 

1 

C: 

LVJ  )0 

1 

C : 

01  099 

0 

C: 

01095 

1 

C: 

01096 

1 

C: 

01097 

0 

92,3190 

C : 

C1050 

0 

C: 

01051 

1 

C : 

02171 

1 

C: 

02173 

0 

C: 

02175 

0 

C: 

16351 

l 

C : 

00  192 

0 

C: 

16397 

0 

92,3150 

C: 

16512 

0 

C: 

22397 

l 

C: 

29993 

1 

C: 

00000 

l 

C: 

00553 

l 

C: 

00193 

1 

C: 

06399 

l 

C: 

00000 

1 

92,3160 

C: 

00512 

1 

C: 

00012 

1 

C: 

00000 

1 

C: 

29399 

l 

C: 

29503 

1 

C: 

00512 

1 

C : 

00000 

1 

C: 

16397 

0 

92,3 1 70 

C : 

16397 

0 

C: 

10397 

0 

C : 

29951 

1 

C: 

16997 

l 

C: 

10399 

0 

C: 

10359 

l 

C: 

20910 

0 

C: 

00309 

0 

92,3200 

C: 

10209 

0 

C: 

16952 

0 

C: 

10209 

0 

C: 

00000 

1 

C : 

00000 

l 

C: 

001  15 

1 

C: 

00115 

1 

C: 

29511 

1 

92,3210 

C : 

22997 

0 

C: 

16397 

0 

C: 

L > 3 D 1 

l 

C: 

22756 

0 

C: 

06  102 

1 

C: 

00503 

1 

C: 

16397 

0 

C: 

16397 

0 

92,3220 

C: 

16397 

0 

C: 

1639  7 

0 

C : 

16397 

0 

C: 

16397 

0 

C: 

00102 

1 

C: 

02091 

0 

C: 

10397 

0 

C: 

29399 

1 

92,3230 

C : 

29507 

0 

C: 

10393 

1 

C : 

16397 

0 

C: 

10397 

0 

C: 

00000 

1 

C: 

000  00 

1 

C : 

06  193 

1 

C: 

06093 

0 

92,3290 

C : 

29297 

0 

0960  7 

1 

C: 

60776 

1 

07300 

0 

03930 

0 

07129 

1 

C : 

03302 

0 

39312 

0 

92,3250 

59776 

0 

09607 

I 

C : 

61255 

1 

03996 

1 

3 3 3C9 

0 

56159 

1 

55006 

1 

33305 

1 

92,3260 

56155 

0 

09906 

l 

393  1 1 

0 

597  76 

0 

09607 

l 

C: 

61255 

1 

00006 

1 

3331  1 

1 

92,3270 

52155 

l 

31006 

0 

09906 

1 

39310 

1 

59776 

0 

09607 

l 

C: 

61255 

l 

00136 

0 

92,3300 

C: 

25660 

0 

C: 

31792 

l 

C: 

01727 

1 

C: 

0121  7 

1 

C: 

00011 

l 

C: 

32995 

0 

C: 

02109 

0 

C: 

10922 

1 

92,3310 

C : 

C5I79 

0 

C: 

13261 

0 

C: 

00000 

1 

C: 

00062 

0 

09607 

l 

C: 

60776 

l 

07300 

0 

10159 

0 

92,3320 

03322 

1 

03353 

1 

63910 

1 

10000 

0 

03337 

0 

03353 

l 

03353 

1 

10155 

1 

92,3330 

03332 

0 

03353 

1 

63911 

0 

10000 

0 

03337 

0 

03353 

1 

03353 

1 

10159 

0 

92,3390 

33913 

1 

03350 

l 

93913 

0 

59159 

0 

93919 

1 

59155 

1 

33912 

0 

03931 

1 

92,3350 

59159 

0 

33919 

0 

13395 

0 

03915 

1 

33906 

0 

07330 

0 

96266 

1 

26776 

0 

92,3360 

09607 

1 

C : 

61315 

1 

! . 796 

0 

59129 

l 

99793 

l 

50117 

0 

69  310 

1 

59193 

0 

92,3370 

09607 

l 

C: 

61351 

l 

03996 

l 

56155 

0 

00006 

1 

73907 

0 

52155 

1 

50117 

0 
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92,3900 

39310 

1 

59776 

0 

09607 

1 

C: 

61315 

1 

09626 

l 

C: 

62617 

0 

C: 

23197 

1 

C: 

23396 

1 

92,39  10 

C : 

77753 

0 

c: 

9112  6 

1 

C: 

03359 

0 

C: 

00025 

0 

C: 

370  16 

l 

10155 

1 

13925 

C 

13925 

0 

92,3920 

13921 

1 

00006 

1 

93313 

l 

20155 

1 

13930 

1 

00006 

l 

333  13 

0 

13923 

0 

92,3930 

56002 

0 

59199 

1 

07129 

l 

C: 

03300 

l 

00006 

1 

30155 

0 

53007 

0 

09375 

l 

92,3990 

C9375 

1 

39  79  6 

0 

56156 

0 

56155 

0 

56159 

1 

00199 

0 

56002 

0 

59199 

l 

92,3950 

31007 

1 

00006 

1 

79792 

0 

00006 

1 

79730 

0 

22155 

0 

31006 

0 

59159 

0 

92,3960 

07129 

1 

C: 

03306 

1 

00199 

0 

03609 

0 

07129 

l 

C: 

03595 

0 

03559 

0 

39796 

0 

92,39  70 

59156 

l 

33597 

1 

59 1 59 

0 

33550 

1 

56155 

0 

07330 

0 

03565 

1 

52  156 

l 

92,3500 

52129 

1 

31003 

0 

23006 

0 

52155 

l 

07129 

I 

C: 

03595 

0 

03559 

0 

63552 

l 

92,35 10 

03572 

1 

56155 

0 

00006 

1 

73551 

1 

20129 

1 

00006 

1 

13520 

l 

06020 

0 

92,3520 

31009 

1 

23007 

1 

52155 

1 

07129 

1 

C: 

03595 

0 

03559 

0 

93553 

0 

03572 

l 

92,3530 

52129 

1 

1 

1 

00006 

1 

13535 

0 

06020 

0 

39796 

0 

59  156 

l 

07300 

0 

92,3590 

52155 

1 

50195 

1 

52001 

l 

09626 

1 

C: 

63095 

0 

C: 

00006 

1 

C : 

03290 

1 

C : 

00025 

0 

92,3550 

C: 

37100 

l 

C: 

13560 

0 

C: 

n hi  7 j 

0 

C: 

13557 

1 

56156 

0 

60000 

l 

59  156 

l 

39  796 

0 

92,3560 

60155 

0 

59  155 

1 

39  796 

0 

60159 

l 

56159 

1 

101  59 

0 

. •,  ,?(• 

0 

00002 

0 

92,3570 

06020 

0 

00002 

0 

59156 

1 

10155 

l 

69799 

1 

13577 

0 

69  799 

l 

60156 

0 

92,3600 

00006 

l 

63603 

l 

06020 

0 

00002 

0 

93611 

0 

70777 

1 

63611 

1 

10000 

0 

92,3610 

03619 

1 

C: 

77793 

1 

1619 

1 

00002 

0 

96010 

1 

55090 

0 

06020 

0 

06060 

I 

92,3620 

1 : 

97001 

0 

C: 

0000  l 

0 

C: 

21603 

1 

C: 

39091 

0 

C: 

27136 

0 

I : 

96135 

l 

C: 

00050 

l 

C : 

65695 

0 

92,3630 

I : 

77775 

1 

C: 

00001 

0 

C: 

16176 

0 

C: 

00015 

0 

I : 

77629 

l 

C: 

33696 

0 

1 : 

79375 

0 

C: 

02723 

0 

92,3690 

C: 

29001 

0 

I : 

53372 

1 

C: 

02176 

0 

1 : 

77650 

l 

C: 

65697 

1 

I: 

77775 

1 

C: 

OOOCl 

0 

I : 

5390  1 

1 

92,3650 

C: 

00001 

0 

I : 

95076 

1 

C: 

97522 

1 

I : 

76521 

0 

C: 

01732 

0 

I : 

71206 

0 

C: 

06505 

1 

C: 

02172 

1 

92,3660 

C: 

26179 

1 

I : 

77629 

l 

C : 

97663 

1 

C.: 

16176 

0 

C: 

02200 

1 

I : 

95206 

1 

C : 

02176 

0 

1 : 

77605 

1 

92,3670 

C: 

21790 

1 

C: 

16200 

1 

I : 

91215 

1 

C: 

02176 

0 

C: 

21790 

1 

C: 

26176 

0 

C: 

02176 

0 

r : 

63256 

0 

92,3700 

C: 

02176 

0 

I : 

72931 

1 

C: 

06501 

0 

1 : 

90095 

1 

C: 

02176 

0 

C: 

65  706 

0 

I : 

90056 

0 

C: 

65759 

l 

92,3710 

I : 

97206 

0 

C: 

06977 

0 

I : 

57572 

0 

C: 

02176 

0 

I : 

63291 

0 

C: 

06501 

0 

C: 

02176 

0 

I : 

75296 

0 

92,3720 

1 : 

77736 

0 

C: 

26172 

1 

C: 

00007 

0 

I : 

51091 

0 

C: 

06977 

0 

C: 

65732 

l 

I: 

95395 

1 

C: 

06503 

1 

92,3730 

C : 

02172 

1 

C: 

02172 

1 

I : 

97375 

0 

C: 

000OI 

0 

C: 

00007 

0 

I : 

77772 

0 

C: 

16176 

0 

C: 

02172 

1 

92,3790 

I : 

79356 

1 

C: 

069  7 7 

0 

I : 

71525 

C 

C: 

02172 

1 

I : 

52361 

l 

C: 

06503 

l 

I : 

63291 

0 

C: 

02176 

0 

92,3750 

C: 

02176 

0 

1 : 

75296 

0 

1 : 

77  736 

0 

C: 

02179 

1 

I : 

77776 

1 

31093 

l 

79790 

1 

00006 

1 

92,3760 

15979 

l 

35010 

0 

05137 

1 

33776 

l 

09607 

1 

C: 

20395 

1 

05565 

1 

05565 

1 

92,37  70 

05196 

l 

39792 

1 

05966 

0 

39731 

0 

05137 

1 

03617 

1 

C: 

01963 

1 

CKSM 

53  301 

0 
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A3, 2000 

50154 

1 

02002 

1 

02126 

0 

02177 

l 

02344 

0 

02702 

0 

02310 

1 

07116 

0 

43,2010 

02116 

0 

02403 

1 

0 3134 

1 

13011 

0 

02375 

l 

021  16 

0 

02375 

l 

02375 

l 

43,2020 

02375 

1 

02415 

0 

)302j 

0 

02333 

0 

02336 

0 

02147 

l 

02  174 

l 

02164 

0 

43,2030 

02167 

0 

02430 

1 

02674 

0 

03224 

0 

03141 

0 

03216 

l 

02341 

0 

02037 

l 

43,2040 

03727 

0 

03731 

1 

03733 

0 

03735 

0 

03040 

0 

03277 

0 

03000 

l 

03003 

l 

43,2050 

02420 

0 

02630 

0 

03044 

1 

03047 

l 

02741 

1 

02751 

0 

02  l 16 

0 

03232 

l 

43,2060 

02116 

0 

02116 

0 

02116 

0 

02757 

0 

02766 

1 

03077 

l 

03057 

0 

03072 

l 

43,2070 

02116 

0 

C 3054 

0 

03211 

0 

02375 

1 

02116 

0 

02375 

1 

11043 

0 

02116 

0 

43,2100 

30100 

0 

72125 

1 

10000 

0 

02116 

0 

34353 

0 

55043 

0 

30007 

0 

54155 

1 

43,2  1 10 

44743 

l 

04145 

0 

02113 

0 

10067 

1 

15113 

1 

00155 

0 

04355 

0 

04626 

1 

43,2 120 

C : 

21062 

0 

31010 

1 

00006 

1 

16763 

1 

02116 

0 

C: 

24100 

0 

02202 

0 

02131 

0 

43,2 1 30 

02  140 

0 

02411 

l 

) M,<!  7 

1 

C: 

16701 

0 

04607 

1 

C: 

17735 

0 

02137 

0 

02117 

1 

43,2141 

02653 

0 

04607 

1 

C: 

52334 

1 

04607 

1 

C: 

17733 

0 

12146 

1 

02117 

1 

30103 

0 

43,2150 

74740 

1 

00006 

1 

12161 

l 

l 7 

0 

74726 

1 

00006 

l 

12  116 

1 

04676 

1 

43,2160 

C : 

53577 

1 

02653 

0 

04607 

1 

C : 

53566 

1 

05520 

0 

C: 

)l  1 3 

0 

12171 

0 

05506 

1 

43,2  1 70 

C : 

00013 

0 

05520 

0 

C : 

00000 

l 

02117 

1 

05506 

1 

C: 

00000 

l 

02117 

1 

02202 

0 

43,2200 

02213 

0 

02235 

l 

46007 

1 

61001 

1 

00006 

1 

16763 

1 

62212 

1 

00006 

1 

43,22 10 

16760 

1 

02116 

0 

C: 

77  7 13 

1 

0241  1 

1 

02076 

l 

32233 

1 

04607 

1 

C: 

20323 

l 

43,2220 

05474 

0 

12222 

0 

32234 

0 

04607 

1 

C: 

20632 

1 

04607 

1 

C : 

16765 

1 

04607 

l 

43,2230 

C : 

17735 

0 

C5474 

0 

05474 

0 

C: 

06226 

l 

C: 

12200 

0 

02653 

0 

02076 

1 

30110 

1 

43,2240 

7773  1 

1 

00006 

1 

12246 

l 

04607 

l 

C: 

01735 

1 

12237 

l 

06027 

1 

32766 

l 

43,2250 

04607 

l 

C: 

20323 

l 

054  74 

0 

12247 

0 

04607 

1 

C: 

46000 

0 

32  2 34 

0 

04607 

1 

43,2260 

C : 

20632 

1 

34  72  7 

1 

05076 

0 

C: 

02267 

0 

C: 

66  107 

1 

154  74 

1 

C: 

06111 

0 

04607 

1 

43,2270 

C : 

52466 

1 

02272 

1 

30167 

1 

74775 

1 

10000 

0 

50000 

1 

54000 

0 

40000 

0 

43,2300 

26167 

0 

04607 

1 

C : 

17733 

0 

02305 

0 

05  146 

1 

05571 

1 

C: 

00503 

1 

05146 

1 

43,2310 

10110 

0 

12117 

0 

12117 

0 

12314 

1 

301  10 

1 

77731 

1 

00006 

1 

17  324 

l 

43,2320 

34770 

0 

04607 

1 

C: 

01736 

1 

02314 

0 

06027 

l 

34770 

0 

04607 

1 

C: 

01736 

1 

43,2330 

05520 

0 

C: 

00126 

1 

12117 

0 

05506 

t 

C : 

00254 

1 

02117 

l 

05520 

0 

C: 

00254 

l 

43,2340 

11, 

1 

C5506 

1 

C : 

00023 

0 

12117 

0 

024  11 

l 

02076 

1 

32373 

1 

04607 

l 

43,2350 

C: 

20323 

1 

C5474 

0 

02353 

0 

32  3 74 

d 

04607 

1 

C: 

20632 

1 

04607 

1 

C: 

17175 

1 

43,2360 

04607 

1 

C : 

1 7735 

0 

05474 

0 

32372 

0 

04607 

1 

C: 

17310 

0 

04607 

1 

C: 

17735 

0 

43,2370 

05474 

0 

05474 

0 

C: 

02737 

c 

C : 

06335 

1 

C: 

12400 

0 

04424 

l 

3417? 

1 

00006 

1 
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OCTAL  LISTING  FOR  PARAGRAPH  « 235,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  L1NUSE0  FIXED  MEMORY 


ALL  VALID 

WORDS  ARE 

BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

( I NT ERPRET I VE 

OPERATOR  WORDS) 

OR  "C1 

" (CONSTANTS) 

A 3 , 2 A CO 

01007 

l 

0A626 

1 

C : 

62021 

0 

02076 

1 

34731 

0 

050  76 

0 

C: 

02005 

0 

C: 

64C66 

A 3 ,2  A 10 

051A6 

l 

31301 

I 

00006 

1 

16763 

1 

02116 

0 

02076 

l 

04626 

l 

C: 

64002 

A 3 , 2 A 20 

02653 

0 

30077 

1 

7A73A 

l 

10000 

0 

021  16 

0 

05506 

l 

C: 

00117 

0 

12A34 

A3.7A30 

02653 

0 

02076 

1 

05506 

1 

C: 

00063 

l 

34732 

0 

54003 

0 

32651 

1 

55770 

A 3 , 2 A AO 

3A7A6 

0 

55767 

1 

55566 

1 

00004 

0 

42652 

0 

701  10 

0 

54110 

0 

32652 

A 3 ,2  A 50 

00006 

l 

02033 

0 

26110 

0 

00003 

1 

40077 

0 

74734 

l 

10000 

0 

12606 

43,2460 

3A7AA 

1 

55051 

0 

3A7A2 

1 

55050 

1 

32646 

l 

0A607 

1 

C : 

20345 

1 

12614 

A3.2A7C 

1 2 A 75 

1 

12A6A 

1 

3A7A2 

1 

05466 

0 

05146 

l 

31051 

l 

55764 

l 

36263 

A3, 2500 

7 176  A 

1 

10000 

0 

12610 

0 

55766 

0 

34743 

0 

00006 

1 

02033 

0 

00006 

A3, 25  10 

12521 

1 

32650 

0 

550AA 

l 

32647 

0 

04607 

l 

C: 

20337 

1 

12614 

l 

12504 

A3, 2520 

17511 

1 

3A727 

1 

00006 

1 

05012 

1 

34743 

0 

55765 

0 

05205 

0 

C : 

02  162 

A 3,2530 

C: 

3210A 

0 

00003 

1 

A0077 

0 

74734 

1 

10000 

0 

12117 

0 

36263 

0 

71764 

A 3 ,2  5 AO 

10000 

0 

12556 

l 

326A2 

0 

OA607 

1 

C: 

20323 

l 

1261 A 

1 

12550 

l 

12542 

A3, 2550 

326A3 

l 

0 AGO  7 

l 

C: 

20323 

l 

12614 

l 

12572 

1 

125A2 

l 

32644 

0 

04607 

A3, 2560 

C: 

20323 

1 

1261  A 

1 

1256A 

0 

12556 

1 

32645 

1 

0A607 

1 

C : 

20323 

l 

12614 

A 3 , 2 5 70 

12572 

1 

12556 

l 

3A7A6 

0 

55770 

l 

04607 

1 

C: 

01735 

l 

32651 

1 

55770 

A 3 ,2  6C0 

3A7A6 

0 

55767 

1 

11  766 

0 

AA744 

0 

64  743 

0 

124  76 

l 

34757 

0 

55770 

A3, 26  10 

3A7A3 

0 

55766 

0 

36263 

0 

12525 

0 

34  746 

0 

55770 

1 

34735 

1 

04607 

A3, 2620 

C: 

01736 

1 

OOOOA 

0 

AA72  7 

0 

00006 

l 

03012 

l 

05520 

0 

C : 

00063 

1 

05474 

A3, 2630 

3A732 

0 

5A003 

0 

3A7A6 

0 

55770 

1 

34737 

0 

04607 

l 

C: 

01736 

1 

05520 

A3.26A0 

C: 

00117 

0 

12117 

0 

C : 

0A1  10 

0 

C: 

04116 

0 

C: 

04102 

0 

C: 

04103 

1 

C: 

01014 

0 

C: 

14431 

A3, 2650 

C : 

00201 

1 

C:  001A5 

l 

C: 

OOAAA 

0 

30101 

I 

74732 

l 

10000 

0 

02116 

0 

40103 

A3, 2660 

7A737 

1 

10000 

0 

L 2667 

0 

30107 

1 

74726 

1 

00006 

l 

12  1 16 

1 

40075 

A3, 2670 

7A7A0 

1 

10000 

0 

00002 

0 

02116 

0 

02076 

1 

34731 

0 

05076 

0 

C: 

03617 

A3, 2700 

C: 

6A10A 

0 

051A6 

1 

02121 

1 

34  754 

0 

00006 

1 

02012 

0 

10000 

0 

12116 

A3, 2710 

3A3A6 

1 

00006 

1 

06031 

0 

74346 

0 

00006 

1 

12717 

0 

12  116 

1 

02076 

A3, 2770 

32233 

1 

0A607 

1 

C: 

20323 

L 

05474 

0 

02  72  5 

0 

32740 

0 

04607 

1 

C: 

20632 

A3, 2730 

3A737 

0 

00006 

l 

05012 

1 

34  74  3 

0 

05205 

0 

C: 

02035 

0 

C: 

64100 

1 

15474 

A 3 , 2 7 AO 

C : 

12600 

1 

02076 

l 

35012 

1 

05137 

l 

00006 

1 

32750 

l 

05  167 

1 

C: 

03244 

A3, 2 750 

C: 

AA10A 

1 

02076 

1 

3A7A3 

0 

05205 

0 

C: 

03741 

0 

C: 

60107 

1 

05146 

l 

02121 

A3, 2760 

02076 

1 

3A730 

1 

05076 

0 

C: 

02024 

0 

C : 

54104 

0 

05146 

1 

40103 

1 

74737 

A3, 2770 

00006 

1 

12116 

l 

02076 

1 

35012 

l 

05076 

0 

C: 

02677 

0 

C: 

10107 

0 

15146 
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A3, 3000 

05506 

l 

C: 

00303 

l 

12117 

0 

05520 

0 

C: 

00303 

1 

OOOOA 

0 

0A665 

0 

C: 

AO  15  A 

0 

A3, 3010 

02117 

1 

02121 

1 

02076 

1 

3A730 

1 

05076 

0 

C: 

02103 

1 

C: 

A6106 

1 

051A6 

l 

A 3 , 3020 

36017 

1 

7007A 

0 

00006 

l 

12117 

0 

05520 

0 

C: 

00037 

0 

3A7A0 

0 

70075 

1 

A3, 3030 

00006 

1 

1303A 

l 

0A626 

1 

C: 

6A05A 

1 

A6017 

0 

7007A 

0 

5A07A 

0 

12117 

0 

A 3 , 30  AC 

330A3 

0 

5A335 

0 

02117 

1 

C: 

03723 

1 

05520 

0 

C: 

00026 

0 

03051 

0 

05506 

l 

A 3 , 3 C SO 

C: 

00026 

0 

C5520 

0 

C: 

00030 

1 

121  1 7 

0 

05506 

l 

C: 

00030 

1 

02117 

1 

02121 

1 

A 3 , 3C  60 

A0077 

0 

7 A 7 3 2 

1 

00006 

1 

12116 

l 

02076 

l 

37731 

0 

05076 

0 

C: 

02002 

1 

A3, 3070 

C : 

76  065 

0 

05  1 A 6 

1 

OOOOA 

0 

AA7AA 

0 

70101 

0 

5A101 

0 

02117 

1 

02121 

1 

A3, 3100 

02076 

1 

35012 

1 

05137 

1 

3A7AA 

1 

55376 

0 

3A7A6 

0 

55362 

0 

33250 

0 

A3, 31 10 

55361 

0 

03525 

0 

23372 

0 

23373 

1 

332A7 

0 

5A156 

l 

33127 

0 

0A60  7 

1 

A3, 3120 

C : 

20323 

1 

0 3 l 2 A 

0 

03636 

1 

031  l A 

0 

33250 

0 

55371 

l 

05A7A 

0 

C: 

01201 

0 

A3, 3 1 30 

31376 

1 

00006 

l 

133AI 

0 

03525 

0 

02076 

l 

35012 

1 

05137 

l 

0A626 

l 

A3, 3 1 AO 

C : 

AOOOA 

1 

AOIOA 

0 

7A735 

0 

00006 

1 

12116 

1 

3A730 

1 

05076 

0 

C: 

03  152 

1 

A3, 3150 

C: 

66103 

0 

051A6 

1 

06060 

1 

I : 

7762A 

l 

C: 

27AA7 

0 

I : 

A301A 

0 

C: 

OA  063 

0 

C: 

0A30A 

1 

A3, 3160 

C : 

67163 

l 

I : 

7 76  1 A 

1 

C : 

0A263 

1 

I : 

77776 

1 

33207 

l 

055A6 

0 

C: 

01626 

1 

C: 

0155A 

1 

A3, 31 70 

00003 

1 

C6060 

1 

I : 

7 76  2A 

l 

C: 

27016 

0 

I : 

A515A 

0 

C: 

02030 

0 

C : 

26  l 1A 

l 

1 : 

77776 

1 

A 3 , 3 2 CO 

33210 

1 

50120 

1 

5A052 

1 

04626 

1 

C: 

27A60 

0 

I : 

7763A 

0 

C: 

21062 

0 

C: 

00051 

0 

A3, 32 10 

C : 

67205 

1 

05506 

1 

C : 

00221 

0 

3A7A6 

0 

0A626 

1 

C: 

1005A 

1 

02076 

1 

35010 

0 

A3, 3220 

05076 

0 

C: 

7 

l 

C: 

6206A 

1 

051A6 

l 

05506 

1 

C: 

00115 

l 

02117 

1 

05520 

0 

A3, 3230 

C: 

00115 

1 

02117 

l 

02076 

l 

0A626 

1 

C: 

62000 

0 

C: 

00061 

0 

C: 

01373 

1 

C: 

01A61 

0 

A3 ,32 A C 

C : 

017  73 

0 

C: 

00060 

l 

C : 

50017 

1 

C: 

17777 

0 

C: 

25252 

0 

C: 

52A00 

l 

C : 

76  777 

1 

C: 

01371 

0 

A3, 3250 

C: 

033A1 

1 

31360 

0 

00006 

1 

13262 

0 

00006 

1 

31376 

1 

51377 

0 

52001 

1 

A 3 , 3 2 60 

3A7A6 

0 

55360 

1 

OOOOA 

0 

30002 

0 

55357 

0 

55363 

l 

25365 

0 

05573 

0 

A3, 32  70 

C: 

01102 

0 

11362 

0 

3A7A6 

0 

55362 

0 

03  3 A 1 

1 

01357 

1 

10000 

0 

13251 

0 

A3, 3300 

13251 

0 

10000 

0 

13251 

0 

00002 

0 

00006 

t 

23371 

0 

03335 

l 

11362 

0 

A3, 33  10 

C 33  l 5 

0 

03306 

1 

03315 

0 

25366 

0 

01371 

0 

65652 

0 

00006 

1 

63321 

1 

A3 ,3320 

03272 

0 

25366 

0 

6A750 

1 

50000 

1 

03325 

0 

01371 

0 

01371 

0 

01371 

0 

A3, 133C 

033A2 

1 

03523 

0 

) 1 3 7 1 

0 

01371 

0 

01371 

0 

00006 

1 

23361 

1 

0A626 

1 

A3.33A0 

C: 

03216 

1 

0330A 

0 

3A7AA 

1 

55  372 

1 

3A  7A6 

0 

5A003 

0 

33237 

1 

55377 

1 

A3, 3350 

35003 

l 

55373 

0 

03372 

1 

35000 

1 

55377 

l 

35003 

l 

55373 

0 

03372 

1 

A3, 3360 

35000 

l 

55377 

1 

332A0 

1 

55373 

0 

03372 

1 

55372 

1 

33235 

0 

55377 

1 

A3, 3370 

33236 

0 

55373 

0 

OOOOA 

0 

30003 

l 

5537A 

l 

00006 

1 

51377 

0 

30001 

0 

1 
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43, J4C0 

53376  0 

31377 

0 

55  360 

l 

5400  l 

l 

2400 1 

0 

50000 

l 

52001 

l 

51377 

0 

43,34 10 

AOOOl  l 

51377 

0 

60000 

1 

03276 

l 

31360 

0 

00006 

l 

1 3 A 42 

i 

00006 

i 

43,3420 

51377  0 

AOOOl 

l 

51377 

0 

52001 

1 

51377 

0 

40000 

0 

51377 

0 

60001 

0 

2 

43,3430 

03276  l 

31360 

0 

00006 

1 

13AA2 

1 

00006 

1 

31376 

l 

51377 

0 

52001 

1 

A 3 , 3 A A C 

3A7A6  0 

55360 

1 

00003 

l 

03335 

l 

31  3 74 

0 

54003 

0 

25377 

0 

41377 

1 

j. 

w 

43,3450 

61373  1 

00006 

1 

13A5A 

0 

03372 

1 

11372 

1 

03365 

l 

25372 

0 

30003 

1 

A3 , 3 A 60 

6A73A  0 

5A003 

0 

632A6 

1 

00006 

1 

13360 

0 

10003 

0 

03353 

l 

35000 

l 

l 

A3.3A  10 

5A003  0 

3A762 

0 

55372 

1 

64741 

l 

50000 

l 

40000 

0 

11372 

l 

03A72 

0 

A 3 , 3 5 CO 

332AA  0 

5A020 

1 

5A022 

0 

5402  1 

0 

54023 

1 

60020 

0 

60022 

l 

60021 

l 

l 

A3, 3510 

60023  0 

632A5 

l 

03276 

1 

60020 

0 

60022 

l 

60021 

l 

60023 

0 

6A7AA 

1 

A3, 3520 

03276  1 

25367 

l 

0330A 

0 

3A7A5 

0 

55376 

0 

3A7A6 

0 

55374 

1 

3A7AA 

l 

A3, 3530 

55377  l 

3A7A6 

0 

55371 

l 

55373 

0 

3A7AA 

l 

55375 

0 

31374 

0 

54001 

l 

l 

A 3 , 3 5 AO 

7A3A1  1 

61373 

l 

0A6A2 

0 

03566 

1 

6A732 

0 

03577 

1 

40000 

0 

55377 

l 

A3, 3550 

00006  l 

1 3554 

1 

3 4 731 

0 

03555 

l 

35011 

1 

55373 

0 

34  746 

0 

55371 

l 

* 

A3, 3560 

3A7AA  1 

55375 

0 

51373 

l 

30000 

1 

03566 

l 

03577 

1 

55372 

1 

61371 

0 

A3, 3570 

55371  l 

3A7A6 

0 

61371 

0 

55371 

l 

41372 

l 

61373 

1 

00  002 

0 

22000 

1 

A 3 ,3  6C  0 

31373  1 

75003 

0 

64341 

0 

00006 

l 

13673 

1 

11375 

0 

03611 

l 

0361 1 

1 

- 

A 3 , 3 6 1 0 

03673  0 

1000  l 

1 

03621 

l 

03621 

1 

03621 

1 

11375 

0 

03622 

1 

37770 

0 

A3, 3620 

03622  l 

3A7AA 

l 

55375 

0 

11376 

0 

10067 

1 

05113 

1 

03630 

1 

03335 

l 

> 

A3.363C 

25373  l 

1 1377 

l 

03536 

1 

03536 

l 

03562 

0 

03562 

0 

A 1 3 74 

1 

63726 

1 

A 3 , 36  AO 

00006  1 

13130 

l 

31374 

0 

6A732 

0 

553  74 

l 

03651 

0 

34726 

0 

27374 

1 

a 

A3, 3650 

03665  1 

74341 

1 

00006 

1 

13663 

0 

632  43 

l 

00006 

l 

13660 

0 

03665 

1 

A3, 3660 

332A1  0 

2737A 

1 

03665 

1 

632A2 

0 

2737A 

l 

11377 

1 

03530 

1 

34  744 

l 

A3, 3670 

035A6  0 

3A736 

l 

03530 

1 

3137A 

0 

7A3A  1 

l 

0A322 

0 

54001 

1 

31374 

0 

a 

A3, 3700 

7A350  I 

00006 

l 

13710 

0 

5402 1 

0 

30001 

0 

7A750 

0 

60021 

l 

54001 

1 

A3, 3710 

31376  1 

00006 

1 

1 3 7 l A 

l 

03112 

0 

11371 

1 

03717 

0 

03720 

I 

64  744 

1 

a 

A3, 3720 

55371  1 

AOOOl 

1 

61371 

0 

67770 

0 

032  76 

l 

03636 

1 

C:  66100 

0 

34  74  6 

0 

A3, 3730 

13736  1 

3A7AA 

1 

13736 

1 

34  74  3 

0 

13736 

l 

36266 

0 

55165 

0 

02076 

1 

A 3 , 3 7 A 0 

0A62O  l C: 

11372 

l 

C:  037A2 

0 

C 

: 03  7 A 3 

l 

CKSM  56166 

0 

a 

a 

a 

2 

A3, 3750 

a 

a 

a 

a 

a 

a 

a 

a 

A3, 3760 

a 

a 

a 

a 

3 

a 

a 

a 

A3, 3770 

a 

a 

a 

a 

a 

a 

a 

a 

y 

I 


a 

j 
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DCCUP  TED 

LOCATIONS 

PAGE 

OCCUPIED 

LOCAT IONS 

PAGE 

OCCUPIED 

LOCATIONS 

PAGE 

OCCUPIEO 

LOCATIONS 

PAGE 

4000 

TC 

4045 

163 

5430 

TO 

5437 

1297 

6511 

TO 

6543 

1017 

00,2236 

TO 

00,2276 

1052 

4046 

TO 

4065 

164 

5440 

TO 

5446 

1301 

6544 

TO 

6577 

1018 

00,2277 

TO 

00,2331 

1053 

4066 

TC 

4101 

165 

5447 

TO 

5457 

1303 

6600 

TO 

6645 

1019 

00,2332 

TO 

00,2352 

1054 

4 L C? 

TC 

4123 

3 93 

5460 

1304 

6646 

1020 

00,2353 

TO 

00,2421 

1055 

4124 

TO 

4144 

454 

5461 

TO 

5465 

1 3C6 

6647 

TO 

6707 

1021 

00, 2422 

TO 

00,2436 

1056 

4146 

TO 

41  74 

4 6 7 

5466 

TO 

5505 

1351 

6710 

TO 

6743 

1022 

00,2437 

TO 

00,2477 

1057 

4175 

TO 

4177 

469 

55C6 

10 

5534 

1372 

6744 

TO 

6767 

1023 

00, 2500 

TO 

00,2537 

1053 

4200 

TU 

42  36 

470 

5535 

TO 

5545 

1373 

6770 

TO 

7023 

1024 

00,2540 

TO 

00,2567 

1059 

4237 

TO 

4273 

471 

5546 

TO 

5564 

1376 

7024 

TO 

7025 

1025 

00,2570 

TO 

00,2607 

1060 

4274 

TO 

4326 

475 

5565 

TO 

5570 

1377 

7026 

TO 

7102 

1026 

00,26 10 

TO 

00,2624 

1061 

4327 

TO 

4370 

476 

5571 

TO 

5621 

1378 

7103 

TO 

7 111 

1027 

00,2625 

TO 

00,2641 

1062 

4371 

TO 

442  7 

477 

5622 

TO 

5637 

1379 

7112 

TO 

7123 

1028 

00,2642 

TO 

00,2653 

1063 

4430 

TO 

4452 

4 79 

5640 

TO 

5715 

1380 

7124 

TO 

7156 

1029 

00,2654 

TO 

00,2720 

1064 

4453 

TC 

4502 

4 BO 

5716 

TO 

5746 

1381 

7157 

TO 

7174 

1 030 

00,2721 

TO 

00,2747 

1065 

4503 

TO 

4513 

537 

5747 

TO 

5770 

1402 

71  75 

TO 

7235 

1031 

00,2750 

TO 

00,3006 

1066 

4514 

TC 

4527 

538 

5771 

TO 

5772 

29 

7236 

TO 

7257 

1032 

00,3007 

TO 

00,3022 

1067 

4530 

TO 

4554 

539 

6000 

41 

7260 

TO 

7275 

1033 

00,3023 

TO 

00,3072 

1068 

4555 

TC 

4570 

540 

6001 

TO 

6016 

235 

72  76 

TO 

7336 

1034 

00,3073 

1069 

4571 

TC 

4606 

541 

6017 

299 

7337 

TO 

7351 

1 035 

00,3074 

TO 

00,3132 

1070 

4607 

TC 

4635 

996 

6020 

TO 

6026 

46  l 

7352 

TO 

7362 

1036 

00,3133 

TO 

00,3150 

1071 

46  36 

TC 

4664 

997 

6027 

TO 

6037 

531 

7363 

TO 

7421 

1037 

00,3151 

TO 

00,3173 

1072 

4665 

TO 

47  17 

798 

6040 

TO 

6042 

578 

7422 

TO 

7445 

1038 

00,31 74 

TO 

00,3206 

1073 

4720 

TO 

4722 

999 

6043 

TO 

6047 

613 

7446 

TO 

7500 

1 039 

00,3207 

TO 

00, 3231 

1074 

4723 

TO 

4753 

1093 

6050 

TO 

6057 

745 

7501 

TO 

7546 

1040 

00, 3232 

TO 

00,3277 

1075 

4754 

TO 

5001 

1094 

6060 

TO 

6077 

1000 

7547 

TO 

7612 

1041 

00,3300 

TO 

00,3342 

1076 

5002 

TO 

5022 

1095 

6100 

TO 

6123 

1001 

7613 

TO 

7644 

1042 

00,3343 

TO 

00,3405 

1077 

5023 

TO 

5062 

1100 

6124 

TO 

6135 

1002 

7645 

TO 

7675 

1043 

00, 3406 

TO 

00,3455 

1078 

5063 

TO 

5120 

1101 

6136 

TU 

6164 

1003 

76  76 

TO 

7730 

1044 

00,3456 

TO 

00,3516 

1079 

5121 

TO 

5123 

1102 

6165 

TO 

6233 

1004 

7731 

TO 

7743 

1095 

00,3517 

TO 

00,3552 

1080 

5124 

TO 

5166 

1103 

62  34 

TO 

6235 

1005 

7744 

TO 

7770 

1 096 

00,3553 

TO 

00,3607 

1081 

5167 

TC 

5174 

1 1 14 

6236 

TO 

6267 

1006 

7771 

TO 

7774 

1299 

00,3610 

TO 

00,3651 

1082 

5175 

TO 

5236 

1 117 

62  70 

TO 

6303 

1007 

7775 

TO 

7776 

1457 

00, 3652 

TO 

00,3713 

1083 

5237 

1 1 18 

63C4 

TO 

6314 

1008 

00.2000 

TC 

00,2016 

1011 

00,3714 

TO 

00,3734 

1084 

5240 

TO 

5262 

1 1 19 

6315 

TO 

6354 

1009 

00,2017 

TO 

00,2041 

1045 

00,3735 

TO 

00,3767 

1 374 

5263 

TO 

5300 

1127 

6355 

TO 

63  74 

1010 

00,2042 

TO 

00,2100 

1046 

00,3770 

TO 

00,3774 

1375 

5301 

TO 

5302 

1128 

6375 

TO 

6412 

1012 

00,2101 

TO 

00,2120 

1047 

00,3775 

TO 

00,3776 

29 

53C3 

TO 

5312 

1129 

6413 

TO 

64  34 

1013 

00,2121 

TO 

00,2143 

1048 

01,2000 

TO 

01,2001 

45 

53  13 

TO 

5330 

1291 

64  35 

TO 

6454 

1C14 

00,2144 

TO 

00,2171 

1049 

01,2002 

TO 

01 ,2032 

250 

5331 

TO 

5361 

1295 

6455 

TO 

6500 

1015 

00,2172 

TO 

00,2213 

1050 

01,2033 

TO 

01,2070 

251 

5362 

TO 

5427 

1296 

6501 

TO 

6510 

1016 

00,2214 

TO 

00,2235 

1051 

01,2071 

TO 

01,2133 

252 

GAP:  ASSEMBLE  REVISION  210  OE  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-lfcl 


17:11  MAR.  19,1971 


PAGE  1735 


OCCUP 1 ED 

LUCAT IUNS 

PAGE 

OCCUPIED 

LOCATIONS 

PAGE 

OCCUPIED 

LOCATIONS 

PAGE 

OCCUP I EO 

LOCAT IONS 

PAGE 

01,2135 

TO 

01,21 75 

253 

05,2000 

TO 

05,2023 

57 

05,3762 

TO 

05,3772 

1 393 

05,3776 

30 

01,2175 

TC 

01,2213 

2 55 

05,2025 

TO 

05,2037 

55 

05,3773 

TO 

05,3775 

30 

06,2000 

TO 

06,2011 

165 

01,22  15 

TO 

01,2237 

306 

05,2050 

TO 

05,2053 

236 

05,2000 

55 

06,2012 

TO 

06,2023 

166 

01,2250 

TC 

01,2316 

307 

05,2055 

TO 

05,2107 

238 

05,2001 

TO 

05,2020 

53 

06,2025 

TO 

06,2075 

167 

01,231  7 

TO 

01,2357 

308 

05, 21 10 

TO 

05,2161 

239 

05,2021 

TO 

05,2055 

55 

06,2075 

TO 

06,21  15 

168 

01 ,2350 

TC 

01,2375 

1085 

05,2162 

TO 

05,2222 

250 

05,2055 

205 

06,2116 

TO 

06,2127 

169 

01 ,2376 

TC 

01,2532 

1086 

05,2223 

TO 

05,2267 

251 

05,2056 

TO 

05,2116 

205 

06,2130 

TO 

06,2171 

170 

01,2533 

TC 

01,2552 

10  87 

05,2270 

TU 

05,2337 

252 

05,2117 

TO 

05,2152 

206 

06,2172 

TO 

06,2207 

171 

01,2553 

TO 

01 ,2572 

1088 

05,2350 

TO 

05,2505 

25  3 

05,2153 

TO 

05,2213 

208 

06,2210 

TO 

06,2226 

172 

01  ,25  73 

TO 

0 1,2571 

1089 

05,2505 

TO 

05  ,2537 

255 

05,2215 

TO 

05,2220 

209 

06,2227 

173 

01,2522 

TO 

01,2536 

1090 

05,2550 

TO 

05,2571 

255 

05,2221 

TO 

05,2265 

210 

06,2230 

TO 

06,2275 

175 

01 ,2537 

TO 

01.2560 

1091 

05,2572 

TO 

05,2552 

256 

05,2265 

TO 

05,2276 

211 

06,2275 

TO 

06,2352 

1 75 

01,2561 

TO 

01,2605 

1092 

05,2553 

TO 

05,2556 

257 

05,2277 

TO 

05,2337 

212 

06,2353 

TO 

06,2373 

1 76 

01.26C5 

TC 

01,2651 

1105 

05,2557 

TO 

05,2616 

260 

05,2350 

TO 

05,2352 

213 

06,2375 

TO 

06,2515 

177 

01,2652 

TC 

01,2707 

1105 

05,26  17 

TO 

05,2635 

382 

05,2353 

TO 

05,2511 

215 

06,  25  16 

TO 

06,2533 

178 

01,2710 

TC 

01,2763 

1106 

05,2636 

TO 

05,2651 

383 

05,2512 

TO 

05,2513 

215 

06, 2535 

TO 

06,2557 

179 

01,2765 

TC 

01,2775 

1107 

05,2652 

TO 

05,2656 

385 

05,2515 

TO 

05,2555 

216 

06,2560 

TO 

06,2513 

1 80 

01,27  16 

TC 

01,3026 

1108 

05,2657 

TO 

05,2667 

572 

05,2556 

TO 

05,2553 

217 

06, 2515 

TO 

06,2532 

181 

01,3027 

TC 

01,3075 

1109 

05,2670 

TO 

05,2676 

579 

05,2555 

TO 

05,2515 

222 

06,2533 

TO 

06,2555 

182 

01 ,3076 

TO 

01,3106 

1110 

05,2677 

TO 

05,2755 

705 

05,2516 

TO 

05,2572 

223 

06,2556 

TO 

06,2565 

183 

01,3107 

TO 

01,3155 

11  11 

05,2756 

TO 

05,3013 

705 

05,2573 

TO 

05,2650 

2 25 

06,2565 

TO 

06,2613 

185 

01,3155 

TO 

0 1 , 3 157 

1112 

05,3015 

TO 

05,3027 

981 

05,2651 

TO 

05,2670 

225 

06,2615 

TO 

06,2621 

185 

01,3160 

TO 

01,3207 

1113 

05,3030 

TO 

05,3065 

1 183 

05,2671 

TO 

05,2735 

226 

06, 2622 

TO 

06,2657 

186 

01,3210 

TC 

01,3233 

11  15 

05, 3065 

TO 

05,3077 

1 185 

05,2736 

TO 

05,3012 

227 

06,2650 

TO 

06,2670 

187 

01,3235 

TO 

01,3262 

1120 

05,3100 

TO 

05,3130 

118  5 

05,3013 

TO 

05,3060 

228 

06,2671 

TO 

06,2702 

188 

01,3263 

TO 

01,3312 

1121 

05,3131 

TO 

05,3165 

1186 

05,3061 

TO 

05,3106 

229 

06,2703 

TO 

06,2717 

189 

01,3313 

TO 

01 , 3356 

1122 

05,3166 

TO 

05,3212 

1222 

05,3107 

TO 

05,3152 

230 

06,2720 

TO 

06,2755 

190 

01  ,3357 

TO 

01,3373 

1123 

05,32  13 

TO 

05,3250 

1223 

05,3153 

TO 

05,3217 

231 

06,2755 

TO 

06,3022 

191 

01,3375 

TO 

01,3376 

1125 

05,3251 

TO 

05,3255 

1255 

05,3220 

TO 

05,3275 

232 

06,3023 

TO 

06,3035 

1 92 

01,3377 

TO 

0 1 , 35  1 1 

1125 

05,3256 

1329 

05,3276 

TO 

05,3351 

233 

06,3035 

TO 

06,3055 

193 

01,3512 

TO 

01,3555 

1126 

05,3257 

TO 

05,3301 

1335 

05,3352 

TO 

05 ,35  16 

235 

06, 3055 

TO 

06,3062 

195 

01,3555 

TO 

01 , 3503 

1 129 

05,3302 

TO 

05,3356 

1336 

05,3517 

TO 

05,3565 

833 

06,3063 

TO 

06,3100 

195 

01,3505 

TO 

0 1, 3527 

1130 

05,3357 

TO 

05,3371 

1337 

05,3566 

TO 

05,3506 

835 

06,3101 

TO 

06,31 17 

196 

01,3530 

TC 

01,3567 

1300 

05,3372 

TO 

05,3531 

1386 

05,3507 

TC 

05,3527 

989 

06,3120 

TO 

06,3137 

197 

01,3570 

TO 

01, 3612 

1301 

05,3532 

TO 

05,3503 

1387 

05,3530 

TO 

05,3606 

990 

06,3150 

TO 

06,3166 

198 

01,3613 

TO 

0 1, 3663 

1302 

05, 3505 

TO 

05,3551 

1388 

05,3607 

TO 

05,3657 

991 

06, 3167 

TO 

06,3200 

199 

0 1,3665 

TO 

01,3710 

1303 

05,3552 

TO 

05,3603 

1389 

05,3650 

TO 

05,3720 

992 

06, 3201 

TO 

06,3212 

200 

01,3  111 

TO 

01,3757 

1305 

05,3605 

TO 

05,3653 

1390 

05,3721 

TO 

05,3722 

993 

06, 3213 

TO 

06,3257 

202 

01,3750 

TC 

01,3775 

1305 

05,3655 

TO 

05,3720 

1391 

05,3723 

TO 

05,3725 

995 

06, 3260 

TO 

06,3317 

203 

01,3775 

TO 

01,3776 

29 

05,3721 

TO 

05,3761 

1392 

05,3726 

TO 

05,3775 

995 

06,3320 

TO 

06,3332 
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06,3333 

TC 

C 6 , 3376 

338 

07,3356 

TO 

07,3371 

1317 

10,3556 

TO 

10,3571 

1371 

12,2156 

TO 

12,2235 

1176 

06,3377 

339 

07,3372 

TO 

07,3615 

1318 

10,3572 

TO 

10,3602 

13  79 

12,2236 

TO 

12,2307 

1175 

06,3600 

TO 

06, 3625 

360 

07,3616 

TO 

07,3650 

1319 

1 0,3603 

TO 

10,3633 

1396 

12,2310 

TO 

12,2367 

1176 

06,3626 

TC 

06,3665 

361 

07,3651 

TO 

07,3513 

1320 

10,3636 

TO 

10,3675 

1395 

12,2370 

TO 

12,2620 

1177 

06,3666 

TC 

06,3676 

362 

07,35 16 

TO 

0 7,3570 

1321 

10,3676 

TO 

10,3716 

1396 

12,2621 

TO 

12,2502 

1178 

06,3675 

TO 

Cfc, 3523 

363 

07,3571 

TO 

07,3605 

1322 

10,3715 

TO 

10,3721 

1397 

12,2503 

TO 

12,2535 

1179 

06,3526 

TC 

C6, 3556 

366 

07,3606 

TO 

07,3632 

1323 

10,3722 

TO 

10,3736 

1398 

12, 2536 

TO 

12,2611 

1180 

06,3557 

TO 

06, 3626 

365 

07,3633 

TO 

07,3700 

1326 

10,3737 

TO 

10,3772 

1399 

12,2612 

TO 

12,2652 

1181 

06,3625 

TC 

06,3676 

366 

07,3701 

TO 

07,3730 

1325 

10,3773 

TO 

10,3776 

30 

12,2653 

TO 

12,2731 

1182 

06,3675 

rc 

06,3713 

367 

07,3731 

TO 

07,3736 

1326 

11,2000 

TO 

11,2036 

689 

12,2732 

TO 

12,2766 

1186 

06,3716 

TC 

06,3762 

368 

07,3735 

TO 

0 7 ,3762 

1327 

l 1,2037 

TC 

11,2116 

690 

12,2767 

TO 

12,3061 

1 187 

06,3763 

TO 

06,3766 

369 

07,3763 

TO 

07,3766 

1328 

11,2117 

TO 

11,2163 

691 

12,3062 

TO 

12,3117 

1188 

06,3765 

TC 

06,3775 

1165 

07,3767 

TO 

07,3770 

30 

l 1 , 2 1 66 

TO 

11,2235 

692 

12, 3120 

TO 

12,3173 

1 1 89 

06,3776 

30 

10,2000 

TO 

10,2027 

696 

1 1,2236 

TO 

11,2301 

693 

12,3176 

TO 

12,3211 

1 190 

07,2000 

TC 

C 7,2063 

255 

10,2030 

TO 

10,2065 

1262 

1 1,2302 

TO 

11,2360 

822 

12,3212 

TO 

12,3272 

1191 

07,2066 

TO 

07,2055 

256 

10,2066 

TO 

10,2162 

1263 

1 1,2361 

TO 

11,2600 

823 

12,3273 

TO 

12,3352 

1 192 

C 7 ,2056 

TC 

07,2123 

257 

10,2163 

TO 

10,2212 

1266 

11,2601 

TO 

1 1,2602 

826 

12,3353 

TO 

12,3631 

1 193 

07,2126 

TC 

07,2137 

258 

10,2213 

TO 

10,2231 

1297 

11,2603 

TO 

11,2656 

1225 

12,3632 

TO 

12,3503 

1196 

07,2160 

TO 

07,2211 

265 

10,2232 

TO 

10,2300 

1298 

11,2657 

TO 

11,2502 

1226 

12,3506 

TO 

12,3556 

1195 

07,22  12 

TC 

0 7,2270 

266 

10,2301 

TO 

10,2316 

1299 

11,2503 

TO 

11,2522 

1227 

12,3557 

TO 

12,3637 

1196 

07,2271 

TC 

07,2366 

267 

10,2315 

TO 

10,2317 

1351 

1 1,2523 

TO 

1 1,2601 

1228 

12,3660 

TO 

12,3703 

1197 

07,2365 

TC 

07,2353 

268 

10,2320 

TO 

10,2366 

1352 

1 1,2602 

TO 

11,2663 

1229 

12,3706 

TO 

12,3751 

1198 

0 7,2356 

TO 

07,2623 

2 69 

10,2365 

TO 

10,2626 

1353 

1 1,2666 

TO 

1 1,2765 

1230 

12,3752 

TO 

12,3756 

1199 

07,2626 

TC 

07,2666 

2 70 

10,2625 

TO 

10,2655 

1356 

1 1,2766 

TO 

1 1,30  23 

1231 

l 2,  3755 

TO 

12,3776 

1266 

07,2667 

TO 

07,2515 

271 

10,2656 

TO 

10,2516 

1355 

1 1,3026 

TO 

1 l ,3102 

1232 

12,3775 

TO 

12,3776 

31 

07,2516 

TO 

07,2562 

2 72 

10,2517 

TO 

10,2566 

1 356 

11,3103 

TO 

11,3166 

1233 

13,2000 

TO 

13,2025 

68 

07,2563 

TO 

07,2571 

273 

10,2565 

TO 

10,2630 

1357 

11,3165 

TO 

11,3266 

1236 

1 3,2026 

TO 

13,2051 

267 

07,2572 

TC 

07,2606 

2 76 

10,2631 

TO 

10,2671 

1358 

1 1,3267 

TO 

1 1,3330 

1235 

13,2052 

TO 

13,2067 

268 

07.26C7 

TO 

07 , 2667 

959 

10,2672 

TO 

10,2732 

1359 

1 1,3331 

TO 

11,3612 

1236 

13, 2070 

TO 

13,2113 

332 

07,2650 

TO 

07,2700 

960 

10,2733 

TO 

10,3000 

1360 

1 1,3613 

TO 

1 1,3672 

1237 

13,2116 

TO 

13,2132 

333 

0 7.2  7C  I 

TC 

0 7,2737 

1307 

10,3001 

TO 

10,3050 

1361 

11,3673 

TO 

11,3551 

12  39 

13,2133 

TO 

13,2160 

3 36 

07,2  760 

TO 

07,2766 

1308 

10,3051 

TO 

10,3112 

1362 

l 1,3552 

TO 

11,3631 

1260 

13,2161 

TO 

13,2206 

335 

07,2  765 

TC 

07,3026 

1309 

10,31  13 

TO 

10,3167 

1363 

1 1,3632 

TO 

1 l ,3707 

1261 

13,2207 

TO 

13,2232 

711 

07,3025 

TO 

07,3071 

13  10 

10,3170 

TO 

10,3237 

1366 

11,3710 

TO 

11,3711 

1262 

13,2233 

TO 

13,2316 

712 

07,3072 

TO 

07,3130 

1311 

10,3260 

TO 

10,3306 

1365 

11,3712 

TO 

1 1,3770 

1263 

13, 2315 

TO 

13,2373 

713 

07,3131 

TC 

07,3176 

13  12 

10,3305 

TO 

10,3356 

1366 

1 1,3771 

TO 

11,3775 

1 266 

13,2376 

TO 

13,2605 

929 

07,3175 

TO 

C 7,  3220 

1313 

10,3355 

TO 

10,3620 

1367 

11,3776 

30 

13,2606 

TO 

13,2636 

1131 

07,3221 

TO 

07,3257 

1316 

10,3621 

TO 

10, 1666 

1368 

12,2000 

TO 

12,2022 

1 099 

13,2635 

TO 

13,2656 

1 132 

07,3260 

TO 

0 7,  3307 

13  15 

10,3665 

TO 

10,3532 

1369 

12,2023 

TO 

12,2073 

1172 

13, 2657 

TO 

13,2516 

1133 

07,3310 

TO 

07,3353 

13  16 

10,3533 

TO 

10,3553 

1370 

12,2076 

TO 

12,2155 

1 173 

13,2515 

TO 

13,2566 

1136 
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13,2595 

TO 

13,2604 

1135 

14,3073 

TO 

14,3152 

939 

15,3177 

TO 

15,3255 

970 

16,3527 

TO 

16,3531 

1437 

1 3.26C5 

TC 

13,2614 

1136 

14,3153 

TO 

14,3173 

940 

15,3256 

TO 

15,3272 

971 

16,3532 

TO 

16,3603 

1438 

13,2615 

TC 

1 3,2640 

1137 

14,3174 

TO 

14,3233 

941 

15,3273 

972 

16,3604 

TO 

16,3641 

1439 

13,2691 

TC 

13,2655 

12C6 

14,3234 

TO 

14,3264 

94  2 

15,3274 

TO 

15,3345 

973 

16,3642 

TO 

16,3713 

1468 

13,2656 

TC 

13,2724 

1207 

14,3265 

TO 

14,3315 

943 

15,3346 

TO 

15,3425 

974 

16,3714 

TO 

16,3735 

1469 

13,2725 

TO 

13,2771 

1208 

14,3316 

TO 

14,3366 

944 

15,3426 

TO 

15,3443 

975 

16,3736 

TO 

16,3766 

1474 

13,2772 

TO 

13,3045 

12  09 

14,3367 

TO 

14,3403 

94  5 

15,3444 

TO 

15,3467 

976 

16,3767 

TO 

16,3772 

1475 

13,3096 

TC 

1 3,3100 

1210 

14,3404 

TO 

14,3461 

94  7 

15,3470 

TO 

15,3522 

977 

16,3773 

TO 

16,3774 

32 

1 3 , 3 1 C 1 

TO 

13,3141 

1211 

14,3462 

TO 

14 ,3540 

948 

15,3523 

TO 

15,3556 

978 

17,2000 

TO 

17,2042 

577 

13,3192 

TC 

13,3171 

1212 

14,3541 

TO 

14,3602 

949 

15,3557 

TO 

15,3615 

979 

1 7,2043 

TO 

17,2054 

578 

13,31  72 

TO 

13,3247 

12  13 

14,3603 

TO 

14,3635 

952 

15,3616 

TO 

15,3633 

9 80 

17,2055 

TO 

17,21  16 

1401 

13,3250 

TC 

13,3314 

12  14 

14,3636 

TO 

14,3706 

953 

15,3634 

TO 

15,3645 

981 

17,2117 

TO 

17,2123 

1402 

13,3315 

TO 

13,3374 

1215 

14,3707 

TO 

14,3714 

954 

l 5,3646 

TO 

15,3667 

983 

17,2124 

TO 

17,2152 

1440 

13,3375 

TO 

13, 3456 

1216 

14,3715 

TO 

14,3753 

972 

15,3670 

TO 

15,3751 

984 

17,2153 

TO 

17,2226 

1441 

13,3957 

TO 

13,3521 

1217 

14,3754 

TO 

14,3764 

1291 

l 5,3752 

TO 

1 5,3756 

935 

17,2227 

TO 

17,2270 

1442 

13,3522 

TC 

13,3557 

12  10 

14,3765 

TO 

14,3776 

1398 

1 5,3757 

TO 

15,3771 

1329 

17,2271 

TO 

17,2346 

1443 

13,3560 

TO 

1 3, 3605 

1219 

15,2000 

TO 

15,2003 

54 

15,3772 

TO 

15,3776 

1330 

17,2347 

TO 

17,2414 

1444 

1 3.36C6 

TO 

1 3,3620 

1220 

15,2004 

TO 

15,2057 

261 

16,2000 

TO 

16,2026 

1407 

17,2415 

TO 

17,2476 

1445 

13,3621 

TC 

13,3676 

1221 

15,2060 

TO 

15,2140 

262 

16,2027 

TO 

16,2036 

1408 

17,2477 

TO 

17,2560 

1446 

13,3677 

TO 

13,3717 

1222 

15,2141 

TO 

15,2161 

263 

16,2037 

TO 

16,2111 

1 409 

17,2561 

TO 

17,2627 

1447 

13,3720 

TO 

13,3744 

1238 

15,2162 

TO 

15,2200 

505 

16,2112 

TO 

16,2165 

1410 

17,2630 

TO 

17,2654 

1448 

13,3795 

TO 

13,374  7 

1244 

15,2201 

TO 

15,2206 

924 

16,2166 

TO 

16,2216 

1411 

17,2655 

TO 

17,2707 

1449 

13,3750 

TC 

13,3774 

1245 

15.22C7 

TO 

15,2263 

925 

16,2217 

TO 

16,2252 

1 4 19 

17,2710 

TO 

17,2755 

1450 

13,3775 

TO 

13,3776 

31 

15,2264 

TO 

15,2273 

926 

16,2253 

TO 

16,2317 

1420 

17,2756 

TO 

17,3013 

1451 

19,2000 

TO 

14 , 2007 

47 

15,2274 

TO 

15,2325 

927 

16,2320 

TO 

16,2363 

1421 

17,3014 

TO 

17,3064 

1452 

19,20  10 

TO 

14,2065 

49 

15,2326 

TO 

15,2354 

928 

16,2364 

TO 

16,2440 

1422 

17,3065 

TO 

17,3136 

1453 

19,2066 

TC 

14,2147 

50 

15,2355 

TO 

15,2401 

929 

16,2441 

TO 

16,2520 

1423 

17,3137 

TO 

17,3157 

1454 

19,2 150 

TC 

14,2231 

51 

15,2402 

TO 

15,2443 

955 

16,2521 

TO 

16,2601 

1424 

17,3160 

TO 

17,3225 

1455 

19,2232 

TC 

14,2313 

52 

15,2444 

TO 

15,2521 

956 

16,2602 

TO 

16,2652 

1425 

17,3226 

TO 

17,3276 

1456 

19,2319 

TO 

14,2346 

53 

15,2522 

TO 

15,2575 

957 

16,2653 

TO 

16,2723 

1426 

1 7,3277 

TO 

17,3303 

1457 

14.2347 

TO 

14,2412 

259 

15,2576 

TO 

15,2614 

958 

16,2724 

TO 

16,2763 

1427 

17,3304 

TO 

17,3344 

1459 

14,2913 

TC 

14,2454 

264 

15, 2615 

TO 

15,2626 

961 

16,2764 

TO 

16,3034 

1428 

17,3345 

TO 

17,3416 

1460 

14,2455 

TC 

14,2514 

930 

15,2627 

TO 

15,2666 

96  2 

16,3035 

TO 

16,3066 

1429 

17,3417 

TO 

17,3464 

1461 

14,2515 

TC 

14,2573 

932 

15,2667 

TO 

15,2743 

963 

16,3067 

TO 

16,3127 

1 430 

17,3465 

TO 

17,3532 

1462 

14,2574 

TO 

14,2617 

933 

15,2744 

TO 

15,3016 

964 

16,3130 

TO 

16,3206 

1431 

17,3533 

TO 

17,3575 

1463 

14,2620 

TC 

14,2632 

934 

15,3017 

96  5 

16,3207 

TO 

16,3265 

1432 

17,3576 

TO 

17,3640 

1464 

14,2633 

TC 

14,2714 

935 

15,3020 

TO 

15,3056 

966 

16,3266 

TO 

16,3346 

1433 

17,3641 

TO 

17,3662 

1465 

14,2715 

TC 

14,2775 

936 

15,3057 

TO 

15,3063 

96  7 

16,3347 

TO 

16,3403 

1434 

1 7, 3663 

TO 

17,3724 

1466 

14,2776 

TC 

14,3022 

937 

15,3064 

TO 

15,3117 

968 

16,3404 

TO 

16,3455 

1435 

17,3725 

TO 

17,3776 

1467 

14,3023 

TO 

14,3072 

938 

15,3120 

TO 

15,31 76 

969 

16,3456 

TO 

16,3526 

1436 

20,2000 

44 
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t 

20,2001 

TC 

2C  ,2003 

45 

21,2170 

TO 

21,2224 

895 

22,2360 

TO 

22,2421 

369 

23,2447 

TO 

23 ,2452 

702 

9 

20,2004 

TC 

2 C , 2005 

3 04 

21,2225 

TO 

21 ,2266 

896 

22,2422 

TC 

22,2503 

370 

23,2453 

TO 

23,2473 

853 

20,2006 

TG 

20,2066 

305 

21 ,2267 

TO 

21,2334 

897 

22,2504 

Tn 

22,2546 

371 

23, 2474 

TO 

73,2513 

1098 

20,2067 

TC 

20,2114 

306 

21,2335 

TO 

21,2404 

898 

22,2547 

TO 

22,2625 

372 

23,2514 

TO 

23,2533 

1147 

9 

20,2115 

TO 

20,2142 

1404 

21, 2405 

TO 

21,2453 

899 

22,2626 

TO 

22,2653 

373 

23,2534 

TO 

73,2615 

1 148 

20,2143 

TO 

20,2204 

1405 

21,2454 

TO 

21,2515 

9C0 

22,2654 

TO 

22,2723 

374 

23,  26  16 

TO 

23,2677 

1 149 

9 

20,2205 

TO 

20,2226 

1406 

2 l,  2516 

TO 

21 ,2570 

901 

22,2724 

TO 

22,2743 

375 

23,2700 

TO 

23,2725 

1150 

20,2227 

TO 

20, 2236 

1412 

21,2571 

TO 

21,2633 

902 

22,2744 

TO 

22,3002 

376 

23,2726 

TO 

73,2754 

1151 

20,2237 

TC 

2C.2307 

1413 

21,2634 

TO 

21,2672 

903 

22,3003 

TO 

22,3053 

377 

23,2755 

TO 

23,3036 

1152 

9 

20,2310 

TO 

20,2335 

1414 

21,2673 

TO 

21 ,2706 

904 

22,3054 

TO 

22,3124 

378 

23,3037 

TO 

23 , 3120 

1153 

20,2336 

TC 

20,2376 

1416 

21,2707 

TO 

21,2737 

95  C 

22,3125 

TO 

22,3202 

379 

23,3121 

TO 

23,3202 

1154 

9 

20,2377 

TO 

20,2451 

1417 

21,2740 

TO 

21,2757 

95  1 

22,3203 

TO 

22,3212 

380 

23,3203 

TO 

23,3231 

1155 

20,2452 

TC 

20,2462 

1418 

21,2760 

10 

21,2763 

1220 

22,3213 

TO 

22,3241 

381 

23,3237 

TO 

23, 3266 

1246 

9 

20,2463 

TO 

20,2476 

1484 

21,2764 

TO 

21,3006 

1328 

22,3242 

TO 

22,3243 

695 

23,3267 

TO 

23,3302 

1247 

20,2477 

TC 

20,2552 

1485 

21,3007 

TO 

21,3013 

1381 

22,3244 

TO 

22,3302 

716 

23, 3303 

TO 

23,3335 

1248 

20,2553 

TC 

20,2627 

1486 

2 l , 30  14 

TO 

2 1 , 3026 

1382 

22,3303 

TO 

22,3357 

717 

23,3336 

TO 

23,3402 

1250 

9 

20,2630 

TC 

20,267/ 

1487 

21,3027 

TO 

2 1,3052 

1470 

22,3360 

TO 

22,3431 

718 

23, 3403 

TO 

23,3423 

1251 

20.27C0 

TC 

20,2754 

I486 

21,3053 

TO 

21,3124 

1471 

22,3432 

TO 

22,3466 

719 

23,3424 

TO 

23,3463 

1252 

9 

20,2755 

TC 

20,2757 

1489 

21,3125 

TO 

21,3172 

1472 

22,3467 

TO 

22,3541 

720 

23,3464 

TO 

23,3515 

1253 

20,2760 

TC 

20,3000 

1490 

21,3173 

TO 

2 1,3245 

1473 

22,3542 

TO 

22,3552 

721 

23,3516 

TO 

23, 3521 

1254 

20 , 30  C 1 

TO 

20,3042 

1491 

21,3246 

TO 

21,3256 

1474 

22,3553 

TO 

22,3613 

723 

23,3522 

TO 

23,3535 

1256 

20,3043 

TO 

20,3114 

1492 

21,3257 

TO 

21,3264 

1476 

22,3614 

TO 

22,3650 

724 

23,3536 

TO 

23,3577 

1257 

20,3115 

TO 

20,3170 

1493 

21,3265 

TO 

21 ,3337 

1477 

22,3651 

TO 

22,3662 

830 

23,3600 

TO 

23,3637 

1258 

20,3171 

TC 

2 C , 3205 

1494 

2 1 ,3340 

TO 

21,3370 

1478 

22,3663 

TO 

22,3670 

867 

23,3640 

TO 

23,3662 

17  59 

J 

20.32C6 

TO 

20,3251 

1495 

21,3371 

TO 

21,3427 

1479 

22,3671 

TO 

22,3711 

868 

23,3663 

TO 

23,3707 

1260 

9 

20,3252 

TO 

20,3322 

1496 

21,3430 

TO 

2 1,3476 

1480 

22,3712 

TO 

22,3737 

l 155 

23,3710 

TO 

73,3757 

1761 

20,3323 

TO 

2 C, 3400 

1497 

21,3477 

TO 

21,3550 

1461 

22,3740 

TO 

22,3773 

1 1 56 

23,3760 

1262 

20 , 34  C 1 

TC 

20,3450 

1498 

21,3551 

TO 

21,3575 

1482 

22,3774 

TO 

22,3775 

33 

23,3761 

TO 

23,3762 

33 

9 

20,3451 

TO 

20,3524 

1499 

21,3576 

TO 

21,3605 

1484 

23,2000 

TO 

23,2007 

283 

24,2000 

TO 

24,2004 

507 

20,3525 

TO 

2C, 3574 

1500 

21,3606 

TO 

21,3624 

1506 

23,2010 

TO 

23,2040 

284 

24,2005 

TO 

24,2035 

508 

20,35  15 

TO 

20,3647 

1501 

21, 3625 

TO 

21,3705 

1 5C7 

23,2041 

TO 

23,2102 

336 

24,2036 

TO 

24,2051 

510 

9 

20,3650 

TO 

20,3720 

1502 

21,3706 

TO 

21,3727 

1508 

23,2103 

TO 

23,2115 

500 

24,2052 

TO 

24,2133 

511 

20,3721 

TC 

2C.3737 

1503 

21,3730 

TO 

21  ,3731 

32 

23,21 16 

TO 

23,2134 

533 

24,2134 

TO 

24,2205 

512 

9 

20,3740 

TO 

20,3750 

1504 

22,2000 

TO 

22,2003 

46 

23,2135 

TO 

23,2216 

534 

24,2206 

TO 

24,2255 

513 

20,3751 

TC 

20,3752 

32 

22,2004 

TO 

22,2053 

363 

23,2217 

TO 

23,2276 

535 

24,2256 

TO 

74,2327 

514 

9 

21  ,2000 

TC 

2 1,2005 

44 

22,2054 

TO 

22,2126 

364 

23,2277 

TO 

23,2334 

536 

24,2330 

TO 

24,2373 

515 

21 ,2006 

TC 

2 1,2041 

695 

22,2127 

TO 

22,2201 

365 

23,2335 

TO 

23,2364 

698 

24,2374 

TO 

24,2453 

516 

9 

21,2042 

TO 

21,2104 

831 

22,2202 

TO 

22,2262 

366 

23,2365 

TO 

23,2400 

699 

24,2454 

TO 

24,2461 

517 

21.21C5 

TC 

21,2147 

832 

22,2263 

TO 

22,2311 

367 

23,2401 

TO 

23,2436 

700 

74,2462 

TO 

24,2504 

518 

21,2150 

TC 

2 1,2167 

837 

22,2312 

TO 

22,2357 

368 

23,2437 

TO 

23,2446 

701 

24,2505 

TO 

24,2526 

519 

i 

9 


GAP:  ASSEMBLE  REVISION  210  OE  AGC  PROGRAM  LUMINARY 

OCCUPIED  LOCATIONS  PAGE  OCCUPIEO  LOCATIONS 


24,2527 

TC 

24,2550 

520 

25,2334 

TO 

25,2363 

24,2551 

TO 

24,2630 

521 

25,2364 

TO 

25,2365 

24,2631 

rc 

24,2710 

522 

25,2366 

TO 

25,2422 

24,2711 

TC 

24,2755 

523 

25,2423 

TO 

25,2432 

24,2756 

TC 

24,2775 

524 

25,2433 

TO 

25,2451 

24,2  777 

TO 

24, 3057 

525 

25,2452 

TO 

25,2465 

24,3060 

TC 

24,3137 

526 

25,2466 

TO 

25,2534 

24,3140 

TO 

24, 3217 

527 

25,2535 

TO 

25,2563 

24,3220 

TC 

24,3251 

528 

25,2564 

24,32 52 

TO 

24,3270 

529 

25,2565 

TO 

25,2625 

24,3271 

TO 

24,3310 

530 

25,2626 

TO 

25,2674 

24,3311 

TO 

24,3335 

531 

25,2675 

TO 

25.27C4 

24,3336 

532 

25,2705 

TO 

25,2752 

24,3337 

TO 

24,3415 

583 

25, 2753 

TO 

25,3025 

24,34  16 

TC 

24,3432 

592 

25,3026 

TO 

25,3061 

24,3433 

TC 

24,3440 

593 

25,3062 

TO 

25,3123 

24,3441 

TO 

24,3506 

658 

25,3124 

TO 

25,3156 

24,3507 

TC 

24,3570 

659 

25,3157 

TO 

25,3213 

24,3571 

TC 

24,3633 

660 

25,3214 

TO 

25,3264 

24,3634 

TC 

24,3643 

767 

25,3265 

TO 

25,3333 

24,3644 

TC 

24, 3673 

l 140 

25,3334 

TO 

25,3401 

24,3674 

TO 

24,3720 

1 141 

25,3402 

TO 

25,3450 

24,3727 

TC 

2 4,3742 

1142 

25,3451 

TO 

25,3510 

24,3743 

TO 

24,3767 

1143 

25,3511 

TO 

25,3552 

24,3770 

TO 

24, 3774 

1223 

25,3553 

TO 

25, 36C6 

24,3775 

TO 

24,3776 

1224 

25,3607 

TO 

25,3625 

25.20C0 

TC 

25, 2002 

42 

25,  3626 

TO 

25,3637 

25,2003 

TO 

25,2016 

505 

25,3640 

TO 

25,3641 

25,2017 

TO 

25,2052 

506 

25,3642 

TO 

25,3650 

25,2053 

TC 

25,2061 

542 

25,3651 

TO 

25,3711 

25,2062 

TO 

25,2101 

543 

25,3712 

TO 

25,3752 

25,2 1C2 

TO 

25,2117 

544 

25,3753 

TO 

25,3770 

25,2 1 20 

TO 

25,2123 

545 

25,3771 

TO 

25,3772 

25,2124 

TC 

25,2161 

546 

26,2000 

TO 

26,2001 

25,2162 

TO 

25,2170 

547 

26,2)02 

TO 

26,2023 

25,2171 

TC 

25,2231 

548 

26,2024 

TO 

26,2073 

25,2232 

TC 

25,2242 

549 

26.2074 

TO 

26,2122 

25,2243 

TC 

25,2276 

550 

26,2123 

TO 

26,2124 

25,2277 

TC 

25,2313 

551 

26,2125 

TO 

26,2147 

25,2314 

TO 

25,2333 

552 

26,2150 

TO 

26,2220 
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26,2221 

TO 

26,2265 

490 

27,2253 

Tn 

27,2332 

761 

26,2266 

TO 

26,2277 

491 

27,2333 

TO 

27,2412 

762 

26,2300 

TO 

26,2302 

492 

27,2413 

TO 

27,2446 

764 

26,2303 

TO 

26,2360 

493 

27,2447 

TO 

27,2530 

766 

26,2361 

494 

27, 2531 

TO 

27,2535 

767 

26,2362 

TO 

26,2416 

498 

27,2536 

TO 

27,2563 

768 

26,2417 

TO 

26,2423 

499 

27, 2564 

TO 

27,2643 

769 

26,2424 

TO 

26,2474 

595 

27, 2644 

TO 

27,2710 

770 

26,2475 

TO 

26,2556 

596 

27,271 1 

TO 

27,2763 

772 

26,2557 

TO 

26,2637 

597 

27,2764 

TO 

27,3045 

773 

26,2640 

TO 

26,2721 

598 

27,3046 

TO 

27,3127 

774 

26,2722 

TO 

26,3001 

599 

27,3130 

TO 

27,3211 

775 

26,3002 

TO 

26,3063 

600 

27,3212 

TO 

27,3220 

776 

26,3064 

TO 

26,3144 

601 

27,3221 

TO 

27,3256 

777 

26,3145 

TO 

26,3205 

602 

27,3257 

TO 

27,3270 

773 

26,3206 

TO 

26,3247 

603 

27,3271 

TO 

27,3274 

780 

26,3250 

TO 

26,3312 

604 

27,3275 

TO 

27,3314 

852 

26,3313 

TO 

26,3357 

605 

27,3315 

TO 

27,3323 

856 

26,3360 

TO 

26,3433 

606 

27,3324 

TO 

27,3360 

869 

26,3434 

TO 

26,3440 

607 

27,3361 

TO 

27,3362 

8 70 

26,3441 

TO 

26,3444 

608 

27,3363 

TO 

27,3412 

1268 

26,3445 

TO 

26,3522 

609 

27,3413 

TO 

27,3431 

1269 

26,3523 

TO 

26,3602 

610 

27,3432 

TO 

27,3467 

1271 

26,3603 

TO 

26,3621 

611 

27, 3470 

TO 

27,3536 

1274 

26,3622 

TO 

26,3667 

612 

27,3537 

TO 

27,3577 

1275 

26,3670 

TO 

26,3715 

613 

27,3600 

TO 

27,3647 

1276 

26,3716 

TO 

26,3740 

1 138 

27,3650 

TO 
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1277 

26,3741 

TO 
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1 139 
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TO 
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TO 
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TO 
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26,3775 

TO 
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34 
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TO 
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TO 

27,2011 

39 
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TO 
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34 

27,2012 

TO 

27,2021 

40 
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TO 
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40 

27,2022 

TO 

2 7,2027 
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30,2002 

TO 

30,2053 

616 

27,2030 

TO 

27,2031 

48 

30, 2054 

TO 

30,2060 

617 

27,2032 

TO 

27,2105 

496 

30,2061 

TO 

30,2126 

839 

27,2106 

TO 

27,2157 

497 

30,2127 

TO 

30,2203 

340 
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TO 

27,2177 
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30,2204 
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745 
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TO 
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TO 
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TO 
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817 
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318 
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892 
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TO 
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807 
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33,3505 

TO 
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TC 
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908 

31,3217 

TO 
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8C8 

32,3373 

TO 

32,3434 

820 

33,3555 

TO 

33 , 3574 

894 

30,3143 

TO 

30,3173 

909 

31,3266 

TO 

31,3327 

809 

32,3435 

TO 

32,3442 

821 
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TO 

33,3576 

35 

30,3174 

TC 

3C.3241 

910 

31,3330 

TO 

31,3377 

810 

32,3443 

TO 

32,3463 

834 
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TO 

34,2005 

6 22 

30,3242 

TC 

30,3306 

911 

31,3400 

TO 

31 ,3436 

811 

32,3464 

TO 

32,3544 

835 

34,2006 

TO 

34,2056 

623 

30.33C7 

TC 

30,3317 

912 

31,3437 

TO 

31,3505 

812 

32,3545 

TO 

32,3612 

836 

34,2057 

TO 

34,2115 

638 

30,3320 

TC 

30,3361 

913 

31,3506 

TO 

31,3516 

813 

32,3613 

TO 

32,3626 

837 

34,21 16 

TO 

34,2177 

639 

30,3362 

TC 

30,3423 

914 

31,3517 

TO 

31,3544 

314 

32,3627 

TO 

32,3655 

838 

34,2200 

TO 

34,2261 

640 

30,3424 

TO 

30,3466 

915 

31,3545 

TO 

31,3607 

825 

32,3656 

TO 

32,3660 

870 

34,2262 

TO 

34,2343 

641 

30,3467 

TO 

30,3516 

916 

31, 3610 

TO 

31 ,3660 

826 

32,3661 

TO 

32,3715 

871 

34,2344 

TO 

34,2425 

642 

30,35  17 

TC 

30,3563 

917 

31,3661 

TO 

31,3724 

827 

32,3716 

TO 

32,3717 

35 

34,2426 

TO 

34,2507 

643 

30,3564 

TC 

30,3605 

918 

31,3725 

TO 

31,3750 

828 

33,2000 

TO 

33,2001 

40 

34, 2510 

TO 

34,2571 

644 

30,3606 

TC 

30,3655 

9 19 

31,3751 

TO 

31,3763 

829 

33,2002 

TO 

33,203  1 

4? 

34,2572 

TO 

34,2653 

645 

30,3656 

TO 

30,3712 

920 

31,3764 

TO 

31,3772 

830 

33,2032 

TO 

33,2076 

43 

34,2654 

TO 

34,2735 

646 

30,3/13 

TC 

30, 3744 

921 

31,3773 

TO 

31  ,3774 

35 

33,2077 

TO 

33,2106 

46 

34,2736 

TO 

34,3015 

647 

30,3745 

TC 

30,3760 

922 

32,2000 

41 

33,2107 

TC 

33,2112 

47 

34,3016 

TO 

34,3051 

648 

30,3761 

TC 

30,3762 

35 

32,2001 

TO 

32,2004 

42 

33,2113 

TO 

33,2120 

858 

34,3052 

TO 

34,3061 

649 

31,2000 

TC 

31,2001 

40 

32,2005 

TO 

32,2010 

218 

33,2121 

TO 

33,2167 

864 

34,3062 

TO 

34,3077 

650 

31,2002 

TC 

3 1 , 2006 

41 

32,2011 

TO 

32,2063 

219 

33,2170 

TO 

33,2235 

865 

34,3100 

TO 

34,3117 

651 

31.20C7 

TO 

31,2056 

614 

32,2064 

TO 

32,2140 

220 

33,2236 

TO 

33,2304 

866 

34, 3120 

TO 

34,3132 

652 

31,2057 

TC 

3 1, 2140 

615 

32, 2141 

TO 

32,2212 

221 

33,2305 

TO 

33,2343 

867 

34,3133 

TO 

34,3204 

653 

31,2141 

TC 

3 1,2143 

616 

32,2213 

TO 

32,2236 

508 

33,2344 

TO 

33,2352 

871 

34,3205 

TO 

34,3266 

654 

31,2144 

TO 

3 1,21  76 

789 

32,2237 

TO 

32,2320 

509 

33,2353 

TO 

33,2366 

872 

34, 3267 

TO 

34,3270 

655 

31,21  77 

TO 

31,2244 

790 

32,2321 

TO 

32,2361 

510 

33,2367 

TO 

33,2407 

8 76 

34,3271 

TO 

34,3334 

787 

31,2245 

TO 

31,2273 

791 

32,2362 

TO 

32,2424 

588 

33,2410 

TO 

33,2457 

877 

34,3335 

TO 

34,3345 

788 

31,2274 

TC 

31,2343 

792 

32,2425 

TO 

32,2504 

589 

33,2460 

TO 

33,2504 

878 

34, 3346 

TO 

34,3374 

842 

31,2344 

TC 

31,23 65 

793 

32,2505 

TO 

32,2564 

590 

33,2505 

TO 

33,2557 

879 

34,3375 

TO 

34 ,3446 

844 

31,2366 

TC 

31,2402 

794 

32,2565 

TO 

32,2567 

591 

33,2560 

TO 

33,2632 

880 

34, 3447 

TO 

34,3450 

845 

31,2403 

TC 

31,2416 

795 

32,2570 

TO 

32,2574 

752 

33,2633 

TO 

33,2641 

881 

34,3451 

TO 

34,3500 

853 

31,24  1 7 

TC 

31,2435 

796 

32,2575 

TO 

32,2601 

753 

33,2642 

TO 

33,2717 

882 

34,3501 

TO 

34,3550 

854 

31,2436 

TO 

31,2475 

797 

32,2602 

TO 

32,2636 

781 

33,2720 

TO 

33,2743 

883 

34,3551 

TO 

34, 3624 

855 

31 ,2476 

TO 

31,2527 

798 

32,2637 

TO 

32,2711 

782 

33,2744 

TO 

33,3016 

884 

34,3625 

TO 

34,3664 

856 

31,2530 

TO 

31,2561 

799 

32,2712 

TO 

32,2762 

783 

33,3017 

TO 

33,3063 

885 

34,3665 

TO 

34,3666 

36 
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35,2000 

rc 

35,2021 
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36,2046 

TO 

36,21 12 

35,2022 

TO 

35,2033 

621 

36,2113 

TO 

36,2151 

35,2034 

rc 

35,2073 

627 

36,2152 

TO 

36,2227 

35,2074 

TO 

35,2155 

628 

36,2230 

TO 

36,2274 

35,2156 

TC 

35,2222 

629 

36,2275 

TO 

36,2341 

35,2223 

TO 

35,2301 

633 

36,2342 

TO 

36,2401 

35.23C2 

TC 

35,2353 

634 

36,2402 

TO 

36,2451 

35,2354 

TO 

35,2374 

635 

36,2452 

TO 

36,2521 

35,2375 

TO 

35,2414 

636 

36,2522 

TO 

36,2565 

35,24  15 

TC 

35,2436 

637 

36, 2566 

TO 

36,2567 

35,2437 

TO 

35,2454 

656 

36,2570 

TO 

36,2634 

35,2455 

TC 

35,2507 

664 

36,2635 

TO 

36,2674 

35,2510 

TC 

35,2567 

665 

36,2675 

TO 

36,2743 

35,2570 

TC 

35,2642 

666 

36,2744 

TO 

36,3006 

35,2643 

TO 

35,2701 

669 

36,3007 

TO 

36,3053 

35,2702 

TC 

35,2761 

670 

36,3054 

TO 

36,3117 

35,2762 

TC 

35,3043 

671 

36,3120 

TO 

36,3131 

35,3044 

TO 

35,3125 

6 72 

36,3132 

TO 

36,3145 

35,3126 

TC 

35,3207 
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36,3146 

TO 

36,3167 

35,3210 

TC 

35,3211 

6 74 

36,3170 

TO 

36,3234 

35,3212 

TO 

35,3223 

675 

36,3235 

TO 

36,3305 

35,3224 

TO 

35,3301 
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36,3306 

TO 

36,3351 
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TO 

35,3314 

677 

36,3352 

TO 

36,3410 

35,3315 

TO 

35, 3357 
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TO 

36,3445 
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TC 
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36,3446 

TO 

36,3513 
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TO 

35,3437 
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36,3561 
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TC 

35,3505 
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TO 
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TO 
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35,3656 

687 

37,2002 

TO 
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37,2460 
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37,2656 
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40,3227 

TO 

40,3277 

456 

37,2657 

TO 

37,2736 
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400 
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401 
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392 
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OCCUPIED 

LOCATIONS 

PAGE 

OCCUPIED 

LOCAT IONS 

PAGE 

OCCUPIED 

41,3232 

TC 

4 1,3301 

445 

42,3463 

TO 

42,3541 

449 

43,3235 

41,3302 

TO 

41,3327 

452 

42,3542 

TO 

42,3613 

450 

43,3274 

41,3330 

TO 

4 1,3401 

453 

42,3614 

TO 

42,3616 

451 

43,3342 

41,3402 

TC 

4 1 , 3424 

4 54 

42,3617 

501 

43,3416 

41,3425 

TC 

4 1,3434 

455 

42,3620 

TO 

42,3701 

502 

43,3476 

41,3435 

TC 

41,3466 

458 

42,3702 

TO 

42,3763 

503 

43,3541 

41,3467 

459 

42,3764 

TO 

42,3776 

504 

43,3620 

41,3470 

TC 

41,3501 

461 

43,2000 

TO 

43,2045 

275 

43,3677 

41,3502 

TC 

4 1,3545 

462 

43,2046 

TO 

43,21 15 

276 

43,3727 

41  ,3546 

TO 

41,3564 

463 

43,2116 

TO 

43,2125 

277 

43,3742 

41,3565 

TC 

41,3644 

468 

43,2126 

TO 

43,2161 

278 

41,3645 

TC 

4 1,3661 

469 

43,2162 

TO 

43,2176 

279 

41,3662 

TO 

41,3727 

482 

43,2177 

TO 

43.22C4 

280 

41,3730 

TO 

4 1,3762 

403 

43,2205 

TO 

43,2234 

281 

41,3763 

TC 

4 1,3776 

4 84 

43,2235 

TO 

43,2277 

282 

4 2 , 2 C1 0 0 

TO 

42,2001 

48 

43,2300 

TO 

43,2332 

283 

42,2002 

TC 

42,2034 

287 

43,2333 

TO 

43,2343 

284 

42,2035 

TO 

42,2053 

2 94 

43,2344 

TO 

43,2374 

285 

42,2054 

TC 

42,2060 

299 

43,2375 

TO 

43,2414 

286 

42,2061 

TC 

42,2107 

300 

43,2415 

TO 

43,2417 

287 

42,2  1 10 

TO 

42,2146 

316 

43,2420 

TO 

43,2462 

238 

42,2147 

TC 

42,2214 

317 

43,2463 

TQ 

43,2533 

289 

42,22  15 

TC 

42,2247 

318 

43,2534 

TO 

43,2606 

290 

42,2250 

TC 

42,2274 

3 19 

43,2607 

TO 

43,2652 

291 

42,2275 

TC 

42,2324 

320 

43, 2653 

TO 

43,2701 

292 

42,2325 

TC 

42,2400 

321 

43,2702 

TO 

43,2737 

293 

42,240  1 

TC 

42,2436 

322 

43,2740 

294 

42,2437 

TO 

42,2474 

323 

43,2741 

TO 

43,2756 

295 

42,2475 

TC 

42,2556 

324 

43,2757 

TO 

43,3002 

296 

42,2557 

TO 

42,2636 

325 

43,3003 

TO 

43,3010 

297 

42,2637 

TO 

42,2713 

326 

43,3011 

TO 

43,3017 

298 

42,2714 

TO 

42,2  /75 

327 

43,3020 

TO 

43,3037 

299 

42,2776 

TC 

42.3057 

328 

43,3040 

TO 

43,3043 

300 

42,3060 

TC 

42,3141 

329 

43,3044 

TO 

43,3056 

301 

42,3142 

TO 

42,3216 

330 

43,3057 

TO 

43,3116 

302 

42,3217 

TO 

42,3240 

331 

43,3117 

TO 

41,3133 

303 

42,3241 

TC 

42,3313 

435 

43,3134 

TO 

43,3140 

304 

42  ,33  14 

TO 

42,3374 

436 

43,  3141 

TO 

43,3200 

309 

42,3375 

TC 

42,3450 

437 

43,3201 

TO 

43,3231 

310 

42,3451 

TO 

42,3462 

438 

43,3232 

TO 

43,3234 

311 
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TO  43,3273  1283 
TO  43,3341  1284 
TO  43,3415  1285 
TO  43,3475  1286 

TO  43,3540  1287 
TO  43,3617  1288 
TO  43,3676  1289 
TO  43,3726  1290 

TO  43,3741  1385 
TO  43,3743  37 


PAGE 
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THE  SUBROUTINES  IN  THIS  PROGRAM  ARE  AS  FOLLOWS : 

LUMERASE. 176 
LEMONA ID. 156 
LFMP20S  .168 
LEMP30S  .105 
KISSING  .067 
FLY  .157 
LEMP50S  .130 
SKIPPER  .131 
LMDAP  .032 


THE  ASSEMBLY  WAS  GOOD  AND  MANUFACTURABLE.  NO  LINES  WERE  CUSSFD. 
BINARY  RECOROS  FOR  "LUM I NARY . R2 10 " SUCCESSFULLY  STORED. 
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